(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    141111,       2633]
NotebookOptionsPosition[    139170,       2571]
NotebookOutlinePosition[    139676,       2590]
CellTagsIndexPosition[    139633,       2587]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Ft", "=", "1"}], " ", ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"Drive", " ", "amplitude", " ", 
     RowBox[{
      RowBox[{"(", "N", ")"}], ".", "  ", "The"}], " ", "\"\<;\>\"", " ", 
     "suppresses", " ", "the", " ", "output"}], ",", " ", 
    RowBox[{"making", " ", "your", " ", "code", " ", "look", " ", 
     RowBox[{"neater", "."}]}]}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Omega]t", "=", "0.3"}], " ", ";"}], 
  RowBox[{"(*", " ", 
   RowBox[{
   "Angular", " ", "frequency", " ", "of", " ", "the", " ", "drive", " ", 
    "triangle", " ", "wave", " ", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"rad", "/", "s"}], ")"}], ".", "  ", "We"}], " ", "start", " ", 
    "with", " ", "a", " ", "drive", " ", "with", " ", "frequency", " ", 
    "comparable", " ", "to", " ", 
    RowBox[{"\[Omega]0", "."}]}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"m", "=", "1"}], " ", ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"Mass", " ", 
    RowBox[{"(", "kg", ")"}]}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"k", " ", "=", " ", "1"}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"Spring", " ", "constant", " ", 
    RowBox[{"(", 
     RowBox[{"N", "/", "m"}], ")"}]}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Gamma]", "=", 
    FractionBox["1", "4"]}], " ", ";"}], 
  RowBox[{"(*", " ", 
   RowBox[{
   "Decay", " ", "rate", " ", "of", " ", "the", " ", "mass", " ", "on", " ", 
    "spring", " ", 
    RowBox[{"(", 
     RowBox[{"1", "/", "s"}], ")"}]}], " ", "*)"}]}]}], "Input",
 CellChangeTimes->{{3.493984941685*^9, 3.493984947047*^9}, {3.494156001961*^9,
    3.4941560170480003`*^9}, {3.494156086201*^9, 3.494156086703*^9}, {
   3.4941569186540003`*^9, 3.494156939752*^9}, {3.494156978983*^9, 
   3.494156993585*^9}, {3.494157027625*^9, 3.494157030017*^9}, {
   3.4941574894230003`*^9, 3.494157509234*^9}, {3.494331867054*^9, 
   3.494331868939*^9}, {3.4943319171099997`*^9, 3.494331917307*^9}, 
   3.4945363287974434`*^9, {3.4945370580933657`*^9, 3.494537059251482*^9}, {
   3.4945371087034264`*^9, 3.4945371094695034`*^9}, {3.494538028589406*^9, 
   3.4945380299835453`*^9}, {3.49453889401794*^9, 3.494538894808019*^9}, {
   3.4945389449660344`*^9, 3.4945389451420517`*^9}, {3.494538987988336*^9, 
   3.4945390171272497`*^9}, 3.4945390606295996`*^9, {3.4945391323477707`*^9, 
   3.4945391675582914`*^9}, {3.503063529672479*^9, 3.5030636347179823`*^9}, {
   3.5030641514686527`*^9, 3.5030641807005754`*^9}, {3.5262068242460003`*^9, 
   3.526206847832*^9}, {3.526207085601244*^9, 3.526207090041688*^9}, {
   3.526207434567137*^9, 3.526207468690549*^9}, {3.5262075292826076`*^9, 
   3.5262075497326527`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"T", ":=", 
   FractionBox[
    RowBox[{"2", "\[Pi]"}], "\[Omega]t"]}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "The", " ", "period", " ", "of", " ", "the", " ", "triangle", " ", "wave",
      " ", 
     RowBox[{
      RowBox[{"(", "s", ")"}], ".", "  ", "The"}], " ", "\"\<:=\>\"", " ", 
     "delays", " ", "the", " ", "evaluation", " ", "of", " ", "T", " ", 
     "until", " ", "it", " ", "is", " ", "really", " ", 
     RowBox[{"needed", ".", "  ", "This"}], " ", "means", " ", "that", " ", 
     "if", " ", "we", " ", "later", " ", "decide", " ", "to", " ", "change", 
     " ", "\[Omega]t"}], ",", " ", 
    RowBox[{"we", " ", 
     RowBox[{"don", "'"}], "t", " ", "need", " ", "to", " ", "manually", " ", 
     "change", " ", "T", " ", "as", " ", 
     RowBox[{"well", " ", "--"}], " ", "T", " ", "will", " ", "be", " ", 
     "updated", " ", "automatically", " ", "whenever", " ", "we", " ", "use", 
     " ", "it", " ", "after", " ", "changing", " ", 
     RowBox[{"\[Omega]t", "."}]}]}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Omega]0", ":=", 
   SqrtBox[
    FractionBox["k", "m"]]}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "Natural", " ", "angular", " ", "frequency", " ", "of", " ", "the", " ", 
    "mass", " ", "on", " ", "spring", " ", 
    RowBox[{"(", 
     RowBox[{"rad", "/", "s"}], ")"}]}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{"K", ":=", 
  FractionBox[
   RowBox[{"8", " ", "Ft"}], 
   SuperscriptBox["\[Pi]", "2"]], 
  RowBox[{"(*", " ", 
   RowBox[{
   "The", " ", "prefactor", " ", "in", " ", "the", " ", "Fourier", " ", 
    "expansion", " ", "of", " ", "the", " ", "drive", " ", "triangle", " ", 
    "wave", " ", 
    RowBox[{"(", "N", ")"}]}], " ", "*)"}]}]}], "Input",
 CellChangeTimes->{{3.494156044467*^9, 3.494156059807*^9}, 3.494156933102*^9, 
   3.494156997117*^9, 3.4941570328199997`*^9, {3.5030635091354256`*^9, 
   3.5030635248569975`*^9}, 3.5030636433898497`*^9, {3.526206852406*^9, 
   3.526206935282*^9}, {3.526207477073387*^9, 3.5262074798476644`*^9}, {
   3.526207556393318*^9, 3.5262076068293614`*^9}}],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{"Now", " ", 
   RowBox[{"let", "'"}], "s", " ", "compare", " ", "a", " ", "triangle", " ", 
   "wave", " ", "drive", " ", "force", " ", "with", " ", "the", " ", "first", 
   " ", "two", " ", "terms", " ", "in", " ", "its", " ", "Fourier", " ", 
   "series", " ", 
   RowBox[{"representation", ".", " ", "Note"}], " ", "that", " ", "the", " ",
    "units", " ", "of", " ", "this", " ", "are", " ", 
   RowBox[{"N", "."}]}], " ", "*)"}]], "Input",
 CellChangeTimes->{{3.5262069778450003`*^9, 3.526207006014*^9}, {
  3.5262077426639433`*^9, 3.526207762295906*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"triangle", "[", "t_", "]"}], ":=", 
  RowBox[{"Piecewise", "[", 
   RowBox[{"{", " ", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"-", 
          FractionBox[
           RowBox[{"4", " ", "Ft"}], "T"]}], " ", "t"}], " ", "+", "  ", 
        "Ft"}], ",", " ", 
       RowBox[{"0", "\[LessEqual]", "t", "\[LessEqual]", " ", 
        FractionBox["T", "2"]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{
         FractionBox[
          RowBox[{"4", " ", "Ft"}], "T"], " ", "t"}], " ", "-", " ", 
        RowBox[{"3", " ", "Ft"}]}], ",", 
       RowBox[{
        FractionBox[
         RowBox[{" ", "T"}], "2"], "<", "t", "\[LessEqual]", "T"}]}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"-", 
          FractionBox[
           RowBox[{"4", " ", "Ft"}], "T"]}], " ", "t"}], " ", "+", " ", 
        RowBox[{"5", " ", "Ft"}]}], ",", " ", 
       RowBox[{"T", "<", "t", "\[LessEqual]", " ", 
        FractionBox[
         RowBox[{"3", "T"}], "2"]}]}], "}"}]}], "}"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.493984694097*^9, 3.4939849170810003`*^9}, {
  3.493984992679*^9, 3.493985059866*^9}, {3.4939851333129997`*^9, 
  3.493985148159*^9}, {3.494156983209*^9, 3.494157043093*^9}, {
  3.4945380082743745`*^9, 3.4945380760081472`*^9}, {3.494538120531599*^9, 
  3.4945381817587214`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"triangle", "[", "t", "]"}], ",", " ", 
     RowBox[{"K", " ", 
      RowBox[{"Cos", "[", 
       RowBox[{"\[Omega]t", " ", "t"}], "]"}]}], ",", 
     RowBox[{"K", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Cos", "[", 
         RowBox[{"\[Omega]t", " ", "t"}], "]"}], " ", "+", 
        RowBox[{
         FractionBox["1", 
          SuperscriptBox["3", "2"]], 
         RowBox[{"Cos", "[", 
          RowBox[{"3", "\[Omega]t", " ", "t"}], "]"}]}]}], ")"}]}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", 
     FractionBox[
      RowBox[{"3", "T"}], "2"]}], "}"}], ",", " ", 
   RowBox[{"PlotStyle", "\[Rule]", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"Thick", ",", " ", "Black"}], "}"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"Thick", ",", " ", "Red"}], "}"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"Thick", ",", " ", "Blue"}], "}"}]}], "}"}]}], ",", " ", 
   RowBox[{"Ticks", "\[Rule]", " ", "None"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4939849189630003`*^9, 3.493984963499*^9}, {
  3.493985073042*^9, 3.493985084182*^9}, {3.493985120148*^9, 
  3.493985257567*^9}, {3.493985290112*^9, 3.493985295557*^9}, {
  3.494156033615*^9, 3.494156038424*^9}, {3.4941569237530003`*^9, 
  3.494156948825*^9}, {3.494157013408*^9, 3.4941570207279997`*^9}, {
  3.4941570522279997`*^9, 3.4941570627139997`*^9}, {3.4945381626208076`*^9, 
  3.4945381651710625`*^9}, {3.4945386581103516`*^9, 3.4945386682253633`*^9}, {
  3.494539268297364*^9, 3.494539272675802*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {GrayLevel[0], Thickness[Large], LineBox[CompressedData["
1:eJwBIQPe/CFib1JlAgAAADEAAAACAAAAxG6NwVyDpT6KvUK+///vP7hRV+Xy
u4M/TuxrmOzw7z+dzp3ex7uTPxEblXLZ4e8/EA1BW7K7oz+YeOcms8PvP0ms
kpmnu7M/pjOMj2aH7z/me7s4orvDP8Kp1WDNDu8/tONPiJ+70z/5lWgDmx3u
P5sXGjCeu+M/aG6OSDY77D+Kdt2MEpD0P39+I75FJeg/DRmiOeCM/j9cQE89
pVTkP4km/zHDKwRAJENNES2X4D8KY5zLUHsJQE5KKaEbEdk/brszgSNwDkDc
ceUyfX7RPygbnV2Y5xFAvK9oNiGTwj/6PAYalYoUQID7e9JKr5M/vWxsZDQA
F0CA0922HCS5v78tCvHwqhlAENYHZKLezL+z/KQLUCgcQKj9IiP7Cta/B7Cl
RSWZHkBojp1qVIDdv0367uCLnyBAXLDC7f3L4r+Powlm1tshQL7nn5yBkua/
cBVAjK8yI0DmvzNgLKrqvwC7F93xNyNAQsbuaT666r+QYO8tND0jQJ7MqXNQ
yuq/sauez7hHI0BY2R+HdOrqv/JB/RLCXCNAzPILrrwq6790brqZ1IYjQLQl
5PtMq+u/ecc0p/naI0CEi5SXbazsvwptDPg74CNA4pFPoX+87L+aEuRIfuUj
QECYCquRzOy/ul2T6gLwI0D4pIC+tezsv/zz8S0MBSRAbr5s5f0s7b9+IK+0
Hi8kQFTxRDOOre2/gnkpwkODJEAiV/XOrq7uvy4ZHVgriCRAuAKKmKu97r/a
uBDuEo0kQEyuHmKozO6/Mvj3GeKWJEB4BUj1oeruv+N2xnGAqiRA0LOaG5Um
77+QFroHaK8kQGhfL+WRNe+/PLatnU+0JED+CsSujkTvv5T1lMkeviRAKGLt
QYhi779EdGMhvdEkQH4QQGh7nu+/8BNXt6TWJEAUvNQxeK3vv5yzSk2M2yRA
qGdp+3S8779IUz7jc+AkQD4T/sRxy++/9fIxeVvlJEDWvpKObtrvv6KSJQ9D
6iRAbmonWGvp779OMhmlKu8kQAQWvCFo+O+/TjIZpSrvJEAEFrwhaPjvv6CA
kY4=
      "]], LineBox[CompressedData["
1:eJwBAQT++yFib1JlAgAAAD8AAAACAAAApnEA0fn4JEDQkhpLnunvv1IR9Gbh
/SRAPOeFgaHa77/+sOf8yAIlQKg78beky++/VvDOKJgMJUB85Mckq63vvwdv
nYA2ICVAJDZ1/rdx77+0DpEWHiUlQIyK4DS7Yu+/YK6ErAUqJUD03ktrvlPv
v7jta9jUMyVAzIci2MQ1779obDowc0clQHTZz7HR+e6/ymnX369uJUDEfCpl
64Huv4xkET8pvSVAaMPfyx6S7b9ac4kPe8IlQFQ9+GXdge2/KYIB4MzHJUA4
txAAnHHtv8af8YBw0iVACKtBNBlR7b8B29HCt+clQKSSo5wTEO2/dlGSRkYS
JkDcYWdtCI7sv2E+E05jZyZATADvDvKJ6782GBVdnREnQCw9/lHFgem/2VIX
wmJPKEC0aLPhu7blvxtWNci2pylAePOxXIua4b+NSwbexfkqQFB+BVkGI9u/
+MfVOiY1LEA4edQLlpvTvwMNwTgViy1AIGVsKq/jxr8G2ap9VcouQMB7Ko7J
la6/ncsjaagBMEBAjjhApDCtPwcPAGRtqzBAQGmB1mCCxz/ulVsC20kxQOjz
TDusUdM/JAFF8Y/1MUDAdMY0doTbP3LlB2ginjJA3LlNwnfI4T89DUqCXTsz
QJiHoWBkieU/WBka7d/lM0AY9qsTeJvpP5ZWU5lc6DNADMVRIquq6T/Vk4xF
2eozQACU9zDeuek/Ug7/ndLvM0DoMUNORNjpP0sD5E7F+TNAsG3aiBAV6j8+
7a2wqg00QEjlCP6ojuo/JMFBdHU1NEB41GXo2YHrP2L+eiDyNzRAbKML9wyR
6z+hO7TMbjo0QGBysQVAoOs/HrYmJWg/NEBIEP0ipr7rPxerC9ZaSTRAFEyU
XXL76z8KldU3QF00QKzDwtIKdew/72hp+wqFNEDUsh+9O2jtPxIMwh17hzRA
xDhyKiJ37T80rxpA64k0QLC+xJcIhu0/evXLhMuONECQymly1aPtPwSCLg6M
mDRASOKzJ2/f7T8am/MgDaw0QMQRSJKiVu4/PT5MQ32uNEC0l5r/iGXuP2Dh
pGXtsDRApB3tbG907j+lJ1aqzbU0QIApkkc8ku4/MLS4M46/NEA8Qdz81c3u
P0bNfUYP0zRAuHBwZwlF7z9pcNZof9U0QKj2wtTvU+8/jBMvi+/XNECYfBVC
1mLvP9FZ4M/P3DRAdIi6HKOA7z/0/DjyP980QGgODYqJj+8/FqCRFLDhNEBQ
lF/3b57vP1zmQlmQ5jRANKAE0jy87z9/iZt7AOk0QCQmVz8jy+8/oiz0nXDr
NEAUrKmsCdrvP8TPTMDg7TRAADL8GfDo7z9+n9w+Fu80QLicgpdT8O8/DSzr
9g==
      "]], LineBox[CompressedData["
1:eJwBUQOu/CFib1JlAgAAADQAAAACAAAAAAGVTTf0NEC4nIKXU/DvPyy5Vicx
9TRAODwMnlzq7z9PXK9Jofc0QEC2uTB22+8/cv8HbBH6NEBQMGfDj8zvP5Wi
YI6B/DRAYKoUVqm97z+4Rbmw8f40QHAkwujCru8//Ytq9dEDNUCYGB0O9pDv
P4gYzX6SDTVA2ADTWFxV7z+eMZKREyE1QGDRPu4o3u4/Ugwt0bgjNUDocJnk
/c3uPwbnxxBeJjVAeBD02tK97j9unP2PqCs1QJhPqcd8ne4/Pgdpjj02NUDI
zROh0FzuP97cP4tnSzVAOMroU3jb7T8eiO2Eu3U1QBDDkrnH2Ow/nd5IeGPK
NUDItOaEZtPqPxjPfgJcaDZA+EklJfQN5z/jo0LdmxM3QGA+rbBa9+I/KryF
W4SzN0AwyZeLIkzeP4pNomFKUDhAYJd5X+DP1j85w0y4V/o4QCBI3BOgYs0/
ZXx2sg2ZOUAAUUAef3W8P+AZLv0KRTpAANGzQ+qNkb90ML/P5e06QEAZxMyY
UcK/hIrPRWmLO0CQeFsVGq7Qv+TIbQw0NjxAECbC7bXV2L/ASot2p9U8QAi4
fdlYOeC/tEWCaPhxPUAQHEhnrvTjv/gkB6uQGz5A6CDJCSsB6L+4RwuR0bk+
QPhzs6JXyOu/wWhBM5S8PkAgsSFDNtnrv8qJd9VWvz5AQO6P4xTq67/cy+MZ
3MQ+QJBobCTSC+y/AFC8oubPPkAoXSWmTE/sv0lYbbT75T5AWEaXqUHW7L/a
aM/XJRI/QLgYe7Ar5O2/44kFeugUP0DgVelQCvXtv+yqOxyrFz9ACJNX8egF
7r/+7KdgMB0/QFANNDKmJ+6/I3GA6TooP0DwAe2zIGvuv2x5MftPPj9AIOte
txXy7r91mmedEkE/QEgozVf0Au+/frudP9VDP0BwZTv40hPvv5D9CYRaST9A
uN8XOZA177+0geIMZVQ/QFDU0LoKee+/vaIYrydXP0B4ET9b6Ynvv8bDTlHq
WT9AmE6t+8ea77/YBbuVb18/QOjIiTyFvO+/4SbxNzJiP0AQBvjcY83vv+pH
J9r0ZD9AMENmfULe77/0aF18t2c/QGCA1B0h7++//YmTHnpqP0CAvUK+///v
v+xOnqI=
      "]]}, 
    {RGBColor[1, 0, 0], Thickness[Large], LineBox[CompressedData["
1:eJwtmnk01N8bxylLJEUSKVlmEFlnhmxznxRJJUlKJCVLm0QpKalU9mwViiJa
pKxJkZulKEq2iuzMcu20Uun3+Z7z+2fmvOZz1+f9fp5zP/eM8t4j9h6zBAQE
tKiP/76rfaIrXC5ksZNfq+zVHSeoZMt2zmTpBTRlwl2nQXHq+9SumtIE1Oec
NyVNseu3KzbXklMRrznqxNgYQQvmrXYuKL2DrshcqXhB8fhyk7jk7PvIwrHp
0xmKGw0YNSHJj5BFUuBzXYrbVK7NMNbmo8TbufubRwlanxOffK+0EHF/3+V4
U/ycdYWpwChGp/4m64yPEKSJIxtiskuQAH67dj/FKdZhB2aplKIApQsaLcME
iTeFCgckv0C/a2Ta9SgufwQfjs15ie4rtzmdHSIoYLI8VWdtBdq5W/8+HiSI
G1S6KqO0CnWuWF+wiBCU9tJYxOVnNdr6fcJHi0+Qo3BJ8yLGa5SkLPjHgEfQ
65gin/DsWjQdfSp8MYeg4GYDszXcN0hLXyLyWz9BhnL5Yn+V69DTafvdVX0E
3Ut/lOmb/A491848b9hDkBtXy0+z9T26KSPT3N5FUNSi1uV+cz6gYQWhKd9O
gtbu3DqitbYRzeoMrfVrJ6iof3PYrdJmVJKQGl3fTMVXZP6R004t6EHSofR/
jQQd0ni/zelnC8ohr+JoHwiiHd6oupDxEVkX6kqsrSco8Yd1+aXsz2jtHNNL
bVWUHnJzstyt25C287mbNyoI2mhaEwncNqR4Y0PSZkyQUIil07TyF6QdFmQZ
/Zyg42IW3w4ndyLfOs8bu/MIatIS/GJj1IWOqxXNyn9EkI7tywr11i5kZXN4
57dsgvzX36rxndOD8JoVvXZZBGnFLLuqubYX1encObEnmaAbi5fopZX2o8Ua
j6AvmFpPyssNelIDqLy+iyESRJCVopdXpecAumUuXSF/gqBJWlEaV4qD8l9n
FM4/QpCNge08XW8uSo4ptjByJWh64/lBLEPQ1fLo4yeMCbL7oCFif4Ag+1KO
7TUmQXe3NigPUPuKXJU4lqlL/b5zqdOcg4OIEV6SEEcn6IFXcY1dxRBqEquo
vL+AoB3nBzN7D4+i8o+zShv7+eixcNxL/6pRdH4DShvt5COhcKMOYfkxVM2/
FvL7Ex/lXQldqFk9hua+m9zCqeOjUNv5q42jx9EyU4WrUwV89MX5Qe65/gnk
3lW+UiOYjyICOqOkY7+h3mX7mWVz+EgmPLZKuOQbkh6XGfIU5KO0G2umf3V/
Q0fkk1YITfNQwcsHXt2631FKPLaVHeKhdvEAi5yG70jW+ERucj0Pad2S/GU5
/yfassI2Ximah+prkHtgzBRKlevIsBXiIcf2yeRDxVNINaJt2P43F/UMZ33Y
3TWFinaWbrGZ5KJvUhJsK51pNJgfGCLdw0VLXT7LLXw/jR47JAqKlXLRoXHf
9znz/iCZF57qCT5cNE8+w7gnagZ5/MhablHPQV3hG5rEi2bQT6V1q0kFBz2e
/naA9WUGXXw5/17oUw6y7Vh3M2LFPxS7PHxbUgYHxdwamWG+/oeUcpM7GCc5
SDRhaV/1WQFYPivnBihzUJi89z35Z4Lg4+3i2X5gAIWr/dOv0hKCNnEb9pHO
PnT6hoe34GohWHvhY79JQx/yWVCfhhyFoH7p4+Tpl33IfjppblmIEGz65rfT
MbMPLXlvwClqFQLfe566IQf6UPZxz6S7Z4VB45nYqqxvveht9buZ8GYRmKps
qw8Q6EXi7jfr7ILEoL1ozp3y8U7kU8o4p+orCZLm7uPXklqRhkLqriSeFFgv
Guxd7leDps1EllyNkAGZN2ttYX4yenHo0D6mwGIwRR71qA9jrC0+MZ4tD8ev
JYYY/mvEhX8y59ppLIVuDdmkgKftWDQvy5KerAhfTmwLKtHpxUvirs1/cUcR
bF+s/6bC7sUr/S63OTxWhFTv5ZHnN/ViO+b+w6FViuAYkzWkdKgXp5SsvNo/
oghNWPFA232qfUXhQLrFcggUqp6tr9SH7ZoqLigOL4fgZZE7jEX68d7Cgk3F
P5bDEr/M9SyZfmzytnHuPQElSBkY0qWr9OONDytb2XOVYFl9R0mPeT8+ejhz
v4+SEjhs+1zz6lg/fj7hFffORgne+EnbQU8/3jQ92hN5Swl2X2Y5lD0awJP7
Zs89k6kEIidimPbPBnBSw2KWzwMlaNrom99RPYD7MiHcrlAJzkUFeDV8GcAB
m+P1F9UogeKlUBktMQ5Oy2SdTxtVgoYMVdHiPRw8antaNd9cGc5Bl8W4GBcn
PIvdlGGhDHur/nLmyXDxKlrWiYR1yvDFXsFruSIXn596V3d8izKERbJGlhlw
sWzm8mMmHspgU3XrSJgTF7OnKquropRhi45msuRdLr5yR8zz4xdlcHjxz6KU
xcOOZzLe6vcqwx5G90dBxMOK2011o7nKcPPOKm9jax5+LH7415oJZWgcSTwY
tJOH649+iMgXUYHdE4V2NsE8PAeu50bpq8C9iFvxklU8/EFeT4ZvqAJ7PWzW
763j4etfa0+uMVOBP3Z1GXebeVjt3vTqaSsVOGf+T0NwgIfXSrq2eLmogMwD
rbE/s/k4pIM2ZXFZBWZHoCHx1XxsXfxiV1qUCth8jt3nac3H82MdK6fiVOCt
+z/dgs18nLYmLDLvpgp0sz2zl7jycVn20DLFAhV4fmvioc4pPv51ssBiqkMF
Xr9T/OWay8cv7Tfcc+hTgTIPg2MvnvDx5ZUDc/N4KmCZ/Ob33DI+lu1Z1Oo5
qQKNK9csC6zlY+a6QK8WUVXYGcYzTujhY99FEJVroAoOydIhVfMIFihd3Dlh
pAonVxwbFF1IcKzbmDbTXBXKLW2fm8kRnP8wraFknSr8YIecOaFC8OTqv9KV
LqoQnBpmrG9I8Hlei7vQXlXIl5A78cuEYOnonCIrL1VQdLIUzEMEMz47O9Yd
VQWvsFdjY9YEH/N5ntxySRX+qSdyCnYSLCQTPygbpQo+80VW/XElOPHZflOn
OFXIPJTzkuVO8BMh+c7OG6rwwHTpgcCDBP9IOaHEy1OFrGnHjxZBBAfWMO9N
tavCpJXo7y/XCRY/LPHLtEcVag0bI9RvEJwiPWAdzFEFFtNVyz2N4Oe7EgZn
javCgBq+lp1J8J+vE9oSwjQ4feBZT2AewVHJb4JtxWmwYcDvpWUhwUtRekPs
fBoosUfSBYsJNo+wO7poCQ0+eri5ry8lOFgpt0hRlwbbl0oVyr0iWPL1JeE9
TBq8DXPx31dDcNpBV8c7xjSITOzXuP2GYFw875f6Whq4+y734b0j2M6FY31g
PQ3KHmr+nmwguEfwRXKOLQ1iXRVPjjZS+mw6ZKrvRIPGsTazJ62UPpNrovxd
adCkZ30+5BPBSkkKnU/caTCcO1Rg2kbw6v63wSY+NFhgHt14roPgprCMhtP+
NPAqO/dCoovgvTqnlPBJGuTvSoq93E3pF7iics0FGtTJXOZv7CNYR37ZDq0w
GhR26d47109we8mCUeloGpgfKt17f4Bgg18/5fuu0SDaTuh9HZfgrutDuW9u
0MB3V/LpWh7BEUbdlvm3adCQ8pL+lE9wf8DroyHZNLgWWetxYJBav+xzUe9c
Gqg8fPFbZ4hgs+JHqZuLaDDZfDiCQzF/WzrD6BkNxI0CpGKGKT98T3yjWE4D
79SgWI0RguFq2G6RKhroe2uKPqF4mHn6+0gNDTixhscZowQntRyJbK2nQcgD
5/Y7FK895q78opEG9zpcDEXGCB5fuP1p5kcaVI4Ihe+k+GahzaaoLzRQNFZr
uk2x9VZ2v38PDYSKUqTaKP4+qR/ozKFB/fCadbPHCc6Ip89fM0iDCfG5/ssp
tjWQz9Ico4FcQ0+iNsXTjRKm0t9osCzhRc5/fPeoQOPUL+q5Tfrz/9rbS33z
7P1LA4eQhPL/xpvJ4/2pnUWHnc53Sv6bL9vuS3yeKB3aknn30yl2HH+vkSRB
h3sJwVecKZ4VW1l+VooOWcYxh0Qpfqxb7OAlS4eiRWshi9rvzoYHg7YKdLhu
0yrOolj0SGqIoRIdPiUE1xdT8SqSjJNVpNMh0zL0oibFbo9Dc4Q16fB4o4Fh
LBVvCduTFiM6dPir3dHFo/QoGTn4uYVBh2qRzrP6FO+L3u1TtooOOlHX5Q9T
ei7Q3iqUaU4HrbkBOSmEYO9DJnr+6+ggudwH11F+kJHQeb1zIx2iLM5DA+WX
lw+VXSy20MHidG5ZNYdg+aE5YVLOdHhTm3r/IuW31xF/lk3tpsP4smvyWyg/
+mmOF/bso8PWebJhkr0Ev93/qTvXhw7Psn3cdlN+DhCrO37dnw7Wa0vrJim/
qzwon3v2JB08bU8YnfxC8Cl+lpHteTo0cE4udPpMsJbXsSvDV+kwFc//7kfl
12cRb3pLChXvRZWnr1H5F3rXubT0Fh3k11rNzaHys4NjwYt4QOnzL2jNIyp/
o/ZJoRUv6MC9ew7NqaDi7R8+P6iSDqmHW8vCywlecV6wp76GDhGrx1qnqfrw
+tZEiG8THfYemN33kKofgl8aK5/y6HBFuz1u/UOCP5D1CWIjdPhctHqZ9X2q
XvyqcHeepMPBvyn2hllUfsgWCP37Q4fi0zOVvVT9CtgSb2UlrQbnaz58PRZH
sKWb+OKkxWpQufCV6EQ0Fe8j53lkqRo8DvL96BJB1e8ov7BodTWIdpJ5NPsC
lS819m9bzNRAh5BzMf4E72EvtHX3UoM+jzMzKVsI1tsUqfjkkBqI/B3jLNxE
+dN59piInxpcBs/801T9vhn49Ur2aTXwWCQvoEjV949FzY0TcWrw68K3D7e0
CN6olbgtpEwNht+OCN0RJHiJiYRaU4UaWCmXpCv84WNiHfpDtUYNng0vdAz9
wceXPI9dr2lUg+TVNQvVhvi4It2hTZKnBhcfW61/2MzHhnKLdqVKqVP1d+4Y
TudjJeUHfomy6tC6r87z4Q0+nqtpHhapoA5mCtqrwq/ycY+pR2EgXR32ZJ78
rhDOxxG7n4g5GquDsN1m07QjfNx9d1ux5B51CDv4cJG8CR+Hsa7ND8lTh4KQ
MzdmveJhP7Ym/cQTdcgz2+cLL3h417pyE5/n6hA5b+OSo0942MCJ6+FSrQ5a
607NZGfxcMdpw7JVn9Xhbaj3hXMXeViv+qP3xD91+GSzyPeFBQ+32S+u3LtZ
A3SuJTfFFXIx962udLWDBrzSm6N/4AEXf7Ow3kvfqQGic5a/Y9ziYklG4Cz+
Pg14+oF8TongYouFXywOn9KAl4MRv0vcuDi7Oa3qRJYGnL771ddUnItPOai9
ivqtAez3mzUj7TlYwZFVW3xvBWhXO3gKPe/H48lRQv9yVkA27b7U3Zx+/Lqz
H9YVrICbkjLuprf6sZ9H/LNPZSvgoOKo/OrQfvz22Fj2r8YVoHPE69WzTf34
ZMKDaJM/KyBYwivFq6sPt3xYtrXcThPOlryfmfzRi6M3iHS9mtKEniXbQt+L
9OBfNa0maqyV4L364qt1sz/j2fMqVi2K1Iaqrz17JavqsUhb9pltb3XA0WKd
/vqjhTi1TnX/fUE9WLbZY15PTAESnS+w7/BDPbDMbLWdDn2HRq86z/qyXh/O
bbf9VJT7CdEELSeufNcH95BgN0+jHvREQsnU4Jc+TMTe8nBb14Os5H6Htkzr
w5rwArDb3oP26+bLyQsYgPYo107qRA96vGsZZIgbgOGH09WLi3vQquffY4qW
G4DvZYaHtkEv2uB/d2XbegPwaJuxXaXShzqCzwUEbTQAIdPI9e161PtLhMvL
ZZsNAGkd4PuiPhSbLu2w18EAjvk+HQ1y6UMtDcFBQ64GgM0sleZc60OuK7e/
/etvAPtfhaydEOlHfhxRb5U0A5hMPXzmTXc/khr1dbh+2wDelEX3Sgz3o7wf
bSBxxwBq/273t/zVj8ZEc+R/3DOAsgXuwtcWDKBDmnZ1b/INwMqDp1kEA8jj
SJLO0VcGEND5vq4rbQDtmNL4jocNIEJTTbXCnoN+Csb3MscM4KvX3+bUXRx0
Tfz3uwcTBpB+EBMfbw5qUXh3N+GHAQT6ha8cPcNBW9hHd3gJMMAkCx1yu89B
NheelUrKMEDa6mCj5G8OMp9nc36XKQPOdxX4HLrORT6bvkeKshmwKHCkOTGd
i9Kib1/NBwbsuSpX/fghF83M+3lf2IoB914Faj3FXPRSMrPhkR0D1FUF98nz
uGjtgpmlMx4MoAuGiCoyeOiY3QO1+94M4FlVrnAx46GsWAc9+4MMmPtZ5lik
JQ+JSD1cc9eXAUvpp/e/2M5DNVI7DtgGMaB/7h6WTxAP2SwseJoWywAr7U17
ZjAPndq6q8I6gQH71VydNtby0MOEOXWTVxngorNEKfIDD0nI7O6yusGAnpBI
oS89PPReRkJ4LIsBotVmSVUCfLRF1tMelVL9rYzOF5rz0Q75JSPdHAY4J1xS
GnnIR9cctya78BnQYqcQ2p3PR60JUZZtgwwI7rqgUf2Uj+wl/6U2jTHgeWuJ
2r4qPtowe8D21RQDOgOep8208RF75FFe9jwmGIkkv04RIui0Js9FfQETDE5e
Kc8VI6jUS0ksU5oJC/GJ18WSBK3qi9+TupgJ8q+/TqfIEaT/6YR0rDITGGVq
2aVaBNEqVh87zmICnD3yyXkzQXtnTilNGlH9rxddid1KULppUb2PCROG3et0
nm4nSLFYje6NmCDXaSTXvpugxQ/nfty5ngnzUq2dAo4Q5Mhfe/7TBmq8V0pi
Jv4EJdKDdRxsmXDiumbMWABBC26PX9q0lQkz7Unz9YIJEr/aagS7mPDUW7BE
JIog6ybJgbLdTKCxt7TtuELQpfnWscZ7mfDES+vlzXiCZkc85xt4MUHKdfWn
qSSC/gTfSqYfZUL53lnTc7IIMin7bJnhT80/FSRL7hEUOCU1qRjAhPe+zYPP
swn64R9qIxfEhPP5HUWMPILGvPf/Fr/IhOaWnZmBzwmSlqhcFnSZCXsUbph8
KSOImbsEhsKZIBajIKGLCTr1vS60LoYJZ9yJ86MqgoTO60hGJTFBPzQnWqie
IHX6Zb0/KUy4ue1xx893BNnUdtsfSmVCTU/trs4Ggq5Ixl3fmMGE0xkwGdxM
0JIbX5Xm5TCBL5G5fmk7QebsjWvOPGZColG6ZPoXgtx6Mz1G8pjgscZ7ZnEn
QVnqjtnvnjChVc7YuaOboNq3j+vNS6h4TNS8XtFL0OBh0bFHz5kQUKu5c38f
QXpFJYwYTD0Xrf1ePkDQ1u1SjjMVTLhRVvmnhUNQwPT+kz7VTMiUlF7RySUo
KbUypes1pU+2xqlPPMpPoPDC9g0TFj8IGaviE9TV799dXscEFHEjLIMQJHC5
XlD3PRNGjGdZ+g8SZPXujNX8ZiZMvf5NHxoiaL/vR++zrZQ/Y1+tjx8mKGqh
buTYJ8pfAuuvaI0Q9Lj48qPd7UxYI8f8QZ03UaNTT0NDBxOaLM2CmaMEffuz
ahJ1M2HvHkX1TIplb8fJ5PUyYUNu2rjwGEHGawYNlQaYUNId1u5EsQvXwimW
y4RaybyBWxSfDb8RJECYcKd6VPIzxRkrv6X6DjEh6rua06xxgqobNr7sGWHC
T0GLKkWKeX5ZfXbjTLhSrLeJOo8jcdkZoYpJan0bh378xyufOarrf2fCOu+j
L5Uo3uySuz79JxMWLX37QJhiv3+ih6SmmeDNmV3YQc13NcMt5twfKl8fMzuy
KC6xfJY3McOEB/WB9D0Ut/OlmvcIsmD27F8xkhT/jTzwvXE2CxLPfpF7TO1X
SbdqsYUIC9I7tlchii2aFEwK5rBgvdL9mCoqXh7Hj7mozGWBa5lkkDHFYXLv
guPnsWBjTGtYOhXvh6X09FkLWDDUtankN6XHe9fgKj9pFmzb+0HMmuJxwU+c
PhkWPDV6ceYSpd/CLN05WxezYDkJknlK6WtoHaZZJc8C9sGg922U/juGejYy
lrLAeJlBzijljzT9+LiFyiz4cquqZZTyk72EdmOJKgsmusvHKyi/ifBqFriq
Ufu74fkitJ8gn5t/r9zXYoH51MDBth6CVE4kNWzSYcFS4QObD1J+/riFMf+r
HgscXX5xhym/s0X3x5gbssAzZ4aFqfyY7J39vm8VC0JXnhib30bQ3bK0eWGm
LLAWnnaz+0SQpF9LVBOwwD0j1vc2lV9dHSjSawMLDua5uJ+pIyj+aftbCVsW
zN1oOrPhDeXX+OPiBXYseLdf2lm8hvLjuofhf7ax4HG1u5tjJUHBBbJhcW4s
GHzYV6VVQpBBdH6NoTsLPnhFJ518QhDXa6NohwcLPkc8Mn1SQJDtsvOX1A6y
oOuI7be/OVS9DBsJLT1OjWdrt/fdbYKa9oZVu51kwfnDNzuTUqn6Zq4qJBLE
gtSbXoYOKQSNTu64YBfCgpgNFWEpCQSV76o+x4lgwd0dWcMeFwlyZdwInn+b
8oNldOGUB1WvJA3LizJY4CMsIFO9h6DX/A9/nbJYoHA1/UTwLoJ00kTOZGaz
gJPI3lrlQNDMHL8g4ycsyHPOfxBtQVBql/VJ97csyDCa2KuuQI1ffHTnl3oW
SIzOm7NJlvJfTIrZ1gYWCDnnDO2TIijTfFhgTQvlP+6qwIOiBOXcvBKu0sUC
JdeX082TfFS282NK7wQLQjIfyi+q4aNgg3+nnb6x4IeI3vTuCj4CcY3djT9Y
IGBesy61lI+qnwWqVvxmQcfsz4ZjuXxUJ7cs57awIaio15aPX+ej9o/uL3bL
G8KdXie3wx58dPNx1K1PCoaQYLAxtceVj1wvPTm3WdEQSPDWM1Y7+KiPJWqF
VA1BeIMqa9CGjwYTs98rahtC3fD4YJwuH03ZT3R3giEcvxjw0uMHD8k1BM9y
8TaEgmfRcqaneOhgFxEUO2gIDyffHXU6ykPlIw6CxYcN4c2JoVxvbx7ykNAS
WOBvCBEHmiecHHmoYP2nv1VnDGHjZTG9MH0e2lCtO6WVYAj23lub5ThcFPys
Z+z3C0NAVZeuGq7mosbaDWP3XxqC+Rd5nzOGXET7XDy6rcoQKnMO/3iixUVv
f0SN5NYaQiZaYfBnERctZhoPuTcbwgrh3CVdhIPyHsdx6/iGULy67+vfGA7q
v2PReWOhEaznY9z7fgCtzTM9qyBrBAIu9vZQNUDlB1P5hpwRVPieNUl4OoC8
W9U8UpYZQXD1CF329gAaFpk7kqRuBHr+nipxvgPo2/7mP1dNjaBPzCNuz/wB
JKK3b2msuxEYGLxJuLm2H2mWXXQOLTSCm7LsbqkrvShiU8YeG7tVYHXscsfy
6C/IuGpjyfbpVRD1u+HvyKYm5HE6oGBesjHIxuw2jxGpRD3yOn/FLU1gtI8e
p+p0DR/Tww2cERMAUbOgD0o1ODSiwXJ/pClMTnScsrjbggdqD0swDc3gZke9
S0dBJx5my7bnrzKDENh1Na2pE38tKr+na2oGgcL9NLvJTjwrff4aLTADxyzh
Wef0u7BSYH6gio0Z3NvHqlmc24WdV3znLnA1gzNSfXri97pxU/jpipGLZtBz
7p/kq+oe/NImMuBeqxk8qNzsmh3Rh3PUtj6X+2wGK077V45d78NJsxRmwtvN
IH/gn6ZWVh8+8jz74qFuM5DYNzJ8AfdhRc23ifrEDI46XPAp+9qHz4iJFZb+
MYPVpws3rdnZj01qL401qJrD8E+JmpPLB7Bapi1jtZo5fLtY4XpUawBLh8ie
KNAwh/m5Jiq7jQYwMbo7k6htDqlH+qSXbB7ASfdezdtpZA6H59KIRPAA/nlJ
aOWAjTloPbo90tM2gIssz3v/OmoO5p+V8xeHc7C+U9SbtGPmIHbtq8qVRA5+
fOiapuUJc1js6TDx6xYH30/IHo47bQ60kolLd4o5+GZvk6/WZXO4tvLVu639
HHzxjGqg601z0M4purfEhIsdn1SHV782h+k95TbSnVzcXPt+8MAbc+j2i5yp
4XKxXcfnDVL15vDAUN34yDgX28wemefaaA6DPYc042fzMHvLovifX8zh2eht
hxUreFh9xCNFc8IcCh4cTb9+lId/0UQfxiqw4Ry/rnnjTx6+wLr1WEyRDWrH
o4wzZnhY0sqo4LwSG2yPLz44KMzHNC+vZ8fobDjyLEp5qwwf2z2oqdmhy4bH
UZGHL+rx8X3tsAGlNWzwvRqrdsCTjxlsJX6yJRsKLsicHDzEx+W2JUPS1mzo
lircscufj1uO8CeFNrEhP2PRsyUhfCxQYC1IHNkQWMhN/JrExzsMxRTzD7Bh
QLahekktH/dbpStrHmZD40JPn8p3fOyz3Zh+5wgbTAXfHXVp5uPQk/tXXj3G
hk8lLwK9uvg47/kbk8BgNpivfWLc9pWP56CI7avjqfWGLhzTWEpwwmYV5+eJ
bKhqg5ZvSgQruj13ZVxnw1LucU4BnWDmuUEP+k02iB+MOSesS7Bblc0xsbts
2NFk5SS0muCSdXPjGp+xwUnV3tNzL8EV3qsZiWVsYMiGD9V4Evw2/ESrI2aD
3tpbwnIHCe6o65fvqGZDb9Pt4Qv+BAvYlWVwG9hQJqJgGHGBYLGjk2sfNLEB
xyyRdrtMsHS8Bu9gKxs0Qm8dokUSTGtJ1JpoZ0NE0nj8yXiC1+84XPSbwwbp
OLvdtrcJtg+841jOZ4Nufi25fodgl5S2XyFDbDibfai74S7BPh2W5iITVH9t
39lzHxEc76b4esEfNvx2i/v6qITgG+ccvJtn2ED/gm4eKCU4MyNC/JogAgF6
9a1F5QQXD/ywVRBF4Ns4J8+wiuB274ZPdGkEeXZrXmXWE9wfLnyKL4PgkpuE
TMt7goezTZc+XIyAHuOcN/GB4Jnhe256yxCgD2/rfrYQLCrZNevrcgQ3LmpY
93wkeIGuTNYTFQR7bl6WePqZYNWjIcREA8HlDzbeuh0Er4wvjvyriUC7ctPf
D50EGxYOa7/URuCPr7S6dRNs/X2HnyUDQaNN4oYNfQRvkb0iM8cQwdNpR15W
P8E7jV4Vv12FwOj3jsrRAYIPBer/3sxGsEg23WADj+DjKV6p0qup9k+sX7vy
CQ4uTUWtaxAk5k9edSMEX+5o7r1uheAnGr1t9999+V+x0J3rEWx5fY373315
siKoLduIIKdtqyd1/sMZKKC22xaBNEpeXjxM8EO3nAMZWxCQIa7U7v/ue8/1
SXg4INgm8sbsB8UvMuRy1bcjOMP5dCtolODXVbZbBp0QfJYqMRmjuGEg9GuO
C4IDlkvmbRkj+LNw6dUjuxFMHyyV/e8+uldtwshgL4LVd/Zt76Z4cJ16+7d9
COabDr2fO07wN+9dp596IfB+ondGjeK/4QmKpw4g+P//U/D/ACcATJQ=
      "]]}, 
    {RGBColor[0, 0, 1], Thickness[Large], LineBox[CompressedData["
1:eJwtmXk0Vd/7x6mMGQqRBhnuRWbuvYbK3U9JoxASlaFBNKnQoEGSSobKVAhl
KiFkSoltKlOZovog83Tv3RKpKOp3vmv9/jrrtc6w9/N+3vus895H6cBJG7d5
fHx8Vfx8fP87VnuGVey7lsbuuuFS+aeFoOKdu4cmS64hLyFO2BjFCY0J3TUl
kQi0UycqKXaeurPtXmwC0ksS+HqR4kXi6/fmlaSgH41N15ZS/G3VmvDYjHSU
0CdVENNMUIsBo8Y/9hlqL9Pyn20i6D/le38ZG58jzFfHMaN4a1ZE7JOSfHTq
a++kZyNBr1h3mMsZRUjBuyTh8nuCNHBI0+2MYvSf9Bg5+Y6guC1BR+cpl6B5
g7sHzBsIEm0NFDgbW4osz2sG/qsjqOwZNPsIlyP/z4Ot8bUEnZ0sS9DZWIEq
Tlp+WFlD0PDFEuPkkip0zrd7pr6KoMRyE8F9v6qRsfSK1b8qCLIXKP6whPEW
1YsYrxAqJ+jt7QLPWxm1iD0XdLC1hCC/DwbrzIbr0O5VplVhLwkyXPpcZE6p
ASkUvp/TekHQk6Rnqadi36PJL+9XyuUR5Dqs6aXR3oji9igtPpBDUOiS9lVe
ws2opWfpn7tZBG3cYzumubEFyczwt8Y9JqhgwCroYckH9Gyw4IxLLKWvoOTJ
S45tSEJvoWBDNEHH1Rt3Of5qQ03pza3LIgiinbBQkWZ8RGbbaNvcgwmK+rml
7EbGZwRScZ0FvlQ/lgqnHdzyHzrRJ+RrdoYgi7U1ITD8H/JY555ZdIqgBf7m
jr+VOpFYeCHfdneCzohsmDoR+wVFjz38T8uWoFZN/s5tRt1o45rHQX07CNKx
LK9Qa+9GSy77GF3cQpD31oc1p4R7kfk/zSYnU4I0b6+M1tjYhx6O9IX30Ql6
ILdML7FkAK3eppc0McFD3+LKt+stHkTzvqp1Huby0CYFd/fKw4Moa8QvqrSf
hyZpBYnDi4dQs4XDsOQHHtpmYCmu6zGMyDmxym15PPTbIoCLZTjI7eKco94x
HrJuVhe0OcpBn769Tqnbz0OPbZuUBjEH8Z2+LL/JgYds9qxwFD7GRV/9p/6N
buShp+5FNdYVPMQN37ewYwUPOQRwU/tOfEUT9xyKA2u4KFsgvNy76iv6Xpfj
6PKaixbcMuoSkB9HcZf/qK56zkW5dwKlNarHkWt5R5NlHBcFWkquNwn7hspS
tjK8qHE69z7NuTowgUyzCkZHhbko+OyXUKm7UyjPPi/kkT4Hydy6WyVQPIXa
K2Nu7aFxUOIDs9/TPVMovUDGhl+Og/LKn7r36P5AiZo/G5bMjqIO0bMbspp+
IL3fxprOb0aR5kOJaXPJX0hRSmJjiN0oeleDDvrenkFuwd5WNodHkLh8sklv
6F/kM0jbXOQyhG6p/tOv0lwAHw1mxufP70OiB+MbrC+KgNN2x9KwQ5+RZwnj
qsopCTjwKOX4HclmpL48wSlmZDGop/A1p6wuR7/XCS6LDpYBn/yD3Z4v7qLS
48cPMfnkwEMRG9PvF2KsLTrxLUMefCD1YxuvDufPpi60Vl8BGbbyW/t+tGGh
3DRzeqwCPG78s6cy/gve8ftrb8hDRdjvlF4Y8GgATx6av/ByqiJsTZ/fLpU3
gGOa5FieTxXh+0DP4/iqAdyfCres8xVBo3hBa/zwAD5rFaG/pEYRovYG7Nyu
NYgTU1kBiV8V4VTFuZXriwbxV8tLKs9NlUDr1/2c21VDOPLl3R3JG5QgQNTE
UqJtCBvT0s5FblYCb1lnoWuDQzhg5n3DmZ1KEJhfyNwuMIxlU1f5rHFTgjWj
wcdtNg1j9kxldVWoEjzcXTq4/O0wvpMicvhjpxJUipeqx5aMYPvLyfX6fdTz
exvY+Q0jWGH3Wt2wYSUYd32tWNI5grNFT0ybTSiBsoJuROSfEfzudHPwc0Fl
GMn3MDqwZhQLw/2cUH1leHipfrdVwSj276LNbLipDGaF19YaxXDwlqJSp8RQ
ivlfrC9M42DJu/aVM+HKoHldKWt5PgcnmgWF5MYrw8Fdy8ST3nPw6wzeSoU8
ZSi+VJB+i5+Lp8/nbZjpUgahLP9duYe4+NQSCM0xUIEY+R37dsrxMF+J3JcJ
IxXQb74mdlCJh++6jmszTVXg8szmREdNHn6emdhUvFkFPombjk+xeXhy/ZxU
5T4VaNQqkuk7xMM+nq9i226owOMnUh1nM3l4gUwEVzZUBYbFxLfW5fNw1Msj
ax3DVeDc45qevyU8XLhA/suXB9T1giJK0u94+GfcOcWRXBUwPMmx+MLlYd8a
5pOZDhVoC+tmDCoTLHpCbHptrwrkXbVTc15NcJzU4Ba/IRXwGg/rfKlL8Cun
SO68byog3httLLuO4NnvE9piAjRQzh8odrUlODS2zs9SlAYyM9yUYQeCV6Ck
pruSNLg/eKd0hzPBpsHWp5cso4G8xPk12INgP8WcAgVdGvQVJT/UvkSwxNsb
AvuZNNDbN76+xJ/gxGPO9ikmNEigfbu/+jrBuEh8Wm0jDUL8k9XTwwi23je0
5ehWGrTWiG8tDie4l780NsuSun5V0mh6NMF8O46v1XekQXjrRx/NBILvTpqF
ejvTYF284bbSRwQrxiz/UniQBkL1Jqd0UwleP1Dvt8aTBgH/Wq8VZBDcGpTc
dMmbBh6x+k41zwg+oHNBEZ+nAVf5jfOrXIIDfFdXml2jQclC2yIoIlhHfqWD
ZhANGpZfup1eTHBH8aKvUmE02OCifX/qFcEG07/k++/RwMojWckEE9x9n5dT
94DS50r3ff0KgoONesyfP6JB46NINYkqggfOvj3tn0GDJLWoK95vqfnLvhLy
yKFB3bHn7NkagtcVPUuwKqBB+UPegiN1BI/uSmIYvaTB2d0ejS/rCY76EVWn
UEaD+a9j7n9tIBiig1wEq2hw4oGJk9B7ggnz0o+xGhponLNdsaCR4Ji2kyHt
72hgGr6mdZDijT4HlUpbaKAwffvS0yaCv0nvfpH6kdIvfJ28TTPB8fnbdoR2
0sBE+eLjboq32LIHvHupfjg0Klu1EPxjUt937xANLrYIhKVQnBxBlzTj0iB+
helgJ8WWBvJpGuM0iKzsVJum+HeL2FqpKRpYb4re/T9+fJqvZWaaBlmqR7y7
KLZZPHW4b47qR3fyxVSK/+aOzNbOo8Nw/3+nrCnOsO6MyBWiw+WkCdteaj72
3xrVY8TocO+ivKodxfPuVpZdWUwHh4p3o5lUPdm6RXbusnSgZbYmjFD17ml6
yrVcTodnO9mbhSgWOpngb6hIh1epniOilF4FEuGyCnQ6ZLhKXJ2k9HTNDswS
0KBD0jwZuTJKbzHL8xvGdOhgV1KRdYLqR/HYsc9tDDo8ck0z568l+FCYi+dr
YzqUO8UMnaf6uUjbdkGqKR2Mk/HdtmqCPY6v0fPeTAehoRfLjCk/yIjpvN1j
QYf6zO3zgfJLeabSvg076XBiVayoVinB8jzhoMV7qfGPKYXmUn57Gzy7csaF
Dot6zkltpfzopfEtv/cQHdz+lTW9ySe4/sinnhxPOjxuDhU9nk3wWZGGM/e9
6XAjMvBedCbByk/LFl45Twf1EcuzKekEXxhNM7IMoPTY67nzeDLBmu4+d0g0
HRJagg7nRxH8WdCD3hZHh55fr6/wUesv8PHekpKHdNj+4TDTgFqfXUMbRoKf
0uHFlFOsGbV+Qw8tRqtL6cBJCA5Y5UPp7X1L8mIlHbKb6zt0ThK8OoC/910N
HVbhzEMKR6l6Hk74n2qlwzy/JzsSXQjm72ypfDFChzj6AQuVrQQ3c7ZGioxR
/et+L2hoRr0vpisO7p2kQ9rPM5dXm1LrQzZvwb9ZOkSq/uLl6VH17ozYtElK
FVYnTczslCXY3FVULkZOFSZaWvBxSUrvkwEjnBWqECgeOOghTPDzUK+gMDVV
aNR9kCzwm4dJjU192zpV+MLYcfJDJw/vZ0tbHnRXBX2zaNf2WB7W2xGiUHhc
FRxCmKqLw3n4797544JeqsCKtG3TDeLheN/vdzIuqcISFQ8H2bM8/LHgQ8tE
uCqsvBgpG2LNwxaaUbv8X6uCp66WljYfDxsuXeKUsFgNZisKS/W3c7Gi0lOv
KFk1CFttYP4RcfFCDdOgkOVq0DtWMXWIycW9a93yfelq8C2YZ7Z+JRcHuxSK
2JuoweLss9+nxzi45/GuIon9auCXMVh4JYSDg1j3JP1z1eBsn53Huxej+D8b
ucoDVupQKHDyY3/XMB6u15WqtlOH0rwgq6qGYTy1YcsB+h51qJ34sS7q1TCW
YPjOGz2kDpOFwwbCMcN4g3TnhhMX1KHjb2S5qc0wzviQWHUuTR1yY+W1RaqH
8AU71Tehf9QhJkZo+6nEQbzcnlVb9GQ1jM2Ibewy7sdh2wW738xowJ32/Yfz
GzvwdE37GlWWFgxtmpqL3N6K54tXGC8J0Ya80lRbPfVqLPhfxuVd9TrwxCes
0lg6Ayc0qBxJ59eDptYUhc296UhIku/QiUw9EDqXo9VdWo2+Ru+d17lVH/pJ
2Xqr2RZE4zefuPNDH3o+u46Gru9EXkNCHsqJBjDZnDd74GQ/Wvz1lN39RwaQ
NX1uk+7VfpT78z8QSzGATIkvmb8i+tG4UJb8zycG8H5g2YZLRf3ouIZ1Q91z
AxCwCO23nutHbidjdE6/MYD6VW0tIsEDyGFG/QcmBlCoyBmpThxEv/gj+pjj
BtA5dM62JWcQ3RP98/7phAGUobgz7eWDqG35+8eRPw0g5nebRXX/INrJPu3g
zscA9vrPVsaqQ2jbtZclEjIMEH63+5Nj5hAyFd8W4LSWASYGjyqvPRtGnjt+
hAixGRCW7qoVVTaMEsMeRT8HBnw23HMhumkY/RX/lS6wiQHzOk+LHp0YRuUS
qU3PrBkwfqZ8chdzBG1c9HfFXzcGLHpu3bHoxQjaJp33IvEuAzZz/Pw+ZY+i
C7ZOFVsiqft9lSOzSkdRZqRww2Q0A+7H534//m4Uicm4dG96wIC60gVfszmj
qFFGTGA8jQFHbTaoMVQ4aKfsYRtUwgCDXXNoaQQHOcgvG+sZYsBN6SD5dc5c
dM/eNnbfKANi9vsx9h/hovbIUPP/uAwIfuY8ddKHi2wk/iW0jjOgxs7r59Zg
Lto+f9DyzQwDHFwsPpMCLmKPPcvNEGdCDW9FWrsAD13SGNmntogJazd3/rwp
yUMl7ooiqVJMaJVbbagsz0PG/RH7E+SYYLLpvayEFg/pfzondVeJCdc9cxLL
rXmIVrHe5wyLCWhgTeDFaB468PeC4qQREyK6K2lJCTyUtLbgneca6n6rScaz
NB5SKFKleyAmSKcYbj5fyENymQs/7tnKBJ9+m6+fqLxlP7ox4NN2JhzK3ZGj
08lDUXQ/HTtLJgxY3jE6RuWzRY++3dhhywSJ5SZW0d94SDS63QicmOCvdela
5kKCtrRKDL52YYKjiJqbjhRBNyS33DU5wARx69pz95YSND/41aiBOxNa4mc5
S6h8OOv3MJZ+mgmijibqzesIGvc48kf0OhNiGHYaNCqPSolVrrx4kwnz+D2D
Oo4RxMxZBrxbTLiRqm14lsqvF340BDbcZsKxpXNWTlTeXRCgIxEawwT64Uoj
zi2C1Og39WbjmODUKfquNoygbbU9NscTmCA18mlXWDhBdyTC71skMyG9Ukf5
TQxByx58VxTPYsLTkpf3vqYRZMq2MLuczYTIbYqNU+lUnu9LdRvLZUJyV05e
TyZBaWr2Ge8LmdA743Po4HOCauuz35kWM+G83Q/l2XyCuCeExp+9YoJXOPO0
bxFBegXFjNuYCcyBtGSlEoJsdy+2/1vBhOqYI74WpQSd/X3kvGc1ExrTJWv2
YoJiEirjut8yIWFQ7oZVBUElsLzUso4JVZe3P1erIqh7wLunrIEJoytKzQar
CeK7+Y5ft5EJHr9qja+/JWjT+8ubJD8wYffxuyY+dQQdOfXR40o7Ewb7fEwr
6wkKldYNGf/EhJPHzKOmGgjKLrr5zKWDCT1LmtYsfE9Qi2NvU1MXE2b71HUE
GwmamjWeRD1M0G7JPzZEseyjcJncPiZMfVs2kd5EkIkZ11BxkAkMN9vX1s0E
7Rve4Hh3mAkrTsc3dFF85daDi3wcJnT4XVm5o4WgZK2phFM8JoioNucmUVzd
ZFHeO0b5Xy8rsIPiEa+0futvFD+8GPOLYlHZvwsqJpmQk/WNR32PIa2X9mr6
P5jg3SB0pZtiq305W5N+MeFehpBNOsVe/4SOL/7NhHr9q272FEcnu96+OsuE
K1esXo1S8yk2f5k78ZcJ6kP3d7pQ3DG6+MN+fhZo9NdpvaLqmQs5+qNlPgvu
rXy4Y4aqV1G3Sm6DIAsinZcXraB4Q+vyNXnCLIi+FupBo/RyO+OzT3khC7TP
B7svekdQ0NL3fhHiLHi5+ldhL6V3Zgk9ad4iFpRc+GsfTfWj0dmvykuKBYQp
a6lTS9A3/k9D/TIsWPx7LjGT6p90mq6wrRwLwhl4h/gbggy3BGlUybPgOd8z
Z1uq/w68XgvGChbkqRz6eJnyR6J+RLi0Egu2qS+W8Kf8ZCOm3VKswoK7QdLR
apTfBEdqFjmrsmCt8FBRdjFBnvFzd9I1WfDpw0nuXsqvyudimnboUPV4DogF
5BL0cSdD8rseC76fjOPdfEYQW+jIbVNDFuyhJcxnPCFosm9+Y78xC97tr7P+
nELQ49eJ4kFrWSBTMHPV6RFBEl5toa3Agm/ffV4LxVJ+7UIh7ttZ8FOPr6sr
iKCIFx31YpYsYKa+vBsQSPk14oxonjULSk+lhwj7U37cnHlrdheL+r6/E1p4
liC/PNmgcFcWGNkW7Yk+QJBB2PMaw4MsmHkY3812ImjY3UKoy40FvuvdVep2
E2S5MuCG6jEWNHjQmf4WBCkEjQWWnGHBZi/3wxeYBLUeCKp2Pc+CX8u/92vq
UO8rU5UFghdZ8KBkIq9MjaCvkw7XrP1Z8Of35YSgZQSVOVVfHQpmQb+3a3/O
Xx5yZjzwk3zEAss6Z3+XCh6SkjAsK0hmgd1hM3u9lzz0drR5zjGNBaNDmzgD
uTykkyh4OTWDBetFFj/7/pCH/gp7XTQpZEEbfTy4+BIPJXRvOX+wngWxlzLS
x/Wo5xed3tP5jgX+Fcn5qWo8pHg7bp1tE+WvvT216xV4KNWU8Jm1sWDy2J0z
zIU8lBV/55ZyNwu2vlod/3eAi17v+RjXN0HpNZ39a104F3V8PFjqIm8ILuaL
rql0clB8dujDT8sN4YSH0x/xJg5yvlF41UrBEBbWfpwbqOSgfpbQJqRiCLUH
S1faZnAQNyqjUUHbEJK8jpmsP89BMzYTPV/AECTv3ew/v4iDljb5zdvnYQhC
tXVepoxRdKybwy9yzBB8lG6VJKmMorIxO/6iE4YwutGkZ1J6FLmJafIt8jYE
o8d8x/ZNjaC8rZ/mqi4bwu2ipYE7C0bQ9mrdGc1IQ6gQ04nl6Y0gv5e9439K
DcEy8XSvssIwGkjZ8OWBtBGEvRy83dM6gDReX98bmG8EJteHBs7c7UbBO5L3
b7M2Bq+ktD6z1nZkUmVRvPu3MQT9FpC45FmP3C6dzROPNQG3BVJyYYHFqFde
Z07UfA3Mm+A37GkKwz56uGlobA1Iyhw4NdGJcWBwk/mRkLVU3utb1nWqEQ/W
nhBjGq6D62Y764UVP+PybSFnn7Svg7U9YuY+Eb24wDzAY/q0KTBDbPZ7TQ1i
fcfQukQfU4ja3/TzseAQzj5+T8P8nCkEdP6TbFk6hNMjM0j4JVMY0+aTEzAd
wvF9rac0b5pCadiZ8yOBQ/j6ZRVf53hT6FXYcvWE1DC2L6y+Vf3WFOIH3O+w
VUbwh9pG7tE6U4h8ZCfdwBjB1l2fty9+Zwq/fwt5bN44grfNHxN3bjEFuTez
TRJuI5i9c0nEr05TWD5gUvAhbQSrjbnFaUyYQq485knQRvE0TSjz7nI27Lr1
h8hLcfA11sNsEQU2nOg+J+u4ioMlNhnlBSiyQXljz5nrWhxMc3d/6UNng6z4
x51pmzjY+mlNjYMuG/iV5IbnfDk4XTtoUNGMDbEW701+dnEwg604GmvOhizp
kOszoxxcZlnMk9rChj/PFAVHpzi47eTo5IIdbPhSo6t5Q4yL+fK28HPs2RC4
m1VQtYaLHQxFFJ4fZYODs1376kguHtiUpKRxgg0P6jmerQlc7LnbhJ5ykg1l
M/M9DqVzceD5I1rRPmxobDUW3VjKxbmv6tb4+rGhV85BZnyIi4VR8O71EWw4
rvJ01RcDHo60Ut77KooN84R6tCTX8bCC6ytnxn026KzRnlY352HmVa4bPZ4N
jqtuekjv5mHXqm0+Io/ZUBtyQ77Cl4eLNy8Mb3nJBnG33uZjr3i4wmM9I+o1
G0wt5qV9q+Th+lvn2u0xG0TEvC/vauDhroYB+a5qqr5wmYYyKs/xWb9OHm5i
w3R5RrfYHx4WOT258WkrGx7FtXy6PY9gqQj1kWPtbMg1OPdvXIRgWluU5kQH
G/ZwVc9ZLSV4q8OJgj9DbLgq++eIP4NgG98U+7JRNgwekjGcMSF4X9x/0/48
Nrhk+56xBoI9u8xNBSfY0CqQOx1rQXCEq8LbRbNssDQfbb13kOAHV+08Pvyl
+h99YZrvCMGpycGi9/gRxMTXTWzxJLho8KflciEE97+uW+p1nuAOj6ZPdCkE
mk7fHdVCCB64JXBhVAaB95s65HeHYJKxdkWmHII39dZn8yIJ/kueuOqtRPBe
PyQ+7wHBQhLd876vQrDKaeKU30OCF+nKpBUqI5C08XRRSyFY5bQ/Z406gkNi
NMdFGQRrRRSFzGlQ442VW1g/I9gwn2iXayNYYGuqeSKX4C0/HLzMGQg+er/y
My0ieKfsHRlhQwSKw597vhVT+d/oTVG9MYLPJVILrpYQfNxX/48VG8Fvr7Xe
RuUEn4lzT5Baj8AuRTjbqZJgv5IE1G6G4IludohrNcE3uz703d+EQHRoiwD8
b39sTiRwz1YEIVc9Zf63PxarAKorLRBs+6ydH1VHcDI6W9tjiaBzUqJLpIHg
TNeso8k7EfDpSQfvfUdwwdV+MTc7BO9cCotvvSe4NHlpjtpuaj5dnINRjQS/
rbLcyXVE8DpFIehiE8FNg4Hfs/YhqHNbq4yaCf4sUBJ90oU6/yBJt4fiPtUJ
I4MDCDoitbL3thDM3azWMXUIgbyffnwBxVMeTpdeuCPwP3NlmkPx3K1IhQtH
Efz//0H8fwIcDPM=
      "]]}, {}}, {{}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 31.41592653589793}, {-0.9999998775510193, 
    0.9999998775510204}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]},
  Ticks->None]], "Output",
 CellChangeTimes->{
  3.4941606534849997`*^9, {3.494538049465493*^9, 3.4945380790914555`*^9}, {
   3.494538165874133*^9, 3.494538183892935*^9}, {3.4945386688974304`*^9, 
   3.4945386876853085`*^9}, 3.4945388163961787`*^9, 3.494539376789212*^9, {
   3.503066011797845*^9, 3.5030660255628448`*^9}, 3.526206082422*^9, 
   3.526219612601*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "If", " ", "the", " ", "drive", " ", "force", " ", "is", " ", "supplied", 
     " ", "by", " ", "moving", " ", "the", " ", "ceiling", " ", "from", " ", 
     "which", " ", "the", " ", "mass", " ", "hangs"}], ",", " ", 
    RowBox[{
     RowBox[{
     "then", " ", "the", " ", "position", " ", "of", " ", "the", " ", 
      "ceiling", " ", "is", " ", "given", " ", "by"}], " ", "..."}]}], " ", 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"ceiling", "[", "t_", "]"}], ":=", 
   FractionBox[
    RowBox[{"triangle", "[", "t", "]"}], "k"], "  ", 
   RowBox[{"(*", " ", 
    RowBox[{"Units", " ", "are", " ", 
     RowBox[{"meters", "."}]}], " ", "*)"}]}]}]], "Input",
 CellChangeTimes->{{3.5262076255832367`*^9, 3.5262076806967473`*^9}, {
  3.526207724908168*^9, 3.5262077326139383`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Delta]", "[", "\[Omega]d_", "]"}], ":=", 
  RowBox[{
   RowBox[{"ArcTan", "[", 
    FractionBox[
     RowBox[{"\[Gamma]", " ", "\[Omega]d"}], 
     RowBox[{
      SuperscriptBox["\[Omega]0", "2"], "-", 
      SuperscriptBox["\[Omega]d", "2"]}]], "]"}], "+", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{"\[Omega]d", ">", "\[Omega]0"}], ",", "\[Pi]", ",", "0"}], "]"}],
    "  ", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{
     "The", " ", "phase", " ", "by", " ", "which", " ", "the", " ", 
      "postition", " ", "of", " ", "a", " ", "mass", " ", "on", " ", "a", " ",
       "spring", " ", "lags", " ", "behind", " ", "the", " ", "drive", " ", 
      "force"}], ",", " ", 
     RowBox[{
     "where", " ", "the", " ", "force", " ", "has", " ", "angular", " ", 
      "frequency", " ", "\[Omega]d"}]}], "  ", "*)"}]}]}]], "Input",
 CellChangeTimes->{{3.4941611889706*^9, 3.4941612772198*^9}, {
  3.4945366387164326`*^9, 3.4945366627198324`*^9}, {3.526207014977*^9, 
  3.526207069541638*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"\[Delta]", "[", "\[Omega]d", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Omega]d", ",", "0", ",", 
     RowBox[{"2", "\[Omega]0"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4941613286218*^9, 3.4941613558282003`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwd13k0FNz/B3DLjCGFlESSpMWSPBKt3hdJWSpLC0JR6mlPSpaeUoiyFIpC
yxMqe0JaRFJ57PseZRnDWGbG2Jf5zu/3xz2f8zrnfT/n3PM5955zVzpfsDoh
JCAgMMFf/1dNTzCqC/pO6B/4/2qsTzGSv9ghtxNzFIeBDjkVbHwWHftOzgaH
ZaNCsuV0YFbemBkndxzt3h+vJvBzh46P54XLuUMi1K38LT/3a8MdoxA5P2Sx
DW6LyR/Hc5l9AXflInF+MuWV9zJ3+Iq+WxskF4/TzXq/9630w2HbF+ksdhaM
y6fa9sk8hDjP94iJYj5cf2be1Ip4htWWQ4xv94og5y1jX70oAR4VWxDN/Q8d
W38VLBZPhmzWwnZBwUrYVOsEirtlIKfTqKxyew2ivaIszCrfofB03DLbgTq4
UrZtzjjyHqNrdkimnmuEsd6UnBr3I4Qmk6WWrW7BZHiLAHtLPnR5R3Os09ow
zfR0nqz9ijI/nYofah3wORZQ2mlQhBX3mZNvhn4jVD9fs9bgJ5jjHe31Wp2w
sivGi+slyDkZVmiq24nEyKsnvwSX4GajfmL+tk5Ed/3I6YkpwZL3cefe7OrE
lh1Zk1YfS2B41X7G50gn7tpSrd6Ml+AJt0FOJbATMUHx9/a5l2I3u9zGraMT
a/7Y3W+8Uob4/k8lEqFdGDPe6pYXW4HzUftWnY7owvZN6ibuaRXQ29nl/T26
C3unJdU2F1SgJG7eep+XXTBt3Hiot6sC7P22YX25XXDusBLqUa+E/vsx66Ku
Lqwv87x95kslmm//9ctzSzfSJR9nzveogsTyV8Pd3d2Y0c+8PZFXDXLw9q+u
vm5ozCzYKVBcDbcwp9LOoW6se8nNlqypRoPg0le/J7rhJVZeY0yvxlN6oGPb
/B5sLrzNkZSsgWbG6fJanR6c5zKpKs41sDDSTC7060H81V3m9yVqEfx3tutz
FTqYs0yp2lt16CepgeJqdHhlu3gp36+DydKEpKsb6PCdF7P+n7g6CP2MHDLf
SscBixXZdrl18FRxvzq5jw77iVTVpCH+3Du0A6y86dDjnlqU6VAPgwMZCZQa
OnRMQqJ7jRvwVOP1zwuNdGRO11p12TRgRvh5X0sbv//N6IxBlwbkZoatf9tL
x6PWJ0matxqgKXUh22GWjsvK9wZc8hugULr+e866XgQxEr6lbW/EGEnuPnWj
F2035NNdjZrwOZ4Z4+HXi3sechrEugm3RDWsA4J68XD/upF1Lk2QqEr5+jKi
F+c9XbLW3W7CGqe0p+2velHqc8eh61sTDl5/e9imqheB2mHhh3c3I/vD+zKs
ZGBx0cF/uh1a4LV84vbeNQwMVUvK1V5oAfHdvM1BnQGdY/SBWt8WlO3+8MZr
EwPt9x1ez09sQXfjx4DsPQxc261g7TDcgsVjeUTdjYH4cscNEf6tcNcuylry
jYHVf+4bLP3aBlcdpecPihlQNImq29LYhsO6PvfmVzCg/Y45/8pgG7Zt1XEW
amZg+dp5C7fI/4KQYbzk0BADZ4cnhqfdfyHM0u/0d/k+0MqadoZvaEfSxZ1K
7m59uKB1cPG2jx2IdXsuPuzRhzOKT9fRazsQ4j4z9vf1PoRHqYVnDHbg4rWs
cqfAPnxNMl5aI/UbejdVvM2e9qHYkaEYYPwbRWGUBuWSPsi/jmWKZP5GR1rR
veqV/agOEv6wPvoPqgYpA9pr+yFu9H5Jb+IfFGgYm0dq9MMwSoGdmf0Hz5O+
zz+k14+PZxgPbtX+gXPij5A28344sZ7+oEh1gh5XHNbr0Y+T/uyE9OBODAaX
RcyW92Op5a+b1x92ob10Ptexth9l845XFiZ2oWKehU1BUz/EWmXiFPn3LC2w
fPHtrn6Ey1gZyLd24aJfxUPRyX48fKzgv1q5G1zvqqhFKkz8Hae+KTmrG9On
62JUvZgwW5Al7z7QAxtdhweaN5gYcK4dusjrQYogPWCjHxOvdkQf8pemwzF6
/NKOUCYWStoeH91Mx9fv8rst/2UC+lItowF03FE6xr1WwkSl4KPSiLW9WNQw
aF4sPwCmrPpHJR/+nF5cNSxfMYDKSztULMIZKDrL06tRGUCu3jHJh68ZuCq8
cFWb5gBmyxW6POoZaNbSmRw25Ofpf1UHa/Xh2T2vBNkzAwjbm1+9YKAP6ga0
OddPA7Aoadig7clERlLy2qaCAWzRudik85AJncX7Lff8GIDbWs9O+7dMbO+N
jlevHsBj/Y5g2X4m9oaombHoAzhE2aS324Gfa7aI9pQexHwvwch400F8uBSp
Hfz3IFQFLl4tNxiGyb8rT76VHYJZ2NtQw2o2dKIl1vxQGILSwqADHzrZUAqd
7m5ZOQSP91qPwWVjyrPemaIxBBGRHEMvWQ5SLYMcD5EhiH50fp3gyMEiQfaB
2VND6Ora+uLLMAcdTgU793wcggurmKmkwIXHciflP0eG8VO1Sc8zcgz/rLD9
9kCJhR3CYwMlilPQGDgg3mjBgj6tf9I0YBq5Nub5d/ezMJX2jwIlZhpGeYaX
9a1ZyE+2vPs2fRp2oRtaEw6zIJWif5TRNI0gLbFkdxcWCs+m1OSrzYDu/tlU
2pMFH1G1vN7SGTyfVb5rEc9CxTHPkjahOWi4yukLvmLh1q+gggKZObyvkORk
vWHBqrU2LGLdHCqezdgqpLNwbJZpRt07h1mDBlXmBxYOH6acWRI9B7uAoP8C
K1nY6yPzvXUdD4skWaJFUyy4LmgeMVAUIDV5d+/smWVh+OTlK4JrBEj42dUi
lTwW+rfrZ+euFyDSJXbCLRQ2xAx2nZXYwbf/99lhCTa8jBPSD9oLEKnpJ5xl
q9iYuVROtX8kQOb3GrddNmPjkSrNwUBEkJQ9/G03acGGjZuQ+vR8QRK807v5
n/1sTPqeEExdJEjE/81oCDrARsH7x60TSoJknsOy6mdObLg+G2/+a5sgEa1l
fS+9zAbj7MLZ9ecFCSU/Jn1VLBvPJwQTvCsEScv2nbs7nrKxqEi+LK9OkKR/
HPj95AUbE3uj7o23CBK7nB3S0q/Y+KNsOmXZK0jepna4C2SyUTlm8eolT5A4
xq7a+usn3/rmjEJNIZLrmVz0aISNd7HtiXp3hEjouLWD1RgbO4s81W4GCxGX
KzOjCybZOOVvHfj1gRCRuGSx1n+OjazN1tOasULkxKnhoMtiHBydimrOzhAi
0oc27tu/ggOr5HvwaRIiZ3Q+NYuZcdASIhOttUqYFFTVp+RacJCoKFcWvlaY
yJxj3Ti5nwPZIw57htWFSX7C6jXfD3DgVuBmGKUjTBbJ3ne7eZSDYPdtSvHG
wuTT5HHx8Ssc0I9+5ua6ChPxfIkd3c856DEJ2yiaIEyO2qtKRbzkwMjmxptv
r4VJ9rhRl0EiB8wouzNeKcLEScsz6FkyBwmGtqzmd8Lk3YuuerscDriehaXH
CoWJvV/u+epSDvyspkRi2oVJ8h7n51/GOOgNttvftYhCdDRW6mOSg9K392rb
l1DIF4nfrfnTHLxIDJtqkKOQqloH2a8CI8g/9MUkbwWFcB1sQ7/NG4EtpdbV
WZ1C9N32+xQrjoAUa/+WNuTnn+gfrtk1gt72N34a5yjE9vrsqNWeEfgYXLrx
/QKFdDp9jqg1G0Gn2dNUezd+P5WtlXX7R3De2jzrhgeFyKVv2tVoNwLTL74t
ib4U4vxNQ6ft/AiueWaz3R9SyChTXor+aATHj18xUvtEIZFxvT9jH49A4oPz
yn/zKGTjvqwb1rEj6Onp0ZctoJBLmRbDBS9GYDF1cc9kEYUMXrtZEZMygh2L
raTiKiikh0oPtiwcgYwPYbr+oZD6FW/F8gb5+a+tjxWpVJJtbSIcuZOLPr2Q
lR3GVBJoluuvYMKFner12y9NqOSIkapowh4u7luo7nDdQyVCG8UX5Ozlwj/O
u4BuTiV7pSuXNB3mQufla6M6ayphVB1UUzjHf6dCq2VcjlGJ/F5Xy/iHXDwI
XiHm6E0lN3b7P8uic+Eq1aqtlUwlNY6njmj1cRFyJ/5NeAqVqFwxk0thcnEw
2G5iJJVKSl4sjHjJ4iIpdNmqdxlUsng6LiB8igvvPyfrVuVQyevUnHMXJUZh
rK5eW1lAJVXSjG0auqOQ7HxtaF9PJSt/mTa99B/FTE6L2K1pKrlbuC39QOAo
xr60dX+eoRLOK40A2r1RPEnZ/mlslkoK3SR0ztwfRRVbwOmkgAg5LloTph0z
yv8vxMZvp4qQ1xttTb5mjILRvUY7V0KEaN49mdPeyt/voms6rSRCtur5Rcpp
j0G3MjuPaShCGpzldON0xqDiWVjUZiRCLoemNSrpjWE2SU25fKcISelpkl+3
fQxUq4rO5F0iRDFy/QvdXWNIEnEPPWYqQoTYDanWdmOQ6a9SSbMUIaVJqj9D
bo3BMXJteZWTCDmiWDkpWDuGnNU2Jxy8RMhoSUjnRd9xpNN6i5enipBoiqO7
lcoEGvetNYipFyGL2rP/FSqagJhMS7nyhAihXve12XJpEt8OW1v0LKURgTeO
6Z3SU1ieQQls2kgjbk/SQ6QLp0Bd8FKs2IJG8tQDRReen0Z9pkGE53EaWWjq
pnFLYgbiotkRIR400ra+qtbz8wyU5z9imd6lkYynUOl2nEXR/g+cTU9oxCFd
d+HyuVloJg6x77ymkZv+L3zbkuag8zx/QWUOjaQylsdImPMQma1yVPYbjQTG
+R9t38tDlnXyCnO+j1sNrk6z5OFkyd3ym3wrfP6cYXGIhwZxT24f33fD7H8E
O/Pwbk764qciGjml+5g9z5O/v2DdGvsfNKLst3g3LZGHMpfR0pD/aGRus8+C
xtc8yChzThbw3TzYVZOYzEP7GucRDt/3D71z2PWWB/8veU2HSmiEp2Z12f8z
D8wZi3alUv55q8OeCtfysDhtSVt6GY3kBoy71NbzENew4fIfviO3Oam+bOIh
7wmZki6nEbMEzSzDdh7ETf5uusL3x2vl//n28WCvm1u/tYJGHq3fFGY5wEPJ
qQuDZ/i+1Blrs3KYh+dmjqOxfK8zP9tRwOVh0w+hhjm+KYJ18ffHebimXJy2
oZJGfmdvO310iocNud0eR/n+fPrlBq1ZHg4eOfrXA76jVoiP8ng8vGg3bP3K
9/8ALiuryQ==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 2}, {0., 2.9764439706594463`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.4941613564054003`*^9, 3.4945363508986535`*^9, 
  3.494538824656005*^9, 3.494539380102544*^9, 3.503066115177845*^9, 
  3.526206090024*^9, 3.5262196319300003`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"A", "[", 
   RowBox[{"\[Omega]d_", ",", "F0_"}], "]"}], ":=", 
  FractionBox[
   RowBox[{"F0", "/", "m"}], 
   SqrtBox[
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["\[Omega]0", "2"], "-", 
        SuperscriptBox["\[Omega]d", "2"]}], ")"}], "2"], "+", 
     RowBox[{
      SuperscriptBox["\[Gamma]", "2"], 
      SuperscriptBox["\[Omega]d", "2"]}]}]]], "  ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "Amplitude", " ", "of", " ", "the", " ", "motion", " ", "of", " ", "the", 
    " ", "mass", " ", "in", " ", "terms", " ", "of", " ", "the", " ", 
    "amplitude", " ", "F0", " ", "of", " ", "the", " ", "drive", " ", 
    "force"}], " ", "*)"}]}]], "Input",
 CellChangeTimes->{{3.4941615165394*^9, 3.4941615805306*^9}, 
   3.494536615458107*^9, 3.494536668960457*^9, {3.526207099005584*^9, 
   3.526207121713855*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"A", "[", 
    RowBox[{"\[Omega]d", ",", "1"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Omega]d", ",", "0", ",", 
     RowBox[{"2", "\[Omega]0"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4941615969574003`*^9, 3.4941616178458*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV13k8VN8bB3CDIssMki1CocWSJAp5TqEkyr5lV4pKllLapBAl6ktSkSVL
tixZskuWskQYS7KENLaZOwwTYn73N//c13vmvmbOec45z9yPrNsV83PsbGxs
0QQ2tv9fjc5RvtdNndPlYvv/CwNOPQmfEXF9wAwHXf/v/UnxCR/ELYEU6/GQ
gHtCUi74uoITfFFL9eHAfbK9ryhR/CzU5kZJbcQtFymVzpL2hB+1SlGbcP8z
cn/hquANBi536vlxT4f0NLjG+YLXx+AKIdw2Z5nV/4lfheVd2gFiuBv0JMo+
JwQAxTBncRtu1R2HCxjSgeD7u/ugAu4Edpcs+be3QJS9DFRwc4/dT7VWuAvp
/dY8mrgrRrvaP1veA+WBkniE28f0rJFDXDAIZvdOG+Ee2vtQ74l4CNDOef5w
xR2bJFYnfyYU9uf9uu6N24iUrVOTEAYX7+wauIW7lNp2gCYdAXNNqn/icV9y
cip66PoIVE+vxLzDvf0bTUXm7WNwvZvKWY47Kk9ol5lCFEQZpOz7idtAKi1t
6nw0PE4iUKm47za9Evhk+RRuyll6sxMwUNdQemIX9wzaIn5XKOJO3nI67JF4
LOzKcAp5iPtW+4sG64pYqKlZcEnGbR06yr7jzHMYgVxCBW6+Rd+gyoQ48FRI
i6bhvtETe2NW+iXkyYQMu7NjYBE5VPqx7iX8fM01dB+3ir7CYojrKyC4ziWl
4p74UOYr9fY1FBty+E/gNov54XVK4Q3c2+B42pcDA6WTO7Ikmt8AfF30jcPN
zXHpz+T5JKj0OGxXhdu5fL2w1jIZUARHAA8nBlt2P1WxjUuBqJmkqXzcwdwf
dkaIp0FGl+9n6Y0Y7Dn+LLzIJw06DqpcsMLdFXplarA5Dbo2rjAe45bjUMpR
CUiHM9Fczau4m9bSVHq6MuAeL+H0JBc+34W4A9KRWUAtTmJNbsKgZN+1OMPx
LLj201ZFkQcDJx8Lpq9WNqSIux/zwZ0/RypvoGSDeGej2hpuc0q4jpdBLtzh
NWfJ8mEQP3RTr2T9PXy4zLj9gojBEUm7tGGrfIhK3mQ8jXvaXnMDd14+WCiz
NuiSMNg2G+iep1wAcsPLWhTcVzw15Nl+FsDtDP3c44IYCJ3Nf5d+sAg+q882
qgljYGuXko/Ri4EjoulDhQQGtEFLnlSJEqgf2ZK8YysGYU7c5yz0SuD5bKHD
E9wf3K9IlMaWgN4no+PukhgQvQ+H3tIsBfq+87/FtmHQeH/AfuOdMjgiZeua
I4uBWq7gRknuCmDw3zPw3o3BV5VGl3bVCniv5HOLjtul8EblXbsKeBq5Enpt
DwZPSkd8fmVXgMSrG+L3FDGg1OUNZphUQiLRTTdJGYM35BOF+2Kq4MQox9sN
ahjwsoIdjm+rhbO2q2v+2ni9PG2clI7VgvMebIWog69Xj5KLoHctkAPsv2bj
1s3qcx+srgWsHQ1OHMagPCuupEylDpLStfvdEAZzFrNVJ7/VwSMHplOYAQZW
7160+vPXg+Af27lLpvj5drxv7CFbDzuKsv23m2EwJnS53fZAPeT+vfG9H/eV
O0c7DjvWAzJ1FDa0wCDCfK6LK68eRh4JV6taY1D97+iP18afYcrm1dc9DhjI
m1Epnx83wK1tyPbzBQwkgo5rnU9pgPBrL5jpnhgI5CU/5ilrAJPkoYQILwxW
uC1UzMYaoNXQZ8XiEgaddWX+wwcbIUnEnmfxCgY3VYPX//5uBF7L6c8XrmPw
jSQsrIKa4bpIDUXsIQbXvx2CeMZX0D5SWZifha+fSsnvr9wtkGtm0FCfjUHa
E9XIVckWuBA6/K03B4PvxjsHnAxaYOLWi3bCewwUW4X95eNaQG8y86Z7EQYj
zbSMIs1WMN/2YtSqEoPjn9KJ7TfbYKXzu91yOwaixYLDBEIHzHAHaZguYeAQ
uWo5IdIBpif4i+uYGKSe/d3apNQBWaG9vmrL+HneUl7+2LYD5tvMC8T/YXA0
wOX5loIOuByUasgk0EEjwSYjdm8nnPOX8aDx08HVKcPx3XAn8HaH+/Yp0KF0
TK+tQ6cLdlMX+rIc6NBrGEx/crwLTr/cPe7hRIel9zUixuZd4PFS1UjehQ6a
tw65fjnfBYKqvioZ7nT4uHnvUt1/XWBbJeH+0YsO5foSMkWULlj65SAhHUiH
qgzMPza2G/YptHxfiaNDvVfiVrvZHnhBir4h0keHD1MXLzot9cDkUpY83wAd
0i5oVbqzkWGovFWJY5AOoR599t7CZPCb4jReHKaDoZvgqwc6ZFA5mzA2NUmH
DrtQsfeRZFDeK7tlC5MOPw0vb+FQ7gV+0unBG2LzsKhwmJR3uQ8KBNkbU53n
gX05R2Cr/A8Ij7t7lEFaAA2WS6nF+59A7e63et+9AG0h6t+a9ozAg+QY6WOl
DNAitbI/OzAC047DnP4VDHj30lXzDBqB4wEaC6k1DHjwPiqZZjUC7jECi7zN
+P39FD+xYPzz11t72Pvx+xUTRb36RkBjNE83bIUBR6fuF2w8OgrlDx2clo4s
gvTTmeUs6iik3uNS2zq4CDWuQVlFC6Ow88qNua8ji+C0f7Nd5d9RiJF/Qr01
sQgJvVof29h/gfydh21Tc4sgJvUogCbyC/4LLdKfY1sCoexdC+rwC9o68l88
37kEGxrOzdZG/4LpYA9W0PUlmGGODJNVxyBAqPHLhe1MKD0fXW+kMQZ28w/7
b+xiwr0+3Yxa7TEIOz+S+0SFCSJliZezjo2B21p9SaMWE99fZ/7ddhiDT2ET
LVcsmPCK0SsuFz4GtifM9xSEMsGQ3m7pNzIGl3OXdTmpTEibrmwhRo2DsHuL
546Ov+D94vQOr5hx2EgW3+/V+xc09cdvNcaPw9Hu2LHSob/QksijfPvtODhE
ifK5zf4Fuqld9NTHcZjbY7CfjWcZdMuWLBrGx6Fp8am267FlGHiwbyjw0ARk
PD2nMP55GYhSmbSJiQmwepav49W9Asj6wdD41ATkKufYNgyugF+0c+sYdQJK
ig5sk59YgV6CWObo3wn4Q2+qW2GswJvJcKeffL+h59kxWabIKqgUeLV3q/+G
SxYfrbQcVsFETyWnPuQ3sPINfCVnVyHSs8QjWW4SNMYPGq9uX4NplBfOu2cS
WNfj94mprMFxsfTsgL2TsPl2lAYcWgP25liqsdYkXOphteWcXoNAuasBy6cn
wZLd7ArbnTXwGFELM781CTw2QV0pA2twxKognbNrEk4ZOehLvF6HJZQzcSHo
DzSallwekmFDVWkzr6+H/IGtkiJ3PXeyofvcShZhEX/gYmKix6oyGyJ25n56
G/MHsq887lfVZkMKzu/fDGf+AZtPMzNjVmzI+k6hrWXnH9gpEnzEM5INlZSX
tYEsBXwrM3cprrOhm1J/H5xSoMD6kcrLdzcQEAo+qO2oSIEeNgebfj4CajMs
z7p5gAKk9Rm15K0ENNFXEVZyggKB5TFN9w4RkPBSNVL0o0DreqL+4wACuqrW
UCzymQLO6xZHFhcJyENdJvnZFwosPfsq82OdgGw1bj/m+0aB1Tin9mYudqSt
pe7GPkCBi6zJgmpxdsR+NI1EpVJg7wPlOGFddhRtFuLVKDEFJ2VP3QgIZ0fZ
PvoyV/2mYOLQ5/fH5DjQyPuGx99lp+GHX7zdQCAn6pzjnFXbOQ0lZd+3roVw
ojolA+NYpWm4cqFRSfEpJ0rObuSz0ZwGwdZE44wMTuSW0fTkp/E0fHEaZor1
cKLJxC/Rf65Pw5ZWYYEF1Q1oLrItZq19Gk6asOWHz29Aq149r3ffnIFdtdSh
b7FcSPEI17pH5Sz8p8pGLFrmQQXZOTv762ZBQsxHcZabF6kLm5qdaJqFO8eK
iQpivEjnT3ya4vdZSMwqY7zQ4EWnnuw5iU3OwkiURuxFf17kN2ASHyg0B6qX
L0L4LC8q941Vi/ScgxGPto61AT6kO3jQYc17DiS4jdeDKXyoXn8o1PvqHMjk
3ileXuJDLaIKA6ZBc9DGJdn1aTM/+lldFrTl+RwoT/pApjE/YuMZbHtTNwdn
ypkK1pX86Hiq7PlCUSpY/6krfxBOROrxRIUmSSoEqS7r5MUQkUzU6sQPWSoo
FAwMVL0hopVAshunEhXO8f+6FllMRHlmEU42iAprq/P1I8NE9Op4gNQlAyqU
almlKE0RUdhh95/3jKhg2zddd2aBiFx2H7bPtqRC+22bPicuEtpMoFutXaAC
141XjGllEmJjDgkLeVPB7235FR1NEpqdbelW8KfCu2ETu0uIhJr608xM71Bh
0vPQ83PmJBRYYGvy9hkVJhp3JxZcJSGPDAO+j3FUuNMrF0C5TULmCWqtba+p
ML3Zm3s1hISUwvlOLKXjv0cojXwfS0IjznX6JyqooGO6v+RoEQm1WeVxONXi
85PnZOiVk9DHk6/q/RqoEM+e7i1ZR0L/aV5FCd+oIGiz7m3WTkJByq6sgm4q
aPxY2pHXTUKXdpyqaeynwvdGe//hARIyIO3SoY1RYaFOwrTuNwmpbdiyykGh
wufaRjGfGRLatkqoEJujgkh77PwCRkJ/Jwc1jzKpYNL0yS1glYRyaqL3P+el
AdMiWlmFSwDFF9+ezxKgwdm6YHezTQIoJNuzsGYLDdLtH+s58gogpzi9vRRp
GrD5l51TIQmgk5Gq1H9yNEi7csthQUAAHbwvlSe4hwaXOdI9koUEkKA3c4+2
Og2y7g3uKdoigNbdJ6ZOH6LB0x8FqSKiAmja7vu7s7o0yOR5mOUmJoD6Ttec
D9SjgfcDQ9k4cQHUYJCjEGVIg3mNbXMFEgKoUDv+d6oJDWx0rtKLtgqgN/tC
08rMaUAzWt+cICmAHu30c2+zoYHfpirtS1IC6LqU8/ZfDjSQVV0z3bFNALmZ
qlr/dKVBw5k3rjW4Tz0gPOrzoMGnYpLqEWkBpFXaVd11kQbv5D9l5eBWmHpL
b/ehwfVAj+o13EKS1+S/XqPBF1ix15QRQGunjtk13KTB6v06f1vclGDRJ7VB
NHh2+sSKC+6eYkpdRQgN/vD6j5nirvtTziiJoEFe0iXZXbhzJB7vKoyigbVX
Wd4k/v1xJg4OuTH4fLl2B0Xivn9P+WlmPA2GxmejxHF7f1j/nJpIg+b40L4n
+PjtJjuYiak0iJf6ZjmFz1dfPEXxZSYN+mpWOJRwqxr7Ocfm0uDQxMtxK7w+
kkF6MdGFNBBMjV3wwOvHVSTc/KgUr5fI3gPOeH3nJ36vhFbSoOsZd44uXv9h
0TKV4DoaSD3earcBX58Wo3C32400UHOu1v8gIoBK7tjFXW/BxzOYeNUQX9/I
8dW1yz00aOV9Vb8LX/8bIu37PAdoYBXTxfDH94f7iTfnzg7T8Oe+4JgMIl7v
fNRuT6GB7gVFk3oevN5jggTrOXx/Jc2E5XDj+2fLuLrZPA3c3mZ43d6I1/dm
aMLxfzR4H7p0i0zA94+14oUUPEdHNvqkV66TkAu2mV0az6G9O2NOJiyT0Mkd
vw9IcOO5x1Dv6DcqCW2PeJgoIITBpmNWmSu9JBS/3UczCs9lmpeY5KedJESs
sv3OK4pB6/0X1X+/ktAydfcGLjx3xWrlNOhWkVCnZdulNXkMzof3Psx5Q0LH
qMUbb+3CAJp/6PXFkVDVw8Tkv3iu6voyytMXRUKZFd49C3sxiJMR5bG8S0J3
ZQR1pg/hucai8bzJGbxfzFrx9plg8O5+4J6n/Hg/sDSufYTnnjGZoQ49dhLS
qz7qr4vnGveArT9blojIPmrvYLotBneJV2ysRogoQnVTzlV3DHYymX4X3xPR
5NUqI6FADBRGZo9KGRBR8tr2RyZpGDz+3CzUasuPlDzEdQmZGEht5hnhP8GP
yr6R5ovxXJKZFLJT8xA/+pb0z04yHwPTXbnxIM6P1o707p4px3OyuW3rwX4+
ZB8W8TW8AwPseWGQqTkf2kzCuBtW8Jznk0smaPMiztrX+TsS6IASX0q9InKh
Hzr6hiNv6JBO5yxUWNuI8itmR1+l0MFd3tyuemYjsi89LCSUSQeJVdXgTV83
osK8katsRXS4dNFAWjZkI3JK2KE11EyHksy4Ls9/G9DHwJyGuAU65K4dUNq8
xImimBaO5kt0aCGOHpCY5ETu1/4t8i/TwaB2m71KLyci+prsDF2nAwXNSt8t
5UTnLtAi/DfNg/2KUE3VdU4kZLP/tKn0PGxJp1hW/+NAF9UrBzadnIcHRULO
0wIcqK6TnPvRZB64Unj8xtk50JbLWNB503lwda56OcVgR7Xp8gqNVnhO4HOV
lBpgR5tFn/rdc5kHZvmGGJlUdlS5fJaXeW0eLmxmPH+uwY54a4mHJ5LnQWSs
VZvkSUAuZ3YLxLydh1/I8VCKAwGVMPXGj2TMg1C+3yMwJSBn1cCIpJx5vB8d
5EzRJKAPKeNk+9J56DKOPrO0kYDOhHz0/t6Kj1em238skw3lnHBLrlmahycb
AjWXJligriSrC8vzMFdR9+N+JwtqiKODtavzIJ4382V7FQs6ux1FP7EtwID9
bpQQwwKGo13UZ54FEHURK/DXY4Gun+ntL9sW4GIS3970jHXofKVr23VsAWL6
u3ribq6B3Z21RfMTC6Ab4FjgdWENxpyrYrpPLkD2eYvU09ZrwJDT6ugxXYAk
nfMPjNXWQDz/wLE++wXoNPtlKjDzD9w+K6n/9F4A/2+/Jwuc/8HijITAZNwC
mOScPTpsuQqxiX+aE14uQHUPR4W13irsP10cZJGwAEo3X30Z3bcKvkUmtLqU
BSjMT7XZTVqFuRv3vr3OXYBQ9pLViJYV+L1hMtKsfgFuBtVFXtdfAbJ04abq
uQX4+7FGP1B/GUosjnPE6jOgVs3yFKcvE8JPfgyVPM6AzWqnL6ufZYKD3m7u
9BMM4HMpG71iwwT2/bz8pacYwHvd5xm3LhNOCXWI9NsywNbkUGktLxMondZ7
JC8z4FJg61atrCWQOOVhlvacAcaXbDt4ZhchyDA0qXiSATeZlnPpUQzocrrg
oDrFgJZ7wtsfhDBA7tpJ8dwZBiRZzkZduIm/nyIY8xZjwCDRZu6kBwOEVxPD
/sNzYG1NUpO/Lp4P80ov+xAXwdyh3h5heF2FKNpKGotgiEwK/rNbANkho/63
oYuwnXV8zPPIPDyq1863Cl+E9/yeni4H52E+UymM6/Ei5DQPnXHaOw/1fkT1
i08XYawz3NVHah7OcndFq71ehPqm+k2z+Ll6t9/u+KeCRXi9J65Oq5gOKo/O
lw7jufNX969wljIdtDRDYsXVlkAuZW0iVh3vw27iGonqS8BhdU8nWxkD/6j3
fTKaSzAQM3e3QQGD3N/9Ert0lkCFrFjIJY7BtljlFI1jS5ARtRzxdJUG7PTe
PAv7JZi4wSfi8BT/X8ne3fzk/hL8tbp+u7+OCg7bOpYJ3UtQHGiR+lh7DhZb
noz5BDMhc9SeY9BqGuI5na6ay/0FZ/cz5umbKLB5uCSVveEvqHeGHQwRnYQN
d4ItD/niudBJX7rp6ASwZTnljwmtwP1z7bvfNoyB36v8J0L1K7Bgqcjws/0F
1Yrh3ILeqyCuxCcsJzUKgkZ+SveJ/8Ckv2NjkfIw/FTu7A6s+gfnFb8xCKo/
oeANyE04rUGGcVfI9IMf4JivISi1vgb572R2rG8cgHuhKcE/s9ehP2Rm5WF0
H+RRpF4TjVmQH/zA6KRpL4QnhroMn2LBA5MTJn+NeuGs+Zz8ezMWLNY7OmYa
9IJkVVWBiQ0LnIzXk3m1e+FR9JmmSDcWvNu59cWsfC9c0HhJ5wlkgWLqoROk
f2TYHiJsyJXBAortf6gziwzrB2/z971jgXiIcXdVGhkG5sa7MnJYcNBA3iwn
iQxPbT44HitkgU2GFE/UczKw9pj7h+J9o0e01tIrmAw/v0e/4ehmQeXesot3
7MjwMYzp3k1mwQ5xe81wSzLEajvvftvPguYMseHY02Q4ma5SfHSYBd29rI8f
DMhQcaP9a/AUC6wJuhFcamSIUz4QbTbLAse2e0KyymTwHUuwlKWx4EvPtis6
u8iwy/jSSB2DBWG0+Dc3tpGBk9CT9pTJgtjWyCsvxckwWqLt5bLCAvvrvAJV
wmSo8nq7V3WNBaIB24NGSWR4Ic27yGKxoI02UrmRlwz/AzFDJQg=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 2}, {0., 4.031619940495049}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.4941616186726*^9, 3.4945363617807417`*^9, 
  3.4945388315336924`*^9, 3.494539385911124*^9, 3.503066150651845*^9, 
  3.5262060997790003`*^9, 3.526219639384*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{
  "Now", " ", "we", " ", "define", " ", "the", " ", "steady", " ", "state", 
   " ", "response", " ", "of", " ", "the", " ", "mass", " ", "to", " ", "the",
    " ", "nth", " ", "Fourier", " ", "component", " ", "of", " ", "a", " ", 
   "triangle", " ", "wave", " ", "drive", " ", 
   RowBox[{"force", "."}]}], " ", "*)"}]], "Input",
 CellChangeTimes->{{3.52620713396708*^9, 3.5262071990765905`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"xn", "[", 
   RowBox[{"t_", ",", " ", "p_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"A", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", "p"}], "+", "1"}], ")"}], "\[Omega]t"}], ",", 
     FractionBox["K", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", "p"}], "+", "1"}], ")"}], "2"]]}], "]"}], "  ", 
   RowBox[{"Cos", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", "p"}], "+", "1"}], ")"}], "\[Omega]t", " ", "t"}], "-", 
     RowBox[{"\[Delta]", "[", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", "p"}], "+", "1"}], ")"}], "\[Omega]t"}], "]"}]}], "]"}],
    " ", 
   RowBox[{"(*", " ", 
    RowBox[{"n", " ", "=", " ", 
     RowBox[{
      RowBox[{"2", "p"}], " ", "+", " ", "1"}]}], " ", "*)"}]}]}]], "Input",
 CellChangeTimes->{{3.4943335347200003`*^9, 3.494333586778*^9}, {
   3.494536527121274*^9, 3.4945365414557076`*^9}, {3.494536861403699*^9, 
   3.4945368719137497`*^9}, {3.494536989967554*^9, 3.4945370102305803`*^9}, 
   3.4945387180833483`*^9, {3.50306369570008*^9, 3.503063705676078*^9}, {
   3.503064062218728*^9, 3.503064069047411*^9}, {3.526206424493*^9, 
   3.526206448227*^9}, {3.526219543149*^9, 3.526219561727*^9}}],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{"Next", ",", " ", 
   RowBox[{
    RowBox[{
    "we", " ", "add", " ", "up", " ", "the", " ", "responses", " ", "to", " ",
      "the", " ", "first", " ", "50", " ", "non"}], "-", 
    RowBox[{
    "zero", " ", "terms", " ", "in", " ", "the", " ", "Fourier", " ", 
     "expansion", " ", "of", " ", "the", " ", "triangle", " ", "wave", " ", 
     "drive", " ", 
     RowBox[{"force", "."}]}]}]}], " ", "*)"}]], "Input",
 CellChangeTimes->{{3.526207216095292*^9, 3.5262072447691593`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"x", "[", "t_", "]"}], ":=", 
    RowBox[{
     UnderoverscriptBox["\[Sum]", 
      RowBox[{"p", "=", "0"}], "50"], 
     RowBox[{"xn", "[", 
      RowBox[{"t", ",", "p"}], "]"}]}]}], ";"}], "  "}]], "Input",
 CellChangeTimes->{{3.526206302407*^9, 3.526206379883*^9}, {3.526206453936*^9,
   3.526206456877*^9}, {3.526206492523*^9, 3.52620651045*^9}, {
  3.526206540487*^9, 3.5262065424890003`*^9}, {3.526206626197*^9, 
  3.526206647449*^9}, {3.526219565858*^9, 3.526219574613*^9}}],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{
  "We", " ", "plot", " ", "the", " ", "response", " ", "of", " ", "the", " ", 
   "mass", " ", "together", " ", "with", " ", "the", " ", "motion", " ", "of",
    " ", "the", " ", "ceiling", " ", "that", " ", "is", " ", "producing", " ",
    "the", " ", "drive", " ", 
   RowBox[{"force", "."}]}], " ", "*)"}]], "Input",
 CellChangeTimes->{{3.5262073298106623`*^9, 3.5262073617368546`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "[", "t", "]"}], ",", 
     RowBox[{"ceiling", "[", "t", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", 
     RowBox[{"1.5", "T"}]}], "}"}], ",", " ", 
   RowBox[{"PlotStyle", "\[Rule]", "Thick"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.494331816102*^9, 3.4943318348570004`*^9}, {
   3.494333591491*^9, 3.49433364446*^9}, {3.494536421181681*^9, 
   3.4945364239279556`*^9}, {3.4945370257151284`*^9, 3.494537045002057*^9}, {
   3.4945370921227684`*^9, 3.4945370923927956`*^9}, {3.4945371561391697`*^9, 
   3.4945371571742735`*^9}, {3.4945387536549053`*^9, 3.4945387538379235`*^9}, 
   3.4945388638689256`*^9, {3.494538983414879*^9, 3.494539010916629*^9}, {
   3.4945390971812544`*^9, 3.4945391062481613`*^9}, {3.4945394152960625`*^9, 
   3.4945394216696997`*^9}, 3.503066400450338*^9, {3.526206127133*^9, 
   3.526206150807*^9}, {3.526206325057*^9, 3.526206326443*^9}, {
   3.5262063607130003`*^9, 3.526206388717*^9}, {3.5262077842150984`*^9, 
   3.526207784961173*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {Hue[0.67, 0.6, 0.6], Thickness[Large], LineBox[CompressedData["
1:eJwkWnk4VP/3l0Rkyb4v2XczQszgfbIlCmmXNqVISSWfpCJJyFKWoiylJCpL
CIm35Q4i+1K2QvbdJCHV736f31+e1zPve89rOefcuZ7Z5HLe0ZWVhYXFjI2F
5X9/Cc+ICudbaabHFni7bBvnUNGu/cPMklsISwQdWvg8h5Iak77WlMSgXd+n
Xe4PzKGNPFsPvS15htaKlS2lL8yh7a+jE9JL8tCX7ptBphLzaMSvxDC1pAr9
R8QblbnMo+RyI3bnXwRy/Hz8SrDHPNq3rqhNeHM10uNSvG/iPY+qI/M9QzNr
kczW8798bs+j9KdvnnslNKC2LHl/nvR5lP/dPiSlpA2x6rabBo7Mo43sfOev
HWxHX9NSHfln5tFZ1ca9B3+1I8WQV5JhP+eR4rkdCoKbO1Gt01DEFjYmil20
LgvO/IKqNh+56SvHRHNi69NOWHchid5bjJ0qTLSDXnMXRrrQlzz+k5zaTMQW
YHlwZVMP2nm88LE+nYkuc5otnEvoQ61OkXed9jBRq8aaHpstX5HarCzVxYmJ
tO3KK1Q6vqK0p8nC9seY6NL2lBqv9f3Ixs415rMHE2lESsepWwygI62iFok3
meig7PX14jED6Ntf1qrqYCa6k9PrxzE4gKwnfG6232Wi762PXYb8B1Hw99vN
8XFM9FhUgpJc8h1xNQyGlKWT/B+V21L4h5B9gn7NvtdMZCVz+nTlqSFEVzHU
qc9hIqZifvII/zDSE/x7dVsxE1m/dHp/5fQwUndj6bcrZaJkjTWdXKXDqMBz
zQVqBRPZ6Nrx6LiNoKbwG3J3apnoScGCakXpCFoU92cs1zPRouFji92Co+hO
JOOZVRMTpaIxv//KRpGQ7ISCZwcTLVVGPuQUGkP9not7rL8wkZ2Vft5j9zEU
ofuj73c3E63sCJzAQuPIeTxQZeYbEzk0q7I7nhlHJt1bgzQHmejF7qZNQ3gc
0f4zvWA+xESrnZdNfIQn0FPnV+W6I0zk6CR1cL3HBJqKoVitjDLRy75K70fl
E6h7orozYZyJ/h5zv6cpMoluLd635p9koj1DfK/LPCaRc8qHi8emmCjj9Lsa
h4pJdLX4kNadafL8hPP3QZEplOJ3cNftGfK859p/3men0GieR5HTLBNlzmdI
cFROoYSrwiYcc0zEctnBIEF0GrGu5L0PI/G+pcVdGuemUVptLM8wiV/7JZ0r
rZxG5qcFBUXmmYj1n3movdgMUqp/nyFN4gOBE88Hzs2gj7dP5/4mz2etu19+
qWqG9O/0hhwSs4Vu6V0nPot+Rt5/RCOxE/fXXw89Z9E6DyfzxySfnKggQXVi
FvnSv0y2kHxvhcaJfuUm59Kzwu8rqUe73k0pfcscOn32aG85qbeL23izl8sc
WrLwXbpC+hFkx7fVKGIOcZobfmCfYCKde4N2rEVzyJDGKXxmjIm6Wwqc6wfn
0M6s6/OppN+3BUPPxPLMI9p3na25ZB6Uvc5XDhvOo967rxdiybx6HugEK5+Y
Rxw6J//s7Gei4C+ssbMR8+hOWNrO3j7y80MZ2Te/z6PieJ/oK2Q/BCddK7Xh
ZSLRMiuvYLJfKN/s6wWNSB1UOzf3VvJzl8WRtEjSl7NywVlkv1Gff1zwJPt2
+W1f8kayH3uHE1kNSR5hEQOF2wgm0nU3l6kz+oGMt3AO6H1gor5MEc2Ykz/Q
5nHFuYlCJgqZGjdyjvqBLouf+HM5j4m+nr+3d2boB4r8MiC7IZO8j09fuMC9
BRSlsUNZl5wvodB7VeuKFlDho6q4+ShyPh6bryx9W0AHO8YK7oYx0dvyjNPf
dH4iDc8lTQd/0i8uH7PXTT9R7dWYTZKnmeiktJpvyq+fKPtyg0kuOf8zOr3Z
0bKLiO/+HXd5cj+w7jWT9j2/iCJjqdQHO8h9kMK7ZMn3C53hOxPC0GGid7kV
2kZbfqH5ugRZA1UmAsLbVfPoL9S/ZeVEILmv9ox3twpkk5hRujtrIxNd25z+
5pvdEjqxdv29fbPz6FMNOuEbuYwET598wfKC3K/dzISz75aRxM/Fp4aJ86h/
Kq356NdldHjnH3G76Hm0wM9taqW9gngkSzcK3JhHUs5fxAQbV1B4VC2w7iH3
6ZxX42ueVfR0OFwkfXkO8YinGvWH/0Vbo12vmmrNoa+htq1c+X9R1ih7Tpns
HMpaWTij3/MX9fOw7lIQmEN2vdsSw9T+oamhk3v0p2dRZMr0X73qf+hPka5d
1LVZxBEjNUj4s0CyRiFb/P0ZFCLuli5evAaOOn/Ms4ifQqHK/6hVGmyQKqUm
+1hvDHGdSKx38OOEkscsks4ve9DZ8osiilGc8Fzju+7HQz2oQXr78V+pnFBl
1Dy4j68H3fvyczGpjhPsom/KffHpRiJ29vKT4lwQZJjhEbmtCykYsfreLuIC
+8xC7oy5TmTM56b8/ucGeNj2QG2zWytKPmt6IYKTG/Zl9wtFb2pF/z4KfTgm
zQ3ffAd26vS0oMqgil0cltxw9ETJmIp9C7Jekbi+J5Ybcrz3rqrQmtHe4Ya2
GV0e0GkP2idJ+4Q8SzbfVPDihTwbkTvPDQjk1CH5LuU2Lzw5u6b2dm4Vspxd
Oyn5mBfq/1YnaGpVISmF9j1C1byQFdNk36xcierCvFXXSfGBA3Z3j1UoRypO
BU0jNXzgzt/JbxpShAS8k9hO9PHBLnadV70PC9HfiNtG35h8kN8pWq+R8Q5N
9me2TPJuhCwJ+vrvzfmoUsiPPmS0EQQr406P6OUir2uSfB1RG6FKfzuCp8/R
qdAotZhHG6GkpNJVZCkVOT9Ya7ErbSMc9ZU5dd3xKdqWM3ml4T15P3U4yK2Y
iGSGSgYZwxuh4+P1vM65SPTJ1vndOzo/jN0cSexhv4krDzQ3e1vxw+GvVgbO
RDAucrWY1N3FD0clRE22XQrHz/w15bJP8cOtrccWMltj8NW81dD0+/wwUeu5
R+5NMlaVTDocP8oP5ijo6frADJyNIx0UmfxAn2GJu5mbiQ1OBpjnrPIDpVH+
1bW+V9jyzQm1Wn4BWF0dbvujnoVdkPrPX3QBuGxREaRql4sTTxSG778nADOy
T5hdZwuwwvoM/++PBMAkvHeZbbwAZ75+dPF8mgBwKann+594h4t/Xj9w570A
pLsLXXXfXYg771goFg4JQOWH8hY92WLM/7qlRMRIENgeevL/O/0BxztUZaWa
C8IeF73Zjo8fsNzP/KfadoLAo8s+L6xeirVN4+9YnRCEXbb/aF3DpXhH85Hd
PhGC4FTC0pNmg3Gbt4MVa7wgyDtuD/ybgrGTuJlRZKogVNgl9Df/wNjdRUn2
RaEgXOsVbLlsW46DFyYnOgYEwXag51HicDnmSejrOz4lCDHsj7PtuSpwrElT
8/SiIMSzli5Ya1fgZ8Fv363jFoL7MQWigt4VuFzMN1DfQAi4jZZZ1H9V4G2l
Zy5XgBAc5T3yVlekEjced3bbaSsEW01cRcP1KnFfJrJzPSYEHG9SgwzOV+IV
Y3aJuDAh2IzdbO73VuLiDp2HHrFCcFzJOP/+QiW+4nlQyCxZCAINeU6t5a7C
iymveWdzhcClpPUCMqrCTNbda7d3CcFyjcUd44gqnPv4WoDsdyEY9dvvO/6k
Cnvpvfjzc0oIsn3xM/78KjzjuvwrlUUYYtU+Nn/5UoUna1OmVlWEwajHweG0
FIEzj390b6MKw40ryu8ENAl8ZoU5kkEXhvPPPw2b0wk8pmE1sM9eGJKXezhN
DhA4nTh/ROugMDi/ZBRwnCLwqcMJPWtPCEMxb+mjw5cIPBQ51ZHjIwwZzSHR
OeEEfqYisvtOgDA4df3wyIknsEs5aj4cJgy+Zt0btj4ncP98dB1XsjBMlj+y
lHhP4JSwD9sG0oUhwiKxyJUg8BGFEaIwVxjsP1s+39ZI4N49RvgkQxjGvJqz
2/sJ/HjaxZjeJAxrnI8WB44T2Ck4vJi/SxhY3vnzNswT+Evht7yyKWFwW2W9
YbyGgR86cFLjFoVhVI0//OR6Bt43rpvlwSICsqHFn7T5GLhdIvilmJAI5MHf
9mxJBo7Jy1aalRaB2xy1ce6bGNhxR1cqQ0UENj1K86tXZmD+YVa5RKoIJL+V
W/dZg4Gbr2smXaSLgN7pmtwICgNHieyT2G4pAtM/d7PO6zGwXbb/Q1l7Eei9
0XqF1YiBeawzhBYPiEBwfHl8lTEDf+pvvf/JRQTCKQqj+sDAd31XeZ+dFYEJ
lnsTTuYMbCOgHO7rIwJDs6oaelYMzPnKntMhQAT4x0J0q6wZuNbcN1g5TATK
fqTe5bRl4Du9qWv/xIiAV1xc5fqdDGx1+VNAW5IIdBy8fLLSjoHX8S7+yUgX
AYtjAv+2ODAw8ULWLyBXBH5zlMp57GLgW2j70r4SEWCu4T1w2JGBzb5cvKzF
IP0pK9i8cTcDr7mQyFzbJAJuUfvMbpO4nLP6fPcXEagZ9hAoI7F/6uxUzqAI
OLGA7gcSm9LFz9yZEgFFwTmdmyT+22Y2enhRBJzLryfwkrj07NmTeiyisBg5
uepK1qv8nrzvG5cobH5pPnaJ5FPt1GIdJiwK/dfHpK1IvnUta+n6cqLQEnPv
0VdST6O1gVa/uii8Tqw7hEi9rdhN9q6+KDwO2XTsDOlHp8FjfgMQheSPmunH
tzNw95uGtQM2otCbG0pV2cbAXxVZFu/uFYUQuVKWUgsGHnysO2ZwTBS4hP+J
KJkx8IiAa/fAGVEwWf3hcxwx8AxLXdmWAFFI4Xwjc5TMk/nfas5gmCj0NXac
UTRg4MUZ7WcRcaKwaapjfbUuqbc35s73TFGwzokwfEH2C+ueat/IAlHwkOep
HlNhYPb6JQ+jclGw/DOSyKfIwLzFhx2iOkThhZDQRgEpBpaJUxGns4jB4KFb
aNMG0s+dJZnRe8Wg2PTjwU2jBDYjphNNjokB1f51bewgga3oclFjZ8RAnRE/
seErge3Ubl8yDRCDxY3zv7k7yPlaZ288kSkGr0J/lEVVkfN57aZ2XIEY2H7u
NtuHyfn+kScH5WKQfiXgpU4JgT0HxNY96BCDa9OfI+XzCHyjdLBhK4s4xOoL
VhuT8xyoJ1w+xSUO4XlChxufEDj41ba3D4XF4d6Gx89vJhE4MuH1g2l1cSCa
FKL2PCRw9MZvIfH64jClnd38XyyBH9zh9zMHcWgspv2ruk/g5Ms+RxP2ikN+
ZZDpV3KfpE693GVxTBxK/O+2Z4cR+MWJHvPZM+Lg/Z+hS24Iuc+6eQweXRaH
3EL91KFgAmftAlXLAHF4Ybp3h+1tAr+tvSgxFyYO3y+3CY/eIvA7lMb9OE4c
dMUf5RYHEvj9u89/LZ+IA8sHv2biJoGxFtf8XKY4nO45tomLxCvx3udG8sWh
43V49/0AAhuwfRvvKROHL18PSduT+OL57adaasXhwTM+C3MSZ3XnDVa3ikOX
08H08ySesJQ5+qFXHBREtZI7SKycG9KTOyIOt4dCr/uQ93eR+rE/fU4cakWN
43eTfJLvHG5PXBGHaZ9kU0+SbzezxiGaTQJk1I+W1QQRWOSIbsMdXgnYKrjT
5Tip1/Fj4vbrYhIQe5F60Zj0I0KPo/qivASEvCrSdSL9qk25YOamKQH+WR7D
JaSfbBt6yw4bSMAG4fe1LlEEBh8r+m6QAIswQTGHaAJfG8gptLaRAC/Mw307
jsBFOyT1TPdIgJBgTDdrAoEXCm/nbD4iAXt3ChfWJRKYojCnqeYmATOXcGsf
mb9HpFOGzEWyXtNTZ5M0Mq9lQknomgSIF7fdnMgg8OBJnVTOYAmIyL5zbiSL
3N90tscLCRIgN9hIbyom++GFp+jEMwkY2CfrUUb2Yyt/V8y3NxLQmqawwlJN
YJuxN+F1FRIwmOlTGNRG9ttuMc7yegnQPPtTprabwJVlgbcLOiTANp/nwAly
Hozi9t94Mi4BWFYjMo1JYG+WypW4HxIA2pMZdr8JnOOh+d/dPxKQ9fpx+242
BlY1W+Plwy8J62mfz/qIMvDJNx5THpKSkKX9rTeOfB48Eet0O64kCYPTaseF
NRlYbDbz+A4jSWhjLIcakvtij5Pw163mknBla6r4V3If3WP4O23ZKQlqF9Vj
Rw8yMEfint3yxyVh/KYJu/olcl9Y/7VYCpGEU5Z3bgVnMrBuvlvFdLQkeCw2
S7kWM7CnbJvJ90RJyOCjdWXVMvDwz3SDxhwSz+bJ3Bkjn1+pu1Sff5EEsST7
suNa1Xgj74fnCYOSkGDw0yMHVeMdvsqboqYk4bylS4qXYzUm7H+LX2WRApni
Y4HWvtU4b/X5BgdVKVgOavrt/qkaB/wLPyaoKwUP656Ljw9UYzvWywWddCl4
2fQotftXNR7jsDx62F4KbsoFnBRVqsEygsNvz/hIQY2Cg8j62zV4UriBQztA
CsLXjHNqJNfgIrEC5/lQKTiI1y4ThTV4t8xt9itJUnBZ2bz56FQNDlFTcrpN
SIHSX/TB9FAt3qvJk23dKAXbTflYVa7UYnmdn2u5v0iB45bk+dC4Wlyqx3gT
PSkFTrHH3CpaajETua55IiANidqJLmscPuLD+9Jevj8mDUr2m94KnKzD6gcj
/lw/Iw1vLbY5NYfU4aVDlx23ekvDb+mzXTxZdTj6uOVqzR1pqCiwpXKu1OHa
s8P2HVnS0PrFz5E9vh7r3lL6NbtKfu670dxo6hP+d5tnRx67DNgd+DrFLt6A
P4X8fOKzUQYsebM891k14NORDJs/CjKw/WSFuF9qA05McE3mspUBTg8FqZ5j
jZgjJ81SKUEG8qzSLCd+NmGJ+w/4Sp/JgId/pNcr0WasefFO154sGbC59Tn0
jV4zdtBzPxdUJQMbikffxZ5vxo+KNOO+T8vAlcmKqskx8nxF3tBTM1lwS/zT
/3i8BTu0VtySmZIF+hytJHJTO3bJe7vz3aIsOFE9jE9ta8e0upYN6SxykLGe
LSLwXDve8aqyw3SDHPy2EDAOed+OL5x77u4pJwfWu09/Lt3fgd/Pn77fYCMH
6y/lBdxI7sQ7V2b676bIgWKeSvJ5py7MPLl2w/XncnB9Ln4X9+0uHN8kqu+Z
IQfB8hPCXdldePA5hDqQj5SjMY5aa9i7sY99NFW4Rg5c5Td89s/vxsnP9QOT
Z+TgO+v1rnbxXjxjd00h12QT1K5VOfCC9RuOesZ5qrNnE7SYrTfPih/EXsIQ
nq2rAIwpFeJd7DhmKRHtm9+iAKK6n9tSssfxvWOzWnomCpAY/PzCjbpxnPsq
ualomwIINx8xl2SZwMytfwQqnRUg1kk0t/7MBPb2fJ/QHqwAck8MsxpMJrFv
jV76crcC3LjHG/T2yxTmOse9RO9XgA/nxepa56fwI4Eh6xvDClAUZCYxwDWN
3x+OmWCdU4CBjWVyNcbTePXHvBb3OkV4yPvna17KNL4hl50vo6MI327pvh09
PoMDfdUqzW8pwin+I0J3O2extrj0AY0QRTgvHXc/dnIWdxdtnBGIUATvZon1
lixzWHfpl/jgA0UY2iq6XUp4Dn/3qb4QkKkIYicPODiYzmEL7xObSlsUwSLY
+HNN5BxGzYbVL+YVwe2dyr2xT3OY43xSgIGcEizk8KxEqMzjfN77IjJKSqC6
3kUmhzKPj2UFvV6nrgQJHNnFVUbzuGja40v7ZiV4McHzqdR2HrudpVEubVMC
nTinFabnPK5z//wt21MJLrMbUYTfzmMfzvrLDy8pwe+AV9cU389j+YyyDf5X
lGBoOr5XtnIeXx1L22IXqARPeTxiu1rmscZp76ipOCUQ3yfO6TA3j8NP8iO1
UiVYZONbXqvGxE6XQvn8KpXAnzuVMKUwsVrgmv5PNUrAY+R+zXkLE1enzAd4
tSqBeQT1ELJk4jU9LZWFo0qgrX41NeEoEzePb4/hnFaChq2b4gZdmTh5qeLE
IaYSiI3Udmw4y8TGIm/Z/q0qQev1syt//mNin13RVlYCytBr+ET6QCQTWx7j
Eo0XVYam/q8fH8UwsdD5wNFxKWXIOyl6oCSeiXPDL4ZEqCjD6gmztXGpTBzw
eOLAN01lKLFIjN+ZzsR2mS5qVF1l6E89y/L9FRNP1TjWtRsrg4YZ1epZPhO/
76x7pGymDP481WkNRUwcOmzmcWWbMvAU1XW3fWBi5bWbuaUclYG79lPTRYKJ
f/K/6j23XxkW7TJFNtQyMSGn8AY7K8Pld91wo56Jj5sK2p04rQyslLy9Cy1M
TNl5V6bgrDIMex1sXGxn4r+H1s6yX1SGx7TnVm2fmbjhjB8+8J8yMCy4QkO7
mTjR90dU5jVl0P4v+bh4HxOfCfE4tnpTGbSeyyYHfmNio4ffKXZ3lMHl7W8e
xgATd+a3tczfV4ZCh+cN7cNMnFZlm2r+UBn67msTT0eZ2Lu16mJcojIMvbej
bxtnYrMBuvnoU2V4tesRJ2OCifnn8gSN0pWB4pLNLjnFxP1/NYbCXitD3FGR
DdunmTiL53l+b64ySEhoztnNMPF1Kanb2oXKYNEofE9zlol3aMTuDfigDDaW
5YwBEkvQuJVbK5SBOTB+1nOOicetgxYVapThzDEDl1YSF+1frb78SRnc5W1u
8cwzcfAp74c1LcogqTWRJUvivZenTot/VoaaB9KM9SRWDDpp6NGrDNkbd6bX
ktczo3vXlw4oQ/GVw4ZHSVzxdE8X76gybJqpdP5E1r+X8ynj2JQy5LwOW+Ej
8RFscfXtvDLsHXJaViP5azV+sGH7pQxeVW5mEqS+1V49yX2ryhD0zbW8f5KJ
6yZfT6avUQGO1VNHr5P+JKwoflhmVwHe+mruuTEmduNMCrflVgHLRI5CQ9Jf
AzHhw0n8KvBr6d3O/aT/cpsyLsaKqMCF/Q+Z578z8QZ1k5C7kiqgqLTccYLM
q5/umuerpALet/o1+nrJehbLtV7qKhBxsCvUhcy/YGfE19M6KmD90eZPJdkf
YUcLOPcZqcCd2wlrhVvJPN22y+40VQHpOcUQ9iYmPnqhT8/CXAVeVWWuayP7
T+/WumO6O1XAuE+0e5Xs128v9r7jPa4C+8PPvI4pIOtlj9evO6UCT84M5Dvn
MnF+0fWB1TMqUPJBKYflDVmvLo170lsF8tPCorqekfeb+elSE6IC/3o+3muK
YmKZX6FXyiJU4OpBrVqvMCbmZJGJLIgm+fc6KU8HMfFXfqviZ4kqgF9z3vjP
l4lD9B/wBeSowE3+ms9tx5j4oqm60n8FKuD3w/CGvRMTH95WRvN8rwJFGi+y
X+xmYt2DI67OhApMOEsvjZL7pPeawQfDLyogbxNtWKRK7pvbdS06fSogaTW7
TWATOf+RR0aVB0l9enuDrMXJfnoSLCA8RfJBt4a2c5LzR3S6zf9TgcsuzezP
RuexRMOZG2NsqqBwK9B04Os8Xtf5N+Ybpyp0JY9fWu2Yx92jyrhBUBXMfgrs
rKuax0Eb/hPOVFEFges06ZqkedzlKFrpYq8KOnzGNifIfTxSpyNA7FGFm05C
EQ/QPF4ws3ZRclIF3lsjjs82z2Pezb6sYydV4fAeNrqN5Dw2E+wxO3dVFQZr
13m1jc3hzLbkqv/SVMF5kXMd+/U5fHWPMiP8tyosnnD8ekJ0Ft/5ZCo8w6IG
ycO9BuK/ZnCsxX5Xe3Y1+NkqtjG6cwZn6YWsE+BXg5sRzNLm2Bk8KDRh+VBZ
Dazu738SwzuDbTreVD/dpQYOO4yO4F9TWHKffu27dDXw5vZhHkubwHMJ4Wz/
XpPX60sUB/hP4Oq+77DtrRoUP+kQ8Ds4gS+6Rhd//qAGUbdSgJVnAtd5z2Yu
tajBC7e7i+cujuMrMRkRtFU1yHj14c2BLWO4vVl6d5mDOpic5Nl4NWsYR9iy
f2UsqwP17stUmav9+Eao79G8v+pwaynaZ9vufuxVM9X/ZK0GmDZWSfyn2Y/3
mLd99+PRgGq/Q+zdpd+wBP3JOHWTBjCICyK3Q77il+q0n0nWGlBJmx4Sk+/F
lZye3D4PNcDEJeC8x7nPOH/bQMSJRA3Qen8l+4rCZ/zi9h6+XU81gGAZUM7v
6sSha+gCmq80wDAy80yxVSd2WOYQGyzTgJ9o4ZGIQgfuG3uqYDeiAdsVAvf1
D7fipZoOmrK+JnzL+yn/R7cBc19uWLxO0wTBfTvuEKmfsJw8420H0gT1VZF0
fcFPePu1fPXbNpqg/EiCQ2qxDj+ixEgMHdUEwz/HX6kStZie4LDyNEwTHixs
rHhJvl/eOFNfLN2vCQbiQncslItxtGjV5cvDmuCTMm3Db1CEXxDvqQ0TmtCS
EFIWsq0QN8pkZlz7qQnm91SV/c8XYNm2kIQeLi1Y+6xEuKQtF5fTrXwT9LWg
+CxjzdO+NLyWp8JQ+K4W5LdUJB0KvIL08tuNBO5pgchXv+mQpzfRyUNjNL44
LTjFVZi062cwIjL4TDhTtODEjQO3o0vuoSCrI1v/vNUCBmfF7575R4gt4Pf2
4W4tiBSegs1i6UhPhc928JsWOG7j6V4xeYlONsrv+DakBdqM/VVPjmUgQsrG
rmtGC8o+N7WHJb5CQcXxjg2s2vB06EwRcyYbsf3QP1Sgrg1nPPerRP/LQ3qP
tju/1dGGRY5Hr1775qOTWw8fztbTBk6OVPWtzHxERAUdzTDVhheC0Zt6vxag
IM22E0mO2lAcVDj9K60Q5beNnHy0XxtoVIV1LEJFaOjqiutDZ22wDq6YCwso
QhYfN7ndP6UNyx2qSHtvMVp3yuvs7ava4Bp74WjT1HtkwBN0LtBfGxq4i8MF
7EvQqfyHnv5B2iBrUe3yPbsEVbNiL99IbXB6ICmvd+4DCk7huXwuVRuO9OjG
lHWWIvauzOt767QhLXCw++rmcvTP9s8ZoyZteBgV6JJzoBwtldkfkG7Xhvyt
VvZbr5ej8ecLusN92lAbl8HnS5SjT16mY97z2vDr7YnfTrYViPH9XseBRW1o
vRd4ItijApXt+15p/Fsb3vE5/RO6W4FyjEOS2NbpQIur5N+jtRUoZn2rY6yY
Djiqsy3U0StRuJ8iXJHWgX8BSR+09leioBkfLWd5Hfg0Sju4eqES+bRLrlfU
1AFRqYa7A2mVyOmJa2ke0oGZz83lk+xVaLdgUeZDCx0YTKpnb5CuQjuCueL9
tutARNn2gwp6VcjkbPZF8906wNs68WPz0SokZ7is0nZKBwTjUg5xZFch8Ve2
woUeOvCer8omr6IKCcgksz720oHiFL/NX9uq0Fo28z6XqzrglLVF/N1iFVr1
iauz8tcB/0uFWa4cBFoYHy1UD9KBq1pungmiBBppCo9mRuiAnXlyVrQBgb6Z
ffPvjNaBLUfq2pwsCfSlgHru/UMdSL7id/b1bgLVPe7cFvhUB8Y6OR3nPQn0
5rTcH/4CHTiSe4Oh8oRAL7ovTvws1gEfi949x18RKHkn43NXmQ7co9w00XlH
oHubz7x9WqsDnfWKhRF1BAp98SHldoMO7E7pktzUTqBAcb4I91YdGLD+FWDX
RyDvf3mnqb06cIjNZv31GQKdu8i+V3hAB7gO/9twc5FAp4YPmC0P64BVbFar
4l8C7a//I1UxqwPvnhn/t4ubgRxMHbjSFnTgjfc60z4BBrLOTf0VsqwDR/Ov
JPCKM1BSvYL7yzUUyNBUGz2tyECZxnzX7dkoINNQKP1PjYGK3qzcW2SnwGL3
2E9dHQaqlhl5nsRJAc/iyV3r9BioPaqlyIKbAr1nMoWvGDLQIEvpp0leClyw
WVGOMGag2Qsv+6P5KZCTWXbOChhodTBmwUiIArd8ltrSzBmIa4//+gERCih3
YMs3VgwkxjgjFSJO8lmnkntkOwMpG+yj6EhRwGGUg/2DLQPppW+16JShgEQt
1q/ZyUBbxbQOXN9Ega7Or7qB9gxkFyp2VlGRAj6tLXMzDgzkvLI2oF6ZAgeV
Ik7wOTLQGY/ZmItqFNDwBf9hEl/p7U4X16TA/C8xw0u7GSh4Z3VJuTYFJn6L
BL4ncUxZbtNpKgVkWVYcSkn8RCfpO68eBVLOmsdfJ3HWk5BfBQYUCIu1s/1D
3u8Dv/eGw0YU+CVx9bApiesCj8qyGVOAxeRwpdkuBvryw2bzK1MKvLRh9eQm
+Q2fNNjmuJWsLyi7N8mOgZgdmw4tm1PAwMLi3K8dDMSyjef8EysKGIb9eS1F
6uctWgrctp0CVbN9G/hIf6TUhh7M2FJA5cPlwGbSP/VHTZlxdhQQ9qNynbBg
oC0bSsqMd1Ege71iUu1WBnKcvj8Sto8C24JuNQqR+Rw7cn2FepDUcyDt+D8y
v3NNbrxdh8g8/n0YI/QZKCQXGagcp8AaN4/8MW0Gwpenb1d5UEAhHqvUyTLQ
p5EvCWc8KbDU+MW6SpKBuvcTb/gvUOCi2pE16aIMtGj0uOOoDwVSH3gu6fMx
kOZfa6XVAAocWB6ivvxDINp5PaNntyhw1jnQQnOZQNb9sjttgikwEyh6JnOB
QCcqF73j75J8+VzTEicJ9Cj4OaH3gALOyk3RkV0E4uBjOXnuFQXyf7DvtC8k
kPx1X4nRNxRo6qo7/TiPQKaTzOZjORSou8x6ajWbQD41wyZ7CsjrOVpXWDMI
FK1/dKGhkAI8lp7Br9LIeX72JXPbewocsrX65plKoCH/elE6pkDNw6xO20QC
scxYNOZXUKDigOcxtwQCSTqXBWkTFKAk2EekPSCQQd0W+stqUr81TyNbLIEc
DXPnN32kwPoV0ft37hPI84X6y8f1FEha8jHTiSLnX+j5EeFGCtDvFNn+CSfQ
80Bp4ahmCthzMwV/hBGofO5B/fo2CtwIaPrHH0qg3iMbAwM7KNCmlXPh0B0C
/foUarj6mQJeSQ0fm28TSIC+dvZyN5lPvtupS0EE0s64ljbbSwHz80vPLG4R
yEZ08ZD7Nwq8i9nbZxlI7o/b5wW+D5Dnv331uHKT3D8/xmqdh8h5m7+f3hdA
oKTjLv6dI+S8K4iM+pC4qKlH32GcAloFhf6WJG432Tv1cZIC5RK7GTYknnvV
mGo+Q4E9sVSuEBJzS1gfLJ2jwGxwV/JfEquGVPBt+UHOg3RnSzZZz3yRVp3z
k9R34+psIsnnyMn8a+pLZD/tSttaQ/K92qq1+fkKBeSNQ/kopL4HkD4u/Yec
t2c3kr4EEyg3S+7Jw38UuL95ULMyhECfpB7t42elwv1g1tVp0r+xMEGeu2xU
AG4Zq8MRBGJbDq9i46DCky4vc/57BJI7zX71BicVyvMc1DbEEMi4w5+ytIEK
aq571HeQee43Xx65wEuFLO9Anw4y74u5F5MmN1Lha3Yg/WUSgSJlp3a7ClLh
SGHDc8ZTAmVGuHJ9E6ZC4lRHj/YLAlX//lp+QIwKrG+U1g9nEmjQ/cB/rRJU
OJx/3n6c7Mc/n1u0dkhTwbY4qsO4gCC/TxGPkDwVhMNlFTvLCeQgb7qrWJEK
pTU0dZkaAnncK+TYrEKFlF+yE8UNBEo9m+mtrEmFVblNv+Z6CFTWraDxRJsK
wZQPZyO/E6jbOmlAnEqFGNl3U7fI+eFXumfHY0CF3hl5Q79VAmnGcK67Y0gF
3eifG/3Xkc+HNbdKWOhUsD8zw/uNl4EC+i6rLiAqHDPdc75QnoFm4g6x9myn
Qqzcifohcl89pot2hu6ggl6nJ3PiEHn9QGuGoT0V5gyDT5xyZ6BUTZtdD/ZQ
YaizrLLiNgPtrTJ8susoFdTpHwTVCQZidV+4xOJChTsbftJW2sl9ypuzLfsk
FRSd/4RZjzDQeieVWe4zVNDu68MnuKrRhzlh01pvKpgwn/LkHKhG7g9a+P/7
jwpW0QabI85VIxHjiGGlq1SI/PeXMhdYjc7fYYu45U8FoaBwA9vsaiQv86PH
NIwKIeK6Oud4a1BTVVb2dDgVThJxP++p1KBr7mduJUZR4cM/mvHWrTWoM39A
fSWWChY/xPfZ+NSgUNtm34IUKojtk10WGK1BBvN3d55MpcJRFZpUNlstGnyw
bZNgGhW2/zZ06JOvRcaDZbVemVRYN766g3msFs1deSOqWUDW/1lmwTtUi5Jk
3Ce7C6ngZOtYYcP+EdkQijj0PRW+N4Y9k1b7iJ7xJZ4axVR4+TjjWojXR7Tv
RVhBah3p58XLgzfY69DaHVahuxrI/um5tcZPqw7lzK85zNJMhUpFmW8b99Yh
LhNftiMdVNgXbyS/4UUdKm07vVu8nwpS6TvSttrXI8U1lvNRP6lAUQydHC77
hAq45ei6S1T4FJz8uGDmE7IS+x3UvvK//kj0lpJtQO46uWLiLLrwzG/ic/bN
BpR1WBpSuXTh5l6X9umdjcjw/c/IfFldMDXvmXVe04w+Mpq/7JPXhYqt3uar
0s3IqeWV/LKiLkxEOYSP0JrR9bHj70zUdUEki+fB48vNqFKksa9aTxc6f/jt
DZppRraXXmh2bdeFjtykUZ2ZFtR746aP3w5dOB5108aTrxV5hjmXS9vrwrcS
itBPSiu691Rgj8seXdjmHMrs9m5F7U03/CaP6ALVOUxvDUsbOqK5v+7PJV1g
v4QWryu0o4vDHG7yybogsZWDlSOpE/HPeO15+EQXMqI0XJlVnShnsQu4n+mC
n0JZg+BkJ5rleC2+mK4LhTC685fRZ3RW3aH+Y64utNO9eLZ0f0au5+O1LzB0
AU3J/rJU7EIHllV/4ildKLC4R3zr6UEmPDaBh+mbIUjhS6pifz86IC4x/W14
MyjFHA22rBtFD/btTnAe2wwH1/+gGg2Noo6YcMuuic3gGFxYpPJ3FDny/ktq
nd0Mr9kV9yxQx5DtWnIKl0nMrVdpkTCGTKff5GTy6EFZxM3F8FPjSJE0/rK+
HvAr+bQorEygWTf331y39eAc1lJpWp5GAtyV0n539KCz0qLUbuMM0suWgMlQ
PZA9YClYqjyDrv6sD6qP1INi1r2urrtnEFugNm94vB68FZ7O6H81gyQe/5Dj
ea0HPpSb504fnEVWDdet+Nr0yO+vw77/HOeQu1enm3+HHghPPXzEe3gOhQvq
3J39rAetcbm+gqfnUMvB/qamXj1wvWvv+ffqHHIeMTt4b0QPjnC/+XYgdQ79
//+79WAkKenez4Y5dPEfx1n+FT1QVjn2ZuPsHEqmRt8X3KQPeOpzYueNeeTI
rdVSpKAP28Ly77OFzCP20ZqNR5T1YSRf6670/Xnkmfgn6qWGPmgF71zmfTaP
TDncI00M9EGI61PbEGMefe1Fd0/b6gNlpcyMjYOJogu767jt9CFNnMU9j5eJ
rKIvc7110Ae9AKlD20SYKGvbq9DVvfrAULA1lFJiohtvRULuH9MHjvPSO7y2
MpFMyHRQyWV92LSFUnLFm4laXUKIY1f04dq90gc7rjJRsIkCG7ufPpzeM8vB
EsBEM8wDtxwC9CHFdZ8v210mKjtM3BwO0wd2mfgHfilMdNHwaEVYhD5cdGAT
tHjORMqCKyyUe/rA+dduavwlE0XW6gRcjdMHac1nBZ9ymejI5sc3+J7oAzHY
3DlawUQCvAZl+an6ULxj7mQsg4mqx5r/HEwj9X4tOin1kYm0k9mvP8/Uhw8S
i82lTUw0eOXph+1v9CH0aGZ9ZysTPdhtvDqTrQ+KO7v31HUw0d/1F/2MCsh6
qlQT6GGit9+5S74WkvXkLutX9jHRqbL0lVvv9cFsV/SMdD8TSSSY0dRK9YGP
pmW0e5CJGi/1+TZifbjfGzh6fIiJAu2uFF+q1Ac2S8eG7SNMZKAmuCzG0Ifj
UIa5xphoYm2WYVmNPjz0Uo97Ps5ESV+tr5yo04cie1El0UlS77sLTj2f9OFA
fM/enVNMJBf5yHh3kz5Eu/AKH58m9bhWydS36MOuj4PmjjNM9NxkisW8XR8W
lmQJuVmSr7Dw9/ed+tC1JHflE4lVp00Yul2knos9ZnvnyPrEqfTMHn3wr5zi
KPnf758To0Llv+pD3MbXr/6Q2NO7yONRvz4ktSPB//3+mbJjYKfAd3042JWv
KE5ipgIXJWxYH94SQjXz5Pn837oCrGP6cIZ+dfAFiX3aDi34TujD7x9yxwxJ
bPgqqHN+Sh/Oe3qpvyD5rAS+KXKf1YeNASxacyT/D06djwbmyX4693CPCIlv
6P67dnBBH2a6NkWJkXqBS/VoyyKZ5/60+kXSH9ZBh63bl/UBPmuv5EwwEVHs
q1DxWx+uBJVt2Eb6GXw/dZ3RX30oaddlFo0ykbV7/WgOiwEYRuo9YSfzqBeT
fv1knQFk8pBTR+YXPmcZKbbeAOjnsnqFyXztaj297nEZwPNP26mtZP6t/5Xr
BfAZgNq+9Tf6vjBRrP24yBK/AYx4aZ3U7GSifSoCy+eFDCBKwhvva2Oi7s4T
pUfFDUDz3bn3Jg1MlJgVnvJZ0gDuK3Hbr5D9eSS44Ka9jAH0ylSaRVeTeepz
WCEFA2hJXGeyB5N58lBUC5UMoK1GceuNEub/3o+5dFQNwLv7SsqtQjK/2MxG
GS0DWHcv64JcNpnf2bacBzoGoADek4WZZH4Wq9G8ugZQvVmoXv0FmdePnfv/
GhjAH8u+5tREJlp2nP/WBwYQHDmd3XuHid6rS1TuNTcAoXd3uR0Cmegaq/nz
BksDKH+1lyvlGhOxvI11K7UxgA8yIkLNXky0nt9wPnGPAew+MPrefz8TiTXd
YHV2M4CtO0wOKsgwkcfX8TWcHgbwKc94f5YwOf/Te9a8O2cAth7K/Xw8TOTK
rcGy8ZIB7Ly6wrf/9zx6u/3zn6rrBmDQ7hq43DGPbAmdZY0YA2B7GV+QdWse
Jbc9WvoSR/qvJcCSd2UeMQfXLd2ONwB73nWm987No/g1vYvfkgzg/YDJ3s59
82jINGQh5qUB+C35uz5QmUc3ivtnf5cawIDTBTmhSnJf19rOviw3gKDJjX04
fw4pfnk3s7fKAGacVGa2pc+husXw6exaA0iiVbDP3J1DonpGkyfayDyo3MIJ
u+dQTtb9kfoxAxCY+kO3KZ5F35+Z9T0W3ALqmVyHRbKnkUUO3V9SZAukWNyf
6Y6cRi8+6G16LLYF8t/c3HzBcxq5dSi7PpLeAs+c3v0Q0ppGU+wbpuNVtkDa
7UVk/XIKLbi3rcbRt0Dx2LWMLw8mETvlpNS9E1uAlmh1M+HAOFL/cPtQUN4W
aLI8rFkSNYS8tJMv/Sog6zUIpRu6D6GCJ+/uninaAndDqj+9MRtCcHu0xKF0
C8TTPY/e/Pkd7bPbLiVdswVYv02G9Dl9R4H93H0F3VugTvnB6pjiIOpmiz0y
usYQDF/1Pzjr/Q2F7Uw9buNgCGPIQeo7byc6/mv1AdPRECj2OS5S5R3I8On+
T4/2GoLbZ/2gexc60PAC95ZJJ0M4eK+9WqujHUHif9zhroYgPlfX7JTShhYn
dhQ2XDUELPJo91loQS4hv7h3pRlCP9sv9+QrH5GRrqPZcjp5vey6h4XTtWhj
7+v/nmYaQrO9ffOtE7WoVMdlcD7bEOrOhz2l76pBYp8/FUa/J8/b3Gt1JN/3
G5VSXdqbDOHvE+vGg5sqkFHVjqL9K4Zw62BXR5V8HpI5o3+vddUQ9t+69mth
51vEyi/jtvOfIQzezLuUcjUXfToyK2rOZgTH+df21uVkoyMr9//T5jWCAbfQ
A69tM1AQ9bPBOnkjOGnKrlir+Ai5f8G8AYpGsOQTdWeM+hDZ+b8cWVE2AvPJ
qo2alrFItMH3wZyGEfhxZV/dsRqOMt2kFnv0jeAdsbtWoMUdNaUcL3i73Qg+
Rs42HlaMxvlWNhFaO4zg6dPy5s35sTh+Wtf1pZ0R3JjZdqLZ5CF2obMJJ+82
gjKhmSVn00S80PnCO/SwETQvnKt3XUnFErxTm49dMILflXVVXyVf43/57Rt6
LhnBnP9ddUXdN3joUOn3vT5G4ETkiu61zMJvMiJjbP2MIGJd5y9Tag4GS+oP
g9tGwPs+ZDeH8Vvses3nLU+CEdzyq6VVrX+Hu52eppc+NoLznC2f5W+/ww5G
nxLPJRtBh/4byap/77Dx4qY7Dc9IPdnWDvWzhVjIq+FQRJYRqFbFpSqWFOMw
uyUHk1wj4DoteS5P7T1m0VKwms4zgt6NnoeiHrzHU+NXKDuLjUD57dUSfY8S
TJxQXMdDGMFa1oYlL5ZSTDOzX/lQTfKXv7KQeLwU58hdnT370Qj2dNUEK1WU
4sS+pq5PjUbwIuPp3z1+ZfjSfr+s8C4j2CQdIObRi7G8bet+7lmSj8yfC1it
Aser/dnxYd4IrjhMpFbtrMC861XNzi4YwWVfhe2cFyrwCnFd89Myef3VofNH
Cipwq6namnA2Goi0CQXu16/E1tJ7FukcNNAPjbgfubsSl/2+MTnJSYOp59G+
AhcqcWZRe4ctHw0U3W1q2TMr8U3dgMwNEjS4O363vl6wCi9ufJVSIkWD36Y3
fsVoVuGzsx2xHrI0ONfntLXAogofeK3hX69Igx8nziRzXqrCjWH7vP1UaFDd
/mgBhVZhC/eb7hrqNCglrs90JFdhivLn3Xd1aCDR/t9Nldoq/IKNdTtdlwZb
hXKvj/RUYanvmqaTejR47a39fcNsFV7/JFDVlkaDU7nFzfcECdwvrv2Hy5IG
h5A6W/5eAtOOXHHL2kaDwq0/0u+fJHBsamXbLhtS/7RZ2dhFAm/X2J8Zb0+D
NZc8+bgiCfz8/FNhY0caSF3NL/z8iMB/8yYDvu2hAVdY9huldAK/NQ7Yr+xE
8r9h6L+9jMDcN+sqPzrTgB0T/fIfCXyaIaR97igN3mowHt9qI7CUXQZb/kka
nLXotR4cIbBP9I/z+0/TYEPzVMf3WQI3d5r0rLjTwOoWnr+0RODbR1tzt56n
AUPQT3rbegbufyYlPXyBBilr1rZH8DEwbexUSIg3DSg3TE6dEWHgWM3cHxr/
0WClJj3jqxQDz3j9PtLkS4ODWs+8p+QZ2LrAsu7iNRoMb36QHKfKwM+Wo/RF
/Gmg8FCSpVeLgQ8EKnIfDqJB+JOHbdu2MPDbas//WO7QgLmY/9eLzsDcG4oH
n4XSQFiFq90UMfAp+7V228JpcJhTTj/PjIErYnYWT0TSYORw1LpmSwaW+vJQ
MfI+DbhrJ9QfWjOwj9RgFDWW9DcoJpzLloGbj2n+bn9A6sv3E9TcycDqaT6n
riTQwJWlJ+OPHQMHjZe3SCaSfMJ6aDcdGPir1gYTnEwDUUmrt0W7GNjw4t6X
Lk9pEOast5rmyMAx71IE2Z/TwPF6E5vtblL/yviNjBc0GLCTK8ogsTXSm9iR
Qfaz2cIagsSpt27snXtFg9m4Lw2PSbxaU1sek0UDzyZ1js0k3sctqLkllway
CfSEu+T9cx0OP+zOowEHxf98OlmfOy6d9cY78v5WjMshJL9TXfPnNhXTgPPO
hXiKPQOXSxt3ESU0aCt9Qzwl9Um4BFu4ldFA4FzUWB+p3/tFc/aGCrL+a40f
I9sZuGlCQjK7igbLGx60l20j/dBxDXaspoH85o/XT5N+Bl3Knv9ZS/av4dX+
QdJvw1XzWuNGGkTe2Pb4oAkDR0Pk5v5mGnwV+Pf5AI2Bp4O+JN9qo0HJ96oH
umSeqTznLtd9ocGWUrfD1ymk3l2F/ed6aKA1x27B1CT1Plizg/8rDba9HnXf
rsbAG2QfyB/4ToP7ln3yLzaRfCm4aXiaBgntI112/Azce+Fh36E5sj9GZmT3
8jCwRd75yRYmDQzP5ry142RgYQM5jrJf5LwImk1vWsPA7+g3TR+soUPty7vL
l+YIvGRl/sZKmA7izsEBMk0EPhYiWfJBlA5r4yjsAvUErv34o1ZXgg7qresR
fw2BE3Y8H5KRpUPuFDPPEJPz7LhO6pcqHbhjFVr25BA4NaZP7ZwGHaxV5Tc1
vSYwV0fBlu9adLjE8frrsQwC9+w/tbtJlw67Z/m9mlMJbJFgetxSnw7t19VV
c1MI/Lpb5HzJFjqopnwTzk4k8LXDNWHpxnSIfxRis/4hgYeSU+KlER1GDIfd
TsUSeEf/fy9ittJBX8LOY/Q+gfM3OeRzWtBh49BgYXgUgaVPqFb6W9FhM4fT
2/0RBA5+ztL805rke+Nvyfa7BJ4Z/tLnYUsHi6sfNp8MJfA+ldzJgZ10iNhL
93l5h8BlbqHL+x3oQJ1Z81U0mMDKmcc5Gh3pEFf4tCoviMCRk0bCFnvpsGfz
0PXrtwi8qCmg8H4/HQJ3Lh73CSTwUc8JCsWJDo+sI6pSbpJ+ZleavnCmQ5Ln
mp8rAQSmzD/aIXWUDolPDm0LJXG87iWn6ON08FrdzbWDxCzetm7rT9LhscTW
cAsSuxUo+Nw4RYeaoiVxbxI3L/6+teBGhw0Tz/72kNjQsP3+GQ86XF8OvXWd
rPfU93VK/zk6vP/dMXuQ5MNVEvRmnxcdzO4cCrlI8r246lzy6SIdgmWPRtWS
erpN9D+aXaZDT9Qpi8OkXjN/ns9F/9FhrlFoiPq/35+XDw9pX6XDxzVCL7eF
EViAtYz5/BodfNbx1aSEE/iq+QMWSX86HIp9700n/f8e5Ml7/yYdRCqnBiSj
ybyqraQ4gujwble5sVkcmReHrPr1YDIPl/Kc7HgCB4U1WbrfpUNxRGXwyScE
vrF2wksokg40+9M6vGkE/u8aWyK+R4cjKv3MjZkE9vopU3Mmhg5velO2emYT
+IynEVP4AdkfPUmhKgUEPjm6W7oinuzHi2YGpiUEPnzM0/rsYzr4JtBy8ioI
7OD4LLnyCR1U4h6nlJP9b1Nf+vHcM7I/bVU7nT4T2Nziy4LYCzq4f3ly6OA3
AhsY8Nief0WHwdg3L0PI+aFkq/hIZNFh+qE734dlAqupmj1l5NDh6D7ltQfX
kvtX4r9fku/I+Robf9wuysAiMffla4ro0Hyy7n0B+Tzg436982IJHXRzup3W
aTMw69/+Z7XldJiv1B5ZIPfNqs/vxktVdMgMyNN8SO6/n7PCKzLVpB9Nh169
PsrAYwM2DpfryX5NbRrW92PgQSdXP7lGcp6wx9CrUAbuafN/Ud9MhyXTm08S
4hm4kZG/uqmTDs+Nz+X2FzJwfoZMRmM/mcfHddO0VQbOkjdq9/1OhyGaY1o4
bzVOf7z7n+IIHX6sVzl1ZFM1fhQRstdvkuynkwa1t62rccAF5hrVRTIPszif
P4nV+OoEt1bbEh3yvLtY3fOq8aUTKgdu/KbDdmZ/3qG6anxqr3NWO4sx/Dms
/alruRrvMKp2urnBGH7E6XLbH63BVm/7b2vyGoPCivB6rqs1GGn8zvm80RgK
pWT2O8bVYF1pCoe2iDGYtz3KjmiowWJrHuV1y5HnRzccr7CoxUO157j1DIyB
Kz58c5LdRzxlKtKda2gMVkaND/m8PuIf+WXpOnRjGPVg/8oW/RGzPuUz1wBj
8NTAnr6fP2I531xfeRtjCFR9fS7GrQ4fUvs5svGIMWzV799IPKvHLilJ+ZHH
jKF2gT3ndkM9PiNsFch9whjSpE/MNvyqx1fWPJRe72YMYVscPjJ3fsIPugz3
/LtgDHKrXu/usTTg1tBrFdO3SX5ow0c1/0bc/U8xyiPEGF620N4czm3EA5cb
nMfDjGGKpvJKbKgRzx2XWRqKMgbtpd/3FGybMC+tXLs3wRjWXvLqIPia8faJ
tYl1b4xBRWdc+v1cMy63ueuT3mEM6c5CLhxDrfi18u73Yl+MIeqJU1QhWxuO
Z5X8G9ptDEV944HPldrw+feZt89+M4aWxRNDm93asIx6XSx13Bgkn7fslp9r
w9c5OfNKVo1he3V1NvuGDkyrDZ5tUjABHp8g6R9nPuN8y0C3pQsmkCbzMVir
vBdTD4Z/TPY2gfjH42kB/xfTASz+8dy/rmyWKkV3PUDYHwvvACPdv6iTquyR
fD1Amwb7sIaG3b+c4dJwK4c9QMXjJJOWT96/hX0jeV6cPUCdPQZBQOnfv1a1
xInExj1ATWivby2b4b/4JAerkBs+QA/0Ml6+CeW/uEcLkdG5PkDHj4sX/mzr
v8FoQTOUvD5A8b4+fFGI67/KiXfVVr8+QHFPAn+Uo+u/3MvjGdzEPkBBJFpR
6NnrvwBQvKLmzz5AK17irr9F7L9JWG20++U+QBzIsvryGe2/2mjP1yUSP0Av
3fhf3LLuv+OJBXroFD9ApN0mlqzL7r/sqjscqxc/QEVqM0Rl5O6//uynYDAd
P0AnLfl2jxXvvyNxgOk6KD9AqBMfgcN2779seTH7Tz4/QNyUR2dEGvC/dZpn
nRJBP0AwCE1z5yXwv367nT/VQz9AKK4mgX0x8L+Q/QmEWkk/QP02U22CSPC/
tIHiDGVUP0AJQKO/7nXwv72iGK8nVz9Au6/18CiB8L/Gw05R6lk/QPyDZPRV
jPC/2AW7lW9fP0CfnFxLiKLwv+Em8TcyYj9A6KBZe42t8L/qRyfa9GQ/QFEV
yTKFuPC/9GhdfLdnP0BPN89Hb8Pwv/2Jkx56aj9A8O6ghEvO8L+7sE+n
      "]]}, 
    {Hue[0.9060679774997897, 0.6, 0.6], Thickness[Large], 
     LineBox[CompressedData["
1:eJwBIQPe/CFib1JlAgAAADEAAAACAAAAxG6NwVyDpT6KvUK+///vP7hRV+Xy
u4M/TuxrmOzw7z+dzp3ex7uTPxEblXLZ4e8/EA1BW7K7oz+YeOcms8PvP0ms
kpmnu7M/pjOMj2aH7z/me7s4orvDP8Kp1WDNDu8/tONPiJ+70z/5lWgDmx3u
P5sXGjCeu+M/aG6OSDY77D+Kdt2MEpD0P39+I75FJeg/DRmiOeCM/j9cQE89
pVTkP4km/zHDKwRAJENNES2X4D8KY5zLUHsJQE5KKaEbEdk/brszgSNwDkDc
ceUyfX7RPygbnV2Y5xFAvK9oNiGTwj/6PAYalYoUQID7e9JKr5M/vWxsZDQA
F0CA0922HCS5v78tCvHwqhlAENYHZKLezL+z/KQLUCgcQKj9IiP7Cta/B7Cl
RSWZHkBojp1qVIDdv0367uCLnyBAXLDC7f3L4r+Powlm1tshQL7nn5yBkua/
cBVAjK8yI0DmvzNgLKrqvwC7F93xNyNAQsbuaT666r+QYO8tND0jQJ7MqXNQ
yuq/sauez7hHI0BY2R+HdOrqv/JB/RLCXCNAzPILrrwq6790brqZ1IYjQLQl
5PtMq+u/ecc0p/naI0CEi5SXbazsvwptDPg74CNA4pFPoX+87L+aEuRIfuUj
QECYCquRzOy/ul2T6gLwI0D4pIC+tezsv/zz8S0MBSRAbr5s5f0s7b9+IK+0
Hi8kQFTxRDOOre2/gnkpwkODJEAiV/XOrq7uvy4ZHVgriCRAuAKKmKu97r/a
uBDuEo0kQEyuHmKozO6/Mvj3GeKWJEB4BUj1oeruv+N2xnGAqiRA0LOaG5Um
77+QFroHaK8kQGhfL+WRNe+/PLatnU+0JED+CsSujkTvv5T1lMkeviRAKGLt
QYhi779EdGMhvdEkQH4QQGh7nu+/8BNXt6TWJEAUvNQxeK3vv5yzSk2M2yRA
qGdp+3S8779IUz7jc+AkQD4T/sRxy++/9fIxeVvlJEDWvpKObtrvv6KSJQ9D
6iRAbmonWGvp779OMhmlKu8kQAQWvCFo+O+/TjIZpSrvJEAEFrwhaPjvv6CA
kY4=
      "]], LineBox[CompressedData["
1:eJwBAQT++yFib1JlAgAAAD8AAAACAAAApnEA0fn4JEDQkhpLnunvv1IR9Gbh
/SRAPOeFgaHa77/+sOf8yAIlQKg78beky++/VvDOKJgMJUB85Mckq63vvwdv
nYA2ICVAJDZ1/rdx77+0DpEWHiUlQIyK4DS7Yu+/YK6ErAUqJUD03ktrvlPv
v7jta9jUMyVAzIci2MQ1779obDowc0clQHTZz7HR+e6/ymnX369uJUDEfCpl
64Huv4xkET8pvSVAaMPfyx6S7b9ac4kPe8IlQFQ9+GXdge2/KYIB4MzHJUA4
txAAnHHtv8af8YBw0iVACKtBNBlR7b8B29HCt+clQKSSo5wTEO2/dlGSRkYS
JkDcYWdtCI7sv2E+E05jZyZATADvDvKJ6782GBVdnREnQCw9/lHFgem/2VIX
wmJPKEC0aLPhu7blvxtWNci2pylAePOxXIua4b+NSwbexfkqQFB+BVkGI9u/
+MfVOiY1LEA4edQLlpvTvwMNwTgViy1AIGVsKq/jxr8G2ap9VcouQMB7Ko7J
la6/ncsjaagBMEBAjjhApDCtPwcPAGRtqzBAQGmB1mCCxz/ulVsC20kxQOjz
TDusUdM/JAFF8Y/1MUDAdMY0doTbP3LlB2ginjJA3LlNwnfI4T89DUqCXTsz
QJiHoWBkieU/WBka7d/lM0AY9qsTeJvpP5ZWU5lc6DNADMVRIquq6T/Vk4xF
2eozQACU9zDeuek/Ug7/ndLvM0DoMUNORNjpP0sD5E7F+TNAsG3aiBAV6j8+
7a2wqg00QEjlCP6ojuo/JMFBdHU1NEB41GXo2YHrP2L+eiDyNzRAbKML9wyR
6z+hO7TMbjo0QGBysQVAoOs/HrYmJWg/NEBIEP0ipr7rPxerC9ZaSTRAFEyU
XXL76z8KldU3QF00QKzDwtIKdew/72hp+wqFNEDUsh+9O2jtPxIMwh17hzRA
xDhyKiJ37T80rxpA64k0QLC+xJcIhu0/evXLhMuONECQymly1aPtPwSCLg6M
mDRASOKzJ2/f7T8am/MgDaw0QMQRSJKiVu4/PT5MQ32uNEC0l5r/iGXuP2Dh
pGXtsDRApB3tbG907j+lJ1aqzbU0QIApkkc8ku4/MLS4M46/NEA8Qdz81c3u
P0bNfUYP0zRAuHBwZwlF7z9pcNZof9U0QKj2wtTvU+8/jBMvi+/XNECYfBVC
1mLvP9FZ4M/P3DRAdIi6HKOA7z/0/DjyP980QGgODYqJj+8/FqCRFLDhNEBQ
lF/3b57vP1zmQlmQ5jRANKAE0jy87z9/iZt7AOk0QCQmVz8jy+8/oiz0nXDr
NEAUrKmsCdrvP8TPTMDg7TRAADL8GfDo7z9+n9w+Fu80QLicgpdT8O8/DSzr
9g==
      "]], LineBox[CompressedData["
1:eJwBUQOu/CFib1JlAgAAADQAAAACAAAAAAGVTTf0NEC4nIKXU/DvPyy5Vicx
9TRAODwMnlzq7z9PXK9Jofc0QEC2uTB22+8/cv8HbBH6NEBQMGfDj8zvP5Wi
YI6B/DRAYKoUVqm97z+4Rbmw8f40QHAkwujCru8//Ytq9dEDNUCYGB0O9pDv
P4gYzX6SDTVA2ADTWFxV7z+eMZKREyE1QGDRPu4o3u4/Ugwt0bgjNUDocJnk
/c3uPwbnxxBeJjVAeBD02tK97j9unP2PqCs1QJhPqcd8ne4/Pgdpjj02NUDI
zROh0FzuP97cP4tnSzVAOMroU3jb7T8eiO2Eu3U1QBDDkrnH2Ow/nd5IeGPK
NUDItOaEZtPqPxjPfgJcaDZA+EklJfQN5z/jo0LdmxM3QGA+rbBa9+I/KryF
W4SzN0AwyZeLIkzeP4pNomFKUDhAYJd5X+DP1j85w0y4V/o4QCBI3BOgYs0/
ZXx2sg2ZOUAAUUAef3W8P+AZLv0KRTpAANGzQ+qNkb90ML/P5e06QEAZxMyY
UcK/hIrPRWmLO0CQeFsVGq7Qv+TIbQw0NjxAECbC7bXV2L/ASot2p9U8QAi4
fdlYOeC/tEWCaPhxPUAQHEhnrvTjv/gkB6uQGz5A6CDJCSsB6L+4RwuR0bk+
QPhzs6JXyOu/wWhBM5S8PkAgsSFDNtnrv8qJd9VWvz5AQO6P4xTq67/cy+MZ
3MQ+QJBobCTSC+y/AFC8oubPPkAoXSWmTE/sv0lYbbT75T5AWEaXqUHW7L/a
aM/XJRI/QLgYe7Ar5O2/44kFeugUP0DgVelQCvXtv+yqOxyrFz9ACJNX8egF
7r/+7KdgMB0/QFANNDKmJ+6/I3GA6TooP0DwAe2zIGvuv2x5MftPPj9AIOte
txXy7r91mmedEkE/QEgozVf0Au+/frudP9VDP0BwZTv40hPvv5D9CYRaST9A
uN8XOZA177+0geIMZVQ/QFDU0LoKee+/vaIYrydXP0B4ET9b6Ynvv8bDTlHq
WT9AmE6t+8ea77/YBbuVb18/QOjIiTyFvO+/4SbxNzJiP0AQBvjcY83vv+pH
J9r0ZD9AMENmfULe77/0aF18t2c/QGCA1B0h7++//YmTHnpqP0CAvUK+///v
v+xOnqI=
      "]]}, {}}, {{}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 31.41592653589793}, {-1.1838681061370326`, 
    1.1838661794724399`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.526206159175*^9, {3.526206328642*^9, 3.526206415108*^9}, 
   3.52620646065*^9, {3.526206503276*^9, 3.526206513387*^9}, 
   3.526206553137*^9, 3.5262078003527117`*^9, 3.526219662086*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Omega]t", "=", 
   RowBox[{"0.01", "  ", "\[Omega]0"}]}], ";", " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"Now", " ", 
     RowBox[{"let", "'"}], "s", " ", "try", " ", "a", " ", "drive", " ", 
     "with", " ", "a", " ", "frequency", " ", "much", " ", "less", " ", 
     "than", " ", "\[Omega]0"}], " ", "=", " ", 
    RowBox[{"1", " ", 
     RowBox[{"rad", "/", 
      RowBox[{"s", "."}]}]}]}], " ", "*)"}]}]], "Input",
 CellChangeTimes->{{3.4945394456700997`*^9, 3.4945394489684296`*^9}, 
   3.49458430334*^9, 3.494590817237*^9, {3.5030641868371887`*^9, 
   3.503064203040809*^9}, {3.5030668113884277`*^9, 3.5030668146427526`*^9}, 
   3.526206262507*^9, {3.526219713341*^9, 3.526219721866*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "[", "t", "]"}], ",", " ", 
     RowBox[{"ceiling", "[", "t", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", 
     RowBox[{"1.5", "T"}]}], "}"}], ",", " ", 
   RowBox[{"PlotStyle", "\[Rule]", "Thick"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.526206266599*^9, 3.526206278249*^9}, {3.526206660142*^9,
   3.526206661172*^9}, {3.526207813014978*^9, 3.5262078137130475`*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {Hue[0.67, 0.6, 0.6], Thickness[Large], LineBox[CompressedData["
1:eJwtl3k01d33x82kR5lT5jKVIhnSeDYZylQZUj2VJCVkuhclZfhoMFwZQ6LI
EFFokKFOyfAgmcoQmclw7+dzVUgavve31u+vs87aZ51z3nu/zzqvrXzK29aV
h4uLS5Sbi+v/xp4U+pya5vfdEq0R9sE8bJTez12uG9qBtr9/7eEvwEZls09O
Lg8dQVIps9UmQmwkPTcx/gvPoFcVMbWvBdlo168Y/YWQr8i5ReBQNx8bsS+r
/aAUF9CXU4ltCn8plP0XV07iJRTkr94gzqZQ4euiV2xtLnhXFVe/1E8hImxR
kRXCA7EFeNa/nkLHjM3Cplr5QH1ZrBYUU8iAN3FkXFEQOrffaNZJoNBkxMbc
AbwceG3+Q2uOUuiN6UWBvpUrYEzYK6Z5N4WseUefzGiLQsmu9IdcqhSqdIkc
m3IUg1FJHra9CIXUarWlJkPEoX56YtTwB4kSVLpMJ/IloIKdocAaJ9HfiOCA
sVZJcEsV2RzaRSLP8bX5IwtS4FJw8GVrI4l6TBu7hxRXgZGtfFkMJpFJnrfQ
oLkMKB7W0DcuJ1GpgPS2z96rYeeVpIETJSRSOFt9ri9lDZz9rBKJCkkU1XDq
di+WhZtveH9vzyHRvPqy5u4vckC0BOYVZ5DI5cbjpY8rFeDvTxkG3y0StU06
bPywVRHsTBlt9TEkylS5ojWlrQRtSWYiGWEk+mDfbjb5VgmW6zF1D9FJJHxV
xemLozK0pAjHTp0mETwLDJyYUYZT+c0D/nYkChxvujkeshYCe4Te7gISoTbD
+rxZFbAW2THcs8RCSgEy1mMhW6BfRD03Yzvz/+N6sHVCPq+4egadMHRYH+SO
QKDe4oNq1hRSvrvytJj5HtAO6TxsqzOJLi0IGojnWMH1rBfXW53HkJLe4B+B
KVv4HrdmYV3OEOq9M/IqfdQRJLVUkl20elF5iNI+5chjkGM0cPdMejvy3/e2
W6HxJEhP6EferK9B63td/5sxcgG64rq8Po1kxM5VVdCJc4XcjON5BXUv8EjU
4rCRqBvgCufuzQ/f4YmiaeFmV3cQfiRTUM7+iPkdLGcTHntC22i7W9yZz3i/
1GtTNU1vCPAYtlz7cgQ7LCv4K/PKB7j/kc0QIybwasngxIi/vnAzb2lk+s40
PoDMsB+fH1DPQ0d0Hk3jG+6iMyeX+UHNg9kIVzyN51/nGO+S8IMHlUs2a4en
8YfzLbNzan7wR/8//n1KMzi2QeHAWRs/6IBAdzJtBvNcevOPRYYfTJd56Wje
YeJtedGGhtl+kJXEMPxWyMQ+7Q6n1fL9YMuhvk1qlUw8qD5dxVPqB/MPp/LU
PjFx9Qdxj6paP1BwU1KQUGLhAK3TjRuZfuCW45vrlsPC08MC11buoIGz8I7y
2w9JfMc8PfsBokHXwx8izEoSWxdrYyMTGrSm/CNg00jikguHf9CsadB88yX/
kVESOw8wJUVsafC8XmHJiCKxuEmYTt4hGryo8H724ieJ/VcWuvc40UBaa7dg
pBiF1fx3X/c9TQORPoeKm/IU7vnUcV/4HA3cknar+mygcCScfX3/PGd/OWk7
H0MKb89b6t/pR4NHZlPaNeYUZi6PW/wYQIOvyYfkLx+mcIavirT3JRosT56c
T3WnMNcu6/1ZEZzzXL3FVBMoXJY97LE9kgaFPTu0uvMo7CIUcKOTQYOkf4Zu
0qooLOklnOuZQIMck4tz9q0Uru/MfMOfQgPiRttU/TCFL2zTHchMp0Gu0Dyx
8iuF199t+Ln1Hic/jULCQX8p/Inv2Kr2HBqYW+waK+Fj4xh3tq57AQ2UGum6
mYJsvLst4gDvIxqkKsQSB4XYmNJfff5OGQ1W1bvVFQmw8b304kj9choE77xa
XcDDxrbcxnnvqzj5fO2t/PwHhXnPdtWcfU2D3h+Ljd1fKPz0nfsgVx0NspPY
Yzs6KXxmy9+ltEYabJwzCI3h6FmVmiij+54Gs8eU9sdnUfi/3+r67zpoULWo
90nlGoWDXKoPunbToEf8XJgGJ1+ajQe8/vRx9DT1iF+woXC/1nhUyhAN7jpF
vv6sS+HYpIv5m8dpIKVmtV1QlsLop0ht4xQNDnN9ywjmozDbKXvoFEmDrQ0f
2tLYJM6uM/i99JUGcvk2RVGDJLbXbF6dvECDEIXjBhbtJOaPdzLQ+kUDvsLF
6Zw6Ej+f/2bbwEWHQFubiV3VJHY7dsP7JD8dSsjnsbeeknhNjVzM4jI6xM2c
1JV5ROJm9dIHCSvokGMm9V3hAYmDGaZ1mhJ0uDrB2MKfTWKtb73DtavocHuU
q0ErncRDh73+HJejA/mj0FAikcTxr3hkF5TowH3p4n6zSBIbq6RsjVOlw2//
OdqVyyT+Hqlpv34DHQRV+y6lepM4l8I+NVp0iFlpV5rqROJDDvaMf3XpkJ8m
I1VgTeIKpcv1jJ102GZ5ashYlcTu18RG1YzosHfUJeThShLLMXP/YlM66P9e
MmpfZOGWg9vljljQYVGmzMhgjIWvlL83/GpDh55SNSG7VhbeLO/iEG1HBwUX
BcPYKhYeDl/wVTlMB669997qF7BwwmR07MtjdHjXrK0clMrCJjZKDw8500Ha
3L3JI5KF1frjTtidoYOu2KvaqSAWFnLnFj/gQYcDtbcuiXtx3vuCb52VDx0+
GjQvXD/Fws1XRy7s86dDsW6DWKcjCxdJ2G00C6LDhlPXS72sWTg26+2gcQgd
zBefjHQas7CPtl4iiqDDkRb5wqtbWdj2ZY7Zzkg6rP1nWYqsJgvrWUr9NIyl
A3q3X8tCnoWle68W6yfSQfzOJ2JShIV/nJk/uSWVDlYmXOlffzFx7/czktoZ
dPBur/G9Mc3EleHdDZrZdKgKrp+Y6mLiO6J7L2nkc9ZLxFPeNUx8JfOFlmoR
p74jq98TxUx8cuP6EeVSOozqq8knpzJxsPCW1Swuf3jrFHGUljWDn9bvuU7c
84fk3uiAiqgpXPx5LtmzKQB0w+pTqTfjuIqr7N8dIhegcq/CRFTBMO6eUA1d
b3ER8p/6xvze3YeDPTS6O32DgGq447invBMb/NIbdym7BDgvI9JeogEHabap
lnwOBlXu3kvGdo9xs/y6OlneK5AjPjQ96luEtsiFyp43CoH7cjorvh1oQPH9
+ra79EPhhOjFPe2GnUiydPNXg65Q6O545pxwtg/Jn71uBPQwSNO0f3O2chh5
eKoW5guGw6bF6ON/gsZRbeBeMiw/HIKI5HLR+CmkpfyqtasgHMpsdFbW3ptC
aU26pZpF4ZD+OEhwS8kU8pJXpH8sCYcA+xA7zfdTSObt3KJGZTgY/wxLCBSc
Rh4r7vO3vQuHU2UFPqEh00g897ecwtdwaC1Nfy/sO4OCbWh//L6Hw24lSatn
ITPoy8LkYMN8OPxryr6MY2dQtcWHbN+lcNA+7tvG9WgGnWEXatTxESCweeYP
pmZQ5Y7Dep6rCKgLlSg76s5Ezh1llpU7CXDVrHtg6cxCtjPjHryIgFtTf/dg
HxYy5lsdY2VEgJlTjU92CAupGIS8GzAlYKPkZ86VWGgizdKadz8BOtyfYt1b
WcjdeczGypmAw8GvxPzNSHQ0aJV3sgsBwqId7WOOJLJMtLg54EpA0dKD0NBz
JNpYV9Lq407AocxHLEsOH8kNjFIVngSI5uvX8nF4SmRBWpTXmwB1udo1AsUk
IjUuH0imEbDWr269axOJBoxKfAb8CbDWndhU1k2i1qOjceoXCAiLGRfZMEai
kph97RXBBIzeYygeWSJRVm7wLE8IAbflFCTTBCiU8OqxmFUYAWUpj9jLxSlE
Y0vZDlwlQE8rhXtgA4VOL9vnp36DgD6DDX4dhhSyXxuc4BNFgIvswWypvRy+
tR/p4LlJgLxscWaNO4dPz0t9s4wnQOH8XvriZQqturZXIjmRAJm+56ekOPz7
o/yRnXoqZ/54HahXcXi4bZjmc5uAp8pHPlHvKdQ7JZlUcYeA9Uw5wYPDFGri
2fuU5y4BcWtmpJNmOTwse+mDZRYBML9+nSCHzwv1Hn1Pus/RR11oJjj8nm49
LDmQS4BnfLPiNQ7fx5yR1Fd/QMAWLU05Rw7/B4eYO/gUEsCWeLmsh9MfeKYG
+VcUESC4rPYENy8bHS8tTuZ5zKm/xKfKhkUK2TQNPbMs5cTvaUQfmKLQ7lGJ
rqQnBNQ3CmnJfqSQ1i+z+c/PCFhM4Pre/JJCilJB0uovCDDZvHleJYdCXOZD
hyqqCYjZ8SV+03kKsZ0kAnkwAV3TbwoTD1Jo+IJZiuUbAg648m9aMKBQR/zF
8qS3BHwTUo8WUKBQTWFR9+c6AgZzTtCtBCn05O3ggtp/BKysVFy5/huJcvrF
ZXyaOP408httGSZR0pypYcU7Arx6jMp2dpLo6oqLh3laCcgiFkz2NZAodsca
k8vtBGi4Bb0ZqSbRLbcq7R+dBBDDHorxT0l0N/mYLK2LgC/GrQ6pHL89qPkt
QPYQsM1hT/yGfI6fqMyvbn0E/OrmHbtwj0QVcjAw+pkA40STy29TSVSzb7jx
xBABU0XDam43SdQUEP6sd4SAH6s2z7IIEnXeX5dlP87xT2aprkgAifrbamNa
vxBgOKBy5IkricZ+u16wmObcL1vCnIfD+6wNgqfrmARsH5diWO7m9BuOD/YD
RYD7QMeAoAaJ/kTs21E1S0DDNsO8ZlESCZZNqxl8J2Cp/uyTbYssJDoYLV46
T8C1MlmduWEWuvM4852TQgSw7MUKns8x0dMDtfDyfARsLdoQdbp3GqmPHDLu
4r4Kxv5FQWmrvqDci16Kp7KvAv+12d43/KPI7WSLlJXhNfiZwd8ic24AlWrc
qDJtvgZ302YG9ZhdiH+hYWeZ+3UYWtEi9uF2C8qU3N8d/Pc6FHPpdbqNVSMj
w3+tK+/dgJb+diu3FXHYY9dbP0EUCZZP8vYuKdXgT/F+pWUdkeDZFLE4kdyG
7Zh5zW1+UbDV6A09o6IHi91a+9dKKBpavZSKZjYM4UPKP4d7bkcDy3NKfe3E
KM4tO3Sve1sMXH8v6bDi6xe8LfFnoN77GDjlEpVm+mIGb7EVYTe1xQD/tKzz
uaYZvEFMyc25MwaW7veR9f0zWO6m6eHYnhiok+p/GcnNxH+i4gwnR2IgaoXC
LT5zJq4JV1tMX4gB80G/uNi3TGzpZxvEq8wAR5GoPSGdnP9fx/Vr2joGDPLm
mJiOsPBOdqD7ZjUG+Pwq1rw9y8JaXhlHj2syQHyHmmqBOInVNpV0fNvEgNP2
+xaiVEisyKyxiNrMgNFu0QKTrSQWdZ/cXq7PgFIdrsdXTpD4g/OVJXcLBjAm
6fGOUyR+pxRP47ZmgNI/Bhle8ySuG7w/k7KfAYU/3cO0eSn8KvO5i5YtA5qi
szxFRSn8/HhjX609A9jDax1jObz/SK7f7l9HBtjULpYpbqRwfh/ZPHuEAS9W
y15X20nhe7e5TW4cY8Bigb3xqDWFU49IVis4MeBxenbiOWcKx8mo6z1zZoBi
20BAagCnX+jeVmR5mgF3M+TdpBkUDr9lpTJyhgFr1WWP2uZweNfB6c6Fc5x4
u3BOJIePaZJ+kis9GfD8EX9hRzuFPTsjYnK9GFDUfTFRc4LCpxNS+Hb6MsBr
rvZP9AKFjx8sDO6gcfQZSq0P5vD5/wCAKaXC
      "]]}, 
    {Hue[0.9060679774997897, 0.6, 0.6], Thickness[Large], 
     LineBox[{{0.00001923424073626404, 0.9999998775510204}, {
      0.2890748297863383, 0.9981596924766423}, {0.5781304253319404, 
      0.996319507402264}, {1.1562416164231444`, 0.9926391372535077}, {
      2.3124639986055526`, 0.9852783969559951}, {4.624908762970369, 
      0.9705569163609697}, {9.249798291700001, 0.941113955170919}, {
      10.171440500461852`, 0.9352465986394558}}], 
     LineBox[{{18.499577349159267`, 0.8822280327908176}, {20.64341601242783, 
      0.8685799319727892}}], LineBox[CompressedData["
1:eJwVVXk01WsXlihpOsKHWwllaPi6Knxcw7sN3ZRZkVu6hiiZ4vwoRRl+ZDxm
lyKZb+apcnF4XUMKlSlTMpXiHOf81FWUcM/3x1577bXe/eznffZa+5F1vGrp
zM/Hx5fBi/9n2QfbnURO6EPg7b2Nx+VnkP/iRrUdecZgC2ba+WfeIxmV8dUN
s5Ygr28i8t/UCTScMdWY/u4smJ7an71TZBjVBMqclI20hVHv6aO3bvcg35Mt
g9LP7aGp3EVNNqkZ7R92fsbWvQhNy/69p8qT0Hy+vPSReGcI6nv7ZNe+WjwV
9W1Sl+YCtIGNTjljXfhDCUu409kVslbk9i4LD2BBK6NPieXu4BR73/VM0Fts
Jt50XOHgVbCtaOasdE5hq02Fa5KNXsD8+CAjOPEDlhILSApd84YP+Jj9oSIW
Nke/YroAHfSecq/o1LFwhCuNbb+JDjldhYR5Bwt/bcrT0xalw7nhPeE+LBbu
93jx6YsCHbo/by5jHmDj2HZp88umdPhL/v2ycTEb8/v/veXUfTrciU5O9SiZ
wxoF0erqOXSYSjDLDmTOYa8eKyeFP+mgkyZcnNA1h8cVWfX8lXT4nhfU+Hhu
DjP7d7jVt9LBs9F9euUQB1877PT80BwdznwyOBZbysGsyQ13tmsSsO/sl5dl
ZVyccSI95yEigMkflVbcwMUmpT9jXQMCzMukHR92cXGFn80SYUJAgKDhl2wW
F/tuL3IdsiOgt/rezhQFCiv46oR7OxFwye7n6QRVCg+N9OYKXyFgVbi1LNaA
wr8ULI9q0QlQcOToRjhSmE/bxCw7lIAgGrj4Z1K4KmfS7ZdIAiSZ/Uf8Sil8
UehaRB+DgJLLV5Z9mBQW8xTOd08kAERXW707Kfy0L/NvwVQChhoTYz1HKOyn
cWwsM50AL1dFG7dZCu9/0P79f1kECPyHKeuyROERAVuJnjwCXHTKxdJ5dYzr
/DHXQgK6E38yyuS91+kONV9fRoD6x7DgbB4epSrlkVFFQJ7mp5o83jzLdXoF
L+sJ8Hvfvq+Yx08iLUny2EsCZNR8V2u8KfxsRVG1q5eAmKgJlXre/25eZFo4
DxKwMGbk1niawqOHp6NSJwjoCpcbauXpk9OmtrL8mQCf4VeVPd+4+PA/w5Ot
Ej7QFHDAmR3MxQamMsXWDj7g1DLeKZ3IwQqj8b+fvuQDxtpLzm+DOVjIdd0O
czcfUKmh8WV4c3Bn2JTfSV8f4CvWVZGy4GDLhrxftSJ9ICMxN0OUxsH2h/ZP
yVb6QL/DZQ+h2DkcIHxUisPnC4Z81LbPkWz86Kl+OJnlC0raqxZtwbO49O2X
FPeOa1DiUj1Z/2Qa1/NVndfc6gde/1TaRt+bxIMf5IP2n7oB6rcFf9uw9w0O
cFMa7PO+CTI3+jf/kd6H1X6oTF+s8od5J/cD5e+e4psHu+Ur3gZA080Dsc9T
ynDn7r1tO9ffBohThzzlUnR0V9BOD91ACLoSPGAf0o4SRlUttVWDQGjBWLPE
og+JVSp/VhsIggmfpyrXQt+g3ZfDdcEnGOZqTZqvP5tEbu7yRX9uDIG88Gx7
p8hp1HrdkBv8Zwjs+1os6pc+iw7LNr4aKAwBsTYLueKiWXS341jlwZIQ2JK8
qDxWO4s8d+/xeV0RAvNH9E0NhmaRZMuXb0p1IdDkMRJBE2cht225gt1dIWA+
LbT6MJaFduSv7JL+HAIB/c4zw8FsFGBKrNIXQsA9d/PilgQ2+rg4M97+NQSc
6JWCkMVGzFP9Od7LIWBIW5EraGSjS/NFSm0CJEgaJ1+gL7NRnaaNirsECRUt
zb3CvnPIobfKqE6LhNGqPQ2aLhxkyZ52W49I6FanH5C7zkF6AlIxxrok/NXY
mip0h4P2qQV2jR0nIaPjCv11Lgd9uGtkst6MBJupasWr4xzk6vDe1NiB1y9i
mJhjzUXnbkpcTblIAjP13lqEMxcZJZ2KG3MmoWQ3x/2qDxcdaqt45eVKQsz+
xBNaiVzEVbplnkKQYKA7+uP1Cy4i5sUtx8JIaPXyurzpOIWcNp2kK0aQ8Ohr
cz91mkJn5AISvaJIyAoQ1xtwpJDamale/jgSQiPqduUGUUjBQ/wfowQSvLZt
jYqMo5DEHUPRlCQSnJLtFq9mUmippuy0YhoJkCXQq8Wk0Ez3JOF1j4RDCmfR
3k4KDc+KJddmkLCrpLBk0wiFOvgNH/E/IIF29IfU/AyF6nb69xtlk/CjxjR8
YJFCRSplC8m5PL2bf9+s/41C6SaTYmP5JChpbcm0ZVEo5pKYquJDEtSf1Cpf
e0OhgMATVl5FJBgqX26J66KQe9pN39oSEuyLxKwLGyh0obI0hb+cx39f80xz
GYV03okOJFeTEC+5e9vXeArxnZiwrmXy9Obrs7G1olDYths2/K94++jR4SqN
cVGs5k8Gt3pImPC6+36Fp+cfLvU/L/WR4EdbGOlt4KKHzSsbuEM8PLPC9oD7
XNRxLeTx8BQJz16IZnfbchFtPHpH5Vce346Z035vOCijPLPLTjoUaC2Jte1D
c+iReSs0eIRC06MPoZf6WEhxylpvYF0YLJ2Ul1/Y+hHl3/Dc45gTBvY6pRXn
FqeQi/0LcWP1OyDzPDVazngMVSpF1B/vvAP2qTfsJl4NIMHFdq0q13CQMRwV
zXJ8gTLFzAYD1sKBzwKkA32ZSFf9vEldVgTw9VTrsxgJ2E27hb4RRYKMVGtX
mkUzHkmgV1b1RkKQ33nxn8q68em5gs5uehTMyzdzHr8ewiJ/yK0ZC0XDUs2t
YRuNCWwt+31y6F40CO0yvFy28A7nV1lnDWrEwJDM800H181gjaTv11VexsAE
UZ1z9hkbH7XcOt/RHQO0Sll9tWE2PiAi4+LQFwPK3Lh3Yiw23hV33CZ2KAaC
XNz39W6ew6tR8eozUzEgeUG+wNhsDjeHKHxLX4wBw19TC3UH5rAR3fLmelkG
VEj6Vxx8z8EGR5w/393LgAmrWXPhLxysNX/dVVmBAXxJZz/NCPLut+f9cxcO
MsB8q8rRAkUuprnO/FKjyoCZdZxqGTcu7ne4vex6igEy7N9rxD9zcZdMArHO
hAGg9OLsAj+F28Zz2almDHBx1lzqFaXwkwvP37SeYcBf4xIa8Ty/SPtNjClt
x8Pv764TvkHheElFlccODPASQednIykcOahRYuTEgDTT0uX2ezz/sbLL8LvC
m/8sUiuM55+EGF1suzsDaBuWRi++oLB7X2hMvicD1PUv3dIbo7BTYqqAljcD
bIL6d8tSFL5gURTQSzAgokGvcW2Nwv8CMzX5oA==
      "]]}, {}}, {{}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 942.4777960769379}, {-1.002030862700769, 1.002036199602014}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.494539458142347*^9, 3.4945394783553677`*^9}, 
   3.4945843116470003`*^9, 3.494590823266*^9, 3.503067046205907*^9, 
   3.526206281052*^9, {3.526206675351*^9, 3.526206683605*^9}, 
   3.526219666157*^9, 3.526219726049*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{
  "The", " ", "response", " ", "is", " ", "so", " ", "close", " ", "to", " ", 
   "the", " ", "drive", " ", "that", " ", "you", " ", 
   RowBox[{"can", "'"}], "t", " ", "even", " ", "see", " ", "the", " ", 
   RowBox[{"difference", "!"}]}], " ", "*)"}]], "Input",
 CellChangeTimes->{{3.5262072964613276`*^9, 3.5262073182505064`*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.4941611936818*^9, 3.4941611947738*^9}, {
  3.52621968476*^9, 3.526219686009*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Omega]t", "=", 
   RowBox[{"10", " ", "\[Omega]0"}]}], ";", " ", 
  RowBox[{"(*", " ", 
   RowBox[{"Finally", ",", " ", 
    RowBox[{
     RowBox[{"let", "'"}], "s", " ", "try", " ", "a", " ", "drive", " ", 
     "with", " ", "a", " ", "frequency", " ", "much", " ", "greater", " ", 
     "than", " ", 
     RowBox[{"\[Omega]0", "."}]}]}], " ", "*)"}]}]], "Input",
 CellChangeTimes->{{3.5262197318269997`*^9, 3.526219766726*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "[", "t", "]"}], ",", " ", 
     RowBox[{"ceiling", "[", "t", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", 
     RowBox[{"1.5", "T"}]}], "}"}], ",", " ", 
   RowBox[{"PlotStyle", "\[Rule]", "Thick"}]}], "]"}]], "Input"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], Thickness[Large], LineBox[CompressedData["
1:eJwVmHk4VG8bxylFIktE2pSiRCRblNueSotooWyFyhbZxjbzkEq2ZEtZQoqy
/hRReKRslW1mLMk+Y4sR2bK/5/1n5vpc1zlz7vne3+dezu7rdy7YrmFjY2Mn
Pv7/TSW/NhfIMNEY/rOw5gpbAN6CX010TyrAkrYWPzvBdWvvpRVOaoM9/WFn
8irCXPvf/fC1N4R733xvHyZY4rXrYsrkBehNLC4pXkFYu/gRP0fuZVBqK2pS
JPj6t9R9N+2vgcfRwoJXywifnxvOiJu8DoowMGq7hLAVm4dC7Tlb4JC8c7Zw
EeE7G9jL5nNuwgHX21HzCwhHbNtKvWbvCK6/DrVbzSOctPfVtYhaZzDU/TF4
7x/CrXHxU5bRLtCfemEiYQ7hwRd7yU8m78I6uiNP1gzCzun2Om/F3WGCI1M6
bRrh2cx8ri/nPOCVrOjViCmE1xUci57O8QL1beWc+pMIhxUFXuHtIkHFiFyE
wATCQp9qd0jy+EBNo606dRzhvV9NMi/b+8F5CaGdR8YQzq597uTyzB/MHqeb
034jrFjfq/Colgwr4Wrtt0YQ3uNQZGEejUDvWXW02yDCh921RyImAyH09o4K
rl6E3T0HTm97dA/e7HK5a9yNcDEpODdDPAgivAbDojsR1vRvcKs4dx8ant0Q
mG4n9HtgtjKZ8xCoMkWzys0IxwQvW5H1gkFzITJYthHh9pCUL9xdwXA9py93
az2h7+PBYAmeEHgr1VpPrUXYJf7u5ov2YVDbtXG4FiP8/rmwZx97OFDyxvMd
yxD+l1jc7vQsHD7IdKmu/4QwSl1JelAbAdfiFRPFihA2uKgndC06EgrW2Jyr
y0L4skVzcvhkFCjHKBvrxCLcuXXM951ONFRpXKVyRBH5b1lv+jM2GurW12Z/
jCDyYXhs8z61GBDtzIpYG4xwkFrGw9LAWBBhn63h9kG4YIu/y+jmeJB48kFn
5irCqtSnZwTs4uFBVVH56mWEy8ILpFWK4yFHwGTdqjHCtRzDzMBrz2C1sYa/
8zTCPX8vmIq9eg7zT2J6+NUR5mncr31SOQnGb/E5OYggHBWis+tOcBLEnP/X
XSWIsIi+xVJMRxJ89ZUIE95E5KssuqiXnAx3/E++j+FA+GjWijSp5gWs/2mx
uK+fgt/p/H5kLJMKHF2ZE9KRFNy7q+JuYNlL+GwtMVfVScbZh2ujOhkv4Wlg
XmVuMxmTdJoKlLnTwUBf/9SDajIWuNn79/clgmuMP7Hnk7F2Lpub8UQ6ePHX
2x0MJOOXx7Tc9kq8hqNRsUPGEmRsZ1rpVh2cCSsvtsQYmPpjVtRXd26THBCj
8iH1OF8saSS8/NI7B/jF5rxID32xBZ/d/eMvcuB2Y3RkBskXN4Ryxrn8zgFN
4eGznWa+OD/o1IdWlAvbdiPZ1J2+hP+a5tNy8qA6p5aa+tIHL8s446S1/8HG
AAueupfeOIjfR1fZ/B3c8TX4sZbihX/479t43bMYDHk8Hrbo3sWajlLs7qpl
4LOysdLgzW1MQt2mmvKfQfHDc2P+XWY4WuC9yvHiL9A5U5P/LpMd6zIUZXOE
qsE+PV+c8/xlEAxeRWLptWDg/l3rmdIt8HTyGFvg/A6Gg76brzx3heStnp3N
lvXQskhySfHzhASdPNnl2/WQeXttqE+kJ8Q7DZP3u9fD61NFew3SPSHqs9lu
SnA9ONU/Si377gkPboOdzH/1EPfkpTG/mBfcKeGaeLCmAbLF9Y+efO8FmqYJ
a4+9agBpjMtyu0lw/B7d5GZeAzAWDFJ6JkiglsP7OqqkAQybs26sWesNiuzI
YKS+AXL6Gk13SHnDgTc24XGzDfBUf39ShrM3CM7LikyeaAT1SAuVNYvewIiv
kH79uxESXerUPbh8of/OFQOJ6UYIKAnhLRAhWH/CNmW5EVw+PZLtk/QFl4XH
589wNUHr342Htuj5wp1MHHpiWxMYqYxxdyBfcOLYteaYVhPs+vd+a8WML9wq
7RrfG94E3CJhb0vpfjCc8caf8aQJBpuSuOT6/eBWtAdPWlwTHC6VvBn1xw9u
2vNK70ppAhEzu6WD3P5gJ3rcduu7Jni8tcL2jYY/2Lgn/uL9SfBVNZ6v6f5g
KXO1dnZvMzyO3J0qZ0uGoCyG0TbpZjguK6CQ7kqGt9KOv0CuGToXtBPWkckw
u99/PPhoMyxo91ZExJEhYt8LoW1nm0HYvIRZXE2G8p0MK/BqhhT7TcLWEhRg
Jjn8vuHXDGO/Z+cTD1GAe8e0W3BAM/DK2TK/HqXApW3rHjaHNsN6PouY9nMU
GBeRyrmR0gzBMekjvL4U2CngMP+wjrh+r3hTej0FdCOnArMbmuEpiUl73kYB
ez4/nmZaMyhoX+L266NAEW/4LrFuIr7yuo7VaQqc5c7Ty/7bDF1pl77f50Xg
v3bqSdM2KnDsSh+IPowgLdB324w4FXbFDVkNKCGoZed4tVWSCpphHRtl1BAI
sQkXX5engthpnrZ4bQTZS8rd07pUsHHbFf7nAiJ87yO91ZkK9RzHc0NdEUSG
8KTuc6NC3cfjMts9EOjsShZRIFFh+2RKeyoJwVuDzxynA6ngQOJLD6MgICVw
9vjFUaE1KPtqTxgCGflnFx8lUKFK+0aaaCSCnq/SP2JTqCC9tnlQn+gz+uNn
SnLfEvGWbjgf+IyITysmurecCrX5ZVNur4j4W/Zxs75Q4b/mAJJJJgJf+w9o
vpYKJ7VJtQeyEPRHdzgJ0qgwNf0xvyAfQf6guIHuEBUCvvydPvYJgWFYzlIG
Hw02lO5iP9SAgG03uL0XooE+NeLKlSYE7wqbRiq20sBqeEjUi4pArGeq9acE
DeoWsz4+aUUwfFjtv42qNFDBzQ1q3QgSq79LiR6ngXPUjY+cvQjOXTVP3qtN
A3q9UmdtH4KiIBR63JAGCkVRb6UGEAS1VdvesaJBgd+/H5dGEag6Xun0taXB
Q2e7r1/HEIyy/b4QbE+DzKynlZLjCC5I82qmutMgru/xx+oJBOtxclGONw3k
nN9ncPxFUGIsL/uRTINzaVcDlacQiPsbi9GCaXAyeHHAYwYBXWAgsiecBvan
vlnfm0Xw8LUn51gUjfBjV37QHILxxmfTHEk0iG/emXd9HkGqzUEHgTQaLF77
ZgQLCEzmS/t2ZNCAW7csl28Rwac9vQ3K/9EgYUYahS4hmOBNPThWSOhl6ocP
LiPYO28dnPqRBoG+9RqfCTZl7hm4hGnwnpY0f3oFQUQjQ4vnKw1e/LIe/U5w
5cf05M+1NBAT8uLTWkUw98p20bOeBndootZZBMs8kbwiQ6XBiYFLv7jZAsDK
b+h9XysNypc3eVsSHHszU+DpLxr8GhhRfEPwtwu3nQ17aaC8y3zDMMErx6W/
sw8Q11P+m9jGHgBHDoxKfRihwc21fAO6BN8Syg5yHKdB++fw3usEJ6469u2e
ooFUxukuD4Kbf8tqtM3RoBYetPgTvL51/HnYEqFf6ocvPgSrfc6b02Kng83x
wjRHgu9ku5jMraNDlUGjkzHB6U8P/5fNTQcttT/icgS3B/7lvc5Hh+XZd8Wr
RHy8zu/sRYTowKkfolBFsLape80PUToYXqwIoxDsqau0N3AHHdhMoqsPEZwl
N4tU9tDBzFW5l0ro0yv2oWtMkg7bmdQOB4KF1pPU0g7SYXUeFc8T+p6cVH16
WZ54foianx/B5M75KR4lOpz0rTkwTeSnoObj+cqjdCi89KrKiuChAt8cLw06
2O8ZNakk8nv+0bJd/wk6rN9zwcaGyH+Qe/mXp4Z0+K4cOpFO+KPEkiJ+xogO
lnLiwR2Ef/Yos3d8MKMD+3D4373/EFzeXansZEmHko3VzUcJv4Xx3IveY0OH
ir+LdB3CjzP9HGfCnegwIrnfQmUagXRD1Rvtu3RYmVsdFyf8bFHyYP0/TzoI
9aSWrE4S5/8xV8V1RIenuUb8SX8QPD/Gc0Q1mg4pdLUzl38jaJSqf8x6Sgd+
N1eV0WEEHJsjxtIS6ZDkGX3PfQiB0wjfa97XdChVPnz5JhOBZtzmrYxiOpx2
cwhu6ELgHkD3iC8j8pFgu2NTJ4I3jrHUM5V0OLRHS0unA4GgjkhY8Xc6ZFzj
Nowg6sHAH7HV8G46GMhdWJ9J1JMK5/hLbxh02Plvi8bNH0R8LOHcr8N0eM6h
YiX2jdBzlN988S8dxg589b9WhaB0cP2nW5wtcOC1Y/t5oj49tQ0SDOJpAd5F
xx35xQjuMtntXwi0gE7YRODaIgT7+5dEW7e1wGrY9PcHRH2L7vrrqSPfAtZZ
V3awEfXR+ZpLg4VSC9iJXJRlT0Ng8Iu1z0etBbw2K8bNJiNYaR+m5+u2wNXG
3PDyeETsRd0KO01b4Mv62oYvoQi0vn8b/xdAcHw/enMHwfZTBvpCD1tgWjjt
1JQDgtnaqiS5sBbQ/EDvOHyL6BfVFYZ2cS0grPvIPtwKgWhl0Vva2xZYl/+P
E59H8Kc4zS6X1gI3Z/P2CsohSHrt031jXysc0DHpPldDgQVfqe37pVtB5Br/
XGcZ0S+N6KZjh1rBZ6p9+fJ7Cmxakm1xV20FySsqa0RTKUA26vt+/3Qr7ECf
dn/2poDF0omSDNdW8NI+nvZZiuinF4RjRstawVp016M6TzL4SFU251W2wr2N
tcLSDmRoXXLmc69pBXJMzqy3JdHfM2pDlppawUy4qG/oBLH3LPkG8DJbIerR
7qhlETL0ZPQ7y3G3Aa3Hg12s0B9SlvNOul1qA/KvsVO2DD9Is9samHS1DTLG
xSpSifklvTHwY41VG3AHtun+qPKDN6kXD253aAO5qprC0Qw/KNBb5KmitIEW
l2PVRQc/+Bqu37TlTRvA8IIoY9wXRnZ0Xfq4SDyPb7OF3ogPKGhw27CntkOe
qfsrzVwSVJb6Pdr8uh3sS0+Z1yaQ4IL6n9x9We3w6eCuI9qPSOCqSp8/WdgO
P95nOPPYkCBfIflxVF077GTnTloSJYGclMInib/tIFsg4ncZeYEMv5mgvs5P
MMaCMSZ6niDZ/6YiZOAnaL338L+c5Qa2krvenBH6Bdv/hKSx1znCEZMSzcfX
OiHwZazzPWcrMNxzwIb7cRfwinEf9nqpBdXG3XXoUzfQHG5IC82dwbdUrv35
yNYLQdb6hZaSNlhQ+D1Q43thcD5Xms/yDr53M3ko83gfzMzOdI5oeOCYhEpV
ec0+kP/8aIetsQdObxx89EG7D7pvp9fSb3rgahU5meoTxPW9K9JPIj0wF1eF
C8OoD2RJTiV+fR44LLNvfoddHyQ2MDo3B3jimJG9PNERfSBC7d43UuSFXzlk
yfv39IEiR1uL3YI3nj01NN3e1wfW1jEVLtw+2EBaokSR2QcpumSak5gP/j38
XGtsuA9M4woMtNR88CG7kAtX/xL3v9hzwdDbBxdZ3XY/uq4fTnDnT41M++Da
i1LFM9L98K1wwnqxzxdvVbrhZyTbD4F36a6XJnyxvdALzRy5fsgy7rR+ueKL
eWhb6mwU++F1kVGJ4DY/bHR+fQfteD9YXluzT9/YD3ecGlj873w/bOSe7p+t
8MNj8BKcPfvhakK9g+oTf8x/+zj7MqkfOMzYHOqS/bFiVFtlqG8/dHh7nDLI
9sf+zI36b1A/PEzk8OSr8cebHrkbMkP64YctRbhy0R/LU/VMzV70Q15A/8Ec
azJ2txm+q1/bD75b/xrBLgqODw9UbPnWD/Gza+XcpCm4tGj77I36flD/9Mcw
WomC120w8g6g9sOmU9+2xJ+m4LicEkppZz/8vOvuWuBJwcWzIWEKk/3wKlGW
vrOOgheDZV/vFGOApfcsu4Ycsd+b93QEbGfACmvtYf0jCH89/IRvYCcDTkpQ
+fVUEI7omCZlSTAgNl2wQRKI/Vam9LSqLANUnhjnep8l9vnGU5NGmgxI3sK8
fcUB4ZyXS/sKtRlgU5YqX+eMsCAp10xUjwE1wenG8ncR/iUu+LX7JAN0GZ7P
+kjEPn/3Z5yDMQMMPVSjG+8jHCt869h9Owa4KdDK6UkIL4xsdR2+xYCsfdW/
MlMQtij//uq0AwMkRn3Z3V4ivP+mHJ+gCwPKip8ajWQiXFo825fszQA/Lltn
83cI7w7P3LLGjwFePObqfYUIP7A2O21LZgCXx+tBs2KEz3GXvz94jwHxeyu+
yJUh3H/1/sPiMAbYmu7htqxG+IS8Sum2xwxo8tRXf1KLcDbHyAT5CQM2K47v
LvmGsEeOoZleHAOqT1YsjDQgzLW6WZb6ggHOAka6ja0IO9GqrJXSGHCkhjss
tx1haoZXXHw6A1oXj1nc60A48fyvVYs3DDCLig3j7UZYLi2NOlrAgAdhJPJL
JsJm7D+XtQsZQE8K/Sk5SMRvxXfg+QcG4BdTqy+GEO7e6UcxKGXA5/WCiW6/
EeYmF7x9Uc4Aod7rXA2jCCt1DbfMVjAgeFFBdicL4bCEizKvqhjwc7gv7MUf
hIsXQi8v1TDAPZVe1jSBMMO0MtD4GwOU1jhHz00irCYq95O9kQF2kQMiktMI
23nZcpg2M6Ck82yp7AzCT1oT5PJpDFBtDpiQnkV4OIbrgUU7AxTLHKbW/UNY
aFrjv8IOBsyL9nxgEAzGHp08XQyo25c6VzSPsH1BFqdNDwN4C5pzKAsIxwn0
K3zqYwDzel7L8UWEK11ELQSZDHjnEmc/SfB449lHtwcZEPdu6ebzJYT1Ij71
iIwy4MCoe8iPZYRdWJPcd1gMcFLKeX1xhdDXcL9y9R8GmNsmbKUTXJtlYb3j
LwO+J+d1n1hFeJo7Nsx9mgGrMyqT+QSL23//8H2WAVI+lw352ALw6Tp2xp55
Iv+cbKPXCfbcr7rJZ5EBFyr+1GQRnPbQ+WjzMgMa2wq6RghuGEy32c/GBF/F
t5I72APwvN6vx5Q1THDdIpKkR/DeVwKfWjmYUPz+oPoNgs9zGAzKcjJhg4v4
IjHvYr8bZIH7G5iAJwzbiHkXZ1S+P9a5kQmXtHW/EfMupu4evXlkExP4a/42
EPMuXkG7o0P4meBXWNpLzLtYuvdyeZ8gE16WJiwS8y6+CBEjqsJMmL+ltp2d
YJT8VShShAlecxs1a4h4s5cXYGgrE3gcLG0DCW6/dthBYzsT1kw6hioQzFF6
My52JxO6h64VtBH6yG9L/jwmzoQlWYNfrgRf9aGP6UgwoeLdYS52gh/85BZN
2McEh/R59fuE3gWqWjp/pZgQ9u2UzwqRn+6nXs4npZnwYce9GkeCuedynqXI
MOFzSvz+JiKfypeYX+cOMUG0dzFtP8HWhWITZw8z4aGH9zFPIv/Fbg/1l5WY
YB7PNzBB+IdJLXM1UWXC2qpgtp0E8ylMJ2apMUGelGusSfjNbsJqyhSYMNI8
W2xD+FPISS2lyIDQm4+xXfYvwpu3NNZqnmaCt2JBx2/C/4L4xuS3M0yYXP62
NZE4H3wC4do9F5jw5jtJ8ecYEW9hD5PTnAnbJs6ElhPnkcvCnTfKkglOcnZr
tw4gzMm5QXn7dSbMpjyQv8lAmMNU4aH8TSYIpGtWd/cgvLoUdMDUlQnP0p0y
1Yl6sPJq6wWGGxMeqPtFKhL1Yulsro+TJxOufzpit5tO1L+Utu8BvkzwrLOf
aW0k/Kor7fz2PhNcmGOmBUR9+h3WWLD4jAkzUVMzcgUIjyjZ/LqfyIR36Faz
fR5xHrv/reV/wYQ0pcF1z7MRHpDfc3FvOhO64vtjW14j3Et3nzPMJfSSyRCo
fI5wy3axY8mVTFCIPn7SEyFMr8q12V/FhIEbp3rm/Yj65awTXlDDhPtHh47e
9Ua4qcKxu/oHEzhsfa5oEfX9mw1Gf1qJfNqcXja9gXBFtk2V5igTdicd6vLR
If4/m4D1CxYTakU+9sUS/UTjYtnS8h8mUE4s+mWoI1y2LKz4aZqIR88hPJfo
Rx/P1qQprTDh7lBkvqEEwu8nDiBpgQF4c/RXXz0bwm8U/6gJqQzAgZMaL4Xs
KXg4OKH17tEBYKfy/7fOioL3d52426w+AEabigwHLlLw6/spbyI0ByC3PMzU
RYuC01uNRDecGoB1P1YWikQoOJn0fmb5GvF7Kjda+D6TcVSpd/5Q4AC0PvfL
O8ZJxulmQSe97w/A5/tfL2xa8Mcf/kX0cwcPAPcWJFA/5o87FdOFDoUPQKLQ
jKgg1R/vy2kguT8dAC51t/ZPCf64OElCiz17AF5ppTs9P+iPu8n1zWItA/B9
Othq4Dixw2vtnjojNQgnXuRVlMv5YHKIzuq7A4MwccR0wGmXD26i2W4UkxmE
DKvGZ3x8PtjT7q3EoPwgDLp190iPe+PK0CMmZLVBiBczE6/M8sZmrXqFuWcG
wUr36zX/vd44xMHei899EHgtR4s9eEj4d+y7xaaKQaiVSSwYKvbAZom3Xhld
HgLNbCyRXeCCn4jkv36yMASRjupble7Y4vHr/U7jUcPgPqCR9kWPmFolMsK4
VUdA7sOSRZ6POgzFRBju7RiB53eNLp+WtIK+ViuqmetvqJybsNgc6gAvw6vy
zguPgu2aetMEihuECAkb38gdhY6rxRLKGiRw7JKM+ZQ/CvdzgsYcz5Hg3GvV
ls3vRoHbtVow3ooEQqrXLn/9MAqZ3JVnvweSIOnqy6v7Po8CdQPTLr2amLfT
DtsM0UZhZP3iMVFDb2iVP+vhMD8KiVKvfuIzPlA8b1n0ZXEUcn0Cc53NfSCh
0nVu28oodNk0J/I7+YCVSaz3jzVj8OBjeZJsmA+MeHX6y/KMwWCpquj3Oh9Y
Krd/8GfnGBw6/08kVNsX9px5+NRNd4zwZ7Z5+wE/aLeca1nRH4O0khm0/qgf
hN+9KRRycgyekYbnJAz84N/TE09Szo5Be0dltoydHzT0c4bWXxkDZa2JardU
P/AhBZOlnMagZ2NfQL2QP1BfPrL9FTsGjqZHnC6O+0Nw0fxLu/gxYBsV2npx
0R+O193un3w+BmTNWn9tLjJkjp+05EoZA/cLQxqDu8lAPsptqvR2DK7L2aud
NyGDdGOI4eNyIt49vnVphWQIWAg9ojM0BsyDIQnDtylAKt48kDYyBp9P99g3
u1GIWTchbs3YGGSJWY1m+lPA7O/b+c8TY3BC6FirxBMKKPyuw5oLY7ApKFLB
4AMF+n9yGmrwsiDASHzDbjYE7U8fLyfxsUBJLzoymANBw0WRvGUBFjRV8u4c
4kLwsVlSsGwLCyJZq0qPBIh9uk6vXV2cBddMb1Zb7UGgW3LP5ugRFqHD0d4r
2gjUvDZueabEgiM7zl0+pI9AXim65p8KC3YKtgcsnCT25f/SpIuPsWCDw9tO
TyME05mfJ5T1WRAkZiayaongVfyqn6IpC+jzcetP+iJIvPTwUMxVFqzRu6T9
kIwgSoivd8qcBdZplt2fAhCQI3fqvLvOAlfPwxJcwQguBR/foODIgp9+KRdk
YhCsJ/nGylFYoFukUp38FkHmyJeplgAW6GkbmEbkIDh9leeCXxALmN6qD1zz
EURqJG2qe8SC36zlSMEiBGLr8MPrMSwYt5xKL69AUOrJOcj1lAWdo5u1Tn1B
YDl8TjfvGQvc7ZY16qoQpH/vZVtKZsFlTWHd1G8IZKPW+MS+YUG0jsbbYhqC
prWn29WziftLJMO6WxDc9YhW7s9lgQwXjp1rQ1B0Ze/UofcsEPl3ec3aTgRX
vjkatRSxYPFGzqWZLgSL6oV5viUsMFW+VdjRg0Bzl75jbTkLnoU2eZAZCPoj
I745f2aB+fWUumMDCO6vadsv/JUFaY/5ecYHEXwbuDlgXceCurP/aR34jcAk
+5HFIo0FfIzSPPYJBLM7qKWprSwQU5j+cGkSwbPHYtsMfrKgXzvBM/kvgu67
WW0x3SwgdW2YXzeDADGnlNT7WBDK+zxn3ywCiUvHYvoYxPPU9RZU5hDcOlp/
/tAIC35w8mkoziPgzhLOo4+yYFdnsuTOBQQ52y14fcdZQNmnHrJA8PmI1w67
J1lQIr7let0igr+r43U1UyzwqY3ICFlCEOOqst95lgXrhCVNNJYRKDMoD4Tm
WWBscseaSXC7SS3z4yILNtcv1f7/fZ5vNb+O9QoLxixOBXGuItipaprKyT4O
MUqZYUEEV7xJXc1ZOw5PO6V+TRF8fdtvc5P140Dmibh1kS0AOMIVShe4xmHG
/LTs/9+fvl7xEUvdOA53C/x3/yH4pMsX0olN4/AjdvGYFHsAjPVtbGPxjwOv
rL2XEcERxiZKMZvHYSPFvNaJYPmqxGi1LePgvyVQyo9gmvLAZK/oONirNIT9
nz0zZc8/3DYOUSrFE84Ei4p55sruHIcb6+8Y/v996cfQch66+DjQXgo8P0Cw
+fJ6Bx+JcRg93E+fJOJhu3OuTlxyHHb7us4T8y+k9T6Vqtk/DvRDFeuuEPw/
EgZLDA==
     "]]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], Thickness[Large], 
    LineBox[CompressedData["
1:eJwlVns4lOkbpq0IFaGkkjOpNlRWJc84tGsXRZQSZUWmdQjJqpRhlUM1zhFl
UYkcS1IZXiGHsJgZ1nEMMw5z+L6PUipkv9/1++O93uu9rue57/u5/3juV8Pz
wlHvZRISEo/I87+beT3fXeGJs3l8jWXt0hIB69Hjac6MMRwW+2aIpwlo/eGv
vMoZS1DYlBbcP0qAVn7QfM7MUcgIm9StaCDAYW7qyd0ZT8jffTvhXAwBE39r
X0+aCYb6wh6PjjUEGIVYCugzUfA1jfpD1hYcXE53Z9+ZSQZqAN3G5IAYuFvr
gqNqHkLEda3aQzpTgCU3hsg4l4Ab5cjBx858iJa/Ym3iXgHaVvYKO9O50H5N
R9Yz9BXY/bYtd5NCP1D89CRDTGtgKGjc+Nr1bgijcU5SDN8Co4xqopFSDykK
L346+KoBaPNXmb+VpYA1b8/OEqUmoLGGX27Wfo3WxS7RVB+1gHSvlFcepx2F
+l8Sf5Nqg5xFTa15mV6UvTF0qPtMB1DpD/5wpg0jXkadQb6wE1zL67HFtjF0
Zsepls/a3cCY/Pt+ZPIEGvp0xWBjABMm0G6PHU+FKDFeLlfnIhN+bsLPm78R
Iqut2RuMw5iQ11540eG9ED21ebvcNooJrv1bY0KEQhSWJTUSfpcJXR9kSxkG
IqRkkZrCrWXCKx3+vF2RCNndLll4spYFsbdS0/2LxUhCAy6+UGLBRNKR3AiG
GFVUdgnqNrLAOkOmKKldjFRHPvb2a7Fg4RGttlIsRlNG+5/JmrIgsNZvfHEH
hqL/bfK+4MEC1xnr3fQSDFVrcv8xecYCfZdP/5SW4mh6de52cSULapfFZxTV
4Ej76++xuW9YcLRUzbOgHUf0Tp6FXCMLaCtsPuUKceQRPvlitJcFvRWZm9J0
CZTmU6CQPsgCvzO7xpP2Euj90fMBdlwWLJNtLKVbE2j3NpFelYAFP3piFrGe
BFrZi2feXiDnk6dQr2YTaP/bsjkLSTaoMthGYSUEulAc6Dy3gg3Pfc7PhzAI
9Cjd6FmxDBtsFL83BrURqC/qw2rPtWwYqk2mBwwQaHVAxR8blNgQ/IfeCV8B
gSxPhjS3q7BBZj1Dg/qFQKHWe7WjtrDBw7xMKYt8F+36TPtJkw3tyaq22WQ9
V7VqWKzLhj2TNyJzSTyllWH787azIefATNUjku/60NePcnvZEMhv1i4i9TnE
LZ4b+4UNm00ufa8KIlB0SG1Duh0bYuO5e6rJ+V6fiVC3d2TDLMfWt9aJQJom
kgNVrmxoidHsayT9+TS23P6OP4nX3/ms+yuOMs3kdpumsKEu3MBbFImjcUJ1
6Q6H1Nsw0qaWjKG6gIzjhTw2WB/84j0ciaFMTLm0cYoNhlXyEveDMOQgknef
/8CGhacWezY6YogxsbKaKtUDGckP7yvKYyhl+EOolWEPdP3u4y9NFyOLtvf4
l8geoEgQaz7EidCD/Cucszq9oH7wu+O7SAHKWSz79eLxf6GAWjFa/XIcGZvL
eEnm9gH14zO3W5mjSHessC5+vB/0r684uVJrEHnrbi20VxoE6cts2btZLLTb
+TUlwW0Iyr38DMp4TchOc5uXTMIw1F02oLemlaImJ04rrZoDtERTyiPDEqD+
5Ea8keBC3fnIXo+oZlin/AKYGVzQn7U7UOzIgr98sicLDo6CxKWmPaHRg/DY
t8jw2sgoLLy2r/+zZRTE8BACQsegPCbXwytuHOZjd+arqfLA8HORYliWADzc
RwYiN/NA+52jZtFTATQaJa0dV+OBfOqcIee1AOgDs2FFWjxYMLI6bN0nAM0d
DFvTnTxo9B+IlVcWgk3nbzOOFB64jUt/L6ALIU2ZanbjHA9i2d5T/ZEi+CbY
GDRF5UH4Q9k5uSQRnK5te2zrywO/4GcrKDki0PfZtXZdIA+c5Rc182tFwHj1
eTT7MqnHLtU9eF4EY6duxLy6zYMXDfVMmUti2JWXxxQ95wH/+daaA1QMXCX7
Fy0redBuGmyg+ScGNz3WbsusIvXVNqZL38SAoxYeYcPgQcH788E9DzG4nXVs
x+N3PPAYq9C7MILBVKr0zdN9PGAr2CTnHcdBadb8WeUAD1rSM5divXEAp0tD
csMk/xbM70IIDncVxoyrR3mQui35F7NkHA7Rq0c2iHjgYDG00NOBQ15MwL7u
RVJPYKDPqkME/DPxyEtfgg91n+vZhBMBXw8NJkQs40NBuLJlryeZH8ttJnZK
8SE29s3mhzQCws9eV7ixig9ha1bHxyUQ8KT+hdmQLB+oqWfmLmQT8J2mkRIv
zwfrnOVMMwYBBlyX2tF1fDDUdQGtNgKOAV1gqswH9eLC4lUDBNCyG5USN/BB
znhh4/QUAcWL32ByIx8Wqg7H9M4R0Odm5Gu+mQ/y9adlrb4SsJzhczdNjew3
k8t2ExJguCn7rVidxH/52jB0kIBTV9hiKy0+UAx9GhLaCbjZL6OSpcMHh6dK
xwtrCHhuamH1QY/Uq10/VV9KgMxcyb2cHXygqWxZ8zmRgFcXY35e3MuHFgnW
CbdjBCj57895aUP2d5vj+hwcFNd3tlBs+dAXeI+/SPq5Dp2deW9P4snPDjBr
cFircMdy5Cjp15HC5vAHOMhUjvCl3El/OxRzu9xwWFqI3nYyiA/676ecwgYx
EN7ufD5/jw/SDcmvm/vEUFfs9Y4iIutfTESfYwkhmXG5fDJqHL78qqMzu3oS
tltofLTXmyD3YUm569wYCNMq5rvqJsCwNf2Wph0HXO9THzu6TEJg+uUz3M5e
SNpQnp/0bRIoNkOKOZ4dgHuO+ePJU0BxpKhFXGLAOq0nt2VMBSDRVWElvJOE
JlPpdtoDAuCqNLZnONaj0V4PpmuQEALDTimrlnahh3felTkoi2Bapx6r7OlD
8UrKTmdLRTBVda3/xD4u0rSPSb9oLYbpTTY+pbM8FPnt1m6rSTG0qLeu2i45
hVaGXU3bFYFB38WKPJcWESoQNHzsicTgS7mGlUm/CNmekjsaHo2BOp7AUxKK
UKL5gzWtcRgEUv20mbJkXq5AMZ6pGEi76+TbHRGjncnLrqQVYkD5Ob3QoleM
nIvjTs+zMChXuVq+nY+hz1uYjNxeku+YwEHmE4buJahusunHQCLFZWZqBY44
wUX/pnIwcFi9xzhfD0fUfR0OPwowmJbEKtR9cXS1Sd7q9++kHtHpKuUPOFIz
PZkrJYmDg36Hy+wyAtUV5i6V/IBDoPeBL0xFAi2/Y8z4Jo1D+ciGfYlkXtCd
nPemKuJwgt31RuYygQzf3U/Zvx6HMAU4JYgjEMtkfIargkPB4ZL55kwCqaiG
lu5Uw2G6Jc7sBpmfb27VyrHVcVBZ+WXobAeB3BdX+l7RwoFide6aJYdAEheO
tKrrkvw09hYNgkB53HS9Zn0cEv//X0T/AQdafzM=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 0.942477796076938}, {-0.999999877551021, 
    0.9999998775510204}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.52621980648*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{
   RowBox[{
   "The", " ", "response", " ", "is", " ", "too", " ", "small", " ", "to", 
    " ", "see", " ", 
    RowBox[{"clearly", ".", "  ", "So"}]}], ",", " ", 
   RowBox[{
    RowBox[{"let", "'"}], "s", " ", "make", " ", "a", " ", "plot", " ", 
    "with", " ", "the", " ", "response", " ", "enlarged", " ", "by", " ", "a",
     " ", "factor", " ", "of", " ", "20."}]}], " ", "*)"}]], "Input",
 CellChangeTimes->{{3.526219906142*^9, 3.52621993751*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"20", " ", 
      RowBox[{"x", "[", "t", "]"}]}], ",", " ", 
     RowBox[{"ceiling", "[", "t", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", 
     RowBox[{"1.5", "T"}]}], "}"}], ",", " ", 
   RowBox[{"PlotStyle", "\[Rule]", "Thick"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.526219947441*^9, 3.526219948407*^9}, {3.526219985616*^9,
   3.52621998627*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], Thickness[Large], LineBox[CompressedData["
1:eJwV2Hk4VG8bB3BKKVGIEiWVSiKSPfoqEpVCWkjqJ1SKVJIoIdlChZBQSYos
FZVsDzPnFJUsM6SSbYaIUSKl0Hvef2auzzXXNec59/09z3IWOR+3dZ0kJCQk
zHz8/7shIHOf1H27dZ0PX0z2NKHJHHLve+ugFkribOyEGVdPvpj+dHADQqqz
4kJBk2kqBW/93bdCuewje3wdTZZknvh7e9AWctSyHjfGG4oiJEXydmNSNF+E
ZUwT59d3lh5yd0RDmPPCWYytf/XcTxh0hvCVVrcLa2lyQOi0VtV2V1z6Jpae
bkiT49OFy0ZzD+FUzeRfzw1oEqMwr8HR/RisYg1nvtCjSaryPceYKk/s33mh
PUOXJk0JSUP747zgsPlQf7AOTbpvKQdcGzyJqdPDa2XX0MQzw900W8kbalNt
n75eTZORB4+msbefxkyD1sETmjSZ8sQobjj3DMTScyMS1WkS9Sx4j8RnX2jy
SwZl1WgiU1K1YJm4H16Y4nWoKk2UKbsHu93PQVntRheW0ySnKtnD68Z5aBZI
6IQvpYl2TbtWRFUAAlZbzmQvocnio8+c9sUFIgFFvpJKNFntvaE3ZjAYA2zl
72JyNPH26dqiEHERccvFt/fI0qTINzzvvlIITsoqeRXNponJ+XenKrZfwobA
UtnVs5j6hTpMDOaGYWrRwcKQKTSJDx8/ELAxHHX6T7/+nkST5sjbbLHP4SiW
S5Y/IMTU90p3+BLxSMQ/3hIk+pciXkknZ+90j4Jh48zFJd8oUpgs69MhHI39
e1U/v+qnyO+UomaPG9HoOiPz6lUvRQLvTKSGVsXgVPl60zs8iljs3CjjGHcV
TpON75Y0UWS3U31a9GAszAxEVOKLKdIyr9+/wDQOPjN/TA19RhHnxqn2H67H
wX/an91HnlDEc6vR7KWG8VDk7Dopkk2REMP7YaXB17EvaOhsdBJFnsw579U3
OwnHTt+L/3GSIvoNiVZSbkno8XHJ++dBkbLoJ6p6RUmQm5P1cuIwRapEevjB
jjfwjz0qw3GiSNsPW3v5e8k48+zs3EZLiojXqmyw1E2FqukOC/MFFImNNF14
PDwVL1ye7TozlyJzzZ3G4j+m4qmD2rdkKYosLot71h6QhjctezteTKGIwcMJ
Vd9Xt5CxSaFst4BNCky/RuxQu4PFkUea5IvZpH1hxcngsruYt8Cn+K8lm+Ss
ropt4d1F2uNcAwlTNvE1rXuiK5YBQd/RgdlGbCJ1qP3H110ZiHaUkRVexSYb
8oRO7fiegc2qJkp7pdjkrtH6U8pLMuHiX+Yl08QibvasUy/DH+DfkhjHmt0s
IoilvMXscmHNm67ZZVxJltnIjt89m4vNXn82P9SuJE6z3C4Z38pF+n+OxYdX
VpJ3l0UTvL7mwkLC5nG1XCV5FLL5eVNgHh7LeJUqD1Uw+asbTc/NR8qxsiUb
MyvIuJonSZ38GPclS+7vm1pBQiT9zHT3FWBLsgOhnMrI2/NLZzj7FGH/dtte
saZnxOTYcmFv/TKIX9h0tmb6I+Ib2GpvolmJwCcm2u47bpM4qUI94yI2dgyN
prRLmxMznrZ6rsxLhNS09ExTToV0+L9A+YwqONisi/23IQ8+Hqf7/4i+QVub
g9yA0DOkzfNpqd9fg9eGiVFVCqW4aZqvPn6kBtJmlPoN7VIkefQEqHjXwPoz
T93BqhSxlQ6LLoTXoMqkf3puQClCj8BN7XENxk5HHY5vL8XxF9O+h056h/cP
EsP23imDif3NyUb33mE4T8PDYQ6B8UWu3aH8d0gx2Bs+V53AMFciM/bFO9yi
E8ZYpgTawoEWvTXvIPfR9BHfi2BFlkt0wsg7GO85GWLzmkB6VH3u4KZaLJW/
6dxhVAFeUoVq5tdaOHfv22jZVYHO43sslgzXYrDAx6J2gLH5d9fb47VYJutT
uvV3Bbz+XLG2mlaHl2detajPqMTxB+TyJoU6xKVzzMOZunqILJxktL4OsxWk
JJPOVuJw6ecB5eg6uMUkfv0pwkLP/azzvGt1uJru7LpPgoXDcafF0xPqcEvH
N7BEloVD7hKqC2/XYdtvcn7vMhbc5Ixd5xXUYXRWUtuKTSy4eKd8kvhQB4Oz
GWF/QlnYr7a3akS5HvZ/CinjfyyEPOTZKKjWw7x0862pomxkqx77BI16vG6Z
HsSeycaIyvmBcIN6tKyI0p+nyEbM0lsyCtvqof5xKGaNERvlirwDOFOPjEkr
cuf7sMFPPfr14Ll6cG0N5y8+z4bYguFT4UH1OGxMZiqEsLFLYUpY/eV6uFQX
O365xsbA3OW5B2/Xo7Fl6pOeHDYUpY6OhlXXI3yOzKSwdjbMrg4F57yrh9Mb
T6qimw33WefE6zn12N97OlTQz8YzieiF8q31cJxb3rNwlI1tYvkbc37UI36L
2rovkhTOTx66VqfQAHqZRNtvYwrpwf4KP5UacN9/0QsnUwpVwiL35i1rgLVG
/cznFhRkhGSLnDUb0L6vVhw7KOSM6bYOmzXA2PqQ18NDFFp++qnO82yAkPnb
GwPRFK5Git9ZeqoB/ius9A7GUjBdmDZXy7cBB9Wrt71OoJBtUSmyJbgBobtm
1xy/RcH3pmjbuYQGiGcmas19REFN88bOiJsN8Jk99lqxkEIbpfr2+u0GDJte
ui1XRMF8wOpFXnYDlq8U53cSZnzr4+PayxvwZ37u97p3zPgbl4oJ2A1YYJ6e
cKSBgr/788DRqgZ8sk0wHG6k0Bn30UOa0wDNJ72ObS0UHnUrWZh9acB/3hpa
4l8pbI3KHbs/i4MZDw8FvRCmIbQIpwplOGgOfeLpKUKj4Gldb8U8Dnw7F7XJ
iNKQbxtq+rCEg5I/u1boitPoWW34eIY+B1M0QoOrZWmkvHyzXM6YA7EzYw+m
y9HYvndfmvIGDizXm85eK0/jWUjgZeOtHJQf1Lt+QpFGyPuXrscPcNB6UzdQ
bRkN/WN7WvxdOVghFvjz53IafUJfbcPdOYhNMD71aAUNW1UJkzveHIx9WHPk
txqNqSTtWe5ZZjwRd+ovraLxYoemenEAB7zIH4tFNGkond8hzwnnYK+7336O
Fg2uVNfVtmgORD4bGSpr0wjL9BHtj+Wgylbms6sOjYHaG8MiqRxMXOp2KNGj
ccdl5VGpdA4Mh42W1erTsBst7VhwnwPx68eSOQY0Sha3v9N9zMGkAp0DeWtp
fJe4s7L/KQdFx/fm+xjRUB79L/xOMQfOHwNjVhvTsOcv7tpFOLhjMeV3K+OY
Wt56cYqDMFvD7oB1NFjFGWmVVRwofbDbIQUav+65/vWp4WDLtP0GCYzVri3b
o9bAwY00tVgJExoHzn0p7GjiYFWZ7e4zjK8feiCV+IkD2/3KwRzGr22PeG5t
Z+73UOGMxetpTBirvhHu4iCv7XO/M+M1K/qWP+/lYD1lq5jA+LBMTsixAQ62
aT1OKmGc8u9Yx6IhDgavptlxGNd/VV/3/hcHxbVfNn9mPLVpIDlqjAOLiHve
HxgbVub/Wi/MRVmU85tXjI/neNn9msLFiLyp5QPGGYmrH+eIcVE/bWWvH+Pm
4B8SzrO4KB1uzwRjCc8C97kyXES8V7swwox/g733q7dyXNxy/378FmMfMx3l
4AVcCK3Q9zVk/FBjJFBvMRePJMySXjH1aZd//rl/GRdLUsPqzRnLTPU1TF/J
xQX9O8uKmPpaDuon7tZkrq9meVOBcUDL6JC4DhcKDgbaJ5h+PHlVbM0y4MI5
Z+avIqZ/X574555Zx4VI39KvP5j+WkeMu3Vu4iI82+28sSGTX+9yduJWLgJE
8tS2MXl4sf+CkpUNF3prVVRtmLws1hX++NyBC2Hn1RqrdGnsXsTS9djPxf0Y
PfNpTN6ixC/GLXbhwuub4WvuGho/O0Wsoj24uKv5RGfjahqq7+isDSe5mPhJ
VHs1aDi9CJ3624eLD7vEHlxg8l51ZVqFcyAXxvJudiEraSQbia/Rj+OiKiJC
SaBMo3Z5zRVBIhfcWqspy5bQEJkd05+ewoWZnW+GzSIaHr2zMiUyuTgaMq4W
tICGScLsebwiLhStQ1U3MM+zdxD3dFIZF9XCJENqNo2sY9cbrFhcFLtfk+JK
0pA2nRtV9Iap55B422pmPuj6Jv8vupUL+ZJuUdtJNCo8k3Zl8bhY9ixFIugf
hWSBbB7Vw0UFbfb79hgF6z7JfX9/cHFIWye1YIRCaffUksOijSioDZu5lJmf
El1DpEPEG1FnUKXc0k3hJF/Y/ZZUI+zycw6G8CiodI7JNSk0Ao8GAx4w81vc
5x8+ppqNMGjKUzZh5kdPR693TjqNMNmX7Rv0moLFJ8FSP8NG7JSrXFv4ksJE
cw/3kVkjtC7Krx4op+DObdVStG+E9zQ/VmEehfVvXg/8DmrE8DqFjrjLFOZv
tjCXCWvEiZubF3wPpTBSRadqRDVCsivCZl0ws168rNjqltAI+esr6Ue+FORY
z7I52Y2Y2jJSPeBC4VtRulsepxHCw59ymwwppGb6tR5c2oQ/WcNfr7Ww8cd/
+XwV1SbEGLjLZzcx66UN175/VRPUku5PPKtjY+aYeqO3fhPkEp2F8yk2Amw6
3lza0gRpTdmncsz66TS26cX9E02ItHSb8sGXWU9tZeP7yppgfLzgp7EYG37L
WfX5rCZoiaZa/ZnERtOY5yzvV02oPadmmPOXhZj7VZFjdU3YUyMl+N7PwsSY
f5AEvwl/f9r5T7xjoe1+p6eG2HvwH/aaaF5j4fZ4vuWpXe+hMZ27beFMFtLd
5gWn7n0PlUZJuS5m/5JRG1z86sB7mD+e+vDW30pk3dm5cv7R9zD+lGIz1FOJ
Jxv/itMX3mPFpYM3ZdmVoKLN6+Zkvcfy+pRvVqcr0bvg867iv8z1et84vKmv
gNY6MRfhO81Q8Kp/V/ehHKzScxGzM5sRcjTVu5hVDtu13/KWPmxG9kg3iX1Y
jhP63FHLp834d8cmctb5cjzSSrsSW90Mt6Ct1NqF5dBYrlWy5EczitIW7PU4
UAY1SQdpc9MPUDk+90VWUwmWdWZVRHZ9gM0ijqN6QhFcly3MspL5hJONCVPu
jD/GGrsXJlccW+AsvnazcmQGti5e4SJ25TOu3t46biceipc7WqsDS1rhsiQg
+VhxLDms5/itWKgdXaOJ6b80soi0bCEaktqh6Zjrd+RmAbl4KO3LA+MOPPFe
Y5cRU0zib7L0NU06cG51v8u6B8Uko7Y74vmGDuwKqflTXVlMXuppqL3c1AGt
G+Wnnw4Xk2nTKrx4Nh3Qb6r68sm+hEQ96Bhd4NYBU9Z87p5FpSS+V1k8LqYD
qaG7jt/NKCP3jj7UPN/WgdvOmRsDjSrIyOYvw80dHfhc6ugbal5BLFSXvNDm
d4D/dVVGiHUF+dqTvL6/pwO/U4/XHHapIKvcIm33/uhA4N2dBbWXK8izA0e8
DaZ04tjUbfrSHypI1c7lRT9VO5F2QneBsUclmadz8JyNeieuvVIW1fWpJO4y
t0xyNTqxpXDFgmUXKok4Z061i3YnVKQ5BX1XK4mN9dSPHONOlJxd9H5GYSX5
uLnr72PrTmwKbbZK/l1J+nEXnj6dmBd0wJTtxyKSR4yFx307sUG/vdP4Ioto
x75nXfZn/u9YxKrcyyxynj/DPCuwE9wOVtaRFBaZGeG9lR/Zidu3jlvZl7GI
ZsNGe4dbnZC45rFWfJxFvF16TppXdUKwXS8u7BSbJEUHaze+7sRCP+fxMD82
KX02f+RgTSemNMpKngtikynTbc4GNXTC0nPdTFxhk4TcFxdKWzpR9aonVCOb
TYpGIqO0BjvxJSjFrOAzm/wNV89UlOfh+VzvYIm1FDmwr+1j0HweAnrNyuaa
UIRafW1WlyIPCjlTd87ZSJGYj8O+D5fwUGyVGPR9G3O+VSvdoq/Ow6XTPfPk
nJnzfO3mQRsTHszn7wtZFUqR3LtjS59u4KFM7fU5/0iKSPvmOcht5GE0O/pw
aQxFPilJU62WPMimcP/NS2TO8yc/JBzdwcOt2Km+pvcpcl32sNElNx4k/4UN
WNIU+dM770TPYR7m5D+X5lRRxKn8zb0tR3no7/pYuf0tRVQOacyS9mKcOX5v
CYcipUUjHWlnebi5eaJau50ii6IfzJl0jofr27Uj7XkUCf3PYYtrAA+bpa1v
n+imyHax8sKVF3koV39U6N9Pkc69l8KKohh/y3478osimzT1ShWu8BAiIxf5
9A9FckR6vwdc40Gu8oj7oXGKnM7d6rAxgQd9R6+zGZNoMu3fbPWGWzy83ukq
e1GcJh4c+j+ddB6EzkpofJxJk4b7ZxKSMnh4a/hWR1mKJinWn/45ZfHwfaT4
21VZmmikpzf0PeHhQf4cp7cLaOIg/GF8w1MeLC8NXHm0kCahB2atSH7OQ37Y
939hi2jSqnjugkUpDyfC51yUXEoTsYAn2bfKeZiX5B9ZuYwmOp97GkcqeHAv
vlDkqkKTqJs71e7RPMw6KO8VtpImRX8u7x57xUN9taVARJ0mPHtW8I7XPLCC
LX1Pr6KJoZzGB+FaHgKHW1M1VtPE7YyriH09D1/inFee1aLJtaabGo84PIRu
TM95uoYmPfHTQp2aeQjKMfcS1aWJzPC6x08/8qDX1nRvvh5NsON0i/hnHtYe
j3iqrE8T9ycPRV3aeLiqaH5joQFNEqQ6tUo6eEhdq7BFwpAmLC85J2k+D+3i
RrSA8UDttogj3Tyca/8rXLmWJhtjStrm9vEwtFQ6F8Y08RIMih0X8FAVvEey
j3HKVhXdl994KFw3SSliHU2qHjr9t+AHk/fQvU3zQJNhsetR3sM8XBi6pJ7K
WMn9zfM3Izw83uOxcLYJTbZUC/MWj/JATa+458/YR0V/pt9fHtwe9b1oYpwe
5mlQP84DO3rhTuX1NHnXneGiIsRHcqWdlwvj0Y2frlyYxIdEi6NIImPle1Il
TSJ8dN8ZmV7K2FrEoltdlI8ZUT1nmf0uOXcwQOrSdD6+qSlZMftdcp9VaNQy
g49+28ZzzH6XNCzqO7RmJh9c3/xJVYwnAhfFRUry8amzr5nZ7xLV9t3lHdJ8
vH0Y/Mef8U7E9OrL8qE32fLgesaBaZTM1bl87Pw5U3KUGX/O+B98mcdH7cbn
E+mMmx1XH103n48N6harwFik9FDCdUU+mhYNp9Uw9dFUSKvsV+LD30Dedhvj
vX7cftMlfDxSWre5kqlv6AcxuZtL+QiV+B25jPET/fWmP5bzoXH+s1wA04/W
xDOelqp8LO06OPrKiMnrr9wbt9X4GKwq1xJhrLuLT/1axYdic/EbLaa//z2V
/75tNR+9DYlvdjD9LzoVZj6uw4d3wA5FDyY//IayE3b6fJiNZAe6MvmapTWc
8tCQD6M5yYetmfy5fT8wZA8+DoZqfxln8injYXj7mQUfbxoUXIqYfM+eU1tl
soWPxEqna0uZ/EuTg4OvrfjwKDNWusg8H7Okoje02fIRN5EQNIt5fsSetvFF
9/Gx+NiiVZ5KzPPu5C0Ru58PixKY7VekiajodN35znxoWz4YM5nP1M9eK0zz
EB+yNXVnmubS5N9YyAr7E3wQiYjYzcx8MHFvni3vFB+HN98srJxBk7FteX4e
PnwYZleQFdNp8uf2+zdB/ky//eknbyczeTVT9cy+xEfUgsPfnX5T5GtU7ZO/
N/h4csZrqKSVIr06Lp8upfDRfpt1aeMnivS0/p4seYsPMfb+sIr3FOnSXLxT
OYMPGez9G1lHkXau96+teUy9fkkmnKykSON8eaM0Fh8Tv6I+xd2mCJfOc1Gh
+Wgdm79bP4UiDZ6m0U9eMfkV/a/qHTN/11Uca335lo+NE0l59cz8/tqFBH5r
YvppnHZO8xxFKnJcaJM+Po6Y+cXb21Hkn5DUf7cEfBSnqjj4b6fIup1lY+Pf
+Ng/z9Dx2maKlI3LapcM83FuzkvNZGY9Kt72Kl1ngo9ti562LFSjSOH3FYGq
Ul2YPc3WQViYIlna3wxl9LpQLJjavTWdTXrCbzadNOjC+ovZMZNT2ETl86aT
9Wu7MFQ1uD3/OptkXrqdFWPSBfVfv/S6w9kko8lGbvrmLlxEm2ODJ5uk+Rb+
HHfsgt8kp64sfTaJLT376EtwF1625wouUSyS4RBiefZSF25wiocsSlnk+e+Y
TrFw5neJ76pChSzSop0hsyq6C51qN7ZvucsiS3Pf+XondqFLxOLQziAWKUpd
sl44pwuiWaEhJmtZpDWgpl6+sQv/knY65mdWkpXrFw1ZLe9GFNtD//2+ChIQ
afqvYEU3fCp252fsqCB1HNcZ8mrdOJyyqOKIZQXxccte0q3ZDa9pfW8+alcQ
1uU1dgGG3bhlrW9nP6OCODRtfJpn1Q3fnT8LUjwIiTzqfmaWdzfqdJctj5tV
Tr5eL/hbV9GNP3qmtxYtLyEOKYfv2ez+AuvEfLXdbYXk2txHmdf+fEHhpsj9
k95kkwHnTo+B2B7Up72L1J6bRKSX3I8S0+/F+R/7buaqBeFLfMxW5Y+9MKld
qt6qkYGOpgMNDie+4kPyLoV+3ce4G03nW8v2YWKDiWbw/iJEysjuOJjXh7qT
mTlsq3Ic+7wsvuRRH7qb7y23OFiO7Zn6jbML+rBVwnduuW85ZPQdd1PP+2Ab
fXJxwN1ypO69u3dpZR/MxVMDrX4z++301S5fOH24W2WwVfEWQZPmttNHR/vA
0hftSfSqQNHo/mfsv33IjZJSd/WrwE3WiV8KE30Qa5vkrBpSgQN218++ndSP
eO3E4JTECvSeaTmvLt4PSZ8l3xTLKzBW7h76TbEfC7T+DiRMr8Riq7DEU2b9
uC8ZZbg8uRLN+381Tpj3Y0r8DcmMu5WIPnlIJtKyHwe2DPrNya3E78RN125v
68erqtG+T6QS7zpFL9fs6QdLZZdjD78Sfr7hAcs9+nH0vtoJIXUWGu5GuH66
3g/+XBOXn4UshD8bveuW1I926VwN2TIWjKuPdA4m92O7SmrMCpqFBwOW+6fd
7kd4nPUXjUYWAgzE7HWy+5G6L1j5yTALqrWRW6+U9yPsZ3/ZpdVsBP25vMb0
Sz889+r+tzqdDd+i2V3pvf2wv/Km0/kBm9nr3kyY1N+Ph5Lz4yLy2HD4kT1a
+b0fOVFdrs+K2dD6Wk1M/vQjwjZ5YXQDG50fRLeukxCgw/XwlhVCFJoTr4yn
zhIgeE5RYfYUCu92zs0flxIgZM21LqUZFIrrl0mXzRFguOfCxT5Z5jxdvbF5
rZIABRrCv3+rUjB7cdHFYI0AL8Ut5L7ZUjA8M2PODR0BAvmLBS92U9DUiXv1
W0+AzDnbFp91ZM7Lj9NVi4wEeDOlMY7rSmH4QeV3XXMBlt7R/DxxhsK9pH/n
tO0FsCwyslBIppCyK2xV/F4BNjT1Sa9IoxArM6t9aJ8Ao5G/GlXTKQRcVTQt
cBZAgju+Uiybwq5w4+laxwSYlWJxSO8Fham+/tc1LgjQeJc+Y95I4UEve6gx
SIAm2+Rvg80UtuwVtz0XIsC+pJdfolsoXF2XOrM6QgCXI8Y6iTwK8lNImHO8
AF/1NLcNfKdQ6iPaPS1RAE73nvr5wxT292w3y78hgFRFaczaXxQy3rQLjaUJ
4HFV/rrlOAX12El+17ME8OXWcDOn0aibvKV5bY4AOw5rauyaQePk6TjdzjwB
9F6v8v8pQePZHuWhVYUCLBgRsCbPprHn9TGbxmcC/Cndk3NSlsbftU/z/V8I
8M2U5Vw/l4bJQvNjVeUCXMgzm+00n0bn1ZjXnpVMv/ymjV1WpHFp0nsVWUqA
yAKZK1lKNF53Her6r1oA//QFsQXKNOxyIpz+cpj7UchRmKRGY2RBQ+mdJgFu
rxt0zVGnceOKvILFBwGSZ2+QMdeg0Xry4fv4VqZ+dlvPbNKimT4P6aztEGDg
qtC8/DU0luwyiu/gMdeLbPo9RYfGYYMa61W9ApDqWKsgPRpiD2XzuX0CLI8z
f3RPn0bufCcJ/wEB2gaq1V4Y0LCOyTy6aFCALw9uFpcY0vjxb6D61ZAASX4n
bXLX0og/oafiOSKAebJGb7QRDV3ehVCZUQEOr3hzdp8xjWa7Kn7xXwH2CBn9
/f/7PP+Xkqb/TQhwf8TRtZqxor79HVHhAYxuaMh3BY2KrDv/cicPoIwzWP+d
sbPC1312UweQduUxy92Ehki0VumfaQM4qZPm+//3p5kTfvJ3Zgxg5sLPvarr
aVh6sX03zRwA/A3FTzDu75jxXiA5AOsis8Z7jGN22OnEzx7Au1Zvw2rGmnRK
nOGcAcxPcV79iTFHt2uwXW4AZrTwo//b54G6dZjCAHw2due8Ziwn75OnrjiA
sVeRC///vrT4crk4V2kAVeIJQt6M941PPeq3ZABu5fKbVzEWOr69WmnZAHo/
1Pxi9r9Ib09c/kplABGGmqKejP8HZF9kRA==
     "]]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], Thickness[Large], 
    LineBox[CompressedData["
1:eJwlVns4lOkbpq0IFaGkkjOpNlRWJc84tGsXRZQSZUWmdQjJqpRhlUM1zhFl
UYkcS1IZXiGHsJgZ1nEMMw5z+L6PUipkv9/1++O93uu9rue57/u5/3juV8Pz
wlHvZRISEo/I87+beT3fXeGJs3l8jWXt0hIB69Hjac6MMRwW+2aIpwlo/eGv
vMoZS1DYlBbcP0qAVn7QfM7MUcgIm9StaCDAYW7qyd0ZT8jffTvhXAwBE39r
X0+aCYb6wh6PjjUEGIVYCugzUfA1jfpD1hYcXE53Z9+ZSQZqAN3G5IAYuFvr
gqNqHkLEda3aQzpTgCU3hsg4l4Ab5cjBx858iJa/Ym3iXgHaVvYKO9O50H5N
R9Yz9BXY/bYtd5NCP1D89CRDTGtgKGjc+Nr1bgijcU5SDN8Co4xqopFSDykK
L346+KoBaPNXmb+VpYA1b8/OEqUmoLGGX27Wfo3WxS7RVB+1gHSvlFcepx2F
+l8Sf5Nqg5xFTa15mV6UvTF0qPtMB1DpD/5wpg0jXkadQb6wE1zL67HFtjF0
Zsepls/a3cCY/Pt+ZPIEGvp0xWBjABMm0G6PHU+FKDFeLlfnIhN+bsLPm78R
Iqut2RuMw5iQ11540eG9ED21ebvcNooJrv1bY0KEQhSWJTUSfpcJXR9kSxkG
IqRkkZrCrWXCKx3+vF2RCNndLll4spYFsbdS0/2LxUhCAy6+UGLBRNKR3AiG
GFVUdgnqNrLAOkOmKKldjFRHPvb2a7Fg4RGttlIsRlNG+5/JmrIgsNZvfHEH
hqL/bfK+4MEC1xnr3fQSDFVrcv8xecYCfZdP/5SW4mh6de52cSULapfFZxTV
4Ej76++xuW9YcLRUzbOgHUf0Tp6FXCMLaCtsPuUKceQRPvlitJcFvRWZm9J0
CZTmU6CQPsgCvzO7xpP2Euj90fMBdlwWLJNtLKVbE2j3NpFelYAFP3piFrGe
BFrZi2feXiDnk6dQr2YTaP/bsjkLSTaoMthGYSUEulAc6Dy3gg3Pfc7PhzAI
9Cjd6FmxDBtsFL83BrURqC/qw2rPtWwYqk2mBwwQaHVAxR8blNgQ/IfeCV8B
gSxPhjS3q7BBZj1Dg/qFQKHWe7WjtrDBw7xMKYt8F+36TPtJkw3tyaq22WQ9
V7VqWKzLhj2TNyJzSTyllWH787azIefATNUjku/60NePcnvZEMhv1i4i9TnE
LZ4b+4UNm00ufa8KIlB0SG1Duh0bYuO5e6rJ+V6fiVC3d2TDLMfWt9aJQJom
kgNVrmxoidHsayT9+TS23P6OP4nX3/ms+yuOMs3kdpumsKEu3MBbFImjcUJ1
6Q6H1Nsw0qaWjKG6gIzjhTw2WB/84j0ciaFMTLm0cYoNhlXyEveDMOQgknef
/8CGhacWezY6YogxsbKaKtUDGckP7yvKYyhl+EOolWEPdP3u4y9NFyOLtvf4
l8geoEgQaz7EidCD/Cucszq9oH7wu+O7SAHKWSz79eLxf6GAWjFa/XIcGZvL
eEnm9gH14zO3W5mjSHessC5+vB/0r684uVJrEHnrbi20VxoE6cts2btZLLTb
+TUlwW0Iyr38DMp4TchOc5uXTMIw1F02oLemlaImJ04rrZoDtERTyiPDEqD+
5Ea8keBC3fnIXo+oZlin/AKYGVzQn7U7UOzIgr98sicLDo6CxKWmPaHRg/DY
t8jw2sgoLLy2r/+zZRTE8BACQsegPCbXwytuHOZjd+arqfLA8HORYliWADzc
RwYiN/NA+52jZtFTATQaJa0dV+OBfOqcIee1AOgDs2FFWjxYMLI6bN0nAM0d
DFvTnTxo9B+IlVcWgk3nbzOOFB64jUt/L6ALIU2ZanbjHA9i2d5T/ZEi+CbY
GDRF5UH4Q9k5uSQRnK5te2zrywO/4GcrKDki0PfZtXZdIA+c5Rc182tFwHj1
eTT7MqnHLtU9eF4EY6duxLy6zYMXDfVMmUti2JWXxxQ95wH/+daaA1QMXCX7
Fy0redBuGmyg+ScGNz3WbsusIvXVNqZL38SAoxYeYcPgQcH788E9DzG4nXVs
x+N3PPAYq9C7MILBVKr0zdN9PGAr2CTnHcdBadb8WeUAD1rSM5divXEAp0tD
csMk/xbM70IIDncVxoyrR3mQui35F7NkHA7Rq0c2iHjgYDG00NOBQ15MwL7u
RVJPYKDPqkME/DPxyEtfgg91n+vZhBMBXw8NJkQs40NBuLJlryeZH8ttJnZK
8SE29s3mhzQCws9eV7ixig9ha1bHxyUQ8KT+hdmQLB+oqWfmLmQT8J2mkRIv
zwfrnOVMMwYBBlyX2tF1fDDUdQGtNgKOAV1gqswH9eLC4lUDBNCyG5USN/BB
znhh4/QUAcWL32ByIx8Wqg7H9M4R0Odm5Gu+mQ/y9adlrb4SsJzhczdNjew3
k8t2ExJguCn7rVidxH/52jB0kIBTV9hiKy0+UAx9GhLaCbjZL6OSpcMHh6dK
xwtrCHhuamH1QY/Uq10/VV9KgMxcyb2cHXygqWxZ8zmRgFcXY35e3MuHFgnW
CbdjBCj57895aUP2d5vj+hwcFNd3tlBs+dAXeI+/SPq5Dp2deW9P4snPDjBr
cFircMdy5Cjp15HC5vAHOMhUjvCl3El/OxRzu9xwWFqI3nYyiA/676ecwgYx
EN7ufD5/jw/SDcmvm/vEUFfs9Y4iIutfTESfYwkhmXG5fDJqHL78qqMzu3oS
tltofLTXmyD3YUm569wYCNMq5rvqJsCwNf2Wph0HXO9THzu6TEJg+uUz3M5e
SNpQnp/0bRIoNkOKOZ4dgHuO+ePJU0BxpKhFXGLAOq0nt2VMBSDRVWElvJOE
JlPpdtoDAuCqNLZnONaj0V4PpmuQEALDTimrlnahh3felTkoi2Bapx6r7OlD
8UrKTmdLRTBVda3/xD4u0rSPSb9oLYbpTTY+pbM8FPnt1m6rSTG0qLeu2i45
hVaGXU3bFYFB38WKPJcWESoQNHzsicTgS7mGlUm/CNmekjsaHo2BOp7AUxKK
UKL5gzWtcRgEUv20mbJkXq5AMZ6pGEi76+TbHRGjncnLrqQVYkD5Ob3QoleM
nIvjTs+zMChXuVq+nY+hz1uYjNxeku+YwEHmE4buJahusunHQCLFZWZqBY44
wUX/pnIwcFi9xzhfD0fUfR0OPwowmJbEKtR9cXS1Sd7q9++kHtHpKuUPOFIz
PZkrJYmDg36Hy+wyAtUV5i6V/IBDoPeBL0xFAi2/Y8z4Jo1D+ciGfYlkXtCd
nPemKuJwgt31RuYygQzf3U/Zvx6HMAU4JYgjEMtkfIargkPB4ZL55kwCqaiG
lu5Uw2G6Jc7sBpmfb27VyrHVcVBZ+WXobAeB3BdX+l7RwoFide6aJYdAEheO
tKrrkvw09hYNgkB53HS9Zn0cEv//X0T/AQdafzM=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 0.942477796076938}, {-0.999999877551021, 
    0.9999998775510204}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.5262199817799997`*^9, 3.526220020125*^9},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJydXX10VdWVv5CXBEIggEE+kiqoEaMiBPI0IYlKxGijRJLmPUkkURKb2KQS
JEBM+TjUtmrV2sYKGGpopzOd75k/WGtShrXMdLq6XP1wHJd0BQyd4OrqtDMd
F9NpGBjF1Tf745xz9zn3otjpYN595+59vvbev3322ee8DVt2PPbZx7fs+Fzn
lqX3bN+y7bHPdfYvrevbDl9lTQuC6cVBMG393AA+7wmy3g2uzqgM/P9VKhME
8R+XwX+ygkDBM379/if5Lh/+M1c1Qp3wf6vPQNkH698N/qc3oz8F+Dk7hnA2
fqfOr8q95+EgFz5nt+y/aq3K9CyfdjCQ738XP3cd6hoYGEHae/ExNdSRhseZ
Pp8c+JwLjcl/CKvn7xKC15/Av0TPqQ1z7j/blYYv7sF6e041FmyY07hy92Qw
AxkSN+xNNn6edpAop/u17Hsj7OTqM1gLvH4E39o92bjx/rPB9A1z4POI6fNd
WBUXbZjTtesSbe9ZHnK9aq3T9u/g555j959tLGDebVOSd6Ln2IY50I0H8j4p
42/Dvxm7x5Aa24b/+h+yLX5tw0r8rudYEM84Og4u444Ujm7LS21T9PeEaW5H
Ctm2vDQrfg7pc+wc4hjnDIxsKMCGbn1/YA8Nxv1n+5bwYNyJzR4YadTlwSwj
pQloahAAu4+StiPUtiQORmoIJz3RlcYhTw1B6Tr5nB82vLHYCnEo8w7bEWrU
Hh7f/odInLLDTmC776DhHuFp6FtCTXY0Dnkk2qawuO0cjkh2VxofUhvVJDK4
nctxmNumZvvUryJB/0NmfmlIs9WZRjO78E4NvVJlX4nlkWg5iv3vSOZIodPU
UIjPbVNzfNJvIe++Jch5w5zdYzTLoA6pbfhNRxKrr5KvgHbH8kikhrCDXWlU
1eyt72vVfQ0ZrOVy1u4Cn/owjdghLG3cqI2HfrsDbUEl2YJj1PsCKI8wGNZN
3ojt6/k+6UN2/1ocDWjvHmzBbTSo8Ap+2ZUGwxjHA5UYW63OkHDCnOEzqcZt
XrlhkAiCQ1S9VlOYsHwSoc3UnwKYLaBO8iuND2CL4JV5fvWvGOkGqRmaIx8M
NT83bgRjGKHmFrzWuBJrBAmdI1vUvwRbsMa8gl+CXM+P45FoO4cdTA3NpRak
+UFTJ9oL+fkKn/Sg0SEa7800NlCXnQ94p4xf0S2qCmJ5JFpOsA7NlxKxm3Ro
FZWzjk0V+tQHeMaxfmoBsk+Y0YYXVsopgfJYBiBzLPOF4Vxv0BJ8i1EwLF/g
U79M1S/BykmHFtDbL5E6puCFFVzOA6TLHQbf1Dq/kYU+uJJ1SLeX4PVmqRVX
xjLo+T5bHWjyQvF2El64ibuE9VN5hMFLSqLgoWARWyW2i6xDpd4rC+N4JLp2
YZsbNy5heWKro6mtVVrkkw55OrTEMYpVWP1yJVHvnSCeh0E1kJoibgE/awYW
3RaH+vt1Eo5Xrckv1hUZew+kJcqFrsV+3d8Ie5saukq56FRitKexoOXoEp/0
60Z7tGpcpQQCwTDDO9fKV2AyYnlYBFoaao9BoGtUiEDninzqF0NpI3hZqiII
hK8DBNhXYnkYkS+8RmmLTRAwhgyWcjl+1ZEq9qm/plwQuoZFzSgkMrjaeeW1
IJZHIrWNQeg6FQEhmpXURgahT/nULwiTsxI0rkQo0AJ44VOeSYoweF65IHQ9
mxwJQkVKgBC8EnHxn+dKLMgsVy4IEYOuAVseYfCco0anghuk3WMoWmxewXaB
KF8dx8Oiz43KhaLF8nmpT/pV5eLQjbI5jEMLtSYZHIrlYaGGjJ7AoYViQI4u
06RA+axRED3YN3PFEoEWKIFA8Moyv+JnlUCgW7zphhcKlUCga3zqZ5SLQIg4
EoGuCBUI5GtzEMvAItAqFl+eaBbf+bL8Wp/6aeUiUJlyEWiechEowuArrPOp
bRqBVoc2wSBQgXJB6rpYHhaExgLyGtDx1CBUwOUahCajDL6sXIQp9+wevDPb
e6Ukjkei5xCD0K3KBSGkTuC0Ighd75N+SYoryOatSoLQWqx+lhLYAK/E8kgY
EKqQD5raItByn/Qp5eJQhayLcWgmv2JxKJaH7nDLUXK7NQ49oanJxUMcusEn
/aI32Gu1Mm8McSjXeyWWh8WhaikOjEM5SuBQqU+9P5Q5cPT3BNVK4FDXADLI
dsRyT2B4AIwrKfK3U92nrD4AaUIJBLrRr1spF4HukOoGL2Q55a8FsQy0wnft
ulMJ+GHBpSWrhp9DN/nU+zx7s05Z+CHBneaVRxjsVS781CoXfv6gXOy5OZYB
Om/Q5I2ALXdJU0vUGniwMEK9R6oOWPr1SgAPyO6HphybA+Ur4hhYYKlThAH8
8KEsucWn280VWcipc3T4g+ADJfAGymMZ6HVPyxTGsLIZbwhg3xeDcGKlT/oF
ow56jO/VGrNKz8H/KRdyYhmYWT5X703xBSXwBgGBFpb5YRxDRPQai4PpGBOj
MF/GicoMSlEEwb1PyGn6vBKoBIW2GhmFQbOR1fIMRn0inK2K3K/CNRPqx//K
QkQjWlH7IUCMFWSp82UHPdZPGjXX2rhB6vY55WIZcXdig3kcG3QjYLquVRgB
4qDgTmlfwM9t8IzL75UAPChfbbvhBe2INY6V140BzwI+IOf798pFw0tyz6Xx
348BMid0tUuLtjHQG404anH7nXKhco2tICY0aOJjMDsUApKV2LVMkwrR5cTv
qGQXL3nKwxl2A4TU4H1voGByRzTfnVJPQS+blMBaQLazygW/8jjJzBFT6jMH
+8G426wECJ9VAoGTlqcIDhLGwQwE+lnO5w7ZSFiqNXuNfI9ngOEZnpO+wu8I
B7BtKh0ObePG94wZaixom7rVp+tX7mo87U3tb72pj2Vg4wGbPLH8T9KuE4zK
t/mk20OtoPDbJqk1gMr/4WjNSBDLwCpvK739gdXs3yiByhU+6ROhVaGF5EPS
qvxaWSeZTE4stfXBN0s7CM38dypk1T5U6ZNu84xxmwoXB1O/8goNNTghW5WE
gFNBu5kYDRG/VC4Mr/Ur7lNixfOIEvBDpLpkG2BThHSrVCnA2Ee0NBpofNeU
awyuimOgYbflaIcSsPuufKj26R5XGSe61uE1ZFJpjNYYHMvAYvCjyvU1/k0O
Qo1P+nnl+jmPKtcP+oVyMTiWgY2rdXkze1rZFUzb1O0+aa8UKRDAbhYpgtZD
E8qF1lhqI8vpx5TrXr4jBf0On7RHiVhaj1SvU0YnNDZGSD8ntRcwrUc0s2Dg
1WDcK78zloEwHr1KuPzjysW0CDX1E90xbeY/7xmun3uGbV0cA4tHW5Uwpz/n
EsajWp+uW8okyOBW3RCzknpbuabcMACd7lIWTdqmtimBJm8rgSZ3+VWSMImN
nW1eFW9xOTcB0CSWge3edp5zRou3lECL9T7dZ4lxld2v2e4N6pveoMcysPs1
O7wJ/xfWCRyBjuTdPumjykWLHSxPRsGCN8JyQosIg062kCzQXbvYyxGRjZ8p
ARh1sdRim2ZA6tFPjXJofY2ltoDxpJkeHdH5iQoB49g9PmlHaDlS20DyyTk2
3vuPPbMSod7ComGjYv7K4nWWXg0bx2ilEWFgYYPXUgv44XVZ8mmf7hGpFiCD
e0xDNGb8yJRrzIhlYPu5TwmY+JF8qPfpHlYuZuzjiqyv/UMut6NvGIA+tiuB
Fvu9Cf9nJdDiPr9WgmOzMwjCtF+5aPED5aJFLAOLFk9x3VbW/0kU0oLIIW1T
Llp8id/mhdiYctGCqDE2WtA6AR+mll1RPFVyRXK0cjw5WreoYbBpsLuquxpE
qVH3YJvW7S8rF0hwyZG1+0x3dWdRML1hMEjUnEcelePTl10R5BcDY2bOf1fs
wMKaC/hmVmdRd3X/CHnmVoU2mHZlt1+E7iFRYYCscvDTsiv4G/1F5cn6TU3D
0Mwz9ykBWE+zAcFJaC9Egcrp29tZ3DBYcyE5amkjzD7mixn4oaS8cryuIn3Y
VJndc4rtpV5CUsuX4Ij6HY//u2JnzQXuwN3KhcWnPduOtrusf6SzqH5T5XjJ
msth/kn+QkPONx3uruLwhrdkJSnLYSlTmYGx3urp3dVBTvp40zC2puzAJYYs
sXQqOdrQ0l1NsSKdsjAEFv4ZJSD9DlKJsdaJuooVO+MmOwu+yK48WTnaMNgw
CFKR1V2NG/Cz+vZ2V/dWt040DTcMVp6EqQ2FZZakXwZiXb8JB5nQXroPDb4O
4Qpzfv+R7qqm4dqFleNxA1Y53nS4dzNlTAh4txsE2iVF33d+dzH2KTripc3Y
ojRO/GQx1TjSXZ0+XldROR43PWUHGgbDGsmzgZl5wG87huATvZvTx2sXlh3A
UZgpR6G0ub6i42IgQ7ZDzynh0eCyKmdgrP1izYWSckfqkUVytGm4s2hgDCOy
Ob1tOFvJUfNWrnmrtLmuAuzAWsl3o99O3CjJg4omGgZBdERvkVVW7cL2CZiZ
JPfWuvjPeeONsYaZ/SPp48giHCya/azK8YZBkFCM2xTsnmy/CLOww5/Imgut
th7hM0Vau9gMS11FacqzDsTjzGolYs60zcfuW+oJ4L+SzY9tJ5Fn44cVO+tb
YKxwbZcYGOssrl1YmnIGcym1MdCpEewDNvrNw23C/N7N9ZvKDrhiA+N4caVn
RF5gW26VG6Oss/tHmgb94akZTx8Hy4ze9Yy+vcg8LDWzdBEKb/EqiDSPLHn/
Eej+Qauc2VocW/r2UgsSbSfYA31RCQ8UA+85OHmVo87AlZRj3TCyaKmykHXl
ycAZt5Ly+k2WtXZhm/yG4f5UPsjPcNlOOW5lB1onWMglxr2oXP/2eiauqyBF
0eNSUlhzARuGyJo/MNY0LAcNka/1uObMnjPhv2kXeB0lPFRGzAJtQZcV1i7s
LL5eCYc5iwxVTJi2ZX+QwEhlQCHQ4EFUtLj3kEGWjs0VqtBfRseAd8bPRGcM
end6YIzyeubGxogzOkAKla+iuRlpGFyxU9pznLvu6qtiOXz6blCZLT+jbNLc
ex6OWDeUh1mdRTUXXNhqGh7Qu/liTUB7KV4YL6dnOQevMVa4yXthhhiQBdID
Q/md1V1dtwgFK5xK0o4FHhOMROYiEwzTcgSUYq6zukG3SxzUp1YXefS4gZOn
ZyLv5gC/By4wmhGUuoltUuuEMSoIkVl1Fb0Yg6L0DpuJdogGww+LU1xTR9xb
YspzvfEI10cjlBcBBqvp8IpmYc2WXYHVU8pOXBpuLvfERoTLmUnrBEK+YILy
QYk3M10mmKpBua+5W/6rWIZ/I2NzC7sGDYPoJIUISsaeEm+EL5+lorHqHN31
9x7SQxOX5gqKFpCiwT+cJ/iOMsJaTvCiYQk3Aqa9UApr+jg0YvElmPpR+duY
BxgZ4e2t2EkdwTmZ7/KwQcx/XP8bHB9oYpzoICbmtU6gt2S8o1Kwl/1HKJ3K
LE3j2sMy0fgp3IPYFFOONDkciOcWUY6ZWGGhbOSBPT8pq66r6NtbfAlu4Xdg
WFZzQDLROlFzQTiY3Hgc/HkuB7PQw+e7X1j1Lu1uRKwKgmte72ZXP1EIKY1E
Ly4Rx+NGZAaLAm09PBhTTnvJpGU8y5RcIlMMZw2MpY+XNjvTexoqu+pSA4Ja
tHoc7QV1B+Ocef0j9YBD0rHpLEJXcK5ksKDJxAa0uYXxjLg6SVbK9HGj2QQ/
ZQfaTxNIiPBBdowM02jse4P2qB6MKafRgLkY6g1Hg5bCeuU/z+JfuQWerKXU
HWplrCLi57IXnL3JGnYcwLSkQschixTnDCWu5oWM7vzB0n/liMd0NsaMosA9
IikY/M9D/AlHurS5aXj3JLndJv5xqRT23J5xqjHDk8ID5L1HuQuqcfWt2L1F
kivmteR1V5HgG28DNKd/5NoYNnpDjDba1nOjK0/KtUfD4MBYPplYS3hd4oY3
sSLCIMtQM4nYkLU8U7WLeJ0QEPqAGmKa+mwzqzreE5dxn8NWBLV62sGWOCjG
7TGYhEVG7HSwCFud1X4aF5yB8KPJJF7v8cnVfHBIcHGdxaIVCLCphxGkFd8M
pvvsr4MeFsbpBsqZHU1ZZBi09jUMlpZLz7m7Ol/q+QwWe7v9R+nvdB6Bn1u8
cumKLBZGaJs+pJK3e7JpuLQ5lEJwD4tKY5gk6GgOdB97n+dbmprzvZtnml4C
Vc86WpzrrdpG44ZF9QCX6zPZ8zBWvOwgrMo5cyiMt1HKvjHCOdpQtbioMzBG
yVTtF9nX1BqfHAWNn+mBxya/HetIJ4orx8M+lTYjwOaEQNx27tUYxAd7j16k
pSpPg2P+LLGrrjkfTmVpMwoWZxQxrp9o8VtBSSwI0tCxEJJQw8gHFUkEr/Lc
cSSwa5fKgFqOy14fhLXe1/Q4bRLjlGoY3H1Gc7Nxw0hDcJLBJazfZKCAlkR1
i1ApbWwcj7jkmzxcMPK2q5XjncVDbDdBnJvD5Xguq7WJOQatfr33MBVghrC2
2etetlHII9TvMxto16pmnvUV2ygjfveZ9tMGbWgBd/c/2JVIpK56I3rUvt9/
mmIB6QV0PIYUsWTNinn43b1nS+eDch/Bgx8z2y8mR7mfTJA6Qbu8aFzgvxlK
6JjmV7VIfF7ofc6Hz2c4Szw5z7p2w7vPFHwEUdxnv5IC/OyaeVgqPGhX17Mu
k8/HfUYbnW9ifMl54aIETAzZnI9jkP1JhmtmEPAOVuql+k0S20vKaRk0+zIq
XB39HkO54Ro5Odp+kRLgTFRx1kdTRz5jomNOR5rEdmP9baXlFidKyoMAmnmp
Ll7tjwWu/+eGkSoMmILBLg/DBAjcsnld4nMhawuo007p0XVXk102uApQeIcg
auUaOa+z5x2sMTT2QVACq6r+I5EICLbTRgKzWbVgNWYND9ZKkdoc6kCzcKaQ
n2Ios2G+V+UDsgNP3THr5MhFfM77ZL9AxhG2Z3YW6Wiuicmcps0M0HHpqJes
QePEQBEGBg97A4UM8zqLkaEw7IATG+KaYuN4GGFO9LXVLpRrjRSoyBnag0JH
0CkB5DlDmT4i9jcsBHIKGeb1thFSOBAY2QKiPD0RVEO2OdLLn65X++iAPEkC
M8lTJ5e7JpnaxPpeieGahz6RjGHhGj6yA1evbIyuvbCABcLKF88uqh9417gX
m4Ug5PpZJEmUXm6Ce68ovYmGsTlkGV12VALLyDYmtk0G5pBpnkUE7d+iVGyj
0a6uqwi1qKQcIYFXMuFh3IMOxxHmGEIGu/k4TZE9bGyLDcnhgjyru3rdBemZ
YjgDZL5X6WgNTlG4IGlGt4NXQWJfTp8T4007Cr30ttUuElsboEm1i4BrJAGB
kkNFEAw5zzLuqYwfQK1dKmbZWznefrEo7FRH+uWQY2OEY6hM1I87/ObQAWuR
iFTEJiHcNEhQLHdRd3WHNhY7nWU9Wkk6EyNCT/oMmfahDhHPPNywCHUKQ4y9
bZEkHD7uHfqByDkmQIOxhACDaLN6N3PgxYsgLVWhNzj1UhzT/iPog0kEbxiE
ZUYkmQpbZOMtS41WSRGh7TNctVIeX/9I02EvWFZf0bc34KNboaM8pITfTc1F
H8vb+EyOor0yiXSJgNxHs9IYgn7SwtIdg0CbnU4cdbTj+f0jrcfdHRwOcVGw
2qx/vkGc0w7nSFiLtismoumM1CwRdyCUlhNObUIFBQtzH9uR9tNQLDvLQaZS
pTeUdLjhRcNary3pKFT7xdDga/Cvx7Dm6riG2eU5purPRpB09/qw3s4iMIto
OmbjYMnVBW8l0k6GcwjpxQhn9K6lPULkq6sggxtJNl/vwGkVpcFn4WiXpoz1
wCHhz7x9RYljAHVNh42Q2J0UFD/Q7ZXeUL3gDCVXkt1/BKP91kzlGAOIVUQO
E6yXEoIhyTndYKvNwsN0lLZti3dPYrLpHMQ4fMUdwbIDGIpfI2QM18nPqzCZ
8hyyn422Ti6a8W/ZAZif4ugZk7uUu5LFWHVWbxvuggXetmpJeeUo7t/zNh/u
4sFb1ukR40gbBrdJ1XzO09tytvVAHw6iYNAwCDY/cp6Jlp98arhlCiNUc8FM
DMftIidH6ypaJ3o3o27O7a5OD8ftiZaU15xvnegfWesZtq+GVq+Nq+nbmx52
ZZL/lh3AGe/dHPGKa5W7HEbfJafjYv0muW4U2/bJg7ULcce5F7ftaQ+2u7r9
IuZwmHSDvPBls8ff23a7gxC7eFteJHfRTQNgEC/Wh8kG+S6jMl1z397IIdxa
iY64OVoIWj1Ru9DdQ5R/S9ZQQk0F5bu0X+yu7q5CPyEowuwa+l9V63HMtsG9
/+SoRCP3L0oA0N3lgfwzfovm9Y/gVjXB7CXyPYLpydEgUXMBq22foFSO1tNN
r6SPt090V/ftnen3ep1y84rW8xh2Vzcdrhx3N/jCqfxjM2zwixU76yrSx/v2
3it9oaeFM4KtuJtlArMdVuy8/Eqy0MlVHCFzenmncvd40est2T0J8zNRD3MT
VZbL+ZscrRnHnBXAaVxuyDsu/KOIWN+VOKrp45jO4uJq9G/twsg8YQ9sDhQu
98AVxwyZYHrTcDC/YbB2USWld2EqTfh33QXMn0Ej1rc3pYRbzucctcP+GZVB
QcnnbBtMpKo8uSJV2lxSnjwIJvBwpDHoD8rlB+WfieXHU155TywDk/qqJjn3
zSymnlIZ5yR+hPp25a4Kf2AgS68K9+tnU94bukJ0m4lZF/9QiVXtfvnweb/K
Gg96f+g1YZ+SGUJVQSwDu/6kvMiuXTZTaa/o/rnHfdJqb3R/5I3uHq88loFd
470uZ36PgRhMptvq0zk3t4BWvq5EtmBHkvNMxanHWAZ2FfVj5S6GBqUB6PNJ
10qLABr1E2kLn2QIs2uXCDVd+iLWJz+VSDGwh9OCxVpjWywDAZKUN2yyRnd5
hbHUxv0/RTnLwhegnGaRq/qET83nfrW7/qayzlTL20Qq9i0jpHTPjHCp3+S6
rF+83ZRrZ297HAProL4lH7Zzq/ih36e7VeoHDPBbsqKeU5y9blKSoSGGAahk
Ugl3kRLpRa4zHWgxzt4Ov9ZkKPnkzJ1QwgfbyoXOuEd3RE1q6s/lnELFj4eF
LSd2+qTlynV49MEDlE9MLOeDCWJtG2GwhnXYBu/HQ3En6O/xynfFMrDJjq8F
J6U29XChVbUI9Wrl4tMp0x89fY/Jcqh+II6BPQo/YZQDkeUxaV+e9OnKWC7s
TS0Tnu3qMgKry2MZ2EMTv1DWbrYcJVIdoEPRiZCuYhm0NvsXsi5QBjp8IGBj
MI6B7mdqaFIJvHiUS/jhCz7dSiP8OgzKJ5o0eIBydMhyaEgsA31oou3cu6wi
tp9blACP3T7pLUKwcIDfVS54PKIyztUssQz0iYn2wl8aLcHJBdx+mAt55veE
Ok03aPS8Y5Hjl1o/ntDI0a5c5Njj17oi1OSu9K/CNpI403E6c1fLXp/0ZmlC
zFE9o0ibRSHqWYSarjoSyEHHBPHyNK0ZrSrj5Pzvi2UgDoH/RgnkaOXqbWGE
2t55QvervMPHI72dUqkfKo6BBY/fqhA8jm6SJft9ulJdkUGO38qGgMHmM6Mh
csQysCf+6TyqQY50OAKpoS/6dHzJTIgc78mKQDmajXLowyyxDOzhyrNy8kE5
PiMKzz3lky6XggW8/1sJ/GjiQjv0RP1HHaJfrgTQ/M6okAaaRln4JVPH5Zyg
p6QIAUL6xLYFoY3KXR4T809yjr5E2oquAT7RLkCqQZebK12+bCuIyx5yDs9T
YFPk6k8pAV8NKhPIm2BCvpd5cv465cIbn/kPE3Pv98q/cqkKLnV4HivQ8Jfa
dl5lQvjjjTd9gczTlxqQjzozf60SEAmaRrcsCIisd0zAqSCs5DIPz1+rBITi
LRP21G49l/DK65k4WbzUmXlK0jVXy/Sv5csrBLbeq7XcYGvI/DIPz18jB/kD
JbD3XiWw91lfxZcZ86Gn3tzoYbC3ziuPZaAXbu2FH3piS5FifcL33Fd90qWh
vhDYfCj1CYz3eqFPOLOxDOxpxT8Yw6GPJHF4kE/uJp/zSa9W7trtD8Y4aASm
kN3WdywCxzLQN87QFVTTpK0EhutUJrwJ5HmfmvKU3Ruw+AobnWtypyyHoYkw
oN0hgcMZfYkOhm71VHE4MLym6wVl/Q/KBeZT4KkhwNmMvsDH4DCRCpB+wa++
2Mivhr+MvjzIQDHMVrWnh1+L4yFvP8sNVY2PwdvCF33SIi2lhMZ8d1Su16K1
ZjQ0IMfykNe/0f1NBpPXhqORGvq6T7pEuZisqelWTj0fFUZvNCzH8tDI216Y
0XdfCYm4TarON3zqxZ60wXeUeGfA+VZWHQvOsQzkDUyUuogH+rS8O4u/IZ96
EbO30ArfzZG6SOs/cQ9FhMFCT9Uz+v4ygZ6r5SuAni/F8hDGBr6bq+xCoL1w
tXJhMsLgSp4zeQfXPM/crVIuEn4zjocxtdsyfBOdtcO0IDJXdr7sky5QLpBp
aotl+j4leWdaLI9Ehz4fleF7+Cx23aIEXB3QpEBZ6NWi6SQe0SJB3JZ2wK+4
UPYzo+8O5HFo3KhPH+FDy9GDPil3MvQ2NLUc5hu9aYjlof2htnMZfe+ikIXS
ULvazh3yqeeHomau31sspQ18uRscadwTRHjMU643mdEXSAqHc7kKESj1SiwD
cacTfFcsle56o2Nah2IZ2DtWMvoSTeGt0yWbGoEODfvUdI0wXjAUIhDd4dny
Ng/adZ49ijAoUHIh8n17i6iwi3ycKkSgw7E8xK0rGX2VqcahE9eE5Y1YHmHA
dzGPSBxij8a9A1Pel/KtOB5aVgiH2P8Tt3Dah1d9Uk741pjHmnStqU7fAMoX
zppLQquCWB4Sh2hVIa4h/ZQYkKkRZTF8lnJX3oZUOAXFXLcFoRG/7nxlfQ4C
oeXepMuMmOQRn3qWFDiW4BtCgq70EpVx9s4iDPKUG/bI6GuQReRjkVEz/cq3
Y3mw22eg6EYloGgRl3MkDsojDGZKzWcoukkqP7gyV3qvfCeWhwtFN7NUsYW6
UgkoUpNRBjNYaOW1xCukDQTBKTRyTZ75MfpRhwgP6/Vn+FpuG44rVGJj57s+
KTtPDhRxUC5EgPlSjeCVWB4SipxI5HxWI4aiP/VJ6ViAex91maxu6ztsrsQr
sTwkINHJYROBnassILVN/ZlPmq0igMQXuoeANEdOBrwSy0MDEvlTSRY7K/uk
5fq21sLvhVqcFYqagaJbhdKl86UoQvn3/IqzjIKEOES7HAKHZimBQ38ey0AE
XOC7CiVwKC8s34C3hMUysI5nRv+igNh1IMfaJHv9hU9NZ49cHFqrBHjP8EyS
ZTCTGaiMwSD+PYkq5WIQ/+KC3vKBZchfGvoZhl7cgFyjxCYOSZQp/CuPLEym
0mRyWykhhRcgxxLnMrHu2wnz+xcWYGgRZpZAf22o8PrVDKIM/eTHwGYaN1vt
WONKHlr96xoh1FgGdH1Fy9sWYnBtmhdu0KmMgZe/EbODkTH/11zuIINrASb8
FQhLmB0EdlMmw795MoN/eQZ8YL7+OPm3KvMJfkAHOEqEwaBALq+7rXIRw4/6
YR2ekMkg0Ps1wIdSKPr0lg7K+d/5TOJ+VYdkHYY6QI8+o39Jh6GG0CWeiRfd
ohPogGX6FK1uTIJ/gqTn2N/H8oj/JZv2QlYZ+nmggZH+KgCXT0JvJjby00Qf
9yM3l6T5iJ+wyYjfTrqsX6VxK4n/uZkM/Z4Tiv4lfuUpmPb/Q+D+Qg==\
\>"]]
}, Open  ]]
},
WindowSize->{1895, 1079},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
PrintingCopies->1,
PrintingPageRange->{Automatic, Automatic},
Magnification:>FEPrivate`If[
  FEPrivate`Equal[FEPrivate`$VersionNumber, 6.], 1.5, 1.5 Inherited],
FrontEndVersion->"8.0 for Microsoft Windows (32-bit) (February 23, 2011)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 2815, 63, 179, "Input"],
Cell[3363, 85, 2137, 48, 222, "Input"],
Cell[5503, 135, 606, 11, 71, "Input"],
Cell[6112, 148, 1466, 42, 70, "Input"],
Cell[CellGroupData[{
Cell[7603, 194, 1626, 41, 111, "Input"],
Cell[9232, 237, 25511, 430, 356, "Output"]
}, Open  ]],
Cell[34758, 670, 873, 21, 97, "Input"],
Cell[35634, 693, 1042, 26, 100, "Input"],
Cell[CellGroupData[{
Cell[36701, 723, 286, 7, 43, "Input"],
Cell[36990, 732, 5727, 100, 368, "Output"]
}, Open  ]],
Cell[42732, 835, 896, 24, 86, "Input"],
Cell[CellGroupData[{
Cell[43653, 863, 304, 8, 43, "Input"],
Cell[43960, 873, 8752, 149, 371, "Output"]
}, Open  ]],
Cell[52727, 1025, 445, 8, 43, "Input"],
Cell[53175, 1035, 1321, 37, 73, "Input"],
Cell[54499, 1074, 532, 12, 43, "Input"],
Cell[55034, 1088, 540, 13, 84, "Input"],
Cell[55577, 1103, 435, 8, 43, "Input"],
Cell[CellGroupData[{
Cell[56037, 1115, 1091, 21, 43, "Input"],
Cell[57131, 1138, 27125, 455, 342, "Output"]
}, Open  ]],
Cell[84271, 1596, 742, 16, 43, "Input"],
Cell[CellGroupData[{
Cell[85038, 1616, 492, 12, 43, "Input"],
Cell[85533, 1630, 10304, 174, 345, "Output"]
}, Open  ]],
Cell[95852, 1807, 379, 7, 43, "Input"],
Cell[96234, 1816, 130, 2, 43, "Input"],
Cell[96367, 1820, 466, 11, 43, "Input"],
Cell[CellGroupData[{
Cell[96858, 1835, 341, 10, 43, "Input"],
Cell[97202, 1847, 14497, 246, 346, "Output"]
}, Open  ]],
Cell[111714, 2096, 503, 11, 43, "Input"],
Cell[CellGroupData[{
Cell[112242, 2111, 471, 13, 43, "Input"],
Cell[112716, 2126, 26438, 442, 346, 14487, 245, "CachedBoxData", "BoxData", \
"Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)