CSS Lab 03 Solution.nb

(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 12.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    386803,       7433]
NotebookOptionsPosition[    378601,       7301]
NotebookOutlinePosition[    378974,       7317]
CellTagsIndexPosition[    378931,       7314]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[StyleBox["Solution of Exercise 01",
 FontColor->RGBColor[0.5, 0, 0.5],
 Background->RGBColor[0.87, 0.94, 1]]], "Text",
 CellChangeTimes->{{3.9071311840439615`*^9, 
  3.907131198732885*^9}},ExpressionUUID->"837b3513-4fa7-4284-a894-\
18f39055185c"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"P", "[", "x_", "]"}], ":=", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["x", "2"], "+", 
      RowBox[{"8", " ", "x"}], "-", "7"}], ")"}], "7"]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Q", "[", "x_", "]"}], ":=", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["x", "2"], "+", "x", "-", "9"}], ")"}], "6"]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Newfunc", "[", "x_", "]"}], ":=", 
  RowBox[{
   RowBox[{"P", "[", "x", "]"}], "-", 
   RowBox[{
    RowBox[{"Q", "[", "x", "]"}], "*", "2", " ", "x", "*", 
    "1"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"Expand", "[", 
  RowBox[{"Newfunc", "[", "x", "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Exponent", "[", 
  RowBox[{
   RowBox[{"Newfunc", "[", "x", "]"}], ",", "x"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"CoefficientList", "[", 
  RowBox[{
   RowBox[{"Newfunc", "[", "x", "]"}], ",", "x"}], "]"}]}], "Input",
 CellChangeTimes->{{3.907131294422429*^9, 3.9071313619642906`*^9}, {
  3.9071333001594367`*^9, 3.9071334212613187`*^9}, {3.9071336528483877`*^9, 
  3.9071336588637867`*^9}, {3.907133727783292*^9, 3.907133733533064*^9}, {
  3.907142250477886*^9, 3.9071422511029277`*^9}},
 CellLabel->
  "In[327]:=",ExpressionUUID->"05d8b0eb-3d0e-443b-ab22-f6f80b26441e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "823543"}], "+", 
  RowBox[{"5525462", " ", "x"}], "-", 
  RowBox[{"21056477", " ", 
   SuperscriptBox["x", "2"]}], "+", 
  RowBox[{"37890526", " ", 
   SuperscriptBox["x", "3"]}], "-", 
  RowBox[{"33755207", " ", 
   SuperscriptBox["x", "4"]}], "+", 
  RowBox[{"11037092", " ", 
   SuperscriptBox["x", "5"]}], "+", 
  RowBox[{"3780847", " ", 
   SuperscriptBox["x", "6"]}], "-", 
  RowBox[{"2637202", " ", 
   SuperscriptBox["x", "7"]}], "-", 
  RowBox[{"537649", " ", 
   SuperscriptBox["x", "8"]}], "+", 
  RowBox[{"226148", " ", 
   SuperscriptBox["x", "9"]}], "+", 
  RowBox[{"97849", " ", 
   SuperscriptBox["x", "10"]}], "+", 
  RowBox[{"15646", " ", 
   SuperscriptBox["x", "11"]}], "+", 
  RowBox[{"1283", " ", 
   SuperscriptBox["x", "12"]}], "+", 
  RowBox[{"54", " ", 
   SuperscriptBox["x", "13"]}], "+", 
  SuperscriptBox["x", "14"]}]], "Output",
 CellChangeTimes->{3.907133422698739*^9, 3.90713366009806*^9, 
  3.9071337346580105`*^9, 3.907142253134112*^9},
 CellLabel->
  "Out[330]=",ExpressionUUID->"1090ce1d-17b4-4e59-95c8-2abbaf7ec6d1"],

Cell[BoxData["14"], "Output",
 CellChangeTimes->{3.907133422698739*^9, 3.90713366009806*^9, 
  3.9071337346580105`*^9, 3.907142253149738*^9},
 CellLabel->
  "Out[331]=",ExpressionUUID->"ce2d1133-4f20-406c-804d-eebcc33123a3"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "823543"}], ",", "5525462", ",", 
   RowBox[{"-", "21056477"}], ",", "37890526", ",", 
   RowBox[{"-", "33755207"}], ",", "11037092", ",", "3780847", ",", 
   RowBox[{"-", "2637202"}], ",", 
   RowBox[{"-", "537649"}], ",", "226148", ",", "97849", ",", "15646", ",", 
   "1283", ",", "54", ",", "1"}], "}"}]], "Output",
 CellChangeTimes->{3.907133422698739*^9, 3.90713366009806*^9, 
  3.9071337346580105`*^9, 3.907142253149738*^9},
 CellLabel->
  "Out[332]=",ExpressionUUID->"a9b514f5-2e29-4d91-81cf-1980ef572e55"]
}, Open  ]],

Cell[TextData[StyleBox["Solution of Exercise 02 (a)",
 FontColor->RGBColor[0.5, 0, 0.5],
 Background->RGBColor[0.87, 0.94, 1]]], "Text",
 CellChangeTimes->{{3.9071313663078775`*^9, 3.907131376916875*^9}, {
  3.9071315947851553`*^9, 
  3.907131595972596*^9}},ExpressionUUID->"51b12222-ec8b-4229-a8df-\
a052b926c9c0"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PolynomialQ", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"2", " ", 
     SuperscriptBox["x", "5"]}], "-", 
    SuperscriptBox["x", "4"], "+", 
    SuperscriptBox["x", "3"], "-", 
    RowBox[{"4", " ", 
     SuperscriptBox["x", "2"]}], "-", "x", "-", "3"}], ",", "x"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.9071314106091843`*^9, 3.9071314676977377`*^9}, {
  3.9071315344505787`*^9, 3.907131535888037*^9}},
 CellLabel->"In[2]:=",ExpressionUUID->"f477ab60-b9b4-4892-abe8-8065b9c6f9ba"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.9071314695882816`*^9, 3.907131536903596*^9},
 CellLabel->"Out[2]=",ExpressionUUID->"1737d0d5-9bb9-4401-8f8e-5dd8820183d9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Factor", "[", 
  RowBox[{
   RowBox[{"2", " ", 
    SuperscriptBox["x", "5"]}], "-", 
   SuperscriptBox["x", "4"], "+", 
   SuperscriptBox["x", "3"], "-", 
   RowBox[{"4", " ", 
    SuperscriptBox["x", "2"]}], "-", "x", "-", "3"}], "]"}]], "Input",
 CellChangeTimes->{{3.9071315127171707`*^9, 3.9071315488718204`*^9}, {
  3.907133614693475*^9, 3.9071336222088795`*^9}},
 CellLabel->"In[32]:=",ExpressionUUID->"9676907d-7089-48f8-8a46-f3298da4f7b5"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", "3"}], "+", 
    RowBox[{"2", " ", "x"}]}], ")"}], " ", 
  RowBox[{"(", 
   RowBox[{"1", "+", 
    SuperscriptBox["x", "2"]}], ")"}], " ", 
  RowBox[{"(", 
   RowBox[{"1", "+", "x", "+", 
    SuperscriptBox["x", "2"]}], ")"}]}]], "Output",
 CellChangeTimes->{
  3.9071315495124817`*^9, {3.907133617599619*^9, 3.9071336232400436`*^9}},
 CellLabel->"Out[32]=",ExpressionUUID->"59bd7138-487f-46ec-8bc0-fb68db7a2231"]
}, Open  ]],

Cell[TextData[StyleBox["Solution of Exercise 02 (b)",
 FontColor->RGBColor[0.5, 0, 0.5],
 Background->RGBColor[0.87, 0.94, 1]]], "Text",
 CellChangeTimes->{{3.9071316008161345`*^9, 
  3.9071316167373037`*^9}},ExpressionUUID->"a1ed5bb1-4fb4-4d52-928e-\
187bed40ae28"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PolynomialQ", "[", 
  RowBox[{
   RowBox[{
    SuperscriptBox["x", "5"], "-", 
    SuperscriptBox["x", "4"], "-", 
    RowBox[{"4", " ", "x"}], "+", "4"}], ",", "x"}], "]"}]], "Input",
 CellChangeTimes->{{3.907131622424554*^9, 3.90713166392824*^9}},
 CellLabel->"In[5]:=",ExpressionUUID->"4baf874b-5390-4166-8c81-bceb2d12cd1b"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.9071316663504734`*^9},
 CellLabel->"Out[5]=",ExpressionUUID->"6c5817a8-f923-4954-adcb-e97ca652d2c6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Factor", "[", 
  RowBox[{
   SuperscriptBox["x", "5"], "-", 
   SuperscriptBox["x", "4"], "-", 
   RowBox[{"4", " ", "x"}], "+", "4"}], "]"}]], "Input",
 CellChangeTimes->{{3.9071316813837285`*^9, 3.90713168585295*^9}, {
  3.907133681597274*^9, 3.9071336888938465`*^9}},
 CellLabel->"In[40]:=",ExpressionUUID->"90ea6d25-adde-434c-a350-e45573c28d4a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", "1"}], "+", "x"}], ")"}], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", "2"}], "+", 
    SuperscriptBox["x", "2"]}], ")"}], " ", 
  RowBox[{"(", 
   RowBox[{"2", "+", 
    SuperscriptBox["x", "2"]}], ")"}]}]], "Output",
 CellChangeTimes->{
  3.9071316879625363`*^9, {3.9071336854095974`*^9, 3.9071336898938007`*^9}},
 CellLabel->"Out[40]=",ExpressionUUID->"f8d1f057-863f-40c2-92c7-9206298be513"]
}, Open  ]],

Cell[TextData[StyleBox["Solution of Exercise 03 (1st part)",
 FontColor->RGBColor[0.5, 0, 0.5],
 Background->RGBColor[0.87, 0.94, 1]]], "Text",
 CellChangeTimes->{{3.9071317529677515`*^9, 3.9071317607490125`*^9}, {
  3.9071322255722685`*^9, 
  3.907132230900222*^9}},ExpressionUUID->"df535588-4e48-40f8-9ce1-\
6400a7cbf780"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"T", "[", "x_", "]"}], ":=", 
   RowBox[{
    SuperscriptBox["x", "5"], "+", 
    RowBox[{"2", " ", 
     SuperscriptBox["x", "4"]}], "+", 
    RowBox[{"3", " ", 
     SuperscriptBox["x", "2"]}], "-", 
    RowBox[{"5", " ", "x"}], "+", "1"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"S", "[", "x_", "]"}], ":=", 
   RowBox[{
    RowBox[{"3", " ", 
     SuperscriptBox["x", "2"]}], "-", "x", "+", "8"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"PolyQuo", "=", 
  RowBox[{"PolynomialQuotient", "[", 
   RowBox[{
    RowBox[{"T", "[", "x", "]"}], ",", 
    RowBox[{"S", "[", "x", "]"}], ",", "x"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"PolyRem", "=", 
  RowBox[{"PolynomialRemainder", "[", 
   RowBox[{
    RowBox[{"T", "[", "x", "]"}], ",", 
    RowBox[{"S", "[", "x", "]"}], ",", "x"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.9071317861395383`*^9, 3.907131850559847*^9}, {
  3.9071318939089303`*^9, 3.907131978780431*^9}},
 CellLabel->"In[8]:=",ExpressionUUID->"f1a1387c-c5a4-4812-88c8-586468bc717f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox["104", "81"]}], "-", 
  FractionBox[
   RowBox[{"17", " ", "x"}], "27"], "+", 
  FractionBox[
   RowBox[{"7", " ", 
    SuperscriptBox["x", "2"]}], "9"], "+", 
  FractionBox[
   SuperscriptBox["x", "3"], "3"]}]], "Output",
 CellChangeTimes->{3.9071319806397038`*^9},
 CellLabel->"Out[10]=",ExpressionUUID->"6fc549b0-cc4c-410e-850d-2407bcb2354b"],

Cell[BoxData[
 RowBox[{
  FractionBox["913", "81"], "-", 
  FractionBox[
   RowBox[{"101", " ", "x"}], "81"]}]], "Output",
 CellChangeTimes->{3.907131980655326*^9},
 CellLabel->"Out[11]=",ExpressionUUID->"ecde746b-51d4-43b2-824c-fe90a0f77fb2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Simplify", "[", 
  RowBox[{
   FractionBox[
    RowBox[{"T", "[", "x", "]"}], 
    RowBox[{"S", "[", "x", "]"}]], "\[Equal]", 
   RowBox[{"PolyQuo", "+", 
    FractionBox["PolyRem", 
     RowBox[{"S", "[", "x", "]"}]]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.9071319961703415`*^9, 3.907132045902601*^9}},
 CellLabel->"In[12]:=",ExpressionUUID->"53e5c98d-832a-4d34-998d-645811e367c7"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.9071320476681128`*^9},
 CellLabel->"Out[12]=",ExpressionUUID->"ec0471dc-801d-42eb-8b41-c01da2eb2243"]
}, Open  ]],

Cell[TextData[StyleBox["Solution of Exercise 03 (2nd part)",
 FontColor->RGBColor[0.5, 0, 0.5],
 Background->RGBColor[0.87, 0.94, 1]]], "Text",
 CellChangeTimes->{{3.9071322345406833`*^9, 
  3.9071322529930096`*^9}},ExpressionUUID->"1e6fea86-dd4f-43dd-a84d-\
8e869cfddc1a"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"R", "[", "x_", "]"}], ":=", 
   RowBox[{"PolyQuo", "+", 
    RowBox[{"PolyRem", "/", 
     RowBox[{"S", "[", "x", "]"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"R", "[", "x", "]"}]}], "Input",
 CellChangeTimes->{{3.907132278585662*^9, 3.9071323569728765`*^9}, {
  3.9071337774219627`*^9, 3.9071338101706343`*^9}},
 CellLabel->"In[47]:=",ExpressionUUID->"1af2ec7f-e343-4f2e-a608-65d5b283df5d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox["104", "81"]}], "-", 
  FractionBox[
   RowBox[{"17", " ", "x"}], "27"], "+", 
  FractionBox[
   RowBox[{"7", " ", 
    SuperscriptBox["x", "2"]}], "9"], "+", 
  FractionBox[
   SuperscriptBox["x", "3"], "3"], "+", 
  FractionBox[
   RowBox[{
    FractionBox["913", "81"], "-", 
    FractionBox[
     RowBox[{"101", " ", "x"}], "81"]}], 
   RowBox[{"8", "-", "x", "+", 
    RowBox[{"3", " ", 
     SuperscriptBox["x", "2"]}]}]]}]], "Output",
 CellChangeTimes->{3.9071323579571934`*^9, 3.907133812139283*^9},
 CellLabel->"Out[48]=",ExpressionUUID->"09d72d6e-2dc5-4ef9-9a76-3c455ebb92a9"]
}, Open  ]],

Cell[TextData[StyleBox["Solution of Exercise 04 (a)",
 FontColor->RGBColor[0.5, 0, 0.5],
 Background->RGBColor[0.87, 0.94, 1]]], "Text",
 CellChangeTimes->{{3.9071324929706817`*^9, 
  3.907132505954501*^9}},ExpressionUUID->"0f0b4b32-2042-4557-b140-\
3527a5a03980"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"M", "[", "x_", "]"}], ":=", 
   FractionBox[
    SuperscriptBox["x", "2"], 
    RowBox[{
     SuperscriptBox["x", "4"], "-", "1"}]]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Apart", "[", 
  RowBox[{"M", "[", "x", "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.907132535140725*^9, 3.907132579107589*^9}},
 CellLabel->"In[15]:=",ExpressionUUID->"6463fe93-88d3-40a9-9ec8-46e9bf37aac0"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", 
   RowBox[{"4", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "x"}], ")"}]}]], "-", 
  FractionBox["1", 
   RowBox[{"4", " ", 
    RowBox[{"(", 
     RowBox[{"1", "+", "x"}], ")"}]}]], "+", 
  FractionBox["1", 
   RowBox[{"2", " ", 
    RowBox[{"(", 
     RowBox[{"1", "+", 
      SuperscriptBox["x", "2"]}], ")"}]}]]}]], "Output",
 CellChangeTimes->{3.9071325802168636`*^9},
 CellLabel->"Out[16]=",ExpressionUUID->"b182afd7-b937-4a40-a1ed-ba2d26ee8998"]
}, Open  ]],

Cell[TextData[StyleBox["Solution of Exercise 04 (b)",
 FontColor->RGBColor[0.5, 0, 0.5],
 Background->RGBColor[0.87, 0.94, 1]]], "Text",
 CellChangeTimes->{{3.9071325847792215`*^9, 
  3.907132593935074*^9}},ExpressionUUID->"14b8e5a9-bb6d-4cb2-9f36-\
9d22670f7073"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"J", "[", "x_", "]"}], ":=", 
   FractionBox[
    SuperscriptBox["x", "3"], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["x", "2"], "+", "4"}], ")"}], 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["x", "2"], "+", "x", "+", "3"}], ")"}]}]]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Apart", "[", 
  RowBox[{"J", "[", "x", "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.907132611653047*^9, 3.907132687374789*^9}},
 CellLabel->"In[19]:=",ExpressionUUID->"00f50810-d52f-431f-a2c5-a307e0323ac8"],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"4", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "4"}], "+", "x"}], ")"}]}], 
   RowBox[{"5", " ", 
    RowBox[{"(", 
     RowBox[{"4", "+", 
      SuperscriptBox["x", "2"]}], ")"}]}]], "+", 
  FractionBox[
   RowBox[{"12", "+", "x"}], 
   RowBox[{"5", " ", 
    RowBox[{"(", 
     RowBox[{"3", "+", "x", "+", 
      SuperscriptBox["x", "2"]}], ")"}]}]]}]], "Output",
 CellChangeTimes->{{3.907132664244472*^9, 3.907132688484396*^9}},
 CellLabel->"Out[20]=",ExpressionUUID->"f0d50c70-6b8f-4600-a82c-162b1c0ea78c"]
}, Open  ]],

Cell[TextData[StyleBox["Solution of Exercise 05",
 FontColor->RGBColor[0.5, 0, 0.5],
 Background->RGBColor[0.87, 0.94, 1]]], "Text",
 CellChangeTimes->{{3.907132713661193*^9, 
  3.9071327291167593`*^9}},ExpressionUUID->"87b3e672-8416-4023-af2f-\
67fe60cea783"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "x_", "]"}], ":=", 
   RowBox[{
    SuperscriptBox["\[ExponentialE]", "x"], " ", 
    RowBox[{"Sin", "[", "x", "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"g", "[", "x_", "]"}], ":=", 
   SuperscriptBox["x", "2"]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"h", "[", "x_", "]"}], ":=", 
   RowBox[{"Piecewise", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         SuperscriptBox["x", "2"], "-", 
         RowBox[{"3", " ", "x"}], "+", "5"}], ",", 
        RowBox[{"x", "\[LessEqual]", "0"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Log", "[", 
         RowBox[{"x", "+", "1"}], "]"}], ",", 
        RowBox[{"0", "<", "x", "<", "3"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Sin", "[", 
         FractionBox[
          RowBox[{"3", " ", "\[Pi]", " ", "x"}], "2"], "]"}], ",", 
        RowBox[{"x", "\[GreaterEqual]", "3"}]}], "}"}]}], "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"h", "[", "0", "]"}], "\[IndentingNewLine]", 
 RowBox[{"h", "[", "\[Pi]", "]"}]}], "Input",
 CellChangeTimes->{{3.90713276351409*^9, 3.9071328052518835`*^9}, {
  3.9071328488819475`*^9, 3.90713285577278*^9}, {3.9071329095934305`*^9, 
  3.9071330466696606`*^9}, {3.907133114230131*^9, 3.9071331899483757`*^9}},
 CellLabel->"In[21]:=",ExpressionUUID->"015ef3d5-1170-4a14-b0ac-2529e9516ca7"],

Cell[BoxData["5"], "Output",
 CellChangeTimes->{3.907133191057852*^9},
 CellLabel->"Out[24]=",ExpressionUUID->"20d1d917-e264-4ab6-913b-36ee07e96f98"],

Cell[BoxData[
 RowBox[{"Sin", "[", 
  FractionBox[
   RowBox[{"3", " ", 
    SuperscriptBox["\[Pi]", "2"]}], "2"], "]"}]], "Output",
 CellChangeTimes->{3.907133191057852*^9},
 CellLabel->"Out[25]=",ExpressionUUID->"f37b40dd-a485-4d41-8e05-9aac40b70bc5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"k", "[", "x_", "]"}], ":=", 
  RowBox[{"f", "[", 
   RowBox[{"g", "[", "x", "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"k", "[", "x", "]"}], "\[IndentingNewLine]", 
 RowBox[{"k", "[", "0", "]"}]}], "Input",
 CellChangeTimes->{{3.9071339417344313`*^9, 3.907133982404646*^9}, {
  3.907136844852912*^9, 3.9071368471968265`*^9}},
 CellLabel->"In[91]:=",ExpressionUUID->"b8f4a403-88f5-446d-81ed-1e58798b039f"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["\[ExponentialE]", 
   SuperscriptBox["x", "2"]], " ", 
  RowBox[{"Sin", "[", 
   SuperscriptBox["x", "2"], "]"}]}]], "Output",
 CellChangeTimes->{3.9071339836076593`*^9, 3.907136848337509*^9},
 CellLabel->"Out[92]=",ExpressionUUID->"9a0f265e-c0b2-4868-ab67-fd15087c797b"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.9071339836076593`*^9, 3.907136848337509*^9},
 CellLabel->"Out[93]=",ExpressionUUID->"ac159b33-8844-496e-8081-9e1f6da855c4"]
}, Open  ]],

Cell[TextData[StyleBox["Solution of Exercise 06",
 FontColor->RGBColor[0.5, 0, 0.5],
 Background->RGBColor[0.87, 0.94, 1]]], "Text",
 CellChangeTimes->{{3.9071340219810915`*^9, 
  3.9071340319963264`*^9}},ExpressionUUID->"94914901-f702-4c2c-8ab1-\
62c387b357fc"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Sin", "[", "x", "]"}], ",", 
     RowBox[{"Cos", "[", "x", "]"}], ",", 
     RowBox[{"Tan", "[", "x", "]"}], ",", 
     RowBox[{"Csc", "[", "x", "]"}], ",", 
     RowBox[{"Sec", "[", "x", "]"}], ",", 
     RowBox[{"Cot", "[", "x", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{
      RowBox[{"-", "2"}], " ", "\[Pi]"}], ",", 
     RowBox[{"2", " ", "\[Pi]"}]}], "}"}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", 
    RowBox[{"Placed", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "\"\<Sin[x]\>\"", ",", "\"\<Cos[x]\>\"", ",", "\"\<Tan[x]\>\"", ",", 
        "\"\<Csc[x]\>\"", ",", "\"\<Sec[x]\>\"", ",", "\"\<Cot[x]\>\""}], 
       "}"}], ",", "Below"}], "]"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.90713894233409*^9, 3.907138996148577*^9}, {
  3.9071390375714493`*^9, 3.907139046134104*^9}, {3.907139305351945*^9, 
  3.9071393417731237`*^9}},
 CellLabel->
  "In[190]:=",ExpressionUUID->"ba52a38c-124a-4f02-bd1f-ae322c5ab4e7"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{{{}, {}, 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJw1mnk8lN/7/22VJTEzdkoUSbRrkZxboeyUUJFSlBKV0iLKki2VLXtEJEsh
WwrnyN4iyhayr2Nmjn1fvvf78fv8/pl5PB/3477Pdb2u13XOmTO3jI3TCVsO
NjY2RH78962rs+7ogow4uhSpXdurEqx+KO/hKPcGcdSpJyslHuoElGRGXolI
iKPVGtoD5SGPwLq5qtldVHFUr73MbhvyAtS/8/hwhUMcRchMMK2C44EF95R4
U48Ysio5y+P+LBNcrmobzXojhnTT912WdofAWys1zk5ODEU+sCztIn6Bmw3z
1FCaKFL5m5t97V4nCD9hdCZMQBR5P8/z4crqBEV1bxJe8okia+0J6DbYCVb/
1N8ZySmKBvfPENzbukBsRZzBqwkRpLd5R3xLZBeozj/il/KHZEk+hvnNbrAh
KmDpS6gIuuXioS4s3As0RTs1i1+IoCWL7WE523uB/cs9gSVPRVB75dUq9eO9
IDe4XaLUSwSlzRSel3TtBToB2w9UOosgpu9KFL2zF9x2/X2r7qQI6rrbr/E9
uQ98s5IY6qOJoIHRmxfoMgPAKF4NzAuIIP1cHkGPAwOgoetcuMBaEcTHVXaD
w2gA/Lv4RlOVSwTlNVuPl7sOgFF7pYQXk8JIlKYYr90wAERd1M+oNgoj57EE
RUWPQXDpuc2PF+HCaONWVNFTMwSGf3lvSg4RRsGXMzxT/g0BR0rKg8/PhVH5
vMcV07EhcDdsRKHfRxjNuj29aCc2DAKibz9RvSuMjK8FrbW3HQZZb33U+82F
Ub6omezf+WGwVJKWpSoujHy9XKeGqCPgR+uOtQtCwujPk0rF2c0jIHY69/IX
QWFE+fEIDe0bAWrb4QY1bmF0g+9a0fUzI+DBqz+Bh2eE0Ofjy1Vcr0fAtOvi
FaJRCO1893WHmRwDVEZ4lLPVC6EFy5RDt1QY4GXO6o2lP4SQ2sWw245aDLB3
RLBZo1wI+UX5ya2xZQDnM3JaR3OE0GxARWhBIgOMHjCU0Q4WQprz1MhVYkyA
TP88XP1MCEVezTCSkmeCFzcsWir9hNCD2e+bqXuZYPs7mxfHHgshGdmyoWgj
JrguenfpuJMQ2jNcskX6CRPQp+L/6hkIIb2Qg+79w0zwmSKnslZHCKk28y8P
TDGBv3Ja0A9NISQ4vZBVyc4CCra5xwzUhJBuS/6DjeIsYNdQnWe4TQgNVy7u
UNNmgd6PY8EmPELoYMmL3TzRLBC7et7zzCoh9OFdwCXiDQuYneG4fZFdCJ0Z
SHE9ncEC1ew0sztzNMSMTVLZVcICH4z3SkQN01CqdGL/nS4WuJykxpfYT0PX
Jtr0vwyxwMZZzcW0bhqKchs37RllgdD4Ux1Ff2moO656SyMbBvdYLoldNTQk
v15hRV8ag11HHoUOV9AQ18yT0Dh5DOgvfb3HS2loBo4+rVfGwOpwpB3XZxpy
9oOBbYcwOBJYqKiQRkO1m6MFHplhsNBZKrnrLQ0d0e3narPEIHfPt7WqiTTU
ZTmuIHYRgy1trSy9aBp6umGkT8UJg7WKix+dAmjo7pEtfstPMKhw40q650ND
vUruhhefYuBev/alhycNKXT+E04NwmDs3vq7oQ9oyLBVKrQ5GoOmKvVDBVdp
SDyDpwS+xyBI8pgSsiPzOXKEQ+kjBjpORutrbGjIO+SyzP18DIpEzq+0nqGh
VZKZnXklGCTYepQt69LQkyuXmJ9+YnCm0D93zTEyPgPrqG31GAjxhyQLHqUh
v5P17I8aMPDJTfSVPURD4UJbFqpaMSC40+9t209DpXX/nhT/w2DubI793j00
tDM/G4V2YeDAWa6nvY2GlC1TD/X0YyBn/kPNaAsNyWiEu5wZwqAjrUHZYhMN
gVe7zXPoGEQut2+4IE1DXzl2tjEYGJic6Be4KklD9IZzbGswBrxvmWzOojS0
XvdDOfsYBuVzU2OuNBqauK4k/28cg30Jqxue8dHQPjnfQpVpDFR/3azRWEND
yy832dbPYKC+1F4yxUFDNuPnlI7PkfXbdjw3dZmKmJ/8+KPnMdA+nZNqNU9F
+5Yk1lQtYKDruyGeMk1FKfafRX8tYmCY5x9WMUZFfBr71D8uYXCid9L/PpOK
6NZ+928sY2BOOf9IeZiK0OHGap4VDCzB99vdfVQ0yby2zZ3k89f3XX3ZRUVJ
Gytf/yT5UkyCtU47FWlu8lOYJfm3zJ5HD/9S0Y2Tq38tkOwwc1c3+w85Xm+q
YwfJN+R6ge0vKnpkvEU5muTbJw1VxL9TkQXr2PJOku95FCr+rKSiNdJPehLJ
eB5mbt7o8ZWKRro9WzEZ7+N/L4RVSqgo7LfAoCjJ3nwLvMOFVFS3RY5HkszP
76Ad26s8Kgr+OKAxR+oReLl+yjibiqLbE0M+knoFvVQb4XpPRYtvfy9qz2IQ
VpbS9ekdFdm+E/fMJ/WOHKM2OSRR0UE+7c3sUxjESrt/3/iaijyeGvfLT2Dw
2mAYNcRQUfxty6otZP2SXE3z/SKoqD2u4AcnWd93qTBdLZSKvji0znwm65/R
rJgw+pyKZKov6xmQ/shaFR6eFEBFutLK3z4PYlB4wcFjrScVjS7Yn9rSg0HJ
i2YX5EZFvo3GV+Q7MfhafMTh9n0qeqdnmMPWjsE3cXHz9htUNFWoznasEYPa
Y976QQ5UtD5ikieH9PvvO1hD8wqpR7322XmyH1rrK5QyrKnojKPYgEQl6deV
nbLnz1JRSf57hclSDHqUY0WFzKnIWJqv4l0xOV/43+J4aEhFBh6S0km5GMxr
SLfoHaYi7qoiZu9rDJadAn6uHKCiCIGXIZExGHDETX3N2UtFUaH3ixXCSX/P
f38vqURFM4fTStoCMJD8eM9rRIKKDpVmKTy7hcHGrt578SJU1Jn8LX+DAwab
1xk5nqRSUUXOZ/ZAWwyUrsqd/sJDRXey4xhz5hioyf7e/nSWgtjCN01tIuer
1zS+vScnKUi0bsdgwR4MOFdpHpQcpaCXISabtyqR+gzmHU0fpKDh4NiEN1IY
WLyPsvjeREGLVttfzS2wwO0DFzz58kjOVynelcsCLVujff9kUZBGomtyXBoL
HJL8ExiTQUG3A8xuDr9mAY5lzYhtSRSkFy3bKfaMBYLKFDL0QimobFuJbtdF
FsgwHG18epOCdhzjiJHkYwFBYmvbyesU9KuSucFhhQmcd9l0SdpT0M4HbZox
E0ygKtRATz9PQaYLt9NftjFB9d+Cle9GFNTRUWS5mMoEfZcebV27nYJS1usH
vyKYQMp1nVsgXRCdbOyqijzFAPZJ30RfDQgi9k72rGFtBsj/6fPxfY8gEtgl
qip9gAFMNq4M1rYKoqgvrtcPSDCATwU+QfkuiHImHw5t/jcCsEC9Qni6INqQ
3A4mrEbA16TQhngHQfQdFmn+0aMDgVojp6wrgmihokW66SAdWM7w8ZZeEkQm
vmJRcAsdzOh4gx5LQYTZZDO0OelACd9O22wgiNSdAzW3FA6DlwfNHqcqC6Jf
IR8FjmwcBnWxuyzs/gmgCKPUuxfaBwFbklP4vwYBJDOrVB1WMQh2pr9vMP0h
gOquq/O9/zAIggq3mhz9IoBunLteH/h4EBg3yehujBJAPW8swdpNg6BOgKrW
aiqA/t1+ISB7cQDUeY5LG/5Yh07uRPNX6/rArys5gypf+BH/COvgX9tu8HZr
/QHjYj60J0Ds1IeHDWBndN2NWzU8KMLunNbIUC4QU9Y0XZDhQXr2vw1ifXYC
mZ2HW0XS16AN9It6TfpVkP5Za9Xq7FWox1de62RWK0wPLvjm/G4Viv+6Iyqc
1QodrmwN6o5fheRcRjm+KLVBpjC/ZPHzVeiv/OX55HdtcPRGw87bDquQRtun
3MW4djgtf9GyZ8sqNHFX+73Tkw7IEfo4pySOC6nxue8uk+yGZfbj95TCuRDH
P+fnHw90Q2/iknr0My6UkfRe7vmpbriKdazmzkMuZLHRy4PnRTfk1hHoVDrD
hQxuNpvys/fAdSuveGOEuVDLI6Uhpe4eKHnty4W7gZzo+cXHWYygPhhdXa3N
782JUqPZnqel9UEJ+aZtb1w50ZVFx+cm5SR3j07VXuVEyebpPmdm+qCYuXyA
vA4nEjusT5yy7IdCR4M/Nq7iRLoiLwIaZQbgWsnLnHsfcSDhrtYnmtGDMPDe
7aEaFw60tVT/61jWIORr8vhp7ciBKFKiNd5Vg5A3ODbiqRUHujnPqD87OQi5
1/ze1nuIA9lp+Up91x+CqybUTENm2ZF66ZdTUbNDcPkbNXn0JjuyKTr/1PgQ
HZpEyueJXmVHOivPNNUN6DDJVrVC3YYd0csGPlCt6VCXzaY/8AQ7uuMUesLJ
kw7DVbLltu5hR8fcHy9MVdGh8mujtxcm2dAge5eJouEIfHz9Yr4fgw1NuA4e
dz03An+r3q3M7GNDnM476dmOI/BeY9zAUgMbWuY9yPz1fASW87Lko/PYkEXL
S+2fP0eg5Z3AlN8ubGhGYIs80mbAzCOvC+Yc2ZAXSy710ikG5BDMrdp4mQ1V
adQPMS8y4Lu0tkFHczZ0f8nU7sNjBpzsVFTgO8CG+jOHW/o/MaAIOZH5jq9A
ETkuuuxmJnQGa03tZ5ZhGq98qls/E2oehU8uDixD/7LeF0FjTChy7FaBVeMy
bM9uDPZYYsJPhi0SJ3KWYcG9a9lLQiy4aJXUreq0DI2qzrEsj7Cg90M1p7WD
S1D6vJZZRjgLnnqMX69uWoLrWj6zol+zoLx34m+2iiUo/+dIu10aC1Y/5d43
lbgEpfzMAsKLWZA/pmHx37kl6GlcvMq0hwXDCx0CMpsW4W3P2DB1OQwvF0sX
pVYsQhfFxoQlJQwPlP5mvsldhKzkA7ZRezFsrT5gEhmyCPsOqTDsjmK4oYVL
zMNwETJHC2mnrTHEbQU6rocXoWfvwPCiLYao86rrHaVFGOT9WcXNAUObwboO
e95FmJa1jkK7j2HKdGzyicoFOKKsQw0NwvDevFGzft4CXJt2o048HEPdZQ6e
Y0kLsES85ufDGAwZq+wdDnkuQOm8+uvNyRgW80jFqdxcgJzhNVy/0jB8zv/r
147zC1Cux6MsMRPDncIqezarL8DhYx6JHZ8wZBcfurRBeQHWpZt+0i7G8LdU
TLiY1AI8KcneHVCK4e3N7PNr5+ehVXuReUoNhp/2/ERTefNwqPiZ1c4W8nmi
z45T387DY4F/szTaMHw3r1+3PXweqtGlovd0YBhZ+qPzsss8PPyUb1NhL4aC
yYGXve3moUm/ZrH+AIZ+fvr4tdk8tOUI6UFDGN41+rH8d9885G9tKddlYsja
HegzLT8P+/5YuJ3HGNqJ6K+jic7DLNpcgdkYhh1zfOE71szDP+bfbilPYGj2
7/t6/Zk5GOi4mN43iWEtepp8ZXAOFu3vuPBwGkPtJD3lJ81z8OXbfyGTMxiW
+PLlJVTNQbky38MGcxjuu/ZdraRgDpan+533mcfwg+HT8taUOWgTnj4fv4Ch
/G49/ZmIOfilvpU3ehHDOGG+BprfHLxUKR10ewlDkblvZ3fem4OlM4n+O5ZJ
/dsDevWvzMFWrozpbySvRrrX7C3moEBqQpP2Cobub3gnnhyfg9lFPFvfkDzl
8+1B4oE5eE/Fn9lJssPVAA6oMAc75fs2LZH8/+b3ORju57Z5kWTLXbzUWW4y
X/OW/haSG4S+RQnNzUJ+05c3I0jWn/WX2TU8C72O3nHaR3J5m06qwd9ZqPWr
uTOPjEcN8uy6WjMLOUsOlQmTnJtY88mncBbqTKhLmJH5KPn4E29SZ2GXY1y/
C5lvkr1ONYyahZL6++TvkXpIGfAYt/vPwknE/u80qVfYzprm2fuzcMN6ST4p
Us+1Qv7Wwldn4XD1l+wSUm/vmeODu87MwnWaar81yHo4l1RPX1WdhUeEWn2G
xzGkJ/i5+yrOQu36oxvWkfW1eXJ8dZLELDRUlN9HI+t/Qr9a+N/8DJzffxSX
0DH8tsPv1Rx9BrrXfQ2zJf1zhHZcTqRtBj6r1ixj9GO4u7Vqr9GXGei4tL0i
tgvDtGLfomvpM/CDWcOrin8YyiYc0/SLmYFbj07z/GrFkHKl6mSp6wwsXXZ/
59VA+lPPt+3ftRm4u06ie3s9hmw7jl2cPzsDL+95Vfj5J4ajU5W39qiR420U
srhdieGVvz7zRkozsHqnilziVwy7irQ9HaRmoGHLy9dZJRjWeVUGJy9Ow2O1
X7Od8jHMpFRmiRZPQ1NDrY8uSWR+5yi6XenT0Mn6uOmReAyn0yx730VPQ+tj
VqeHo8h6aU4Iq96bhglb0pNrnmNY7bLR1XLPNJT8FL/8xwXDa2XXhORkyeeJ
1Du53sBwnWDBe6bgNKxTPvxg2R5D01SDLnfWFPxBW7wXYUnG1/ZAKyGV5J7K
eWECQy+Fyg77yCnoNGBBiTlA+v0O5d5u3yn4610z++JO0o/r3qWVXZqCmSqU
MBMZDGeJRoEB6Sm4w6jOXZ+N1O/tjlbF8Em48fwiW0ABC+aOP3Ce8J6E5V4O
e+vfs6AFqFxb5DwJixkPeibfsGBciyUwMJmElCDt9voXLKjIF5DktHYSxjqe
C+q1ZcEjN/occz0n4MFb5bU3+Fiwv2gHt9vNCXjxU6T1kxUm9ONxTdA6PwHr
Hf7uvTvBhLWJlIamwxOwVP9V33grE55pVD84NzsOE9i7hvXekeuPahSnutM4
rEr+GBqsxoRhYZLtZufG4fvHGxXKtjNhLutVrpPBOPw89EOxYSMTTicm2iZs
G4dCTgcLw7iY8B5fRhXX0BhMe5OXH/yNAd3bS55+Pz8GC20nAv2NGdDPvY92
+sQoVFL+nUfXHIHvWuwYNzVGocYc+5DinhFYs3u4PGDnKBz7MVqiLzMCeQeZ
d4rWjcI3pmNpKkt0KBHPygTkPJ/zT+5jXA4dymkIHfjpy4JMRa3XnRJ0qPrE
+vjQVQYs0tj9K/fPEKyZdUs+p8eAJvxd/V/hELRwiOVo3MaAlUFB45/Sh+Cd
k3+LShkj8Px6xiErryGYJXNyVwy5D7DcpJHnt2sIbinRljC8RSf7zqLsof8g
FJpRZuTcH4J0LtMxe4UBiK8svnjk1wdTQxf2bd7SCxs+7BI0tOuDW11U2nL5
euHnSbsgKc0+ODV5E+0Y7YHej+uDCld6Yb7Zl+99n3qgROTb4AmXXuioe/Ws
kU4P1KwyDr1s2wPTYtZbHbHrhpFyyeFGR7pghJrWPp5NndCrPEYVzDZD5U+q
Jt/tm2HTF7XyNE4E/zTf/Tk1BuFJn+OcJREKRXczhOY4Spnq1kraS6bBJSBu
79ha5F4Cuo9bnHKMawHG7I++ynG1APX+hxd+/msBa4zO3G5WbwHRHgnXldb/
BcTnwvM377eAE5/pT+gxf0H4Gl1OK1YL+LrNLd8uqhXUSFYq8Tf/BYnrEkWt
w9rB5Q4B3fg3bWA3fYqxRasLZNWulLArdILJTJApdqgPfLUfyaQP9YAf2w5R
b1j1gUK3nLlQrl7wJmXfnapHfeCu+RXLLRt7wYl45UMu5X3AHL9j8pn3guzn
klV/DPoBp/bzH9VlvcDx+kzH8/MD4L72uYPTkX1gUDFz3SqfIXB8Q5+q3q4B
UPI27abluyEQr6UgvqgzAMJl3zbkfBsCHLIjeqE2A0Bb4lW0jcAwOKn79fDt
0AGQxPNUHkUOg7PmFI2liQFwfshO3TWdDnb5746lZQ2C1uQNjmN1DGApiD+E
04ZB/uqME+/GGUCjacuFBwrDIPTywf3WQkyQXmssf+TwMNDfasr205wJ6g4a
PnOzGwYlGf4h7zqYYFa90iihYBgk5EzmWzNYoLM7QMrflA5yz/evDHiNgoHo
YnHNeyNAlqJ062vYKEjx5u5+5D8Cgkpv9b1KHgViw2qir6JHwHVZthrTqlGg
p+Lr7Vo0AuT7JEK+8o6B5/ES5pXLIyDysvHmuOAxoLe3cNTLjQFcHb8cPxU/
DqQPHyyRv8gER8DUpXWZ48B9oNUzwIkJeAV3eFSVjIPuUL/WelcmiMxOLDzY
MQ4KgvNofGFMkD/pr7hh/QSYtJe8Il/GBOMPLNYORk+AEV7qt2lJFvisF6Lw
Om0CeDesvv5cngU8pH5onv48AZ4/0Bvn3kX+Pi4Bbt//ToA3SXaub7VYYDv7
Flam2CRgqDxy9rzOAld9p37dC58EG/MmcvMKWGC3xQ7GrreTwLbp7qILYoE5
BXvukbxJYGCaHixRwwJ+39oJq8ZJcNqiw4u7lQXe8pdnawhNgTUvcJL7PAs4
diz9nN80BYbEElxMODBQydxPz9kzBQy5r5qt5sWg3DhdVv7kFBC2iJYVEcdk
3iGhvCFToHpu7+afKhi8u/QjsyxhCtRkRsRmqmFwQ2X1j4fZU6DINpfufBSD
5ab7XLhuCuT6CbMSjDGQkrhw54/ANEj+kNEdYo9BHz06OFB6Gvi91TH3csIg
/UvDe60d0+CN7dObp+5goGp1fKDAcBo0ZMa5xT3GwOL1DvPYZ9NgKqPVquwl
BpNrOi6kxk2DmvT2BsUYDIKcAh3yM6eBwGyPneNrDGrUhz3q6qdBffyhcv80
DOzeRgT+65kG+S9o3hcyMeBYpx1Bn5gGAxwLx4RzyfH+JWZwicyAkpnySsFi
DJo0TQooW2aAwYLzXYtSDG5lrJRuODAD/IO/iz6sION1tWw+cGYGBP/9JWT+
87/8RDiux82ATsckn7NtGHzyKF/7IHMGRPOMHfTswMB0+JaoL5oBxe5VX7y7
MXj26ZdSQs8MMOl9vn79IAaKG933f5iYAapicjMfhzGo9FU68oVrFmQVvgjZ
zCD1NPM3b5SfBfDeGGfMKAbRJfttevbPAu5NzQ3x/52Pyg844OOzgO20o9Xj
SQx+Pwu7u3h6FghZv4xRm8bAceqIJ8+1WfAu6+SzhhkMeK3GAkUezgJzjtad
/52Xvi2Pj9j0jLxf09M7Yh6DI0qGiTvjZkFy4i+frwsYdIYuZhzOnAVSAY77
ahYxeLiQVqCLZkHw270h6UsYiF08/dW8fhY092+Msl/GIPfbmp+XembB83tn
dTlXMDDend98c2IWiP1RSb5HMiPqUo871xyw+qCYWkOyHzuN+VR4Dthyd5ya
Jvl/+1NwUjbRntyfAlTnxPF2/xz4Etjxrue/89cDG/hzjs+BOwJHjBJJno3/
IYpOz4Hs0qC4wySHrXGV/Xl1DvguqUXkkvHsctqq3Oo6B7ov9BxcQ3JtU/P+
wcA58LNey1eFjP+qus+RyVdzINr51GNA5rf67V4D9sw58D1TQV6OzD+Rv9d8
HZoDrTvYHgyQeqnfCbaRrJ8DP9q13LxmMWhtB9cVeuZA+L/AXYuk3i6arLsq
E3PA6GVwpPEUBrSMWM8jXPOASDiY+3gCgyya3jMj4XmQ0xTqEziGgb7rXISl
/DxIJlootzEG3rpm712OzwP+tp+WTXQMNn7k+uR1eh4YiBTLmAxhUCSe8zXo
6jxIe0lNS+nHYGpIoCUtcB6cUdtFGerEIMS4pKfg1TxwSPGYrm/HYPsnB2b5
h3mQ1aSdEfGX7AffGo7OunlwehdHZP5vUk+BawU1XfPA52iUjNEvDEwi1jrk
js4Dq5PmO6u/Y6CWYtToL7gAhjqsRs6WY0CtakzZa7wAFP/MEbxk/3Ab3bWU
Pr8ATtWdtEwh+2upSYzCe2MB6HspSMmlYzA0cPZB54sFQFVSjfmagEHx6h79
gF8LgKbzQtLnGQYfn3ux3+lcABNmLh0KfuT8IiKXb40XgPgXpkOGJ5mP/BVp
FYFFAPoucpjdxeCKNmus03ARtBM8mXusMRDymQ9XqV0EEdlrbm7YSvp7Xaze
xo5FILHw80udDAYrLw+z8bEWAWPZYf8lCQzoyY/tu/iXgGBffsd2PtJfFavV
nhosgcz1H76eHGEBh1W07q4fS6BVzZTZk8wCNs9yX35vXwIrzz7OpceygLmw
mW4+Ywl8aMz4bBbKAkfkonKerl0GDSJPHpk8ZgExLWmfffrL4EFn8YZ/FixQ
5r1tW+D3ZcC+0HrpFBcLqK68fC3ftgxS6729XOaY4ON9NpFS+jKo67i70ZXF
BImOjWzTPCtga7DkyvYWJvC0eNRkfXwFuPy98eBIGrk+Kf3x2FOxAgyMzSRk
dZigy/6ww3VrNsKxpnFJ5BYDSKWMv1W9zEbUg2yFkosMYNGX0r3GiY0YNck6
qXuKAerOUc0T3dmIyufK3ZQDDIBODmo0v2Ij5B7pXrBeHAHxh4NFNdrZiOMf
Yz3ZHo+Ac5T+r0Kn2QmfR8Tvcmc64IpumHx6gZ0QTPj5OeU8HaTJlstzXmUn
RC7Xi183oIOZPW8Cxh6wE/f5HgXHy9NBkNmFE7Wx7ESQp/O35OZhUBbzr9u3
i7yu975fd+8wUJBvYlu4zEHY8rXYRbcMggnVKvVuF05ieY2YVfXvPlB5Mkur
yp2TYCiea0Of+0CkQ5T+ex9OYjg9aXNyYh9Qj7t25n44J3F31TGXXbf6QAC7
oAsln5OA33Myzgr2Adlqi/caU5xE1fG2s3w6vcDkFF0y0ZmL2B5uoemV0Q0y
nfjnbG6sIv4NbNZs9GwHXI8GPGzC1hCulQVn0rKr//95KDHBwam7/8RO6BG1
SUc0jIcIHVjm2+eVAfW4Hm0t9+cj4tu8pW0mf8MPOtdbWKn8xMFgZl/mtm44
GiJr0ZHNT3yM5/O7od0Nd7c3N/8s5CcCO3K3bbzQDfMdjzRn1PATj2uz+fTD
uyEMFW26OsxPvPc4dvLPSjes+1f6Z0BhHXE/iOeC/68eOHFT5FdHyjqC4ZYm
03O+D+778t2wNnMdIRerpWtyvw/e4/KoLS5YRwQOZxpkBPfBxfCRn7FV64gb
aopP5L72Qa4i9OPM4DpCSD1eSla2H4qsvvatSV6A0Jl0st7R0Q8PRMOK2mQB
IumbJ++81iDs256pduWDAFEmyqHjZzUIg8victgLBIhC6SnfhduDkM5wS9hb
LUDUbJ6IDnozCGOBmls0XYAQ5Dotf2tlED6+ZSmRIypI5Bb7lS1kD8F+0b/1
7paCxOECY9277HSo1mP87Pt5QcJAe9nHWZgOQzKqj4vZChLQn+21yVY6VNf4
BLOvCxLagSf4cozpMPJqxPs+d0Fipo3dgDuODnWLT/nrJggSrOhD0sO7R+AH
m9+EyIAgkWWWeHtUkwGT7R8yDOmChDw1vinHlAFjb8hH+rIECev+0TTzSwwY
4P4Az04LEg/X8toSXgxoGy0b17aGQhicXk2EQQaU+n1r4fVWCsFXe4Z//24m
pP2VSvmrTCHux00UzAEm5O2qPEHdTSGCS1pqYwyYcJYpkealSiFuLmIu9ytM
+IenzMJOj0IMrciMf4plwgANWv626xSiInL/scVlJvQ4Xnzh0k0KcXb/w6EP
vCx4z+gy/6s7FGLWREeIEGFBO6svl9a5U4irpyRalpRYUOP+RdrYcwpRKErN
7rdgwdmsnBv5WRSi4cP5LZZpLIgLrKRwLoXgTDtaOJbDggMla6q3FFKI1Nht
4rbFLNjw46x0VCmFiDoqIt7/iwUzhzhrXX9TCDt7zsXjE+R4G023aUxSCPm0
s90RezB0xg80ds1SiFXvuai+qhg+Lkkwl1mkEF9l8pbNNTCMscRe7FxUolDv
31icIYZ1kQHtpTQq4XL1+TN0GcN/l7PHs0WphHL08EjRdQzp+1q4EyWpxNTH
tIZoZwy5GuVUPDdRCXpt8fYFdwwPUkqfHdlDJfbfP3jdIAxD7a7BN7v3UwmD
A2t8TkVhaJq57rPsISrx8f78snocho4GlgMcR6nEqVuXlvNSMHSV8loc16YS
RN8H16MZGPqNpFJ7dalEvlml9scsDBP9Z9TLTlCJd7918/YUYphpseFUjhk5
fth94//OL4u2aF17c4ZKaNTPKqiWYthcERLhZUMlPizmeFZUY7iWY/vo0VtU
IpR3z52rTRiK15uu3utCJVawYrjPXwzlX7tKbX5AJeRFqH+92jHUUK85zuVJ
JRquqxTK9GBoyD96bvIJlXgqymbytQ9Dy3aRO33+VCJjpmnl6CCGLg8uJZQH
U4lRKBBFH8HQS+dpQe5LKtFfid0FWBgGiX38mRRFJYB2yy3hUQxfDbb0hr2i
EteP/rm1OIZhWv7KnHcClXAs43Yrn8Cw4Im84J1kKhH2o+TF9SkMy00N5G1T
qYTKldOpM9MY/t50W+3UeyqxL+lMtc0shp3j0Se0sqmEV5jNyIc5DBmlpVdU
8qiElekOSvs8hvNBQ+5yhVQics2rA/QFDNecF3gpXEwlctuSz/9dxFBox770
VaVUopnbxi91CUOZZcvSqXLy+u81mWeWMdz+06u5v5pK6PmP/GGQfCg2jdn4
g0o89380bb2C4fFr9ZyVdVSCddhUJJfkU6qz4vkNVKJ8g9ieYZL/9386Yeru
fvm/88wbLVra4e1UwvN5sQ25f4RuKQ6WPl1UovNUyJ1akgNcQm+59FGJ9M9q
T3xJjtT67Gc3RCW2uLGHyJCcLNQdZ8agEknXjsbGkvF87F2Tpz1KJTbaeCXN
kvHfbvle+XSSSlh86avbRPL+ny9a6mapxO5rigGKZL7zpSfpwktUwsj1Rv1a
Uo+ifNHFM+w04sLDxZRvpH7u6W38r1fRiDzvwwKXSH2J1/HS/Tw0InT7D+6/
pP4cLy/uUlxHI66EXw3fStanwn/LUScqjfhuwfX5FFk/P/cR01wRGqET9OGO
FVlfXedMuzkJGsH9J+U7gTGstdwf4LWJRugqmxhH00l/mCzEVG+hEVJlBt6C
Qxie1Ibv+ZVoRNmZ3VY2/Ri27DhWH7GXRmiaCPFGdWIYvZmvt/0AjVgOS+1z
I/1qJf5rUuYwjfgZa3ZTnfRzD4e5WIYWjbAeZGWe+I1h0oyE4pgOjbi4VGT/
thZDO0bHoX2G5P23r/Q3fsNwpNHOGpnRiL7Q3j3VXzH88E3x5qqzZLzXuwSe
lpD1gixPXWsawcEujLZ+xnDyncvbhss04j2hlT1P9ueyqw9z6B6NGMeJDiOx
GKIbuivKbjRiEq5/9CyC7AfbdRRnDxohW3U4hC8EQ26j8L1L/jTiVHzWnxgf
DCmyb10pMTTij5qyG78jhg0iV5+ZxdMIsz3uBkHkfBTOtz0+5g2NsPsiewqf
x1BiKu+rXAaNcM6sUDhyEsPN1RU8qsU0onZqsuTQPgwHivwlH5XSiPBIbfmE
7RimZhsol1fQiHW3vq/qlSf9HNNobFhLI3Isu40XRUh/OPZH2HTSiBN1+8R8
plhQV2iV/FN2IULY5tbMcjoLbqrXSvRdJUQ4rH6v0JLIgovPfDZ48wgRPKiO
ERLFgu/XcIu6UYSI548rTrz3YUHBBV5uJxkhwuVzdJyLNQs2dgvST2gIEaqd
yj0X+VjwQ5yJnZGWEDG98KLhDBsL+pwN6dEjlw4Hu0MLe6aY8EAjrY2sNfGo
voXyrIMJo6tFfuy7IETIcjxLaMtkwvOZUh8kPIQIquS28El9JjzoYKUo+oQc
T8ZdXYhgQurWuLc0fyHCO0OgVWQPE5YlSsevDSaXJu/kDRViTCgfLhu0/FqI
SHk9ZFDVw4AjDxVu9SAhYvfU/GbHmwzoort3XxqbMLGlb8Aj7f4IxEdTEkO4
hImYzMEn4fYj8MphCQFXbmHi2GlkfeX0CDy7k21IT1CYUI1t+V18YAQSIj+i
mNLCRBTYeX3XNB3y9Vxc2gmECfcTNXd1HOjw9f3Q8gI3YcJ35xXej1rDUNx5
9a7XHsKE3u2GF/d2D8MQh/uv/J4IE5oCdtxbpIfhE2trl9PPhInRpnoptdkh
eFVrm8JCrDARq5PXfjx1CO6llD1VLxImhA9LnlhaPQRr3o2fqJgXJuQtPtqf
zR6As1UcXzhWhImT94zdLkUNQPlB6iaCU4RQ2tSlZOoxAD3l9kx85hMhjDOE
fwwaD0C1ROfQLCkRwqq6YXUvqx9mxUz+iVEXIRTN16ZqyPfDyOfTprc8RQhT
lei1l7164ZXb82bSvKKETkby+rKFThijtXf+5BoxwqbsYwq4WQ/T3ptHlPCJ
EbsN3/EeUK6Hn4Rd924VFCMML0i6SQ7Xwab+UsdlMTGiLim3Pel8HRT0Mep9
pyhGMNscjr58VQt9Kq/+WDIQI8oNRevMjL7BW8cS4lLCxIjRC1KFG2JLoUdm
+SFqlBjRzJH3UEywFAaJDrU8fCVGHGXTd17yQvD94HbaibdixHdpdx3R5hI4
5Fvku1ggRqygrqgI58/wXHXzDZM2MWKVBd+enrfZ8PrOBf6iTjGiZe21qPbA
LPgwckO6fJ8YcTbCP/lJ/wcYdcW2f4EhRgT+U1bLepgGG7gnTr9dFiP8a+yc
I1ITYO8NkRlBTnFi+4Nku63DcXC85WCY6xpxYuVc7f5l92gokPq41lhQnAgj
Dp/STwuGGyhJ174IiRMjFkPfXj8KgEr3q7jlxcUJ1cyEV35pHvBQNz05aL04
oXhMoTYv7Sb83/u+xP/e9y35P+DKPT8=
          "]]}, Annotation[#, "Charting`Private`Tag$24023#1"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.880722, 0.611041, 0.142051], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJxFunk41N///283Y0+YoQ1JtmR7tUidU9pE9kqSSoU2LaQSoYVKC5ESWpAi
CtlCziFb2ZeQLfsyZuaILFm/z/d1fX7Xb/6YuW7XeV7Xedzvj8d5zPM8n0fJ
6bz1ST4eHp546ut/v3tMJIxnlORx8/wC9SFgU4b3CG25PM75oX52hGItpeFo
OQV53EErSS2geNnDg6YqcvJ4wzq+WneKJf6VTulKy2MfZY0fQhQvnFgXDyTk
cTt5F+01T8BITZzNXhF5HCEtYFY9R0Cn0WLeQ0Ly2M+y76cAxbXv/T+68slj
UyxltGSWgEKZkUOe80zcWXbKV3qGgDQ/R/rtaSa+oDj6mvWPgFh2RWbIBBP7
lX9/EztFQJjdphOvRpm4dsnaW5snCbhTlLAomcvEqp9u7MweJ8BTh4lyWEz8
95w+Z/FfAuxo4/KN3Ux8x9ti+NwIASYex0t7Oph4meD2nWe5BBh21nr8aWHi
E6uzg0zZBCzN/lgtVs/ENiEBHUkDBIirLPNRqKbmW3l0RLuPgPnHQRpq5Uxs
0pU1HtJN6XNxvWP8jYlPzmr1TbdR+uob9awQEzdcyG3gaaH0gR2djrnU/BsS
CwcaCYhjKG/y+szEgcJNb+1qCHApbR1JiWXit/57+koKqHj197zMf8XE90T7
lH9+JWD3q2zTikgmrjE08yr6QoDGlafxA6FMvKjkUsDOVAK4qhYOy28zsS7X
+n7zSwJ+P/lK1/Jj4m22aaIjEQTUzGtmbfRmYtrL6u+DYZS/jTTpfR5M7K09
IXnjPuVXQGFp0AkmLj3iaLvBg4pnVOdyxFEmXmO409TejYrH8ZXyOwcmnnpz
MOGwK+XXOm+fQlsmrsi4kEZzIGCu7z/9f9up+eI6Y0a2EnB7R8JL51VM7C68
Mk2cRgAO8rJcoUSNP7p66fUCF8zWmvI1L2Vi+drAXMlJLnB35J40kWHixDFt
ydt9XOB0RX+NFj+lv3e6uQhzAUj4mvunk4G59fhwygUu8CKPziW2MfDfifkI
KWcuyPzv6IrjzQzcp/RewvwQF2gX8t1qqGbg9MNv6o7u4IKlrbv2ZOUzcIxO
/OoBBhdMi9U1e0cxsEXw7sibmRywzib2/n/PGZj/Bq9XXgIHXIrwMOKGMrBd
WrRrQxQHDK1ivD4SxMCPY7NSXt7kgOYtDi7bvBg4O8Qt9KUZB2Re6B8XtmPg
8QtSBw+2sMHFhmnp0MUMfFfhn5NO+zAIt7awD5Nk4BvOn63OVA6DvJrYN09F
GXibYtnt+1+HgVClmc5zfga2X3Rl8nL0MIgqfrk3ekwOvwrWquVzGAZlmdvu
vquXw0FBmQV8DSywPOL+XG6oHLZo1L0ukzIEtjN+b//6WA4/TmlOm4oaAqee
6j/ID5LDd237D3+7NwTSQ9oUCm7JYcOIMXux40PA5L72hhJ3OTy9KVjyvMwQ
8Lhed6nGRg7zXZ1KvHtpEPw4rDDYu1gO79oSNxm5dABYvDIC05JyuCD2pVSf
0ABo6HQMlxSTw3LsX7LMP/2g/XjsdkMBOSxp/22DUXE/GDml9ebxX1mM48q1
fc/2A4bnFnvDn7JYxHRpKF9WHzjxyKnicbgsBvsPrYgw6gVz+YkphvKyOHfw
7onFkl2gJ+1PiBVdBts1ek+aZdaBdW+EGh6KLsYqm9QrlwolgDolfV/vX9KY
59kLzp8ZfWCkXKcdNLUI128XCj7VW46WXpfwecCSwmUBWqUgvx2divvBiO6X
wtNVq83/jLejzMqAtORuKWx+lPPzzpoOZKW4MFDVIoWvHSmTOhDVgQKKifWi
cilssuaxXdjV34hI1qqFf5DCVfqGrW+fdqLCuNCGV2elcOBUt4iiUTeSrLI4
n+Iqhc8+vdIxvq8bOUyKihSckMI7ZeTGvpzvRpMmt0G3gxQuOF14XSy2G2kR
j0SVvVKYZHbaNtN60NON+/0S1lDXJ59KGa/pQTVRunbO7ZI4ryRwySvrPsQT
dz68vUES+xcEGwqf7UM6H5IbbCsk8axyztT+O30o+Iu6lXGuJLYZs/qdlNWH
LBuV9ihGSOL41yP/rV3Sj2okpY1abCXxVNmo6+V2im+OrjCvkMBI933XbvNB
xHNfx7H4mwQ+oqtsfP7EINIJcYsyypXAa7WOd1/zGkTBr1hMzUQJ/PmQgOem
+EFkmde9iHZXAn+Q3rrp3Owgqhmv4y80lsBSoYyxy7FDqNr188B/ueKYK83r
e7WVhep+T1pu+SyOravoX/LZLNS43yhn5wdxzGvTuIU1x0Jt24sfHIgUx/42
WUMjK4YRS7FJ99p1ccw/btOf4zSMBH5NX8/bJI7rRWoV9XuGEc0S9BXpi2NP
veX7S0aHkWjpLfNKTXG85tre+s18bCSdIabUsUQc/21Y5PpLkY1WhCwvWZgR
w+/pV20LHNjI0GSblHGeGN79WdFxVzUbbcEB10zTxXBM26VlzHY22rq+vNsm
SQwLqm01qmCx0e5VthknosTwhOoipw5BDtrH62wf4C2G2e/Hmt8bctCFL/fi
vhuJYe9wj1XlLznIQ6dKvM5ADD9ZppVXnshBV95JX2nREsNLug/1f8zkoBtP
I02Gl4phfX9mydIqDgq6mMwVmxPFWpNLLjyd4aB49doNll9FcWjNjawRSy5y
XZ1a4Jchiue2iV3utucijVUhe1KTRTGMTjbOOsFFHxWtHKRfiuIUUs6lX+Wi
LEatb8MNUTzyvNvbOpqLygRrS+ygKK4f72t07eai+/ypFvc2iOKamkafQBYX
mfGGNH/REcXnOkaS7o5yUe2sJUtBSRRbt66/o8dHUMtYjXg7ryj2v+RgsVKR
oOGuGttj30RwqO60jvt+gj7+TmkPyRXBbz69EshyIOhCe7Bz4WcRLDD+bKzN
iaC/zZZXV8aJYOStJVbtRtBsdU1k320RnM74ed/0DkH5lSkqcj4iuEduY+Sr
+wT5lQcn77wsggNz1kT+fEyQYKkleneSuj5QeP9ABEES+TXdp3aKYFUtL/03
SQTV5KacebFFBN8oebZJIJWgJ1+C//5YJ4J585IlTDIIksuwFNJaLYKfTj4X
vPqVoOY0nccOK0QwPvlGyamAoBcpUsyHDBGcHUD7t6aYoBVJNepcYRH881J4
+ekKgroTUtKW84jg5fpNqLWaoLh3wZsspuhY7FniMe16gtRiLfemDNKxA/36
m6u/CGK91mns7KRjReNrGy+0EZT0UurIol90vOAt5m7ymyCdFzUXLn2n4/po
Pfy6l6C7Zp58/zAda3/Mj7MZIKhzfkmYbzYdCy7Jz+seImhDasEqoRQ6bqm2
EjRnE/T4uEvWg3d0zO0vvP6US1C/rLjJ4ld0bJN0c9mXEYK2lKW1RITTceFr
jcHsUYK4WvNz8XfomE/XiZhNELTzd+zjNT50PM/mrO6aJOhliIlSugcdty+1
97f6R9CEMUkzPEvHT87Rp6OnCdo7Eba94DgdG1cFBJfMUPrfGzbuOkTHPRfv
GJfPUvm073Spsqbj1JrORUlzBNmKB/yz3UPHVxOipl3nKf1IM6h1Kx2n8fXN
8i4QJHCpdqnTRjo+rynBvEKxg8qVj4M6dMzMCzMtozi9cSk8r0bH/M+WPRun
mLlmu+2MEh1Xl6p+naXYaZPrcW8G5Z9a6OVeinM44uN8knScywylxVMs/fpz
wD0hOv5ZlPvZmOLT1geZUvM0/OjW9StfqXgKBRYSwsdpeO6vq+1iihWy4jYt
49CwEZ+x6Q4q/kun9lTG9tJwWNuIgw2l7/uSEUeNNhq+POt/fzOlX7Hq6UhK
PQ2bKGr/5Kf8ueq36eb6chqWNd23JX6Kqke9rsX5hTTMKfQtVaH8VesLeLs9
h4Y3Szpe8h2n6vuZ1vryVBrumyiDmWNUPZrUlVkl0LDKjQKD73+o+pi9Yt/8
mobtei9YZhOCAj8uYzs+p+J5oxZ+i0NQx9FvPn2PaVjwhBNNc5igdYtPSZ4N
pGENcZzwcZCqhyvpetc8aRjcXX9nTw9VDxr2RQvnaNiGz7HYqZOg8LaFfQEn
aTg8qQAeaCdox1bTa6G2NFxwbfFkQyOVX5FulKxHw/Zrz5SvLKPymxdoZaBB
w9172XuXF1H5Pb+mJ0eJhuvinDTHEUH8DVeFyqRo2CCDX2RDFpWfaMm93Vxh
3MF62y0dR+XHIqPDtV8YL9LdVTbyksoP36ELpF0YN5k81ftAredC5/jQ2Qph
fPo/enLGI4KUdDa3yH0QxuEncgeVrhBkZj0Urh0rjNtTxqMtL1J+ezy12Rkp
jPkzjkcePUNQVTan4nKQMK75oRWgcoQgr60vUcMZYfzQb0ux0Q6C3h7f480+
Lozvv5E86bmFys+diQ0CDsL4cULhjZD1BK3+YZ6mbyaM/Za3G55VJ6jBeiHu
iZYw3n2xMiJdlKAFjw/HElWEccvHkvJpfoI0nh1YXrhUGKPDRSnKs1zk1/rp
2R8xKl5OSBqDzUVrThy9b8kRwl425u7PfnBRwOWC8xIfhfA5v+QN4/5clPrs
nJZqvBDOjOd1t6f6ddsX+aHNL4WwTXHh4Bs3LtKbv+h07pEQ5qa/TWqi+v3v
AOV9FW5COOzQTPxvXS7a8PyW4f21QnjSnLH3dAsHsXJ2CAqlCuIoUfWrWbIc
9CEk64f7e0E85qWWYS/MQWdd1YO7XgnitVbZr9qm2IgjK77k6yNB/OWxIfZu
ZaORCw06HmcFcbTPFF3nFRtNqB536F4tiMsO0+QuUf+ffKF+n/NfCuCOTF6X
fpFh9O3U6FWtcAEcq0M/fXOKhW7DE1tePBTAeiknriz0sZAgd9f3y94U3zQU
isYsRDOR/K1lL4CfaUpZunqwkMRCtEikrADe+6mq17pxCC05k3vsygN+vG/3
lTj524PoRVnZTvHb/NhSJcr5tNsgUlBt1Iy9zo8DvnorvbajuGtkvOo0P04g
M105WoOIeUD1vqoJP64JMdqQUj+AZIxD0n4K8uMTnqfYn5YOILElLvwGvnzY
PmUdKzOyD83/kH47cpEXC14LPdds042snqtmME7z4n+78UkZw24Ud9KweIsT
L+6WXt2wRbEb7eFx6ntgzYs9pZWvHGF3ofD/Ulep6/PigbyRkLpbXWjNa4v4
Y395sO7GSt3wT53I4fKDd3WePFi4eNWyRxPtyB2I2Z6anEeb+TnOm+saUbZ+
JR7PmEYfPmy7tOa/L//X3/6hTeRkUNxpRfRpUUkK4+sEWjcld71R5htwN4zg
33J+FLUGZ48cEmgBYWFL2vY7jqKNgf92L97WAtK50enn946iVRWiNsm+LWAi
JubkG81RdOdR0am70y3gqmhSqcDgHxS3Mk2lntsKbrTlB5Uf/YO2aQF739p2
cPdG7+KD1iPoUZWx0af8TmB458juwdNs9H7mzasgnV7wfcrnraMpGz1TvZD8
b3cvsDsbxfdTk430/0Jh22O94LLNr7wC9jB69/UIrAzpBSlKNrqRbsPo3Gee
9dV/esHq/J0K5pdYyFUqfGg2uQ/ITK5hf742iBpVY1cekxsAsafNTDTsB5H+
UWVHLa0BoNdxOv614SBSfx8v17V1AFgWvzv6cGYAXVf2TRY6NwCCQpV+OvsM
oAGNAHVYOAD4dGTz5f37UURGhoO96yAgrrOPfe/2oisrbFxfxwyBho+6UubO
vWho7vsULWsI5Px1Dl66vRcp63Vo2ZYPgdt+tcFfFnqQFtNq5ZOxIaDwPD5k
zLMHJSr0lCVsY4HtpZahLie7kT0KcDJoZQF18YDF64y7kYJl2Is8DgtI2OSG
Cih1I2WHG4tVeYbBr45VYW/aupC67F/3KJVh4DYxHdZq04ViM90/yJwdBs9X
vQ232NaJbn77a6I0Pgx8zrTILVfsRD4b8/nSBdmg2GmF9q+Z36hSITdPVY4N
7L3+ai92/4121tsOfVjHBncSXuoEHutANMX1ivqebNAiPKZ/fksb8nvtcWAV
YYNbRZGGYKoJ7bDwWLuyjAMGqzaGnsxuQkFmVpsL6znA/FfTcNDVJsTXoRRp
/JsDFLiLo5unGtHxSTaTM84BKYwHCxf//URKu2t7filxQftp76K46XrE4s/a
u8iDC7ZdVlhWnlOPFpW+31zjwwXvfbMv//GqR68yTRsuBHKBR9hf1S0zdShN
/nz1/hdcIJJ/9l7TTC0qf2U1lZ7PBW7KOVEy09VoItLNKo2XgI3rJ/Ye86pG
H47MXQikEyBgpreQPF2FTJ3WJG1eREDk5cRju2YqkRindf9eRQLKyl6oes2W
I9WCJR+njAgIbW9sKvEuR17yAS0/jQlwHJW+t3juB3ore28wdA8B40uChpPm
vqPdoq8fpR0gQPn89ZTf86XI4UeF+bULBHBuZR3T8i1Fn6911Dl4EpD9fEz6
2kIJKrbeIqTkTYBF4ZnL0jwl6N9N6ROmgQR4yzoY7uAtQlk/hI6vjiJgl8bz
4RD/b8j9Q0Kp5BsCpEFDVAfvN7S4UyG1+S0BCa5mC1f4CtGtHq8F0U8ENOYa
FSXyY/T6ZLDYFCJg6TWnjlExhCL9/T/VfCPggZepQbB0Pjr//iy5X0rAGZ9l
nT+W5aGaIpENcVUEtNwQWue6MhctNxnbyF9HwB4/EiSonoN2z8Jy458EaNwq
WA8NslHkzqzHp1oJeHE78WH7xiy05Oh8nnkHASIBoT1eIBMVpw2ck+0igHX3
5OOMPeloGi+33NVPgP198z5ry8/I3czDO22QgB9B6zeN7EtDaRnXlRdYlJ5H
9AGNYynoS99InREhQE+x71pw5UckK2f5a80fSv/KrFXlzUlo24yxFc8YAaOr
7tUK9iYiCXuJjel/CahVO+QDyXvEYyDx2GSCgBTNNerXp+NRbxmywpMEBGsv
NGQIvkXbnuf5Mv8RcEG31m9EKhZ9csplWE8TYGkQq6W59A2S1Axmnpsh4Igb
K6Xc/CX6tF7L/9QsAcs9HtG2nnyBdi1+ablrjoCOa3pHM6+Ho4GHiwKE5gmI
9m3M0nzyBOV/rVZ8R3G2yPjybVYPUcnCFkX1BQLWy22u0rpxBzlOdd96QPEZ
Y5EZ7f3XUW6og2ktxTXpBp9pR13QTqHTnpMUf9+78bHEdFjuYUndJXMUR1/Z
MWQZ5Q6Gk8onBii2TLEv3vzGH/ina5ulUVwbJy1n43EP6BgaCzpSnGB2Uj89
Nhh0tx1UHqbiYe0saN3yMAzcvdUZe5Bija3Lbn/3fA4+OzjdT6D0nNl0Tcv2
aBSQ6ghsbKH0Nr44fZqovAaF3+TucSg/Jp49z0+XjwFJkqMxXZRfck9LpL0k
4kAwTWFVFuXn+id/nQF/PFDamCTlNkWA3WPlXIGpd4Dj1uMsRPl/9YGl5A92
AtD9wlD3G6f8CUjKsm1MBhm005OMUQKab7WIKpR/Atj1h9C6EWo9QIEU8jsF
5DxOuvsfl9K/WU8goyENvHLPG24eIkDbyOQjo/ozmDskV+s9QEC+4VE7r+/p
QN9xjy5fH5Wf9Y+SQH4m+LW55UzqbwLc1r3dH5OdBe42mZq2thEwb5DHI/g5
G6TOF37q/0XlV49l++NdDsBG2otj6qn8a+2csw3JBxZi5i8+FBNg9Dz+0cRr
BAxe9O15VECA2E1+KTM7DPrmOgz3fiVgiHP8DcelAPRN7mIfSScgplilSCfw
G5A0GlP59Zqqv5mGB7ySRaBD3O/Iy0gCbuje2VcXXgTC6lQEYDgBh6L7+t3j
i8G6G6JxzCACZC7H07OKSwH/sNOfFe4E8H3YXxe4twxYrE/S/n6WgJFOoUi7
n2XAwK1UxMKZgEozF63p3u/ALa4kb8SOgAAVNYvNAhXg05HO9gdUP5sdsv1x
TKkGbIw7tnPtHBeMCSRr7zlZA5zGP+jF/+UC1grBUL2EGvAhkL5jepgLmvdl
HOLXrQW81Xr8hi1ckFEgy4mDdUCba8Qjn0H124hGycEjDUC+eOU+xxNccDJd
26MmtgF8GXsWlHSQCxyqA5qzBxqAwbeI8GZzLjAVXP/m3vmfIKx17aEfG7hA
7eIzPU3fRhBodW5OVpQLunbb7XN72Qx6zqfKH0zggC193scq25tBm+jWVOdo
Dnjh/+ac1rJfQCj7LTgQwgHWOaw7rMhf4MDs/gtdVzmgUNMn0zmiBdSfP+Me
uZMDYiRiGEfC2sD9gAeclDY20GONs1fv6AR1Xio/88eGwdENNPemE53g4oSR
5fbeYfAoQOFfwO1OcLQ56dLHhmHAUgaC/d86waqZCpZOxjCIOXR3Wdy2LsCo
9LYf8RgGiysVzBVhN0jr5FF2ISzw9xP4xNzUC+y/ji68rxkCFZqbpC8c7gWr
cvTpFnlDIPbdusulvr1g2OaHW9O7IWD9as0mz6JekM46nvz4xhBIfbSktH5v
H1BXfBv2WmMIuJ2b7Hh0tB9EGJ93OOgzCAY0PkkIBgwCl5PLmM3iA6Dl7XK3
PzVs8GjXaMRMZw/IFEqyfj/KBhHNPlJ3SnpAqMvG9UdkOIB26l7o1IceYKZu
y1N5gAPEcuX/e+nZA/KT7j1538EBe9L+WzUg0gPefP6beYTNBRsO1yzcW9sN
0o/2LfTfGgF7N929xTrVCa675e7e92oU2Kfo86y2/QXsXq89EPVwAlR+GAxY
+qAI/N/9JkBHoqVUs1WQc+B3vt8102BFSM3FO1056NttTc0H5fOgUVH60uya
RmS48PS1aus8+JcyeNfHtRGlXeORK2DNgyXb1SyHYhpRjNtPngn6AjDR+bLI
j9GEbtr5Nh7ZvQCiDgVaxy00UfeZ9f76xQtg21veqGflv1Dnqc1nzx3hgS/D
dnglWbYjx0V9hTIHeWFZxuWAOd5uJPCi4W/QMV4o80PR8s+ybpSoXKTKf5oX
Vn4wqanZ2I0m9WPv//HihXY51lesL3aj4P3HrKuieOGduOkZh9/d6Ftke1dg
Jy/Ea7aKeGT1IDXVRp4ZFz7I0/b4bvP+PlT1sVjv0gU+2I8ue9Iu9KHL6zNO
DF3lg69/cpwU7/Whwt1hZU33+KBot0mpcG4fOnTGOjj9Ax9MffM0NXVZP3qU
UrXCjfDBkNReQfuOfjRmWLqly5MfdnJKjLeZDaISm5QdpTf44Zweb3jx0UH0
/GyEWXIAP7xSUKCie3kQbXl5xv5aOD/8V7z3PY4eRPd5pTwXZfLDmdNjKxBn
ECmX2SVvHeeH1U+qutTuDSGrfawlMe4C8IpdxfI1ySyk4lavfPe6AIw4aL45
NJ+FJgLy1N1uCUCn9kqT39UsFJX9aL1hqABcufLckNooCw0u0bepSxOAkcTu
ot9/w8iv+/p9vlEBmLsandLLGkafzov/c7ogCF/UVQX8F89G7HqdydGrgnDc
qG6JSwYbaWywHb/pLwgF+t9VXiliozieyD8xTwThkVMD29Z1s9GLEDVWd7og
/F1SHrFqKQfd/mzc6vRPEPpPZMajexxUyHD5NcorBBt7+Xa0hnPQwvX7TTdF
hODPota5hlgO8tpeWx+zRAjus+m/5fSVg87/dKzo3iwEXY4U7unlcpD95LWv
TjeFKD83PPY05aJnh6JzR+8LwS+hGgbn9nNRA8JfboYKQaGL/zG3HuMii7vC
mTFxQjCGtuKsnycXbZd/+rG7hJpvZcmfQ6+46KZPdtKlaiHo+ZBltCmBi1BX
ayJfsxBc12TqOpnGRYaJyu+Uh4Tgi2grfaESLlq7KeWVk6gwTMMyZ71ZXHT2
VX306GJhWPgq9d7WMS5K5J+MvLlUGB5LytfrmeEilYrNz2PWCMOokqKFXDGC
FA6XB3dbCEOXlPdehVoECfj2+zuFCcN9jaIrlzgT5ObOv+9YlDAclJkZX3eW
oGYXRbWjccLw6NTISf1LBCVZ2lcdTheGPnarBKt8CLJVrlI42CAMpQ4tvL4X
SlC+3DDnQJswHDZ/lpvwnCA1UVrB/l5huMugZmdiNEGzY1tdbP8KQx6Z3ZFm
7wiKLc74bCFDg1EntLNlvxAkllMXYL6UBr+FVddt+EqQ50dycK8KDV478nCj
UQFBe56p85ga0GB28OXWnjKC0oN21psY0eDrp9MSdysIWu53PH73dhq8es3K
V6yGoFHXaLOdtjSoORdAy2wkyOFwzoodDjToSM9XaP1FUIlV06jxCRpsqb/i
0NlG0AvDRRFbPWjQ96+/U1A35c9a7bPQmwZtiJqSbh/lz0pTAG7T4IXJBf6s
AYK2id3pMwqjwdYLJlrH2ZQ/PDHZm6JoMEZ+0bl7XILkxvODDONo0Nz4c9nj
EYL8hlodNybRYKKGxmbPUYJY7VO6G9KpcdbjMqO/lJ91soLr82jQz3v5qZ5x
ys8Sveb/imhwOm/tstP/e36Xa/HBoIIGg09v7qmZIujJp7M39BtoMFOt6wtj
mvI39p6VXhsN9vs1vNoyQ5Dz83gV3V4a7OsZCd0xS1DNg2+Ta9k0yE5c+1Rr
jiBD/84f2n9pMIGZGDNGcdzlueg1szS4xj4i98U8QRKnFS5qCdDhh8D9v5UW
CLrquH67phgdqry1F79Hcbe1LUNDhg6HY7bsqKHYbNdFltpSOpR0zA2Y/P+f
l8Jc59WN/3teqqjzIVhViw4rlPhU+ym+r1J2fJUBHQoEtN9Kpvgvs2+dihEd
YkePYVuKHcX5RFZup0MHjRWH26h4ynhXtCuZ0eEXm/2/jCnWm9iUomhLh6W6
aUeDqPijWHa3VjjQIUtoeCyN0iv0+/L+5SfocDvPr9Acyo8L9U/Ul52lw3YD
j60xlF8tpZ9ml3jQYUJcw9ypfwRtz6uoVvCmw8vr9X4sovz9mDIUI3+bGs/t
fRcxQZB/xEoTRhgddu7ZFW0yRpCW8NtZTiQd7rrdvfP6H2q9eKimFMXS4fsU
3x2PCEHaluqMS5/psDpym4ndMEG/vib+2J1Lh81m7taSQwTd1tS6seIbHfrU
5ma/66fiEVrbV1FHh4saOG+9uwi645HyPLaFDqtCKnW/dBCk061r5tVNhwvR
qSpNrQQFfjX4vHqUDh/vy9yT9ZMgAw9D/5uLRKCV8Fk2jVofv7tyDQ7Ki8DQ
HfYCVkWU3xabB9cqicA3zHdRXpigTg1o0a4jAsW81x2+lE3Qw64dyzZYisA/
++4++BtP0AaL0hoJOxH42XhaxiSGoN683bf7jojA6i7PLb7UejZ8bjr85LwI
fDYoFRhMrf9+c6svnEciMEU+yXPXDYJC8urOFoWLwN3bgx4lXCXISMNWMfKl
CHy+4cx5DtVPnggeCNz9UQQm+1vGKLgQBPIc9sVWisBdlTPnRM2p9aHeQfP6
KQKvbT/m5r2LoPBnR/Is20WgveC8czUkiH3JaeU8WwSuPhZtv0SfoOfqrn/s
xEThBFwQNJMjyPjZUNxaGVGoUtTpXylBEFfgjJ3QUlFYqXxSS1eYoB2d59Bn
TVG4alOyxqtJLhoNd38oYSpK9bOWV3JNXGQq4KtedE8UrpNkuHgFc9HRr4YN
25+Iwti1doH7A7jI03PiRvELUfhs3wMtKW8uihk811DyQRRWPzxmsNSFi6Yq
HHy/V4pCRck9d59v4qK4p4Y/qxaJQZFHZgZrOjgox3zC10JBDNof33BqoJaD
qoXTNGqUxeDqsEGubzEHTV9T96vVF4OpEmUqZkkcZOnI1GzYJwa/n1xTYX2V
g2ZVJ/x+RYhBF7V4aVURDpLuTNW0jxGDks/61lfMsNHqiHONLYli8D772ysr
DhtZi/ZptuWKwWoa9+p0NRu9J/WNHe3U9XKzK0tC2WhfdqpWr5I4fLdu/Tlb
WTb6aHKumZsgDjtTBTIreIbRyBNlu45Ucbio+4tGFmEhvbampsov4rB8u/Py
wA4WynTb1pT0XRyWHjhR0pTLQiiU0Xh6SBw+L+qc2nyZhWraC+r71SRgltjb
TWt6htDYRbnqjncS8M4Sf2FG0iDa8AIVV72VhN/7qs2cJ/pQr/YnI9ePknAz
ntPb196HQr69/MybJQmtyx791CjqQyy2zxuDMknICNlVdD+kD0UBI58XLEm4
yu6Ej6JmH/K75KDwmSEFdZptnL8e7EV9jF+1NxykYKFP0MKTt93oo1MdlOuX
gttHV3kdn2tHzoq2mlv/LoL/LaTc3Hu6Av3f+33INVXyGO5eBdJ6hDN2jkjD
iZtW93K+h4M9MoKqQbwyUBv2fdMDdcBzj8G6RB5Z+NzHwvOJSycgxu9ingjI
wkxB4wNONzuB62YFyes0WZhn85+ncnQnOKTDM2gqJQvnS/hp7nWdAMpVRHBW
yMLvL5akWxt1AdHu43M6QBY29f1YPSHWDV5fCy3K8pGFiY7BzxTf9AB5dyHd
1/6y0HqH72jplx7w5Oy16Lt3ZKGg/s1rDnU94M6RI54HH8pCpYq5ZDP+XnB6
h6baTJQsrE4/oLLrRC8wWPQtaEueLBSYcV4RrNwHvr8ftS6eloXbDKymGh73
g6lSvly+BVmoaxvD2/iuH6gOSK+E/HJwW05i+FfUD26u0h/LEZWDjmOPpwDp
B0Yx7qEpS6lx3oI0ib0DICXyb33kFjnYP7JB/iv/IHj+aML20k05KGh2KyzJ
YQiUJAt9/RQgB6VPdu7ae3EIjFfIreLcl4MH4aGTtXeo/Y7o+nGXUDmY2RR+
89bHISB298rTw3Fy8EPIp7IH80PAz3/q5+4SOZi9rJJPMYIFXD2m968QYcCo
saDpz1nDIPlQoLqMBAOOzDa8uFI6DEa3yczSpBnwmZSUhGLTMLi+SPvNqDwD
Stjq6qyYoPZzH48NF6sz4J2HP/Ia9NggY7DM96wJAw5u71oq9Y4Npqv3WR/b
y4CbQd2UfAYbbMnqVtlvxYBXqzYh4W9sUHZn9js4yICHy6V/PupggzZlHZnF
pxhw+VXJjybUvorv8LP3X+4y4EzKthxnLw7YtV3l+scHDGjRvYqREMABDzRT
98YGM+Dwcd+QqiccIDv9Y/TBcwbcWan+qTCRA9SezRsdfc+AZ4Ze7jb/xQHm
tSdrhcoY0JBErBzS4YLQ7NHYmXIGDAnVEbDbRO3HX/l6jlQzYOGol1XCDi44
5haxpKWJARvEBulj1H7bQ7TyZPIAA/52fd+h5M8FkTsMpm2EmbCJcb219zsX
JCYfeJYvyoTi3zaouddzQbbsdQN1KSYsM0OdrW1c0NhX4DbPZELNHe4uRoQL
pAIset5rMGHmjudPN0gTsIJ7yW/xWiZUELtBj1AgQHt/+LIb+kzYk3PhSb0y
Aaaq7QdsjJjwsHhQbqMeAQElpyvm9jLhzgXmYRkrAp5qPzrlas2EPkbvT2+3
IyAuPFWofj8TYh+5beZHCChwnoLvjzBhsvNZLXKWgFmhgAzri0zo4rJR5GQA
AaLnE6y/XmbCJwGZfk4PCFBoqiCrvZhQDd/z3/iEgPXvFmvM3WTCD04Dgh7R
BFza9ebluzAmFKrMPKyQRoD/p6JN0hFMKKnecKonk4BgxmCzdzQTLhe/UnEn
l4DkAe3F1vFMeONSz439RQTkWVin5CUy4YNuzrfbZQT8yLq8d/UnJtQuXjB5
UEHAYGBe4GwWE7qpfhNc3UDAJPmt4pLHhLEX1+rlNBEgZMdfWIuZkF3PfKja
SsBKtT2z8d+ZMKKt8+v9LgL0gs9FLKpiQuPuv0E3ewmAU8HrvOuYUKJ05KrN
AAGOZU0XrFqZMEBdJsaPTcA5nRnxvN9MqKjLbmrjEuD9fPkH1V4mPKEvrij9
h4D7PNt2hwwy4VHpkiuKYwREuJ7sm2EzoZna0zbhcQLe19y96fyHCZ/tUTMr
myAgc0PSitpxJkQVDkXHpggofl2dt2maCYdvAuOGfwQ00MYOxs8z4e4isdIV
MwT0XJCblOKXh/rndMy3zxIw2rwx7LqwPFTt2tG0dY4Anq2HdftF5aGzGPMY
c54AyQS/KkspeXj75BtWKcXLF8WdyZWRh0+4ou6W/zsPeq2UpiovD3XWpf5L
/d950S7W2+Bl8tDWTuEGm+L/O08K/7/zpP8Pdh3ytQ==
          "]]}, Annotation[#, "Charting`Private`Tag$24023#2"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.560181, 0.691569, 0.194885], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJwVjXs01GkchxkMponG7zIzzmaptUm6OFZNTN7XpZKU2xYpJdda3TY2Ra2S
pFRDw0RLsdMWTrlEKomvUlQuI1KKFNGgGITG0G77x+c85/njOR+TgL2ewQw1
NTX/7/ufLmv0HFUmfNBIX9XQbZ1sZ3vrsELHiA/mV6aizMR7kYXJQCZtyAcq
0MWfIY5Besqar5YGfNhfc6fPVyxCTTnH8ncw+JD0JbrYOvUy8tEZ47d28WBz
Q3RXZ0YBCq15oyiU8oAXMTDSfK8Sxa3MvRRiygNHhucZ19kyBIlR7j+a8MDf
Y5OVRYgMTTWtZbz6gQex16QvrQpkKHzrYPAakgesBdrCCvsmFBBptdBCgwe7
PKzrXux4jlDu/XvD77gAJdLU2soWNMl+/upwBhcWfNJ1HJC0oaVe0tPWaVyQ
O6z9Gt7bhvanRwgHxVzYvSH7qv3S16jPlJu1LZELIfm+ywpbX6NXdltCHaK4
EBlX3/bVsB2V7usd0/bhQmeWrF1w8y36vWXSQExwod5qtGiOQReSeLr5puhz
ofq28OR2YRcql0mzU2d87y/ePycL6ULMetclaRpcEPyzvNW+vAtlPLq0LnOU
hqvFOkvjdnaj2lKHhGvNNCzUTpTNa/iAjNJPT98T0zAnQa8i6tFH5MTtdLov
oiE+6+whwcRHtDPV6kxFIg0WoX+04vlyVJLcblh1nIa6kiM3rM/J0ZrTiwSP
w2lIsevb1LC5D0VEP98v86LhX/Lh7UrmAHrqZyj/QNCgCoy36rkyiNwuC9Gk
Pg2eCeZai98PopZ3WyX6bBrCN/xkOTB7CHUESp1sNGmwZcmSq9KGkGKnRbbo
CwXfBoMkbBcF4h6w87V5QcGWGI5+iscwyrjtX+TWRMHb6uD+++HDyFgZqxNc
T0E4o2CmpWQYmR+uKRU9oiDZmxqeeDOM7GLdiZ5bFNTplY2bh42goHMBdSIJ
BapNSYFe6aOorzFu7j/nKTjP/0wXwCjaw7kWVXaOgjHByuDf5KMoMmXArCee
AlJRfYq5/As6fTHihE0kBSx1W2Nm5xdUeDXersebgpbjme8a0TiyluekTnpR
4O/6uVdzzzgqm//sk747BWaQdOBuxjh6eF3/LxtnCjyd1ZR5qnHUejNtQiSg
wKgp4OhE5QSarsgrtOFT8Oey9vLCICWqe72YrSIpqG+1XN6dpUQZ4yWh92ZR
0BH/a193hxIJF1UaCXUoEB3t7wnwnURRmc1nVkyQMAZxOR/8VMjlro98eoQE
uuHJEipbhfgvOhwrBklonH9EuaJHhe6w5ZN2vSRkq4wvJu2bQuPRUzvwCxJi
po5LhsTT6PGFY9VqTSR0mbQFSDqnUWox07iqjgSewbeUMItv6JeBWS/tq0mo
ykt8CE++oXBf05WOxSRIQx2vqbPUsEKw3mRVMgnL5mY8K4pUx/Br82HmWRIe
+H/0+zlXHYv2+bx6nECCKMKDceKNOl6UEyBafZSEgnz+8x8cGXg3N3LaeS8J
mcHF3meNNLDQaspHN4wErZrc+Hk+GpjtdqzkSQgJVw0eXPh0XgNfj08Mc9lK
grcrK8eIrYn7xy63rV1HQu6d6NT1elq4jGNqzV5Dgm6dyGOnpxY+tTAvqc6J
BMGpuDHdNC1sFlyyep2QhJKn7RzKjIlDWmpvrV9AQunso70MP228VLGOoz+P
hHln0UJlvjbWYjfvapxDwtNGN3clQwdfceyY625Ign+7ZPFvRTq4++Zwsocu
CbZzju9OMWfhDOZkrK8WCdvUrKWnElh4oy8jIlCdhK3ZC4oVchauVSc2/qEk
oPbSkvboohk43/0Xw/Q+Ag6aTtAFQTNx6BXhjL97CPjXtu26V9tMbPzVaSrv
PQHyvyrKAj30sPjyhrflbQQcOsjs3OGqjw8OHvj73RMCDOjyoZN3Z2FLhxhx
3yMC0vs527Q0Obg/9WTcSNX3v/1DieoeHOy3Ii1Es4wArIiJnR7hYDo5y3tm
KQGvl38iVjsbYNmHHGf6JgECkX+QNMsAO5y5a26W990TOgtWbybwDZbzotEc
Aoq3hwW7HyLwfzVh4g8=
          "]], 
         LineBox[CompressedData["
1:eJwVkHk41HsfhmcxJsuM+VFOJyVKoqbQ9iL5/pIlKjG26iCmOqGIUI429Wqz
FIoKoXLUMUTZKvL9qBQi0lhacCwRshVGzPJ6/3iu57qv6/7nebT5R3gHaBQK
5d5s/t9fnHYGzyioQufXQBk3TA24fst2l87yVX+jyfIgNTBb0rg6eoqAAnPm
zR0DBGSoKa1zGifA4vipAOIaAXSGpYnGKAGSf/3cR8wJqOkr2iLoI0BmNLTB
KZ0Dqz8Obw3unvUQ0op14kB8zXL7jR0EmC4NT9+qyIFdubd2vW0mIFRBLy5W
woaytEaPa40ELNRM80wPY8PiOKV9f7wjQH33n7m1Ihb0Hj3lP1hJwPJi35gn
VBaEGHufUyoiIC7aKEcPKUGrfvLFD/kEpDTc5vKaFWGjxoeYlBwCPpy+5OMW
qAg0qeWNlZkEbFIOMDuVowBxL/Vyts3uwMPHza0t5sB4ofcjtasEDPktvekw
xAS3rOTiz1EEPG156Xs4mQmal5UrDp0jILiIgaKm5SHHfrQpOoiA5+Y/Lwc0
MIBD6n928idAc0BzXDmKAcFG/H81fAmY3J70aIMVA0znCgcEXgT8XmYxMYnl
oOpjieztTgLOi5wMmivpwH07Knd9GwGWudY6x6LocLVMX9HdhoCIULspSwc6
uKanzP0++3Ol76IG2w4a9Ow/o6+8moBs/51DUgUabHV9slqoT8CX4qwE7RYq
CGzG1qYuI2BJFt3e6G8qHF2xz5y7iAB5E41h8RYqUEatnbYrE1AV3ieXGE2B
hSfYp2IGOKDLHgieOSHFvpk1v93u5UCN4N+6O2uluLjuwuPcLg6EzVMf5n2X
YEctWd+7Txx4v4H3uMxLgi9UjvCItxyocDwjU3QR4xGV93pJAg7Y/3HKjnZw
GpuZxL7Mus+B1tbq+6+50ziKb+tZco8DM4OedlY/f2GdooprrSkc8F/f3+N9
7hfeteexdEEMB7TOan9+9GAKv8i8Jkw/zIHItPrBSlURVnm380i+Dwe0raZK
47omsbtISbFiPweuiM7/1fV4EotsI1GXOwdSf1t1neMyibkjIdk6OzhQNsRN
dEqfwIkmrhH/rOJAyzufvPO247gh1WjXn20qwAg3x1f7xjAl80hSm1AFyCya
0faKMWwoyBU616rA0HtRPT9lDMc91XfcUqoCGf53nG86jGGHZm07rVsqMNaT
kDRdPoobVFTNPjmrQMPrbSV1ziO44dyPxfa1bFhwR2sR9+AgpkQZela+ZMMY
j71zA3cQG8YHpJqVsiFqQvdH9tgAjksfmL8ymw31gxuYdacGsENZFzHnEhvM
06cDq5L7ccNEI/3FFjYE7OEip94+XO9T0Le+lAWviH7zh896cGOHyMG8gAWX
C86Hxsb24GZXs2fWAha0qz6wyPLqwV8sK2PcUlgAmp8vn2X24AGtFqO/TrDg
l4BeXe3WjeU+Tp8o28iCvfyBCCqtC5vaWnC2lCnDV7ll69XH2nGW/ntjh+dK
oK62/9BMehM2TG4IPFqtAPcjML9tuhDPX2XpPKOtAImTGt5ISCJtw02f1AVM
cAmmswwfv0Hbef1Jq+8x4TGH6bVkfRUKC0l0sk5hgsyuO9/qSRV692SoNjSa
CTYEAy/F1Sh8cxoWHmJCmM8zlkf9WyTkyTITuExAnQK319P16EJoxRH2Q3kY
OuvuLrIQokc3/Lm6WfJgeUUzJOuSEH15+nv/pjR5CLTaXnv2nRCtkQbx/a/I
Q7z2bmXY04Q6LixxqQ2QhyMBjLcBoc3I+OZ/TaMM5OGUnke/aWErGnhmxZB/
xAD3Nf2dWh5tSBBfUhP8gAFWXpG9dvlt6LCPflxnOgNyaqfL39Db0dA8lsbz
K7P+pltd5YJ2NBooNAw5zIALlSUpr2UdaFJ3n3vXcgbopS4uKHDvRLRrEQXl
aXJAZLkufmDeg176/gjjJsnBl+xFf9cE9KBIcr95cqwc7CgxWWeQ3oMYwzbV
oSflwHGBt9MLylc0x1alg7tHDhJu7izhvvmK2LLbiinz5KAQnzGk8vuQxqFS
7+MxdPjWPPxGp3UAJVdVWbMi6VDXki3IIwbRAt3mlfdO0IHTouNwZ9ssd45O
vPOjQyaz3QTDIJrvphula0sHz+06LWr539HcLfGPmxh0+Dzm1Z2bOYyuZ6Td
OCShQd0G46GQr8NITSo4SZ2ggVJxKht0R5Dq09fWq3poMJP13GIwewRxDMSf
Il/QIOOPYocB91GkrHGQvu4MDerxYZli+BiKCQv5Vn2MBgutl8prpo8hpeaz
dXsDaLDnfLvLxVdjSDE+9Ua0Bw0slDW6+ZwfaA6zcWX3Rhrw88xW+OX8QIyf
Zs4JU1Qork5cvkn0E0U62JnojVKh0crx5ekl40juoZtmeR8VXM1Uwtfaz7Lv
0W/9zVTAJU/kZVnjiNZx/+TmIioovz3qtddzAklrVP8eDaJC6Tr/VWd6J5Hj
Td2i3/yosN80MjhFXYQyD5hWmvOpsMLx20PSRoTsKPyvMTwqaAhtXxlmi1DS
+kfL9NdSIUgpJWny2BRalbEzy3ucAk+fdLsKV0+jCP99xZe+U2BvV7ryoM80
ajQ9/jqvhwId/3hx8L1pFNaU1isRUmAiqDo8T2MGvVIc1k0uosDU5mOilfPE
yD005n7jMQroeEfwW9ZIUZ5FRsmvAArEpzLbROFSROMUvtE6SIGCX+Pdy19J
0YPsz30BbhSoGNls9H63DI13rNBTMqZAJRFaftGWQtrkmhuvMaQA7dKNVuOj
FDI5nLd1tx4FbpVPelxNoZDkvHCf+/MpENsf+GvTKIVUT0xwvPhDhu9WGfCW
3qWSZQbPgpq6ZJjnxCuMaKCS/JrO+KUfZNhH04ufLaOSuTLDRlwgw/mnf0/8
y4tGWvrV86ZCZFhTN/FQIZdOBiNlZ1+RFKv22+e2T8iRllvw+X29UnxnkXdd
tAmDVLc5WuLRJMXckinz0tMM8ol96wJegRSbNd6JamXJk2KPzE7TI1L8ftWl
thKSSdZ5u6mt95RiHEcv0ExgkmkHFK0Mdkjxz2M31kR9ZZKkf+CDpSuleOKb
l05Fwhwy8qTZEeU+Ce4Ndz7OVVAkXSJGMuSbJbj8xaMJA39FUjfybiOlUoL3
Hig0FX9QJKui52yYuCvBcgqU4/7ZSuStq6UHR+Il2HWh0W7XBcqk37WAW/0R
Esz6eF07LlaZZKUIxW2eEhyXI3BMOs0i29Murm7dIcFhe+eqPBWzyPy7pl6N
ZhI88ab+zcfTbJKXnfHy9QIJDiIK4ruuqpBJTw9H5TWL8TJjzY/lExzy4PPF
Zf9UivG2osK2cRuCNK5oHLpXKMb6jTMh3NsE+anK2PFmghiH5bkM8BxVSUHt
4LmEs2Ls4rDuy718VfJkQ1phTKAYNylc2FSqpkZC4H96FnmJcYH3oQMOf6mR
/wPHmRmC
          "]], 
         LineBox[CompressedData["
1:eJwVjGk4lQkbgI81Sw6KSGMmahCSRJbieWUZvtQgTVLZskQRSZGlXUWLkESR
07GEqBEayfOWrbJXsibLsR+Hs8kSZr4f93Vf959bxfOko7cghULJ+o//e42O
Quofg3zsHwpa1g5bTfZ1n7PKfMpHh+muIh31VeRljdpevxQ+tvZ9S5ytlyXV
QmXD9K7x0eVsZN2607LkCWpuXpUXH83dPCVKGmVI6UNci5v7+Hgo92XF12gZ
8u8cs29Ou/hIyfcOydWTIWeJNunh3/godmuijGYhTabdWv+0kMpH4dcBs63/
UEmzruO7zi7yMHtaw9RTn0peCREMFevmoZKQpsknAylSNntLl2YyD2WSBRW/
ekmSLznnQrhXeGgZ8q2nY1aCdIbalRUhPGyt8jDquyNBpncchj0OPFQRTVeJ
qBUnNSVj6SdX8rDZ+FRpqaMY2XigzdRogYufyqmf6AsryCD6+nbKOBeFzNjP
3mSvIEtNy8QT6rhIP7t6ap3QCnJXECPw5SUuOk2l0cI+iZBDFVvEooK5mBr8
201arAh5XTwi08qdi3lRKHfMUoRsosl++WrKxbQog9hbFcKkS5uZ8dwsBw8U
FRt1vhEiQ0weCJmd5GBB8pOy7/MCZFLSup6/XDkYW7vt8bb3AuRL1qOXJ/dw
8IW088GQZAFyhkbzztTioEZmk0OagQAZJllQJzzKxrf6J571RlHIB946j5Xb
2Zi6xT+sz4FCluPzsO21bDzd1W+XrkYhF0JKNh2js1Hpyaatp+nLGN1TGVfv
zkZJw9Ev3z2XMH27uRfjTzZyks8UP5RfQoyv2rloxsbkmgvqsR8WkWL1flJH
mY0VRpviOvQX8fKz1j8TOqdxR97t7kjFn3g9mrH6oOM0thwPueJJncfcDh9m
sPk0xrvOs2Ra5/CD3lh1rO409hSLCd9JmkOJkcnQCuo0tt+y7h1RnkOlDFYR
JE+ht3yze6LxLP5uLmfUeI2FFb5rWvzvzqAPX3FsyZuF1NDkC5vdZjD3qXKq
riULj9kcrrq8eQY1V6n/TKSwUPvXUKvv9XzUHTQmXcIn8Xh4k62wNB9NrrrZ
jPozsd+lhdtUwMUPs1FZrruZ+K6jKMvjKhedTzwUbNNiotgGuzJHVy6G7uus
eMucwLwatwRbWS4+V9m3NS1wArUo6uAWwUH1SmulvafGUUHyc+ykKxvlfmxm
FoePotGbiA9apSx84m9nq+kyik1b+hOawlmo1+uf/dhkFCWORVgMmLLQvibH
/dbCCLp8N8rZXzeJcYkqbT5RI1iQ5m4B35koqCtfufbiMJoc66DXq0zg1LGf
d85fZ2Db0Bnt86Mj+KVwq8xeHwZWhhx661E8guU8n/hfLBmYn35ULSV6BK9c
aI3/Z3kQsxSOBC/Ij6BSSvZd7plBtNXcSTtnM4yWdfaJvt4DGGByX8H9NQNT
fs9K/nNXH7K/KdPrW/vxcnWaCcy2Y4qFdY6xRieONhkner9qx6Uofa2M3g7c
29k+ERfWjh90qvJM73WgEmv1o47Zrxj+N9NeVagDnyvcXA6ea8PCkJ60kP6v
+M0/spo+/xkHWItl13K+YKBq+UO5+WaUu+R7z9WpBb++3lmdJ0Tiy1c2tlvX
krgvxkao8r5GhVOZWM4VjaVKN23rRae7lSBiHGpRUVoJO1Oyb888Rrh09oyl
/0eElZeEZOycSaBtxXO6J0kYmzyaOen7FjZuD9j94PJboNVsrNa9VgXGivZu
BwqrQC40W7yspg46H+TI5q18Dz/HnD56qLRA8Su9I2sjWqDfxnl/YHoH8Pb/
FdUz2glmQ5Eejd864N1RwbUVel2QejEzQFu5E4gLtUXtkV3gWD5+dTytE2iz
uaa1st3wTiuq1OdBF3SIiPk/MOsBGpWm4JbUA1qZT1oY9F7QG+cz1a36YIdY
u1BMWz+4G4mFtHv1ASN5eWnDcj/cjlGai7nSB48KugKmNQZgXBVEhqv6YM/m
JE2FqAGgHbquTN/VD9yB5waF6oOwulFp73piAP4Qft2bGsMAXhEUKe5gQP7i
TpnXQSPQoLVjVdARBhjntbk8zRqBJznbQ+vOM4Ajb9gz0TUCjhmbd5ypZkCc
fln6KetReHF7Xd3nPUPAaa75vUBlDAIDfvTedh+GjW1PqiTHx8F6jGM+fGkY
DPOproMbJ0DZm0U3zRqGTxafI9TcJ6Dh8JA/c2wYfG4Hycy0T4Cm3ecZ25AR
8PF7uJ7ZwIQRzSKqSMwonFj0EultZEFldl7w4dxROPMqo8JOZgqSVbO/FH8c
hbMHBwOt902BtdKjVE/pMfCbc1jL6JoCunicGpkyBvkldvYxYdPgPupjFpE/
DhN6vaHPH7GhK+vXQHYLE/zcrZZmdXhQKlrgmMthgu6DZ+IDLjxI9DU2dJOb
hNijOX7m13hgt8mJ0nhgEro5cbYn+nlQWXAjIbd3Elp+G8SSND5kFvNK3Zgs
4G2Mq/HV/AHRcpfS1lCnYLFyoWrM9Qe4hEpfaNwyBR5H/Q9Sk37AKkNN2x0h
U1AlFKWyhzILV8rdutfMT0EZayJ9Rf8svHQfWh6+PA3Pk47QBermQVVW+9S7
pGnYEZknGrNiAeLfnmI8ypqGIxa/FLJtFiBAlfLBqW4a5ONmupKaFkCNoZTw
ToINFfNaa4uGfkJSkodw+jo21HPHfsjoLIKgVe6ZcG02PH9moBR3dhG+Zxkc
0t3LhsKMgzSG1BKk+NpvTL/LBleNkjEB22UQVbyfHE5jg4pf+8251GU4/f6b
2P5iNsi/3brJlrUMDpuOT0q2seHcVG9XrB2FkJi4WhquyIFKQ/MaM4oAERH4
2mZ/Bgfux6s6OcULEruA70Ut4sD2kyUmc+8ECQmZLRfrKjkgKZlaeGNGkEh5
QfvHuJcDd69Hit5wFyJKeTc0f1XmwgpWe8NnQpiIrqmybtfmQoa+SF1WhDBh
lbzoGb+TC+dz7YtoZcLEF8PgNMHDXOjNNLtqsU2E4JxzXjmSyoXUbqE8SxNR
onx3gsbjvP9+zWsod86LEhd/abA8WM6Fww6eFw7XihIylRBV38kFxX2rFMqc
VxA6AuqsIkUeSFECdCQSxIiZVncJPw0e3CtZposPiRFvaKlqqkY8qDrQ3C1h
Ik7YWVLdkg7wIMg4OMtjXJzwv8ZvDkvmQcObDPNaH0lCz3kLc2s2D5Iu7vbY
1iBJzGn4iU2U8GDPXydjXPVXEtc/9hBH2niQ8D/V3b5SUoR92poja4Z40GJ5
PPJqtBShcMI+vJnHg+579oqDHCkiW6r6hbkcH7T2d9Zzh6hEYO9i4/wGPnTV
HnCc9ZImDIoMx4u38UGAahj9fUSaqLbPV1Xbx4fk9fqbJaNkiP7EhESJBD7c
k/eQXpUvS+R6NRRVZfKh+dXe/fKLskSQgWhD5As+lHy5YzzvsIpY+houPNXC
h3hiuHmlyGqiNqd4fW4fHx4fkjZMOvpfHyxs3sDgQ7HHcW/78NXEvynRaqg=

          "]], 
         LineBox[CompressedData["
1:eJwVlVk8lfkfx8/GibN4nqPBiETIkhZpGcnvSzTWSCWFKVqUvWYymBIpsqRS
ZJtIyZLsUVN5nkgpS3IsUUQhnRQnOnJwzr//xef1uXhffC7eFx9N7yCXgzQK
hZL9M//vcYGlvnjvHBocDpYuD1Ukt7uudr8bOIdOnyg8XLpYkTQ/9NeT+KQ5
RB3kD5T68MiFMeLUta1z6GT2Bda2xTgpz82yX9I/h2p7jdg17RgpTdlEYX2d
Q79dWBqZEIeRgrzIIwOcefTPlH8ab06BJBtkzRIc55E1IW81J+GQ1Y4FE8c9
59EALa7g7TkOebvTNm9fwDxq3pAXuFCJQ6YOJ3LXnZ9Hwsl712d+Y5P+MoqD
A83ziLqyXcS7KU96n69KaXo7jxpcuZlK1vLkrl9c7arH5pFHhir11KgcaamT
XpnAlqCXGl50zXVypIq1Rsw6BwlSTXJd4SlgktwW0lTTQ4KoDunCVVlMkr7T
e5zlL0Edp9vOvnBikl8P5LkNJkgQ+37qGeyhLFl/xtAwsUmCUh1eYW75MqSp
NCVH940E9V5zN2H7yJAVYRSlxwIJOuq86jhbT4bMDeykiOSkqI7iq954h0Ge
djvVtddGiv4rnz6n9YxOits/2Yt3SdFIT2ObwUU6ecxxx+MrPlIUvlGvZ90e
OultqV/8PEaKKr6oHzAT0kjL5fyoNQ1StCjRx8zMgEb+d2vTdEuHFB29m702
W0wlV2sW+B8ekqI7E/Pqr5qoJJZQe7uVSoF9rwuLE4KpJCXycipdkwKOmPpQ
Ux2FHDiyyT9gLwWcfj/ZyORICbX8b7dMfSjAS/B7bVIvIdyG8geZQRTYHmT8
8K9wCdH2B29XbgQFvpo82qI4Nk+Q2z9adP9Lgc28TiOtN3NE9qZLyhZvKRC7
h+vS8kFM9IZvceEOUeCCfGVtVIGYULo3m/jmMwVeHVmY9z1ATCQZH6KFzFLA
Lr/yHWt2hohYtvFLkSoV7ivcxc6pzxB/4MN1C3dTocgyxoWMnCYYGR1TCV5U
MJjW6su0nyaKtJ7o0n2psE17xEhVeZqYXnMjXhhOhcT3a1uEpSLioquXS2sW
FWhpty5WjX4n6jP7BmMHqPAwJM9V9q8pwle7RVE6SoX3L3PmC36fIrA7D61D
hFSIOnhoQd2iKcKjNrPwAI0Gdvc4IVsbJgnRwO6jFto0MJJ15qeoTxJ6ul2U
WR8aHO41sV05KCRaSxqMjwXToDAsD7d9ICSOr7974FPoT/463PVBipCos7nS
2B1HAyuWMtywFxLufi4Xq27T4IBxVtuuBxNEUlmrRuA4DaQGVfcdXcaJSdNn
5oMhdFA5vMou2f8z8XR7mfWzCDpkqjqJJ9d+JtL80x3uxNCh5mySYrlUQJhf
89sTlkqH1ls62zZcERDxVCwEr6ZDuvu1vl2PPxFajW53LL7TYTy+eS/fYJTY
tlOwKPdPBtisTUz0WzNMlAZxZryDZeDz/rvxJ16/I8b4q6a/hcqAdkWZikn0
O8Jgw47vp6Nk4EIe3d16xTviJiVTmJssA9/KfZ4Gne0nMi7pCd5XycDNxHv5
5Po+4kzl5jfeMzKQk36Kvvl2L7FnOuyR92lZWPd24DvjaSfBODUS5X2FCVu0
l0RUGDwnVIysdsxqyoEBkVykmQNEVPpSW+UrctAit9EqKakY2TNO6T+JY8Et
u/gqx9d8tO+RaYdVMgs8jdbTRFodKCREFNGQwQLWlKxTW0AHyh0N6Hh6mwV+
U/vdFjM60Y9mj1PPW1jglkmQG9Z0oZsppp2tOBuCB3pl12S9RnO6osiedDbM
peG2Ojl9iDdQbrgnlw2p/jY1I9/60LL0gK7eIjYUbHqWLbbuRy6sYcO3D9iw
u3rkyeIv/ahgnN/V38eGqq1q9Y80BtDOe+XLhzQ50Bq+TLU7fBCV2Aa8/lrI
gca9DOLX3UNoIlnLrb+cA4/73W4+PzuEjN92d7fc50D+cee4ioohVB1o2V38
nAP1hTGBxpxhRFxW7vL9xIFXSv04tWEYtfU95o/ocUHji+fRq/ARTR5Vetmf
z4Vv0SK+S6AArXvQtLW1lAvGJSeih24IUCgjqvVRDRci7n763tojQHOpn1uy
nnHBZresfeWWz4jxkGze85ELIW1u+DvtMaQk6/eiS1cBjjlrhNOmvqANGURD
a54CDOt6yodNTaChFaVmh0sU4GY+k6L7qxBdqr9WSa1RgH6rS+nLzIVIMHby
ukmjArSbd1etiBOiLGR2MkOgAJ8MX+4NXfoNRR7zUK1UxmBJcUfd376TqMus
o1O6CAOxdbXaupRJtJzpcMlhCQYl+yaiD5KTqCdz44IRPQwuZ3/VW6IyhYwb
VEUqphgYVdUVWLVMoWHlnlcRHhh4bLIoPuEsQmbvnc837cMg733oTFC0CCUX
N9qoHMTAPVnHRVItQuYW94jyAAzOLeBbzGhMozTfq3eGIjBYrAYLn89MI7tH
O+PsrmOAxJ7TK9tmUE5si9XVPAyqO0o2XuaKkWibNWWoEAPJr9VB7Y5idGPE
5O+TFRhMfFh9dKZVjOYUFh4sq8eAP3r5wZm3s6jEux2URjDYH7AWZxpIUN6R
E2NbBRj46p9piP1bgrKCddNiv2Kw9M+4IMunEhQfET7+Q4TBbKlvY8zPXziY
oXXtDRMHC2qbvpYnBTyuN9suZOMQ+7uk0zqOAi4FId8dMBz+LHjz0LCaAlD9
wqFWBYfqRB3zHTwqqLUfm83Rx6GupmFVbQcVFHvU8nuMcGhvUk9MY9JAfuCp
C88Yh6dMI0WfjTT48UW1KNoUBy89/ThJHg34cvVuh+xxeLHZmSeOpcMLLICR
7YTD3q0NY671dCCVlcu6t+NQes0pYkxKhxIdP6atBw78XoHv5xMMiLdQrDYM
wIFxLPhTSKwMRNk88jpwFIfnh5LXdLbIQKiTD+ff4z/3DN1Gmn+RhUOeDw5w
I3DYj5QdnxTJgkXYfkVhEg4DKHdrjoAJGyI5hP5lHOjmotpktABWxNb4el/F
oc1r7Mzt1AWglsKq42fjUKl9e0GhvRz8KKsMri7DwRFvPxfHl4fxGk+18Soc
DG4YOXmasWCkltm47D4O3cqeikYFLOhodtdIf4xDGZucsItjQxNfpulVAw7v
osKjP0jYUNdbGiL/Aochkb87J5QDpaP01n/acbCJq+h+cpwLt8bvhFV14SCX
GJJfLuZClmiXzpdeHN4IV57/Gq0A8YziE398wOGepd+0ugsGh5bsMLSYwsGE
Eup149JPj+PhFqt/4PAxmlogeI9DZO31XZpzOGhPBrLl1/Mg02M8msrgQZHa
lPexUR4UGCplCJk8YKY9iVLcogj1LwyMZeR5UOnld9A5TBH+B4e0tFQ=
          "]], 
         LineBox[CompressedData["
1:eJwVzHk8lHkcwHFHGIqZ6XmemWdSJorSIVRE2/a1QijKtqyscnSgSIhERYvR
tCVHZSgbKVeOaSsl+f3kbF+WKKqXVowcRUPu27Z/fF6f/96aHiccDsvJyMi4
fu//f2D8lsrMIaCjy39+3WkCLxl99EL7PgEyZXLPl68l8MraKmXT5wTUGyj/
QhexcXfpRfXz5QQYnw4x7Xdm4xzx7vWVVQR0p7RNNiiysV5q8x67egJyvggG
tLxZeDBO5JHYREDWuT1aVhos/CDKNehdCwEi78uuL/OY2Niv64bHRwIUPSYq
+MlqeMojJyerk4C2VfHMl6QaLnXyfdbfQ0D1iKxPxDVVDGajbcGDBDQnfIzb
n7EI25AKOpdkSRjb5RrN71LBKxotMgQKJDw5I7S1j1LBM5djNKKUSTCYEEWN
aavgfCUG9yybBA/7k342/sqYNa3COKFJQjhzwec7GgzcW2wbdUybhBrm4X2a
DUq4POgPGS9dEowvVM36RyrhAKnqpJsBCStLEzQs+xRxcwfri4MZCeKiVV66
TQq4IG3vEXuL7/4qfnFSnAKOcUmQ2FqToNKtNe5up4C3NBOtO/aSoHH7wZrR
hgU4pZZTZ+ROwnvhLaMPHfLYrXBpwZJIEhxnj1OdW+SwyXHXNdxoEixyIkam
leTwYt20e8RFEtY7ilOkb2VxRQb/z0XxJHgetg+xPiOLda5rXZ27TQLjMYhN
a2VwX/jqAAkmQUfv7guR8jyqNPGWtlWSMHCGrWFSNodujuX4tNaSYPneS3Y8
cA7Z+a/1fPOKhBndkvkHkllU5Km3r7qdhOunHkyG1M2gYJtNRrkyFNjL6hcY
1k2hAfOsjIQFFIRQcY50/BTy2raEGcagYOZctbDUcQq56Mv02rIoyLaoK9D/
NImAUyf6yqdA04j9+wGlSbRQ4jmrv52C4tcQ33xsHEW1tnjzzCmgGe2fpkzH
0dwb6xZZKwrOTvyrmqsyjgZrNhQ22VFQ1WlwKjVvDLXkT7sFHaDgaZmtYfTw
KLodmlhZfJYCD7EtM1Q0gniBiga3Iykwm48x1PIfQQnHQ2/FRlNww65V3tBq
BEUfPBjsfJmCeh1+0rmxYeRjsXb19E0KvrHlG1Odh9EmdsWlH0spqNM1kAj0
h9DL7CGHqikK7OwCnaq5g2iiRu6Z3DwFwwmFvqK+AaTTs3gFyHPALdPJcnP2
ALqgvXG4ZCEHKvD+IdaKAfRDRmBi0VIOGDWdFPL4UlSUOvI69UcOeOzf6Jim
14+Sr4ztC7jAgccbJpjv03pRdb7i88IYDkRf8wlV8O5Fo3Uc7a9CDhTVG2TH
buxFDguNR48mciC839f0yssetCg25JprJgeipLV3Aie7UUTkRPPOag5IbdSr
7hztQl5BU458FS6wbn52OhQsQfkuAl1SjQvjA8uSd+2SoKGfyBnGYi5IW/z3
H9KSoDC2XvoQjwvJD0va+Q0d6EqBe1+VLhfET2JqHq3pQI96a88ft+ZClYsZ
9fD1RyTneiP7aSwXhNHua+MZrSjVYtPUz0o0BFzXU5Eub0K5+U43yhbS0Bw4
FFb0phE9ocI26bJoyGxRr0mPbUQtXeV+czQNx2alLqrfXiFWjH1n9hoa3Fnv
yXZBA4qp9qmb3U2Dou/4dlvJ3yjAKj0tK4mGap9+9SM15SiysHLrYhENsCNv
r59xObrK7X0XfosGJOwyT8/CKL9Hj3C4R4MhddNIno1Qr6BUMFNMw0gcbcxI
LkEHat/6722lQXCOsyxXLEa++tOqpR9p8NumfrDsWhEKT9bI0/lEQ/2HltNj
wwVI5HW4a7qfhrxvpQ9ronPRG8aw8725737KUOPO++mo058zzpLnwWBMwkxl
fxoaemeSFKbEA+0o63/MI1MQMyeifg+LB79KZTMncuORBjvz2DOSB21PHq0z
jBCidaE1DB0eD5z1N4r/yo1EWzu+3L26jAcnys0Sce5JZGOtZj6tyQN5kWV9
5+b4sv8AspnHKQ==
          "]]}, Annotation[#, "Charting`Private`Tag$24023#3"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.922526, 0.385626, 0.209179], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJw9mHk8VO/7xscuM5g5MwzZRRFZkj5CPccSIUtJpA1Fm6Ioa4sW2QqJNlFR
ZCmSJVK3RNasCaVEEqIzY5fle37//P46r/c/576f67ru+zmvo+Ths92Tl0Kh
qPBQKP/3tGiRIhTspKDA/ZinQxATlxXb1dmzVQr+1DXvHtvNxBcG9PVmzaVA
6Cn/tehcDB/blt4raCIFZUL3ZeZcMfxbOXadtVEKPrr/jrakYjgk/v2trS8F
/y19kP/jx8Avb36a4qUqBWc0ZCid7nQcooMdFJSkQHe7ds8xOTo+32LD2ykr
Bbe+8/++WiSO++0b87RiScF3Fdmq9FIx3CNAb40mnxR0KK6VPU/Q8JRy/u8/
F9mguWX8R2g4De/i64i7P8cGp1srGLcVaLhDXOCEGJcNWbXDwg9cqTh6Wl7G
6WWD55EVR3KIZXjw3+vHs76yQZHDDDFOXoYX6bspHOhkg4HUkREh62W41jve
S+1NbAi9dmDDXLYwLvvF0rr4DRsmKD6maleFcBcl6XmfUjZ8STDx8DIVwm8e
Gs5VK2LDJ5WxbpslQZw6EcO4m8sGSrRxdOtZQXyO1toZmsyGWj39ItcYAXy9
Y1qU/m029Ps6rHN1FMBP3fE3Hktgw63sWHayjAA+pMp+sD+aDT9VnI69ec6P
d27ac8g0mA13eIw7Agb4cNaVNdL/TrPhVzaUhxXy4Q71i3UFJ9lQ0lTaGR7O
h39wfqileoQNJo6MEE8NPrzI99ekkAupV075meLzvDi3qDgDHNnw1TGp9ctO
XlxrIWJXkD0bHqZIvP2gxYs/jtQoH7ZgQ5pdakNvLw9+85Hv5UZ9NiCmXlW0
LQ9+sn0OS2CyYa/pFb0xcwqetN3e9aY4G+jjD3I91Cj46+a0h4lUNmigyUhr
GgUXbNyqc5uP9ONUxfX2rCWUXJVie39cEnyNJrm2XYuopsg0IqNNEpJHyuOO
uC6gsXW3mjKbJMHQTSXj8ZoFxCwYkcyql4QTuiVG4TwLaN/zm49zKiXhvPoo
RS17Ho1n/HqXXyAJm4d4om8LzCP5O1ELZQmSsEe0bgLa55A5+7t5eawkTG5m
3BvJm0NHEvVi3kRLwusb3JbYa3PoZfzX5RWXJMGoRPOg8ZY5ZBWlZVDtJwmK
K3dQR9/NIv+Q1lPNjpJg0pRuKtIwg+7OrixtsZeEvMMUzV/PZtDbgBCeNhtJ
6Lz6LVP+xgwS8VeJ+2QmCVs8pwJSd82gVO8zud16kiDTsDBa8mca1e1d/vsn
UxJaLEXfr1KeRvapxmhOnKx3KiguTWQatffuSxKnScLyK0u/Do5PoZ4DaeaG
/JJQP/EIvayaQsQRzYexExJQ8ESJcez4FGKf2eRq+EkCflgP1PrVTKLkYrd8
+xYJeJP9+OSXl5NIcfaisGejBCwe3TwQ/HASrQ79UBRbJQFGs3Jb94VMok0X
HZgDhRLgY/f5TpruJDp43aMhNkkCIozMUpIyJtBQ0+UVj29IwFEJ7fHVtybQ
CUZGcOl1CRj/1jv6J3wCBdwcURsIl4DoNpQz7TWBou76XzEMkIAZZ7cSafUJ
lPckfNOAswT0F22pUC4cR/q/MxPnHMn6jP0nnDLGUal6/R9xBwmw509VfHZn
HFXmiN8z3ELWT57hNJ0bRx0vbk/HGkiA8WOv9XXW42jhTVaeobQEfLCOFbMY
4qKGbm3aP5YE+G1pl8v/ykXJUy8PldFJPZTMqabNXGSs9VbeWJisp/VtsK2Y
i4Lvt8VsnGbBdkOXnpwILpoKmT+Mf2JB7e6xT306XFR9K+w9pYUFLTZ1e8+v
5KLEAkHFigYW/FxmpGAsy0XrRuifTd6zYMemF9ISwlzk56q62ayABTbzAu+M
f3AQYWCnZBHPgmOFzkmqdzgIdrSFCl5jgcDJJlZ6HAfF+rp0VkewoJWlFb4p
goO0Mj1iLS+wIClK2Lk6gIOOswMWtviwoKzj5TkZFw4ankztsrFlgTU98Fiu
HAeVMlT1aVYsOEQvSWyR5KDINVlxDeYsCE5beVqMzkFqni8tbY1Z0PPE4VEL
Lwd5tdcU2mmwIFIxUzhoiED9Lzjx25axwKNYhaZeRqBkwbmLrgIs6JcaLFAs
ItBOV17/Azws2O1TXqmRT6AaHubO07NMcBszzgvJINAzh3XL7wwx4ZPdnsGl
mwQ6lG5MfTTABIsuhenYOAIpzpjPZ/1gwlltj/S1MQRKSHX69rqLCX8Uq4Of
XyJQ4NiZR721TJC318647EcgXdPzCUNVTFi1YlA7w4dAw4lXL3MrSC6Vzvxy
jEB7N9724i9lQtrnAXbwQQKZxrxarZbFhKcbD/ZF7STQv+8VMrpPmKAwsbPF
0JFAL/XqaIaPmHCST1R23p5Aq750j9ncZcITrtXFF1YEoq2ef+ETxYSPR158
+rORQFVn+dMDw5mA4WX9qkYEOtdCSwy7yIS774xafQwIxAmUC0gIZkKhzoD0
ej0CdXzYZFR8lAkmfK6/o9QJFCdjqQleTPhwVjbGahWBrHzs5Wo9mMBTO5ot
pUqg15JuS92upH77aet+KxLooWdY5aI1E3wfLLe0kSaQ66vIl0KWTIgbaHsa
wyYQS/TGY7oZE/Lzvmz4JkGg8JePriobMUFIJRfyMQLhwtmBGv8xQc/veYYe
g0CzuwuOrNNjQscn3+QqcQJ58723sdBggtMx5QRpUQKpOjcY269iwka3T1e/
UAn0Lat9jcsKJlC3NvjkihDo9uJXeXcFJqxV0d0cu4xA27YPiB+VYcLlpLO8
YcIEEnkySvFjk/1XBz+6KESg97OTnBAmEwpETRRvChJo/UPB9mtU8vz/WGm/
+Alk2HSy1kSICd89Q3ZJkbxp4eubSV4mBKqcS9nDR/qnseXl00UMzG5/P17A
SyCLXQVP985h0PK2sVKWZOur8qmMKQzu8vQl3+YhkF1h5M0qDgYi84pTK0ne
3j8RGTSKwandcw0fKARyZridXzOEwY/CLQohJO9B9f4/fmIw7L1tBCfZ7fj6
o4m9GGxOfK8tTfLBew/3W33FYOfP1yN8JLcq6Z0P7SLfv+GsFC/J3tMB1vlt
GJQ8fV1DJ9lXtR95NmEwvUtseC3J/o52+tL1GHzPDLp0iOTAsFerG6sxMFyl
lfSM5NDnKoph7zCowKpXCJP9XuiJldB/g0GGt4WWP8mXqf9Ehl5hsFxSoYRL
csQGL8r9QgxiuavfXyLPH3OoZdIhHwNxep7TKlKvuETjEf5cDPZ/2u/bQ/LN
yozekkwMlNY7Sz0h9b3NwTq80zEY+SO/PUyAnGeFc/WKD8jzlWUr+5D+PLAd
gvZ7GEjl7Yv1If1LD9lRFHELA2U/gZSLpL+ZT99mGydg0Hyre0cm6X/O59UP
iesYbJi8UtpL5iNPICkpPQqD+/xyHRo0Ar1y9w6jXcRALDvKdk6MQG9iP5+B
sxjICL98dZZOoHflpt7+QRg8ivaZZ5J5rZOWdv7qi0F4iKhGEJnnj5aXt8Z5
Y+CcULF6C5n31tN/TcwPY2BnnqO2mpyH7pYqzZz9GFi4Z9uskiPzuqSj7LYb
gyFZ5QhTBQL1rUlms5wx+OaeyPFVIvdF5CneUDsMLGfXnRdaSaA5E4VOm40Y
bP8YtUxOh0CLPlGNSwYYyGWMarWtJRBvyuS7gnUY8PT9mUjWJ/M9V58ro4lB
cO6Nx8fI+Zd5EXhpZDkGos9TI6YtyX3W2x+YKomB4osXKVttCKQiZn/CEcPg
ZGbPYKEdgTSPqu4qW4aBUdN2ryonAhkrt2pFzzDgUvucfze5rx4wqescJxhg
QHOqgsME4hMw3yBDMKCY6mNY5k3qM1holj3IgN9SVzh//AnkknvHpb6DAU4W
/1lahJP7I6V1b0IrA1Lz5o43RxFIIY56YPdHBiQlPbnsE0ugX6fOHh+pYkB3
2lvOn9tkPg3cL1ILGQBe/v8GcwjUqX73alseA3Z4SnyUfUEgI5m2mHs5DJDS
7D1/qJjUY9H8lkY6Axx7qfzoHZm3SrUcmwSyv71LlnOdZB7siE/RJxmQmbG8
sEKEg+i4+hfH4wwYcFul58ngID9dj16ZIwwIZe4dVpTiIENW+3C2GwNqDMYL
fqhyUE1X8VK9PQPkvo/lXjPloJ8Hz6vTtBhA2GnUvLrAQVt2lmi1qzNg3J6r
PE3eh9mWHL1kVQbwvKd/to/noFOrD2zSlGPAnhIHvR2POIhCWDhupTHgnGPO
1udVHCQbInY2ZpgOJ8LkxQYZXHQkvY59/xcdnHQ0NlrJcFFRY/iL3D46eCo/
rqlW4aJtikuDH7vpoMQv9IdlwEXhVX+3M+rpoOWotp/fjYv+ireoJWXTofi3
ke2xQvL7YcO1yicZdPDOzj78CLgoysNqX3EaHfL4Egxn67lIpbAiofMeHSTE
ekyE+rnIxfXF4vIYOgQ2jQzlYuPoXXpCe6o3HVR/Bz05FTiOxD/a++QdpkNH
5ZqExivjaM80VaTiIB10y5p7bBPG0bTVZdS3hw4+YTe04Nk40vzrn6ViS4dn
A8djAwbHUeKGnReerqFDUPOEXpLbBOrzwGRK1emQb3hwIMR3AunEfCysU6VD
5Gn3/dcvTKC6bxYjI3J0YKocaDd6OIEWL/23U0uMDkvdqw7U/JxAzcm6Ll49
4vC2+PnkmtOTiJLuk9TTLg5XFoYD30VOIp3s3PYdDeLw4Nl2u1spkyjulfo2
szJxOD1x/4FA7SRy6FCyVrwjDoxz+1rElaZQszhm3L1DHOQ5ufcqv00hCtsh
eNtWcXgvcoz38/QU0pG/XlJjJg5rKU1LRoxpFKcpol+8Vhw0XzWNLplPIwcr
Xq2bdHG4IP0gMjFvGjVf5CrYNYhBQa3MFdM7M4gSpbOvqlIMhOzk8mVKZpBO
/Ilk4zIx+NB1SHD/5xkUlzospZElBu+n3bM02LPI4XUfQzhCDK6ITvYzk2dR
82Qr3zszMTijpFrNVz6HKAt00w1GYvBqum4muH8O6fDbX8hbKwaWqtpHL4j8
Q3FY/XyKkhg4+A1uNHH9hxy0KydDlkQhfmnEe5Qyj5oOFwzql4lCF/OL18fj
C6j1+7TDpgJRuGga4uV+bwF17DQutcgWBe/NT5Qf1C6gr+ZVMc73RGGzSA+v
ttoiGlb8rBsUIgqTVN+Af6OLaPSWzL0wP1GoY6k17lBaQoSYG3/UMVEwd/8q
GOS0hKbnf3fc3S0KZmm2XD1YQvxdcyGvjURhcPzC0D97Ci7sgAbe64mCXNfr
RonjFJz64ZJdo4YoMKcGqzOjKDhWSFP6JiMK2WLmFps/UHCFePnqpX80sMp7
8DrHggc3tDKlm72mQawTRUXbnRffBOFBNi9p8PygATpwlRc3+a++zzGHBrYo
Y6X1M158i+qOwoPJNGDErgg1W+TFnXi8XMNDaTDF47jCP4MPdwnMqrzuT4MP
oci3sY0P3/N3TPOWNw3UNZ/m8vPw4x49AUsZe2jQP+hyc+U+ftz3VWR6rTEN
woa6smdXCOD+Oh9FW9fRYM9a4XheFwE8IAML6NakgcA1s+crrgng5xLvWY3I
0iD52Yr0ljkBPPpk7hhtgQp959z1Bn8K4td/c5wlJqnQnyN/pFRZCL+xf32F
3CgVKEOWEVPuQvht27cJWj1UYFgYNHT/FMKfqLcYOJRTYdj+jkfjgjB+eFV+
xYVCKgzN9nn3WSzDV6vGW+fnUqEmQTsU4pfhzxS37cFSqDATVcJZvkYEL2a3
nG8/R4VHvd+6HEKpeLBEvrBAABUC6wdr8z5RcWNmfLy+DxU+i5g+DdSl4SC2
LS1pPxXszrLr0wkaXiPQUu2CU2E0uKLpfJwYHsWXbx9pQIWiM+WX1Cji+Fae
+M5XOlS4EnF5s4afON4y7zC8XIkK6EK43JguHb85p+NnI00FvqHMpL++dHzn
DH0+hEEFjN9fcDyfjnePN4v28FDhh/wGlYOGDDyZk5ckOicCZQ0LqsIXGfi+
v3EKm7giUHTpkqhMAwPvG3bQTe0TgdS6AxnihzG8zf6x3bI6kf//X/Q/N+65
NQ==
          "]], 
         LineBox[CompressedData["
1:eJw1mHk4Vd/3x++97mTM2GRKRTJkKklFgzFKqU/5SBIlU6hUMpSKkjSID6KI
jE2UNAhrS0koMiRjhAxF597rzve6v/P94/fXeV7PeZ6191rv91lr76PjG+Z+
hEQgEJYQCYT/PWcyXVRXRNHQ8Fi4xChSBUVtzoHOYBoSmIwdV+1WRoV+22L+
+NFQwJBZy6+LyqgtgWNF9qKhoGWbsSdmymhF047nFq40ZJ+tXXchQwl1uksK
bhvR0F/3xrLMOEUkiXh06OFyGjL3o1X+s0kRGWTs03qnQUNzSZc155EUUVxf
WQZDjoboW/bYrps/Dxkf9knaOU1Fa4dDlwz5yiOPy3KOAWNUxFZ7ZFcklkPx
Ja+l4gaoqC3jnrpVthzq/aMYW/aZinR5MvLbB2XR5VN1YQpPqUi85vDpsAsy
6FnGMSO9Iio62uqDqkxkUP+bRZMbc6jI1/FFneKQNDKfO+577AYVwa+KDykO
0ujH5aX/tIRSkVq3Cl96JR3JlH5RGvXH118fv6hhjIYsm6O+CL2paMvavAzZ
AhpKntfhaOhGRYXh1gsleJ5WmZesk0yoKGbUwG/jWiryqzLh5q2gIkOvQ87s
OQq60d9X8UabipKe+ef1f6Sg0SWrjSfnUdHx7SQ1tQMUlFI6qu2EUZCXT+7A
pjQymqqyp1CfUdDiPlDSMZFCj1JeNZ0soaBNBdNWH0lSKCRg5a3hXAqaKfKX
2dFNQtNq8uo1NyjICauIG71IQlh4p2lECAWprD7kkDJCRM8cHTjDfhRkF/9P
bEYNEZ3Qev3WbT8FkQNbCnZlEhGrOdvBcBsFzf24K93qRkQcPT+vnysoqKtj
/fDJBgJ6Je7U2alNQZrR21RzCgkostNhvGY+BU1qqz30TCAg/gWDE3coFLTC
Yqo+xoGARP2MKztHyOjdwwWfFXIkQEqNq6jNIaMV7a75NtNiqA9kRhqlkxFt
/OlxTpUY4jcdtsm6TkZ7VPU+n7kqBsqM46dTMWRkWMwc+6AvBrrzvB9GnmTE
EWjd0QwXgYLknky2Ghm92L94KkFLCK1d89ro8mTEiFo2LssVwK3HF/47TSaj
rtE7DUvbBKDkeWSJO0sKmUVZaPEuCUC10shS+qsUUiWQX3IZfFAPfnvoTLIU
Mv5TMWUxxoOsxkYH+XgpRL8LT80aeLBY75vhg2gppGj7+3RGMc7DGPtLkBRq
OPpOOS2YBwv36SXpOUuhgNnNj5fyuKC6NeV5F0UKZSQ4J29cyoW0+zkZwWIS
erG60URM54LK3KMYIpuEpiw3ieQwDii/aXAwHiWhbteYVQuBA4omot74dyR0
6Wbo+mofDsipH5VafZ6ELrqU9zk9Y0NyZMTEp9Mk5BVueTDhLhtkv134fDCU
hOoPNq8lJrJBJuVuxrUDJJT4a21gxUE20GnthiPrSYi85pLzlBIbKKwNe27z
iOhN9gcTVtwsxO/ctk4fI6LREZOK92GzQH66T6t2nIh0lc/5fPLGOfDExOQ3
IlJ7/q40cOMskH4Ux2yuJKKZvtyXsyIWzDUpF2LHicih9DZWEc+CXZl6lQuC
iMjvmN/MkTMsKDhi/cHGl4jU39IKNwSxYBvBdyzZnYjSdvmW793JgvQ1z3RX
WhBR1q6L9eZaLDC+71Z0aJaAXLBXxA2ICXHH/F4m/iGgrYtH3BQqmdBufaah
bJSAsjJYnZJSJkR25fwSdxJQ9cftu23TmPBeZkYvq5KAWsL2KekHMcHrVHJx
+2kC0oCYb37qTCjbcv8VP5SA2qhJLnRlJpAUX3xccpSAUNXc6490JpQ87BsP
3UdAD0wepqRzGDD7w0Bf1oqASmU8xcc6GDD/v9u7rjAl0DDk9bIzhQHVJlXH
u35KoCrb5q9CEgN8m4ZTlnVIYPeVld0+FxnwRGLaDhUSMH90X7ztJAPsglrd
eRESCG750mqxlwEnbeX2BHLnoO5LtobFEvz9Vkjw+zUH9MGKXS6L8PUcT7w6
0DUHkxByKEaZAa93fF/sXjEHEfaRB/QpDBAdKBi2DpsDJTWq/IPfGHw+tE9l
jfccqLJO740dwyDniIy9yfY5kJeo6Yf9wGDTsfCSZYZzwLf83JjZgUF8zIYw
uXExPKigTUmqMfgn7u996jcxrI6q+Pf2Kwz04vPbCR/E8PRBiPH65xg0XqNb
svPFEMV/GN1ajIF8dqdowFsMGpW7zCSpGKS/CUkq+yaC3OmDDJ9wDI7WaFeX
fhDBpFyko0sIBlZ17dMPXoiA2xRpvi0Ag95Gq12Zt0WQvNr7aIIPBlrfyQsv
7BDB8Ia45pldGPzte+UcvVEEDbWdW6N3YIB+BEWfMhJBviYhV90FA9/xtsFA
GRGEbbz4NMMOg2LO3UL3BiHwd29cGm2FQaTArdu1Ugg1/7bcK1iDwbY5krRj
gRBu1uoEDZtj8IcSGLL+ohBOF2lVphljUCOtkbPmuBBG3adVZQ0xuCHf2mri
I4QT7C9X0vQxMFVbY7HcRgg/p9VDh5ZhQFw0cVjLWAi9cm4N+ToYtGtkpy/U
EMKwyTLhGW0MIpYTBXICAeyI0PrkqY7Ba4vPiF0pgILQwQqCKh5vwXUn5SIB
tE5YekQoY1AicG1blS6ArMQ12jxFDDLrWn4cPS0AEnGQa6KAgWJh8tF4fwH8
51EuHJHDIDHR9e/9vQIQGJyllshicMatZa7HUgC7vKoW+khjMGOefJmjh8dv
HVbdQ8fAf76rgsoCAbQdOED0oGEwyJdNN6EJoCbAtSeYisHegWZNVy4ffnZq
Zt6kYPAFXSsMGOeD8deb6+rJGDgUuBgndPNxP5S9oeJce0W2Mu8jH8bO9qh6
SmFgGdy8ofYVH1o2vHasIWHwdMe1973FfMgNsHczxVnP3MWVm8EHr4lG/Qoi
7k812U6VRD5IZr9/tcd5Pr9pv2kkH/x5/zpNEPD69yeNuAbwgX3yXFIWzlS0
LTjQgw89Uw3pXjifeyDDSnDiA7mNGLIKZ/blpqh8Kz60nXGRVsQ5JCiJBPp8
cJRXCCXivNDYbo9Qhw9ZMXXT/2MvMxllHp0PW14bXlfBuVO16Y4qnwe2+kOO
q3F25V3VMZvkgawtajqM8/s+59LtPTx4avV2fiHOG0DaLOgTD2JWKxizcX6R
/+n15Tc8kGy1m/cPno/R5aubHpTy4HqsJbzHuSDQuRHu8CBBWc7WDq+Hxnbp
nf1XeWAfaJ3SgXOa6adu3lkeNFgnvD6B11NO9epBtSAesCvmXung9Y7nOo2b
efKgNouWOoTzydpGTpA1D5bVdk5dx/Wbyks8d8WABxspY2ExuL6+CU7UgsU8
sLbQHI7C9Xd3bVQbEOBzqI16t1gGgyaTxHv8KS48qojDunD/bFFx0p3fx4Vj
UxUOqvIYmPd+XO32lguf4l2U6uZh8LDmSnXwIy6IZ0W3TZQwWJrnaJeYzYXr
J0lmT3H/KgV83F0XzYWoWN2hPjXcny5X+gaCuRD+RYt4bQEGBBNHP8F+LsyL
Xu69bREGGLvhhMUGPH5kzl++BgYBPZcFbkZcSA2+ajmlhcFQtcPFEA0uPBwK
HZxagkHbpYaUQhEHCsrentXUxaBMqaF8QQ0H7FVWyzuvwvPzVto29IgDASPH
2pimGHAeeo2UZHGgzyN3XbkFrpcdS806kgPB9Cpb/3V4Pzu9JNrLggNWSxik
OnsMguuDVXWXckAh7nmvtDMGCoqvnkwrciDm7fiEvysGe0q3D52bweeo3RXB
gd34/vqi7PNK2dBy44/rFl8MLuk3DAZmsuHCM3kTE3/c76eUIs2vsCHjuTbf
NAj3o0LJw/rDbOiiG5ecPIEBb1PXvF/abPAgeTryLuH1KzLpNUifhWM7byxb
8Aj3EzPqJCt+FlDn670HyzHwsG2Qqz45C3x50ZbaSvz7+e5lu33XLOx9suor
QhgYyCYVhMnNwgj5QEV/N65n+Gjoi4ss0COIfVJkGDBWbUKPPc6CN//yOvcq
MSBROjrP3ocF9l7h59csZMCXfKXObxtZEGQYbm6rxwDPLpt1fB4TXiCm59Wt
+LyyviNlE8YE2a5Qse4lBqSlqffv9WYC7YEiL/QaA17M3HsRtp0Js805ER2p
DODk5x/JM2TCqHbvwN8CBkTKPv5InmCAZXGHcmwjA871115r9mHAfUlqkY4a
E3IsNx8edWPABtdnoZu0mQC36jeIbRhQ75QyfG4lEwj2jdOrNBmQXCwU7rdh
wqUnX91u9+B9rk+/NjeQCYnnRlX+dcdAtUefltmAz/Pv/n+Ob8bAZtzg1vd2
Jnwyn3yfhPviRXibjc0PJsiMT5+qxvuqeaxTQRSe5+LcmTLb9L8gk/ZqUb0R
C3Q3q1p9vjIDgWfFIey7LPBnL5ycOzIDWSVTMtWPWFBSqpllajcD25kXlcuq
WGCgvEKUSpgBG25CrEYPC0xH1iHPs9MQu6pt5fKFs2CdcNBpIugPZD0cUw3O
nYVPvNhCb5c/8N8RSoV0+Sx4hNwldRn+gXnrCYHdaBZO7e6prvvzG+i7JkJJ
I7NQrrPbLDv0N0xIimuKV7JhRa3D4h0npkBUuIkHiA0vzY6cee8+BV68d++z
O9lgV3ip09piCk7Rp92eTbDBNxndWDE7CRezv7xLVuJAjqe1FPH0JNRk/tev
7s8BVS5+Ej47AT7PdTne6lx4EOTqbOA5AVL59803WnDBfDCo6L71BKhsUSj1
c+HCzg/FPteF49CZbnTregwXrqXqdPnHjsNMkGFRxE8ukEzVahdd+AV3LR83
5tbwIOWBhfqtQ7/gvmdc4s1eHixZ4B5J3fIL1O+PF/Rx8b41d8OcRfoFL4L+
Em9a8CGyhV7cEj8GH2bYxTfK+PA3QHTzfOIoOMg2lke8FUDnUzPFHf6jwPO5
eZ0zLICqWf9bGnaj0LLPiEqTFkJ83NdbbyQjcPSsROaHhxAWZxalsE6PwOHE
nJhaiRAkA31K7/aMQEcR1kkzFMHoMqXbt8xHYLht0pe3VwRlZdG3jWd+wpa2
reoD5SKw+7gz9eiRn2A97JyqcUwMK+Uvq1hu/QnV+f3XqDliUNj9NpWs8xMI
3mURL1vF0DOom5bXPwymfJ2nZ9fMQShHkNa3exiy54rPK8pKIFO3MN1tyxAc
NNcNu3acgGKDe+drLRmCJyPt8QdTCOiDr/aqHuEP2F8/wXn3jIA8o2ZXqZz8
AZEe2BkH/JycUJpjeuXQIHSsffz5cRwR7VwjbbZccxDWlpCGjhYS0eK6k2Z1
3wfAuTVwsL2JiMq/O5kL3QZAg/vyY/MCEuqlsSzCbPpBKXznzZ4qEipIPbBa
TtAHA8K8VQ/GSChMu3F1aWUfaHtsoDopSSHy2ntrRoz6QCHhle7GYCm0yt9x
7T71XlgrV+ubaUBGl95nW9vyuqHYe0DBfJCCJr6sSz3yuhtqotBfl/lUtKOn
+/e1yG4YrtxDysXv0YtnVO59530DlllI1KIGKipfkCw5zu8CZ+WM1vR6Gpq/
1MAj800XaC6dK3lKpaNoo8by2rNdEO1QTvd2oSOHzWRfWUEnJAzrh9f00NFA
UMz7AkEHaO7/pmQjJ4O2nFqs2VzVAXSzl+afD8igkvOvTzGiOiBe5du2mGcy
KCJtVs9G2A4BhdHzbx2URTK1IVe7hV+hqfVAsX6PHApvlPkpfvsVztcsi3Wx
kUdd7SXWy2O+QgWVunZ/kTy6Pz76O1zUBsNnhtd/OK+AQpdW3VUVtMJhnSyp
SWNFtG4tZ/uhqFYI/qmMTEIVEdnVXPJE8AV86r9r3ihXRNmnHh5yFH4G+ujW
ItF6JeSf9Es5LfozfDun2+yQoITMc5e+HxK2wJ/HcV0aX5VQY2OWXpSoGTbm
vSXywpVR6sC37oaYZjgctcfA+YMy8mYqX1URN8HPqBs1tRoqqNbK2PDXuSb4
//89/wfx5NYn
          "]], 
         LineBox[CompressedData["
1:eJw1mHk4lO/3x2fGzFiyEwope1JKouWjc1NJKEuWFFmylDWEUBQ+SiFbJesn
FbKWJG2ShOzZ2yyTbFHPzBgzY/093z9+fz3X67qe637uc877vM/93Jtc/a3c
SQQCQZlIIPzv+S7ZU29zRAs8c/F2twiTQMU1TW+z5lqA540jvUhRAsUpq5vr
k9ug7WLVDOYtji6cHJQWTmgD/xdDR1+sFUeuyddHhiTaIViRTCyuF0OwNBlw
RakDPnz53HFWRQwtTVm3uGzqgqKfMkp7BEQRk1y2zcS9C5o4tw77poqgaQVK
mvbjLvAAun6GpAgatHl+imfHZzBrK817oSyMnr9fO/sQdYOimG+nhb8gKv3u
a5kY2w1dzYSbE/yC6CH74/Pg5m7QFW1z9yhcg1K3hkQaWfQAITVx/P60APK7
1y8y6dQLQowHF0Ru8SP3qm0Xuh70gm2Jpe4XfX7k0Bk3WDPRC2eYxJA3f/iQ
KUXvfrx/HzzfmPkkypYPqQfc1d4S1Q8JnMS41X28SCHh7x2JD/1w7Lsilsal
IqnCw4uL1AGoPrJ218saKiL/YH9oSxqA0uakPVf2UdGo8Qkbv9xBWNO9vK3A
koL2/7rk0v5jEIAvV01gAwVlXr3vqyn/BS69Ll0I+01GVq+m/53O+gKHNXK3
no4no/otl6s97n0FweTNo/5dPGhD8/36j4NfQWdNarjnQx4U7tbYoSzzDa4Z
BvLqhPEg7RyRCdqdb3AkMU1+lwoPyhfOl3ZK/w7ZgxxDwzgSWiluVKrt+Q5R
WQ1/TJxJ6OTh31ryEj/Amuz4cnUvCYlf0TH+lvIDlrfbnndgEFEMvfGi3a0h
uCQkmRtwloi0p1kzaodGwKZNv/u3HwE57+YLGnAbAc1GzYk5SwJKilvPjYsd
gXtEfc2gXQQ0rQiU8Q8j8Ke6dTp+cRXyT12Xf2g4Ci9Dz9EYqqsg0b7+2EZE
A7e3O1bC8pfBUHZrb6cTDY6mvbYTCV6G8+fgZFQUDbStKNmmxsvQRnHzGKql
Qffmg+0l2BLE7i+LzNb/CUUU0tQz4yWYq4AKmX1jEG5Z3ugtsQhtW/aJn3cc
g8j+G7ICMwvwoFA3uClqDFZgD2nPxwWwytu6L6RhDI7dirusH7YAT5Nkm3qO
/oIDTu9G7k5wwc+XPZTkPA7WyXKil79xwGiKYTAePQ7u62SJS685IO/+56H+
o3E4430zZzybA20Ov7xmpsah0GEylO3EAQ2znvkjQROQOFDj3z/NhgmNCmFK
3CQ4jXJIG8XZUFtQHOBQNAl+Bon+KZx5uKNY0PusZRKkq0+G2gzPg9H6nExX
kSl41RD6T1fZPDzkv6lalzEFlsp1jn7H5sF50mN/RMk0PNxuLGiRw4Ldbq73
u9unIcTtkZ/TdRaIjDiSNbBpCA09/qUiiAW1A9Ytgzq/QW0IUxI1ZYF8k6Gt
bu1v4H+wRbp6aQ6+PtrgR++agew8h0+jXnNQTS21KmLMwO3Vox9n7ecgzXOP
npPkLATMSh/QPDIHZputCe12s+Cj/9Jgv/oc1JbGpxYNzULJ9+nTjyaZcP/Z
XLXTzB8QDrn+lhjIhEjJ6Cwp4b9gdDP+BHaGCSeDRa60a/2FymlGAZ8tE8T1
NI7sC/oLtzMso6r2MiH2ldM3qYW/sGlo/NIMhQlVzr9Wx2MwCInVkox6wMB9
QTOwPh2D0nfZWO9dBiS/DxzLeYTBj8NnJ44mMMBXkfDJugmDN4ObXhcGM0B1
bH1qvQAdJHUFAulHGJDhaaGcm0KHoKvCKbc5dKDK3L0Tlk+HEmJ8B+sPHS40
/+CzeUaHT+766hd+0cFys/fsmj46tF/dsaGlmw4Cv/+tDpNhgPXL5L6ecjpE
+L02tsljwNoxGyF1HzoYAstNuIIB6zwb33S74e+Lal1tqmVAZQPzeLojHTKe
5r/cM8SA1Bmp5FPmdKiei9fYIM8EGRPCB9ZOOjDCTwhOZDJh1+adR/SIdHhl
mqr+XzET1LvfYfqLGFyVazto/4oJsjY8yvYsDERr4XLrFyaEIpuStikMthHV
/lTIzIHc4c8tD3sw8LrG6rx4Zw5Wd+f5rBZjoH1Ca2ZHwRz8ynuXgwow4Kqf
4/v9fA46Gl8mpN/H4HrLd+TYNwfG+pkGFzIwKBBqeGogyQLTqShf0WsY+A0t
ty8osWBYtAwbi8ZgV4Xe9LOdLGiuGQhtjcSgwaJEUfU4C7jK5vodIRiMpqWm
CaSyoF6r7lyRJwZFbm0VH+7jOiymdQi4YXB+F7Xt0lMWVD35nBHpjMFKfxj5
bxeu43ymeKY9BnLrXYJ7RObBKiv6Ta4ZBmPTmSkJCvPwUyHJ5cYRDEpe95Yd
0pqH4sFvY3FGGOx1NB5/gfcJVWD6SCXC4MR/WnbZifPwK8t0sWsXBnO8Qy6P
c+dhWMnCd81ODJL9E3yqK+bhxgXrHfbbMfi0f+pq1+d5sC7/dH7bFgw8Cu4m
/KDNw9EmmY7n6hiQhI3uTjPn4YOtooGFKv69H/mlZCk2dD9X2lG7CYP+g5Yv
xNTYUOGTmZaigEFg6er7DbvZsDjb1B8qj+83wmFg90k23LRU7by0DgPjnwK0
Q95sYKo4+WZJ4/GZvJyxusQGqzOOtW1r/xe/FMk3lw23wiLNPcUxqLnaIBhe
wYaPmPylLlEMrKcCpa/VsSFjIVzHTASDxJpOzfs0NoRvkVCNEMRAY2OkXjmT
DW5e28y3rcGg8Zqm4WsyBxLiG38y+fF828bb9aly4FzRx53VvBhk1uq50vRw
lnKlVVIx0FUd9/lrzIHHSb9o7ykYdCemhy7Zc0D2FkPrJxnXA8swmt+bA9IJ
6Q1SOAs40hOkLnHApQSyHXhw/TTk3VVK5MBMbFdlFQkDQ81j+dtzOXB86iZZ
AefhtKVS/QoOCJRvSMoiYnBpsfiFSR0HNkflmGngLHPGvt7uMwdY1bH6rQQM
qlp4291oOO+tOR2Js4V29UAAkwPPT8eUH8B55p4bLZLMhQ1tGVtkcb5OlJi9
uZYLPgHifWScZbYetF7cxAU1e61WIs51Xf6kAj0uyG3NLRHG2WH3BqFnxlzw
3DQ5uA1nTl6bdJ09FwIEqTtdcE7njVBs9+ICd3zt60c47/DfvPVrBL4eOztw
CeeO/gG9iQQuZPy6dsod37/X/jjDuRwuSA1qXBzBmVqgc5RYwYWhFINWXzz+
fKGfdsJ1XLh176+dEJ6v/cEprrKfuVDrVrfpHc5fv4OvOo0LWvGFmjF4fkMO
/gndxeRCPZNw2R6vh0RpdrQheQH4VVKkDfF6PZEwTTRfuwAFQf8S9fF6mkVw
7zqoLoCD9QVkwodBrIltWYjxAkwIl/RlCWCwsZJcE2O/ADTD7XtGcH28Wfes
PtlrAfRCtgjqCWHAmhQZLE5YAE33NAU5XG+pFrW0FzkLYJqUfr5YDPebGp/Z
hvIFsA/fZWUqgffLtU+k4a4FiMtXm22QwvMp4v3i08gCBGXKP7ssg4HlXUGf
KmwB3PLKm43WY/BPoXlfvOgiPDrXSxXYgIF4U1+hjsUi6AVpDtvg/cVnHuqg
4LwI7O5yrVS8/5b7ZcQEzi9Ch+vPjcMaGEyOnwofvrUIIvxnJEu0MHhLpZnd
6FyEJoUD2YJ7MahMiiEGDy/Chdows85/cP+RUql2+rsI+2TjyA8Aj0f1rMIu
kSWIL7/SePkQBmeN/tCHjy1B0ZANkKwwkIxbuLOrYwkOnN9ebuOH61s423Tj
0BJsTl0XsT0Qg9Xb+oQ1f5ZgsqvEXR73u+lHV86NCC3jc/zwxFbcD+s+Uv+5
eXQZdJaKl7bcwqD6aBEW7LgM734aS2am4X7Qd+SRs+8yyAc0La7H/fbOrwRh
3cRleCLGybLB/diHIjE60rYMA+O7x59UYeCaWHW79fsy/HRv2l/zEgO7tbYm
1TPL0NuRp9tTi/eXyr1nNwVXYKpNKfjgJ1zvhxTidM1WINGo11l6GIMPsVu2
JLSugOZHrlmmMB32rt7+T/XbCmz41jLxSZIOlWEEqffTKyBT72EqLEuHfL8+
wjz/KoDnKqdPjQ7RJ6L6nYxXYVuDCc3NEJ93mj1Xd35chZd3l5LzI/B5VaDP
bu9dheQv5U7bY+iwY1ORz9mxVXjfEOTXd4MOojdrSzqIBCRsBESPTDoQrqTd
4dlEQMbbVWQKXtFh5Jy+j68TAa0vnglqX6WDXCGjYK8nAaV1HxYe52PAibHC
UV5/AjI6pii9TpwBXafF7fIjCWhmKs2xU5kBdccnDAZyCKjgzpJVjCkD8vRT
pA2+E9CxrJDPKJcBX8ONrITHCKjuZ0el/GMGSNUsJnz7TUCFBv/JratiQJK2
BylkkYDO+45U+7QwIFJt32zxeiIKSxu6dovDgNNiv+ol7fFzspQgQfAUE8iZ
vXM3XYiIvjkoRvwcE4oVG1R5vIjo/kG1QwdCmcDe+eAGPZyI9s1KhqmkMyHZ
1sWqI5uIVnYr/1joZMKHrB+j10aIqND5efYZiznwUm6XWJ0koqFrLhNHXeZA
tOzNoRA6Ee3IrPT1DpwDh9qsx24kEkpRyuwyvD0H8yP2AQbKJHQpMH5jyI85
UFftJyx6klD6hSSN9Iss6Cj/qB14noSmpI5l8iWyIFjvudvURRLabt588Q0+
h+uN05sH4knoQIWawngrC055WyVXlZCQR1Wd7ymleUh60qHg95eENLRDdCvx
86nOnlrLX2wSKvF1epqOn1+/vi+LcSDwIO9tvy83ibFBrSdhwkSMB83byMgp
HWJDHcukQm0nD+KaNV4cwOcWc2/T/tEQHnTOg+QSeocDjcefHGqK5EFPotp7
2JUcyPC5Z1YWx4NueJgyuzs5sD/X+2TYHR5kbBGyMU+ACzeIoiFi1TzI6U1q
4KtYLig2nygzYPGgMEt+lRDcp1gjBlVqyzzImft+zL1iAZq5Gq+FKGSUe87K
vq17Afy2LDd/kSQj7JQyRpFdhFdJ98cCdMgoqMfvg9fTRbC0mZbNDyKj8jVd
McqcJVD261G8HkFG7J9WkKe0DPNxbzb7xZBRpJkz8ZX5MmTXJOntTSMjPebO
kO+Pl2FSdufx7koyUnknq6vjsQKvdeRO1rwiI6lhw8dCd1cg6SjFJbeejAJt
k00fNK+ATtSAn1c3GR3Q4VGR2LYKV2gRN0gMMrq93pmwH++T44tuKZNcMuqq
WorulyMgVcljGR1ECvqt9vXd0G4Caju0sSBTjIKq1A//axxIQDKPG95r76Cg
k5fo4W3TBFThL8R1PU9BX9aWRe1jEdFMz3Y24yIFXdfdZ7tXDq/rbmtW9FUK
Mh09tZZ7gIQeErLo+akUdLg57FvrbRLKTFGfplVR0E5JQ91zB3jQAMt0MvAt
BYlfaK/lC+BBkif9x0mNFKToKSBzL48H3VKspikOUJAWIyrm8SoPin124Jsr
l4LOhpYmebbh/7fSnl8YRCpa/Wu33otEQasRNwaiBagoyDUs4789FBR+8HNP
viwVzbn9q9NdQkH+fafbaPpUFCof0R/1HxWV7oluCTSiIifbdWp2o1Q0nfOo
mWRORb+t/WXfK/EiN4+ZBkVnKmIfGQy9VsaLTrLD3rpGU9HTUI0b9/v50N1T
Oa8ZN6hIfuWsWbsKP+p9V/cyOo2KZMoci9eG8iPz67zV+Q+p6JkMZnZ8owBK
mNGo0i6joga+M+KhFwVQi8WxyvrnVMSrvylPskcAHVx3u5zWSEVf+hrm1JPX
oOjLNaWBnVSUEHst7QtjDXo3+q2YNEhFGhoXhkNPCKK9xYqFilNUJNRb1Eve
KoS09j3Jc13Di16Vm7ASVoWRT15PDkOCF7V2vT3UdlkEFfOws6LleNHy95lx
RYIoUm7Tz8jfyosyabEDrvGiyHW7yx1tXV7E/hTslv9ZFOWlx6bX78fX29Oo
clFODK13bE2mmfOirICvuhdfiSG793+SAk/wIpMW1+MMIXGUriKeSHLhRQ+8
t33IdxNHIn9OxCsG8qL02517veQkkPlvoX9aw3jR/98X/R8OlcrC
          "]], 
         LineBox[CompressedData["
1:eJw9mHk8Vev3x5Ep5xzO2WckJYky3AYJSVpNMoQMlSSlSESKUnTJcA2lUmSI
iqRQhMqQ6NlumQqZJZJbkYz7HMeQqe/+/fP7a7/er+f1evZa6/N51tr7UT7m
beMqJiIioiIqIvJ/z5ixzbU9tTLwX9+ZP1oXmfjWMsd9D+tlYMlYrd8jcyY+
qN4jHdBGroc3qFKEGJ6QeKRs7xcZsKkvmo1JxfBhn2MqC8MyEJLm4mT7h4En
qZ/k21Mp4C00cen8Qsd3JP7KWMuigKpo+WKDFDo+Kn7KXlKRAibI0y/fgY7v
6vVCLzQp8N5f/uvcGzlckOB7XdacAqfzll+Nm6Ph98QnoM+GAvc7TX6PxdFw
Ex8/4WsHCvx86Bqiv4aG37fwP+TuQYFfVvdD2aeouLn4ZfV3Vygg0fzhgcwi
Cn603KB1ZywFDqz4nlSWKYP7+U0GVSZTgGs7ID9iKYOnD3i1Vj2lQJV3UJRr
xmJ8us7xcm09BWyrP0YYukvjshE8DbN2CpyQnPt5VEkaV9na2vq+hwKTL/tT
DnZI4ZYF5hp1YxRwPiwfGL5HCs+IN2hrYFDhbY12vZKZJF5qOXnZSoEKt7a5
G2+iSeIfpZ5rNK6gwj/5a91fNkngM/7qwU0bqNBxlNHywEkC3+vE02zdRwWx
BCZfO1Icn1ObDO68QwWtpqELlpRFONZboOmQToXxM+1VYr1i+Ko7Xu2fn1Ch
T65vdUyhGG5D6dPsfk2Fppg3VrzjYnjWWEt7zxcq4BE+WtbVovibrJiQI/1U
aInrc1dPF8VbnM21ekepoHo/0jwvUBRfaPk35L8/VEhb6qj+XFcU31dSoPVD
mQatY+iLUr4I7nHWq8NFgwZv4j6kjcWI4MEa6qF92jTwY3vTLc6I4Dl30zr6
d9Ag3Lr8yENtEVwsJCb0lysNdFU1NWsD/qBnpl6fRrNpEPfL91Bg0zwiYlfY
9xTQwDGqiLb34TzS7u7oqH9Fgyi22qv68/Oo6PT2jpxaGpi36pwrU5xHKI7b
7vGLBu8LpgtpPnOo8UtFS/9qWWDn1A2O680ibNUF2/Z1sjDOtI6hMGeR3Rmt
lkp9WZCmBi5/MDqDOsUSmzNMZMHYMJC1JXMGfVvl2XTspCwsr0yNnls6g8bP
cj72ZMrC/hVJZ38o/Ua6rz9YNuTJwl5leY8B0d/oonhIQ3mxLFS5rhLZ82Ma
zSUM1d+tloV6+89fNJ9MI/EyvM7hpyxcVTbWUjWYRhzJU+/b1eTgHxPD9Q3u
U8jearlZ1Ro5sNF3kVhpPYWSk9pqC3XlYEiu9NA7/Sm0TBNqbxvLQQxr1YZe
6Sm0ai+7xuaEHDS6LNvpljOJ9JNRZcMjOZjeaZve+WcC/ViTZ3jymRzUtAcO
Pf01gW69vf9CtFgObv/61vO2ZQINDgc+0KmRg3SlbwjPmkB3txoGJg/KQeEE
xbtl3wQK9nFUeMGlw6I8vbO3XwtRu2Fr258ldFjC6Fxkmy1EWlJ7bu1ZTgfZ
gwf3myYKUWfKZun+1XRQNk6z+ewrRNqVCpM8AzqYNdJZAWuFqI/b2RTkSAf3
d059y/LHkeG3vdc/HKXD2kfdWosfjKPYnBoTnisdKo9soCrHjiOjbSWowIsO
wqQgr45z4yjJIzH3RxAdLD/8t32v4TgyK993xewBHerL9bmSLQKUFlm/M/ER
HUrir3vcqBKgSetdIj+y6UBpZtQZlgrQw36dC4HP6WAQukZJJl2A5uRYrvlv
6eC02WOdo68APTvWDJx+OtTmhXZcUxSgR+5/D1sO0uGgvCrLHxOgu2fUkiJH
6bD9aVX0P9ICdDUoYGx6kg577nZLTgv5yDV5xf0uKQbciJP2Mv3IR4rNPrNp
6gzotn/ReOgKHzE7FTM7/2LA99vNLUtC+Eimt8oG02YAcw910dRFPpoeUXgS
ZsCAuLJpyYWTfNSy+K39CXMG0GhBFSZmfHR1G7NI04sBPL0P7RkMPgoxKXd2
OcsAWfyS0x8ZPrpo5Ua7d54B6XWN82fF+ejE4dcuskEMaHQb/nx/ikDb/I8z
+TcY8M2q/y72lUD6wTSkHkfu/8jOQ72TQGsiiz2OJTJAqvcA40ALgRTjKf+2
pDIgR+2Ew2Q1gabzX5wpymdAkOC16LbnBBorPqw49pIBnr4KuEwugfrfSNWs
esWAaJ07uwYzCdRad0jpTgUDtkS8Wj14j0B5A4saLjUzYNrfSXzwKoFOLLfT
3CZkQPWpx3ebThLIdyxg2/ppBljvNWrSciVQ8JsHB5TnGFDADQi+40ygFMex
MFFxDJ7zuiUyHQjUmHS1u4KJgXVm6r83LQj0xa1AUMDF4JjX6NfzZgQa1P0k
nb4Eg4t5+WOndhNIvE11Y6gKBvmbA7KvbiPQJkbF9e0bMBBuChm9qUsg496f
D7X1MPhXwUhibgOB7PJkS1dsJnmx770L6wl02sKxX2wHBhlmh5anaRHokmLY
nMAYg0c5fMEeDQJFDWVj380w8GVVcmRWEyj9ypTRWxsM3ghjVQtVyPztl+17
sR+DgWbubLoygcpW7Tr10AGDzX+PTKYpEaijMjYx7BgGpj3aBvVLCEQVW0Ps
8MFgh0HWSB+LQPJNdpI6fhhMaozxbZkEUku7pLgyAIOm0SXtTQxSX6NaE/FQ
DK7ZDyyflyWQJY1wEoZjEG77zP8JjUCO3ZzzP66Q8ag+TnCjEsgvwOXBu1sY
6L9oF2fIECjMNLr4ZTwGOsWZZvPSBLrJe16fcQeD6pTPW35LEejez0/fb98j
9yP+7hQn+UnRn9//PMDAZeMv3nJJAhWHq9HPP8LA+2HVlJkEgd7ZWai5ZmOg
8FvaJ1ycQM0q5wz35WKw0owI+7iIQF8FyTa7CjBgtkhrqJM8XFFxcmMhBtsa
NZxjxQg0c3MgSPUVBu72AWoUkqWOysWzyzGoMXC7ECdKINZa3acSFRjgvTnW
miQrLzhWTLzDYEbb5kWzCOnn+rCOvhoMpEOzk6+QvPnuk5G2Ogxu+OyV3Euy
yammRVWNGPQMr51QJXmfwbR8USsZD/3vExSSm5U3XP67E4M5+rY9oiSf+bTL
OKEbg8An6Q3iJAdmejpG9JL5rjlcySP5ql+cj98PDEx8dxoZkpy0qzTqxAAG
W46JG3iT/Ij13/39w+T7OLdfFZD8/LtUoTGBQdjgxjeLyPjPffpQFS3EYELc
VP80yXr1MZ8apzHI6SibGCR5psJ2kD2PweFK+9/+ZD3KirhzDqJMmMrcY7yE
rF/Q0y5amgQTRObX9TaQDGmpSn2LmVDClfpwm6y/WPzx9RqyTBi030TxIvWp
vLJqhzfGhGjPlEcHSP2igobsXnKYoHjdI9WO1NfMN+/EbwUmfK2zWDhO+qHB
Ue9qmAoTvi0WES8l/XLTejalZhUTtHavLxEh/WRrjHJpWkyw/bp5+CDpt09r
dzcl6jDBK9dofAedQMkrKd+79ZnQojfZ3kr69bD8R6HyFiaUF0g6XiT9/E3s
AC9nFxM2v3M+M8UhUMaUggbflAm/wjqYLTyyXwz3bNa1ZMKH+/PBFQoEGmo7
cQTfz4S2Qv++9mUEevZe46zEITLf8IvC+eWkXmg01OwIE8yzA+b0yPMnzPJ7
3OrGBLP9SLNvFYEWLkWMDFxkQnai4g1VbQLhZ8z+/BXIhOZtowN9OuR5cJVl
+IYwYfcGSsErPQJJWyXozF9hgnqhUl3KFgIxVjy+xEhhgtXHw0v3kP2mleNx
fX8qWU9stCGb7EcJlDWpKQ+ZoIbZBi+xJpDCROG/qjlMsHxttnGzPYFW1lQu
NihnwvH0a7tPu5H9s+zKkssVTMiI+mp7+hSBsgss/npXSe6vN4KFeZN+Tmnb
a9lA8mwzdegC6Y/TfYnHvjKhzGNTTfEVUi+WhFq0KAvWMFwlDxcQSKVpV3qk
BAs2mvjFHCwi0Nz1iGX/LGYBfo5X7P6aQLlS0txABgv+ajK2qawkEH1WRtpb
mQXndTz7PbsI1PYffdBmGwuOf0otTCLny7P71iesdrHgVNZ11y90Poo4FPvN
3JQFsXHqL/S4fKTfxuzaac2Cy0dtX/+1ko+Sazh1us4sGK4Ve6aylY+O5ik+
UwhhAVW0oNTBn482eR7W4IazwCxrpZBCzkNM/f5j5hUWlN1knWyL4qO36Uqp
1FssYJW+RwVJfKSWsOLmQhoLKAfr78W/4qOhv1f7fMNZ8NbU1EJfRIDebXIf
7XnHgoqGhDPhi8l5PZnt0VXDgge/l2mPkvPb8ozm8dZGFqzQXnqFqSZA+cfX
2FX1suBN6I5bLy0EyM9MR/eJCBtkrJ350eT3wdiOzPRYcTas/oFm/XMF6OQW
BblL0mxI0ayqiSgRoEPrRAbM6Wz4uCKha75BgIBTd2dEiQ2BmyKCPeYFiPLt
+Py6rWx4PcmVjTw6jv7paneX38GG74KZokivcbTQatouupsNa73lwnICxhFR
vTav2ZIN3MOuDJf4cdSeO3v0nBMb9n3dbZRQN47S/OPeFQeyoWvlUNSJ7UIk
7yu5Pi2EDWFJRbFd1kIU6+l/LyqcDbdjE6svOQtR+JEjfgevs6FbYF22NUSI
PHZprp69ywY4bn/nx79CpMN4G21UxoaGeJX05VYTKFdGd1oNZ0NxEO3hVecJ
pCae7SL3jg33b91bpn5uAslP3djS+4EN81uUjCSTJ9BCt8NYSBcbnNLUftgN
TKDaLIFN5QwbYmf4r0diJtF0tdhrsT9s8Puunfo5cxKp/cRUYBEH2rtZyix8
EoWqbhgvpXAg//HT8rP8SWSY7huXr8iBgAGHP78PTKH8FGFLihEHTv6iS3hu
nEY9peKGnds58NkuYRzZTCPaZ1YGZzcHhu0v9vidmUYevI3nbllxgJeY5cPK
nUYr48+zIo9yYH9rjwto/kZJNybtfEI5oFBymUrfMoOqciXL8yI4QIvQ6/Nz
nkETdRzVkascWLvRZbtzxAyyoehNuMVxYNJsKP590wyiRl2IP5xBsv+f4k3e
s8ggM3I+OYsDVuoWTpJJs8i9KtH1Uw6Zz7HUs54Vs6hKvGSjbSEHFpf0GjM4
cyg4ZLrNpIoD5/OeuMlXz6FnadJGEe85ENP/4hF1Yg59QbzHbxs4ED71NOil
yjwyWND3M+og44k+cHl92DwSBvhzdAY4cHfsfaat+QI6eW5mv5IMF9z6qK+W
iYnguYci1VmyXLi170F49VIRXLCdNSeNcSG9yCOqd5MIfomx5oFAngtXHXWd
vHxF8BvPnIcq1bngeVZTwmhYBG+JHy0v/YsLm1ZfQi8oojgv8NLNvPVcyI9O
1c/XFMXTzeM33tnEhVMd895mXqJ44UDNZU9TLnAdRixcp0TxmY/7bJwtuNBs
/fLZ2SViuFHxt5X7rbng1ErtUgYxvCZ8rnbrQS6MeudeC4oWw7tXrGMx3blw
987LxCyNRbjY4cSsV1FcmDrdrmsRI47v3rny0rNrXBiklBSNIHH8mmaBxcOb
XCiO+i4bzRfH2TPvBdeSuNB6kyj9fEACX524YHg0i8wnbVaicL0k7hUULbcv
hwt79HmnlE9J4s9ded9M87mgnCw80vhIEt+sox25oYQLk/nOW5Yrkf/rTa5N
kjVcMB3PKH2/QhqPKxE8nP3Aha7RVZXRbtL4p9TLfsRHLuhUVR/g50rjzqfv
LPncwQXz9OeX+7cuxs9R6l1zf3IB72o6ZBYgg78SHNRPHyLjXW3/ea5eBl/o
7JdJHCPXx0rn/lOh4FFZIvnBU1wYcfqYcq+dgqfs0pmxleKBlomJW6wDDX+S
eyDxDYUHdKO3Sa0NNLyEfUlHnc6DflunrO/Gsnh7X8XpBR4PrmUwvmrskMN/
WPRR3JfyILE+O7SuWg4fL5TOblHmQcptn92Rq+k4PcLqe5YGDz5VnK7Tf0XH
lUZ9gplredCqdznwhgQDX7M/YWnQBh7QqGk6yI6Bm6t9OWBryIN1d7odHeYY
eESVR928BQ9E72YIPp1n4mXTyfMcS97/3w/9D2CUwgE=
          "]]}, Annotation[#, "Charting`Private`Tag$24023#4"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.528488, 0.470624, 0.701351], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJwV0QdQVEcYB/CDo8pR37v33qGiqIiiISJyUUD2SZEmHgaVop4oTcUaWkQM
iogoAUSahWJAVBANShUpX6gWEBAFBAuJYETM5d3Rey47s7Pzm9md+X//1d1/
7EcfWRaLlSjd/58O9mpWU7o8SGL9vxhkVhzGKOnwwLZf9ExR6tW6g+mENg/G
st31F0m9MNbdcRnBgw9jD6nNUqtNNI4bafFgT0BxRpjUc97820iNB0+jj5TX
SM203nJxmseD0pTvj1AyDOo1x2R2KfDg41ha2Wmp2+6efXBAlgdBRHaGROoa
nNkVPEsBfu6Ubogsgx6dESpHTlLwg3q+lQqbQdnfmkoSRikwH1RQ+l3qJDcz
70wJBdONeSf2yzHofF2u5n0RBZIp2Ug9eQYFr6Gqy79SMHGv0XJcajelEV7H
XxS4rxx/06TIIPtAr8ZPHyjIGthR+FKJQaa9bYHibgoeB8sJepUZtKDsQQun
nQJ6U1zHWg6DVJctPK3dQkGzyvPmAFUGzcbHGKx4QUGjDXW9Tk06n9+B81a1
FKR2qjUla0rna+9Yu62aApUPcYjApPMhm17hEwo6Xduyb+MMukUuMQstpKD3
ZsWeMZJBfo09TEE2BWZZjyPcF0nzGjtkVGVS4Geb7+OhyyC7zDLHphsUJHR8
CvdfyiCDkOTbfydSUB577lyVPoNEywW7dSIpCDIqmFphxKCPVyqVV5+hYNWh
guf5xgxqnV1VuiGMglDbvas38aX9dihp7QikAAv41nPDTNpXVE1jjDcFFSX0
YW1baR7JmqBrnhQYS1q2LnOQ5hFmLrmzm4KUvJ9NkJO0L37Y6ZrtFFhOp2+9
68KgmX4T4wlrCl4dLz1rv49BkTa5Gb56FEwFK5d1hjMIYkKdF+lSEFt5QuwS
yaDpNkfZrgUU6AS9i+mPZlCAUORjj1Ow9heLHfZXGLQ/xPi71WwKPBwDgonb
DMqolPvYN0tCSvpihr7HoLfsjsvpkyQYNtyrPFvAIOfLPw+rSUho9n/8dvMT
BqHcyifiXun95C29f7UxKPTfuCN570jo26pRXdvJoBITz0VeXSRo5P+lWvGe
QYY1sudet5Cwmc9OHRqQ/n+PrUNpFQmb5BKrI9hiNMl51RWWRoLQ86ixrZkY
8V2yL5lcJcFnpVn3I0sx+ulaoLkokYTitTFl6x3EaECPvLk3hgTZYdnBRHcx
6rLY7WcZSsLZVZkKcSfFqOT45xFFNxIqlGYdaqvESFJSegdcSDBHSqXfGsXI
cCba/aSABMUi0bx1bWKUc3FV5dfNJPzj6B62sE+MkrKORzabkDB9hbH1UpGg
E68ntRIxEkr7djVP75WglB8FHknq0vynnkoOHJKgitbs35JVSMjIcfUZCpQg
heYta66ySUAVWm7elyQorT7DKX2IAP6J8LqqEgl6WmIZfaedgBrXqAtp3CEk
WpfacreFgLIz/BytJUMIKxwk8l4QEOtx0TLfcAgJf0/Kya8lYBnn6ylHuyE0
dOdzzcNCAm6s3VFvfXoI6Vy7NPMkkYAcK4EwXDSErMmP1pXxBAhqlVSFM0Po
YLLxr1UxBFTcfznPjzOMihLeaf9xjoCCHvTPhMEwsr9kuL4hgIDxjpVZRoeG
UeCpVz+1uhDwoe1QqJd4GF2fWF7eJiDA1Oj5Hn32CKoOOSXT7kgAZ3IuVYc7
guYFLrv8xkr6/seiotwNIyjzcPD9bmMCwnjTVTbnR9DzPdpf+jACNPbZyJvq
jyJBpjmaVCegkd/N0jEfRa97hSnqHAIisvpk0LZR9N4r29pUjgDtFXNBZmGj
iDm4+rf4YS68DFpTz38zishgCw/TN1xojfD2UkkaQ2mlng8FbVxo1vMsM7w/
hhZPRCj5NHNh3LWxLqNhDBmENZbE10vtBL8fnBxDFhHOWH8xF4aXbv7W5DOO
vOP2N8WncGG2e6GWeMsEGmiJXJpzhQs+73HXUP8JdFTzTmh5HBf+DKix8b00
gUKSBlf0R3EhFf+3+vCzCXTpeuB50xAuGAvHi7y3TKKC21EW/a5ceHK1TC3X
bwqZfLmbPOnCBe9nqV82xE6h8pUvvqk7c8Gsro7lVDiFavPVb5jaceHCvN/S
2TLTqOPR1bH49Vy4RoQNTGRNo5mqvAJTHhc66zq2nWHPoqbu7zlTOBecXlhF
h/NnUdpokd8TDS7E/tBTJTg0i8wNq3XMlbjw7mo+Fvx6FoWmt/+6cQyHhOxF
Mn6Fc8jhsduXGQkOV7q2Dp38Zw7x3ry3qhLhsO9z6UcrnEWXcb5MWnzGQdvV
RrXDmUWPnpo+QL/BoV8neadvK4tuSD1bx2rD4YTcfJliMYtOLlRY/EcTDlsK
72ulYTL0ukGNzk11OCzQEKyycpehAzz0bKwKcRDYz3j6f5OhmfVbdTcn4KA+
cuS8kM+mYXt7mEIsDi23Xm/w9GLT8cfduhqicTiTcEzeKYFNG97dH297BgfV
jSf05Rg2fYQMmbE7hoP86mjN6sdytLnxtJuyPw4d8z+aiURyNEdwtuiZLw4l
8t18ez15Oj8qxt9BiAMdLujJTZanv45kvnV0woFVuy9nU5QCXa6pZ8Kxx8HO
9/S58XoF+uJ3eZebrHEomhrV5Ssq0it8imydzHFYmDDy8HScIu37+mnx1lU4
LC1rWCB6qETzGSdNdX0c1vt0zUTNKdHynPbDLUtweH7N+BcDgTJ9y+r9Umdt
HHYf3rWzb1iZ/vRInLBNGYeI/WYmubtV6DSFyQgPeRwUI9D05RIVeqeHbKCX
DA7jestNBrU49FMZbGfQBAaJLYePCts5dMSO+ba/jGCwt02v7sEPqrRZ7tL1
F8QYeG9/eag3Q5V+4LxO+9oABmtsNkQfCFaj/W6Zq2T1Y4DrCIzk/lajF49b
T+f9iYHilXVvVXap04mZOz5UvMXAuKfhA0tfg/5ZFJzV+wwD+xQDbbu1mrSR
ZXjiQD0GB5YjzdpQTfpr8oVIyR8YVHVOsirrNek9G6/6ypVjoFYaY1DspUUT
CTddVUswuLVRzWCmRItu7btrRzzC4Mumm4vcVDG6qd1ioe99DAr3+fs4n8To
/wCpiGkS
          "]], 
         LineBox[CompressedData["
1:eJw1mHk4Vfv3x8/sjM45CNeY2yBCbkqKNJDSZEh0KyqSECFKRVwpDQqZMiTF
bUIhkiFrlXRFSUiSkIrStM2Jc853//74/bWf17Ofvfda6732Gj467vsdPWkU
CmUGlUL5v2t5d/64M1MB338KkBmEKqLFn81GZ3+J8a3x1otLtilgtiJvwaYR
MTJYrpo6LAWkM60XqxNiDBXm/tYpEWN9f6lVXr8Yj/80PvpMVYxGb36sOfBB
jI6nCjT1X4gwoV53o3m3GK2XtGRwTolwS0HaloY2MZYHhl9sooiwKqvZNbFZ
jCX65benIoWoHc/z2NYoRpd91iuDGULsCwr3+1orxncKq0PGlOUx2GxXFK9U
jDPfhRWke/KxXS89pqVQjNnLTr9QoPLRXL0lNiNfjG7fHjt7XeYhTWqdOjdX
jNvkU+oMP3IxvmZO/rpEMY6oHPRdfpaDIyW7ihTjxNjVrTyVtYSDLtfS7709
I8YfwyOPhN/YqHWa/9A3SozdSWP/vXFiY/5G4tXZQNJ/67ombQs5FC3Xe7vJ
T4yvuAcKVH+z8MBf7j3q3mKMDCorvFTOwiVKrQN5O8WoNnyOobKUhXVvymQN
dmLsWG5UFeTERIMGgpG0Toxm/VPsYE0mxlXpcbevFuOVbXma//Yz0PlyhtI3
SzF+ealrERjBwI+7I/T4RmJcZ9m0BivpuMb5vlGrnhiv2i59s+4cHfNWD5pk
zhLjrZRTx2p30DFI38PSQFOMOw8s+u0lR0cKYbNpPZ/0J2BiYcVOGmoclQ+P
HRBh2j1z3wZTKnrn1qtc6hPhWo/2uw3KVLz3/GRxQa8I/3it6uk4TkGH6bL+
xg4RolZ+Tl85BU/W/nQUN4jw6I3UeW+sKfhT+HJOSp4IO9I4P5Z3S8Fi8bma
a9dFuPDFovCoAimccbd1K8sRoZesMC8yTAozSx8mtmeIcHQiKDJHQwpbthZL
1WJF2On7iqHpKYFHuYmtl/eJ8N4HK32J4hQIG+32F+4V4aqHxeZ+3yZh+ziP
+3C3CLuCMz/vqZ2EcdvoZb3bRSgeZdO+h06Cwc/gWzM3iNB2UZEate83JC92
jrxpKMKTMScK3domoNddQb1CT4T6N0y8ttybAOPYxtL6WSIsfrbncXnKBNR3
2Xz9qinCbw2s1PwtEyA9vsjZSJ68r/yyeub7X9CU+deWPe+E6GS0bbeA/gso
uftT3rUK8X3QlYELfeNgnFfQ6vRMiAWTO64crB+H+HI9B6tKIY6fqoxwTBwH
+zadtdPThGjEEtBM9MahSahg0eFEvs/NzcZ79xhQVOyPOKwXYntMyFv9DWNg
rHX+fp2VEC2jB/IXmo5BvAF3Ydl8Idbpfiz9kzMG9rY0oySREG+LvA8sLR6F
pqgh7Y3P5JHjdNblsmgUKGeM3Wpr5FGWYH3omGQEjBP8My0q5VHFn/I9dWAE
4i8PqM69JY/yzD/gYO0I2Ff1itmn5JF9vUzxRfgINI020x9ZySO2JDdt/DUM
FIlo5WJzefTZm5kc/nkYjBl2kYXz5bF0fdSbt+3DEK/QMJWlI48Kz18mzawY
Bvt5NaNHZQLUj7/m//rYMLzYe7d/YaUAXxt8O2YnGobm7nF7y7sCtElK26PE
GIY2Z4sKmzwBburhVkyOD0GndW2sS4YAE1p+LzPuGYKB6a//OnxUgJTZpdt0
i4eA8eb30SpzAYa0Zf5gbR8Ctv2yT49NBBhKWJQ0OAwB77/jG5/PFaDPRc5Q
weohUCjl63SpC/DrJc/HT02GQDtB64lsko/nHLqjXQRDsMR2pciqio9VSlpd
SbWDYIknD68r4WP9RIqF4oNBWLGooXdTPh91bb6szCsZhDWznEp3Z/Jx2pEX
B3RzB2Ezdc/Wk2F8zNA+0rg2ehACyk/nPrXg4wITLytF20EINm4UNC/g4+St
rexpKwfh0HWFQx0GfNxccuO4ofkgHEvOsP2qwUfeg8O/rxgOwtnAgh98CQ/n
c9rSkhQH4ZreSzP7Bzz0dGxfFPmBgL26RQ8jS3loEsl7Pf6OAP1ZCWuLCnjo
oLNF63g7AbenO2xXyOLhtgiacetzAspUXka0HuPh7rAoG9dyAo5MK2IzD/HQ
I+81Z38JARaKCQkL9/MQKD6piXcIQHmHnJQdPAw0sMpTukZAHfPlky3Leahf
WsUYSSTgDL3I7rQZDys2lHimxRGwnprQXm7MQ00r1yb7swS8nLIfUNPhYcSL
Kz6jUQR0DDcJ3lF56DxDulPxAAFf3zc57arhYlxrqkKCM2lvd+G7hEqS1arO
b9hEQMC7+D2P7nJxT0jrezV7Akba7UNn5HJxzZjj835bAqZeNGV8iubihl/u
IltLAqqfF85UDufildVhF8+YExDZEF9gE8LFz5KofzrNCGD+Zw/XPbnYlfpq
RZEJAfLVTb3eNlys7YjV0tQnoKmy0Dfdkov9CoUbe3QJuFAeP1JvysXHt9dE
3J1FgHKpPctAl4uuww/LTusQ0F5sHLddm4vnq3fmxWoTkF4oUj2nwsVLy4iD
lzUJ0M5v0vshx0VY+jxg5A8Cem8WFmtRSHscnc+ZqhKQez3e3O4XB5OO2Lid
UiZgTo79hsLPHHQzMJZsVSRgINu4raeHg4ZnXlW+FROQnyXaIX7Dwf3fzET7
RAQYpzcFBD3l4M4dXW6VAgJOrT9Im0AOKoWJ7u/gE9AjVU+KuM/BDCXVdco8
AsyKHs5iFXJwr16hqJtDQJyHV1nsdQ62Nk1SK9gE9E0T2Cpe5qBd+wnV63IE
WNYVd6SlcNDWd/nGaywCfhhIJddOcNC8ToH6lkGATXdOnGE4B/u/ioJFJGcl
2OqUBHMwuoY35EInYMzqZ/GSfRz07xw9WEQjYMNYkvVDDw5+iNSVaZCce2NJ
2+ptHPx4wi0mnUrqubXHq9GRg6Fa1Xx9kp0EJyec1pL+ljTGNlBI/2Hu2bcr
OJjwJJwZQTIj6KWG+2IOLnmmGWJN8vaZh25/Nuagq9aeDnWSS9o0lu+fw8Gh
T0ELmCSrGlo7TepwMJ/ld4VKsrv5Xo8wFQ5eXLWyVkByxXfBKE3IwYFvC6YM
SFbIvnvyNIuDD/TXz3Ej2cfxb1WRlI2K3zPWXiH5EUN2M2WUjbkTmbvHSFYr
yzXX/M5GPs0w1JW0P8h77fOcj2zc8uB8TBvJT9UJN/1ONjLkfJJ3kf5Pb0wm
ClvYuIP+LFdKcmikedSiBjZ62eqWF5Dxa5r/XrH6ERtVFZza/Mn4zvl08l/r
Cjaa+MVTVjLJ/E41WNRQxMaYo5EWuqQ+7bbNdQ432Vh92yhOi9TPeOrQ1vZs
NpbK86W6pL4xtzW/uV1ko280cd6K1L9rZ034pzg2RuirrwnkEmCq6C3cF8PG
nTnzjYvIfOk7VDL/8EE2tvrU3/SSJ/NBf+tjmR8bDaay13YJCUjplG0+6clG
/QrxYi8yP1etWHc4kZybLpqO6BQqkfpye6FgPhsX0ff9pa1B6lsV47BAn403
l3601dMi9d1v+KFCh42eh5ZSbaYTQG8NZdWJ2Gjvsjq8bCapzyXhht4fcvg3
m64aZkTqY1fatbdPDhU2vUzQ+IvUh7Yt4Oc7OVwftlGlifyfH+25ljj1TA4n
PRdFBywmQMd4aYdynhyyZpWWXVxF1ifHLylGOXLo+rE8IGMNGe/g5E02GXLY
+eDqwjvrCGi8//1ZyFk5fJq88k+uI1kfV2RBq68cUm9HbY7bQcC/HmvDvnnI
4TL1vsUaHqQ+J8bMGNvlUNl8cXHFHgJ06zcWm6yXwxQP1i0DfwJaHWW5Fwzk
MHyHfGdfOAGy4Lxdt2bK4VcdznEaWQ/1U120HmnI4YC7/g7jk6Seb++kDvLl
UNrrLqw5T4Dh7p1n7L+zsOl2bMuTbAJOhjzcL3+bhQcHDh13rSOgKNXPYPY1
Fhp8ia27Ttb3zvI/vizNYqGurecbZgsB86WB7n7nWShO+9QqIftD98k/Nz/z
Z2G+QHi+Z4SsBxePLzkzj4XUmU03z80eBI+KeeNXdFnoF1yUP4PsP+c7394t
12ahSo5R8guTQfg4fYHhFyH5vRC1Yu8Vg5Bw86P2GoKJsTefhue5DsJAxSom
q4iJNXcfXjuTPgh5CWX1B24wUbXujuPynEHYt1cv/v1lJkJ8wIhC/iB8nyZQ
f3CeiRorf/8hqh4EIqDVOHgfE2mfx4wDPwzC2GyP7b26TIzyzLzCXzAEZZJW
HXttJqbtSp9fbDkEoa02/Q+Umbja1872sO0QTPyjH5TGZKKpcudWvx1DMNU5
GGP/gYE6ZgdvjMUOAS0x8m51FgNf613l9PwYghrvoVCDFAbOdnsxWTc5BNHL
d1umn2PgGKSGv2EPA/PH6qchYQy8aiEeCpoxDGxbYbfBVgbGzLq0K2nrMMjL
LnEzpjHQT8u/StpEzjevhE1sAQPdLlf8SOsh56H8f5IPMhjok5BVvZsYBvFW
z+mOw3R0nK6ReFY0AkqlBqacl3SsDmSazts0Auq+lbsOxdJxDvXUwK7eEUiv
q7MRRNPxwoVLpl9HRkBtdtvcnKN0/O+yTU++3CiovSdGG33o2BNy2rnTcBRU
XWafmW1Lx/miz4PU8FFQskoofsWkY25W4MfZumOQlJ2V6iuh4Z3DtM60pWOg
KM0Lo47ScCczYeMmpzFQKH9iY/iRhrs+2bZfihoD0bypjuhHNFQb8DIs7B0D
vroXfUEE+fwHkVZr0TjEhgZ/fnqQhjI/+8LFz8eB1/bP8x3+NLKfrDs88Xkc
uAmZqWddafi71ynnnM4vYMs1z/1gTkPbsYvjJqm/gDls4XThFxUrz616OZo8
AdH2axfPIahIv3p5XW3ZBDBuu2hV91ORxep04XWQ7B30+UsbFQOcy1/Tp/8G
Wvf1sBWl5B7T+exAX9FvkNYr/EsEUlGWqa9/7eckOFycXariQ0WBmaB1hsoU
5HouqbV0p2Lz0hgVw2VTsJbi/inWkYqJkKT0PX4KUhYWzdIzoWLSor6IQHMJ
fKHVLrSfS8VCF6FmupcELJraVx2aQcUWpW3xnkkS6PWh7KlVpCKVlac19FMC
htl213aNUNBXtIxtdUcKkX4e9059o2Cb5Tuit0cKzUsOPbnzkYI8dmPoSkUZ
hL7K6pO0UlCCoQ32R2TwmPtjdnopBf8yPMFS0KPg9pDY680HKXjA87V1ELmf
3VmZXTbhT0GnFUHHtpD7G01U8t90Lwqa3uyP+M+Zijduve33d6Hge4pIa0Ma
FUe69efwzCj4p65d99+zaLi6wNJsvjEFF/qve/jZlobpRxzX/D2Hgm6scInm
fhoun3Zk73VVCqp/21QfW0lD5eQLDjFDMvhtXeEk2U7HqnkVga96ZbA46ei9
ZTF0dK9/nzCjRQYBI9+X2xXTsUBm3Ax3ZbBZvaH8G5eB1j4vHH8Fy6CVnq7Y
+ISBA4zxIBtPGehnmy6b9YuB8Ze1EpM2yyD63rHocH0mdrb6tRibyuDCNsLb
/gITDyzjO3mPS2FN9u21vvtZaG0FJzz6pMDa8tStmKyDyquDylxfSeHjrcys
sJ8svL+xXc3xrhSwy4fbHCKHU66575fsl4LS0fU756ay8fkuF8WFblIQznW+
M5/sy1me3FXzNkjhJpvlt8yEg8v9Am7MmCuFc+pUrcrX5BwTZrGf3y8B6tSr
wvsWPNwc+TOb1SYBiV15lHsmD2dHX22m1EogYvhS/SspD+vOsk1Hr0ogW3WN
KPUZH9PiKr1+Jkigor9qeI4ZuYck+qd9iZSAb/VGd/51AQoyWqfeuUkgkjW9
xitOHruyYozaN0jA3eEz05QjxMKrS3Y2W0hgplZSFy1GiI63smueqElAw6mn
rXi1CFPK95250zYF7O3uLe/2idHrgXbVzdopOEXhvv9aJUazh83fc0qmYNFE
4ONJoQJ21Jk5XLwwBSYbDFJaQAHznn2NuvDPFPzRXJMs0VBEqq7YOy5wCv7/
fOh/uldCMA==
          "]], 
         LineBox[CompressedData["
1:eJw1mHk0Vl/Uxx+PIVPmVCRTJCRkiGJfkiZJSST9UFFRFCFzhgZRmd4SkXlK
UZmSnkOmTJUis5R5vs9o5r3vH+9fZ33WOeuutfd373v298hedD/tRCaRSDvZ
SKT/WzMl/kUatzHRB0dXJwtfUWyw1+9QWh4Tue8oG817JoKFKdUPXEtgIrL0
Roc0AxFM0Uv4juYDJgqYTHSljQlj1wVy82suM1Hk95sq44eEMcHz9INRlky0
Y+3SvX2LQtj7HMP+M8ZMpHw6VkWvUAhbwDoER6WZ6FPd4vcqOSEs6bFM3lsB
JtqUdjtIqEoQM+xxNfZZZaAG68BlEghi4Z5kL+5eBorwyzfee1QAE87e06P8
jIFUNOadaiL4sWKanyc9nIHSykVHleX4MRuo56/0ZCAf2cSC55/5sJQuOzhx
ioG29tHura/wYsp8jzLd+RkodyK1sD+RB2u17jDYt0xHdM4yC50jPNjNTJlO
0iQdpV5961Mxz42VGpTxxDbQkVJ9bz7VjhszvjnsVhxKRwFeXes8hhuwkco9
3IG36CjP2H8ic4kLe8jjn3bIgY6k3uw07yvnwr6lC7f/NqAjhfUWiXE9Lsy2
w1BvcYGGrD7lHOQ7wYmtyj76WT1GQ2qHCsO3beLEUt06XB/9JvbTt3lcHeDA
RjdcT5EspqFAnS2jD29zYJ76L9gN3WmoXYPiOvuGHYuPl+w7+x8NfTzZ7PYm
mB0rnk0udj9BQ7KjDONzp9kxVnq6U5oKDelqnwqyWyJjd/gKGjjGqeigWtC/
i2fI2AsntVSpTirSHw+V7FIlYxWo6I5OPRX5W5t78XKRsWXPkl1XM6koYVku
ObaCDQvqo0Q2O1DR0ssmylsVNixFx+jy8Ekqeobz5kbwsGEouubAqiEVbbCp
4V0bI2GkQ19n1KSoyKd1i2JmNgkLe9N2MrYbR92WPztClUnYw6Bh0XOncRSQ
63s9IW4Ncrucp28Z4Yj0Rsrvqv0aNGpO1D5Sx9Hotgkqr+oa8I7NeFUK4Khu
Hp8oblgFiVezhfBsDr3THa7cwb0KCkZi+1ofzKJUaVa7SP4yODO3TKw5zSJx
zSRVxZBlyM2TSlQ3mUU37unAD5tlUBbZuRJHmkUvhO1ZfTzLoD6kV2XrO4Oo
s6H+kR5LoH/P/si4yzS6WVuSzWe3CI0LgVn/HZ9GIWIF4iEGi2Bz/SW5Q2Ua
fQ89ym0jvQhelt2V1dNTaM+JrbI7hhegSNZSI8ltCpVFVkzweizAToqphLnH
JJLaftOyN3keSjWcfGpPT6JOyZWMyvB5MMkKa9ffO4nEXT7/mnCdh4tRVU92
MiZQ/jYuW/n985Biq8/O5j2BvlSz2Jl9LBCb3z39wXccFavJnNLazYIMF7Oj
yrbjyHqD9pDNFhZoDrhkp+qPo4O7NvR8ZGeBRV2Ow+PlMZRaF1++u5cJkXGy
Hc6BY0hkyNW5IYoJZPVNlK0ho0iGw/eH9BIDYjL2SkY7jqKyaXv5d+MMkNl8
+g6X8Siix3Pd8+xkgMHaE006eRQ1W6oIRJQw4E4Ld05L+AhKFTJkH/NkwNzV
lafBD4dRWcZuZeYCHdrfagiZOw+j/LmjFpITdKhgOEdvMxlG525clb/VTYfw
u23RH9eH0LEyg/C8CjpIJGTH0L2H0E2WYaFBMB1MGizirjj9QyGSIl3BQnTY
tfG+qM7Bf6jvaP12R3Y6CFh+iuOQ/Yc2zresX2PRoHtAIT6t7y/K9kzqxvto
4MZaiu+1/Iu0qUpWDa9pkKCQ9eyk8SDKYZS+xCxoEOjaI75dZhDVx17scT1E
g7qL0mrdy3/Q7ZTzmeX6NLD1Y6iJev5BfSc5Y0sUaHAvL0X9geMACmsZF9Na
pULPBvped8M+lHqhQor8ngqZcRe0+Jd60af3YlJyeVRwl/6qlVfSi0Z4hTfZ
p1KBQzdZe0iV2DcVYag9pYKa82Fda8ke1G022CrtRoWw2iR9WOhEr44dwcQ0
qDD+TS/OqbwT/ZXfH+yoTAXz7s6pyDud6HfMwkqtPBUkZkWTuxZ+I3unwxLf
xKlQtDlq/dZiBxp+XFU3vIqDuJyyTcLHDrS5efHPn3kc/FW/FlF8O5Cvo5AY
TsXB1IjjIt9SOxJa+2J8chSHfpeA2sylX0g4LVCJ8wcOxl4SUs0Vv5Cb1hf/
rCYccoPLvah+v1C6p+nEuTocbsczFA2Xf6JQ+dDktQoceCnXIzqX29CDHa8t
tHJwcJOreCm29B3VaFUU6oXhoKfLOuHo9x1V13wbFwjGgcNMc/3N0jdkrzaY
wvLDIckr3/HwciuKjmxXXvXA4evXREW/lWYkqbThzvAlHOL6f3fWBzSjoezZ
48cdcPiPJhIhutqErIKiF2vscGBKRk4VrDYiY4kDCZNWOMi5+xf9WWtAQr1k
Ju9RHGbCyhxVgxvQ/YV3WWuHcChPoIv4rtcjs4WGbPaDOJz84uolQqpHQsMt
dkYGOARsstM/xFaL1iPur0do4nBYOWEqJqQGufQIJnCp4yAC7S8H2GrQwdVe
wfjdOORdNVv3IX9Btv33Xf8q4fD704HafPYq5Dze9shEBodtvhcHaPwIuUpZ
FVhsxyHK77hWtAgFmYr6vL2+DQfXQKnBJqlKdKJDQr19Cw49QVw6V+U/oTvd
O1KkN+Nw7O5cJOeuCkQ16G/024SDcli1LqZVjhQFmvQdRHBIDM9/3K9XhroD
F29OChF63I8b8oNS5J/RYhouiMPkQ6enJceKEflXZukoPw62j8xHTlt8QBse
8JsU8uHQFKm7H7d6j/YV9Vk/4CXiecIzpuxYhE4dQCtO3Dhoyoz4Rre+RXop
sWHXNxDxy5cpNHcVIMrSyYBQLhxoChFtnMP5aJdt3L8cThzalM4HYnO5iHz1
4Ps+DhyKVHbv8l/KRovGMWMyBEerrbeXcGYhY4uFoNvsONzUaLuLC2WgCyKG
Xp1kHCy0MlRVtqWhI+weDUcJtnebLGo2T0FbPWY8mtlw2H77CbeRUyJau2Tp
ZUfwgK+mQ6n/M/TsTnTLCgmH5ODfZSqxseh9W493AcHlvMztxqceI8+1dx6u
BOuKG3xTDbqHKiYGKHoEux7kXVY7649Wmz1tNxP8o1jrA7fDFeQq02LCQfC2
+mH785fwT+u1VzzY/u/7PocmLF56gp96Bgc/wRZFtnUGaSFwYtW0R5HgtkwR
ccvbEWDvsLBmQXCemdPe4oxoqGXc9XxE8KRpda/h43iwS6bv+0WwspFUeKN3
AjjGFFioEPG47vdVPePwEoyvn6qMJfh3oovL3I5UGMXaAnmIfLCeJ1CKt6aD
UdHl508JFv+fehE/gUywYH/Cp0DkUzeW4Qzs2XD1yNb+RoJtnsp94ljIgXnP
bYJBRP7vRFkINk3nQUr4fKYRoVf5/YKyM7/fgKOnEt88oWdXWA+fRHMhFLDe
DY0TegdgHEVzf4qggMdffZKoh2QDTY6S9vfwS9FFX5KoH7UDR99u/v4B2gMk
yceJ+qLoO9j4NRbDOW95y0cbCX10nxQApRQUNZ/m6RL16aaTdTa9vAzS8/o/
ZQnjsKZVSeL8UA4VDTa35EUJfTUnzzTlVMC1Swv/TogT+quarp6JocC1qu7P
9lI4HEjIfsJKRcD7xRO8pXHgD2UXMrOpgsNlZj6vZHGYmLmUNnOlGkZrvuxX
VsQhvW5HrfqDGphSjH4iR/Rv9HJ7FJtgLUiGzmr/IPo7SOOe1c9ntXB4fjt7
jDYO55NHRj2z6+CjkOVJs/04iHll85TVNQB1PT3y9WEcyK/P/nxw4iucs1vX
ZxzDAR/kSrLp+ApbeaSTLcxxaDW7oro03Aj/2Rs3mhD/o/s7lE4acLSA1349
XqnLOKxMnGlylP0BG4GyM+0eDnSON2rHnH5AGeec055HRH1Ic8Zp5v0Adnu7
tp9PCD2sSs6za7SBXMj7tHMJOJRUb5rJxH6C3tmPTi4FOBT03Tj1OPwnPBrB
Dme9wyFzvq7E6+tPuPRF8iirFIfY3d5Bpha/II1LdG9vNZH/F78Fx+3boari
6rXiLhycitVu/8hoB12xKJHMARzsvt/vKh9rhwu9lfP5wzgc59RNi3DvAItb
8sLrOA5Kt55rqgT/huKlmOFaXir8PWJj5ZbSBTpMx7fTxlQwHAlwbO3vAk4y
36mho1RIDEm7oSrVDT8b7f4Ht6DC6YrJe5NJ3XCgVCD/pD0VvqgEljq/6IHb
TK7KHYFUSBdI32wf3wfefFU5pz9TYS2/Xp7yqw8U7Ny9v9ZRwfbw1B4p0X74
YXGmy/obFUTuah3pjekHdl9+tdo/xH1Krb9j/XQALFtZB7rZaaA5yZzeeWgQ
KnfmdSqdooHDPm7PzsuDUHdNYZvleRo8uS+xeD98EFJ9K78kOtFgUg44R2sG
QVR2l3mYHw3Szz+UyjT+C6qMYNPqLBqItkqYy2D/oHx1lEeLTAdjyd3t3+3/
wXSnUrW1AB1uXgPb4OB/ENRT3JQsQYcWzsvOA5R/wCVch8XuJeYfwzdBLw2G
QIkvhmPnFTowCqFwy/5hyPkGZdYdxHmV/SI3LwzDkW+TP7lG6JCRo+PVEDwM
ydSogREGHU6/2r3fu3YY3KsHd+psYsC7J5INv06MQEDEi051Gwa43ZgfeOIw
Cv81ctfIE/Oc6QTNaDR0FJLMc3qklxkg5TSbaZA1CpIlVv/OCjChxW7EZXpi
FPa3SZF9tZmgbPaLddRzDBZUN2tn3WfCmHKhAOf9ccgSD9Jw0WYBJTv/ll3u
OAxwRBjfNWPBM7ns9g9N49CQInFt8BILTCWSEy8KTgDl4ePAsDgWZPJEKlYl
TIBGkXmPF4sFDuPOhv6vJ4Fkoi6k0jIP+y5fTPvZOgl5MjIBd8bnQXDwAocy
PgnPb7lYKXAuAKXzTFOX1hQ4SlU1ZMACSDUYn9WhTEFu1Kz0pY8L0JO13Y36
Yxr2v142iqxehFKugtO5tGnYapgVSx5ehLgrerr2YjNQAFG5dK4lMNt1htRq
PQPz+NwuM/MloBRExOYOzMCCjRpzy9ASJG7c7GNPmoUL+1ZDUwm/4OOWeV5c
bhbuGkr5lKgT/kEd7Qh3moXH7qVZsXeXIe0Do9R+eha+FXMOue5cgSCx0CRx
gTkQIe/GC0+vgK2X4N3WPXOQoWr3/EXQCojoKh/d7zkHGy5Qbrl2rUB4hX2v
+NIcPNEK2eIevwrFDiPro8Tc9FyYZyxEYx3khFU9vsTj8EzrYSjz6jpEV3sM
J2fhMGduQLJMW4cbcqTGMw04pHyUabnJS8IUhyVivxB9aW19OWghjET4R0eO
FEkq1CYa73qdQcLIh3K9fVWJOfSkhupUDQn7k6V9Xt2cCqQPzS6yXGxYwhWL
HSkxVGh0+MzfFsOGcW15/sw3nQqjDy4sWpeyYbe/9nNbfaCC9lNHtqheNuzU
LtcZvg4qlDyS4RdQImO8U/dKfbfQ4KGJvQdXExnzd/t0xOoVDVQcx4/91uHA
jIF5WaCQBm3XPe5edOLAeIX2hDRQCJ6p2dQbz4ElvEv/qDdAAxsjkvQbFgdW
yohQ3i5FBzrJpDa7nhMLqqsx7VSlQ0yN4SXnVU7s0LPVi9EH6FDjpf3ulDYX
1q57K4lsR4ec7U5RbblcGM3Phn8skQ7wdsr5xasNWMXxWKXUfDpcv4updg5u
wEK2tZicI3yIZ7NXc4I8NyZEgcBmwqdghrey+99wY2psO2cLtzDgc4WAwsZO
HozV5sB7TYkBnAYjZpyKvNjn9ERFuX0M0LKv+bXuzYuZmQjYx1szgCUcJXxc
mg9zecD8fucZAzZv31zwKpIf07TZM62RzQDKVuJCmOHHFpWucU8Rvkpnl5jt
3lMbsYdNfdiFDgYs3C4r15MTwCySxC+IjzBgrEAh3PqpALb5uoXvdwYDun2M
sJJ1ASx7Y+07IzEmOL0+RmmYFMTcBlZbl+QJ31cTyhzVFMK0C3UnP+xlQklW
ZPJ5DyGs1uK1nKIlE+TfoXHfeSHsb1xsHG8sExQTcs0ipESw3MsthTVpTOgL
dTF6ekMEu6nN1RLwjglHkrz5fKpEsLXfvhxzP5gga35CINpdFGu8O6Hw/CcT
/v996X8BiCdMDg==
          "]], 
         LineBox[CompressedData["
1:eJw1mHk4lN37wGc3Y8aYQSgS8lpCIpWIuUdEiMhWSZI3ZSlJWkS0pyiSrYUo
vZSlSESdR5HdW9ZIJVF4yTNjz/ad3x+/v871uc65zjnX5z73fc51VLyPOP1N
IhAIykQC4f/aJq+0W5lH53jf+4MWdU5KY2YHQiqjY+d4LoyNu3LbpDCZS38S
1zXN8d7oaKvtSeBi4uy7tspf53jyV6b3VNtwscXbpgTm7zke38LNKp3MxYYe
RR7qkZjneV+UfqlxhoNhVbRN17bN8/wOPcj+mymJFW/7Bz++Z543/CM+wimF
jT1p2/rIK3Ce9yfC1SxpFRtL7L/OXh8zz9tWUktPdpXAAqjS33sa5nntbdvd
Rz8wMe+Yotv13fO8b6Y0ITmUibktcbUpHp7nNdLe/wpfzsTM/0opvMZa4C0o
lvdYHBPH5C1XXFpvt8Ab/ZAb37yBgbEbMWMVjwWe88W8neUjdIzs4j3KDFjg
dY8a3At4RMd++zxy/35tgee4gUrrXUrH3l3Q1r5ev8Bryaz9eHOJGGa8eDtd
/fMCz3VD2GfbThr2/BRBtmJogdeXZFWy4z4NyzjcRphkLPLSJbe/VdahYefc
z7bvtV7k/V63rTXLhYr9aR60/eO2yHM7Lz1cpkrFgrc5VyT4LvKAaXKtDadg
3uZaT2svLfIKrD6lT9+gYOY6LVFrqxZ5HM0wnmknGXuVZTrV2LrIuznQG1aY
S8b0Vf4JONi3yMv1zDk7c46Mca69edJEJEB61T/tX/XIGCHyViJZhQDIaFD1
bDwJ6zlkGhC4lwAvrkY4rzxBxBQfC7OMfQlg960kf7crEXPve/xd7AgBbisZ
H1VaT8Q+eEq5ZUQQIERBznn9FAHDdvzid9wjgE9Eg+nuswQszTROjt9NgK5X
sidMbRZR1+ktTuw+AjD17e3c5BaRbMns9c//ESBGxrHHoH8BxRocIIXOEqAs
TnbnivMLKELDZCRnGREqbKjLfarnkSe3/63MTiLY1oVaZxyeQ5TU1vFr+4jg
0/BzY6X5HMpRrVQn+xEBkrD5a3JzaGptZrTgNBGEqYNvF9/Oopuu+5ya7hIh
xz8nVlllFr278+X75R4ioH3G3vVTM8hPrVF6cYAIH5bn+Q+0ziBObrllqIAI
UsQw57PPZ5DHmzvZPiQSKKX/kJA6MoMme3Ye5auRwFTlCTtuZBppqrcTZn1J
oLLc7KLdwhRqyqsyCA4iQbDPqx8KvVPo+IYXPoMnSUBuyH9u9X4KvbVOqOm4
SoL42B1P825Mod3+TjeLnojGuxtpx6tPodiCphWHR0nQMRgUcHX/JDLc+Max
f4oEU8/rrMLtJlFXRe55DwIZ1ObWaZeum0QaLdd/2XDJcPCdajuFMYmwCZt8
jbVkiHn4O+rf5xNozLja7HsoGbrNNo97SU2g9zsKLKsjyDDveajtEWECJQek
2OVeIgP9tVe94ug4Mrvvv+tUIhk6ZAPP3G8YR9FETii3mAwvzt7h9VwdR6o1
7rn8CTIs2Ic797DG0UQPv0hjngwSC486iAtjqGZmVZkElQJNlVEldqNj6LD2
fE2nDAX8C8VfejSPoVexD/qOGlLAaKe11M7UMeToMqSQcYwCKfzsRh/9MaR2
uEX1ShgFHI+Huw6ojaHJS+Vah89TwMGY8ShWfgzdLYndYHyLAvv7t2uaE8bQ
gMLaHc3PKeCbflHX5KMQRfaGRZOEFHifdlyoc0qIdsz6xA3MUIDV4GP84rAQ
qcvYJzcRqfBpM2XTbh8harBUzkrlUmGlpoLLooMQyWdXVhjoU2HZV+rpdE0h
yj8iMeMdRIVFX/9O9jcBGm5ZMyU8SYXVbgaxKW0CtMrIeeJcFBUSdS1SzBsE
6CHhjiAjngpLE3vSfpcKUGqc5lBvERWq7Y/oPU4UoAuFmz97z1Dhr9CY2f0u
AvRWzrdTSKTBGn6gWfE2AVoMi+44J06DYypzrJVbBOi0xceWDAUaxBrdCbfd
IEBH2jwbek1pENjpaNC8TIB2TZ167X2OBqWVPT9ifuIoafe9MmE0DVaabt0V
3IOjVoSVnrtFg3ffMiMPd+HI4YpYccZDGnT7veLnNuHIYuntvN73NPALWhoO
JTg6F17yNPhfGoycjnP5+hxH6PvnHNInGpwY21Yan4sj4xzVx6qDNFDcrHDP
LBNHeiYFad5MMVi5PG9H2g0cBaS13BNKi8H4L6vFkWgc5ZCn7pxTFAPbuRwT
p0s4UmswTc7QFYPOr+smdoXjaNme+pu9DmKwXGYsyC8AR5SzP6O8E8RgYm9W
nL89jg4fI7vsuysG7N2zTLDF0SdfZU2vh2JQI9dIVLfG0dPtu5r2FIm4+P4K
dXMcOas2LdvZKgZ/5HknJtbj6I3sfyNu3WJwZoSm5GyII00mvcK1Twzi2FG1
7/RxNDfG93UeF4OR//7606aDo8yqF4UOMnSA076+lStxxHrVfMlekQ6vNPza
s1VwFJo3unObGh22uUcPpa3AkU2SFsHWkA6GI1OfXivgqOjalpatm+jAxK+m
9S/FkVLk/ixrCzocKa/4sVweR8KD9+y2ONNBuNq7AsngyGPPqxWWHnRI3opt
1ZLG0XvHDuFmHzrobM7TzeTiKNWYm8IPoUODY81gNVvkR291AJyhg8XxmMJg
CZGflbY83gU6XOuVLtdl4cicdbF/UwIdwq+vCmpliPwQMkpM7tKB7TgsidFx
JDvx5prxQzrMf/nYXiaGo8jBz54bn9IhYEsFqqbhaOjLtL5RER3OWAurflBF
PpuXUDeU0+Gh1O8+SRG/eW/waV0lHagSN+TtKCKfZQ5PDBvokJlF2JNMxlF8
fkDE2lY6XFBHeeMkkd/Mq44G3SJ/kUni+0R8IDlLTb+PDlv1Hgd+IeLow/V3
U3rDdBhge7QdErFxVE/d6nHRfLwQHk3ED4/P39Odo4MNYyH7OQFHbL9lR3Uo
DCh75yZ9RMQnPTdYaLMYMP9W77SJiHudnOVWyTBA1+rCFzkR21kdHdJUZMCa
oMxNFBHL61o4z6owoPr+cAJRxMprntxU12GAmxdjhCXiaLWa/X8ZMmBpTJiZ
lojH5fvXq21iwIK25HUXEXtKkMRXWjDg95UH7XEiriGu+KJix4DWtr0rvorY
YNKkQNmZAUKjal9j0f7vDrmfX+HBANa3h8+yREz7dtxVyYcBe7myi6oiH0Et
8VrLAxhwxOGKU76Iu6rz5xRCGPA4oDTPVuTTorzh32VnGND+7KXstIjzCgYz
ll5gwEVSb0yRyH9UysqtcgkMMHSpK9kjip+O2KO5kTsMWK1nkG0piu+nEPWC
ykwGZITKLDUVxX/1di254EIGKL40it4ljqPO1zl11mUif7SC25FMHF3Q1olY
8Y4ByUOsdcWi89RF0+tvaGZAwxUNq+2SOLoYUpCc2cUAC0L4+yIOjtb06tud
7mXA6WUDQk0pHF1+bVioIWTAhtjII7AER4YhxlHnuOLgYLb7g44ijr59LzPc
uVQc5ux/xEoqiXw7mA7oqYj6TSJMSMo46lkFDl/WiEPNxx0X5dRwFPPdcrnR
dnGgDyv9IeniyMih+gPbXRy09fItD+jhqK/c+kL/XnFIIYe0dory2TjZ9r/4
I+KwRMZjWCDK/5/2jqUjseLw7WZ24C8+juLKmwMqE8Vhr1WSUZMFjjatcla+
c18crjYRn1VZic4v1e2ydZ44bEqb6/+5DUe8cg+XzEZxsPXmy47vEuWH1lf6
6TZxaDHyInh74igxaW/59i/i4Ml8Lv99H46Gg71XLgyLQ6XXFgXpQzhK1joo
cGcxQdA9FWR9EkebkwYf6skwIcGsu5l/Bke/Kf7uNEUmbP72ZNYuEkeWPYGo
UJsJ4V2jE8lXRPUi8VgM25YJvuu9RhmpOLKlnNWqvMqEN3HXj/hgOPJ6bdxq
Ec+EuXxz8kSVqD6FTkZUpTIhVOffrXfrcZQxENj6/gkT6g9uOKvXgaPpBo+z
tY1M6F+3Mz1gVJRft43bmrgsCD7ZgXzUBOiV/eRZh2UsmBqvbQnWFqB/xZ6v
+qDKgjT6kG6qgQD9OaUV+XEtC7qSRkLW8QVou6e8dqsLC1ZvIGGZewVoTn0y
sjOFBXscEtpiHgiQVM8z7V0ZLNCu3ZdvnSNAGimB7V05LMCmvxkrFwqQE7Nf
u7uMBV/jP/uoVwnQP6Mt7V+/sMB05bhh4pAAuZQ80+lTkQCL3dGafBMh8jsa
2OGzSgJe13rY/LIU3fertM71G0iAUklMet52IXp6N73j52YJCJtuMco4IESk
qBvnBv+WgEsxDbfUE4Qob2vgp9/ZEnBq7YnZ8QkhwuNV3b8+k4AXax1vzBLH
kEF3R0djqQRUBmMb1dhjqPiwecfTWgnA0y2Nv6iPIXRLrt1vUALWDljKTe8c
Qx++VLT81GRD2ioJhmb1GJLSOLGjfQ0bovcXXg1vG0POQTotVUZskC7viJz9
MYY6SUnND63Z4Lqb/iSYOI56NQI+eh9kg1P5iMNus3E0dlT236+P2UB1fGl5
BRtH68vq7Zvy2TAv4af64OM4OkmJanr9kg36hJCeod5xNJf4X+PdajbIPvoa
Ik2bQJRyrGHXLzbwd/U119lPIFmaf127uiQMmzQG+Q9NIHcHZZv3qyWhLCwu
ondhAqUmt9W+WC8JLNORF7elJ5GSNtQmbJEE9sG9Y4Wmovfl9iU1TgckwbVK
0PYrYRIZpaKqpkeSwLzl8X7eYQr1rc7fdDBPEgTHPn186TeF4t7dLyS+lIRW
n/DSuotTaGg4/IFhjSRcN988TXg9he7yNoWnDkkCmvqh1KU3jSKDPZYVynFA
aUOobrHmDGrf1Nq2qMCBoJP6NhVbZ0T1zC7OTpkDOqb7tPn+M6jzjgn9pyYH
AhLr6x7nzyCDqmWT8sYc6FrSf97B7A/ql+v8GOHBgSydtxGGx2fRpt7tMfVe
HIisYp18en8WxT+tsZb/mwPs4enytzWzyIxfgp4FcuAGebVWh9IcSvZLyu2L
4MBbXTO02DyHfhtKHtI/z4FSqeqiWuI8sli8pBZxmQP7LlqE2evPI8Gt0Dty
NzmQ8cS2Kjl+Htm8drlq80C0/1wv82zPBZR+udEi6REHDOUZeMWtBTTpaEno
y+aApo7T3tLaBZT50/BE+HMOdHNiDHYaLaI5SZm/C95xQFIvxy+MQ8DyvJtB
9icHwpO+n4uRImKPDp0Zth/iwLPP6b3NhkTsbpB68uXfHNh4Nsm32I2IRUec
Hp2e5MA9V77vwTQi9neq6v3PYlzYx+20H19PwjweNGyVYXGB8/gZMcuThDn9
Ezphx+HC732uJIXLJAyK6+zeyHPh5y/5fp8uEqbYHDybrsUFrZFektI1Mibd
qfi4U5cLgZvs8mJLyZh4z3snKQMuJNDxqPEBMjY9siznvDEXSGsiw17bULAW
xjv3A7Zc+OWjclBDgYrVcQIpaQ5cyNR011J1omKYnFxBxw4uREyvvOIaTcXy
/vIX2+rBhUWtwZe3F6hYNF+6WDuQC1npv6SfTtGwKOvX+3yOcsE8abNu/kYx
7KSDr8S941yotbOKtAsXww7sKfNhR3CBHjBxI45Bx/in9ksLYrnwKeCAiZQR
AzOKlEBat7iw9DG/NP8KA1t9+aWfdxIXsqUrrEM+MzDF28y3LWlc6MaNrtZf
FsemCwqDigtE61tqf/ddYGKjL/cojhZxYf/Jj3bD3izs5xuxGo1SLsheKNkT
WMfCWht2r0ip4ILHlYfYaIYEVt9Crf9YJep/sPyyiQwbe9uVHypex4WOmSVr
ll5lY/kD5KawZi6ISWgoGkdIYlmjuaeK2rkwL5d9sXtBErs76fbXSBcXDK11
Gn7xOVg05ekZzx9cSPGvjapq5GAHlJ21+eNcKPTv0i+nSGHHRk/z9ae5ULV8
nTbVWQqLfPPATWWOC0WlI6fUs6SwOx6j54kUKXi+94TVrR3S2HyPl1oCVQr+
/7/nf7k5r20=
          "]], 
         LineBox[CompressedData["
1:eJwVkgdQlHcThw8OkM7hve9776kBUaRFERUVENkVgyhE4c6CJYBKNDQBkRJB
oqAUGzlFKWJFQ9Ecgl8MBLCgIEUkYgErKqgQjfDnjnIUj++yMzs7z8zu7Dwz
P7Ot4eJt6hwOJ13V/81Dr37MDJby8X9bQrZ57+ajeX2tjtMNPpKG0Jfh0ybi
x6qDk/dW81EvNGTRjmZjLCpdOaumlo81I2fL4xKM0Tb3qfeqZj6m3r+uMHvP
Q/JrztaMR3wsX1JaEZHLw2sHfKOetfLRTK/CxHEtDxeGfcja+oaP3jo3bkaf
M8KRrUVFBZ18HK9zjo+ZaoRVPjsq/+3io9Kt5F3yb4aISwbaYwgfe03Fo8aV
BuhBaVocVqNQdCVL4mqkj9Nb3PJSNSlctnXJrQPX9HDsaIrJAR0K55VOH3FZ
r4fSCdqCBGMKfytwq6q4rIu8UV3tcDMKtcPKYkKCdLC7zPNAyAwKJ2X3izgm
OlgddYQTaE2hv+MXOvCJNkb2GAxvnkNhrcXnqPBl2vj0He+TeAmFmkz96VuL
J2DxWdF2LzcKA3J8et3HtTBl0/EOzxUUxvru6J17RwsdnvJffiei8MGGQ++4
32vhqXqmacEWCj2eh1wMD9PEzVenFE9KpNCduvYw/yMXHUN9bQTJFM73bDr8
z19cnGh9Np9/kMIUB5terXQu3s0zPad/jEJl7bjsLwcuWmROkyjPU6gvn7Jz
e5Y6KsUB+qOXKByuC/HsiFDHNqNLaUOFFJ4cFsUZeqpj2sEZiaSEwqFNX9S2
q6nj5z1WkR23VT62KDwTrYY1jkE97TUU4oY7j2esUcPTg0XBL+sp7Dr8+bnL
PDVcFfFtwJOHFJrt5U2n5BwsCbBdc+8thfvXcpV9P3MwxsN+wWUOja1F67sG
549D79KCvOMaNEpuPr67jDsOgYsnGcVr01hZujzap0UJm+w43Z48GkVh2vuv
hCsBmaacL6Y0TvnSuOv6H19BryPgqx3QqPaPv/dG3zE48LI1SLiURjpEVM+b
PwbKJyta1dxpnCxPKlltMAakbvbVR6to7JzN2xN1axRapaObo/xo/GQbZvva
ehTO786oKUug0bjCKmgNPQLCXVpzzifSGEslf6zoH4bjobvPpCXTODPHS+Pw
k2FI9veP2XBU9c/MafKWk8MQ7Pat1ehpGuXffaq6PnkY7I3vHnaponGZzM64
wFEBUt0FCovbNIY5n17RbaIAC42iH41qaNx65ei0eA0FCIfSF7+9T6N057E6
ycMhUL7a2Jv4ksYXEsXdjaFD0FAoE9eO0PhYZCqOKh0ERZ16pfo4jV3VvYKg
nEGw6Jo4HbkM+l5/3VCUOAhJM+bJK/QY/CXnQrDu6kFwztuVUTKFwYs+qxbZ
DA9ASW7/41wXBjc/L2W54gFor9Bwfu7K4MPfr0Y4uQyAwQvqEuOuYh2GV2wz
AMHs/KhjXgxyDed3LtMYAPOT0VTqZgYNCkd7rCr6ITt9cE1kEoOroxv369n1
wz2p1o2rKQw63fwhQWraDwNNzIwvhxiMFa4N2GfUD2K9hQM/ZTDIm2Ej+bNX
DvppsSd9LzF45Wy155prctiXqHi6/B6DfusdH7wCORSf13ZJaWRw160AT8+5
cnh9i82/28zgr05a3h3mcnBSOsS4tKn84j9MT9OVQ3/cbsa+m8GsH6d257fJ
IDBqZJ2prgAfpyqyWn+WgXRTqjVlKMAE7Ru8TWEykLlSY9oTBdjravDD1wAZ
xBvbXpAJBdgWd1t0yksG6cVbPtdaC3A588jT1koG17vr94auEKBtAWd/Snsf
jPy9VrxlpQCr+8nuhqd94FLWYb5OJMClxaKNFg/6oD55rAE2CLDS6KhyZlUf
vJpmR/GDBOgpbWACc/tA3Ter8K80ARZW1rkE+/WB+3fm8cVHBGhoRRh7nz44
8m3pyosSAeZlJDyivPuAHmmUHckW4Kkeh+8nufaBVZbSeXOhAA2877yws+yD
VS3bWrTqBehQXq8WMkAgo1x2cfS+ABdnr62R9BJ4dm5vDPlbgPy8y/T9fwhs
CcuZ/KJNdd9o835PO4EovQfbpF0q3zvU/ZZ6Arlu9iOrJ7A4/iLW3fICgctS
n6ybeiy2d13IHM8lUE7H21vzWFywVNejN5NA64fqMCXLYsufST7UUQK8FK/O
QhsWbQ5NObgzjoBpT+Q+/mwWJfZuO9ViCNiuy/zml3mq/bDZdwt2EvC0eO2z
2pnFwOQj8xYGEUi5F9z0dSWLBr6Ra/w2EDhpmx4UKGZRY53libNrCVzKLNV6
vI5FrwPLQ/tFBKq3K7DQn8WSa6fT3noQGNNKuS7eySIy2ZrliwnohReJb0Sz
eHLk1+w8JwKT2pp6LeNYTHSNZvMWElhYwLf5msTiOfiU8WYOgUj3C2cLTrD4
c2bPQbElgcSrNYsm5rAY3dgp6TAnIBF0P9tzhsWZ9rFjKdMISLts+eJ8Fp9H
etTpmxCo8hKXVF1mcWNXhW7PZAKNZdErLa+ymG1pHd8pJNCdWpU6VsaiTjkp
0WUIDPW+Mf+pikXNG0l+zhQBrfXcOy23WfRLT9JJmkhgupXHWH4Di/MPSmet
MCIwV7Ijx7iZxbJP6hmNBgRQIVmw5xGL632Fzf76BPzq2yJEL1m0fDvvYq0O
gR12owZVb1iM68dZmdoE9mSbXLF4r/KfO3VH3AQChziuy491s9j0asIPkVoE
cgK3fRj9l8U/agrkCZoECh+mJW3vY7Hjs5XtGQ0Cfzr8btoyoMrHzFlaD7kE
as//XbVohMVDn5tjGBU/0ZZvyFeyeLPxfHyEOoHOCGaIxxViaoiU165GQPbM
8UT8BCH+Mid2rr+KOUt853zUE+J7Q8VrOYeAUdG+Zm+eEHN9LvBOq9jE+FJI
JSVEJndTvY+KZ+6u07YQCnFOcgrXUsWL3n36TfKNENXvKW7rqNhjheHSUTMh
nuD8VwT+D8VF7S0=
          "]]}, Annotation[#, "Charting`Private`Tag$24023#5"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.772079, 0.431554, 0.102387], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJwVjHk8lIkfx4dx5Zl7zDyjbOjYLjFCSfI8RYcu4ypZXYpSocNGtGkjiywm
k5SJbEo5NnKtRc9XUso1RCjKMa4pjNtOjl+/Pz6v9+v9er9eH313XwcPZRKJ
9PDH/s/EwjxGqAMPco+d8RBcZuNr/pKtlgh4YEtSzC+3Y+M6tIMt7Xt40Klb
UjQjZ+GzPWYm/9nwgLyzeKXYioUP2ad2qG3hgZJJZSgiY+KfS1nRWpt5kGzc
E3kwgYnD7eF+IzMeHNp2KWluhoGHbnua5LmcB1G3eBfqK+g43AwU6OrzIDHK
jnhgTsdn6ncrt+jw4JLv+MDUMxp+8fCQh60WD26Zeo0fzaDi7v4maw3IPKid
cltdXYfgSaUqX6RzKDznuUScPYbgreQPsfcVKBRysx6vmtTEBbEB47RRFJ5u
/uxzcaUmjj0tLR7pQEFmlj+hyNTAA4ejvdPbUNDeFz67wkkDLzA7qnu8BYXd
kfjDmFl13PClckhjHQqs8kz6P/vVcZ1PO3YVvkBhneuClp16ariLvvaM778o
nF4dff+nZlVcdFKWtbIABX9pbE9CjCqOjEcx72WhsB098XinqiquoDS0XBGj
wHtRc4anrIKvd3wYaZaAwlR/TXTaKzJ+4a6f5VAcCse/ma8OCCfjA8vRB0du
ouCW26CTzybjLVZuJ7cGovCI8DZK2KCMa91Yq/39VxT0rderrSYr44KquXe5
51FwaKulFNQp4W8OpBgu90Lh09pa3+QzSnjBud4JdRcULrWdxxVZJHy0oDAN
HFEwijitk3SNhBvOhh+8bIeCPL7VW8OJhD+KWFMq245Cl5pfnZliHhP9dS60
xgyF8JLeNudnc9j5RgUrjo2C9G6YzSbnGSzewc5VREfBFXqcE9gzWInkYcpt
BIWT16/0tzZ8x9Rq9vATyCgMmtaYTzp+x8QVSXvvj3Hh+Q0nS+pRBVZZsDU8
7T0X7gsFO4cTp7Eh0zt1T+q4cHf6Z0mA5zTGzv3KTa/iAroyd3Oq8TR2+Jno
UWY5F2xKDze9fzuFjaX1vszJ5UKFXooMU5rCFt+NnC2O40L7wVeMjxETmA36
xaY0hgsZuMbc8kMTmNdtk6gXN7mweJddeD9/AssTti0sC/nxX9JVW9k6jtlG
Gpq/vsgFy+i/vUv445hfUMMFiSMXHiwxvlo5Moq9O7SwX8rmwhe2gfmmfDlm
l2yJKehckPmIr4pFcqyx43A8ncKFdeyxPMxPjrUff2hjocIF7fKr0h2mckzu
ZZASM86B/W9+YYT7DGPoJStXiyYOSF4/+RmPHcRORLtXx8RzYPPZbI8CXRk2
UBe69NEtDvStnHv75OsA5sNMC/w3mgMikxXBg4UDmL/o68qeMA68nmfs9bIf
wCLv+d2w8OfAXKtMhIT3Y9mPw6x6DnBgUYuTPovch82+SM+20OZA0+cZSuYq
KVb90YjyXYsDy+gV2gJFNyaezDtZzOCAMIZava6qG7M0JBZbanDAPj89Otu7
Gwu8/z5q85QWrFBItv+a34VNBs2cwpu0IMQz+PEZu05Mbr5Pf7tQCw6+NnYv
tWvHup+PCO0XaMHwZnexkfA9tj5FrfFPhA2XU2yRN9SnmOWSBsOb00xgTTVN
bRRVEw/YiKnjOBNWWHS94CypIciqNhsXyZlA/QvLMcuuId715Vtn9DGh2vrO
+x01tYRL1l2Xqg9MOJKg1+1zQ0L4mR+7juQzASRG72LeNRCZ++RNN88zQejM
0RMGNBMMfNUnR28m3Bx+Itpa0UxcNHbvWOTFhOf84PV8VgthodUoyzjKhO5f
5+rKM1uIytbC+So7JiTegJg+aSshPRG8imLIBLlPsp6KexuhE0T7LUrGgPpm
z7y0qg7CK/Uder+XAepa0vrusQ6ioCbseVYXA8Kj3k3Y6nQS9nrzfbUfGbBw
w57b8d6dRFjFsAOzigFKx68HbWF1EcP0+pXxGT98KC/X80Q38TI1rjH5LAOe
rT+clsHvJei1dr7Zpxgwlj6vffpIL+E2hWiWnWCAi7Grmld0LzFlG4p1uTEg
dfrPpjWDvYTBsF/6sr0MqFIPbvyc1Ufc3rj/2tO1DLhiMN/TYDlASMTGLp7t
dFBy8sTuJXwjSKm+8e2NdNAZCf5o8eEbwc/IanSqpoP4hqaHg9YgEVu0yt66
mA6/G1uMDwoHCcEH/V16d+ngpLbnAy1uiJDQWZYfnehgc87309kDcoKECgLt
99DBcfUT8YVAOcFfHP1PpTUdQjrS0iruy4lYA02zwnV0iPsg/erSIycEtsqG
IgYdnu3QX/BLwAghuT6qu6+aBuz2bVd0n40SpEj+4YpyGpic+kRNbx4l+EIf
sWUxDUwzTGbvkcaI2GQZb006DWZzo4WFjmOEoKSLqRFOA/qf6RfY82OEZKKB
/NKaBkuXbtqDn50gSLOMrRs30SAnrS3PSDxB8FXsrmWvowG/Ik09vXqCiGVV
zSTp0yAxtK9kl9EkITAqnwiap8LLJTbDMd8nibpTuX1mxVRYlp9HouVOEw1f
pgRWuVTYknLoD9uBaeLDfst/t2dQwZq/0NpQ7z+izaYi6kAiFVgb7qQoxf5H
yPSajS8HUWFS/DZ1Y4CCUGlVBJVsogLl9wsksc8MoSHAel6ZUMEqaa+jQ84M
gbwJ2Vezhgrbv20XT4/PEKx8iv7nRVTg6G0pWxM8S+gKF7+e/06BpYtoZ5qS
5wgL260M6xIKRKgv6eVGkcAKwi7vzqPAXILz+6ACEmzZUNXlmEkB8wiHe7c6
SbBzuVP+CTEF9j417ezfqATOSp6uYVcoMCWXXqocUwKXgPTyaD8KeFyes9m9
TBnchocM7pylwFgzb1mGszK4t/vPp7lRQOXYgqJFxcpwrigi9a0lBawC/LSv
C8ngx6+lNphSgJIlfZX1lgz+aSz/jwYUWHz8aJtcWQWu3k60/apDgTjjVo+O
ABW4eT5riDKLwFIWp9f3oipE948c4Ewg8MLrWtGRfFW4dWR92U+DCPBEHsWF
06qQsJeIM2xH4CfdTnF9iBo8XlVvLihFIIhbRFmRpQ6nVuSUXctHQFP1e4iV
Qh1WLxfuyslCgOIacWixrQb8rWfvxkpCoNcp64/AbxpQiNYHN15FQNWr7Fbm
bk0I5ORoqPojEFt6jq35VBMs2UKhmS8CRxqZI7UaCADN/mH8EQQS088cHatD
oFK1/rULjkCIhsOVf4KpEEnOsYswR0A/ycXTdYwKe5SELUV8BP5Obf3kfJoG
9TMC2UJ9BMIUzUWT7nQQKfgXd2sjsMpcIpVL6bB/mjETxEQgW99ti78ZAz6O
SajtSgh4kt97fS5jgHgkO56q0IRrIp72bwgTDg/H6lqNasK832e/yANM6JIJ
jJO7NKGTd8ru4hQTvnZKnI6Va4ISeTRP5MoGqbY3lVT2o/ecmzcIYMP/ADZg
B7U=
          "]], 
         LineBox[CompressedData["
1:eJwVlnk81HsfxYfZxGRPN3UbXHRtKe1Tj99PhZIQPaEQIyoJWUNKsoVEhCiV
Ldos6WaJz7fSzV72sRYz9qWxTZYZnp4/zuu8zl/nv/M+ikx3cydhAoHw7Lf+
73HTvkTZW1T0xuGSk5m/DK4s0DfIDqSirxInzwnTZfAAvXRovURFga3N1vSL
0ni2o9G1CUcqOrRbpWhaWhr/FsbbS7KhImbQwMMSkMK31JoU7TCmolVlkRPR
ilJ4q/lq1j1NKtJT9dR7JCyJr3q/cHiuTEWmgeTugmAJXD3ZcvPHTVSUH5Eb
QCdI4MHd+cnTNCr6fI+UvE1UHNc6Zx9lNklBB6LzrCsMaLhVOM3wwiAF5ch/
exDYK4aH5pYQg3spyEBTQUDyE8O7JiSD8hso6IyFgRm1SBQP9/ngLv6agvY2
H3QWHF6DFyZf1lTNoaCUY5R1B36K4D2lG0b/k05BWcoVXaFpIrjOyhXm5VgK
mjBuDxpdpOLfw5X+W+9GQbHqLJpiPQUXzWuU4jhT0D+LdIu6UAq+uy6gcdmO
gu6PR+qv6FLwGIkWQw1TCvJ7cDG+9h0Z35tyixGlTUGEoXuosJSEO5Zp/3q6
5Xf/RwbRPIiEx/Z0vymlU1Cxd+acwkESzlHYqTUqQUHzzoIjql+JeHweh36E
S0aldyOMB+aF8bEyfTKlkIwsFi3ZZe5C+Iv4d7VeuWR0gpMmytYVwl0vqMX1
PyajQgOt+jFxIXxy3dqNFbFk1PKzfehGIQHnerRu83Ylo45Ey6JNBAJeaGjA
63cko3ArjsbeF6uY5+aSctMzZLT/jFroQ8tVbLYuzUDDiIw05LdbeRSvYDxV
R5uBLWS0xnvFxDRIgL0TtCqa0cmI2fR5IERHgF1tNRiukCMjA7XsMtYIH1u8
qe75gExGr6dT8hqt+Bi/ZzrCjE1CEnZFun/rL2PCCcFvKtNJiDMr6mtntIh9
ujhzVTOJhNS0bWxqxRexUPycbuodErrdmTfIb1nAyFOGNT7XSCi+gnsry34B
Ezkq8V3zNAllye3XiA75hYmvPhJNW0dCQrPxKwGD89jXNolvImtJSHub7dFb
xfNY3Mub931JJNRtv2fzhtB5TOq0k4L5LBFldIUwBpTnMdm3mrvXNBERsyKC
99h1Dtt4qdzBL4aI7P7cYf1SehZLra42WBtKRLvTGiYVxmYwedV2jcxAIvIu
8e9c/PA793PnG12IiDrjmtzkOYP9YakapXqUiOi3j0uMsqYx2UPxRW1kIjo/
y7K3fsvFaBvPE3feEEbDZqaSDccmsZir3iM1vsII6p/IqYtPYmLtNxvOugmj
+LKU8/xvE5ho/MPkaFthNOaZnrVoOYGJUJs12PuFkYL9nRiVS+MYefbAyXsL
Qsj+7JhNW9YotlIrnc29IoRy1ut23jszhJ1IUX273kUI+UuXm/A1h7AsJ8Zn
XaYQ6mqkcbNWBjEjAnMwxlwIjQaxTxVkDGJJuwpV1HYIoYBaudqUSQ6m9cQ0
x2GOgETCU5OEY9mYjU/Ms2ZfAkpVGff679wPzAujnbz4awVSYjY+NrnMwg4f
gjDHoRXgWRJzLtFZmJyh5zvbthU4+oeb2JemDqzEhCVv/mYF2hVd1u7a04Hx
bbP6Ge4rcFHCAGshtWOh1w6404YF8GqR3mj0vAVLKnWNym/nQyqnn22xrREr
2dGA5t8uQVK3J6XwZCmWL/VvwfoKHjR5R4WsMf4E5nZSRj9e8EDYo0FdwPoE
vOc27NxUHiifm2fTnavgwOHZdYyrPCjByNSF4M9Q7asQaLODB/tzHo9vKP0C
P7oD9J/mzYPahvt1DjvrQSpHu0s9aQ6eRLbYvitohuKZAK/Z0Dmo+pr5V8xy
M1hh/9Lee83BqFze+ziDFkhn2WDHT8zBdTWPbs3eFlAXi8pyp83B1wsHz9XQ
2uCgB8etOGQWCrI+Jp717QAvxgOirvsMDH8qVmX790Bi4saeU3YzUKTilSFS
1wPFU4+K3Y/PQC77tlPgpl7gZWQ4PdWYgbBRypnjqBeuir38QhqZBr1/fhGq
xL7D9Z7K6Dr7acisSvWP7PwBkdc5MtbmXLi7cPLXmRw25LKcJ67ocSE3v6CP
2saGGp3RqqhtXFDMjhWbJnJAdHjS5704F+4Q9366zuSA/OOpfCzpJ+xl9xs/
VRoEFT3ZvQ0RU5BTuo/Rkz8EjLCzR0ZcJsCDJiXNIo9BzUJQtt2xCTAtPkQ/
zxgDK9eHwm0aE9BuTzhzzH0MfCw633+YGIeOAkO9P7rGoEDRYnua2zgI5k9q
D78Zhy2VBvImnmPwPpo9FuE/Cf9sd/KrMh+DSongcyLFk3A4+1YrY8cYrF2e
ODo3NQnMGBS7ZW4U/mq/3CzrPAXppxlEId9RiM+8P/LM+ifI/tKaeOM/AvfH
h3e3veBCpovxUfXTIzCQcyCtq54LOn0uOU8YI6AccStdeYoLZp+f2d9ZHgZD
m9CRqO3TEJ2g2OYcNAxaOuHpqHwahLetq9xwcwiYTvVLg30z8PMC/+6NSA5s
tT2qZuIyD62vt0uaOHMgTF6SaZw6D2VzznGbDnOgwp7f11Y7D6HBTXGlq2x4
oLsslKTFA/mUnPhZXzaszsbUb17iweEvZgnnnQbgVKQynVG0AGprw2V2HxqA
m1bJem4TCyBuUZ5AUhyA0Vf6l5y2LEJnn0ri055+YJ5eCHv9eBHceEuJ3Rb9
UGSQYaadugQpKtlJpgd/gF9P29+R5XwIutQlt1nhB9gbJ/JNSAL4zKRv7Vz+
DiX1+lQdEwGcDpjbKuP1Haxf5o1eHBRAWF76tgiHPrB+XWkaqLQKZrvWbFf+
sw8ojd/L+N6rIP/Ba/sHVi8cM7/4qrt6FQpYR3SWTXthU3LJEVcGAXVRZ3e4
6/aAcULkB7+fBJSVYLuTttQNPir0dZWbhZA7vXpn3ttumDK6FtdnIoRIex7t
Ymt2w6GogqYvhUJoq7PhHsuNXbCfFkxbDRFGt6rSGNhCByD5WkWl3xwYadyX
4FTSAaOGAcO2vzli0tkxHn21A5T2yGxobiEh+SmZR6yFdgg8PBkeY05GBetj
Vq8stkGAft5gsD0FySmpW6WUtsFds4bi4mcUFKhZXVDp3wZhih6nbnB//ww9
ElNsqRWIOQbaMhFU1OtyrSprqQWuUYKezdWIoIM+8n/WlbXAeOxD21T6GpR7
o8RnOqAFNrs3XjjrtwZ5J86p6v7eCcm4qgOPtESRaKXr7Y7lJqBNPc8MeSeG
PKpFBwTlTSA7z9/3ToGG2ppzGcrXmmDsXuRfrBgaejLMGffgf4NliUe9TLe1
yE2p7KHs0lc4ez4z5/lpCbRvD++4Q8BXQKTyRP3vEohkrLP6aqkRKi98zqDu
lERpPs8dDJcbQDqj41zIJ0nkHDUknRjYAJUqLKNmcSmk81ip6sdyPdA5iV2v
bKRQdXWqagC/DlJP3mYmEKRRQm97x7/X6qBEOc5x9JQ0spuRvi0jqAX1vpxk
xwJpNL8xevyloAYSA0Q7gy7LIL+Jj0Yt3BroH/RY1bwqg/4H4iF4Zw==
          "]], 
         LineBox[CompressedData["
1:eJwVknk81PkfgOceR+5KOcIklViltlLL+5Mole1QLSFy5ecaR5strdQkVyUk
hUTOki7XquTzdcvPVW5KM84hxDDOkd/+/nhez3/PX4+Go7eFC4VEImX9y/9d
cLVg17Xxj5Dn4OFy/LICKuYoCms9a4GTkr81cK0Cyi6q/pA4XQtozyNJn0J5
FKK56ZghrQ5un6byPBfl0J/WHYrSt+tAIfrlMak0OeQYFcbtUaiHW6/nGzp/
l0Mg4vteW98AOsvzHkdyZJFo+FStg0YTKK/h6opkZdAU7cUvh12aIGp+bCwz
QhqNqNHv6T9rgm6VFSuui0mjjtMFNtRtnyB/aNu4SEYKFZSuGktHn8Gpuijh
4CFJlPPF68Sd4M+gsfh4Vfg3CZQ+W1lwseYzxIXvpOVekkAxuv5XDxxvBtW3
D5IhTxyx49tk+PYt0KbTP2B2QAy55P/yZ1NaC1g9f1D6zwQT2TaGdBQNtYCP
f5M1JDHREfquJ+HerWAz5yIyEzHQJt8H+luC2mC80naDeRMdqd3+EadQ3gYm
MT7WQeF0tDrr4OIiox3e9YtijU3oiPZ1trwush0e8VhzxiU0xDOzOs1+3AGh
Ln46n8qoyGjgb4f6rx2gKnHBes0tKkq4/sRLR7UTiLm8++6nqMji3cjNkcRO
GN9xeZPcCAWVbQksPB/fBbZF3+KT1CloXc2TssqOLtj8pgj7TpBRgHNVg+aa
bmjWTp1fW0pG+kkyQ71x3eA34FDW6ExGqdKpivaxX6Dw+Gr23gIS+pldtb6k
+Qvwx5jua2+RkPXB73qqCl+BNvo6JtWBhOSv7TDrjv4KuidltDJkSejGZNUl
y7s98NtUyv3p7z9Bf0Q4utGUCwqNHlEhBSI4t1vsQrszFzYnsNpYF0QQGaI0
HxLMhRsRGoeztolghAX0wXIu9MnpMU69WYRUmzDVdGMeqLnmKue/WwCFeqWj
6qgX9otrqBdNzoGxsm5Lo30v/HjoL5f7fg583MA6KKgXKpNJbsdD5qCO7ny+
p6QXkpSxqpfqHAQbvbj6yLAP/oxJU220mIXpV/Bqzd5+eHv/EPttuxDqtuyV
9znbD99YZ9VaM4WQlrXzYnVQP3TGMOhX/YVgkay717+iHzzMPA95KgrhTaRy
dfPvAyB8vjvJx34a2F6zPZHnBkEq82uciD4FB4YF+wY5g3BXnh+NvwhA1WU8
3TBjEFxbtR1H8gRQZzvgPjo8CKG1PWQfJwFomzfPHLowBMFLNsri1ZMwpP1K
mh7Ch9zpHm1K8gSUZGb72j7lg2ON0Nf/ygTEsTJb8mr5kFHhtrDbagIOKCUl
OMoMQ0ZBYVSa/ASki9/SIh4Ow8W7xUbtq37AOf55oyvPRyAyRVHipuwYdGWs
Y082jYLq8cPhdLthKGTkWDwVjEJO8e7L5huH4Z6rwS77lWNAFpspHZvgg/nm
U6R6yzHo3hoovucmH0pywmOe9oyBSoy+S+ubIXiSN11oPzoOz5w8osWUBiH/
3MDy4I0JKG8L2slb1wdX2O/NTicLIE59piclthuMQegs/UoAylm4UvdwN0jI
6l2vLhFA/LWhmbnlLnj4JvWtQY8ALL1E1Qc8u6BwOlx7neoUTAqYsU8PdoIg
wGrFUMIUqKiQvBrF2sE9VNh4KW4a/lExmHB+9RmsUvQsH92ZgdZr0XSDTxVw
PvQj5VvTAoTz7ByrmO+xrYzHPx+5CyBk2fCdxIvxiQcrPPMnFuAvy9o4A8kP
+LesY63hsovw4oFp/n0ZjOWrW7N2HF8EXuy9rIw7pfgDo9c8onERDLNmp41T
KvHKkIW4XxtEYO1XGFXNr8flwVu23P7vT6gJc7NRymjHe5bvp2h1/4Qjq3LK
WaPtOPcyaXXpyE/Yb6AsZr+9A6eyW0kz4stgjH/d4l/WgTlWQW32Zsuw4Uwu
e0dfJzbWab6+vXIZArLsD6frfcFcN0NPL3sSsls8X6gfyMUqWYLMPa4kNNpQ
SVSkc7FVfxaP6U1CYmiIGlTHxU128papV0koe4xmy1bhYeLk0L72JBJKCXep
PVjCw8mG0Yr7vpAQ3Be6u0r0YTu5gbKVZ8iIZqrZ11ozgGkJLdO3HMiIaDxC
D1sYwNmsCi2qOxmVKprGc3QG8ez2tIjJADLaXq9hfTp6EEf94WDR8IiM7LyU
VkXZDeHyxK+8UC4ZWY4ayTmIDWN3zXqFZT4ZFc6fV9eEYSz7otjUf5KMNE8l
jxr7D2PbksRnzhQKcmO5WsQPDOMZ7hnffZoU9HU97vpUM4I3abWRFl0pKGzs
xMb61FHc8LJS38+HghSyPo2SuaP44q4C5+FLFBS9N4KeozqGy8xia9rDKag9
VCPPNWEM23hYROU/p6DeoMvP8uLHceTrBjX2DwraV6xV/s5qAk/tqTbi+VPR
yaO5Db7PBbjq5GvT6qtU1CTdd/B7kwA/9Iw3fxFCRQMbAnWKZwTY6LGH9eU4
KrJxCtrtvn8KR5Bl/eUKqejDZo7Jet4UZtVYvdgnpKKokKfRoXpCLOTuy9+4
REWDagHyYCPENfPa76XoNPTu4zWXf1/G7C1LNZ0raahIXXbTBp4Qv4t80u+7
g4ZIdsRz94QZfOL0iHLqBRpqSf5D3FlrDmuym1lhV2jIWN1vLsB6Ds+EFG9m
36ChsKZwJ727c/hRUeSuPfdoKD17KTlwYQ7zlbef/Jz7b98k2Uqmcx5f670S
QRHQUE6c9/4zbxfxyUXnaP48DR0wTDMhzS9irZVHHzaQ6WjynSEn2ECE60zV
MxPk6ChxxwWSwQcRXvOsolR/Gx0ddXSSHG5cwq+8peYdfejo78N6Rl0KJGK0
eeus4BIdbdZgyJ4FEqG9+5SQc52OJD7+nf3Yg0SkkxInU2Po6M2cR/OFKhKR
EL1ppDefjoyXSmfFQshEu/AI3+8DHVGn3RrXF5GJldbeg5QqOgr+cdP7l+9k
4i6rsJfVTkcxa7Nttp6iEMF5+7sd5+lo/dUVNyv1qUSZomungMxAOl6y3nu9
qMTylYh2jgQDnSCds+5/SiUCTD41pyozkNruTLG59TTCu9WurteQgZ7tjFuy
06YTOQacWr8DDDR90cov1ZtOjCRl1FCOMdCk9ObXfxXSCefzoxWscwzk8Vua
kvwhBmE9e/mDI4eBzOXLOLU3mMQDm6T3gggGWprV4Nm0M4kWTLzl3GOgQsXb
q8V1xYhjYczC1HQGqvDmakp/EyNM1t5/2VvFQNxo3T63cxIEJ7Aox6+RgSxu
WZoEVEsQmNedTelgIMm20LS/tkkSe7JZWaxhBkrXCSwmpFcQentfJztKMlEE
J8fprUCK8ExuThIoMJFLV+LBkxeliWzqbCJHhYn8xbd91BJJE5p1hg9TdZko
Kv2bZ46kLOG41SFOfycTuf3HTnHNH7JEcmxwbJkRE92Q8nu5Nk2WUDr736je
Y0y08OuXhz6mcoRl6XiknxUTsdl33q9KlCNiN8jfoTgwUfGDvvGJKTlCZtwq
nOXHRE+P9mtLvZYn3K7Escw5TMQb8FnWuaRA/A9FBBkX
          "]], 
         LineBox[CompressedData["
1:eJwVU3k4lXsXPebhzMc55z2VlJL5i3C7kry7QaZrzi1ShlIIt+S6IWMZiiaF
5oukEUmE6Pd2pcwyXz5TpsyOY8z4+f5Yz37WP2uvvZ695F3/sHETJpFIf6/h
/7OUE6M+R0hDjssZN6sAGcCLHO2eVEuD17X38Ye7WTCs0ikZ2CQN1Ben5z9F
sSAxyanIqkMajtuPWpppsmDU13Xryqg0WH9/x8LimHBXxX3yCIUMWvIvNF+5
MmB/0lCaBpsMUTefltHkGDAueuaIuCwZtr8taaK/p4NhtzfKUSPD+WEr5dx8
GggSz1+jmZFhc+Gvl48MUOCR6Az025BB2D3+W14ABYx9/ac/OJDB7VXjKxKD
Ao/NA456eJJBZ5SV0XmADGaioSqfr5BBY1phoaZKCpyL9RoPxJOhev0jYyVv
KfD3nw0pvU+GijSFM8t0KUgd9G788ooMCpJ3+R8dJWG+yjG0vHrNz/16+U0M
CaBF8VRNm8kQmbj/e+8ncdiKNzZWdJLhiJGl8sU/xcEi20y1aoIM9Rm3S/q+
i0Fagl5TDZMCgRyIHa8WhUKL2VDL9RR4O9tWnBInCrUSb1W/baGAtvS2gtzf
RGEhQCWsTpsCpSmnFOu/iYDVcZ5aox0FbA9PHMz7IQxLirNhrfcoEPqwwNzE
WAhY3dlqDqkUOOlRPR/NEwKle97NbS8pMGQv/eLREAlsyP1q7R8oUDHwbufO
6yR4PtHQ3NlBAecz63yFPq3idvnZ6n3yVLB+dX7J33QZ9zzn3XJSlQqFxavv
xYWW8TBVlYh+LSr0k85ZZ+Uv4a8fJrcM7KcC/WN3q4baEi4cfiNiyI0KRs9O
7d0tu4hnmnj/O/6CCstVB6LCVH7i/PgtRzqzqbCBfMMnTzCPa7W3tFQXUCF0
4EHNnaJ5PM9nX8vrciq8Mdxrv8dmHke3sWbPISqIQYp+7+U5/FvHp4YBZRrc
YCpMTYrO4iylv2ybNWlQnayssq9lBj90Vr2hVJcGMUKqvtSXM3ircFJ9mjEN
+jaO7KBYz+A9Sl51ru408Mtg0H3SpvGpc9zazmc0MPylv0nSaQrf+aHSoiaL
BlX+XyU4ulP4BdHwmuL3NMh4++VxMHMKX0ocqX74dU0v/WjRsVIBLlpEVDn8
oMGnXGajxg4BzhU/U9GsSIco9xKRAWwS172PSmue0sH1XtNqktY43rc9S989
kw43ZvnDdZNj+K2SxzlCa38ei6s/uZY9hg+PBqfolNFB87dmpQitMfwhrh98
f5gOYTZNF5X0RvEwX8f1ORgD3K0fnfjn+DDej7XWhTgywO+iTk/X5ACu32N1
rdKZAftY4emC4gE8/nWZMc+NAfXpq5cPXR3ADfbmo2xvBujP54yQFAbwu55J
GX0hDFiKLh1ud+jHTYvtrpimMED960Luu6ZePNO1HrgDDHA6/ttLk5/d+FOP
i6MWwwzQs3dY2FDTjT88q3g3epwB9z/6UOSedONXQwIn5mcZgPPliEzzbtzt
/pbH/5VgQoqyV1WXSRcuW++7mKzCBA7X1qwsrx2/ulcmT82bCUo+WNzGshb8
1OZDanunmdC1YFrsp1CNv+2VyD3IZ4HSidwA9cpEZMoWU4wVYkOgs9zSX1IN
aGudYWq0GBt2tcbwflo0oKVrUXKXpdiguTpKSbvTgDIkJLFgJhseKMzsDdzc
iBiL0pJ/yLNhW7zRrd16TajpO2PYZi8b+G4Tn9/5tyDnLNnM9eFseH66PmiB
1452eR1TxSLZ0HDl0sftbu2IpfI4XeYKG5gu7hHp2e2oJHXT35RbbBiVyXU4
adaBFBO33FxJZoOFeHikTkQnGrmo7NtDsKG7zFBdLLQb+Zvq7HxJ4gA51mxE
fUMvmtj/LDVelAPJYgeNMg17kfue9fQgSQ5QZ0tLXc72oqOapEEzBgeMUdq/
Ll96EXCr7o1t4sADnn9yq18fIvecWNbEOeArfP6caXs/Sg64/fl9MAd6wuga
XW2DaN158R3J4Rzgd21Q2kYdQvFeAY9iIjmw++w45ONDKNLJyd/+Ggem8f3q
FU+HkKehmvLiQw48e3RGoejPYaTDLIk1KOKAv8em0Z5to6j8ucCmdIEDOe0n
bhZ8m0DzX4U/CK9yoFKYUbNLmo8Uf7C2gggXxn0u8JzU+Shim/ZUIZkLc3w/
++hzfKSfev72G1kuvLVdXOe7ykdvHkw3PDDgQtZsNLtfVYA6C0X1W/dxobjR
zPGHtQBR29hpXCMuqP6I/mocIECevF/8bllyIbPwKl+jXIAUEv5kRztzwaJR
S+sf7yl09/rsId8ILhRR+u5lV06jLxnixVlRXMiXf/c57uc0mqnibhu7ygU5
vXLmoNIMsiH/OnP6Nhd6pef0VKJmECXmr4RjaVwQOXg9bbPJLAoLn28y/sKF
jelWTgEjcygzWdIgqoILEcxCWuaWedSBeOklNVzY9PPlyTsO80hvRdffoIUL
DBufh5FV82g6MICrM8iFeutbnd4FP5G738Lvm6QxYG6lqzp/WEQZR6NV2DQM
HrmGxqktLiLBPvaSJAsDxe0u8k27l1AQc3uKYB0GMYq51i1oCV3PdBkpVcGg
UIKo0mhYRg0J48WF/8EgUk37y6X1K4gXHHQzawcGOqZjqr2uKyjVLOGXe7sw
kDVrc+icXUG5g2WhXiYYmM99LTvAJRELtXY2LuYY8L3kTgUbkAiD9z0Kv1tj
sHKM1XrkNIkoi1wqx+0x4Ly+jEt9IBHtWzTZMh4YNFh43an1FCKEjyU9L4jB
YNYi0iqCL0wYHVAIyozDYLXjaSlsEyHi1LLNn9xc4xob9i06iBCchQpB3F0M
9C93VEWUixDKSSv6zs8xmBi85FWSI0p4h8TS7V6v3Y9Gg40mRYm3brwekzcY
xNbOOVE1xYjdOlrR2vkYzLj82huTLUZY1LnViZdhINkLWESpOHE7X/BksXIt
X/Mglh1Ngvj371B/fi0Gvoaqg5VHJAgXn3sb2lowGKS0JXwXSBB+5Gq3jB8Y
OFpq5IfskSIKBPa6qSMYnFoynN2TIEWstA5IJ02s7QvN2K0xIUXEPCe9CZvD
gHf9sa3QS2nigaHOgq0ED6Lc2JisAYV4mXE46SOZB5Oo/FhnHoXI5wTpqDB4
UKNb3uilTSWa+z/5rPB4oP/Vtv2NLo3oM+8ne2zkQUTPlonaTzRiKlfyRYM8
D8a8jMquW9IJRpRl73NVHsS9syyb1mcQm8Z9w2Q0eNC1bm46OpZBbP89cWOI
Nm+tb3j7TDuDMFPsOGyrz4OGSbUY6StMIuqLZ9WyOQ/uTAa2XSDLEAnbr3u4
2/DgxPJCipa/DJEhYh5+cY1/7z+7qn5BhvgfIsGeVA==
          "]]}, 
        Annotation[#, 
         "Charting`Private`Tag$24023#6"]& ], {}}, {{}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {}}, {
    DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
     AxesOrigin -> {0, 0}, FrameTicks -> {{Automatic, 
        Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
        Charting`ScaledFrameTicks[{Identity, Identity}]}}, 
     GridLines -> {None, None}, DisplayFunction -> Identity, 
     PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.05], 
        Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, 
     DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> 
     Identity, Frame -> {{False, False}, {False, False}}, 
     FrameLabel -> {{None, None}, {None, None}}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "DefaultBoundaryStyle" -> Automatic, 
       "DefaultGraphicsInteraction" -> {
        "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
         "Effects" -> {
          "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
           "Droplines" -> {
            "freeformCursorMode" -> True, 
             "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
       "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None,
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotRange -> 
     NCache[{{(-2) Pi, 2 Pi}, {-4.867359153047318, 
        4.8684707495489645`}}, {{-6.283185307179586, 
       6.283185307179586}, {-4.867359153047318, 4.8684707495489645`}}], 
     PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"Sin[x]\"", "\"Cos[x]\"", "\"Tan[x]\"", "\"Csc[x]\"", "\"Sec[x]\"", 
       "\"Cot[x]\""}, "LineLegend", DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #, 
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2, 
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], "Grid"]}, {
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4, 
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.528488, 0.470624, 0.701351], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.528488, 0.470624, 0.701351], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #5, 
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.772079, 0.431554, 0.102387], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.772079, 0.431554, 0.102387], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #6}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{None}}}, 
             GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
             GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{1}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.24561133333333335`, 0.3378526666666667, 
                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.368417, 0.506779, 0.709798]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.368417, 0.506779, 0.709798], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.587148, 0.40736066666666665`, 0.09470066666666668], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.880722, 0.611041, 0.142051]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.880722, 0.611041, 0.142051], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.37345400000000006`, 0.461046, 0.12992333333333334`], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.560181, 0.691569, 0.194885]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.560181, 0.691569, 0.194885], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.6150173333333333, 0.25708400000000003`, 
                    0.13945266666666667`], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.922526`", ",", "0.385626`", ",", "0.209179`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.922526, 0.385626, 0.209179]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.922526, 0.385626, 0.209179], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.528488, 0.470624, 0.701351], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.3523253333333333, 0.3137493333333333, 
                    0.46756733333333333`], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.528488`", ",", "0.470624`", ",", "0.701351`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.528488, 0.470624, 0.701351]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.528488, 0.470624, 0.701351], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.772079, 0.431554, 0.102387], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.5147193333333333, 0.28770266666666666`, 
                    0.06825800000000001], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.772079`", ",", "0.431554`", ",", "0.102387`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.772079, 0.431554, 0.102387]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.772079, 0.431554, 0.102387], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}],
              "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6}], "}"}], 
           ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Row\""}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "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, ",", "Below"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{3.9071390471340885`*^9, 3.9071393465386147`*^9},
 CellLabel->
  "Out[190]=",ExpressionUUID->"29b0049d-6583-4788-adf1-5427e0128b89"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"Sin", "[", "x", "]"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{
      RowBox[{"-", "2"}], " ", "\[Pi]"}], ",", 
     RowBox[{"2", " ", "\[Pi]"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Reduce", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"Sin", "[", "x", "]"}], ",", "x"}], "]"}], ">", "0"}], ",", 
     RowBox[{"x", "\[GreaterEqual]", 
      RowBox[{
       RowBox[{"-", "2"}], " ", "\[Pi]"}]}], ",", 
     RowBox[{"x", "\[LessEqual]", 
      RowBox[{"2", " ", "\[Pi]"}]}]}], "}"}], ",", "x"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Reduce", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"Sin", "[", "x", "]"}], ",", "x"}], "]"}], "<", "0"}], ",", 
     RowBox[{"x", "\[GreaterEqual]", 
      RowBox[{
       RowBox[{"-", "2"}], " ", "\[Pi]"}]}], ",", 
     RowBox[{"x", "\[LessEqual]", 
      RowBox[{"2", " ", "\[Pi]"}]}]}], "}"}], ",", "x"}], "]"}]}], "Input",
 CellChangeTimes->{{3.907134071328925*^9, 3.9071341255827494`*^9}, {
   3.9071383035116544`*^9, 3.9071383342453175`*^9}, {3.9071385401771345`*^9, 
   3.9071386538324738`*^9}, {3.907138720408265*^9, 3.9071387351577387`*^9}, 
   3.907138782812237*^9},
 CellLabel->
  "In[170]:=",ExpressionUUID->"99d7b1b6-35f3-4d91-92e2-468fc54b7281"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwtmnk0Vd/7x02VmXuvmU+iSNKcBsk+hDJTQkVKERKV0qCUIVMqU+aISIYM
mVLYx0xKlCnzPFz33m0erul3vmv9/rl3vdZZ5+zneT/vZ+999joyNi5nbdlY
WFhKiZ///evq8J9akRHHr0dpNw4ph6idKHgyxblVHO/Tk5USD3MBSjKT70Qk
xPHN6tqjVaHPAP9y7dIBsjjerL3Oahv6BjR/8syyZxPHI2Vm6VYhCcCCc168
bVAMtyq7xOXxKhvcqO2ayvkghutmHLkh7QGBj1ZavJ2cGB712LK8H/sN7rQw
yWEUUVz5X37uzYd9IOKs0cVwAVHc53WBL0dOHyhp+pD4lkcUt9aehU/H+sDm
X/r7o9hF8bGjixjn7n4QVx1v8G5WBNfbsS+hI6of1BVq+Kf+JViSh2Z+ZwBs
jQ5c+x4mgt9181QTFh4CmqJ9mqVvRPA1i73heXuHgMPbQ0FlL0Xw7hrHWrUz
QyA/pFui3FsET18sviLpPgR0Avceq3EVwel+G9HUviFwz/3P3aZzInj/gxH1
hpRh8MNKYnyYIoKPTt25SpUZBUYJqoApIILr53MJeh4bBS39lyMEeEVwHo7K
22xGo6Dn2gdNFQ4RvKDdeqbKfRRMOSglvpkTxkUpignaLaNA1E3tokqrMO46
naio6DkGrr+2+fkmQhjftguvHqwfBxO/fbanhArjITcyvVJ7xoEzKfXxt9fC
eBXT0950ehw8CJ9UGPEVxpeevrxmJzYBAmPuvVB5IIwb3wzmdbCdADkffdVG
zIXxQlEz2X/MCbBWlp6jIi6M+3m7z4+TJ8HPzn28K0LC+N8XNYpLOyZB3EL+
je+Cwjjp5zN8/MgkUN0Lt6pyCuO3eW6W3Lo4CR6/+xt0clEI/3ZmvZbj/SRY
cF+1x1qF8P2fKvaZydFATaRnFUuzEL5imXrirjINvM3bvK38pxCuei38nrMW
DRyeFGxXrxLC/aP95bbY0oDrRTmtU3lC+FJgdVhREg1MHTOU0Q4RwjWZ5KhN
YnSAm/59svmVEB7lmGkkJU8Hb25bdNT4C+GPlxp2kA/Twd5PNm9OPxfCZWQr
x2OM6OCW6IO1My5C+KGJsp3SL+iAOp/wT89ACNcLPe4xMkEH30hyyrw6QrhK
O9/66DwdBOxJD/6pKYQLLqzk1LAygIJt/mkDVSFct6Pw8TZxBrBrqSsw3C2E
T9Ss7lPVZoChL9MhJlxC+PGyNwe5YhggbjPT6+ImITzrU+B17AMDmF1ku3eN
VQi/OJrqfiGTAepYKWb3lyk4PS5Z+UAZA2QZH5aInqDgadJJI/f7GeBGsipP
0ggFvznbpf99nAG2LWmupg9Q8OinM6aDUwwQlnC+t+QfBR+Ir9vZyoLAQ4Zb
Un89BZf/T2FDXxqBAxrPwiaqKTjH4ouweHkEqG/9fGbKKfginHrZvAcBq5NR
dhzfKLirPwzqOoGARlCxokI6BW/cESPwzAyBlb5yyQMfKbiG7ghHlyUC+Yd+
8KokUfB+yxkFsWsI7OzqZOjFUPCXWyeHlV0Q4FVc/eISSMEfaOz0X3+BQPVT
juSHvhR8SMnD8NpLBDyaed96elFwhb4e4bRgBKYf/vcg7DEFN+yUCmuPQaCt
Vu1EkSMFF8/kKoOfEQiWPK2E2xH5aGiwKX1BQMfF6L96GwruE3pD5lEhAiUi
VzY6L1LwTZLZfQVlCCTaelau61LwF/bX6V9/IXCxOCB/y2kiPgPr6N3NCAjx
haYInqLg/ueaWZ+1IOCbn+Qne4KCRwjtXKntRADjzHi4+ygFL2/qeVHag8Dy
pTyHw4co+P7CXDysHwEn9io97d0UfI9l2onBEQTkzH+qGu2k4DLqEW4XxxHo
TW/ZY7GdgoN3B83zqAhErXdvvSpNwSvY9nfRaAiYnB0RcJSk4NSWyyxbEALc
H+ksrqIU/D/drCrWaQSqluen3SkUfPaWknzPDAJHEje3vOKh4Efk/IqVFxBQ
+X2nXn0LBV9/u922eREBtbXusnk2Cm4zc1npzDJRv91n8tPWyTj9qz9fDBMB
7Qt5aVZMMn5kTWJL7QoCun5bE0gLZDzV4Zvo71UEDAsCwqunyTiP+hG1L2sI
nB2aC3hEJ+NUa/9Ht9cRMCddebZngozjJ1vruDYQsAQN9waGyfgc/eZuD4Kv
3Dri+LafjCdvq3n/i+DrsYnWOt1kXHO7v8ISwfb1vOfX2sk4x8DzijWCnRYf
6Ob+JcYbSnPuJfi23BCw/U3Gnxnv3BND8L1zhsriDWTcgnF6fT/BDz2LFX/V
kPEt0i8Gk4h4nmTv2OZZQcYnB7w6ERHv8543wsplZDz8j8CYKME+PCvcE8Vk
vGmnHJckkZ//cTuWdwVkPOTLqPoyoUfQjeZ541wyHtOdFPqF0Cv4reokx2cy
vvrxz6r2EgLhlan9Xz+RcdtP4l6FhN5R0+Q2p2QyfpxHewfrPAJx0h4N296T
cc+XxiPyswi8N5jAW2LJeMI9y9qdRP2S3U0L/SPJeHd80U92or6f0mCGahgZ
/+7UufiNqH9mu2Li1GsyLlN3Q8+A8EfOpoiI5EAyriu958e3MQSKrzp58nqR
8akVh/M7BxEoe9Puhj8l436txvbyfQhUlGo43XtExj/pGeaxdCPwQ1zcvPs2
GZ8vVmM53YpA42kf/WAnMv5f5BxXHuH3P/eRuqY9oUez9iUm0Q+dzdVKmdZk
/KKz2KhEDeHXjf2yVy6R8bLCzwpz5QgM7okTFTIn48bSPNWfSon5IuAu2xND
Mm7gKSmdnI8AU126Q+8kGeesLaEPvUdg3SXw18YxMh4p8DY0KhYBtvj5irzD
ZDw67FGpQgThb2bDZ0klMr54Mr2sKxAByS8PvSclyPiJ8hyFV3cR2NY/9DBB
hIz3pfwo3OqEwA5+I+dzZDJenfeNNcgWASVHuQvfucj4/dx42rI5Aqqyf/a+
XCLhLBHb57cT89V7Cs/hc3MkXLRp31jRIQTYN2kel5wi4W9DTXbsUiL0GSs4
lTFGwidC4hI/SCFg8TnaoqGNhK9a7X23vMIA945d9eIpILhQufRAPgN07Irx
+5tDwtWT3FPi0xnghOTfoNhMEn4v0OzOxHsGYFvXjNydTML1YmT7xF4xQHCl
QqZeGAmv3F2m23+NATINp1pf3iHh+06zxUryMIAgtqvr3C0S/ruGvtVpgw5c
D9j0SzqQ8P2PuzRjZ+lARaiFmnGFhJuu3Mt420UHdf+KNhqMSHhvb4nlahod
DF9/tot3LwlP/U8/5B1GB1Lu/E+DqIL4udb+2qjzNOCQ/EP03aggztrHmjOh
TQOFv3y/fB4UxAUOiKpIH6MBk20bY42dgnj0d/dbxyRowLcanSU1COJ5c0/G
d/RMAiTQrBCRIYhvTekGs1aToCI5rCXBSRBvgCWaf/WoQKDRyCXHXhBfqe6Q
bjtOBZaLPNzl1wVxEz+xaLiTChZ1fMCgpSCOWGQztdmpQAndS99hIIiruQZp
7iyeAG+Pmz1P2yOI/w79IqCxbQI0xR2wsOsRwCON0h5c7R4DLMkuET0tArjM
klJdePUY2J/xucX0pwDedEuN53PWGAgu3mVy6rsAfvvyreag52PAuE1Gd1u0
AD74wRLwbh8DTQJk1U5TAbzn3hsB2WujoMlrRtrwJz9+bj/OdGwaBr/t88aU
v/PhfJOM4/9sB8DHXc3HjEt58EOBYueznrSA/TFNt+/Wc+GRdpe1Jsfzgcz+
k50iGVvwrdRrem36tZD6TWvT5txN+KCfvNa5nE6YEVL0w/XTJjyhYl90BKMT
OtnvCh5I2ITLuU2xfVfqgnRhPsnS15vwf/I3mCmfuuDU7Zb995w24epdX/NX
47vhgvw1y8Gdm/DZB9qfXV70Qraw53ll8Ry4Ko/HwUrJAVjpMPNQKYIDZ+tx
ff3l2AD0wa6rxbziwDOTP8u9Pj8ANzFO199/woFbbPP25HozADl1BPqULnLg
BnfaTflYByH/xjvuWGEOvOOZ0rjSwCCUvPn96oMgdvz1tec5tOBhGFNXp83n
w46nxbC8Tk8fhhLybbs/uLPj9qvOr02qCB6Ymm90ZMdTzDN8Ly4OQzFz+UB5
HXZc7KQ+dt5yBAqdCvnSuokd1xV5E9gqMwp5JW+wH37Ghgv3d77QjBmDQQ/v
jde7seG7yvUrpnPGIE+b5y9rZzacJCVa71M7BrlD4iJfWrHhd5i05ktzY5Bz
y5/dQyfYcDstP6kG/XG4aVbVNHSJFVcr/34+emkcrv8gp0zdYcVtSq68ND5B
hSZR8gWijqy4zsYrTTUDKky2ValWs2HFqZWjWWRrKtRlsRkJOsuK33cJO+vi
RYURyrlyuw6x4qc9nq/M11LhnvdGH6/OseBjrP0mioaT8Pmta4X+NBZ81n3s
jPvlSfhH5UFN9jALzu66n5rrPAkftsaPrrWw4Ovcx+m/X0/CKm6GfEwBC27R
8Vb7169JaHk/KPWPGwu+KLBTHtemwWyN90XLziy4N0Mu7fp5GmQTzK/ddoMF
r1VvHqdfo8FP6V1jzuYs+KM1U7us5zQ416eowHOMBR/JnugY+UqDIsTE5Tez
AUXkOKiyO+jQFfCaOiyuw3Ru+bSnI3SoeQq+uDa6DgMqh94ET9OhyOm7RVat
67A7tzXEc40Ovxp2SJzNW4dFD2/mrgkx4KpV8oCKyzo0qr3MsNRgQJ8nqi68
Y2tQ+oqWWWYEA55/jt5vbluD/B3fGDHvGVDeJ+kPS/UalP+r0W2XzoB1LzmP
zCetQSl/s8CIUgbki21Z7bm8Br2MSzeZDjJgRLFTYHbbKrznFReuJofgjVLp
krTqVeim2Jq4poTgsfI/9A/5q5CRcsw2+jCCnXXHTKJCV+HwCWWa3SkEt3Zw
iHkarkL6VDHlgjWCqKtIx/3kKvQaGp1YtUUQ73N0v6+0CoN9vik/dULQZqyp
14F7Fabn8JMojxBMXYhLOVuzAif36JDDghF8yDRq1y9Ygbzpt5vEIxDUXWfj
Op28AsvE6389iUWQtsnB6YTXCpQuaL7VnoJgKZdUvPKdFcgeUc/xOx3B13y/
f++7sgLlBj0rk7IR3C+sfGiH2gqcOO2Z1PsVQVbx8etb96zApgzTr9qlCP6R
io0Qk1qB5yRZBwLLEby3g5XJy2RCq+4S89R6BL8e+oXPFzDheOkrq/0dxPNE
X50hf2TC00H/ctS7EPzE1G/aG8GEqlSpmEO9CEaV/+y74caEJ1/ybC8eQlAw
JeiGjx0TmoxoluqPIujvr4/emzGhLVvoID6O4AOjn+v/jjAhX2dHlS4dQcbB
IN8FeSYc/mvx9ApC0E5En58iyoQ5lOUis2kEe5d5IvZtYcK/5j/u7plF0Kyn
4T/9xWUY5LyaMTyHYCP+MsV+bBmWHO29+mQBQe1kvT0v2pfh2489oXOLCJb5
8RQk1i5DuUq/kwbLCB652aBaVrQMqzL8r/gyEcwyfFnVmboMbSIymAkrCMof
1NNfjFyG35s7uWNWEYwX5mmh+C/D6zXSwffWEBRZ/nFp/8NlWL6YFLBvndC/
O3BI334ZdnJkLvwgeDOue9PBYhkKpCW2aW8g6PGBe/bFmWWYW8K16wPB874/
HicdW4YPlQPofQQ7OQayQYVl2Cc/vJ3Yb8JhA93ALrFleKVirYFJsOUBbvIS
J5GvecdIB8EtQj+ihZaXIJ/p2zuRBOsvBcgcmFiC3qfuuxwhuKpLJ83g3xLU
+t3eV0DEowq5DjjWL0H2shOVwgTnJ9V/9S1egjqzahJmRD5KvgHYh7Ql2O8c
P+JG5JvsoFMHo5egpP4R+YeEHlIGXMbdAUtwDmftuUDoFb6/vn3p0RLc+p8k
jxShJ69QgLWw4xKcqPueW0bo7bN4ZuzAxSXIr6n6R52oh2tZ3YKjyhLUEOr0
nZhBkJro7+GnuAS1m09t5Sfqa/PizOZkiSVoqCh/hELU/6x+nXAPcxEyj55C
ZVQEf+zzf7dMXYQeTRXhtoR/NChn5ES6FuGrOs1K2giCBztrDxt9X4TOa3ur
4/oRTC/1K7mZsQizzFreVfcgKJt4WtM/dhHuOrXA9bsTQZJ97bly90VYvu7x
ybuF8KeeX1fPzUV4sEliYG8zgiz7Tl9jXlqENw69K/72C8Gp+Zq7h1SJ8bYJ
WdyrQdD+ny/TSGkR1u1XlkuqQLC/RNvLSWoRGna8fZ9ThmCTd01IyuoCPN1Y
ketSiGA2qSZHtHQBmhpqfXFLJvK7TNLtz1iALtZnTDUSEFxItxz6FLMArU9b
XZiIJuqlOSus8nABJu7MSKl/jWCd2zZ3y0MLUPJrwvpfNwRvVt4UkpMlnifS
7OJ+G0F+waLPdMEF2LTn5ON1BwRN0wz6PRjz8Cdl9WGkJRFf12OtxDSCB2uY
whiC3go1vQ5R89Bl1IIUe4zw+33Sw4N+8/D3p3bW1f2EH/k/pVden4fZyqRw
ExkEl7BWgVHpebjPqMlDn4XQ7+O+TsWIObjtyipLYBED5s88dp31mYNV3k6H
mz8zoAWo4S1xnYOltMeDcx8YML7DEhiYzEFSsHZ38xsGVOQJTHbhnYNxzpeD
h2wZUOP2sHO+1yw8freq8TYPA46U7ON8emcWXvsaZf1igw79udwTta7Mwman
f4cfzNJhYxKppe3kLCzXfzc800mHF1vVji8vzcBE1v4JvU/E+qMSza7mMgNr
U76EhajSYXi4ZLfZ5Rn4+fk2hcq9dJjPeJfvYjADv43/VGzZRocLSUm2ibtn
oJDL8eJwDjp8yJNZyzE+DdM/FBSG/KBBj+6ylw1XpmGx7WxQgDEN+nsMUy6c
nYJKe/4UUDUn4acOO9od9Smovsw6rnhoEtYfnKgK3D8Fp39OlenLTELuMfr9
Ev4p+MF0Ol15jQolEhjZgJjn83rkvsTnUaGcutCxX34MSFfUet8nQYUqL6zP
jDvSYIn6wd/5f8dh/dLTlMt6NGjC1z9SAcehhVMcW+tuGqwJDp75mjEO75/7
V1JOm4RX/qOdsPIehzky5w7EEvsAy+3qBf4HxuHOMm0Jw7tUou8sKp8EjEGh
xT20vEfjkMphOu2gMAqR/eqbZ/7DMC1s5ciOnUOwJeuAoKHdMNzlptyVzzME
v83ZBUtpDsP5uTv4vqlB6PO8Obh4YwgWmn1vGP46CCWiPobMug1BZ13HS0Y6
g1Cz1jjshu0gTI/9z0rDbgBGyaVEGGn0w0hVrSNc2/ugd1WsClhqh3u+qpg0
OLTDtu+qVensOPzb/uDX/DSE1kraa6YhZSD+8DQv7lEGBs5YnHeO7wDGrM8q
5Dg6gNrIk6u/ejrAFqOL99rVOkCMZ+Itpf/+Aexb8ZU7jzrA2W/UF9TYfyBi
iy67FaMDVOx+WmgX3QnqJWuU+Nr/gST+JFHr8G5wo1dAN+FDFzhInaft1OoH
OY0bZawKfWAuG2SLnRgGFQ6T2dTxQfBz9wnybathUPw0bzmMYwh8SD1yv/bZ
MHhgbm+5c9sQOJuw54Rb1TAwR5/oPOZDIPe1ZO1fgxHArv36Z13lEHC+tdj7
+sooeKR9+fhC1DAYU8zm3+Q7Ds5sHVbROzAKyj6m37H8NA4StBTEV3VGQYTs
x5a8H+OATXZSL8xmFGhLvIuxEZgA53QrTt4LGwXJXC/l8agJcMmcpL42Owqu
jNupuWdQwYGAg3GUnDHQmbLVebqJBiwFUVYEZQIUbs48+2mGBtTbdl59rDAB
wm4cP2otRAcZjcbyGicngP4uU5Zf5nTQdNzw1VO7CVCWGRD6qZcOltRqjBKL
JkBi3lyhNY0B+gYCpQJMqSD/ysjGqPcUGI0pFdd8OAlkSUp3K8KnQKoP58Cz
gEkQXH53+F3KFBCbUBV9FzMJbsmy1JvWTgE9ZT8f95JJID8sEVrBPQ1eJ0iY
16xPgqgbxjviQ6aB3uHiKe+nNODu/P3M+YQZIH3yeJn8NTrQAPPX+bNngMdo
p1egCx1wC+7zrC2bAQNh/p3N7nQQlZtUfLx3BhSFFFB4wumgcC5Acet/s2DO
QdJevpIOZh5b8I7FzIJJbvKPBUkG+KYXqvA+fRb4tGy+9VqeATylfmpe+DYL
Xj/Wm+E8QLz/loGnDf9mwYdkO/ePWgywl3UnI1tsDtCUn7l63WIAR7/53w8j
5sC2gtn8giIGOGixj3bg4xywbXuw6oYzwLKCA+dkwRwwMM0IkahnAP8f3ZhV
6xy4YNHrzdnJAB/5qnLVhebBljco2YPJAM69a7+Y2+fBuFiimwkbAsrZR6l5
h+aBIaej2WZuBKqMM2Tlz80DYYsYWRFxROQdGsYdOg/qlg/v+KWMwKfrP7Mr
E+dBfXZkXLYqAreVN/98kjsPSmzzqa6nEFhve8SBmuZBvr8wI9EYASmJq/f/
CiyAlKzMgVAHBIapMSFB0gvA/6OOubcLAhnfWz5r7VsAH2xf3jl/HwEVqzOj
RYYLoCU7/mn8cwQs3u8zj3u1AOYzO60q3yIwt6X3alr8AqjP6G5RjEUg2CXI
qTB7AQgsDdo5v0egXm3Cs6l5ATQnnKgKSEfA7mNkUM/gAih8Q/G5mo0AG792
JHV2AYyyrZwWzifG60nK5BBZBGWLVTWCpQi0aZoUkXYuAoMV1wcW5Qjczdwo
33psEQSENIg+qSbidbdsP3ZxEYT8+y1k/ut/+Ymw3YpfBH3Oyb6XuhD46lnF
+zh7EcRwTR/36kXAdOKuqB++CEo9ar/7DCDw6utvpcTBRWAy9Pq//8YQUNzm
cTRrdhGoiMktfplAoMZPSeM7xxLIKX4TuoNG6GkWYN4qvwTgw2n22CkEYsqO
2gweXQKc29tbEv53/ik/6oTOLAGWC85Wz+cQ+PMq/MHqhSUgZP02VnUBAed5
DS+um0vgU865Vy2LCHBbTQeJPFkC5myd+/93HvqxKiFy+yvifk0vn0gmAhpK
hkn745dAStJv34oVBPrCVjNPZi8BqUDnI/WrCDxZSS/SxZdAyMfDoRlrCIhd
u1Bh3rwE2ke2RTusI5D/Y8uv64NL4PXDS7rsGwgYHyxsvzO7BMT+Kqc8JJgW
fX3Qg2MZWGUpptUT7M9Kob8UXga2nL3nFwje4VC+GCW/DOCO/zLWCcabXNg+
Hl0G34N6Pw3+73z12Fa+vDPL4L6AhlESwUsJP0XxC8sgtzw4/iTB4VvcZX85
LgO/NdXIfCKeAy679nS6L4OBq4PHtxDc2NZ+dCxoGfxq1vJTJuJ3VPPVmHu3
DGJczz8HRH6bPx42YM1eBg3ZCvJyRP5JfEPm/Pgy6NzH8niU0EvtfoiNZPMy
+Nmt9dR7CYHObnBLYXAZRPQEHVgl9HbTZDxQnl0GRm9DooznEaBkxnlpcDAB
lng8//ksAjkUvVdGwkyQ1xbmGzSNgL77cqSlPBOkYB2kewgBH12zz25nmICv
65dlGxWBbV84vnpfYAIDkVIZk3EESsTzKoIdmSD9LTk9dQSB+XGBjvQgJrio
eoA03odAqHHZYNE7JnBK9Vxo7kZg71cnelUWE+S0aWdG/iP6wa+era+JCS4c
YIsq/EPoKXCzqL6fCXxPRcsY/UbAJJLXKX+KCazOme+va0BANdWoNUBwBYz3
Wk1eqkKAXNuaeth4BSj+Xca4if7hNHpgKX1lBZxvOmeZSvTXWpsYifv2CtD3
VpCSy0BgfPTS4743K4CspBJbkYhA6eZB/cDfK4Ci80bS9xUCX157s97vWwGz
Zm69Cv7E/CIiV2iNVoD4d7pTpheRj7y9tLLAKgDD19jMHiBgr82Y7jNcBd0Y
V/YhawSEfJkRyo2rIDJ3y52tuwh/88fpbetdBRIrv743ySCw8fYkCw9jFdDW
nY5el0CAmvLcoZ9vDQgOF/bu5SH8Vb1Z9aXBGsj+L6vi3CQDOG2iDPT/XAOd
qqb0wRQGsHmV/7ahew1svPqynBHHAObCZrqFtDWQ1Zr5zSyMATTkovNe8q6D
FpEXz0yeM4CYlrTvEf118LivdGuPBQNU+uzeHdSwDlhXOq+f52AAlY237+W7
1kFas4+32zIdfHnEIlJOXQdNvQ+2uTPoIMm5lWWBawPsCpHc2NtBB14Wz9qs
z2wAt3+3H2ukE+uT0l/PQ9UbwMDYTEJWhw76HU463bJmwZzrW9dE7tKAVOrM
R5UbLFgzyFUou0YDFsOpA1tcWLApk5xzuudpoOky2TzJgwWreb1ngHSMBvBz
Y+rt71gwuWe6V61XJ0HCyRBR9W4W7MyXOC+W55PgMmmkQugCK+b7DPtT5UoF
HDEtcy+vsmKCib++pV6hgnTZKnl2R1ZM5Eaz+C0DKlg89CFw+jEr9ojnWUiC
PBUEm1092xjHigV7uf5IaZ8AlbE9A379xHW9zyO6hyeAgnwby8oNNsyWp8Mu
pmMMzKrUqg24sWPrW8Ss6v4Mg5pzOVq1HuwYTfFyF/5tGEQ5Ret/9mXHJjKS
d6QkDQO1+JsXH0WwYw82nXY7cHcYBLIKupEK2THYkJd5SXAYyNZZfFafZ8dq
z3Rd4tEZAibnqZJJrhzY3ggLTe/MAZDtwrdsc3sT1jO6Q7PVqxtwPBv1tAnf
grnXFF1Mz60DntHbdUTDubCw0XWeI96ZUI/j2a6qAB4soctH2mbuD8zSudXB
SOPDjofQh7N3D8CpUFmL3lw+7EsCj/9t7QF4sLu9/VcxHxbUm79729UBWOis
0Z5Zz4c9b8zl0Y8YgDBMtM1xgg/77Hn63N+NAdjUU/53VIEfexTMdTXg9yCc
vSPyuzeVH6M9TZcZvDIMj3xvMGzM5sfk4rR0TR4Nw4ccno2lRfxY0ES2QWbI
MFyNmPwVV8uP3VZVfCFXMQw5SvCfF8f4MSG1BClZ2REosvnmjzZ5AUxnzsV6
X+8IPBYDqxtTBLDkH17cTK0xOLw3W9U+SwCrFGXT8bcagyGV8XmsRQJYsfS8
38q9MUilPU08XCeA1e+YjQn+MAbjgOrTGKoAJshxQf7uxhh8ftdSIk9UEMsv
9a9cyR2HI6L/mj0sBbGTRca6D1ipUHXQ+FXDFUHMQHvd11WYCkMz686I2Qpi
MIDlvckuKlRT/wpzbwli2kFnefKMqTDKMfLzsIcgttjFasAZT4W6pecDdBMF
MUbMCemJg5Mwy+YPJjIqiOWYJd2b0qTBFIcnNEOqICZPTmjLM6XBuNvyUX4M
Qcx6ZCrd/DoNBno8RksLgtgTXm5bzJsGbWNk47u2kDCDC5uxcEiDUn/urrzf
RcJ4Gi/yHT1Ih5R/Uqn/9pCwR/GzRcuADrn7a86SD5KwkLKOxlgDOlyiS6R7
q5CwO6uIw8OeDv9yVVrY6ZGw8Q2Zma9xdBioTincfYuEVUcdPb26ToeeZ0qv
Xr9Dwi4dfTKexc2AD41u8L27T8KWTHSEMBEGtLP6fp3fg4Q5npfoWFNiQPVH
1yjTr0lYsSg5d8SCAZdy8m4X5pCwlqwrOy3TGRAVWUmhfBLGnn6qeDqPAUfL
ttTtLCZhaXG7xW1LGbDl5yXp6HISFn1KRHzkNwNmj7M3uv8hYXYO7KtnZonx
tpnuVp8jYfLplwYiDyHoih6rH1giYZs+c5D9VBB8XpZoLrNKwipkCtbN1RGM
tUTerBxkrFivZzreEMGmqMDucgoZc3N8/Qq/gWDPjdyZXFEytidmYrLkFoLU
Ix2cSZJkbP5LekuMK4IcrXLKXtvJGLWxdO+KB4LHSeWvNA6RsaOPjt8yCEdQ
u3/sw8GjZMzg2Bbf89EImmbzf5M9Qca+PGKuq8Uj6GxgOcp2ioydv3t9vSAV
QXcp79UZbTKGDWe5n8pE0H8yjTykS8YKzWq0v+QgmBSwqFZ5lox9+qNbcKgY
wWyLrefzzIjxwx8Z/+98smSn1s0PF8mYevOSgko5gu3VoZHeNmQsazXPq7oO
QV62vVOn7pKxMO5D9x3bEBRvNt182I2MbSDFCN9/CMq/d5fa8ZiMyYuQ/3l3
I6iuVn+Gw4uMtdxSLpYZRNCQb+ry3Asy9lKUxaRiGEHLbpH7wwFkLHOxbePU
GIJuj68nVoWQsSkoEE2dRNBb52VR/lsyNlKDPAQYCAaLffmVHE3GgHbHXeEp
BN+NdQyFvyNjt079vbs6jWB64cayTyIZc67kfFo1i2DRC3nB+ylkLPxn2Ztb
8whWmRrI26aRMWX7C2mLCwj+2X5P9fxnMnYk+WKdzRKCfTMxZ7VyyZh3uM1k
1jKCtPJye+UCMmZluo/UzUSQGTzuIVdMxqK2vDtGXUFwyxWBt8KlZCy/K+XK
v1UEhfYdydhUTsbaOW3809YQlFm3LJ+vIq7/2ZJ9cR3Bvb+820fqyJhewORf
GsEn4tLprT/J2OuAZwvWGwieudnMXtNExhgnTUXyCT6vsiRe2ELGqraKHZog
2IZLev/HDjKW+CVSf4Pg2x1a2hHdZMzrdakNsV+ET1OdLH37yVjf+dD7jQQH
uoXddRsmYxnfVF/4ERyl9c3fbpyM7XzKGipDcIrQQLwZjYwl3zwVF0fE82Vo
S4H2FBnbZuOdvETEf6+joeblHBmz+D7ctJ3go7/edDQtkbGDNxUDFYl8meXn
qMJrZMzI/XYzL6FHSaHo6kVWCnb1yWrqD0I/j4wuvvebKFiBz0mB64S+2PsE
6REuCha29yfnP0J/trfXDijyUzD7CMeIXUR9qgN2nnIhU7AGC45v54n6+XtM
muaLUDCd4Kz7VkR9dV2z7ZYlKBjn39QGDCHYaHk00Hs7BdPdY2IcQyX8YbIS
W7eTgklVGvgIjiN4Tht+5lOiYJUXD1rZjCDYse90c+RhCqZpIsQd3YdgzA6e
oe5jFGw9PG34KeFXK/HfczInKdivOLM7aoSfB9nMxTK1KJj1GCP77B8Ekxcl
FKd1KNi1tRKHj40I2tF6TxwxJO6/Zz/S+gPByVY7a9yMgg2HDR2qq0Aw64fi
nU2XiHhv9Qu8LCPqBRleutYUjI1VGN/1DcG5T24fW25QsM+YVi6T6M91d1/6
+EMKNoOSnCbjEMRv627seUrB5uB/z15FEv1gy09y9aRgsrUnQ3lCEeQ0iji8
FkDBzifk/I31RZAk+9GdFEvB/qruecrnjGCLiOMrswQKZnbIwyCYmI8iePYm
xH6gYHbfZc+jKwhKzBdUyGVSMNfsagWNcwjuqKvmUimlYI3zc2UnjiA4WhIg
+aycgkVEacsn7kUwLddgT1U1BeO/27BpSJ7wc2yrsWEjBcuzHDBeFSH84TwS
adNHwc42HRHznWdAXaFN8i9ZhTBhm7uL6xkMuL1ZK8lvkxDmtPmzQkcSA66+
8t3qwyWEceFNtNBoBvy8hVP0KUkIe/28+uxnXwYUXOHmdJERwty+xcS7WTNg
64Ag9ay6EKbSt2fwGg8DZsWb2BlpCWELK29aLrIwoO+l0EE9Yulwsjuxcmie
Do+1UrqIWmPPmjtIr3rpMKZO5OeRq0KYLNurxK5sOrySLZUl4SmEkSV3R8zp
0+FxJytF0RfEeDIeakIYHZJ3xX+kBAhhPpkCnSKH6LAySTqBN4RYmnxStlaL
0aF8hGzw+nshLPX9uEHtIA1OPlG4O4gLYQfnmTuc79Cgm+7hI+kswtjO4VHP
9EeTEJ1KTQrlEMZis8deRDhMQvuTEgLunMLY6Qu4tf2FSXhpP8u4nqAwphLX
8af02CTERH5G06WFsWiw/9aBBSrkGby2th8IYx5n6x/oOFHh+0dhVUVPhTG/
/fbcX7QmoLjr5gPvPYUxvXstbx4enIChTo/e+b8QxjQF7Dh3Sk/AF9bWbhde
CWNTbc1Sqkvj0FFrt8JKnDAWp1PQfSZtHB4mVb5UKxHGhE9Knl3bPA7rP82c
rWYKY/IWXxwu5Y7CpVq272wbwti5h8ZPr0ePQvkx8naMXQRT2t6vZOo5Cr3k
Ds1+4xHBjDOFf44Zj0LVJNewHCkRzKquZfMQYwTmxM79jVUTwRTNedPU5Udg
1OsF07teIpipcgzvDe8haH+PaSbNLYrpZKb8V7nSB2O1DjPPbRHDbCq/pII7
zTD9s3lkGY8YdtDwE/exPc3wq7D74V2CYpjhVcmnkhNNsG2k3HldTAxrSs7v
Tr7SBAV9jYY+KYph9C6nU2/fNULfGsefawZiWJWhaJOZ0Q9493RifGq4GDZ1
Vap4a1w59MyuOkGOFsPa2QqeiAmWw2DR8Y4n78SwUyz6rmveOPw8tpdy9qMY
1iDtoSPaXgbH/Ur8VovEsA28PzrS9Ru8XNd+26RLDNtkwXNo8GMuvLV/ha+k
Twzr4L0Z3R2UA59Ebc2QHxbDLkUGpLwYyYLR9rYjKzQxLKhnj2rOk3TYwjl7
4eO6GBZQb+camZYIh26LLAqyi2N7H6fY7ZqIhzMdx8Pdt4hjG5cbj657xECB
tOeNxoLiWDh28rx+egjcSkq++V1IHJu0GP/x/lkgVHpUyykvLo6pZCe+80/3
hCcGqCnB/4ljiqcVGgvS78D//34X+//vd8v+D6jrLro=
       "]]},
     Annotation[#, "Charting`Private`Tag$19163#1"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->
   NCache[{{(-2) Pi, 2 Pi}, {-0.9999996658276197, 
     0.9999993650500513}}, {{-6.283185307179586, 
    6.283185307179586}, {-0.9999996658276197, 0.9999993650500513}}],
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.907134128973194*^9, 3.9071386559417486`*^9, 
  3.90713873809509*^9, 3.9071387853589983`*^9},
 CellLabel->
  "Out[170]=",ExpressionUUID->"b33c61aa-1072-4961-b44c-3c3c4f5587cc"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"-", "2"}], " ", "\[Pi]"}], "\[LessEqual]", "x", "<", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{"3", " ", "\[Pi]"}], "2"]}]}], "||", 
  RowBox[{
   RowBox[{"-", 
    FractionBox["\[Pi]", "2"]}], "<", "x", "<", 
   FractionBox["\[Pi]", "2"]}], "||", 
  RowBox[{
   FractionBox[
    RowBox[{"3", " ", "\[Pi]"}], "2"], "<", "x", "\[LessEqual]", 
   RowBox[{"2", " ", "\[Pi]"}]}]}]], "Output",
 CellChangeTimes->{3.907134128973194*^9, 3.9071386559417486`*^9, 
  3.90713873809509*^9, 3.907138785405871*^9},
 CellLabel->
  "Out[171]=",ExpressionUUID->"61db3312-53df-49f7-9d51-fce29500d868"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", 
    FractionBox[
     RowBox[{"3", " ", "\[Pi]"}], "2"]}], "<", "x", "<", 
   RowBox[{"-", 
    FractionBox["\[Pi]", "2"]}]}], "||", 
  RowBox[{
   FractionBox["\[Pi]", "2"], "<", "x", "<", 
   FractionBox[
    RowBox[{"3", " ", "\[Pi]"}], "2"]}]}]], "Output",
 CellChangeTimes->{3.907134128973194*^9, 3.9071386559417486`*^9, 
  3.90713873809509*^9, 3.907138785468367*^9},
 CellLabel->
  "Out[172]=",ExpressionUUID->"32a75a71-f69b-4392-9c69-410b83994f8c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"Cos", "[", "x", "]"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{
      RowBox[{"-", "2"}], " ", "\[Pi]"}], ",", 
     RowBox[{"2", " ", "\[Pi]"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Reduce", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"Cos", "[", "x", "]"}], ",", "x"}], "]"}], ">", "0"}], ",", 
     RowBox[{"x", "\[GreaterEqual]", 
      RowBox[{
       RowBox[{"-", "2"}], " ", "\[Pi]"}]}], ",", 
     RowBox[{"x", "\[LessEqual]", 
      RowBox[{"2", " ", "\[Pi]"}]}]}], "}"}], ",", "x"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Reduce", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"Cos", "[", "x", "]"}], ",", "x"}], "]"}], "<", "0"}], ",", 
     RowBox[{"x", "\[GreaterEqual]", 
      RowBox[{
       RowBox[{"-", "2"}], " ", "\[Pi]"}]}], ",", 
     RowBox[{"x", "\[LessEqual]", 
      RowBox[{"2", " ", "\[Pi]"}]}]}], "}"}], ",", "x"}], "]"}]}], "Input",
 CellChangeTimes->{{3.9071388029521456`*^9, 3.907138820060881*^9}},
 CellLabel->
  "In[173]:=",ExpressionUUID->"00625d0d-1ed2-4cce-9e8a-037c3cf3657b"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJw1mnk41N/7/+1m7AkztCHJlmzvFtQ5pU3JXklSqdCmxVKJ0EKlREoJLUgR
hWwh55Ct7EvIln0ZM3NEJOv39bmu32/+mLke13ld17mfz/u+z7zOuY6S03nr
k3w8PDyx1Nf/fnebSpjMKMnjlvkF6kOAUabPKG25PM79rn52lGItpZEYOQV5
3EkrTSukeNmDg3tU5OTxhnV8de4US/wrm9KVlse+yhrfhSheOLEuAUjI4w7y
NsZ7noDR2nibvSLyOFJawKxmjoAu48W8h4Tksb9l/w8BiuveBXxw5ZPHe7CU
8ZJZAopkRg95zTNxV/kpP+kZAtL9Hem3ppn4guLYK9Y/AuLYlVlhk0zsX/Ht
ddwUAY/tjE68HGPiuiVrb276S8Dt4sRFKVwmVv14fUfOBAFeOkyUy2LiP+f0
OYv/EGBHm5Bv6mHi2z4WI+dGCTD1OF7W28nEywS37TjLJcCwq87jdysTn1id
E7yHTcDSnA81Yg1MbBMW2Jk8SIC4yjJfhRpqvpVHR7X7CZh/GKyhVsHEpt3Z
E2E9lD4X19smX5n45KxW/3Q7pa+hSc8KMXHjhbxGnlZKH9je5ZhHzb8hqWiw
iYB4hrKR9ycmDhJufmNXS4BLWdtoahwTvwnY3V9aSMWrv/tFwUsmvivar/zj
CwG7XubsqYxi4lpDM+/izwRoXH6SMBjOxItKLwXuSCOAq2rhsPwWE+tyre+1
vCDg16MvdC1/Jt5qmy46GklA7bxm9kYfJqa9qPk29Jjyt4kmvc+DiX20JyWv
36P8CiwqCz7BxGVHHG03eFDxjOl4Rh5l4jWGO/bYu1HxOL5UfuvAxFOvDyYe
dqX8WufjW2TLxJWZF9JpDgTM9f+n/28bNV98V+zoFgJubU984byKid2FV6aL
0wjAwd6WK5So8ZArl14tcMFs3R6+lqVMLF8XlCf5lwvcHbknTWWYOGlcW/JW
Pxc4XdZfo8VP6e+bbinGXAASv+T97mJgbgM+nHqBC7xJyLmkdgb+MzkfKeXM
BVn/HV1xvIWB+5XeSZgf4gLtIr6bjTUMnHH4df3R7VywtG3n7uwCBo7VSVg9
yOCCabH6Fp9oBrYI3RV1I4sD1tnE3fvvGQPzX+f1zk/kgEuRHsbccAa2S49x
bYzmgOFVjFdHghn4YVx26osbHNCy2cFlqzcD54S5hb8w44CsCwMTwnYMPHFB
6uDBVja42DgtHb6Yge8o/HPS6RgBEdYW9o8lGfi68yerM1UjIL827vUTUQbe
qlh+696XESBUZabzjJ+B7Rdd/usZMwKiS17sjRmXwy9Dter4HEZAedbWO28b
5HBwcFYhXyMLLI+8N5cXLoctmnSvyaQOg22MX9u+PJTDD1Nb0qeih8GpJ/r3
C4Ll8B3bgcNf7w6DjLB2hcKbctgwctxe7PgwML2nvaHUXQ5PG4VKnpcZBh7X
6i/V2shhvitTSXcuDYHvhxWG+hbL4Z2b4/9GLR0EFi+NwbSkHC6MeyHVLzQI
GrscIyTF5LAc+6cs8/cA6Dget81QQA5L2n/dYFwyAEZPab1++EcW4/gKbb+z
A4Dhtdne8IcsFtmzNJwvux+cCHGqfBghi8H+QysijfvAXEFSqqG8LM4bunNi
sWQ36E3/HWZFl8F2TT5/zbLqwbrXQo0PRBdjFSP1qqVCicBYuV47eGoRbtgm
FHqqrwItvSbhe58lhcsDtcpAQQc6Ff+dETMghaerV5v/nuhAWVWB6Sk9Utj8
KOfH7TWdyEpxYbC6VQpfPVIudSC6EwWWEOtFFVLYdM1Du8dXfiEiWacW8V4K
V+sbtr150oWK4sMbX56VwkFTPSKKxj1IstrifKqrFD775HLnxL4e5PBXVKTw
hBTeISM3/vl8D/pregv0OEjhwtNF18TiepAW8UhS2SuFSVaXbQutFz3ZuN8/
cQ31fMqp1InaXlQbrWvn3CGJ80uDlry07kc88ecjOholcUBhqKHw2X6k8z6l
0bZSEs8q507tv92PQj+rW5nkSWKbcatfydn9yLJJabdipCROeDX639olA6hW
Utq41VYST5WPuXp2UHxjbIV5pQRGuu+6d5kPIZ57Oo4lXyXwEV1lk/MnhpBO
mFu0cZ4EXqt1vOeq9xAKfcliaiZJ4E+HBLyMEoaQZX7PItodCfxeeovRudkh
VDtRz19kIoGlwhnjnnHDqMb10+B/eeKYK83rd6WNhep//bXc/EkcW1fTPxew
Wahpv3HujvfimNemaTNrjoXat5XcPxAljgNssodHV4wglmKz7tVr4ph/wmYg
12kECfycvpZvJI4bROoU9XtHEM0S9Bfri2MvveX7S8dGkGjZTfMqTXG85ure
hk18bCSdKabUuUQc/2lc5PpTkY1WhC0vXZgRw+/oV2wLHdjI0HSrlEm+GN71
SdFxZw0bbcaBV/dkiOHY9kvLmB1stGV9RY9NshgWVNtiXMlio12rbDNPRIvh
SdVFTp2CHLSP19k+0EcMs9+Nt7wz5KALn+/GfzMWwz4RHqsqXnCQh061eL2B
GH60TCu/IomDLr+VvtyqJYaX9Bwa+JDFQdefRJmOLBXD+gHM0qXVHBR8MYUr
NieKtf4uufBkhoMS1Os2WH4RxeG117NHLbnIdXVaoX+mKJ7bKubZY89FGqvC
dqeliGIYk2KSfYKLPihaOUi/EMWppIJLv8JF2Yw6v8bronj0WY+PdQwXlQvW
ldpBUdww0d/k2sNF9/jTLO5uEMW1tU2+QSwuMuMNa/msI4rPdY4m3xnjorpZ
S5aCkii2blt/W4+PoNbxWvEOXlEccMnBYqUiQSPdtbbHvorgcN1pHff9BH34
ldoRlieCX398KZDtQNCFjlDnok8iWGDi6Xi7E0F/WiyvrIwXwchHS6zGjaDZ
mtqo/lsiOIPx496e2wQVVKWqyPmK4F65jVEv7xHkXxGassNTBAflron68ZAg
wTJL9PYk9XyQ8P7BSIIkCmp7Tu0Qwapa3vqvkwmqzUs983yzCL5e+tRIII2g
R59D/3xfJ4J581MkTDMJksu0FNJaLYKf/H0meOULQS3pOg8dVohgfPK1klMh
Qc9TpZgPGCI4J5D2b00JQSuSa9W5wiL4x6WIitOVBPUkpqYv5xHBy/WbUVsN
QfFvQ40spuhY7GnSMe0GgtTiLPemDtGxA/3a6ys/CWK90mnq6qJjRZOrGy+0
E5T8QurIop90vOAj5m76iyCd57UXLn2j44YYPfyqj6A7Zl58/zAda38oiLcZ
JKhrfsljvxw6FlxSkN8zTNCGtMJVQql03FpjJWjOJujhcZfs+2/pmDtQdO0J
l6ABWXHTxS/p2Cb5xrLPowRtLk9vjYyg46JXGkM5YwRxtebnEm7TMZ+uEzGb
JGjHr7iHa3zpeJ7NWd39l6AXYaZKGR503LHUPsDqH0GTJiTd8CwdPzpHn46Z
Jmjv5ONthcfp2KQ6MLR0htL/zrBp5yE67r1426RilsqnfZdLtTUdp9V2LUqe
I8hWPPCf7W46vpIYPe06T+lHmsFtW+g4na9/lneBIIFLdUudNtLxeU0J5mWK
HVQufxjSoWNm/uM95RRnNC2F59XomP/psqcTFIveLaqbWEHpH/KcnqfYycj1
uA+D8k8t3LOP4lyO+ASfJB3nMcNpCRRLv/oUeFeIjn8U530yofi09UGm1DwN
h9y8dvkLFU+RwEJixAQNz/1xtV1MsUJ2vNEyDg0b85ns2U7Ff+nU7qq4Php+
3D7qYEPp+7Zk1FGjnYY9ZwPubaL0K1Y/GU1toGFTRe0f/JQ/V/yNbqyvoGHZ
Pfs2J0xR9ajXvbigiIY5RX5lKpS/av2Bb7bl0vAmScdLfhNUfT/VWl+RRsP9
k+Uwa5yqR9P6cqtEGla5Xmjw7TdVH7OX7Vte0bBd3wXLHEJQ0IdlbMdnVDyv
1SJucgjqPPrVt/8hDQuecKJpjhC0bvEpybNBNKwhjhM/DFH1cDlD76oXDYM7
62/v7qXqQcO+eOEcDdvwOZY4dREU0b6wL/AkDUckF8IDHQRt37LnargtDRde
Xfy3sYnKr0gPStGjYfu1ZypWllP5zQ+yMtCg4Z697L3Li6n8nl/Tm6tEw/Xx
TpoTiCD+xitC5VI0bJDJL7Ihm8pPjOTeHq4w7mS96ZGOp/JjkdnpOiCMF+nu
LB99QeWH79AF0iGMm02f6L2n+rnIOSF8tlIYn/6PnpIZQpCSzqZWuffCOOJE
3pDSZYLMrIcjtOOEcUfqRIzlRcpvjyc2O6KEMX/m8aijZwiqzuFUegYL49rv
WoEqRwjy3vICNZ4Rxg/8N5cYbyfozfHdPuzjwvjea8mTXpup/Nye3CDgIIwf
JhZdD1tP0Orv5un6ZsLYf3mH4Vl1ghqtF+IfaQnjXRerIjNECVrweH8sSUUY
t34orZjmJ0jj6YHlRUuFMTpcnKo8y0X+bR+f/haj4uWEpTPYXLTmxNF7lhwh
7G1j7v70OxcFehael/gghM/5p2yYCOCitKfntFQThHBWAq+7PbVet3+WH970
QgjblBQNvXbjIr35i07nQoQwN+NNcjO13v8KVN5X6SaEHx+aSfily0Ubnt00
vLdWCP81Z+w93cpBrNztgkJpgjhaVP1KtiwHvQ/L/u7+ThCPe6tl2gtz0FlX
9dDul4J4rVXOy/YpNuLIii/5EiKIPz80xD5tbDR6oVHH46wgjvGdouu8ZKNJ
1eMOPasFcflhmtwl6v+TL9z/U8ELAdyZxesyIDKCvp4au6IVIYDjdOinb0yx
0C14YvPzBwJYL/XE5YV+FhLk7vzm6UPxDUOhGMxCNFPJX1r2AvipppSlqwcL
SSzEiETJCuC9H6v7rJuG0ZIzeccu3+fH+3Zdjpe/NYSel5fvEL/Fjy1Vop1P
uw0hBdUmzbhr/Djwi4/SKzuKu0cnqk/z40Qy052rNYSYB1TvqZry49ow4w2p
DYNIxiQs/YcgPz7hdYr9cekgElviwm/gx4ftU9exsqL60fx36TejF3mx4NXw
cy02PcjqmWom4zQv/rcLn5Qx7EHxJw1LNjvx4h7p1Y2bFXvQbh6n/vvWvNhL
WvnyEXY3ivgvbZW6Pi8ezB8Nq7/Zjda8skg49ocH626s0o342IUcPO+/rffi
wcIlq5aFTHYgdyBme+rvPNrEz3HeVN+EcvSr8ETmNHr/fuulNf99Rh8XlaYy
vkyidVNy15pkvgJ3w0j+zefHUFtozughgVbw+PGS9v2OY2hj0L9di7e2ggxu
TMb5vWNoVaWoTYpfK5iMjT35WnMM3Q4pPnVnuhVcEU0uExj6jeJXpqs0cNvA
9faC4Iqjv9FWLWDvV9cB7lzvW3zQehSFVJsYfyzoAoa3j+waOs1G72ZevwzW
6QPfpnzfOO5ho6eqF1L+7eoDdmej+X5ospH+Hyhse6wPeNr8zC9kj6C3X47A
qrA+kKpkoxvlNoLOfeJZX/O7D6wu2KFgfomFXKUihmdT+oHM3zXsT1eHUJNq
3MpjcoMg7rSZqYb9ENI/quyopTUI9DpPJ7wyHELq7xLkurcMAsuSt0cfzAyi
a8p+KULnBkFwuNIPZ99BNKgRqA6LBgGfjmyBfMAAiszMdLB3HQLEdfah350+
dHmFjeur2GHQ+EFXyty5Dw3PfZuiZQ+D3D/OoUu39SFlvU4t24phcMu/LvTz
Qi/SYlqtfDQ+DBSeJYSNe/WiJIXe8sStLLCtzDLc5WQPskeBTgZtLKAuHrh4
nUkPUrB8/DyfwwISNnnhAko9SNnh+mJVnhHws3PV49ft3Uhd9o97tMoIcJuc
ftxm043istzfy5wdAc9WvYmw2NqFbnz9Y6o0MQJ8z7TKLVfsQr4bC/gyBNmg
xGmF9s+ZX6hKIS9fVY4N7L3/aC92/4V2NNgOv1/HBrcTX+gEHetENMX1ivpe
bNAqPK5/fnM78n/lcWAVYYObxVGGYKoZbbfwWLuynAOGqjeGn8xpRsFmVpuK
GjjA/GfzSPCVZsTXqRRl8osDFLiLY1qmmtDxv2wmZ4IDUhn3Fy7++4GUdtX1
/lTigo7TPsXx0w2IxZ+9d5EHF2z1VFhWkduAFpW921TrywXv/HI8f3s3oJdZ
exovBHGBx+M/qptn6lG6/Pma/c+5QKTg7N3mmTpU8dJqKqOAC9yUc6NlpmvQ
ZJSbVTovARvXT+495l2D3h+ZuxBEJ0DATG8hZboa7XFak7xpEQFRnknHds5U
ITFO2/69igSUlz9X9Z6tQKqFSz5MGRMQ3tHUXOpTgbzlA1t/mBDgOCZ9d/Hc
d/RG9u5Q+G4CJpYEjyTPfUO7RF+FpB8gQPn8tdRf82XI4Xul+dULBHBuZh/T
8itDn6521jt4EZDzbFz66kIpKrHeLKTkQ4BF0RlPaZ5S9O+G9Ik9QQT4yDoY
buctRtnfhY6vjiZgp8azkbCAr8j9fWKZ5GsCpEFjdCfvV7S4SyGt5Q0Bia5m
C5f5itDNXu8F0Y8ENOUZFyfxY/TqZKjYFCJg6VWnzjExhKICAj7WfiXgvvce
g1DpAnT+3Vlyr4yAM77Lur4vy0e1xSIb4qsJaL0utM51ZR5abjq+kb+egN3+
JFhQPRftmoUVJj8I0LhZuB4a5KCoHdkPT7UR8PxW0oOOjdloydH5fPNOAkQC
w3u9QRYqSR88J9tNAOvOyYeZuzPQNF5uuXOAAPt75v3Wlp+Qu5mHT/oQAd+D
1xuN7ktH6ZnXlBdYlJ4Q+qDGsVT0uX+03pgQoKfYfzW06gOSlbP8ueY3pX9l
9qqKlmS0dcbEimecgLFVd+sE+5KQhL3Exow/BNSpHfKF5B3iMZB4aDpJQKrm
GvVr0wmorxxZ4b8EhGovNGYKvkFbn+X7Mf8RcEG3zn9UKg59dMpjWE8TYGkQ
p6W59DWS1Axlnpsh4IgbK7XC/AX6uF4r4NQsAcs9QmhbTj5HOxe/sNw5R0Dn
Vb2jWdci0OCDRYFC8wTE+DVlaz56hAq+1Ci+pThHZGL5VqsHqHRhs6L6AgHr
5TZVa12/jRynem7ep/iMiciM9v5rKC/cYU8dxbUZBp9oR13QDqHTXn8pbvRI
3qyXZgHaKwcE/ndeGnN5+7BltDsYSa6YHKTYMtW+ZNPrABCQoW2WTnFdvLSc
jcddoGNoIuhIcaLZSf2MuFDQ035QeYSKh7WjsG3zg8fgzs2uuIMUa2xZduub
1zPwycHpXiKl54zRVS3bo9FAqjOoqZXS2/T89Gmi8goUfZW7y6H8mHz6rCBD
PhYkS47FdlN+yT0plfaWiAehNIVV2ZSf6x/9cQb8CUBpY7KU2xQBdg+V8wSm
3gKOW6+zEOX/lfuWkt/ZiUD3M0Pdf4LyJzA527YpBWTSTv9ljBHQcrNVVKHi
I8Cu34XWjVL9AAVSya9UkPsw+c5/XEr/Jj2BzMZ08NI9f6RlmABtY9MPjJpP
YO6QXJ3PIAEFhkftvL9lAH3H3bp8/VR+1ockg4Is8HNT65m0XwS4rXuzPzYn
G9xp3rOnrZ2AeYN8HsFPOSBtvujjwE8qv3os2+9vcwE21l4c20DlX2vHnG1Y
AbAQM3/+voQA42cJIZOvEDB43r87pJAAsRv8UmZ2GPTPdRru/ULAMOf4a45L
Iej/u5N9JIOA2BKVYp2gr0DSeFzl5yuq/mYa7/NKFoNOcf8jL6IIuK57e199
RDF4XK8iACMIOBTTP+CeUALWXReNZwYTIOOZQM8uKQP8I06/V7gTwPd+f33Q
3nJgsT5Z+9tZAka7hKLsfpQDA7cyEQtnAqrMXLSm+74Bt/jS/FE7AgJV1Cw2
CVSCj0e6Ou5T69nssO33Y0q1YGP8sR1r57hgXCBFe/fJWuA08V4v4Q8XsFYI
husl1oL3QfTt0yNc0LIv8xC/bh3grdHjN2zlgsxCWU48rAfaXGMe+UxqvY1s
khw60gjkS1buczzBBScztD1q4xrB5/GnwckHucChJrAlZ7ARGHyNjGgx54I9
gutf3z3/AzxuW3vo+wYuULv4VE/TrwkEWZ2bkxXlgu5ddvvcXrSA3vNp8gcT
OWBzv8+xqo4W0C66Jc05hgOeB7w+p7XsJxDKeQMOhHGAdS7rNivqJzgwu/9C
9xUOKNL0zXKObAUN58+4R+3ggFiJWMaRx+3gXuB9Tmo7G+ixJtirt3eBem+V
HwXjI+DoBpp784kucHHS2HJb3wgICVT4F3irCxxtSb70oXEEsJSB4MDXLrBq
ppKlkzkCYg/dWRa/tRswqnzsRz1GwOIqBXNF2APSu3iUXQgL/PkIPjKN+oD9
l7GFd7XDoFLTSPrC4T6wKlefbpE/DOLervMs8+sDIzbf3ZrfDgPrl2uMvIr7
QAbreMrD68MgLWRJWcPefqCu+ObxK41h4Hbub2fI0QEQaXLe4aDvEBjU+Cgh
GDgEXE4uY7aID4LWN8vdfteyQcjOsciZrl6QJZRs/W6MDSJbfKVul/aCcJeN
64/IcADt1N3wqfe9wEzdlqfqAAeI5cn/98KrFxQk3330rpMDdqf/t2pQpBe8
/vQn6wibCzYcrl24u7YHZBztXxi4OQr2Gt25yTrVBa655e3a93IM2Kfq86y2
/QnsXq09EP1gElS9Hwpcer8YOAd94/tVOw1WhNVevN2di77e0tS8XzEPmhSl
L82uaUKGC09eqbbNg3+pQ3d8XZtQ+lUeuULWPFiyTc1yOLYJxbr94JmkLwBT
nc+L/BnN6IadX9ORXQsg+lCQdfxCM/Ve2RCgX7IAtr7hjX5a8RN1ndp09twR
Hvji8XbvZMsO5Liov0jmIC8sz/QMnOPtQQLPG/8EH+OFMt8VLX8v60FJysWq
/Kd5YdV709rajT3or37cvd/evNAu1/qy9cUeFLr/mHV1NC+8HT894/CrB32N
6ugO6uKFeM0WEY/sXqSm2sQz48IHedof3mnZ34+qP5ToXbrABweQpxftQj/y
XJ95YvgKH3z1g+OkeLcfFe16XN58lw+K9piWCef1o0NnrEMz3vPBtNdP0tKW
DaCQ1OoVboQPhqX1Cdp3DqBxw7LN3V78sItTarLVbAiV2qRuL7vOD+f0eCNK
jg6hZ2cjzVIC+eHlwkIVXc8htPnFGfurEfzwX8nedzhmCN3jlfJalMUPZ06P
r0CcIaRcbpeyZYIf1jyq7la7O4ys9rGWxLoLwMt2lcvXpLCQiluD8p1rAjDy
oPmm8AIWmgzMV3e7KQCdOqpMf9WwUHROyHrDcAG4cuW5YbUxFhpaom9Tny4A
o4jdRf//RpB/z7V7fGMCMG81OqWXPYI+nhf/53RBED6vrw78L4GN2A06f8eu
CMIJ4/olLplspLHBduJGgCAUGHhbdbmYjeJ5on7HPhKER04Nbl3Xw0bPw9RY
PRmC8FdpReSqpRx065NJm9M/QRgwmZWA7nJQEcPl5xivEGzq49veFsFBC9fu
Nd8QEYI/itvmGuM4yHtbXUPsEiG4z2bgptMXDjr/w7GyZ5MQdDlStLuPy0H2
f69+cbohRPm54aHXHi56eigmb+yeEPwcrmFwbj8XNSL8+Ua4EBS6+B9zyzEu
srgjnBUbLwRjaSvO+ntx0Tb5Jx96Sqn5Vpb+PvSSi2745iRfqhGCXg9YxkaJ
XIS625L4WoTguuY9rn/TucgwSfmt8rAQfB5jpS9UykVrjVJfOokKw3Qsc9aH
xUVnXzbEjC0WhkUv0+5uGeeiJP6/UTeWCsNjyQV6vTNcpFK56VnsGmEYXVq8
kCdGkMLhitAeC2HokvrOu0iLIAG/gQCnx8JwX5PoyiXOBLm58+87Fi0Mh2Rm
JtadJajFRVHtaLwwPDo1elL/EkHJlvbVhzOEoa/dKsFqX4JslasVDjYKQ6lD
C6/uhhNUIDfCOdAuDEfMn+YlPiNITZRWuL9PGO40qN2RFEPQ7PgWF9s/wpBH
ZleU2VuC4koyP1nI0GD0Ce0c2c8EieXWB5ovpcGvj2vqN3whyOsDObhXhQav
Hnmw0biQoN1P1Xn2GNBgTqhnW285QRnBOxpMjWnw1ZNpiTuVBC33P56waxsN
Xrlq5SdWS9CYa4zZDlsa1JwLpGU1EeRwOHfFdgcadKQXKLT9JKjUqnnM5AQN
tjZcduhqJ+i54aLILR406PcnwCm4h/JnrfZZ6EODNkRNSbef8mflHgBu0eCF
vwv82YMEbRW73W/8mAbbLphqHWdT/vDE5hhF02Cs/KJzd7kEyU0UBBvG06C5
yafyh6ME+Q+3OW5MpsEkDY1NXmMEsTqmdDdkUOOsh+XGfyg/62UF1+fToL/P
8lO9E5SfpXot/xXT4HT+2mWn/3c+l2fx3qCSBkNPb+qtnSLo0cez1/UbaTBL
rfszY5ryN+6ulV47DQ74N77cPEOQ87MEFd0+GuzvHQ3fPktQ7f2vf9eyaZCd
tPaJ1hxBhgFd37X/0GAiMyl2nOJ4z7mYNbM0uMY+Mu/5PEESpxUuagnQ4fug
/b+UFgi64rh+m6YYHaq8sRe/S3GPtS1DQ4YOR2I3b6+l2GznRZbaUjqUdMwL
pN4/UZZRyJfVKnQY8yqx7n/noYo670NVteiwUolPdYDieyrlx1cZ0KFAYMfN
FIr/MPvXqRjTIXb0GLGl2FGcT2TlNjp00FhxuJ2Kp5x3RYeSGR1+ttn/04Ri
vUmjVEVbOizTTT8aTMUfzbK7ucKBDllCI+PplF6hX577l5+gw208P8NzKT8u
NDxSX3aWDjsMPLbEUn61ln2cXeJBh4nxjXOn/hG0Lb+yRsGHDj3X631fRPn7
IXU4Vv4WNZ7X9zZykqCAyJWmjMd02LV7Z4zpOEFawm9mOVF0uPNWz45rv6l+
8VBNLY6jw3epfttDCEHaluqMS5/osCZqq6ndCEE/vyR935VHhy1m7taSwwTd
0tS6vuIrHfrW5eW8HaDiEVrbX1lPh4saOW98ugm67ZH6LK6VDqvDqnQ/dxKk
06Nr5t1DhwsxaSrNbQQFfTH4tHqMDh/uy9qd/YMgAw/DgBuLRKCV8Fk2jeqP
X915BgflRWD4dnsBq2LKb4tNQ2uVROBr5ttob0xQlwa06NARgWI+6w5fyiHo
Qff2ZRssReDvfXfu/0kgaINFWa2EnQj8ZDItYxpLUF/+rlv9R0RgTbfXZj+q
nw2f7Rl5dF4EPh2SCgql+n/A3OozJ0QEpsone+28TlBYfv3Z4ggRuGtbcEji
FYKMNWwVo16IwGcbzpznUOvJI8EDQbs+iMCUAMtYBReCQL7DvrgqEbizauac
qDnVH+qdNO8fIvDqtmNuPjsJinh6JN+yQwTaC84710CC2JecVs6zReDqYzH2
S/QJeqbu+ttOTBROwgVBMzmCTJ4Ox6+VEYUqxV0BVRIEcQXO2AktFYVVyie1
dIUJ2t51Dn3SFIWrjFI0Xv7lorEI9wcSe0Sp9az1pVwzF+0R8FMvvisK10ky
XLxDuejoF8PGbY9EYdxau6D9gVzk5TV5veS5KHy6776WlA8XxQ6dayx9Lwpr
HhwzWOrCRVOVDn7fqkShouTuO8+MuCj+ieGP6kViUCTEzGBNJwflmk/6WSiI
QfvjG04N1nFQjXC6Rq2yGFz9eIjrV8JB01fV/ev0xWCaRLmKWTIHWToyNRv3
icFvJ9dUWl/hoFnVSf+fkWLQRS1BWlWEg6S70jTtY8Wg5NP+9ZUzbLQ68lxT
a5IYvMf++tKKw0bWov2a7XlisIbGvTJdw0bvSENTZwf1vNzsytJwNtqXk6bV
pyQO365bf85Wlo0+mJ5r4SaKw640gaxKnhE0+kjZrjNNHC7q+ayRTVhIr725
ueqzOKzY5rw8qJOFsty2Nid/E4dlB06UNuexEApnNJ0eFofPirumNnmyUG1H
YcOAmgTMFntjtKZ3GI1flKvpfCsBby8JEGYkD6ENz1FJ9RtJ+K2/xsx5sh/1
aX80dv0gCTfhOb19Hf0o7OuLT7zZktC6POSHRnE/YrF9XxuUS0JG2M7ie2H9
KBoY+z5nScJVdid8FTX7kf8lB4VPDCmo02Lj/OVgH+pn/Ky77iAFi3yDFx69
6UEfnOqh3IAU3Da2yvv4XAdyVrTV3PJnEfxvIfXG3tOVKL1XOHPHqDScvGF1
N/dbBNgtI6gazCsDtWH/Vz1QD7x2G6xL4pGFz3wtvB65dAFi8jb2kYAszBI0
OeB0owu4blKQvEaThfk2/3kpx3SBQzo8Q3ukZOF8KT/Nvb4LQLnKSM4KWfjt
+ZIMa+NuINpzfE4HyMLm/u+rJ8V6wKur4cXZvrIwyTH0qeLrXiDvLqT7KkAW
Wm/3Gyv73Asenb0ac+e2LBTUv3HVob4X3D5yxOvgA1moVDmXYsbfB05v11Sb
iZaFNRkHVHae6AMGi74Gb86XhQIzzitClfvBt3dj1iXTsnCrgdVU48MBMFXG
l8e3IAt1bWN5m94OANVB6ZWQXw5uzU2K+IIGwI1V+uO5onLQcfzhFCADwDjW
PTx1KTXOW5gusXcQpEb9aYjaLAcHRjfIf+EfAs9CJm0v3ZCDgmY3Hyc7DIPS
FKEvHwPloPTJrp17Lw6DiUq5VZx7cvAgPHSy7ja1nxFdP+ESLgezmiNu3Pww
DMTuXH5yOF4Ovg/7WH5/fhj4B0z92FUqB3OWVfEpRrKAq8f0/hUiDBg9Hjz9
KXsEpBwKUpeRYMDR2cbnl8tGwNhWmVmaNAM+lZKSUGweAdcWab8ek2dACVtd
nRWT1H7tw7GREnUGvP3ge36jHhtkDpX7nTVlwKFt3Uul3rLBdM0+62N7GXAT
qJ+Sz2SDzdk9KvutGPBKtRES/soG5bdnv4GDDHi4QvpHSCcbtCvryCw+xYDL
r0h+MKX2TXyHn777fIcBZ1K35jp7c8DObSrXPtxnQIueVYzEQA64r5m2Ny6U
AUeO+4VVP+IA2envY/efMeCOKvWPRUkcoPZ03vjoOwY8M/xil/lPDjCvO1kn
VM6AhiRy5bAOF4TnjMXNVDBgWLiOgJ0Rtd9+6ec1WsOARWPeVonbueCYW+SS
1mYGbBQboo9T+2kP0aqTKYMM+Mv1XadSABdEbTeYthFmwmbGtba+b1yQlHLg
aYEoE4p/3aDm3sAFObLXDNSlmLDcDHW1tXNBU3+h2zyTCTW3u7sYEy6QCrTo
fafBhFnbnz3ZIE3ACu4l/8VrmVBB7Do9UoEA7f0Ry67rM2Fv7oVHDcoE7FHt
OGBjzISHxYPzmvQICCw9XTm3lwl3LDAPy1gR8EQ75JSrNRP6Gr87vc2OgPiI
NKGG/UyIfeW2mh8hoNB5Cr47woQpzme1yFkCZoUCM60vMqGLy0aRk4EEiJ5P
tP7iyYSPArP8ne4ToNBcSVZ7M6Eavhuw8REB698u1pi7wYTvnQYFPWIIuLTz
9Yu3j5lQqCrrsEI6AQEfi42kI5lQUr3xVG8WAaGMoRafGCZcLn658nYeASmD
2outE5jw+qXe6/uLCci3sE7NT2LC+z2cr7fKCfie7bl39Ucm1C5ZML1fScBQ
UH7QbDYTuql+FVzdSMBf8kvFJZ8J4y6u1cttJkDIjr+oDjMhu4H5QLWNgJVq
u2cTvjFhZHvXl3vdBOiFnotcVM2EJj1/gm/0EQCnQtf51DOhRNnoFZtBAhzL
my9YtTFhoLpMrD+bgHM6M+L5v5hQUZfd3M4lwOfZ8veqfUx4Ql9cUfo3Afd4
tu4KG2LCo9KllxXHCYh0Pdk/w2ZCM7Un7cITBLyrvXPD+TcTPt2tZlY+SUDW
huQVdRNMiCodio9NEVDyqibfaJoJR24Ak8Z/BDTSxg8mzDPhrmKxshUzBPRe
kPsrxS8P9c/pmG+bJWCsZePja8LyULV7e/OWOQJ4thzWHRCVh85izGPMeQIk
E/2rLaXk4a2Tr1llFC9fFH8mT0YePuKKulv+7z7n1TKaqrw81FmX9i/tf/c9
u1lvQpfJQ1s7hetsiv/ffVD4/++D/h/a3tkY
       "]]},
     Annotation[#, "Charting`Private`Tag$19548#1"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->
   NCache[{{(-2) Pi, 2 Pi}, {-0.999999512844876, 
     0.9999999999999671}}, {{-6.283185307179586, 
    6.283185307179586}, {-0.999999512844876, 0.9999999999999671}}],
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.9071388221545186`*^9},
 CellLabel->
  "Out[173]=",ExpressionUUID->"34e74286-0b8b-4051-8159-d45f2eb68386"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", "\[Pi]"}], "<", "x", "<", "0"}], "||", 
  RowBox[{"\[Pi]", "<", "x", "<", 
   RowBox[{"2", " ", "\[Pi]"}]}]}]], "Output",
 CellChangeTimes->{3.9071388222013826`*^9},
 CellLabel->
  "Out[174]=",ExpressionUUID->"009e4774-618e-4660-a963-7b76213032e5"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"-", "2"}], " ", "\[Pi]"}], "<", "x", "<", 
   RowBox[{"-", "\[Pi]"}]}], "||", 
  RowBox[{"0", "<", "x", "<", "\[Pi]"}]}]], "Output",
 CellChangeTimes->{3.9071388222482643`*^9},
 CellLabel->
  "Out[175]=",ExpressionUUID->"6172d861-3d01-4487-9054-8488ab8eff3c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"Tan", "[", "x", "]"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{
      RowBox[{"-", "2"}], " ", "\[Pi]"}], ",", 
     RowBox[{"2", " ", "\[Pi]"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Reduce", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"Tan", "[", "x", "]"}], ",", "x"}], "]"}], ">", "0"}], ",", 
     RowBox[{"x", "\[GreaterEqual]", 
      RowBox[{
       RowBox[{"-", "2"}], " ", "\[Pi]"}]}], ",", 
     RowBox[{"x", "\[LessEqual]", 
      RowBox[{"2", " ", "\[Pi]"}]}]}], "}"}], ",", "x"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Reduce", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"Tan", "[", "x", "]"}], ",", "x"}], "]"}], "<", "0"}], ",", 
     RowBox[{"x", "\[GreaterEqual]", 
      RowBox[{
       RowBox[{"-", "2"}], " ", "\[Pi]"}]}], ",", 
     RowBox[{"x", "\[LessEqual]", 
      RowBox[{"2", " ", "\[Pi]"}]}]}], "}"}], ",", "x"}], "]"}]}], "Input",
 CellChangeTimes->{{3.9071388329206953`*^9, 3.9071388448904743`*^9}},
 CellLabel->
  "In[176]:=",ExpressionUUID->"ffb94395-f283-4539-a639-05899aabf78d"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVjXk41fkexzl2nYjfcs5xy6XGJVF5jBLy/YaGULaKNMq1l2lamAhNkUHI
oeMYRBEjTGNPZf0oosZyRIqIsWUba4hDc7t/vJ/X8/rj9bxV3c7bezJERETO
ft3/aXlIzlSoygGxlO9ah/QSjA0fhcxKK3NAM3stSIN3HmmpTqbTShyg3C1d
GbxrSG6l8bOOIgcuNT4Zd+ZxUXtuaIEPgwPxn4JL9fj3kJP0IqdrkA0nW4MH
+9MKkXfj+9miLDaw/SfnOyprUfjBvLteamwwZdjHWm8RIIgJsv23Khtc7U7o
ankJ0Fq7FePdZjaEPch6q1soQH6npj0PkWyQ3SFlVHOgHbkF6GpribHhBzu9
5jc+rxHKq66cG2ABlGXxm2o70Srz9buQNBbsmJIxnUzqRnscsqL1klkwZmL1
2W+0G11K8Tea5rHg3LHMnAN7etC4GivjdAwLvAqc9xZ19aB3xt97mwSxICC8
pfuzUi8qvzC6KOXEgv4MQa9+yQd0sXNVkUewoEV3oXir4iBKsrdxTpRnQf1j
o8j/Gg2iKkFWJn/D1z61Ok7gNYgkW6x3J4uxQP+3fV0HqgZRWsPdw+kLNOSU
Su8JPzOEmspNoh500KAtFSNQbx1GyinR65U8GrZGydUENXxEZqx+s2ouDREZ
t67oL39EZ/i6sTUxNGh5/9SFt4+hsoRepbobNDSXXf1DL24MHYreqf/Cj4ZE
4/ETrSfHkX/w60sCBxr+IZ8/rpWcRK9clMaGCRqE7hG6I9nTyOaeEVqVp8E+
SlNi11/TqHPgVJI8kwa/Y9/oTG6ZQX3uWWYG4jQYygoS6pJn0OwZrUzuJwq+
THskMS1nEeuysbPBGwq+v6Ygn2g3h9IeuxbbtFPwod5zotpvDqmshEl7tlDg
xyjcqJM0hzRDGsu5DRQkOFJzy+/nkHGYLTHyiIJmuYolTd955BHn1sxNokB4
It7dIWUBjbeFb/vtNgW3OX/ThbCAflR4EFQRR8Gi/kHPs2MLKCBxUmMkggJy
tv6m5L5PKDrV/xeDAApkRQ1VJPs/oaKcCOMRRwo6b6QPtKElpDeWy191oMDV
+u9R8R+XUMX2P6fkbSnQgPjLT9OW0POH8ncMLCiwtxBZyRcuoa6S5GWuPgXK
7W7Xl2uX0XpNfpEBh4Kf9/ZWFXmsoOaeXUwhSUFLl86+oYwVlLZU5l25iYK+
iKPjQ30ryGhnrbKRNAXc6xMjbs6rKCi9I3b/MgmLEJ477CJElk+dxtbnSaBb
X+6mMoWI86bPtGaahLbtV1f2jwjRE+bYqvEoCZlCldT4C2toKXjNB78h4dra
jaQZ3jp68WtovUg7CYOq3W5J/euIXyqpUtdMAlvxS6Kv1hf07eSmtwfqSajL
j3kOL78gP2e1g6alJGR5mz4QlRXBs/pHVL9LIGHvtrQ/iwNEMRztCJG8RcIz
148u/8kTxdwLTu9eRJHA9bdj/PJeFO/MdeOaXyehsIDzerMpA59jBaxbnCch
3bPU8ZayGDbSXXOS8SVBojEvQt1JDDNtQsteepGQo/js16nbYvhhRIyv5SkS
HK1lc5WZ4nhi8V631WES8p4E84/ISeAKBTU95iESZJq5dmfsJfBN7fz4ZjMS
9G+GL8okS2ANzzLzw0YklL3qVaA0JLFXZ9OjIztIKN9yfZThIoX3zB5WkFcn
Qf0W0l4pkMISzI4f2raS8KrNxnaFIY2zTfu22SqR4NqbtOtssTQeKplLsJMh
wXDrjXOJmrI4TXI1zFmChNMielk3o2TxcWeGv7soCacyd5TOjsniJlHi+E8r
BDTd3d0bXLwBF9h+q5QyTkCg2jJd6LERe2cbbbg/QsA/ht0PHbo3YpXPZmv5
fxEwdqemwt1ODvPuHftQ1U3AlUDJfh9reRw4ffn+wEsCFOmqmcinm7COyTXe
eAMBKRMKpyXEFfAEPzJ8vu7r36WZGFE7BeyyP9lLvIIAPHstbH1eAdMJGY4b
ywno2TdFmFsoYsFwrgVdQoA+19UjK0MRm8Q+1dTI/+pR/YXmJwks7K/7l04O
Abv4bxXmqwlcpvuKaXCfAJWgc0X+35BY/X3PtFUqAeZsMe7iOokHdg71H00i
YChuWTzoIoVTwyYFLrcJiDtxxXB4nMJMzbWS89EEtD8LJSonaNxwVTw7MIKA
zbH5d4b8WPjndiY/NIyA42/rQn3F2HgucEsAL4gAPe5Fq+C9HJzfrOaTdpmA
EDIyUrGPg0ntqRxffwKsf5eoRvuV8P8AIZMrXg==
        "]], LineBox[CompressedData["
1:eJwVkHk41O3fhmcxJsuM+Q6pKBGJmoq2Vx7c32SJZBmhBTFtKNooj1IqbahQ
VIgWqceQCqnI/VHZiTShBYUI2Qojxsyv94/ruI7zOM5/rktHsI+/k0ahUPL+
5v97wVBzuYcFF97oum+wWakBE2vmNq8358JsF+tdLgwNkO6LqpWZcEG4LthS
23kW0FJHX+Wu4MIXk7QRx/SZoDhRna3J40KAR7gabdcMYBv83926BVzYqVNX
5tCgDlz3O9dP63LhxA/RmxPW6qD5JPR0nwYX1IqttMFiOmh/7QhNU+eCpvFQ
yvhrNdBjOwW5crnwsY/qFeioBryA+ZsLFbhwOdB4rPiAKpjNa1gSPU5ArgXz
+oZeAm6pKq1wHSHA8kh4EHGFADrDarXmEAFTXwM8By0IqOrOXyvsJkBm3L/K
NY0DSz4OrDvU8ddDSPuiKwfiqhY4/tNGgKluWNo6RQ5syr6xqbqRgBAFg9iL
U2woSm3wutJAwGytVO+0UDbMjVXavvUtAeqbd2XXiFnQdTA8sK+UgAVP/WOe
UVkQbOJ7SimfgNho4ywDpATNhknn3j8iILn+Jo/fqAj/aL6PSc4i4P3x834e
+xWBJrW6tiidAHPlILPwLAWIfW2Qtf7vDjxwxMLGchqM5Pk+Vr1MQH+A7nXn
fiZ4ZCQ9/RxFwPOm1/57k5igdUG5ZM8pAg7lM1DUhDxkOQ59iD5AwEuL3xeC
6hnAIQ0/uwYSoNWrNaIcxYBDxoKvmv4EjDkkPl5lzQBTNVGv0IeAWUWWo2NY
Dio+FsiqnQg4I3Zd2lhKB171kNzV9QRYZdvoHY6iw+UiQ0VPWwIiQuzHrZzp
4J6WrPbz78+l/nPq7dpo0LnjhKHyEgIyA536pQo0WOf+bInIkIAvTzPidZqo
ILQdXp4yn4B5GXRH43tUOLhwuwVvDgHyqzUHJGupQBmycXVQJqAirFsuIZoC
s4+yw2N6OaDP7j00eVSK/dOrZtzs4kCV8Gvt7eVS/LT27JPsdg6ETlcf4P+c
wi7asu63nzjwbhX/SZHPFD5bOsgnqjlQ4nJCpugmwYMq7wwShRxw3BpuT9s9
gc1WX3ydcZ8Dzc2V98t4EzhKYOddcJcDk33e9ta//2C9/JIrzckcCFzZ0+l7
6g/etOWJVCOGA9ondT4/fjCOX6VfEaXt5UBkal1fKVeMVd467XvkxwEd6/HC
2PYx7ClWUizZwYFL4jP/tj8Zw2K7SNTuyYGUGYuvctzGMG8wOFNvAweK+nkJ
rmmjOGG1e8R/iznQ9NYv54zdCK5PMd60q0UFGGEW+HL3MKak70tsEakAmUEz
digZxkbCbNHGGhXofyeuEyQP49jnhi5rC1XgVuDtjdedh7Fzo4699g0VGO6M
T5woHsL1KlyzTxtVoL5sfUHtxkFcf+rXXMcaNmjc1p7D292HKVFG3qWv2TDM
Zzut4vVho7igFLNCNkSN6v/KHO7FsWm9MxdlsqGubxWzNrwXOxe1E9POs8Ei
bWJ/RVIPrh9toL9ay4agLTzk2tWN6/xyu1cWsuAN0WPx8EUnbmgTO1vksuBC
7pmQixc7caO72QsbIQtauQ8sM3w68Rer0hiPZBaA1ucLJ5mduFe7yfjfoyz4
I6RXVnp0YLmPE0eL/mHBNkFvBJXWjk3tLDlri5Thu9z8lerDrTjD8J2J80sl
UFfdsWcy7QM2Sqrff7BSAe5HYEHLRB7WMTL/pC5kgtshOsvoSTly4PckLrnL
hCccps+8lRUoNDjB1SaZCTL7jkfWzyrQ22f9NSHRTLAlGFgXV6KwNalYtIcJ
oX4vWF511UjEl6XH85iAvgk9yibq0NmQkn3sh/LQf9LTU2wpQo+vBfL0M+TB
6pJWcMZ5EfryfFaPeao87Ld2qDn5VoSWSQ8IAi/JQ5zOZmXY8gG1nZ3nVhMk
D/uCGNVBIY3I5Ppp06il8hBu4NVjmteMel9YM+QfM8BzWc83ba8WJIwrqDr0
gAHWPpFd9o9a0F4/w9hvaQzIqpkoLqe3ov7pLM2Xl/765jfai4WtaGi/yCh4
LwPOlhYkl8na0Jj+ds/2BQwwSJmbm+v5DdGuROQWp8oBkeE+94FFJ3rt/yuU
lygHXzLn3KsK6kSR5A6LpItysKFg9YqlaZ2IMWBbGXJMDlw0fF1fUb6jaXYq
bbwtchB/3amAV/4dsWU3FZOny0EePmFEFXQjzT2Fvkdi6PCjcaBcr7kXJVVU
2LAi6VDblCnMIfqQhn7jortH6cBp0nO+vf4vfxsafRtAh3Rm62oMfWimh36U
vh0dvB30mlQf/URqa+OefGDQ4fOwT0d2+gC6eiv12p4pGtSuMukP/j6AVKXC
Y9RRGig9TWGD/iDiPi+zWdxJg8mMl5Z9mYOIs1TyKfIVDW5tferc6zmElDV3
01ecoEEd3itTDBtGMaHBPyoP02C2ja68VtowUmo8WbstiAZbzrS6nXszjBTj
Uq5Fe9HAUlmzQ8D5haYxGxZ1/EMDQY7ZwoCsX4jx22xj/DgVnlYmLDAX/0aR
zvarDYao0GDt8vr4vBEk99BDq7ibCu5mKmHLHf+y/8EfPY1UwAXP5GUZI4jW
dv/YmnwqKFcf9NnmPYqkVdx7QweoULgicPGJrjHkcl0/f0YAFXaYRh5KVhej
9J2mpRYCKix0+fGQtBUje4rgewyfCpoiuzdGmWKUuPLxfMPlVDiglJw4dngc
Lb7llOE7QoHnzzrcRUsmUETg9qfnf1JgW3uacp/fBGowPVKW00mBtv98OPju
BAr9kNo1JaLA6IHKsBzNSfRGcUA/KZ8C42sOixdNlyDPkJj7DYcpoOcbIWha
JkU5lrcK/gRRIC6F2SIOkyIaJ69cezcFcv+MdCx4I0UPMj93B3lQoGRwjfG7
zTI00rbQQMmEAqVESPE5Owppm21hssyIArTz15pNDlLIpDD+us0GFLhRPOZ1
OZlCktPD/O7PpMDFnv1/zIcopHpCvMu5XzJ8p2IpX/cOlSxa+uLAh3YZ5rvy
8yLqqaSg6luc7nsZ9tPyEWTKqGS2zKgB58rwo+OzEv71oZFWAXX88WAZ1tJP
2JPHo5OHkPJGf7EUc3scs1tH5UirtfjM9i4pvj3HtzZ6NYNUtz1Y4PVBinkF
4xaFxxnkM8dmDX6uFJs13I5qZsmTEq/0b6b7pPjd4vMtBSSTrPX1UF3pLcU4
lp6rFc8kU3cqWi/dIMW/D19bFvWdSZKB+x/oLpLi0R8+eiXx08jIY2b7lLun
cFfYxiM8BUXSLWLwlnzjFC5+9Xh0aaAiqR95p4FSOoW37cwzlbxXJCuip60a
vTOF5RQoRwIzlcgblwt3D8ZNYffZxpvdNZTJgCtBN3oipjDr41Wd2IvKJCtZ
JGnxnsKxWUKXxOMssjX13JLmDVM4dJuaynMJi3x0x9SnwWwKj5bXlX88zib5
mbdel2lM4QNEblz7ZRUy8fneqJxGCZ5vovWxeJRD7n45t+i/Uglen5/XMmJL
kCYlDf138yTYsGEymHeTID9VmLhcj5fg0By3Xr4LlxTW9J2KPynBbs4rvtx9
xCWP1afmxeyX4A8KZ80LVVVJrWa5mScdJbht17CzUZcqOfi5wO6ouQTXLuJF
qrmrkdAWcDSEJ8HD84wdaqvUSEF3fau/ogQHGVLEKm+mk8v7TnN2/JnEDyrD
BR526qTc4CpL7x+TODbSbeuQSJ28P5Zyj182iem4PEpGmUmGTjg1OeRPYoHT
joQLd2aS9lKagm36JE5RMlkc6zCLrA/YaD/t0iR2EDJeInMN8n9T15gf
        "]], LineBox[CompressedData["
1:eJwVzGk8lAsbgPGxZqkxyl4qKomilGxxP7K8nFRIJ0mWCqUiichSaadFyBFF
JltU6hU6JfdTtjrWFtknMvYxzJql4T3vh+v3/3ZpHQp29ROnUCjl//Z/hz56
5l0oFWL1qj932htrkK5ein/0FglxuVwWc7RenRQWevYXpAvx7Fh+R7C6OrnN
lqdsHiFEi9tr7jk1q5I/Eq2KxQOEuDnciea6VZWM67nhUL9XiO9XWV9/lKNC
fgxfGeW5WYgujmrKqveUyeNVx5XWaAvRIfCZzQEVZZJKK382ThOi5UPbZcsf
KpFuT3b2xrIFeFHj3Mp3fy8he7vO2WU/EaDLZGexwdrF5CXdWsaxNAF+7u1J
nqpXJHXCFCOMrgnQ42x03dIziuQJakFh1REBWnsfkittpJEKB3g2N/cI8EDB
q4rvsTTyv/lWPW7bBUgp8gstMKKRU0SrwuAKAcrcGiun2yiQGbdWPnlOFaDk
25NTn/+mkladx7efFfExb1LX8tAWKnk5VDxMpouPGhJ65l+MF5GKeYadeql8
pKWKq30/Ik++4p4L5V3mo21oT3f7lBzpDrULK0L5+LnK17T3jhyZ2e4JO134
qCWdqRVVK0vqycfnBC/kY7PZ6bIyVxmycV+rpeksD7+8oX7JmV1AnspZ2UYZ
5aGEFefZu7wFZJlluWxSHQ9zzi6ZWCqxgNx+ihn0Ko6HbhMZ9IgvUuRAhaFM
TAgP00NW3KTHS5HXZaOy7Xx4WBiDSkdtpcgmuuK375Y8zIgxjr9VIUl6tFqZ
TU9xcV9xiWnHOwky1Py+hFUwF5+mPi7/MSNGpqQs7f7Ti4vxtZsfbf4oRr5i
P3wVvJOLLxXc94emipFCOt0vW5+LutlNLhnGYmSE/NM6yWEOvt9y4hkjhkLe
9zN4pNnGwXTDwIheFwr5Bl9EbK3l4JnOPqdMHQo5G1q67mgOBzUer9t0Jmce
Y7srE+p9OChvMvztx6E5zNxqfYS5m4Pc1PCSB8pziIlV20RWHEytubA2/pMI
KXYfxw00OVhhui6hfYsILz37vDupYxItCm93Rav9xuuxzCX7XSex5Xjo5UPU
GSxo92eFWE9iotcMm/Z5Gj8ZjVTHb5zE7hIZyTsp0yg3NB5WQZ3Etlv2jCHN
adTIYhdD6gT6KTf7JJtN4RprJdPGa2ysCFBpCbwrRH+B2sicHxupYakXNngL
seCJZvpGWzYedfCsurRBiHqL1/5OprBx/fIwux/1AtzYb0Z6RI7j8cgmR0kF
AZpf8XYYDmRhn0cLr+kpDz9NxeR67WDhh/biXN8rPHQ/8UC8VZ+FMqucyl29
eBi2p6PiPWsMC2u8kxwVefhCa8+mjKAx1KesBe8oLq6ttNfYdXoUVeW/xo97
cVDp1wZWSeQwmr6L+qRfxsbHgU6Oeh7D2GTYl9QUyUYjRmDeI/NhlDsaZfPT
ko3ONfk+t2aH0OOHaf7eunFMSNZq9Y8ZwqcZPjbwg4XiG5Ur1S8OovnR9px6
rTGcOPr7zvnrTGwdCF9/fngIvz3fRNvlz8TK0APvfUuG8A3fP3GZLROLMg/r
pMUO4eULnxP/nu/HXNWDIbPKQ6iRlneXF96Pjnrb6OccBtG2zjk5wO8nnjT/
S9XnLRPT1uSm7t7ei5wezZz6z314qTrDHKbaMM3GPt9MtwOHm8yS/V634VzM
Fv0sRjvu6mgbS4how08GVYWW99pRg73kYfvUd4z8L8tZW6IdX6jenA+ZbsXn
od0ZoX3fsScwujpn5iv+ZIvKr+V/wyDtNw+UZppRKS7gnpdbC35/u626UILE
V68dHDepk+i93l7kdrcSpMzCbCrKKmFbWt5t4SOEuLPhtoH/ICyMk6A5uZNA
34TnNgaTMDJ+OHs84D2s3npyx/1L74Fes7p647UqMFNz9t73vAqUwvJky2vq
oON+vmLhwo/we8TtH1+tFih5bXRQPaoF+hzc9wZltgN/758x3cMdYDUQ7dvY
0w4fDourVxh1QvrF7JPrNTuAuFBb3BbdCa5vRq+MZnQAfarAslaxCz7ox5T5
3++EdimZwPtW3UCn0lW9U7pBP/txCzOHAUajAtZau16wkGmTuNraBz6mMqFt
R3qBmTo/t2q+D25f1Zi+erkXHj7tPDmp+xNGtUFqsKoXdm5I0VON+Qn0A9c1
c7b3Ae/nC+Pna/thSaPGrpXET/iP5FtG+lUm8IuhWM2CCUWibbS3p4agQd9i
8amDTDArbPV4kjsEj/O3htWdZwJX2aR7rHMIXLM2WIRXMyFhS3nmaftheHl7
ad3XnQPAba5Z81RrBIJO/mLc9hmE1a2Pq+RHR8F+hGs9GDcIJkVUr/7VY6Dp
x86xzB2ELzZfo3R8xqDBcyCQNTII/rdP0YRtY6Dn9FXoGDoE/scerGQ1sGBI
r5gqdXUYToiOSDEa2VCZVxjiWTAM4a+zKpxoE5Cqnfet5J9hOLu/P8h+zwTY
azxMP6QwAsemXdSZnROQI5ugQ6aNQFGpk/PViEnwGfa3iioahTEjRtiLhxzo
zF0exGlhwTEfu7kpAz6UST91LeCyYOP9Z7I/PfiQHGBm4q00DvGH849ZX+OD
0zo3SuO+cejiJjie6OND5dMbSQWMcWhZ0Y+lGQLILuGXebPYwF+dUBOg9wti
leIyVKgTIKqcrRrx+gUeYQoXGg0nwPdw4H5qyi9YbKLnaBE6AVUSMVo7KVNw
+Y13l8rMBJSzxzIX9E3BK5+B+cFLk/Ai5WCOWN0MaCuuP/0hZRIsogulry6Y
hcT3p5kPcyfhoM2y5xyHWTipTfnkVjcJygnCzpSmWdBhaiR9kONAxYy+evHA
b0hJ8ZXMXMqBet7IL5qBCMTtCsIj13PgxTNjjYSzIviRa3xg4y4OPM/aT2cu
moO0AOfVmXc54KVbOiLmOA/San+lRtI5oHWs7eZ0+jyc+dgjs7eEA8rvN61z
ZM+Dy7rj4/KtHDg3weiMd6IQcmNXyiLVuFBpYl1jRREjooLeOuzN4sJfidpu
bonixHYQHKEWc2FrcKn59AdxQo5meLGukgvy8unPbwjFibSX9L/NGFy4ez1a
+oaPBFHGv6G3XJMHC9htDV8JSSK2psq+bT0PsrZI1eVGSRJ2qaJDidt4cL7A
uZheLkl8MwnJEPfkASPb6orNZimCe8594VA6D9K7JAptzaWJNzuSdB8V/vtr
VqHcOS9NXFzWYLv/DQ88XQ5d8KyVJmiVEFPfwQO1PYtVy90XEAZia9nFanxY
RDlpIJckQwg/+8gd0+XDvdL5HNkBGeIdPV1H25QPVfuau+TMZQknW6p3yj4+
nDILyfUdlSUCrwmaI1L50PAuy7rWX54wcjdkbcrjQ8rFHb6bG+SJad1jMmOl
fNj5Z/BVry0Liev/dBMHW/mQ9If2joBFiwjnDJWDKgN8aLE9Hn0ldhGhesI5
spnPh657zmr93EVE3qLql9ZKAtDf21HPG6ASQQxR48wqAXTW7nOdOqJAGBeb
jJZsFoAY1ST2x5ACUe1cpK2zRwCpK7dskI+hEX3JSclySQK4p+yrsLhIkSg4
0lBclS2A5te79iqLFIlTxtIN0S8FUPrtjtmMy2Ji7nuk5ESLABKJweaFUkuI
2vySlQW9Anh0QMEk5fAS4lbE+DbfSQGIAmetXtYsIZZp+IZ9VRDCV52SM9fv
KRHM0fS7N1cI4QZDVaxCQpkoevvtmZ2hEM57beiKCFcmzA86DJbvEkLCYG3o
u0AVQtwgTjzESwhuFNblcZYK8Wnu7XK9ICEU9lTQps+oEu6PDPc9uCUEfbZo
4e40NYK/gOH7JFMIcWtIe6Xt6kRi8M0TZcVC4CSGKUoK1Ikp0YomizIhOBVJ
vQNLDeJ/Icn13g==
        "]], LineBox[CompressedData["
1:eJwVlWk81PsfxWdjwsyY35CRSAlZrhZF3cL3o9JVSKmkUFFRdnVz5ZZIJUsq
lWyXUkJkb7Tx+2VLRLKTPUmT0kQjY8z8+z84r/PgPHif1+s8OEvc/R2OUkgk
Uslv/d8tnSoMvONmUfVSR7stJmrE2KhzyMDVWfT2c/ONSG01os9vbnl9+iwS
F5T1DocsIFqEaR9KC2YRpb3DIqBblSiXHbaNfjuLlGs6n3XlcYniuAjyqYFZ
pMrrKClczCWyVXR4BydmkUrKSHxRsgoRr3tM00RRjHYO/S1KSZ9PXM6Xa9PU
FKM0ssTjnf584qxp7mX5FWK0Tt+pseaJMnFsyzfBwHYxUiSryzR9UCIONF19
UH9AjB5fOlB/6JwSsctxlfNjPzE6fybnWMEiJcLC4+/q6DgxIg+1DhZ4cgjl
S6IEkyYxOpt+VWHnIoyQZ6XaLO4Xo4oeI0ZZC5uQ3jInKXwToz+vLg2LiWIT
/Myw44PMOfTvlE8iR6xIEDWyZjF2c8gKl98sljAJnl3291Ouc2iQEpXde5lJ
5LZvzTzkO4ferMv0U1ZhEgkfY1mmV+aQYPLJ3Zk/GYSPjNLQ4Js5RF7RIuTc
lyfcr5TeauidQzWOrBQVK3li73zHbbzxOeSSrEY+NyZHbNRJKolhSNBbTTfq
ElM5QtVK85KprQSpxTkud+XTCVYjsX6JiwSRbZMEK1PpBHWP+4SCjwS1nW++
WG9PJ74dyXQaipEgxtOEC+wXskTVBUPD2AYJSrB9x3bKkiHWS2/d0X0vQT1p
zmsYnjJE8WmSyku+BAXuWHmKoSdDZPi1k4RyUlRJ8tKoe0Qjzjud6zhoLUXP
iqYva72iEqKWzzaivVI02l3XbHCNSpyw2/3ypqcUhWzQ6zbdTyXcN+rnvb4k
RcVfNY6YCSjExj9aw1fXSNHCWE8zMwMK8eyB+XRjmxQFPk43SReRiVVLsn2O
jUjRo+9zGu8ayAQ7piK3iUyCQ105eTEBZIIUdiOBuoQEdmyNkYZKEjF43NzH
9yAJ7P86W0dnSnH1rB8P1nuSgBPj3bWmSoI7jWQN0f1JsMvf+MXfIRK8+QBn
b0YoCb6tKd+iND6HE7s+WXb+R4JNnHYjrfdiPN38OteylwSR+1kOjR9EeE/I
FgfWCAmuypdUhGeLcJUns7Hvv5Dg3XHlzJ++IjzO2IMSNEuCbVklAwqzM3jo
sg1fH6qR4aniY/ZljRn8APaxUnkfGR5uvORAhE3jtOS2qRg3MhhMa/Wl2Ezj
D7WqdaleZNipPWqkxp3Gp1ffixaEkCF22KRRUCDErzm6OTSlkoGS+OBa6dhP
vCqlbyhykAwvgjIdZf+ewr20G5WkY2QYfntnLvuvKZz96IVVkIAM4Uc95lUu
nMJdKlJyjlAosO0JM2h7zSQuHNwXaKlNASPZHa23NCZxPd0O0qwnBY71rNm6
YkiAN+XXGJ8IoEDO6Uxs63MBfmrt4yOfg3/nXSGOz28J8Errm3WdURTYrMCF
ezYC3Nnb4VppLgWOGKc2733+HY8rbNL0m6CA1KD0qZ3DBD65/pXFUBAVVI+t
3Bbv8wWv3VVo9SqUCilq9qJJky94ok+S7aNLVCi7GKdUJOXjFmne+08nUKHp
gc7OdTf5eDSZHYTxqJDknNa39+VnXKvO6ZHlTypMRL852Gowhu/cw1+YcZIG
1iaxsd6rP+IF/swZ9wAZ+HL4cfSZrgF8vHXl9I9gGdAuLlRdEzGAG6zb/fN8
uAxczaQ6Wy0fwO+TUgQZ8TLwo8iz1v9iP558XY8/XCoD92OfZBFr+/ALJZve
u8/IwJ2kc9RNuT34/unT5e7nZcG0d/AnrbYdp50bDXe/SYct2otDiw1e4+FJ
S7dyb8pBo9yGzXFxeciGdk6/OkoBHmyLLrXrakWHyte3bY5XAFejtRShVhsK
ChKG1iQrgMKUrH2zbxvKGPNtq81VAO+pw06LaO3o1xuXc68bFcApBSfWre5A
92+tb2/CGBAw2CO7OrULiXWFYd1JDBAnYlt17vQhzmCR4f4MBiT4WJeN/uhD
y5J8O3oeMiDb/FW6yKofOSh8NOx9zoB9vNHqRV/7UfZEa0d/HwNKt6tXlWsO
oj1Piv4YWcKEppBlap0hQyh/q2/Xtxwm1B2k4Qv2jaDv8VpO/UVMeNnvdP/1
xRFk3NvZ2fiUCVmndkQVF48gnt/GzrzXTKjKueRnzPyI8BvcDq/PTHin0o+R
az6i5r6XraN6LND86hp4Gz6hyUCVt/1ZLPgRIWx18OMj0+cN25sKWGCcfyZi
5B4fBdPCm8rLWBD6+PPPpm4+Eid8aUx9xQLrfbI2JVu+INoL4s3+TywIanbC
BrTHkYqsd32HriKc2KEZQpn6itYl4zVNmYrwUddV/vTUdzSyvMDsWL4i3M+i
k3QXCND1qrQScpki9G++nrTMQoD442fvrqlThBaLztLlUQKUiszOJvMV4bPh
24PBS3+gsBMuaiVcNizOa6v8x2sSdZi1tUsXskFkxVM3vTWJ/qDbXrddzIb8
Q98jjhKTqDtlw7xRPTbcSP+mt1h1ChnXqAlV17PBqLQye3PjFPrI7X4X6sIG
F3PLvDM7hMhseMeVhkNsyBwOnvGPEKL4vDpr1aNscI7XcZDwhMjC8gle5MuG
y/NaLWc0p1Gi1+1HI6FsWKQOyq9nptG28j1R2+6yAYlcp1c0z6A7kY2bb2ey
gdeWv+EGS4SEO61IIzlskCzg+bfYidC90TX/nC1mw/cPqwJnmkRIrKh8tLCK
Da1jN55f6J1F+e4toDLKhsO+JhjdQIIyj58Z385ng5f+hZrIfyQoNUA3MfIb
G5aejPLfWCtB0aEhE7+EbJgt8Kq79PsHjiZrpb2nY2BJbtbXciWBy903W5UZ
GET+JWm3iiKBQ3bQT1s2Biez378w5JEAePW2FaoY8GJ1LHZzyKDecmL2jj4G
lWU1KyvayKDUrZ7VbYRBS4NGbCKdAvKDtQ4cYwxq6UZKnhso8Our2sOI9Ri4
6elHSTIp0CpX5eRhg0H9ph0cUSQV6tm+tHR7DA5urxl3rKICweUWdu7CoCDN
PnRcSoV8HW/6VhcMWnv4Xl/O0CDaUoln6IsB7UTA56BIGQi3Lnc7EojBa4/4
1e2NMhBs78n879RvnqHT6Jv5suDh+vwIKxSDw4hrV/1QFixPH1YSxGEwiDK2
3+HTYV0YE9e/gQHVQlgRj+bB8sgyL/fbGDS7jV/ITZgH6rcUKlvTMSjRzp2X
YyMHvwpLAniFGNhhLZejWuVhosxVfaIUA4N7RvauZgowWkGvW/YUg06uq5JR
tgK0vXHWTHqJQSGD+L4tigENrTIN72owGAgPifggYUBlT0GQfD0GI0IfZ2Yw
EwrGqE3/tmBgHVXcWX2KBQ8mHp0u7cBALjYoq0jEglThXp2vPRi8F6y48i1C
EaJpeWcOfMDgyUbvaQ0HNngs3m1oOYXBGlKw273rv3ecCLFc9QuDTxHkbP4w
BmEVd/cuEWOgPenHkF/LgRSXiQgyjQMP1afcT4xxINtQJVlA5wA9sTpcaYsS
8ERmhUMKHAjDAvPMs5SgOTG696USBzLP5wTLnFKGPs+iH0VcDrym0SzVhpWB
b9o1L2MhB3RUzG2zds0HWruOyfmlHIjxWLFnl5UKYPdtbU4s40D/ylWO3FoV
WHTypJu7IQeqx1ZqpNty4U/s5ZWNqzmAIDL2Px9V2DL46Z7x757B5X3+UtkF
sLuA9UxrAwf8ba25kuwFcMFwODfEggO2uTLlyFwN/gd4E0Vc
        "]], LineBox[CompressedData["
1:eJwVjns81fcfxw/CQTin7/d7zvekzhlFozIkyn7b3mY01FF+/RgeKpqG0Akj
UaNxjmwllBxKkbmGc6ymlXw+llt7GCOsZlMO6qx0yP3uZ3+8Hq9/Xs/n42Uc
eMIzSJ3BYBxbzb993rYwQx5NQOMmr30uO9fj5XjxW+UpAmSaNXfYCTyMRW4r
288QUKbs8iE6aPxtkAE7KomAEO3bQ79Z0JjpkW27dJ6AmBuRJ4bnOPhXJ1+X
Ty8SsG2bMGdzGAd/v4v/hSSTAIZCKPp7iMJsk+J4dh4BG/6MDdBUkribE3rB
6wYB7cVDWHaSxNl6ljfybhEQfnjYby+DxOun7v5ienuVr1d/+N5WAm9ubdJx
eLi6t9b5Hy1j45d1542+aSDA/lSsw4gPG5fJ921vbCLgZW7/XIcWG1vm9ewX
tq/+fy0ZNQlh4bF0aWBWFwElZ/eb7OGzcE2yf/TTXgKkIRf8H1cYYvuI4auB
zwnQCpx9JMgxwPOBZWUlgwT0b8kwfEwa4Drv8AcjrwhonlQLTbyij8Fxqj9m
jICezOfpvoVrsRupafadGgnTe/1TBMO6eFOnc6FEk4R7p9PcPZJ18eIFMT9Z
hwTrWWnytKkurtRmcs+wSQj0OBnhJtLBrAVd5gljEhIM1/xzi8/Eylr35OOm
JLQYBh007tDGDdHfM4LNSbA/17QkStLGkSr9uSPWJGyuy+S7vNHCPQOs156O
JMhlW4LNuzRxVf6BYx7Oq/4tgtrL6ZpY7JepcHclQfelyUyAUBPv6iH6PjtA
Av9mjcVUxxqc28ppswsg4Vnadbu/BjTwkeoNVeuTSPBaCqMGd6nj3WH+FtwU
EpzLEicXtNXxOvP8YuI8Cdu95LmqP9Two0LBjbUZJBwN8oh1Pa2GzbJNLi3f
JIH5E8gdWhn4TcL7kQpMgpnlD79IdVZQ4+4QVX8jCaOn2fzd9cvo2nRZaF8r
CS7PgtVmopaRULT1aPfvJCya31+pUSwh2VHLg80vSMj+umYutm0RxbjZ2pUz
KPBQs6qyaZtHo04lhZlrKIil0r3ojHkU/NF6w3gmBYtnm9PqvOaRnxVD6c6i
oNS5rcpqaA4Bp036VkCBsR3720Pac0hPcXTJ6hMKap9ARs/xGZTc1xvCc6KA
Zr4YmneYQcvdrr1qeyg4M/u3frnuDBpr+aC6S0hB06D113kV06i3cuFI9CEK
fq53t0mZmEI347Iaa89QECh3N4yTTiJelJb1zSQKHFfENiaiSZQZFnc9NYWC
q8I+DZs9kyjl8OEYnwsUtJsJLp+dnkChzlvfX7hGwTu2RmeezwSyZT/67uM6
CtrMrRUSq3H0uHTcs2meAqEwyruZO4ZmW9QfqK9QMJFZHS59M4rMXq3bBBoc
OFLk7bKzdBSdM90xcV+PA4+w7zhr0yj6T2FUlmwDB+y6TqbxBCoky5t8kvcx
BwJ9d3jlW46gnIvTByPPceCnD2YNn+UrUXOl1sNqMQdSroTGaYYo0VQbx/Rt
Ggdk7dalqTuUyFPPfuqrLA4kjIQ7XHz8Cq1Njb3iX8SBZFXrrai5lygxabbn
82YOqNyMmm59NYyCo+e9BLpcYF37x/vLGAWq9JOYkwZcmBndmLN3rwKNf0ou
MtdxQdUr8v3SRIHi2ZYF4zwu5Ny5/0LQMYAuVgW8aTLngvyeuOWuxQC6q2z9
JsyVC01+jtSdJ8+Ruv/V0p9TuZCWErA1g9mH8pxt5/+rTUNktqWu6r0uVF7p
fbVej4aeqPF4WXcnukfF25qzaCjqNWopSO1EvcMNEcs0DceXVH76735HLLHH
YKkFDQGsZ+QLSQcSN4e2Le2jQSt85hN3xa8ock9BfsllGppDR4yOtTSgpOrG
D9dJaYDPKg5E2DegS1zl04TrNKC0YaeCEowqX1kSnsU02FDX7DTYCCkldZLF
Whom02l7Zs59dKj1D9GBPhokZzkby+VyFG61oF/3nIaIj4wO11+RoYQcfoXZ
EA3tf/Wemp6oQtLgoOGFERoq3tXdaUkpR93MCZ/i5VV/7njn57cL0KCIM8PS
4MGYOHOxcSQfjT/dfTlemwemya6/OSXlIsOyxPb9LB58oVIrmi3PQHx20fEH
JA/6793dZpOYhrbFtTDNeDzwsdoh/7E8CX048PqHSxt5cKLBMQuXn0RurgZO
C8Y80JC6tA/uzKj/P/5DBFY=
        "]]},
      Annotation[#, 
       "Charting`Private`Tag$19925#1"]& ], {}}, {{}, {}}, {{}, {}}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->
   NCache[{{(-2) Pi, 2 Pi}, {-6.552025993711997, 
     6.559813455077187}}, {{-6.283185307179586, 
    6.283185307179586}, {-6.552025993711997, 6.559813455077187}}],
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.907138847406272*^9},
 CellLabel->
  "Out[176]=",ExpressionUUID->"b966abd9-43c4-42c0-9d99-ce4bcfb1bf27"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"-", "2"}], " ", "\[Pi]"}], "\[LessEqual]", "x", "<", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{"3", " ", "\[Pi]"}], "2"]}]}], "||", 
  RowBox[{
   RowBox[{"-", 
    FractionBox[
     RowBox[{"3", " ", "\[Pi]"}], "2"]}], "<", "x", "<", 
   RowBox[{"-", 
    FractionBox["\[Pi]", "2"]}]}], "||", 
  RowBox[{
   RowBox[{"-", 
    FractionBox["\[Pi]", "2"]}], "<", "x", "<", 
   FractionBox["\[Pi]", "2"]}], "||", 
  RowBox[{
   FractionBox["\[Pi]", "2"], "<", "x", "<", 
   FractionBox[
    RowBox[{"3", " ", "\[Pi]"}], "2"]}], "||", 
  RowBox[{
   FractionBox[
    RowBox[{"3", " ", "\[Pi]"}], "2"], "<", "x", "\[LessEqual]", 
   RowBox[{"2", " ", "\[Pi]"}]}]}]], "Output",
 CellChangeTimes->{3.9071388475312777`*^9},
 CellLabel->
  "Out[177]=",ExpressionUUID->"24ae548d-7be8-4fc2-9ef9-07e6722d03bf"],

Cell[BoxData["False"], "Output",
 CellChangeTimes->{3.907138847625038*^9},
 CellLabel->
  "Out[178]=",ExpressionUUID->"fe7ce018-1d2b-4cd6-a32a-8f62f768920b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"Csc", "[", "x", "]"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{
      RowBox[{"-", "2"}], " ", "\[Pi]"}], ",", 
     RowBox[{"2", " ", "\[Pi]"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Reduce", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"Csc", "[", "x", "]"}], ",", "x"}], "]"}], ">", "0"}], ",", 
     RowBox[{"x", "\[GreaterEqual]", 
      RowBox[{
       RowBox[{"-", "2"}], " ", "\[Pi]"}]}], ",", 
     RowBox[{"x", "\[LessEqual]", 
      RowBox[{"2", " ", "\[Pi]"}]}]}], "}"}], ",", "x"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Reduce", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"Csc", "[", "x", "]"}], ",", "x"}], "]"}], "<", "0"}], ",", 
     RowBox[{"x", "\[GreaterEqual]", 
      RowBox[{
       RowBox[{"-", "2"}], " ", "\[Pi]"}]}], ",", 
     RowBox[{"x", "\[LessEqual]", 
      RowBox[{"2", " ", "\[Pi]"}]}]}], "}"}], ",", "x"}], "]"}]}], "Input",
 CellChangeTimes->{{3.9071388701424093`*^9, 3.9071388841120863`*^9}},
 CellLabel->
  "In[179]:=",ExpressionUUID->"6b61099f-d2ad-4830-95a8-a0fec647f1d7"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJw9mHk8VO/7xscWzQxmzsyYsS9RiqRUn0I9TxKhUIikQtGmKIpQqaRCIUub
UihlKZKlpO6IshQKSYlIQnRmbCXL9/z++f11Xu9/zv3c13Xd93NeR9PTd6OX
OI1GWy1Go/3fMyHyy4sDyQJQ0d9V9blMDa9NKbapvS6AFZmtoV3JanheYOLd
nngBkB/+beb8UsHKXRKOIzECCKj+LLZGRwUz7Q6JSURT7Ky2bnS3Mh6cbeem
Fi6AhP2Z4XlMJdx+qXSmfpgANtTODNm8TxHXT+kVLQ8VQGuT0+HiBgF+1CxD
OAUIYOBCY0tYPh+nmQW+8PQTQEzUcPv4fD5OeNDt4+cjgHnlpdHWDxTwkYiy
11E7BWBlNRow8pyHd4kMD191F4CujT7zvi0Pu2xL0cpwE0DJ+oPB3zq52Hhp
6LEyRwGcss791cTnYr3Uvnn19gJ4tmgHS7GYg1XkNre0rRPAr+r6LYNbOHiy
e4nRX3MBSN+XvBCVQ+DBDekdM1ZR75O+oTzuSuCvpcRF7goBvPP4GWXJIDAk
/v65YIkA/pt+rfbLn43D19y/6a0jgCN6yrQWDxaGqGB7dU0BLNy4oG2fKgtP
NNiIt6gI4HK75M+zhfLYf9uglxVXAO3aKhXpT+WwZ6DRfH0JATRrLFI5QTLx
zVLJ9u9TfNBfO/QtNIKJP0k0x94Y54PT5VnsK+pMbB8bNCwn4kNmVZ/MLVcG
RvdLS4QdfPDaM2tPNjkTB/++uD/zCx80hJwQ0+SZuHCJu/qOFj4sE+zpl7ae
iQ3KxE831vEh9MKO5eNZMljls6V10XM+DNN8zXTPSmMXTcUJ36d8+By/ytPb
TBon7OrL0S3kQ5P2YKvN9AzMGI5mX8vhAy3KNOr9sRl4nPm+JTSZD1VGSwpd
o6XwUoe0yCVX+NDlZ7/Y1UEKH7oaYDoYz4fLWTH8ZGUp3KvDv7U9ig/ftZ32
PX8oiVtWuu0yC+bDVTHT5sBuCcw9M1/x32E+/MiC0pMFEti+Zqo6/yAfiuue
tkRESODXzrcNdPbwYZUDO8RLTwIX+v0YkXah9MouPVJ0QhyLCosywIEPXxyS
3n/eJI4NJs9tPmrHh9s3eS9eG4jjO+f1Svss+JBmm1Lb0SGGE1L9wt8u4QPi
GFVErRfDBxvHiXgOH7aanTEaNKfhpI12rgnyfGAN3crx1KXhZ/VptxMZfNBD
I+etmTQ84+06wysSlB+HXl5szJxGyRU3198YUgA/kxHR+k9T6E2h2bmMDwqQ
3F8au8d1Eg0uvlx3r04BjN21M+7Mn0Sc/H6FzBoFOLCw2CRCbBJte5hwJ7tc
AU7MHaDpZk2goYwfZXn5CrCmVyzqitQEUrsaOVkSrwBustXD0DiOzPnt5qUx
CjCyhn29P3cc7Uk0in4epQDPLokaYi6Mo8dxX5RenlYAk2L9naZrx5FVpMGy
Sn8F0JjtyBgo+4sCQt4fqndQgFV16Wb02j/o2t/ZTxvsFCB3N03/x4M/6EVg
iNgHGwVoOfv1ntqlP4geoB3btFoB1nqNBqZs/oNSfI7ktBopgHLt5EDxrzFU
vVXp53eOAjRYyr6aozWG7FJM0bg8Ve/Q0dg0+hhq7NiWJM9UAKUz0z92Do2i
th1p5saSClAznIoeV4wico/+7ZhhHuTf1WTv2z+K+EdWuho38eCbdXeV/5sR
lFzknmfXwIPnWXcOfn48gjT+npLxesuDqb1ruoNvj6B5oa8LYyp4YPJXdd22
kBG08pQ9p7uAB762H6+mLRxBOy961sYk8eCcyeqbSRnDqLcufNadSzzYy1sw
NO/yMDrAzgh+epEHQ187Bn5FDKPAhH7d7ggeRH1A2WPewyjyWsAZ40Ae/HF2
L1acO4xy70as7HbmQVfh2pdaBUNoyc97ieMOVH329gNOGUPo6dyaX/L2PLCT
TNF4cHUIlWfLXzdeS9VP/iOsOz6Emh9dGYtZxgPTO95Lq62H0OTzzFxjRR68
to6Rs+gVodrWBcx/XB74r21UzfsiQsmjj3eVsCg9NM0ZZvUiZGrwQs1Uhqpn
8LXnQ5EIBd/4EL1ijAsbjV3ass+J0GjIxG7cxIWqLYNNnYYiVHn55CtaAxca
bKq3npgtQon5MzRe1nLh+0wTdVMVEVrcz/q46hUXHFc+UuTJiJC/q86a1flc
sJmQKjP9JkTkMltNizgu7CtwTtK5KkTg+CF0xgUuSB2s46bHClGMn0tL5Tku
vOcaRKw8J0QG9zxjLMO4kBQp41wZKET7+YGTa325UNL8+LiyixD1jaR8slnP
BWtW0L4cVSF6ytZZwrTiwi5WcWKDghCdn58ZW2vOheC02YflWEKk6/XYcr0p
F9ru2qc2iAuRd+ObAls9LpzXuCdztJdEXY+EcRtmcsGzSJs5t4REyTPGT7lK
caFL0JOvUUiiTa7iATvEuLDFt7RcL49Eb8Q4mw7/5YD7oGluSAaJHtgvVrra
y4EmW7ee6QQS7Uo3ZaR2c8Dik/pYTCyJNP6YT2R+48CxBZ7pi6JJFJ/i9PXZ
Jw780qgMfniaREGDR1I7qjigZrcgI9yfRAvNTsT3VnBgzqyeBRm+JOpLPBsu
eknxU8V7n/eRaOuKK96STzmQ9rGbH7yTRGbRT+bpZnLg/oqdnZGbSPSv/aXy
wrscUB/e1GDsQKLHRtVM41QOHJSQVZmwI9Gcz62DNtc4cFdkdeqRFYmY8yYe
+UZy4N2eR02/VpCo4phkelAEBwhc0qVjQqLjDczEk6c4cK3M5L3vMhIJg1QD
44M5UGDYrbjUiETNr1eaFO3lwCoJ15+Rc0kUq2ypD94ceH1MJdpqDomsfO1U
qzw5IFY1kCXQIdEzBffpVldKv+3MxT81SHTb62T5lDUH/G4pWdooksj1yfnH
0pYciO3+cD+aTyKu7KU7rNUcyMv9vPwrj0QRj1PPaplwQFo7B/IIEmGZrCC9
/zhg5P8ww4hNor9b8vcsNuJAc5NfcoU8iXwkXtlY6HHAaZ9WvKIsiXSca03t
5nBghXvT2c8MEn3NbJzvMosDjHW1vjl0El2Z+qLmoc6BRdoL18TMJNGGjd3y
e5U5EJ50TPykDInodwdo/nzq/JXBqaekSfTq74gwhMOBfNlVGgkzSLT09ozG
Cwyq/3/ctB+SJDKuO1i1SpoD7V4hmwUUr5z88nxEnANB2sdvuklQ/umtfXx/
ioDVV9r354uTyGJz/v2t4wQ0vHhbrkKx9Vm1FPYoAdfEOpOviJHItuB8QoWQ
APqExuhsijd2DZ8/OkDAoS3jta9pJHJmu5+Y30vAt4K16iEUu6GagG/fCejz
2dCPKXbfv3RvYgcBaxJfLVCkeOf129utvhCw6fuzfgmKd1cxnSY/EhCX9kJN
jGKfsUDrvA8EFN9/9oZFsZ9OF/KqI2Bss1zfIooDHGyXKNYQ0H7v6OldFAed
fDLvbSUBxnMMkh5QHPpQW+NkGQEvicpZMtR5w9pieEueE5DhY2EQQHE44x+9
9wkBSgrqxSKKzy33pt0oICBGNO/Vaar/6F0NI/Z5BMizcp3mUHrFJpr2S+YQ
sL1pu18bxQnlGR3F9wjQXOosuEvpe0VINPukE9D/S23jSSlqntWP12jcovor
ydLypfy5tb4XGq8TIMjdFuNL+Zce4lh47jIBWv5SN09R/t67/yLLNJ6A+sut
jvco/7M/zrtNXiRg+ciZpx1UPnKlkpLSIwm4IanarMck0RMPn5PMUwTIZUWu
H5cj0fOYj0fgGAHKMo+fHGORqKzUzCfgKAGpUb4THCqv1YqKzl/8CIgIkdU7
SuX5nWX4ulgfApzjX85bS+X9/eHfq8x3E2Brnq07j5qH1oYK/eztBFh4ZNnM
UaXyOm2o5b6FgF4VrXNm6iTqnJ/M5zoT8NUjUeinSe2L84fEQ20JsPy7+IT0
bBKNr1JvsVlBwMZ3kTNVDUk05Rv5dnoZAaoZAwYfFpFI/OZIWf5iAsQ6fw0n
L6HyPV6To6xPQHDOpTv7qPlXfhR0ul+JANmHKefGLKl91tEVlKJAgMajRzfX
2ZBIW87ugANBwMF7bT0FtiTS36uzuWQmASZ1G70rnEhkqvXeIOoPG043jge0
UvvqFoex2GGYDcuYThWwm0QSUubLlUk2FDF8jUt8KH16ClZn9bDhp+CM8FcA
iVxyrrrUNLPByeI/S4sIan/cfL81/j0bUnLH99dHkkg9lrFjyzs2JCXdDfeN
IdGPQ8f291ewoTXthfDXFSqfyzxOMQrYAN4B/3qySdQy99rZD7lscPTivVN5
RCIT5Q/R17PZINDvOLGriNJjyvyyXjobHDoYkqiMylu5brZNPHW+rdOW4y1U
HmzJpqiDbLiXoVTwki5ELDz3s8N+NnS7zzHyYguR/0LPDuU9bAjlbO3TEAiR
MbexL8udDW+WDeV/0xGiN5+Kpmvs2KDaPphzwUyIvu88MZdpwAbSVu/NkzAh
Wrup2KBxLhuG7ERaY9R9mGUpNErWYYPYK9ZHuzghOjRvx0p9VTa4FdsbOaYK
EY20cFjHZMNxh+x1DyuESCVE7lh0HwsOnFST62GL0J70av6NHyxwMtRbYaUs
QoVvIx7ldLLAS+vOm0ptEdqgMd3zrpUFmpLSv7jLRCii4vdGdg0LDBx0t0u6
i9Bv+QbdpCwWFP00Wb+vgPp+WH6h/G4GC3yysnangghFelptK0pjQa5EvPHf
GhHSLngZ33KdBTy5tlXSXSLk4vpoSimaBUF1/b05xBAqS49vTPFhgc7Po3cP
BQ0h+Xd2vrm7WdBcPj/+7Zkh5DbGoL/cyYKFJfVt6+OH0JhVOOp0Y4HvyUsG
8GAI6f8OyNRez4IH3ftjAnuGUOLyTWH357PgaP2wUZL7MOr0JJSfzmVBnvHO
7hC/YWQY/a6gWocF5w97bL8YNoyqv1r096uygKO9o9Hk9jCaOv3fJgM5Fky3
ztnx5vswqk9e6OLdJg8vih6OzD88gmjpvkltjfJwZrIvqOz8CDLMyml0rJWH
Ww822l6+OYJin8zdsLpEHg4P37glVTWC7Js1rTWuygP7+LYGec1RVC9PmLY6
yoOaMOd6+ddRROPbB29YJw+v6PvEP46NIkO1i8VvVsvDIlrdtAl7DMXq05cU
LZIH/Sd1A9PmY8jeStwggSUPYYq3zifmjqH6UyJ121o5yK9SPmN29Q+iRRpu
qyiXA2lb1Tzl4j/IMO5AsmmJHLz+tGvG9o9/UGxKn0AvUw5ejXlk6vH/Ivtn
nWyZc3JwRnaki5P8F9WPvJcoWy0HRzR1KiVKxxFtkmW23EQOnoxV/wnuGkeG
knZhuYvkwFJnwd4w+j8US9RM3NSUA3v/nhWrXP8h+wXlIyHTshA33e8zQJtA
dbvze5aUyMInzmfvd/sn0fv2MfuV+bJwyizE2+P6JGreZPrUIksWfNbc1bpV
NYm+mFdEO1+XhTX0NvEFulOoT+PjwqMhsjDC8Av8NzCFBi4rXz/pLwvVXN23
jprTiJRzl4zcJwvmHl9mHHWaRmMTP5uvbZGF1WnrRUYwjSQ/jYc8M5GFnqGw
3n92NCxjj7pfGcmC6qdnb3n7aZjx+rTtWz1Z4Iz2VN6LpGGigKn5VVkWsuTM
Lda8pmH1OLXK6X9MsMq99SzbQgwbW5mxVj9jQowTTXuBhzheCRFHbR4z4eHO
ZWjHWXG86r+aTodsJqxHGbOtH4jjtTqOBTuTmcCOmRW6ekocO4l5u0aEMmFU
zGFWQIYEdgnKLL8YwITXocjv7QcJ7PZ7UP+yDxPm6t/PkRSTxJ5tgdMZbkzo
6nFJmL1NEvs9OZ9eZcqEk72fsv7OksIBhu9k3y9mgtsimThxFykcmEEEtuoz
QerC6oezLkjh44nXrfpVmJD8YFZ6w7gUjjqYM8icZEDncQ+jnu8z8MWfQmfe
CAO6stX2PNWSxpe2L32pOsAAWq/luVEPaXxl/Yt4gzYGsC2W1bZ+l8Z35zYs
sy9lQJ/dVc+3kzJ495y8l2EFDOj92+nTaTETz9OJs87LYcCb+AWhEDcTP9DY
4EbcZMCfyGKh0nw6LuI3nGg8zoDUjq+f7EMZOJiXJyMVyICgmp6q3CYGNuXE
xS3xZcBHutn9oIVMDHIb0pK2M8D2GL8mnWTiN1INlS6YAQPBL+tOxMrhSIk8
u/PLGFB4pPS0Lk0erxOLa3liyIAz58LX6PnL44YJ+z4lTQagsAjVwYUsnDBu
6G+jyACJ3ntJv/1YeNMf1kQImwGEZMCMoTwWbh2ql20TY8A3teXaO43ZOFmY
myQ7ToeS2kkdmVNsvO13rPpKER0KT5+WVa5l484++4UpnXRIqd6RIb+bwP3f
6h09yunQ8y5F3qacgx+057bFldCh/VGB6kEtLvZri/Uuy6fD95A5n+3PcPFw
i33QrHQ67NYxa9J25uHCZkMxx2Q6tE25PbtSycNBjazI8AQ63Lwceb/SWAFP
1NVf7w6nw/uoWkHsIj5+/jZXW+EYHSwvXHVqK+TjsJrYHIvDdOCfvFZgtUqA
pV7bv8jwosPiRE7qmr2K+M0rw7UtW+lgIMZQbZyphCPLWA0ym+jw70Co36k8
JSz3vL5zjwUdND4fXfhJWQXXl+Tuu7aSDnPEZFIn2lXwpSexw9VL6XA3yUHJ
5KEqdizyO/bPgOrnxHPT6Eg1LD/TS48/n/7//wf/BybcnvE=
        "]], LineBox[CompressedData["
1:eJw1mHk8VP/3x2cGM2PfVdYokiWhVAotdkrbp0W2KNlCRclSCiW0iBClzdpG
SUk477KksmVJ1oiyFN2ZMasZ872/P35/3cfzcR+P836fc173dd73re0btvso
iUAgbCISCP/3tHI/dyNJhYqoLN9+8ltNJNIdRW6WoyLV+wV0aUVN5H5JM2cH
lYqcgwY3dxppoJfrG1b2CCnoyZmVukp71ZHvXdntP2cpSG77QdXbTaqo2q1y
OOA3BZkO1evNyKoiBdKh8H9DFLRMxL3qu+8S9MG/KIPfQkEHvK6tzNVZjFSX
uOomNFBQlOxn11XXFqGTX2ivxWsoyNB7nWMnYRHSXm3Vr/KEgv41BoR4c5WR
6+6prFWPKEjf8Ex97CVlFBVxa499HgXF7vVMc1isjNqqZloiUymo7xVxvtVR
CXH7b1+5mkBBiTaGGyQnFNFygZ19YQwFHbx9XJWTrIiit+RDdzAF8Ux+nVDq
VUCFfs6xf/0oKGDEtOX3RQXUkcRaL+pBQUHLtmDPTBXQis87Xpq7UpBdntb7
C9nyqHu3sOCmEb6/3c1lOfFySBjx5PDj5RRk5kep/G+zHDLI3q/5QZ2CFlIu
aciS5FD8QFk2TYqCqFv32mxQkUXGR3xSds6Q0brR0KUjvtLowCUph4BfZMRU
fmJbJJBCiSVVIvFDZNSRfVdtfZ4U6v8rF1fWSka6HAnp7cOS6FLk+zCZ52Qk
WHvkdNgFCfQi+7iRXhEZHWv3QdUmEmjw7ZIpq3wy8nV49V5uRByZLZzwPX6N
jOB3RWO6vTj6cUnnv5ZQMlLuVeSKr6QiidI2+XF/fP2NiUuaflGQxZfotnkv
Mtq67kG2ZAEFpcl2ORi6kVFhuOViIZ7n+pwEyxQTMoodN/CzWkdGftUm7Acr
yMjQ47ATc0EMXRscqHirRUYpL/wfDH4UQ+NL1xhPyZLRie0kZWVPMZReOq7l
iIkhD597Q5szRdF0tZ0Y+YUYUh0AeW0TEfQk/c3nUyViaHPBzPqPJBEUErDy
xug9MTRb5C+xo5eEZpSl1WqviSFHrCJ+/CIJYeHdqyNCxJDimsP26WNE9MLB
njXqJ4ZsE/+Ly64lopOaVe/cDokh0cCWgl05RMT4kmdv6CyGFn7cEW93IyKW
np/HzxViqKdr4+ipJgJ6I+jW3qklhjRinJXyCwkoqtt+olZFDE1pKT92TyIg
7gWDk7fFxNAK8+n6WHsC4g/SLu8cE0UfHi9qlckXAikjvqIuXxSt6HR9aD0j
gPpAepRRliiiTDw/waoWQOLmI9a5V0XRXiW91jNXBCA26/ApMlYUGRbTfzXq
C4DqJPvDyF0UsXiatzXC+SAjvCuRpyyKXh1SnU7SnIf2HtkOqrQookUvm5Bk
8+DG0wu3TouKop7x2006HTyQdz+6dDdDBJlGm2tyEnigVGlkIf5VBCkRRF+z
aVxQC353+EyaCDL+WzFt/osDuc3N9tKJIoh6B56bNnFAVe+b4aMYESRn8+d0
djHOoxizLUgENR37oJAZzIHF+/VS9JxEUMDclqc6HDYobUt/2SMmgrKTnNKs
dNiQeT8/O1hAQq/WNJsIqGxQXHgSS2SS0LTFZr4UxgKFt032xuMk1Osau2ox
sEDOhN+f+IGEEq6HbqzxYYGU2jGRNedJ6KJL+YDjCyakRUVMfjpNQh7hFt5J
d5gg+e1Cq3coCdV7f1lHTGaCRPqd7FRPEkr+vS6wwpsJVEqn4dhGEhJdm+A0
Lc8EMcamvTc5RPQ2r9GEET8HiTudN+hjRDQ+ZlLREDYHos/3a9ZNEJGuwjmf
T144B56cnPpGRMovP5QGWs0B6Udx7JZKIpoduPd6js+Ahc8KhdgJIrIvvYlV
JDJgV45e5aIgIvI77jd79AwDCo5aNlr7EpHaO0rhpiAGOBN8f6XtJqLMXb7l
+3YyIGvtC92V5kSUu+tivZkmA4zvuxUdniMgF+wNcROiQ/xxv9fJfwlom+qY
m0wlHTotzzSVjRNQbjajW1hKh6ie/N+CbgKq+bh9j00mHRokZvVyKwmoJWy/
vH4QHTwi04o7TxOQOsR+81OjQ9nW+2+4oQTUQU5xoSrQgST36uPSYwSEqheq
PlLpUPJ4YCJ0PwE9MnmcnsWiwdwPA33J9QRUKuEuON5FA5VbN3ddpguhacTj
dXc6DWpMqk/0/BRCdZ71P5kUGvh+Hk1f1iWEPZdX9vpcpMEz4epOqBCC2ZP7
AudTNLANat/NiRBCcEtbu/k+GpyykdobyF6A92156uZL8ffbIMnv9wJQhyt2
uSzB13M4+cazZwGmIORwrAINqnZ8V91dsQARdlGe+mI04HsWjFqGLYC8Mln6
0R8MWg/vV1zrtQBKjNP74n5hkH9Uws5k+wJIC5X1w35gsPl4eMkywwXgWrQ2
53RhkBi7KUxqQgCPKijTwhoM/ov/d5/8TQBroisO3nyDgV7iw05CowCePwox
3vgSg+ZUqgXzoQCiuY9j2osxkM7r5g95CUC9cpepMAODrLchKWXf+HBvxpvm
E47BsVqtmtJGPkxJRTm4hGCw/n3nzKNXfGB/jjJzDsCgv3n9rpybfEhb43Us
yQcDze+iiy/s4MPopvgvs7sw+DfwxinGig9Ndd3bYnZggH4ExUQa8eGhBuGe
mgsGvhMdw4ESfAizuvg82xaDYtadwt1N88DdY6UTsx6DKJ5br2vlPNQebLlb
sBYD5wWSuEPBPFyv0w4aNcPgr1hgyMaL83C6SLMy0xiDWnH1/LUn5mF894yS
pCEG16Tb20185uEks+1ypj4Gq5XXmi+3noefM2qhI8swIC6ZPKJpPA/9Um5N
D7Ux6FTPy1qsPg+jJsvmz2hhELGcyJPi8WBHhOYndzUMqsxbEbOSBwWhwxUE
JTzeoquOCkU8aJ+0OBChgEEJz7VjVRYPcpPXanHkMMh53/Lj2GkekIjDbBMZ
DOQK044l+vPg1oHy+TEpDJKTXf/d38cDnsFZcokkBmfcWhb6LHiwy6N6sY84
BrNmaZdYenj89lGlvVQM/FVcZRQX8aDD05N4gILBMFcyy4TCg9oA175gMgb7
hr5ouLK58LNbI+e6GAZtKLUwYIILxl+vb6gXxcC+wMU4qZeL66HsLRnnusuS
lQ8+cuHX2T4ldxEMLIK/bKp7w4WWTVUOtSQMnu9Ibegv5sK9ADu31Tjrmbm4
srO54DHZrF9BxPWpLNmtmMwF4dz3r3Y4q3A/H1odxQV/zkHHSQJe/8GUMdcA
LjBPnUvJxZmMnIMDD3Chb7opywPnc48kGEmOXBDtIIaswpl56XP0w/Vc6Djj
Ii6Hc0hQCgn0ueAgLRNKxHl8u3PKwGLc91OJuSScPUwlFDhULmytMryqiHO3
0ufbSlwO2OiPOKzB2ZVzRdt0igOSNujzEZwbBpxKt/dx4Pn6dyqFOG8CcdOg
TxyIXSNjzMT51cNPVZfeckC4zVb2Pzwfo0tXNj8q5cDVOAtowLkg0KkZbnMg
SUHKxhavh/p28Z2DVzhgF2iZ3oVz5upPvZyzHGiyTKo6iddTSumKt3IQB5gV
C2+08Xonsh0nTN05UJdLyRjB+VRdMyvIkgPL6rqnr+L9m36QfO6yAQesxH6F
xeL99U1yJBeocsDSXGM0Gu//btdm5SEePoc6yHeKJTD4bJJ8lzvNhicV8VgP
rp+tio66KgNsOD5dYa8kjYFZ/8c1bu/Y8CnRRf69LAaPay/XBD9hg2COf9NE
HgOdBw62yXlsuHqKZPoc1698wMc972PYEB2nOzKgjOvT5fLAUDAbwts0iamL
MCCYOPjxDrFBNma5l/MSDDBm00nzTXj8qPx/XHUMAvou8dyM2JARfMViWhOD
kRr7iyHqbHg8Ejo8vRSDjoSm9EI+CwrK3p3V0MWgTL6pfFEtC+wU10g7rcLz
85J3HnnCgoCx4x301RiwHnuMleSyYODAvQ3l5ni/bBnKllEsCKZW2/hvwP3s
9NIYD3MWrF9KI723wyC4PlhJV4cFMvEv+8WdMJCRe/NsRo4Fse8mJv1dMdhb
un3k3Cw+R20v8zz34PsbiLZ7UMqElmt/Xbf6YpCg3zQcmMOECy+kTUz8cb1H
ykeZXWZC9kst7uogXI8yJY/rjzChh2pccuokBpzNPbK/tZhwgOTuwEnA61dk
0m+QNQfHd15btugJrid69ClG4hyg7qp93uUYHLBpkqo5NQdcaf7Wukr8+/nu
YbN91xzse7bqK0IYGEimFIRJzcGYqGfFYC/ez/Dx0FcXGaBHEPikS9DgV40J
Ne4EA94e5HTvk6dBsnjMAzsfBth5hJ9fu5gGbQ/lu79ZMSDIMNzMRo8G7j3W
G7gcOrxCdPcr2/B5ZXlbxDqMDpI9oQLdBBpkZqoN7vOiA+WRHCc0lQavZu++
CttOh7kv+RFdGTRgPXx49IEhHca1+of+FdAgSvLpR9FJGlgUdynENdPg3GBd
6hcfGtwXZhRpK9Mh32LLkXE3GmxyfRG6WYsOcKN+k8CaBvWO6aPnVtKBYNc8
s0qDBmnF8/OHrOmQ8Oyr280+3OcG9OvuBdIh+dy44sHdGCj16VNymvB5/t3/
74ktGFhPGNz43kmHT2ZTDSm4Ll6Fd1hb/6CDxMRMZA3uq2ZxjgXReJ6q92bL
bLL+gUTmmyX1RgzQ3aK0vvXyLASeFYQw7zDAn7l4auHoLOSWTEvUPGFASalG
7mrbWdhOv6hQVs0AA4UV/AzCLFizk+LU+xiwemwDcj87A3GrOlYuXzwHlkne
jpNBfyH38S+l4Htz8IkTV+jl8hduHRWrEC+fgwMhd0g9hn9BdiMhsBfNQeSe
vpr3f/8AdddkKGlsDsq195jmhf6BSWFxbfFKJqyos1fdcXIa+IWbOYCY8Nr0
6JmG3dPgwfnQkNfNBNvChG5L82mIpM64vZhkgm8aurZibgou5rV9SJNnQb67
pQjx9BTU5twaVPNngRIbPwmfnQSfl7osLzU2PApydTJwnwSRh/fNrMzZYDYc
VHTfchIUt8qU+rmwYWdjsc/V+QnozjK6cTWWDakZ2j3+cRMwG2RYFPGTDaTV
ynVLLvyGOxZPm+/VciD9kbnajcO/4b57fPL1fg4sXbQ7irz1N6jdnygYYOO+
tXDNjEH6Da+C/hGvm3MhqoVa3JL4CxpnmcXXyrjwL4B//XzyONhLNpdHvONB
93NTuR3+48DxuX6VNcqD6jn/G+q249Cy34hMEZ+HxPivN94Kx+DYWaHEjwPz
oJpTlM44PQZHkvNj64TzIBwakP+wdwy6irBuiiEfxpfJ37xhNgajHVO+nH18
KCuLuWk8+xO2dmxTGyrng+3HnRnHjv4Ey1GnDPXjAlgpfUnRYttPqHk4mErO
F4DMnncZoto/geBVFvG6XQB9w7qZDwZHYTVX+/nZtQsQyuJlDuwZhbyF4vNy
kkLI0S3Mcts6At5mumGpJwgoLrhfRXPpCDwb60z0TiegRl+tVX3zP+BQ/STr
wwsCco+eW6V46gdEHcDO2OPn5KTS/NWXDw9D17qnrU/jiWjnWnHT5RrDsK6E
NHKskIhU358yff99CJzaA4c7PxNR+XdHs3m3IVBnv/74ZREJ9VMY5mHWgyAf
vvN6XzUJFWR4rpHiDcDQ/INVj36RUJhW85rSygHQOrCJ7CgvgkTX3V07ZjQA
MklvdK2CRdAqf4d1+9X6YZ1UnW+OgShKaMiztOH0QrHXkIzZsBiabNuQcbSq
F2qj0T8XFTLa0df7JzWqF0Yr95Lu4f/RqrOKd79zvgHDNCR6SRMZlS9KE57g
9oCTQnZ7Vj0FqegYHMh52wMaOgslz8lUFGPUXF53tgdi7MupXi5UZL9F1FeS
1w1Jo/rhtX1UNBQU21DA6wKNQ9/kraUk0NZIVY0v1V1ANX1t1uopgUrOV0XS
orsgUfGbc+wLCRSROadnPd8JAYUxKje8JZFEXciV3vmv8Lnds1i/TwqFN0v8
FLz7Cudrl8W5WEujns4Sy+WxX6GCTF53qEga3Z8Y/xPO74DRM6MbG8/LoFCd
6jtKvHY4op0rMmUshzasY20/HN0OwT8VkEmoHBJ1NRM+47WBT/13jWvlcigv
8vFhh/lWoI5vK+JvlEf+Kb8VMmNa4ds53S/2SfLI7J5Ow8h8C/x9Gt+j/lUe
NTfn6kXzv4DVg3dETrgCyhj61tsU+wWORO81cGpUQF50hSuKgs/wM/pabZ26
ImKqpf55KvgEF1Y1enf0KCKdsJjyHwsf4cVw1GDkaWU0k/DmsNH5j+DYrGKL
ppRRVQ5D4aywCdq8LTMVfFWQ24fgSAVCE9TbM3cZ+y1Cqr3Fet7xjVDqom/7
9u8i9PvPWO8TQiM8u+ep8i12MYpV9rC0IzZA102+w9uXS5CDQc6f9Av1IN57
yC7voCpSsOm+M0ysBwvbD3WO4mqoNMBVeIb0AVp1pCLoSeooIi65vOHie0hc
q6OTu1cDbb7ZcFhe5D0INb6GB5loogLD1plHbxH8/33d/wD80a20
        "]], LineBox[CompressedData["
1:eJw1mHk8VP/3x2fGLMiWvWxlT4okVB+dN0qKsmQtsiRKlqIsKYoiQkIla1TK
XkjahGwJyd4mSbaoOzPGzFh/9/vH76/7eD4e977v+5zzOq/zvne9R4DNcRKB
QEBEAuF/V9eypwl8FXUgq+n9/muDPJp/XjkoO1wHdfEyzSl+8mhy5ljejHc9
yNaFH0q4LIcGlcR9av/VQ+gHGZnY+7Ko2alR50ZIA0DI7XUHu2VQfpNyo3bs
O1DwExoQt1mLkhd6E4jCjWDgErFuT94aFLHlql337UZImNh5M5MrjY5k/x4L
KmiCHQbGBvzvpND+nlvluzc3g1V/726mjhQy4DMNlahuBv1eXYt7hZJI/FwB
3/OmFphyuR8RXCiBSMX23bEHWiGFf6/Ypy0SCBumZjr2tYKDiYqF1Vtx1GHh
rTk/+h7cKZbLoRNi6HWUFKvNtw2IeleHk6PFUFFNy5vM2Tbgee1Cf6wohmKU
1S0Nye3QHlo1jZ0SRWcPD0oJJbRDwPOhA88lRJFH8rXhIbEOOKdIJhY1rEaw
OHHmklInvPv8qfOEymq0OGnb5r6+Cx7/klbazi+CmOTSzfuPd0EL58ZevxRh
NKVASdUp7AIvoBumiwujQbtnR3i2fAKL9pLc58pC6Fm9xMwD1A2Kq/0+WgUI
oJJvftaJV7qhq5VwfZxPAD1gNz0719oNeiLtx70erUIpm4IjTK16gJCSOJY3
xY/87/YLT7j2giDj/lnhG3zoeNXms133e8G+2FrvsyEfcv4YM1gz3gvHmMTg
1395kTlFPy8uoA+erct4EmnPi9TP3NHZGNkPCZzEmJWdNKSQ8O+22Lt+OPhN
EUvlUpHko70LC9QBqN4nse1FDRWRv7PftScNQElr0vZLO6nop5mjnX/OIKzq
XtpcYE1Bu35fcO/4PgjAm6PGL09BGZfz/DTlPsOFVyXzYX/IyObl1NWpzM+w
VyNn09E4MmrYeLHa6+4XEEje8DOgiwfJt+Y1NA1+Ad1VKee9H/Cg857NncrS
XyHWOJCmG8aDdLKFx0duf4V9ialy21R4UL5QvpRr2jfIGuQYG8eQ0HJRs1Jt
zzeIzGz8u9+NhA7v/aMlJ/YdbMkuL1Z2kJDoJV2zrze/w5K2/WlnBhFF05tD
HW4MwQVB8ZwzJ4hIZ4o1rbZnGOzaDbv/+BOQmwFv0IDnMGg2a47PWhNQUsxa
bsyVYbhLNNQM2kZAU4pAGXs3DH+rP0zFLaxA/pFrcg+Mf8KLkJMjDNUVEOtY
e3AdGgHPN1uWw/KXwFhmU+9H1xE4kPrKQfjcEpw+CYcjI0dAx4aSZW62BO0U
T6+h2hHo3rC7oxhbhCu7SiOyDH/BYwppstJsEWbLoVx65yicty5rPiW2AO0b
d4qedhmFiP54Gf7pebj/SO9cS+QoLMN20vamebDJ3bQzuHEUDt6IuWgYNg9P
k2Raeg78BhPXt8N3xrng78ceSnIbA9tkWZGLXzlgOskwGosag+NrZIiLrzgg
d/zvA8OHY3Ds1PXssSwOtDv/9pmeHINHzhMhbFcOaFj0zO0LGofEgZqA/ik2
jGuUC1FiJsD1J4e0TpQNtQVFZ5wfT4C/UWLATc4c3FYs6K1smwCp6sMhdj/m
wHRtdoaH8CS8bAz5r6t0Dh7wXVetS58Ea+U6F/+Dc+A24bUrvHgKHmibCVhl
s8DA0yOvu2MKgj0f+rteY4HwsAtZA5uCkJBDn8uDWFA7YNs2qPsH1IYwJRFz
Fsi1GNvr1f4BvvsbpaoXZ+HLQ3l/etc0ZOU6v//pMwvV1BKbx4xpuLVyoGnG
aRZSvbfru4rPwJkZKRPNfbNgscGW0OEwA76GL4x2qc9CbUlcyuOhGSj+NnX0
4QQT8ipnq12n/4JQ8LU3xEAmRIhHZUoK/QPT63GO2DEmHD4nfKlD6x9UTDEK
eO2ZIKqvsW9n0D+4lW4dWbWDCVdeun6VnP8H64fGLkxTmFDl9ntlLBqD4Cta
4pH3GbgvaAY2pGFQ8jYL673DgOT6wNHshxh833ti/EACA/wUCe9tWzB4Pbj+
1aNzDFAdXZvSwE8HcT3+QPo+BqR7Wynn3KRD0GWhm7c4dKBK37kdlk+HYmJc
J+svHc62fue1q6TD++OG6md/08F6w6mZVX106Li8Rb6tmw78f65Wh0kzwPZF
cl9PGR3C/V+Z2eUyQGLUTlDdlw7GwPIUKmfAGu/m192e+P0iWpdbahlQ0cg8
lOZCh/Sn+S+2DzEgZVoy+YglHapn4zTk5ZggvZ/wjrWVDozzjgLjGUzYtmHr
Pn0iHV6ap6jfK2KCevdbzHABg8uy7budXjJBxo5H2YmFgUgtXPzwmQkhyK64
fRKDzUS1v+XSsyC791Pbgx4MfGJZH0Nvz8KKQa7vShEGOo5a01sKZuF37tts
VIABV/0k759ns9DZ/CIhLQ+Da23fkEvfLJgZZhidTcegQLDxqZE4C8wnI/1E
YjHwH1rqmFdiwQ+RUmw0CoNt5fpTlVtZ0FozEPIhAoNGq2JF1UMs4CpbGnYG
Y/AzNSWVP4UFDVp1Jx97Y/DYs738XR6uw6KRTn5PDE5vo7ZfeMqCqief0iPc
MFjuDyP/68J1nM8UzXDCQHat+7ke4TmwyYx6nWOBwehUxs0EhTn4pZDkHr8P
g+JXvaV7tOagaPDraIwpBjtczMae431C5Z/aV4EwcLyn5ZCVOAe/M80XurZh
MEsbci/MmYMfSlZ+q7ZikByQ4FtdPgfxZ223OGlj8H7X5OWuT3NgW/b+9OaN
GHgV3En4PjIHB1qkO5+pY0ASMr0zxZyDd/aKRlaq+Pu+55eQJdnQ/UxpS+16
DPp3Wz9frcaGct+M1JsKGASWrNTLG7BhYaalP0QO32+484DBYTZct1b9eGEN
Bma/+Ef2nGIDU8XVL1MKj2//i2mbC2ywOeZS2y7xv/glSX45bLgRFmHpLYpB
zeVGgfPlbGjC5C50iWBgOxkoFVvHhvT587oWwhgk1nzUzBthw/mNYqrhAhho
rIvQL2OywdNns+XmVRg0x2oavyJzICGu+ReTD8+3fZxDnyoHTj5u2lpNwyCj
Vt9jRB9nSY+RCioGeqpjvv/MOFCY9HuknoJBd2JayKITB2RuMLR+kXE9sIyj
+E5xQCohrVESZ34XeoLkBQ64F0OWMw+un8bcO0qJHJi+0lVRRcLAWPNgvnYO
Bw5NXicr4PwjdbHEsJwD/GXySZlEDC4sFD3fX8eBDZHZFho4Sx9zanD4xAFW
9RXDDwQMqtpoHZ4jOO+oORqBs5VO9cAZJgeeHY0uM8F5+q7nSASZC/Lt6Rtl
cL5GFJu5LsEF3zOifWSclU/Ws9NVuVBz9kwRAee6rgBSgT4XZDflFAvh7Gwg
L1hpxgXv9RODm3Hm5LZL1Tlx4YwAdas7zmm0cMUOHy5wxyRePcR5S8CGTV/C
uaDGzgpcxLmzf0B/PIEL6b9jjxzH9++zK8Z4NpsLkoMaocM4Uwt0DxDLuTB0
0+iDHx5/vuAvB6E6Lty4+89BEM/XrnM3PWQ+caHWs279W5y/fAM/9REuaMU9
0ozG8xu8+2/INiYXGpiEi054PcRKsqKMyfPAp3JTyhiv1xMx80RLiXkoCLpK
NMTraRHOveOsOg/OtmfRfl4Mruy3Lw02m4dxoeK+TH4M1lWQa6Kd5mHEWHv7
MK6P12sqG5J95kE/eKOAviAGrAnhwaKEedA8nqogi+stxap25Hn2PJgnpZ0u
Wo37TY3vTGPZPDid32ZjLob3S+x70o+ueYjJV5tplMTzKXzq+fvheQjKkKu8
KI2B9R0B3ypsHjxzy1pN12Lw3yPLvjiRBXh4spfKL4+BaEvfI12rBdAP0vxh
h/cXr2WIs4LbArC7y7RS8P5b6pdezX96ATo9fq37oYHBxNiR8z9uLIAw3zHx
Yi0M3lBHLOI/LkCLgkmWwA4MKpKiied+LMDZ2jCLj//h/iOpUu36bwF2ysSQ
7wMej+oJhW3CixBXdqn54h4MTpj+pf84uAiPh+yAZIOBeMz87W2di2ByWrvM
zh/Xt1CW+bqhRdiQsiZcOxCDlVuGhFV/F2Giq/i4HO53Uw8vnRwWXMLn+N7x
Tbgf1jVR/7t+YAl0F4sWN97AoPrAY+ycyxK8/WUmnpGK+0Hfvodufksgd6Zl
YS3ut7d/JwjpJS7Bk9WcTDvcj30pYj+H25dgYMxg7EkVBh6JVbc+fFuCX8db
dtW8wMBBwn5/9fQS9Hbm6vXU4v2lcrfyusAyTLYrndv9Hu+fPQoxehbLkGja
6yb1A4N3VzZuTPiwDJpNXIsMITrsWLl1T/XrMsh/bRt/L06HijCCZP3UMkg3
eJkLydAh37+PMMe3AuC9wulTo0OUY2S/q9kKbG7cP+JpjM87zZ7LW5tW4MWd
xeT8cHxeFRiyO3pXIPlzmat2NB22rH/se2J0Beobg/z74ukgcr22uJNIQEKm
QPTKoAPhUuptnvUEZKatIl3wkg7DJw19/VwJaG3RdFDHCh1kHzEKdngTUGr3
XqExXgY4jj76SQsgINODilJrRBnQdVTUIT+CgKYnU10+KjOg7tC40UA2ARXc
XrSJNmdAruFNKaNvBHQwM/gTymHAl/OmNkKjBFT3q7NCrpABkjULCV//ENAj
o3uya6oYkKTjRQpeIKDTfsPVvm0MiFDbOVO0lojCUodib3AYcHT17wZxJ/yc
LClAEDjCBHJG7+x1dyKibwiKFj3JhCLFRlUeHyLK2622xySECeyt9+Pp54lo
54x4mEoaE5Lt3W06s4ho2UD5+/xHJrzL/P4zdpiIHrk9yzpmNQs+yh1iKxNE
NBTrPn7AfRZESl/vCaYT0ZaMCr9TgbPgXJtZ6EkioZtKGV3Gt2ZhbtjpjJEy
CV0IjFsX/H0W1FX7CQveJJR2NkkjLZQFnWVNOoGnSWhS8mAGbyILzuk/85wM
JSFty9bQ1/gcbjBLax2IIyGTcjWFsQ8sOHLKJrmqmIS8qur8jijNQdKTTgX/
fySkoROsV4GfT3W311r/ZpNQsZ/r0zT8/PqlvjTamcCDTm3+c7FlNRvUehLG
96/mQXN20rJKe9hQx9pfrraVB3EtmkMH8LnF3NGy62cwDzrpRXIPuc2B5kNP
9rRE8KAnkR097AoOpPvetSiN4UHxXubM7o8c2JVz6nDYbR5kZhW8LpefC/FE
keDV1TzI9XVK4MsrXFBsdSw1YvGgMGs+lWDcp1jDRlVqSzzIjVs/erx8Hlq5
Gq8EKWSUc9LGqb17Hvw3LrV+Ficj7IgyRpFZgJdJeaNndMkoqMf/nc/TBbC2
m5LJDyKjslVd0cqcRVD271G8Fk5G7F82kKu0BHMxrzf4R5NRhIUb8aXlEmTV
JOnvSCUjfebW4G+FSzAhs/VQdwUZqbyV0dP1WoZXurKHa16SkeQP40LBO8uQ
dIDintNARoH2yeb3W5dBN3LA36ebjEx0eVTENq/ApZHweBKDjG6tdSPswvvk
0ILnzQkuGXVVLUb1yxKQqvjB9E4iBf1R+/J2yICA2vesK8hYTUFV6nuvmgUS
kHRhY73OFgo6fIF+vn2KgMoDBLkepynos0Rp5E4WEU33aLMZoRR0TW+n/Q5Z
vK4GtqyoyxRk/vOIBNeEhB4QMun5KRS0tzXs64dbJJRxU31qpIqCtoob6500
4UEDLPOJwDcUJHq2o5b3DA8SPxwwRmqmIEVvfum7uTzohmL1iOIABWkxIqML
V3jQlUqTrx5cCjoRUpLk3Y5/30p5f2YQqWjln8NaHxIFrYTHD0TxU1GQR1j6
ve0UdH73p558GSqa9byq211MQQF9R9tHDKkoRC68P/IeFZVsj2oLNKUiV/s1
ag4/qWgq+2EryZKK/tgGyNQr0ZCn13SjohsVsfcNhsSW0tBhdtgbjygqehqi
EZ/Xz4vuHMl+xYinIrnlExYdKnyo923di6hUKpIudSmSCOFDltdo1fkPqKhS
GrM4tI4fJUxrVOmUUlEj7zHRkFB+1GZ1sKLhGRXRDNfnivfwo91rbpWNNFPR
577GWfXkVSjqYk1J4EcqSrgSm/qZsQq9/fm1iDRIRRoaZ3+EOAqgHUWKjxQn
qUiw93EveZMg0tr5JNdjFQ29LNvPSlgRQr65PdkMMRr60PVmT/tFYVTEw86M
kqWhpW/TY4oEEaTcbpiev4mGMkauDHjEiSAPbffbOno0xH5/zjP/kwjKTbuS
1rALX297s0qo7Gq01uVD8oglDWWe+aIX+nI1cqj/mxToSEP72zwOMQRFUZqK
aCLJnYbun9r8Lt9TFAn/dYxTDKShtFsfd/jIiiFy5NhljzQaSnEdaht8JY78
g3js3LNo6J+8dqGPmgQa9F6n7vaAhgoNnDqv3pFAJVaHO12q8Oe/Ot6/FiOJ
JPeE5Dm/pqHkao/qNVQpdGl72tkjjTQ0su/y8WvXpZCtYudap158/S3xx8oK
pVGt5J8Zh2/4fk2T1jiarEHqq3jr7UdpqN6b9rt5dA1aZBp5287SUJXsE2df
IxnkNXF0x6FFGjJpGD3BvyyDur6FC9qQeVFP9ntZoyZZdL/pWaWlOC+qlDqW
ahgij44GWPz5JsmL/v9/3/8BpwuQHQ==
        "]], LineBox[CompressedData["
1:eJw9mHk8Vd33xxHSHbj33NFQkij0NEhI0mqSIWQokkSRiBSl8FDIUBrJlJKk
0JOpohTt7SlDhUzRIGngEeHca8xQ3/P75/fXeb1f5/XaZ631+ey1zt5qe/3t
PKUkJCTWSUpI/N9TvWLryNm/aCA3tveDbNk83KUNNp+W02CBL7vsjMM8HJ9a
KfXQkAaCzqfVQaFzsb7sxtKzQIPStl/brApU8Pkvm+cabqNBjVZqvaSeMja0
qWmUd6LBDpu5euujlfD3crPT3Xto8OuaIm/RZ0VslGrZn+BPg9VBd7qO3RXi
bpn6DO/jNJhZ++3QKyUhvhRobQcnaeC1aVts2mUB7rG2LRu4QAN196gvU5f4
+HJ5s++LZBpcyd7y5Y2Qj421HeanZ9CgMmsHM+M2DyfIOMaaFdBA1bw6crKO
i9cGvjNSLaXB8EOHDRJeXNzbtXNwtIIGS7lvpwekuXhducv2W/U0UB56GXTb
koP7tDrlQt7S4Et0gwZ9hMDJKXvKt32igV196dTFGwT+GbBX/fdPGkRkerja
/2HjVK0DIicGHfxHzDzef2LhjSk/spdx6aAhWTHHKJ2FB6UPOsmq0MEM+QYV
ObPw5i4/9ECHDq+CFT9PP1PA4uTA8/KWdDhUOP9s4jQTX5cehW47OmS8N/s1
lMjEZgFBI0+d6fDfLc8Iw6VMnGEVvMvbhw4/bDIieQcZ2FL6pNaLM3SQaX59
kzaLjt0qjFo3JdDBccG31PIcGg4KGguvukoHgX2v4oA1DWf1+rVW/0OHav/w
OM/sOXiizuXky3o62Ne8iTH2lsPyMUJtizY67Jed/s9NVQ6rr2ttfdVJh7GH
Pek722dj62JL7bohOrjvVgyL3jobZycZvW1gM+B5rW69qoUsfmI9dtJGiQGX
13ubrmbK4jez72s3LmDA6aJl3g+bZPBksNapppUMaHdjt9x0lcHbXIU6rdsZ
IJXMEenGSuNpzbFT79MYsKSp/7g1fRYmuop1nLMYMHy4rVqqSwovSvNr+3CX
Ad0K3YsvlkhhO3q3TsdTBjRdfGYj3CeFc4da2jo/MQDHBCyxrZHEz3IvRuzp
YUBLYre3VpYkbnG3XNI1yACNjFjLwjBJ/Lvl34gvfxiQOddF676+JN7+uHjJ
dzUmtA6hT6pFEtjniF+7hzYTniW+zhy6KIFPaWtFdusyIYjnz7I6LIHvXcts
79nIhGjbij23dCWwVMTFyB+eTNDX0NF5GfIHFZj7vRvMY0Lij8BdYU0ziExY
4NRZzASXuFLmtlszSLejvb2+jAlxPM2y+mMzqPTQhvZ7L5lg2ap3tFxlBqFE
QZvPDya8Kp4oYQZMo8ZPlS09i+WBd6+ub9hgChGLjtu3LZeHYY7tRTpnCjkc
XtJSZSgPcoyw+TcHJ9F7qZTmbDN5MDUO467NmURfF/k27T0gD/OrbsRPz51E
w0f4bzpz5GHHgtQj31V/If2nr60bCuVhm5qiT6/kL3RCOqKh4pE8VHsuktj6
fQJNJ/fXX6uRh3qnD5907k4g6XJc5/yfPJxVM12iYTSB+LIHX7VpKsBpM+MV
Dd7jyMlmvkX1UgWwM/SQWWg7jq6mvn1Zoq8A/QpPdr0wHEfzdODlFVMFuMhd
tLJLbhwt2sartduvAI0e8zZ53RtDhldRVcNtBZjYZJ/1/s8o+r600PhAgQLU
toX1//NjFF1+nvFA8pECXPnxtfN5yyjq+xl2U69WAbJUvyKcO4qurTMOu9qn
ACWjdP+W7aPoVICL0gMBC2YVGhy58nQEtRm3vv2jzAJl9vtZ9nkjaMnsrZe3
zmeB/M6dO8xTRtD79DVyPYtZoGaaafchcATpVimNCY1YYNHI4oYsG0HdgvdN
4S4s8H7h2j2vaBgZf912/rUbC5bd7lgy5+YwSrhXayb0ZEHVnpUMtYRhZLL+
MSr2Y8FIarhf+9FhlOqTkv89nAXWr79s2GY8jCwqtp+xuMmC+gpDgWyLGGXG
1m9Kuc2Cx0nnfS5Ui9GY7WaJ73ksoDez64yfiNGtHr3jYfdZYBS5VJWWJUbT
ClzPoucscF3js9wlUIwK9jYDv4cFLwsj28+piNFt779/WvexYKeiBjeYEKNr
hzVTYwdZsOGf6vjTcmJ0NjxkaGKMBVuvdchOjIiQ59UFGR9ns+FCopyf+RsR
UmkOmMrUYkOH04PGXWdEiPNeJef9X2z4dqW5RTlChGhd1XaELhs4Wxmzxk+I
0MSA0t0oIzYklk/I/j4gQi1znjvtt2QDkxleaWYhQmfXc0p1/NggNHjdls0W
oQizCnePI2yQx6Guf2gidMLGi3n9GBuy6hpnjkiL0P7dTz3kw9nQ6PXzQ8Y4
idYH7+OILrDhq03PNeIziQxPMZFWIrX+bQcfrfckWhr7yGdvChtmdzmyHVtI
pJJE/7flBhvuae53Hqsh0UTRg8OlRWwIFz+VXH+fREOPdqsMPWSDb6ASpuWT
qOfZ7NpFZWyI10vb3JdDota6XapplWxYG1O2uO86iQp7ZzWENrNhIthVuu8s
ifbPd9BZP8KGmoN3rjUdIFHgUMj6FRNssN1m0rTEk0Snnt10VJtmQ7Eg5FSa
O4nSXYaiJKUJuC/skMlxJlFj6tmOSg4Btjk3/r1kRaJPXsXiYgEBe/0GPx+z
IFGf/ju5LGUCThQWDR3cQiLptxqrItUJKFoTknd2PYlWsyvPb1hJwMjqiMFL
+iQy7frvlq4BAf8qmchMrySRQ6H8kwVrKJ4TeP34ChIdsnLpkdpIQLbFrvmZ
S0gUqhI1LTYl4PY9kXirNoni+vOIbxYEBHKr+LTFJMo6M27y3I6AZyMJGiXq
VP5O87Y/2EFAb7NgKkuNROWLNh+85UzAmr8HxjJVSdRelZAStZcA805do3pl
EjGklpIbAwjYaJQ70M0lkWKTg6xeEAFj2kMiew6JNDNDVRaGENA0qNzWxKb0
NXlpJh1JwDmn3vkz8iSyZpKuI9EERNsXBN9lksilg3/s+xkqHo07yV4MEgWF
eNx8cZkAwwdt0mwaiaLM4x89TCJA71GOxYwciS4J79dnpxFQk/5h7a/ZJLr+
37tvV65T65F/v5em+G7pn1+nbxLgseqHcL4siR5Fa7KO3SbA/1b1uIUMiV44
WGl65hGg9EsuIFqaRM3qR4235xOw0IKMejOLRJ/FV+02FxPAaZHT1qL4Z2Xl
gVUlBKxv1HZPkCLR5KXecI0yArydQjTpFM92U0jiVRBQa+R1PFGSRNxl+v/I
VBKAu+7Z6lCs9tulcvQFAZO6dg+aJSg/10e1d9cSIBeZd/UMxWuu3R14W0fA
hYBtstsoNjvYNKu6kYDOn8tGNSjebjShWNpKxcP6ez+d4r1zVJffeUfAncUP
d0pQfPjdZtPkDgLC7mY1SFMcluPrEtNF5bt0d5WQ4rNBiQFB3wkwC9xkYkxx
6uYncft7CVi7V9rIn+Lb3C8ZO35S3+NfKSum+P632SWmJAFRfauezaLiP/ru
dXX8CAGj0uaGhyg2qL/4rnGCgHvt5aN9FE9W2vfxZgjYXeX0K5iqR3mpYNpZ
kgPjOVtNlan6hf/zkZkpwwGJmeVdDRRD5g3V7jkceCyY/foKVX+ppH0rtOU5
0Oe0mu5H6VN1ZtFGf4ID8b7ptx0p/eLC+x0e8jmgct7nhgOlr0Vg4f5fShz4
XGf1ex/lhwYXg7NR6hz4OkdC+gnll0u2U+m1iziwZMuKxxKUn+xNUT5zCQfs
P6/5uZPy27tlW5pS9Djgl28yvJFFoqsL6d86DDnQYjDW1kr5dbfimxG1tRyo
KJZ1OUH5+auUo/DeZg6seeF+eJxPouxxJW2ROQd+RLVzWoRUv/jZuUbfmgOv
M2ZOVSqRqP/t/j14BwfelgR3t80jUcEr7SMyu6h8o0+MzMyn9EKDkRZ7OGCZ
FzJtQO2/kdygO61eHLDYgXS6F5Hod2jMQO8JDuSlqFzQ0CURPmzx568wDjSv
H+zt1qP2g6c8OzCCA1tW0ovLDEgkZ5OsN3OGA1olqnXpa0nEXnAnlJ3OAZs3
u+dupfpNK9/n/I4bVD2JwYY8qh8l05feSL/FAU3C/pSyLYmURkv+1bjHAeun
FqvWOJFoYW3VHKMKDuzLOrflkBfVP8vPKJ+s5EB23Gf7QwdJlFds9deLKmp9
gwEiyp/yc/rbbdYNFE81M/qPU/441J2y9zMHyn1W1z46Q+nFldGMl+TCUran
7O5iEqk3bc6KleHCKrOgiztLSTR9Pmbe6TlcwEeFj7yfkih/tpwgjM2Fv5pM
7aqqSMSaosn5q3HhmJ5vj+9HEr39wuqzW8+Ffe9ulKRS86Ugw3a/zWYuHMw9
7/mJJUIxuxK+WppzISFR64GBQIQM33I+brLlwkk3+6d/LRShq7X8On13Lvx8
KVWgvk6E3ApVCpQiuMCQLH7iHCxCq313awuiuWCRu3CETs1DQivjDucMF8ov
cQ+8jROh51mqNxiXucB98goVp4qQZvKCS78zuUDfWX89qUyE+v9eHPAVc+G5
ubmVoYQYvVjtPdj5gguVDcmHo+dQ83osz+djLRdu/pqnO0jNb+vDOvtaG7mw
QHfuGY6mGBXtW+pQ3cWFZ5EbLz+0EqMgCz39uxI8oNm6i+Kp/4OhjTlZCdI8
WPwdTQXni9GBtUoKoXI8SNepro15LEa7lkv0WrJ48GZB8seZBjECfl3agCoP
wlbHnPKZESP6130zy9fx4OmYQD7WbRid/tjmrbiRB9/Ek6WxfsPod6t5m+QW
HizzV4i6FzKMyJplhc3WPBDs9mR7JA2jtvwpt6OuPNj+eYtJct0wygxOfPEo
jAcfF/bH7d8wghQDZVdkRvAgKrU04aPtCErwDb4eF82DKwkpNaHuIyh6z56g
ned50CG2LV8XMYJ8NussnrrGA9jnlPb93xGkx34eb1LOg4Yk9az5NqMon6Y/
oYl58Ciceeus+yjSlM7zUHjBg4zL1+dpHR1FiuMX1na95lHnT1UT2auj6HeH
81DERx64Zmp+d+gdRS9zxXZVkzxImBQ9Hbg4hiZqpJ5K/eFB0DfdGx9yxpDm
f4Q6zOJDWwdXjYvHUKTGyuEndD4U3fmn4ohoDBlnBSYWqfAhpNf5zy/HcVSU
PtKSbsKHAz9YMr6rJlDnE2nj9xv48MEheRjZTSDmB242fwsffjqd6Aw6PIF8
hKuOXrbhgzAlN4CbP4EWJh3jxrrxYUdrpwfo/EKpF8YcAiL5oPT4JIO1dhJV
58tWFMbwgRlj0B3kPolG6/gaA2f5sGyVxwb3mElkRzcY9Urkw5hFf9KrpknE
iDuetDub4uA/j1b7TyGjnNiZq7l8sNGycpVNnULe1Sme7+5R+ey9ccS3cgpV
Sz9eZV/ChzmPu0zZ/Gl0KmLirVk1H44V3vVSrJlGBZlyJjGv+HCx58Ftxug0
+oSEd5438CF6/J/wh+ozyOi3YZBJOxVPvOPJFVEzaCQkmK/Xy4drQ69y7C1/
owNHJ3eo0gTg1c0omyclgfN3xWpx5QVwefvN6Jq5Eli8gTstRwggq9Qnrmu1
BA5lL70pVhTAWRd9V79ACXyhwL2/SksAvkd0ZEx+SuCWpMGKJ38JYPXiUPSA
LomFYaGXClcIoCj+hmGRjiTOskxalbZaAAfbZ/wt/CRxSW/tSV9zAQicB6w8
xyXx5Jvtdu5WAmi2fVhwRFkKmzz6unCHrQBcWxkf1UAK10ZPv1y3UwCD/vnn
wuOlcMeC5VyOtwCupT1MydWehaV2p+SWxQlg/FCbvtVFabxl08LQgnMC6KM/
Lh1A0vicTrHVrUsCeBT3TT5eJI15k6/E51IF0HqJfPLBUQYvTvlt7JZL5ZM5
JVOyQhb7hccrbL8ngK2GwoNqB2XxfU/hV/MiAahdHdnTeFsWr9HTjV35WABj
Re5r56tS5/UmzybZWgGYD2c/ebVADic+Ft+aei2Aj4OLquK95PC7GyeDyDcC
0KuucRTly2H3Q2nKH9oFYJl1/2TPujn4KL3eM/8/AeCPTbssQmi4TLzTMKuf
inex04fpehr+/b6HljJEvR96Mv1FnY7jciWKTo0LYMD1Tfr1NjpO36w3aT9b
CEvMzLwSnJn4br5jyjO6EFgmz1NbG5j4MS9UT4slhB5719xvpvK4rbvy0G+h
EM5lsz9rb1TA36266d5zhZBSnxdZV6OAh0vk8lrUhJB+JWBL7GIWZsXYfMvV
FsK7ykN1hmUsrDoYcIqzTAitBifDLsiw8dIdyXPDVwqBycjUQw5sbKn5ydHe
WAjL0zpcnKfZOKbap27GSgiS17LF745xcNLSC94H7IRwsNAtwLGTg7OTi2Vb
dgjhkEPVYW9LLq7cPwG5e4RQdWGTa6weDzc2KHcSHkLwFF25urmYhzv114WG
HRDC4vbGhzMr+XhaNqbE7ogQiiPa/TStBJjun2dXcUwI0w/VB9K+C7BSe93Q
ohAhuO2du5B1WogNcjjaM5FCaF54Boo+KWJTBYMar1gh7KwrKHdLU8IOx509
muOFULvFrUPTTRkHbLmZkXNFCOdFjkIVzlwcUfhiDZEmhJLkHGaJ5Dz8q3/W
Mbgm/P/7vf8B/PeD2Q==
        "]]},
      Annotation[#, 
       "Charting`Private`Tag$20945#1"]& ], {}}, {{}, {}}, {{}, {}}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->
   NCache[{{(-2) Pi, 2 Pi}, {-7.680690204897026, 
     7.69029154483999}}, {{-6.283185307179586, 
    6.283185307179586}, {-7.680690204897026, 7.69029154483999}}],
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.907138885862218*^9},
 CellLabel->
  "Out[179]=",ExpressionUUID->"4c2c74f4-0446-418b-9bc6-f516af2a052a"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", 
    FractionBox[
     RowBox[{"3", " ", "\[Pi]"}], "2"]}], "<", "x", "<", 
   RowBox[{"-", "\[Pi]"}]}], "||", 
  RowBox[{
   RowBox[{"-", "\[Pi]"}], "<", "x", "<", 
   RowBox[{"-", 
    FractionBox["\[Pi]", "2"]}]}], "||", 
  RowBox[{
   FractionBox["\[Pi]", "2"], "<", "x", "<", "\[Pi]"}], "||", 
  RowBox[{"\[Pi]", "<", "x", "<", 
   FractionBox[
    RowBox[{"3", " ", "\[Pi]"}], "2"]}]}]], "Output",
 CellChangeTimes->{3.9071388859559755`*^9},
 CellLabel->
  "Out[180]=",ExpressionUUID->"b7d0d4ed-0906-4af9-b294-6787a2d0b568"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"-", "2"}], " ", "\[Pi]"}], "<", "x", "<", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{"3", " ", "\[Pi]"}], "2"]}]}], "||", 
  RowBox[{
   RowBox[{"-", 
    FractionBox["\[Pi]", "2"]}], "<", "x", "<", "0"}], "||", 
  RowBox[{"0", "<", "x", "<", 
   FractionBox["\[Pi]", "2"]}], "||", 
  RowBox[{
   FractionBox[
    RowBox[{"3", " ", "\[Pi]"}], "2"], "<", "x", "<", 
   RowBox[{"2", " ", "\[Pi]"}]}]}]], "Output",
 CellChangeTimes->{3.907138886049732*^9},
 CellLabel->
  "Out[181]=",ExpressionUUID->"5cc2f332-e021-4c93-952c-e82ce62ac154"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"Sec", "[", "x", "]"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{
      RowBox[{"-", "2"}], " ", "\[Pi]"}], ",", 
     RowBox[{"2", " ", "\[Pi]"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Reduce", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"Sec", "[", "x", "]"}], ",", "x"}], "]"}], ">", "0"}], ",", 
     RowBox[{"x", "\[GreaterEqual]", 
      RowBox[{
       RowBox[{"-", "2"}], " ", "\[Pi]"}]}], ",", 
     RowBox[{"x", "\[LessEqual]", 
      RowBox[{"2", " ", "\[Pi]"}]}]}], "}"}], ",", "x"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Reduce", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"Sec", "[", "x", "]"}], ",", "x"}], "]"}], "<", "0"}], ",", 
     RowBox[{"x", "\[GreaterEqual]", 
      RowBox[{
       RowBox[{"-", "2"}], " ", "\[Pi]"}]}], ",", 
     RowBox[{"x", "\[LessEqual]", 
      RowBox[{"2", " ", "\[Pi]"}]}]}], "}"}], ",", "x"}], "]"}]}], "Input",
 CellChangeTimes->{{3.907138893003335*^9, 3.907138909598049*^9}},
 CellLabel->
  "In[182]:=",ExpressionUUID->"ba89fc53-f39a-4848-991e-d27579a1dc20"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVkQk0lmkUx+1LPsT7fu/7UpRKisYkMYV6nsievkplKZJ92g3RSClJYrJG
m6UhitQoa7LcrCXCKIrCTDQVmff77GvzzT3nnuf8zrn3Of///2q4H9/lJSYi
IpIh7P9fG2sFsxkNFbgq8n+xyLgohJVRVwHLgeEX0kJeozGYSqmqwESmk9YS
IatdcbJdQalAz8QjxkLIClMNk3rKKuDiX5QWIuTvnobZSEEFnkceLasWMtt6
x95ugQqUJP94lBFlUZ8JIbpPSgV6J1JKzwi57d75h75iKnCSykwTCLmaZPcF
zjNAXjitESTGosfnXGXDpxn4STHPTE6cRZlDTcXx4wyYDErJ/CHkq47GnukC
BmYbcv3cJVh0sTZH6cEwA4IZsXBNSRYFrmWqyr4yMHW/wXRSyI4yYyodfzPg
tHryTZM0i6wDPBo+9jCQ8WVPwSsZFhn1tQXwuxh4EijB65Nl0eLShy2cdgbw
lpiOdRwWya9QO6PawkCzXGOzvzyL5mOjtVe9ZKDBnLlZqyD05+N70ayGgWud
Ck1JSkJ/7R3rdlYxINcTgyhC6A+Z97k+ZaDToS0zm2TRHXqZcXABA323y10m
aBb5NHSz+ZkMGGc8CXNaItSrb5NWmc6Aj2Wel7MGi6zSS22bbjEQ3/Ex9PBy
FmkHJWX/k8hA2ZULFyq1WDS8krdfPZyBk3r5M6v0WNSbUCG75hwDOofyG/P0
WdQ6r1OyMYSBYMsDa7YYCvPtkFHeE8AA4T/UfctYmFdEdUO0JwPlxfiIqqVQ
j2DtyRtuDOgLWravsBHqcU1fdnc/A8m5pwyQnTAvw5Az1bsZMJ1N3X7PnkVz
Awb6U1sZ+PNEyXnrgywKN89J89ZkYCZQtrQzlEUQHbxjiQYDVyr8+PbhLJpt
sxV7u5gB9ZPvowciWeTvOuxlTTKw7uzmPdYJLHIP0v9hjTgDzrb+gVQ2i9Iq
JHr752lITl3K4vsseifeEZc6TYNu/f2K8/ks2hF3alRBQEPz4SfvLJ6yCOVU
POX3CeeTtvX93cai4H9jjua+p6F/+8Kqmk4WFRu4LfF4S8PCvL/lyz+wSLda
7MLrFhosDMWvjXwR3r/b0qakkoYtEolVYeJ8NM35821ICg2ubsf0LY35yNA+
M8rgOg1eq427Hpvy0S83AkyGE2koWhddusGGj75o0rcPRNMgNio2mOjER283
7/cxDabhvE66VMyvfFR84tOYtCMN5TLzNjWVfCQoLrkL9jSYIJmSoQY+0p2L
dPqVR4N04fCC9W18lHVZp+KrBQ3fbJ1C1Pr56GrGifBmAxpmE1hLDzkB8ns9
rZxI0FDSv6959oAAJe/iOV9VFOo//Vzge0iAylszf0+SoyEty8FrJECApJq3
rb0uTgMqV3b0jBKglLo0u9QRCgz9QmsriwXoebFp5N12CqodIi6lcEfQ8Ppr
LfdaKCg9Z5ilvGwEEQWDVO5LCq44XzbN0x1Brn9czcqroWAF5+tpW6sRNHL3
U/WjAgpurdtTt/XMCFK/ETX3NJGCLDOea+jwCNpK926tiKWAVyMj7zo3gn5O
0v+tMpqC8gevFvhwRlFh/HvVZxcoyO9G36a0R5F1lO6Gen8KJjtWZ+gdGkUB
p//8pdWegp62Q8Ee/FF0c2plWRuPAiO9Rhct8TFUFXRatN2WAs7092vq3DG0
IGBF3Bsz4f6uwsKcjWMo/Ujggy59CkJUZivNL46hRhfVz/0EBQsPmksaaY0j
XroJmlakoMGwS0TdZBy97nNNVuRQEJbRL4p2jqMPHplbjSQoUF31/aRxyDhi
f17ze+woF16dXFtn+GYc0YGbnY3ecKE1zNND7uoESilxe8Rr40Kzplup7oMJ
tHQqTMarmQuTDg21afUTSDukoTi2Tsh28MfP0xNoc9gOYqCIC6PLLYaavCaR
Z4x7U2wyF+a71JT526bQl5bw5VkJXPD6QDoEH55Cx5TuBpfFcOEv/2pz76gp
FHR1cNVABBeukf9WHXkxhaJuBlw0CuKCvutkoee2aZSfHbF5wIELT6+XKuT4
zCCDz/eSpu254Pni2ueNV2ZQ2eqXQ4o7uGBcWytiVzCDavIUbxlZceHSgt9T
xUVnUcfj6xOxG7hwgwr5MpUxi+Yqc/ONVLjQWdux85z4PGrq+pEzQ3LB7qVZ
ZKjhPEoZL/R5upALV37qruQdmkcmulXqJjJceH89jwh8PY+CU9t/2zRBQnzm
ElGfgu/I5onj5zkBCQlvt4/8+u07UnnzwaxymISDn0p6zUgRXMr5PL35Ewmq
DubyHTtE8PjpWV/8hoQB9aS93q0iuP7a+VqRNhL8JBaJFvFFcFKB1NJnTSRs
K3ignEKI4vWDCzu31JKweCFPx8xJFPs7a5qbFZDAs55zOzwkitkN2zUs4klQ
HDt60dVQHMPu9hCpKyS03Hm90c1DHMeecHxbH0nCufjjknbx4lj3nnus5TkS
5Df5aUmw4vgoHTRndZwEyTWRSlVPJLCJ/qyj7GESOhb1Gg8PS2AO73zhC28S
iiW7DK01JXFeRPRhG1cScCivOydJEn8dS39na0eCSM3BrC0RUrhMSdOAY02C
lfeZC5N1UvjyD7lxTVtJKJwZ1zCUlsarvAot7UxIUIsfe3QmRhp7v35etF2H
hOWl9YuHH8lgQ9ZOSVGLhA1eb+civstgSU77kZZlJDTe0D+rzZPFd8w+LN+h
SsL+I/v29o/K4o+P+fE7ZUkIczc2yNkvh1OkpsOcJUmQDkOzccVyeK+zWICH
KAmTmisNBpU5+LkosffkFAGJLUeOubZzcNieRZZnxwg40KZZ+/AneWycs3zD
JT4BnrtfHepLk8cPd6xXvfGFgLXmGyN9AxWwzx0TuYwBAkh1np7EPwp46eTW
2dy/CJBOWP9Obp8iTkzf01P+jgD97voeEa2F+NRwYEbfCwKsk7VVrdYpYT3T
0MQvdQT4rkRKNcFK+GvSpXDBMwIqO6dFKuqUsMum694SZQQolERrF3koYyr+
toN8MQF3NilozxUr49b+e1bUYwI+b7m9xFGewKa/PdFelSv8H1z2TtcQeKb3
2SK9bAJ8mGOzmStIXKjfyDHKICAuXVl55WUSa3V3DdveJCDtwy3/bFcu7tP9
2Ls7mYChkeMj2q1cfDNssNUlgQCLsXL3JAsKc7RnHx+PIiDjE21w1IzGdWck
7pyKICAqpi4kuZHGZ9s4SefDCMjzsrJb4shg/im1oMRgAmwVw3z1IlVwbpOm
b0ogAe56xbKNOqrYc6muU9YvBPT4ZUv1d6rijobNxiWHCKhffMPHa9tiHLfI
cg14E5Cq8+yCB6WGrY/z1F64E5C/a+16akgNXy928394gID7Li++uaSq4/8A
d5jTbw==
        "]], LineBox[CompressedData["
1:eJw1mHk8VfvXx8/sjM5AyJhbEqFzU+YoSVGZo1tSkYSMUSoiKQ0qMoVCcZsM
IZIh39WgKypCUglJlJRtDuccv/388fy1X+/XntZan7XXsNU9g5y8SQQCwYJI
IPzf8ewpypZUZwHYplbuO1KsCgM7pTgNTgKIaTbbXndCFYbOhZIi7QQQZ8M9
0HZJBX5Xfp5eYSuAXmOhnFuRMox92/Tr6wYBMBdblNM+KMHsOrXOzWsEkOOd
m5zorAiSoPOv540EcPDR8qdncxcCKXvy6YNV+PVf9k72TikAc7apSElHAFlW
R+8M1sqD9DLDvGZNAfQ7nw5yXy4PAtebV08tFoCknP2wKlcOlMoiTv1UFIC7
7bilffYCWNT7NSJHDrenb3FBmcYCWCJtH+gsEMB2lZuXncpkQcdP458ahgCS
7M+oz32QAbO/WvUu/OHDJ+GOqyY7BZArw1rlPMEHCm2XijpNAGSqlbESxocI
bv6sejkfGgcr1hcM8uHUiPD4KwU+6H34venQVz44nS1S0W7mQVKjpp1pDx+s
TNqyGGd5sL0oY3tTBx+qQqKuthB4UJvduiu5lQ/l2lXFohguqCWyvHa+4YPb
QSvLMAoXBkKjAn7W8+GzYGP4lJw0hBntjWVV8GHJ58iiTG82dGplxreV8CHX
4lyzgMgGU6W2hKxCPngMP3f1yWEBSWKVvjyfDzul0xp0+5mQ+GxZ4eZkPkzI
H/Zfe4EBE+V7S2Uu86G7R06UbcIAt1uZDz+d58Pv8Ymn3GE6qJ5jP/GP5UNP
ytR/H1zoUGiHvbsQgvtv1dCiZiYFvLVan5wD+PCOeahIYZYGh/727FXy5UNM
aGXJ9SoamMi2DxXs4YPi+EWK/BoaNHyonG+y58PHtXq1oS5U0GnCKCmb+WA0
KKKHqVDhcq0W030jH27sLFD5d5ACrjlZssPmfPjxVtMsJJoC/fuitdh6fNhs
3rIJasiwyfWRXrsWH27arPmw+SIZCjaO6l/T4MO9tLMn6neTIVTby1xHhQ97
DhnO+kiRgYBZO29h4/4Ez6yu3kMC5ePSUQlDPMh4aOrfZEAE3/xG+esDPLD1
6nzQJEeEh6/PlBX18WDhewVvp2kCOC6aH3zzkQegWpg3UEWAM/UjTvwmHhy/
k77igxUBRrhvl6UV8OBjBuP32h4JMjO++OzWbR6sbjaMii2SoPOeNh6VeTzw
mS8piImUoCUVT5I7s3gwORMak6csQdt3lEkUE3jQ5f+OouItRk/zk9tzDvLg
4df12mIZEeK+sQ8qOcCDDU/KTAOG55D7NIv5ZB8PusOufd9fP4embeIs+tx5
wJ+kk35FzCGdkbB7S7bywMawVJE4MItSjV1j7ury4Ez86RKPjhnU5ylQqtbi
gfYdfZ/tD2eQMOFNRaMGD8pe7X9elTaDGrutf/5U4cFwEy29cPsMkpwydNWT
xs/Lva1b8uUParn29/b9n7ngordzH4f8BxHyg9I+t3PhS+iNoSsD00hYUNTu
8ooLRXO7bxxunEaJVVqO62u4MH22JtopeRo5dKjbLsrggh6NQ9LXmkYtXIHZ
Rxf8eR4e1r77phBB3uGY4xYudMaHf9LeOoWEqpceNazngnncUOFqgymUqMNc
XbmSCw2a/RV/MaaQgw1JL4XHhWKe76E1ZZOoJXZMze6VNDBcLrjl8CYR4bzQ
o/6ZNMwnWR05IZ5AwqTAa2Y10iAfSPiVPjSBEnOGFJbfkwZp6kJ0uH4COdT2
8elnpYF+u1KmOWoCtUy2kp+ulwZoS22x+zOOCGKepbGpNPgduJYa9X0cCSn2
MSUrpaFiS+yHT53jKFHQJMpWlwbB67cpS6rHkcOKZ5PH5zmgnXgr8P2JcdR8
4MHg6hoOvNcZPmHPG0etPdMO5g84YJ2SsV+WMo46XM2qrQs44NzLrJ6bHkNd
VvUJblkcSGqbtRD2jqGhRe//PnqcA4SlFTs1y8YQ5cPs8VpTDoR3XPtNcx9D
dAeLb8/1ORCBmZU3OY4h1n+n7F4v54DfVcZY0cYxJKhgq3crceDnde/nL/XH
kFqS6ov5OTZcdOyJc+OMIRMbS976WjbUyqp2p9SPInM4c3RzORsaZ9LMZB6P
onWGTX3OhWzQtP5hWVA+ijZpuFTsu8aGBceaD2nmj6JtxP07zkSyIUvt2Bvb
uFEUXHUu/6UZG1bp+6yXsRlFYcI3nNZVbJi7t4O+wHIUHbktOPJRhw3byu+c
0jUdRSdSs2x+KrOB9fjo7A3dUXQhpOg3W8yClYyOjBSZUXRL662Rw2MWeDt1
GsZ8xdABzdInMRUs0I9hvZ/+jCFtjSTb0iIWOKpvVz3ViaHiRY7ugmwW7Iwm
CdtfY6hS/m10+wkW7IuMtd5VhaFjC0rp1CMs8Cp4zwgqx5CZTFLS6iAWIIJf
evJ9DIG0Y17abhaE6KwvkL2FoQbq2xfb17JAu6KWMpGMofPkUvtzRiyo3lru
nXEZQ1uISZ1VQhaorN/V4nABQ29FDkOK6iyIbr7hNxmLoY/jLZzPRBa4Lpbs
kTmEoZ9fWlz2PmPC5fZ0QZIrbm9PyeekGpwVay9tdcZQ8OfE/U8fMGF/ePsX
RQcMTXQ6RCzOZ8KmKafXgzYYEjW3ZH2LY8LWP548G3MM1b0uWSIXxYQbGyOv
njfFUExTYpF1OBO+i2NPdhlhiPqfA7rtzYTu9HfrSvUxJF3X0udrzYT6jwmq
KtoYaqkp8c80Z8KgoMSuVxNDV6oSJxoNmPC8eFP0Aw0MyVU40HQ0mbBr/Enl
OXUMdZYJL7urMeFS3Z6CBDUMZZbwFC7KM+G6BXY4RwVDaoUtWr+lmIDWvA6e
WIihvrslZaoE3B4n14sGChjKv51oav+HASnHrD3OymFoWZ7D1pLvDPDQEYp3
yGBoKFfY0dvLAN3z72o+8TFUmM3bzf/AgKBhI95BHoaEmS3BoS8ZsGd3t0cN
B0NntxwmzQADZCN5j3azMdQrUUqJfsSALFmFzXIsDBmVPtGglTDggFYJr4eB
octePpUJtxnQ3jJHrKZjaGABx0YmhwH2nacVbkthyLyh7GNGGgNs/Nfa3aJh
6LeORHzrNANMGwTETxQMWffkXdaNYsDgT14YD+fsJBv18jAGxD1jjbmRMTS1
fqTM5CADArsmD5eSMLR1KsXqiRcDvsZozivjnH/HpGPjTgb0n/aIzyTieu7o
9XnjxIAI1Tq2Ns4unDMzLra4v+VvEpoIuP9o+YVP6xiQ9CKKGo0zJfStsqcx
A0xeqYRb4ey+5EjxdyEDdqnu/6iEc3mH8tqgZQx8LgtdRcWZde7p20k1BgC3
PpaAs6fpAa9IeQZc3WBZz8G5+hdnksRlwNDwKpEOzoLcB2fO0RjwWHvLMg+c
/Zz+UeBJ6CDzK8v2Bs5PKfN30ybpkD9zbd8UzoqV+aYqv+jAJulG7MLtD/W1
fZ3XT4ftjy/Fd+D8Ugnz0O6iA0XKL3Uv7v+iN6lYSRsddpNf5UtwjogxjTVs
ooOPjWZVER6/lpVfZOqe0kFB4NIRiMd32bcz/1pV00E/IJFgScXzO13HsKmU
DvHHY8w0cX06bVobHO/Soa5Y77Iqrp9QdGRHZy4dKqTZEk1c3/hilWGPq3Tw
j8Murcf1797zLOrbZTpEayttCmFiyEDGl3swng578lYKS/F8GThSvvLoYTq0
+zXe9ZHG80F7x/P5ADroiHJtu7kYSuua33bGmw7a1XxjHzw/N6zbfDQZn5uu
Gkyol8ji+jL7UNFKOhiSD/6tpozrWxvvuEqbDnfX9NtoqeL6Bul+rVang/eR
NUTrRRgit0fQGnh0cHDbGFW5BNfnOndr328p+IdOVojUw/Wxr+g+MCAFAue3
Scp/4/qQdgaPfJaCLZF28i349/x0/61k0SspmPM2jAs2xpC6cM1HuQIpoGlU
VF7dgNcnpx9penlSsKu/KjhrEx7vsFRn6ywp6Hp8c/X9zRh68+jXq/ALUvAy
1fIvphNeH9dlo3Z/KSAWx267vBtD/3rZRg57SYGF0oCxsheuz+kpI4q7FMiZ
GpdV78eQZqNdmf4WKUjzot3TCcRQu9N8/hUdKYjaLd01EIWh+bCCvfeWSMFP
dcYpEl4PtdPdVJ8qS8GQp/Zu4Rlcz0/300fZUiDp8+Q+u4Qh3X17zjv8okFL
cULbi1wMnQl/EiRdTIPDQ0dO7WrAUGl6gM7SWzTQ+ZHQcBuv711VC3+syaaB
po33B2obhlZKQjwDLtGAn/GtXYz3h54zf217FUiDQg73Uu8EXg+unjI5v4IG
xCUtdy8uHUVe1Sumb2jSICCstHAx3n8udX16UKVGA/k8vdRm/VHUv2iV7g8u
/r5wxTLfdaMo6W6/2iaMCgl3X0YV7BpFQ9UbqLRSKjx78OTW+cxRVJBU2Xjo
DhUUGu47rc0bRQcPaCV+yaECSgyeEBSOol8LOEqPL1FB2XJ2Ia9uFGHB7cKw
g1QgfZ8ShnwdRVNLvdz7NKkQ633tBnvVGKoUt6s7qFEhY2/myjLzMRTRbj34
WI4KG/3tbY7ajKGZk9qhGVQqGMh17QjYPYZEXaPxDl8poG50+M5UwhgiJcc8
qMumwHutm4ze32Pome9YhE4aBZZ6NM81zI2huLX7zDMvUmAKpUd9oI8j6u+N
L8MjKXDTjD8Wungc0W24PTo7KBCvcX1vyo5xJD1/nZm1gAIBqoG1khZ8vnnH
baFzKOCRU/07oxefhwpPph6mUMAvKbtuHzaO+Du8FzmNk8FpkXLyBd4Ekq3Q
MWC8JUNdCNVghfMEUvKv2XskgQzLiGeH9vZNoMyGBmtOHBmuXLlu8HNiAiku
7Vied5wM/+VY9xZKTSLFL9jkGz8y9Iafc+3SnUQKbkvPL7Uhw0re91Fi1CSS
XZ9U9o5KhvzskP6lmlMoJTc73V9MgvtHSV0Za6aQjKQgkjhJgj3UJDtnlykk
qHphrdtPgr3fbDqvx04h3grRx7inJFAc8tEt6ZtCbCUf8qpo/P6vPNX20mmU
EBH2/eVhEswHOJQYv55GrI6Tr3cHkvB+svnozPdpxEy6ln5hFwlm+1zyLqr/
QXSp1uVfTUlgM3V1Wj/9D6KOm7lc+UOEmosb3k6mzqA4B1vjZRgRyDdzNtdX
ziBKsZtq3SARaLQuN9ZHnH1Dv//oIEKwa9V78qJZROq5HbmuAt9jul4dGiid
RZJGwb9YCBHmr2lr3xqZQ45Xl1bI+xGBY8RpXywvQvneJvXmnkRoXRMvr2sh
QrYEz28JTkRIRimyvxJFKG11qYaWPhFSDAeiQ0zF6AepfrXDciKUuHFVMn3E
yKylc8ORxURok92Z6J0iRn1+hP31MkQg0gpUx0bESDfX/tbeCQL48yzo6+9L
UEyA18OzwwToMP+M9fVKUKvJkRf3+wnAor+JsJSZRxHvsgfE7QQQQ0STw7F5
9Jz5e2lmBQH+1j1NE2gRwD084XbrYQIc8n5vFYrvZ/ctcytnAgngsi70xHZ8
fyPxyv9b5EMAg7uD0f+5EuHOvU+DgW4E+ELgqW7NIMJEj/YylhEB/tK07/lH
gwQbi8yNVgoJsDpw85PvNiTIPOa06Z9lBPCgRYlVgkiwdsGxA7cVCKA07NyY
UEMCudQrjvFj82jWqtpF7E6G2hXVIe/65pFxyvGHFvFk8Gz8krS4bR4FT/xa
a19GhqJ5YSt6MI+2KTVVDTMpYOXX7PQnbB61kzNl3rygwBBlOtTaex5p5xpY
aPyhQGKOanLKtnkU9/BEXJQ2FbraA9qEBvPoyk7M1+EKFQ5ZsF18pyVoU26x
rX8QDazWo9NeAxJE2/7Sowyvg3IbQyt3vZOg/nvXsiNHaPDIrlPR6YEEQbcf
szVcCkS78r+YBEmQ7PEte5an0+H1XjeZ1R4SxF3uen8l3pezvZkbVmyVoLt0
WoCFPgPWBgTfWbxcgi4qEVVr3uNzTKRZEHtQjIiidyWPzFiwLWYkl9YhRmL7
qljPayxYGnezlVAvRtHj1xvfSVjQcIFuMHlTjHIVNvHSX7Eh43KNz0iSGFUP
1o4vM8L3kOTAjB8xYuRfZ+fJvs0BTla76LOHGMXQFj3zuSwN3dnxep1bxcjT
8TvVgMGFkpsme1rNxGiJako3KZ4LTvdyn71QFCNll96Oso08SKs6eP5+hwjR
3T3bPh/kg89jtdq79SJ0lsD88rOWD0ZPWn/llYuQ4UzI8zmuAD42GDlevSJC
+lt10tqQAApe/Yy9clKEFrY+SxUry0BkS3Z5QrAIHS1psfwdJQOqnRSFk3Yi
ZPq19KbcFlkY+VRpc3yNCGkraLS3V8kC9PgdD9cRoWijPW0+OgvAc7Cl25cp
Qp4jqVd2q8uB/s9TvH0zc+jLcH3nyXw5oIwYWHp8n0On9jn2TurKw+2pa/86
vZhDzQuMntdsU4CIWfv3Wyrm0PERxVD1SQWwlZAYG/PnED1gXRf5+kIYpvoe
NI2dQytN1p5XYCjBY4Zy9uqQOaSu1Kox/EYJLnGam1fsmUOMxmM+p3OVQbhg
tf4S8zk09I9hdKS/KhR7Hn143XgO/f//vf8Brr0geQ==
        "]], LineBox[CompressedData["
1:eJw1mGk0ll/Uxh+PIVOmRJGIkpCQIcQ+VJokpSIpVFT0p8gcShqEMr0lReYp
RWVK5ZApoZB5SmXOcD+jmfd+P7yfzvqtc6+z1t7X3vfZ19l03u24I5VCoezh
oFD+bzWNKCB+8s7gV2frJs8mbERNd2qi0hfZ2CD9vdj2cRl04NK99V8m2DhC
wLddR1wGlR8yTe7vZeP0ZHf9pYMbUJ5oTb7kZzZuVazTXt8mhY6fEz008IqN
o78829QuJYXYObZ/s+LZ+FGqvf1d5/Vo917GWn0fNq5QO2VUvHkd+hVplEe9
RJ7fWh07EiGJgvtCD9SfZOPOKxLSDssS6KuXnL/tTja+F8txQY2xFrlUuohv
kWfjuxd/o0SvtUhIpPj1pAgbDz9boESsiKMT2UcGAqdYuOU7f3CInDga6PHb
l5zNwm6bi4ezn4ihO0o1/VfiWJgqu9o+2VAMKXqK+mjeZ+Gb4/Eu9BFRdFUo
K6fyIguH/bimMrpPFAmfYewJt2ThzcsX7u6aE0HvMo36TpiwsPLxaBW9PBE0
i9qEh2VZ+GP13I9yeRH0PEIu+40QC69NvhEoUi6MjLpdTLyXmLjWKmCBAsIo
xIPqydvDxKF+OSY7Dwoh0Ywd3cpPmFhFY8axMlQQFdD9PBghTJxcsmZYWV4Q
WUON4CcPJvbeFJ/79LMASuy0hSPHmHh9L/3uyiI/UhZ4mOYmyMRZY0l5ffF8
qNGqzXDXAgMzuIstdA7woWtpch2UcQZOuvzGu3SGFxUZFvNF1zKwUk1PDs2W
F5lcG3QtCGbgm56dK3xGq9DQpx28AdcZONvEfyxtngc94PNP3mfPwDKvt5r3
lvCg7ymire2GDLxlpUFqVI8H2bQZ6c3N0vHJj5l7BI5wo6VND1sqRuhYbV9e
yIa13CjJtc3lYTu5n7LB/XI/FxpedTVRuoCOA3TWDT+4wYU89J9xGrnRcatG
mcvUa04UGyvde+ocHX84Wu/6OogTFUwlFLgdoeNNw0yT08c5ETslxTFZhY51
tY8F2s5TkY9Abi3XKA3vUQv8c/4EFT1zVEuS6aBh/dFg6U5VKirF+T46NTTs
b2Xuyc9DRQsehdsup9Fw3IJ8QnQpBwrsLQurt6fh+Rffyt6ocKBEHeOLg0dp
+AnBnxXKx4FwZOXuJSMaXmVdyb88QkGUfV8n1WRo2LtxnWJaBgXded18NLqL
wF2WLW3ByhT0IHBwzenjBL6Z5Xs1LmYZsjqdJq4bE5jyWsbvst0y1GmOVT1U
J/DwhjEav+oy8I9Men4SInD1DDFWULsEUi+n8uDJNH6rO/hpM+8SbDEW39V4
fwonybJbxXIWwIm1bmzZcQpLaD5XVby9AFnZMvHqe6fwf3d1oMl6AZTFti7G
UKbwM1E7di/fAqj/1Su38Z3EtKlg/zD3edC/a3dg1HkCX6sqzBCwnYO62YD0
c4cn8G3xXInbhnNgffUFtU1lAv8IPshrLTsHnpZdnyom/uEdR9Zv2jw4C/mb
LDWeu/7DxWGlY/zus7C1zFTK3H0cy2y8ZtmTMANFGo7eVcfHcYf0YuqnkBnY
m36nVX/nOJZw/vxzzGUGzoeXP9rKHMM5G3hsFAxmINFGn5PDawx/qWBzsnrZ
ID6zfeK97yguUJM7prWdDanOZgeVbUax1Srtv9br2KDZ75yRpD+K92xb1f2B
kw0W1Zn2EQsjOKk6tmR7DwvCYja1OQWMYLG/Lk614Sygqq8tW397GMtx+TbJ
zjMhKnWndKTDMC6esFN4O8oEOcnjPjwmw5gRy3PXo4MJhsuPNBnUYVxvqSIU
WsgEnwbezIaQIZwkYsQ54sGE6cuLj4MeDOLi1O3KrFkGtL7REDF3GsQ50wct
pMcYUMp0itywdxCf/u+ywvUuBoTcao78sPIXHyo2DMkuZYBUXEYUw+svvsY2
yjMMYsDeWouYS45/8G1psc4gEQZsW31vjc6eP7j3YM1GB04GCFl+jOHa9Aev
nmlYucKmQ1f/ltjk3t84w+N5F9FLB1f2fGyP5W+sTVM6WfuKDnFb0p8cNRnA
mcyiF8iCDgEu3RIb5QZwTfT5bpd9dKg+L6vWtfAL30g8k1aiTwcbP6baGo9f
uPcod3ThFjrczU5Uv+/Qj+80jIprLdGgexVjp5tRL046WypDfUeDtJizWoLz
PfjjO3EZ+WwauMl+1cou7MFD/KJr7ZJowKWboP1Xldw3FWOqPaaBmtN+XSvp
btxlNtAo60qDO1XP9WG2A788dACJa9Bg9LtejGNJB/6tYBDkoEwD866Of2E+
Hbg9anaxSoEGUlNrEjpn27Gd436p7xI0yJcMX7k+14YHI8qrB5cIkJBXto77
0IYl6+d+/ZohwF/1a36Zbxv2dRARJ2gEmBpznReYb8Uiy19Mjg4T0Od8sypt
/icWTQ5Q4m4iwMRTSqa+9Cd21frin/6NgKygEk+a30+c4mE6drqagBuxTEWj
hRYcrBCcsFxKAH/Z1dCOhWZ8f/MrC61MAlzlS1+Iz//AlVqleXp3CNDTZR9x
8PuBKyq/jwoFEcBlprnyev47tlMbSGT7EfDcM8dh/0IjjgxrVV5yJ+Dr13hF
v8V6LK20ymfwAgExfe0dNTfr8d+MqcOH7Qk4RxcLXbP0DZ8MjJyrtCWAJR32
L3epDptI7Y4bP0mAvJt//q/lWizSQ2XxHyRg8k6xg2pQLb43+zZ9eR8BJXEM
Md+VGmw2W5vBuYeAo19cPMUoNVhksMHW2JCAm2tt9fdxVOGV0HsroZoE7FeO
+xd1uxI7dwvH8agTIAatL/o5KvGepR7h2O0EZF82W/GmfsE2ffdcfisR0P5x
d1UOZzl2Gm1+uFeOgA2+5/vpghi7yJzMtdhIQLjfYa1IsTJsusb7zdUNBLgE
yAx8k/mEj7RJqbeuI6A7kEfnssJH7NO1OVFWkoBDt6bDuLeVYpphX53fWgKU
71ToIq0SrCj0Td9ejID4kJyIPr1i3BUwd21chNTjXsxfPyjC/qkNpiHCBIw/
cHxceKgAU3+mFQ0LEmDz0HzouMV7vOq+4N48AQK+hekaECff4V35vVb3+cl4
HvGNKDvk42O78aIjLwGackO+kY1vsF5i9J2rq8j4FYq31Hfm4rL5ozeDeQig
bwlt5h7MwdtsYv5kchPQrHQmAE1nYerlPe96uQjIV9m+zX8+A8+ZRI3IkRyp
ttJayJ2OTSxmA29wEnBNo/kWIZKKz4oZeXZQCbDQSlVV2ZCMD3C61x4k2c51
PL/ePBGvd590r+cgYOONR7zGjvF4+YKlpy3J/b6a9kX+T/ATn8iGRQoBCUHt
xSrR0fhdc7dXLskl/KyNJscisMfyW3cXknUlDL+rBt7FpWP9ZXoku+zhX1A7
5Y+X6j1sJEluKtB6z2t/CbvINezlIrn1Rq6R5tuj4JIQHkD5v/O9941ZvPAA
P/VULkGSLfJtqg2Tb8ORJdNuRZKb08QkLG+Egp397LIFydlmjjsLUiOhinnL
4yHJ46YVPUYRsWCbwNj1k2RlY5mQOq84cIjKtVAh43Ex8FU9Yf8CTK4e+xRN
cnu8s/P05iQYRs0BfGQ+2E/jygrWp4Bx/sWnj0mW+J8aMT+hNLDgfCSwhcyn
bjTTCTgz4PKB9X11JFs/lv/INZsJMx4bhAPJ/PuEWwh/m8iGxJCZNGNSr5J7
ucUn2l+Dg4eSwAypZ+edbgGp+jzIZb/9O0rqfRNx5U//yodcPn/1cbIeEgw1
uQpb38FPRWd9abJ+1HYffCP54z203pSmHibrq0zf3tqvrgBOeylYPlxN6qP7
KBfKikBR83G2Llmfrjrpp1JKiiElu+9juigBy1qfKNzvS6C01vq6whpSX83x
E98yS+HKhdk/RyRI/VVNl05ElcGV8q7PdjIE7I7LeMROwsD/xQO8ZAkQDOYU
MbMuh/3FZt4vNxEwNnkhefJSBQxXfjFQViQgpXpzlfr9SvinGPlInuzfyIXW
cA7hKpAOntJuIvs7UOPuyZYnVbB/ZiNnlDYBZxKGhj0yquGDiOVRMwMCxD0z
+Iqra4G2khL2aj8B1FenWu4f+QqnbVf0mYcIIAZ4nlu3fYX1fLIJFuYENJpd
Up0frINzdiZ1e8n/0b3NSkcNuRrA00CPX+YiAYtjJ745bGqC1VC2NfkuAQyu
12qHHJugmHvaccdDsj5kuWM0s5uA0862ueURqcfJwjOcGs0gf/td8uk4Agor
1k6moRbQO/XB0TmXgNze/45FhLTAwyG0P/0tAWkz1YWeX1vgwhfpg+wiAqK3
ewWaWvyEZJ41O3sqyPw/axcetWuF8tLLVwo6CXAsULvRlNoKuuLhYmn9BNj+
uNdZMtIKZ3s+zeQMEnCYWzc51K0NLK4riK4QBChdf6qpEtQOBfNRg1X8NPh9
wPqka2In6LAc3kyY0MBo6KZDY18ncFMFjv09SIP428n/qcp0QUud7f8QFjQ4
Xjp+d/x5F+wuEso5akeDLyoBRU7PuuEGi+fT5gAapAilSNrF9oKXQHnm8c80
WM6pUSj72QtbbN28vlbTwGb/vx0ya/qgyeJEp9V3Gojd0jrQE9UHnL6CalW/
yPuUVuNj9bgfLBvZu7s46aA5zprYum8APm3N7lA6Rgf7XbweHRcHoPrKlg2W
Z+jw6J7U3L2QAUjy/fQl3pEO4/LAPVw5AGs2bTO/40eHlDMPZNJMfoMqM8i0
Ip0OaxqlzOXQHyhZGubTojLARHp76w+7PzDRoVRhJcSAa1fAJijoDwR2F3xL
kGJAA/dFp/6yP8AjWo2id5Lzj9HrwBeGf0FJIIpr6yUGMPMgb53BIGR+h2Kr
NvJ7FQOxa2cH4cD38RaeIQakZup41gYNQgItvH+IyYDjL7cbeFUNglvFwFad
tUx4+0i69ueRIbgZ+qxD3ZoJrv/N9D+yH4ZzdbyVCuQ8ZzpGNx4OHobn5pnd
sgtMkHGcSjNMHwbpwpN/TgmxoMF2yHlibBgMmmWovtosUDb7yT7oMQKzqpLa
6fdYMKKcJ8R9bxTSJQI1nLXZUJaRc902axT6uUJNbpmx4Yl8Ruv7b6NQmyh1
ZeACG0ylEuLPC49B2YOIgDsxbEjjC1MsjxsDjXzzbk82G+xHnYz8X40DZa+6
iErDDOy6eD65pXEcsuXkbvqMzoDwwFkuZWIcnl53PrmFexbKOk5869T6Bw4y
5bWpMAsytSandMr+QVb4lOyFD7PQnb7RldY0AQavFozDKuagiCf3eBZ9AtYb
pUdTB+cg5pKerp34JORCeBaDZx7Mtp2gNFpNwgwxvc3MfB7KckOjs/onYdZa
jbXu7zzEr5b0tqNMwdldS8FJpF/wdk07IyE/BbeMZLwL1Un/oI43hzhOQYRb
UXr0rQVIfs8sspuYgu8F3H9dti5CoHjwcwmhaRCjbifyji+CjafwrcYd05Cq
avv0WeAiiOkqHzTwmIZVZ8uuu3QuQkipXY/E/DQ80rq9zi12CQrsh1aGybnp
qSjfyG2NFZAXVXX/EkvAE60HwazLKxBZ4T6YkE7AtLkhxTJ5Bf6Tp9SdqCUg
8YNcwzV+ClIclIr+QvalldXFwNk7FNI/OnAlStOgKt5k26tUCqLuy/LyVSXn
0KMaqv8qKehXuvYZdXMaUN7XO2/i4UBxlyw2J0bRoM7+s2BzFAfiWff0iW8K
DYbvn52zKuJAN7728Z58TwPtxw4c4T0c6Ng2l0mBNhoUPpQTFFKiIv5/d4t8
19HhwV47d55vVOTv+vHAyZd0UHEYPdSuw4VMgHVRKI8OzVfdb5135EL8Ijtu
15aRPFm5tieWC8W9Tfmg108Ha2OK7Gs2FypihipvlGEAg7K3KqOGGwVWV5p2
qDIgqtLogtMSN9r3ZOl85G4GVHpqvz2mzYNada8/p9oyIHOjY3hzFg+i+1kL
jsQzAN78c3r2chUqPRytlJTDgKu3kGrHwCp0e0PD3tOkD/Go96yPU+BFImUQ
UE/6FGR0PaPvNS9S49g6lbeOCZ9Lhbas7uBD7GZ7/itKTOA2HDLjVuRHn1Pi
FeV3MUHLrvLnihc/MtsrZBdrxQS2aLjoYVkB5Hyf9cPnCRMkN0rmvgwTRJrW
OyY0MphQtp68ECYF0ZzSFd5/pK/S2SZus/PYavTgWy8628aE2RvFJXryQsji
ucRZiSEmjORuCbF6LIQkr1r4/mAyocvbGBWuCKGM1VVvjcVZ4PjqUFntuDBy
7V9qnFcgfV9lMGtYUwRp5+mOv9/JgsL0sIQz7iKoyuKVvKIlCxTe4lHfGRH0
OyY6hj+aBYpxWWahMmIo62JDXmUyC3qDnY0f/yeGrmnzNNx8y4IDz70EvMvF
0HK7L9d0Ews2mR8RinRbg2oy38tlDbBgR8uOeamGNSjCZ3K3A8GClF2tHwxU
xdEGKQfPn8JsOMXFw5SaFUeD4/FR4bJsyHm/s/74xbXo1cfW1/t2sIE7RlZW
vG0t0j97YLjYnA1ZUUla56slEFUtmHr9HBv0/gyYPt0nieqWP25UdmWD1bOp
5cx6SWSdtMPqRQQbRjUUm3n/rUPMVf0O2YlsqN5vT8uKXo8i3cKvFuWxIYH+
tMljjxQpur53ZTkbnuqne6stS6E6o7HbTc1siAkSSC6olEZOGU/D+/6wgeur
hsRi7AZEFTJ9Os5gw+mAmznrPGTQ78dV16p5Z+D/3wf/F7iKKZc=
        "]], LineBox[CompressedData["
1:eJw1mHk81M//wPeydi1rd8kRUZIjSqQSsS9FuXJflRQpJUoqHSI6URQl0kGU
0kEhEZpRyZFUzkglReVD3rvuLL77++P31zyej5nHzDyer3m9Zh4zz3+v63YK
iUSyIJNI/9fmLGi52bNykm+X8izgUJ4a5lW33DV2nuR329F7x0LnYIbTIR/1
rZN887ZOsuctVTzVqsSVCp3kq74vYws6VfDv3k1Hv12Y5F9OebsrKGw2/rJn
anFdxiT/5A1d2Td1yrhx9OaPovxJfoXB6RE3PWVcQe92iH8/yXda6j1SQVHC
BYknyQe/TfKr9wsHrxxWxPcUFhRvGZzkqy0MFqUNK+BkrZ3qy2RFfOYt97Vn
pmbh2Dxms7q6iO9ytnFXRdwsHLn8QayUgYhvUkN5Vjh7Ft659q/gm6OIH/xA
zxnbymPfhgs5db4i/mAcI9njlxx28zTc9HSPiP98qqcrJ1YOW+w48Do+UcT3
YK7c+KiFh+XP/LuyrEHEf6Gvp7n5MhdLsa/bz/0q4ivFjm+utuPimRRzEuuv
iG9p5bUuk8rFfXeid3XJTPH9T8s90z7GwbiKvurc+il+0K5budtZsrh4/T3i
4OYpfv+P5CjXq2z8oMX2ztaQKf6/KE+L1IVsfKXnPHt5whR/fUktI81TBgdL
yH3vqp/it7Y4ew9+YGH/hKKUt51T/G/mdCE1nIW9ZnnaFfdP8d/R3/yKnMPC
qxdcLTwnPc2fVi3vstovhZWs1c8sd5jmD354lNy4gonZ77DpPJ9pvvvpvA3l
AwxM9fAfZAVP8zsHjW4E32HgvwF3vL+fm+a7rJCgdysz8KtTenrn307zm7Jr
P16cJYlNZ1IytT5P8z1XRHy2b6fjgiMkhcq+af7P1HUlbjfpOGtPC2mUOcPP
lHV+OVefjk94H2/dYjPD/7tsfXOOhwT+1/jH/p/XDN/rpFx/mYYEDlvvXnk5
cIYPLLNzLQQN+6/WfVh7Zob/eN2nzPELNLxavylmadUMn6MTwTdvp+LnOeZj
75pn+Bd/d0cUPqJiw3n3gnf+nOE/8r1/fOIEFXPOvXjQQCZBZtW91q8GVEyK
vnSFOo8EyOSPxvFkCu7aZR4csoUET+Oi3OcfImPVu8Ic00ASOHwryd/kScbe
P+9+l9xLghQ1031qy8n4gy/PKyuKBAdUFN2Xj5Ewdvtl2XaDBAFR9eabjpNw
hnmSomUnCTqeKxwyt5tBHUfXurJ/koBl6OjgpTiDFEomz3/+jwQJ8i5dRj3T
KNFoByV8kgRlSQob1E9Ooyhts4H7s8lQaScxJ6B6Cvlye17KbyCDfV24TdYe
EaKlNw+f8yNDQH3vyterRei+xmstahAZIBVPnVMUobGl2fGCo2QQpv95OfNy
El309HNtuE6G+7vvJ86dN4leXfvy/WwXGZCfqf/bsQkUpPlObuY3GT7Mydv9
u3kCcR6VW4cLyMAjR7gfL5hAPi+u5QZQKKCW+UOGt3cCjXZt2GepSQHzeQ/Y
SQPjSEerlTQZSIF5cyxOO0yPoYa8KqOwUAqEBTz/odI9hg6ueBrw5zAFqPX5
BevejKGXNpdr2uIokJzo9jDvwhjatNv1YtED8XhvE71krTGU+LhBfc8gBdr+
hAbHbRtFxitfuPSMUWCsoG5dpMMo6qh8dNKHRAVN0TK90mWjSLvp/C87LhV2
vtJopTFHER6xy9deSoWE239j3heMoCHTaovv4VTotFgzvJU3gt64PbaujqLC
lO+uljukEZQWfNXh0RkqMCq2vlUdHEYWN3dvPHKFCm0KIcdu1g+jeDInnFtM
hafHr/G74oaRRo33I8sRKkw7Rrp3SQ+jkS7LIu0pKshM32kjTw+hmomFZTIS
NGh4HVPiMDiE9uhN1bTL02B3odQzn8Yh9Dzx1s99xjQw2WDD25A+hFw8+lSy
9tPgqmXuuwDDIaS5p0kjNoIGLgcjPX9rDqHRM+W6e07SwMmUeSdRaQhdL0lc
YXqJBtt6nHVWk4bQb5Wlbo0FNAjMPL3I7KMQRXdHxFOENHiTcVCof0SI3CYD
kn5P0EC6PsD06R4h0pJ3TGsgS8CnNbRVmwKEqN56bk46VwLm66h4zDgJkVLu
60ojQwmY/VXiaKaOEOXvlZnwD5WAmcDd7exvAtTftGRMeFgCFnsZJV5tEaCF
Ju4jJ2Ik4Moiq6ur6wXoNumaICtZApSvdGX8LRWg9CSdvu4iCah23Gtw94oA
nSpc89l/QgIWhCdMbvMQoJeKge1CMh2WWIZYFK8XoJmI+LYTUnTYP08kPX+t
AB21+tiUpUKHRJNrkfYrBGhvi299tzkdQtpdjBpnC9DGsSMV/ifoUPq660dC
L4FSN90oE8bTYb657cawLgI1I1x64hIdXn3Ljt7TQSCnWMnirNt06Ax6bvmo
gUBWyil53W/oEBSqHAklBDoRWfIw7D0dBo4meXwtIBD6/vk+5RMdDg2tL01+
RCDT+xp3Nf7QQXWNyg2LbAIZmD3O8GdJwvw5eW4ZFwgUnNF0QygnCcO/1s0M
xBPoPnXs2glVSbAX3TdzPUMgzXrztKxFktD+ddnIxkgCzd789mK3kyTMkR8K
DQomEO14b4z/ZUkY2ZKTtNuRQHv2Uz38rksCe9MkC+wJ9Clwrs7W25JQo/iO
rGVDoIfOGxs2F4m5+Ka61moCuWs0zN7QLAn/lPiHRpYT6IXCfwNenZJwbICu
5m5MIB0Wo9LzpyQksWNqXxkSSDRkGeg+LAkD/y3416JPoOyqp4VO8gyAo4GB
r+cTSPp54xlHVQY81w5qzZ1HoPC8wQ3rNRmw3ju+L0OdQHapuiR7YwYYD4x9
qlAhUNG5tU22qxjAIuIyepQJpBa9LcfGigF7yyt/zFEikHDnDYe17gwQLvav
RPIE8tn8XN3ahwFptthWV45Ab1zahGsCGKC/Jm9RNpdA6abcq5YHGFDvUvOn
mi32Y7A4GI4xwOpgQmGYjNjPfHs+/xQDznXLlS+SJtBq6dM9qy4zIPL8wtBm
ptgPKavE7DoD2C79sphBIIWRF+dMbzNg6svH1jJJAkX/+ey78iEDgtdWomo6
gfq+jBuaFDHgmI2w6oeE2GfjLIkV5Qy4zfv7U1bML94YfVr2mgESMheUHGhi
n2VOD4zrGZCdQ9qcRiVQcn5w1NJmBpzSQnnDFLHf7DgXo06xv+hUKT8x70jL
0TT8yQBbg7shX8gE+nD+1ZhBPwN+s31adonZNKarbvGweD7+AT5dzLcPTt1Y
JGKAHXM6t4BEIHbQ7H36NCaUvfKS2yvmw74rrPSkmTD10uComZi7Xd0VF8oz
YdG6U18Uxeywbl+fjioTloRmr6KJudgssUJbkwlrl+mlksQ8d8mDi1r6TPDa
yhyQFnO8Zs22BcZMUE6IsNAV87BSz3LNVUyY1pM97yFmXxmK1HwrJvyNvdWa
JOYasvqXeQ5MaG7Zov5VzEajZo/nujNBaFIdaCre//U+75PqPkyQ/nb7SY6Y
6d8OeqoFMGELV2FGQ+wjtClZd04wE/Y6xbrmi7mjOl+kcoAJd4NL8+zFPq3K
69/PPsaE1ifPFMbFnPf4T5byKSacpnQnFIn9x1ydb6t4mQnGHnUlm8Xx05e8
Ixq4xoTFBka51uL4fjqg9fh1NhOywuWVzcXxX+ysqxhWyATVZybxG6UI1F5x
v86mTOyP/jglmkWgU3r6UeqvmJDWJ72sWHyeOugGPfWNTKiP1V7nLEug0wce
p2V3MMGKFPmmiEOgJd2GDke7mXB09m+hDo9AZyuMC7WFTFiRGL0XZhHI+IBp
zAmuFDhZbPqgr0qgb9/LjDcoS4HI8UeirJrYt5P5b4N54n6zKDPKXAJ1LQSn
L0ukoOaj22lFTQIlfLeeY+IsBYx+tX+URQQycar+wPaWAj2DfOsdBgT6WW5z
qmeLFFylHmhuF+ezaZr9f8l7pWCWvE+/QJz/vY4upQOJUvDtYm7IL0sCJZU3
Br++IgVb1qWaNFgRaNVC97nXbkpBXAP5SdU68fmV8DprkycFqzJEPb3rCcQv
9/HIficF9v6WCsMbxfmh+5VxtEUKmky2kvx9CXQldUu58xcp8GUVKH33I1B/
mP/86X4peL11rYrcLgKl6e4UeEuzQNA5FmpzmEBrUv/cNpBnwWWLzkbLYwT6
S9vtTVdlwZpvDyYdoglk3RWCCvVYENkxOJIWK64XV/YnsO1ZELh86yAznUD2
tOO6r+NY8CLp/N4ATKCtFabNVsksEOWvpo5UietT+GhUVToLwvXf215/S6Cs
3yHNbx6w4O3OFccN2gg0Xu9zvPYdC3qWbcgMHhTnV4ppSwNXGsIOt6EATQF6
7jh63Gm2NIwN1zaF6QnQe8mChR80pCGD0bco3UiA/h3Rjf64VBo6UgcOLLMU
IGdfJb1mD2lYvIKCs7cIkEhrNLr9qjRsdrrcknBLgHhdT/Q2ZkmDXq1fvs19
AdK+GtLacV8a8Pg307mFAuTK6tHrLJOGr8mfA7SqBOjeYFPr1y/SYD5/2PhK
nwB5lDzR/zlPBqw2xetYmglR0L6QtoCFMlBR62P3y1p83y/UPdFjJANqJQmZ
ec5C9PB6ZlvvGhmIGG8yydohRJSYCyf+bJeBMwn1l7QuC1Gebcinv7kycGTp
ocnhESEikjW8vz6RgadLXS5MkoeQUWdb27tSGXgdhldqsodQ8Z7VbQ9rZYDI
tDb9ojWE0CXF1qA/MrD0t7Xi+IYh9OFLZVOvDhsyFsowdaqHEE/7kFvrEjbE
byuMi2wZQu6h+k1VJmyQK2+LnvwxhNopqY23bdjguYnxIIw8jLq1gz/672SD
a/mA0yaLYTS0T+H917tskHB5Zh2Lh9HysreODflsmJIJ0rj1cRgdpsU0VDxj
gyHpQFdf9zASXfnv3fVqNijc+XpAjj6CaOW4fuMvNlhu/NlY5ziCFOi761q1
ZKHf7F3o7r4R5O001+7NYlkoi0iK6p4eQelpLbVPl8uCtPnA0xS5UaSmB7WX
18oCe+eWoUJz8fvSeVaN6w5Z8KwStPy6PIpM0lFVwx1ZYF3yeTPlNIZ+Ls5f
tTNPFgT7P318FjSGkl7dLCQ/k4XmgMjSutNjqK8/8pZxjSycX71mnFQxhq7z
V0Wm98kCGvuh1mEwjqLDfGYXKnJAbUX4omKdCdS6qrllRoUDoYcN7SptJ8T1
zCHJYS4H9M399Cx3T6D2a2aMXh0OBF95W3c3fwIZVc0eVTLlQMesnpNOFv9Q
j2L7xygfDuTov4wyPjiJVnU7J7zdyoHoKunDD29OouSHNTZK2znA7h8vf1kz
iSwsS9CTEA5coC7WbVMTobSg1Ec/ozjwcpEFmmkUob/GsrsMT3KglFddVEue
QlYzZzSjznLA77RVhKPhFBJcCr+meJEDWQ/sq9KSp5BdhUec3S3x/h9tXZ3r
O40yz76zSr3DAWMlJlF5aRqNuliTfuZyQEffdUtp7TTK7jU+FFnAgU5OgtEG
kxkkkpXf/vgVB2QN7gdFcEg4z78RFHo5EJn6/UQCj4zv7DrW79jHgSefM7sb
jcn4eqhW2tm/HFh5PDWw2IuM46OODo6PcuCGp2Xgzgwy3p6ucfOzJBf8uO2O
w8sp2OdWva28NBc4d5+Qc3wp2PVe+IgDhwt//TwpKmcpGIrrHF4ocaH3l1JP
QAcFqzaGTWbqckF3oJuido6K5dpV77Yv4kLIKoe8xFIqlup648oz4sJlBhEz
/JuKxwdm3z9pygXKkuiICjsabmK+8t5hz4VfAfN2aqtI4DpOCC3DiQvZOt66
Gq4SGCsqPm5z40LU+PxYz3gJnLdgt6StDxdmdP88S5mWwPGWcsV6IVzIyfwl
93CMjmNsKvwC9nFhdeqaRfkrJfFhp0CZGwe5UOuwLtohUhLv2FwWwI7iAiN4
5EISk4Etj2yTEyRy4VPwDjOeCRObRMsg3UtcUL5rWZofy8SLzz4L8k/lQq5c
pc2Bz0ysmsJ62ZTBhU7CJO7tWSk8/rgwtPixeH1rve+B0yw8+Gyz6mARF7Yd
/ujQ7y+Ne19I1miXckHhVMnmkDpp3Fy/Sf1qJRd8Ym/jwSwZ/LZJ4u3HKnH/
rTlnzeTZ+GVHfrhUHRfaJmYtUY5j4/zf1IaIRi5IymirmkbJ4pzBR0eKWrkw
pZh7unNaFl8f9Vow0MEFYxv9+l+WHBxPe3jM9wcXru6ujal6x8E75rrrWQ5z
oXB3h2E5jYf3Dx61NBznQtWcZXoS7jwc/eKW1zwRF4pKB45o5fDwNZ/Bk2Qa
Dwq2HFp3yU0O39NTSBdI8uC4LUWwPF8OF/9b9fg7iwdTO3vat7Hl8Ye0+M5K
OR7E7aeXGn6Sx18CnwifKPIAGyk2266ZhfuWf2JkqfBggc05v46CWZjWsmDZ
ifk8KL2aOJGQqYC5tx3sw7R5UJYSIuGprojV9u/389fjwbYHXyjd2Yp4Jbcy
YfVSHhht79r8BynhtV2/so1W8GDozbFhJ29l7J7Pfq5hxoMLGs3hbuPKeM96
n17KGh4s9AswT3FRwRGqJ0XCtTwA7UM3F0ur4tj/cnk/7Hjw35Jr+eofVXFW
3JjFK1cefGbYn8mNVMO0I8trUtx48P//ef8DJ/CPXQ==
        "]], LineBox[CompressedData["
1:eJwVlgk01XkUxx8PPfvTf3n/F0PKXkmlQvK7aSRM4bUozaMyNbaQLEUq4qHF
vFKWkRbKUmPrjBi0CFkzWaKVomJq8PeenZ55c8+5557POfeee7733HPP1T0Y
yDsky2AwMqT+f8yPaV5f5InBPX7jED9TG8bywnI6f8UAj7wTCz1a8CDTqpzr
j8EbK/JVIEsLTlyWNHoEYSDfLne5xkYTJJGCocHjGBQ5OW4cbebCkyDH+RVR
GGS2576kdLlw9pCaxrFoDNyX1cVMn6KA5Zxi/j0Rg8qPxp/4PA40bXbfYpuE
QUlvb03NMxIuWGjvib+MQXRVjSB7EwkaS3IiNTIwyHXpGOY6ENBJ+l7cfQOD
Zb317/7txCFF2fRGRjYGrYUHUPEhHBaNlz7V/wMDD19xb+cVDPQa6hStHmJA
N/q/DVyyEL5UJWqersZA2d9vw5FWDcgv2baitg6D2pnr5RFRGmCa8dJleysG
8c2lU7qf2ED/ln4wuR2D8k0lFUEZbLgfyw951YWBrnKFtuUuNqwP+Jx6sBcD
F8WHj0JvqMPMwfz83H4M5uutI8MWq0OV25HKfwcwkNgVf4y7owawabwnjMZg
RIc3q1GpCo64vMF5GRxc76UKbdVVYGmbXVa8PA5bDm56HHtfGeYuCrRjFXFY
U7J0xmaPMhQsYHGiNHC4k2tXVXFXCdizSqxAXRxYAWVhfj6KMFjmFOunL51D
2pgrQ1sRqkMuMLyNcfC0HCK8O1kQPKw6vX8VDnUG30ICt7Dg5Uf2V94mHOTJ
hmuPNy6Awuuuh53tcPBKdxuxn1cAwb7LfU4OOITzj4ysfqoAFi+xtz+64vB8
77mPzJ8U4PcGsmXdARwcX/tlBwbIw/4ircJF0TjY4/df5HxhgqU/34QTh8Na
p5bz//zFhIXG13OwRBwEFiYjCklMqMnSuaFyCQdJ3bzoLwsmGKQsEUpu4qAi
1jp6OFUWJDwvldnbOEzX+zn1BclCt/rthMk8HK5Ou0aoOclCQqJ+NF2Mw+S+
IZnDMrLw7aRRcN8TqR5T4GaGykCtpc9wTy0OsPdph/5OGbg2ke/7tgGHgfPf
XtuskYHtQcu8Ol/goHuavRQXM6DYy3Tnsw84nN3FlIweZ0CYo/m6uwwCuvL3
DEysnUcjm3OzLssRIHzUUbOFOY+8Ny5Sj2QRUFmyNdStTYL2mTEGndgEuAaw
zt4LlCAgW9KHdAjQGmo6Vvrnd6Tc5/XdDBEg84+nizt/DsW+7fLhbiaA8HNt
YK+dQ5JOhy4ZewI0xTHFO1TnEF2/sqh9OwH9K9knQx7Poq6C2f0hHgR8NQ0w
fW88i26eSK4tiyJAo8LIZycxg7jHFFbdjCYgHI/7UjE2jS77n8hMiCNgebqz
3PnOaRTn6Rm296K0n66V5oGr08jXbpnR7DUCxD9+rSrVnEbmGjXnbaoI2CIy
08i1nEIFSuumDJ4QEGB9zWFQewoZyOX/ol5LwMF7F5dEyk0h7mTSxg/NBBQc
vVQvfDGJJO/cR6LfEvBGOFXj7j+JGvNEvLoZAjpcdXghJRNoql62UnaegIHq
EY5P+gQyGFi4FJgk8EvfN+ZHT6AY/TXiCmUSTqXf8lXaMYGss44lF2uRkO22
fYPJ9DgqzhjryLAhYf/rEorJG0c9FXLWr21JePFHUZCVzThSfYPfJu2lrEiy
C03GkS+1NuSSMwlMtbX9W+TGkd7VUDx+PwmqebPDRhVjKC1pYmdwDAk7QpvO
KpuNoWcFCg+LBCRYPfo5qkBnDI23kPpD50gI5+7yOqM+hnjK68d/TSaBrW8i
fDAiRioJ4Vf5t0m4d73aaed9MToTPfVyq/SOeeyxfP4OiVHhTZaNoImEY4+9
nJxWi9H7x1ROTSsJv1kpuPTpiZGVxCLMpluqL/Lz0gQlMRqLOEGaD5KQ+svi
wZxuEfIOmdmto8SBjvip1K7jIlSwL94YV+NAFOshe1+ACIls8TnWQg6M2Kr+
/N1LhCI1TG+JuBzojnji+ruzCCUVHvhWZ8yBrWS7k6mRCJUONpz2d+CAaS7j
rKBnFM38vYt3YBsHqsfoE40vR5FNWZ/eblcObC50dTd4Pooa4uYa0V4OVKpf
lCyvGkXvlpjhmA8HnAoaSe+MUSTLT837K4EDeZX1Nr4eo8j+R73IwgscUDOi
SXO3UXRhWcm2bCEHspKj2nGXUUTMNIkupHHg92GLnxbZjiKjVIn1/jwOqLo8
fWNmOIq2tx1qU2jggEV5g4zfOI2Sy0XZs80c2Ji2q1Y4QqNXN06H0X9zAMu6
SzT/Q6MDAemab7ql9U0mn0720ChE+fmhggGp3qd4c1sDjTLszGd2LKBg/k24
veEtGt0tcEt9pExBz8CtlPkMGpUTkebGbArWbVZyHEmhUdfn6gAJRUHbgxg3
/CKN2ALn/jwTCkzOaSUejaCRznDwGWwlBUJzu6MyYTQy3Z3yw6k10vyAlTW5
R2nkZPDebYc1Bd5xF9as96GR4Jlvy/dtFKjyg3d67KXRVdMkH28eBXK7Da9c
30Wj2yklCh27KXCO3eo/5kqj6sNTkOdJQfH9awkfHGk0pyAo5R2lAMg0+fKN
NFIOzOc9DKXg6sxvaVlWNFrU3TJiGEFBtG0olbWeRutzMZPvMRTcQF+Te1fR
KNj+1vXcKxQcTxlO5BnSKLqodsPCdApCm/qFfXo0EnIGX53MpGC5eficYAmN
CgZMMV4OBa+DHetVtGlU5cwrrrpLgftAhdKwJo2aykK3GRZRkGZoHNnPpdFg
fFX8XBkFiuV0sRJJo8mRXr1fqyiQfxjjYY3TSGEP82nbEwo8kmIUYxbSaKmR
41xOIwVrEwtWOKjTaLXwSLpGKwVlX2WTm1RpBFPCdSfbKdjD57Z6qtDIo6E7
yPUtBYYf1mTXKdLoiNmsalUvBRFjsCKFRaOTadr3DD5J9a9efCRiAY3OMWy3
XhqkoOXdgp+DFWiU7n3o8+y/FPxZmyuOkqdR3ouEmMOjFPR9MzLNlKPRA4s/
dNrGpfuxfIXCCyaN6m7+XbVhhoJz31rDSCl3ssR7cyQUPGq6GRkkS6P+IHKS
zeRCvF8Bu0eGRqJXllciF3Dh1Krw1Z5SZmzir/qizIVPalPvxQwaqeefaXVh
cyHD7Rb7mpS1NW77VeJcIDP2NbhJefmJepYBlwur4gRMQylv+Pj1jvAHLsg+
m3qiKGVHB7XNs9I/6grjf6PRf884SHk=
        "]]},
      Annotation[#, 
       "Charting`Private`Tag$21898#1"]& ], {}}, {{}, {}}, {{}, {}}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->
   NCache[{{(-2) Pi, 2 Pi}, {-7.670377324776675, 
     7.6536786226419435`}}, {{-6.283185307179586, 
    6.283185307179586}, {-7.670377324776675, 7.6536786226419435`}}],
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.907138912020046*^9},
 CellLabel->
  "Out[182]=",ExpressionUUID->"8239de86-7fa4-4e8c-b23d-347f0900446f"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"-", "2"}], " ", "\[Pi]"}], "<", "x", "<", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{"3", " ", "\[Pi]"}], "2"]}]}], "||", 
  RowBox[{
   RowBox[{"-", 
    FractionBox[
     RowBox[{"3", " ", "\[Pi]"}], "2"]}], "<", "x", "<", 
   RowBox[{"-", "\[Pi]"}]}], "||", 
  RowBox[{"0", "<", "x", "<", 
   FractionBox["\[Pi]", "2"]}], "||", 
  RowBox[{
   FractionBox["\[Pi]", "2"], "<", "x", "<", "\[Pi]"}]}]], "Output",
 CellChangeTimes->{3.907138912113839*^9},
 CellLabel->
  "Out[183]=",ExpressionUUID->"d9ad12c0-2e18-4c41-9f52-6ca7e5e90da9"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", "\[Pi]"}], "<", "x", "<", 
   RowBox[{"-", 
    FractionBox["\[Pi]", "2"]}]}], "||", 
  RowBox[{
   RowBox[{"-", 
    FractionBox["\[Pi]", "2"]}], "<", "x", "<", "0"}], "||", 
  RowBox[{"\[Pi]", "<", "x", "<", 
   FractionBox[
    RowBox[{"3", " ", "\[Pi]"}], "2"]}], "||", 
  RowBox[{
   FractionBox[
    RowBox[{"3", " ", "\[Pi]"}], "2"], "<", "x", "<", 
   RowBox[{"2", " ", "\[Pi]"}]}]}]], "Output",
 CellChangeTimes->{3.907138912223181*^9},
 CellLabel->
  "Out[184]=",ExpressionUUID->"6873a368-f4d2-4c90-ae0b-3c2fd60cd63e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"Cot", "[", "x", "]"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{
      RowBox[{"-", "2"}], " ", "\[Pi]"}], ",", 
     RowBox[{"2", " ", "\[Pi]"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Reduce", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"Cot", "[", "x", "]"}], ",", "x"}], "]"}], ">", "0"}], ",", 
     RowBox[{"x", "\[GreaterEqual]", 
      RowBox[{
       RowBox[{"-", "2"}], " ", "\[Pi]"}]}], ",", 
     RowBox[{"x", "\[LessEqual]", 
      RowBox[{"2", " ", "\[Pi]"}]}]}], "}"}], ",", "x"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Reduce", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"Cot", "[", "x", "]"}], ",", "x"}], "]"}], "<", "0"}], ",", 
     RowBox[{"x", "\[GreaterEqual]", 
      RowBox[{
       RowBox[{"-", "2"}], " ", "\[Pi]"}]}], ",", 
     RowBox[{"x", "\[LessEqual]", 
      RowBox[{"2", " ", "\[Pi]"}]}]}], "}"}], ",", "x"}], "]"}]}], "Input",
 CellChangeTimes->{{3.9071389179735074`*^9, 3.907138929645977*^9}},
 CellLabel->
  "In[185]:=",ExpressionUUID->"1f7079b1-d7f3-4a1a-89c4-8a3282d9336a"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVjGk8VAsfgMeuObOPmXNGrqV9ESMpSc4pUkoZW8lVSqWUaFGE0i25yMXU
JNVEbkpIKdsVOv+SUrYhiaLspDDZ72R57/vh+T2/58tj4OXvdECZQqEU/Mf/
vSZbu+b4JQwsXANZbyYExMACBw/dcAx07tp/v1kiIL5eKZlleB6D/X7+Kbba
AkI2vbRgdSgGGaFvTdPPYcTTBk2OawAG6dVO9kEeKHF3fSDpdQyDvb9O+Y3W
8wnJoy7fY74Y6C65Sd3kzCdOR7x8c3k/BrURNzZPePKIg0PCUzf2YCBywjc9
6tci3HYnz0nzwKA/37m/N0yLsFgZevalCwaFAheLtmwusfTvviUyEQZ2FMXM
fAcuocPY2dhij0GbXnHhpJxDTHWZmf5rg4HKpqJFUisOMeCY2qq+DgMl0/Jw
pI9NfCnhxGqtxSDZpCt6ZyKbgGuDvcZmGOzacDppepJFhG9IT/Kej0HMFexE
bRmTgMvBIj0DDG7FOJB3zJnEZO0W5UYdDE77j3wbf8wgTu4eOGCnhcGVFT4j
ezLphFeg6TJDFQyqxz2WVNYgRFKJ6tfOaRSeYm5RvnsRokmlIf62AoUCftb9
xWNUQhQfNMIYQiF97Re/k4uoBJ5eUvSzFYU+s7xRxUNNIngw9mhGMwqCbZFT
C100iXyzPXr7GlHYEk3cjZvSIIxeKl+sr0GBU/qQ+c92DULn88bNBc9RWO4+
q3GTvjrhZiCY9H+GwuElsbd/+6hGSA72ZS3KRyGwM74rMU6NQEZi2DezULBF
99/fpKZGKGh1jaFSFLDnVUcwZVVipfPdaLNEFMZ7q2LTXqkQJ24EWA5cRWHf
D/MlQZEqxLf56B3Pyyh45NTp5HFViEYrj4Prg1G4Rx41TlylTGhdWib4dQoF
A+uV6ktUlAlRxfS7nOMoODVX0/JrlIg3O1KM5vug8HlZtX/yESUi/1j3qIYb
CqebjxOKLAoxlF+QBs4oGEcd1kk6TyGMpiJ3nnFAQZ7QdFTThULci1pa0meL
Qrt6QI2ZYgaX/H0svMoMhcji7mbXx9P48XoF5yoXhc4bETZrXCfxBCcHdwkT
BXfock3kTuLFsrsp1xAUDl4I7W2q+4WrV9kLE1VQ6F9RZT7m/AuXliVtvT3M
h6eXXCzpexR4ef76yLT3fLgtFm0avDWBD6y4XvOghg83JhbIgrwncG7Od35G
BR/QRTlrU00m8N2PJfcelvLBpmT3h/dvx/HhtO6XT3L4UKaf0ocrjeO6N6Kn
iq7yoWXnK9anqFHcBv1qUxLHh0xCc3r+rlHc55ppzPPLfNDd7BDZKxzFc8XN
2i8u/vcvbq8ubxrB7aKNzF+f5INl7KOjxcIRPCCk7oTMmQ935picK/85hL/b
pd3byeXDV66h+Zo8Oe6QbIkrmHzo85Oek0rkeH3r7gQmjQ/LucO5eIAcb9l3
18ZClQ+C0nOdG1fIcbmPYUrcCA+2v/mdFek3iKOnrdwtPvBA9vrBAiK+H98f
61UZl8CDtb7ZB/L1+vBvNeFz713hQc+i6bcPvn/D/dhpwc9ieSAxXRjWX/AN
D5R8X9QVwYPXM6ytPo7f8OibAZcsAnkw3dQnQSJ78ez7EVZdO3gwu9HFgKPS
g089z8i2EPDgw5dJ2sPFnXjlJ2PaLy0ezGOWCUSKDlw6lnuwiMUDcRy9cnlF
B25pROpaavLAMS8jNvtoBx58+33M2nEtWKiQ2Z7Ka8fHQiYPER+04KJ32P0j
Dm243Hybga1YC3a+NvEqcWjBO57+FDvO0oLBtV5SY/F7fGWKev1fCBfOpNgh
b+jpuOWcOqPLE2zgjH8YXy2pJO9wkRXOI2xYaNH+nDenilRRs1k9W84G+t/4
E7PsKvJdT551Zg8bKq2vv99YVU26Zd1wq2hgg2eifoffJRkZYL73ApLHBpAZ
v4t7V0c+3Cb/cPk4G8SuPH1x0EeSRSz+7HyUDZcHH0jWl30kT5p4tc72YcNT
YdhKIaeRtNCq78vcw4aOU9M1pQ8byfKmgpkKBzbcugRxPZ1NZOf+sMU0IzbI
/ZL1Vb2aSZ0QxtmYPhbUfvTOTatoJX1S36G3u1mgodVZ2zHcSuZXRTzNamdB
ZMy7UTudNtJRf6an+hMLtFfZX0s42kZGlA06sStYoLTvQsg6Tjs5yKxdlJD5
Xw/k5njv7yBfpl6tT/ZlweOVu9Myhd0ks9rBP/sQC4YzZgSHPbtJj3GE+mI/
C9xM3NV9YrvJcbtwvN2DBakTf31Y2t9NGg4GZMzbyoIKjbD6L1k95LXV28+n
L2NBqOFMV53lN1ImNXHzbmGCkos3fjPxB0lJ9U9oqWeCzs+wTxYNP0hhZla9
SyUTpJeoB5y0+sn4wsWO1kVM+MPEYqRf3E+KGgw2699ggou6fQPj6gApY3Is
P7kwweaY/2ffHXKSgoqCHe2Z4LzkgfREsJwU6sb+U27NhIutaWllt+VkvCHV
rGA5E642dH5365KTIjtlIwmLCY83Gsz6PegnKbswpLetkgHclg2heo+HSEq0
cHdZKQNMD32mZ3wcIoViP6llEQNWZJpO3aQMk/HJfdjSDAZM5cSKC5yHSVFx
O1szkgHMvzJOcGeGSdloncpLawbMnbvGnvAdJSlTrPWr1zDgSVpzrrF0lBSq
OpzPXs4AYVmaRkblKBnPqZhMMmDArfCe4s3GY6TIuHQ0ZIYOL+fYDMb9GiNr
DuX0mBXRYV5eLoWRM0HWfR0XWeXQYV3Krj/tvk2QDdstn9lm0sFaqG1tpP8v
2WxTFrPjFh04q66nKMX/S/bpfzQ5E0KHMenb1NVBClK1SRFSvIYOtD9OUKR+
k6SmCO96ZUoHq6Stzk5PJknkzcVtVUvpYPvDVjoxMkly8mgGX2bTgae/7sXS
sClST6z7euYXDebOZhz5kDxNWtitZ1kX0yBKY043P4YCVhBxZksuDaYTXd+H
5FNg3aqKdueHNDCPcrp5pY0Cm+a75O2X0mBr+oq23tVK4Krk7R4RSoNxeefp
8mElcAvKKI0NoMGBM9M2W+Ypg8fggOF1XxoMf8TmZboqg1dL4EyaBw1U984q
nF2kDMcKo1LfWtLAKihAcEGsAgHCanrdChrQsjpfZb1VgcA0TuAnQxro7tvT
LFdWhXPXbtl916HBVZOmA61BqnD5eNYAbQqBuRxet/9JNYjt/bmDN4rAc5/z
hZ55anDFc+WL3/oRwCQHigom1CBxK3nVqAWB3/TapLUX1eH+4lpzUQkCIfxC
2sIsDTi08MmL83kIUNV+XbRSaMCS+eLNT7IQoLlH7dK104RH+o4enCQEul2y
/gz+oQkFaG1Y/TkE1HxeXHm4hQrBvCeaaoEIxJcc41LTqWDJFYvN/BHwrGf/
rNZEABiOdxM8EbiVcWTPcA0C5Wq1r90IBC5qOoX+E0aHaJUnDlHmCBgkuXm7
D9PBXkncWChE4FFq02fXwwyonRT1aRsgEKH4WDjmxQSJQnhyiwCBxeayTnkn
E7ZPsCZD2AhkG3isCzRjwadhGb1FCQFvlfc+X16wQPozO4GuoMJ5CSY4i7Bh
92C8ntUQFWYCvgRE72BDe5/IJLmdCm3YIYeT42z43iZz2VtKBSWVoVyJOxce
fc1uERdRYaeg5UVOEReOtcR7v8yhQv3sx/Yx+low0igKmptKhdHSWY6OY1qQ
3yBUcpFSYW3e0OmSgzwIqmdFh0uogPG3n+po4cFkjexWVzgV2oO5F6RNfHhe
lT2Pf5YKCwvYW9s8UThfEZ9le4oKEc8vsDf8QEHtjYhMO0AF5wW+W40FAih/
JdzUuIsKnDb7vNxnAqCkrV22cCcVGK3a82/ra8P/AHtnnIg=
        "]], LineBox[CompressedData["
1:eJwVlnc81f8fxe91l7jZlFvfLkJfq6F96+vzUUZDiL4hsyvayCzjm4zMhghR
KiQ0jJRReb0rRVYZ1ya51x5ZV8bFr98f53Ee56/z3/McRbarmZMQgUAo/qP/
e+u0nvzcAA2x/vWRKJ+Vx0tMXned6aOhhCMr/bqRPC4lZO32q5OGiPeZ9tmS
8vhH54xYQTUNZR+NG9pQswpnyBupBJfR0M6L6xvu7ViFu1dNvFnxjoaC5JzY
a57K4Yqb/2mTe0ZDx3PaZRyTZXEjs8H4jWk0RM91JgSpyuKXPe+aGyTTEPld
wEbjNzJ4bdFotVcUDbXXPeQ09Ujjc233Im4E01BElUyvzFVpXHlR3+CJHw19
Ez92SogpjfvqpkDjeRrya6y3Yp6Vwp84HvIfcaSh/TtU8iekpPDvoTO7yDY0
xA7ouV8EkviGSuP8rUY0tKwsfDRKURJvNFtOv6NJQ7qq7roPhCTwZc9nJ7OV
acjEj9KeGyiOqydYrPu4loZywjJ9mQRxPLA9J2GCTkOf75ATNouI4VqnHCJN
R6lob1SW1XsDOm55nW54ppeKMhjf7/l1iuIhmUWkwE4qMtBUWCT7iOJtIxIB
OTVUZG1uYErLF8Gve31wFXtJRbvq9zkv6q3A8xIuaqpmUFHiYars3l/CeEex
/OA/KVSUrvy+LSRZGNdeusS+eJOKRoyaAgbnaPiP60r/VrtQ0U31FrpiNRUX
yaqV5DlT0Zs5pnlVCBXfUeVbu2BHRXeHw/WXdKh4tHiDoYYJFfncOxtTWUjB
dyUGsyI3URGh7w7KKybjjiWbfj/e8Kf/I4tkFkDGb3a0vypmUlGBZ9q0wj4y
zlPYpjUoTkV858UDqt9IeEwWj3lgnIKKb4UZ9fCF8KESfQo1j4LM5yy4Ja5E
/FlMYaVHJgUd5SWLcHWI+IUzard/PqSgPAOt6iExIj4qu3LN+5sU1PCrqe9q
HgEfd2vc7HmBgprjLPLXEgh4nqHBzE9HCrpuydPY9WwZc19X9NbEmoL2WKuF
3LdYxqaqkg00DlGQBmOLpVvBEjaj6mjTs4GCVnguGZsELGKFi42KpkwKYtd9
7gnSXsQuNxr0v5ejIAO1JyUtAwJs7pq6+z0KBb2cSMyqtRRggo6JMFMuGYnb
5ev8rb+ACcUGvipNISPelIi33aE57NPZycua8WSktsnGplJsDgvBT+kk3SCj
iNasXkHDLEYZM/zq5U9GMe/Hg9MdZjHhg+I/NE+QUbrcHo2ooN+Y2PIDkWRZ
MiJOxSz59vKxbxzx78IryWjTZtuDwQV87Pbza3e9yWTU7rBznXwIH5M84aRg
NkVCqW1BrB5lPibzWnPHijoSYr8Pm3l4YRpbc/7tSZ9oErL7a6vVc6kpLKmi
wmBlCAntSK4ZVRiaxBiqTRppfiTkWXSlde7Dn/xznF97joRokxcS6twnsdUW
qpGqB0mIGXFEfLBlApPZH5PPoZDQ6akWB6vX4xh9zWnStqtCqN/URKLm8CgW
fdlz4Ku3EILqR3LqYqOYaNO1GnsXIRRTknha8H0EE4m5nxBlK4SG3FPS5yxG
MGFavQZ3jxBScLgRrXJ+GKNM7T12Z5aIHOyHbDjpg9hSpdST8UtElLFKp/WO
dR92NFH19apzRHRF6q2xQLMPS3difdZhE1FbLX08fakXO0Rg90abEdFgAPd4
bmovFr89T0VtKxH5VspVJo7yMK1HJhknpwlI+HpSvNBNLmbjFf203puAklSG
Pf6d7sY8MPqxs7+XIDF6zUPjiy2Y3n4IdexbghkLUsZ5ZgsmZ+heaMtZgoOr
XUTL65qxIuMWhtmrJWhSPLdy+85mTGCb/pPlugRnxQ2wBnITFuK/15Xevwgv
5pi1h7IbsPjiC5E5TQJI4v3kmm+uxYq21iD+63mIb3en5h0rxnIkv+Suej8D
dZ6RQSuMPoGZneSh7mczIORWo77Y8glmsm24mUkzoHyKz2U6l8FevSlZ1uUZ
KMIotNnAz1DhreBns3UG9mQ8HJYvLofudl/9x1l8UJO/W3VyWzVIZmxqU4+f
hkfhDbaFufVQMOnrMRUyDWXf0tZHL9SDJfaF/s5jGgblst7dNmiAlBYb7MjR
afhPza1ds7MB1EUj013p0/DtzL5TX+kc2OfGcykImoLc9I9x9t7N4MG6R9Jx
nYT+TwWq3CsdEBe3puO43STkq3ikCld1QMHYgwLXI5OQyY1w8lvbCTOpqU6P
NSYhdJBqfQR1wmXR5+XkgQnQffObUCb6A/7rKI2qcpiAtLKkK+Gt3RD+H0/a
ymwcbs0e+22dwYXMFueRS7rjkJmT20XjcOGr9mBZ5OZxUHxyU3SCxAOR/lGv
d2LjcIO069N/bB4wHo7lYPG/YBf3p9FjpV5Q0ZXZVRM2BhnFu1kdOX3ACrU/
MHBuBNzoklItlCH4OhvwxO7wCJgU7GeeZg2B5YX7QhyNEWhyIFgfdh0CL/PW
dx9GhqE511B3ddsQ5Cqab0l2GYZF/rFN/a+GYUOpAcPYfQjeRXGHwq6Mwpst
Tj5lZkNQKh54SrhgFPSeBDeytg7ByoWRg9Njo8CORjc3TA/C+qaL9TLOY5By
gkUieg9CTNrdgadWv0Dmt9bIqysDcHe4fwfn2TiknTM6qH5iAHoy9ia3VY+D
dte5jEesAVAOC05RHhsH089PHW4s9IOhTchA5JYJiIpV5DgH9IOW9vUU9HYC
hDbLlspf6wO2U/V8b9ck/DojuHU1nAcbbQ+qGZ/jQ+PLLRLGzjwIZUiwjZL4
UDLtfHutHg/eOwi6OJV8CAmsu128zIV7OgvEeK0ZYCRmxEx5c2F5Krp63fwM
6JWbxp526oHj4cpMVv4sqK28Lr1jfw9cs0zQdRmZBTHzt7FkxR4YfKF/3mnD
HLR2qcQ97vgJ7BOzoS8fzoHLzHxcu/lPyDdINd2UNA+JKk/iTfZ1g08H5+/w
twIION8mt06hGxyM4gTG5EX4zGZubF34AUXV+jRt40U44Tu9UdrjB1g9zxo8
27sIoVkpm8NOdoHVy1ITP6VlMN2+YovyX11Arf1RIvBcBsYHjy0fWjrhsNnZ
F+0Vy5DbckB7waQT1iYUHbjAIqA22tRWV50OMIoN/+Dzi4DSY2230efbwUuF
KVu6johcmRXbsl63w9gh/9tdxkRE3vlgO1ezHfZH5taV5xHRRmfDnRZr2mAP
PZC+HCSEgsuSWdhsMyBGpaLSnx0YqN0d61TUDIOGvv22f3bEuLV5OOpyMyjt
lJavbyAjxpj0g5bZJvDTG70ebUZBuauily/NccBXP6s30IGK5JTULROLOXDL
tKag4CkV+WlW5JZe4UCootvxq+N/foYumS063wikDINN0mE01HnOvyx9vgH8
qQFPp78Ko31ejL+qShpg+OZ92yTmCpR5tchrwrcB1rnWnrH3WYE846ZVdf5w
QuJ22d4HWiJIpPRCRPNCHdDHstOCCkWRW4VIz+LbOpDhC3YXKtARpz6Tpexf
B0N3wte3RNPRo37esJvgOyyIP+hku6xELkol92Xmv4H96bSM7BPiaPfOmSMn
fb8BIr+N0/8hjshG2ssv5muh9MznVNo2CZTslX3ScKEGpFKbTwV9kkDOkX1S
cX41UKrScqheTBJpP1Qq616oBiYvru2FjSSqqEhS9RVUQdKxCHYsQQrFdjY1
f/GvgiLl246Dx6WQ3aRUhPRiJah3ZSQ45koh/pqo4eeLXyHOV6Q14KI0UnL1
y/2xVA6pQd2q2nKyaDS48KTm1XIIwR3Kr0bJoqLEKakry19AT3q1Iocih0w+
nveSInyBCLrWGb7IKsRofqpq/4fL0tu1O4LjV6G+YW7zM8Jn+J1LpqT9vRr5
y9qw9IllUFFr7hzJlkeG6onDMdc+QW/2Nx0XUQaSqfEItXT/BGLdDJUHCgz0
PwV2/NQ=
        "]], LineBox[CompressedData["
1:eJwVkmk8lYkegM9+LGXfZeIkU2KUmoqG/z8h7aVEyC7XdojSNqUkohJCRUYh
Ck0LGZW8r12urexLOvYlxOHY5c798Pyeb8+nR83Jx9yVRqFQ3v3L/z1/XeND
1N1i0Lc4J1E+q4iRCw23qeIloH9GaqbzsCJe2XTD4ktcCWj1ncyRSldAm8S+
fv+0UvA7sHhqh5c87q2PfWn8WxlUZqpvpLbJ4XZh0/OyuWWQ3pFeGH5QDmXO
pgn/U1oOBs7yXop7ZZGWefxL6IEKEK5THTlUJ4PjPFaCVWMFmHJorRk2Mli9
301rvvcTuLyVMQu/Ko35QfKCSq9KCHqcs/GyojRm5JV/TJiqBNR/JOqbK4Uh
6usOGTCq4LYFvctrQRLPWLfIi92uAumovw+tTJFEp8ibvE7parj1aq6m9YAk
wuLg6atrakBrec5zX5YELg4dq3RUqwNlBZ72ooQ4TjJe/LbXtQ4i50ZH08LF
cHg1857u8zpoX7VixTUhMWyxeGtD3/QZcgY2jS2Kr8S3hbKjqfgFnMvz4nfv
EcWsDu8jd4K/gNrCX7Jh30Qwdab07dmKLxAXtpXx5rwIRmsHXDE9XA8q7+4n
QbYwch82iQ/aN0CTVm+fmakQuub8dqYupQGsMu8X/jPORtvakJa8gQbwDaiz
hkQ27mNuexLm0wg2s66LZossXHf6vu6GwCYYK7Vdu7+Oiatv/4iTLm4C42hf
68AwJsql715YYDXD+97FGCNjJjK+zhRXRTTDoy7OrFEBA7vMrCy4f7VAqKuf
1uciOhr2/elY/bUFVET8rRVu0TH+2hNvLZVWIGezYz2O0dH8/fCN4YRWGNty
YZ3kMA2LNlzOPfWwDWzzvj1MVKXhLxVPikpb2mD96zzi9DgVL7qU1agrtEO9
ZvKcYiEVdRPFB7rj2sGvz7Go1oWKyWLJ8vYxHZB7WI674y0Ff2aUrSmo74DB
UbaH4i0KWu/+rqMi/RUYI6+ikx0pKHV1i1l71FfQPiqu8VSCgtcnys5b3u2E
PyYfx059/wm6w4KRX014IF3rGRnydhEctgv5N7vwYH08p4njvwgRIUpzIcE8
uB6utjd90yIMc4DZX8yDHkkd1rHXC5Bsc1Ml1agLVru9Uc55Pw/S1UoHVbEb
dgmrqeZNzIKRsnZDrX03/HgQIPnmwyz4uoN1YGA3lCZR3A+HzEIV0+VUZ0E3
JCoTKt4qsxBs+OLKI4MeOBOdolJrPgNTL+Glwo5eeBe7h/uuWQBVG3ZI+Z7s
hW+ck6sb0wSQkr71bHlgL7RGs5hXAgRgnqS9I6CkFzzNvPZ4yQvgdYRyef2B
PhBkbk/0tZ8CrvdMZ4RDP6xM+xq3yJwE0yH+zv6gfrgrNRhFdPBBxXUs1eBp
P7g1ajoNZ/OhyrbPY2SoH0IrO6m+znzQ3F8/vcd/AIKXbJSFyydgQPOlGDNk
EN5MdWrSksahIC3jtO2zQXCqEJwOuDQOcZy0huzKQXha4j6/3WocTJUS453E
h+Dp29zIFKlxSBW+pUE+GIKzd/MNm2V/gMPgKcNLmcMQ8Vhe5IbEKLQ9/YU7
UTcCKof3hjHthiCXlWX+jD8CWfnbL+z/dQjuuelts5cZBarQdOHo+CDsX3+M
Um05Cu0bLwvr3xiEgqyw6Gedo7AqWte18fUAPMmeyrUfGYPnzp5RQkr9kOPQ
t9x/fRyKmwK3dv3SA5e4H8wskvgQpzrd+TimHYxA4CL2kg/K6USp9t52EJHQ
uVZewIeHVwemZ5fb4MHr5Hd6nXyw9F4sN/Vqg9ypMM1fVCZhgs+Oeba7FfgX
rVYMxE/CqlUU71qhZvAIFdSej5uCf1bpjbu8/AJWj3UsH92ZhsarUUy9zyVw
KvQT7VvdPIR12TmVsT8QtuKe/3zizYOAYzPoLJxPHLm/witnfB7OWVbG6Yl+
JP5IP9QYJrEAL+6b5MSKE4RUeWP6lsML0BVzL/3pnULiI6t7f3jtAhikz0wZ
PS4lZELm436vWQRrv9zI8sFqojh4w4bb//0JFTfdbZSeNhP6y7GPNdp/wj7Z
rGLOSDPx5gJFrnD4J+zSUxay39xCJHMbKdPCy2BE/L4hoKiFCLIKbLI3W4a1
J95wt/S0EkZa9dc2ly7DxXT7vak6HQTP3cDL256CdguncnUv84hV6fw0fTcK
jtSUkiWpPMKqN72L7UNBIRygB1bxiDo7KcvkKxTMGGXYcld1EeTRgZ3NiRR8
HOZaubugi0gyiJLf2UFBiBV4uIn0EHaSfUUyJ6jIMFHvaazoIxjxDVO3HKlI
1u5j3pzvIzI4JRp0DyoWyps8DNLqJ2Y2p4RPXKTi5mo1a4uofiLyuKN5zSMq
2nkryUbaDRDFCV+7QnlUtBwxlHQUGiI81KullwepmDt3SlUdhgiJF/kmARNU
VD+WNGIUMETYFiQ8d6HR0J3jZv6wb4iY5p04vVOdhl/XEG2fK4aJdRpNlAU3
Gt4cPfJrdfIIUfN3qa6fLw2l0z+PUHkjxNltb12GztMwakc4M0tllCgyi6lo
DqNhc6hatlv8KGHjaR6Zk0nD7sALz7MfjhERr2pWc3/QcGe+RvF7q3FiUr/c
sCuAjkcPvqk5ncknyo6+Mim/Qsc6sZ7d3+v4xAOvh/tfhNCxb+1lrfxpPmH4
l6f1hTg62jgHbvfYNUmEUyUCJHPp+HF9kPGarkmCU2H1YqeAjpEhz6JCdQSE
gLcz59clOvavvigFNgKiYk7zw0omA99/uur678sEd8NSRasMA/NUJdat7RIQ
7yOe9J7ewkCKHZnpET9NHLEYVk72Z2BD0nFhF41ZQp1bz7l5iYFGqn6zF61n
iemQ/PXc6wy8WRfmrHN3lniUF7FN/x4DUzOWki7PzxKDypuPfnnzb984yUq8
dY642n0pnMZnYFacz64T7xaIowsuUYNzDDQ1SDGmzC0QGjIHH9RQmTjx3iAo
WG+RqDJRTYuXZGLCFn+K3sdFQuF5SaHuJiYedHIWHapdIl76rJxz8mXin3t1
DNukKeRI/cYZ/nkmrldjSZwECqm5/Zgg6BoTRT79mfGXJ4VMpSRMJEcz8fWs
Z71/GYWMj1o33J3DRKOlwhmhECrZLNg36PeRifQp99o1eVRSxtqnn1bGxOAf
N3x++04l73JyuznNTIxWzLDZeIxGBmfvaneaY+KaKytulOrSySJ5t1Y+lYVa
3hI+O7zp5PKl8OYgERYeoThY9z6jkxeNP9cnK7Nw9fY0odk1DNKn0a6q24CF
z7fGLdlpMsksvaBKP1MWTp218kv2YZLDiU8raIdYOCG2/tW5XCbpcmqkhOPA
Qs8/UpSk9rBI65kLH52CWLhfqiio8jqbvG+T+IEfzsKlGbUum2Y22UCQ74Lu
sTBX/racsLYQeegmOzc5lYUlPjx1sW9CpLFi7N/dZSzkRWn3uDuIkEGX87L8
allofsvS+GK5CEl0tWfQWlgo2hSacm6TKKmfwUnnDLEwVetyPim2gtTZ8SrJ
SZSN4UFZzu/4K0mvpPpEvjQbXdsSdh89K0Zm0GcSglaxMUB40yeNRTFSvcrg
QbI2GyNTv3lliUqQThsd43S3stH9P3byCsclyKSY4JgiQzZeX+n3t2KKBKl0
8r+R3YfYOP97xwNfE0nSsnAsws+KjVzunQ+yCZJkzFqpOzRHNubf7xkbn5Qk
xceswjh+bHx2sFdz5SspkhHYf80pho0clSJbjpUMyfWnWzg+YmOgI/V1XqkM
2eKmus4hlY38lHallm2yZNZh65qTOWy8K5U51K0pR8qZnHtim8/Gw/092eey
5MirejFnbErYSCuTHR3aLE8e49QonWhgo+mk2J9yxxXIArnvo5YdbJS/sqRf
PKFArhMVKjzey8ZlV4f+LbGKpKOv6uSzYTaK8ZTWJqoqkf8DaA6WZA==
        "]], LineBox[CompressedData["
1:eJwVVmk4VQsXRsYzOec45+yNSsrMjaThSu3VIOIiRyoaDKUQKqSLjGUoUilT
xUUSFUURor1dmTKVMS6SKfNwjBk/34/1rGf9Wet91/O+61mytpe5dgJ8fHxZ
a/H/XFfPLViyJIG2+XV6+bwk9Bbq3+qzIsGzIbNHN+9Jgnas4XDkZRJM/WeS
2nUchT6hmgSH6yQoa06X1ilF4L6bMRf8SGCQ/X2SoY1Av7Fp/mgECRbZCXoB
OzjwoLDe6XM0CbATB26e+sgGHZVjm54kkMBebKZI/TAbIoVOhOhnkkA3llka
48CCvW7ftWVySSAglCf0jJ8FA10WYzNFJPjjrRo9Ol4CsMLT5s9qSOB090Pk
iS4mDCl3ino1kYCafnG+OJgJ0TFWhUc7SHDWYsTEUIMJI662W1ZGSGD68z0T
CWdArLL95EkKGTRl0zVe2dLhYMxgijqLDMH3n1fQNtJhTPDSSeH1ZNiaXdIk
/kEcdLuc8XeqZHAbOqqUk0cDXrTbXZohGTYV7Lp1sp8C8YIz0Mclg4B95Ndc
Twrou3pMf7Qkg92rxld8dAokGHmecnAkg9YIM6PzEBkMBf2UP98mg/q03EJt
tRhYF2k3HookQ41UvL6isxh4eMz6lj4mw5cUuUvL4mKQPODcWPaKDHKisROf
TovCfPVpv8qaNTyP62Vl6CJAC0ZVDJrJEBR98GdPsTBswRobv3SS4aSeidKN
a8JgnGWoUj1OhvqMhyW9P4UgJUq7qZZBAS82hI3VCEKB8ayfiRQFsmfbipLC
BaFOJFvl62YKbCfJ5+f8JQgLnsr+37ZToDTpgkL913Vw9Cyq2mhOAbMT44dz
fwnAksKsf2scBfye5hsd0ecHZleWqmUyBc471MyHoPygGOfc3PaSAoMWpPT4
QT7gkvtU2z9S4Ev/+507I/ggbbyhubODAtaXJF35i1cx87wstV5ZKpi+clvy
MFjGHK86t5xXoUJB0eoHYf5lzF9FObBPkwp9fFdN3+QtYa+fJrb0H6SC+Keu
VnXVJUwg4F7goB0V9F5c2L9n/SKWecT5+1g6FZarDwX7K//GJiI3n+zMooI0
+Z5LLm8e02xvaanJp4Jf/5PaR4XzWK7LgZbXlVR4q7vfYi93HsMfIs2Og1QQ
giSdnltz2NeO4oZ+JRrcY8hNTQrOYkzF62bNGjSoSVRSPtAygx27otZQupsG
ofwqrtSXM1irQEx9ij4NejcMb6OYzmDdik7fbO1p4J5BF3dJmcamrnLqOl/Q
QHdHX5Oo1RS282OVce0bGlR7lIuwd09hfwsG1BZ9oEFGdlmCD2MKW4oernla
vtYv9VThmVIeJlhIVFv+okFxDqNRfRsP4whf+tKsIA7B9iXr+pFJbPdjvLT2
uTjYxjWtxmiOYb1b3+jYZ4rDvdmJoW+To9iDkoR3/Gs6D8PUnt3NGsWGRnyS
tCrEQeOvZsVAzVHsKabj83hIHPy5TTcUtUcwf9fTUu8QOtibxp/79+wQ1oe0
fvM9TQf3G1rdPyb7MZ3uo3errOlwgBmQyivqxyJfV+ijdnSoT129dexOP7Zv
fx6e5UwHnfl3w3xy/VisY0xGry8dlkJKh9ot+zCDIvPbBkl0UCtfyHnf1INl
2tYDp58OVmf/ennkdxf23OHGiPEQHbQtLBeka7uwp1cUYkPG6PD4kwtl47Mu
7I6v1/j8LB2wiY1EplEXZvd4c8J/IgxIUnKq/nHkB7a+3nUxUZkBbI6ZYUVu
O3Znv0SuqjMDFF2Q8A0VLdiFTcdU908z4MeCQZG7XA2W3SOSc3iCCYrncjzV
qqJxA5aQQtjaXfKy3rh0XawB3/JNNzlEiAV/toaiv40b8KW7wRtvibFAY3WE
kvKoAc8QEUV8GCx4Ijez32tTI05fJIlelmWBfKTegz3aTXjTT/oQdz8LJuzG
P7/3aMGt36zPlApgQdrFeu8FtB3/0+mMChLEgobbNz9ttWvHmcoJqRK3WcCw
sQ9MzWrHS5Jl/qE8YMGIRI7lecMOXCF68/2VRBYYCwcEaQV24sM3lFy7CRZ0
VeiqCfl14R4GWjtf8rGBHGY4rCbdg48ffJEcKciGRKHDepm6Pbj9Xilxb1E2
UGdLS22u9OCnNPgGDOls0MdTvtuU9eDAqY4blWHDE9QjsdW9Fyd3n1vWwNjg
KuB21aC9D0/0fPj5gw8buv3F1X+0DeCSbsLbEgPYMPFDWlGeOohHOnnGhwax
Yc+VMcjDBvEgKysPi7tsmMYOqn15Pog76qoqLT5lw4v4S3KF14ZwLUZJ2L5C
Nng4yIx0y4/glWk8bukCG961n7uf/3Ucny8X+CiwyoYqAXrtn6QJXOEXcwus
48CYy9+oldoEHii/faqAzIG5CXeLkKsTuE6y28O36zmQbbYo6bo6gb99Mt3w
ZB8H3syGsPpUeHhngaBO6wEOFDUanv5lysOpbawUjh4HVH6FlOt78nBHdIf7
AxMOZBbcmVCv5OFyUddYIdYcMG7U1PzXeQqPjZg95hrIgUJKb1xW1TReliFc
9CaYA3my7z+H/57GZ6o58qN3OLBRu5IxoDiDc8m7Zi4+5EAPaU5bOXgGp4Re
jzqTwoF1hyNSNh2Zxf0D5pv0yziwIfWolefwHJ6ZKLov+AsHAhkFtMzN83gH
jqaW1HJA5vfL848s53Htld0e+1o4QOe6PA2qnsenvTw5WgMcqDd90Omc/xu3
d184LkNCgLFFXMX64yKecSpEmUVDIN7WL1x1cRHnHWAtiTIRUNhqI9u0Zwn3
ZmxN4kkiEKqQY9qCL+ERmTbDpcoIFIgQ1eoNy3hD1FhRwR8IBKluL7sptYKj
Pt7332xDQMtgVKXHdgVPNozaEfcnAusN2yw7Z1fwnIEKP6cjCBjNlVcc4vAR
C3XmXBsjBCacNl7w2cdH7PvQLXfcFIGVM8zWkxf5iIqgpUrMAgH261uY2Ec+
on2zBkvCAYEGY6dHdY78hMCZmLT8UARmjYOOBk4IEHqH5LwzwxFY7XheCvLr
iHDVLKNn99dqdekDi5brCPbCF154LAI6tzqqAyvXEUoxKzrWaQiMD9x0Knkn
SDj7hombv17jj4/46E0KEtl2aPeRtwiE1c1ZUTWEiD1amiHb8xCYsdnVE5ol
RBh/s/smXIGAaA8ggaXCxMM83rPFqrX9GnkzzWkixPd//Dwm6hBw1VUZqDop
Qti4xEm3tSAwQGmL+skTIdzJNXYZvxA4baKe57tXjMjnWexOHkbgwpLu7N4o
MWKltZ8UM742zy9jj/q4GBGaxvfWfw4BNCLBjP8liXiiq7VgJoJCsB0LWb+P
QrzMOBHziYzCJF55pjOXQuSxvbWU6SjU7q5sdNpOJZr7il1WUBR0ys3a3+6m
Eb1GfWSHDSgEdm8eryumEVM5oukNsiiMOulVRJiIE/Rgk540FRTC35tUTOvQ
CZkxV38JdRR+SM5Nh4TRia3Hozf4bkfX/Ia1z7TTCUOFjhNmOig0TKqGkm4z
iOAyx+plIxQeTXq1/U2WIKK2RjjYc1E4t7yQpOkhQaREZwk3rP2V90v40vz6
JIjiC/OQZoXCjvSpQWYDi/haK93JPI/CV0r3NTKXTXTuxLx97FFgMjSeLzez
iSXh4BzuVRR8x/U646Y5BPlyOrfoGgpyKpZVhyMQQqqlelzRCwXrX9J7ZtVR
YtcLCZXlQBTYzFR10QhJ4rqkUoNdMAq0Lin5+E1SxP8A9V4YAQ==
        "]]},
      Annotation[#, 
       "Charting`Private`Tag$23043#1"]& ], {}}, {{}, {}}, {{}, {}}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->
   NCache[{{(-2) Pi, 2 Pi}, {-6.531849460378011, 
     6.492946870120528}}, {{-6.283185307179586, 
    6.283185307179586}, {-6.531849460378011, 6.492946870120528}}],
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.907138931614812*^9},
 CellLabel->
  "Out[185]=",ExpressionUUID->"52b052ba-bb4b-49d0-909b-960f6e93eac0"],

Cell[BoxData["False"], "Output",
 CellChangeTimes->{3.9071389316929235`*^9},
 CellLabel->
  "Out[186]=",ExpressionUUID->"81e40957-043e-4477-8394-86a855dde509"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"-", "2"}], " ", "\[Pi]"}], "<", "x", "<", 
   RowBox[{"-", "\[Pi]"}]}], "||", 
  RowBox[{
   RowBox[{"-", "\[Pi]"}], "<", "x", "<", "0"}], "||", 
  RowBox[{"0", "<", "x", "<", "\[Pi]"}], "||", 
  RowBox[{"\[Pi]", "<", "x", "<", 
   RowBox[{"2", " ", "\[Pi]"}]}]}]], "Output",
 CellChangeTimes->{3.9071389317710686`*^9},
 CellLabel->
  "Out[187]=",ExpressionUUID->"55b3f090-1e81-4fa7-86bc-67c641901003"]
}, Open  ]],

Cell[TextData[StyleBox["Solution of Exercise 07",
 FontColor->RGBColor[0.5, 0, 0.5],
 Background->RGBColor[0.87, 0.94, 1]]], "Text",
 CellChangeTimes->{{3.9071342597972717`*^9, 
  3.9071342708293676`*^9}},ExpressionUUID->"514b281b-6a1c-4625-8837-\
75ff477ca74b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       FractionBox["1", "2"], ")"}], "x"], ",", "x", ",", 
     RowBox[{"Log", "[", 
      RowBox[{
       RowBox[{"1", "/", "2"}], ",", "x"}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "15"}], ",", "15"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Blue", ",", 
      RowBox[{"{", 
       RowBox[{"Black", ",", "Dotted"}], "}"}], ",", "Green"}], "}"}]}], ",", 
   RowBox[{"Background", "\[Rule]", 
    RowBox[{"Lighter", "[", 
     RowBox[{"Gray", ",", " ", "0.5"}], "]"}]}], ",", 
   RowBox[{"AxesStyle", "\[Rule]", 
    RowBox[{"Arrowheads", "[", 
     RowBox[{"{", 
      RowBox[{"0.0", ",", "0.05"}], "}"}], "]"}]}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<x\>\"", ",", "\"\<y\>\""}], "}"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", 
    RowBox[{"Placed", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "\"\<(\!\(\*FractionBox[\(1\), \(2\)]\)\!\(\*SuperscriptBox[\()\), \(x\
\)]\)\>\"", ",", "\"\<x\>\"", ",", 
        "\"\<\!\(\*SubscriptBox[\(Log\), FractionBox[\(1\), \(2\)]]\)x\>\""}],
        "}"}], ",", "Below"}], "]"}]}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "Automatic"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.9071344188985815`*^9, 3.907134574269125*^9}, {
   3.9071346129994984`*^9, 3.907134890659322*^9}, {3.9071349552841883`*^9, 
   3.9071349648466215`*^9}, {3.9071350059419365`*^9, 
   3.9071350325353146`*^9}, {3.907138119498411*^9, 3.9071381860916567`*^9}, 
   3.9071392683213367`*^9, {3.907142100070201*^9, 3.907142115398569*^9}},
 CellLabel->
  "In[326]:=",ExpressionUUID->"3f24224d-583c-4383-85c6-88d6a18cc02a"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{{{}, {}, 
       TagBox[{
         Directive[
          Opacity[1.], 
          AbsoluteThickness[1.6], 
          RGBColor[0, 0, 1]], 
         LineBox[CompressedData["
1:eJwdlmc81o/bhm+j7L1X9m3PSJSuizJSSggZFUJRIrJC9iojq1JUEpEVFQr3
t6EyklVZiYyQlU3k/3ue88355nx5fo7PIe500dyFmkQi3aIikf6vtwkX+7ZQ
8RADAYr9G5z7MbUwv76jg5v4OMPubeKrj5b1hYRvIzeRaSe1y9NKH3k7i9/w
EtxEcKvw4Te79fHORsV72xJuAu2i1Nc39TDvKKX1Zyw3wXJO4sr9BD2sWvo2
ML+Xmzi76SUaXYzYr8ewxVnARdzyeaLrJb4Pc6yYqZ5ncxGeHi32ZXO66OjB
RmOdzkXUlfae1CV0cSydh+5OOBcRdnmd5cBpXZz9Jc4mac9F2NU3W8483IvU
STqiOzm4iAmh1g0T7T0o0+sBFlc4CSYBPYm5W7vRhvzqlLw3JxE9vqD88cJu
jLvEGEblxkm0eO9Z+K2/G8cZC4kyc06CVZI9hXtGC4v2jOkxy3MSHLoyLX1G
WqicffpAQzcHkavwndJBvws1Th8/qLWLg1BYZSvkrNuJZ4rzzrEqchA8p4bZ
vbN2YsbqQvyoOAdh72i/hzlgJy6npDalsXAQBjQpyis7d2LV68+H5kbYibS3
XzjTS9VRR9LkSGEaO5EoOWGaUqqGYS0h+bt+shFBDl+xq0QFba0O+8NnNmKq
PjV2LlAFdw4KGhvXshEl3m9aHA1VcGyhauJEJhvBaRdG1htURlOhecUQEzZi
+h2ZZ4RPGQXdXSvfVrASP92ZHhlkKuIzuqOEWSQL0bB9LHytWQ6TbojcOOHF
QniPqVlXP5BDN6EpRycHFqLD771Trb8cCqrE0/hqsRDvKhltUqXkMNzqreHN
38xEzkXJiHPhsnjkkdan7xbMBPT1n3QxksEJfbFedykmwvVwscorKmnM2RP7
6zsbE3FajGfNt18KLTVmFs3+MhJFfyXGvKqkkJCuZdPqYCR6z6RYKXlK4S16
GwOaMEZCjeXB9JMBSTRsTS6/08dAJDwnfByaJTD3xFZMSyo9kXw78eajNjG0
MXdNh1B6Ylb7r8/nCjFkPfTpQcU5euLxeqCecoYYBu69U3sL6Qnb3OTd8bZi
aCaqNX9mho7wKJdesPwsiv9GPB02D9IRe+3G+jJ5d6Cd18BOZarthGY52ez0
b0G0ippmpJreRuRKn1MKqhVEs1sbQ53d2wgiv4YymiiIBwjBlMDybcTaAd7m
MjVBVGa3nnp3ahvhJp8lQwoRQOryz3l29bRE+mCki6AEPz6eJXjir9AQYZEZ
HwpyeTCXpm3Kzo2GiD9TeGI5mAez+X68VbagIZbC5jNjrHkwFTa9u+RpiN7N
gybuLDx4JVm7VbSXmlg2ddZTD+bGIyoVMS92UxOWpEjrMy5cuOj5cGV4iURc
y1s67+fMgW6+P09yDJMIu2unWtSMOLA3UPz9vjYS0UFWERNS4MDXUffSbxeR
iNAHeUF+C+yYlHVH7egpElHU1jFlFMOOZtdlvvne2KI4apArlc6yYbUOPUVc
a5NytVEigsGBGXMMYhKDOTYpYvurL0wrM2O0Ga39t98blLjO4SPCVMxo7kpa
u35/g6JtaMF0Ip8Jp26sqq8ybFDGXDeN9RYZUWxiPL+1f53ix/Nqp2s2A8be
bEy6ErFK8ZAwqZgXp0NyWMDXohOrlF1zTgUqa9vx3VmZHb2qqxSOAHqvZ23b
kVonumT3jxXKqHpmRFrYdgzux5alPSuUTSV/pqzhbXhJvJrBa2mJclyQ99zJ
F7R48kl+1JmzC5QgJeq2u9eocTPteEsaLFCcy3+xzbpT491gWu63vAuUMVm2
0SATauwxdXoo3jBPCX6xWqPLSI2WcyJvBsTnKW07f4i5XKdCE82MLZu+OUqG
8a6K0SwSeoTSLWXdnaK4c4lRm9ZuwnUe6QZnsymKuZyU9clrm1BcrJ+hSDtF
uUTuUCNsN2GmN0Sz3uM3RXp5y9VnfQMuaS1eHtKZpBSYdsXG625A4NzgskzP
L8o9KmuebR3rEOv0cvUZzzDlWlfruzHVVXi89u1jSONPSr7/6Fc+hlX4mLJ0
yzDkJyUoZcs9YWgFGCmq2t0jQ5S893Xu6mkrkCRUEPi3cpBSQOUpF7G2DPKF
MkuRef2UzYzrPxval8AwsXc1W6ST8oDhyX750gUozrAaU4rroHS4/vl2LmkB
uHI6Ouvm2ynedfb5/Z4LMFjaVPr9QxultSe5wFZ1AZbvX27UGWmhrOX+PFb2
fB4cZXY90E58S4lJVci73PgHiJgx3smxKxSTe7YtTlxzQPr/tFXXOh9boSHN
wXJuQkby2VhoMrxWa0uZhfwDB4RMnHLg2sLDmL0nZoGSwF6WNlsOjAX8zl9S
ZmCp/sNWU+tr2C02HjTJOg3sJyQfu+7rgNa7HdO6+yfhY8/wl6jBDhiZXLh7
kGcSwm3zaB5GdAJTqf7zR78mYN5O+tSP913QK5s8ezhxAjpPyvDaHP0GoU4X
nY37xyHzjELUwdP9MMBQIBIS9wtYqwVUefWG4bfzSrId7yi4r64ZSqcOQ6Hc
m5jLf0bg/e5eB43hYdD5rMHa1jICoTVZ18yjR+CowhyTQdQIzL4U+pXUOAo2
Oz/clFgehrY6kRw683H4GBbFZjr6E9LeijOvOU3DoZN0u5NmBoF5n/7P7NJp
cKwrLh3rGISoaqdq/fVpiKFRMjtfNQh+JQ/PXL8xAyZHxKc3wwbB5qZ0nSgx
C00p9VnqvIOQ/Jxb6yHrH3gh9vqg0Y0BOB7PP97osQD/ZAQVM272Qep7WYu7
NxagxLL1VJR7H7TSaNd7Vi2ASIiZcp1uHxiGnkjnolmE+vG8VwyjvbDbJwsd
shbBriXmAZVWLwg5CN+e+7gEIfGqDnTj3TCkKmbCR16FDXFPe9crX8E1ZWsP
z9FVaPFNYc62+AqTswNKXAGrwO19V1pQ8SvMl2ZzsDWtwguX4fuj378AtZJQ
z3bPNZD+pH7s2YEvICXHe3b5+TrQPx3Y+rCjC1zFmWO+GGyCpsrL0RKqDpgM
++3f6bkJliXNcm1D7eA52HSu/eYm8Kild8i/aQe/e/GmnyY24VPgx7exke0Q
K0LH05D4D1ILkl2+0LfDYwHqvGdftuCuEc+gh0gbLNFvDDaqU2FT3U03zu4W
uJS9n33CkAp71CszFh+1wJzaNaC3o8InR+9+U/JtgUlbwRzDSCr0O1uq85Cj
BQaLd9u97aRCT7o2tXizZmgxu/yl1vc/zsQfaXrzvREe3pppLHtBg9dv3OEh
q38AMaVda61NNOjxjSOpm+ED5LwOkZ0ZoEF39z0s7UPv4dYkc6wiHS3OnPik
nZr6HpL2KhwotKbFQ1TfVY1XGiBo0K0+d5UWO9IcTgt/egfHZIcqMnS24zfa
b0H2BW/Aqnn1mK3pdlSKlKsXjX8Dtp7sf3ac3o727bTbuD3ewJlnoPI4ejte
rWU4naTyBvww58nL/7hqf3HXy9cvX0OWjV3eD1c6tBsZ4xjsIWAk7kuGXBo9
KtTw661518O4wrTGzCN6ZNl4cf4e1sN0K21XRTU9Wjz0vpnBVg/L3Bqcewfo
MXfIYeRiaR3QP0hNOiLHgK3cZadbZ2tBqeZorA+FAYe2VRc0hL0Cv4nGgLrf
jHg02v6PXXc15Igc7OMjMWGQOepVFFfDh2MfdS9xM+FPjpbDx8Orgf/le2oZ
XSa8eNEx+KpCNbxMeHs9JYkJTxwuqjoeWQX/FOruO6sxI+clT+db+AKiPcs/
MvizoGZG+KrATCWU5qoonLnGgszlote4mivh69fSxPp7LEhz2/KJyeNKIEOJ
uc9HFhy6nDxy0bkSPrIV9fcLsGJ29UxaQn8FMD99OFdWy4ofIq9z5Pc8habA
Q8wKVOyYr5bkGLNWBhJCPktFjOx45tPoCGtDGQTVZg3Ic7OjvVnt1emUMpDb
miiXl2HHnJnaD0VyZRAXFXdc3pQdHZ8fceU9VQpGyQ05crfZ8cey4pROTzG8
ywM1WTUOvKIew6BMVwTChm6Cj3U48I+IQUJAfyH4/kqikT3Agb4nskQZKgpB
Un7gi4w1B5781lS77lAIEWXBQTIhHOhK3LXjqnkMei9r3pIbOTDuc6hNzZUC
qP+800rakRPb7sPcksoj8HWOtb3szokRKRnpgyyPQG6l92SDDyeSD0uwUE/l
QfqOCDeXGE60uHZPcPxxHrhfaAt49IQToW2vlJZ0HvAyXbgjvcyJo/Ec9zNl
HoKnYf6g9DUuFKOqmJY89gCketdGLqdzYdzcSoCx5gPouWA60ZDNhe/pXbpu
CzyAAxmLf1zKubCJ61Pf65/3QXBEnyb/Cxder33mKup/H96H/5Ami3GjWQzJ
oeDoPdhRx+9Bfs6Nv/YdfpF75C64Cogd06NwI8VrJGuvyF0ouSyjZd/Ijfof
dz1TnLoDe5V30aR+58aU3qOKLNfugO09izub23iwa8HwX31LFmSEJzV3WfFg
+Dh1q9up28BsSKsYucqD1mZV51nqM8Eyl4kzh5oXE3Rf2TlkZsKdf5yr1cy8
GGLEkzjvmQnyVeLvZsR4sbdOrmtSLBOMZcHe9iAvCnZoz26Ly4BIxqDralm8
qOv5tCvMKR3WW2enfuzhw6lMn7hog1SIVv+RYGrAh720Ih1vZVKBPbNV9tUR
PhxoaL+hzpgKZIeSM5mOfCg3rrj7/ucbYP7bvf9wLB/2OxnlVNrfgCK6seaa
Dj6M/3vHOuBqCthif1HaOX702ZXTttGUCKMPm42pfPgxwNWgyD8rEbzoXo15
BvPj1IP6OD33RIhpvS1hksyPc2Na5gRjIlTYW2eRnvOjxkljLfuj14ExsCP+
AkkAf0hH/7o/lgCvnn48a3RTAOHRAoOkSRx0f/cYv/pAAMWZ5ukOiMbBIgPb
2eonArhs0lFevhgLyk7H3eQIAdQtm552vx8LuZw/XZgmBFBR8FWl5d8YSPD5
6/RZRxCP771wJLE+Gmw1lR2sBwQx4/LDD/v8I8Hfsb0/eVwQs4WGbIctIyE9
0df+47wgxssxpr5Tj4TW0Zd22nRC2J5ci3tmI0A/08hWSFUIQzW2+GfcI/77
82nrH+FCePEGcy/bhXBYrU475iYtjLNV/uVqO6+CzdSO+HllYfTzqvv1ZisU
akSLiJDdwui/z3j8cUsoBMUQKumHhPGLEInP2y0UNiymWV57C2PJQLvA8P0Q
IM0aNgnWC+MergdM3RLBQC+9rt9qJYKPFDdjo04Fwlmb6KATp0XQpj72dblm
IDReY68YOSeCYjkVM+LMgZAwTxb/GyyCmu/WHdprAoCZsNiSeSiCfa1xR234
A4DdruRV+KwIWlI/ac0f8gOBG6c1NON2YN3owbLzub7Q/YIvNuXGDlw+XvWV
M9wXMvtbe35n7cA/WXmjM6d8gVNW92puyQ5Us2c+abTD9z9fFGhi69yBhT+Z
Lb2yfWBjquPUpIgoHnhYNGPz6BIMGhtcu1cpio3b3Gose7wgx3Pj+3qtKJZk
r6kL1HuBfXqlqtV7UeT08S5neOgFPT/EvzL3iKJC00LWhQte0OH3Tyzonyiq
WftFaNN6gVOHnV2RlBiKOc3YHPLxBAsSz5+oi2JY2cTIwxzlAcH+Jky3fMXw
9t+s1XYLD8ibuSr9JFAMZfp3OU9JesBi/+SJ9kgxnFNfDxFucIf0GuKNyC0x
/PJnsesEkzt0XTqf/oIQQ62PTTkt+Wfh+OhbrXEOcSy6VTw1yOMKofZrx/7y
iuN8tLiDwqwL5Hcqn2cVFkeBDN78mo8usPz69n0Nsji2WBWN3Qt2gcyciwzh
OuKovDBoEfPrDHy1FuoTcBbH9pNHqK0bncG66VLooWfiuHOHTzb7S0cQM7i7
SFcjjk25ERFs2Y4wSWlwf1cnjvGibv26YY4Q+pzfWvfDf3v1m9UyRo6Qf79e
RaVXHB8YJFTKfDsNi36MQ5wkCYTg+FzlrVOQKpm7v/eQBCa2tS9GDdqDfU5z
TaaZBNI+7fcyeGoPZIElFYvjEnhmm9Meiwh7eMlqLNxyUgIb71S9sZS2h6G1
6cU6bwkU2ndtZcjTDlTbtPMf3JTAWqlOv5dsttAa3E5/blgCv9Xjea1oaxjq
65pNGJfAwrv2WjF21rCo0/21eFoC3aWbJ3aoW4PA2kDe3IoEfvgZs6YwaAVn
Lk9hALMkVs9qF+aDFfy9QBcYqymJT0MrLcqZjoPsKd2JR7GSqLLzVUB7lzns
qce2D9cl0f2KKp9XpTkcETlQNXFDEs3+qgwdTDUH3z6TaKW7kvjbZ9OyxMwc
KNY24s/LJdErN8pLtu0YWJn5nHjXI4kXOt0u3Owxg0i9wsafClKormlp4y9z
BN7d1q+fUpXCCLzssDFvCtvn+yqWNaVQ80d/dX+9KSTkst5lRCl8r/Zypdja
FFJofD3VLaWwPM/RLyjxMOQ07OOKCJZCARPD2f0Mh6D6YJe9+CcpNCwP8ryt
awzrDy4cU+iQwhX9ONVzXMawd327oeY3KRTjszsVMWEElCJtlYNDUrgkQrct
OdMI3jPdo/JeksIrgo3FNIuG0PnpXD4hIo167yt4Zl8ZwMyxrdlTntKYMneV
OSd4P3SUXEcuH2lcyfCXXLPfD88ZBG+895fGoG7L7Fjd/RD8WkNdKVwa139c
Pa+7pQ+Mau6+62nSaPTnYCBNtD5Is39ZTa+RxoueyjSVt/XAvrWIqomWjN9j
b0iwNQOg/G7zEAYyGnzbOOh5E0AypiFXlZWM0k+XjcTPAEzqDu6/yUdGoZeD
BWH/9kFACU/MGXkyjhsVHOTV2gfp18MYt46S8Xed+Fn5qr3QbGLFpXGHjKFp
GSLXZrVhNaGu6/B9Mm53i4kcfq0NUs1SmS6PyKjapGh0PV0bgg8t8N8sI2NQ
eGVFi442KB9O2bH+loz1QT4Dawm7IdW0SY6YImMS9TyRpK0FNmb78PA+GZwz
b6YSbtGAqJRHVC77ZdA8wWXlaoEGPG1jfhtiLIMc9PdOSkVqAOOxPoMycxk8
bLVYq7hHA2qPBRzidJPBgJrCcJXSnSBqUWHVnSyD+QFDv7PvqcPYcfKFM0My
uF7W7W5SogrPbocnkMdk8JfSjbuDN1Qh4nt/wfikDKpZcQw89FMFUZe0n+cX
ZTB35tbZclQFG1+SzWU6WXQQFobKEhVoSu3Vj1GSxc9vLnvZ8ypDyeck/seB
sjgsNM7NIKUAwVyTmu6hski7Bzc9VuTBxNrAQjFSFivZvffwN8vD2MDfxPLr
stivMv/NxEcedsycpam5J4vdXLdTmT7IQQrz/pnGBlnUKc5MybgiC74HV97+
5pDD4gSZhgYeMnjHjM9k8MrhSozYYeV5afB82yOAQnKYFjmh3NYqDWd1ay+m
S8lhlj6RWR8nDfZq4UK6WnKYofFsZc+WFBgIMPkk2cthW8YpYY9lSeCd2CGh
ViCHviplwcZMEsBFZjfteyKHTAJ5Choz4sDuTBUQXS6H9eSiqiPt4sD4ffhT
T40crlNMtNluicO/tseBES1y+Cpmve65jDj8qlZv7/wjh5//TsmfOCoG1XGG
YX575dGUqueDTLAI/CvkEI7Rk8eq6Ttp2cYicKC5vyrDUB5Fk4f9LvCIQBuL
z+wzM3nkImTYBMqFYTz13smFM/L4WsopJWlCCPizV/d6JcrjPjiU6nleEAKf
Fq2dG5DHhcZYDp5SPiA6LmcEDsvjSZqsmPIoPti+iGrx4/IYTg6wSrfjg9Rd
384+npdHj9RElp2MfFD0iqZ7bLvCf77Tp01x54XeBvsXzioKGMc4cOzxbh7Q
6WX1cQhTQDmm1oUMWi6Q2PrkzhutgHAucjZplBMYpRKdPscr4KC0aMLL95z/
+S6TuV6aAt65rmX+OJ4TAqjo1aTzFfAJ+hl+4eCEKlmq2almBdQ+MK2mosAB
Gv4L7sF8iqhs6cz+YIsVhO9WOGkKK6KjS4wW6ydWoH3tbTsjpoi8tjpDn7JY
oZNx7uBpeUVM5a3N1ddihUs5U7IHdBXRKPm57YIPCzxtGB1jclZEZ8EUJG0w
gTJ3t9OdUkWkWt8UdtvPACax64uDlYrIIDg7fJaHAVzXhWPJNYoYlH7etf4X
PdwbdHzy9K0ichw4reuUSA/sJb8XPnQr4mH3V03B/XTwx2ArapFaCZ+XZKeF
xG+HZ/7kAlNrJby4dRxGBGmhbdJYO81eCWeWXblNlmlgysGjudtRCbkFjl2f
b6cB6QPls87nlfBt76EwhgQayGTX2R0UroSbFezu+pvUEFBo2pj/RAlrsn4m
Bs1SQbqwl91UuRJq31tM6GylgvLk1Gm1F0ro0kKz7lZKBROXv3HUEUpob7we
oudJBbb6jradX5TQ+aaW/5M5Evg9j5zi71NCQqnYpqudBKmy+aEnB5WQVzT9
lGYlCZpYf+dOTCohafi2QY4fCcbCWTRV5pTwYPRl20c2JKBeUvngu6SEraG6
pGEdEuw4a37i5boSMj/L6rQSIcGePt/fW1tKyDIy6U0ikeB/OoWqhQ==
          "]]}, Annotation[#, "Charting`Private`Tag$32857#1"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          AbsoluteThickness[1.6], 
          GrayLevel[0], 
          Dashing[{0, Small}]], 
         LineBox[CompressedData["
1:eJxF1P0zE3AcwPFxnVSLETfu1m7LHjxOHq/oWKuEpTNuHFKhRCvUtJTabbjD
deWywqX0oBZHboqOZKnVaZQ017W2O4Zyx6blGCO16q59vj+87/UfvMmZ+QlH
bTEYzP6//TNcW6i3WPz6rKq77xpjfiIFdUPzkkWkjOu5Sp9FUoa12HgNEvuG
xbjTgRxtw51i5iLFJa2LIpUvWInnDT645AMSX3s28lO9wV+UHNcIfy+wgc/g
tM7Qwfdf5qsUPTRQ7sesE/Kp4HKIQ3hoAAV8ydXqatZ4gOws//h6ORnMqih5
FX2FBFYq2hq+9RPBYU42W8wkgIGOhN95X91Bt6axXfe5eLC6WSpXqVxAuoYX
mVjsDIreXZSGTjiC0yyS5jhlA5hWMBrEsLEDF/IalyZNGLC8VnmluMT8wipP
uNZ046YBjLqsMd/aPAIOrbOwOkL2PbeKS/Foyo5QRVqVKMjY5cxZcHwrKRZP
M4Mm+1WdMtCGaZXjOf74epgdKJhWFvXq14MD59hYHxscKP8QlETNcAaJvW48
WqcLuDJkNIyF48Ge9rc5e2vdQXOXhHOMSgDdrx4ODqkggokY17myfBKYPHBa
yO4gg0MXPtrnTm4BS3c2Kyd8KOB3jsV4KI8KDsYmbQqup4FTXNrJI+N0sDBm
SaF38gK7KqJEgh3eYJjGgZ8u8gEZLurM+jZfMLZ8ZUH3BJm9QiindSNv6zJa
2hVI3CP9fL8aObfHUrZg6wd2nKU9jEtGDs9Eb5ccQBrSeYPqDCR1t8yYdQJZ
gwvbdl6MLGqOU0pbkNcIBWkGGVJWVT0b8BQ5feazU28fMpWVkTryCSnoLDW4
aZHVnlLhQR1ywEF/b3oGOSXeGOL/A2lr8u8vNCGJOQkpz1aQ/z8G/gGcGVdW

          "]]}, Annotation[#, "Charting`Private`Tag$32857#2"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          AbsoluteThickness[1.6], 
          RGBColor[0, 1, 0]], 
         LineBox[CompressedData["
1:eJwV1Pk71GsfwHEzNPaZkT1SyogYtD0p6XNrcSzJ0iEpWR8lHU4qabksIU5J
hVRITympVISScH9R9n04JMxoyN6YscyQ5Zznh/f1+g/e2t5BTv8li4mJxfzb
//VcHuz0Ul/aHUXS1NjFNEKG2Ehp26g35MaaV3tGa6PZJ9fv3joZC59HlM36
GtURvV5iykr2Lmx4sMLWIEAFZe3bp2HjnQE7aZ8fJhxQQlrs8sfPejLhUJPD
eDKxEg2n9W/TjcsGn2P+gRlxCijflVSXteU12FX5HjSOpSN8nf42iZcLF1sP
UOVcaUjHf+3cof350E66mfNHtzy6/pvJXqW0QujK0bO8GieHeAx0s33yA0jY
3JeyOyKLfpdw6Ey2LAZSnrups6UMKv7uoe2cXgJBL2IN6myk0ZryoABlQRlo
lGv3LXpLoZmy6uW6pnIwqbIVvq+kIL03zTqv5ipAyuZls6oUBbk97LS+ofMZ
ynh7Tr4+vAIRl4eSbC9VQfvq5+3pihJIcIpXZPCsGiI2NmeKhYkjhpuwV7al
BnY5vstL5ZHRdVNJvQZGPRhrs1M4gyRUuoFml+PQADpGCVtC/UloUkU1OP5y
Iyg/Sm5WEYgh5xndkgOtzcAVL7AeoIsh+pH12X6726A1wu9YhGgBar5yO6I5
bSA/Oq7QY7QAkW5PxTOvskChWribHfALBEcZHuyqdlC7tfvjZtEcsI5vUHG1
74RrrMl1vg5CiGcP7Q3hd8KVzNQNS3mzsM8z+0xyUhfcN2c0FqvOQoGXfmNL
51cIaLWNrPk5DSm+BtHWnj1wumXWekeVAA4OjuWdIPcCJen2x/q9AqD45bBj
nvZC0bq95saf+XDhBNOsYrgPvjfEBfMbJsGwUPXiwyIOhPNjVopmJ4BapG6i
YsEFYeLLX5yzQ3BKNGfJSOQCK3DMf1X+D6gy7XbfyuXCwS/JIwEzgxD2MfWG
U8wA2D8KMJ6+OgC8Yo2hhNpB8Ps9vHsd7oeW0tUZkk7DcCXuecIll69guLRY
oJI5DJesYyM+6nRB3O6+esb0MAycF0pwZv8GC5wxtzdlBNrPh/SHZ7XDO2KN
c0T3KIw8jxqINGmBpEptuTnvCfgVKtTdfgGD3O493x++mYB6wa/l/V8+QXSR
d9Ge+Qno/ZWWla9ZBCGvM33j7/yEHo3R8MkfueB6j1G6huBBYMZTecHaWLhV
qLQ9k8qHa8jgQ9DjD9j5L7Xh2oAp8FlxOH3dQCtOrNI7lH5nCi42HpfYf68N
N4nvKAv8MAUqoVvDqdYsbBl2JFlRfBrMHz/Rf5Xdjk3PpiL31GkQl1UPS3bt
xBrumg8ma2YggRHmqRHeg/tN1tqo6orgSvFRLpXExX63l82U7UVwbGzCY6M9
F4/y+piKoSJQvPw2uSKdiwVvHirQ6kQwhieFQf8ZwGSmxldK4BxcvnE1ftxn
EOvoq5ycLZyHRst2cmX2EPbTlrvWsX8Rlh0HQ824Y3g0YuwCK3AR7unmnipY
P44DOXX+rfcWQdq0r5nlM45DHv1l1ziyCLlKSk3S3HEcu1pS+cvNJSg47JB/
uncCZ6uTnxZ0LEO+XtpMWwUPz0gtcGo3kxBuLb3d/JKPgx/upY9YklD5g9nb
5V/4eHLTDZA6SkLi0Xcskjl8POq2KsMyioT2eRe29ygLMCfH9Ggli4TYD3yD
yeEC3OBwvqPkHBkFDT6mdttO4cz7P2vfvhdHYRwHOd/Waeyo1//u7k4KSlpf
VvkrRYhd6kWObnYUJHwd2/bnSyF2C6TztTwpyKr7bFxHqRD7FoBxdgwFBdOn
XAIHhDgEZbwqbqEgLjX0NMdEhFNdjz5l+0miGHe2Ym+VCA/EddzVT5JCB9in
2zlDczhkpDa0dEwGbaXqWOeQF3DGautvqmKyKJ+q46CutICrHWvMg5Vk0UaP
QzsuMhawWnEVeYO5LFL/wRJbabWAi69Xxt9OkEW8wa8RL+IX8JJB6f98Nsmh
pTvlGRGKizgmMLdG+oI8Ivt+ULRRW8J1F23lDEh0lClqfdspJkaUNW9xYXit
RKVldjJZD0iEVqlagG6hEvrkWMOQmScT8028cbaZKipq76LrHpQgPuXVnPzt
njryt4uQfBawghAVJTmeYGiiShUJg85oCqF+x3PrtjgtlCms0bI4L0kcElPm
RwetRSU/XY4ct5ciDtcFh9kWaKP1/NhcmoE00XSlVcqfuw7dCEv3dRmVJqIs
XtR+N9BBHRqUims5MsRPx2WeR+C/U09zPx/lIUvU27gobk3TRf3vxeN3LcoS
P5x1//Dt34BWWZVYwyM54py1sHJMQR/xKwSa/UbyRFGcZUTIro0o8dmIlmmh
PLGzm3rWPcIApUrdLfVEVMJIqcs77Y0huv+2MDexhErYxM5Pc/INkaFYd0Je
GZXwm9eM1f1oiCTcnKRbCCrxiOP1Kq/SEDV4trJkv1AJ+uuxqeouQ9TULV4Z
1kgl+PuXo6fJTNRi1abv1EclCi7oPrc7zEStlDaF3GUq0TJqtSPpGBN9N/0b
V5BoxLh7QH2XFxPdGE+ldojTCMa+XJ7PaSbaeOZngkiSRqTQd5peimQiZfUQ
LTM6jQh9YVeb9YqJJtJuprxZSyOSNf88Op7LRParQjw/raMRubcSJza9Z6Ls
/Tsaq3VoxMj5ToVSgokkS1m32Ho0wm2Plxurg4n48oISmU00IqQwalztGxNp
2ls/VtpCIxL1ssKOc5gIv4zU19pGI+qoY09GRpmoJkNV12QHjfgRKb/NeJKJ
BOT3qaZmNII8Y1x9boaJNqt/yEfmNELrpNOR4nkmKtI0O2MFNMLs27mx5WUm
yt/uzbK3oBH/ABzOFhM=
          "]]}, Annotation[#, "Charting`Private`Tag$32857#3"]& ]}}, {}}, {
    DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
     AxesOrigin -> {0, 0}, FrameTicks -> {{Automatic, 
        Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
        Charting`ScaledFrameTicks[{Identity, Identity}]}}, 
     GridLines -> {None, None}, DisplayFunction -> Identity, 
     PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.05], 
        Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, 
     DisplayFunction -> Identity, Axes -> {True, True}, AxesLabel -> {
       FormBox["\"x\"", TraditionalForm], 
       FormBox["\"y\"", TraditionalForm]}, AxesOrigin -> {0, 0}, AxesStyle -> 
     Arrowheads[{0., 0.05}], Background -> RGBColor[0.75, 0.75, 0.75], 
     DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, 
     FrameLabel -> {{None, None}, {None, None}}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "DefaultBoundaryStyle" -> Automatic, 
       "DefaultGraphicsInteraction" -> {
        "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
         "Effects" -> {
          "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
           "Droplines" -> {
            "freeformCursorMode" -> True, 
             "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
       "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None,
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, 
     PlotRange -> {{-15, 15}, {-14.999999387755102`, 38.148341676440154`}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"(\\!\\(\\*FractionBox[\\(1\\), \
\\(2\\)]\\)\\!\\(\\*SuperscriptBox[\\()\\), \\(x\\)]\\)\"", "\"x\"", 
       "\"\\!\\(\\*SubscriptBox[\\(Log\\), FractionBox[\\(1\\), \\(2\\)]]\\)x\
\""}, "LineLegend", DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #, 
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Dashing[{0, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Dashing[{0, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2, 
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{None}}}, 
             GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
             GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{1}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0, 0, 1], Editable -> False, Selectable -> 
                    False]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                   ",", 
                   RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "Small"}], "}"}], "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0, 1, 0], Editable -> False, Selectable -> 
                    False]}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Row\""}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "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, ",", "Below"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{{3.9071348733779545`*^9, 3.907134892612418*^9}, 
   3.9071349661747255`*^9, {3.9071350113637285`*^9, 3.907135033566537*^9}, {
   3.9071381618419027`*^9, 3.9071381875760317`*^9}, 3.9071392694306602`*^9, 
   3.907142117726714*^9},
 CellLabel->
  "Out[326]=",ExpressionUUID->"4644f456-c802-42ee-a7b7-0b652c5ffff7"]
}, Open  ]],

Cell[TextData[StyleBox["Solution of Exercise 08",
 FontColor->RGBColor[0.5, 0, 0.5],
 Background->RGBColor[0.87, 0.94, 1]]], "Text",
 CellChangeTimes->{{3.9071350560368032`*^9, 
  3.9071350641304665`*^9}},ExpressionUUID->"e95db4e8-4e46-4e30-8f7d-\
55b9c30b9e33"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"F", "[", "x_", "]"}], ":=", 
   RowBox[{"ArcTan", "[", "x", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"F1", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"F", "[", 
      RowBox[{"x", "+", "2"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "15"}], ",", "15"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"F2", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"F", "[", "x", "]"}], "-", "3"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "15"}], ",", "15"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"F3", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"F", "[", 
      RowBox[{"-", "x"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "15"}], ",", "15"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"F4", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{"F", "[", "x", "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "15"}], ",", "15"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"GraphicsGrid", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"F1", ",", "F2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"F3", ",", "F4"}], "}"}]}], "}"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "650"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.9071352188200736`*^9, 3.9071352798339205`*^9}, {
  3.9071353217798986`*^9, 3.9071353998085423`*^9}, {3.9071357540043325`*^9, 
  3.907135756207631*^9}, {3.907135800309742*^9, 3.9071358213421946`*^9}, {
  3.9071358663129435`*^9, 3.9071358726413264`*^9}, {3.9071359960031986`*^9, 
  3.9071360416752186`*^9}, {3.9071361074156914`*^9, 3.907136116759345*^9}, {
  3.907136545920113*^9, 3.9071365611852245`*^9}},
 CellLabel->"In[85]:=",ExpressionUUID->"12aba38b-d0e2-4e7e-964c-1b62151ece10"],

Cell[BoxData[
 GraphicsBox[{{}, {{InsetBox[
      GraphicsBox[{{{{}, {}, 
          TagBox[
           {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
            Opacity[1.], LineBox[CompressedData["
1:eJwVk2k4lIsfhjHETCL7GAwySRhykEqFkhZCsmvRKdKmkrRQBznFyb5OIYRC
ypKtv+X3k6KjUElplIRI9pl536lzlOP/4bme676u58P95dH+/aSLn5iIiEjW
Qv7fln3B4/PzbLTlFK28OiqE3kd509v/ZePE4k/7di5wCKeTn0KyMSaf84fi
Ape76c2tmGRjzUTAldsjQmC97JN25rJx/9iWlMYvQpB+uskot4qNxSoq7dND
Quh/sPS09RE2RpUlbrYdEEJEZCkZ/toQuy97PS3pFUKMyrHnhdcNcPnqt3HD
rUJgPtHLP+Otj4fjHFgXq4TwkxWgtNF4JdYLnU+cyBXCrTNGu0q/rcBPDw9N
0aKF0PGen9BSr4t+Iokf3AOF0MS25lw+sxzNz/cUchyF8MNcxnK1CQs9jpcq
Z+kLodmtbyBdXAcnz7ULyilCsD9o7JzZpI2MNQmrma9JGCj7LsF9pI0joVqL
XF+REDzXXE+v1kYJP3eHmJckZKW5rki/p41q7ZHreJ0kTLVd+JXI0UYH43Px
jc9JSDJ8Uno1SBt/VC3LWPuUhHeEJzVIVxs5LkyllloSDkZHPt4Wr4XNe6Ps
vt8k4Vlf9dGcGC2UmsitWrzARsZj8mSUFvpV8UKYN0j4p8fpYH6oFh6r30nY
ZJCQqKMh/itACy9f3fkkPIWEhqbaLQ83a6F9uTPl43US9L69T7LkaWJTVm4M
LYyEmJYHt760MVH4Yugt1ZuEx3kHljxrZOLf7Pyobk8S5v5QDCt5yMSoVl3d
LA8SAtdf9DqZw0RZVyUrfTcSXKq3KP4IYWJ42fbba51JYNz9ECOty8RWB1WB
jh0JpX/RzppGaaDHmoYgdRMSvgQ0Dild1MCaSkFHszEJzK2nXL6f1MD1Q4sm
/YwW/ClvjRt9NDD5ovipEgMSzoblfbMz1UAHg5deLF0SNgau8fUeVEcVV645
l0HCy13+9hHW6qih48G2oZDQqmciJmehjixdvNMjSkL9/L91uWx1zJj62hsg
QsKd+0m6yFBHQ7983+s/CQijNorOC9TQOMq8A4UE6DUr1IUVq+Fnvn/s+DgB
EauaWefl1ZC3IfyKaTcBIZKxfZJUNTRziovOfEXA8X735Ix5Bt486U8Ve0mA
Z+zEfM0EA3cdnjzb/oIAo68qfUQrA9X2RDZuayWAmxOYdCaUgTlmU/I/6gj4
TVb9V+CwKqYHPd1NzyYgXcO025Sril4n3VJYmQT8MNhR9L1LFaeZO8uNbhCA
2867RNarour2W8Hr0whwinxzJy1ZFfuiXJ9siFvwIWKdGqxV0f3gwd1vwggo
7PuZS82mo/58FXO1NwFS3xRDOpPpGJEW8Jj0WNh/N7BPiaajVoXz0yo3AsyU
vAn1YDpWtKW91dtFwGPHmu2r7Om43yO1cGYrAf3NgTz3HyrYXerW9o8ZAfSi
T5sL3FTwUWeoc480sfDP9p8cexW0iRONsKURwBqoro2zUcHVIsbR5ZIErKLH
Gpxjq2CsSwLlDzECtkavUdghoYI3DDpohFAAIQFJg9NVynjoi8RS60EB9Oht
jrBUVMa0TYmXWFUC4NoaWa6iKeMzjsBpWYUABnxVCZaIMlZmnWepPxDABGc6
QGZCCUuoXVWUIgGIU7OcP7coYd70dGpepgDMxgSa184ooU9uvLZcpACSi+80
vX6tiPG66BFhLwDXpmIM/lsR6a/sbhhuE4Byd+ljZVTEoprXft22Asicq2z1
vq+ITbtNLylsFECBE3QOXlPE8VW9pXtWCaCWeNfPW6+IMktbxBYrCuCDDXVe
/q4C3mWrKie/48Mtd2nR6mwFLKAVMLO6+XDgmCzFI1UBXy1TOZHbxYeRVCXJ
zAgF/KrQfC+jjQ/To9qyOnsUMPzP372savkgFr9O01ROAdNGinYFpPFhBfeY
1e5QedQrs9ZBBz546tbv1z8tj4MGY3ZJW/kQHUQLFz0sj7Vdf2Z4beLDV1ox
lrnIY8m5g0e6LPhQYjliI60vj8KHV/12LuODUbav7dNeOdwhWhR9meDBvrGy
Q1mdcpimUPmqdpoHCebzUWeeyOGy/FedI2M8mOnIfqpdLof0d5Vhy/t5UPGL
a3f5mhzuD/OtW9bKAzNft+0Wq+Xw6PEENfFUHhwqLTgiYyiHPzeal1+P40Ha
d37MF205zL8ebCR5jQdkYnJ7yhI5vOmqHvD+Ag9qm7vsZ4aXooZJteXoPh6s
09nhWJyyFNtP9Hn9pcuD8BeX7qwelMWeVE3Ol5JZ8HZ3OGfVJYvUXboBJvmz
YDrA2LatQRbbVo4HBWbOwgi/dswrXRYljQOz6q/Pwk41nuGlHbI4nJvRn31s
FhhH/R+2VMpgz9yG4L16syDgm0W9yJFB9oDVjWLNWei4RHHriZXBo3zPncPK
sxCelEuO+MugQ51EIUtiFkbruGtpajK41WRR8/OBGaiSdELnK0uwP+QG61rq
DMQnaSR5nVqCoeGjTQV/zcBhtYkDv+9dgrfqPEvuh88AwziGEmyxBDUf/Bkf
fnwGItxb7DLGpZF22pfB2jwDjoUWHR93S+OHPe+qPXunYWyTFvcoazEy1rnW
9rhPwS3La6MfZRfjoRe6RxvXTYGr2ZTA+V8aBja93ejLnAJc3iBr8ZqGeqV5
i94MTwJHynMLJZyGjsOXsvcEToJdZ0J5Zh8V6dKLho3OTMBcK9ko00ZFgrGy
5IDLBFTC3ucRlVTcJ1Q7ZWMyARoVBiOHY6i4q81uhfjUOAhS2tTMLKhYIKov
FXpwHG57zV99kSyFEUKbMccN38DTxT/V6rIUVqi7L+lT/gYy9h15lUekMOde
O118ZgwurM9s4FhLYbX9kwq9vDFw1rTgHZqSxIia+L23fn2FX8OBe39ul0Te
Wat6x8JR8DnVb2okugjT0j/Kpt0cBveoSZropAS6yI7P1PgPgzNn7nN3rwQ+
yKih+/w2DLbISLxQLoHtWWujVzwbAqOlHhNP9kugxAaNSpgcBLHyrgKfJnHU
vZcgFqn1GYqmUSkmlIKPXNwtp+y4cJvycsLnMAUVvporQtN7yFb51GK0m4Ll
WgnpGebvIdnq5+k3+hQ0vFcmekSrF0IT1nZqcsXwjocO8/23HnA0rrxas0YM
/+doITHk9goEgfnCIUIE993f3yiW0QSHgwf3yQ2JYHfW2fPZtg3AvaDduvGl
CMbTchMkZh9Bc1RO6o0SETyRH3Qsx64a4m9mmjjtF8HlCfdj/bvuglJDVmSG
gggeczkd5JNxBf4DlSIvhw==
             "]], LineBox[CompressedData["
1:eJwVz3k81PkfB3AkEatRiBxr2pz5xhTlaHt/khTyK6pxC8nqkshRjq11rlAR
ihxL64ikUqH42pUzSYmcNc6aGccw8535Etn5/fF+vB7Pf16vx5vqfcHhlJiI
iEiW8P6fvfHNi119K/hZh4uBrpnRUG0miVN3LeMvx+1yT8o2Q+7+uOQIuWW8
Suzord3bWyD2iLjbJ/YSHkA9EbL5eCs4+IosJOUv4YMmBXR2ZjtM3SK3k1JL
eGbQ0gUXyjvQYH4r6hxaxO/+lVV8arQb4jPbUsL/IPHz5o+kbq4eAq2rYb0P
nEl82Wi/Mz9xCF77aasPGJK44vPe3mPrhkHMLPahyRcBvvrHHmNC/jNEDKEO
wlyAS0dMi36UYkAgtVoqgCBwN6avmMnsCMit/c0+r4PAb+LXHWN1R6FyXuFu
ZyGBO1qkBh06OQrTjUE6mAOBH/bbHmTdMwp+vgYHWBU8fNwnWV/66Rh4lBXF
+Phx8S1uPke20ydgOe14Rxpwcb7pdJhbwgTcixCXb1Tk4mRaatTa2gnot/Mu
pDbN4zGbfsknVCbhGEft38/Uefzvrt8fUQcmwcY4fcVpkINzOFNkMfoGZ6PW
EFn3pvDrCXoNcXUsSFLQbDp5ZAqvT8g8UvyFBeXlFun64lP4eJlDUKgoG2YG
Io3rz7JxK6uOSl1LNgTu4gWPmLHwrorQtKkmNlzmMPja/V9xH8sD37NfTkFW
/I9mTtJX3D5gx0v5/imoVVfNrEFf8SeRdVes+VOwdMhxl23JJL5P04zBNJiG
q6VvQ/1DJ/AYn3N7NuVPQ7x3LVmlMIbTZ5/kdV+agZKFT62RbaO4ZIVgnWfK
DLTeJO5YRY7iWyb3uT8tnoG1uKFp3/gILqXoJv24fwZSVIovf3/KwDXocfXK
5rOgV6pNRN8fwjtohc6/8GbBKnmAzFHrxrUUfqif/4sD5en0SSzhAz50IkLn
+wMObMj90F03/x4fcMz5GFzFAUZFe8VwSxe+KfL0OK2FA/z84Daz8Q6cVVFx
vp3NAS/tnX+ZJjfiRaNHMotpc9AQN6nImgzH6SZPFa0fz4E+vk3emOUNhz5J
OTdVzwG/IDH9hl88JBbQH+1omIMiS0sVG+9cyFaM0fzaOQd4IuVR2mwlaF2o
EXnIngOivmWlvfMfGI5e9dv7zfNAcf6lxHfPB2gYWNC1T5iH1v6xnhjGB/As
3/u+M2UerrncX1X4RzfEne4PQ+nzMO+qeeJL80eIZ7AsRQrmodtDW9Hp8Cfw
og2qE7XzkOGzNcbacwi6d7cqv2XNg2y1sqHi3jGIdLuYMWPBhTPkgpVm6hjU
b0t9Tj3IhWaTAXejsTHghMivP2THhaiarOsOsePAqdV8F+fIhdlala8pbROg
5KeTl3GWC111arlrHL5BvdNT3DCVC2mNVJkF72nIubNxpaOfCzJ7LEZzKqZB
OyY6sXGYCzHV3tUWi9NweeewR9UIF0IeFvok3ZoBUf59uVgmF5wyNet+bpgF
Cb2usTGSCzeeye8qlJ0Dst75e74iD47/qfStTbhr+KvoMa//8SC1WefovVtc
aHhr3PrMngedq0zr/V9wgTrS2L76OA+sopxvb1jFA/1so5w7rjwwCcpC7lk8
4AS99k7044GKu+pdTisBtrf6E/6+xoMRQw2bjVok7HQQaMxW8sD35oq5wmES
fu5O0het4gFr9jO2IYwEcQFv47oXPJivyJFb106CrGZQhXodD8QwlX4J/wVQ
n9314qc2HmzRVfTjP1uE2LQXDBpD2EeVievZvwz0o+u0XksTwLrKDu32X4a0
YE8fT1kC/Bntp99nLoPGmQyvBQoBIXl/2r1lLkMpeFZSFQmIV1uj0JT8A84l
YxaHNAgoURa7X9WzAntU6zVkjQggJJcYbdtFkcft5ITTzgQE5uyjMK1Ekclh
amWOKwEc2nWQdBVF5e06x965C/ddNuVaRYsi6w7PzVu9CWCUm7g2dosiYyUl
26YzBHQcCe55dUkMZYgO28WHE1B4Z6bt0fNVCGX1+LllE2CvM/Ik3UwCZV+V
Dl/dQwD9DWnvYieBnijdmcjsJcDFnzKn7imBvn/g9ur0EeBTBQYlsRJo9IM5
3WpQ+B/KLavtkkAzQztXLowQkOXkev+L7xq0g+df+fs0AeMJPem6aZKo5pve
9RxxPoQw28Lq2GtRXG7Zd0MDPuSqWQ9uFJFGKHy/eYohH1rsW38NlJdGBwPG
zFk0PijVNotp/yqNxjMn4nKN+FCb2Jh0M0Ua0SEwkDTlw4+tdfknaTKIG14u
FWTJh1j/ylap0J9QimIOmezEh/bLtjJbRSmI+e3G85JIPmxWCSIerKWgLbRT
1EdRfLjyKuuznjwFTfa++rfqdz7orjAr9bQpaB1KKK+7xoeEmITjenYUFFbv
aNwcy4cDN5pyde9SUFF/1/CTZD68vg80HZoc6t6720kkhw/173bQNb3WIyem
eH5GDR/U65TOaj2TR50dyf8yWXxY7Jyd+mK+EVWGH3LdpySAl49b/Q5kKiPN
blWvmN0CIKvT7H/TVEU2AQzpJA8BKN/yNDJOUEftTVWxtlcEcFREYS7mggZa
LtvwyjtVAI7tgVG2VVQU9PFHbHapADoj3kueHtuM8kL8ZRZfCSB6b2nb6NYt
aPvXembvOwHM2K/MnvDXRMYXIjpjGAJ4Y0PfYJSthaz7/k4qnRHA5HGt8z4j
2ogW/M+VkiUBXLIWNLLldJFyxaWTeZIkVCdYXQ3ZrYfoyR47Lm4gwWxANsj9
6laUqZThcECdhG3yfd7ZFfpo03Air0CbBJv4RR7jqT4K1lHc+UZo30XVeK0a
fZTs+OwMV+g8hlfZ40Z9dNPo4MN9OiRQHrK5LX366GDPuTtjQs/tX4nhiWEo
2kBGhqpHQlWoVrGdI4ZO2TxMTdUnoYt10DTNDUM5xoEWNUJPuZ990+eFoQc2
aye/CK1pWTl78hyGQkbaJTGMhAyKmcmVaxg6Go3VNQsdVmrXVlSGIaulM5OC
bSTcVg1wnarEUDom3atmQELljdRp2nMMmT3oq9knNDP4k1xdA4bepMl53BDa
xcLLpbsHQzUdt5W1DEkIeRY9pTSIoSgF0zJboVN1iqI8GBgqOr+TdlHodll2
AZOFIcG0/aZXQk9e+8nYgIOh55+vRI4ILUYYtFwiMCQesL5HgkaCup+Dc+0i
hj4vq1H1hTYfvMReWcHQHKPAy17o/wDSeurv
             "]]},
           
           Annotation[#, 
            "Charting`Private`Tag$14855#1"]& ], {}}, {{}, {}}, {{}, {}}}, {}},
       AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
       Axes->{True, True},
       AxesLabel->{None, None},
       AxesOrigin->{0, 0},
       DisplayFunction->Identity,
       Frame->{{False, False}, {False, False}},
       FrameLabel->{{None, None}, {None, None}},
       FrameTicks->{{Automatic, 
          Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
          Charting`ScaledFrameTicks[{Identity, Identity}]}},
       GridLines->{None, None},
       GridLinesStyle->Directive[
         GrayLevel[0.5, 0.4]],
       ImagePadding->{{1.8673469387755404`, 1.5}, {5.979444945505691, 0.5}},
       Method->{
        "DefaultBoundaryStyle" -> Automatic, 
         "DefaultGraphicsInteraction" -> {
          "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
           "Effects" -> {
            "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2},
              "Droplines" -> {
              "freeformCursorMode" -> True, 
               "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
         "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> 
         None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
             (Identity[#]& )[
              Part[#, 1]], 
             (Identity[#]& )[
              Part[#, 2]]}& ), "CopiedValueFunction" -> ({
             (Identity[#]& )[
              Part[#, 1]], 
             (Identity[#]& )[
              Part[#, 2]]}& )}},
       PlotRange->{{-15, 15}, {-1.4940244319236777`, 1.5120405019679846`}},
       PlotRangeClipping->True,
       PlotRangePadding->{{
          Scaled[0.02], 
          Scaled[0.02]}, {
          Scaled[0.05], 
          Scaled[0.05]}},
       Ticks->{Automatic, Automatic}], {192., -118.66252583997979}, 
      ImageScaled[{0.5, 0.5}], {360., 222.4922359499621}], InsetBox[
      GraphicsBox[{{{{}, {}, 
          TagBox[
           {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
            Opacity[1.], LineBox[CompressedData["
1:eJwV03k81WkbBnBZCp3j/B6HZIks2aZDJXsTbRItokSbUlmSpqQwaCwpKkoR
JUvZJbykpOW5pEQjGUYLkWxNRRmcoizvb/54Ps/n++d9Xfet7v6b4z5RERGR
FPb991u2+X+emhKgR0xqzyZxWby+e+3rmp8CLK8wL1/D+lhyw/DFbwK8uiIr
bsW6ZLPuuM6AAImZt5P0WGs1tnEcWgX4fCXl0qSYLDhPlhtk3BJAL8X/31zW
HUXMYWtvAX7ESzGjorIIjyj8FtY0Hxm+4Rdip8kiRsHnz+wzv+B2S0S2zSSB
6mPdzCNb9dFb7bbpyw+CCS0v+aWGeqiNO5fg8p0g7YjBxsJPOvBO87Vjhgme
vxk+V31PG1+fjeRmfiF4KLBOPn5kHhzn96xY+5FgzFjG0mShFmozVnh7dBNU
bW7rvCSuCUF0b6lRO4H9HkOHlIfq+ML1STrfQrAnOuKRbdxcWAyuT9nznCCm
uiit96kqbI4ZNeo/Jmjc6GEfbq2CMZmXNLCCoEZ3oSgxVcGjEevFa1jfm/pZ
kSFQQe3//GIUWefcjNeGkgpqDEpa7t4hCJF6MG1qRBkf3y8YGr1NoFvFrwjJ
V0bu7RK1w+UE4QuqtAJllTFatNDTtpRgEU9l8mCPIvi23r2nbxBcmmPUbNSq
CIH5OaxjPfaLXd7oC0VMWbodYFjDNtAx4p4iXpdqGCcWEGyI+Dsn8YIirubo
RV3NJzggPLvhvrUiji4pHriWS5DdNpEhlTobctEvl53MJJid925F1mYFSNa+
qMy58l8fzyaS7RWgdvKl8Q7WWp3ld2KXKcAsxOAIn/WC2Wd/CRAo4FN6qtEf
lwlWR5vx7SQU8Kp44JFTMsExr/iur7dmwXn5upbBRIIW3RXhlnKzIKIaGDJ6
nuBCfs7DpiY5uJwwC9I7SbDpYT786+Sg0XF5sjmKYFZz4aNZkEPb6njz46xT
xktrtt6UQ79WVcNfJwiyNtCGrlNysH4X6HM0kuCO8FXH0BI5pPPuzSoKI3i7
TGpKNpcPWd8op67f2f1x5kwrT+Xjm9LSxxGsd/vwxLYk8NGbYNiuwbovQX5G
Sjgfyxd3SLgHEXz9oM7T3M6HZ5vmvLcBBKJxFmpGhI+3rjYG1J9Ap9XHyilY
FhGXIpuWHCRw0b7npn9YFgMmHotrfQmi/aTDpnmyez/moOzE+h/pfBQ7yiJR
YelRzwMEBZZ9yzj6sthvrbTy9H4Cg9RdK5+8JsgYKU+940GweNfmNaYmBPK/
9+27sZNgb2GWt8x8ggYPjZZ5rBNHh2N61QnOtM0tSt9B8O38hWcXuQQaF0Mv
x29n86h6YT/Yw6Cy5oP5wa0EFpp26/MvMiizf3pPypkgrD40x6SLh8n4B4qP
1hJsdV4bYPWCh4n0EZFFrI06lWxt7/OQ/qexzTV7Np/hOx9dL/HAvMvqC7Uj
WKc8ND/Ujofh11t3G9oSKO33KKsulcEdpXOr/VYQ3JqxAQ6RXCzvnZf2mzlB
XPyceNdDXNwa82bqzAg8lft3u+/gQtl3Z6U6ayXDGDF/Uy5OezcWN7JzhztX
2yR95uCuh++Y1mKC9dmmz9udOFC1dazKNiD4uHxu636tmRCfXmA6ocH2a3nq
QztvJr7zB/fos960+MuIw09puF8e9HJmc8K8+zzTJmmMSRYOF6gRJEu6rBIL
k0bC44DaVSoENg3nSlLapHCe6v9qLU9w3XXqZP0FSfTvvWlvPJ3t19Ejweq4
JJIkegPNJAhk7J9fK/WWhApS51mIEwQtSbmfbC2J2W9sB81ECRzUTIf2fpkB
ptf3s+Ykg8megzsm1szAH/5FboVCBtsOdRgZTJuOtF0/rQ50M3A+MSA9bUAC
4ot0n/3axcAhefx982sJ9O6L9OS+Z7ASSueDSiRwLKq4LqeDgQGzpf+xmwQO
5TgUVL1hIFryImvbQ3F8r6+6dvEFg7yvkI8JFsOtlFiPyLsMros19m/zFMPc
5l3B3AoGqQrvqg2cxLBF01qYcJvBBauJw3/ri6GSKZ5IKWMQfM68Qa1VFIsa
ozJjbjJYb1h68raZKHa3BXPaMxiMHMz83i0UYXtIKxJEMfD079pJukXQWJSY
dTSSQWuQes3SRhFcroo5VhnOoOpEesLlAhGIYFecxXEGcVdSFm5wYxWsm8cP
YOc9q/PKP36Kns+SF9XwYmCSlJ39wmeKLnXrrTLyYDDnuqa/vs0UFZWhfy3b
y+DTHTXS+WOSWuhVVTruYnCiW8Hefu8klQ0sTrFxYVBhIUnVTSfopg/vj/uu
ZpC26mRsCJmg8R3aflarGEQ5iG9/9Xmc5rrXzOSuYODoITJ2NmOc+tmLiaUs
ZdAfP7poVGqc2tH+4jBjBnM//pPT8PYHTdcV/PDUYHAqqS4uOGKUPm0Wdzkz
yIN2WODLAtdR6q58V8HnEw+PvXRUWxeMUg1++sElPTyIWkTdNHv3nc61UzUq
e8VDyFvreqHld5od3bOg/wEPfuoVUoeEQlrS3ThjzykeiLTnxvR6IZXRkUmz
CeOhZEj+ckOmkFa3f2+cHcTDQPURXYGjkGrvf20RvZ8HLw/D1Z+KRujegNFl
sWt52Hkj58Rer2FadMnwwBSHveuLm+svWg1TTYkhXpk4D1dDxOWqZw3TT5vy
6jaOy+DNOvdM9SdDVOLpujMbPstg0+CcRx3qQ/SAavmJVbUysDNOnHJpG6Tb
bwf0dYfKwOf4DOGVq/1UOd+Lo/6Si7Py857sceindbPKHoX+yUVh4fLE+eL9
dOvUNuMqcPGlNdT4oc9nKh4WHPmzgAs/05Gj7y0+UaOe6WvNjnMRNNj5TefN
B9q5etGv+WpcXDk1WTN49gMlemMm2/hcVKqqJN21/kCdrj+Q/3c6F+Nrt5ja
5/XR9nKr4acDHITlPw84GNBLn8zMT1Ot5OCUe+XoLfluWrjAzMV1HQd5Y69q
Q+u6qLtX+ZUlVhzUnhcm24R20dPndPeJLuRAmi4wf93zngaXno4zluMgTjk3
6GdZJ5WsU3hi8WYm9PN1hJFZb2lZRahl446ZsIltHU2d00z3uYYc9nWURmGi
c58guonGicQuWrJMGvy0puYHQ3/RlRLbjwgNpdFZ9Kyo/WkjLSoddtPjSuNb
xtE6i556OqdFe0V2jRR265hcM4+tpmfqGVdfEyn0yd2/GpEUSR0P+21L4kvi
/3+Ay20=
             "]], LineBox[CompressedData["
1:eJwV0Xk4lekbB/CzWAudY8lWhnJw8FqKRpLnkS2MbBMhErKktFhrSmWJNi0K
WWdQiUiNCsnzlilLzclUZsjSKZIlO53zvsdxfuf3x33d1+ef7/29rlsn9JD3
PhqFQikXz//3iHJzUWpeGqjNvlQR9V0av+3goOkaWgK0N04IQKs0js4z7udM
1wHDEbOPj5Kl8cWWNlEn5zkYmypPHx6Wwhn+6ysjbN8Bn9drare3SeLtvUPd
6dx3QOrDWHhevSR+JqCCXp76HqQeW9Es+kMSnwtk7fn06gO4wRu+/NNJSfx9
sP7qXR7/ARX1muAqC0k8N9wo3SWkHxjI/33F/a4EvuPrxINI2gC4qs2mx+ZL
4FIR9z5lVAyAKF3n32ozJfCkSGzLi9FBsBune12JkMCNH6keK27ggmRnfcd+
lgSu0KButtpuCMREMs5XV9Hx/XzCiXVtCGhHbvXvK6Tjr6w+BlkMDYFC+7Fo
40t0PKWx4IJ3xjDwfaGosuEwHZ9u0vyW3fEV1Fju/aXjZzre9WxtibT3KGBx
Jx3k/qbhOa06ckToJHg8kCAqV6DhcrbbvhTXTgIHfN3jgxI0PL0htGEbOQk8
+7mhHiQVT6wpD794dQo401w4/iNUfFce69lP+DSo86kyy0BU/PIj5Z/LFWZB
yF2MIpNIxd/M6ZYlWMwCb8bDJKuDVFzGzFJ+e8AsaE8/X3QynIqfrto59P3W
LFiTXarl6EPFj5bmXt60dQ5sK7MPazWn4jvPqY12xMwDn0H2c885Cn7tlYFP
0dV5cMPOxrZ+nIJz6JtbYp/MAw1JPRf2EAV3SvG/rkRfADuOEG7OHyi4VVwB
DCpYAFZs5rz7EwquGbTm5kz7ImiWv3w8+DQF/2ym7aqqxwf61YvbItdS8Igr
oi0qHnwgRLYzmCoFH58exJSS+SDEtc6czqTgc7XFzFWdfPAi8fyLHgkKTsM0
e6ViCVBfYD/q+1GEdNmro348IkHEPUIh77QIVWYt+i8MksDt1CqsK0GEjEc/
uM1JC4DVWvVEnRgRsriTYzrlLwC4f1vMSl8RcmQxeV+FAtAoUey2aCxCETpy
Z7sdhWCZU/l9ZHAZjZ+eSHofKwQqBr9qp3Uvo1huZ/Q/eUKQ6NMYu/HNMkos
Pef+95gQdK01in/buIwy10qrvLy0DEK6h39M3VhGleq0ivpuEThE2HGLvJbR
oswSt2MDFTpa2Kzb0y1ER4vtGWNOVJg8TAveyhGiGfMLQCaQCqt337FmtwnR
eIBGiVMaFYJiZyd2oxBx71kFtr6nwmueNpxXxUL0xjOhuzmeBidj8hwCooWo
PH+q4/5jOpQY+fa7nKwQaWObCE4nHV6cOs4NoQtRyfOTBlODdLjKsJmChEso
f1wu01haAi6lbE7Nn1tC2TZGDnf9JCDL/O3ss/4ldJwb2VLGFzvVvq7l4RLy
Mvj88Ia1FLzp1hYktW8J+b7mewW4S8HD6/g1T0OWUEAsY1YrRAreePJ8T9Lu
JRReD0wrM6RgWeToA+qvSygRllQ3dUnBU9h0UYj9EirYFVjxKUIaqh8OCbNZ
v4SGs7pvsHNk4OLpewK1bwI0ajRpMXVLBh4oOvAodUiAJjkSHx42yEDziYnd
s58E6IeyhaLNoAx8Kbt+x0CPAMn8cS17B1sWZg3eq5nqFCCs0SMzDslCmt9x
z+n7ApQ41pH8bGIFVN6crGN8UoBK1rr0qVJWQs8ym17uMQFq82rfelR5JVQW
5GoVJAqQWtMrmv7WlfBiew6mcViAms63XrySvRJWkQmhHmECtGz07Pcwczm4
7tLH0rOuApQRW9cumyQPewY0jsxoClBtmalR+AV56F/ytUNPXYD+/bf2Ukup
PLTwTKkPWS1AeqDGO65dHjZpJet+YghQ+6qq/n51Bfj8UFmDpJQAyT0on7nf
rACzlWSxhRkSdR5zkzOiMmDwaJIi1kGidZpxi1UrGHDHuGz03CsSHW8uGDRU
ZsCkyXPWTX+RiC0aqzPUZ8B2aRNbL5xEWelZOw3dGVBJs3dX0RMSOV9+WcK+
yYCnRrxPlt8m0V8VwNzAnAmdNNX0dp8l0RqnSI1Kaya0+tBbEp1Oovhv2XQD
ByYMVMK0j6WSaL3hYLe+HxOGXmCalaSQKPX+ieP6J5mw12/ahJJEIrumxla9
DibU5fwurxNFopa3G31ZexWhZeXz4hdu4rywzICE/Ypw6fCyibKruC/vY/DL
OEVopsjeE7mdRNe1UiP3nVWEdbqrcxQdSbT/YFfyrWpFeH3jZ9kTtiRavfJg
IeuHItSO8Xa8aU6iWKfbXNYFJTgaf8VrSo1EWs/UYvQeKcPKm6TVzQkCRahr
e9khZejR0fiANU6gmgT9n3d3KEO9yldn/xwlkI3JJvq1AWXY7Wtn+/4rgQJK
fQqFkirwyhG8dh2XQDfOZL/+4KsC74jmKZRuAsk5SRin8VXgYmZGZCUiEMmZ
/v5piyoMuIUf8c8nUMaGT+fdHVVhhcr9efs8AjFyOQZPd6hCA5daD9NcAukF
1YTn7lWFhtPfrspcJ5D3xP7+XzJV4cPavvUvLxOoSnrkdeM7VShz1PrOvkxx
H9hflROtBhnLNc+3JhHo6YP2KOc8ddi5MW+Dpj+BegZiRk/9oQ4l5FeQOrsI
tCC7KqqhWh32XrVOY/sRyCR0ZyQbV4dfpnz/s95JoDLFL/tWjqnDU3Z+sRFe
BDofJwh9a60BC03PFnBdxPcsTYL8BjVgRiThELiFQPyGHK9I1hpYFp4RBrUJ
pH41xMIySwteTVz1W/48H/lQVGbTD2lD4n1gEI3DR36dR1Pc6nWg7Ls6VlsV
H3FO/CMTPbQOfo14eXZtNh+l2d3t+GKkC7W+1cZ2HeWjKS/R9J5YFuQM6Iay
A/notauvkkWhHgy/NB4W78xHIzv1DoZ/1ocXpTdI21vwUbwLr3WCyYbDUW2N
qrp81JDldDrRxhAe4PfM31HhI+uPCnFBp42gyqZf2oOl+chEuSe0sNZY/J+U
J0YCHnLNJBe4fxrDE406aTyShyLINZl6jcaw8O2/e1vFLuXurX7Qagw/73Tf
FSg2o2Zivq3HGDJbXAwuEjw06yhKX6BhsEUzy22Wx0P1SXp33P0w+K2+b1fH
Ag91jW/fnLMbg6tdNOPyxP4eFPO6Zy8GHY5ipfvEZjnUTYcdwKBZbLkxTexc
hrXV8TMYjJp5o2kzz0PJd907bldjsM1gaNufszx0fc3hwO91GOyNGEpIFbvu
8rVJ88cYtBzTbvISeyzhP+YzHIP5bqaJMzM8FLBtb8D7bgwe/FL41ETsxEdp
39X6MCh9JCtpeZqHrhncTgnmYnB5xX4HjtidChNlY+MYDGgeZcSKPXJG3tJ0
BoMUZjzDVmzaomlb/CIGkye6tBXE1ory9m8iMdh/7Ifd4BQPbemLnxCJMHho
pi+uVuz/AemVIic=
             "]]},
           
           Annotation[#, 
            "Charting`Private`Tag$14902#1"]& ], {}}, {{}, {}}, {{}, {}}}, {}},
       AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
       Axes->{True, True},
       AxesLabel->{None, None},
       AxesOrigin->{0, -4.504228160310024},
       DisplayFunction->Identity,
       Frame->{{False, False}, {False, False}},
       FrameLabel->{{None, None}, {None, None}},
       FrameTicks->{{Automatic, 
          Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
          Charting`ScaledFrameTicks[{Identity, Identity}]}},
       GridLines->{None, None},
       GridLinesStyle->Directive[
         GrayLevel[0.5, 0.4]],
       ImagePadding->{{1.8673469387755404`, 1.5}, {5.979444945505691, 0.5}},
       Method->{
        "DefaultBoundaryStyle" -> Automatic, 
         "DefaultGraphicsInteraction" -> {
          "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
           "Effects" -> {
            "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2},
              "Droplines" -> {
              "freeformCursorMode" -> True, 
               "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
         "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> 
         None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
             (Identity[#]& )[
              Part[#, 1]], 
             (Identity[#]& )[
              Part[#, 2]]}& ), "CopiedValueFunction" -> ({
             (Identity[#]& )[
              Part[#, 1]], 
             (Identity[#]& )[
              Part[#, 2]]}& )}},
       PlotRange->{{-15, 15}, {-4.504228160310024, -1.4957718396899755`}},
       PlotRangeClipping->True,
       PlotRangePadding->{{
          Scaled[0.02], 
          Scaled[0.02]}, {
          Scaled[0.05], 
          Scaled[0.05]}},
       Ticks->{Automatic, Automatic}], {576., -118.66252583997979}, 
      ImageScaled[{0.5, 0.5}], {360., 222.4922359499621}]}, {InsetBox[
      GraphicsBox[{{{{}, {}, 
          TagBox[
           {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
            Opacity[1.], LineBox[CompressedData["
1:eJwV0Xk4lAsbBnDZ97FmDychNVQOii6P5RwVhYSkTictlpQ2JxSyVChLtsiW
CkX41FG28j5ooYYsSVEaDCr7zLzvTGU5fX/c1339/r1v3YMn3I4ICggI5P7K
/9tqIHhiaYmOqTS9xJ3yfHhfd2tm2086Sg6NvdX/5bPZHZx0io77Ah3l5uX4
UOVhOG8wRUf35P79Jb+s1zkg7dpPx/uBQd4/aHyQfm5nXFhNx6Jj3c9vyvJh
sFLulE0AHce36NswpfgQHVNORXWvxZjHIo7monxIUAl8XXx1DX7wlLqu/p0H
K54Z3jnjbYTptAs76yZ4sKDnr2xtshp1rKzdDn7iQcEZ453l3wywKOzxalsG
D9o/cFJaGvSxYU3PzeR6HjTSbbIjz6zCbQ+u0dYX8+C7mayV+Xo9XBErW3wj
iQdNHgPM68Ir8ZHO9dcdwTxwOmTimtuoi/UW5X/ZefLgUHxM89ZkHRxHq+PJ
ZjxIaKksGH25AtU+tNvcl+NB505fp2gbTWRZeS0ND1HwwnC9oLyFJor2CHXp
/XLD0s/aQrom6r58tcqXSUFJRao+qmuiegN6jg9SEC7xdNkSVwOL41paRwYo
MGxSrA0v1cC8/ubIZ70URK9r0gtV0MDhhhd5um0UbKBpLgax1NBJpzhzTSUF
17VMe0z71fBf1mZBiwoKvq9xvMd/o4Y/Z8If2JZTgFtD3WIa1PDA6ytv3cso
cIl5W5KZpoYnckqUTpdQcIxMdHlio4Y9c08exxVQUDywUCiRr4rOOt5iaskU
qN77bF/koYK/6cBEzlHq1x+vFrKdVDBc1bsvOIACPeajmiRbFRyarWPs8Kdg
nWrimhC6CpZcONsxf4SCLfEbFR1FVHAv8VjKxYeCs/6pwzPVy3GPhJlHy24K
eg3to62UlqNgKHNuyJ6CtNKSxu5uJdwvP8wqVqXAvbEUg9uUMC7U74eLCgXL
e8qbl6MSHtP+c4yvTEHu/MMX3hVKWJkubLVFkYIiF6JjOE4JBSJGKnplKKgh
+wbZm5XwvPWkd60gBR9tJZYU7iqiQ7Wyc8IECQWe0sse5Svi+0C+nNQ3EnwC
aUK7MxQxc1dj8NUvJIxlKIvlRiuiaFeoSvwoCTPjurSV+xQx/3hKxsnPJAgm
W2qbyiviaT+1uvluEgz6A2HXeQUU85Z15NSS4KXf8LfRKQWsHsju0qkhIf60
ZNQyPwUUHrM/vv0RCV8kS/F/bgrovp//Nv8BCWVWY7bSRgp4d1mA3OoyEozz
D/zx/L08xnT3nR3MIeH3Ax7bLMzl0f3LjayKcyQcLi8KkF0rj5tyE9yzQknI
5HMSRnXlcU1QbG3kWRKoa2mv0mXk8fJ26ojDaRJqmt44zbLkcFz95nhtAAmW
Kx2dS9PlsN1Ya0bfi4QoRkSJ+TANqS2Ur7gpCd6e20PgDQ05F7qFWteRYMpU
37r1CQ3DjftULxn/2odT83XPdRrahafn8FaTsEODvTbCkYbthwIvPdUhQf2o
778tD2Vx4OjmFW0yJFSLuaBrrAyKZmaFNo5yITlVK3XPSRnsGrtrqzfCBT+N
SZ+Df8ngseqwr5eZXFA3SRAKtpBB/RJbwm6AC9GeLQ5ZE9LIynk0mt7JBedi
i/ZPu6QxTGebSFY9F77a6fQf1ZNCmuq9Qe5VLhRYxY1/oknhRxdMKY3ngvvv
01zXn5J45UjznT2XuICrntAsuiVxZGVVx/1ILmSLe/0pFCWJrgqfdVVOccGh
I6Uqd0ACYbGMK+DBhdt7li4z0sTxYfoj415VLni5+WZApDjuW54xMqTEBVmn
9lsPA8TxhEDI9S9yXAjbnPsk20YcfQ6vbBoR54KrtgX78LQYWmfUVKTwObDI
CvprYZsYLnTVRT54x4G9JwdNjZeJYkjM1FJVEgc8L05JLpsSQYXWQkNePAdc
s+eHet6LYGaWTIHZRQ78gerXwqpEsE+5UT/3HAeM5XZPPvtbBJtu2JWK+nFA
sOpN0d5GYfxoKhbnbM2BezOonHBeCDuCzHNkxthwW6hzcq+fEF7YHjtlxmRD
vsrnFuNdQrgvSaB3Vz8b0mDh1FsjIRyze0Kd6GDD+ZRNHdr9gvjSRiVZ/zEb
nE0eXn68URBjj8+sD45lAzfoDm+EFMBiqbD6x0ps8Ase3i8/IoDQ4Jn2ToYN
/WG6L6w7BfCIqEH/V1E2NF28mXGjTAAXl2I2fePPQXJO7nqXvwUwaupWofPH
OXBNNOgLTl0i7NI8xeML58A8q7j4TeASQYVnir3JngOt2yuDjRyWCLGN8w5i
qXPwrUZbnvljkRgvEp5wjJ6DiyMqTk6HF4mtzKdB6j5zUGspTuhaLBBu+XE/
H2nNQcGfl5PC5ReIP87lti4ozcElV+F9fRPzRN4VNZPfpefAzVfge2LhPPGC
LiN97McsTKbyN/Al5onVCw8JwXezoPP1S0nHxx9ExO3qLzcTZiEuqy35fAyf
0HRRPEBvngH9qNB3ZXv4RNxx1v7y0hl45m+won8dn7iyPbx+7toMCFpeqtj4
mUdEGoYxGPtnIPyjDYO04hGZv6W1VPGm4bRurcRJkiQw2V47UWsa5CX9dt5k
kIR53sZQ9WXTUMVWvtFxhyRkQj7bH2JNwVTLGUO6G0nk3POZ0CmbAn9fky3f
KrlE8qchMbMNU7D/fsnFw/4cos67sWrBdBIW0j0Y6cAhriq1AkNhEvLChZVa
lnOIsl239LfMTcCHHQfv6D5nE8qaFnTriglwn9VqHtRlEw/C3ios150AR7PM
Ja+BWeLkh8EbKbyvEBgpRubkTRKBRbfXX/Qah0TlVc8PuU4SensZkjz6OJSX
22WuFZ4kfBdO9AoLjcN0f4RZY+AEQROYlpm+PwanLbj/DFl+IxjXNNYN8Uch
bJZJGXwYJ6K027hFkSzIiVt8MZs4TtgXsQaO7WBB/QrNrDqbccIpgfJ8psGC
+e27LZzujRHBfYsM7ZoRiCptDwkKGSUUTYrOnfsyDHEH6/nVyiNEZTPzwBGz
Ibj3va81om2YSLjVe5Q9z4TWa2S2Q8QwoW99O0PiGRMkiXWb3rOGiIk2I8t3
rkxI1rgb9vNfJrF5a6Phu7ZBMCo1IGOLPhI5z6cGoqf7wSGpn5+v1UMYvh6+
GpjeDeWZnmP0+G7iuLB/xpBENygWdPc8ZXcRvxkxc+5f6AJm5avKTy87ieDM
/CXHgE6gCv9ps2QxiLadxze4H2WAj4H5rU1JLUR5q3Rqr28LjCk9yYvJiiV2
up06vTcrFv4DC1MU9g==
             "]], LineBox[CompressedData["
1:eJwV0Xk41PsXB3BbKNuMaExEunYmuZWk5fOpNO0Kj4hUyNJy1UVKN0WRrcgS
kihkjejiCjlXItKVJSo01rLMMGb7zlDym98f5znP65/3eT/P0fW4YO8lJSEh
kSOe/+/vanUZN1NvITv7P/1dU29Bno2N5n6PTGR90XuZ1KlMgBjS8yR2GWqw
Hn1pM1kGgvq3i+/aG9Cf5IbKf8obgHTstwLv7V3I5yk1vqapE1q+jPaED3Wh
7pPln21cuyDMJVc652Y34q1/piM12wVcV/2Tg80fkfOuz6HSlI/QfcJwhfPh
T8hxU+qyEpdeSDltGr7v1AB6k5IanFTZB7bfmOU+Ul9R0I+q7/Fb+0HW+9lg
RO5X9HqgWf/O63647EPb8nqCgbQWhi+HtA2AWSUl+FH1EMJvmnpXdTJAuZq6
bsWOUeToUf/JznEYzorm6PqJo+i657KHifeGodmqz23D6ChK4rg427YNw/WX
6bH2EWMon6go3oRGgF2jOR7X+g0dMP6rvW/1KHS8WpUpZz+Bzt/Yy2pvG4Ok
Rl3FOY9pZBxtJHWxaRwUt+8ceVQ6jbi/Ag33zYxDeLVH9c75adQQdy3w9YoJ
CCrJOX0nYQaNEf3Nad4T4Jyq/0rnXzbC5Ue3MSUnIb5SbVOOMgddd9m3OGg4
Be+5etmXNnBQVf0mXe0DUyC/bqPSXhcOYrB67i71m4LQIsdR1lMOSnwbFsF8
MQX+WSnxltu4SBTE8edaMcExWmOi9RwPVd52/lFnyYLEZiOHjAQeKp5TljN3
ZEG79OZ6v394KIXp0+8SwAL69WPJy6X5qNl6ZcdIKQusAtKxWzof6brWrm9Z
Mw2abloPZlsEiNzaqH771zQMr1u9n2IgQp4OxnyPGDZ431vcon5YhBQklqC9
OWyYYjNoy6+IUGjv9s28WjZwSx+RVd6JEKHXK8hgsUGKpvlF1m8OHfSqoxTq
z4Ke8QpfonIepTvIcnxvzEJBlOAYnzGPKkNnu8xjZsFs4uMBrtwP1DLyPZqR
PAsb8pPMZ479QDjPKplfOAu79cnCbws/0J4fHhXLumfBW1fxds/uBSRl4bSc
qsuBqVDm5W6/BcT8VDx4zYQDfkPvznSmLqCYZ/SE9+s5EJQVfei/yQW0buRj
7Do6ByJXyak33f2FHptoLiWf5UABVSq3omcRJcjW63iWckAg/3Oo9XdJXNvW
+PWxCRf8H+0iTdIlcZTmwpPXFlyYtYhF8q6S2DHHuanXigtTLisz6bckcYNH
9cteOheGnlm5NnZLYr/njRabPbjw/silnrpAKbw82bf2aQoXctJmWp9XSeOf
VI2TPIILq2mWc+3vpHEgOUIn6ycXMhtCjGYY0pjTs2sRS/EgbUox0kxOBsuE
NYf4KPEgbqupTaGTDO5vX6e88zceXB3yqc8WiR1Sd3jHIR7YGQ2/uG8ti30q
rLLn0nlwtE1k53JIFt/7Kmdvk8UDFz8SR/uULD63d/vjqBwenK5A5gURsvhE
GsX2VzEPgnBmcU2HLA7rInlm1fEg3dk1d9BbDo/HZ2U0DvBgLKrnvnGSPFa4
4SAzrsGHCdPpDTNP5XGyZ9L+EC0+TLfLfHxRLY8/qKnlKK/mA6G2QXUrQx5v
IQbK1xjyQf5JYpyt8VJ8RdfBnryRD7SXhyMDYCn+VRDxnHSED0GTrVdeMZdh
VnMko/smHzJX7eunSCjgMrdGA53bfHhr17LNX00Bs2TODHtF80GjplnKcJsC
Dtx0vutbPB9qYhrv3ItTwEeXxDwqy+DDL9NXjz0tFDHDX/9UcCUfIvzKWpZe
VsJGa77FqYzxoTTb3PR0rBLOd19p+eU7H3p7S+/WZynh98/DDmRN8sEAldgH
tChh+nBk/2o2H1pUigYGqMoY3XPbMz/HB8XynNnndcrYn0V0KagI4F3wAUVT
SRLOpkRNd1kKYI1mgKBoGQm/UCdSlDYL4GpdOsNEjYSjVYOadm8RgPHiZJmJ
IQlbiTobSpEAosKjHE0OkfD0mEG+514B7IlvyjR+QMJh1JKbx48J4E0usjCy
IOOasfEvOcEC0KL7rCywJuMWUwP3lL8EEDgeJ21kQ8ZPWV2Dt0ME8JsJo8fQ
iYwzA2c+uIcJ4Obza1cNQ8jYsIDUuRglgB01LxsNWsl4wOIkl5EqgPoP64/q
u6viNqftHtsqxHmekS6XzqpimXjJTmaluK+w70RTgCrumO59nPaPAJK1b/p4
3VbFR/onz0/XCODsHx1Xnhar4vPvtYlbDQJYofDHQ31CFQ8ll9R4twvAj543
pB+7HGvEXigljwtA+5XGOYNKNezsveSttxoB3tTVdjtADZdb0m371AkouWS4
6XirGu5z2hx8kELA1rWW0olf1bBpYX2D2UoCXLIcHi4sUccX45DdVx0C7ofF
tX08qo6PSSguLpoQoEiXMbslUscKV66mOWEC5tvZrMEtFJznguLyfAiI+H0w
5tBuCj4+dUSxzpcAUkq7Ua0tBX+usivrOEOAgVvJ6RR3Cu4lafgJzxFgzzw7
cDCSgm3t9AasLxJQJPe97WUXBYvuNjmnXxH3wQNFSWc08Kyk/fbXUQTUlrf4
7kmlYsv3vv+N5RHw+eu5iRtPqPgnV7CEkU8Af6mKb3UxFRv6NV3rLSBgrYej
j/G/VKxNLjRqKiIgW3XES2GSisPqCxIelBIQE/DD44P1SuzVEeylUyW+t3Gt
mxNjJf4rTbY29w0BouokOx99LXzi4dUMGCSAmnBqw8YobXwhejbcR1EIDhLq
nPALq7GcWW72goUQnN75Xz9QoYuFtMN9Vo5CaL/WKX9mdA3WfGAdPPKnEG7t
KGwdMdXDIxp2CeZ3hTBjt8g+6aePf1/T/6g3Vwht+48u3/DQAGf4q2fEVgvh
u6PBH6eHDXGg6D9RXZsQAvcJG5lkY6yVakWf6BdCdRQ9NGirCU6WM1R0nhKC
dZ9ygFuoKWa2/r3piUgIa9U+ezwsNRP/J2zvRxkR7I+c5w/9bYbD6Yxr8ktE
4D2vFWnw0gx7rTPO3Cp21pB7cXmjGdYpepGfKzaphMl7+9kMs3dUfQqQFQFn
92I4X4qGd45drlCWF0HFZYP8Q040TD2gl2+pIIKOqb2bk47T8FTV2B1fsVlu
59o+u9Nw3d2uU+li69uUsT3P03BHwvHuBbFTSNZWV8NoOE1l/VijogiuFB5q
zSum4c2ftF4dVBZBstZFV1YZDRs+0IoJEbssPnHaooqG21YM7i4Ve/LSJ/Kr
f2nYt6IjWkVFBC473V26e2g4adVpm06xgypvsTT6aXgu7nKUJEkEiUZ5108M
0bCU4H6thdjvlJnZk1M0nLeLwk4Q+3uY0kbzWRqWYMeyG8SWEpi/DRTQcJSa
+SBHbG1f+2M18zSsd3tpvS5ZBFv6A5mLizScoKJ3x07s/wFN2knv
             "]]},
           
           Annotation[#, 
            "Charting`Private`Tag$14949#1"]& ], {}}, {{}, {}}, {{}, {}}}, {}},
       AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
       Axes->{True, True},
       AxesLabel->{None, None},
       AxesOrigin->{0, 0},
       DisplayFunction->Identity,
       Frame->{{False, False}, {False, False}},
       FrameLabel->{{None, None}, {None, None}},
       FrameTicks->{{Automatic, 
          Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
          Charting`ScaledFrameTicks[{Identity, Identity}]}},
       GridLines->{None, None},
       GridLinesStyle->Directive[
         GrayLevel[0.5, 0.4]],
       ImagePadding->{{1.8673469387755404`, 1.5}, {5.979444945505691, 0.5}},
       Method->{
        "DefaultBoundaryStyle" -> Automatic, 
         "DefaultGraphicsInteraction" -> {
          "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
           "Effects" -> {
            "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2},
              "Droplines" -> {
              "freeformCursorMode" -> True, 
               "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
         "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> 
         None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
             (Identity[#]& )[
              Part[#, 1]], 
             (Identity[#]& )[
              Part[#, 2]]}& ), "CopiedValueFunction" -> ({
             (Identity[#]& )[
              Part[#, 1]], 
             (Identity[#]& )[
              Part[#, 2]]}& )}},
       PlotRange->{{-15, 15}, {-1.5042281603100245`, 1.5042281603100245`}},
       PlotRangeClipping->True,
       PlotRangePadding->{{
          Scaled[0.02], 
          Scaled[0.02]}, {
          Scaled[0.05], 
          Scaled[0.05]}},
       Ticks->{Automatic, Automatic}], {192., -355.98757751993935}, 
      ImageScaled[{0.5, 0.5}], {360., 222.4922359499621}], InsetBox[
      GraphicsBox[{{{{}, {}, 
          TagBox[
           {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
            Opacity[1.], LineBox[CompressedData["
1:eJwV0Xk4lAsbBnDZ97FmDychNVQOii6P5RwVhYSkTictlpQ2JxSyVChLtsiW
CkX41FG28j5ooYYsSVEaDCr7zLzvTGU5fX/c1339/r1v3YMn3I4ICggI5P7K
/9tqIHhiaYmOqTS9xJ3yfHhfd2tm2086Sg6NvdX/5bPZHZx0io77Ah3l5uX4
UOVhOG8wRUf35P79Jb+s1zkg7dpPx/uBQd4/aHyQfm5nXFhNx6Jj3c9vyvJh
sFLulE0AHce36NswpfgQHVNORXWvxZjHIo7monxIUAl8XXx1DX7wlLqu/p0H
K54Z3jnjbYTptAs76yZ4sKDnr2xtshp1rKzdDn7iQcEZ453l3wywKOzxalsG
D9o/cFJaGvSxYU3PzeR6HjTSbbIjz6zCbQ+u0dYX8+C7mayV+Xo9XBErW3wj
iQdNHgPM68Ir8ZHO9dcdwTxwOmTimtuoi/UW5X/ZefLgUHxM89ZkHRxHq+PJ
ZjxIaKksGH25AtU+tNvcl+NB505fp2gbTWRZeS0ND1HwwnC9oLyFJor2CHXp
/XLD0s/aQrom6r58tcqXSUFJRao+qmuiegN6jg9SEC7xdNkSVwOL41paRwYo
MGxSrA0v1cC8/ubIZ70URK9r0gtV0MDhhhd5um0UbKBpLgax1NBJpzhzTSUF
17VMe0z71fBf1mZBiwoKvq9xvMd/o4Y/Z8If2JZTgFtD3WIa1PDA6ytv3cso
cIl5W5KZpoYnckqUTpdQcIxMdHlio4Y9c08exxVQUDywUCiRr4rOOt5iaskU
qN77bF/koYK/6cBEzlHq1x+vFrKdVDBc1bsvOIACPeajmiRbFRyarWPs8Kdg
nWrimhC6CpZcONsxf4SCLfEbFR1FVHAv8VjKxYeCs/6pwzPVy3GPhJlHy24K
eg3to62UlqNgKHNuyJ6CtNKSxu5uJdwvP8wqVqXAvbEUg9uUMC7U74eLCgXL
e8qbl6MSHtP+c4yvTEHu/MMX3hVKWJkubLVFkYIiF6JjOE4JBSJGKnplKKgh
+wbZm5XwvPWkd60gBR9tJZYU7iqiQ7Wyc8IECQWe0sse5Svi+0C+nNQ3EnwC
aUK7MxQxc1dj8NUvJIxlKIvlRiuiaFeoSvwoCTPjurSV+xQx/3hKxsnPJAgm
W2qbyiviaT+1uvluEgz6A2HXeQUU85Z15NSS4KXf8LfRKQWsHsju0qkhIf60
ZNQyPwUUHrM/vv0RCV8kS/F/bgrovp//Nv8BCWVWY7bSRgp4d1mA3OoyEozz
D/zx/L08xnT3nR3MIeH3Ax7bLMzl0f3LjayKcyQcLi8KkF0rj5tyE9yzQknI
5HMSRnXlcU1QbG3kWRKoa2mv0mXk8fJ26ojDaRJqmt44zbLkcFz95nhtAAmW
Kx2dS9PlsN1Ya0bfi4QoRkSJ+TANqS2Ur7gpCd6e20PgDQ05F7qFWteRYMpU
37r1CQ3DjftULxn/2odT83XPdRrahafn8FaTsEODvTbCkYbthwIvPdUhQf2o
778tD2Vx4OjmFW0yJFSLuaBrrAyKZmaFNo5yITlVK3XPSRnsGrtrqzfCBT+N
SZ+Df8ngseqwr5eZXFA3SRAKtpBB/RJbwm6AC9GeLQ5ZE9LIynk0mt7JBedi
i/ZPu6QxTGebSFY9F77a6fQf1ZNCmuq9Qe5VLhRYxY1/oknhRxdMKY3ngvvv
01zXn5J45UjznT2XuICrntAsuiVxZGVVx/1ILmSLe/0pFCWJrgqfdVVOccGh
I6Uqd0ACYbGMK+DBhdt7li4z0sTxYfoj415VLni5+WZApDjuW54xMqTEBVmn
9lsPA8TxhEDI9S9yXAjbnPsk20YcfQ6vbBoR54KrtgX78LQYWmfUVKTwObDI
CvprYZsYLnTVRT54x4G9JwdNjZeJYkjM1FJVEgc8L05JLpsSQYXWQkNePAdc
s+eHet6LYGaWTIHZRQ78gerXwqpEsE+5UT/3HAeM5XZPPvtbBJtu2JWK+nFA
sOpN0d5GYfxoKhbnbM2BezOonHBeCDuCzHNkxthwW6hzcq+fEF7YHjtlxmRD
vsrnFuNdQrgvSaB3Vz8b0mDh1FsjIRyze0Kd6GDD+ZRNHdr9gvjSRiVZ/zEb
nE0eXn68URBjj8+sD45lAzfoDm+EFMBiqbD6x0ps8Ase3i8/IoDQ4Jn2ToYN
/WG6L6w7BfCIqEH/V1E2NF28mXGjTAAXl2I2fePPQXJO7nqXvwUwaupWofPH
OXBNNOgLTl0i7NI8xeML58A8q7j4TeASQYVnir3JngOt2yuDjRyWCLGN8w5i
qXPwrUZbnvljkRgvEp5wjJ6DiyMqTk6HF4mtzKdB6j5zUGspTuhaLBBu+XE/
H2nNQcGfl5PC5ReIP87lti4ozcElV+F9fRPzRN4VNZPfpefAzVfge2LhPPGC
LiN97McsTKbyN/Al5onVCw8JwXezoPP1S0nHxx9ExO3qLzcTZiEuqy35fAyf
0HRRPEBvngH9qNB3ZXv4RNxx1v7y0hl45m+won8dn7iyPbx+7toMCFpeqtj4
mUdEGoYxGPtnIPyjDYO04hGZv6W1VPGm4bRurcRJkiQw2V47UWsa5CX9dt5k
kIR53sZQ9WXTUMVWvtFxhyRkQj7bH2JNwVTLGUO6G0nk3POZ0CmbAn9fky3f
KrlE8qchMbMNU7D/fsnFw/4cos67sWrBdBIW0j0Y6cAhriq1AkNhEvLChZVa
lnOIsl239LfMTcCHHQfv6D5nE8qaFnTriglwn9VqHtRlEw/C3ios150AR7PM
Ja+BWeLkh8EbKbyvEBgpRubkTRKBRbfXX/Qah0TlVc8PuU4SensZkjz6OJSX
22WuFZ4kfBdO9AoLjcN0f4RZY+AEQROYlpm+PwanLbj/DFl+IxjXNNYN8Uch
bJZJGXwYJ6K027hFkSzIiVt8MZs4TtgXsQaO7WBB/QrNrDqbccIpgfJ8psGC
+e27LZzujRHBfYsM7ZoRiCptDwkKGSUUTYrOnfsyDHEH6/nVyiNEZTPzwBGz
Ibj3va81om2YSLjVe5Q9z4TWa2S2Q8QwoW99O0PiGRMkiXWb3rOGiIk2I8t3
rkxI1rgb9vNfJrF5a6Phu7ZBMCo1IGOLPhI5z6cGoqf7wSGpn5+v1UMYvh6+
GpjeDeWZnmP0+G7iuLB/xpBENygWdPc8ZXcRvxkxc+5f6AJm5avKTy87ieDM
/CXHgE6gCv9ps2QxiLadxze4H2WAj4H5rU1JLUR5q3Rqr28LjCk9yYvJiiV2
up06vTcrFv4DC1MU9g==
             "]], LineBox[CompressedData["
1:eJwV0Xk41PsXB3BbKNuMaExEunYmuZWk5fOpNO0Kj4hUyNJy1UVKN0WRrcgS
kihkjejiCjlXItKVJSo01rLMMGb7zlDym98f5znP65/3eT/P0fW4YO8lJSEh
kSOe/+/vanUZN1NvITv7P/1dU29Bno2N5n6PTGR90XuZ1KlMgBjS8yR2GWqw
Hn1pM1kGgvq3i+/aG9Cf5IbKf8obgHTstwLv7V3I5yk1vqapE1q+jPaED3Wh
7pPln21cuyDMJVc652Y34q1/piM12wVcV/2Tg80fkfOuz6HSlI/QfcJwhfPh
T8hxU+qyEpdeSDltGr7v1AB6k5IanFTZB7bfmOU+Ul9R0I+q7/Fb+0HW+9lg
RO5X9HqgWf/O63647EPb8nqCgbQWhi+HtA2AWSUl+FH1EMJvmnpXdTJAuZq6
bsWOUeToUf/JznEYzorm6PqJo+i657KHifeGodmqz23D6ChK4rg427YNw/WX
6bH2EWMon6go3oRGgF2jOR7X+g0dMP6rvW/1KHS8WpUpZz+Bzt/Yy2pvG4Ok
Rl3FOY9pZBxtJHWxaRwUt+8ceVQ6jbi/Ag33zYxDeLVH9c75adQQdy3w9YoJ
CCrJOX0nYQaNEf3Nad4T4Jyq/0rnXzbC5Ue3MSUnIb5SbVOOMgddd9m3OGg4
Be+5etmXNnBQVf0mXe0DUyC/bqPSXhcOYrB67i71m4LQIsdR1lMOSnwbFsF8
MQX+WSnxltu4SBTE8edaMcExWmOi9RwPVd52/lFnyYLEZiOHjAQeKp5TljN3
ZEG79OZ6v394KIXp0+8SwAL69WPJy6X5qNl6ZcdIKQusAtKxWzof6brWrm9Z
Mw2abloPZlsEiNzaqH771zQMr1u9n2IgQp4OxnyPGDZ431vcon5YhBQklqC9
OWyYYjNoy6+IUGjv9s28WjZwSx+RVd6JEKHXK8hgsUGKpvlF1m8OHfSqoxTq
z4Ke8QpfonIepTvIcnxvzEJBlOAYnzGPKkNnu8xjZsFs4uMBrtwP1DLyPZqR
PAsb8pPMZ479QDjPKplfOAu79cnCbws/0J4fHhXLumfBW1fxds/uBSRl4bSc
qsuBqVDm5W6/BcT8VDx4zYQDfkPvznSmLqCYZ/SE9+s5EJQVfei/yQW0buRj
7Do6ByJXyak33f2FHptoLiWf5UABVSq3omcRJcjW63iWckAg/3Oo9XdJXNvW
+PWxCRf8H+0iTdIlcZTmwpPXFlyYtYhF8q6S2DHHuanXigtTLisz6bckcYNH
9cteOheGnlm5NnZLYr/njRabPbjw/silnrpAKbw82bf2aQoXctJmWp9XSeOf
VI2TPIILq2mWc+3vpHEgOUIn6ycXMhtCjGYY0pjTs2sRS/EgbUox0kxOBsuE
NYf4KPEgbqupTaGTDO5vX6e88zceXB3yqc8WiR1Sd3jHIR7YGQ2/uG8ti30q
rLLn0nlwtE1k53JIFt/7Kmdvk8UDFz8SR/uULD63d/vjqBwenK5A5gURsvhE
GsX2VzEPgnBmcU2HLA7rInlm1fEg3dk1d9BbDo/HZ2U0DvBgLKrnvnGSPFa4
4SAzrsGHCdPpDTNP5XGyZ9L+EC0+TLfLfHxRLY8/qKnlKK/mA6G2QXUrQx5v
IQbK1xjyQf5JYpyt8VJ8RdfBnryRD7SXhyMDYCn+VRDxnHSED0GTrVdeMZdh
VnMko/smHzJX7eunSCjgMrdGA53bfHhr17LNX00Bs2TODHtF80GjplnKcJsC
Dtx0vutbPB9qYhrv3ItTwEeXxDwqy+DDL9NXjz0tFDHDX/9UcCUfIvzKWpZe
VsJGa77FqYzxoTTb3PR0rBLOd19p+eU7H3p7S+/WZynh98/DDmRN8sEAldgH
tChh+nBk/2o2H1pUigYGqMoY3XPbMz/HB8XynNnndcrYn0V0KagI4F3wAUVT
SRLOpkRNd1kKYI1mgKBoGQm/UCdSlDYL4GpdOsNEjYSjVYOadm8RgPHiZJmJ
IQlbiTobSpEAosKjHE0OkfD0mEG+514B7IlvyjR+QMJh1JKbx48J4E0usjCy
IOOasfEvOcEC0KL7rCywJuMWUwP3lL8EEDgeJ21kQ8ZPWV2Dt0ME8JsJo8fQ
iYwzA2c+uIcJ4Obza1cNQ8jYsIDUuRglgB01LxsNWsl4wOIkl5EqgPoP64/q
u6viNqftHtsqxHmekS6XzqpimXjJTmaluK+w70RTgCrumO59nPaPAJK1b/p4
3VbFR/onz0/XCODsHx1Xnhar4vPvtYlbDQJYofDHQ31CFQ8ll9R4twvAj543
pB+7HGvEXigljwtA+5XGOYNKNezsveSttxoB3tTVdjtADZdb0m371AkouWS4
6XirGu5z2hx8kELA1rWW0olf1bBpYX2D2UoCXLIcHi4sUccX45DdVx0C7ofF
tX08qo6PSSguLpoQoEiXMbslUscKV66mOWEC5tvZrMEtFJznguLyfAiI+H0w
5tBuCj4+dUSxzpcAUkq7Ua0tBX+usivrOEOAgVvJ6RR3Cu4lafgJzxFgzzw7
cDCSgm3t9AasLxJQJPe97WUXBYvuNjmnXxH3wQNFSWc08Kyk/fbXUQTUlrf4
7kmlYsv3vv+N5RHw+eu5iRtPqPgnV7CEkU8Af6mKb3UxFRv6NV3rLSBgrYej
j/G/VKxNLjRqKiIgW3XES2GSisPqCxIelBIQE/DD44P1SuzVEeylUyW+t3Gt
mxNjJf4rTbY29w0BouokOx99LXzi4dUMGCSAmnBqw8YobXwhejbcR1EIDhLq
nPALq7GcWW72goUQnN75Xz9QoYuFtMN9Vo5CaL/WKX9mdA3WfGAdPPKnEG7t
KGwdMdXDIxp2CeZ3hTBjt8g+6aePf1/T/6g3Vwht+48u3/DQAGf4q2fEVgvh
u6PBH6eHDXGg6D9RXZsQAvcJG5lkY6yVakWf6BdCdRQ9NGirCU6WM1R0nhKC
dZ9ygFuoKWa2/r3piUgIa9U+ezwsNRP/J2zvRxkR7I+c5w/9bYbD6Yxr8ktE
4D2vFWnw0gx7rTPO3Cp21pB7cXmjGdYpepGfKzaphMl7+9kMs3dUfQqQFQFn
92I4X4qGd45drlCWF0HFZYP8Q040TD2gl2+pIIKOqb2bk47T8FTV2B1fsVlu
59o+u9Nw3d2uU+li69uUsT3P03BHwvHuBbFTSNZWV8NoOE1l/VijogiuFB5q
zSum4c2ftF4dVBZBstZFV1YZDRs+0IoJEbssPnHaooqG21YM7i4Ve/LSJ/Kr
f2nYt6IjWkVFBC473V26e2g4adVpm06xgypvsTT6aXgu7nKUJEkEiUZ5108M
0bCU4H6thdjvlJnZk1M0nLeLwk4Q+3uY0kbzWRqWYMeyG8SWEpi/DRTQcJSa
+SBHbG1f+2M18zSsd3tpvS5ZBFv6A5mLizScoKJ3x07s/wFN2knv
             "]]},
           
           Annotation[#, 
            "Charting`Private`Tag$14996#1"]& ], {}}, {{}, {}}, {{}, {}}}, {}},
       AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
       Axes->{True, True},
       AxesLabel->{None, None},
       AxesOrigin->{0, 0},
       DisplayFunction->Identity,
       Frame->{{False, False}, {False, False}},
       FrameLabel->{{None, None}, {None, None}},
       FrameTicks->{{Automatic, 
          Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
          Charting`ScaledFrameTicks[{Identity, Identity}]}},
       GridLines->{None, None},
       GridLinesStyle->Directive[
         GrayLevel[0.5, 0.4]],
       ImagePadding->{{1.8673469387755404`, 1.5}, {5.979444945505691, 0.5}},
       Method->{
        "DefaultBoundaryStyle" -> Automatic, 
         "DefaultGraphicsInteraction" -> {
          "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
           "Effects" -> {
            "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2},
              "Droplines" -> {
              "freeformCursorMode" -> True, 
               "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
         "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> 
         None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
             (Identity[#]& )[
              Part[#, 1]], 
             (Identity[#]& )[
              Part[#, 2]]}& ), "CopiedValueFunction" -> ({
             (Identity[#]& )[
              Part[#, 1]], 
             (Identity[#]& )[
              Part[#, 2]]}& )}},
       PlotRange->{{-15, 15}, {-1.5042281603100245`, 1.5042281603100245`}},
       PlotRangeClipping->True,
       PlotRangePadding->{{
          Scaled[0.02], 
          Scaled[0.02]}, {
          Scaled[0.05], 
          Scaled[0.05]}},
       Ticks->{Automatic, Automatic}], {576., -355.98757751993935}, 
      ImageScaled[{0.5, 0.5}], {360., 222.4922359499621}]}}, {}},
  ContentSelectable->True,
  ImageSize->650,
  PlotRangePadding->{6, 5}]], "Output",
 CellChangeTimes->{{3.907136017784526*^9, 3.9071360436908245`*^9}, {
   3.9071361127750025`*^9, 3.9071361182124414`*^9}, 3.907136565044429*^9},
 CellLabel->"Out[90]=",ExpressionUUID->"138108eb-954f-40c8-947b-0a5ab98a2c3a"]
}, Open  ]],

Cell[TextData[StyleBox["Solution of Exercise 09",
 FontColor->RGBColor[0.5, 0, 0.5],
 Background->RGBColor[0.87, 0.94, 1]]], "Text",
 CellChangeTimes->{{3.9071355983763337`*^9, 
  3.9071356067198014`*^9}},ExpressionUUID->"46d6eba7-e788-4832-94ff-\
57049738e0a7"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"B1", "[", "l_", "]"}], ":=", 
  RowBox[{"20", " ", "l"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"B2", "[", "l_", "]"}], ":=", 
  RowBox[{
   RowBox[{"15", " ", "l"}], "+", "5"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"B3", "[", "l_", "]"}], ":=", 
  RowBox[{
   RowBox[{"10", " ", "l"}], "+", "20"}]}]}], "Input",
 CellChangeTimes->{{3.9071405500992146`*^9, 3.907140572348559*^9}, {
  3.907140758076765*^9, 3.907140824090068*^9}, {3.9071412487359796`*^9, 
  3.9071412517984343`*^9}},
 CellLabel->
  "In[281]:=",ExpressionUUID->"68cbda86-f1f6-40a6-ad5a-68f71244feca"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Beam", "[", "l_", "]"}], ":=", 
   RowBox[{"Piecewise", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"20", " ", "l"}], ",", 
        RowBox[{"0", "\[LessEqual]", "l", "\[LessEqual]", "1"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"15", " ", "l"}], "+", "5"}], ",", 
        RowBox[{"1", "<", "l", "\[LessEqual]", "3"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"10", " ", "l"}], "+", "20"}], ",", 
        RowBox[{"3", "<", "l", "\[LessEqual]", "4"}]}], "}"}]}], "}"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Beam", "[", "l", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"B1Plot", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"B1", "[", "l", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"l", ",", "0", ",", "1"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", "Blue", "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"B2Plot", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"B2", "[", "l", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"l", ",", "1", ",", "3"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", "Red", "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"B3Plot", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"B3", "[", "l", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"l", ",", "3", ",", "4"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", "Green", "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{"B1Plot", ",", "B2Plot", ",", "B3Plot", ",", 
   RowBox[{"Background", "\[Rule]", "LightBlue"}], ",", " ", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.9071367394874344`*^9, 3.907136824789036*^9}, {
   3.907136861025819*^9, 3.907136996405806*^9}, {3.907137041373784*^9, 
   3.9071370519676714`*^9}, {3.907137106170945*^9, 3.907137139592661*^9}, {
   3.9071373513301454`*^9, 3.907137353689454*^9}, 3.907137487451994*^9, {
   3.907137520716573*^9, 3.9071375227477474`*^9}, {3.907137553918583*^9, 
   3.9071375585591993`*^9}, {3.90713761855704*^9, 3.907137699882288*^9}, {
   3.9071377461306095`*^9, 3.9071377493492413`*^9}, {3.907137904307001*^9, 
   3.907137947496173*^9}, {3.907137996716185*^9, 3.9071380436856303`*^9}, {
   3.907139408490308*^9, 3.9071394590046277`*^9}, {3.9071397029775352`*^9, 
   3.9071397068679976`*^9}, {3.9071398230201817`*^9, 
   3.9071398382227335`*^9}, {3.9071398913503203`*^9, 
   3.9071399357590218`*^9}, {3.9071399981363473`*^9, 
   3.9071400781691647`*^9}, {3.907140109216297*^9, 3.907140160528881*^9}, {
   3.9071402272159348`*^9, 3.9071402494813056`*^9}, {3.9071403427765617`*^9, 
   3.907140384166295*^9}, {3.907140834449049*^9, 3.907140972765253*^9}, {
   3.9071410079537935`*^9, 3.907141014297714*^9}, {3.9071410991584496`*^9, 
   3.907141142096051*^9}, {3.9071411777834597`*^9, 3.9071412259706187`*^9}, {
   3.90714126920442*^9, 3.9071412709231725`*^9}, {3.907141584850171*^9, 
   3.9071416048808155`*^9}, {3.9071417509540663`*^9, 3.9071417918901653`*^9}},
 CellLabel->
  "In[320]:=",ExpressionUUID->"6759a590-152e-486d-a48e-5f2d315d8347"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\[Piecewise]", GridBox[{
       {
        RowBox[{"20", " ", "l"}], 
        RowBox[{"0", "\[LessEqual]", "l", "\[LessEqual]", "1"}]},
       {
        RowBox[{"5", "+", 
         RowBox[{"15", " ", "l"}]}], 
        RowBox[{"1", "<", "l", "\[LessEqual]", "3"}]},
       {
        RowBox[{"20", "+", 
         RowBox[{"10", " ", "l"}]}], 
        RowBox[{"3", "<", "l", "\[LessEqual]", "4"}]},
       {"0", 
        TagBox["True",
         "PiecewiseDefault",
         AutoDelete->True]}
      },
      AllowedDimensions->{2, Automatic},
      Editable->True,
      GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
      GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.84]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}},
      Selectable->True]}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[0.35]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  "Piecewise",
  DeleteWithContents->True,
  Editable->False,
  SelectWithContents->True,
  Selectable->False,
  StripWrapperBoxes->True]], "Output",
 CellChangeTimes->{{3.907137651587103*^9, 3.9071377006322308`*^9}, 
   3.9071377502710485`*^9, {3.9071379124167004`*^9, 3.9071379581371045`*^9}, {
   3.907138004544447*^9, 3.9071380444043756`*^9}, {3.90713941314643*^9, 
   3.907139449270482*^9}, 3.907139707899229*^9, {3.9071398314885874`*^9, 
   3.9071398388789253`*^9}, {3.9071398997883058`*^9, 3.907139937759075*^9}, {
   3.907140004261509*^9, 3.907140079153535*^9}, {3.907140117403818*^9, 
   3.907140161278826*^9}, 3.907140250465626*^9, 3.9071403874942913`*^9, 
   3.9071408732601385`*^9, 3.907141143096031*^9, {3.9071411900802555`*^9, 
   3.9071412270174427`*^9}, {3.907141262360757*^9, 3.9071412719074955`*^9}, {
   3.907141588975031*^9, 3.9071416057713785`*^9}, {3.907141773812637*^9, 
   3.907141793077589*^9}},
 CellLabel->
  "Out[321]=",ExpressionUUID->"935943c5-ec40-4d3f-acab-a8e4a44b9226"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {RGBColor[0, 0, 1], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[CompressedData["
1:eJwVkHk4lAkcgEemspFMNjVpLjkyjvDZynb8fpu2ZKh1ZbuEXAlheSqdYx2p
xLZWzsaVkmVKo2dF8gxliSlG0TpG48jZlzRp1Jpt/3if9+/35fgec/WfR6FQ
nL/yvx39R9rqRj225Jz1XWDtl72Far8yXEa3hcdStpMn+yQQgoyce/RtQGms
/ZXNTgJea2dFLt0drtcls+azM8HTb+bhVbofhG6ODp1hlUDv2kT7ZHoUdHwO
SnvHqoK8ZbsTLtLjQKNbbjLJagK+xj2TJHoa5DcLIsZZr+DnvfnCd1NFUC5M
6g6xHANNFf/ADqYQAqEtcyJyGoxc3o7UXxJB2JDpgKhcCccldpDxoQoWceJM
ZBsouFxE61NTewRXdJ5y873V8b7cvuXZJjH4dbs/Um9ZgOLgXP29Ew0Q+TjO
95jJIlQYb15SFtoIFeFabit2LsZ5ylIdfaNmyD91dMzKUwfXqbzvu5W3QKzg
i8uHCRq2xNlKnnCfAUXajzUxushKHVeWvH0OJlEBJ9y5y3B8Rtb3wqodhhXX
9mg+1MOisepm7StScB4KPnM1YgVqM26Sg4Md4DqYasZkrsTLRyoD8gxfAlnv
e/7vMn38iKWDQec6wZb2kmF/iIFRNg0ivfouoIHCp2eaibLyhkttnH+AN7lv
xsCDjZ+DO7JNY7qhV+ynts+cg2Y/LJwLqO6B6gsNXmwFB3cUcALvLu+DkPnR
/RKJAR5nHDJ4fUAGwZGnKrWyVqP5hIdmp3M/rA80kzj5GKLukncaDbP90LXU
XDPazgipj7KFq3New+Py2GxzdWM8alv96hueHBLUuD+19Bpj6U7fvNqPctDr
iXEIE5mgYnylznD6ALwv5qQJTq/BSrcd6mnbBqFgDZ1a5WGK5xziBaLhQRBk
BTT6sLnI6XXsKowfgiNpByVab7j4/fq4NLrNMGj8eEMpqDXDA8xnSjXpMEwP
bT0hTjRHRXOyPJz/Bio2W+u3+lhgBtUrytVwBGrjo2mBFpao21dZMK9hBDI8
DvPUFZY4/wzf3S5iFLb35Jcktq5FSomXUL50DPJMs8taeVYYmSVMXioeg8S6
5AxelRU+NLugQQsbhz36HjeaDa2R5hhpHqs9Abywxv20JGvssXguPVkzAbdX
+Rq2KKzxznUwHPSaBMv6m+m79tvgQeE6GmNuErIsxNz2Whs8H5/P77n9FsKn
qW1NXALLRhjZ2k4khNx9z05KIfBCbrx33y4SomPdvjj+RqCf66RRuQsJZ91E
nVq/E7iqpuaOsycJVxXRV1LTCbyYsv/JZV8S7tspP1/LJTBoXebUopMkqIlV
L4tLCTSI+9ZhYTEJf7RrJTc0Eji34fTizlskCApDgxKaCHw1OdBeXErCrSiJ
vcNTAlM97x3cfpeEB3qps08lBKq4rr/E15Ag26cbJH1BYE9bynV1KQncAbq9
fIDAvxJmDktfkECIYphFQwSmbTxkWthFwqb4bqX/GwJ5NyxFW/tI2G2Se2d0
jMAHJ1qb+KMkRB1lM6emCEy3+C7FZeJr3ya+smKawAh5jjuHJCFxsbwjSkHg
GqcQWd0HEjKFhZc+fSKQqtZRlDpDQsF5auCDWQL7KzcGe8+S8KeL/9bTXwis
CS5ca/Xv1x8GTxhb5gi8xtJUqFQk1E4bK1UqAv8DQsdRGg==
        "]]},
      Annotation[#, "Charting`Private`Tag$32705#1"]& ]}, {}}, {{{}, {}, 
     TagBox[
      {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[CompressedData["
1:eJwVynk41HkAx/FxzRepNOvsWORYm3I1zsH3M4PxU0+FJU/KmXaLnkS1ZknZ
jXRSKtmkVB4btaxjbaXkkUVyrK5RKtUq10xGuRnW/vF5Xs/zed5GETF+2xRZ
LNa6uf3vjrfD6iyWjEZkes7JBaP0iXdIUUa1jK1UNytyYW7Ws5OtIqP15Xrs
SmUuPka/aNVQl1HzZwMKO9W4iBy7l6mvJaOfdDMnxBwuwhakLV5tLqMJuW96
S0y52Oiiv+J7Hxk9dT2+IXQtFx7Zrt7NeTJaU12Ycj+LiyztSXWDDUPUde+a
xauc7TBk0Live2iIfs6Ntqx/bAfTpmVJotOf6SHp2pGw7fZoc+ohZ9y+UNv6
7eJCdQccsq/lGb79Qpd8xXb8+qoDisc1v6zOGKbGfV3lEDqiNKhHqMMboewP
oveRPY6o9m5zj+4cocsDMjMqkpzAn1lRJzw6SoPX9waWGTqjlWZLz1qM0faq
6kudt5zBNTpZXto0Ro02+Gez1/Og2Tgy7R8/TjOizX7vGuRhdCpmMEpvgjpM
i9B92AV+I8HbSMMElWurDmatcEVa+pP4uLhJejlgo8/aR66orwha7cOZoglq
ptYW4W5IzAuIq7g/RfcIrS1uK1E460cEHQ+fpgVjVflxORQxge//7tWU02m9
2qVSAyDJrr9F656cch6m1lzZDZzLUzpYHjxDheVHjSVVgHH7qfKOebNU9b3F
2ZPz+ahKtzq9u3iW9q5ZUFe3iQ/t0aLUATMWKoQ+Lfvz+ThCRMoRSSxopll3
Hx/hI7mrRbyolYUjCr53rPkCcC+8lqSYKuB0zcJLK88I8NTExic0UQFpHMvN
hf8KMLFvvuqeRwr49dIJcZWlO14UXlNYs1wRvJij4abJ7nDLr90QtEcRkz/V
F5k0uyNjl6mkvVYRBbpbW/J1PJCzRNCkoa+EdxO58sQfPLAyo2c6eYcSnHT0
pb1lHhB9EMbeqlGCYbxt/01lT3grWjl/y1GGCedEAdvXE2QwyFchQhm68HR5
l+OJ5GoUXbyljOyyi10cqScO+JcExqqpwD6UK3jpKIRDi1ioFq6CSJ+osvFj
QrzS9khR/UsFB57OTp3vFIJt6qTDJ2xUZj5TbjHzwoBOb59LCBv7z3kv2STy
QkCbASeuhI2wx3JZQp0XbgbmHFkwy4bN1UV5yxYyqK79B7sCCDIrH2zRDWMQ
MJy+jhQQaKpUdhTcYFDbKrCO+Y3g+RU31/GbDKwLRzni6wS5bg1XvIsZaISE
zHUEFqKOKMkfDOoaVm0VlhIwA5PTNpUMbHOaRal3CQ62U6N7NQw0Ber5Sk8I
BnMf7njyjMGBpdWHo58SVDr7tZqIGUhGY+d+giTxS9sfOxg03nhhea2DQGOR
ZEqvk8FB7cLbgjcE36QsSA95y+BTr1fbz30EoVHflfX1M9jyYKq0r5/AjLzS
4UkYNOWWnPWVEEivRSaekDIo8NMNMhok2P96n4eVjEHw3Y/dNcME532yn+8d
meuzLjSYjxIESw159aMMHGPXF50aIzA5VnhZd5yBllllTNgkQfmDO9vvTDL4
hRXl1zhFkBDm3jJvmoHs5TI7azkBX/7IJljOIOTPdt3sGQLVC/5ZxTMMmjNS
J2dnCdrsX8/J4D9O6Cmw
        "]]},
      Annotation[#, "Charting`Private`Tag$32752#1"]& ]}, {}}, {{{}, {}, 
     TagBox[
      {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[CompressedData["
1:eJwVz3s0lAkYBvCR6Jvrp8yeSglZS61VFieV9Cjhm5mPQ1Fbk6hcymw16LJK
rQhLV5WotFpTphBZmdiUVESbysQ2UZHSBSGXEGO//njPc37/POd5zdZv9Qka
x2KxaOa+pZFjGRMEDJYW67BYFOp+/1qbyTh27tqYjYyTquefcdEhMGA8Xqea
8fDqYrvYcQSaBr1ZKToUNNH5G/X1CCivdGrNdSmk3TlfyeMQWGxkMeKuT+E7
r/ikqUICv/YcHzjCo2AQ7DXJzopAzZ/ydpOpFDYeuFlRtZyAv6FKI7Vn+ieE
G/+2h8CIa0jhA5pCQri7ib+CwInsg+rSYAry2qHbikcE9M2chipjKJw71C0g
Bpm9q/zYemcoWDnfHfnXnA3NxWHjgGIKyoaSY/c82Zj1g3D3wicUwup6Hz/f
wUbshrQKj48Ukm9xrnr/xYZKdVEQoSfCJzJ44dsaNvqrTZY9miGCu0erLPcz
G9Z8wd2ceSJo5YsW1xtzsDgk3v2CjwhftI3/GLlxsHrfpmuPw0TwjF6puS3n
wPtKg+XUBBHOtPZlnD3LgYug5HXLeRFm5zXwTtzlYIG1fmJTqQiTQ09O7+zi
QBD4wravXgS3+LSG9VO46FhuUrmoSwT1yV22C1y5UKxt91dwxPA7FGW3bCsX
fmnWSLYQY9r78leyU1xMPPaMq3AWw9n+jfVABRfZmYImzS9iZLWKvz/bzoXb
lvxUlwgxxqLqK7Yb8vBKdi991kExrus6jbvqzMPy/UHnbbLFKOpqaydCeHjs
u+14ULkY/IdbdlSk8GAFvaSSRjGkKVOU+WU8RK0hqw8NiPGpVD+u5C0P9fZx
n4+TErx4+oRlMZEPjkWsqWq2BKRPi2XefD4odYcjz1WCeapJA6GBfOwvfJDe
IpWgjG8WFH+Qj1Sl/Zh6pwQHqiL2lhfx8beU8Bo8KkFOeJajtJmPHMvgrPm5
EhjGTM4QsgXILbB5nXtPAvnOPCXLVoDszbJNmS8l+Gmdqa+nVIA9C+37C4Yk
+PHyfznX4wRYUxMc1juJRkJbWFZcgQDCbeZtPjY0NJyZS+IaBbjv5nvpZ4rG
lpTpyZm6JA409vi5rqcRwO2LnDGHxPSEKeyIaBon35HskpUkyrovXVCn0ijP
oV0T9pFYlVyQVJRPwyMw1FR1mcRDJ5fIwhoahlFVF3XVJCS5Th6vW2mIQszS
VIwPNwtv+byhsX/F7j/CnpJ4Iux0uMO422aOTF1Pwi86w1zxlkZta6pt1jMS
gZ5abdA7Gol08I0lL0ls77517cNHGiOmenUxH0ics19q3tNDw06w7o7DRxLN
odNOB36msfnr9aIPjGdm9BrUMdbUy055d5BQ6im0hb00ipOeSs26SBQ2jH8e
2U9D3pf1rryPRNWuyqODgzSULaPPIvtJsPPOTdg0RKO5dmWN1QDzT8uOvRrG
npe4eUe/MPspS1npMA1r/4jwgGESTUaJ7ntGaGwQP9wg/EpihlfAzQ7Gpx0t
fe8zDoh1dFg7SoNt2Dhv7iiJtvb3M521NMBymPWGsZXp7fQrjHd1HjZK05II
W5FuYDJGI//5e65kjEReojzhCOO2qiWjY4y7b1DaMcb/AxSDHVc=
        "]]},
      Annotation[#, "Charting`Private`Tag$32799#1"]& ]}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  Background->RGBColor[0.87, 0.94, 1],
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->All,
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.907137651587103*^9, 3.9071377006322308`*^9}, 
   3.9071377502710485`*^9, {3.9071379124167004`*^9, 3.9071379581371045`*^9}, {
   3.907138004544447*^9, 3.9071380444043756`*^9}, {3.90713941314643*^9, 
   3.907139449270482*^9}, 3.907139707899229*^9, {3.9071398314885874`*^9, 
   3.9071398388789253`*^9}, {3.9071398997883058`*^9, 3.907139937759075*^9}, {
   3.907140004261509*^9, 3.907140079153535*^9}, {3.907140117403818*^9, 
   3.907140161278826*^9}, 3.907140250465626*^9, 3.9071403874942913`*^9, 
   3.9071408732601385`*^9, 3.907141143096031*^9, {3.9071411900802555`*^9, 
   3.9071412270174427`*^9}, {3.907141262360757*^9, 3.9071412719074955`*^9}, {
   3.907141588975031*^9, 3.9071416057713785`*^9}, {3.907141773812637*^9, 
   3.907141793140086*^9}},
 CellLabel->
  "Out[325]=",ExpressionUUID->"61e039e6-4fc1-477a-b0c2-5aa9b8f18506"]
}, Open  ]]
},
WindowSize->{1188, 1108},
WindowMargins->{{-8, Automatic}, {Automatic, 0}},
Magnification:>1.5 Inherited,
FrontEndVersion->"12.0 for Microsoft Windows (64-bit) (April 8, 2019)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 260, 5, 52, "Text",ExpressionUUID->"837b3513-4fa7-4284-a894-18f39055185c"],
Cell[CellGroupData[{
Cell[843, 29, 1375, 39, 271, "Input",ExpressionUUID->"05d8b0eb-3d0e-443b-ab22-f6f80b26441e"],
Cell[2221, 70, 1094, 32, 79, "Output",ExpressionUUID->"1090ce1d-17b4-4e59-95c8-2abbaf7ec6d1"],
Cell[3318, 104, 224, 4, 49, "Output",ExpressionUUID->"ce2d1133-4f20-406c-804d-eebcc33123a3"],
Cell[3545, 110, 570, 12, 79, "Output",ExpressionUUID->"a9b514f5-2e29-4d91-81cf-1980ef572e55"]
}, Open  ]],
Cell[4130, 125, 315, 6, 52, "Text",ExpressionUUID->"51b12222-ec8b-4229-a8df-a052b926c9c0"],
Cell[CellGroupData[{
Cell[4470, 135, 509, 13, 70, "Input",ExpressionUUID->"f477ab60-b9b4-4892-abe8-8065b9c6f9ba"],
Cell[4982, 150, 175, 2, 49, "Output",ExpressionUUID->"1737d0d5-9bb9-4401-8f8e-5dd8820183d9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5194, 157, 472, 11, 70, "Input",ExpressionUUID->"9676907d-7089-48f8-8a46-f3298da4f7b5"],
Cell[5669, 170, 482, 14, 54, "Output",ExpressionUUID->"59bd7138-487f-46ec-8bc0-fb68db7a2231"]
}, Open  ]],
Cell[6166, 187, 266, 5, 52, "Text",ExpressionUUID->"a1ed5bb1-4fb4-4d52-928e-187bed40ae28"],
Cell[CellGroupData[{
Cell[6457, 196, 351, 8, 70, "Input",ExpressionUUID->"4baf874b-5390-4166-8c81-bceb2d12cd1b"],
Cell[6811, 206, 153, 2, 49, "Output",ExpressionUUID->"6c5817a8-f923-4954-adcb-e97ca652d2c6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7001, 213, 373, 8, 70, "Input",ExpressionUUID->"90ea6d25-adde-434c-a350-e45573c28d4a"],
Cell[7377, 223, 469, 14, 54, "Output",ExpressionUUID->"f8d1f057-863f-40c2-92c7-9206298be513"]
}, Open  ]],
Cell[7861, 240, 324, 6, 52, "Text",ExpressionUUID->"df535588-4e48-40f8-9ce1-6400a7cbf780"],
Cell[CellGroupData[{
Cell[8210, 250, 1085, 30, 178, "Input",ExpressionUUID->"f1a1387c-c5a4-4812-88c8-586468bc717f"],
Cell[9298, 282, 400, 12, 73, "Output",ExpressionUUID->"6fc549b0-cc4c-410e-850d-2407bcb2354b"],
Cell[9701, 296, 243, 6, 69, "Output",ExpressionUUID->"ecde746b-51d4-43b2-824c-fe90a0f77fb2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9981, 307, 410, 10, 97, "Input",ExpressionUUID->"53e5c98d-832a-4d34-998d-645811e367c7"],
Cell[10394, 319, 154, 2, 49, "Output",ExpressionUUID->"ec0471dc-801d-42eb-8b41-c01da2eb2243"]
}, Open  ]],
Cell[10563, 324, 273, 5, 52, "Text",ExpressionUUID->"1e6fea86-dd4f-43dd-a84d-8e869cfddc1a"],
Cell[CellGroupData[{
Cell[10861, 333, 447, 10, 73, "Input",ExpressionUUID->"1af2ec7f-e343-4f2e-a608-65d5b283df5d"],
Cell[11311, 345, 641, 20, 82, "Output",ExpressionUUID->"09d72d6e-2dc5-4ef9-9a76-3c455ebb92a9"]
}, Open  ]],
Cell[11967, 368, 264, 5, 52, "Text",ExpressionUUID->"0f0b4b32-2042-4557-b140-3527a5a03980"],
Cell[CellGroupData[{
Cell[12256, 377, 432, 11, 130, "Input",ExpressionUUID->"6463fe93-88d3-40a9-9ec8-46e9bf37aac0"],
Cell[12691, 390, 521, 17, 80, "Output",ExpressionUUID->"b182afd7-b937-4a40-a1ed-ba2d26ee8998"]
}, Open  ]],
Cell[13227, 410, 264, 5, 52, "Text",ExpressionUUID->"14b8e5a9-bb6d-4cb2-9f36-9d22670f7073"],
Cell[CellGroupData[{
Cell[13516, 419, 577, 17, 141, "Input",ExpressionUUID->"00f50810-d52f-431f-a2c5-a307e0323ac8"],
Cell[14096, 438, 575, 18, 80, "Output",ExpressionUUID->"f0d50c70-6b8f-4600-a82c-162b1c0ea78c"]
}, Open  ]],
Cell[14686, 459, 260, 5, 52, "Text",ExpressionUUID->"87b3e672-8416-4023-af2f-67fe60cea783"],
Cell[CellGroupData[{
Cell[14971, 468, 1493, 40, 241, "Input",ExpressionUUID->"015ef3d5-1170-4a14-b0ac-2529e9516ca7"],
Cell[16467, 510, 149, 2, 49, "Output",ExpressionUUID->"20d1d917-e264-4ab6-913b-36ee07e96f98"],
Cell[16619, 514, 253, 6, 73, "Output",ExpressionUUID->"f37b40dd-a485-4d41-8e05-9aac40b70bc5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16909, 525, 446, 9, 102, "Input",ExpressionUUID->"b8f4a403-88f5-446d-81ed-1e58798b039f"],
Cell[17358, 536, 313, 7, 60, "Output",ExpressionUUID->"9a0f265e-c0b2-4868-ab67-fd15087c797b"],
Cell[17674, 545, 173, 2, 49, "Output",ExpressionUUID->"ac159b33-8844-496e-8081-9e1f6da855c4"]
}, Open  ]],
Cell[17862, 550, 262, 5, 52, "Text",ExpressionUUID->"94914901-f702-4c2c-8ab1-62c387b357fc"],
Cell[CellGroupData[{
Cell[18149, 559, 1071, 28, 120, "Input",ExpressionUUID->"ba52a38c-124a-4f02-bd1f-ae322c5ab4e7"],
Cell[19223, 589, 135549, 2372, 450, "Output",ExpressionUUID->"29b0049d-6583-4788-adf1-5427e0128b89"]
}, Open  ]],
Cell[CellGroupData[{
Cell[154809, 2966, 1467, 42, 174, "Input",ExpressionUUID->"99d7b1b6-35f3-4d91-92e2-468fc54b7281"],
Cell[156279, 3010, 16663, 294, 361, "Output",ExpressionUUID->"b33c61aa-1072-4961-b44c-3c3c4f5587cc"],
Cell[172945, 3306, 649, 19, 69, "Output",ExpressionUUID->"61db3312-53df-49f7-9d51-fce29500d868"],
Cell[173597, 3327, 507, 15, 69, "Output",ExpressionUUID->"32a75a71-f69b-4392-9c69-410b83994f8c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[174141, 3347, 1285, 39, 174, "Input",ExpressionUUID->"00625d0d-1ed2-4cce-9e8a-037c3cf3657b"],
Cell[175429, 3388, 16034, 284, 361, "Output",ExpressionUUID->"34e74286-0b8b-4051-8159-d45f2eb68386"],
Cell[191466, 3674, 299, 8, 49, "Output",ExpressionUUID->"009e4774-618e-4660-a963-7b76213032e5"],
Cell[191768, 3684, 319, 9, 49, "Output",ExpressionUUID->"6172d861-3d01-4487-9054-8488ab8eff3c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[192124, 3698, 1287, 39, 174, "Input",ExpressionUUID->"ffb94395-f283-4539-a639-05899aabf78d"],
Cell[193414, 3739, 18272, 324, 361, "Output",ExpressionUUID->"b966abd9-43c4-42c0-9d99-ce4bcfb1bf27"],
Cell[211689, 4065, 864, 28, 69, "Output",ExpressionUUID->"24ae548d-7be8-4fc2-9ef9-07e6722d03bf"],
Cell[212556, 4095, 157, 3, 49, "Output",ExpressionUUID->"fe7ce018-1d2b-4cd6-a32a-8f62f768920b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[212750, 4103, 1287, 39, 174, "Input",ExpressionUUID->"6b61099f-d2ad-4830-95a8-a0fec647f1d7"],
Cell[214040, 4144, 28811, 496, 361, "Output",ExpressionUUID->"4c2c74f4-0446-418b-9bc6-f516af2a052a"],
Cell[242854, 4642, 581, 18, 69, "Output",ExpressionUUID->"b7d0d4ed-0906-4af9-b294-6787a2d0b568"],
Cell[243438, 4662, 601, 19, 69, "Output",ExpressionUUID->"5cc2f332-e021-4c93-952c-e82ce62ac154"]
}, Open  ]],
Cell[CellGroupData[{
Cell[244076, 4686, 1283, 39, 174, "Input",ExpressionUUID->"ba89fc53-f39a-4848-991e-d27579a1dc20"],
Cell[245362, 4727, 28947, 499, 361, "Output",ExpressionUUID->"8239de86-7fa4-4e8c-b23d-347f0900446f"],
Cell[274312, 5228, 601, 19, 69, "Output",ExpressionUUID->"d9ad12c0-2e18-4c41-9f52-6ca7e5e90da9"],
Cell[274916, 5249, 579, 18, 69, "Output",ExpressionUUID->"6873a368-f4d2-4c90-ae0b-3c2fd60cd63e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[275532, 5272, 1285, 39, 174, "Input",ExpressionUUID->"1f7079b1-d7f3-4a1a-89c4-8a3282d9336a"],
Cell[276820, 5313, 17723, 314, 361, "Output",ExpressionUUID->"52b052ba-bb4b-49d0-909b-960f6e93eac0"],
Cell[294546, 5629, 159, 3, 49, "Output",ExpressionUUID->"81e40957-043e-4477-8394-86a855dde509"],
Cell[294708, 5634, 462, 13, 49, "Output",ExpressionUUID->"55b3f090-1e81-4fa7-86bc-67c641901003"]
}, Open  ]],
Cell[295185, 5650, 262, 5, 52, "Text",ExpressionUUID->"514b281b-6a1c-4625-8837-75ff477ca74b"],
Cell[CellGroupData[{
Cell[295472, 5659, 1797, 45, 302, "Input",ExpressionUUID->"3f24224d-583c-4383-85c6-88d6a18cc02a"],
Cell[297272, 5706, 28395, 541, 739, "Output",ExpressionUUID->"4644f456-c802-42ee-a7b7-0b652c5ffff7"]
}, Open  ]],
Cell[325682, 6250, 262, 5, 52, "Text",ExpressionUUID->"e95db4e8-4e46-4e30-8f7d-55b9c30b9e33"],
Cell[CellGroupData[{
Cell[325969, 6259, 2018, 60, 336, "Input",ExpressionUUID->"12aba38b-d0e2-4e7e-964c-1b62151ece10"],
Cell[327990, 6321, 36023, 656, 629, "Output",ExpressionUUID->"138108eb-954f-40c8-947b-0a5ab98a2c3a"]
}, Open  ]],
Cell[364028, 6980, 262, 5, 52, "Text",ExpressionUUID->"46d6eba7-e788-4832-94ff-57049738e0a7"],
Cell[364293, 6987, 618, 16, 102, "Input",ExpressionUUID->"68cbda86-f1f6-40a6-ad5a-68f71244feca"],
Cell[CellGroupData[{
Cell[364936, 7007, 3321, 74, 311, "Input",ExpressionUUID->"6759a590-152e-486d-a48e-5f2d315d8347"],
Cell[368260, 7083, 2368, 59, 125, "Output",ExpressionUUID->"935943c5-ec40-4d3f-acab-a8e4a44b9226"],
Cell[370631, 7144, 7954, 154, 359, "Output",ExpressionUUID->"61e039e6-4fc1-477a-b0c2-5aa9b8f18506"]
}, Open  ]]
}
]
*)