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

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

(* CreatedBy='Mathematica 12.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     98893,       2355]
NotebookOptionsPosition[     89904,       2194]
NotebookOutlinePosition[     90320,       2211]
CellTagsIndexPosition[     90277,       2208]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{"u", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     SqrtBox["2"], "-", "1"}], ",", 
    SqrtBox["2"]}], "}"}]}], "\[IndentingNewLine]", 
 RowBox[{"v", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      SqrtBox["2"]}], "-", "1"}], ",", 
    SqrtBox["2"]}], "}"}]}], "\[IndentingNewLine]", 
 RowBox[{"c", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"-", "1"}], ",", "0"}], "}"}]}]}], "Input",
 CellChangeTimes->{{3.808542291043857*^9, 3.808542323337654*^9}},
 CellLabel->"In[5]:=",ExpressionUUID->"5ac0af26-e1c1-431d-8522-8b2865bb4aa0"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"-", "1"}], "+", 
    SqrtBox["2"]}], ",", 
   SqrtBox["2"]}], "}"}]], "Output",
 CellChangeTimes->{3.808542324510339*^9},
 CellLabel->"Out[5]=",ExpressionUUID->"6cf5dbd3-6e68-4663-9cbc-cf9b47f88a47"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"-", "1"}], "-", 
    SqrtBox["2"]}], ",", 
   SqrtBox["2"]}], "}"}]], "Output",
 CellChangeTimes->{3.8085423245132303`*^9},
 CellLabel->"Out[6]=",ExpressionUUID->"d62822f1-0cbe-437b-afdc-039a94ccd5a1"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "1"}], ",", "0"}], "}"}]], "Output",
 CellChangeTimes->{3.808542324514544*^9},
 CellLabel->"Out[7]=",ExpressionUUID->"3da5ff44-4b08-48ed-9817-f519532c605f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"u", "-", "c"}]], "Input",
 CellChangeTimes->{{3.808542331114139*^9, 3.808542332187537*^9}},
 CellLabel->"In[8]:=",ExpressionUUID->"bec0135c-64c8-4363-b82f-0c5ab040d897"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   SqrtBox["2"], ",", 
   SqrtBox["2"]}], "}"}]], "Output",
 CellChangeTimes->{3.808542332807135*^9},
 CellLabel->"Out[8]=",ExpressionUUID->"d2a4b9d0-c2a3-4a4b-aab6-dc85c223bfba"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"v", "-", "c"}]], "Input",
 CellChangeTimes->{{3.8085423852138367`*^9, 3.808542386693803*^9}},
 CellLabel->"In[9]:=",ExpressionUUID->"bb12e4b7-d1f7-427e-a882-1cd900e106dc"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", 
    SqrtBox["2"]}], ",", 
   SqrtBox["2"]}], "}"}]], "Output",
 CellChangeTimes->{3.8085423872840548`*^9},
 CellLabel->"Out[9]=",ExpressionUUID->"e270b0be-bff3-4cbb-bad3-eb110f321591"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"VectorAngle", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     SqrtBox["2"], ",", 
     SqrtBox["2"]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", 
      SqrtBox["2"]}], ",", 
     SqrtBox["2"]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8085424041911373`*^9, 3.808542439784265*^9}},
 CellLabel->"In[11]:=",ExpressionUUID->"d99a17d2-b7dd-4f9c-97f3-f3eb07b7a340"],

Cell[BoxData[
 FractionBox["\[Pi]", "2"]], "Output",
 CellChangeTimes->{{3.808542424392878*^9, 3.808542440806169*^9}},
 CellLabel->"Out[11]=",ExpressionUUID->"62ea6b11-9c25-469f-9a2e-a991a2e382db"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Arg", "[", 
  RowBox[{
   SqrtBox["2"], "-", "1", "+", 
   RowBox[{
    SqrtBox["2"], "\[ImaginaryI]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.80854249953798*^9, 3.8085425268771772`*^9}},
 CellLabel->"In[12]:=",ExpressionUUID->"3f153be2-78d6-42db-ac51-71786a670e3a"],

Cell[BoxData[
 RowBox[{"ArcTan", "[", 
  FractionBox[
   SqrtBox["2"], 
   RowBox[{
    RowBox[{"-", "1"}], "+", 
    SqrtBox["2"]}]], "]"}]], "Output",
 CellChangeTimes->{3.808542528093639*^9},
 CellLabel->"Out[12]=",ExpressionUUID->"d0fb31cc-6a4a-47c2-b450-812d8c9901be"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      FractionBox[
       RowBox[{
        RowBox[{"Sin", "[", "t", "]"}], "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", 
           SuperscriptBox[
            RowBox[{"(", " ", 
             RowBox[{"Cos", "[", "t", "]"}], ")"}], "2"]}], "+", "1"}], 
         ")"}]}], 
       RowBox[{"2", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"Cos", "[", "t", "]"}], ")"}], "3"]}]], "\[Equal]", "2"}], "&&", 
     RowBox[{"0", "\[LessEqual]", "t", "\[LessEqual]", "\[Pi]"}]}], ",", 
    "t"}], "]"}], "//", "FullSimplify"}]], "Input",
 CellChangeTimes->{{3.8085432220753403`*^9, 3.8085433082482653`*^9}, {
  3.808543391111291*^9, 3.8085433941031*^9}},
 CellLabel->"In[17]:=",ExpressionUUID->"cf42fd02-53fa-4a5a-925e-99f373093535"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"t", "\[Rule]", 
    FractionBox["\[Pi]", "4"]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{{3.808543289438422*^9, 3.808543309390333*^9}, 
   3.808543394896134*^9},
 CellLabel->"Out[17]=",ExpressionUUID->"76e1961b-8b54-4490-ac96-23c7cf2a4510"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"4", " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"Sin", "[", 
      RowBox[{
       RowBox[{"-", "2"}], " ", 
       RowBox[{"ArcTan", "[", 
        RowBox[{"1", "-", 
         SqrtBox["2"]}], "]"}]}], "]"}], ")"}], "2"]}], "//", 
  "Simplify"}]], "Input",
 CellChangeTimes->{{3.808543344569127*^9, 3.8085433720504427`*^9}},
 CellLabel->"In[16]:=",ExpressionUUID->"6dd6f633-3083-40df-abfc-5f5d1dea81ff"],

Cell[BoxData["2"], "Output",
 CellChangeTimes->{{3.808543361917375*^9, 3.808543372472723*^9}},
 CellLabel->"Out[16]=",ExpressionUUID->"64f69d00-d97a-4496-8646-22c1d0ed7171"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"4", " ", 
  RowBox[{"Tan", "[", 
   RowBox[{"\[Pi]", "/", "4"}], "]"}], " ", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"Sin", "[", 
     RowBox[{"\[Pi]", "/", "4"}], "]"}], ")"}], "2"]}]], "Input",
 CellChangeTimes->{{3.808543419671227*^9, 3.8085434356628942`*^9}},
 CellLabel->"In[18]:=",ExpressionUUID->"91d99c01-d35e-4af5-a026-eb0eeb9bf201"],

Cell[BoxData["2"], "Output",
 CellChangeTimes->{3.808543438107936*^9},
 CellLabel->"Out[18]=",ExpressionUUID->"c12d1edf-ce6b-49bf-bb26-a92c9ee384ab"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"r", "[", "t_", "]"}], ":=", " ", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"4", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"Sin", "[", "t", "]"}], ")"}], "2"]}], ",", 
    RowBox[{"4", " ", 
     RowBox[{"Tan", "[", "t", "]"}], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"Sin", "[", "t", "]"}], ")"}], "2"]}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.8085434949915447`*^9, 3.808543535665077*^9}},
 CellLabel->
  "In[205]:=",ExpressionUUID->"f352d82c-0658-46ea-9c9c-9a203a86a085"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Function", "[", 
  RowBox[{"t", ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"4", " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "t", "]"}], "2"]}], ",", 
     RowBox[{"4", " ", 
      RowBox[{"Tan", "[", "t", "]"}], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "t", "]"}], "2"]}]}], "}"}]}], "]"}]], "Input",
 NumberMarks->False,
 CellLabel->"In[20]:=",ExpressionUUID->"a020b4b8-95f0-4ec9-921a-457d099b55c1"],

Cell[BoxData[
 RowBox[{"Function", "[", 
  RowBox[{"t", ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"4", " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "t", "]"}], "2"]}], ",", 
     RowBox[{"4", " ", 
      RowBox[{"Tan", "[", "t", "]"}], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "t", "]"}], "2"]}]}], "}"}]}], "]"}]], "Output",
 CellChangeTimes->{3.808543539219015*^9},
 CellLabel->"Out[20]=",ExpressionUUID->"7be38b7d-87ed-4d42-a903-022e1ff0b5d1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ParametricPlot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Function", "[", 
     RowBox[{"t", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"4", " ", 
         SuperscriptBox[
          RowBox[{"Sin", "[", "t", "]"}], "2"]}], ",", 
        RowBox[{"4", " ", 
         RowBox[{"Tan", "[", "t", "]"}], " ", 
         SuperscriptBox[
          RowBox[{"Sin", "[", "t", "]"}], "2"]}]}], "}"}]}], "]"}], "[", 
    "\[FormalX]", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[FormalX]", ",", 
     RowBox[{"-", "8"}], ",", "8"}], "}"}]}], "]"}]], "Input",
 NumberMarks->False,
 CellLabel->"In[21]:=",ExpressionUUID->"0c1bc67f-e304-4d69-9d28-3cc3876cff18"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], FaceForm[Opacity[0.3]], LineBox[CompressedData["
1:eJwB8QEO/iFib1JlAgAAAB4AAAACAAAAuhdLv5JSD0DbqAZ/f586QFUAPiv1
XQ9AVSaJ596ZO0AD51aW9mgPQGHKQD/UpTxAtQYdu5ZzD0DVIi7NV8U9QKqk
fVbVfQ9Ap/iULbD6PkDPt80nsocPQCI0FBJBJEBA+YDL8CyRD0BAE5M28thA
QNwToHVFmg9ADGUFZDydQUDX0OB8+6IPQBLEHvVFc0JAU8+Qz06rD0DhAvlW
n11DQOQ4Ijk/sw9Ag/B34V1fREAPlXeHzLoPQN+CHUY/fEVAlgXlivbBD0AY
if732LhGQG9zMRa9yA9Az7lRjdgaSEA3rJf+H88PQHkQOKVcqUlAK3DHGx/V
D0DL5QrzcW1LQKxw5ke62g9AyODz08ZyTUAmP5Ff8d8PQPM8qVyzyE9AeSzc
QcTkD0A1iX8V5EFRQMMYVNAy6Q9A2kGy1x3gUkCeM//uPO0PQG0SeMbq0lRA
sKxdhOLwD0Bh0S3CRDdXQKlUankj9A9AG9xjNhc5WkCLLpu5//YPQNg+Oj5O
Hl5AX/HhMnf5D0B0dypstq5hQBd6rNWJ+w9A1mubuFBoZUD0LeWUN/0PQDzP
njg5HWtACU3zZYD+D0Dsvfw+z3pyQCo1u0Bk/w9Ae8T4RK8BfUALUe5oyf8P
QCTx1kXIf4hAJw7apg==
        "]], LineBox[CompressedData["
1:eJwtmHc01v/7x+153/fbTkZmZgpJZLwuW1ZWkj1KSTKTVRRSlOyMKJklZESU
3u/KKBmV+TEquxAhIxm/vuf8/rrO85zrnGs8/3o8Rdx8LE/TUFFRuVBTUf2v
slrMn32/g0HLpz69dxE3iLw7vG+o/+nptgn/hOogojeKqXRuCwOmhvG1Gx4+
xI02mzz/TQx2sRU9GN0+Q9xrOF6esoGBVDsd84ynO0F+3DNybB2DCrdTtz1M
XAj7fCHN4hUMzFNjZau4HQgr1p2vmUsY3NB/O+X12JbYc7iuT3IBgxDT/Sek
N48TaUuMKhazGKRFe767021FMK/JCvBMY3CBzrJ1hWRJGFoO5ASNYTDkp+pr
m2hO7DSqDfqPYMBqerV7JtOMSJve+sUygMGUJYP7FW8TwqBEkw59xmDYlLU/
/6YR0SWXpoK1Y+Bzvdv69zdDwp4TexbWjIFsRdGIuKcBsdvrQH70KwyKSqvl
9/HpE4LPf+6XqcOgLC2v/MlPXeLbQM318xUYBDB3NcR90SHUxlyHjIsxuEyj
s/jguzaxOKPt8i4XgzoBns4bTNrESCu38VgaBsEtGrl+alrE0+cMPZm3MCiW
qcukjgDChL7i0MI1DA7l+5aGP0TERjxn2VgwBg9DJxRXXDQJccgPCbyAgepL
R49EZQ1iNfPQSIE7BlTPu+//J6xO1K0yCQTaYuCU81O1SlCNYJ4hwsdM/t0f
ImyrI3uE2I44ZfgLMHhB0+65ZKBK8Pg6tOUoYfDYM/3jCX8VwkjLz3xWEgMO
tnblw48OE3+c3sv8x4dBZXCARsisMkH39fWgFgkDAwsq9ShpZSJr9NXUkS0K
DJTVETX+hwgrJo1XTT8pEJAUU8bTokSoby12fx2hAOt/1BUdokrEc6H3Obc6
KJAcL+jLc+MgUbn7W+qHlxS4pcvgqb2iSPjdlNmhzqKA8R53kbEJBeJxQ2Dg
RiwFQtaabhp5KBBXcHH+2IsUGFtfHgn7KU84qwqGl7hR4MFKnR0lVJ4YLHAQ
cz5GgfjknOZ8VnlixujP/VI1CkBsYG27zgHiIr9gdIIkBZpK5t9gIfsJscaZ
wd3bZKApt4i//3cfUS4kfvXtdzKkGbPJLBrsIxomN1bou8nw4Vg6P1O2LOHG
W9h9oogMzgGSfGtWMsRDo9+xZ++QocCpvoGvXprw/NiZxxVMBpy3yzNTTJrY
7LRo1DIkw7TLJd1oRimiPvmdSNMBMjCOd8Z4RUoSkWsOlRM8ZODO0eDP35Ig
Jtu7lGknSMB1bEJAmk6CKE6QKaJpI8HHl9MRnLf3Eor5iQfzK0gQ7KCRELN7
LzGbMVLfFkIC9ud3j9upixMPO5G2lRMJRGbP2Pt+FiP8zmcwRmqToOsjjVag
lxgRp3075j0zCS5blpU2FYoSKGdmbHqOFego1V69+qLE0YCalrIuVtgiv1Rz
mBEhQgJ8Yg+mskJWPH7VQ0WESA8rEFy5yArl5UefN4wJE8qLxBPXE6wg3Tdk
JnFHmOg8EqmDdrPCAcEMNDkkRBi8+NawN5MFpllM6puuCRI+8yUXbINZ4Nji
24P9vwWIIbWpQI0TLKBUzS7IcE6AcA30tBDlYgGRhfO5Zo78xKaHSJV/HDOY
UAdMTZzaTeT8kLGwOsMMCxIlx2R/8hKLfEr75nWYwXy9crDvEi8R/19Rlc0m
E3je8TzNlbqLsNpKP8R2jglwwfb541PcxHLjrUe2BkxQFxrOWHSdmwhmmE70
EmeCO9t9DblS3MSpo83av0cY4aBH/jtnPy5iVsBc7bEZI8iX59Bg3JxEW9mC
obMMI3y/I+ly5zUH4RWktTVJzwiFxb9veftwEE/nu1nOv2SAvKhoTvEudoJj
LrUzUJIBjC3HVsty2IjXUkf3fKJmAM7+5j4zazYiOnIqmWGYHljzw7O4SWxE
bUdmI1UiPUQ+DEcbWxQiqNWazXSVDrJ53dsUxkkEQ+iqknAjLehMBZSfYWUm
/hREWkel0cIdMR3OhAwmwjxLX6/LmxaM9KdOnpVkIloHbXL37qEF09dptfxG
jIT+uNKZ75dpQCj769Crh/RE1A9qvfLjNCA9FrryVp2eqM//xHRajgbEBMPl
DAfoiL1B0scfDVPDLfsDvbWcdMTcKab0R0eoYfSHjlJKNg3RVuykzMlBDW1D
a+arQEPMTU/9uPiDCvZYMX8vm6YmNCtjC2UyqKBy1O8eoyo1kVeQcHp4Zgfl
xarXdPTu4G6a197HumyhCL/a6rPYX/z1i6ENFvYtlLnLfv/VqA08f+PX2Qev
N1E4aR49+fMH37nzupJZbBMtn6/6Kzy3jsvc5exlnd5A2VPf2Ye+r+LVV1X5
wy6uIyNX8fgs9WWc2cdUhElqHVkyZpeJdC3hRV+oZ5sH15BTWHWMm/sS7hdx
8ugQrKEsDx2+7cRFPJW27lwetorqKwQXd1P9wgkNW2eV+mUUxPibh8p6Bl+Y
YH1b4bOMel6f66J78gO3HX2mfVFiGV0OUh35xfAD/xTGWrmYuoTSSvx8nJun
8Uzt2IzRi4soonCC/Mp9EmcaMpDRTp5HTnLXxf8IjeIivFZS6SzzKPXUZ4fp
h9/wJ1PVeo1RP1H1R5FmfalvuOabkqWk4DlUsZynFhb4BV873xRacX4GqTLf
9sz6PYgz/jmuH351Cv1M7GrRb+vB89d/0xltT6JFx/POXMw9+H+D+9mNwyfR
g8iki8Um3XgmXfzkStgE4rhzLGVk9BPOfXjN2DpuDHUYq0ilxHTirF90r4my
j6FrRKAEvUkH/kIlCIfMURRUW61Py9+OG7P0rYeWfUOVqda5Ep/f47muJ/pi
20fQt5KZvLy8ZtxsI0Pj28IwsqUK/cn6qAlnPtdpS+YZRi4TldvMz9/iz+pV
wrfPDaIfMddq9ede44k7SSmTh/sRp9fzu73Wjbj75Tn6926f0KsEiTt3m6tw
JQ69F1K1HxG/t1aW3eNK3JNPK7WW9BFtagryhWU9xdn1j/z6er0DPcq/Lf3+
cBl+i25/QW3FOzRlKTKSqVqE+/mGiDrGtaI4+Og+UlqAr2YKKZV4taBcQcO7
exTycTdt+yIT7SY0wx3X8dL/Ae5wIUKwBAiUNPBmtjHuLr60VUJkP3yFYg5G
9rPGpOH2D8Nflnx6ieaCeTrGclLwJjn+frWT9chJ2kw2UDIRNzDXPDlUWYfK
/YebCvfdxv1qru7y4a1Fp277hzFAHM7nV1yeh1WjsZ2wbR2qGDy/z7jB5kEl
0tu8y3vu0TXcSXHJYx96im46OHC0REbidp7CSm/NSlGDEmvH6dMhuE06v0LJ
aAm6Zrl7m48zCG+aEDjGl1SEHKv0Rt0oAXjiou3Ad72HqI8jeaOg0QsvavKq
NDn/AD33Mt6ReXAGv6WxKn7zRA56WJAvdvqXOz7RMWtUx5SFvJQrRYxLXPBk
Nv/vKnPpyN0n9PKjKHt8MyPjowhNKlKs70le9rbBK07pp0UbJSHVvxLyp2gt
8QqOWPJk3G2UbRMs2Odjghe1pnmsTd5Asdm/xxe29fD2ZIMOx6JoVLgRZbSS
DbhEdKzVwfZIFDhy7Xu8owp+TW6UWaQiFH1pV+OP0lTADZLc2nmSAtHcpwxJ
oeOSeCJsfRoJv4BajkuxvG0WxLXqvVPTL5xGJd5ZIRnx7PguallJsQV7NHQg
mSvkIg2+VLaDbx4wR77P9dprDH+9Gnj3SJ4zUhOd9KqnjaX0vvIM7fyc8FcE
HW0s1RNeffwqf8Yh3L69XdOK0DbqtpB9hbv9+fy3kw1tVxVnehxJ0gyvs/wg
PKeE4pT5P/D/bNWcPZQ+IK1wFMkGpe6ptZvSzFe2+Oux9wR62XXQmXfgr6bt
zeCUHF831KKSXb9IRUJW59JXhyfPocHesN2Vpbyon914VDDEH5Vsm16wHRZD
dFOh6y+NglHS61gRjd9yyOCzXVnR9BX04Tz7N9qIQyhX/NaFAcko9NjFrUGg
TAN56JrK2mjFohLxlG/WgzrIvqTfW5GIR/SZmt0rY0eR8a80QynLROQr9Kzd
MNocFZ+4/ezdajKaFp6xLKi0Rk86Y4p+dKSh5IrRVzkxJ9FUuydNSH8Gkt4z
5KRHckbj7R0X3DnvoRSiurW3xA0dzPYyT716HwXZazv/kvdAFz9/ntxIzEOG
Xsl1oeLnkIcXo19QeCHSZwpa36nyQ+rZZbold4tRtvGhTnqXQOSs98WP+PAI
GZectegxu4SmF8PYva6UI4sXLbnDW5dRfWtf1WZMDXoWHinLGhaLbvKUHTi5
+gzZ6AqUz9PEofYfpRzf/etQoyrX43d1t1D9XqfBoMQGpKdVQH3oRBJac+fm
31NOoNXTXMu94RlIXXpm8kb6a8S5kqDTcjMLFb2baBuLfoN2dAU61avvIVvT
FhqTgCZUvMwZ5VrxAF0O5fism/4OKbkFJ1fxFCE72nVGweb3aLXTOZT8ohiF
Sh8VfrrRhm70WjQSAY8Qc3ZkylhIB3o+R6IREi9DR1uKLtS5f0Lx+nTcYq1V
qMZXcDGO+zPyDl24eWmxGlF/y9hMbfuM1JzmuL9LPkPOeXlehzV7kDN8Cedp
qENcxtIF/Mb9SEAhcDYstBGRdgdxsPAMoAMc8xzRJByp0z0VopkYQOz/CRwx
syFQ8Rbz7OqNQeTWe394k/UN4laTltNbHUHpkgndkp+aUaWJOofTkzEUbR8m
nfqlEzGcDNl6IDWOVAZsQiM4P6LVhivBB4vGkU2N3bLKy4+I48bp0yqFE4gs
Yd8awv8ZXTFnWLWtmkIbH9zEaDh7UdGsU2SFyjTq7uz5KTHSi66/OH/wMDGN
7BXfDVs/6UMM6tsKbZ+/owBeSTE2uwEk8mXgym36WVRt8EZ38vcQmsxlCN9M
nUWW7iMZB38Mo4EYA6rwvXPIPoA9int8BNF9HXmaffQnSpS5aTc0/RW1vxS9
PpmzgArJvJdq+MdQV/Lhj6dUl1B9uHOB584UynZ8py4Vu4T6+N1/2BZPo21P
x16T3iUULXa28Kbld1Sz4lj/1H8ZvT9TrNdX9QNNt41TF1b+Rvlia2kK9+ZQ
h06ptZ7mGtoX8i766u1FdIY5Y5KctIaGZbxpZrYW0eSNp0acE2vIDp/nMvRd
QnXfLil9iFtHEhr0XzftltG1Aov8ssE/SPRx1fsVwxXUmzp4QvraJrKXWhGa
vvUHmX2zOJHfv4nu6LamlgttIJ9FN0EluS2kYM9lOlCzgeRtMNvEgS1UuqwV
4T/1F5XQe04tHNhB0tekz5We2Uaj965cGY7ZQamikx7elB1UfOxWbPvQDtoX
IX6sr+5fH3NCbp8OFdA9TY5yvUkFcWWstekLVMAvYMrLtkINK4yJo8F81CBa
67Q7w4oG+loKd1npUcODd3Tj96ppgHzYu2smixqa3hiQlIJpoaFMqDJGjwa8
j+ke0eWih/h1rVKHu7TwpdF039ccJlBIMS51eUULv4/nC7NjzFDskL/PdJIW
XEoVwhavMgNnwLOxIUU6mKqMZh46zwIsqnHxz9rpILjS5LmcLQnaF02ox5fo
wLqB/1FZPwl8y+TPLvLSA725i5/gSTJc52ozKztFDwr4JlpypcDNiCvJsRv0
0LYdKaCnzwaM0zb3HwoxgDKnh6J5Ahs05vZr3NVlgPL1fsnL/Www2sKWxJzA
AK+r3ESPe7OD9ZiN7589jFA5L5RaU8wB1ZIr463ajGDOUZEa/YcD4r0ZW856
MMIut6eGZSaccHFNx3ZPGSO4+Q3ySa9xgkjewZugwgTPXh9abnTkhrauIfU4
OyZo3otA7wU3KIaoRt0PZ4KOC1c8LvDxgKtGq580wQRG63xTn0Z4wLTcpClf
lxlCEqYqpUJ5YXxzYknxNDNoyEnzM07xQrlrqUxsDDMoEycOzVrtBhnpoviw
ZmagNRmcpVLmA+rRx+iK9j8+0hAnDnALgNpf8qCQKwtcIiXz0KcIgJ7FHfPI
CBawmzP468UpCDcS1gdCX7CAzVOey7oCe4ALD/Tn/I8FtuPO14wX7IHgdVg7
s/rPF2vDTh95IYjF9k9oybNCKPMvY3spYeAT0hhtNmGFhnkGrR5/YZi4enWZ
xvMf3y3Mr268EgazlNjUwgesgHJ9NxIdRMCNsbc3hEQC5e7T/h/KRcH3xT2n
KSkSHGFvPWnAJgZe3X9l/+iS4HjKvSLfQDGIDPW3o4STIEGOpGKoJw58vthe
7C4JlgsvjalWiYOimR1jdSUJLAzV2V1E94JoswXt6CQJeCw+X5shSUCu6K9s
zx0SDIeJ/iiMlQBXVlmjZF4y2NGtpOoySELD3Rza10fJkDAIz7YwKYhbmMhv
diXDgsPA+7hsKbCvXIo6E0KGcCYVgVFZaXj/6YlJZDEZAlyRK7WDDGQq7h9d
aSTDSRFm0dObMsD1UZrM0EOGxYCUwZaHstB+tkvu6Q8ymHWj+ahj++DaG5S/
vP2P5+WDsqlp5WBKL+ljFycFYttFussa5SA2uodfV4oCk7fD91FF7ofHXT7V
S8coYDyyBH0UeUg2WR6UdadA1osQJd7L8uDV19q3cZECHGznCmx/yUNSroiA
8w0KSH26rrtyVgFYLAzFbLMokB3qonl8WgFotrPOTJZSwJb20rkZL0VIm0s5
w9BIga9WR14orimCOpmqgPoLBbhP3dXhF1eCDQb2n4M/KfB4sGMfXasSPOtl
YdXfosDzU0/ilAMOwTi9xC1tEgYzDpdZbkkrwwGPD9Qf+TB4+slk6M+MMsQf
vks1L4XB14Mt0mnPD8MTPQfhe8oYMInLRGekqEDntMTmfzoY0KnRO5+7rApl
P5BisTkGhxsqaQsvHYEUhwOnaB0xoIynGQhHq8Flc1x5/iwGNo5FN7YK1EHp
4rbFmUAM2hBXau2wBmjka7teiMCgf7bVSn4/ggITWU7aOAx2qJKUPc0Arvbm
796bikGxa3eNJY8W7O2ZlO7JwSDZb99H9UUtGFcJ28SKMaDtiNgmjWlDkCOY
DlRg8CaHcstgTgfwv6eH9j3HIJXme5w6lx4IkQI8yQQGpfve/NR11gemeP3G
kFYMCprGGXb1GMDq3t0P/DoxeM5+P0Uj7ChUdl358rsHA8VmTrq3zsbQqHbW
kHYIA4nWkQG5RFNg1hKvvPcNg+H1D3Y7mDmUi7kuEJP/5rvNZtOkWcBcs9yI
zwwGtZHfwjnPWQEfsXHi0TwGF2dSG0cfH4dy52zwXvr3z5vV8fFXbcH6tn7Y
i5V/+tEDfW8FB1jIvLuQsv5v/0M1dE/TXSBnKeHG6gYGpJg2AZ29p+DZi2Sl
8U0MxGsdPzHke8IT7vES3W0MLgzayDnK+4F00k0ttPPPvyDNoUmOUCD/f947
oNz/v7wX/g9GeFAn
        "]], LineBox[CompressedData["
1:eJwtmHc013/0x+35+XzehZBsMrMlJK8rZEtp2CQjDWSEfCMzlIxSlGRUMosk
pM/7nVGUlJ1RhGySvf36/c7vr3vuufec+zj3ec495z5FnL2Ou9LR0NCcoqWh
+d/IemzmXOM2Bpy3OvUbQmMIsVW7CvF/+YEn3HsHLwcSNVGLvfxbGFRPs3Tv
DvAmvPYNixdvYJDvO5Cb1nqOEHZzTP++hsGd/BHRUxNnCYUZZfP0FQzOGjb1
82Y6EVFXcMPVRQxOyDdLCcfYEaIma+l/5jCIOlk2fGjdimD6fdEh9A8G/jl5
KtFqp4j4i6o5zycx2KhfHTbfsiS0ZWkjL4xicMP+RVHovuPE8tQu/oZBDJ5R
v+Vl5VoQORYGsdQfGKToX6nlrDYnbFnWJ82/Y0A0h/hJRpsSZFZJ96BWDJzi
ftJOPTAmnuVZCGs3YXDpUPpPzylD4m3JTfSoHoPo4UV/Om8Dovl00J97VAyy
R+fDTgkcISQUDOxl32DwtbvIuHtajzjAWFxh8wID69U0B8M+XaKxeFZlby4G
3QzGm07Dh4ncuh76mxkY2FF1JZ7RHSZ2W+COt1IwEGCKr9qvqkPscQ8Ik76F
waFdwebPrwBhWOH01DkcAwOpfY5/ExCRy2THph6Iwd2Fn7sHTbWJIymf/+Zd
wmB2qDhNXeQQURae9LjCGQMH70ts/mxahBcXxcblNAaaPlfzvZgOEofnBM4X
mWAwrkDaa8ypSVQc491zF2GgK1dOnFXQIKJ3fqniVcFg/RZH3VFrdWJ3fXja
QQkMNgVepX5JOEA4vFxg3eT9V2d8alHTokbkSu5fttukABdPZp6O337CJ794
78YMBS6aa5VItKkS7b37jQ4OUIDtFRGqqKlKdLIVEXwtFEiu/eCFP1chItvs
px+8p4Dt0s6vuoIqhGTRknJ1CQUiZ5ymDz5QJvQ9YpZDsigQ4ybto8yvTGgL
l2dNhFLA5j/d9KuKSsQOEUPHu54U8H6qaslZo0g45VSa/LL7N19WJVnNSpHo
XR646qZOAbvNl84rIgpE+pLK88d7KWBUocOv6SZPyE0+6L7GQYE7OTohMSVy
hM4H3gOyk2TIm45vLbbdR3wt2+W03kkG3dF55qZKWaLBfCrap4YMtYdV1kME
ZInfwtkDp1PJMMJ18X7AgjRBTjUW/RhOhtDPIwYq7tKE7AWr0P6LZNhJ7e7x
+ilF5PMcf08GMhwa2f0lpluS4EnPWUmVJgOp/BOru6Mkoesl0dHKQYYP4rYe
LWMShKoQXnpimAQ2l0y/P2OUIIxKlNoeNZHAXOqT9ofUvcRzUkzX/TIS8H+Y
5OmR30vEEWX9mREkMHxNMXE8K054ayhwlJwngZpOikkKrTjRfak5yu8YCf4z
xj4ZZosRm6wom0eQBJaMtnS1E6KEAL+j8sArdiijvRsQmyJCcHQ5DT1MZYfk
h1LX9+qLEMKMdGPYNXaI8Au1vrskTGTJ/L4nps8OHjxXcp47CBOGVfdTSK1s
UNB2yJYrUpDoe1nz61EZGyjYrP+U3hQgdEsr6abvscGtEx8u0QcJENmaxdkf
bdjA695B77xAfkLD/unX8H5WQE6GwdEpfESUeocsD8EKw0mOc0GifETFfgU9
r0xWICw8U++V7CbMmnwrLzmxAs1m0QSpk5eQF5a4UvmDBZLl+qdt1HiI6e6D
HmHVLPDu/owgTRs38ZB72o7zIQucWd2qd7rMTfyRGw9LPc0CNQELzpKvdhEX
6OIKtJuZIXVa6sVTIy6iPzEo4lIBM0S1VHNtz3ESm6d75y/GMMPMiYOcdY84
idM7fWl+6TDDULlDvNcyB+FtKV/xupQJuM67u/lW7SSq876Gt99iBPo79+95
zVGIYuXCSn0XRjjfkqEf5kQhYs8de51wkBH2tYSZzn8jExlrf9JLxxlg8qeL
8McKEhHzjKvzhB4DkNzdbCaz2Qhf0dq2Qj4GqH1aJVwlykZU6l1ZGJmlhzRi
JiXxCSsRfDfGkekRPay0f3siX8xCFEx4mnIu0EGvQEnr/u9MxP2Xe5seNdLB
0Xe8p4+4MxHcpe70XI/pwK3bmdi9wkiE5sp6NRjRgXPSlYBJQUZCRM9fzTeD
FrZeJJ71v05PiD0vyv2lTwP9DHnnk+NpCDYDvtxKPhrAZQZul++nIS7FizaI
9G8jxXseO69Qt/FRtojNCOVtJMmp3pl9cQtfcPjBl929ieZuSR90HlvHma+R
Az1k11Fv1TDN35PLuArbbXrJzjVk02luv7t5CffvkhJhC1tDaoc4j/xnuITf
NSKoxl2rKCIjvaFDdxE3ig9ZWIlaQa7RYg18J+bxOK4CCeGZRXTYV0C2Pv8P
nju5b7gpaxEFFTbsYZyYwVPplC3enlxEhSl+ulf3zeDlDK8qXagL6M087/BA
1RR+3rp1j+CdeZRVOURbvDGOQ3ihwUeTv0gozfURO/k3brhi2nGR4S8aolu+
Wxw8jEvWRZldfjeLXKfE9zNMD+EJXRx0GYqzyNhFOzSvaxBvVVwQ9Twwgz7V
ybNQmgbwFRmfHQ2kCbRWzrCxcLIHl9RY3Yq7OY6wS+wuH8K78ciJijgd9nEk
JpPXs7vsO95GSZO4Rx5D0XX5cjvFu3Bd+YhmVcERJHDPqbLpQDt+dl1UYerJ
byR+RMNJ40YbvkfRbOjFvt+ovHhTkdrTipuJnpI4h4aR9s1zfn3xLbjNSv3b
6cuDyC/BwJ3pSDO+uXr4pjXtIBKRfT+fKPYF7+DrezuW9AuNfNtsDGFpwjmV
2HT+Kx9AP9bCHIXGGvGwK5yx0Xt+oppFfuvX6/V4/wcne8mZLiSUnPOjv5qK
764pO2kj3oWiL+oxP5R/h9tZM7Sm2Xeizr/3a1iK3+Kzn93tT3a3o4xaQp6+
owJ/Nnn1t81SC9plsuFbUP0KF8sofX9bvwUZnK4nK6eU4vG/mdrX7n9DOxSK
24KDSv7x87oJxTejc9Ee23UNxfgFrq1z7vcakYRbKndUUC6+5fUl0tmjAdH1
NiVZdD/F3aguAbt1P6I37El2n02f4EUruWN9bPWo+fzE7+GLWTidENP06kot
2qPr03ybNxPfUbKrbX66BqUECb3cKHiE9+5zFXo0RaBzKpmX4ljScO4bHr/L
p3DEt29F3WLsHu7B3kQnTaEiqaneyK+jd/Ez2gKD4sFViNnuT6n04SR8TPg7
eXTrFfp8+E+w8p1oHA8P4AuJKEUr7xWqZ3gj8bFA1cue3CXIP7aZ9UdzGH7s
YhaF7WshkiGcCs7cCMbXZENDQ0zykUE+81z8ZgBuJ1zkvjici0qWbH8N1Pnh
pzZatJW8cpCpvKftf16e+KMXd5x4nLKQ88vb7SfeeOB04jHVkX0ZSEUglYsu
whX3vUQ6G6byEP2anVQZ+XQGd191n0f195Fcclf5B4o9nnv071J30l10OlAz
4s2Z03hp0RC4pyUh9gwLi7Ohx/GbDra962/i0Yp1nptAiSn+wCutzuVVDCJH
2T3eeKuPbxmcvy+/NxI52MXmTv87Cyrxt7WCydcRA69V93yNGm7Vqney9Xsg
6i5UzS7YkMcjk/0/SUT6oHz6kStSM2K4o9jlWX3N8wi4vz9lec+DR+koyPw0
OIOEvSoep7iz4pP2H1+XOJ9AvrQHbiTQL1NV3wpwFfTqIkP+4GpG436qFslG
teimNDoc9ClPsa2cWnanzZpncER7pFz87TdrS2pJks3JORsS0tE8s76nJE7b
oclJM//wfnTl48tJifAGbV+6jJPqM8aoyPMHof16TDu6orb6z0lrZG0l+hwN
bWtfaHb3c7viglBqxriWww50R/1M62MBT7R4rt06W1MAmcR5/OR75YfYJoQ2
hRIk0T3LYM0zWsHIRHTK6ECDEsont5A0T4ahdD82W904DWTS7MCTEBKF+v7e
TSzM0UFcH90Hd/LFIcOg4ebb6QboyJqlU5ZkAvrP+ePigyZzFPD2qKi0aQoK
Exyuf5dthd7cj29KvJaK8l6G4WtnHZBofyheOPoQrf9m59e45ozgvflyc2kW
unb0cYit93kUIj3+OqM6BxmZ6fwskPBCgQzPe5IHn6Ihpl9X1ZR9EN0oeSwv
PB+pj0Y1xxkFomZ73X86FSKrHqkvKo3BiEfxuVtC8gtU/t/DtO0HoejY8VK2
7phSJHiryuO1SCRqQw8aXDZfoTcqsqTMxGgkF/FYoCr0NXJaF5ttUYhF1AsB
fSlFFWjEjLyuw5SAvOtaAhitq5Bvnk1DvHAS8rmyQd7JUY14Gr8+qexORhEn
kqw/FeJIkGY9bCL7Hnrm/5PIe1+LeL7n5y7nPUZKJ+Z7dn+pQ5XUrx+PCWUh
sdgJTZH+evQcf4WJB2cj0zq+kU7uBvR54EATyeMpUpf7z369rQm5J324lS5T
iDo8j7rrcTYjudgx13ByMaL1VFQYtPqKqhsMzGroXqLccxLPgte/IW/Xyw2n
95Qiu62V+1RqG3Jy+Nir0FGOOAp3eCkFtKO8fPJfX5EKJFrwrixXuQMpVz/h
2321EuVTd/vGlnai219xq8vHqpEKX41LbEc3Gnc64ely9D26HnSTperYALJ8
rdQyO9+AXLn3TfytHkDuHMbNI8uNyJK+9YWF9C9ETht60EP3GcWG2xwNZBxE
OmUZEwLyX5Aol72c+Och9Cl+OuvszDeUM3Pa6WrsKHp+NilV16oTFUH25XbG
MTQwNDlOz9uF3JVo5iUjxpBDjeN1Ul8Xet69k+XF9XHUuSGdLXO5G63SHggZ
iZ5EZbFYCHtLHxKr9GNRfPcHma1lPkrWGESMv+XXW8VmkaDUh5xO6iAiqaaO
envMIos5jwcFR4YQ7fhEe/PiLLpm7rJ/r8MwGlDmmBrkmEMntsMjxYtGkP6H
cLlhuwWUeCNAarllElm+n1m/lruAdPR82psjplDuBmOKw9wCGlz4M1KqPo22
Najfp2IWUWr2FFNNwQwy07u0l61yCT3a7tde7p1F3qUSo8/EVtGGT7mipvoC
upE1UHYpcBXdqV9vv/p6AenytXm5fFlFVZmfsn+qLiJLrcTproA1tOMpMyGj
uYQMXe9EJjevo8GGTME0xxV0vPvU4bviG2hfQY9b+cwKSvUoO1p6dQMdbRnQ
U7y+iup5BQM1JDeR3FknFev8NSS1ZFAqH7aFTGifmbjyb6LAtmdPv3RtoZ+R
3/JN8E0ksLyLx19+G/21MmBvddlCygIdEW292yhpUEBx+M02Ms0NvaL3kAYS
xmKFUhEtCM6utbcv0IKi0dqpUTMG8BgqPNQmRAdbo9/bmsoZ4B7nW0qNMR3o
3dDTtxNhhB+HxzYvZNKBa0usRMo647+/2q2y2ZgeCE0JH1TPDDvYV9jk/elh
08CsT1eLBS72Oq37PqYHF745GcXXLMCZYz1QPE8P52lmseFCVvCWWdmgPmCA
CZky65oydhhmCQxXqmOAx9NBN8haJND6284eNs0AJe+x0oR6EiwGWXiWIkZY
56LQufeTgaPf6+ahQUZo/nJf7QfPDiimmWj6K8gMpp/tjubkckBWWudhbl1m
OLLTJ1ljjQPsnvUZktyZwUekV0DBnBN4q+96ehQzg1PXTzPrNU6g+fBR/6sm
C4x12Q48cdkFQnoPrd3tWcDypr2BfO0u6NirO9sYygLzbGUnnMW4QSJl8sBk
LQssM7BcXh7jBp+OjqvRRqxQTXPhkWwcLzANm43YnGeFjilzG/tlXphHTfzz
cazg66f1N9NtN8jbFOdf+MwKrlIp+ukmfHByQK/fzYgN9CUbf+go8UMNbYOc
7jk26Hlnl9b3kh9KtMr/9EWzgVKOgimfigBc5PtK6NeygYrqDe7vSBDev2VK
71Jnh0mq+5kb2sIgFOMXEneSHSxeWsipxQmDuAXz6MJldvCrvfnycZcweAU9
9p/OY4fIzr2U3wEikCH6bv/Venboz5BUH/4kAqMGGi/fDrDDqYOnu4aFRGFa
gyxgw02CJP6d+7S+iYJg1o2K14ok+Oof+pgqKwbvjYqdao1JcOH1ktyDWDHo
nkvWnrtGgq55hSc1puJwdzPZ79YACS7NciVszO+F4/k1BW4rJFDMM55xdpUA
8ZjSuWmMDNTWP7/39EiA5/JuK1ptMkRJB0jJNkuCKMfs0VsnyKCTkKnRayYF
bk3GbDXnySBzunMiqUUKNJMeJcreI8Oq0l+myd/SIGW3ccShgAyu36Yk6QNk
IEyt7K4GQYYM1gIyhSwLl+jHB0fHyMB6NHiQz2gf5PTq9ldukEGto0Oh6s8+
WCRXnVfeQQG5sLA9MelyoKWohHapUUD/xal5VTYF+KEVZc9gTIED+xwn/PoU
gHY7RyXGngK18XkJ27aKcHuVRSHTmwJd2wdnqM2K4OBrTZhE/OtnbOHvPKIE
0QXnbONSKOCpWSJQWKcEjYsHA2xzKRDFcDyn1FAZzgedEnjVSIFu/yDNU64q
0OH94al6DwWA/EqUb1sFzKItC8wnKPDcvsLbKUsVAtsOvF5YpcBCDQvDpOl+
OL5/yUyGFYMGtf1xd+jUwIxqT/+HB4PNQAndo7VqkInFux2WwED1rH+4SuIB
aEhbZBdXxQDV3eQLPq8OXHUON+/oYODxq37ilqUG7FofC000x2AhyrmH3kwT
2J7tiOGzxeBLn05mhdVBmKIr0VdyxyDRwrfjS6AWWI0zObT7YNB07tYq9cUh
mPJ9FUQfgsHldDtDXxoEZolUPWoMBloKvR9lDgAk+qd5MtzBAOvYebxyCwCj
FcnvSMdgYFbTxqJbBxJXHxcpPcOg8nOaZXfjYXiq3qLM+wKD7a1ehp9tunCk
6tdSzBsMZBrpucrX9SAy2acqAsfA7ckLlvojR+Bk4wMdlo8YfBP6KPntrQE4
8o9bcjdjYEiD3w84awTEM9fqonYMGGZDl4YNTeCN5x2j5h4MlK+X7vxy1QzU
uy9/CRj4xyO/7R/MZAFG9CEC+b8xSOlnZreIPwbKtGUcrhP/9nvG6aeCqyW4
0yfGPp/BgHSwd9Ex/ySonMGc/eYwoJa8VGaKsQKa2JLQhkUMRCTiX3vq2oF7
Z2DjkxUMws7Wm5fmOUGt2aQ06zoG9Z4I2zZ2gcuHOBMWN/7pmaKvwzLrAa/q
Qic8tv7xkkZXxxcvAxn0ldy2MciUHUp1ULwG7P/vp37C/89Phf8B7Bkatg==

        "]], LineBox[CompressedData["
1:eJw1mHc01//3wN/2eHu/X0bIykhkZRVlPS8RUspMQ0ZIA8nqkxmREcpIIisy
UiRZldcLqYwilE1kJGRn6+f7x++ve+65955zx7n3nMcVtXczdaQlkUhWNCTS
/yTZ5I9zwz8MGkidep8Cw4nBdCOTyG29SNVa8WpREDF0rmTX0y0MRs8WJWl6
exCr5BffDDcxcBh//3jd5wqRnOgV5LWOwW3LZBLfQUeCTqleVmoVg36arsce
BnbEQdqBSYe/2/Eio8pdEtaEbUxo294FDOwfvs77rXSaGJBiWPWcwcD04ZJf
oLwlsagh5Ws4icHNqmyFjhYzgtMTbjwdw+DW5zunCkdMiNoOfq67Qxj8V1eV
cP7EScK4gvn6Wi8GdJQwE6O/x4mdhd3Vc98waPqwqDJYYkQUqPZKXG/BQLDe
XdYFNyQeh3f2+H7CYHl4fdGWzYAA+h0YVoPBwWKCbyH6CCGPn1iXqcRggqvE
lkNdj6jrqelpK8ZAMj//chabLuHziXeKLg8DY8GFBLpNHeLN6rHiyTQM/rR1
n/9D1iGSeyWc7RMxcKrdPFmsoE008uRbOUdhkGYtWOrsDMSeEKbGzSAM7E4U
lTnaIUJIKJtptzcGF9aPyPNjWsSeETbbrssYNA4U0kR91yA0slbFd9lgYNZh
JPC9VJ2ISDV8tmiKAVPzwKeQXDWCR47G6NwRDALb+A96Fh4i+vX0bSwOYZCU
2v+qteYgIdhvf+SHDAbYXG7Nv1FVgvVwhd2mEAZ5ZcP+KbyqxD/bD9zPMQx8
Hgm+vWShQsgO726cIW3Pnyci2iLtAPGr9+6Q/DAVJMarxD8f309k5Ivu3tdG
haUDOtbvSpQJRzVOsZoaKnycVleIFlYmvllpWUwUU8Hd4T+JzHglIrUkUiU3
nQp5PoLXXKhKhKFTv856NBV+z2+seMQqEi6+/GujvlRQoSmu0+FRJAJf1Pnc
sty22zefzFFWIOavNx9TPkyFaO60YHK8POGL5ib85akQLPa7MOrjPmL4wUbl
ICMVIov2uqcYyBF00Mm5MkeBHFeTEIUEWcJ24Hngsz4KBLv3BUWPyRD0lHLS
WDEFZPhdV9jTpImTOsUmro8ooCXLrxZCK01Y10opJIRQYGSLLcbsqhSxn/RL
7o05Bc5odPT+Nt5L3HqqkvFOgwKTm/V/ZD9KEgtt2BFbcQoopNfZ1R6WJDJW
7WbD59lgJeeBOMVQguBtirFm72YDxpqXlue/7iHwtCctajgb5Jq18apZ7yF6
lNeLfSPZ4MbK1uvfAeJELP2NgFpBNohSNa2SHRMjxF2v8viQ2IDLyr6wMkyM
OP3oa1vHTzJQN+5TcCkxoua5zkpMPhkSdV8bffYWJfaXMzFNR5Hh3Ghm/VMR
UaKq90nosgsZTk5llic3ixBuKmuq3IpkaLqnWntTWoSYlzQTl+YkQxtffUNo
hTDhqlI692eeFSo09g4VCwsTi9eGK6NesYKew9Ix8xUhQrQT6coosoJcgC4l
rkWAmKmO5+fl3PbnZV6xsRAgcjcHg+vmWeDByEOL2H5+Indor4jdKxZ433j1
QuMiH5H7XDG4XpEFymRFTH9q7CQqEqe/NrGzQLxj9elf7byEGq8ic/IMMxQX
xjF9vcpLCE7yuEYVMsOvV6pM/Nk8RFC1lvn4bma4/WTol5YkNzHpKUSnQcMM
AzfbwjmadxBZp2ePnB9gAgvh77ou13cQHK07NqkPmYDOnf/uozouQmN+wOMQ
CxPsm5y37vLmJFad97+/8ZMBuI8w9CrzsxMdh3xV2KsZgL9AMfVJLkbwdT3y
D3nIAGybuiZMQhgxbG6gSXOcAYyFsnQEqFSCNDGQ6FFKDyKHt/zOMrMRhwJZ
39LF0IMpN2dgZRSZEGzgU/K5SA/1keer5tjJRBq1vpvMTw9SZWqeLSKsRN8r
uxbGADoY0E4JvmDBTOSNZ0k2W9KB2JWMrdIxJkKDvOrjJ08HrPY1XU/+YyJs
RhsGM3/QggFriiTKZiT6BhO2+HVoYc8uk+i3ZAYC98RPZdLSgKXV6FrXLlpi
5M9BQrqTBKZZdBITOA2RzJUx8/wZCdZW/ir42NMQ7q66z56ak8DdZSDm7zMS
MR0Tksdy/B9aUkuX6E3fwmuB1v7f0hbKTSe/er6yicP1xeaNtC3k+TnotJT5
Jk7rX/Nx59wmir/mxbnMuYE35+gVCzzYQEYmZYpLL1ZxhshSi0S0gUr2lvzj
FVzFBfsWaqQn1tFBfXmh9KgVvLlAf7pEYx3d0SiQfeO+jIuJTRkHjK6iwoxK
ldOnl3D5SNHzMrCMMMfoHvZ7c3h8qc105NRflKca3CkgMocfZFArkkv+i2A4
uEWoZBa3Fc5wObKwhBRnGlQGymfwxNePO5ieLSKN5oWzx+9O4QuVphU90vNo
Tljym/6PMXyl5dtARN8cUtImZzCqjeEGAldfZcbMob4yUT+mpFFcf2rdacfi
LPqqZZSUd2YEt7i4GhsePoMCKkjvrJmG8b8GvV2Xl38jG/FxWYb+XrzeM89T
3+M3UvLNOxj3rwePXXxzmWd2Ahn1FFa1SPTg2TGejx5O/UIjFnzG4iFduMKB
P3wRc2MoWPA85aX7N3wpYazOzGsM6ZP74rQqOnA3Ct1d6bVR9MDVrJpK14Hf
tnTrZWYaRa6aaebaOW24V7He6365nyjn4Z20m/ytuEDe2Xfnq4YRBxeF/SRd
C57zh7JMZzCMom4dxc51f8aFhfmDPjgNofWtXhBObcK1OqfjlxwGUV28t7/f
fx9xktfFhnWWblQz1p3F70/gU6FX3HmOdiFz8wrfMU8c73K84fPlbid6EtyQ
8GH9HT7UcuyJFP93FH2UUfSo3BtceM+PYYpFO3IPdLw+xFeGW6SEnU4saENX
mp9tRc2W4mGOLP8N0LahghqZ6I6vr3DZlwmRH960ogiL96dvvHqJH1AJG8DT
mtGsk/kr5d5n+LtGc/ji3YQKJb7cCpMswB2HvHLSzRvRoHyd7FpoHt6vOJCU
J/oJXeGtGyr3ycEt9pRW8tC+RxTZPouq3Rl4W3/xNxqWOlRq8lsneOoxfj+0
4+wYdy2S/Rts+aQoBS+d56Ev1SZQGKX2Imt0El7F1ZbD9L4SpYaKlHfF3MO/
bE33+qtVoPa/+479JxuD07iQWurfliHb5zs54FIUbmG7mTkz8gp5eMoe3XQK
w8e5W8V/RpYgzRl+G8qe23iawUZ+k8ZLNGvaknyCHIyPVfjnqEY8Rw+f2NzW
SPTDbQ60xu458AxtKFeciND+D5fcceG92moeGu6P1MlS8sYdjP6OcDRmI2Vn
a5HMzmu4tdH9+unvWaj0TlOrN9kF/7tG6hbfyEBLhvK7uHuc8RAXd3K2cAqS
n74valduh1vsoCmr2khCOYNTQrOe1rjGB8XXfayJKDDU1PCBohU++czhuODR
ODS16CO9K9kMF9v5WJzbKxZpP65yGkYn8MxKgc+uFZGINNJLzHka4H4e9/7a
nw9D8+RPVzWrdPCIW2npbBeDkWrAJI3inDr+3la5njnHH+0vzVUvVNyPKwT2
ThDaPii1nPp8DyaL79CQOn4p2x1ZhMue4YkQw7sormGGjy4h97H7oX9+8eDa
+b1PxW7YIUPTtXbzNhY8yUFmUKTeAg0qrOz95bhaXXJm5/AfJ330ov9OcQXd
SLWum/6I0B8l5BXTu9M56X312HSRdFgRGaGu6HMBRET1ldVh3SSXbq2jCfQ/
9zGBVsUPFys6391INdH89yGnF1r3m0nVO/0RqjR/kv+M57vWRp2z9KbzSdQT
XmTPkD6rFeZl53iS7RyCwYfKLnG0KEAxutPXwRENWe1uVgjkQGEf734xOuGK
klNIh3lChNBlf78LChc8EQ9zxnMJJknU6LHx+63DTVSYdkUk9q8CCtti3sX1
IAjlFC/GcP5SRe9YOsQzz91G52vdnqofBvRqXGLXXGg4OlVTHE4O0kNyfoWH
JjiikVPcrbacGiOUcj8iU4V0H3ElNVWmxJqgU0Hq8sbBD9B6H8XhZv0ZlHVD
KpomOhl9YTv8fEDRFq3nVt0t+5SKevffFpKxuYAOiDbSXZ7IROzrRcbXJy+j
6Vukq+GtT5DgQ+4ROks31KVburbekoMcy3HKMv91pHHkqn0xbwG6EpRv61/m
g07NxL/4blOIFBxe6/WM30TCweLMQsQL9MTDu+emTQBi5E2TvTjyElXqtgXF
8oQgFVZatlt+5Sjiceal2Ia76DgMEk9FK1HrB6bG9Z+xyE/ldf+Ljir0b6FR
/sOj+0i/w/nofodqlLCa5FWjk4jUzFdGWrjqUF26+CNzxjREvxhRrCz0Hu36
vpHEqJeBrPReJpjI1SMFHhMJu4eZyI3X+0qq3UcU23PW7apXNmL50EeN4GtG
W3SQMMD9DPnhhaXdpz6jS39fxhTNFqIdn65zZqZ+QcR4kmL5jxeoTPOMdXlq
K7oenUIWv/UShclme/natCMni9hmHdkylFATTTl1oxulu2HBGX8INOvczt1p
0INc686naH6qQcdU5Eo0BXvRu43Udpb8WnTNu9rzaVMfYjflv58f9B6F2Ejy
CUr8QCGXlJxsoj6hcMVeIj35B1Jf+63xJbMBqeqKePpTh5BYmWmnHbF95+h7
0g5tDKGvggLZHjyfEevVCBOL8Z9IwetyyPcdX5FsL/WXoeMI+picf8my9ity
6/Pu8BsZQYVnJI85ebYhowc3dseOjaISYbZxr7F2JE8x695cGUd2dd+u8tJ3
oowzs5n5ZlOIV0/M5J3yAOK4lujM3TOFJBbkp6tEBtHLnqAcW7tpNOFbX2TE
8gO1C1LZwq//QV8mj5XH0Q6hHNXJ+9YnZlF77wWZBK6fyCAtS6M9eh5de3ST
oe/1OJq54h11oHMe/bTzkSAsf6FkN7HbkyILiHSZNy9q7RfyC7y+y+j1Asqw
rDm4evQ3mrbCVXOGFpHmw0JHHvZptCr2eU1EfxnVe1wY9UyeQ5S1NcGBhGXU
fG0kQZRuHhU2jb5vHV5GpwSW08Jd59Gte3ZjxoEr6IEmR2Ty0QW0ZD437VO1
inISl50tdi6hxOty3vWqG+joFZ9bc9RVVO3npDR7ZwNdKvDpIB6sIq6Owg2F
rg3UWbmZ90RkDcU7rNZM3dhEM4cE6t6prSO+jmRx7jdbKEXGz5cUsYn6M+0D
92eQ4EwTvxD7URow0c6aGm4iQUzaEdWwXBowU9K4GLVMAm3xEwx+jLRwGQu/
Wm9MA/VpvXxbn2hBhyddqGqDBsQ+fophtqOHwJXeM9x7aWFywLZCsoke7CS4
/G3NaEG7PTljVYUBhp7mX6jJpwXTgfLSNi5G6H7tHRBpQQfN5JMnFH8ywXSn
X452EB0IO+v7vz3LDJzXpXMHCuhgxfqWs9p3ZighTHTq/9FBzVdXY+WvLNDI
6KIplkcPts4+MrI/yHCv7s19lnkGCP8A19YOsIMWl4hqFD8jjLov81vdZgdv
Qkd/UIcRmM9rVVM62OGCzpXF1ThGeCQt9yDDhwN+uslNdCkwQVb8aVuzVk5I
ZbfU+XyKCfJod7VYS3OBqcPk+8gAJvCR8CIxh3FBzevK2nNNTEDJSslw0tkB
SZblDpr2zLDPWYIc38oNjNK7as/eYYba+jqewYM80Ph+3kVtmwdqr1Oc5J7w
wO1XDo77l5jhz8ClXLYAXtjCPfZthrAAkuC7mG7MBxOHQ4+Tclmg2bhTu+4T
H+x1GrB808ACLWdZTT31+GH5OJuQBZUVxBLZF9qPCACDzmjGejwriOccixO+
KgQfXK2OsZayQo61TWDsmhDgWjLTTe2skB2UfFP17i5oKPgS4LDNTwcVsyXz
KoVBLQh7fmibr1ZSIu91SYsAwfPYqPoEGcJnrvhU3hQB9TeaLm3bfDZAKm49
IyIKAxmDyHab33aW89Mf9haFLOEV0UcfyKCW6Gx46osoXMzy/kzd5r++quh8
21Ax6LJusBx1ZQPmyk9xLRzisHf0h9S7CDbgT7rmPeErDuRF33dq2Wxg83Eu
jGNCHKz0efaJd7HBS9+1HtHPe6CF7JIYM8cGtBPVamd1JSCkm9SWwkqBNJmR
q3q4BMyxqW+kqFPg3y3DpT+EJPBdkIuINqMA2k06v9NgL1BjtqSEr1Bg/GiP
7cf2vVC9YU0nkkwBPXohasWqFHjqN81GF1HARbaN906CNJx9P3A2uZ4C045B
nsv7ZSCbnaocNkuBUSHt0Z3hsuA8o3DZiYEKMzx34yLV5YC/hf31EB8VFJSb
TUX+ysHxrxC0LEcFOydfq5MV+8C1cJ96rjYVDqQG2KQEy4P9WwmrWfNtfxJp
9oO0AnhtnTrWdpEKhjycZT8eKkBU1NPH5+9SoXfOONT4tiL4FL9cYEqjQoFz
faADrRJMi3RzGhRRYazIiD8zTAnof88F7CKoIBJRpRjEoQy7fzdUR7ZSoUSS
lxr1RBnMDsmcu/tjO98VdTijuR92+w3+FJulbu+b79ekwf0QfOfGIhsVA5f4
bh8XUIFpTvJTG0EMZE7vjWskqULsHtN4PWkM6lREaPd+VgVxJl2ralUMBITY
2yueHoSe0l/xDboYTO8v8O+JOQT6Ked+OZlgsOFkGiB4Rw201NrXEq0xmIp9
kWJ4Xx0sS5I9LC9hIIUYTT2KNEBJg28r1xODnN1nN//91IRzEd0GkYEYWL4M
i32riOAZNYRhMwKDwaaHHqvHAeQPDv36F4/Bdc18kcNc2hAaNlIQ9xgDv3ch
4+RJbQhMzGZ8/RQDnQi7PQJdOiDDZl/lVIQB++6dxl/6DwObd/id3HIMjkgk
luqQ9OAeQ7GSD46Bm4qDQIzuETg5Uih95gMGD5JXZgWT9GHjbcSZnubtfOMC
FQS4DGHU7X7ychsG1wa9HSuIo3DM9WbNyy4MnGvv8XoUHAPegosvmAcwqC9o
nVrpN4Yb3hNaG8MYpBcsJ1aVnYRDp7fM7o5jkAqOZxoOmsJSM9fXikkM2kmL
DpaM5rC0wJh6awaDmB0G71gPWsK4+p7HY/Pb/emvoz6etwL1eVl8fGl7Xk1a
xw64nQPUcHzm9sp2/xf1ONZCbWH1uJRQ9dp2PcxJ2JfyCxBn3K4Wv4FB67mA
IPlrzvBYsU2DfgsD668NDPewazCqKczP8Q8D98firqev+MBcm0Rz5bZud6gj
/c6jUPj/fytL8/f//Vvh/wCAsBKm
        "]], LineBox[CompressedData["
1:eJw1mHc41v/3x83buN3328rM3nuvwuvICEWRFEVZDTKSEkpEhbIKDbKVuG0l
lPc7NGSmjIZkFDKS1cf++f7x++tc5zrXef51zrmejyPh7m/vxUBHR+dOT0f3
v0i2mznVsolB3EKv+bsrMUQ0reVp4AYGn7W8L8TLBxI2XXeuyq5j0B25FBXQ
6k2sJQuoX1jFoGGQ2aDawIuQl55857aMQRFH1vzfZDdi3ZfLeWIJA2rT/dvM
yy4ErZZxnmMBA9fCzKf64s5EzAFaQdssBvSJolHnZA8Rg4Inr8tPY3A804B2
660DEbRORxOfwGA95M3vxH57oi6wRu3pKAYHy818eIzsiM6Peiq/BjE4wZsq
wt+0jxCrymys+oJBpUBYuWKADTEgGswp2oPBuHTMdmHfPYRhT62BTCcGhj+q
8xqLrIiTp9s8Wt5h8LTXeTpVxJI45hTxjL0RA1b+P/I5LyyIB7zcRyfqMMgp
tnrRF2FOJMzLRXpVYVDC2etw39OM4Bb/4HClGAOLyK6Tzh6mRJ1fNKteHgYv
uOmbPEN2EWQFsa5bDzDIjJlsLcwzIerejQxFJGPgEWp9/cEgEFN5Fy/wxGBQ
/Wovxq8EREDcr3dm4RgcM9txLZsVEYIOd/m2BWEQNVr2JeSjESF13CEr+jQG
9wI5PgpUGxJdzOYFd1wxMFM8mGFQuJOQWJo6s+sABhJ2qRq/SnYQrQmKRsm7
MVDvM6s/3WRAnBPVORaxc0vvkbCdxZg+oSWULsqphkFWmX26soA+cdEMWkAS
g5VHvLMLDnqE6esjZdzbMDCQK82+n6FLdGtdkLrOgkEIIbZTc0aHsNE/SD4w
SQXGKAsPAZo24fG0TK3kGxWaZnRjSfzaxIcMddOidipcY3FKko7VIiyt+vOs
G6gwciivZJJei/iYOFmRUEoFGxf/9aEITWLT82/nhUwqDLRX0N9n1iSmz5W7
MyZQIfgK6SAtUYPoycuPJp+hQmC/gObVSnWiOVtRks2JCp8EeG5y7lInWDlM
+B6aU6FFPMbhM02N8KH9+fNWgwqat67J3fyuStjsNTOJE6HCHmOOrFwBVYLh
um3WKCsVNhUKHO85qxASocK5ffMU2JaSKj+bp0y8cSUzx72jwMNaxMKyR4m4
6cmbb11JgRO6/F5rjxWJZsk8r0fpFPinTPnYwK5InI1RmNHwpUAi36PcEz/k
CU8tI7LHQQooOt3PeG4vTxx5w/RPw4gCabOOrWUtcgQLjwiJRqZAx7V6+ofN
skSmjWTa4TkOQMZz/dKWsoTugkFHQT8HiL6i9QZ1yhAnPZ1VZfI5YFLtX8ez
cWnC7yDr58OxHLB2cbzNIVSaGB5i0VD34wBKa0I0NyZNSIflk9t1OeDiKNnj
uIkUoXxCRjZFaEuP3OFb9l2SMJ2uEmHYIAO9ME9xevhWPiE229NEBu2wyLCB
1xLEFU/F5qA9ZNBaoh119BcnpJJnHOOUyXBws9+xW1Sc8LZtyLKhkOGK2upf
r2wxQjyFfuZHOzuMRJzMqAkQJSgBsW8qS9ghi72ej/RdhBjm0V/ViWeHwiTG
rvu2IoSOnZm+wx52OMe276aowXbi2K8Omb8K7HBwvaf1c6Uw0WjeZmDKyg6J
VasP/dSEiYe8zjXszWwAXwfp3qoLEZ5dbSW79Nmgwbh29qudAOGZUuGZz8sG
rN3Vh5l+8BPSsQqGTbOswPmSB/MM4Cfqp3P8DQtZoemnmXvMXT7COAs328HL
CiNlm2uN67xErMQD29wZFnjRo9C2kc5L/PylNdP5jgWMV2Qt6Qx5CUO5M9YR
l1hgIjdyWCaSh3gsvHjAYYgEuz+53+sU5SY8GTZuP3pBAo4JXtGcTi5CXj8y
rf0uCfJF/m2rieQiPJMGHj60IUHM26q0lAlOIkjhYNuxGmbwM65NJxIwIlGs
zzwwmRlcBd9xGjJihKjTT0Y3H2a4nbNW8S2ESmgu0sT6RJlhJI2B5OFLIUwr
E5ogmgmuFCcJ+J4hEw6vH1vud2GChNz06P9m2QmhsaJWU10mEBR+a380mJ0o
/Rj07MsYIwRudtLfimUj/ltuLx+xYoTPXTkuFY0sxIt8lUJgZ4AbO+N8/kYy
EYWrGV2kYXpo37cDpYozEeN1jSNELT1cZHhMV0AwElEKxp94T9NDzCjBPc/E
SHwa99U8/JYOttUlC754SE+E3zBQPU7aRKFCMUF/+Dfw9pXalaNPN1CV7CV1
g/B1/PUOBi53zw2U49dn3vprDZfgczSIb1xHzw3z1IobVnEeliLD7CtraNC+
jT81Zhn3G0nIvLyxjOQ27U8evrKIn4geOHK1fBnN6Pf7OrMt4pV5PxhL3ZeR
OY/TT6XUBZxRa/p25Nv/kOIJ02z5ynl8LHx20ubOP+RypvffOt0cHhwZWiio
s4ioAl7sc1+ncf9bS6k+vxeQgbj7WTeZaTx8/6vv9NkLKLr+RMbXs1M4f6wa
jYFjq15nYNXJM4nP5X1buT42hzxFHX26Q8dxI+uxU5Kls+i3p3VQRMcIft7x
k1z8qVnUk1ZlPmU2gjORFiiHpWaRomK5z/jLYZxSbPlXQfsPUhN/duF8zRD+
T5aCVwpMo5xL6BZKGsR9Oex7JtgnUNofh8T4qn6csV0uzCp+HE2ZVkQxTfXh
vwzTTmZwjqOukvWxZvk+XKK6g0teaAwZWe4cmCntwcM+eFsrGPxEeh8l3kVP
deM7ftV+OPBkCMXdC6zJMG3DL36grbNoDaEQaYvDG0Kt+LP8zA2s4QcadzNn
yF1pweX4TS7YlQ+i5/y7dbW73+LPl1O1ygy+oe9zXtsVB5vwmT3hh9g9viJb
Bo2jJouNeI3YdQwSv6D+i7K6j7gbcTuBa6oHZvsReY65Y9CdwLnjvqvW9/Qg
1rRPAQnFdfhDz0NxCXw9yGVhH/OmeS3eXJKu6+38CXmGPu1RmK7BY3PnmvZN
dqMPuhfd8ONP8cGuxWwPzS7E1kROOdFbjpPG5fl4BTpRJfezt1bZZfh9zSCm
xg/tCF8yl456UoJ/zc8inTjciuJkRuztV5/gaZN6Fm+q3qBQzcMzgYl5+G6H
89286a9Ro8aYwk+pXFzl3mFXtthm5MLDk+/+PhuXEdA7yhjSiJQvpd7bdzcD
P125/x1/2CskfFC/iGXPA7xB6ofcbBSBlu5YZ8uJ3cP9so/ocDm8RD25rXF/
pVPwarKUMS2hHj2xP/6x2eE2Ptpf+Jeprxa96sgvsM9Jwrtbk3vFk5+hg7Td
x4YFb+LniiQou2nlqOBLRQJJIRJ31JXSUqGVopmax/c6TcJxFd3g7cvCNFSo
JHVL6EYoTlfbS3Lb/xgtWD3XT2cMwpHW689i2wpQVVRQR4jWWRxGZ8XslnLR
w1u1El4Ovvja7sb7idszUds78gBbvSe+1uQseSDuAaKfy7mXKOOGp4fOMvtq
3EW1Lj3uA3RH8eN0ZbcXuVJQ4JSxSE6MI35kvfY8o3Iycv3savryox0+x8Z1
/tDmLSR4jSGZ7fEevDDuXgqjUAwKkh11Sp0zw18ptPSqFkah8742Uzc+G+NR
0ecZ5w9cQaO9VTzBszq4l9+reu2Ki2jlNQt/fqUq/nH++13x/kCksCf8tucF
afxd76hITbIPor/N4vjkviBuOjuvT2bxQEHNywtezhRc+RJl45f4YUSmGZ16
lbve0Egld/k/t0Z/0rxlXX3GG4Rk2Zl06PWQln/h8N/U1oauGCaxwB5etKfn
pBT25m6DyjdOUfv4YmP2eL3IlqRlo0NBaQv7FEWRZ0TdWu3TfOPBS2/UUot3
onBESZnS6DbWl9W7KqNvi15nsnqXu04bixi5pi2fd0bM7lMf45noUcrAY2aF
S57o/dk7ZDkvTuTnX6B93M4XQYuBlDLPdsRee8ZEZ+Acms+hLV6TkUXbDqhw
RX0NQSdSYsmDgeqoQz/5Y61dBFqjy6tqc9BDmgyyPH5C0UhShf68wThCKhe3
HX2zOwZxuur7n1Y1R6a1/ywKP99CFVmallJn96Cj9Wcvro4lIe+B0iRObztU
IhlpWRKUhqbXp6wkS5yRW551Ge/1+0hp+iynhdJx5JDYa3OmJQM9y+1lHTnm
ge6UMOxsm8tBr5ZuXqXR+SCdfGEW8cE8ZDfy/EPzRX90ZEJzw3i0AA2vDp2w
1Q5EI1qTL4v0i5DM0Rxy5UgwMqqTkv92g4YOmbYPikmEIe5kXfrcP6Voyjh0
3OlROJrrfd3iyFSJ9hotv8aso9DfW42xE0er0PaF6V/7I6+hA6etLB+9qkaZ
05db/YZvIJ7jAfqhZTVI0MOeQV8+HhmqO/0K169FI6Pno/+wJCHrB903Y9rr
kPA3L7GSO8lI+0dBwFXhBiQJQqXDiynoSfg3hvncRsTP9I0iupKBGCX/LSyk
NaFLIr+W5Hdloe8xf8zak5pRsbh6MflTNvqv7I7yeOob5Hg5Sdr2VB6iePoc
5fr5Hp2MKRXLdHiCYphrrnKxtCEu4Te9xStF6PDm4/JK1XZU07UCRZU0FJJo
3V6X0IlW9d72rSmXI6la/svXLbvRUruxlo5lNfL6MvW7db0bvV8oc5mLeIpC
tdqEdj77iJgdhOcY3zxDtY/ETCLVe1CCfw698IVapPJIVJDLuh9FHGh68XVr
vVVC/5WwCXxGI94kjys3ia35mSrbGP+MLPs9Byo9XiGx3zb5r+98RZvUnKtr
Ck2IW5smL8AxiELehhXd4HqLHryozzD/O4gKqiMytom9QzxKQvsyz/xAKlJz
PYR2C2pyUZN+dngIhYk56MxcbEW7BhKOs5qMoPOl9VVc2l1IClltcu4bQzbl
uSNSmz2oW1PqjnXvGMoS4pp07+hFdo6XrpS6jqO/fM26T3P70GTK5eifgRPI
u8XYuM/5M2oKfnAkq3ASHVwk3v5hH0BvuRs46vWnEDSzCj5m+o5GbYKjf7RM
oYn3btdXGQeR9WPTMb0/04gURHEZiv2BKl4WOXdJzqKGAPWQoRfDqGHw5vUW
v1mklK3lrmI3gqyviTnq1s8i8evH8pPGR5DJit6G28G/aG6Rg9wk/hOV85xP
aEyYQ4mq541+1oyh69SO4sc8i+jMXq/64dhpZJNmgA4dX0Q5VzqzGy1mkGMi
OXdPySLSqBV3Gib9Qd17/dlXdy+hDttltijLWVRXzRdqFPEPMcqm587/+ouU
HwempawsI9HmMEbPkEUUxN0omW+9goJ/PtQQXdjyGapuhf0PVtCPjQTO9wFL
aDCsMqJw5yrS1XpmQQ34h1Jj1lyLwteQpe9ly7nry+j+isuZM6ybyK6zPuOz
8JZvytIJ6XXaRJ8cF5aePN9Am4F76syKN9GHNfaKvkObyG+mup1bjg5ieVgL
n9rSQV2MX8pgCx0kX5+YUs2jh1WcLyVmjg7uSTU5Rq7SwxvvvgAlYXqQaTm7
Kn2QAX6n0RU4n6EH56wco3McjND8RXLnLioDGGhEhNfeZALWM31eD3UZQKfc
qkfyDxPc07i147crA1T3+O5lcWCGhk7jDocyBvAoZ0ZOkiRgNFtSstvHCLyn
D4x1fmCBLFH6VqYtnd7yxQdCV8mQea50zKiCCfQq2mQG1snQHDnS7tTHBBkZ
JItLYRyw/2rmLl0pZojzt00/d4kCyidq2U7VMsNy/bZ+mzQMUo9rFz38zgwc
XZ93r3Nywukfy3gpIwn4Wd9ITxzihLVFVHFsy29nfhuQF5jgBP3rfx6PfCdB
jh7v0GVBbjBLHZn4ysAC9Qx37z85xQ30p15eK5RlgZKfp9tEarnhP5W6/fW+
LPBbCW6vu/DAHdd2gbJlFpiXfbgY9pwXbG3SWTS3s0L68oBcK/c2eLHWdfGq
MSvoHvfyf+S3DVjH1ONjrrJC5ty5swpKfNC4vOjPzcoGiQkjMcnP+UGwBj/y
W54NlmgyJv7iAmCbsQGxVmwQhXbWascJwPjSdJtAHBs8rnFULPUQhB1TPyin
t3hITNOUTKcuDOHDlEF3OXbItPBSeVkoDOs250JELNjBte/u5SGp7WA1vZPa
fZUd5J4eKC2REIHadDVV6WV2eJ2jva/YSAwqaWPVGB8ZSHSvQ+ZbxYB9+K/u
M00yHNAxTaWpisN+fz0vDR8y3Ag64f2vWRyYQj9UMN0gA51E1uMSbgl4mR61
IymXDKhgDdTcJeBNDINDez8Z/iw1in4hSQKFTfrO5XkyGMnP35A/KgkXAfMZ
oXBA8YnUmltVkiDOX3Ow3YQDRvX0wqZOSYHzvdgk1kccMBQo0l48Kw3+pCH5
YwQHhFg46Zu4y8CHLiHnw1+2+LiJpG3aJwPnuH4mqVEoQNOzrDRsk4W+p1RJ
DlkKMJPcPt7ZKwfxdYc8YowpcIPMbsv/QW6LowuUXPwoIFejVR43Jg9dJvsc
qq9R4Cm/qeJyiAJ8lfUJKMygQLIP+3/JXIrA52Lz07OFAs8XPKVC7JTAesBj
SWmQAsZnw+8EriiBRESaT/wCBeAb8X76iTIcd2rlFhGlQuTLRE1eUVX45HuM
11qTCkOfdlnSRlThL5+hIGZBhbbsaSy3Qg2CN5OTfJyoUBxvaGNmpg7WhYlT
rmeosF6YczaiWh0g2Ct3PJwKwRci8AEFDRgqs1JkTaZCwiUn85f5GhCxYp1N
qqbCWdvSkVqaJlwM4E0YbaaC4b5T3zp3aEG+714bxx4qdPJcZnfp0oIZ7ite
R35S4QaVk8Lopw2drg5u8wtU+NGOOV/g1YHumDsdIkwYCKR6c0U264CJhazx
F24MOn97O5Ku6MLwP2EzeQkM1v7TsCGZ68EtghbMooaBSInScC6/PlREG54L
Ntzqbym6KfOfPmR2u3wKtsJgxTbIlDRuAFFVn3ayOmKwVM3LujC+A1Y979vI
u2Nb/C9oO7i2E2RXv5T3+WLQ4SD5myRrBGiSnpMvBAP61FYF1pPGkBpeKTAS
hYFF7zNsvhFBo0pnmHECBj38lpsVmQA7R0On5e5hkK1038be1wTmlYRlsnK2
7kTdC/XJfbtA28R5IK8Ig9/GPHqpVqYQQVX4pFOFwSmWzaZtrmZwivPVe4d6
DN7yVwxz3jaH4xKPrtE1YZDJr+1hM2kBESqFbfrvMdjMr7rPc9YS2DpGvde7
MNhDAbxK2Rq62t6p2vZhkOW2/tJScS8cSeT6rTiAwdDvrOLPIbZQebrj7J1h
DG73b1eLu7cfFvvdMm+MYVDBMujMpGcPVwuu7mGZwmAwPOJct4oDvJwyPMw9
i8FLBfz50wxHOM89/6hwHgOftwH9ddVO0HffVeT9EgYmnFqSX1+7wMefSfkX
ljHAT+4+t1jiBrJD8/Klqxhsr141aXjlBR3x1g8C1jGIf6l6Utn8DCyGVUy+
3MDgk8/rYEmlIHCXz+JJ28SgyrXJ2y4tEv7/H+yG9f3vHwz/B8SqMHw=
        "]], 
       LineBox[CompressedData["
1:eJwtWGc8lv//tfd9X4UkReJGCdkV8XnbI4rSEJXsUmbZSkZWNoWMjGQllUjG
dREhI5SZmT2yZaT8v7/X6//ovM6Tc56cB+ecQ+YO56xoqKioTKmpqP6HrIbz
to07GIS+69JoeBBMcDp4WV3/jzMKK2U9ivImChNcddz+YfAqXGAwVs2ZuGX5
l//IXwxqu0Z1mrtvEd/HLFbv/sFgbq+qYbu8FZHEGdJ6ZRMDWypOqaLgG4RI
dFdF328MbjyKm1kdvkrs04CvqysYmAe3nx2iv0I40Khz5y5iYOdQGHKT9RKR
xDZdsD6HwX7/6MvpBUaEagyeNTyFgesfET/xqnPEEtfwPssxDIrnDy7ZCxoS
mc0zh/2GMFDVd1v1iD5LsA4wLCn0YVChY7akDfrEQMZIbMR3DL5Osl9eVj5N
jHW8kvNpxcBI6Jab5n0dYk+8wF+GBgxWespKi5e1CP9wTw6xagxo+5qbNWM1
CaNO56y5Mgyy/MZUFi5rEIWjOoPabzH4KE01SFJWJ7Ksq5YgD4O/TZnle5XV
CEU2MntnOgYRn34mXrqgStxVXL1Ln4iBenXiapWvCnG3MudcRyQGP7sPr9RU
AtF3cXBc8REGAZ8sO1VYgJAxrLZT9cZA+ZgP/0CDMvF6dU1wwgmDR3mUjYfx
SgTr8hMDERsMoqUyfnS4nSK+V8jIM5hiUBJg0Rx+R5GY62zd72+AQbhToGvV
XQXiEUO/bqo6BkVnTGLehJ0krMOUscsnMMgr3H45U3SC+CypVVp0FAOdwIi3
+0ePE8+uvY3N4cOgr6QX8R06TtjvyV5HuzEYXnyO/7opT0z+eH3CjRYDn8ua
9RkVcsRwck3hmTUy7M5D+x245QgdV9nizxNkqG0pMk7yliXK3SteDHWTwZll
z5EHUzLEyiXHn4kNZNBmKfsWbCJDcFr61K3kkCEIVQjuGEkTBcF1cnEJZDii
fjQ1oE+KWHdkD+wOIkNJimf7VSspoklLgq/KlQxUHrltx9YkibM10vbaVmSI
PiWQ+TJEkliyeTTmep4MLDv0dh4CksTjpt5lHRUyhIyn6uP3jxFvVTNzh/aT
Qef3jZ5BJglCcq4DMpnIkIReBhlcFiccHjvok9ZI4DFC5SBcKEa8DKWr7Gom
QauiHoq3O0qo5UTxH/9AgpHHeUMhHaJEY1feFsokQVvEsfUEZVFi2an+qL47
CfIpOplblCPEhEd73DlzEtyg7H3TkXqY+LvqlECjRwJTuVzLrwcOE/SnGfMt
+UhgMjTJd5siQgQZswzsZSQBA4v/QuErYUKTumzBbYENlrEcNxMFYeLl8X2c
Kjgb6A4dz71wVYiQeRTDm5jFBvUVVk2pMxQi7CDf7ZgQNjB8O02n5EUhRm4f
pb99jg2OGCvjgy8EiXjziTl9eTYY8+ujPEOChDGZx+j7PjYou969i69fgOiO
+rfRPsQKdLw1YTsHBIj0baNp3RpWUDi14SpcfYhYjTSvsstihQKKgXmWzX9c
3CMhx4YVFN8+uKdZzk8syq4IH55hgf0Cwq2Za3xEbpmgxmYjC5REVT3OvcZH
jNGnP/bIZQGqYn1dviZeomBhwCbMhgVOnGX50/vqAPFKCfyxYWYo7sx/F/WU
h2iMWiLfq2QGDTX1oQ1uHkJ1sS8tOokZrpUEM/5L3kec3+aYXjnPDDUJ92we
F3ATFNoYGc9PTGBl4172cpKLuJqhu1qcygT2KtZ1g15cRMqXOr7XHkzw9qn3
XkF2LqIs2ZNpQoIJLg5T0hLV9xDzA7ab3k8YYbbTQrsR5yBYanXq2h0YIUbX
YnTRnINQLTXrmddmBF5GDgmCkYO4UIQsHm0xwIuVS4fELrIT59twvdMmDCCv
P3X+KP1u4nh3dhCNDANYKZaIPijeRUjPBZ0NY2GAYRdSj6TVLkLU8qI6Vxk9
BOZH9vDGY4SXhKySDCc95G72Pe7TJhGPqawOJX6iBWE9agVTPmaCZ6KTVJ1I
C+9175dVZzH9l3/tzVYHWghicm0gizMR3HIvQtL300JUAN8DJTVG4jfti35V
ZxqYVrrpzhZIT6xYSjNVaNHAi3mHN0376IkvvOvlFF4akOC5cVO2iI5Q0V0P
baynBtNaZ4PJEVqipqUqwO8ANchYJ3cevExD8DreK0hcooLcOhlv101qgp7L
gDbvMxVYbJ5m1kimJn5Sr3GVO1JBUPDnTZkJKiKtmRT9MGQHCS6rMkbu2cF7
vjrPfOvbRqTyhU8yQlv4YM0ZptOB26jecuObUswm/m9xXvPHsW1kcfG1XSb1
Jm5h+r3RIPAP6rQerTCfXMdZU85KfJPaQnGx8j1jLWu4cGPgcb3YdfT8UkXG
H6pl3HMvn8NdWEe9Jz9YuEQt4dYPpr//+PUbkU9tZ/84tIR7eRh6Oen8Rgd2
KFnWuos4k1bt5gbtGpr/Pigda/ELNzGX3nILXkbce26ryORN4nSMrKIDaBk9
5QoQOk2axF3GNGoT1pfQ6ZXEJ1IuE3jAtNkZHtsltBczv3paaxw3rdzsc9Nf
RI5VxmxD2CgesDfF8tTFOcThWt6pfGIQZ84J++TSPovCxX+hM4YDeIiAVGCE
/iwKk5ZuZXfox+Ojovm8tGfQ7xXdoYAPfbhSUON0iM4Uqi36Mh77sBvPUj6i
JOs1hjTnDox/HW7H7ymNW+xjGENyq0hiTbkdp2mUnGaPGUUNxSvRf5+34exF
anfOvPqJXHR3C7GMtOJM6cq2ckvDKAPTOcvn/gW/X2KJswYOo9npdrU+h0b8
xpEcTzaeYYSuNByIs2/Apz68PnYschARp5Vfpvp+xucVzbROmP9AyWWGoddW
a3Bz1VGW/Sl9SPT2QsLlQzV4x3L8hmdfL0qQlzJ4bFSNTwbrXq8z7UH1ktqk
B0k43rUPFBh8O1GwTE3XVZaPeKmRz8RujTZkiKVJnlwtwnEfnd6ek18REa05
s/X9Nd6+b/wty2IL6jHwVS7sfoXXXJZ/w+LYhILe5a0V8ubhLra0rp74Z7TM
aqncnpqJ95w16tqTVYekxJbpbI9l4AZacl13I2sRTYsPy/WO57h/50nnFM8a
RNM4n8bxLBnX9TAK6NGsRGF9nSVSe+NwBvYX6ss+5ej2F/XIBbUYPO8N3wLj
pzI0IFq4fzg8CmeTUq40ditB6ma7nURmQ3F9mRcKhRPFKKLx1PEpgWB8/xPa
C8cs3yHBYO58//BAHEwfPBkNKUJn085VEyu+uFy+ZOYly0IUsuahqNjtgyuf
YsqIb89HhNEnyae8nvhCRaezFc1LNCV8pVEwzQXfriJaeD5nIaaqP0+bOhxx
5lXZmtrsDMQVFjDNmHwbPyOrX2p7PwV5lBk9EeW2xMfPXC0Wn09EKgvvC5si
zHC5XzvaZxOeoG8f9M70zF3B2XAlngnvWPTzH609Y+QF3GBIkpc5OQoNs6ci
zjUDXPFWidiz2TBEZ9Zf0H9QF/+YzC4dwRmEdB8efcGSroZfdvMnYe/80PWj
590F007hOq20it4RPoh9/FpuBo8sfn2ZocQxwxUdyChxylwUxTsjtd9IZDgi
7t5BgaF1fnxVKIexbr8Nmnkv+HwuiwNX2aTu/PzkKhqgbiWeHaTD7e7dXp7N
NkDV13TI7n8Xq5ChzoZFuhKavFE3E3Xke5XxWU4zyntetHyrkT9QKasqvbVD
UKycWbnCv8iknZ2xEo7/7KXY8KLrVtRUtPOZyn/3qtdZeiqhgdx3g1+pvyuH
9F5I1EswQB+rF9z2Ty4qm9U9N9H2v4pE32oolrPSoZbfXX5PMBuUc7bjuFU8
B/pX0LY+lOSIhD0+dBfN8SPa/ffLZxJdke2lM2F2I6Io7ZClMh7ggyb7TK3f
7pJF4SoC0vGv/FA+oWERGXMKWdNxCXiQg1C98d1FzUQ1tE8G2zM7Foauqpc9
duPSRXEcStkWCVEoxkd8n8+CAZKd5jm/4h6LlO97t7kFX0DMLn1nsLgn6KrJ
6OVT41dQsklUaYRHCmIdueIszWGJnHx5bWp8n6O2lvfJPs02qLH/RtOeaxnI
JrxJfGHVDjFw1azEWWYj29NDaLzTGQk4WTdlh+cgR3LKXcXMeyio9o3gwNc8
9KFNKNim2B19aWsI9E57jSz0bzsHFD5Aax/ndCy43qC3ShwPm1ofoqyTS/Fe
N9+iERETlxvz/iio+Uv4qOx79PLqF4/O/GA0X2n8MOJ6Ocphnp+xEYpBcRpr
Ni1MlWhVp/Nfd1cs2qo/nCldVYW6fUV1nTLikeb85s904WqkU1X0WiosEVk9
eVGT/LcW2cgrzMuZpqMfBrY70jSfUVVQSN35nAzUxPVBpICtHm2GMxxJpMtC
K7qd6mIyjWidW7yGspCNznlJVaXWtSDXxVtnmJ++QiWg4BC80YokHE+eE3d4
jaZcOfLCudtQvtakkdarIiQyUxIVYdyOjFJKynVL3iIOH/vBzu1vKPWHX7qm
eiki3t3z9Sn4jl5uSkZ99PuADJ7Gn+u51olUo855XWkuQ3OlN/zjm7rQylrP
yvjDCtT6gfVUQW0vytr91qVDqRrdFdL7ZxfSh/7rnZPubDWofCdMoszgB/IU
nljxGalB9/rzPk5O9CPxX73TTGm1KNZULdqPexjlLH3Lm7rVgPTOHVWpezaK
FLbGB/cVtqHlNTtmKmwM3RFtrRI73Y5+86Q36vqPoYtqR55xzrWj47sM5+gc
xlHlhTmq+JPf0K+i3Xbl5yaRgEKyaCldFxqoK7idpD2L2K5I2WRa9yO5sKmY
e02zSND4hMaa5gBy9zf+Knl2Duk1P781fXQQ2RZINigY/0IskSb869TDKDXK
AFTdFlC7rLzbyu8RtBpADuKdW0LmqtcyJ65MoGu6ApR6mWXUVnaz3GxlAtVe
NhH57LWMWq73n0iJmETpvfU2lWwr6P6wXpdXyxRS1XF4cl16FYkdpGHIvTOL
6EhZLT9Df6PXpcrILm0R/ZSlbyF1/0YKTGMGSbRLSEhnz30nwXUkJfU75vbN
JZS69jHqR8U6sqcIU5EUltElSp4jw/IG8pERj6teWEERS94UDss/KPj96Pyl
N+uIs/BVYXLZH1TNOJXDqrSBOh/vuqaBbaNehxA2ctMG6pE9bzfzcRut8uUJ
8s5vIr1xpVZljn9Iyg8yVQy3EWwL7PW5+Q/ly8fUaC5uI0pa4dJn/B9SsCa5
/oj+i3CarmCX2zvIxbPDt7v/H+J31f6wZk4F7h4HX0Q1UkEXYVDJH0EFBSIv
HL8LUoPAymCJVhkVxMi0NT16QA11J0VSAzBqaFMaHddTpIF4+63xp+XUoFEq
//RfLS18E72awL6bFi4JflN/IMwICzEdPLcUaUEr+35ZaBIjhM7w786zooUy
z5Z5+11MsFxQETpYRgu/Dl80G6Vmhp1Jd7kNMzpoP9Tf7LbNAkJEY6dTKB28
MvTcrebLCrukOW98eUcH3aH+61IMbNDu9DKAg4EeFPVieLK5ScB+okxvPIce
Cm/BbzFjDJZMbofJtdNDn6zBycsL/+1Ebmdbk016wBrFROnUd8Ew8e62oA4D
6Aj2cyUM74IWtqWFgAkGCBUrFRYWZYfC2JFb5iRGMLYR8ab4ssOFuMwANllG
KOCrrnzRzQ7PKy4eq/FlhJ3r1DcvhXFAi8naUtxeJijOnD6QxLAHdt3wWVFW
YALDakfBgxZ74GFA0qdiUyZIHFZJheo98OGBuzVVOhNoLJNK/f244JVI0yEq
EWY4Gkj15gwPN7zp4tla1GIGImpnfSOAG+qn+JezbZkhmobBK32JGx7m1NBd
z2WG1Eq4crh9H6QL25tNi7BAOc2dH215+2Hb3b5nTpMFcicqfMVEDoDEYCLf
aysWUBS9KYFlHwD6hliWOxksIDY9V16Zzwt17ORjNgQLNL9kEy2R5gPqEM6D
vIMsUNww/COigg+KmmOdyrhZ4c77uSDN3oPw1FfJLFWOFSyO25SIy/ODn8Wg
9KlzrOCHfdG59pAfUH7u67RQVlgV3UpZOHAIEiL9U5bXWSGJWajn7S0B6Pnd
JBfGzgbvhBa8dT4JwLRW5IluMTaQ5JNM3ccnCMv9h8cembHByt49HbV9gjB3
gldj2oMNdr3seNpxigLPWtt8t2PYwIjq8d0H6RQwTzpMlqllA8pzs+viLkKg
oPBM5EI/G6SVmzy0HxaChkynfKFVNmiU1RT7aiAMWltMCV8FSMC09X7gkaII
2FnX9rw8SQLaZcQiWSICAYtDMmIGJIhI0ndLkT0M3e5LO/LeJBAW+IiHKB0B
srW/cUU0CWbPUjJdGo5AnGJx6mw2Cc4dHXPduCQKOSYh3zXaSIB/17/RFXgU
Qup7qxzGSMAcwxtYSRGDJ4MiwSobJHh3MvSlaaMY2L6i+9THR4YplQApfiEJ
+FRaitKlyNBlZCtJPyABzYKlb0jqZMBSPQYoyceAIiaYdfAiGUx+Ufw8pSRh
VPBKVpcNGare2A1vJUhCtf4fFWkPMqAd9fO9dFIwnTVNlg4lA/6ljdH8nhQY
vksOOZBPhtfrcc71VtLgVSxK6asgQ1nQulzlmjQ4azApC7aSwWtC2v5uuAy8
T486sz5IBvNfpJBEcVmwlalou7BAhhY5POVXlyxsFVLUlHfIsF99O1knVA4Y
2JkPF5Ex+Gg2eyBDWx4cAw3p83kxMJHrG2PlOA4RArGWEmIYeJKuWVfPHAf0
jOPbSQUMOP+YXjvSfgJ6a5tHmrUwEJmKnh6sPwld9I5Ck0YYJI1QO5S3KcDu
7JvywTcwsO/tGfn5SxHiqMeKXt/B4BxnDMO3Q0rQnPJF9qrHf36m5AxXB2Vg
PtRiFRWAQZhxZJNSHwINMfNZ7UgMvnsQQXzvAP5xfXF8lPifnkZVv+hjFZAO
3/1COxODK19O68h5qYIKxqkYWYBBRyhlqsNfDRrP3582fo/Bo5XnEXZ56nAq
rO1WTiUG5GN7aDxXNeByoJmPZx0Gs9564uO2WiD2wWT0azMG1PnHvO7v0oHu
w43mOd8wQGnOHz/81oWvcmF1tH0YSEny2peK6kOO6o3ekSEM/CUHvswRZ8FQ
Y9pBdRyDGBLTkW+3DOGzbPo1oRkMVIcvfk7WPg+cxlP3Q+cxaPzGlxH/9AIU
elMVOi1jYMGf+zkq8DJw75Bb+tYw+PSGj2rL1BSaG3ir6zYwEPKLJmV8NQNz
/gMu0n8wuKi2+C473RL6zIa+8v/FwHQqWaS+6BaIRQs2RP3DwNjvrysadYap
/jADvx0MWIt3i4oJ+QLj//+1BYud//tr4f8ABXM18g==
        "]], 
       LineBox[CompressedData["
1:eJwBwQE+/iFib1JlAgAAABsAAAACAAAAD1HuaMn/D0A/0tdFyH+IwNHDjhNg
/w9A5BT2JA+gfMDnzP+4V/4PQBxGj7UxknHA/P9X8ND8D0DSZSl7+1hpwDaK
qMXL+g9A1dei+KnRY8DdqelISPgPQH6sqlZdRGDAGjD6jUb1D0BDUsVheJVb
wOPjnqzG8Q9Ai5+pMKPvV8AUxoHAyO0PQFWLXanJIlXAyjYx6UzpD0AXjZye
C+tSwNv7HkpT5A9AJFYS/yseUcC+KJ8K3N4PQI4pNAwDQU/AkOfmVefYD0C/
4ZFsWb5MwJAjC1t10g9A7k/rQriZSsDuFP9MhssPQNy5HyfKv0jAB66SYhrE
D0BKthSWLyJHwBvqcNYxvA9AbWR7OAC2RcB+/R3nzLMPQKnXc7XOckTAdmf1
1uuqD0Cd8xTp/VFDwJnlJ+yOoQ9AV16/aUpOQsACSblwtpcPQMshzpN2Y0HA
KS1+smKND0DNWBDqDY5AwK+QGQOUgg9AesyJIHGWP8D8T/q3SncPQC0I6zA0
MT7A64FYKodrD0Bl2PbTcOg8wH22MrdJXw9AH7DjFdG4O8C6F0u/klIPQNuo
Bn9/nzrALGzWSQ==
        "]]},
      Annotation[#, 
       "Charting`Private`Tag$7585#1"]& ], {}}, {{}, {}}, {{}, {}}}, {}},
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "ScalingFunctions" -> 
    None},
  PlotRange->{{0., 3.9998958776215043`}, {-20.209149567037986`, 
   20.11236548795981}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.05], 
     Scaled[0.05]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.8085435421048317`*^9},
 CellLabel->"Out[21]=",ExpressionUUID->"040c37cd-b941-4d38-bbe8-f368c5d83a09"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Eliminate", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Equal]", 
      RowBox[{"4", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"Sin", "[", "t", "]"}], ")"}], "2"]}]}], ",", 
     RowBox[{"y", "\[Equal]", " ", 
      RowBox[{"4", " ", 
       RowBox[{"Tan", "[", "t", "]"}], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "t", "]"}], "2"]}]}]}], "}"}], ",", "t"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.8085435716723127`*^9, 3.80854362100797*^9}},
 CellLabel->"In[22]:=",ExpressionUUID->"99efce02-fe7f-4baa-9359-e20da3b8f052"],

Cell[BoxData[
 TemplateBox[{
  "Eliminate", "ifun", 
   "\"Inverse functions are being used by \
\\!\\(\\*RowBox[{\\\"Eliminate\\\"}]\\), so some solutions may not be found; \
use Reduce for complete solution information.\"", 2, 22, 2, 
   33275678651284952313, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.808543621564918*^9},
 CellLabel->
  "During evaluation of \
In[22]:=",ExpressionUUID->"268b894c-75eb-4b97-84c4-66540b61a297"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox[
    RowBox[{"x", " ", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["x", "2"], "+", 
       SuperscriptBox["y", "2"]}], ")"}]}], 
    RowBox[{"4", " ", "y"}]], "\[Equal]", "y"}], "&&", 
  RowBox[{
   FractionBox[
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["x", "2"], "+", 
       SuperscriptBox["y", "2"]}], ")"}], "2"], 
    SuperscriptBox["y", "2"]], "\[Equal]", 
   RowBox[{
    RowBox[{"4", " ", "x"}], "+", 
    SuperscriptBox["x", "2"], "+", 
    SuperscriptBox["y", "2"]}]}], "&&", 
  RowBox[{
   RowBox[{
    SuperscriptBox["x", "3"], "+", 
    RowBox[{"x", " ", 
     SuperscriptBox["y", "2"]}]}], "\[Equal]", 
   RowBox[{"4", " ", 
    SuperscriptBox["y", "2"]}]}]}]], "Output",
 CellChangeTimes->{3.808543621573697*^9},
 CellLabel->"Out[22]=",ExpressionUUID->"42aaddd0-0b20-49c4-8c56-f4336b457ecf"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ForceSolve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     FractionBox[
      RowBox[{"x", " ", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["x", "2"], "+", 
         SuperscriptBox["y", "2"]}], ")"}]}], 
      RowBox[{"4", " ", "y"}]], "\[Equal]", "y"}], "&&", 
    RowBox[{
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["x", "2"], "+", 
         SuperscriptBox["y", "2"]}], ")"}], "2"], 
      SuperscriptBox["y", "2"]], "\[Equal]", 
     RowBox[{
      RowBox[{"4", " ", "x"}], "+", 
      SuperscriptBox["x", "2"], "+", 
      SuperscriptBox["y", "2"]}]}], "&&", 
    RowBox[{
     RowBox[{
      SuperscriptBox["x", "3"], "+", 
      RowBox[{"x", " ", 
       SuperscriptBox["y", "2"]}]}], "\[Equal]", 
     RowBox[{"4", " ", 
      SuperscriptBox["y", "2"]}]}]}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "y"}], "}"}], ",", 
   TemplateBox[{},
    "Reals"]}], "]"}]], "Input",
 CellChangeTimes->{{3.8085436375143633`*^9, 3.808543639256476*^9}},
 NumberMarks->False,
 CellLabel->
  "In[202]:=",ExpressionUUID->"8fd06da5-499c-44c1-85d5-94274f0e18b8"],

Cell[BoxData[
 RowBox[{"ForceSolve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     FractionBox[
      RowBox[{"x", " ", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["x", "2"], "+", 
         SuperscriptBox["y", "2"]}], ")"}]}], 
      RowBox[{"4", " ", "y"}]], "\[Equal]", "y"}], "&&", 
    RowBox[{
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["x", "2"], "+", 
         SuperscriptBox["y", "2"]}], ")"}], "2"], 
      SuperscriptBox["y", "2"]], "\[Equal]", 
     RowBox[{
      RowBox[{"4", " ", "x"}], "+", 
      SuperscriptBox["x", "2"], "+", 
      SuperscriptBox["y", "2"]}]}], "&&", 
    RowBox[{
     RowBox[{
      SuperscriptBox["x", "3"], "+", 
      RowBox[{"x", " ", 
       SuperscriptBox["y", "2"]}]}], "\[Equal]", 
     RowBox[{"4", " ", 
      SuperscriptBox["y", "2"]}]}]}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "y"}], "}"}], ",", 
   TemplateBox[{},
    "Reals"]}], "]"}]], "Output",
 CellChangeTimes->{{3.8085436271013203`*^9, 3.8085436531656513`*^9}},
 CellLabel->
  "Out[202]=",ExpressionUUID->"d9fb212d-1781-40c6-9200-315c91939d8b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Simplify", "[", 
  RowBox[{"ForceSolve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      FractionBox[
       RowBox[{"x", " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["x", "2"], "+", 
          SuperscriptBox["y", "2"]}], ")"}]}], 
       RowBox[{"4", " ", "y"}]], "\[Equal]", "y"}], "&&", 
     RowBox[{
      FractionBox[
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["x", "2"], "+", 
          SuperscriptBox["y", "2"]}], ")"}], "2"], 
       SuperscriptBox["y", "2"]], "\[Equal]", 
      RowBox[{
       RowBox[{"4", " ", "x"}], "+", 
       SuperscriptBox["x", "2"], "+", 
       SuperscriptBox["y", "2"]}]}], "&&", 
     RowBox[{
      RowBox[{
       SuperscriptBox["x", "3"], "+", 
       RowBox[{"x", " ", 
        SuperscriptBox["y", "2"]}]}], "\[Equal]", 
      RowBox[{"4", " ", 
       SuperscriptBox["y", "2"]}]}]}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "y"}], "}"}], ",", 
    TemplateBox[{},
     "Reals"]}], "]"}], "]"}]], "Input",
 NumberMarks->False,
 CellLabel->
  "In[203]:=",ExpressionUUID->"ae8f7097-6276-49ab-988e-1f67f70431a2"],

Cell[BoxData[
 RowBox[{"ForceSolve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      FractionBox[
       SuperscriptBox["x", "3"], "y"], "+", 
      RowBox[{"x", " ", "y"}]}], "\[Equal]", 
     RowBox[{"4", " ", "y"}]}], "&&", 
    RowBox[{
     RowBox[{
      FractionBox[
       SuperscriptBox["x", "4"], "y"], "+", 
      RowBox[{
       SuperscriptBox["x", "2"], " ", "y"}]}], "\[Equal]", 
     RowBox[{"4", " ", "x", " ", "y"}]}], "&&", 
    RowBox[{
     RowBox[{
      SuperscriptBox["x", "3"], "+", 
      RowBox[{"x", " ", 
       SuperscriptBox["y", "2"]}]}], "\[Equal]", 
     RowBox[{"4", " ", 
      SuperscriptBox["y", "2"]}]}]}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "y"}], "}"}], ",", 
   TemplateBox[{},
    "Reals"]}], "]"}]], "Output",
 CellChangeTimes->{3.80854365620756*^9},
 CellLabel->
  "Out[203]=",ExpressionUUID->"e5803cd7-5df3-4e53-81ee-258307dd416c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"r", "'"}], "[", 
  RowBox[{"\[Pi]", "/", "4"}], "]"}]], "Input",
 CellChangeTimes->{{3.808543677967499*^9, 3.8085436849305067`*^9}},
 CellLabel->
  "In[206]:=",ExpressionUUID->"f4522d69-fa79-4f33-8d34-4f397c2c7f8e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"4", ",", "8"}], "}"}]], "Output",
 CellChangeTimes->{{3.808543689736391*^9, 3.8085437014538813`*^9}},
 CellLabel->
  "Out[206]=",ExpressionUUID->"108220f0-b48e-4c26-92d0-da7a800f6d16"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Norm", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.808543707263687*^9, 3.8085437127345867`*^9}},
 CellLabel->
  "In[207]:=",ExpressionUUID->"2d2b83af-455a-4d72-ba37-5f3745ae754a"],

Cell[BoxData[
 RowBox[{"4", " ", 
  SqrtBox["5"]}]], "Output",
 CellChangeTimes->{3.808543713642734*^9},
 CellLabel->
  "Out[207]=",ExpressionUUID->"38987406-8c65-4469-847a-ebdf6fa9f812"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "3"}], "-", 
     SqrtBox["3"]}], ",", 
    RowBox[{"1", "+", 
     SqrtBox["3"]}]}], "}"}], "-", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"-", "4"}], ",", "4"}], "}"}]}]], "Input",
 CellChangeTimes->{{3.808543774231998*^9, 3.808543795682639*^9}},
 CellLabel->
  "In[208]:=",ExpressionUUID->"5bce16a7-274a-4b5b-b998-1e647dd8427f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"1", "-", 
    SqrtBox["3"]}], ",", 
   RowBox[{
    RowBox[{"-", "3"}], "+", 
    SqrtBox["3"]}]}], "}"}]], "Output",
 CellChangeTimes->{3.808543796273614*^9},
 CellLabel->
  "Out[208]=",ExpressionUUID->"0a5a8451-baef-402f-8bcf-ef4661a792e0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "1"}], "-", 
     SqrtBox["3"]}], ",", 
    RowBox[{"3", "+", 
     SqrtBox["3"]}]}], "}"}], "-", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"-", "4"}], ",", "4"}], "}"}]}]], "Input",
 CellChangeTimes->{{3.808543834934862*^9, 3.8085438575645933`*^9}},
 CellLabel->
  "In[209]:=",ExpressionUUID->"e81a5e56-be20-4e8e-8a7f-1181c5fc3d5e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"3", "-", 
    SqrtBox["3"]}], ",", 
   RowBox[{
    RowBox[{"-", "1"}], "+", 
    SqrtBox["3"]}]}], "}"}]], "Output",
 CellChangeTimes->{3.808543858336883*^9},
 CellLabel->
  "Out[209]=",ExpressionUUID->"6782afe2-b7b1-405f-9d63-17930bacfb81"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"VectorAngle", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"1", "-", 
      SqrtBox["3"]}], ",", 
     RowBox[{
      RowBox[{"-", "3"}], "+", 
      SqrtBox["3"]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"3", "-", 
      SqrtBox["3"]}], ",", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      SqrtBox["3"]}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8085439381181087`*^9, 3.808543949524284*^9}},
 CellLabel->
  "In[210]:=",ExpressionUUID->"f2e8de6a-f3c0-4be0-b0a8-5fdfc1145db6"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ArcCos", "[", 
   FractionBox[
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", 
        SqrtBox["3"]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"3", "-", 
        SqrtBox["3"]}], ")"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "3"}], "+", 
        SqrtBox["3"]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        SqrtBox["3"]}], ")"}]}]}], 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"3", "-", 
        SqrtBox["3"]}], ")"}], "2"], "+", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        SqrtBox["3"]}], ")"}], "2"]}]], "]"}], "//", "FullSimplify"}]], \
"Input",
 CellChangeTimes->{{3.808543954740122*^9, 3.8085439597931623`*^9}},
 CellLabel->
  "In[211]:=",ExpressionUUID->"f9831f9b-79fa-42fa-b8ee-c181c528c5cf"],

Cell[BoxData[
 FractionBox[
  RowBox[{"5", " ", "\[Pi]"}], "6"]], "Output",
 CellChangeTimes->{3.808543960258477*^9},
 CellLabel->
  "Out[211]=",ExpressionUUID->"85ed9fc7-1e1a-43ea-b13c-76b3fd7287b9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"HeronArea", "[", 
   RowBox[{
    RowBox[{"Norm", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"1", "-", 
        SqrtBox["3"]}], ",", 
       RowBox[{
        RowBox[{"-", "3"}], "+", 
        SqrtBox["3"]}]}], "}"}], "]"}], ",", 
    RowBox[{"Norm", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"3", "-", 
        SqrtBox["3"]}], ",", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        SqrtBox["3"]}]}], "}"}], "]"}], ",", 
    RowBox[{"Norm", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "1"}], "-", 
         SqrtBox["3"]}], ",", 
        RowBox[{"3", "+", 
         SqrtBox["3"]}]}], "}"}], "-", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "3"}], "-", 
         SqrtBox["3"]}], ",", 
        RowBox[{"1", "+", 
         SqrtBox["3"]}]}], "}"}]}], "]"}]}], "]"}], "//", 
  "FullSimplify"}]], "Input",
 CellChangeTimes->{{3.8085440985418863`*^9, 3.808544230599842*^9}},
 CellLabel->
  "In[213]:=",ExpressionUUID->"f4589f62-c2e6-4221-a3e2-96a88f00819c"],

Cell[BoxData[
 RowBox[{"4", "-", 
  RowBox[{"2", " ", 
   SqrtBox["3"]}]}]], "Output",
 CellChangeTimes->{{3.808544216261014*^9, 3.808544231266877*^9}},
 CellLabel->
  "Out[213]=",ExpressionUUID->"d60f912a-4b8e-409e-90a6-147d3cbb99f4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{"4", "-", 
   RowBox[{"2", " ", 
    SqrtBox["3"]}]}], "]"}]], "Input",
 NumberMarks->False,
 CellLabel->
  "In[214]:=",ExpressionUUID->"6059a259-7d2b-4a02-8377-047ff072f361"],

Cell[BoxData["0.5358983848622456`"], "Output",
 CellChangeTimes->{3.8085442462564917`*^9},
 CellLabel->
  "Out[214]=",ExpressionUUID->"7390b4c9-ad44-4b6a-b1f7-bd89df15b667"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Cot", "[", 
      RowBox[{"t", "/", "2"}], "]"}], "\[Equal]", "0"}], "&&", 
    RowBox[{"0", "\[LessEqual]", "t", "\[LessEqual]", 
     RowBox[{"2", " ", "\[Pi]"}]}]}], ",", "t"}], "]"}]], "Input",
 CellChangeTimes->{{3.808547482537376*^9, 3.808547503388036*^9}},
 CellLabel->
  "In[215]:=",ExpressionUUID->"0be8471d-3efb-4b0f-b26e-8e1642fbf3b4"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"t", "\[Rule]", "\[Pi]"}], "}"}], "}"}]], "Output",
 CellChangeTimes->{3.808547503943924*^9},
 CellLabel->
  "Out[215]=",ExpressionUUID->"7030279d-8fb7-47fa-9e72-3cf4870b7b1b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"x", "=", 
  RowBox[{"2", 
   RowBox[{"(", 
    RowBox[{"t", "-", 
     RowBox[{"Sin", "[", "t", "]"}]}], ")"}]}]}]], "Input",
 CellChangeTimes->{{3.808547516796545*^9, 3.8085475235981913`*^9}, {
  3.808547567357519*^9, 
  3.8085475762446203`*^9}},ExpressionUUID->"7535c7cf-269e-4e64-b8c5-\
dd699f903709"],

Cell[BoxData[
 RowBox[{"2", " ", "\[Pi]"}]], "Output",
 CellChangeTimes->{3.808547524229895*^9},
 CellLabel->
  "Out[216]=",ExpressionUUID->"29848536-2c00-4d2f-a215-0f83c10cd310"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"2", " ", 
  RowBox[{"(", 
   RowBox[{"1", "-", 
    RowBox[{"Cos", "[", "\[Pi]", "]"}]}], ")"}]}]], "Input",
 CellChangeTimes->{{3.808547527045329*^9, 3.808547532787059*^9}},
 CellLabel->
  "In[217]:=",ExpressionUUID->"0651baca-f4ac-4e35-877d-a8a859ee0917"],

Cell[BoxData["4"], "Output",
 CellChangeTimes->{3.8085475350102053`*^9},
 CellLabel->
  "Out[217]=",ExpressionUUID->"e1550476-495c-47f3-b28c-79cb7cc70674"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ParametricPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"2", 
      RowBox[{"(", 
       RowBox[{"t", "-", 
        RowBox[{"Sin", "[", "t", "]"}]}], ")"}]}], ",", 
     RowBox[{"2", " ", 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"Cos", "[", "t", "]"}]}], ")"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", 
     RowBox[{"2", "\[Pi]"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.808547610577162*^9, 3.808547672168015*^9}},
 CellLabel->
  "In[219]:=",ExpressionUUID->"3f3f4142-32d0-41bd-b8f2-4d736cb9378d"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], FaceForm[Opacity[0.3]], LineBox[CompressedData["
1:eJxl13k8Vs37OPBDJNt97G77bd+jREjmihSlHimFlCV7D6GyJLqJkmyhTUgr
IVmyJoRHVCT7kp2SbClLqL6jz++/3/nnvN6va2bOzHXmzMyRdDhl7sRIEEQF
A0Gs3f//K1fGJUhGnyBmk1Pl3uO7tpNz0CF8rypOlpvBd5plo4m3PkG/YFcU
zoAIwsTlRFAYNoP0dTkSe2jIizERexMP7TAVm8x8bXIP10P12eGS2EaK86ez
cPyB9rlueURUJZw6EvRcnxjkbvaVU0ME3XPeS+WlPuHVdcKsSAOb8+5xxlp9
ooqBsmKhjQg4NdV1740+YXZml67Pdhzv+ZZr8kGf4HJxuRS+A7uko3u5XZ+Y
VX2kHbcTP28bpfZ0rz6RyyGh0b0bm/GafNCoPkGD8F+y/yAijd3lUMK4PvHj
RPtY4gFE2PnlC6tM6RMKLmim8CAivGwS+Rl/6BPjTH+cLSxx/NZxV8VFfcL1
zpa2Vuu18e89cW8Z98ctxN77GC4vw3PYBOelLP3TZJg9tnpi65V1iFAaK7Zn
PIEISzN982VmRMhJajvFOuL6Rx798WFHBMeBSoEuF0RQR4Vdz/Phci9cqTKn
EBEhYXvJTwARRaaPV2K8ELFhUu5APM4rt2FJboI3bl8w95WSGCJibpa7Pz+N
iNGLp78RMoi4snVA4KA/Isq39iVHyiJi/eKCckwAIkSbrnyXx3nX0Qlm+nAO
EePrOqLuKiGiTvjub48gRBhzP5rYvQnRpXI5L4eGICL4ehDNYTMi3lZ0CKNQ
RMR/7eeP0EB0nU7G2D/YJY0rGkuaiJDqfS0YFYbHyak1fWobIkKPZD5qvYwI
veUw9wD8HvrLhsNEYxHhcHJJKcII0dcFC0sLxCGiibabL20Xqqpy+m6chn3D
r2v1qzGi97RfP/HiGiL2iww7Lu1DxOFpyWaOREQY3V2uZLTAeWKwsRO9jYhl
yljwRwtUFf2Ii16PHVxtvaH8MKKPs6oN+yYh4hi7Tn2UJQLRL4P/9tzBeUq4
TfWzQZBZFHijPBXR78t4TVc6ILuIrOpw3/uIzhOolmF7AtGdE8OT++8jotbg
1BCjI7LruP+6ZfcDPM7HfUsHndDg7mCzFLGHiP6WcVu9pCsiDI8IpHc8QsTx
xcy9ZzwRlCZ4egc/QYR31LpBET+UVlG5ZelDLiKYnblMHvghmCow0eTNQ/Qi
NdOXKv7I68SbN1OHsPXSijuMAlDzYO775m7sACsenWuBiPh3ivvYl3wEml/6
2Y3pqEq55MIFiUJEyFRcuyBzCaWNmSx6fC7F+XwykBx1CcUptQYtbC1DVUUl
PavzlxBY1SosRWCvKLhEvbuM6EfnkpxVXqCqk0PPxK9cQeoVngVT/uWIuM3z
qHBHNCI25rjFK1QiegtxaLQ/Hi05NBU2eVWjtJetDwLkE1A9m5tc2t1qZDdZ
9qrOKwHd0gk6n9mE7Zw2fJU5EdG/TGS5qdagtHhm9p6t1xGXflNX3FQNgrds
P3ZX3UT0Q6VG/v7/IbqIS5yXcwqi9jUFHympR3bRG2uyXqcggj+/cuN0PQJB
f4MyxVRE1eM+sV2mAdE1nlw5NJuKQM8hhbjWgLjOXph7Y5iGn7/DR8zjDYoj
uvTCZu6hDGNlhkdq7xCRcKO+5s4jRN8/Ix3V9x7Rkg6Xlw08QreGI+RzyGY0
SKt5tV3mMVLgt3lfqN6M1OWeC03kPEZUsfO50qebkd3V6pSJN+mo3ulOnv/P
ZgRMH7z+iGWi3HZu6z/sLWjw+uR93i3PkGN66Dtd4zbUXPZDXDi1EHm5zIso
iXQjmoTBI+bmQlR7h0ntO3QjL9EmVT3GInRLnn6h3bkbwdV4zqsuRSjX+XzB
WH43sks+FFioWYzMNnvZa5j2IK/RPE/XwRI8P03iAi/2IphLqU/xKkeDVz58
CGTqR/SxAAdbw2qUoR4Quj59CDXfFOZzdqtGP/qu/XpVMYRyL1l/uBtbjR5X
zjdHdgyh8YptQ9kfq5HKdQWnneuHUUTd4Bn1gBqU8Us29LDzMGrOqFRdeFGL
lEyPBswqjCCvk6N9+m6vUQmXyHRD8SjyupyzKdO1ES3V0gIClz8jR5cP+dGT
7aji4UMj9tFp5N/QynTpeD/y3qXFtDQ1h1yp3UOUmlE8n0uvtEwtILuzD5/H
fZ9Aj/hqL2x7v4zqfVpKBldmUUNIp6Ni3m/keVJMi/XQPBK3s3E57ssA5wZm
iu8O/0QsIqpnNrqvA74Si+c9Nn9QJfzTneXPDM8+qeu/u8cIdY+ed6g5sQD/
5ncivUnM4OpB7dPhZQV7LVryv5ysIJdjmMJUwQZaZI5eoTArUMVlL3yqYYPu
+0b1hAIr6IWmlP7XwAZBfnvupBmwwiefK5vPt7NBk0gM+zp/VnjROs3eMMkG
6L+qLwdGWCFLSUp0SJgdrFNnxCjlbOCbPtlEnGUH9RPiKvlnOUD85cTDPBoH
sCSbV7aHcUDA0879++Q4wP/KqsVqAgck3vA7M6bMATnOYpfM8zlgVeGICvtW
DhB+b1EuNcMBnseDJVX2ccAtxZFWMzdO4EvkK6/254CKzN+iHbYU4NokVbG1
kQN28LKdOHyKAh3HDN7btnCA8zlTz+5gCvi/2qUU1skBjGp+7z6nUOCdFGvJ
qyEOIL9vPyX7kQLyx9hZuRY44IbB60gpKxK29e/VWRLjBMFu2y+RSlyga2De
NOnOCXK8UnSzzVzwSN05PPwUJ5S5qe4T1OUCa8mm88JnOOFxosKlDBMuoP0O
ktcJ4gRxpf4j3a5cMERpMzaJ5QSmHbeTTqdzgcr5kPsF+ZzAr/Iu5qIsN1yt
7ZXKWOCEdpeJVQ9Vbnhj3RZct8wJuRMrdCtNbihz3/Vj8DcnqP3qqtMw4oa4
3HXybCwU6GOMUpl35IbkRWqUqiAFWrzt/TIfcsNX8UWrYi0KyJVMF3fK8IDe
w4eu730ocNDIL8dShQeEDF8Vq/tSwLKgNqBHgweyDQcuxgRQ4Nv1rVcHDXjg
+abeWESnwM0VjZAFOx44R5G184umAOPV6wvGKTzA3uugtj2dAm5NB8dCBHgh
avw9TbQLv4e4wzUi4rzwXtP4KnsvBdQPs1sXyfLCg2M7rRf7KGBntPp0agsv
pFTPSdWOUKB6P3un40FeQJmhezfPUIAt9q3TmTheKJyQt7VjJuE6R5wKDzsf
uArmTf7eSEJbiAOvCy8fyJ28OpCziYR4XZe8chE+MHslfN56Cwm0s44UdxU+
mFbY9+yhDgkzJU+VG/fxQfb2xXGmnST0D7ZMF8TxQUuLHPOPIyQoKu16yXub
D27Q43SPW5NgNWCsfuYeH5ir8FBqbUiQ1Nj3RyufD1aH70WF2pOg/jmQVtvK
B7mFgu1v3Eno2afuuiLAD6d23ycizpPQmfBszlGCHxz9FOqzgkmQ852kvJfn
h8udbtJv6SQM5I8uPtTmh+T1BfGrYSRYxz51P2LND9eXiw2VoklQVuZ5057C
D5M+5zxzk0nQk/ghoi4rAN8Gf9EcS0iorRl/IKQqAFELqzH9pbj+vpor6zQF
QEZWh9fiBQkHbA1Odu0UgELGeRutCpyfTE73S44C4F136WtDDQksL0oD5x4I
gB3f44wtTSSoDBX/O5QlAMIfv5h5vSfhh/b3rOYCASip4mDLaCZhJWgLd26N
ABjfLHvK3orHq+tw1GdEAPLN/fMfdJLgnqfJwyQtCOoW1T4CgyTozwl7LyoJ
wubWqvW8QyQ06oRQvm4WhMcs29LZh0nIjhggWg0EoZ6azfFthISrkbsyHjkI
4rwtO0R9JmFD+82BJHdBaLxjcshtnATKr/B9cT6CML4EZgZfcHu1Rg2BoYIQ
XnTAZXyChKBTmTIW9wXh+JUDHMzTJHgb6s7vzRSEurub91VjE84XfhjkC4Jd
gfzNwBkSro1vCdxULQixDjeMhmdJyHx2O5prWBC2CZay0L+TkCsoWbJhQhCW
nJyjxH6QkHjkNCvDnCB4n2+hFmMLO4SKzjFQoV/hH+P+eRL4imPG2yWp8GZ6
4tfqIgkpOuGC6YpU0Jravt9/iQQhdWVH/01UsEl6824GO4xsMBfZQQXjOxKH
Wn+SUJM/PDdpTIWFsDwbtEwCO5rJrjCjgp4JV0I69qUdMicd7KgQl/Qh4t8V
EhzB02OLKxVYOZmNG7B5dKfD13tRgUE2fYvUKp4v31vmMy9Q4ZT4yPV67FEu
q71Bl6kQpWnBJvCLBKVPRwr+iaVC8LFPWbbYr3YwFv9IpYKKNc33M/Y443uz
14+pYF+YkSr7m4T6b4d/3s6hgsNG8octdvT9zGf/FlHh3Qcj3xvYvI97fFAF
FdxuINkGbOnIxR08dXj8x2aJJeycbm7RsUYqHP9myir9hwRGMV2ipJ0KJhv2
6u/B3tBDn4rso8K1HUN3PbB9ExeGj41RgSLPsjEam9KUNaA+RYVWlcLxDOye
9XnD6+apsDlv9H0Vtu1Lga8dq1SoXI0daVuLe04tPmESAlODfOkxbL+bRhuC
OIRgNnV33Dfsq/lqImZ8QsAkvE9xGfuDbrmatKgQyD2qmv6NnZy5snNBWgi0
Re8N/sHmOf/bqkFZCByMpn+vYnsotnskawgBz4cMkwXsjapxF05tE4JFq5aq
r9gWjBBjYCgEG5w8HPuwU2Tmb/HvFYJg+6Atb7ELuapSx82FoD1j/aZC7PM7
81JfWAtBYzDF+g62Guq+GeMgBM7cd54FYeeGGF+xdxeCj/4Fm2ywy2JIny0+
QpBTbDuohU39qn+A5ZwQxJdlvODEHhX7LNsTIgTnLG/VDOL8l+RSZ7KvCEGM
uc7SM+xuJeuj5reFYHiu4rMB9pLG1VWZe0LgmfPy/npszaHLMYsZQlA2ey+y
Ds8HiXi5kOQSIfhpaDWki13Y9mXAs0oI/F/sM5vB8+uZzgvlHfVCUH/JffIu
9mfq20tjnULAN++WPY/n5/4FpcTiASGw+edscxJ2T3lv5JXPQsD477KkHnYT
82l11UUhOOzWuO80nu8rLfsNTgsIgxbnnrcF+HsZaRreNy0uDAvxsiNq2IXZ
g5pu8sJAMzl8Ph1/b2nI4sZxbWEoEjHXuLKA1/Mz1X67rYVhlNAqEcDfK/eU
kdErB2Hwb98y4Im/7+9vMsd0TwqDr9NARPUcCXXWFkmq54UhlmHF0eYbCX26
3XlcqcIwOPnFyBqvHyfmeeYjHgtD+KXeyzFTOJ+1GQwMz4ThphFtf8UkCVu4
5H1mK4WBcSzGlesrCWNDcrHvhnD/pEp7g/F6JtKp9sxfVgS0ZRTmwwZIgOLU
n5OqIlC3cCnJu5+EFnRy2U5LBJaGA+qt+nB/Te2EjXeLwJy5ZaVoL36/HIn5
PG4i4Lo0IunRQcJEvs62W9kiEMNawqz9Du9PJlePsRSKgHkWo03fGxLC28yk
fV+KQJ68IwQ3kHCrkJ5o3iQCoduWnufX4fyP+E2unxWB4nuhlp+qSNBW3HHS
RkMUKMvyn/yfkzD70NJdc5sokPSKI9/z8fp28fIGiqEonGHbPuuWR0KWoY14
hbkoQNuZm3tzSGhV3X5dyEcUZm/faBhMx/vrP6y95bmi8PHKD/6DSSScVQ6z
ii0RBU+W/bJxt0go1h9zsa8SBfMDLA4NN/Dzjl5TZ2oWhZ9USyf1BBLky4WP
7JzB9aP67zZfJeHx5STZHFUxIL7M7rHG+6u9jtqmAE0x+Lw+wdn6HAkPvBNf
Gm4Xg9yE1aLD/iREypIWnaZiYBtKWzI8g9dLi4uOSyfFYPJMKeu3kyR8GajQ
kMwUg+GyjL7reL//PanOySInDrRrb/komiSwOu8SdN4oDg+0Uh/bbSaBy37Q
tVZLHKb6zbpy1PB+7jrbF7xbHFYmvMX1lfD6bpo/PeEqDr57svYqSJDwZt3v
h6lZ4qC336ZfeQMJJtMuBv+qS0DkZauG+Q4KOLHoruRpS8Bwvf7sy1YKRDt4
dyyABNSfNmwJaabA0OvAmaADEsCz6vR2tYEC+XVEVIiPBKTv8s6uLKfAnv05
p449lwBt8Vzi3D18Hks3XHkmQoN4BpWJ1y4UcD7G1pkrQYMLW6dHhB0pYPj4
rlaeNA3sLx8acLOjAHedyIVcZRp8j5YfWLGkwGhRptyTbTQoa+uVmDWhwI4i
4aOhR2mQtKMqTliZAncEnEuak2hgnMNVGzzBCf/t5yurEpSEyNO8t2uPcUIy
Ev16VEQSHne11XlZccLvmo8JC+KSIGd09YWQBScERsztUZKThNOfNvy2N8Xn
ZyOnnVe3SMLv1Camd7r4PGzsx6FxQBJ21O3ewCLICeTeGm3BSElgm9sfTsPn
+S6f77miy5JgGfi8hqbOAb9sTW70/ZKEGFk29ttK+H8ipbEihUEKDp3j7eeU
5YAx38hOEVYpyOiOVp0S4oCNF9eJkFQpeCntnRq6jgPaxnnDPmhKge+zu6ps
HezwDzPDi2ovKTBo8Le/6c8OFz/SLfVHpcA0q2XThudsUKpnGv8kXxrWZ7xO
2SHLCnHh1dc8vGRgsvWN1+ZAFnBDzmHiarJQhtQEZqOYoaW2ouHrB1mwDTy8
svXJOph5/GTzTm85/N+Uo/YzigFMjSdepMzLAYEefHkv8gcVlTq0DrnIw+2Q
bZ+4NFeQ57Gj7561yMMNv9+JK5RFRGuLtyqRU4C510c1ag5+R9lRfdmh3goQ
fLfTOYVxBk2/eE2PzFIA/8qmemP+cbRz7uHb3dkKYNPuW/V09TNi2ThwiOmp
Amyo+ekmOvoZJWYlSwfmKICd8rEJgYLPyC7/QZltngLQlfJ2hRz4jCb0y3iY
ixVgmOp/Qz3uEwpjRAnVrxRAJk3pqBT/GIo8eDpLuF0BjLX/JMXpD6OqUnOe
Iuz7YWwrz+WGUZHy06dmHQrg3nzb/RNlGLUwxF+82KkANJp9gtfAEPpSaVsy
0K0AcaGR9VIhQ8j005cMn34FGPXIS2Z6PYgS7HbWM39WAK+2tD+dpf2ofGdh
/fI87v9WZfajTt2o9r+ZEtsFBYiQ05gxQt2oOjyGuxa766zl4T1C3Sjxd+yv
yEUF0Gt52nq3sQv9Sm98y/1TAaj8jNeCt3YhczOmO+tWFSCt85AmL1cn4tlv
23OOQRGvH61vutrakNqs0N1G7OzG773M+W2o3Fy7W4JREeysQq/ti21DUXEm
z6qxs+VtOVT3tKH0aadpBiZFiIpsV1d91YqyrTUFXNYrgvrPt8k6z1uQ+3/+
xHs2RRAtsB8qz2lGNh198yS7Ilju9kyejG1GKojjtBk2+PZNa3k3ozqq0/pm
7DRxVT+RLc2oWdEjuYFDEbjKbKtNfN8jmpLT0GOKIixJX/0vOLkRffUl8zh4
FEH7tYlABPcblMCy8STCzhU82pLR04A0o/eUeWMTzf8EEA8bkMcvJaF2bGhk
KD+0tQHdfLxv7AavImTwBQXH29Wj/vZofhZ+ReiyNxL1fFmHFBtvNiULKkLE
riz51bQaRJ2gbqnDzsh/tWmdRw0yb8pXnsFuPj6dY6pTg+KrHVsRFcfTr+ml
t1QjzpHNfB+xB/eKbD2/oRppzzp3EsK4/Pn41Tx6FRo3SjH5I4L7x3yY88ju
F2jd/hBmUVFFoLXNHNk6W4ZSLA45aWObBVkN3b1dhnSsWXm9sLlGK7nZpktR
d2yoVi/2bNKpCKOUEvT0cqroPTFFiOtgM/XgL0J6ox/sZ8Tx82kaOqIeeai3
7msQIaEIVdMG27uV89DNkedW3Nh0xle7yK+5yPG1hvnmNWuZPvnknotO0olD
3thwhrE6YjAHed77sm4U2+775tJr0lkoYpP2wW/Yg+uN6nVzM9H3ihK339hE
qeerzu2ZaOv5zdOCNFw+/PnQ1NEnaFVO38EYO20isyf6QTqKImPt7q5ZVnSm
wO4hcpB+cvQJNlCZdDNWH6D1H8NlC9bix27xxN9+gNLFPeTrsKs2BzTu6riP
DAv0v33BJuL7GLYevYeoc94sipI4nnDrRZRcCkqqr5BXl1xrb6xYLygZ8Sy4
i29dixfcTu1pv4P8lhvidq6ZL7RpMCoJcR9muHlszU+b+ER4bqFQJffEiLX6
5abxrgEJyN1QdSD6b/tar7kH4pFSfNafeGz6dXCW3R2POmrDapPXyoPqnSjx
a+jXsKVXDjYRNBJW2RaNlAseBuavuYlqW10Xhcr7GR2K1pwt1pD88ipiKL1f
/XKtvT9HYrpLryCNWcVPb9biuzYeCZwMR6devfrYuGZaq4YhczgaHvmvoHmt
/FmnX6NSYSiqo4q5Y80pjW7F/4aikWhD04G18nMu2dvPBqOfFX8sh9actffx
uR/nEXE3bO/Imj1Z/E4FBaJx3Zujn9YcanQiNNsf/dJ48nNyzQ8fqVhdOI3I
+dO7p9cMTcV2pj5IstqJPrNmF2QlLe2NRtU8i76tebYiqqjXA8UXf3w+t2a5
7PP3a06iZqrUve9rrjPew1LphgzPDBnNr/mj6/T2WSdUHlLw568/MUxzyTmi
kRiOzIU1y5wVsz3lgHiYmFoX1xwWo9PvfxwJPFo2X/pr/3cn6EeRdbFC3V/X
ej4aybFEnxp7I36uuWtjdDv9ILJQKu3+6zOi6iYyB9BkejBt+W9/y0LP9O1D
Xee6jv21WWqPeZUJkuvxif9rhe6Mjd+MUNSfnxV/XZIswOplgHTkhUf/mivT
vS5AHyXFXmBc+Vv/wK/AZ9pINaBD+K/TZjO2hGggI7m3qn9NP7dutE8V9faw
6v21XWWX+zdZdPij/q6/Jpr8iHPi6Ki3wL7/WcTLNIQXxQ/pHfhf/cbRgG/M
yO/s8YP/i3+xNw/5ri/tK3/of7bpPxjSqk9V3fn//L/r/wDfvfqN
       "]]},
     Annotation[#, "Charting`Private`Tag$16467#1"]& ]}, {}},
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "ScalingFunctions" -> 
    None},
  PlotRange->{{0., 12.566370614359172`}, {0., 3.9999997662703457`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.05], 
     Scaled[0.05]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.8085476651464567`*^9, 3.808547672721776*^9}},
 CellLabel->
  "Out[219]=",ExpressionUUID->"88298213-31bb-4467-846e-15dbe47eedb3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"D", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"2", 
      RowBox[{"(", 
       RowBox[{"t", "-", 
        RowBox[{"Sin", "[", "t", "]"}]}], ")"}]}], ",", 
     RowBox[{"2", " ", 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"Cos", "[", "t", "]"}]}], ")"}]}]}], "}"}], ",", "t"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.808547720271226*^9, 3.8085477448121557`*^9}},
 CellLabel->
  "In[220]:=",ExpressionUUID->"d295c791-aa38-41db-ab24-d85aebeb659f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"2", " ", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{"Cos", "[", "t", "]"}]}], ")"}]}], ",", 
   RowBox[{"2", " ", 
    RowBox[{"Sin", "[", "t", "]"}]}]}], "}"}]], "Output",
 CellChangeTimes->{3.808547745679701*^9},
 CellLabel->
  "Out[220]=",ExpressionUUID->"f0821713-c959-4d46-8d98-087003581a22"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Norm", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.80854775381872*^9, 3.808547758786911*^9}},
 CellLabel->
  "In[221]:=",ExpressionUUID->"c7f5970a-419f-44b3-84fa-b96eead2627d"],

Cell[BoxData[
 SqrtBox[
  RowBox[{
   RowBox[{"4", " ", 
    SuperscriptBox[
     RowBox[{"Abs", "[", 
      RowBox[{"1", "-", 
       RowBox[{"Cos", "[", "t", "]"}]}], "]"}], "2"]}], "+", 
   RowBox[{"4", " ", 
    SuperscriptBox[
     RowBox[{"Abs", "[", 
      RowBox[{"Sin", "[", "t", "]"}], "]"}], "2"]}]}]]], "Input",
 CellChangeTimes->{{3.8085479425397167`*^9, 
  3.808547946215789*^9}},ExpressionUUID->"7dfedef3-7a79-4a8c-8997-\
6ac78d8a7f7c"],

Cell[BoxData[
 RowBox[{"TrigReduce", "[", 
  SqrtBox[
   RowBox[{
    RowBox[{"4", " ", 
     SuperscriptBox[
      RowBox[{"Abs", "[", 
       RowBox[{"1", "-", 
        RowBox[{"Cos", "[", "t", "]"}]}], "]"}], "2"]}], "+", 
    RowBox[{"4", " ", 
     SuperscriptBox[
      RowBox[{"Abs", "[", 
       RowBox[{"Sin", "[", "t", "]"}], "]"}], "2"]}]}]], "]"}]], "Input",
 NumberMarks->False,
 CellLabel->
  "In[223]:=",ExpressionUUID->"fe1970aa-6a52-48c1-a5db-9d795c058495"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"2", " ", 
   SqrtBox[
    RowBox[{
     SuperscriptBox[
      RowBox[{"Abs", "[", 
       RowBox[{"1", "-", 
        RowBox[{"Cos", "[", "t", "]"}]}], "]"}], "2"], "+", 
     SuperscriptBox[
      RowBox[{"Abs", "[", 
       RowBox[{"Sin", "[", "t", "]"}], "]"}], "2"]}]]}], "/.", 
  RowBox[{"t", "\[Rule]", 
   RowBox[{"{", 
    RowBox[{"0", ",", "\[Pi]"}], "}"}]}]}]], "Input",
 CellChangeTimes->{{3.808547809743733*^9, 3.8085478537422237`*^9}},
 CellLabel->
  "In[224]:=",ExpressionUUID->"f5b9de1f-dfb3-43d6-89ec-38dd644cce6a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0", ",", "4"}], "}"}]], "Output",
 CellChangeTimes->{3.808547856887023*^9},
 CellLabel->
  "Out[224]=",ExpressionUUID->"2a616093-9b30-4165-a524-c53705b9d998"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"u", "*", 
       RowBox[{"Sin", "[", 
        RowBox[{"k", "*", "0"}], "]"}]}], "\[Equal]", "0"}], ",", 
     RowBox[{
      RowBox[{"u", "*", 
       RowBox[{"Sin", "[", 
        RowBox[{"k", "*", "\[Pi]"}], "]"}]}], "\[Equal]", "4"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"u", ",", "k"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8085478599786158`*^9, 3.808547910395031*^9}, {
  3.808547972672166*^9, 3.8085479901673737`*^9}},
 CellLabel->
  "In[226]:=",ExpressionUUID->"3b795edb-266a-4ddb-a7c8-083c1a43f0c8"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "ifun", 
   "\"Inverse functions are being used by \
\\!\\(\\*RowBox[{\\\"Solve\\\"}]\\), so some solutions may not be found; use \
Reduce for complete solution information.\"", 2, 226, 7, 33275678651284952313,
    "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.80854791087603*^9, 3.8085479931846313`*^9},
 CellLabel->
  "During evaluation of \
In[226]:=",ExpressionUUID->"9b74c222-5917-48b0-bbab-f7c67b89ae36"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    226, 8, 33275678651284952313, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.80854791087603*^9, 3.808547993191188*^9},
 CellLabel->
  "During evaluation of \
In[226]:=",ExpressionUUID->"aec24af3-fb58-49c7-b7ac-9d3aa5c0c4d8"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"u", "\[Rule]", 
    RowBox[{"4", " ", 
     RowBox[{"Csc", "[", 
      RowBox[{"k", " ", "\[Pi]"}], "]"}]}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{3.808547910889097*^9, 3.808547993196536*^9},
 CellLabel->
  "Out[226]=",ExpressionUUID->"9ea607de-11bb-45a8-8d97-5898ba121744"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Abs", "[", 
   RowBox[{"Cot", "[", 
    RowBox[{"t", "/", "2"}], "]"}], "]"}], "//", "N"}]], "Input",
 CellChangeTimes->{{3.808548431885598*^9, 3.808548459707645*^9}},
 CellLabel->
  "In[228]:=",ExpressionUUID->"11679a98-90cb-4033-98e8-1b796675beff"],

Cell[BoxData[
 RowBox[{"Abs", "[", 
  RowBox[{"Cot", "[", 
   RowBox[{"0.5`", " ", "t"}], "]"}], "]"}]], "Output",
 CellChangeTimes->{{3.808548455300314*^9, 3.808548460204606*^9}},
 CellLabel->
  "Out[228]=",ExpressionUUID->"1b94d2d2-acfd-4f06-a22d-356b23fc7294"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ForceSolve", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"x", "'"}], "[", "t", "]"}], "\[Equal]", 
     RowBox[{
      SqrtBox[
       RowBox[{"Log", "[", 
        RowBox[{
         RowBox[{"x", "[", "t", "]"}], "+", "2"}], "]"}]], "+", "2"}]}], 
    "}"}], ",", 
   RowBox[{"x", "[", "t", "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8085522050239553`*^9, 3.808552208071678*^9}, {
   3.8085529125675373`*^9, 3.808552990723942*^9}, {3.808553418981093*^9, 
   3.808553424583797*^9}, {3.808553583124207*^9, 3.808553583696796*^9}, 
   3.808553676411497*^9, {3.808553741517942*^9, 3.808553753633769*^9}},
 CellLabel->
  "In[234]:=",ExpressionUUID->"307c94ce-e104-4b0f-9bc2-942cf9a59b43"],

Cell[BoxData[
 RowBox[{"{", 
  TemplateBox[{
    RowBox[{
      RowBox[{"-", "2"}], "+", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"4", "-", 
         RowBox[{"4", " ", 
           RowBox[{
             SuperscriptBox["x", "\[Prime]", MultilineFunction -> None], "[", 
             "t", "]"}]}], "+", 
         SuperscriptBox[
          RowBox[{
            SuperscriptBox["x", "\[Prime]", MultilineFunction -> None], "[", 
            "t", "]"}], "2"]}]]}], 
    RowBox[{
      RowBox[{
        SuperscriptBox["x", "\[Prime]", MultilineFunction -> None], "[", "t", 
        "]"}], "\[GreaterEqual]", "2"}]},
   "ConditionalExpression"], "}"}]], "Output",
 CellChangeTimes->{
  3.808552994227317*^9, 3.8085534254445553`*^9, 3.808553586665986*^9, 
   3.808553677398458*^9, {3.8085537464525833`*^9, 3.8085537545318537`*^9}},
 CellLabel->
  "Out[234]=",ExpressionUUID->"595caf8e-ce68-4054-9e30-cccfbce597ae"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   SubsuperscriptBox["\[Integral]", "0", "x"], 
   RowBox[{
    RowBox[{"(", 
     FractionBox["1", 
      RowBox[{
       SqrtBox[
        RowBox[{"Log", "[", 
         RowBox[{"x", "+", "2"}], "]"}]], "+", "2"}]], ")"}], 
    RowBox[{"\[DifferentialD]", "x"}]}]}], "+", "1"}]], "Input",
 CellChangeTimes->{{3.808553824759871*^9, 3.8085538302211723`*^9}, {
  3.808553931806484*^9, 3.808553961173069*^9}, {3.808554343619502*^9, 
  3.808554345602488*^9}},
 CellLabel->
  "In[239]:=",ExpressionUUID->"04cc6c8d-cb37-443b-b84f-df2baad704a9"],

Cell[BoxData[
 RowBox[{"1", "+", 
  RowBox[{
   SubsuperscriptBox["\[Integral]", "0", "x"], 
   RowBox[{
    FractionBox["1", 
     RowBox[{"2", "+", 
      SqrtBox[
       RowBox[{"Log", "[", 
        RowBox[{"2", "+", "x"}], "]"}]]}]], 
    RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Output",
 CellChangeTimes->{{3.808553958669799*^9, 3.808553962183689*^9}, 
   3.808554354859634*^9},
 CellLabel->
  "Out[239]=",ExpressionUUID->"06984d54-10b0-47d3-8d3a-13fea0725894"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Euler", "[", 
  RowBox[{
   RowBox[{
    SqrtBox[
     RowBox[{"Log", "[", 
      RowBox[{"x", "+", "2"}], "]"}]], "+", "2"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "x"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "0"}], "}"}], ",", "0.2", ",", "2"}], "]"}]], "Input",
 CellChangeTimes->{{3.808554021538488*^9, 3.808554023620295*^9}, {
  3.808554054062275*^9, 3.808554087374338*^9}, {3.808559865066469*^9, 
  3.808559890471594*^9}},
 CellLabel->
  "In[252]:=",ExpressionUUID->"01d7a7b3-8961-431e-847b-a7b339dda7a4"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"t\"\>", "\<\"x\"\>"},
    {"1", "0"},
    {"1.2`", "0.5665109222315395`"},
    {"1.4`", "1.1606806787540624`"},
    {"1.5999999999999999`", "1.7752301983593577`"},
    {"1.7999999999999998`", "2.405747994682301`"},
    {"1.9999999999999998`", "3.049297583128106`"}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.808554089340275*^9, {3.808559877482555*^9, 3.808559891120873*^9}},
 CellLabel->
  "Out[252]//TableForm=",ExpressionUUID->"4c51ccf5-b1cb-4452-ac61-\
443a9c17ad6a"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"D", "[", 
  RowBox[{
   RowBox[{
    SqrtBox[
     RowBox[{"Log", "[", 
      RowBox[{"x", "+", "2"}], "]"}]], "+", "2"}], ",", "x"}], "]"}]], "Input",\

 CellChangeTimes->{{3.808554141399069*^9, 3.808554152136414*^9}, {
  3.808554333426063*^9, 3.808554333522285*^9}},
 CellLabel->
  "In[238]:=",ExpressionUUID->"e7ffa41c-83c5-4668-be33-73af792d2ae9"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox["1", 
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{"2", "+", "x"}], ")"}], " ", 
     SqrtBox[
      RowBox[{"Log", "[", 
       RowBox[{"2", "+", "x"}], "]"}]]}]], "*", 
   SqrtBox[
    RowBox[{"Log", "[", 
     RowBox[{"x", "+", "2"}], "]"}]]}], "+", "2"}]], "Input",
 CellChangeTimes->{{3.808554551579671*^9, 3.808554558955546*^9}},
 CellLabel->
  "In[244]:=",ExpressionUUID->"ff74902f-c540-47be-aadb-2fc9ba833073"],

Cell[BoxData[
 RowBox[{"2", "+", 
  FractionBox["1", 
   RowBox[{"2", " ", 
    RowBox[{"(", 
     RowBox[{"2", "+", "x"}], ")"}]}]]}]], "Output",
 CellChangeTimes->{3.80855488372937*^9},
 CellLabel->
  "Out[244]=",ExpressionUUID->"81038e43-1a12-40c9-977f-1eadea89c9e1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"2", "+", 
    FractionBox["1", 
     RowBox[{"2", " ", 
      RowBox[{"(", 
       RowBox[{"2", "+", "x"}], ")"}]}]]}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "1"}], ",", "10"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.808554564173951*^9, 3.8085545658559303`*^9}, {
  3.808554659902265*^9, 3.8085546720524273`*^9}, {3.808554710979327*^9, 
  3.808554713049809*^9}, {3.80855482082485*^9, 3.8085548274083357`*^9}, {
  3.808555110402608*^9, 3.808555118012591*^9}},
 CellLabel->
  "In[249]:=",ExpressionUUID->"a8969327-99f0-481b-bb40-0e0bcc532e2f"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwV0H84lXcDBvDv88jQUeJEJJzO02HvZossFHnuJKKufiiiTJyUTMSSfohM
EnVQZzQllLKsjPy2M/ZgUyxaLjREccyGWimSH715n/eP+7qvz3/3dS+VHnLf
RxNCAvj8v1+qRGjpJ3ZxZyN/k2WfouF0YnVBZnknJ+1c5Rl1gsbmtS19X1p3
cJu2ztiV7aPR/NDlQ9xsO/dDyE9ZxwNouPnUG+Y3tnMxNoFrsZeGy9FKzze7
2jlVpt+51Y8GfrzenHCqjbu9fbsu7UPD0iCyqqixlVvzn/JlWe40zJRrRCoV
zdztO78+LwCNgNP1/037UMO94xIO9JjQ6E76N+bCghquTzTp88iYxtYL+kQm
ruay8429G4xo2GeF0qedFdxQ9ElpiSENYeVitfCUCi4k9KfUjEU04jsGRVfs
C7km83NaaVo0arV+uHiR3sJNuN3SdCA0JM+iKs/F1bBvHz6SGPxF4ep049MC
v19YzFdTug9QWKin99EfDhybdsQfyUoKcaZet5Oia9kdBUF9Kv0Uwr98M9my
qp7NTfbNmOylsOWB6SXPkgb2tWcaZv+kILiV+ijwRjP76uqKIyebKTgW3RU3
OHawzJpltE4lBVJfOjwW08FaqHvDv4IC115xV/xzBzuHydMsLqdgP13tEGv1
mPXW7dzkXkbBZn3TLrtlf7IHNK29M4spmD/plxerdrFaY9e1XQoo6KoJVbIb
e9jB3CulJJdCRJEi3M5MyW6W3F7Xm0JhUyLjdc9Jye7Y6aW+mbfEX+awTapk
Q9RrrbhkCo91fAWBWUr2XwOVmlwZBdtIKk8uHGDv5R5MDj1H4b39hs7h2QE2
KjOoUT+BwpnfOxwyOgdZ4cD87rJoCpcGRwVvk4bZq4Ml3EQIBbnu+HiL9Sgr
3/fLztbtFAIiX1irjo2x41Yrv5LaUXjh27C49NA7VqjT03nejEKmdeLu1u5p
VrK8x8Nfj4JHs8uh7Rc+sEO37I70qVJQjh/WMVWhkO9hIDWdJLgmrffcMUAj
dMpj6uEIwev7Z5oUijkwFJV6aTwjMApflezz9UdwHJs3odNBsOV48GqLLeoo
y4k5uvoBgU9Dsi2rORffPdrr31ZPEBr2uSj2pQCpuzeWH1MQLBQ6WU/dn4e8
xmKr0RKC9CnXrB+/0cJQhfJ4WAFBisk/E653F6DqQa/qUB6BQ8D1+92p2qgd
7Zy1v0ZQtexSkVqwDnIsLmcIMgnKF7rJWryE+CR9ecL9dIIc00jtYuuFMF+h
Jv/sIoHmAf/zn5npwrn15swpGcE6ydklzkI9rHo2X8MykSBwjsTz5Cs93BHq
XwyMJ5gvjIvf+HQRHOee8TsbS3Bj3c7dtjX6OG+8YOWSaAJqdL9r3XcGGFMc
3vryOIHywUrzgfjFyNiTXpIfSVDcdLJSLDVEz4k91fWHCeh3cTYz25YgaNvW
jffCCNY6U36vLY3AGMpZk1ACN21Fzul5xmjuX9J2I5jgsWBFe+GMMdpSlZY6
Qfy/H4uL33WZ4PFZJ1HjfgKJ4kDdwX0ihAg+tQwKIFDP7i2/80SE54ri8eVS
fo88JWbKdSnkZjJbKz+CaJOcum/rloKTp/qKfQm0ap532luKMVzf/fMGH4KE
jI6Z0mwxuhpGmHO7CDiByeWjugwCXCvdq7wIXqbenOsWz+DpV4l2ejsJ1vfs
VtomMPii7ZpQi/fVj4UKs0QGBy3+fqHG263umyBVGQON6xO5U54Et974NtZ+
y2DOelOjXt5+HgYJNjcYFNrEut7k3bY4hZLUM9hVKIq14v1J4Pou4W8M9jxz
jTbnHVf6/i59j4HVq0tREt4Wm4L9+poY5KdkRi3iLYvewGW2MijScEma8SBw
7qOjdfoZZIiHu3/lnWWu2EENMPhcb/lINe/xY+Hmo38xSI9Nmy7nnavd96Rl
iMF4brVxPu9Zx5rVSaMMKuNORMh4e6ZG6Bx7w+DthTLZGd6FTz4d2T/OIGlE
8H0Mb5+IK5edJhlcCdbuCeNdWrst3GqagbMGNxnEe+48DVfxewbXnibq7eXt
710r0v7AYOr70JU+vKvyjk7OzjIoNQrz8OD9Py+srS0=
       "]]},
     Annotation[#, "Charting`Private`Tag$47972#1"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 2.0416666674461452`},
  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]],
  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->{{-1, 10}, {2.0416666674461452`, 2.3123141286330937`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.808554672501226*^9, 3.808554827891527*^9, 
  3.8085548937655497`*^9, 3.8085551186533003`*^9},
 CellLabel->
  "Out[249]=",ExpressionUUID->"b57b37bb-26e9-4ef5-acca-a7e4d2fc2a79"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Reduce", "[", 
  RowBox[{
   RowBox[{"1", "\[LessEqual]", " ", 
    RowBox[{"2", "+", 
     FractionBox["1", 
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{"2", "+", "x"}], ")"}]}]]}], "\[LessEqual]", " ", "2"}], ",", 
   "x"}], "]"}]], "Input",
 CellChangeTimes->{{3.808554769142581*^9, 3.8085547756787977`*^9}, {
  3.808554954526555*^9, 3.808554992848898*^9}, {3.808555160685094*^9, 
  3.808555163434634*^9}},
 CellLabel->
  "In[250]:=",ExpressionUUID->"9532b22e-48c9-4bed-ab4d-536cbe6d0e25"],

Cell[BoxData[
 RowBox[{"x", "\[LessEqual]", 
  RowBox[{"-", 
   FractionBox["5", "2"]}]}]], "Output",
 CellChangeTimes->{{3.808554957584813*^9, 3.808554962332748*^9}, 
   3.808554993349004*^9, 3.808555164108078*^9},
 CellLabel->
  "Out[250]=",ExpressionUUID->"5f73556c-96ad-4d1f-9f89-8d186db7e7b9"]
}, Open  ]]
},
WindowSize->{Full, Full},
WindowMargins->{{12, Automatic}, {Automatic, 24}},
Magnification->1.5,
FrontEndVersion->"12.1 for Mac OS X x86 (64-bit) (March 18, 2020)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"682d2d73-6963-45c4-aed9-efc9cb979e10"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 586, 19, 130, "Input",ExpressionUUID->"5ac0af26-e1c1-431d-8522-8b2865bb4aa0"],
Cell[1169, 43, 264, 8, 55, "Output",ExpressionUUID->"6cf5dbd3-6e68-4663-9cbc-cf9b47f88a47"],
Cell[1436, 53, 266, 8, 55, "Output",ExpressionUUID->"d62822f1-0cbe-437b-afdc-039a94ccd5a1"],
Cell[1705, 63, 212, 5, 52, "Output",ExpressionUUID->"3da5ff44-4b08-48ed-9817-f519532c605f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1954, 73, 193, 3, 46, "Input",ExpressionUUID->"bec0135c-64c8-4363-b82f-0c5ab040d897"],
Cell[2150, 78, 219, 6, 55, "Output",ExpressionUUID->"d2a4b9d0-c2a3-4a4b-aab6-dc85c223bfba"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2406, 89, 195, 3, 46, "Input",ExpressionUUID->"bb12e4b7-d1f7-427e-a882-1cd900e106dc"],
Cell[2604, 94, 241, 7, 55, "Output",ExpressionUUID->"e270b0be-bff3-4cbb-bad3-eb110f321591"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2882, 106, 414, 13, 56, "Input",ExpressionUUID->"d99a17d2-b7dd-4f9c-97f3-f3eb07b7a340"],
Cell[3299, 121, 197, 3, 64, "Output",ExpressionUUID->"62ea6b11-9c25-469f-9a2e-a991a2e382db"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3533, 129, 293, 7, 56, "Input",ExpressionUUID->"3f153be2-78d6-42db-ac51-71786a670e3a"],
Cell[3829, 138, 273, 8, 81, "Output",ExpressionUUID->"d0fb31cc-6a4a-47c2-b450-812d8c9901be"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4139, 151, 861, 24, 81, "Input",ExpressionUUID->"cf42fd02-53fa-4a5a-925e-99f373093535"],
Cell[5003, 177, 301, 7, 64, "Output",ExpressionUUID->"76e1961b-8b54-4490-ac96-23c7cf2a4510"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5341, 189, 449, 13, 57, "Input",ExpressionUUID->"6dd6f633-3083-40df-abfc-5f5d1dea81ff"],
Cell[5793, 204, 173, 2, 52, "Output",ExpressionUUID->"64f69d00-d97a-4496-8646-22c1d0ed7171"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6003, 211, 374, 9, 46, "Input",ExpressionUUID->"91d99c01-d35e-4af5-a026-eb0eeb9bf201"],
Cell[6380, 222, 149, 2, 52, "Output",ExpressionUUID->"c12d1edf-ce6b-49bf-bb26-a92c9ee384ab"]
}, Open  ]],
Cell[6544, 227, 553, 16, 49, "Input",ExpressionUUID->"f352d82c-0658-46ea-9c9c-9a203a86a085"],
Cell[CellGroupData[{
Cell[7122, 247, 455, 13, 49, "Input",ExpressionUUID->"a020b4b8-95f0-4ec9-921a-457d099b55c1"],
Cell[7580, 262, 477, 13, 55, "Output",ExpressionUUID->"7be38b7d-87ed-4d42-a903-022e1ff0b5d1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8094, 280, 683, 20, 49, "Input",ExpressionUUID->"0c1bc67f-e304-4d69-9d28-3cc3876cff18"],
Cell[8780, 302, 39788, 674, 674, "Output",ExpressionUUID->"040c37cd-b941-4d38-bbe8-f368c5d83a09"]
}, Open  ]],
Cell[CellGroupData[{
Cell[48605, 981, 613, 17, 49, "Input",ExpressionUUID->"99efce02-fe7f-4baa-9359-e20da3b8f052"],
Cell[49221, 1000, 459, 11, 34, "Message",ExpressionUUID->"268b894c-75eb-4b97-84c4-66540b61a297"],
Cell[49683, 1013, 904, 30, 83, "Output",ExpressionUUID->"42aaddd0-0b20-49c4-8c56-f4336b457ecf"]
}, Open  ]],
Cell[CellGroupData[{
Cell[50624, 1048, 1157, 38, 83, "Input",ExpressionUUID->"8fd06da5-499c-44c1-85d5-94274f0e18b8"],
Cell[51784, 1088, 1139, 37, 83, "Output",ExpressionUUID->"d9fb212d-1781-40c6-9200-315c91939d8b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[52960, 1130, 1157, 38, 83, "Input",ExpressionUUID->"ae8f7097-6276-49ab-988e-1f67f70431a2"],
Cell[54120, 1170, 900, 30, 76, "Output",ExpressionUUID->"e5803cd7-5df3-4e53-81ee-258307dd416c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[55057, 1205, 250, 6, 46, "Input",ExpressionUUID->"f4522d69-fa79-4f33-8d34-4f397c2c7f8e"],
Cell[55310, 1213, 224, 5, 52, "Output",ExpressionUUID->"108220f0-b48e-4c26-92d0-da7a800f6d16"]
}, Open  ]],
Cell[CellGroupData[{
Cell[55571, 1223, 208, 4, 46, "Input",ExpressionUUID->"2d2b83af-455a-4d72-ba37-5f3745ae754a"],
Cell[55782, 1229, 187, 5, 52, "Output",ExpressionUUID->"38987406-8c65-4469-847a-ebdf6fa9f812"]
}, Open  ]],
Cell[CellGroupData[{
Cell[56006, 1239, 413, 14, 56, "Input",ExpressionUUID->"5bce16a7-274a-4b5b-b998-1e647dd8427f"],
Cell[56422, 1255, 294, 10, 55, "Output",ExpressionUUID->"0a5a8451-baef-402f-8bcf-ef4661a792e0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[56753, 1270, 415, 14, 56, "Input",ExpressionUUID->"e81a5e56-be20-4e8e-8a7f-1181c5fc3d5e"],
Cell[57171, 1286, 294, 10, 55, "Output",ExpressionUUID->"6782afe2-b7b1-405f-9d63-17930bacfb81"]
}, Open  ]],
Cell[57480, 1299, 548, 19, 56, "Input",ExpressionUUID->"f2e8de6a-f3c0-4be0-b0a8-5fdfc1145db6"],
Cell[CellGroupData[{
Cell[58053, 1322, 935, 34, 103, InheritFromParent,ExpressionUUID->"f9831f9b-79fa-42fa-b8ee-c181c528c5cf"],
Cell[58991, 1358, 200, 5, 69, "Output",ExpressionUUID->"85ed9fc7-1e1a-43ea-b13c-76b3fd7287b9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[59228, 1368, 1100, 39, 88, "Input",ExpressionUUID->"f4589f62-c2e6-4221-a3e2-96a88f00819c"],
Cell[60331, 1409, 235, 6, 52, "Output",ExpressionUUID->"d60f912a-4b8e-409e-90a6-147d3cbb99f4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[60603, 1420, 219, 7, 56, "Input",ExpressionUUID->"6059a259-7d2b-4a02-8377-047ff072f361"],
Cell[60825, 1429, 173, 3, 52, "Output",ExpressionUUID->"7390b4c9-ad44-4b6a-b1f7-bd89df15b667"]
}, Open  ]],
Cell[CellGroupData[{
Cell[61035, 1437, 434, 11, 46, "Input",ExpressionUUID->"0be8471d-3efb-4b0f-b26e-8e1642fbf3b4"],
Cell[61472, 1450, 232, 6, 52, "Output",ExpressionUUID->"7030279d-8fb7-47fa-9e72-3cf4870b7b1b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[61741, 1461, 328, 9, 46, "Input",ExpressionUUID->"7535c7cf-269e-4e64-b8c5-dd699f903709"],
Cell[62072, 1472, 179, 4, 52, "Output",ExpressionUUID->"29848536-2c00-4d2f-a215-0f83c10cd310"]
}, Open  ]],
Cell[CellGroupData[{
Cell[62288, 1481, 281, 7, 46, "Input",ExpressionUUID->"0651baca-f4ac-4e35-877d-a8a859ee0917"],
Cell[62572, 1490, 155, 3, 52, "Output",ExpressionUUID->"e1550476-495c-47f3-b28c-79cb7cc70674"]
}, Open  ]],
Cell[CellGroupData[{
Cell[62764, 1498, 601, 18, 46, "Input",ExpressionUUID->"3f3f4142-32d0-41bd-b8f2-4d736cb9378d"],
Cell[63368, 1518, 10271, 182, 212, "Output",ExpressionUUID->"88298213-31bb-4467-846e-15dbe47eedb3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[73676, 1705, 509, 16, 46, "Input",ExpressionUUID->"d295c791-aa38-41db-ab24-d85aebeb659f"],
Cell[74188, 1723, 363, 11, 52, "Output",ExpressionUUID->"f0821713-c959-4d46-8d98-087003581a22"]
}, Open  ]],
Cell[74566, 1737, 205, 4, 46, "Input",ExpressionUUID->"c7f5970a-419f-44b3-84fa-b96eead2627d"],
Cell[74774, 1743, 451, 14, 52, InheritFromParent,ExpressionUUID->"7dfedef3-7a79-4a8c-8997-6ac78d8a7f7c"],
Cell[75228, 1759, 474, 15, 58, "Input",ExpressionUUID->"fe1970aa-6a52-48c1-a5db-9d795c058495"],
Cell[CellGroupData[{
Cell[75727, 1778, 565, 17, 52, InheritFromParent,ExpressionUUID->"f5b9de1f-dfb3-43d6-89ec-38dd644cce6a"],
Cell[76295, 1797, 198, 5, 52, "Output",ExpressionUUID->"2a616093-9b30-4165-a524-c53705b9d998"]
}, Open  ]],
Cell[CellGroupData[{
Cell[76530, 1807, 633, 18, 46, "Input",ExpressionUUID->"3b795edb-266a-4ddb-a7c8-083c1a43f0c8"],
Cell[77166, 1827, 476, 11, 34, "Message",ExpressionUUID->"9b74c222-5917-48b0-bbab-f7c67b89ae36"],
Cell[77645, 1840, 382, 9, 34, "Message",ExpressionUUID->"aec24af3-fb58-49c7-b7ac-9d3aa5c0c4d8"],
Cell[78030, 1851, 339, 9, 52, "Output",ExpressionUUID->"9ea607de-11bb-45a8-8d97-5898ba121744"]
}, Open  ]],
Cell[CellGroupData[{
Cell[78406, 1865, 285, 7, 46, "Input",ExpressionUUID->"11679a98-90cb-4033-98e8-1b796675beff"],
Cell[78694, 1874, 263, 6, 52, "Output",ExpressionUUID->"1b94d2d2-acfd-4f06-a22d-356b23fc7294"]
}, Open  ]],
Cell[CellGroupData[{
Cell[78994, 1885, 741, 19, 56, "Input",ExpressionUUID->"307c94ce-e104-4b0f-9bc2-942cf9a59b43"],
Cell[79738, 1906, 920, 24, 72, "Output",ExpressionUUID->"595caf8e-ce68-4054-9e30-cccfbce597ae"]
}, Open  ]],
Cell[CellGroupData[{
Cell[80695, 1935, 572, 16, 89, "Input",ExpressionUUID->"04cc6c8d-cb37-443b-b84f-df2baad704a9"],
Cell[81270, 1953, 469, 14, 79, "Output",ExpressionUUID->"06984d54-10b0-47d3-8d3a-13fea0725894"]
}, Open  ]],
Cell[CellGroupData[{
Cell[81776, 1972, 556, 15, 56, "Input",ExpressionUUID->"01d7a7b3-8961-431e-847b-a7b339dda7a4"],
Cell[82335, 1989, 864, 24, 262, "Output",ExpressionUUID->"4c51ccf5-b1cb-4452-ac61-443a9c17ad6a"]
}, Open  ]],
Cell[83214, 2016, 375, 11, 56, "Input",ExpressionUUID->"e7ffa41c-83c5-4668-be33-73af792d2ae9"],
Cell[CellGroupData[{
Cell[83614, 2031, 479, 15, 82, InheritFromParent,ExpressionUUID->"ff74902f-c540-47be-aadb-2fc9ba833073"],
Cell[84096, 2048, 270, 8, 73, "Output",ExpressionUUID->"81038e43-1a12-40c9-977f-1eadea89c9e1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[84403, 2061, 636, 16, 72, "Input",ExpressionUUID->"a8969327-99f0-481b-bb40-0e0bcc532e2f"],
Cell[85042, 2079, 3974, 84, 365, "Output",ExpressionUUID->"b57b37bb-26e9-4ef5-acca-a7e4d2fc2a79"]
}, Open  ]],
Cell[CellGroupData[{
Cell[89053, 2168, 534, 14, 72, "Input",ExpressionUUID->"9532b22e-48c9-4bed-ab4d-536cbe6d0e25"],
Cell[89590, 2184, 298, 7, 68, "Output",ExpressionUUID->"5f73556c-96ad-4d1f-9f89-8d186db7e7b9"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)