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

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

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[    454272,      10185]
NotebookOptionsPosition[    420146,       9585]
NotebookOutlinePosition[    421553,       9625]
CellTagsIndexPosition[    421423,       9619]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["7-005-S-OverView of Laplace Transform ", "Section",
 CellDingbat->None,
 CellChangeTimes->{{3.63896138583011*^9, 3.6389613956101236`*^9}, {
   3.642592284293995*^9, 3.642592292454006*^9}, 3.6441454301951065`*^9, {
   3.862772516363594*^9, 3.862772587603143*^9}},
 TextAlignment->Center,ExpressionUUID->"6db1f829-760f-4f9b-8fb3-5bfa94c6e5d4"],

Cell["\<\
Brian Winkel, Director SIMIODE
Chardon OH 44024 USA
BrianWinkel@simiode.org\
\>", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{{3.6389569124047384`*^9, 3.6389569250347557`*^9}, 
   3.638957208715153*^9, 3.63896140714014*^9, {3.638961900510831*^9, 
   3.6389619067608395`*^9}, {3.862772514443796*^9, 3.862772549503544*^9}},
 TextAlignment->Center,ExpressionUUID->"cca66ae4-e291-4ab0-83e6-312284df32f0"],

Cell["\<\
The Laplace Transform is a mathematical construct that has proven very useful \
in both solving and understanding differential equations. We introduce it and \
show its power here.\
\>", "Subsubsection",
 CellChangeTimes->{{3.638961315520012*^9, 3.63896136438008*^9}, {
  3.638961410300144*^9, 
  3.638961412840148*^9}},ExpressionUUID->"70ddb0e3-cf41-4ceb-9f74-\
f3308c72efbc"],

Cell[CellGroupData[{

Cell["\<\
Definition of Laplace Transform of a function f(t) if the integral converges:\
\>", "Subsubsection",
 CellChangeTimes->{{3.6389571797851124`*^9, 
  3.6389571977151375`*^9}},ExpressionUUID->"d44cc210-1268-4bc3-ba45-\
9e2fb16cfae4"],

Cell[BoxData[
 StyleBox[
  RowBox[{
   RowBox[{"\[ScriptCapitalL]", 
    StyleBox[
     RowBox[{"(", 
      RowBox[{"f", 
       RowBox[{"(", "t", ")"}]}], ")"}],
     FontFamily->"Times New Roman"], 
    StyleBox[" ",
     FontFamily->"Times New Roman"], 
    StyleBox[
     RowBox[{"(", "s", ")"}],
     FontFamily->"Times New Roman"]}], 
   StyleBox["=",
    FontFamily->"Times New Roman"], 
   StyleBox[" ",
    FontFamily->"Times New Roman"], 
   StyleBox[
    RowBox[{
     RowBox[{"F", 
      RowBox[{"(", "s", ")"}]}], " ", "=", " ", 
     RowBox[{
      SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], 
      RowBox[{
       SuperscriptBox["e", 
        RowBox[{
         RowBox[{"-", "s"}], " ", "t"}]], "f", 
       RowBox[{"(", "t", ")"}], " ", "dt"}]}]}],
    FontFamily->"Times New Roman"]}],
  FontWeight->"Bold"]], "Text",
 CellChangeTimes->{{3.6389570020648637`*^9, 3.6389571204150295`*^9}, 
   3.638957188505125*^9, {3.6389573367453327`*^9, 3.638957337085333*^9}},
 TextAlignment->Center,ExpressionUUID->"a1e808e2-2cb3-4545-a28e-34774f1c82b5"],

Cell["\<\
In order to evaluate such an integral we might be using integration by parts \
for f(t) of a different \"sort\" than exponential functions.  However, we \
turn to Mathematica to do the integrations for us and use its own powerful \
computation, look-up, and pattern matching algorithms to do Laplace \
Transforms.\
\>", "Text",
 CellChangeTimes->{{3.6389578026940937`*^9, 3.6389579084342413`*^9}, {
   3.6389614226601615`*^9, 3.6389614421501884`*^9}, 
   3.642592163913826*^9},ExpressionUUID->"b00ea4f6-1558-411f-8358-\
a99cd070a015"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
This \"strange\" integral transforms most functions (if the integral \
converges) from a t domain to an s domain where s is (in our case) a real \
positive number.\
\>", "Subsubsection",ExpressionUUID->"0ae9dd11-2e82-4df9-b2ec-9306a2f9c0ff"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Exp", "[", 
     RowBox[{
      RowBox[{"-", " ", "s"}], " ", "t"}], "]"}], 
    RowBox[{"f", "[", "t", "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", " ", "Infinity"}], "}"}]}], "]"}]], "Input",Ex\
pressionUUID->"44f53d3d-40aa-44b8-b6aa-8b1b42c8f3e4"],

Cell[BoxData[
 RowBox[{"ConditionalExpression", "[", 
  RowBox[{
   FractionBox["1", "s"], ",", 
   RowBox[{
    RowBox[{"Re", "[", "s", "]"}], ">", "0"}]}], "]"}]], "Output",
 CellChangeTimes->{
  3.6389572189451675`*^9},ExpressionUUID->"bf0bb856-86f0-42b5-8000-\
217463db1b47"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Exp", "[", 
     RowBox[{
      RowBox[{"-", " ", "s"}], " ", "t"}], "]"}], 
    RowBox[{"Cos", "[", 
     RowBox[{"3", "t"}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", " ", "Infinity"}], "}"}]}], "]"}]], "Input",Ex\
pressionUUID->"e7bdedd5-5967-462e-bd75-0ed9e582f1d8"],

Cell[BoxData[
 RowBox[{"ConditionalExpression", "[", 
  RowBox[{
   FractionBox["s", 
    RowBox[{"9", "+", 
     SuperscriptBox["s", "2"]}]], ",", 
   RowBox[{
    RowBox[{"Re", "[", "s", "]"}], ">", "0"}]}], "]"}]], "Output",
 CellChangeTimes->{
  3.638957221305171*^9},ExpressionUUID->"53488181-2519-4bb7-95e9-\
50570e79e016"]
}, Open  ]],

Cell["\<\
Notice the restriction that Re[s]>0 in order for us to have convergence to \
the quantity, s/(9+s^2). Thus s/(9+s^2) IS the Laplace Transform of the \
function cos(3t). \
\>", "Text",
 CellChangeTimes->{{3.6389572318051853`*^9, 3.638957279765252*^9}, 
   3.638957945314293*^9},ExpressionUUID->"48cd4155-5656-4ab2-b63c-\
1e401dde3978"],

Cell[TextData[{
 "Tables of these exist and we could visit them, however since ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " can do these instantly without us looking them up we  do our computations \
of Laplace Transforms in ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 "."
}], "Text",
 CellChangeTimes->{{3.6389572318051853`*^9, 3.638957279765252*^9}, {
  3.638957945314293*^9, 
  3.6389579709543295`*^9}},ExpressionUUID->"055468d3-f490-4a52-981a-\
c67af1164b49"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Often the s domain is called the ",
 StyleBox["frequency domain",
  FontSlant->"Italic",
  FontVariations->{"Underline"->True}],
 ", and the t domain is called the ",
 StyleBox["time domain",
  FontSlant->"Italic",
  FontVariations->{"Underline"->True}],
 ", for if the following integral - the Laplace Transform - is to make sense \
with respect to units then the units of s must be 1/Time, for in this way s*t \
has no units and so Exp[-s*t] has no units. Thus the Laplace Transform \
integral is obtained by just integrating a function of t over an interval of \
time,  [0, \[Infinity]) - resulting in a function of s, we call it \
\[ScriptCapitalL] (f(t))(s) = F(s)."
}], "Subsubsection",
 CellChangeTimes->{{3.638957299935281*^9, 3.638957333045327*^9}, {
  3.638958032234415*^9, 
  3.638958046554435*^9}},ExpressionUUID->"e7794b55-fd39-4461-a78f-\
69349585951e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"F", "[", "s_", "]"}], " ", "=", " ", 
  RowBox[{"Integrate", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Exp", "[", 
      RowBox[{
       RowBox[{"-", " ", "s"}], " ", "t"}], "]"}], 
     RowBox[{"f", "[", "t", "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "0", ",", " ", "Infinity"}], "}"}]}], "]"}]}]], "Input",\
ExpressionUUID->"161a1b1a-6c1f-482a-b90c-d74d5e121152"],

Cell[BoxData[
 RowBox[{
  SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], 
  RowBox[{
   RowBox[{
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      RowBox[{"-", "s"}], " ", "t"}]], " ", 
    RowBox[{"f", "[", "t", "]"}]}], 
   RowBox[{"\[DifferentialD]", "t"}]}]}]], "Output",
 CellChangeTimes->{{3.638957992074359*^9, 
  3.6389580092343826`*^9}},ExpressionUUID->"a71c003a-48d4-49f6-a161-\
4c5692f16d14"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " can compute these Laplace Transforms and we see how to do this.  Here are \
the definitions brought up by query from ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 ".  If one needs more, such as an example, then go to Help Menu and type \
\"LaplaceTransform\" and you will have a window offering up a definition with \
 an example worked out at the bottom.OR just type one of the following"
}], "Subsection",
 CellChangeTimes->{{3.6389574226854525`*^9, 
  3.638957460435506*^9}},ExpressionUUID->"85f6ada5-8c51-4373-8115-\
0ff0706610a0"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"??", "LaplaceTransform"}]], "Input",ExpressionUUID->"8f5b95a7-dd27-46c7-a7ef-060144d1fbfb"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  StyleBox["\<\"\\!\\(\\*RowBox[{\\\"LaplaceTransform\\\", \\\"[\\\", \
RowBox[{StyleBox[\\\"expr\\\", \\\"TI\\\"], \\\",\\\", StyleBox[\\\"t\\\", \\\
\"TI\\\"], \\\",\\\", StyleBox[\\\"s\\\", \\\"TI\\\"]}], \\\"]\\\"}]\\) gives \
the Laplace transform of \\!\\(\\*StyleBox[\\\"expr\\\", \\\"TI\\\"]\\). \
\\n\\!\\(\\*RowBox[{\\\"LaplaceTransform\\\", \\\"[\\\", \
RowBox[{StyleBox[\\\"expr\\\", \\\"TI\\\"], \\\",\\\", RowBox[{\\\"{\\\", \
RowBox[{SubscriptBox[StyleBox[\\\"t\\\", \\\"TI\\\"], StyleBox[\\\"1\\\", \
\\\"TR\\\"]], \\\",\\\", SubscriptBox[StyleBox[\\\"t\\\", \\\"TI\\\"], \
StyleBox[\\\"2\\\", \\\"TR\\\"]], \\\",\\\", StyleBox[\\\"\[Ellipsis]\\\", \\\
\"TR\\\"]}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \
RowBox[{SubscriptBox[StyleBox[\\\"s\\\", \\\"TI\\\"], StyleBox[\\\"1\\\", \
\\\"TR\\\"]], \\\",\\\", SubscriptBox[StyleBox[\\\"s\\\", \\\"TI\\\"], \
StyleBox[\\\"2\\\", \\\"TR\\\"]], \\\",\\\", StyleBox[\\\"\[Ellipsis]\\\", \\\
\"TR\\\"]}], \\\"}\\\"}]}], \\\"]\\\"}]\\) gives the multidimensional Laplace \
transform of \\!\\(\\*StyleBox[\\\"expr\\\", \\\"TI\\\"]\\). \"\>", "MSG"], 
  "\[NonBreakingSpace]", 
  ButtonBox[
   StyleBox["\[RightSkeleton]", "SR"],
   Active->True,
   BaseStyle->"Link",
   ButtonData->"paclet:ref/LaplaceTransform"]}]], "Print", "PrintUsage",
 CellChangeTimes->{3.6389575054555683`*^9},
 CellTags->
  "Info3638943105-3626895",ExpressionUUID->"8d22236f-2dd3-46b2-a9c8-\
45f9ee3c5483"],

Cell[BoxData[
 InterpretationBox[GridBox[{
    {
     RowBox[{
      RowBox[{"Attributes", "[", "LaplaceTransform", "]"}], "=", 
      RowBox[{"{", 
       RowBox[{"Protected", ",", "ReadProtected"}], "}"}]}]},
    {" "},
    {GridBox[{
       {
        RowBox[{
         RowBox[{"Options", "[", "LaplaceTransform", "]"}], "=", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Assumptions", "\[RuleDelayed]", "$Assumptions"}], ",", 
           RowBox[{"GenerateConditions", "\[Rule]", "False"}], ",", 
           RowBox[{"PrincipalValue", "\[Rule]", "False"}], ",", 
           RowBox[{"Analytic", "\[Rule]", "True"}]}], "}"}]}]}
      },
      BaselinePosition->{Baseline, {1, 1}},
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxItemSize->{"Columns" -> {{
           Scaled[0.999]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
        "RowsIndexed" -> {}}]}
   },
   BaselinePosition->{Baseline, {1, 1}},
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}}],
  Definition[LaplaceTransform],
  Editable->False]], "Print",
 CellChangeTimes->{3.6389575055055685`*^9},
 CellTags->
  "Info3638943105-3626895",ExpressionUUID->"f627e12c-1262-4175-8969-\
65c022521cb1"]
}, Open  ]]
}, Open  ]],

Cell["\<\
We have a tougher trick in undoing the Laplace Transform and this is done \
using the InverseLaplaceTransform command.\
\>", "Text",
 CellChangeTimes->{{3.638957468005516*^9, 
  3.638957503145565*^9}},ExpressionUUID->"74935ead-8299-49d6-b082-\
00bbef315ae2"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"??", "InverseLaplaceTransform"}]], "Input",ExpressionUUID->"a171f6a1-b6ad-419f-8e93-53a1fd7357be"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  StyleBox["\<\"\\!\\(\\*RowBox[{\\\"InverseLaplaceTransform\\\", \\\"[\\\", \
RowBox[{StyleBox[\\\"expr\\\", \\\"TI\\\"], \\\",\\\", StyleBox[\\\"s\\\", \\\
\"TI\\\"], \\\",\\\", StyleBox[\\\"t\\\", \\\"TI\\\"]}], \\\"]\\\"}]\\) gives \
the inverse Laplace transform of \\!\\(\\*StyleBox[\\\"expr\\\", \
\\\"TI\\\"]\\). \\n\\!\\(\\*RowBox[{\\\"InverseLaplaceTransform\\\", \
\\\"[\\\", RowBox[{StyleBox[\\\"expr\\\", \\\"TI\\\"], \\\",\\\", \
RowBox[{\\\"{\\\", RowBox[{SubscriptBox[StyleBox[\\\"s\\\", \\\"TI\\\"], \
StyleBox[\\\"1\\\", \\\"TR\\\"]], \\\",\\\", SubscriptBox[StyleBox[\\\"s\\\", \
\\\"TI\\\"], StyleBox[\\\"2\\\", \\\"TR\\\"]], \\\",\\\", StyleBox[\\\"\
\[Ellipsis]\\\", \\\"TR\\\"]}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \
RowBox[{SubscriptBox[StyleBox[\\\"t\\\", \\\"TI\\\"], StyleBox[\\\"1\\\", \
\\\"TR\\\"]], \\\",\\\", SubscriptBox[StyleBox[\\\"t\\\", \\\"TI\\\"], \
StyleBox[\\\"2\\\", \\\"TR\\\"]], \\\",\\\", StyleBox[\\\"\[Ellipsis]\\\", \\\
\"TR\\\"]}], \\\"}\\\"}]}], \\\"]\\\"}]\\) gives the multidimensional inverse \
Laplace transform of \\!\\(\\*StyleBox[\\\"expr\\\", \\\"TI\\\"]\\). \"\>", 
   "MSG"], "\[NonBreakingSpace]", 
  ButtonBox[
   StyleBox["\[RightSkeleton]", "SR"],
   Active->True,
   BaseStyle->"Link",
   ButtonData->"paclet:ref/InverseLaplaceTransform"]}]], "Print", "PrintUsage",
 CellChangeTimes->{3.6389575096555743`*^9},
 CellTags->
  "Info3638943109-3626895",ExpressionUUID->"263ab8fe-c83e-4bce-93b5-\
a0f08284663f"],

Cell[BoxData[
 InterpretationBox[GridBox[{
    {
     RowBox[{
      RowBox[{"Attributes", "[", "InverseLaplaceTransform", "]"}], "=", 
      RowBox[{"{", 
       RowBox[{"Protected", ",", "ReadProtected"}], "}"}]}]}
   },
   BaselinePosition->{Baseline, {1, 1}},
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}}],
  Definition[InverseLaplaceTransform],
  Editable->False]], "Print",
 CellChangeTimes->{3.6389575096855745`*^9},
 CellTags->
  "Info3638943109-3626895",ExpressionUUID->"49f86260-a2bc-4b56-8e88-\
18f1e8c6aa53"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
So here we go . . . taking Laplace Transforms of functions . . . . We Build \
Up a Table of Laplace Transforms and attempt to ascertain patterns.\
\>", "Subsection",
 CellChangeTimes->{{3.6389575298156023`*^9, 3.638957542895621*^9}, {
   3.6389580636344585`*^9, 3.638958073654473*^9}, 
   3.638961540100326*^9},ExpressionUUID->"bf2f55cc-e6ab-42fb-a255-\
deda48685ad5"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LaplaceTransform", "[", 
  RowBox[{"1", ",", "t", ",", "s"}], "]"}]], "Input",ExpressionUUID->\
"d1f2445a-d1ed-4425-87a2-0a54bdb8f684"],

Cell[BoxData[
 FractionBox["1", "s"]], "Output",
 CellChangeTimes->{
  3.638957546735626*^9},ExpressionUUID->"b5fbcc7d-81d3-4883-b016-\
69dd07d32eb9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LaplaceTransform", "[", 
  RowBox[{"t", ",", "t", ",", "s"}], "]"}]], "Input",ExpressionUUID->\
"6cb3ce9e-c308-4fbc-9b6d-e359950e1062"],

Cell[BoxData[
 FractionBox["1", 
  SuperscriptBox["s", "2"]]], "Output",
 CellChangeTimes->{
  3.638957546815626*^9},ExpressionUUID->"da945657-e3c3-44d7-8b30-\
c7072f2d9029"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LaplaceTransform", "[", 
  RowBox[{
   RowBox[{"t", "^", "2"}], ",", "t", ",", "s"}], "]"}]], "Input",ExpressionUU\
ID->"9b0bcb35-ee1f-4a4a-bae6-d5b7d44c0625"],

Cell[BoxData[
 FractionBox["2", 
  SuperscriptBox["s", "3"]]], "Output",
 CellChangeTimes->{
  3.6389575468256264`*^9},ExpressionUUID->"262701f9-b79d-4afd-b827-\
9e41a387dcf8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LaplaceTransform", "[", 
  RowBox[{
   RowBox[{"t", "^", "3"}], ",", "t", ",", "s"}], "]"}]], "Input",ExpressionUU\
ID->"040a1974-4c4c-4098-9b2c-c8931419c610"],

Cell[BoxData[
 FractionBox["6", 
  SuperscriptBox["s", "4"]]], "Output",
 CellChangeTimes->{
  3.6389575468456264`*^9},ExpressionUUID->"0b26ed12-d373-4ef5-a1ae-\
6b04801fcd11"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LaplaceTransform", "[", 
  RowBox[{
   RowBox[{"t", "^", "4"}], ",", "t", ",", "s"}], "]"}]], "Input",ExpressionUU\
ID->"529e76ae-d5ef-4816-bbf2-c6dedf4ca05a"],

Cell[BoxData[
 FractionBox["24", 
  SuperscriptBox["s", "5"]]], "Output",
 CellChangeTimes->{
  3.6389575468656263`*^9},ExpressionUUID->"cb3bca3a-b2c1-41ac-bec3-\
4dd654255a17"]
}, Open  ]],

Cell[TextData[{
 "What do you believe we might get for the Laplace Transform of ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["t", "n"], TraditionalForm]],ExpressionUUID->
  "1fd2012e-406c-4733-bafd-d654a6ae2340"],
 "? Of course, we could stop and offer a formal induction proof of  general \
formula, but we proceed to take the Laplace Transform of other classes of \
functions."
}], "Text",
 CellChangeTimes->{{3.638958081544484*^9, 3.638958168814606*^9}, {
  3.6389615455603333`*^9, 
  3.6389615525503435`*^9}},ExpressionUUID->"dfe081a5-3439-4147-8e84-\
d279eec24516"],

Cell[CellGroupData[{

Cell[" Trig functions", "Subsubsection",ExpressionUUID->"9e6f242e-ea13-4f89-83b4-ff4684a89cf5"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LaplaceTransform", "[", 
  RowBox[{
   RowBox[{"Sin", "[", 
    RowBox[{"3", "t"}], "]"}], ",", "t", ",", "s"}], "]"}]], "Input",Expressio\
nUUID->"2ada46ef-220c-4cd8-ab9a-255fa7e1ff02"],

Cell[BoxData[
 FractionBox["3", 
  RowBox[{"9", "+", 
   SuperscriptBox["s", "2"]}]]], "Output",
 CellChangeTimes->{
  3.6389575546956377`*^9},ExpressionUUID->"7f087cf1-9218-45a5-966a-\
98ca7778cb40"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LaplaceTransform", "[", 
  RowBox[{
   RowBox[{"Sin", "[", 
    RowBox[{"5", "t"}], "]"}], ",", "t", ",", "s"}], "]"}]], "Input",
 CellChangeTimes->{
  3.63895817869462*^9},ExpressionUUID->"6a351876-69e4-4f57-8856-d75db2e77b30"],

Cell[BoxData[
 FractionBox["5", 
  RowBox[{"25", "+", 
   SuperscriptBox["s", "2"]}]]], "Output",
 CellChangeTimes->{
  3.638958179104621*^9},ExpressionUUID->"ef7d4507-fd51-4e25-9bb8-\
2c2023a46cfa"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LaplaceTransform", "[", 
  RowBox[{
   RowBox[{"Cos", "[", 
    RowBox[{"3", "t"}], "]"}], ",", "t", ",", "s"}], "]"}]], "Input",Expressio\
nUUID->"2c630e84-83c4-45b5-95d9-a45287616455"],

Cell[BoxData[
 FractionBox["s", 
  RowBox[{"9", "+", 
   SuperscriptBox["s", "2"]}]]], "Output",
 CellChangeTimes->{
  3.638957558685643*^9},ExpressionUUID->"ffcbb7e4-a2cc-43ee-8285-\
bb96ce919168"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LaplaceTransform", "[", 
  RowBox[{
   RowBox[{"Cos", "[", 
    RowBox[{"5", "t"}], "]"}], ",", "t", ",", "s"}], "]"}]], "Input",
 CellChangeTimes->{
  3.6389581856946297`*^9},ExpressionUUID->"6035ad3c-2d06-4329-b43a-\
3ecdca126fa8"],

Cell[BoxData[
 FractionBox["s", 
  RowBox[{"25", "+", 
   SuperscriptBox["s", "2"]}]]], "Output",
 CellChangeTimes->{
  3.6389581860946302`*^9},ExpressionUUID->"b0816baf-095a-4fc3-baa5-\
de30254ac7fc"]
}, Open  ]],

Cell["See a pattern here?", "Text",
 CellChangeTimes->{{3.6389581897646356`*^9, 
  3.6389582006946507`*^9}},ExpressionUUID->"b582a886-a89d-44b0-969c-\
b9be7677b6bb"]
}, Open  ]],

Cell[CellGroupData[{

Cell[". . . and exponential functions.", "Subsubsection",ExpressionUUID->"78e0c584-c19c-4b25-a861-d474a84b67b6"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LaplaceTransform", "[", 
  RowBox[{
   RowBox[{"Exp", "[", 
    RowBox[{"3", " ", "t"}], "]"}], ",", "t", ",", "s"}], "]"}]], "Input",Expr\
essionUUID->"7a8d4a38-8b65-47d8-add6-70fdcf5c7ae1"],

Cell[BoxData[
 FractionBox["1", 
  RowBox[{
   RowBox[{"-", "3"}], "+", "s"}]]], "Output",
 CellChangeTimes->{
  3.638957561515647*^9},ExpressionUUID->"1fc95521-7a0a-477a-86cc-\
388fb8b7d691"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LaplaceTransform", "[", 
  RowBox[{
   RowBox[{"Exp", "[", 
    RowBox[{"5", " ", "t"}], "]"}], ",", "t", ",", "s"}], "]"}]], "Input",Expr\
essionUUID->"df54b643-3881-4f5c-a6bc-281e837e1544"],

Cell[BoxData[
 FractionBox["1", 
  RowBox[{
   RowBox[{"-", "5"}], "+", "s"}]]], "Output",
 CellChangeTimes->{
  3.6389575616256475`*^9},ExpressionUUID->"58a4cb73-d3a9-4288-b01f-\
14de8dfcb661"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LaplaceTransform", "[", 
  RowBox[{
   RowBox[{"Exp", "[", 
    RowBox[{
     RowBox[{"-", "7"}], " ", "t"}], "]"}], ",", "t", ",", "s"}], 
  "]"}]], "Input",ExpressionUUID->"51ce29de-b474-4356-a572-2edde4e0a9f5"],

Cell[BoxData[
 FractionBox["1", 
  RowBox[{"7", "+", "s"}]]], "Output",
 CellChangeTimes->{
  3.638957561645647*^9},ExpressionUUID->"a689496e-e3e5-40d6-8be8-\
46899086a403"]
}, Open  ]],

Cell[TextData[{
 "Incidentally, the transform of functions like f(t) = ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["e", 
    RowBox[{"a", " ", "t"}]], TraditionalForm]],ExpressionUUID->
  "48f2e46c-0603-41ee-bf1b-ede856fddc30"],
 " and f(t) = k are easy by hand efforts! Try one."
}], "Text",
 CellChangeTimes->{{3.6389582084446616`*^9, 
  3.6389582682547455`*^9}},ExpressionUUID->"0a692126-0990-4f15-a5e1-\
f30bce709605"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Continuing in this manner of discovery we could fill in a typical Laplace \
Transform Table. A sample, but short and simple form, table is the following:\
\>", "Subsubsection",
 CellChangeTimes->{{3.638957568835657*^9, 3.6389575785956707`*^9}, {
   3.638957694867542*^9, 3.638957725153985*^9}, {3.6389582782947598`*^9, 
   3.63895828612477*^9}, 
   3.6389583226248217`*^9},ExpressionUUID->"eb6b564f-6fb5-4192-847f-\
42e3674789a7"],

Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJzsnQdUFOfXxmM3mpiYqPknJtE0k9h7jCUaG/aOXURUEBEQEBEUBKUjAmKl
qFiQZkNAQRAQRZSmUgRBunSkSFNKvufbOe5Zd5dlWVgW9P7OiYfMvvPOOzP3
3ufeKe/8JKe6TL7jJ598otEd/yzbpPWvuvom7eVf4n+kVTQUFVS2bpmrsmur
wlb1CXKdsNALbTvjv///+z+CIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiC
IAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCaC1qamoyMjIevc+LFy8q
KipKSkoSEhLi4+NfvXolZG+vX79OSkp6+vRpQUGBWIdNtE1qa2szMzPDw8Nh
VDAtYRpz2V5ycnJ5ebmQmysqKoqLi4OVlpaWCrkKWqI91hLeqgniYwCu4eTk
tPx9rKysUlNTo6Ki9PT09uzZExYWJmRviYmJZmZmysrKAQEBYh020TZBCnHh
woUVK1acO3eurKxMcGPE/PPnz3PZ3qFDhyAHQm7u/v37mpqaBgYGT548EXKV
x48f6+vr7969OzQ0VMhVCOLD5u3bt3l5eZGRkVpaWr++o2/fvp07d16wYIGn
p6eLi8uyZcvgnr6+vkL2GR0draioOG3atGPHjqWkpBQXF4t1FwgxUV1dnZOT
k8QP2Awsh3cVLMzPz0ek1dHR+e2335ASCDj7XI0Z2+vXr1+XLl2kpaVRVjQ6
QuQwaWlpp0+fnjNnzsaNGyEKQu5aSEjIhg0b5s2bd+bMGfQgfEFBEB8qubm5
Z8+e3bZt24EDB+zfsW7duq+//vqXX35ZunSphoaGpaXl9evXUSMI2ScCxe3b
t21tbbW1tdXU1Pz8/MS5B4S4yMjIOHXq1BZ+wGZgObyrFBYWIslXUFBAlg5D
evjwIQSlof4LCgo4GzMgRCMVEVILgoKCULEivbe2tvbx8cnKyhJy19DS29sb
a2FdWOndu3eFXJEgPlSeP3++efPmPn36WFhYsBcinx8wYEC3bt2++OILeCWS
KAE9VFVVvXr16vXr17W1tZzLkT0qKysPGjQIPSNEVFRU1NfXi2s3CDEQExOD
sN+7d+/u3bt36NChR48eX79DVVX1xYsXnI1ramrKysqePHmipKT0008/WVlZ
1dXVCe4fNSOSkC+//NLExIRtG05OTmPGjEE2gjiPdJ1v9QEqKyuLiopgqCNH
jpSTk0NxIWBDTOPy8nKuIUVFRcnKyo4aNer48eNogGaNHxSC+EARoAXwsp07
d7q7u6enpwvoAYW5kZHRxYsXX758ybkcznXz5k1TU1M9PT0tLa1bt24JSBGJ
NgjqO09PTx0dnb///htyMGfOHDMzM3MWOJtcd12RaSPJx4lGkm9jYxMWFtao
9PPVAqiJnZ3dwYMHka6jKoF98l33zp07sCtdXV2si0HyLVIY0DMao6WHhwds
kvOnnJwcFLzoAb/u378/MDBQmMNCEB8ecJPExERoQb9+/Q4dOsRezmjBmjVr
oqOjBa+OROvo0aNojESOb26GeKKurt6lSxe4G2qHlt8HQpzgFKempioqKiJi
Gxsbc5V+nCDHXrVq1cCBA0+cOCFkz6gsoAVfffUVEgYu4XBzcxs7duzMmTMb
usCIAI6CRUFBgas84d0KxozG2Aq2BfXhbYMCduvWrSh2oHTCjJwgPjCQxiNT
MjQ0RH6FfzkvmQqjBVCBe/fuQUH09fX37t3r4uKSnZ3N24y0oP2CZPvq1auM
hSDbR9os4LJPk7QACTm75wMHDgQFBYlDCyorK1ERoGiFiaK6wRb5PkFKWkB8
5ERERKxfv37EiBGoxEtLSzkv4AijBTU1NRYWFv3791dWVo6Pj6+oqOCbNJIW
tF+ePn26adOmwYMHo/TjshBemqQFKCFlZWWHDh0KS+Pbc4toASL//v37UdHs
2bMnIyMD0sBXy0gLiI8QmD287DgLLS2tkSNH9uvXD4pw5swZuCdys8jISAcH
h4MHD6qoqDg6OmZmZvJ2Ap+6f/8+4sOiRYu6d+8+depUpF5Mn15eXlx3DcrK
ytzd3RUVFeGVWAXVBylCewGZwOrVq5EV4MwKaJaVlXXjxo3Dhw8j5KJCbOiZ
HARt1KGMnWhra48ZMwbhF/kGzAw6wtUYdohor6mpaW5uDvthv2sA1Xjw4AF6
QJ2yY8eOixcv8n2fEfqCWgNF6+zZszt06IB/LS0tmU1DXPLz8zkb438vXLiA
3tAnhCwsLOzNmzdNOEwE0Q7x9PScP3/+QBbffvttjx49kLH36dNn1KhRdnZ2
SOwRrpGtqaqqwiPgI3ydoqioCNU9QgQyro4dO37++efff/890+fGjRvhqpyN
0SfaQ4MOHDjw559/6unp8b2URLRBhNQCJAYyMjLI4U+fPo3koaGXy3x8fJA8
MHby3Xff9ezZs3PnzpCD4cOHo3+ua0Tl5eXMNczly5cvWLAAOQazvKSkxNTU
FD3o6OigbCksLOT7XnNaWhrk5scff/ziiy8++eQT/Iu/mU0j5sfExHA2fvv2
Lfp58uQJtOznn39GddDo+3EE0d6B28LgV7OYNWsWYjgi+fjx41EjI7VD3EaQ
79Wr1/bt2+FNDXWCpOv8+fMrV64cNmwY3Pm3335buHAh0ydyubi4ON5V4G7Q
gs8++wyeiGpdnLtItBhCakFAQICUlBTSCRcXFwHNkF0ggDN2gkQdwRlyMHbs
WDk5uevXr/N96Oj27duwUlQQrq6uzJJXr17BgBHe8a+A6SNyc3OR2yxduhTp
Bxrj32XLljGbtra25nsHGXKAMgS5DUQEiiNgRwjiAwDuk5CQEMUC8Xz69Olw
SeTqSLHy8vKE1AJkYllZWeHh4WiGygKigJSP6RO1PN9LQKQF7ZGW1YLi4mK2
7Tk7O0MO+vfvD3VAQt7QE6Eia0F1dTXMLCgoSFZWtkOHDps2bQoODmY2nZqa
WlFRwbsKaQHxEVJQUPDo0aOzZ88qKSnBTW7dusUsF1IL3rx5A6dG/DcwMED9
fvToUeiI4C2SFrRHWlYLGBByIyIizp07p6ysLCMjw774wxeRtQDRPjY29tq1
a/v27cPYHB0dG71LRVpAfIRACNTV1devXw8ff/DgAftur5BagATvxIkTM2fO
REFx8+bNxMTEqqoqwVskLWiPiEMLIiMjEXLXrl1ra2sbGhoqeNYIkbUAJm1p
aTlv3jzY8507d1CuNjpdKmkB8RGCQuDff/8dP3785cuXOZcLqQX5+fmQks6d
OyPpEvIuG2lB+4KZ0hnmsW3btkWLFnl4eAho3CQt8Pf3nz179ujRo4VpLLIW
IPjLy8szb7E1uhUG0gLiI4S0gBBMTEwMztfmzZuRXfv4+Ah+t5e0gCDaKaQF
hGDu3LmD8D5y5MhLly412pi0gCDaKaQFhGBIC4RciyDaNaQFhGAa1QJmovLS
0tKamhrSAoJop5AWEIJpVAvCwsIQZp2cnNLT00kLCKLdwcwyffPmzenTp0+Y
MOHKlSucvwqjBVg9JydHQ0OjW7duurq60AJmWmAsFzBfPWlBe4GxEIT3OXPm
8I3YzOm2t7f//fffpaWlHz16JKQWMD0jvKPx2LFj2eFdACJoAbOV58+fQwv6
9u1rbm7OHrPgb+uQFhAfFXFxcQ4ODgjLCOPHjx/nmi+iUS0oKiq6ceMG2uzf
vx89wFWrq6sjIiJsbW2vXr0q4HsipAXthYSEhDNnzjAWgtPK+zX5Bw8eHD58
WF9fH1XhxYsXMzMzhdSCZ8+enT59mun56NGjT58+bXQwImhBdnY2qt2DBw8y
M7EHBwf/x5p65dChQz4+PgI+vkxaQHxUeHh4TJ48eeHChSgNysvLuV7AaVQL
kpKS8NNPP/1kYWHBTDWMjMvOzm7w4MGbN2/mmvKLE9KC9oKnpydqRhQF+AMW
wvuJSRsbGxiAgoLC48ePKysrYTNCasG1a9emTZs2d+5cpBN8e+ZFBC2IioqS
kZEZNmzYiRMnULQyJgrx+uGHH1RVVQVc+SQtID4qLl26BJ+F5965c4f3V+by
kbq6OlI+a2trPz8/rgmBExMT5eTkENKXLVt27B3IweBlzByVvH0iXNy7dw/N
kElCCODUAi7zEhIkPj4eeb68vPzAgQMHDRqEk3WMH0uXLoUBbNmyhf31SZQS
qCBgNsbGxufOnYuNjeXbv7u7+7hx42bMmOHr69voYJKTk9He3Nwc8dnExCQy
MpJZXlFRAU1BQoK0/8iRI8w3kTlXDA8Pl5aW7tOnz9q1a9ljZia4dnZ2RsDn
3RYif2BgIHpDn0pKSuifPnxMfPAI1oL/WH6BvB1CMH78eGVlZa6LSIwWdOrU
qXfv3gPesXPnzocPH0I1+E5wDe+DWPzyyy+6urrPnj0rKipqdDYAQiIgq0fe
3rdv327dunXv3r1fv34D+IFTj+SZUwuqqqry8vKQw8vKyk6aNOnChQt8+2+S
Fnh7ey9YsAApByrZ7Oxs9mxySFeKi4uR3hsZGQ0dOhQ5PNfHuBktYGbDZgYM
aUMzKFRDE1ynpqZqaWmhlIDooGf0L/jOAkF8ADSqBQwNfdcMXnny5Mk174OK
gO/3RBjou2btBeTGampqa4TDzs4uJyeHc/VGv2vWJC0Q+btm+F9kMlyjhdnz
nZuUgb5rRnyENFMLqqurkYZFv09mZqaA70CRFrQXkDbHx8dHCweKR64PU7YR
LUDMR57PNdqXL1/y/QArA2kB8VGBGB4UFGRjY7Nhw4a9e/c+fvxYQOMbN27I
yMioqKicO3cORXdRUZEIWywvL4+Jibly5Qoq9Pnz5zs5OdFl2A+Y5ORkY2Pj
lStXmpub3759GyGa/YwxsoXg4GBbW9uNGzfu2bOHffGfL1AZND5y5AgsEI15
P3/J4OrqumLFCk1NTRcXF0R7rrsGQlJSUoJ10cOuXbukpaUhQCJ0QhDti+vX
ryPPZ+6gQQgE38DNysoKDQ2F865evXr37t1c1YGQwKmRaC1YsAAhIjAwMCUl
RUBuRrR3UPTFxsZC+hFXcdIvXrzI1gIvL69169Zt3779woULsCXBqQXyEKYx
ehDQGLnN3bt3Dx06tHTpUgMDg8TERBHGnJCQsH///mXLlllaWoaEhHDdeiCI
9k5VVRUCb0REBOeXhY8fP476HbG9oUSLF9Ty69evl5WVPX/+PNxc+OoAYeH5
8+eenp6oLObMmQP1afI+EO2T1NTUbdu2ffbZZwjmDx48QHStqamxs7P79ddf
kcY/evRIwLovX76E0R4+fBhVJGrJ+Pj4RjcH6YEWYIvu7u7Pnj0T/llQtER7
FALy8vLLly+/du2akCsSRDsiJyfn2LFjqMc5LVwELUBiHxAQcPToUUVFRS0t
La6P2gsASZqpqSlExNzcHDlhUlJSk/eBaJ8wWtClS5chQ4YgSjs5OZWVlQmp
BQjsMjIyqEOxVlhYmDDPHiPnuXXrFuRjy5Yt+vr6vG/GNQRKY1QEW7dutbKy
Qs6DYQu5IkG0IxB74Rpffvkl3CrxHdbW1pMnT965cyffb9MLAJX4hg0b4MjC
3PJjQGmvpKQkJSUl+BsoxIcHowWfvAN2+PDhwyNHjkydOlVZWVnwu8aQjHHj
xu3bt6+p12p8fHygO8g97t+/L+Qq9+7dQ7KEioD9gVeC+PBgtKBbt27jx4/f
/A4dHR0UC3fu3OH7uo0AMjMzvb29PT09hc+d8vLy/P39UbaLdhWXaL9wacGw
YcPWrVunra2N6hI1Zn5+voB1kdWfP38eUbqpN4JRHaAEvnnzJvtrrY2SlZUF
Bbl+/TpVBMQHDFwD+X/f99HU1KTJHwhxAxvbtWsXl+2pqanBJiU9NIL46Cgu
Lvb19bV4n9u3b4v23B1BCA9szM/Pj8v2YI0CJoUjCIIgCIIgCIIgCIIgCIIg
CIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIg
CIIgCIIgCIIgCKJdU19fX8sCf0h6LARBEIRkePbs2enTp8+fP//ixQtJj4Ug
CIKQDNeuXZs2bdr8+fP9/f0lPRaCIAii9YiKinJ0dDzKYsuWLQMGDJg+ffqt
W7ckPS6CIAii9Th58uSIESN+ZNGnT5+uXbuSFhAEQXxs3LhxQ0FBYS2LKVOm
fP3116QFBEEQHxv5+fmxsbGPWVhaWg4dOpS0gCAI4mPGw8Nj/PjxpAUEQRAf
M6QFBEEQBGkBQRAEQVpAEARBkBYQBEEQpAUE8cFQW1tbVlZWUFBQUVEh6bEQ
7QzSgiZRXl6en5+fx0FxcfGbN28kPS6C+H9gnC4uLrq6uoGBgZIeC9HOIC0Q
nrq6utu3b2tra6tzcOrUqeTkZEkPjfh4qa+vr6mpecsiPj5+06ZNffr0sbCw
kPS4iHYGaYGQoPqurKw0NDTs3bt3Fw7mzZsXEBAAZ4RSSHqMxMcIUpFz584d
YLFz587Ro0eTFhAiQFogDBUVFagI4Gv6+vq676Onp2dgYODo6JiQkCDpYRIf
I/7+/khIPmPRo0cP5CekBYQIkBYIQ0FBgY6Ozpdffrl3796cnJzXHHh6es6e
PXvatGn4Q9LDJD5G4uPjbWxsdrBYv3794MGDSQsIEWjvWpCXl3fz5k3UyHFx
ceLov7i4OCAgwNraGvm/iooKAn5VVRVnA2wdQvDXX39duXJFHAMgCMHAIOEF
GSyCg4NXrVpFWkCIQHvXgsePHysoKEyZMsXZ2Vkc/b948WLXrl3Dhg0zMzOD
r5WUlHB9DJS0gGg7PH/+fPPmzaQFhAi0vha8efMmOjr6Aj+Qgefk5DSpN8Rq
FMhbt241MTFhOrl48SL6f/v2bYuMNjExEc7Vt2/fhpzryZMnhoaG27dvt7S0
RNVAzxQREoS0gBCZ1teC0tJSa2vr4fyQl5d/8OBBk3qrqKhIS0vz8/NTUVFh
OhkxYgTU4fXr1y0y2ka1oKysDHqEomDTpk0LFy68evVqi2yXIESAtIAQgYyM
jKCgIB0dnUGDBiF+Hjx4MCQkJDs7W3xbRNyOiYlB2Ny3b9+89xk1atQXX3wx
a9as27dvi9Dzy5cvEf+ZrubPn6+rq4uY7M0iKioK6iPymBvVAoawsLClS5fi
SDo6Ooq8LYJoJqQFhAh4eXmtW7du8ODBn3/++Zdffjls2DBY0Z07d8S3RUTs
Q4cOSUlJQXeC3kdfXx+BVGQtqKysRNBmugoMDET/s2fPnsoCPcNBRB4zaQHR
jiAtIETA09NTWlr6bw42btzo7+8vvi2+ePFCQUGhd+/eJiYmXD9hu7Kysioq
Ko8ePWrmVurq6pycnGbOnMnslKKioru7eyiLp0+fFhUVNak30gKiHUFaQIhA
WloakvCrHCCjzsrKEt8WBWgBtout379/Pz8/v5lbqa+vRwBH1cPslJWVlZyc
3BIWmpqaUIQm9UZaQLQjSAuIdkFGRoaent6YMWOMjIyePXuGsF9bWyvujfr4
+CBK/8Fi4cKFp0+fhiQVFxcLuTppAdGOIC0g2gVlZWXI/O3s7KAImzZtcnd3
Ly8vF/dGU1JSrl+/fpqFjY0NSgMtLa3g4GAhVyctINoRpAUEJ9XV1UVFRbli
oKSkpPnP7aMTQ0PDb775RltbG6ZbWloq1uqgqqqqsLCQGb+/v/+6desmTJhw
4cIFIVcnLSDaEaQFBCdPnz61trZWFwNnz57NyMho5vAQnENCQiwtLfX19TU0
NNzc3BCrW2TH+RIdHY1tMeNHRQAZQoEQExMj5OqkBUQ7grSA4OTq1auTJk3q
KgZWr14dHh4uwpDYU6xzTuxsbm6O6mDbtm2It/iVa26H5oBC4807nJ2dx44d
y4x/4sSJTZ0polEtwB5hv+7fv798+fIhQ4ZALltiDwhCFEgLCE7i4uJOnTql
KwYuXbok2oNG2dnZHh4etra2kZGR7IV37941MjLav3//gQMH8GtLveYGTbl3
7x6EhpnRHdWHnp4eM/6TJ082dQq7RrUgOTnZycnJwMAAW0E5xrmDBNHKkBYQ
nCDHrqysLBcD1dXVon2xJSoqasOGDUibOS+hIJ2uqKg4fvz44MGD8SvatMju
Y4SHDh369ttve7JYu3btgwcPmPHjsODgNKm3RrXAz89vzpw5U6ZMcXNzE6F/
gmhBSAsIEUCGfP78eVsekOUKfzldSCIiIlauXPnzzz8jM+f6CUuwHL+ijcj9
l5SU3Llzh70LqAVUVFSYGd1Pnz6dmZkpcs95eXkXLlxQVVVF5n/s2DHICtfd
c5qnlGg7kBYQIuDs7Ixs9nseJkyYAI1o2W2JWwtSU1M1NTWZ8f/www86OjrP
nj3LZFFUVNScZ5+Q57969QriuHv37gEDBpiZmXHNekdaQLQFCgsLg4ODLS0t
YY2ff/45yuGLFy8+fvy4pSbsJT5I4uPj3d3dTUxMtm7duo6DuXPnItwNHDjw
xIkTTeqQmYYatsfMGh0WFsYVMBkt6Nevn5ycHNc81RjGli1bjhw5kpKSIsK+
wAXu3r1rZ2e3Z88eZi/Wr1/v4uJSUVEhQm8NUVpair1Dz3p6emfPnuUcv7W1
tbKyMpaLdledIFoEpCs7d+4cNGhQ7969O3Xq9O23344YMQJu1VIT9hIfJGfO
nEFFgAjm5+f3lAM3NzcpKSkRtKCsrMzKymr48OHDWOjr63M9espoQdeuXfv3
7z/sfVRVVf39/dPT0ysrK0XYF7iAurr6zJkzbWxs2DuSk5PTsu8soDrIzs5G
lnXw4MFx48Zxjh/q4+rqmpyc3JzZUAmimSQmJhoaGnLO/btgwQInJ6eWTYqI
Dwxzc/M+ffogG+eawBMBDVm6rKyst7d3kzosLy+HvsD8fv/99y5dusjLy3N9
0iUpKQk9z+OHra1tU79fwwlcwMjIaPPmzTdv3hS5EyGBvqDiWL58Oef4dXV1
oT7i3jRBCAb5WFxcXDAHqJdTU1NbYZoXov3SkBagnIyPj3/48GFTH+9E2pyS
kgLzU1BQ6NWrF68WMD0H8wNj4PqCcJNgXODRo0fNERQhqa+vR/1y7949zvGj
MCkpKRH3pgmCIFqcCxcuzJkzZ+fOnZ6ensirW/CKoqmp6VdffcWrBQRBEERb
IykpycfHB9XBhg0bEL2b86kXLkgLCIIg2hfu7u5SUlKbNm1CdZCent6cKUPr
6ury8/OfPXtmbGw8duxYPT09dNiCQyUIgiDEBMqBy5cvW1hYKCsrm5mZNef9
soqKCjc3N1lZWV1dXXt7+/v375eVlbXgUAmCIIiWor6+/vXr17m5ufiXPZWE
l5fXnDlzFi5ceOXKlcLCQtFu4zLTUP/vf/87ePCg8J+JIQiCIFofxHlEfnV1
dU9PT/YVIVQHzs7OJiYm2trahw4dio6OFqHn6urqkJAQKysr/Nuch4IIgiAI
cVNaWqqjo9OpUydNTc2CggLOnwICAqSkpEaNGuXi4iKp4REEQRCtAGkBQRAE
QVpAEARBsLVgxowZJiYmRzgwMzPT0tLCv/QpFoIgiA8bthZ8/vnn3333Hec8
1YsXL/bw8MjNzaWZrAiCID5sKisrXV1dZWRk1vNgbGxME6wRBEF8DNTV1SHz
j42NjeEhJSWF5jknCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIg
CIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIg
CKIFycnJiYiISEhIoG+lEQRBfLTcunVLXl7e1NQ0KSlJ0mMhCIIgJMOpU6d+
+eUXaWnp8PBwSY+FIAiCkAykBQRBEARpAUEQBEFaQBAE0d6pr69/+/Zt1Ttq
amqwhPmptrb2zZs3VRxUV1djIVcPpAUEQRDtneLiYi8vL/133L59u7Kykvkp
Li7O3t5enwMbG5uIiAiuHkgLCIIg2jtpaWnKysqfvkNHR6eoqIj56cqVK5Mn
T/6Ugz///BPqwNUDaQFBEER7B5Hf1dVVQUFh7NixHTp00NTULCwsjI2NdXJy
MjY2xv+qsFi9evVvv/32008/nThxgqsH0gKCIIj2Tm1tbUlJSUJCwo4dOzp2
7MhowcWLFydOnLhhw4bbt2+/ZHHr1q1FixaRFhAEQXyQvH79Oiws7PTp03p6
egj+urq6jo6OJiYm8vLyR44cefHiBdMsMjJy1apVpAUEQRAfJFlZWQYGBuPG
jTM0NIyJiTE2Nv7rr79UVFT8/f0zMjLY95FJCwiiLVNfX5+UlHTz5s0bLKKi
okpLS/Pz80NDQ5klgYGB8GhJD5Nou6Smpm7btq1Hjx4bN2709PQ8ePDg8uXL
URFkZ2czDQoKClA4nDlzRlVVdfPmzT4+Plw9kBa0IK9evcJhvMGBt7d3YmIi
76O8BMFJXV2dk5PT7NmzJ7PQ19d//vw5PFdZWZlZsmbNGi8vL0kPk2i7MFrQ
qVOngQMHTpo0SUdHx9fXFwlGVVUV0yAiIkJNTW3lypXHjh1DmMrJyeHqgbSg
BUFptmfPnskcTJs2zcHBgX06COI/1qXdZ8+eoVrPzc1lljBaMGvWrJ9//rlb
t24zZ85E/nb69GkZGZnhw4d//fXXgwYNcnR0lOywibYMWwsGDBgwceJEBPyS
khLOBv7+/kg2Ro8e7eLiwrcH0oIWARXB06dPnZ2dt27dOomDf/75R09P786d
Oy9evHjz5o2kh0m0CVAqGhsby8vL+/n5MUvq6+tRCKBshzv369evf//+sBxF
RcWTJ08eOnTo77//Ji0gBMO+RoT84fr16/Hx8VwBh7SgdcDRQ0WwefNmW1tb
Tw6uXbuGen/p0qU4zoWFhZIeJiFhUBGkpaXBVTdt2jR37lwPDw+uBkjnkNd9
8cUXKBAgFg8fPgwLC1u2bBlpASEYRgtgOUgzUGbyNiAtQMaOjCsrK0tMF2pQ
iCHnv3DhwvLly9esWRMQEMD5K6TZwMCgZ8+eysrKGIM4BkC0I1A8mpiY7Nix
A9n+1atXeT8awmjBhAkTDh48COfNyckhLSCEgbSgUXAEdu7cefz48fT0dHH0
HxoaqqOjo6amZmNjgxqf62EP0gKCobKysqCgwNnZeeLEiaNGjXJwcMhmkZub
W15e/h+rZEDkhxXBWxUVFWNjY6urq1FL+vn5rVu3btKkSZcuXZL0ThBtkbdv
3yLjjYiIQI6BnOHIkSNcWoA0GLZ37dq1pUuX/vvvv2fPns3Ly6uoqODq5/z5
80hCtm7d+vjx41YcviAYF8jmR1lZGXvyPSHBjo8dO1ZWVjYoKIjpBIelBWsE
VATDhg2bN29ecHAw7684TYcPH4baQo9whIuLi2tqalpq00Q7IjIy0tzcfMmS
Jd9///0333wzf/58VRZIJO7cuQPnRczfvXu3rq4uSoabN2/m5+fHx8fb2tpi
oZGRkZOTU1xcnKR3gmiLZGZmIsppaGigljxx4gSyeq4gicgDo9LS0kJNCiOE
ySFBvXfvHlc/MTExZ86c8fb2Zj/SIHGePXt29OhRVR4QTm/cuNHUMP7kyRMU
1/AmTU1Nph8EZyxsqdEK1oLa2lrU+Cj8Dxw4oK6ufu7cOfbjvsRHhZub219/
/dW1a9eOLLp06dKdRf/+/a2srGAnhoaGvXr12r59e1paGrMKFAFZ3Lhx41DU
851kmCBAVFTUqlWrBg4cyPv6GIO7uzusCLaE+IlwtGbNmj/++IN3bjoYGMwM
6SvfS0ytDDPPNoRp9uzZ3Tno1q1b586dO3XqBEUrLS0VoWdXV1ccDaY3lNs4
OOx5vJuZqAvWAjYo3OD169evh/g2Z3NEOwXn/eTJkzAA+CwsAc7LzB5sZmZ2
//59AVrANIb9wOUluwtE20RILfjpp582bNjAWJ21tTXvTYGIiAgbGxskLS9f
vhT/qBshNjYW/qLPA1L6iRMnNkcL4Ik4ULw9o2IKDQ1tzphJCwhhYPIcT0/P
qVOnjh07Fqk+ZzYiQAuYIgI2dvbsWcnuAtE2EVILYEgoS1GcOjs78y0zHR0d
Bw8evHbt2sjISPGPuhEwZgwVcdXX15fzKzxZWVlqamrN0QKm/GF6u3fv3ooV
K5ga4YcffoBENmfMpAWEMCQmJl68eNHExERLS8vS0pLrKiX7fgGyMva088z9
AubCJpQC1b0kBk60dZj7BXxvATAw9wsYQ7KwsGiowER9euDAgTNnzrSF2U6Q
LI0aNUpKSorryczy8vLr16+Ldr+AF+RdDg4OzJGBxOAYWr8jMDCwrKysSb2R
FhDCcO3atVmzZi1btgylAd+nF5jniEpKStgJG+dDFPn5+bwPfhDEf++eI+L7
aBAD8xwR+8kZ9jx1XGB1dIKu0KE4xysUDWkBsiaUA6I9R8QLc+iYIxMbG6up
qfntO7S1tZt6rYy0gBCGS5cuMbZ9584dSY+FINo6qIJ1dXWR/yNF9/b2FtMb
AZxAYpydnWXeoaOjY2dnd/fuXYiFkD2QFhDCQFpAEMKDyPzixQsE55UrV65a
tYo9W4v4qKmpyc3NjXuHpaXllClTUCkkJiYK2QNpASEMpAWEYLKzs0NCQjw/
CG7dusX7Tr0IREZG7t27V05OzsbGJiAgQKzVQXV1NSSAvQumpqarV6+2sLBI
TU0VsgfSAkIYSAsIwQQFBXHNbNl+mTt3LgJj849JcXExAiZ8R0FBAdUBQnTz
+2yIV69e2drasndh165dzBcHmGkBhIG0gBAG0gJCMNACeXn5yR8EzdGCnJyc
8PDwhIQEdhCOj49HdbB48eLDhw+HhYW14GQ+ZWVl6DyEBWoZbW1t9i5YWlrm
5eU1qTfBWlBfX4+6JjQ01MzMDG0OHDjA/vAo8VFBWkAIBjEQEenGB4Gvr29y
crJox8HHx0dOTg4Bkx0qUR1EREQg0iJXX7t27eXLl1vqmENxDA0NF7CQlpY2
MjJi7wKS9oYeuGoIwVpQU1ODILB8+fI9e/a4uLhERUU19ZlVor1TVFSEStPO
zm7+/PnMNNSwsYyMjOfPnwv/iAJBfCScOHFi4MCBq1at4noPAv6yZcuWPn36
mJubN6f/kpIS6FQsi2vXrsnKyg5hMWXKlGa+zunl5bVkyZL169e7u7unpKRw
hXqap5Tw9/dXU1PT1NQ8duwYMw01Eh4bGxskOUFBQZIeHUG0LcStBczM0htY
MLPHn2Ph5ubWzOkfEf9RUBw+fFhFRQVhn+v1bdIC4vjx47DtxYsXo3B+yYI9
DbWzs7OkR0cQjVBbW1tcXPzyHaWlpc2ZvI55g5Lpiu/7cYwWLFq0iO0vDGFh
YYqKikOHDoVDibbp8vLy3Nzc06dPT5069TsWKNV9fHxE3he+BAQELF26VEpK
Ct7NOf60tDRowS+//LJ3717ej00THwOMFgwaNGjNmjUqLFAjGBsb0zTURLsA
odvFxUXlHZ6ens15BZ6Zhprp6sCBA7zTwTFa8Ntvv7H9hYGZlNvOzk7k6ZJC
QkL279+PosDCwsKGhaurq8j3NRoiNTXVw8PDzMxMW1tb5X2wdWtr66CgoNev
X7fsRol2Aaz3jz/++JSDKVOmXLt2TdLjIoj3qKmpqaqqevPmDVfan5KSsmPH
ju7du3fu3PmTTz7Zs2dPc+5z+fv7z507t1u3bp06dfr111/hHVwN7O3tufyF
YdiwYWfOnBF5u/+xPtyGlExGRubp06fN6UcYUMVIS0tzjv+LL76A9gn/hCrx
4REeHo5kgHN2XFh7fHy8pMdFEO8REREBQ0WqzDUPDyL/jRs3IAGTJ09uvhYg
D0dFLC8vP3jwYL5awAyDd05pW1vbZk7bDk+0srJC0t4KH+vJzMy8dOkS5/hR
1AQGBraFuZ4IScE5Ry4DUi/6MA3R1mhozur6+npEsJycnF27djVfC1B0wP7v
3bu3dOlSvlrA6y/s2d2b6TXsj/U0f1K7RmF2k2sX6KOWBEG0fU6dOvXLL79I
S0vzfubmP1Z1ABVovhYwPHr0aMWKFXy1gCAIgpAgpAUEQRAfBm/evImMjHRy
cjrLIjQ0tKysLC0tzcvLi1ly48YN9mRrXI1lZWX79es3btw4fX193sYtpQUv
X7709fW1tbXdtWuXpqYmvWJDEATR4iDyW1lZDRkyZDALPT299PR0xN6VK1cy
S5YvX37z5k1248OHD7Mbf/vtt127du3Vq9dPP/3ELEHqzm7cUlpw//59OTm5
hQsXOjo6JiUl0av3BEEQLU5FRQXy/MWLFyOSI7DPnj375MmTNjY2CL9///13
3759R48e7eLiwjQuLy9H40XvGDFiRM+ePb/77rt//vmHWaKmphYSEsI0bikt
iIqK2rdvn7q6OkShBXaYIAiC4KG2tjYtLQ1hdvv27V988cU333yD4L9t2zbE
fyjC+PHjObWgpqYGje+9Y/fu3f379//3338dHByYJY8fPy4oKGAat5QWFBcX
x8bGoufCwsIW2GGCIAiiYczMzL7++uv//e9/Y8eORR7+7Nkzf39/lAmcWsBF
a947JgiCIFoBRgukpKTs7OwiIiKQjZMWEARBfAAUFBQgvY/hITk5uaSkhGlT
W1ubm5uLhcbGxhMmTNi/f396enppaSnaXLp0ae3atQj17NvBXLi7u8+dO1dd
XT02Npb3V9ICgiCItoC3t7eiouIGHvbt2xcWFsa0qaiocHV1lZGR0dXVdXR0
fPDgQVlZ2aNHj/T09FRVVa2srLy8vBr6gO/z58+vXr0aHBzM90o+aQFBEIQE
qa+vR2KflZVlamo6ZMiQ/hz06dOnW7duo0aNYl/2QYGgra3dsWNHTU1NdkhH
wj9u3LjJkyc7Ozvn5eU19XNdNTU1xcXFcXFxSkpK0AL8i7+xhGZUIAiCaDWq
qqpu3LiBrB65PRJ7Gw527Njxxx9/CKkFP/zww5IlS8zNzZs6wxszZ7W8vPyY
MWOgBfgXf2MJPQhEEATRaqAo0NHR6dSpE8I7+wlPhqCgoEWLFv39998eHh7s
xpCMzz77bO/evUVFRczCq1evTpkypQeLiRMnshsLSUpKirKyco/3wRIsb5Ed
JAiCIBpFgBYgGp8/f/7UqVPsu73V1dX+/v4GBga3b99mXwuKi4uzt7dnZk7m
bCwkzJzVXDNIYwndNSAIgmg1BGhBXV3d27dvub4+U1NTA0XAv+yZmZn5k6tZ
8H6qplHQD9MnJ5z9EwRBEOKmqqrKy8tLTU1NT0/P0tISCX9xcbGkB0UQBEG0
Kki/y8rKcnJyTE1N//jjD3V1dbpQTxAE8dHi4+OjpKS0Z8+eEydOBAYGcl0v
IgiCID4GCgsLExMTjxw5Mn36dBUVlVb4gDtBEAQhcSorK588eYJy4Pnz5+wb
tX5+fgoKCtACBweH+/fv5+XlSXaQBEEQhFjJycmxsLCYNWuWk5MT++Gf3Nzc
qKiokydPrlq1SllZmT37BEEQBPFBkpaWpqio2KtXLyMjo9raWs6fPDw8xo8f
P3369Fu3bklqeARBEEQrQFpAEARBMFrw2WefqaqqPnnyhHOeakdHx8WLF8vJ
yd27d0/SwyQIgiDECKMFXbp0GTly5Lp169ZzoKGhcfTo0du3b798+VLSwyQI
giDESGZm5p49e/rzY+vWrdHR0ZIeIEEQBCF2ysrKAgMDj/DDx8cnNzdX0gMk
CIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIg
CIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCOIj5e3btxUVFeUcVFVV1dbW1tXV
VVdXV1ZW1tTUSHqMBEEQhHi5e/eukZGRLgdnz55NTk7OyspycXE5fPhweHi4
pMdIEARBiBdzc/NvvvmmKwdz584NCAiIiIhYs2bNH3/84eDgIOkxEgRBEGKh
qqoqJCTE0tJy/vz5n3766fDhw+Xk5NRZaGtrGxsbq6mpjRgx4pdffjl16pSk
B0sQBEGIhZKSEkNDQ1QEn332WceOHTds2PDw4cNcFteuXVu0aNFXX33VvXt3
0gKCaHGysrJu3rx548aNtLQ0cfSfl5eH0v7y5cvPnz8XR/+c1NbWRkdHnzt3
LiwsrKKiQtybI1qQsrKy+/fv29nZ6enpbXrH2bNn8/PzmQZ+fn4zZ87s06fP
tGnTdu/eHRQUJNkBE8QHxt27d2VkZFauXAlfE0f/CM5KSkpz586FHIijf06q
q6uPHj06YsQI5JbQIHFvjmhBMjIyoAJjxowxMjJ69o6cnJy3b98yDRgtGDp0
qLW19YsXL4qLiyU7YIL4wIiKitq3b5+mpuaDBw9atmfU9SEhIcj0VFRUIAeo
Dlq2f17evHnj4uICXdPW1r548WJERASyTXFvlGgREN4VFBR69+5tYmLCtwGj
BWPHjnVzc2vlsRHCAF+Dx119n6dPn1ZVVUl6aIRQIL+Ki4vDKSsqKmrZnkND
Q7dv37569WrIAaqDVkjU6+rqMjMzw8LCzMzMpKSkDAwMUlJSxL1RokUgLWjv
wNfgcX+/j5WVVWFhoaSHRkgMhP3w8HB7e/uNGzdCDlAdiGMrJSUlMTExjx49
QgHC9ZOHh8eyZctQjyBuoA1aimMARIuAfBLZCHJIDQ2N+fPno6Dj24y0oM3C
eCLOCzxu6vtoaWl5eXklJCTQ/buPk8DAQEiAoqIi5ADVAW+sbhEQQJCHIJn0
9/fn+ik1NTUgIODw4cPr16/X19ePjY0VxwCIFiEpKQm1AOpHc3NzBPzk5GS+
zUgL2izwL3gZfA0e5/0+xsbGK1assLS0TE9Pl/QwCQlw4cKF4cOHz5s3T0wP
e5SWliJiuLu7y8rKLlmy5Pr163ybnTt3bsiQIQsWLBBTYUK0CBEREStXrvz5
559PnjzJtwHSzufPn6NeWLNmDSRDTA85fJC8evUqMTERqVF5ebk4+md7ooyM
zNKlS2/cuMHVwMrK6ttvv924cSMyN3EMgGjjiFsLoqKiDhw4sGPHDuQhML8X
L17wbUZa0C5oVAvCwsL27t2rqqpqY2Nz8+ZNyjCF5969e1paWhYWFgkJCeLo
PzIyErU544leXl68t+dICyRLVVVVXl5eBj+QYtXV1fE2zs3Nrays5OoHop+Z
mYnUora2tqKiIicnh7Or7Oxs3mTj9evXL1++dHBwmDZtGlIFYZ5N4u0Z/4ue
sdHi4mIMAGOur69nGmM5fj1z5sz48ePHjh3r6OjIrIKN8j4ydPny5RkzZqxa
tQpWin3k3UGiLSBAC2BOMLPjx48PGzZs1qxZt2/ffvPmTWFhIRbiJ4mMVtxg
BwsKCvg6L+OJTertypUrM2fOhAsgZeJ0rpYaraen52QWvBUBA0LBmDFj5OXl
7969i/2qrq5uqU0TwhAfH48MagcPysrKOHdcj3hBr9EYmcPjx485l0Mybt26
paGh4erqCiMMDw83MTHh7A2ZeWhoKNemg4OD9+3bp6Ojc+jQIWwrKyur0dE+
evTIyMiIs+eDBw8iFYQSIZjv3LkTkRwOwjR++PAhGiPV/+6775BvzJ8/n1kF
W7xz5w5Xz8iFLl68aGpqqqmpibwlJiamyYeSED8CtABp7f79+6WkpPr27cto
AYoCJAD6+vr4SSKjFTepqal2dna8zgvc3Nya+lYFXMDZ2ZlxAU7naqnRNqoF
iCqnT5+Gz6qrq+P8NlTCEy1OTU0N0mycF7jPZxz07NmzS5cunTp1QsxEjOVs
fPXq1X/++eevv/5ivwuGJBzyDavT1dXFutD0Z8+enTt3Dqk4Z58jRoywt7dH
jsF+GwjY2tr+8MMP69ate/LkSaOjxYpYHZnDkCFDMLZPP/2U6XnUqFFYmJyc
rKSk1K1bNwyD/RDCpUuXMIzu3bt3YoE/mFV+/fXXY8eO8d0KjgZjrrDbZh1c
QjxER0ejhIQNIP9//T5YguU4yx07dvz3339xBiEBa9asQZmACCPpgbcwyPlR
ugYFBa1YseKz9+natWuHDh0QyVEmi9AzkrrZs2eznQtiyj7C7CxLNBrVAoaz
Z88OHjx40aJFH6qCt0GePn2KkKinp2dgYHCAgz179kyaNIlLC5jG8KyBAwdy
agHi882bN/fu3Ttt2jQY4dixY1VUVJCecfWJ/8VCpBz3799nD6BJWvDgwQPU
I0uWLOnXr9+gQYM2b97M2bOamhpGxaUFGDOyi/Xr1w8YMODHH3/EhphVrKys
Gsp2SAvaONnZ2R4eHjiJOOm674MlWL5q1SqUgSgccLph2ygKYGaRkZGSHngL
8/z5c0RpXufF/s6YMQOeKLIWoGdEY07nYg4veg4ICODM5ZoKaUGbxdXVddy4
cXPnzvX393/LAdwNoZVLC1xcXBDnO3fujJSDUwvy8/NRUTJ1xCeffIKUDG3g
hvA+zj7j4uIQveGk1tbW7AE0SQugRJAhbAUDYGYkZnqOiYnZtGkTBoBNc2lB
XV0dyplr167B/CZOnHjlyhX2eLjug7AhLWjjoA5FSpyYmLht27Yu74MlWO7s
7Dx69GgYCewQhgojhw00dLrbL8jep0+fjpwNnsjpaDB+BG2U9iJrAY4wjhjb
uWRlZZnDizIB0tCcJ/9JC9osly5dQg0oJSXFdfEcqT7OmoaGhre3N/t+QVRU
1KFDh5YtW4bozakFqByvX7++c+dOmCWykREjRmzZsuX8+fMvX77k7DMhIUFO
Tg4pvaWlJXuhMFoAx0dFcOTIEdghRIeZkdje3p59LTE+Ph7mCuOfOnUqGqBI
YVey+MnJycnIyAiVDnoQ5sUB0oJ2QWFhoZubm/r7YAmWR0dHHz58mFmCP7hu
bH0w+Pj4wOAnTJhw9epVzuXwFz8/Pxg8PLT5szDl5uZCW9lHGDUCgoAlCzha
QUFBk3ojLWizNKQFSKIQ4fPy8iAK7GdyIApFRUVYBTGfUwuYxoj8MD9kDkjR
oRqoJri+KiiyFiA5wSqoCCA3T58+zWMBI2fXqowWoGeUtChSOMeM4PDPP/9I
S0vDbl+9eiXMYwmkBe0CRLyysrK898ESLMdZhqEyS/DHh/osSkNa8B8rl4Mj
4Gg0vxqCF8OXmYOJKgMVx48//tiPhZKS0rNnz5rUG2lBmyUsLAxCD7m3srI6
zcLDw0PwZNEIqv/++y+nFjDAZg4ePPj555/DQvg+0S2yFiDJR5BH2q+srMy3
5mW04H//+x+SQK6fzp07N3To0AULFty9e1fATnFCWkC0C5AXmZqaqqioWFhY
tM4c78zlVgUFBWaGcC0traNHj96+fVv4iQJIC9osyBxSU1OR6q9YseJ3FrNn
z3Z3dxewCmkBQbQFkPxnZGRcv35dRkZmzpw5rTDHO8rtwsJCiE4Ci5MnT86a
NQvSEBERIWQPpAVtHGYa6iUsYFfm5ube3t5JSUl8G7emFqC6j4mJwYYMDAyg
VnZ2dnznMCQtEB8vX74MCgq6SrQ0iOGwW67rqCKQmJhobGwMt0V14OPj09Ds
TC1CXV3ds2fP4BfMLsCR4XeGhobYESF7IC1o4zDTUD9ggZOlqqoqJSXV0PSP
rakFRUVF1tbWkyZN0tPTCw4ORgnD9/Fm0gLxERgYuHnz5glESwOrPnHiRPNn
43z9+jXkAMqioqIyd+5cZ2fnFjnvfHn79i0zRQCzCzt27Lhy5Qr8WvivfpAW
tCMyMzPNzMxgVEZGRgi/KSkpXK+xt6YW5Obmqqurd+3aVVdXl++L8KWlpbGx
se7u7tCvpUuX8s5ISVrQTGAD27Ztm0q0NNOnT7e3txdNC5g53p8+fcqeXD0j
I8PU1HTevHmoEZisqamzTzQERgjPDWIREBCgr68/c+ZMZhdQETT1ex+NagHi
T2hoKDLAFStWaGtr07v/EgQhFzYGudfR0Zk/fz4Emstc25QWoCIwMDBYu3Yt
+oShwgW4GpAWNBOcAvimD9HSwI+Qz4t2jQjFmqKiIpwCrsosYdwWLon4CWuH
2bfU18GgMocOHZrLAj3v378ffsHsAny2qd8BbFQLrl69CndWU1O7cOFCRETE
q1evWmIniMYpLi6GQb548YJr5q6CgoJdu3ZxvWvG0Ea0gJn81snJCRXrn3/+
eebMGQzg5cuX6CcnJ6eurg67EBcXd/z4cSiasrJyZGQkekAag2EINjDSAqKN
c/HixeHDhyM4c83ri3oB/tKlS5eGcichgXMlJSU9ZoGYD48ewWLcuHFwqOao
DAYsKysrLS2NJJOvJ9I8pZICKR8SCRMTE64j3/a1gJmGetasWd9//z2jBdC1
8+fPy8jIuLu7v3nzxtfXFyPR1NQ8efIkLDA/Px+qhwwHSwTXCKQFRBtH3FoA
52LKbSAvL29mZnaRhYuLC6qP5tzvzsrK8vPzO3r06M6dO+GJvJPDkxZICuZd
s3/++QdnOZ0DnPHdu3cPHDjQ3NycXTIwk0Wj/Pz7779Hjhx56tQp5OEwOSTh
0Hek3JCPnj17MlNPFxYWsu/zVldXIxSjsF25cuXXX38NQ2Vmw66vr0d6AFnZ
vHnznTt30IbrtSBIEgL+zz//jFUQyTlHiAEvXLjwm2+++fTTT3/99VfoS3R0
NAbA/F1ZWXnkyJH+/fsvW7YMtses4uXltWbNmhkzZjT00Cz2JTs7G8cEtfDy
5ctv374t1oP/EcLMas55HhG+PoBvncMFkIqkvw+sV7SZ3LAWfIHpBMGT9zoM
owWoiN3c3Di3iDQeARb+gpxHtDsRjAvAueACP7KYPn264IfMReDRo0ebNm2a
OnWqnZ0d10HDyBGR1NTUWuF1CYITRgtwxpcsWaLEgYqKChID1INhYWFsew4P
Dzc2NkYERoxFEJ4zZ46+vj4qC4gFagRFRUVEdeQkw4YNgxwgUWdPQM1Mq4sc
Awk8QvekSZOUlZWRfiPyQ3QgB8wUtceOHeMyANjzvXv3UDtgQzt27OAcoZaW
FnRKQ0MDTtG7d29EeIwZwnHixImHDx8idWG04Pfff1+9ejWzCpTC1NTU2dm5
oZclsSJKG+ZbHtgj3rsPRDOBvCLH4DyPNjY2wj+R2GaBC1y5ckXpfU6fPi3a
dECMv7DtnPeTrIwW8HVbuADjtqLNIIcobWhoyDjXURbYVlNfLm4UyA0SM+Rs
Ojo6XAcNWZ+1tTV2uaioqGU3SgjGw8MDkflzHlARwEm5GiM9mDhxImcz6AjK
BOQ/OKdcPcjJybGfAYCBQQg4f/3qq68QddllrODvmkGMUKVCfTh7WLFiBWQC
No9QzyxBRQDTZa918uTJQYMGca4ya9Ysb29vAUeDvmsmJphZzZHfQosRwThP
yty5c5EVQPSb/6S9REBFgLomLS0NGsflAuvXr0eBjBK1qY/0IOmCvzDzxvfr
1w+pMlcDlAMTJkzgdVtUBEicmrM7qAiQ0cG5OCcTFhPIAbZu3cq1C5ChnJwc
cW+a4CUuLs7e3v4gD5Bs3k+MxcbGcjVGBoKyFI6MfI+rh6tXr7LfTEeBAOvl
/BX1BcI+u+IQrAVwJQRnyAFnD8xFLeRd7J65pqGGACHB4FwFBUhiYqKAo0Fa
ICYQLf38/Jg5pbnsBOWnnp4eSkL2IzHti8LCQpj6vn37ULry7hp2GVbX1Acv
GX/ZuXPn6NGj+WoBPBGFA6/bHj58uJnfnUH+durUKca5mtOPMOTn51+7do1r
F3x9fT/UL9C1cZjpf2v4wTurFW9j/C/TjJkamusn9gRxfLfC2X+j3ztuqH+u
njn7FDwkvpAWiImSkpK9e/d27doVyXNeXh7nSYFGSElJjRs3jvfdkHZBUlKS
vLw8ilZzc3Mue2OmzoZVBwYGNqlPxqrZMy7yakGT3FaETTfqKS1Co2GB+AiJ
jIyEwevo6KBegAc1NP2F+IiKijp58uRB1s0CBweHpiZyhGBQF3h7e+/atYu5
HMT5k7+//+zZsxEzkYtKanjNoaCgwNXVFaUNb8C/dOnSyJEjeScBFhLUsMxz
d7xaQBAfKtXV1a9evfLw8GBeafHx8WnlAaDiHjZsGFwvNDQUSWxzvtxE8IIM
kJlFmXnqjPOn9q4FzNTZhYWFvM/tkBYQhGg8efLE1NRUVVW11ebghSNHR0c7
OTkZGhpu27bN3t6e/ewT0Tq0dy0QgMhaANHEYTl69OiePXvgDrdu3RLTCAmi
bdL6c/CiHrG1tUVFoKGh8eDBg5ycnGZ+2ptoKqQFvDx+/FhJSWnatGmQg+Tk
ZJqHgfg4SUhIMDEx2bFjR0BAgLi39fbtW4SgVatWOTg40PPMrQxKsMDAwOPH
j2/fvh1a/CHNSJmSkoJk/vDhw3JycgYGBk2dYA0VMQpkyAHvmwUE8fHAzMH7
5MkTVMri3lZdXR0i0qNHj9LS0qgiaGWg9bKyshs2bDh79iyiJd8vU7RTUNIu
XrxYUVERfzx79oxrFpdGgQtADlAdtIILEARBSIrs7OywsLBjx46tXbtWXV09
PDy8+X2mp6eHhIQgi6isrGx+b6JRX1/PDMPCwgJagIqg9Z+IIwiCaC/cvHlz
06ZNO3bsQEWAoqygoKD5fbq6uq5YscLGxkaCb62izHRxcVm2bJmmpqabmxsS
+6ZWBARBEO2U/Pz82NjYxzwgRS8uLuZqnJeXh8bW1tazZs3S0NDA369fv37x
4gXfxk3CxMSkd+/eCgoK6K05/fzHeqIgMzOTa3ew5M2bNw3N8V7Dmi89Kirq
4MGDEyZMMDQ0RO3TUGOCIIgPjxs3bsjLy6/hYc+ePaGhoVyNPT09t27dqqWl
ZW9vHxISUlRUFBMTY2xsrK2tzdu4SbSgFuTm5trZ2XHtjoODA1QPg8R+YVtQ
Mc5VysrKLl68uHbtWj09vXPnzoWHh5eXl7Mb0/TLBEF8qLBnaTY1NR02bNiP
HPTr16979+6jRo1iPybKboyYj4iN0BocHMzMUezs7PzPP/80/5nSFtECZP4F
BQUYG0bYsWPHL7/8kr1TysrKDx8+PHbs2JAhQ6SkpNgPuaEigKJFR0dj0506
dVJSUkLkZ3bt6NGjgwcPFvldM4IgiLZPVVXV9evXEfqQCR85cuQYB6qqqn/+
+SenFlRWVl67dg2N//77b8gEIuS6deu2s1i0aNEPP/zQRrQgLS0NBQvGhhH2
7NlzyZIl7J0yNDTEfs2ePbtPnz6cWpCXl3fhwoVNmzaNHDmyQ4cO2JEtW7Yw
uzZr1iymMWkBQRAfKqWlpTo6OsiENTU1uW7+BgUFIYpOmjSJ/bYgGu/fv/+L
L77gnWaZYfLkyc18tbCZWoD0vqKiIiQkhD0F+oABA6ysrNgNTpw4MXDgwM6d
O/fo0QN7x55EMTk5GRrX0H4BNEah0ZxdIwiCaLMI0ILU1FRnZ2cHBwf2dfLq
6mrkxkZGRoYNwNlYNJqpBUlJSY6Ojrq6ugYGBsyQDh8+zHkLg9GCYcOGIfJj
79jfOSoqKvLy8mpovwAao9xozq4RBEG0WQRoAd95j3mnEG/SdOKN0kwt8PPz
mz179l9//eXm5sZ3/mRGC6SlpcPDw7nmYxf3rhEEQbRZqqqqfHx8IAR6enpm
Zma+vr6tMG0OEmx3d3cLfsybN+/TTz+dMGGCtrY276/29vZPnjwR0DPGP2PG
jHHjxjX0bV9GC1atWhUVFSWenSMIgmh/sKehhhAMGjRo586dzX+Ys1GCg4NX
rFjRlx89e/bs0KFD9+7dv/rqK95fEeTPnTsnoGfSAoIgiOZw69YtVVVVZONH
jx719/cX6xQ6cXFxlpaWm/kxduzYbt26/fHHH9LS0ry/7tmzp6EbuJCwa9eu
oVt1dfWDBw9GRETwbUZaQBAEIYBXr14lJyfb2tpOmzZtx44dgi/FNJOKiorM
zMxEfmhoaPTq1QuxGnrE+2tKSkpJSQnfPr29vZcsWYIV3dzc0tPTG3pHmLSA
IAiCEwTk6OhoT0/PhIQE9l3R27dvKykpoUCws7O7e/dubm5uK49K5HvHLi4u
o0ePnj17Nt8JorGD2E3srKmp6YYNG1A+0PdPCYIgQE5OjpmZ2fTp08+cOcN+
0iY/P//x48enTp2Slpbevn37gwcPWnlUYtIC7ODZs2exs+rq6j4+PklJSeXl
5S00ZIIgiHZMWlqaoqJir169jIyMamtrOX/y8PAYP348Imfrf5axxbXg7du3
ycnJAQEBW7Zs6dmz57Zt21JTU/Py8sLDw6F69K0xgiA+cj4SLSgtLXVwcJCS
kho0aFDnzp0ZLQgODlZSUtq7dy/koEWHTxAE0c5gtACp8o4dOyIjI6M5QPBc
unTp1q1b79+/38qjElkLfH19V69evW7duosXL3LuS0hIiLa29ogRI7799ttO
nTqtWLHC29v71KlTixYtwu4/fPhQTDtCEATRLmC0oEuXLsOHD0cU5ZzYWV1d
/fjx4wEBAdnZ2a08KpG1ID09HVWMjY2NsrIy577IyMgcOHAAAoF97NGjx6+/
/goV0NDQOHHiRGBgYOvfHCcIgmhTZGVl7d27dwA/tm3bJqmLJ9AgaBMyecR2
EVa/e/fu2rVrOfdl5MiRJ0+erKurO3bs2NChQ5mFSkpKXF8uIAiC+DgpKysL
Dg4+xg8k2Hl5eRIZVWRkpIODQ1BQkGiflczIyLh+/Trnvjg6OkZFRdXX1zM9
Mwt9fX1b5IucBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQ
BEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEGIg+rq6tLS0hIe
Xr9+/fbtW0mPjiAIgmgNgoKCDhw4oMPDsWPHYmJiJD06giAIojUwNTX9+uuv
O/Iwbtw4d3d3SY+OIAiCECNVVVXBwcHm5ub6+vq7d+/W5EBaWnrAgAFjx451
c3OT9DAJgiAIMVJcXGxgYICKQFtbOyUlpZADDw+PqVOnkhYQBEF88Lx69WrP
nj2ffPIJ/sXfnD/FxcVZWloePHgwPDxcUsMjCIIgWgEBWlBRUfHy5cuMjIzX
r19LangEQYiD5ORkb2/vR48elZSUiHtbhYWF9+/f9/PzS09PF/e2CJEpLy8/
f/788uXLdXV1nZ2do6KisETSgyIIQry4urrOnz8fXp+UlCTubT1+/FhdXX3V
qlVQH3FvixCZmpqazMxMpAeGhoZTp041NjbOysqS9KAIghALdXV1qampQUFB
ZmZmixcvhr+npKSIe6MxMTF79+5duXKltbX1vXv3MjIyxL1FojmgKFi0aJGG
hsbly5dx7srKyiQ9IqIRUMHFxcUFvM/z58/fvHkj6aERbRTkfhcuXICna2lp
wdOfPn3aCleAi4uLo6KiEGF27ty5Zs2aq1evinuLRHNAenDnzh0LCwtpaWnU
CAgpkh4R0QhpaWnI7ma/z4kTJ4qKiiQ9NKLNARVAyf/o0SMDA4MJEybAcnJz
c8Wxofz8fCSTMM6qqirO5cnJybq6uv/++6+5ufnjx4+zs7NRpIhjAERTqa6u
RrH25MkTTpPw8PBYsGCBvLw8tDspKYmqg7YJKoIXL154eXlt37591Pvs3r07
MDCQ1xOJj5ySkpJz584hLd+/f//FixcjIyMrKirEsaGbN29u27bt6NGjmZmZ
XAMICws7e/asjo7Ohg0b3N3daXKbNkJeXp6dnZ2cnNy1a9fYC6HdiDCWlpYK
CgqoDlBCSnCEREMkJCQgr9uyZQvqOJf3MTIy2rhx47Fjx7g8kfjIQcqnrq7e
tWtXJOfieD6kvr6+uLgYSQiix5gxY9TU1BITE3mbvXz5UlVV9dNPP9XX16d0
pY2AxBIBv3fv3iYmJlw/ubq64mzOmjXr9u3bEhlb+wVeBmuH34nJzpHLobj2
9PREgocTdOXKFa4GVlZW3377LeQgLi5OHAMg2ini1gIk+UgjlZWV9+3bd+TI
kYCAAK5n1BlIC9ogpAXi4OHDhwYGBiiQxfSo3pMnT1ALaGhooC7AaeJNvUgL
2gK1tbVQba4pfxH6kDw3tEpdXV1lZSXXKlgi4KI6ekOfvHMLA0T7mpoazp5R
8sNs+vbti3q/0atDfHvGWtgvdIvOOacvZhpDa7S1tbt3746ogrqVdxgMOTk5
Wlpa33zzDbQgLy8PAxNwTIjWgdGCL7/8EieF66RfuHBh8uTJS5YsCQwMlPQw
xQ5ftxXGE/mC+DxhwoSlS5f6+fkxnZSVlbXggz2oCCazuHHjBt8Gx48fHzRo
kJycXHh4OOO8LbVpQngyMzPPnz+vzYGOjo6vr291dXVDqxQUFHh4eGi/z/Xr
14uLixtaBQEZqbg2P86cOcN+WDQ/P9/d3R0DgKcjhQgODm70Qj2Mlrdn2DYC
/rNnz06dOnXixIn4+Hh2Y1ijpqbmlClTOnfuPHbs2B07djCrnD17NjU1lWvM
yDCNjY0xGDTAinRTUuIwWgAdnzZtGtdJRxWJ5OHSpUtc5/GDJD09/dy5c3wd
Cp7Y1LcyY2Nj7e3tDxw4gEqZ6eTw4cORkZEtNdpGteDRo0eo0FGb7N2718nJ
KS0traU2TQgPzsLy5cs55/vt0qULTKK0tLShVVDibd68mWuWYARVAe/qIq9G
qs87tzCYP38+Yj7TDNEbuQGqRUtLS+Q2wuThyN7V1dW5+pSRkYmJiYFG/PPP
P7BAmCLTODs7W01NDQ06dOjwySef4F/2KgsXLrx37x5X5xgA6gVoQY8ePXbu
3InVGz+ghDhhtIDr3DGsXLkSWWU9C0kPU+yEhYUhjefrUMrKyk29A4sjBndD
oIa/MJ0MHjwYMbmlRtuoFjADQD42ZMiQxYsX379/v6U2TQgDsnEkUUZGRoj8
nLP+7t69e//+/aampigYuRQBwfDq1atIlZGDab6Pnp6eiYkJzjXCPucqRUVF
Pj4+6A0NuFZZsGBB3759582bFxQUxDSGFmzatOmbb76BFjQ6/sLCQm9vb4wE
SX6nTp0mTpyIOM/0jIUYJLr66aefJk2ahEyJWQWJPcwS2oGFqAtGjx69fft2
ZpXTp0/zzSdRcUMLkIiqqqqSFkgcmNPly5c1+XHhwoWP4e1jqKGzszOv2yLX
QrBFIoesTLSnceB9x48fZ3pDaYAywYwFnBFpUnMepWtUCxigBdCgRYsW8WZl
hFi5c+cOJPjff/+FaXHO+otgjlp7wIABMAmuF28jIiI2btw4ZsyYU6dOFb6P
jY3N0KFD5eXlUW9yrpKUlIREZdCgQRYWFlyrnDx5EqdeZC1AeaKkpNS7d28E
6q5du+7atQsuwPTs6Og4YcKEzz//HK7BqQXIPZhHJrS0tLDW1q1bMVpmFcgE
1/0CBtKCNkVtbS3OYCE/GjqDHxj+/v6oYadPn+7i4sK5+yiQEcBRwIqsBW/e
vEHux/T28OFD1P5fs0CdjlwOjiDymEkL2izJyclXrlxBcEaGjASD68Ig3A1a
0KtXL+TM7At3sC4vLy8rKytUDUhIeE8WlEWLhbW19c2bN9lhMyEhQU5Orl+/
frzhHXUuwixEhP1cgZBakJub6+vre+TIERj/VhaKiooI+Oy7XefOnYMw/fjj
j/AamPHjx4+Z5RUVFaGhoRAybBeyhbJIwD0OBtICok2BKnvq1KlIdbheiofb
wkORHSG14/tcXJOAqaNSZpwLnrJ//35kbnYsAgMDm9o/aUGbBTaDA75q1SqU
2wjyXHM78NWC4ODgdevWzZ8/H+cLC3nvJpSUlKSmptrb28+aNQvBH3GeWS5A
C5DIpaenI0tnpxxCagHES0FBARUNStokFlC3oqIi9oViRgvQANEeO8h+MDU/
Px+7BnuDbcfFxeF/G80kSQuINkVDWgDjhwu8ePFCGKtuFKRVyLgY54qPj4cL
DBky5FcWGhoafN/HEQBpQZsFEXLUqFFSUlJI5nl/raurg0Zs2LABgR12xSxE
qo/Q+tdff+EnAT1fvHhxxIgRc+fOZT/Xh1B/7Ngx6AiCsPs7oqOj+T4sKqQW
3L9/f/HixX/++eeZM2f4NmC0YMGCBXfv3uVcjmC+c+dOBHY9PT0ha96PUwuy
srICAgLciZaGmUOvObE6KioK1otcCAX4rVu3WuGhqbdv37q5ua1du3YFC2iB
g4MDwnVBQYGQPZAWtFkEawESDAQ95N7I/9lXXUTWgqqqqpSUFAQWLS2tce8w
NzfnO8UQaUEbAYYhKys7jmhpkM+jmG3OnCoowOEmrq6umzdvRmRmPyMnPhAQ
kNFFREQ8YnH06FGEazU1Nfal10YhLWizCNYCvoisBQzFxcUnTpyY8Y7du3df
uXIlNjaW6/JUo1qAVAQ26eTktG3bNrREXsS3GWlBMwkJCVFSUppBtDSzZ892
dHRs/vxa8fHxsGFpaenDhw/DyMX66aW6ujqkc/BofxaoR1avXr13714UOEL2
QFrQZml9LUB9kZCQ4PsOU1PT5cuXm5iYcH2SoFEtePjwIUpUpKxIrmAwSFf4
NiMtaCZ5eXlhYWG+REvj5+eXlJTU/Ov5qA6io6NdXFyQn69cudLDw6NFzjtf
3r59e/78+YULFzLzS8OD4OZRUVGNPnfBhrSgzdL6WsAFbBhtmId/kpOT2dVB
o1rAvD42ceJEzmkqOcnPz3/69OmxY8dguojesFjOX0kLiPZLUVERygFICdtf
0tLSYJxTp05FcgVTR2rUUpOrV1VVofNIFkjAsJUJEyaMZrFv3z74bJN6a1QL
kHvAbW1tbefPnw8PFf7qE9FMJK4Fz58/h3lYWFhs3boV1QF7jojmawEzDfWu
Xbvs7OxQFLDvfTOQFhDtF2TLmpqanP5SVlaGQO3k5LR37961a9e6uroKmDqm
SWRlZSGhWsWCPXs8M780CsamznHRqBZ4e3srKChg7+zt7UNCQoS/K000E5wR
6K+0tPSVK1eQS/DOBcpM6VxYWMguZoOCgmAS8+bNg+FlZmbyzsxTWlqakZHh
4OAwc+ZMWVnZBw8eMMtRYOLMpqen89rPhQsXhg8f3qR3zRrSAmYa6tTUVMRt
rL5hw4aYmBhmplyAPzAM6EJERARk4o8//rCyskLmgzFjYFguYBou0gKijYBo
DH9BosX2FwYk1erq6l26dGnmvL6Mv6SwwCYQnH9i8fvvv8NfmvOumb+/P6IN
SnVnZ2eoDO8HCmmeUkmBMtPd3d3c3ByBEWkG14UUlJk+Pj7In3Hi2B+eQ5yH
uCNEa2lpIanmnTAExqOtrb1nzx6cVqg8+0p+bm4u5AOKD3vgWqUFtQCahZ9U
VFQmTZrUs2dPRgtQdR46dAi7+eTJExj52bNnd+zYceDAAeQe4eHhWIV5P+7M
mTMN3Xf4j7SAaDOIWwvgMvCXbSxg7cbGxidYoMRm/EXknpFYwmHR+e7duw0M
DNgvH7EhLZAsAQEBUOqpU6ei7ivmAOWAoaHh999/r6GhwTsHBcLsqFGjYB7F
73PkyJHBgwdv2bKF6+kC5l2zvn37GhkZca2C4DxhwgQkDOxbRc+fP9++ffuv
v/4Ks0ED3qmzfX19oR3Tp093c3Pj7AruABuDOX366acdO3ZEYRsaGnr58uVZ
s2ZJSUlB2mBjsDSoDCycvRYsEDkP8h9oEO/xYSbQzsnJYWoNyJyYPrX5wVNd
XY2qkPN8ITP8AOaLgHHCQrisWuQpl5npNZhOcLh4r/YwWoC6G2kP5xbZc7zD
xUR7Qgl1MSr9K1euwF++ZDF+/HikgiJ0JYAHDx7AMceNG3f69Gmug4bcb9Cg
QYqKiggXLbtRQhhQCcK6Dh48iHSCa9rb/fv3I2beunWL68IO8mcEWCgFSgOu
VbAEpnj9+nWuuekYLejRo8eMGTP4TjLs6urKfiIOMgQ7Rz8YwL59+/z8/Liu
3sDsUU0IGPP/sXfeYVFcXx+PscSuicYYu8Yk9l5/9t47iCKisYENBQUpoigI
CFhQREAEAUURsKHSVJrSq11EEMQGWLChIub9vtwn+4yzy7LLAgt4Pn/44Ozs
nXPv3Hu+58zOnIG6NWzYsFu3blAl7IM9XV1dITFMC+rXr4+lxP0KjoV8R+T1
ydzcXB8fH+wGLUDLgYGBwrktIQkhISFIx7gny9HRsQq8px6uG2EGbx4eP368
ZPkj4i5B9XisC94tcP/+pwUdOnRYsGAB94hS1XgXSUJCwt69e9l6MS0EwV6p
vyr00aNHCOFEeg+2ErHc6JcCeYHAJioqavbs2dU41KhRw8DAACogsvYvNjL3
Xu1bVq9ejUxQ+CtsZ1ZkmAemdGJiIu8r+C8rQ/3TTz+JzHmxA3vWjNsU+zkY
OyM9admyJTscu6eUtc+0gGeGhoZGZmZmUSWO2XvNoGJYaPQiG1mwsLBo2rQp
d+QRGEDo5W2XrMBxaWtr82b1vHnz4FpL0BorQ80aEXmZlGmB8FJiO8tSrBvx
Vffu3adMmcLWS9nV/UazN27cWLhwIa8L69evx3KjJSZfEI0gctbhoKuri4xA
/LtsPD09db7lzJkzIu83Zq+n0RFFURFUse+4hOi4uLhwm0JoBN+CoAgygQCD
beS+JQfZChIQngHIYsS8poHecSkjmELBwcGIVzGAmFTckUewgRAUJ0jk1bmK
z8uXL319fc3NzRHQ8kpnI59FXI0AWNrnv7A/ZjXyWbjlZs2aWVlZ8XaAxOze
vVu4WPe2bduEkwipiI+Ph5o4OTnxnvcpC7C6sfB5XUBuTi+Kkjv5+flv3759
8S3iw2B2YZP3lffv34u8t1nkzgwcV+SV1WK1QIzNcNqQJLaFW8RYKpsZpAUy
Ap3dvn07MoJNmzY9ePCAO/KsOuLIkSOFX4NeKUB3MDf++OMPKB1vUiGyGjJk
iIKCQlhYmFRtslkdHR2NfFmkFnz69AnZuvA6Yr+sydId1nL5FP0uwUokvlvg
QxBWqampIeg6ePAgQn1Z7o4oAYj6goKCbGxsEOOtXr0aQYssL/L4boE6w9Xj
PHp5efHO4KVLl8aPH9+nT58TJ07IyzxZQJqJGB4Ri7+/P+8jBL29evWS6uEd
Lvfu3WN1fYW1gCC+NxA55OTk3L17F1Fl165dEZY/ffq0PA1ITk7euHHjgAED
sB5ZQEtXMksAIj0MXUpKCs4mLwGs7FrAHldJS0sTvi5KWkAQpQvSVcSTKioq
enp6iMGioqKkfdqxBGRnZ1+9etXR0RFasGLFigsXLpT1Eb9PKrsWiKHEWgDd
RArs5OSkra29dOnScihAShCVAkHpbEtLy7FjxxoaGt6/f7+sD5qQkKCpqTlt
2jQbG5vExER6oKCMIC0Q5saNG4hAJk+ebG1tTXOPIIQ5ffr0vHnzhIualgVY
j5s3b0ZUVgXueKyYPH/+HCkeMq9ly5apq6uLr1tVLGlpacHBwbdv35alQkJp
8ejRo7CwsH379ikrK+vq6kp7Z+mdO3e2bt26ePFiX1/fMrKQICo1GRkZoaGh
8NLl8KjXq1evsITDw8Op3EQZgVO5evVqqK2Dg0NkZKSM0S/SilmzZu3du7ci
nC8fH58FCxasXbv26NGjyGdf/Fe/RUJev36NdEBMJXaCIIiKBnw4HFesEAjR
i3oxenZ2NgQdEjBnzhxkBILqhbKAbPHnn39WU1N78OCBjE19/Pjx4cOHvO6k
p6d/+vQJPUK/kpOTRd4Dz56ORAixa9eucePG6enpSfs6YIIgiErKuXPnENvP
FUJHR0e4biHj0qVLiJk1NTXt7OyCg4NL5d6wUtQC2APDeN2BcmVlZaFH6NeO
HTtEvsmroKDg1KlTixYt0tXVdXZ2hsZJ/pIXgiCIygi7TTQ1NRVOuFevXh04
sMKAvXv3Fv45mJVA379//9ChQ1etWpWUlPThw4cnT56ILF8sFaWiBcgIkOZc
uXJFSUmpevXqv/zyi6BTGhoa4eHhrO7ihAkTLl++zP3ily9fMBr37983MTHp
1q2boaEh69GjR4/Qu4rwEwZBEERZkJeXd/r0aXV1dfg9GxsbOw4I+OEwRWqB
v7+/lpaWvr6+tbV1QEAAIu07d+7s3bsXLjQmJkYWe0pFC9LS0uzt7efNm9ep
U6d69erNnj1b0ClYiFxm7NixTZs2FdYCuH0vLy8cfcuWLba2tqGhodiCHhkb
G6OnVHKTIIiqSm5uLlw6gmdtbW1eSUl4wjlz5gwfPlxQVoKVdH758qWRkRGC
bVVV1bi4uJeFnDlzZtSoUbLfUyqjFnz+/PnNmzfsPU0/F/LHH3/AjQt2OHjw
YLt27WrVqtWwYUP0TlD2B/nR+/fvkRFAKTAa0MH09HTWNUdHx+7du5f4WTOC
IIiKjxgtePjwoYeHh5OTk+ANjEgi/Pz89PT0Ro4cWadOnZ49e8Jp6xaCILx9
+/Zy14Lk5ORDhw4ZGBhs377drBBkK9w3rTAt6NGjh4aGBnqHPrLt6DsyAmwc
OHBgtWrVBg8eDDlgXZs+fXqzZs1ICwiCqMKI0QJhXr9+DSH48ccffygCuWuB
v7//mDFj+vfv7+npKXIHpgVKSkq8d/9BRJYtW1ZUvwBpAUEQVZiPHz8i1Ef0
u3XrVvhhX1/fou4g/bcwL8AOvGrVXKytrZOSkoo9aFpaGiTDXBQTJ05ExoHg
HK0Jf2pvb5+YmCim5RJrAcsLiuoXcHR0TElJKbZrBEEQlRHBTwA7d+5kt9mI
CcgFOxcFsgzee+tEEhwcPGvWrJ9FASGoVq3aTz/91KhRI+FPe/fufeTIETEt
l1gL2O8FYrpWNV7iSRAEIR7BrUH79u0LCAjgvdi0dLl9+/aePXtWiGLAgAEQ
gs6dO8+bN0/4UwMDg6Je8oKg3dvb29LScsOGDTt27IiLixO5W1FaQBAEQfz7
3yMDNjY2w4YNW7VqlfhLMTLCHkZ4IAptbW1kBPPnz0fuIPxpRkZGUe+tO3/+
/LRp0xQVFb28vDIzM4t6QQZpAUEQBJf3798jeD59+vSdO3cEb3NgjxKvX7++
FB8llooS/3Z84sSJPn36jB8/Hl0Q/hQdRDfRWbS/aNGi3bt3l0NdRIIgiIoP
InNTU9Phw4c7OTkJXkeYnZ198+ZNVmIIDjk8PLycrSojLUAH0c0RI0Zoamr6
+/ujcUhhKZlMEARRiXn48OHKlSsbNmy4Y8cO3kvKvLy8BgwYMHr0aD8/v3K2
qtS14PPnz8nJyQEBAUuXLq1Xr566unpaWtqzZ88iIyPj4+OlLT1KEARRxfhO
tCA3NxdpzpgxYzp27FijRg2mBUFBQfijBK8kIAiCqGIwLUCovHr16ujoaG5h
58p4jQiR/4IFCxYuXHj06FFuX0JCQvT09CATLVu2rF69Ovrl4+NjZ2c3c+ZM
1vEy6ghBEESlgGlBzZo1u3XrpqCgoMihMv52nJGRERgYuH//fnh4bl8gEMbG
xh4eHsrKynXr1u3QocPkyZO1tLSgd6GhoWV66yxBEETFJzMz09DQsIMoyvqe
UjEcPHiwd+/eBgYG8O0l+Drcu4qKCrcvyAjs7e0LCgpsbW179uzJNq5du/bW
rVulbjxBEESl4+3bt2FhYfaiKOtnzcSQkJBw5MgRuPSiniMQz6NHj86fP8/t
i4uLC3Tt69evaNnZ2ZltvHTpUrHFlwiCIAiCIAiCIAiCIAiCIAiCIAiCIAiC
IAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiC
IAiCKEXy8vJevnz57t27goICedtCEARByIegoKCtW7d6eXnl5OTI2xaCIAii
/PjKwdzc/JdfflmxYkVKSoq87SIIgiDKiVevXvn6+pr+x8SJE+vUqUNaQBAE
8V3x8OFDTU3Nxv8BIahWrRppAUEQxHdFdnb2sWPH1P9j4MCBP/30E2kBQRDE
d0V+fj7kIPU/Nm3ahOyAtIAgCOJ7hn47JgiCIEgLCIIgCNICgiAIgrSAIAiC
IC0gCIIgSAsIosrw/v37zMzMR48evXv3Tt62EJUM0gKCqDLcuHHD0tLS1NQ0
Pj5e3rYQlQzSAoKoLHz58uXt27c538KKDH/8+PHVq1ceHh5Dhgzp16+fi4sL
/ouN8jaZqDSQFhBEZSE7O/vkyZPa33L69Gm4/YSEhD179igoKLRu3bpFixYz
Z860sLCIjo6Wt8lEpYG0gCAqBV+/fr179+6SJUt+/I9q1ar98MMPq1evTk9P
d3d379WrF9sC8Efnzp2dnJzkbTVRaSAtIIiKz+PHj729vU1MTLZs2aJXyKZN
m4YPH16rVi2mBYmJidbW1nPnzm3Tpg3ygtmzZ+/atSsmJkbehhOVBtICgqj4
wKurqKgg8ndwcHhdSE5OzubNm+vXr8+04PPnz2/fvvXy8ho6dGj//v2PHj36
5s2bT58+ydtwotJAWkAQFZmMjIxz584hyEcigKTg2rVrbHt+fr6xsXGDBg2Y
FrCNFy9eHDly5KBBg06dOiU/k4lKCWmBgIKCgri4OEdHx7CwMIRY8jaHIP6f
4ODg+fPnT5o0ydXVNTMzUzAzSQuI0oW0QAAW1/79+7t06WJoaPjkyRN5m0NU
cV68eHH16tUTooiNjRU8LObr6ztq1KiBAwd6e3uzLR8/fkxISDh+/Pi2bdsW
LFhw+PDh7Ozshw8f+vn5WVtbQxoMDAzoDiJCQj5//pyUlOTh4aGsrFy/fv0x
Y8ZgFiH9xPyUt2nSgYjI399feDWdPn367t27UjX15csXLLdFixbp6ek5Ozuz
dkJCQrKyssrCcsjN5cuXuTafOXPm3r17SE9u3rzp5eUVHx//4cOHsjg0URG4
cePGhg0beovC1NRUEI0Ia8HLly937drVt29fBC3h4eEZGRmfPn1CRqCkpKSq
qgqNwCx6/fq1/HpGVCbevHkD59+nT58WLVpUr169SZMmiIe1tbVv3bolb9Ok
A7EQloDwaho9erSLi4tUTX39+vXp06eJiYlWVlYQR9bOmjVrEKSVheWhoaFL
lizh2jx27Nhjx45hXdvb2w8ePHjnzp3Pnz8vi0MT8iUnJycmJgbzEzH8eA7j
xo3r2LFjjRo1Vq1ahTif7cy0oFOnTlu2bPEv5OTJk3PmzMGyRSCH+OH27dt5
eXmYOT179uzfv7+lpWVkZCTNHEJC3r59i9Ry/LcYGxsjopC3aZKCcAjuFIqG
NJnbiyFDhrRs2fLXX3/FoihZy+fOnRO0qaamhoFiaxAZfWZmpuyWI+RDCobR
7tatW+PGjXv16sWONWvWLDMzs/Pnzy9cuPCnn37S0NAolcMRFY3o6GgtLS0V
FRVbW9vLHAIDAxEe1K1bV1gLGjZs2L1799GFDB06tE2bNtWqVWvXrt3w4cOx
BOD5mRYgqENQAYkJCwuTbx+JykJ+fn5KSsqVK1e4UxFJK/IFeZsmKWfPnp0/
fz7idnd3d24vEG5NmjRJFi149OgRfDVrzcHBYfHixWwNLlq0CAtTdsvZku/R
oweEoGvXrhAFdixokK6u7siRI9u3b4+oj7Sg6vHixYubN29iiiLYwHTCAuR+
+uXLFxMTE7h9rhaEh4erq6v3Lxrkj8hnkSAjTWBb/vnnn6CgIDl0jyDkAWKq
tm3bzps3LyEhgbs9PT0d3hXptpubm+xHgSggNWBLbOrUqfv27YsuBDk+HHVB
QYFUrT179iwxMdHGxmb69OmszaVLl4aEhLBPsaLXr1+PeK9FixZ9+/a1srIq
o58qCHmB1HLjxo0IYDB7IQQ8rRepBZgzmCFeRYP5//79e6TJiDHYFrT8+PFj
efSPIORAUVrw9u3b2NhYHx+f5ORk2Y8C/yxYic7Oztra2nMKmTt37vHjx6Wt
/XXx4sXly5dv2LDh8OHDrE3Eb4JfCZkW1KxZU1FRESk/VIN+O64yvH79Gu7d
0dFxwoQJiNsjIiLY9s+fPz9//vx+Iffu3UMYg4Rx69atlBJ+n8B9PXr06P73
BNZFbm6uLIMGbzl8+HDE1f7+/oiCysFtpqambtq0qWMhf//9t6Gh4Y0bNxC6
5+fnS9gC0oqWLVuqqKjgi8KfMi346aeftmzZgkivVG0n5AxEf1Mh1tbWvr6+
ggAAYf+RI0eW/QdOvZ2dHbJResLl+yQuLm7Hjh3Lvif09PRCQ0NlGbTbt28j
Mjc3N9fQ0NizZ4+0d5CWAIR2yBEOFeLg4GBkZLRixQpI0suXLyVsgbTguwVp
bLt27WbNmgVR4FacxtpXU1NrUkizZs1MTEwq0W92RKnj4+Mzfvz4Jt8T/fr1
c3V1lX3oTp06NWLEiBkzZly4cAG+ukwLsHCrxyOc2759e6tWrXR0dCS5Nou0
5cWLF3v37u3SpYu6ujqETHgf0oIqDNOCTp06qaqqcitO6+rqYiJZFGJlZYUA
iYoIfc8kJye7ublZfE8gtE5KSpJ96O7cuYMUG9GUvr4+om6R8XZpkZWV5eHh
IVjFW7du3blz56VLl4oN5CAigYGBsBBOHonM+fPns7OzhXcjLajCMC2oVq3a
j9/y999/Hz58WN7WEUSl5OvXrwUFBfhXsMXf33/06NHs2UzeR6VyLAZ0559/
/mFLmHlsCd8qi0hv27Zt9erVW7t2bVG/CeJAyC+gBXXq1DEyMiItqGIwLUBW
uGTJEn0OVFmaIEoGfOa1a9eQTfv6+goetEdihURj8+bNSLcPHjyYmJhYWodL
SUlByrajEFY9ni1hHAuhvoTpfLFagDTBx8cH7SPXMDQ0RK7x+fPn0uoCURFg
WjB79uzQ0NDXHKiyNEGUjC9fviCUatWqlaamZkZGBtuYn5+PED04OFhJSalv
376l8ksEAw5/8uTJjQrp3bs3FEewivPy8iRMQIrVgnv37qmrq3fs2BFdk6pl
orLAtKBfv34IJKD7vGmAMx4eHm5nZxcVFUXSQIghISHB2dnZVoiTJ0/ev39f
3tb9/4V0f39/rmEIziMiIj5+/Hjr1q2jR48GBASU1mNT0AKE6A0bNly5cqXg
eRwG1hHirr/++svR0VGWQ9y4cQNqwjqyc+fOjRs3rizEyMgIC7YEDYrRgqdP
n168eBHpxqBBg5o3b75nzx50MCYmxsHBISwsTMJrUETFh2kB5kCLFi1UVVV5
E+nFixeY1R06dLC0tKS7SQkx2NvbIyhtJ8SUKVMQY8jbun+vX7++atUqrmHt
27c3NzfPzc09duzYsGHD1qxZU1q/6paDFkAIBg8ezDoyd+7cM2fOpBXCrR4v
FWK0IDY2dtmyZS1btqxfvz7TAuy8d+/ezp07Q3qgFLJ0hKg4IBzC2f/f//73
888/9+jRw9DQ8DgHFxeXzZs3Kysrnzhxgh4wJIRhlaUxPYyNjRFLzOMwatQo
uA4IBD6Vo4VwVkFBQXDOCGvhzfr37y+wELMdThWOrlmzZkpKSnFxcRK2mZ6e
7ufnx9YIVpDgQhBDoAXjxo3bv38/d0Eh9NLU1Fy/fj2vzIuEFBQUIIvx9PQ0
NTX9559/WC/MzMxE3v8pFfn5+awatr6+PvI7rs0HDhyAwZMnT4Z6Nm7cGGcZ
6gkVWLBgAfasdCXEiaLIzs6+efMmptPff/+N2duxY0duiVrES/gI6f+TJ08w
w+VtLFHhePfuHdxd37592ZNZ8RxYWWO5a0FERIS6ujqmN/xYq1atENsILDQx
MRkyZEjr1q1r1aollRb4+/vDCbM1oqKicunSJe6nAi1o2rRp165duQsKSQEy
AvjznJycEvQFHvvQoUOI3DZs2ICDsl6kpKTInrMLqmFbWlpCxLk2KygoODk5
QSmmTZtWs2ZNJAjQ061bt0ZGRj569Ih+Qa5iBAcHI4OeIISioiKCEHlbR1Rc
cnNzEUlWr15dW1ubd0c6Qgh8hHmF2SUX2+DcwsPDHRwcli9fzubz4sWLL168
yD6F90OcwwRi+PDh8N6S/67B1gsU8JdffhkwYICXlxf3U0TvCKdnzZolvKA0
NDSuXr1a4h5BC9zd3WfMmGFjY1NGReHOnDmjrKzMtRlJAfQUqRBkgm2ZOnUq
8ilpKx0RlYJnz55FR0dfFgKRnuA9lQQhjBgtePnyJeQA80peL60ICgpSU1Nb
unQpQnE2nyENgidwBVoAz3bs2DFkx5I/WY8eoV87d+5E2CysBWj54cOHISEh
wgsqJiZGFh+OltPS0qBE9+7dKyNXjFAfasW1OTY2FmcWCeDt27fZFgxsamoq
XSggCEIAXIStre2gQYP09PSuXLkCF5GXlydVC6xeepQ03LlzR5IX5Hl4eCB0
HzduXGBgoPCnAi2AXsBsqWxm+Pn5jR49WlgLCIIgvjfy8/PhyU+dOmVsbDx/
/vwDBw5I+052xOo6OjqzpcHIyEiSZ7VICwiCIMqZQ4cOwSuuWbMmODgYciB5
duDr6wv3/qc0LFq0SPxVd2QNaWlphw8fnjRp0uLFi69duya8jyxa8ObNm/T0
9BMnTigoKMyZMweiINXXCYIgqirXr18/evSoqanp6tWrkR1I7l3htM+ePeso
DZAP8e/RgB5t2rQJ6QarxC6ySqcsWhAdHY3cZMOGDbt27YLx6IJUXycIgqgy
FBQUsPLI3Bplbm5uyA6UlZWvXLlS1vWZxWBnZ9ehQ4e5c+fGxsYKfwoVePfu
XVZWFpSrffv2Wlpa0t4gcfr06VGjRikqKsr4ggOCIIjKzsuXL729vQ0MDC5f
vix4qS6yA8TtJiYmenp6Bw8eLIe3t4hEvBZAvM6fP79x48atW7daWFgEBARI
8ks0F/TLxcXF09OT7rIjCOI75+HDhytXrmzYsOGOHTt4txd6eXkhOxg9erS8
LqSL0QLIFjICbW3tatWq6erqvnr1CmkC7C/dOtIEQRDfCZVRC5DLXLhwAbnM
8OHDBVoQHx9vY2Nz6tQpKq1DEAQhLZVRC1JTUzU0NBo0aFCrVi2BFjg5OXXv
3n3x4sWl+E4BgiCI7wSmBbVr154+fTri6gMczMzMNmzYsHfvXtlrppWMsLAw
Q0NDuPpdu3ZxDduzZw+SgiVLlvTu3RtaMH78eCsrKxMTk3Xr1jk6OvJKzBEE
QRDFwrTgxx9/bNy4cdtvUVVV9fX1ffbsmbxq2759+zYzM9PZ2XncuHFcwwYP
Hrx//37E/+rq6j/88AOSmtatW69duzYiIiI7O5ve0EEQBCEtcJ6HDx+eLwqE
3ykpKfI28P8rlOrr63MNQ/x/+fJlKIW7u7tgIzICeVVMIgiCqOwgin706FGC
KNLS0irCi9FfvXp17949rmG3b9/Oycn58uXL48ePBRszMjIoIyAIgiAIgiAI
giAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAI
giAIgiAIgiAIQhZycnLCwsLcC/H29pbX63sIgiAIOXLjxg0tLa2ehYwYMeLI
kSPytoggCIIob+7evWtsbDxs2LBWrVo1bdrUwsJC3hYRBEEQ5U1ubu7NmzeP
Hj06ZcoU0gKCIIjvmeTk5GXLlpEWEARBfM+QFhAEQXzP5OXlPX78OCgoaM2a
NQMHDnR0dJS3RQRBEER5k5qaeuDAgVWrVpmamh47duz69evytoggCIIob6Ki
oubMmfPnn38eOnSooKDg3bt3Wd+Sm5ubn58vbzMJgiCIMoSrBRACHx8frW9x
c3N7/PixvM0kCIIgyhCmBR07drS3t3/27Jm2tnaNb5k/f35cXNyXL1++fv0q
b2MJgiCIMoFpQZMmTWbOnGlsbLx169bN37Jly5bt27e7u7s/fPhQ3sYSBEEQ
ZQLTgh9//LF27dpt27bduXPnm29xc3MbNGgQlCIkJETexhIEQRClTHp6+pkz
Z7S1tXv16tWoUaNRo0bp6OgEBgbydjt+/Dh2mDBhwpUrV+RiJ0EQBFF2BAcH
z5s3r3nz5nXr1m3fvj0ygkePHuXm5vJ2Iy0gCAGPHz++dOmSv78/Fkupt4xI
LCAgoNRbZmRlZWHJnz9/PjU1lffR3bt3T506dawQ7IM9ZTxWfn5+UlISXEdc
XFxeXp6MrRFljZ+f3+jRo5s0aTJs2DBNTc2iXD1pAUEIuHr16tKlS1VUVC5f
vly6LYeGhv7zzz+qqqpBQUGl2zIjPj5+7dq1s2fP9vHx4X0ECRgzZgwrVox9
EhISZDzWhw8fDhw40K9fP0tLy5ycHBlbI8oapgXdunXbtWvXnTt3Xrx4IXI3
0gLi++Hdu3fXr1+/+C23bt2Cc0PcDiHYvn17jx49OnXqZGhoGBISUooxfHR0
tLa2tpaWVkRERGm1yXj+/DnaPHz48KpVq9TU1JDX8HY4c+aMsrIy+lW/fv1p
06ahmzIeEbmAq6srmtLT0/Py8kKOgIGVsU2i7GBaMGDAAJwsMbuRFhDfDxkZ
Gebm5iO+Zc+ePc+ePQsMDFyyZEn37t0bN27csGHDrl27Iju4cOFCaR0awRgC
ckTvpR5Ih4eHr1mzZuHChfb29jExMegLb4fMzEzso6+v365du1LRgi9fvqSl
pSHTMTMzmzx5Mv5NT0+XsU2i7CAtIAgBb9++vXfv3rlz59atWzeokIEDB7Zu
3bp69eqrV6+GK/P394fzR0YAIUD8/Ndff82dO1f4ekuFIjs7GzE5MoL58+ev
WLEiLCxMzM4uLi5dunQpgRa8efPm7t27OBAOx/sI3gNaoKGhcfbsWeyDQZa6
D0TZU6wWIH5AlGJraztnzhwskNjY2HK2kCDKDQgBMgJVVVVLS8vThXh7eysr
K9epU4dpwaNHjxAOGRoaduvWDUKgq6uLTKGCP3QTFBS0du1aJAXICBClP336
VMzOJdaCW7duGRsbw+EHBwfzPkpJSbl48SKGdNGiRaamppADqftAlD3FaoGv
r+/y5cs1NTURV1y7dk1Y9AmiCvDu3buMjAxkBIsXL0b+K1gO+fn5cHENGjRg
WsA2wrONHDkSWcOpU6fkZ7KkuLq6du3aderUqeIzgpcvX8JpHzx4cOzYserq
6nFxcRK2jzgfI4OhWLBgAY6C4F/kbs7OzsinZsyYER4eLnUfiLIEOV1aWhrS
N0VFRQUFBSS/vB1ycnKSk5P37NkzdOhQaMHt27flYichOR8/fnzy5MmDBw9e
vXolb1sqGdevX9+5cyfCWoSvyAUw89n270cLAgIC1q9fv2nTJhsbGyQ7z58/
l7D9hIQEExOTdevWWVlZIZOCoIjcjbSgwhIVFbV161YtLa3du3f7+Pjw8tyC
ggJsXLlypb6+PkIFpJlF3WJEVBwQ2drb22/YsEH4LpHvls+fP79+/fq5KBAO
ffnyhe2G/HfUqFEDBw6EELAtWAKIeKGt0IL27dvDSWZmZubl5WEhYJ8pU6ZM
mjRJkl+NP336hJBb+OhZWVlIRngFvtjOALLO3Y7dWPVg2AzDmBnc1vBf4Xv4
P3z4gETe0dFx8ODBCNojIyPF2Ll3797ff/9dVVX11q1bODrPZrSD1nhfYWZA
a/r37w9lPHbsmJidT5w48b///U9JSQmig8bR02KHjigfzpw5M3r06JkzZ8Ln
C0/Up0+fQuuxBLS1tcvosRfiX84aFz4FJVgvWMWQ7x49emBdC9qBQ4P3KAvj
379/j1XPtRn5CGxGLJ2bm4u8UtghlD8I5hGRaonCy8sLg8x2E9YCjNvZs2ex
G0ImRLyXL1+GH46Li0PioKenZ2pq6u7ufv/+/WINQEKNSFv46FhZOCjvFLOd
9+3bd+PGDe52DCkyd+gRMhFIW2xsrIWFBbc1JDXR0dG8Q4eGhhoZGW3evBmf
ImKHlomxk6sFN2/ehA3c9tEOWuN9BUc0NzdHqN+iRYuWLVvCmQh2Fs5B0CZO
xI4dO3R1ddFHus5Qcbh7966bmxumNCa2yJXClgAiTOHHkInSAq4ADoHdUs6j
BOsFnvnixYvwEoaGhoJ2IPpldOcGskXugcCBAwcwr+BzECsinL527VpZHFdC
oLNwoeHh4XPmzKn5LdWrV//hhx9WrVolSIeZFgwYMODkyZOfC3n8+PH69etr
1KiBBYLolxXpRejbs2fPCRMmYF2gcfEii0+xD2IttMwz4Mcff6xVqxZGT3DL
PdsZ6jNs2DDEzzhrgnZwaJxBrMe6desym11cXGAGt8Hu3bvD08JsrknW1tbw
0gsXLoQfLna4mBaoqKgkJSXh6DCD237btm3RGq99nGUcF4NZrRCMlWBnzASR
R0HLSFKGDx9eijfiEqUC8rVx48bVFKJ27doIJ0gFyg44FqxxxHhbtmypX78+
z1NhZWG9nD9/vgQtI4/T0NAQtAYXDbfG/FtpVR1HO2gN0WbTpk3h1gROYMyY
MRAjhItz585t166dra2t7McqMSkpKXBW27ZtwwgbcjAwMIBz/umnn4S1oFWr
VvPnz99eCMLXIUOGoHcjRozAWkC/cLKYFvz5559LlixxcnISf0sMYnt7e3th
AzQ1NZGA8LTg+vXrdnZ2cMUYN64WQAWQEUAIkMVjhAcNGoTIAYE3r02AjXv2
7OFeCCqBFvTq1Wvt2rXCNrP2zczMQkJCBBfWEhIScAglJSWMW5s2bebNm8f2
RDRS1LNypAUVFiS5mNKGQmAmBAYG8i5aEqXImzdv4H/gc7DMeYMPR4rFVWIt
gMvCFwWtof3t/4GgV/yFAknArLhy5YqJiQnCY0Sq8B5wqoJpAzeycuVKhIty
1wKE7pMnT0Z86+Hh8ZYD098GDRoIawFUGFFQ/ULq1asH34v0AU4bf8OBZ2Rk
MC3AbnXq1MH+586dE2MAjgvXPWPGDERcXAMePHiwZs0anhacOHECAoGjo3Gu
Fjx79mzTpk2wB/vDGJgEYxYvXhwTE8NtMy4uDvLUsWNHbkBeAi2ArOOczpo1
C6eY2z4cxbp163799VdTU1OBW0Ai8/79e3QTlsNmLy8vtjM6hVBB5FFICyos
kPgPHz68FcWnT5/ozTVlB2L1DRs2YHHBeb548YI78swtlFgLcNawWgWtWVlZ
wS0z/4agV/iqsrRAxWBzo0aNEFojf1FVVU1MTGTH8vPzmzp1KpwJXIoctSA5
ORljaG5urqOjY2lpCfO4n2LOQ8gaNmzI1YJbt27Bc64pGni8ly9fwgMjNmZb
MLC8lnkcPXq0R48e0CPeLfcYQG9vb7hWnF/B7wU4Lzt27MDowXtztQC5OXaG
vGJKYFTRIITAxcXlyZMn3DZh/6JFi+DMkRoINkqiBfDnUVFRBw8enDNnDsbk
77//VlZWRoYCweLuhhACySbOLLIDgRbcuXMH4ogBQaqC40qiOKQFBMEDiwvJ
OBYX/Cov/0pKStq1a5eEi6tYLl++rKury9wX/oBv3F/I8ePH7927J1VTcGJw
a/AwyDUEThIeT1DTEsEkkgUIHP5F7C38a2P5cPbs2YkTJyooKMDzIK7m/YQt
Ugvy8vKeP3+eUTQQAnwRYfDTp0/ZFuGWeRSlBWjn1atXjx49QoYiCLdYy0eO
HGExtkAL2M4pKSmIHJCMQAigGggeeIF3ibUAHd+9ezcSisaNGyMlgSJgwmRn
Z/PmpEgt8PT0RHKEAAOOHaMnya0CpAUEwUOMFmBNsdtySuU+HDhwHIu5L3gn
OMnWhYwfP/706dPS2qyvr9+pUydjY2N4UdYm/BJiS7YD04KuXbva2NggcC3/
agPICOBtoHcIpJEXwEOy7RiEiIiIo4W4ublhzOE5nZ2dy/TZyatXr0J8169f
v2/fPnboc+fO8eJtHsgU4Cd5vx3/W3hdDjZjtmDOiLzKV2ItwByDe69duzYy
gtmzZyNBENm+SC2AcnXu3Hn69OmS3yRQQbQA8xY57FGCKA1krPGOOBOZvqqq
KhaXq6trbGxsOdyBGRMTg5B+QSHq6uoWFhaQA8mzA/h/xNKIqBFXC35A5MK0
oHfv3kg6StVwSfHw8IDYrVixAl43NTVVIEbp6enoeI9CevXqtXnz5sjISPi3
Mr3LHfE8xhYnd+7cuezQcJs8J89DjlqAKYGMAE5S5LsGqpgWXLp0Cf3tQRCl
AVZlfHx8iWcju2sRznnLli19+vSBWy6H+h6vX7++f/9+UiE+Pj5qamrIDiT3
2xVfC2xtbdu1awdXs3///gsc3N3dN2zYMLmQqVOnQoXfv39fPibhFOvo6LBD
Kysrs/u0hV8lw5CjFqxbt473GwSXKqYFMFhTU3MyQZQGWBSyX8/HsnJzc5sx
Y4aenp6npydcdJleV3n27BlWAXOP8Ifr16+HA5GkzGZubm5CQsKJEyfg1hQU
FPCHyFvrK4gWNGvWrG/fvtyK07Nmzdq9e3dwISEhIXDFIrWsLHjx4kViYiI7
tJeXF8Z85syZyF9E7kxaUD4g7kIgF0wQpcGNGzcQZss4J+FRBTXep0yZgn/L
tOglDrRy5UrmHufOnYvgOTIyEulJsV9ENgFfhFVvaWl59erV9PR0kfeYVRAt
aNq0KRK3wRwUFRXF3/9ZPuDkIqUaN24cTnRERERGRgZPUiugFiCBwtn39fVF
GDBy5MjDhw8LfrauvFpAEBUBtrhiY2O51YPhPKEFCL2wWO7evfvmzZvSOhwW
eExMTHgh9vb28+bNY+4RLkK4IGFRICmYP3++mOdJEf1ev37d1dV18eLFcEqB
gYGlZb9UMC0YOnQosoDTHCpIZWlWxQLnWl9fH+nVsWPHeBfnK6AWQPfRprKy
sqmpKfT0zp07Av0iLSAIWWCLa8mSJdzHB1JSUhB6CWq8Y8WV1uHOnj2LNmcW
Aq1xcHBg7hExvOSVporVAkS52tra6urq2CEoKEj2J9pKBtOCyZMnnzp1ClE3
70eBL1++PH/+HFKblZVVRjWauOTm5qampmKQeWY8e/ZMS0uL96wZozy1ID8/
H5YkJSVBC7p3775jxw7evRCQCRiPgEFNTQ2JJIRe8BGkH/EMRnvs2LHINOPj
49FH7Iz+ii9WQFpAEAJu3LiB5dmyZct9+/bxPnJ2dkagNWPGDFkq+SCFxxq/
8x87d+4cOHBgp0LWrFkj/vGoohCjBa9fv37w4AH6An8yatQoPz8/xLqPHz+G
upV/6WymBe3bt0ewamVlxZNU9hwfVNjb27sc7tqCPsLbI0PhlaqoIFqAs4PE
ZOnSpdACR0fHyMhI3pgkJyfv3bt39erV5ubmGDfBDbr/FtauQR7BqsxdunQJ
Cnvv3j0cevPmzeJLUpMWEISAstYCxGxubm7//AeWp729vVMhly9fLtl9sGK0
IDQ0dNOmTaNHj27atCnTAiQ+Bw8e3LhxY/m/EfXIkSP9+vVr1KhRjRo1Ro4c
CZ//jAN8so6ODtwjMq9SvApXFEcLnzUbM2YMsjCuGXCqGJxWrVrBxwpSBgho
Tk4OvjJo0KD+/fujI6zQK/IXmIocB5bXqVMHrhtqDv0VPNMB6YdXx1mYO3fu
b7/9tn37dlac9uvXr4cOHYIB+AqmE/bhPZ729OlTzI02bdpAC3DKngmBRFVR
UREZgaenJ69rcPvNmzfHEcPCwtjOFy9eVFBQwM5FvRULfUGPjh8/Pm7cOMxw
KqteqWHF1bmzBY6l3O7NK1PYSuR2Df8VeaN1sWANYiViPbJ2kDILli2DaQGW
ErJy3upzcHCAK0CAV7JKETgQvAR8BWK23/5jy5Ytst+tCpvV1dV79eqFUJNn
M9w+fFfjxo1r1qw5ZMgQBJDBwcHoAnwyHJqMx5UW9B0hLpNaKBdcGbeMKjww
omv4satXr5ZD/XymBUhS4DOFzUDIDRct8M+sDPXMmTNhOdQK3hJKgWkAIUAs
raGhgWQBAodTsGLFCsTzgh+bUlNTDx8+jAHv0qVLvXr1oIBQDSgyWo6Pj0cY
YGxsjC0YFt6NrJilQUFByJ6gBSIrFSPsxxR1cXERrpfLtABHxHGL3ZnBClzr
6+ubmZl5eHgUdVctUSlAWIWwkDtbkORiOsnbrlJAZEH4mJiYEjSFNYiViNXH
2nF3d4fD5O7AtKB+/fqIonmrj5Wax9qX5N4eYfAt+B9tbW0Eh7v+A55Zdr2G
6COp51XD5tq8ePFiRJitW7eePXs20gQTExM4n5Jdj5IduJoBAwbUEuL333/f
vXt3uZmBU9+3b19hM5ARQAh4O8O99+nTh7sbdASuFZMH2sFrAaMtuOwTHh6O
Med+2rBhQ2iN4IKP+PeaYTfMFnxF2E7ISlFXcpDS4lxzd8ZkRmogZjQq73vN
kJphURdboryyw6qm88qSi9wN++Bcjx07ljsBEMBYWloixCq3u7XFAzM+/Qf6
JUltPVZ+GYsOERdvJSKsZXWepbIBiwsrEYuLlZ5G4MS90Ppv4Us9sJaFlx5A
Oi/Lr8bXr19XVVXt0KFDGRWFS09PX7t2Lc9mhKn3798/ffo0Ale2BX64qPvn
yweMA4IW4eq7iEilfaW7LCQlJdnY2AibgfBY+BogdHP//v3c3ZCCIbBH9I51
x2vBy8tLEGDgpCAA4BWXvnz5siDjEK8F2O3KlSv4irCdhw4dKqooN/w5AgDu
zpB+8Q+wV14twJJE5oVhLOr1nVUDVuMdPRXvguC+HBwciqpqjiAQ00nuL62D
0w4NDcVCY/WZ4Z0kuTYeFRWFIE1MQXjsIJUZWFxYifju+PHjEfwLawFWMday
8NID3t7estS1ePr0qaenJ9RZ/NsMS8yrV6/OnTvHsxnjnJOTgz7a2dmxLfDD
8MZlYYCEIAyAIr8TAvlRUbWU5W6G8M74L4tnsLJ4LXz8+FEQvGHa5+Xl8Xbg
LsZi33cs3D4DzRYVCMF+9ELCnRmVVwuQpw8fPnzy5MnyulO6fEDv0Ef0VHyZ
FHiYwYMHYzr5+/tzJwBiEm1t7UaNGsH1lX8hMh6Y0gj8fv3113qFIMbmOWGR
IIT+888/EajHxsZyu4aQDBv/+OOPou6iFG8JWkDg1Lx5c2EtwCrGWha5+rhr
vASwlsvO44nxS1xXxpxYWRhAlAAEM4jWNm3aZGFhgWAjLS2tnA1ISEhAtAkb
tLS07O3tK9EvBVi57OWPGzdu3LdvX9V+Lyd6hz6ip+gvel2U84SfhJtFwpuc
nMzdjiAW361Ro4a+vn453JghHoQlyKYx3yBt0AIVFRXeS2NFEhwcbGBgILIg
vKqq6u+//y58aVdCkFPg68JaQBDlCWIDpKInTpyYMmXKrFmzyj+4PXToUK9e
vdTU1K5evYoUUu4XECTH3d192LBh8CSIgeHrSnYzSWUBvUMf0VP0F71G30Xu
xqaTcFXzCqUFiFpzc3MzMzO3b9+OgFxCLUA6AxUQWRCetICoMiDP3bZt25o1
a3bv3n3+/PlyCM6RGyYlJcGlICP4559/7OzsSnZHhFxAkOzp6YkAePny5fAA
VfuXAi7oKfqLXqPvGAHJU6EKpQUCkOm0bNlSQi0oihJrAdITLIHjx49jCSxZ
sgRLQF4P4RKEACzPBw8eYHWzh9DLoTrThw8fbGxs+vTpo6OjExYW9ujRo0r0
zlxnZ2fExmvXrg0ICEhPTy+HJxMrCOgp+oteo+8YAYyDhF8kLRAGE/7AgQN9
+/bV1tYODQ2tXEuAqNrcvHnTyMhIXV29HB71ysvLc3Nzmz59uoODQ/k/gS4j
FhYWTZs2XbZsGe+q+HcCeo2+YwQwDsXu/O7du+vXr3t5eUEFpk2b5uLiIot0
QlMiIiKuXbvGuxVfKgoKCu7fv+/n54fsRlFR0dLSsmTlyNhrbY8ePaqpqblg
wQLxv6oL8+nTJ3x3xowZ9vb2L168KIEBBFFGvH79GnIQGxsry0KTECTIWIDI
CFJSUirRbwQM0gLJtSAjI8Pc3HzSpEmmpqaIftPS0mR5xCAyMhIpCcIVWd6Q
+/nz5yNHjowfPx45qY+Pz507d959W+xFQqBxurq6c+bMsba2hkJJe4UHklR5
lwBBfM/AiaWnp2PV79ixY+zYsXBucHTF7hwuxK1btypCKgQbYAnXsOjoaPar
DdxaVFTUgwcPRF61QK/Rd4wAxgEdRDdFuve3b9/evXv37Nmz69atgxYcO3ZM
dpsvXrw4YsSIQYMGSfsGXi5wvNu2batXrx6r35WdnZ2YmMgdh4SEBPF37yMj
uHHjhru7+9KlS+fPny/+OUqCIKoY79+/d3NzmzVrloGBgYeHBzyGmHgSO7u6
us6cOXOGEIaGhvhueVouEtgAS7iGqaionDp16uvXr15eXnBxtra2z58/F/4i
eo3vYgQwDhgNjInI2gVIH8zMzBYuXIj0wdfX9/79+7LbXBZaEBwcjD+447B6
9Wrx1dJiYmKQESxfvnz//v3s3a8lNoYgiEpHbm6uvr5+9erVtbW1xVTx+vz5
89OnT+Pi4uAqO3fu3IlDy5Yta9euPWbMGMlfDlIWoCNpaWmOjo5wqrAHVjHz
+vfvj4AfyYKmpmaDBg3U1dXFPG+CEcA4YDQwJrxS5OzhsnPnzi1evHjixIlQ
ltIqCF+6WgDtgxDY2dmNHz+ee5qQ8kAHIV7Cl/Ffv36dmprKQgLIJSQDqdOT
J0+wM5KFEptEEEQlQkItwEdHjhxZunQpHI7ztyDgbN++vdy1ICoqauvWrePG
jfv9999hD6xi5h06dAiZwqJFi1jxqxJrwY0bN8zNzRFsW1paent7I0F48+YN
KwgPXZDlQYzS1QIo9dy5c3V0dGxsbLin6cCBA5s2bVq3bp3wabp27RokXktL
a+/evRcuXEBG8PjxYwcHB+wcEBBQYpMIgqhESKgF8J/woo0aNUKMzYuBfXx8
JkyYoKCgIK+inR8+fIDlLi4uI0eOZJWKYY/gneY5OTno2g8//AA/2axZM/wt
5uqHSC1gJZ3h9ocMGdK7d28nJydBJfaVK1fKfk+pjFrAarw/evQI/r9uIU2b
Nl21ahWvyNLt27chiM2bN+e+7+P9+/dIaqAaSBwgo8h6WNdCQ0MVFRVledaM
IIjKhexagAjZ3d0dsbG83qkaHh5ubGyMyHbnzp27C4E9gruhmBZUq1YNmQuM
v3Tpkpj30InUgvj4eOQCs2bNat26NXzp1KlTNQtRU1Pr27ev3LUAh8YXNTQ0
Bg8eXLNmzWHDhiE/8vX1Rce5u4nUAvh8IyOjiRMnNmnShJWaZ11TVVVFfkFa
QBDfDxJqAfz86tWrEXDCnRZblE8krPLzJ2mQsPCynZ0d/JiSklJcXJzwp0wL
fvzxRz09vdevX4tvSqQWeHh49O/fX2SZZYA4fMuWLcVqATrCrSnNBdE4HPiA
AQM8PT1F7oAvihkHhPHw3kh8YDbsWb9+vcin3UVqATKCdu3aFdW1Nm3a7N+/
X3y/CIKoGkioBaxgL5wewsht27YFBgZK+3QVHDUcyzZpQK7Bq5kmkrLWguvX
r9va2ooss8xqOyPXKPbp2nfv3gUEBIjs5sKFC+GQW7VqNX/+fJE7IHEQk8sw
LYDNw4cP19XVvXDhgsidRWpBREQEUp6iumZhYYEdxPeLIIiqgYRagLiU3VsC
j9qgQQMDAwNpnyp1cnLq1q1bPWmAk4yPjy+25bLWgqIqsXPrpRebv2RlZcEA
kd2sXbs2jggL8YfIHbS0tMQ888W0AGE8hOD58+dFGSNSC4QrsXMp54r3BEHI
EQm1gAGXiOxAQ0MDCcLevXsvX75crHcVcO3aNYTQa6UB8iH+LvfY2Fj2SlM4
w6J2ll0LSoU3b96cOnVKZDenT5/esmVLeOkpU6aI3OHkyZNinuMTaAEieTHP
hojUAoIgCIZUWlBQUMAKI5uZmXXp0gVfkfzdEHBT8FqZ0iBcS5kLol8bG5vO
nTuvWbMmOjq6qJ0riBZg6HB0kd10c3MbNGhQnz59Dh8+LHIHCIGYH2hICwiC
kJ1itQA+NjQ09PTp09w6RefPn1dXV9fV1UVYHhISwrtlpXyAFkCSGjdurKam
JrIgOULxiIgI5AtwkgsXLvTw8Cj2NehlpwVikPE+omK1ICsrKygoyM7OTkdH
Z/Xq1X5+fjKbTBBEVaNYLbhz587GjRvHjx/PfaM39kScaW1tPWbMGDgiWcoj
l5hitSA9PX3r1q3wsaamprAQPrPY25+qpBYkJCQgdZowYcKBAwdwNuUi3ARB
VHCK1YL4+HglJaV27dodPHiQ95GDg0PHjh0VFBSio6PLxdhvEKMFr169iouL
O3ToEBxgkyZNdu7ciZ1TUlL8/f0hCmLugKpcWvD27dvExERPT089Pb0ZM2a4
ubnxHn9+/vx5eHi4o6Mj0oHyKdtOEEQlpUpqAaLfzZs39+vXr3nz5kwLCgoK
4ConTpxoZWX19OnTotqsXFqAxGfHjh2TJk3COFy9evXhw4e8xAdCABVYsGAB
zlT5lG0nCKKS8u7dOzs7u6FDhyK2DAgIQPDMiy2ZFvz+++9wkte+Zffu3dOm
TYPblPy9kKUItMDV1XX8+PFaWlo+Pj5cw06cOAGB6NOnz2+//daoUaNVq1bB
VRobG48ePdrCwkLkMwvoNfqOEcA4YDQwJiWr/18CSqwFcP4mJiYYAXNz82ui
QEYAIVixYkVYWFgZGU8QRNUgPz8fnvzcuXPwKoqKivv37+c9tcq0oG7duj16
9Jj+LVAHBNsxMTHyenPB/fv34UgR9sPjcQ1bsmSJtbU1q9VZq1atLl26YKOh
oaGnp2dSUpLIX5DRa/QdI4BxwGhgTDAy5dMLWa4R4exA+CDH00WBpAAZAYRA
TCpEEATBpaj3msErIvDuLAp41/T0dHkZLMDDw2Ps2LFcw+DS/f39YRssZFsg
B8hixFSKkOq9ZqVLaGioqqrqvHnzSnY9Pycnx8zMTOQJUldXj42NLXWDCYKo
whSlBS9evAgODj4iivDw8Irwzvd79+55eXlxDTt//vzDhw9hGyxkW1xcXOLi
4sS8dVGOWpCZmenn53fhwoWSCeuHDx+io6NFniCIC/1GQBCEVBw4cADB88qV
K6Oiol69evX9FB9AT9Ff9Bp9xwhgHORtEUEQhNyIjY21s7MzNjbeuHGjk5NT
Rbj4Uz6gp+gveo2+YwToogpBEAS8YteuXRUVFa9du4aAWZZXN1Z8WBlt9BT9
Ra/Rd3lbRBAEUSGIi4uztrbeunWrkZGRi4tLSkqKvC0qQ9A79BE9RX/Ra5Fl
TgmCIL5DWH1mDw+PoUOHTpo0KTAwUN4WlSHoHfqInqK/6HW53URKEARRKUhM
TLSystq/fz/vnblVDPQOfURP0V9520IQBFHhQJCclZWVnZ1d7Ou6KjXoHfqI
nkr7jjaCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiC
IAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIOTO58+f
b9++7SOKyMjI7OxseRv4b1ZWVnh4ONewgICABw8efP36NTk52dfX98aNG/Qy
NYIgCFnIzc21tbUdKgpNTc3Y2Fh5G/gvJGnt2rVcw6ZNm3b8+PH8/PwjR46M
Gzdu165dz58/l7eZBEEQlZK8vLyUlJTAwEADA4Mh3/L333/Xq1dv/Pjxly5d
kqOFyAgSEhLg6nv37t2gQYNOnTox8yZMmGBqahocHLx8+fI6deqsXr06IyND
jnYSBEFUXp4+fWpjY6OgoGBsbHzuW3R0dP744w+5a0FISAgygoEDBzZp0uSv
v/7S19dn5nl4eODvKVOmQB1q1KhBWkAQBFFikBSsWLHil19+MTc3533k6+s7
Z86cZcuWRUREyMW2ly9fJicnOzg4TJo0qUsh8+bNEwjT8+fPtbS0qlWr1rRp
U8gBtAy6Jhc7CYIgKjtitCAtLe38+fOBgYFPnjyRi21w++vXr9fW1j5w4IBL
IRcuXEhPT2efMi2oXr369OnToReRkZHv3r2Ti50EIQsfP37MycnJzs7Oy8uT
ty2lBhbjs2fPXr16lZ+fz92O/2Ljk0IQvL19+/br168yHuvTp08vXrzIysqi
u0dkAQ4fzvbvv/82MzPD2Xnz5k1BQYFULbx//x5u+Yk0YDJ8/vy52JYhAW3a
tJk/f35iYqLwp0wLatasuXnzZswoqWwmiIrD7du39+/fv3v37qSkJHnbUmoE
BwcbGhq6ubnxsnUsf2xcV8jGjRt9fX15YlECENDa2dkhmq0Id7lUXl6/fo3w
G/Nwy5YtODvnzp2TVluvXr26bdu2ddJw5MiRzMzMYlsmLSCqAIh7EfnkfQu2
YPuXL1+QFJw9e3b48OEDBgzw8PDAf7FR3ibLBHw7Orhnz562bdsuXboUSsf9
9NatW0uWLPnpp5+Q0detW9fIyAhdlvGIYWFhM2bM6NOnj6uraxUYQPny8uVL
AwODOnXq6OrqIrNjE1XC7x46dAhpRW1pWLhwofgQiE0nGxubjh07qqqqXr9+
XXgf0gKiUpCTk3PmzBmjb7lw4QLCMEzsgwcPLliwoF27dq1atVJSUkKCEB8f
L2+TSw5cR1BQkLGxMevmqVOnsrKyuDtg2WIjVu7AgQNLSwsePnx49OhRdsRd
u3ZFRUXJ2OD3DHKBwMBAwUT18fGBOkj43ZiYGMQARtLg6ekp5nfegoKC0NBQ
U1NTtrOXlxfkSXg30gKiUpCcnLxixQpeOITsOCMj48SJE/37969Vq9aPhWAy
9+jRA1mzvE0uOfAkEILGjRuvX78eLlo4qmRZ0oMHD1atWlVaWgCP8enTp7i4
OASZf/zxB+RVxga/Z3CCEIrjPJqZmf3222+rV69OS0uT8Lssz82TBkwGMb9K
wBJzc/Nff/0VZty/f7+oJIW0gKjgIOA5f/68paUlpii7Orp27drBgwfD+WNu
p6enx8bG7ty5c8aMGUgKmjdvPnXqVBMTk8jISHkbXhLevXsXHBzMwkIIgbe3
d25ublE7Z2ZmamholEwLkDc5ODgEBATw4tUnT564urrCJ2zfvv3AgQPIDuhi
kYQg2Eai6uzsfOPGDbYFLhfZga6uLqaulZXVxYsX5fIkL7QAK6JBgwaIHAR3
DXF59eoV7EQyuGXLFk1NTSw32UMLgih1EKkuXbp04MCBdnZ27K4J5AKbNm2q
X78+0wJEX9nZ2UePHv3f//7Xp0+fw4cPZ2VlvX//Xt6GlwT4E0NDw3bt2sG9
IyOAEIiJ92TRAnt7e2RPEFYEitzt7A6lxMREfITsAKokyQ0qBMCgLV++fNCg
QW5uboKNCLBxTvfv39+3b181NTWRF+rLmmK1AAkmJKBr164WFhbs3ifZb0sj
iFLk8ePH/v7+WEcbNmzQ0dEJCQlh2zG3jY2NMbeZFrCNCLpGjhyJlXjq1Cn5
mSwr6DKccJ06deDexdwcC3cdFhaGwN7AwGDZsmWnT5+W8D4i7JaQkABnhQHE
F9GCyHvdHz16tGbNmnr16iE7+PTpU8n78z0RExOjqKgIAYXO8j5CGNO+fXsl
JSUENuVvmBgtQBAVFBSEtHr48OHNmjVD8oLYA4Ll7u5OzxeUOsjBsWy9vLzu
3Lkjb1sqGRi3xYsXz5gxw8nJCeErHCDbTlqQnJyMzGjo0KGWlpaYV8iDJAzk
kENBW3v27KmtrR0eHo7DiUwoSAtKQGXUgqSkpLVr13bs2LFx48ZMC7AzrO3X
rx89d1zq3Lt3DzHt6NGjjx07Jm9bKgrw6lg450SBmERwP7avr++oUaMGDhzo
7e3NtsAv3bp16+zZs9u2bZs9e/bBgwfhBjMzM4ODgw8cOLBixYqNGzfCxUlo
BmQ6Ojqae/Tz58/fvXtXzBVypPyIq3k237hxQ4zfxkc3b94U2dmoqKgXL16w
3ZCYx8fHnzhxQk9Pb86cOQjMxDhhHHHhwoUtW7a0traGtbAZlnNbRr94PwTA
DHzL09Nz3rx5NWrUgMK6uroWtTPCRTiEWbNmYZzPnDkD++kCcrEwLWjevDlC
FN6JRuCtrKyMf1NSUsrfMMwQDw+PuXPnIn7AvOIa5ujoCC3AKmvdunWjRo2W
LFmC042TjlOPxVURamvLF5GLi3Ht2jWRt2OJIS0tDWqLBWhmZiZop+wWFyab
n58f12b4RjjM169fIya5dOmS5PczlB23b9/W19cfIgqMlSAaEdYCiAjC2mHD
hhkaGl6+fPnBgwcYxoCAgEWLFmEaw7khzsnJyZHQDPhGXV1d7tFHjBhx6NAh
MY4do4cQi2fz7t27efd8coE98NgiO4vgXHBbeGpqKiKxSZMmwWPglCF+E/NL
AVcLYC1WNHIibstY9bxL07AQdiJvwqqvVq1aixYt+vfvL9hZ8HMnAzKEsb1y
5cqWLVuGDx++b98+yW+J/G5hWlC7dm2kBrwTraWlhZUIryKX+3OQMyLRi4iI
QBY5ZcoUrmHwS8hijh8/ju01a9Zs164dW1w49Wxxlb+1FQosLjgE3uJiIMmC
HEjV2rt375AaXLhwAQtf0E7ZLS7o/uTJk7k2Q/cjIyNhA9Y1Ak75XkJBr+Gj
MPfU1NS4tdNhZ9u2batXr44RfvjwIduZaUGXLl127NgRVoiPjw9mL3aD8/f3
94fwYboi4erZsye8HEY1MTFREi1gZuCLSCW4ZkALMEoCleF+JTc3FxIGVVq3
bh2vIj3OLM4vRpj3gzX+i40XL15k13O4/PXXX3Xr1p06dSo6xXZGeKCqqgoX
vXfv3mLtZ1rw66+/whgs261bt8JybvvLly8/evQohEaQd0AL9uzZM3jwYIEW
DBgwgO0MQeRpAQNTF26hVq1acGVUyr5Y7ty5g+ES+c4C9pusvA38F2sfHoBr
GOZ/SEhIRkaGqakp2wK/5+DgQHVIuOEQb3F17ty5YcOGiJGQL5SgZSwlRGWC
1rD6EL0z/wYP8+bNGxktRy4DF3r16lXkp8j1fvvtt759+7JjwcM4FTJmzBjo
vq2trYzHkgXkJnp6eojh4be571Q6e/YsnBvco7AWNG7cGH2ZWsi4ceM6dOgA
V/bnn39OnDiRXSNiWtCsWTM4ug0bNkhyjQghHE7B0qVLkWXwzECCPHPmTDs7
O16CjNOEuF1FRQWZC+9NVcj4lJSUdu3aJbCcgdgeJx25ORYa7yvwrm3atJFR
CxCCdu3aFdYaGRkhtee2b2Njg97p6OhER0ezr7BrRF5eXoJrRG5ubmxnjIbI
yIS0QCqQesfGxop8lxkCj4pwYxvm56VLl7iGYfohDceJRhDFtiCqQf4ie0mT
yg5CSjgBkYtr8+bNkIMSawF0FitR0BoCXaSTzL+ZmJhg8GW0HDPN1dV1+vTp
MBKLFz4TqR87Fv5QV1dH6gc/I0ctwEpBGA+/Dd8IdxQYGMj9FFqGcYDacrUA
E/Wff/7pWjRwzgi3cEZmz57NtsyfP198cXhmBtyggoKCsrIyUgDupwgGtm/f
Xq9ePSRTSKvZRih1WloaYiokI9OmTTt9+jSvTXQKmoVBhnjB/wtW/a1bt/CV
33//HQE57yvnzp3DyUJnBT8mSqgFaByHwOSEJUjqmzdvDqHEOeX9uABR+9//
/oeTLpiunz9/xljhcIhzIJ3m5ubFJlCkBcR3S2ZmJpwAolMEh7xLBEgWFixY
gNUquLNRFo4cOYJ1ytzX4sWL4V5uFgI3BWclVVNsjSO0g1p1796dtYklLPCo
sHzChAmIIVu1agWNOHHihOz2l4CIiAhYuH79emtr64sXL/LuZxCpBY8fPw4I
CHAtmqioKPir1NRUSB7bAm8s/gUc165d09fX19TUhBnCO4vUgoSEBNi2Zs0a
RP7wscI//0HKEW/v3Llz5cqV2Eeg7GK0AOkn5ACnRuBjJdSCe/fu4RAQAuRH
P//8M7IDd3f3pKQk3u/dwlqAyB/jg8mGOMfFxQUTptiCrqQFxHeLGC2A04Dr
8Pf3l6QeYLHcvn375MmTzH1ZWVnBzywsBG5K8ttgGNnZ2VAWrHHYjDXO2kQj
gutOTAvatm27evVqBLdwJrLbLxWs8LKzszOCZ8Ttgh9c2GNNjwuB40WQ/+ef
f+rp6QmccFlw9OjRHj16TJ48OTg4WPhTCCv8dseOHQ0MDAQXeOFOkQ/CtSIa
F9Myhr1bt25I9EJDQ9kWDPW6detwOJzix/8BrRd5n5KEWoBcCYeoUaNG48aN
2YN1IncT1gI2tyFzmCcS3iZazloAbcJkfkwQpcGLFy9kuR366dOncAKIuLBe
0tLSsGylrT1eAhAkY3W3KGTEiBFOTk7wnJI/5YEoGrE0ImrEriKdDNOC3r17
Hz9+vFQNlxS4L8SikDkLCwu4U4Grz8rKQkyr8R9bt26FHw4KCpL91xMxiNcC
DCByDVtbW3wquOWjxFqA2Yi8Zvfu3fCogm4igxCZ+kmlBcg1EDlACEQWH/63
cmoB+oKUR4MgSgN7e3tk3yWejVj+cAJYjPBLiOgQRYupBlNapKSkeHh4WBdi
aWkJn4mjC/xJsVR8LYBrbdeunaKiYkRExAcO8H7sLdugfv366HU5jLZ4LRBJ
ibWAgQBDW1u7zn9gXqWmpsIb88IMqbQAB8LhxOxWGbUAw4txrkMQpcGcOXOk
vedTmPfv32/fvh05OJYAPC0WTplW52BlCZl7jI6OVlFR+euvv+zs7Ir9Iiss
ee/evdWrVzdr1mznzp0VWQu6du26YsWKLRzg/AVFdzHgly9fLof7mctfCxBg
+Pn5cSsMo+Pe3t4870pacPv2bUdHR6lqNRNEUbi7u4ssviQVrHo8wmyjwmV7
+vRpMU8SyQ6WwKFDh7jucc+ePYJbAcWAgNPT05N9xczMDC5IpGZVEC2oXr06
vAq34nSXLl3Yg12M8rmNrfy1gPcWHrh6jMaSJUtu3brF3Y20AJEMDJOqVjNB
FIVw6l0y2GuAdu3a1aZNm+XLl5dpKSH2Qi7mHvv16+fm5ibhW6WSkpLgPf78
808bG5u8on1pBdECJDvKysrrOUBtIyIiytmY8tcCHiEhIRB9AwMDCwsLnPrH
jx+z7aWlBQgtXFxcTE1NN23atG/fPoHiVHwtIIiKQE5ODhJ5hKkJCQmCjext
s5s3b8ayPXfuXCk+ORgXF2dvb7+nkB07dujo6DD3iANJXr0Kps6fP79t27YH
DhwQucP9+/fh/5Ey6OrqWlpayutVX0wLZsyYERAQwH1ht1wqS8tdC+Bg4Vcd
HR2HDBmycOFCwevDSksLTp48CWuVlJQwnzGrBZfdSAsIQhIQ+a9ZswbBM/cm
PXYzJJw2/MDixYtjYmJK63Bos3v37r8XgmjZ39+fucfs7GzJn/4uVgsuXLgw
adKkadOmeXt7S9Vy6cK0YODAgdu3bw8MDOQVP4SzwsAilIVUlUOp/PDwcMTk
cG5wuRgf3hVFJJXItqAXcNECnUpMTIRea2hoWFlZnT59Wvj5AkweeGBzc/NV
q1bt3r1bcNcuqyyNj3hvK/63UDi6du0q1XPHGRkZFy9etLa2hvH6+vrCv4vh
KB4eHjBj5cqViDEELyaAGZAnTDl0HEkuFA0pJPIF7Hz16lUxz7OQFhDfIYJi
X0ireR85Ozt37twZYa0sv0pjWUVGRh75D1Y9flEhWN0lq14oRguSk5NPnTqF
OLBDhw6jRo1CiPjixYuQkBAvLy/Zn3GWFqYFDRs2hDHwRbwX6b58+RLZEAJd
+MByqNwF1/fgwQN4ewUFBeGHlCFGBw8e7Nu3r4mJiaAIIawSPHcM7y383DFa
GzlypLq6OsaZ+9wxTquent6IESOEY/gSaEFQUNCCBQtmz56N74p8JhHbkRFA
CJB/QTgEZmAyIPEcOnQotExQ4BriO2zYMGhKampqUWNFWkB8h5S1FiAYhnvp
8h9YmwhQbxWCZVuyiF2MFsDnIyNo1apVnTp1mBYgaNywYcPYsWPL/1cDRLMQ
PjjYRo0aIfPCOJzlgOgU8erMmTPd3NzK7ZJRbGwsvDSswunmGgM/z6phI4rm
lWiAF4XlcNfwqGe/xczMbN68ecgIePWI2HPHP//8Mw7E+8quXbvQFBIlwfV8
iAiCebRjamrKSmfzfvmKjo7etGkTxNTGxuasKPBFJSUlNMJ7mBpzW0VFpUmT
JitWrBDsjEwHO0N3RD7Zhwl5/fp1pJNbtmzBqUGyLO3j8ET5A72Gj+JOCSx8
uVTJLnUwSxELcbt25coV8RUGikJQhpq1Ex8fz3ugiWkBb70wsPaxbOEHSvYL
cm5ublxcnLu7u66u7vT/KJXFhYjO0tJSWVnZ3NycZzO2Y/n379+/cePG3bt3
NzIycnJyWr9+PZwSPLOMx5UW6CB8L3zsX3/9BXuQAnDLqI4bNw5ODHMYjrTc
Xq2LZARnHCcFp5trDOJqeD9WsJd3UR0TBnqK7EBDQ0O49DRGFeE3T8uYFiCu
bt++Pe8rSNngadGg4JEKfBctoB32tgvMEJ4ByOzgn5GD4CQKV9Blpad9fX3R
CC+0YFoAM5CXcXeGoxDemQGvArVCFIGzhnQSM43edFnxiYyMxLziTokpU6Zg
ksvbrlIAcxVzmNs15MiY7SVo6uPHj46OjpjbrB1jY2NeGX+mBbz1wsDahwco
cTVR6DJc8eTJky0sLK7+R6ksLlYNGwK3ceNGns1w+2fOnEHsh4wG0TgyEUVF
RaQP8MnyelfRpUuXlixZMkyIqVOnyusGp5s3byI74BqDGYJ5kld0oR4IFkaV
1wWE4iLvOsYcE96ZgRko8uLM4+Lea5aUlASxENkmchxBhWouOBASEAl3ZlT8
95plZ2cjL4Y4Vu0XK7Di6uip+NfKYPohvkX8gNiDe5YnTpyIQCssLAxTsdwC
raL4+vUrkl9EfaGFIDiX5DoAVkRUVBSmq4KCArdrc+bMsba2hvwJ7sSTEGgB
BmrMmDFw9XD4GDHe3d3sTSIilxiWMy/3lwpoARYULBe8kKV0gW9HCMezGZkC
ljMiOsS9bAv8sPgCnmUNThkmgHA5X39/f1keFZcFLLSYmBiuMaxgr/j3mgmq
+woo6r1m7CVoIosYY7vI0KJYLYADj46OFtlmUS9IYm9M4+2M+S/myb6KrwVw
KZqamvr6+nJ5a2S5gd6xUoriL1BjpSMjUFdXF1QnZnh6ehoYGEyfPt3V1VXu
ryTIz89H1AdPyOozW1lZSeJXz507B3eNEXBxceF2DT3S0tJCAH/27FmpzMDq
Zm8VWb58+S+//CKsBVgvRS1brH1ZftPMzc3FSiy7F4rxqmEzED0ia4BMsPe/
APhhaQWUKH+eP39uZmbWp08faAGmzZMnT8q5kjwEiEURWGj9+/e3s7OraFeH
oOBYywjtZsyYgQgHWba8LSpD0Dv0ET1Ff9HropIgeDb4WAR+vBszkC9s3Lix
Ro0aEJQyLfMlCezGDEyq33//vWbNmioqKiLfoMTj6NGjo0ePRv4uuC+OAQeu
qqqKpiR534dIkM7j68JaQBAVAVaH5MiRI9ACzFI3N7dXr16VpwEZGRm2trbL
li1DOuzu7n79+vVyKM8oFUFBQfBvGzZssLGxCQgIqNoRzuPCsu3oKfqLXqPv
IndDnHn+/HkEnLwrwBVKC9gN25hUCOZ//vlnCbXgzp07Xl5e0ETeQiAtIL4H
2DPvHTp0QHCOtBTRYDlkBx8/fszJyUFGgEC0X79+zs7OZX1EaUF6jkTpwIED
gwYNQoLPfSy0aoOeor/oNfqOEZD8MkWF0gIB+/bta9mypYRaUBQl1oKvX7/m
5uZCZK2srHr27Ll+/frk5OQSm0EQZQo8f2RkJBb+9u3bNTU1kR2Uwy/+KSkp
dnZ2cB3ICA4fPowQrqyPKC2XL1/W09PbvHkzVvGFCxcED4BUedBT9Be9Rt8x
AryX8YmBtECYz58/X7x4EVGWoaHh7t27kXaJuYmCICoIkANkB8uWLSvTilgM
pOGzZs3q37+/vN58VywWFhZNmzbFaHyfgRx6jb5jBDAOxe6M6PfTp08ZGRnQ
goYNGxoZGcnyo+eXL19YwTcZb0aCH37//r21tfUff/whXJ5RQgoKCpDDxsfH
L168GKujqKoLRfHhwwdjY+NffvlFW1tbXjdVEoS0IDvYtWtXWVfKZTx8+PDY
sWMHDx68fv16WR+rZJAWSK4FOTk5Z86cYUWMWUF4We4Hw6GdnJwOHTokS0wC
HQkODjYxMWFWnTp1qmQPs6enp2OiskawOrBGpPo6km5WhtrPz68cCh0QRKnA
yjhj9pbpGzQYCLcQtpVWpd+ygLRAci3Azmpqai1btrS0tEQULePvTXCbY8eO
HTZsmLQ3cHLB1NqxYwcCcg0NjbS0tBLP6vDw8NmzZ/fs2dPZ2RltliBVwaHZ
mJTDsiIIorTAer927Zq1tfW2bdu0tLROnDghJkvCGr969erevXv3COHt7S3L
g0KlBWyAJVzD7OzsYmNj4Zeio6NtbW0Rw4t8wR96jb5jBDAOGA2MichQ/+nT
pz4+PpCAzZs3GxgYXLlyRXabL168OGLEiEGDBgkX45IcWAvL69Wrt3bt2szM
TKQYrq6u3HFwcXERruLIJTU1lVVf1NPTMzMzk+QlLwRBVBnevHljamqKEHfT
pk1wIK9fvxYTCsKLIvhs0aJFcyEUFBQkL1RedsAGWMI1rHPnzjY2NkjH9u3b
9+eff+ro6IistINeo+8YAYwDRgNjIvLn4Pj4+CVLlgwcOPDgwYPPnz+X/M3p
YigLLfDy8ho5ciR3HJB3wNWLaSEgIGD69OkTJ07EbnIsvEwQhFyAe9fX169e
vbq2traYUgxv376NiIg4fPjwli1bFn0LfE7Tpk3HjBnj7+9fnpbzSEtLQ8S+
cePGLl26wB5YxcxbunTp9u3bnZ2dFRUV69Spo66uLua5VIwAxgGjgTHhpQ+P
Hz/28/ODoOAQEJSQkJC8vLyYmBiE3zIWhC9dLRg7diyygJ07d65atYp7mlau
XImYH35eODt48OABq+iooaFhbGyckJAgpiA8QRBVEgm1AKGmkZERqzd+69at
2xz27t3brVs3uWsBezq4TZs28IesSDszLyoqSk9Pr1OnTs2aNfvxxx9LrAVX
r16FR502bRpkJSUlBd7yxYsXgoLwsiQIpasFP//8M9IfNTU1Vj9ZAMJ+yAGy
AxcXF953IQTICFRUVLy9vTE40H10EPnR8OHDxb/slSCIKoOEWgAXAS/aqFEj
U1NT3s/f165d09LS2rx5s7xe7ffw4cPAwEAEw//88w+rVAx7BCWGcnJy0LVq
1arBQ06aNMnW1lbMDTYitQA6GBwcDCns3r07GtHV1WX1it3c3GbOnCn78wUy
asHHjx9v3rwJN66srFy7du327duPGzcOQT7v5xvIAbSsefPmGCjBxtTUVCi4
pqYmNLR///6Cmsw2NjajRo2S5bljgiAqF7JrAZxtUlIS3FE5F/QQcObMGWQE
CHpPnjx5rRDYI3hBBtMCZAQLFy5EbPzgwQMxZQNFagGEBl60S5cu6H79+vX/
/vvv/xUC59miRQu5awHSE2tra3y9devW6KaCggIGRLjGu0gtwIjNmDEDAle3
bl0kFMhxWNd69er166+/khYQxPeDhFrw9OlTKysrBJzGxsYle+cCWoiOjg6V
hjt37khyj7qdnR2CYSUlJZFVVQVaoKenV+xrTURqwaVLl5BxiCyzDEaOHOng
4PB/7Z15XE37+sdf4jhX4aDDcQ/3l8KlYyq5Z3COe2Q8HUOEkyEpiihpUEpp
TiJK0UADGmROKCqkVDSKMjZoUKEBSSjd3+e11737te12u2ln1+55/9Gr19rf
vfbzfPf6Pp/n2WutZzXbIBrThUnj6eaePXsQe6E1jo6OPAfk5OTw0a+ysjIk
9ih8kNsjjDfV452nFpw6dWrx4sVNuYaqBwP4+0UQhGjQQi1gGvaePXt2x44d
8+fP9/f3b20mHBkZuW7dunmtwcnJiat/Jk86WguYhvAXm4DpxN7sLQYomnx9
fXm6ifpi0KBBAwYMUFBQ4DnAy8uLz1fDaAHKkxUrVpw+fRoFGs9+7Dy1AOUe
lK4p1zqu/zNBEJ2NFmoBA7J0Nze3CRMmIK4mJSUVFxe3/H5bZJhKSkrjW4Ox
sTH/RgpIgJmT14qKilu3buV50Uv7tUAgVFRUIP/n6aaUlJSEhIS4uDgSe54D
UC/waQ/FaEHv3r0h03xOYfPUAoIgCIZWacHHjx8zMjKCgoLs7Ow0NTWR6La8
hd3jx4/DwsICWwOycT6dzRoaGsLDw9evX29mZnbo0KGmBncSLUCunpqaytNN
fOLYsWNHjRplYGDAc0BycjKf36BICwiCaD/NagHiP2JsSUkJZ5zx9PREdbBp
0yZUBwi2Qnk6G7TAyclpwIABGzZs4PlI07q6usrKyqysLIgFUm4MbvZ3rY7T
Aj6089xxs1qAbwffUXx8PHRTXl4eCt5ukwmCEDWa1YKioiJ/f39ra2sEE/bG
tLQ0pOL29vZGRkZ+fn4FBQVf0OT/0qwWvHjxIiQkZMuWLba2th4eHomJic1q
lkhqASbHx8fH2NjYwcEBX1b3eTIFQRAtp1ktSE9PV1VVHTFihJeXF9dLkINR
o0YtXbpUKL1r+GgB03j57t27GhoakpKSzs7O//lfS2ds59MzrWtpAeNmfn4+
FHngwIGQZi4tYLphX79+XUVFZfLkyUFBQQI1nCAI0UEktaC4uDg0NFRPT09e
Xp7RAgyOi4tzdHQMDw/ncx9E19ICWHv27FkrKysbGxvk/Ij5XBf6Pnr0yNfX
lxng6el5584dgRpOEIToIJJakJKSsnz58q+++kpMTIzRAqTQ+Dt48GBdXV0+
/VS7lhY8fPhw3bp1w4cP37dvH8/+0tizoqLitGnTsGfIRKftl04QhNCpra29
ePGikZERskcXF5eoqCiutJnRgkGDBi1btmzf59jb2yNyBgQECOt8QUxMjLm5
+Y4dO/bs2cNp2K5duxDMNTU1x48fLyEhsWDBAmxEbgw3T548yfNyI3gN3zED
mAcMw5zwvEq/I2izFjx//jwkJMTY2NjW1nYfL3bu3GlmZrZ///6srKwOMp4g
CNEAEbW6urqsrAzxc8yYMQiDubm5nAMYLUCq3L9//+8+Z+PGjcjAX7161Z4u
ne3h7du3iIcHDhyYPHkyp2EzZswIDAxMSkpSU1NDadC3b9+///3vUIecnBxk
+zybcsNr+I4ZwDxgNjAnX+xRLG3Wgrq6OriTnZ0NOfiOFyjZsHNoH5/blgmC
IDhp6rlmT58+9fT01OCFv79/2x6kKFiuX7++detWTsOQJ0OkYBssZLagRjh1
6hSfnvyteq6ZYMnMzHRycrKzs+N533SzQA5QHfD8glAaPHr0SOAGEwQhwjSl
BbW1tc+ePXvAi9LSUqHcWcBFVVUVEn5Ow/Lz89+8eQPbYCF744sXL/j8YC5E
LUB1U1BQAM1tW4M7VAdQPZ5fUFFRUbONkgiCIDg5e/asmpqaiYnJsWPHkpOT
KysrhW3RFwKewl94Dd8xA5gHYVtEEAQhNJD8p6SkuLq6LliwwNzcnH8jIFEC
nsJfeA3fMQOYB2FbRBAEIWQuXLiwcuVKHR2d4ODgzMxM0a4O4B18hKfwF17D
d2FbRBAE0SkoLCyMjY11d3fX0NAwMzNr29nMrgK8g4/wFP7Ca/gubIsIgiA6
EdHR0StWrFi3bh37SZEiCbyDj/AU/grbFoIgiE5HQUFBZGRkTExMSUmJsG3p
QOAdfISnQrlXjiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAI
giAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiCI
L0ZDQ8OHDx+qq6vxF/8L2xyCIAhCCNTU1Fy5csXKyioqKqq2tlbY5hAEQRBC
oLy83MzM7Ouvv7awsHj16pWwzSEIgiCEALTAxMRETEzM3NyctIAgCKJ7QlpA
EARBkBYQBEEQpAUEQRAiwPPnz2/evHmORVRUVH5+Pvulx48fX7x48RwHCQkJ
L1684Hw7aQFBEIQIcPv27c2bN//MYsmSJWFhYcz2hoaGo0ePzpo162cO9PX1
U1JSON9OWkAQBCECILYbGRlNnjx58ODBI0eO9PHxqaury83NjY2Ntbe3nzt3
7u8sZGVl+/btO2fOnJiYGM63kxYQBEGIAC9fvkxOTt6/f/+0adMYLXjz5o2f
n5+SkpKlpeW5c+ciWJiZmY0aNYq0gCAIQiRB5EcVgJivpaU1e/ZsNze3hISE
7du3y8nJ4X+8ygwLDQ1F7UBaQBAEIZLcvXvX0dFx48aNLi4uhw8fRv6/Zs0a
Ozu7kJCQjIyMDx8+MMNICwiii/L27duSkpIXL168f/9e2LYQnZeoqKhZs2ZN
nDjR09MzMTFRT0+P+Z89oLq6+tmzZwEBARi2atWqmzdvcr6dtIAgOjnJycnI
97Conzx5ImxbiM4LowVDhgyZO3eugYGBg4ODr69vWloae0B8fLyVlRVCPQqH
8PDwoqIizreTFhAEJ0zb3jcsamtrP336VFdXV1NTw2xBiv7x40fBfmJ9ff27
d+/efA5KAHYPYdT748aNwwKPjIyEJbBHsAYQogGjBT179uzTpw8qAuT/XAO8
vb2lpaVVVVU5BYINaQFBsEHkZy7As2Rx4sSJkpKSx48f+/n5MVtcXV15rqP2
UFhYGBwcbMmBtbV1TEwMhCApKWn37t3KyspI9kaNGqWuru7j43P//n3BGkCI
BowWDBs2bPny5QcOHEhPT+caQFpAEC0EKfrOnTsHDRrUi8WqVavu3Llz+fJl
LDFmi6ysbON0q50g4KuoqPTiQFxcHHKAGgQrWkpKCpleDxb4Z9q0aefPnxes
AYRowGiBgoJCaGgojmQkNlwDSAsIgielpaWIq8j57927x2zB8kFCvn379pkz
Z/bv319eXt7IyMjR0RGrY+XKlaNHj/7nP/+J8YIyIC8vD6WHk5OThYWFEQsd
HR2s5d69e+/YsQNaEB8fb2dnp6Sk9O2338rIyGAVu7u7Z2VlCcoAQpRgtGDK
lCknT57kOYC0gCB4giJaQ0Pjp59+CgoKYm+sqal5+fKls7Pz8OHDv/7664ED
By5evPjixYuoDubNmydYLYiOjlZWVsb6PX78+AsW2dnZkAO2Frx79w4r1NPT
E/XI7NmzoVxVVVXsiwMJghPSAoJoLcXFxREREfv378fBb2ZmFhcXxzXg4MGD
UlJSSMURq/ft2/fgwYNbt26pqKgISgtycnLOnTvn4uJiYGCAuoP9025ZWRmq
A7YWMBsDAwMnTJgAJbpx40b7P5oQPVBgIk/Yu3evoaGhra0tV6MhkJmZiaOI
ufvA1NQU1SVym2fPnnGOqa6uhoisW7fu9OnTSEK+oPmiD9Y1Er+zZ89i4Qvb
FuIz4uPjV69ePX/+/CNHjuTn5zfOghgtQPgNCwuDcKBYEKwWhIeHL1iwYOXK
lWfOnCkoKMAyZLaTFhBtAIkNqte//vrrxIkTOJzYtxgzNDQ0+Pj4KCgo6Ovr
I+3x9fVVUlLS1NRMTEzkHFZfX4+K+NGjR/jb+FwD0R5SU1M3bNjw559/shsG
EkKnqKjo2rVrVlZW48ePHz16NHKksywuXbr0+PFjrJqHDx9euHDByclJTU0N
iRYyLsRnaMehQ4e2bNmiq6vLdbcmFxiM5Xa2ETgG7t+/z74cNCgoaOLEiTg2
YmNjmS1Yv6jcQ0JCtm/fvmzZMvxTW1ubm5sbGRkJM7ByHRwcsrOzO3yCiC4I
JAChfvbs2Ug+G7+KoxrH84ABA+bMmePt7Y06F8m/jY0NigXOYR8+fLh37x7K
1aysLIFfON3lwOq7e/du44UMoKHl5eWt2hvWPooyDQ0NFxcXZieo4x48eAD9
Fbjl2Cc+DgGH0+akpKSKigqoPIy/evVqYWGhwD+3yxEVFYWKYOzYsf379+/b
ty/k4CcWWCaIz0iHAgICZsyYYWxsjCD85MkTVASYxk2bNiHpghzcuXOHq+s7
F5hqlOE/NeLXX39FbsYuvRtrwdOnT+3t7WfNmoVle/v2bWgWjEHNjvIBAoQV
CpHiyvcIgqGFWjBkyBA5OTkdHZ3Tp08jEL1+/ZpzGKpjDw+Pn3/+GUUxu1Dt
tiDaQzQbL2SAyh1xoFV7w8pFwYX4rKenx+zk3//+Nwq0jjj3hyCDUIOAw2mz
iYkJpC09Pd3Q0HDVqlWXL18W+Od2OaCJWlpaiMNYGv369Rs3btx0FsrKysyV
eEi/IRMI/gjOzFsgCoqKirKysnZ2dojSJSUlPPf8/PnzlJSUw4cPQ/2nczB1
6tThw4d/9dVXO3bsYC8xRgvwHbm5uV1ncfTo0T/++GPgwIH46Bs3bqAegTHu
7u54L9a4v78/vko6o0fwBMfP+vXrkcCkpqY2fhVaEBwcPH/+fOaAtLW1RQnc
eBikAVUDDnXkPOzfJ7shSP8glBcuXDAzM5v+OQgCEhISmMn4+Pg27Dk/Px/V
AbMrZH0ozaDdzPLHJ+Jz22n5+/fv8c0iXqmrq/fq1QuhA8GH+TgkAIGBgYg2
iDmIPJxXy3RbEMkTEhIQ8CdNmjRmzBjE50gW0Agm/DalBd988428vDyK6ytX
rvDcM75QVAQbNmyAHERycPz4cRUVFZ5aMHjw4B9//PEPFtOmTRs2bFjv3r1R
s+BggzSgSmW04Pvvv4fK4+3sa18JgpPS0lIc1UhFmvrtIjc3NyYmhjkgkdNy
VQQMHz9+RO2JjBEZbHe+t72wsNDFxQVrdufOnZGfg+xaSkqqzVqA5Z+Zmcns
ClpjbW09b948ZvnjEwsKCtpp+cuXLz09PZE6jhw5UkxMDC4g+DAfd+DAAU1N
TUQbxBzSAoaqqioc6pDI5cuXo1bi+vH/06dPiOQQU8g3O/+/efMmSolJLBYu
XHju3DmufeIruH//vpeXFw4SiAjXVRyoF1BUcmnBpUuXli5dOqkJpkyZgu8O
tV5ISMicOXOYjaguBX7LM0EQXGAtr1mzZujQoa6urlwvIYAvWbJk8+bNje/p
bi3I4RG3//WvfzGrW1dXNyIi4g6LJ0+e8BRrPiBvhJQgHUVtyA4je/bsYecG
iFq//PJL3759paWlEXkQf9ppvwiQmJiI0k9fX9/DwwMZPtc5FFTTWVlZp06d
Qjxnl8kQBVQNISxwMCDF4ton9oNAvXXrVpTYsbGxCP6cr/LUAlSL+OpDmiA0
NPTu3bvIzZjfGJmNjfdMEITA4aMFzLK9ceMG/5OGLaG+vh5r/MSJE8zqdnZ2
1tbWXsHCxsamtVqDOMZk/khi2WEEO4FGMAMYLZCVlTU1NYULnM/C7ragaJKX
l587d+61a9fav7dXr14VFRXhmIG+I1tgdwqC6ONoKWABoUdpKSMjgzKwO/8M
21WoqakpLS0tILosSIbbcx0U0nJDQ0M5OTksWMRYrHGkiAI8wHiC/HPmzJn/
x2L+/PkIU0hBWx4uICtqamrDhw93d3fnOYDRgt9//50qAjYC1IJPnz5FRkbi
sLG0tHRzc4uOjmZXZHl5eT4+PptYQCPs7Oy8vLxu375Nl+p1fjIyMnbv3r2J
6LIEBARw3UbXKiorK69evbp//34U8vr6+hcvXvwCd/o/fPgQoekgiz179mzb
ts3e3h4Ro4VvJy1oAwLUgrq6Onxf/fr1Q3GHioCz43RsbOyyZcv6sUBF4OHh
IRDjiS/A+fPnFRUV+xFdlnXr1rW/Z1dZWRkCsqSkpLW19fPnz5ke8gI5wHiC
LBFVABM9kFUuXrz4p59+QrBq9o1Mx/vk5OQ1a9aMGTPG29ub5zDSgsZ0hBYo
KCjo6elt5wAZha2trQMLV1fXW7duCcR44guADA2JpQPRZQkLC2v/mbXq6uqo
qCjszcbGxsLC4sKFC609n9sq0tPT3dzcOKPHoUOHkO03+8b8/PyjR49aWlri
LSgKGrcfYSAtaExHaIGYmFivz5k6deqZM2fq/gfd0d+FQPqHXKuO6LLg6xNI
Do9li1wdWtC/f38DA4Pi4uL277Mpjh07NmHCBCZ6IGKHh4e30Iu4uLiFCxdO
mjQJe6hrOtSQFjSmI7RATk5u/fr1WzmAQNO9AATRtXj27Blipr+/P/snJqxx
VAfm5uZWVlbOzs4IpC9fvhTIZ2HPCQkJrq6ue1jY2dlt27aNiR4HDx5s+fOq
bty4MW/ePOhIYGAgzwEIRH5+fihw4IWnp+eDBw8EYr8I0BFasHbt2oyMjBcc
VFVV0XPqCaJrkZycrKamhqI+NDSU2YLMnGliv2/fvnHjxm3atElQsbS2tpZp
jD+YhZaWVlJSEjt6tPxsdbNaEBISgopAVVU1OjqaOt4z4Es8ceLErl279PX1
mTbUmPaYmJhTp049evSoDTtka4GiouLu3buvX79eUVHBOeDVq1eo4IKDg6lG
IIjODxL1hQsXysrKHjlyhOul/fv3Dxs2bPXq1e1Zy5WVlbGxsb4sDh06ZG1t
DQlYxwKpe9uufeKjBTAVwUdTU3Po0KGLFi1KTEwsLS29cuUKtc6GPiJoY9oj
IyOZNtSZmZm6urqzZ8+GHLRhh2wtGDBggLS0tJGREVfOkJeXh7rs559/RtUp
ICcIgugoOloLnjx5YmJi8k8W48ePt7GxycrKesQCUbptGTsfLUDYQUUAIejd
uzejBbdv39bW1l6wYEF4eHibvRABPD09R4wY8dtvv7m4uJxh0cI21E1RX18P
EVm5cqWcnJy4uPi0adP27t17hoOAgAB89dDlbj7zBNFmmLbtzIJCrG7Pz/Xv
379H+sdennfu3OF6ZA+jBcOHD9+8efOZz9m5c+eqVaugCAVt6hpUXl6OUIzg
bGxsrMJi+fLlJ06caP8NR9nZ2Q4ODmvXrmWHNTbYjuikoKCAfPXHH390cnLy
8vLS09MzNDTs5k9CYbRAUlISisz0cV22bFlL2lA3RUNDA+qLlJSUrVu3fvfd
d9gz1JmzTyz0183NLS0tDaIvcHcIojuAdAvriFlQBgYG7WkEVFFR4erqyl6e
CJ5cC5/Rgj59+sjIyHD1qUZSd+XKlZycnLY98Q1BBiqgrKzs4eFxi0VycjKi
R/uvMHzz5s3Dhw/PnTuHnJbLZjMzs+joaEtLSykpqYEDB44bNw5yxnQ8FtQZ
8C7K+fPnV6xYocjBxo0bGz/dsg3gi1BVVVVshLq6ekRERPv3T3RaEExSU1Mz
MjK4ThWJGPAOPsLT9vfh4cnr16/v3buHCNm4ITwW119//fXDDz/07dtXSUmJ
/byPNlBZWXnw4MHff/9dWlq6Z8+eSP65LhPNysqysLBovJCBu7t7e+Inwu/2
7ds1NTWjoqLavBM+5OXlOTo6ctkMZ+Ey08Ka2QIxpXudAIo7HEicHWhRtZWV
lXXEnhkgNEVFRe3fP9FpiY+P19fX37ZtG88HB4gM8A4+wtO29WpuFmS2dnZ2
PBvCF7Dab+LTEcDbqQUfPnxgHkywevXqv/3tb421oKqqClV844UM7t+/z+7z
1gYQk7FnzF57mmPwAdUBuxs2GzgLl+EjAhGz5fbt2x2k5gTRbSkvL0d88PX1
Xbx4sba2dkJCgrAt6kDgHXyEp/AXXrf2CY/NgmQVO+fzMPHg4OCJEye2UwsY
EB5tbW0lJCQaawFBEERruXbtmqGhoZGRkaen59WrV5t62p1owLRth6fwF14L
pMcvJ6QFBEF0OV6/fl1YWHjw4MFff/1VR0entY++7brAU/gLr+E7ZqBxf563
b99CNZ6yKC0tramp+fjxI4qIp/+jqqqKfbaUc3BYWNjcuXOlpaV3797NbCko
KMBgdhMGgWhBfX19ZWVlTk4OtGDMmDFWVlZ0UQdBEG0mOjraxMTEwsLC1dX1
8uXL3ecBQ/AU/sJr+I4ZwDxwDUhNTXV0dGQaRzs7O2dkZOAtgYGBzBY9Pb3z
58+zf3VPSUlhD16yZAmEYMCAAYqKiuzB4eHh7Jv3BaIFb968OXXqlK6urrW1
tYeHR1xcHD1PhCCINoPc9dtvv9XS0uL5BHmRB17Dd8wA5oHrpdOnT6NqEBcX
79Wrl4KCQlBQEORg/fr1/fr16927NzZu374dAZkZjLA8derU/iwkJCTwqpiY
WJ8+fZgtkpKS9vb27FgtEC2AMJmZmcFyBweH9j9oniCIbg5pQVNakJ2dffjw
YQ0NDRkZme+//x7ZPtNLGRLw22+/cWlBVlYWBjNdpnV0dH744QfsU0VFhdni
5OSEsM++FVcgWgBlQS2DPd+4cYOeKkUQRDshLWhKCxoaGj59+hQRETF9+vQe
PXogzx87dqyvr29paamRkRGXFjCD61kkJiYuWrRo9OjRGFz/PzjvwxLUuWPm
E6mHPEEQbQY5alxc3N69e21sbExMTE6ePMnn5qP3799jsIuLy55G4I2d4cnj
sAGWcBp24MCB5ORkhOhbt265u7tHRUXxfHoLvMYbMQOYB8wG3ORqpHP58mVF
RcWhQ4cqKyvv2rWLuaZ969atXFrAyZe8joggCKI9IIg5ODh89913pqamyI2r
q6uRYTY1GFHU3t5+yJAh3zYCQe/69etf0HDewAZYwmkY0nIPDw/kzG5ubjIy
MsbGxjx778Br+I4ZwDxgNjAnXOGd0YLJkycfOXKksrKytraWtIAgCJEB4R2h
rGfPnkiJ+VQEiJM3b9708fGxsrJa9zkzZsxAyJ05c2bju2u/JLm5uWFhYUZG
RrKysrAHVjHmbdiwwc7O7vDhwyoqKn369NHR0eFTv2AGMA+YDcwJu3zAns+d
O4dqyNDQEFKYlpbGtG339vbesWOHtrb22bNned69izeiKsGumrqvmbSAIIhO
Qgu1oLi4GHFv0qRJSJgfPXr0mANk3RMmTBC6Fly6dElZWXnYsGHi4uKwB1Yx
5iF0m5mZoTqQlJQUExNrgxZcvHhx4cKFqqqqp0+fLiwshCxiD+bm5lOmTNm1
a9eTJ0/Ky8t5/lYPgSgpKcHgpp4pTFpAEEQnoYVagICGKPrNN9/s3LmTK+4l
Jiaampra2NgI6/a0vLy8yMjIffv2aWlpLWEBe2AV8yoCNVzr0aPHmDFjENJR
2vC5dYKnFhw/flxOTo7zoYFQQ1Qc/fv3V1dXR1GQlZVVV1fXKptzcnIiIiIM
DAykpKTk5eVRuWDnHdTVhyAIolnarwUVFRUIhg8ePHj16lXH28sDRONFixbB
POTtt1nAHnaHVUYLUBGsWbPm6tWrcITPc1pbpQW9evX6xz/+8csvv3h6erb2
wn6mZ/XIkSNRxWBWZWVl165dS9UBQRDCooVaUFpa6urqqqSkZG9vHxMTg7S2
tZeyI+lFrn61Ndy7d4/nOVkuvL29paWlVVVV09LSGr/K1gJzc/Nm1YqnFkAC
tLW1UWtkZGQwW4qKivbs2TODxezZs/38/FqrBWFhYTB4Bge6uro3b95s1U4I
giAERQu14N27d9nZ2eHh4ZaWln/88Yevr29Tv4E3RUREhIaGxtzW4Ojo2JKb
HTpaC6CDCQkJqamp7Frj7du3KD0us7hy5QqMbO1vRExD+Msc3Lp1q/v0/SAI
orPRQi1gqK6udnd3nzx5MuJqXFwcAhqf31u4OHPmzIIFC+RbA1Lx+/fv89ln
WVlZZmYmChYk59u2beN6MDdD+7WAIAhC5GmVFnz8+BGxNzQ01M7OTl1d/dCh
Qy1viZmTk3PhwoXjrQHZOJ8HqzU0NJw/f37t2rVmZmZ+fn4YXFlZ2XgYaQFB
EESzNKsFHz58ePHiRVFREedP997e3nJycsxP3M+fP295dSBAoAVOTk4DBgzY
sGFDXl5e4wFMZ2mIF8RCRkbG2dm52bMPpAUEQXRPmtWCwsJCX19fCwsLzodo
Z2Rk+Pv7Ozg4bNmyBdXB06dPv6DJ/6VZLYCEBQUF6enp2draenl53bp1i6ut
RGNICwiC6J40qwXp6emqqqojRoxAOOV6CSowatSopUuXJicnfxFjP4OPFtTX
19fU1MDyNWvWSEpKoiL4D6uZEpx99+4dnx5upAUEQXRPRFILioqKgoODdXR0
5OTkGC3A4NjYWBQIYWFhPE8rMJAWEATRPRFJLUhJSVm2bJmYmFiPHj0YLUAt
gMEDBw7cuHFja3tQEARBiDy1tbURERGmpqbW1taImZcvX+ZKmxktQBRVUVHZ
/Tl2dnZmZmbHjh0rLCz88pZDC65du7aDxa5duzgN27lzp6WlpZaW1sSJE8XF
xefNm4eNNjY2cPPMmTM86wJshO+YAcwDhmFOeLabIwiCEEkQUWtqasrLyxEG
keRv2bIlNzeXcwCjBcixJSQkJD8HOXZaWtqbN29ae6eVoHj37l1FRcXBgwcn
TZrEadj06dODg4NRHaxevRqlAeRg8ODBSPVREbx9+5bn+QJ4Dd8xA5gHzAbm
hP2EeoIgiO5DU881Kygo8Pb21uLF0aNHO8OtsrGxsShPOA1zcHBITU2FbbCQ
2aKtrY2KANrR1E74PNeMIAii+9CUFrx//760tPQJLxBsO8MDdl+/fv306VNO
w5jO0rANFrI3NtVZmoG0gCAI4j+sbmkaGhqmpqYBAQFJSUl8bvgVMeAp/IXX
8B0zgHkQtkUEQRBCA8l/enq6m5vbn3/+iaiYlZUlbIu+EPAU/sJr+I4ZaHlX
DYIgCFHl0qVLq1ev3rRpU2BgIAKjaFcH8A4+wlP4C6/hu7AtIgiC6BQUFxfH
x8cfOHBAXV3dxMQkNTVV2BZ1IPAOPsJT+Auv4buwLSIIguhExMTEqKmprV+/
nv2kSJEE3sFHeAp/hW0LQRBEp6OoqCg6Ovr69eui/eM5vIOP8BT+CtsWgiAI
giAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAI
giAIgiAIgiAIgiC6Kf8PW06FCQ==
    "], {{0, 692}, {516, 0}}, {0, 255},
    ColorFunction->RGBColor],
   BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
   Selectable->False],
  BaseStyle->"ImageGraphics",
  ImageSize->{218.66666666666515`, Automatic},
  ImageSizeRaw->{516, 692},
  PlotRange->{{0, 516}, {0, 692}}]], "Input",
 TextAlignment->Center,ExpressionUUID->"fed74b4f-cc95-4cc9-ae23-e7fd322e965a"]
}, Open  ]],

Cell[CellGroupData[{

Cell["We could combine trig and exponential functions . . ", "Subsubsection",
 CellChangeTimes->{{3.638958306054798*^9, 
  3.638958308774802*^9}},ExpressionUUID->"37e81c8d-7e41-4fa9-9a3f-\
525ff3af2305"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LaplaceTransform", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Exp", "[", 
     RowBox[{"5", " ", "t"}], "]"}], " ", 
    RowBox[{"Sin", "[", 
     RowBox[{"3", " ", "t"}], "]"}]}], ",", "t", ",", "s"}], "]"}]], "Input",E\
xpressionUUID->"c9b85917-a288-486a-a193-c5b42011e49b"],

Cell[BoxData[
 FractionBox["3", 
  RowBox[{"9", "+", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "5"}], "+", "s"}], ")"}], "2"]}]]], "Output",
 CellChangeTimes->{
  3.638957735113999*^9},ExpressionUUID->"f2587939-7bcb-4709-9490-\
0e463387eeea"]
}, Open  ]],

Cell[". . . and in general to match the table entry.", "Text",
 CellChangeTimes->{{3.638957773074052*^9, 
  3.6389577855940695`*^9}},ExpressionUUID->"f306e167-3a8c-4d5c-845f-\
7aa746667981"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LaplaceTransform", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Exp", "[", 
     RowBox[{"a", " ", "t"}], "]"}], " ", 
    RowBox[{"Sin", "[", 
     RowBox[{"b", " ", "t"}], "]"}]}], ",", "t", ",", "s"}], "]"}]], "Input",
 CellChangeTimes->{{3.6389577445140123`*^9, 
  3.638957758204031*^9}},ExpressionUUID->"b635bec5-aedc-4a1c-8254-\
13f3d193bccd"],

Cell[BoxData[
 FractionBox["b", 
  RowBox[{
   SuperscriptBox["b", "2"], "+", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "-", "s"}], ")"}], "2"]}]]], "Output",
 CellChangeTimes->{{3.638957735113999*^9, 
  3.638957760644035*^9}},ExpressionUUID->"76219bf9-7d26-46ef-9704-\
1f83815b9694"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
If we are given the Laplace Transform Y(s) how might we obtain the original, \
i.e. the y(t) whose Laplace Transform is Y(s). We try it on some of our \
observed Transforms and some others functions.\
\>", "Subsubsection",
 CellChangeTimes->{{3.6389583267048273`*^9, 3.6389583340548377`*^9}, 
   3.638961555710348*^9},ExpressionUUID->"d1ccbef6-7248-46d3-9fbb-\
19e5f06082bf"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"InverseLaplaceTransform", "[", 
  RowBox[{
   RowBox[{"1", "/", 
    RowBox[{"(", 
     RowBox[{"s", "-", " ", "4"}], ")"}]}], ",", "s", ",", "t"}], 
  "]"}]], "Input",ExpressionUUID->"6411148d-de64-414f-a473-2802377b8365"],

Cell[BoxData[
 SuperscriptBox["\[ExponentialE]", 
  RowBox[{"4", " ", "t"}]]], "Output",
 CellChangeTimes->{
  3.6389583426648493`*^9},ExpressionUUID->"ae6c06da-f92e-419d-be95-\
849543ea77be"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"InverseLaplaceTransform", "[", 
  RowBox[{
   RowBox[{"s", "-", 
    RowBox[{"3", "/", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"s", "-", "3"}], ")"}], "^", "2"}], " ", "+", " ", "4"}], 
      ")"}]}]}], ",", "s", ",", "t"}], "]"}]], "Input",ExpressionUUID->\
"974ca443-c479-4976-abd9-bb494f401158"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox["3", "4"], " ", "\[ImaginaryI]", " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"3", "-", 
       RowBox[{"2", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"4", " ", "\[ImaginaryI]", " ", "t"}]]}], ")"}]}], "+", 
  RowBox[{
   SuperscriptBox["DiracDelta", "\[Prime]",
    MultilineFunction->None], "[", "t", "]"}]}]], "Output",
 CellChangeTimes->{
  3.63895834281485*^9},ExpressionUUID->"56b99a47-9ae9-4748-95a6-18f5f9a0f166"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"InverseLaplaceTransform", "[", 
  RowBox[{
   RowBox[{"1", "/", 
    RowBox[{"s", "^", "7"}]}], ",", "s", ",", "t"}], "]"}]], "Input",Expressio\
nUUID->"58b21c26-2132-44ac-beb4-07f88862cde2"],

Cell[BoxData[
 FractionBox[
  SuperscriptBox["t", "6"], "720"]], "Output",
 CellChangeTimes->{
  3.63895834282485*^9},ExpressionUUID->"d0f5dd6e-2a5c-465f-ad9d-ce87fb463dfe"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"InverseLaplaceTransform", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"s", "/", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"s", "^", "2"}], " ", "+", " ", "4"}], ")"}]}], "+", " ", 
    RowBox[{"1", "/", 
     RowBox[{"(", 
      RowBox[{"s", "-", " ", "4"}], ")"}]}]}], ",", "s", ",", "t"}], 
  "]"}]], "Input",ExpressionUUID->"f9b7df00-8a0d-4ca9-91be-db916daaef27"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{"4", " ", "t"}]], "+", 
  RowBox[{"Cos", "[", 
   RowBox[{"2", " ", "t"}], "]"}]}]], "Output",
 CellChangeTimes->{
  3.63895834285485*^9},ExpressionUUID->"4b04f7b7-ac42-4aab-aa2d-c5f5a099d427"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"InverseLaplaceTransform", "[", 
  RowBox[{
   RowBox[{"s", "/", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"s", "^", "2"}], " ", "-", " ", "4"}], ")"}]}], ",", "s", ",", 
   "t"}], "]"}]], "Input",ExpressionUUID->"eb0f87b2-5a24-4fc7-ae4d-\
195336ffe952"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], " ", 
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{
    RowBox[{"-", "2"}], " ", "t"}]], " ", 
  RowBox[{"(", 
   RowBox[{"1", "+", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"4", " ", "t"}]]}], ")"}]}]], "Output",
 CellChangeTimes->{
  3.63895834287485*^9},ExpressionUUID->"038cb112-33c6-4141-a051-1c73ef39bb31"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ysol", "[", "t_", "]"}], " ", "=", " ", 
  RowBox[{"InverseLaplaceTransform", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"s", "+", "3"}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"s", "+", "3"}], ")"}], "^", "2"}], " ", "+", " ", "4"}], 
      ")"}]}], ",", "s", ",", "t"}], "]"}]}]], "Input",ExpressionUUID->\
"26e67901-d113-4d87-bea1-72d14e39e52c"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], " ", 
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "3"}], "-", 
      RowBox[{"2", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]], " ", 
  RowBox[{"(", 
   RowBox[{"1", "+", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"4", " ", "\[ImaginaryI]", " ", "t"}]]}], ")"}]}]], "Output",
 CellChangeTimes->{
  3.63895834290485*^9},ExpressionUUID->"d718c105-6b74-417e-807f-33781d75af48"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"ysol", "[", "t", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "2"}], "}"}]}], "]"}]], "Input",ExpressionUUID\
->"5dbf5d09-ba41-4650-b033-ca53ab2af4b8"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJwV1Xk8VG8XAHBLG5KlX0SSvSJZUiF1SCmya7NMligqW7YQpWwhDDOjpKxR
UREVJQ/SKmtkyb4MBjP3jqzFvPf9636+n/vce+45z3nOlXXxtnbj4eLiUuLm
4vr/1fbpj6jvQV/g/Kz+jO/RQfAu8VO99+cb8GfFfh/jGgB28q+v3NxNwIj4
w45y+Q1faz6jJr1WiJS06NKY/AUewcaCtlNtENJvZ8ov+BNq+DQ5RZ4d8HD1
5svLVU2Qn1u3IqnYDVtdxDH98m+gL/Yhx+ZFDwTaZfF2/qoD1S895Z+V+yG9
cA+ntbga2vRtmE+ZA2BnGTdc86wCrvBfbm1XH4I1gsdf8iaWQv4HsTcm+4ag
T/9tfX5AKfT71N5HB4YguVHZ155UCtYdEs5PjYaguEhFa3FXKWjnfWVddxgC
gxzv/NUNr2DVISVBhdghEPgSmWMn/AoyfAePXe0fArOOxiflucVQ33nmw4bE
Ybj0T5fSNlcIt7rHNl1KHQae9VXjm5oKQbsnyOvTvWFooFkt+BcUQl5/2rbr
ucOQHiUpkHC2EK7TOyImyochYcLESqryGaj+OWNUNzwMifU7uMpjn0KS0Nmm
YJ0R+GuW3+u7vwBsjM4OjoyMgJTZCnoxlgPvNmo0DU+MgLhM3J6t33JAbpDv
wxBzBEINeE/kPMsBduj7ewMLI8Cfnrsf88yB5BJpy571oxBtXvrp/mw2/JAa
rfqpNQoLOqUlEnzZcGTGN6M2chSSy8R/L918BPuy4s9kKdCh2HGHbH1PGhTX
3AgWUKaDW8rb6VX5aaAy7PcgUI0OUj5C1zy900BGyaHfVJcObxPrbb/zpIFA
0a6LixZ0SPZNIBWr0GDgbUOgdSgdhD3ExzdFUyC+SYi2qpUO1BEulbsOZBhY
SW1zvzEGyi4+Ysv/xcD6qeb4oMgxMJQQfr3uYzRodwkaRt8Zg0u9flF2vtGQ
XBpTkps6BiqaFVuaG6NA3z00sa9gDE76jtauJERCdovL8ZPNY/AytsD6mNgt
cMnTqATZcdg/KZRAfxMCiWQvP3OlcTD0cszD5UPgXXihMkllHOpZdQ43yMEg
aqt4P2TvOCgKHQqT9boGHwUlAl8bj8NquqvaNdVAUAjiUle5Og7yobvMVet8
YdS4KVfs4zj0fO71P5vpAgrx25PIX8fhdeAeVZHbzuD640bI+sZxeF8YV02/
6ARD5upWPF3jQGGo7673cIA+G/LKNHMcxt5WdR8ot4FOko3tJ8kJiLn91/z+
tCJ89+3Y4H91Ak5u4uYaeERCfKVqS8ygCUgzdlg7l+KIjv+JGfUIm4BAT92M
G7VO6EugdqVj7AQc91tz9FqJC6oLve9x4tEENFhU++nevoA+RNnXyX0nnncy
3Xt/zhMV3+8PbpFlwIgid1upcCC6slOqW3M7A4bSe07+Cw1EOyrO6lJ2MaCs
3yilmR6IMjtblk7vZ0Dsc/mQre+DUKJ4XWiPKQOaup4GW50LRp7UJ2FjQQzQ
lJ7PdEu6jpTJvhHLDQxIk0yAnRYRiC7zYvDcTwZseO/h9DMsAuUUMwyqOxmw
ulF8y/GiCCTZfJ7n9jADTnEqMPK6W4hP6PTtdYsMqH8gvrWw6hYaT9CN2qgw
CWVJBw02ykaix7G8d3aGTML6zQmur1E0Eh2JDd99YxJuCiQmGI1Go5uwwX9P
5CQwo0cln/PHILu5zY4HEydhNLKze+lkDBJy3b3XKmcSbox2zT0Yi0HBYDt4
7fskbEv8NL1+9R1kNvdC56vkFKTNKJR4yMajd1Zaag3bpsAD1/yv1yAe7Xhe
odCqMAWLF28d2+kSj3hc64R6dk9B4FJXrGlOPHrb0jXKOjwFqkUutjUyCUj2
+aoU8ctTYMfDJRsqdhfNnrdjXHg/BQYa6YdGRhNR4Ma/Gzurp+BhulX2Am8S
mqt9cND48xRMHV2uGpIlLNubrNIyBXEc92fapCS00O+4H6NPAfepoHJmSxJa
sneLDBadhjN5++832SYjrpM+0gke03A48INCwC4yuskrcnzZaxqSGiJ0FrXJ
iLu0xNfLfxpaj3A2XzpKRjyiM3WWN6Zhv8tLP9FzZMTbHHB5E3UabF8y9t1I
JKM1pqHlj6qnoerEn9b2STISOBJtXSLOhGsHBF733EtBeshb5LMUE57ECB3z
yElBXrq2zd2yTLhq2FNIL0xBreq7zFftYoKE7eYtZVUpKH1rq/EZfSa40H7V
pw+noB3zWw2W3Yn108cMspVT0ZFnr9WM3zHBnLzvcf/zVBSomMkkISYkdXaI
ZrxORU+yYp9frWNC+5a0VyYfUpFAmr1KRiMTik72vQr/kYpab3NvZw0xoW3L
ub7DjFTkRDKTpgqw4D6freBReQq6Ljy6ftCBBfKKLgLB8RSk3P1Kv8eZBZJy
Uq6+ZArqyr3p33GBBTwatmWkNArat1+qp8GHBZd46pxEcykII9kUvotkwYqA
FHOqgoLOF9YYU4pY8PhqIeY1SkGiAUlhSSUsMMq8LVHIoKDqQ6SSuDcsKDt2
uOE3i4KkWhc2R1SzQGYpa1FyiYJ+LaiNe7axwNFHzEVkAxWZGD2KPvaPBSkC
BYb0PVT0b+0+UjYXBuLfTM29tamobUpqXpoXg1NnXa5O61HRrTcMZcl1GLhx
de78dpSK+oyjU4RFMUiZrDHmnKaiez4fnJcVMTBor+zxDKIi71N5f0N2YKAT
tjbRNJSKjHTjqQvKGGTxJwzJ3KCiWV7bbzNqGHTViqQ9i6Yi67Q/6gwdDPyH
yyQMqVS0vkqFq8MMA4crrj+Tiqlo2lSmLM4SA96QzEjRMipq/P2f+yEbDN6l
WmTfeUtFSYvLTY/PYjAmgYxOVVGR6N7mTP/zGDxtNXM9X09FMx/rbHZcwEC9
tCk1rpHIz7pibY87BjmkyIj8Fiqi+uR4G3phUJfmVV3ZQUWbi/xBNBgDSsOx
ifPDVLSo6zHzKRSDIy8TtmvSqaj7G6kgOBwDerNWwOw4FT0YMxIavI3BgEbr
BXsmFUnLS/S/TMQgtHHo3eMFKlJI/xBulofBnnG/Jj0BGlq985UmdwEGfg1B
hU6CNER/m08ve4rB34lCrRAhGipoTzKXeonB3JGjAYkbaUhZxEV6sgKD387W
lXpbaEgg63Tro0oMVn0SFxLaSkNTu09EWyMiv6+l9h3SNPTcVItZUYeBgJf1
OhM5GlKPXVMV24QB38H/3pbvoCER8b++eq0YzHKyBw4o0xD7MUsRa8Ng3GqP
xWsVGir92Hn3TDcGnyRjZeJ30xDFusFAoBeDmK/N1DE1GvIfrJmt6sdgNGh7
gK4GDe3jPCMpjWJQkf6N9nEPDYknZop0j2GgxH1lclGLhhakKJ/uMjD4Z/O9
UWkfDb3TDVOdZWHQ67zzgqs2DR0MtFj+uISB5eS+dm89Gpq7NB5qvEx8z3Cs
kulBGip2jFhq5GAg8VcjTOYQDckZl853rcJhD1fqmRKgoZ6DpoGOa3Eow+sm
PPVpiKo5+meEDwev9YcfyRnQ0DopcTZrAw7y5UNx/odpqFa42CdABIfnW8+1
iBjSUOhqY9bSRhxW27adLiCstTToeVMMB9/SC3J7j9AQkxkytVoCB1xb88B7
wk+GN16O34LDYIXFE52jNOTcWTQhLE3E//HTp5hwW00ffYs8Dk8YpuoxRjSU
+CbILVsRh0Th03vHCB8rFB5R2oGDFTezBI7REFfWU5ciZRyCT/z3PJnwO8rh
QQ1VHOhmdardhP3v/HZ8q4ZDuM6srtRxGlIN9+/T08ShRzT992nC9KuCpFot
HETKssXiCGddzP99bD8Oho1z7NeE7RzArkGHqMfkjaBuwhutOjut9XDY7LOt
cJ7wj6O+ZzoP4cDOKKUIGtNQtC7/L5IBDo+SxQ5IEdZXyz05bIiDjbH0Y3nC
i/J6P92NcEjJz+j6v19tbrdiHsfh9yXH/v+vvyLo1ex3AgfLg+ofNhBW4llr
sWiGQ1BhW/AiEa9/LrMh3BKHIeUNUr2E701qm66ywaFdMv1ZBWHrgZbvd07h
wP9ZY1cS4fXtl4yFzhLxXeMKSIQ/feP9SrHD4bDUKXlFwuFVGUaSJBwmV0H+
KFEv7dK9nzIdcYjeju/LJMwuaDRUdCHyjRDusSJcmHGx9pkrDhqrDmUsE/vh
SuYyUL+IQ0y6WHgOYeno++i1Bw5vlPbE6hPuDNE8dOAKUe+oHTUdxP6Svesr
q71wsCbHqLkTXmW7XFHvh0MW36vP/kR/VJnRtK0CcQDF+H8Y0U9Bh9Xe/rqG
g5T5RMQFwgwV57LBMKK+JxSoB4l+zJNZ0rx4EwfaDFMtk+hX0qbUkqlbOFRa
S2otEf3cvFL3Yj4Ghy1mhikZRL/HzZBUw+JwCNwktDhMnAfD8blCnrs4PGR3
DCkQftOy46lgCg73V1rOphLnKSMvIVc+A4cNMbk35HVoyNFwj17/I+L9OlU5
8sT5kxvqakvPxoGsXOAitZ/o723b14gW4DDf87hznji/Zek17lyviPuJISFn
1Il8dNy5K8tw8Ki1dN5KzAPdzg3pQW9xeCzAku9RpaHqTQ71zEoc7qln2B8h
5smP5DnV3i843KzS86xWpKEktYef730n4qf+4zdXIPa70dDxZAMOrfW7atuI
edUpQE6ub8Xhj5vFg4ZtNDQSrTJT0YvDNpOUH54SNLR83amcNoPDVHBrhRcx
T6u3rLWynsNht6pyAJmPhiLfPZ8QXMRB66NzzfO1NMS/sCQZtYKDHaTv/MlL
Q2J+1DA/PjaY3NRd1fqXinZ7fD9suY0NOipyyvkMKjp3SquB7wQbrBMi/Ls+
UpHTFrOscjM2vB8/Z3O8hoqcB938LlqyQXTU4VcJ8b9x9UyT+HSKDb9keYf8
K6jII2rJ7aYTG45oLKP3L6jI/3X1ylwAG569919nfY+K4jaZqY9ksUGcsSmo
/iIVJfx2403NZcObo3xf0l2p6G52+C+DfDaMR8uHuTlTUbJq8fXMQjawm3DN
aTvif3V04ze7N2w4FCJy4bMZFWUFdDm31LNhJbx6NE+Til63u6VWzbHBdbHO
UmeRgpK55TVgkQ0Xcmrjq2cp6JLqQCP6S8QT2ux0hE1B0lF2/DVcM6Anzx41
mKSgaC2LiI/8M+A+3977Xy8FnU7V9v4qPQPfLezVpaspaN5S4ESr0QyY5OSe
/X2bgnR+FPPQaTMgNqm+t4+HgmSOXphNPfIHmpfr/ebrU9Berb3kMvof0A+T
Wc+fREb97LvfcqNmoaz0pZm9STKa2mMVJaE5B9gtuljO17tIaVKVwf1zDgZK
r05mqcejOoWAVp+IedAyMZMzvRqLktraz1srLMBclFPo/N8oxLKpJvPULYDT
1rgaieLb6NWpTYY6vovQOKt3inU2AuU23H44JLoELiZvxryzw9H8F4dQ0dol
OBjoumiZEoIGyGhW2OsvrFe+WXMJC0RzLQckbm34B/c2ZxY96fFDPhS56uDK
f5DML1ky2O2DxBvkhEfOLYOyiPw6k+IryKa96J/UyjJ038l6N2DijtiO2Vd6
nq3ASBN3pd1GV4ScXkZtMOWAU+6vAI9MJ/Su6cqJPnMOLK31oa0kO6E3h5RF
XlhxgOkdDxm3nFCR1OMMszMciJu6JI27OaH0zvTSBBcO1L74UMal6oQCLKMH
+YM5MPDIne4e7IhU9EkH1+ZzYCPFxuNlHQkpvZTk7XjCgS7FoZOspyQkJ935
Nb+QAzz1pbchiYQ2/7M+aVTCgci/vmRhOxJaU378clQlB/rU8ir8MQc0qKZ1
n/cnBwK/yGeBjAPqeYSf+9nOgfAq/qqbaxxQp+BLhdxODhyOfFjeMmWPGid3
Fh/u40BY6i7l3Ap7VFmw7UvEBAdevGk5wXvSHpWL9SZYTXEAXZ99UKtrj0qj
0q1lWRxo7n1AJcvao2fnN/VV/+HAvtUjl8+x7NDj1tbc5HkOiFVWH3D4ZYey
DJI9nJY4sHaG+sDjgx3KKDZTU1/mwA8rnqjoPDuUtk1glsPhgOdyHv4q3g79
D31ZmqM=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{"DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None},
  PlotRange->{{0, 2}, {-0.021763382107713065`, 0.5397271872567838}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.6389583429348497`*^9},ExpressionUUID->"f2ce9b55-b177-449a-becb-\
3275c83f75da"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"InverseLaplaceTransform", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"s", "+", "3"}], ")"}], "/", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"s", "+", "3"}], ")"}], "^", "2"}], " ", "+", " ", "4"}], 
     ")"}]}], ",", "s", ",", "t"}], "]"}]], "Input",ExpressionUUID->"6368fa0c-\
28a6-43ec-a7f8-e67a4a9a4b04"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], " ", 
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "3"}], "-", 
      RowBox[{"2", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]], " ", 
  RowBox[{"(", 
   RowBox[{"1", "+", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"4", " ", "\[ImaginaryI]", " ", "t"}]]}], ")"}]}]], "Output",
 CellChangeTimes->{
  3.638958357784871*^9},ExpressionUUID->"c431ba64-2249-4842-bed6-\
f5f33deb4c2b"]
}, Open  ]],

Cell[TextData[{
 "Here we need to use Euler' s formula, ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["e", 
    RowBox[{"i", " ", "\[Theta]"}]], TraditionalForm]],ExpressionUUID->
  "97cdeac1-e7a7-4f00-a96e-4d2dc35b6891"],
 " = cos(\[Theta]) + i sin(\[Theta]), invoked by ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 "\[CloseCurlyQuote]s Complex Expand command to offer a \
\[OpenCurlyDoubleQuote]real\[CloseCurlyDoubleQuote] presentation of our \
transform."
}], "Text",
 CellChangeTimes->{{3.6389583629748783`*^9, 3.6389584425349894`*^9}, {
  3.638961562900358*^9, 
  3.6389615689903665`*^9}},ExpressionUUID->"e7a7d522-be9a-4cd9-822b-\
5582cb5f5122"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ComplexExpand", "[", 
  RowBox[{"InverseLaplaceTransform", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"s", "+", "3"}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"s", "+", "3"}], ")"}], "^", "2"}], " ", "+", " ", "4"}], 
      ")"}]}], ",", "s", ",", "t"}], "]"}], "]"}]], "Input",ExpressionUUID->\
"679ec61c-c147-48c5-9952-8439e38e99b7"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox["1", "2"], " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"-", "3"}], " ", "t"}]], " ", 
   RowBox[{"Cos", "[", 
    RowBox[{"2", " ", "t"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"-", "3"}], " ", "t"}]], " ", 
   RowBox[{"Cos", "[", 
    RowBox[{"2", " ", "t"}], "]"}], " ", 
   RowBox[{"Cos", "[", 
    RowBox[{"4", " ", "t"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"-", "3"}], " ", "t"}]], " ", 
   RowBox[{"Sin", "[", 
    RowBox[{"2", " ", "t"}], "]"}], " ", 
   RowBox[{"Sin", "[", 
    RowBox[{"4", " ", "t"}], "]"}]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       FractionBox["1", "2"]}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"-", "3"}], " ", "t"}]], " ", 
      RowBox[{"Sin", "[", 
       RowBox[{"2", " ", "t"}], "]"}]}], "-", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"-", "3"}], " ", "t"}]], " ", 
      RowBox[{"Cos", "[", 
       RowBox[{"4", " ", "t"}], "]"}], " ", 
      RowBox[{"Sin", "[", 
       RowBox[{"2", " ", "t"}], "]"}]}], "+", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"-", "3"}], " ", "t"}]], " ", 
      RowBox[{"Cos", "[", 
       RowBox[{"2", " ", "t"}], "]"}], " ", 
      RowBox[{"Sin", "[", 
       RowBox[{"4", " ", "t"}], "]"}]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{
  3.638958453505005*^9},ExpressionUUID->"6df042ea-7546-4fa9-838f-\
3536261a615a"]
}, Open  ]],

Cell["\<\
Further, we invoke Mathematica's TrigReduce command to use trigonometric \
identities to reduce our Inverse Laplace Transform to a simple form from \
which we could see so much, in this case a damped oscillator!\
\>", "Text",
 CellChangeTimes->{{3.638958459205013*^9, 3.6389585204250984`*^9}, {
  3.638961577740379*^9, 
  3.6389615946304026`*^9}},ExpressionUUID->"bbb197c9-1094-46a2-82c0-\
ce27bb3f9ff5"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TrigReduce", "[", 
  RowBox[{"ComplexExpand", "[", 
   RowBox[{"InverseLaplaceTransform", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"s", "+", "3"}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"s", "+", "3"}], ")"}], "^", "2"}], " ", "+", " ", "4"}], 
       ")"}]}], ",", "s", ",", "t"}], "]"}], "]"}], "]"}]], "Input",Expression\
UUID->"2a019cc0-a469-4ff9-9cd1-029b9e1d7ec0"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{
    RowBox[{"-", "3"}], " ", "t"}]], " ", 
  RowBox[{"Cos", "[", 
   RowBox[{"2", " ", "t"}], "]"}]}]], "Output",
 CellChangeTimes->{
  3.63895834296485*^9},ExpressionUUID->"2ac0bed5-27a3-4861-84bc-71fed8d1bcb9"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Let us take the Laplace Transform of general functions  and derivatives . . . \
.\
\>", "Subsubsection",ExpressionUUID->"9f92c725-81d6-4cbd-83d0-66b9c2a277da"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LaplaceTransform", "[", 
  RowBox[{
   RowBox[{"y", "[", "t", "]"}], ",", "t", ",", "s"}], "]"}]], "Input",Express\
ionUUID->"71fd9a1a-81d3-427b-a6d9-1102a1fc375e"],

Cell[BoxData[
 RowBox[{"LaplaceTransform", "[", 
  RowBox[{
   RowBox[{"y", "[", "t", "]"}], ",", "t", ",", "s"}], "]"}]], "Output",
 CellChangeTimes->{
  3.638958536905122*^9},ExpressionUUID->"9adb5df8-0630-4bd3-9a79-\
a20b8e66f5da"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LaplaceTransform", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"y", "'"}], "[", "t", "]"}], ",", "t", ",", "s"}], "]"}]], "Input",\
ExpressionUUID->"5994784b-faf2-4334-bf71-1e56b7a42bb3"],

Cell[BoxData[
 RowBox[{
  RowBox[{"s", " ", 
   RowBox[{"LaplaceTransform", "[", 
    RowBox[{
     RowBox[{"y", "[", "t", "]"}], ",", "t", ",", "s"}], "]"}]}], "-", 
  RowBox[{"y", "[", "0", "]"}]}]], "Output",
 CellChangeTimes->{
  3.6389585370251217`*^9},ExpressionUUID->"a148ef78-a3b4-4929-bc76-\
1b2942b14bf2"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["We take Laplace Transform of second derivative . . .", "Subsubsection",ExpressionUUID->"01215f39-e18b-47a5-8b32-add9ced1d5ee"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LaplaceTransform", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"y", "''"}], "[", "t", "]"}], ",", "t", ",", "s"}], 
  "]"}]], "Input",ExpressionUUID->"7da07e64-f3ed-4eff-b58c-e40cb24597be"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["s", "2"], " ", 
   RowBox[{"LaplaceTransform", "[", 
    RowBox[{
     RowBox[{"y", "[", "t", "]"}], ",", "t", ",", "s"}], "]"}]}], "-", 
  RowBox[{"s", " ", 
   RowBox[{"y", "[", "0", "]"}]}], "-", 
  RowBox[{
   SuperscriptBox["y", "\[Prime]",
    MultilineFunction->None], "[", "0", "]"}]}]], "Output",
 CellChangeTimes->{
  3.6389585370651217`*^9},ExpressionUUID->"8ee20853-b7f8-4b05-94c4-\
b27d08453ce5"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["We take Laplace Transform of third derivative . . .", "Subsubsection",ExpressionUUID->"6b6e1b2e-06e8-49bb-b4b2-79f7b4b43299"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LaplaceTransform", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"y", "'''"}], "[", "t", "]"}], ",", "t", ",", "s"}], 
  "]"}]], "Input",ExpressionUUID->"56dcf9f5-1b31-4357-9776-418b3117ed6e"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["s", "3"], " ", 
   RowBox[{"LaplaceTransform", "[", 
    RowBox[{
     RowBox[{"y", "[", "t", "]"}], ",", "t", ",", "s"}], "]"}]}], "-", 
  RowBox[{
   SuperscriptBox["s", "2"], " ", 
   RowBox[{"y", "[", "0", "]"}]}], "-", 
  RowBox[{"s", " ", 
   RowBox[{
    SuperscriptBox["y", "\[Prime]",
     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  RowBox[{
   SuperscriptBox["y", "\[Prime]\[Prime]",
    MultilineFunction->None], "[", "0", "]"}]}]], "Output",
 CellChangeTimes->{
  3.6389585371051216`*^9},ExpressionUUID->"72c6d8b0-0ecf-4aa3-bd65-\
cea4c4c13ffc"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["We take Laplace Transform of fourth derivative . . .", "Subsubsection",ExpressionUUID->"e0bc6b7d-d129-41a9-8c4a-5a472cde0229"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LaplaceTransform", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"y", "''''"}], "[", "t", "]"}], ",", "t", ",", "s"}], 
  "]"}]], "Input",ExpressionUUID->"d85283dc-784c-4b10-92a0-47ebe0876c1a"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["s", "4"], " ", 
   RowBox[{"LaplaceTransform", "[", 
    RowBox[{
     RowBox[{"y", "[", "t", "]"}], ",", "t", ",", "s"}], "]"}]}], "-", 
  RowBox[{
   SuperscriptBox["s", "3"], " ", 
   RowBox[{"y", "[", "0", "]"}]}], "-", 
  RowBox[{
   SuperscriptBox["s", "2"], " ", 
   RowBox[{
    SuperscriptBox["y", "\[Prime]",
     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  RowBox[{"s", " ", 
   RowBox[{
    SuperscriptBox["y", "\[Prime]\[Prime]",
     MultilineFunction->None], "[", "0", "]"}]}], "-", 
  RowBox[{
   SuperscriptBox["y", 
    TagBox[
     RowBox[{"(", "3", ")"}],
     Derivative],
    MultilineFunction->None], "[", "0", "]"}]}]], "Output",
 CellChangeTimes->{
  3.6389585371451216`*^9},ExpressionUUID->"81f7c879-a27b-454e-9741-\
62d715775f30"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Let us give LaplaceTransform[y[t],t,s] a name, say Y[s]. Then things look \
nicer.\
\>", "Subsubsection",ExpressionUUID->"e849b36f-644a-407a-86b4-502890b9b7d1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"LaplaceTransform", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"y", "'"}], "[", "t", "]"}], ",", "t", ",", "s"}], "]"}], "/.", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"LaplaceTransform", "[", 
     RowBox[{
      RowBox[{"y", "[", "t", "]"}], ",", "t", ",", "s"}], "]"}], "\[Rule]", 
    RowBox[{"Y", "[", "s", "]"}]}], "}"}]}]], "Input",ExpressionUUID->\
"12bf0f6f-ce4e-4537-918f-5e1b4f4967a4"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   RowBox[{"y", "[", "0", "]"}]}], "+", 
  RowBox[{"s", " ", 
   RowBox[{"Y", "[", "s", "]"}]}]}]], "Output",
 CellChangeTimes->{
  3.638958537205122*^9},ExpressionUUID->"6c78334b-6d8b-4dbf-97eb-\
175f2d881330"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"LaplaceTransform", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"y", "''"}], "[", "t", "]"}], ",", "t", ",", "s"}], "]"}], "/.", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"LaplaceTransform", "[", 
     RowBox[{
      RowBox[{"y", "[", "t", "]"}], ",", "t", ",", "s"}], "]"}], "\[Rule]", 
    RowBox[{"Y", "[", "s", "]"}]}], "}"}]}]], "Input",ExpressionUUID->\
"eb5adcd3-f76a-438c-b242-7f1b98cdbb7c"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", "s"}], " ", 
   RowBox[{"y", "[", "0", "]"}]}], "+", 
  RowBox[{
   SuperscriptBox["s", "2"], " ", 
   RowBox[{"Y", "[", "s", "]"}]}], "-", 
  RowBox[{
   SuperscriptBox["y", "\[Prime]",
    MultilineFunction->None], "[", "0", "]"}]}]], "Output",
 CellChangeTimes->{
  3.638958537265122*^9},ExpressionUUID->"b16dfe92-18dc-4bd0-8012-\
1e684a2df33e"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Can we take the Laplace Transform of a whole  differential equations? Let's \
try.\
\>", "Subsection",ExpressionUUID->"5b23ecc6-2271-4850-a8fc-f36df13350ec"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"eq", " ", "=", " ", 
  RowBox[{"LaplaceTransform", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"a", " ", 
       RowBox[{
        RowBox[{"y", "''"}], "[", "t", "]"}]}], " ", "+", " ", 
      RowBox[{"b", " ", 
       RowBox[{
        RowBox[{"y", "'"}], "[", "t", "]"}]}], "  ", "+", " ", 
      RowBox[{"c", " ", 
       RowBox[{"y", "[", "t", "]"}]}]}], "\[Equal]", 
     RowBox[{"Sin", "[", "t", "]"}]}], ",", "t", ",", "s"}], "]"}]}]], "Input",\
ExpressionUUID->"e2991b5e-b870-4d25-a029-7faea1f02e01"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"c", " ", 
    RowBox[{"LaplaceTransform", "[", 
     RowBox[{
      RowBox[{"y", "[", "t", "]"}], ",", "t", ",", "s"}], "]"}]}], "+", 
   RowBox[{"b", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"s", " ", 
       RowBox[{"LaplaceTransform", "[", 
        RowBox[{
         RowBox[{"y", "[", "t", "]"}], ",", "t", ",", "s"}], "]"}]}], "-", 
      RowBox[{"y", "[", "0", "]"}]}], ")"}]}], "+", 
   RowBox[{"a", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SuperscriptBox["s", "2"], " ", 
       RowBox[{"LaplaceTransform", "[", 
        RowBox[{
         RowBox[{"y", "[", "t", "]"}], ",", "t", ",", "s"}], "]"}]}], "-", 
      RowBox[{"s", " ", 
       RowBox[{"y", "[", "0", "]"}]}], "-", 
      RowBox[{
       SuperscriptBox["y", "\[Prime]",
        MultilineFunction->None], "[", "0", "]"}]}], ")"}]}]}], "\[Equal]", 
  FractionBox["1", 
   RowBox[{"1", "+", 
    SuperscriptBox["s", "2"]}]]}]], "Output",
 CellChangeTimes->{
  3.6389585506851406`*^9},ExpressionUUID->"28cf3ac3-dead-4c38-bd0c-\
f6e133f73757"]
}, Open  ]],

Cell["\<\
Let us try to replace LaplaceTransform[y[t],t,s] with Y[s] here too.\
\>", "Text",ExpressionUUID->"5d414aa8-c725-4683-b038-b6ac8c520acb"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"eq", "=", " ", 
  RowBox[{
   RowBox[{"LaplaceTransform", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"a", " ", 
        RowBox[{
         RowBox[{"y", "''"}], "[", "t", "]"}]}], " ", "+", " ", 
       RowBox[{"b", " ", 
        RowBox[{
         RowBox[{"y", "'"}], "[", "t", "]"}]}], "  ", "+", " ", 
       RowBox[{"c", " ", 
        RowBox[{"y", "[", "t", "]"}]}]}], "\[Equal]", 
      RowBox[{"Sin", "[", "t", "]"}]}], ",", "t", ",", "s"}], "]"}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"LaplaceTransform", "[", 
      RowBox[{
       RowBox[{"y", "[", "t", "]"}], ",", "t", ",", "s"}], "]"}], "\[Rule]", 
     RowBox[{"Y", "[", "s", "]"}]}], "}"}]}]}]], "Input",
 CellChangeTimes->{{3.6389585618151565`*^9, 
  3.6389585756051755`*^9}},ExpressionUUID->"90e719a5-c0ec-4e64-8e00-\
7129c076f15c"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"c", " ", 
    RowBox[{"Y", "[", "s", "]"}]}], "+", 
   RowBox[{"b", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"y", "[", "0", "]"}]}], "+", 
      RowBox[{"s", " ", 
       RowBox[{"Y", "[", "s", "]"}]}]}], ")"}]}], "+", 
   RowBox[{"a", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "s"}], " ", 
       RowBox[{"y", "[", "0", "]"}]}], "+", 
      RowBox[{
       SuperscriptBox["s", "2"], " ", 
       RowBox[{"Y", "[", "s", "]"}]}], "-", 
      RowBox[{
       SuperscriptBox["y", "\[Prime]",
        MultilineFunction->None], "[", "0", "]"}]}], ")"}]}]}], "\[Equal]", 
  FractionBox["1", 
   RowBox[{"1", "+", 
    SuperscriptBox["s", "2"]}]]}]], "Output",
 CellChangeTimes->{{3.638958557935151*^9, 
  3.6389585766251774`*^9}},ExpressionUUID->"3cacc8b0-39c1-4983-9ef4-\
3d82a3284119"]
}, Open  ]],

Cell["\<\
We can solve for the Laplace of the function in the above differential \
equation.\
\>", "Text",
 CellChangeTimes->{{3.638958592475199*^9, 
  3.638958594385202*^9}},ExpressionUUID->"47862f1b-6fd8-49fa-b207-\
502df4eadc9c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"YSol", "[", "s_", "]"}], " ", "=", 
  RowBox[{
   RowBox[{"Y", "[", "s", "]"}], "/.", 
   RowBox[{
    RowBox[{"Solve", "[", 
     RowBox[{"eq", ",", 
      RowBox[{"Y", "[", "s", "]"}]}], "]"}], "[", 
    RowBox[{"[", "1", "]"}], "]"}]}]}]], "Input",ExpressionUUID->"f25ab540-\
ac28-41a7-a76e-2e8c23147929"],

Cell[BoxData[
 FractionBox[
  RowBox[{"1", "+", 
   RowBox[{"b", " ", 
    RowBox[{"y", "[", "0", "]"}]}], "+", 
   RowBox[{"a", " ", "s", " ", 
    RowBox[{"y", "[", "0", "]"}]}], "+", 
   RowBox[{"b", " ", 
    SuperscriptBox["s", "2"], " ", 
    RowBox[{"y", "[", "0", "]"}]}], "+", 
   RowBox[{"a", " ", 
    SuperscriptBox["s", "3"], " ", 
    RowBox[{"y", "[", "0", "]"}]}], "+", 
   RowBox[{"a", " ", 
    RowBox[{
     SuperscriptBox["y", "\[Prime]",
      MultilineFunction->None], "[", "0", "]"}]}], "+", 
   RowBox[{"a", " ", 
    SuperscriptBox["s", "2"], " ", 
    RowBox[{
     SuperscriptBox["y", "\[Prime]",
      MultilineFunction->None], "[", "0", "]"}]}]}], 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"1", "+", 
     SuperscriptBox["s", "2"]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"c", "+", 
     RowBox[{"b", " ", "s"}], "+", 
     RowBox[{"a", " ", 
      SuperscriptBox["s", "2"]}]}], ")"}]}]]], "Output",
 CellChangeTimes->{
  3.6389585892351947`*^9},ExpressionUUID->"2d3b55c3-1ec7-45db-92a0-\
7bcf4201e75e"]
}, Open  ]],

Cell[TextData[{
 "Now if we could compute the Inverse Laplace Transform of Y (s) we would \
have the solution to our differential equation, y (t) . Let us do this. Our \
solution appears a bit on the \[OpenCurlyDoubleQuote]wild side\
\[CloseCurlyDoubleQuote] involving the constants a, b, and c, and the all too \
familiar radical",
 Cell[BoxData[
  FormBox[
   SqrtBox[
    RowBox[{
     SuperscriptBox["b", "2"], " ", "-", " ", 
     RowBox[{"4", "ac"}]}]], TraditionalForm]],ExpressionUUID->
  "ceb8158e-f107-405b-b823-876c6abe6b04"],
 " one obtains from the characteristic equation of the homogeneous portion of \
our original differential equation a y\[CloseCurlyQuote]\[CloseCurlyQuote](t) \
+ b y\[CloseCurlyQuote](t)   + c y(t)  = sin(t)  in using eigenvalue solution \
strategies."
}], "Text",
 CellChangeTimes->{{3.638958601035211*^9, 3.6389586432052703`*^9}, {
  3.638958681745324*^9, 3.638958831415534*^9}, {3.6389615976304064`*^9, 
  3.6389616189004364`*^9}},ExpressionUUID->"30624ba8-0224-4f4a-89ad-\
63c8c3613bd6"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"InverseLaplaceTransform", "[", 
   RowBox[{
    RowBox[{"YSol", "[", "s", "]"}], ",", "s", ",", "t"}], "]"}], "//", 
  "Simplify"}]], "Input",
 CellChangeTimes->{{3.6389586447352724`*^9, 
  3.6389586647753005`*^9}},ExpressionUUID->"77d4dbf0-bdfb-4a9b-b408-\
368cc76e4d32"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{"b", "+", 
          SqrtBox[
           RowBox[{
            SuperscriptBox["b", "2"], "-", 
            RowBox[{"4", " ", "a", " ", "c"}]}]]}], ")"}], " ", "t"}], 
       RowBox[{"2", " ", "a"}]]}]], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "2"}], " ", 
       SuperscriptBox["a", "2"]}], "-", 
      SuperscriptBox["b", "2"], "+", 
      RowBox[{"2", " ", "a", " ", "c"}], "+", 
      RowBox[{"b", " ", 
       SqrtBox[
        RowBox[{
         SuperscriptBox["b", "2"], "-", 
         RowBox[{"4", " ", "a", " ", "c"}]}]]}], "+", 
      RowBox[{"2", " ", 
       SuperscriptBox["a", "2"], " ", 
       SuperscriptBox["\[ExponentialE]", 
        FractionBox[
         RowBox[{
          SqrtBox[
           RowBox[{
            SuperscriptBox["b", "2"], "-", 
            RowBox[{"4", " ", "a", " ", "c"}]}]], " ", "t"}], "a"]]}], "+", 
      RowBox[{
       SuperscriptBox["b", "2"], " ", 
       SuperscriptBox["\[ExponentialE]", 
        FractionBox[
         RowBox[{
          SqrtBox[
           RowBox[{
            SuperscriptBox["b", "2"], "-", 
            RowBox[{"4", " ", "a", " ", "c"}]}]], " ", "t"}], "a"]]}], "-", 
      RowBox[{"2", " ", "a", " ", "c", " ", 
       SuperscriptBox["\[ExponentialE]", 
        FractionBox[
         RowBox[{
          SqrtBox[
           RowBox[{
            SuperscriptBox["b", "2"], "-", 
            RowBox[{"4", " ", "a", " ", "c"}]}]], " ", "t"}], "a"]]}], "+", 
      RowBox[{"b", " ", 
       SqrtBox[
        RowBox[{
         SuperscriptBox["b", "2"], "-", 
         RowBox[{"4", " ", "a", " ", "c"}]}]], " ", 
       SuperscriptBox["\[ExponentialE]", 
        FractionBox[
         RowBox[{
          SqrtBox[
           RowBox[{
            SuperscriptBox["b", "2"], "-", 
            RowBox[{"4", " ", "a", " ", "c"}]}]], " ", "t"}], "a"]]}], "-", 
      RowBox[{"2", " ", "b", " ", 
       SqrtBox[
        RowBox[{
         SuperscriptBox["b", "2"], "-", 
         RowBox[{"4", " ", "a", " ", "c"}]}]], " ", 
       SuperscriptBox["\[ExponentialE]", 
        FractionBox[
         RowBox[{
          RowBox[{"(", 
           RowBox[{"b", "+", 
            SqrtBox[
             RowBox[{
              SuperscriptBox["b", "2"], "-", 
              RowBox[{"4", " ", "a", " ", "c"}]}]]}], ")"}], " ", "t"}], 
         RowBox[{"2", " ", "a"}]]], " ", 
       RowBox[{"Cos", "[", "t", "]"}]}], "-", 
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{"a", "-", "c"}], ")"}], " ", 
       SqrtBox[
        RowBox[{
         SuperscriptBox["b", "2"], "-", 
         RowBox[{"4", " ", "a", " ", "c"}]}]], " ", 
       SuperscriptBox["\[ExponentialE]", 
        FractionBox[
         RowBox[{
          RowBox[{"(", 
           RowBox[{"b", "+", 
            SqrtBox[
             RowBox[{
              SuperscriptBox["b", "2"], "-", 
              RowBox[{"4", " ", "a", " ", "c"}]}]]}], ")"}], " ", "t"}], 
         RowBox[{"2", " ", "a"}]]], " ", 
       RowBox[{"Sin", "[", "t", "]"}]}], "-", 
      RowBox[{
       SuperscriptBox["a", "2"], " ", "b", " ", 
       RowBox[{"y", "[", "0", "]"}]}], "-", 
      RowBox[{
       SuperscriptBox["b", "3"], " ", 
       RowBox[{"y", "[", "0", "]"}]}], "+", 
      RowBox[{"2", " ", "a", " ", "b", " ", "c", " ", 
       RowBox[{"y", "[", "0", "]"}]}], "-", 
      RowBox[{"b", " ", 
       SuperscriptBox["c", "2"], " ", 
       RowBox[{"y", "[", "0", "]"}]}], "+", 
      RowBox[{
       SuperscriptBox["a", "2"], " ", 
       SqrtBox[
        RowBox[{
         SuperscriptBox["b", "2"], "-", 
         RowBox[{"4", " ", "a", " ", "c"}]}]], " ", 
       RowBox[{"y", "[", "0", "]"}]}], "+", 
      RowBox[{
       SuperscriptBox["b", "2"], " ", 
       SqrtBox[
        RowBox[{
         SuperscriptBox["b", "2"], "-", 
         RowBox[{"4", " ", "a", " ", "c"}]}]], " ", 
       RowBox[{"y", "[", "0", "]"}]}], "-", 
      RowBox[{"2", " ", "a", " ", "c", " ", 
       SqrtBox[
        RowBox[{
         SuperscriptBox["b", "2"], "-", 
         RowBox[{"4", " ", "a", " ", "c"}]}]], " ", 
       RowBox[{"y", "[", "0", "]"}]}], "+", 
      RowBox[{
       SuperscriptBox["c", "2"], " ", 
       SqrtBox[
        RowBox[{
         SuperscriptBox["b", "2"], "-", 
         RowBox[{"4", " ", "a", " ", "c"}]}]], " ", 
       RowBox[{"y", "[", "0", "]"}]}], "+", 
      RowBox[{
       SuperscriptBox["a", "2"], " ", "b", " ", 
       SuperscriptBox["\[ExponentialE]", 
        FractionBox[
         RowBox[{
          SqrtBox[
           RowBox[{
            SuperscriptBox["b", "2"], "-", 
            RowBox[{"4", " ", "a", " ", "c"}]}]], " ", "t"}], "a"]], " ", 
       RowBox[{"y", "[", "0", "]"}]}], "+", 
      RowBox[{
       SuperscriptBox["b", "3"], " ", 
       SuperscriptBox["\[ExponentialE]", 
        FractionBox[
         RowBox[{
          SqrtBox[
           RowBox[{
            SuperscriptBox["b", "2"], "-", 
            RowBox[{"4", " ", "a", " ", "c"}]}]], " ", "t"}], "a"]], " ", 
       RowBox[{"y", "[", "0", "]"}]}], "-", 
      RowBox[{"2", " ", "a", " ", "b", " ", "c", " ", 
       SuperscriptBox["\[ExponentialE]", 
        FractionBox[
         RowBox[{
          SqrtBox[
           RowBox[{
            SuperscriptBox["b", "2"], "-", 
            RowBox[{"4", " ", "a", " ", "c"}]}]], " ", "t"}], "a"]], " ", 
       RowBox[{"y", "[", "0", "]"}]}], "+", 
      RowBox[{"b", " ", 
       SuperscriptBox["c", "2"], " ", 
       SuperscriptBox["\[ExponentialE]", 
        FractionBox[
         RowBox[{
          SqrtBox[
           RowBox[{
            SuperscriptBox["b", "2"], "-", 
            RowBox[{"4", " ", "a", " ", "c"}]}]], " ", "t"}], "a"]], " ", 
       RowBox[{"y", "[", "0", "]"}]}], "+", 
      RowBox[{
       SuperscriptBox["a", "2"], " ", 
       SqrtBox[
        RowBox[{
         SuperscriptBox["b", "2"], "-", 
         RowBox[{"4", " ", "a", " ", "c"}]}]], " ", 
       SuperscriptBox["\[ExponentialE]", 
        FractionBox[
         RowBox[{
          SqrtBox[
           RowBox[{
            SuperscriptBox["b", "2"], "-", 
            RowBox[{"4", " ", "a", " ", "c"}]}]], " ", "t"}], "a"]], " ", 
       RowBox[{"y", "[", "0", "]"}]}], "+", 
      RowBox[{
       SuperscriptBox["b", "2"], " ", 
       SqrtBox[
        RowBox[{
         SuperscriptBox["b", "2"], "-", 
         RowBox[{"4", " ", "a", " ", "c"}]}]], " ", 
       SuperscriptBox["\[ExponentialE]", 
        FractionBox[
         RowBox[{
          SqrtBox[
           RowBox[{
            SuperscriptBox["b", "2"], "-", 
            RowBox[{"4", " ", "a", " ", "c"}]}]], " ", "t"}], "a"]], " ", 
       RowBox[{"y", "[", "0", "]"}]}], "-", 
      RowBox[{"2", " ", "a", " ", "c", " ", 
       SqrtBox[
        RowBox[{
         SuperscriptBox["b", "2"], "-", 
         RowBox[{"4", " ", "a", " ", "c"}]}]], " ", 
       SuperscriptBox["\[ExponentialE]", 
        FractionBox[
         RowBox[{
          SqrtBox[
           RowBox[{
            SuperscriptBox["b", "2"], "-", 
            RowBox[{"4", " ", "a", " ", "c"}]}]], " ", "t"}], "a"]], " ", 
       RowBox[{"y", "[", "0", "]"}]}], "+", 
      RowBox[{
       SuperscriptBox["c", "2"], " ", 
       SqrtBox[
        RowBox[{
         SuperscriptBox["b", "2"], "-", 
         RowBox[{"4", " ", "a", " ", "c"}]}]], " ", 
       SuperscriptBox["\[ExponentialE]", 
        FractionBox[
         RowBox[{
          SqrtBox[
           RowBox[{
            SuperscriptBox["b", "2"], "-", 
            RowBox[{"4", " ", "a", " ", "c"}]}]], " ", "t"}], "a"]], " ", 
       RowBox[{"y", "[", "0", "]"}]}], "-", 
      RowBox[{"2", " ", 
       SuperscriptBox["a", "3"], " ", 
       RowBox[{
        SuperscriptBox["y", "\[Prime]",
         MultilineFunction->None], "[", "0", "]"}]}], "-", 
      RowBox[{"2", " ", "a", " ", 
       SuperscriptBox["b", "2"], " ", 
       RowBox[{
        SuperscriptBox["y", "\[Prime]",
         MultilineFunction->None], "[", "0", "]"}]}], "+", 
      RowBox[{"4", " ", 
       SuperscriptBox["a", "2"], " ", "c", " ", 
       RowBox[{
        SuperscriptBox["y", "\[Prime]",
         MultilineFunction->None], "[", "0", "]"}]}], "-", 
      RowBox[{"2", " ", "a", " ", 
       SuperscriptBox["c", "2"], " ", 
       RowBox[{
        SuperscriptBox["y", "\[Prime]",
         MultilineFunction->None], "[", "0", "]"}]}], "+", 
      RowBox[{"2", " ", 
       SuperscriptBox["a", "3"], " ", 
       SuperscriptBox["\[ExponentialE]", 
        FractionBox[
         RowBox[{
          SqrtBox[
           RowBox[{
            SuperscriptBox["b", "2"], "-", 
            RowBox[{"4", " ", "a", " ", "c"}]}]], " ", "t"}], "a"]], " ", 
       RowBox[{
        SuperscriptBox["y", "\[Prime]",
         MultilineFunction->None], "[", "0", "]"}]}], "+", 
      RowBox[{"2", " ", "a", " ", 
       SuperscriptBox["b", "2"], " ", 
       SuperscriptBox["\[ExponentialE]", 
        FractionBox[
         RowBox[{
          SqrtBox[
           RowBox[{
            SuperscriptBox["b", "2"], "-", 
            RowBox[{"4", " ", "a", " ", "c"}]}]], " ", "t"}], "a"]], " ", 
       RowBox[{
        SuperscriptBox["y", "\[Prime]",
         MultilineFunction->None], "[", "0", "]"}]}], "-", 
      RowBox[{"4", " ", 
       SuperscriptBox["a", "2"], " ", "c", " ", 
       SuperscriptBox["\[ExponentialE]", 
        FractionBox[
         RowBox[{
          SqrtBox[
           RowBox[{
            SuperscriptBox["b", "2"], "-", 
            RowBox[{"4", " ", "a", " ", "c"}]}]], " ", "t"}], "a"]], " ", 
       RowBox[{
        SuperscriptBox["y", "\[Prime]",
         MultilineFunction->None], "[", "0", "]"}]}], "+", 
      RowBox[{"2", " ", "a", " ", 
       SuperscriptBox["c", "2"], " ", 
       SuperscriptBox["\[ExponentialE]", 
        FractionBox[
         RowBox[{
          SqrtBox[
           RowBox[{
            SuperscriptBox["b", "2"], "-", 
            RowBox[{"4", " ", "a", " ", "c"}]}]], " ", "t"}], "a"]], " ", 
       RowBox[{
        SuperscriptBox["y", "\[Prime]",
         MultilineFunction->None], "[", "0", "]"}]}]}], ")"}]}], ")"}], "/", 
  RowBox[{"(", 
   RowBox[{"2", " ", 
    SqrtBox[
     RowBox[{
      SuperscriptBox["b", "2"], "-", 
      RowBox[{"4", " ", "a", " ", "c"}]}]], " ", 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["a", "2"], "+", 
      SuperscriptBox["b", "2"], "-", 
      RowBox[{"2", " ", "a", " ", "c"}], "+", 
      SuperscriptBox["c", "2"]}], ")"}]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.6389586589652925`*^9, 
  3.638958667165304*^9}},ExpressionUUID->"b749795a-39a2-413b-8b79-\
449acc87f55e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "The ",
 StyleBox["Transfer function",
  FontWeight->"Bold",
  FontVariations->{"Underline"->True}],
 " of a differential equation such as \
a*y\[CloseCurlyQuote]\[CloseCurlyQuote](t) + b*y\[CloseCurlyQuote](t)   + \
c*y(t)  = sin(t)  is Q(s) = 1/ (a*",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["s", "2"], TraditionalForm]],ExpressionUUID->
  "9c97b164-e88a-4bf9-8d01-c76f0799ebbd"],
 " + b*s + c)  (1 over the denominator in the Laplace Transform of the \
solution)  and notice the coefficients a, b, and c, of the LHS or of the \
system - not the driver sin(t). This characterizes the system response and \
the roots of the characteristic equation, a*",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["s", "2"], TraditionalForm]],ExpressionUUID->
  "bac76e2c-3a79-440b-ad4e-2e3261e5bd82"],
 " + b*s + c = 0, are the characteristic roots or eigenvalues of this system. \
Engineers get to \"know\" systems and the systems' behaviors by their \
Transfer functions and the eigenvalues; electrical engineers  call the \
eigenvalues \"poles.\"\n\nIndeed, if we let y(0) = 0 and y'(0) = 0 then \
YSol[s] = L[s]*Q[s], and so Q[s] = Ysol[s]/L[s], where YSol[s] is the \
output's Laplace Transform and L[s] is the input's Laplace Transform. This \
effectively shows that the Laplace Transform of the Solution is \
\[OpenCurlyDoubleQuote]simply\[CloseCurlyDoubleQuote] a multiplication of \
Laplace Transform of the input or driver function, i.e. L[s], and the \
transfer function Q[s] = Q(s) = 1/ (a*",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["s", "2"], TraditionalForm]],ExpressionUUID->
  "a3243770-00c5-463f-b4d3-fe84abfa3e20"],
 " + b*s + c) . The latter contains all the \[OpenCurlyDoubleQuote]action\
\[CloseCurlyDoubleQuote] of the differential equation model terms   a*y\
\[CloseCurlyQuote]\[CloseCurlyQuote](t) + b*y\[CloseCurlyQuote](t)   + c y(t) \
while the former, L[s], contains the \[OpenCurlyDoubleQuote]action\
\[CloseCurlyDoubleQuote] of the driver function, in this case sin(t)."
}], "Subsubsection",
 CellChangeTimes->{{3.6389588419255486`*^9, 3.638959193896041*^9}, {
  3.6389593430162497`*^9, 3.6389593782462997`*^9}, {3.638961622310441*^9, 
  3.638961655700488*^9}},ExpressionUUID->"ab5e9dbc-0168-483a-bd14-\
c75c0fe7de12"],

Cell["\<\
So when we actually use reasonable initial conditions (y(0) = 0, no initial \
displacement, and y\[CloseCurlyQuote](0) = 0, no initial velocity - depending \
upon the driver to get some activity going) on the inverse Laplace Transform, \
YSol[s], of our differential equation \
a*y\[CloseCurlyQuote]\[CloseCurlyQuote](t) + b*y\[CloseCurlyQuote](t)   + \
c*y(t)  = sin(t)\
\>", "Text",
 CellChangeTimes->{{3.638959197346046*^9, 3.6389593409762473`*^9}, 
   3.6389616584804916`*^9},ExpressionUUID->"dad35a3b-0343-4042-88a4-\
55d8fa56c542"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"YSol", "[", "s", "]"}], "/.", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{"y", "[", "0", "]"}], "\[Rule]", "0"}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{"y", "'"}], "[", "0", "]"}], "\[Rule]", "0"}]}], 
   "}"}]}]], "Input",ExpressionUUID->"313bdd8c-5949-493b-bb8f-325651374647"],

Cell[BoxData[
 FractionBox["1", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"1", "+", 
     SuperscriptBox["s", "2"]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"c", "+", 
     RowBox[{"b", " ", "s"}], "+", 
     RowBox[{"a", " ", 
      SuperscriptBox["s", "2"]}]}], ")"}]}]]], "Output",
 CellChangeTimes->{
  3.6389591846560287`*^9},ExpressionUUID->"dd20dcb8-4fc3-4eaf-b3bb-\
f9c7782f9ea0"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "We try a specific example, one we know we can solve in several other ways - \
by hand, with ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " DSolve.  We consider \n\n\t\ty''(t) + 6 y'(t) + 5 y(t) = sin(t),    y(0) = \
4,    y'(0) = 0."
}], "Subsubsection",ExpressionUUID->"ef2dcc1c-da5e-4250-a913-614f2c1164d1"],

Cell["\<\
First we use DSolve and some formatting to grab the solution for comparison.\
\>", "Text",
 CellChangeTimes->{{3.638959476576437*^9, 
  3.6389595029564743`*^9}},ExpressionUUID->"202cf8ce-3293-4933-9764-\
610932d772b2"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ysol", "[", "t_", "]"}], " ", "=", " ", 
  RowBox[{
   RowBox[{
    RowBox[{"y", "[", "t", "]"}], "/.", 
    RowBox[{
     RowBox[{"DSolve", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"1", " ", 
            RowBox[{
             RowBox[{"y", "''"}], "[", "t", "]"}]}], " ", "+", " ", 
           RowBox[{"6", " ", 
            RowBox[{
             RowBox[{"y", "'"}], "[", "t", "]"}]}], "  ", "+", " ", 
           RowBox[{"5", " ", 
            RowBox[{"y", "[", "t", "]"}]}]}], "\[Equal]", 
          RowBox[{"Sin", "[", "t", "]"}]}], ",", 
         RowBox[{
          RowBox[{"y", "[", "0", "]"}], "\[Equal]", "4"}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"y", "'"}], "[", "0", "]"}], "\[Equal]", "0"}]}], "}"}], 
       ",", 
       RowBox[{"y", "[", "t", "]"}], ",", "t"}], "]"}], "[", 
     RowBox[{"[", "1", "]"}], "]"}]}], "//", "Expand"}]}]], "Input",
 CellChangeTimes->{{3.638959403956335*^9, 
  3.638959472266431*^9}},ExpressionUUID->"4a8c4a35-011d-4b6e-9278-\
8c5dde596620"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", 
    FractionBox["105", "104"]}], " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"-", "5"}], " ", "t"}]]}], "+", 
  FractionBox[
   RowBox[{"41", " ", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"-", "t"}]]}], "8"], "-", 
  FractionBox[
   RowBox[{"3", " ", 
    RowBox[{"Cos", "[", "t", "]"}]}], "26"], "+", 
  FractionBox[
   RowBox[{"Sin", "[", "t", "]"}], "13"]}]], "Output",
 CellChangeTimes->{{3.6389594620664167`*^9, 
  3.638959473646433*^9}},ExpressionUUID->"f520bd38-5c56-42e7-a6c8-\
833942d908d0"]
}, Open  ]],

Cell["\<\
We consider  this same differential equation and apply Laplace Transforms to \
all terms, i.e. both sides of the differential equation.\
\>", "Text",
 CellChangeTimes->{{3.638959518286495*^9, 3.6389595182964954`*^9}, {
  3.638959556646549*^9, 
  3.6389595968866053`*^9}},ExpressionUUID->"11b1110d-df84-40c1-87c7-\
9280d7fc2ffd"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"eq", " ", "=", " ", 
  RowBox[{
   RowBox[{"LaplaceTransform", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"1", " ", 
        RowBox[{
         RowBox[{"y", "''"}], "[", "t", "]"}]}], " ", "+", " ", 
       RowBox[{"6", " ", 
        RowBox[{
         RowBox[{"y", "'"}], "[", "t", "]"}]}], "  ", "+", " ", 
       RowBox[{"5", " ", 
        RowBox[{"y", "[", "t", "]"}]}]}], "\[Equal]", 
      RowBox[{"Sin", "[", "t", "]"}]}], ",", "t", ",", "s"}], "]"}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"LaplaceTransform", "[", 
       RowBox[{
        RowBox[{"y", "[", "t", "]"}], ",", "t", ",", "s"}], "]"}], "\[Rule]", 
      RowBox[{"Y", "[", "s", "]"}]}], ",", 
     RowBox[{
      RowBox[{"y", "[", "0", "]"}], "\[Rule]", "4"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"y", "'"}], "[", "0", "]"}], "\[Rule]", "0"}]}], 
    "}"}]}]}]], "Input",ExpressionUUID->"fc1b99c3-00d8-45c7-a154-\
6c9c3969aae0"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"-", "4"}], " ", "s"}], "+", 
   RowBox[{"5", " ", 
    RowBox[{"Y", "[", "s", "]"}]}], "+", 
   RowBox[{
    SuperscriptBox["s", "2"], " ", 
    RowBox[{"Y", "[", "s", "]"}]}], "+", 
   RowBox[{"6", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "4"}], "+", 
      RowBox[{"s", " ", 
       RowBox[{"Y", "[", "s", "]"}]}]}], ")"}]}]}], "\[Equal]", 
  FractionBox["1", 
   RowBox[{"1", "+", 
    SuperscriptBox["s", "2"]}]]}]], "Output",
 CellChangeTimes->{
  3.638959508006481*^9},ExpressionUUID->"283f3a5f-e1b6-4730-8619-\
999ac034f908"]
}, Open  ]],

Cell["\<\
Now we solve for Y[s], the Laplace Transform of y[t] in order to get ready \
for the inverse Laplace Transform.\
\>", "Text",ExpressionUUID->"aa38070b-b120-4cc6-b0db-de46d43fb77d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"L", "[", "s_", "]"}], " ", "=", 
  RowBox[{
   RowBox[{"Y", "[", "s", "]"}], "/.", 
   RowBox[{
    RowBox[{"Solve", "[", 
     RowBox[{"eq", ",", 
      RowBox[{"Y", "[", "s", "]"}]}], "]"}], "[", 
    RowBox[{"[", "1", "]"}], "]"}]}]}]], "Input",ExpressionUUID->"18ab9834-\
8b10-4082-9d10-86519daf3565"],

Cell[BoxData[
 FractionBox[
  RowBox[{"25", "+", 
   RowBox[{"4", " ", "s"}], "+", 
   RowBox[{"24", " ", 
    SuperscriptBox["s", "2"]}], "+", 
   RowBox[{"4", " ", 
    SuperscriptBox["s", "3"]}]}], 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"1", "+", 
     SuperscriptBox["s", "2"]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"5", "+", 
     RowBox[{"6", " ", "s"}], "+", 
     SuperscriptBox["s", "2"]}], ")"}]}]]], "Output",
 CellChangeTimes->{
  3.6389596012866116`*^9},ExpressionUUID->"675d9a33-974c-4aa4-b62b-\
df48e7204fbd"]
}, Open  ]],

Cell["\<\
Now we apply the inverse transform to get the solution for y[t].\
\>", "Text",ExpressionUUID->"44908fec-6c4d-4ef6-a752-a3821a477462"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"l", "[", "t_", "]"}], " ", "=", " ", 
  RowBox[{
   RowBox[{"InverseLaplaceTransform", "[", 
    RowBox[{
     RowBox[{"L", "[", "s", "]"}], ",", "s", ",", "t"}], "]"}], "//", 
   "Expand"}]}]], "Input",
 CellChangeTimes->{{3.6389596113766255`*^9, 
  3.6389596129766283`*^9}},ExpressionUUID->"65fca38e-f29d-4eae-a802-\
93939dd305c2"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", 
    FractionBox["105", "104"]}], " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"-", "5"}], " ", "t"}]]}], "+", 
  FractionBox[
   RowBox[{"41", " ", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"-", "t"}]]}], "8"], "-", 
  FractionBox[
   RowBox[{"3", " ", 
    RowBox[{"Cos", "[", "t", "]"}]}], "26"], "+", 
  FractionBox[
   RowBox[{"Sin", "[", "t", "]"}], "13"]}]], "Output",
 CellChangeTimes->{{3.638959604286616*^9, 
  3.6389596141466293`*^9}},ExpressionUUID->"04250e17-82da-46ab-a370-\
c29483327076"]
}, Open  ]]
}, Open  ]],

Cell[TextData[{
 "Notice the two portions of this soloution, namely the Transient solution ",
 Cell[BoxData[
  StyleBox[
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      FractionBox["105", "104"]}], " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", "5"}], " ", "t"}]]}], "+", 
    FractionBox[
     RowBox[{"41", " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"-", "t"}]]}], "8"]}],
   FontColor->RGBColor[0, 0, 1]]],
  CellChangeTimes->{{3.638959604286616*^9, 3.6389596141466293`*^9}},
  ExpressionUUID->"b008d276-44e5-4d06-8fa4-5e691796d5e9"],
 "and the Teady State ",
 Cell[BoxData[
  StyleBox[
   RowBox[{
    RowBox[{"-", 
     FractionBox[
      RowBox[{"3", " ", 
       RowBox[{"Cos", "[", "t", "]"}]}], "26"]}], "+", 
    FractionBox[
     RowBox[{"Sin", "[", "t", "]"}], "13"]}],
   FontColor->RGBColor[0, 0, 1]]],
  CellChangeTimes->{{3.638959604286616*^9, 3.6389596141466293`*^9}},
  ExpressionUUID->"6014ccd2-4cfd-4bf7-a26b-6f9ad458c31f"],
 ".  These would be produced by various hand techniques or ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 "\[CloseCurlyQuote]s DSolve approach which we show here."
}], "Subsubsection",
 CellChangeTimes->{{3.6425924685642524`*^9, 
  3.642592566164389*^9}},ExpressionUUID->"7b3baec8-7bfe-40f6-ab4e-\
09e863ed5b1a"],

Cell[CellGroupData[{

Cell["\<\
How does that compare to the DSolve solution? Exactly the same as we see \
when, again, we use DSolve to obtain a solution.\
\>", "Subsubsection",
 CellChangeTimes->{{3.6389596297866516`*^9, 3.6389596673867044`*^9}, 
   3.638961668690506*^9},ExpressionUUID->"032be331-318d-4290-83df-\
0669bb6132da"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ysol", "[", "t_", "]"}], " ", "=", " ", 
  RowBox[{
   RowBox[{
    RowBox[{"y", "[", "t", "]"}], "/.", 
    RowBox[{
     RowBox[{"DSolve", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"1", " ", 
            RowBox[{
             RowBox[{"y", "''"}], "[", "t", "]"}]}], " ", "+", " ", 
           RowBox[{"6", " ", 
            RowBox[{
             RowBox[{"y", "'"}], "[", "t", "]"}]}], "  ", "+", " ", 
           RowBox[{"5", " ", 
            RowBox[{"y", "[", "t", "]"}]}]}], "\[Equal]", 
          RowBox[{"Sin", "[", "t", "]"}]}], ",", 
         RowBox[{
          RowBox[{"y", "[", "0", "]"}], "\[Equal]", "4"}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"y", "'"}], "[", "0", "]"}], "\[Equal]", "0"}]}], "}"}], 
       ",", 
       RowBox[{"y", "[", "t", "]"}], ",", "t"}], "]"}], "[", 
     RowBox[{"[", "1", "]"}], "]"}]}], "//", "Expand"}]}]], "Input",
 CellChangeTimes->{{3.638959403956335*^9, 
  3.638959472266431*^9}},ExpressionUUID->"0276090f-0c90-4fee-8839-\
ed98a5805f5b"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", 
    FractionBox["105", "104"]}], " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"-", "5"}], " ", "t"}]]}], "+", 
  FractionBox[
   RowBox[{"41", " ", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"-", "t"}]]}], "8"], "-", 
  FractionBox[
   RowBox[{"3", " ", 
    RowBox[{"Cos", "[", "t", "]"}]}], "26"], "+", 
  FractionBox[
   RowBox[{"Sin", "[", "t", "]"}], "13"]}]], "Output",
 CellChangeTimes->{
  3.6389596698967075`*^9},ExpressionUUID->"8625e98a-ffea-4553-a1f2-\
eb4250f141fc"]
}, Open  ]]
}, Open  ]],

Cell["\<\
So what is the big deal?  Who would someone choose Laplace Transforms to \
solve a problem if DSolve or by hand can do it directly? 

Here is the point (well one of the many points of advantage) of Laplace \
Transforms. They convert calculus to algebra, then we play in algebra land, \
and then we return to calculus land. More formally, the Laplace Transform \
transforms the problem from the time domain (t) to the frequency domain in \
(s). \
\>", "Subsubsection",
 CellChangeTimes->{{3.6389596831367264`*^9, 3.6389597323967953`*^9}, 
   3.6389616725905113`*^9},ExpressionUUID->"c44a5a06-3e41-4047-b192-\
dca46ccd3d46"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
We consider two additional \"Real Good\" reasons for Laplace Transforms\
\>", "Subsection",
 CellChangeTimes->{{3.638959736716801*^9, 
  3.638959738146803*^9}},ExpressionUUID->"74d51bc5-cbea-4679-8230-\
fff4ea31cdc7"],

Cell[CellGroupData[{

Cell["\<\
Unit Step or Heaviside Function - what does this function do.\
\>", "Subsubsection",ExpressionUUID->"c5208768-b0a8-4e47-ae78-27daab7c49c5"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"f1", "[", "x_", "]"}], " ", "=", " ", 
  RowBox[{"UnitStep", "[", "x", "]"}]}]], "Input",ExpressionUUID->"f5e0ca0e-\
2432-4479-a8ab-4a3c685478b5"],

Cell[BoxData[
 RowBox[{"UnitStep", "[", "x", "]"}]], "Output",
 CellChangeTimes->{
  3.6389178856880107`*^9},ExpressionUUID->"e68948bd-f51a-4563-8583-\
107f6fadd721"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"f1", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "8"}], ",", "8"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Thickness", "[", ".01", "]"}], "}"}]}]}], "]"}]], "Input",Expres\
sionUUID->"13d9b378-ba6d-464a-8441-079b922181d0"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], Thickness[0.01], Opacity[1.], 
     LineBox[CompressedData["
1:eJxTTMoPSmViYGCwAmIQrWcv9ur/f/kDDFAQkqXe8fMXgl811ULt81cE//jr
qKRnrxH8hBnzb525juBP/KhxeuZ6BP/LYus1xvEI/i6OxLz0fXJwfv3Za68P
JsrC+S+XSoqby8jA+Vr3PTj570rB+UuEF3+52SQJ5x+OPtW7314CzpeZL6Mw
46EYnO/tHF15uVMUzpf/ndag6SkC5+uum9tQ9FYIzn9QslDv2gpBOD9zzsTF
c7IE4PyIukjlNUp8cL7Ga83okHnccH62X0Dro8cccH5Usb+tmRkbnD95/4uA
/duY4Xx7phtheoyMcH7WjUMFSz//2Q/j28xslNhV8R3Oz7j78Xak+Cc43/+B
ztoTKq/gfLP9s6+/arkH50vxsLycZ4zg/43I+RX06C6cf+STjexuewQ/WO1e
Uvev23B+Qa/CO+2Cm3D+yuilLLnRV+D8nhW8YopcCH7B11L1qzsuw/kW/W5e
tmII/rFDz/t5L15E8INDzGJ6z8H5lh9ik+8lH4Hzc3YteVl+5DCcP6/ldb6g
KoLPLFlZ4/LsIJw/s1lDO/TiPjj/gNrU/re3tsD5qruV5ijM2Qznd/lvWBEc
uwnOX/5hWnPx/vVw/rnJzC+4Ty6F82fskWMs8l4M5yc9tZS6cXYBnP8q98EM
j6XT4fy6/WKnRVZNgvOVlGb9OhjbDed7HmWLj0pvRPifVX/5g6clcD4ALQT3
Mw==
      "]], LineBox[CompressedData["
1:eJxTTMoPSmViYGBQAWIQbcmqv/zB0xJ7BjD4YN+yKO35ju8VcL70Ojd+l6I2
OL+KNfdqqMkEOD84iaFwr9YsOH/afc+2SQKL4Px8m7uKv9jWwPlLfHbc2/Bv
E5xfu9K7SuLrHjhfu/k914HSw3D+IpfN19d3XoHz1x9/t7I+4j6cv9fzlIXV
oZdw/utVizL9Ij7B+XPX6s3+svU7nL8nsU3UYPsfhH9EZl71F2J0gPHPXLji
cmkWM5xfeNpcrV+MDc5fct5FNO0EB5zfs2b7CnYfbjifcfIVz8OsfHC++MrV
x5d4CMD515Y3KLN2CML50au12ooeCcH5NrPZrY+qisD5j/t3flNpEYXztyjX
v1a8IwbnP1hcbsQiKwHnX9JwbfhcIQnny89yVTixVwrOn7Yq8qflH2k4//J+
p5s7QmXh/OyDcdyyM+TgfJ+GXVV8PvJwvp692Kv//xF8AMUyrgU=
      "]]}, {}}, {{}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{"DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None},
  PlotRange->{{-8, 8}, {0., 1.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.638917885738011*^9},ExpressionUUID->"8cea08e9-4cdb-48af-a5a5-\
5e9bd1938cfa"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"f2", "[", "x_", "]"}], " ", "=", " ", 
  RowBox[{"UnitStep", "[", 
   RowBox[{"x", "-", "3"}], "]"}]}]], "Input",ExpressionUUID->"ea4d853b-7ff5-\
4f19-8697-397939d49da1"],

Cell[BoxData[
 RowBox[{"UnitStep", "[", 
  RowBox[{
   RowBox[{"-", "3"}], "+", "x"}], "]"}]], "Output",
 CellChangeTimes->{
  3.6389178857480106`*^9},ExpressionUUID->"578468c2-4e2f-40ce-8393-\
55619f99046e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"f2", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "8"}], ",", "8"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Thickness", "[", ".01", "]"}], "}"}]}]}], "]"}]], "Input",Expres\
sionUUID->"9a742f11-eef1-43e1-899b-f282adc8259f"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], Thickness[0.01], Opacity[1.], 
     LineBox[CompressedData["
1:eJxFx30s1AEcx/HfcYlYJE/XzsOpccLNsh0qO8YfrDk0macmTHlaqqOHq/MY
KxuS2e7c6RK2tDturWOzcg6NedhM4sI5tBn3y4VjEptqy/f72d777MVIz7+a
aUIQRMTf/j2L46A/PHTtI/4vLsfz2d5vNL8h0MO4gx4ik9JXSPQNoXR2bAZd
t8kcFXWit1suyfxT0T3mabdv9bqAi8enSXWaM3itjeYYQKeDz+siLKy1Z8Ct
p1u2v5XRwAPJI9UqjhOYLqW7CZccwFfCkh99eW4Pdt2/WeIVaQf27Wgqubdu
C14saGZNvz0FzpbUtUhybMAJRYlnZe4nwUzSKznulSU4lxtTsfzdHJzEiw5m
s83A9arVGFWXKZhjoolnUSjgHE3/nTbjgerIl0WlTj0Pd8FZ2s25RMctcPSi
j3z4nB7MVoln9E8XwEEb1zMWMgbB3uU/T/QVDnCO3DlkaC9O0IE/RY4EXuxf
A5Pv3mRzE7bATXKWeFu5C/6YVmnv130A5tuJvkbbUkKOPDYxFT7ZaAruSkkK
VLeim1d13ooO9H2CtK3pR7v5UZYi9ejCWl+BOogKduFWKhUatPmsZbt0GW3M
rJPU/EAPCyTlecQxME/+PpbJRA9b6dalD9B3RwM8ah3MwGWHxtJ4Bvqlv0Lr
7IP+IGY2yELRv3Jp1JE8dJHV/hJ1AF0b0h08No5+XcAT1WvQ6nkyxt2Apsrn
VRzacXBVVG8TPx8tLuXvhfLRMiX7mkUFety500rYiF6Izc1KbUMbKjwHPRRo
G4P0sfIzmuGeMvNkAn0h3sk/fA4dVjVVY7mCjut9oZ/cQAuyZNbVO+g/eQYR
Yw==
      "]], LineBox[CompressedData["
1:eJxTTMoPSmViYGAQA2IQ3Tw9+EMRF4cDAxh8sG+LOvpXQxDBn97XGPlBGsGX
00821y5C8JecdxFNO4HgS9j9u2fGxQXn96zZvoLdhxvOZ5x8xfMwKx+cL75y
9fElHgJw/rXlDcqsHYJwfvRqrbaiR0Jwvs1sduujqiJw/uP+nd9UWkTh/C3K
9a8V74jB+Q8WlxuxyErA+Zc0XBs+V0jC+fKzXBVO7JWC86etivxp+Ucazr+8
3+nmjlBZOD/7YBy37Aw5ON+nYVcVn488nK9nL/bq/38EHwChQWGE
      "]]}, {}}, {{}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{"DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None},
  PlotRange->{{-8, 8}, {0., 1.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.638917885768011*^9},ExpressionUUID->"fde68c4c-c7bc-43a5-b5ac-\
ed67fcaa17d7"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "We could define our own unit step function with conditional or if \
statements as follows, but ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " already has it defined so we accept UnitStep[x] in ",
 StyleBox["Mathematica.",
  FontSlant->"Italic"],
 "\n      \n      unitstep(x) = 1, if x>0, and 0 otherwise."
}], "Subsubsection",
 CellChangeTimes->{
  3.642592349264086*^9},ExpressionUUID->"6e927bd3-81a3-4eba-a69e-\
aacf7da96180"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"unitstep", "[", "x_", "]"}], " ", "=", " ", 
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"x", ">", "0"}], ",", "1", ",", "0"}], "]"}]}]], "Input",Expressio\
nUUID->"921590ce-1271-45d7-ad6a-e4562fc4156f"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{"x", ">", "0"}], ",", "1", ",", "0"}], "]"}]], "Output",
 CellChangeTimes->{
  3.6389179021280336`*^9},ExpressionUUID->"8695f289-2f16-4a8e-95e2-\
a8ae03cc4ddb"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"unitstep", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "8"}], ",", "8"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Thickness", "[", ".01", "]"}], "}"}]}]}], "]"}]], "Input",Expres\
sionUUID->"c661539e-a85b-4c74-8f12-e800f0d2e357"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0.368417, 0.506779, 0.709798], Thickness[0.01], Opacity[1.], 
    LineBox[CompressedData["
1:eJxF1H0s1AEYB/C7vCTyGucl5zUvUdaqeQm7Vqe5GC00XJKzFBIpIytOZBS7
ytJ5iXJ3eS2GItHhiLxU3qm8pJW4VfKSuZRq1ff3bM+++/z3fP95DFnhB4+t
IZFIR37vn7SiUWZWV/UbSf/GM8QsZVlCOPaGren8IuE2sS/rg5jwUW7+q64h
wte+mndmlRNe4NmX7fAnXCcXcOr4Ez04vntQ3BRAhacF2po2urqwxbjzOuVR
HZi/gbcwclEbFjE70oU0LVg3X9eA+5YCu+xlnutL1YD1vwexNzPU4a33b7Ej
P6nBE2fvWA0WqcLBudd4uSEqsHecj3GZkRJsLt7M9MxTgEPdDlyafCcH+55x
d7S2loUzhB8PCB9KwbQ1w4esyGQ4ZLg5QjC/Ivxvh6wErbqYJfjE6NfXPppz
sPvElnvtm2Zga2HO0EzSGKyzXno6bwfhH94nJQcnR+GWOQfqYxphD9Mx1hXJ
azgi3eCzZcQIXMwUSIcx++G0IkWKoTzhiMUos4HaPtiWs2+/I4Xw0+YpjmJP
D2EPT+vD6c9hu1m/wLHAFvhkHX86ukUE5yWJw1VNCEtpnztP/9AEZyWaW3r1
PIEbTW9wPr2qhk0eG+Ua5FbBl90rijz8KuHC2czEM8Jy+HmG1EeFZwKYW69H
jnThwaz3djrD3bfhmbAJrrPgJhwnpHSql1yHjYyyJU1+V2BGq6y/7/EE4t47
3YqdojDYmbfaeNfSk/ZXs7SkgqCp2qUYeOP9fcr0yGQ4ViZswGvnVdiDRTrd
YJENZ44zkq+rFMDhDqOGEtkymO9aO1bxsxK+UOwSq7VYD1smfpFvjBLBBfSq
ofLUfri87XNxvPc43MDosN3VPA2LSwqC3bzn4Fv3rHIWHizB9QHJGttqVog+
6lkD7mrk3f/d9bKf3pstBZ/utDHlUGRh/gu6RlC7HJxWVlO01lUBJmf0M0Qy
SrBmcWkb31kFHixkG8ukqMLMUovkyEk12CFnrX2riTr8jvPo26YkDbjaOF5s
+IYCT/Cit0tTteBecyf2fIw2rJ/tZNDeoANnlvgs261shPuEe0ZqvahwaNMR
BSpXD3Zl18UquerD//45/AsrKKUE
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{"DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None},
  PlotRange->{{-8, 8}, {0., 1.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.638917902188034*^9},ExpressionUUID->"ffc5a44c-142a-45cf-bc0b-\
2d2b52fa1495"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Dirac Delta or Impulse Function ", "Subsubsection",ExpressionUUID->"50596c8c-6885-45aa-bed0-6b50bb2ada82"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"g", "[", "x_", "]"}], " ", "=", " ", 
  RowBox[{"DiracDelta", "[", "x", "]"}]}]], "Input",ExpressionUUID->"67a19b93-\
3e34-4345-bbc1-2e4884a53b83"],

Cell[BoxData[
 RowBox[{"DiracDelta", "[", "x", "]"}]], "Output",
 CellChangeTimes->{
  3.6389179111180463`*^9},ExpressionUUID->"7f9ddfe5-20ff-46af-9097-\
92e212293a54"]
}, Open  ]],

Cell["Strange plot . . . .", "Text",ExpressionUUID->"87107099-bb57-474e-8588-b11f6f0202a2"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"g", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "4"}], ",", "4"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Thickness", "[", ".01", "]"}], "}"}]}]}], "]"}]], "Input",Expres\
sionUUID->"ca0fd3de-9d79-4153-847e-de2035f3b169"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], Thickness[0.01], Opacity[1.], 
     LineBox[CompressedData["
1:eJxTTMoPSmViYGBQAGIQrWcv9ur/f/4DDFAQkqXe8fMXgl811ULt81cE//jr
qKRnrxH8hBnzb525juBP/KhxeuZ6BP/LYus1xvEI/i6OxLz0fXxwfv3Za68P
JvLC+S+XSoqby/DA+Vr3PTj573LB+UuEF3+52cQJ5x+OPtW7354DzpeZL6Mw
4yEbnO/tHF15uZMVzpf/ndag6ckC5+uum9tQ9JYJzn9QslDv2gpGOD9zzsTF
c7IY4PyIukjlNUr/9sP4Gq81o0Pm/Ybzs/0CWh89/gHnRxX725qZfYPzJ+9/
EbB/22c4357pRpge40c4P+vGoYKln9/A+TYzGyV2VTyH8zPufrwdKf4Izvd/
oLP2hMotON9s/+zrr1rOwfmWH2KT7yVvQfBZ9Zc/eJoC5wMAkuKJhA==
      "]], LineBox[CompressedData["
1:eJxTTMoPSmViYGDQA2IQrd38nutA6WZ7BihYf/zdyvqI83D+Xs9TFlaHbsL5
r1ctyvSLeATnz12rN/vL1udw/p7ENlGD7W/g/CqRmVf9hT7C+WcuXHG5NOsz
nF942lytX+wbnL/kvIto2okfcH7Pmu0r2H1+w/mMk694Hmb9B+eLr1x9fIkH
gwOMf215gzJrByOcH71aq63oEROcbzOb3fqoKguc/7h/5zeVFlY4f4ty/WvF
O2xw/oPF5UYsshxw/iUN14bPFZxwvvwsV4UTe7ng/GmrIn9a/uGG8y/vd7q5
I5QXzs8+GMctO4MPzk+af3PanrkIflRtiFLMYgTfw9LLcvY6BF9lo2m65FEE
/84CnsOinxB8n4ZdVXw+/HC+c5wp27pABN/KZsNE33AEX+PH0hU9SQg+S8HE
a1yVCP7e+Awj9mUI/hbbx3uXrUbw10jHebptRPBnXQ9OaN2D4Jf52/cxX0bw
c3V3SS6+geCncJsudbqH4Acd19rT+BLB91y61F3xPYLv0Kxw+cAXBN88cXZc
wi8EX89e7NX//wg+ALx9oCs=
      "]]}, {}}, {{}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{"DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None},
  PlotRange->{{-4, 4}, {-1., 1.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.638917911178046*^9},ExpressionUUID->"3172932e-cf38-45bf-8e96-\
4b848d99fe89"]
}, Open  ]],

Cell["\<\
We examine  the Dirac Delta function some more.  This function represents an \
instantaneous change.  E.g., we change the salt concentration by \"dumping\" \
in more salt ALL AT ONCE!  OR we \"shock\" a spring mass giving it an \
instantaneous force ALL AT ONCE!\
\>", "Text",
 CellChangeTimes->{{3.6389597780468593`*^9, 
  3.638959789386875*^9}},ExpressionUUID->"7a588f8d-f549-4b22-8ebf-\
a36a02ad5687"],

Cell["\<\
The integral of an interval containing x = 0 for the DiracDelta[x] function \
is 1. What this says is the impulse offered by a driver of the form \
DiracDelta[x] imparts force of size 1 unit to our system, BUT all at once \
like the quick bang of a hammer, rather than a gradual application of force.\
\>", "Text",
 CellChangeTimes->{{3.638959799286889*^9, 3.6389599276580687`*^9}, 
   3.6389616804305224`*^9},ExpressionUUID->"62c73ba9-5d83-4298-a99e-\
781ce8491979"],

Cell["We check out some properties of the DiracDelta[x] function.", "Text",
 CellChangeTimes->{{3.6389599326980753`*^9, 
  3.638959952878104*^9}},ExpressionUUID->"c40c88b4-ff89-4bfc-98e5-\
d30104f0bd1a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{"g", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "]"}]], "Input",ExpressionUUID->\
"25ef2152-74da-4340-9d72-a5934f0e82c2"],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{
  3.6389179112080464`*^9},ExpressionUUID->"6b0bd01f-b32d-4f5f-830b-\
acafd4095f9c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{"g", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", ".5", ",", "1"}], "}"}]}], "]"}]], "Input",ExpressionUUI\
D->"d6981c4a-2c12-4fe0-8fea-49a5eec3ee72"],

Cell[BoxData["0.`"], "Output",
 CellChangeTimes->{
  3.638917911218046*^9},ExpressionUUID->"c93770dc-5b5b-46aa-af19-\
21e1f0f4fbd9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"g", "[", ".1", "]"}]], "Input",ExpressionUUID->"bc47fc86-e8ed-445a-b162-8ec37cf5fcc3"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{
  3.6389179112280464`*^9},ExpressionUUID->"9f756d01-fc85-4028-9a90-\
014ef90baf90"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"g", "[", "0", "]"}]], "Input",ExpressionUUID->"f857865e-fa59-464d-88db-47ff953e7e24"],

Cell[BoxData[
 RowBox[{"DiracDelta", "[", "0", "]"}]], "Output",
 CellChangeTimes->{
  3.6389179112280464`*^9},ExpressionUUID->"abd41785-37ad-4dee-956c-\
a7b8158f4874"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"g", "[", "2", "]"}]], "Input",ExpressionUUID->"2e4be141-49d1-49a9-9e99-f26b79d17390"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{
  3.6389179112380466`*^9},ExpressionUUID->"8673926a-317e-480a-8c36-\
b4e30cfb3c42"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Transforms of UnitStep and Dirac Function - where does this fit into our \
Table of Laplace transforms?\
\>", "Subsubsection",ExpressionUUID->"970436b7-e190-4731-9a53-07ecb3316fa0"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "t_", "]"}], " ", "=", " ", 
   RowBox[{"UnitStep", "[", "t", "]"}]}], ";"}]], "Input",ExpressionUUID->\
"43f80ad8-e309-4a95-98f2-b1c9404163a7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LaplaceTransform", "[", 
  RowBox[{
   RowBox[{"f", "[", "t", "]"}], ",", "t", ",", "s"}], "]"}]], "Input",Express\
ionUUID->"78777561-0955-4681-adcf-685899fddbee"],

Cell[BoxData[
 FractionBox["1", "s"]], "Output",
 CellChangeTimes->{
  3.6389179226180625`*^9},ExpressionUUID->"b9a83ec7-1317-448a-9074-\
adeee58b7bd7"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"g", "[", "t_", "]"}], " ", "=", " ", 
   RowBox[{"DiracDelta", "[", "t", "]"}]}], ";"}]], "Input",ExpressionUUID->\
"2f670eb2-97d1-44bd-bed4-c2905ba2f9ca"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LaplaceTransform", "[", 
  RowBox[{
   RowBox[{"g", "[", "t", "]"}], ",", "t", ",", "s"}], "]"}]], "Input",Express\
ionUUID->"4cabacf8-d1da-4e4a-90e9-59f4c926e7bc"],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{
  3.638917922658063*^9},ExpressionUUID->"39b8ca83-d2c0-4c3a-b4bb-\
02a82a14a1df"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
UnitStep function represents a \"step\" or finite immediate change in \
something. DiracDelta function represents an instantaneous action at one \
point. . . zero elsewhere.\
\>", "Subsubsection",ExpressionUUID->"15a73c2c-772b-48da-8e0b-8752191fa3ee"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"del", "[", 
   RowBox[{"x_", ",", "a_"}], "]"}], " ", "=", " ", 
  RowBox[{
   RowBox[{"1", "/", 
    RowBox[{"(", 
     RowBox[{"2", "a"}], ")"}]}], 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"UnitStep", "[", 
      RowBox[{"x", "-", 
       RowBox[{"(", 
        RowBox[{"-", "a"}], ")"}]}], "]"}], " ", "-", " ", 
     RowBox[{"UnitStep", "[", 
      RowBox[{"x", "-", "a"}], "]"}]}], ")"}]}]}]], "Input",ExpressionUUID->\
"fa8e5741-5da4-4127-a5a1-2ef2a74136c3"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"-", 
    RowBox[{"UnitStep", "[", 
     RowBox[{
      RowBox[{"-", "a"}], "+", "x"}], "]"}]}], "+", 
   RowBox[{"UnitStep", "[", 
    RowBox[{"a", "+", "x"}], "]"}]}], 
  RowBox[{"2", " ", "a"}]]], "Output",
 CellChangeTimes->{
  3.63891793502808*^9},ExpressionUUID->"6506f030-efcb-405e-979c-cd190976693a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"del", "[", 
    RowBox[{"x", ",", "1"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "8"}], ",", "8"}], "}"}]}], "]"}]], "Input",ExpressionUUID->\
"659bc6f2-37c8-4268-a652-57ad8f1b5aa0"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
     1.], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwB2IQrWcv9ur/f/kDDFAQkqXe8fMXgl811ULt81cE//jr
qKRnrxH8hBnzb525juBP/KhxeuZ6BP/LYus1xvEI/i6OxLz0fXJwfv3Za68P
JsrC+S+XSoqby8jA+Vr3PTj570rB+UuEF3+52SQJ5x+OPtW7314CzpeZL6Mw
46EYnO/tHF15uVMUzpf/ndag6SkC5+uum9tQ9FYIzn9QslDv2gpBOD9zzsTF
c7IE4PyIukjlNUp8cL7Ga83okHnccH62X0Dro8cccH5Usb+tmRkbnD95/4uA
/duY4Xx7phtheoyMcH7WjUMFSz//2Q/j28xslNhV8R3O943qn26SjODHSc8V
W++L4NfP3SGyRAnBP7TwvUDfmW9wvvuqWM4kBQQ/aLflL84TX+D85Br3ypZN
CH6JbeiPf3MQ/Kn7C759LkTwbxxe/umuNIIfe0b09cb8z3B+xt2PtyPFP8H5
m/PvsLoxI/j/GI/rG73/COdPUZvTzHUcwT+Q76a9uwzB52YyDF2ehOCHTZGu
n+yH4L/Z8eFSthqCL8E0u0rm2geE/6a0LuE4hOCvUys492Utgu/i7ap0thXB
77+r77OzEMG/lS9VtjQWwS+Y8v5krSmCv1vt1udMRQSfVX/5g6ciCD4A+G7v
jw==
      "]], 
     LineBox[{{-0.9948979591836735, 0.5}, {-0.9934524953403985, 
      0.5}, {-0.9836490356684746, 0.5}, {-0.9738455759965507, 
      0.5}, {-0.8954178986211598, 0.5}, {-0.8169902212457688, 
      0.5}, {-0.646926426309618, 0.5}, {-0.4768626313734673, 
      0.5}, {-0.15929775096799562`, 0.5}, {0.1520309499165021, 0.5}, {
      0.48977653117173764`, 0.5}, {0.6473679670659405, 0.5}, {
      0.8049594029601433, 0.5}, {0.8903593409999293, 0.5}, {
      0.9757592790397152, 0.5}, {0.9864342712946883, 0.5}, {
      0.9948979591836735, 0.5}}], LineBox[CompressedData["
1:eJxTTMoPSmViYGCwBWIQzaq//MFTkQ/2DFBQtsYx6ZE8gt+3qEx9vymCv2zG
6jezvRH8fX0PNlYkIvjXWkTLQ8sRfPbCekb+xQh+hmewWNMvBL/BvuN2nMBH
OH+G6d4F1moI/klFde2vgQi+1q9f9hkrEfzXqxZl+kV8gvO/3cpgOpqL4DNw
68+2bkbwxbJ3n9FYh+A7aV/RZ2b5jLB/Neu37esRfJc1GU2K7F/h/Llr9WZ/
2fodzt+T2CZqsP0PnF8lMvOqvxCjA4x/5sIVl0uzmOH8wtPmav1ibHD+kvMu
omknOOD8njXbV7D7cMP5jJOveB5m5YPzxVeuPr7EQwDOv7a8QZm1QxDOj16t
1Vb0SAjOt5nNbn1UVQTOf9y/85tKiyicv0W5/rXiHTE4/8HiciMWWQk4/5KG
a8PnCkk4X36Wq8KJvVJw/rRVkT8t/0jD+Zf3O93cESoL52cfjOOWnSEH5yfN
vzltz1wEP6o2RClmMYLvYellOXsdgq+y0TRd8iiCf2cBz2HRTwi+T8OuKj4f
eTjfOc6UbV0ggm9ls2GibziCr/Fj6YqeJASfpWDiNa5KBH9vfIYR+zIEf4vt
473LViP4a6TjPN02IvizrgcntO5B8Mv87fuYLyP4ubq7JBffQPBTuE2XOt1D
8IOOa+1pfIngey5d6q74HsF3aFa4fOALgm+eODsu4ReCr2cv9ur/fwQfAIgw
1ho=
      "]]}, {}}, {{}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{"DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None},
  PlotRange->{{-8, 8}, {0., 0.5}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.63891793510808*^9},ExpressionUUID->"a3446b1f-7ed2-4bc0-a372-e77b576c6d90"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{"del", "[", 
    RowBox[{"x", ",", "1"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "100"}], ",", "100"}], "}"}]}], "]"}]], "Input",ExpressionUU\
ID->"05fba0f8-1d5f-4342-bb53-c331c8b574bd"],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{
  3.63891793514808*^9},ExpressionUUID->"e5e42d4c-cf07-4019-9d79-59fdb2572298"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
We examine an animation or a Manipulation of del[x,a] as a gets smaller an \
smaller. We say DiracDelta[x] is the limit of del[x,a] as a\[Rule]0. \
\>", "Subsubsection",
 CellChangeTimes->{{3.638959990778157*^9, 3.6389600262182064`*^9}, 
   3.6389600712482696`*^9},ExpressionUUID->"861ee5d0-359c-4a39-b896-\
565c7e027d03"],

Cell["\<\
Here are the plots in Manipulation to illustrate this point.  By clicking on \
the + box in this command one can see the values of a and by using the slider \
next to a one can see the effect of decreasing the value of a in the plot of \
the resulting function.\
\>", "Text",
 CellChangeTimes->{{3.6389601562383885`*^9, 3.6389602251584854`*^9}, {
  3.6389616861905303`*^9, 
  3.6389616998405495`*^9}},ExpressionUUID->"480a6553-09a7-4e95-a353-\
d021b9f84fa0"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"del", "[", 
      RowBox[{"x", ",", "a"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "8"}], ",", "8"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "8"}], ",", "8"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "10"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotPoints", "\[Rule]", "100"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"a", ",", "3", ",", ".001", ",", 
     RowBox[{"-", ".0001"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.638917979478142*^9, 3.6389180010181723`*^9}, {
  3.6389600901482964`*^9, 
  3.6389601417383685`*^9}},ExpressionUUID->"e36e2e4c-5979-43fc-a8d0-\
320a3b7e4729"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`a$$ = 3, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`a$$], 3, 0.001, -0.0001}}, Typeset`size$$ = {
    259.2, {85., 84.63191764802278}}, Typeset`update$$ = 0, 
    Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`a$97162$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`a$$ = 3}, 
      "ControllerVariables" :> {
        Hold[$CellContext`a$$, $CellContext`a$97162$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Plot[
        $CellContext`del[$CellContext`x, $CellContext`a$$], {$CellContext`x, \
-8, 8}, PlotRange -> {{-8, 8}, {0, 10}}, PlotPoints -> 100], 
      "Specifications" :> {{$CellContext`a$$, 3, 0.001, -0.0001}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{374., {140.2010498046875, 148.7989501953125}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.6389600766282773`*^9, 
  3.6389601715584097`*^9}},ExpressionUUID->"eac5192f-5e47-44eb-b88d-\
3c20eb0cf75a"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
We can combine UnitStep functions to turn things on and then off. Consider \
this function.\
\>", "Subsubsection",ExpressionUUID->"a35393f7-9284-4684-b9de-95572dd75fe2"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"h", "[", "x_", "]"}], " ", "=", " ", 
  RowBox[{
   RowBox[{"UnitStep", "[", 
    RowBox[{"x", "-", "3"}], "]"}], " ", "-", " ", 
   RowBox[{"UnitStep", "[", 
    RowBox[{"x", "-", "10"}], "]"}]}]}]], "Input",ExpressionUUID->"3b81ff00-\
85a6-488c-bc9b-2f261624ee32"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   RowBox[{"UnitStep", "[", 
    RowBox[{
     RowBox[{"-", "10"}], "+", "x"}], "]"}]}], "+", 
  RowBox[{"UnitStep", "[", 
   RowBox[{
    RowBox[{"-", "3"}], "+", "x"}], "]"}]}]], "Output",
 CellChangeTimes->{3.638918027238209*^9, 
  3.63896025756853*^9},ExpressionUUID->"cdd6be00-12ea-4fcd-bf77-b72b01138a24"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"h", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "20"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Thickness", "[", ".01", "]"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.63896025002852*^9, 
  3.638960255058527*^9}},ExpressionUUID->"d62a5c6a-246e-44b9-a47e-\
bfee11534c06"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], Thickness[0.01], Opacity[1.], 
     LineBox[CompressedData["
1:eJxTTMoPSmViYGBQB2IQPbcuic0wZbYdAxTMi3pjFa5QaQ/j3/TtKlJQ6ITz
y90j+VgVZsL5bkccYr7Lr4Tz1zaZNH+Q3wnnP0xcJ/ZW/iScXx2YnfBa/iac
z/lz9skcvVdwfuGh+p43RZ/hfL0lky9uWfcTzn/qlyFz34LBAcafLtUmuzCB
Gc7/9vjccr88BD9krbjRn2oEX8hhpVv4dAS/J/VMPu85BL9hg9ChSmsWOD/D
bX5akBgrnH+M/8WH/8oIvupNg+q1hgj+o+xD/Ry+CH7MxKc79jUj+AF3tLm1
PyL4lkU71jOfYYPzL/y3jiu8ieCn9e7nuf8MwZ+04ljmLkZ2OP/VvSvKheYI
fkNOxKV7Lgi+2K/bDT5BCL6z6OO76rkI/hzvj9PvLULwjW6WuPlsQPBPpP34
snMvgh/3pXqx+mkE/0vj/8CpNxD8Lv5mBuZnCP7cpunBHz4h+AA6aYn8
      "]], LineBox[CompressedData["
1:eJxTTMoPSmViYGCQAmIQnVybsYafl8OBAQw+2Pvu4OXx4UPwl72TPsbkguD/
U9Fq2FmJ4Cf8S8qYEsAJ5x++PjsgX50Lzv9lePa48w5uON+w55+dhCcvnO/+
zOq+QbgAnP9cd5vrlzeCcH71n07jPVXCcD674IvMEC1ROJ/1LKs7914xOP/3
ubU5kwol4Pyn4esk5eSk4HzHjrzcE2ul4fyp/3ZwOsfLwvnRMod97nyWg/N5
Dmi/UQpVgPNTTRd9jdRRhPPL6yqCFL4i+K2vJl8+d04Jzs/ourg310QZzvfR
4l/BMwvBl+GWXHfnNIK//MFTkT1/EHwAacZ0XA==
      "]], LineBox[CompressedData["
1:eJxNz1tI03EcBfC1lYpo1ETRpbVozbnmZYrSBXU5oZldsOxmUfu3S0PQQROC
2EMmeKuZtUgERTH1IdPI3KZbrpGWOTeNLIPKHmxtqF2mZi1ZWUH8jge+HD4v
Xzibz6oPKeg0Gk389/71iU2sWTGDI6L9TwDP1eNe4bCn2QZGIMyWtxnYwXA8
PcCYHgrvbFYaC9bB+e9iTTcjYOpipel+FFwcOW0ajYYr8+/0Bm2BHzoEZm0i
PFyoM9cnwxNBX8zGVNibfc/i3QVz+oX9cgms60yz7aNgrpRHdcphK5NFX6ta
8e/CL/FY8Yo9WYNDeVo4+nXe2NE6+C6t6L3UCdsP3/aX7NhKbHOqrwoYXOLu
wlKRYxLemJu5vbgnlli8fKqsScsjlk88mu89EkecUXrZQLH5xDfUc5YQDzx1
qc3dZN1GPKvokz+uEGBfETPQScUTd+WM+JXxCcRuVVIaYxFmdbzRVzgTicuk
51ucuUnEP/xRutw+mGepq7dzhMSpsicH11fBtobwSMcizLOFVx84mUy8f82n
mBdW2PvWNTDMTyFWN+jCqq7BjlWcr3uvw/xzZnuIHnYJPaW1t+DjQyJvXSOc
Nb/gaO+AIyQF5YNDsKbTS5UPw8+ZFemSEfjK5INvI6MwTRMqG38FzzTaMqc+
wHsYxza0foRbVZ+/KzzwmRRW1/QM/PKZJnpuDhYmBPu6F+AaffN4ySKcc9pZ
7fPB7QMypXkJXh23tFvrh6ma2piM37B1gftzeRn+A3Yn7eY=
      "]]}, {}}, {{}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{"DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None},
  PlotRange->{{0, 20}, {0., 1.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.638918027328209*^9, 
  3.6389602590785327`*^9},ExpressionUUID->"17e4403e-cf77-495d-9585-\
fb23ec0bb8da"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Suppose we have a mass spring system  and we want to see the effect of adding \
additional weight (force)  on the mass after it is in motion, say adding 5 \
units of force at time t = 2.\
\>", "Subsection",
 CellChangeTimes->{{3.638960269938548*^9, 
  3.6389602742185535`*^9}},ExpressionUUID->"032060f5-a1b8-44a3-83d4-\
4d253e7c08ef"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"eq", " ", "=", " ", 
  RowBox[{
   RowBox[{"LaplaceTransform", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"1", " ", 
        RowBox[{
         RowBox[{"y", "''"}], "[", "t", "]"}]}], " ", "+", " ", 
       RowBox[{"6", " ", 
        RowBox[{
         RowBox[{"y", "'"}], "[", "t", "]"}]}], "  ", "+", " ", 
       RowBox[{"5", " ", 
        RowBox[{"y", "[", "t", "]"}]}]}], "\[Equal]", 
      RowBox[{"5", " ", 
       RowBox[{"UnitStep", "[", 
        RowBox[{"t", "-", "2"}], "]"}]}]}], " ", ",", "t", ",", "s"}], "]"}], 
   "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"LaplaceTransform", "[", 
       RowBox[{
        RowBox[{"y", "[", "t", "]"}], ",", "t", ",", "s"}], "]"}], "\[Rule]", 
      RowBox[{"Y", "[", "s", "]"}]}], ",", 
     RowBox[{
      RowBox[{"y", "[", "0", "]"}], "\[Rule]", "4"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"y", "'"}], "[", "0", "]"}], "\[Rule]", "0"}]}], 
    "}"}]}]}]], "Input",ExpressionUUID->"30f7dd46-0447-4a9d-b01c-\
07899d781c2f"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"-", "4"}], " ", "s"}], "+", 
   RowBox[{"5", " ", 
    RowBox[{"Y", "[", "s", "]"}]}], "+", 
   RowBox[{
    SuperscriptBox["s", "2"], " ", 
    RowBox[{"Y", "[", "s", "]"}]}], "+", 
   RowBox[{"6", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "4"}], "+", 
      RowBox[{"s", " ", 
       RowBox[{"Y", "[", "s", "]"}]}]}], ")"}]}]}], "\[Equal]", 
  FractionBox[
   RowBox[{"5", " ", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      RowBox[{"-", "2"}], " ", "s"}]]}], "s"]}]], "Output",
 CellChangeTimes->{3.638917847867958*^9, 
  3.638960280108562*^9},ExpressionUUID->"76504f2f-4f8d-49a2-8956-\
deafebd2a7a6"]
}, Open  ]],

Cell["\<\
Now we solve for Y[s], the Laplace Transform of y[t] in order to get ready \
for the inverse Laplace Transform.\
\>", "Text",
 CellChangeTimes->{{3.638960282198565*^9, 
  3.6389602838285675`*^9}},ExpressionUUID->"81f2785d-c496-4b7d-80f2-\
7771171e8332"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"L", "[", "s_", "]"}], " ", "=", 
  RowBox[{
   RowBox[{"Y", "[", "s", "]"}], "/.", 
   RowBox[{
    RowBox[{"Solve", "[", 
     RowBox[{"eq", ",", 
      RowBox[{"Y", "[", "s", "]"}]}], "]"}], "[", 
    RowBox[{"[", "1", "]"}], "]"}]}]}]], "Input",ExpressionUUID->"6d63529c-\
a971-463a-b366-1f366135881b"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"-", "2"}], " ", "s"}]], " ", 
   RowBox[{"(", 
    RowBox[{"5", "+", 
     RowBox[{"24", " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"2", " ", "s"}]], " ", "s"}], "+", 
     RowBox[{"4", " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"2", " ", "s"}]], " ", 
      SuperscriptBox["s", "2"]}]}], ")"}]}], 
  RowBox[{"s", " ", 
   RowBox[{"(", 
    RowBox[{"5", "+", 
     RowBox[{"6", " ", "s"}], "+", 
     SuperscriptBox["s", "2"]}], ")"}]}]]], "Output",
 CellChangeTimes->{3.638917847907958*^9, 
  3.6389602855085697`*^9},ExpressionUUID->"7080f760-e09c-4681-9cb5-\
a6be8f0fa4d1"]
}, Open  ]],

Cell["\<\
Now we apply the Inverse Laplace Transform to get the solution for y[t].\
\>", "Text",
 CellChangeTimes->{{3.638960296918586*^9, 
  3.6389603017185926`*^9}},ExpressionUUID->"ca57e093-dfd6-4b67-8b74-\
d2c68c5bc850"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"yl", "[", "t_", "]"}], " ", "=", " ", 
  RowBox[{"InverseLaplaceTransform", "[", 
   RowBox[{
    RowBox[{"L", "[", "s", "]"}], ",", "s", ",", "t"}], "]"}]}]], "Input",Expr\
essionUUID->"5ed5dff2-052b-4b14-b1c4-c35aa7075efa"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "4"], " ", 
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{
    RowBox[{"-", "5"}], " ", "t"}]], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", "4"}], "+", 
    RowBox[{"20", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"4", " ", "t"}]]}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", "10"], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"5", " ", "t"}]]}], "-", 
       RowBox[{"5", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"2", "+", 
          RowBox[{"4", " ", "t"}]}]]}]}], ")"}], " ", 
     RowBox[{"HeavisideTheta", "[", 
      RowBox[{
       RowBox[{"-", "2"}], "+", "t"}], "]"}]}]}], ")"}]}]], "Output",
 CellChangeTimes->{3.638917847937958*^9, 
  3.638960305958598*^9},ExpressionUUID->"747f048a-fec3-4800-b149-\
18db5168b0db"]
}, Open  ]],

Cell["\<\
From the plot we see the change in the action at t = 2 due to our applying \
additional force at that time.\
\>", "Text",
 CellChangeTimes->{{3.6389603119586067`*^9, 3.6389603394886456`*^9}, 
   3.6389617025605536`*^9},ExpressionUUID->"40b2e4e6-1281-4857-bff3-\
ef7292eba90a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"yl", "[", "t", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "10"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "10"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "4"}], "}"}]}], "}"}]}]}], "]"}]], "Input",Expression\
UUID->"b59dc325-a99f-4c80-bc7f-69ce0d45db4c"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
     1.], LineBox[CompressedData["
1:eJwVTg001PkCncnTpph/HCurROWpk9ZGqHx0f3EorTZSqfckT8KozVJ7fGQL
STtYxKvRIR/FbhKaoofn9IElnq/UJrXxJMN8mRkzZjIzZt68e84999xz7rn3
rouIO3hqCY1GO6nn//XWxYilTpE5u0I0Oj0oUvY3oXuILROfVqapBvR+dH92
gq1tMjL2J9l46b3z9sE7y99mIO7ary4BWook7jnGMLRlgWFR/XlRQ5G2kMkk
XXQ+LM8u3XBITRF642OpZqQQWaviIwMXKGLXprZXqa9jurI1Sq6giF8nCVXa
3MSr2CX9u+UUiem7ck3uUwrruf9sc5dSJOd1b5c0uhzbuy2dxkUUCZn94qLS
txJXTDMOOfP1+YR7loqR26A3BW105VIkWRHwSM6swlvzki28CYpkp4j3y9TV
YP4YPHHgA0XqMlwuS2xqkHBy3NHjFUWeLB2xFnPuYYf9hzvt/RQZyk5uFvnc
R3BOX9qSFxSZK3wi4kc34OJWgeDBvymSkbO1U576AGke85vWN+n7+9NN5b4c
NMhfOgTVU6Q0yO7+3MhD6AKuV4vKKVJV9OOCtOIR3CaeVBwv1u//0eUnZTZi
UMiMLSjQ7x9jTojVTQjtcXb3SaPIxD/qLUQ2LRhPD0vQhlKEf0d3UjjTArMZ
bm11sP7PVCBHwGlFnef7Uct9FPlLrOxbvk8bwp5ZHIh2o4h9wo706einWEfb
FvzcmCJuuyfmJSPtiHIppHlzGMT9I6v0B88OrPId0aytZpBdl519JBUd4Jgm
LRspZpA9v18uEDM7sc7/r4XvLzHIUX97h1n17ziV4lcYEMAgF4JOhwtserDv
CFtwftyEaC+7fTWe2wO7BvOar4dMSNpj+vDwQg+yHO63vHhmQjJXF/u0vurF
+8M3DGsqTUjeVKc962ofvk88MLoxwoRUJK8V2YsHEdhtNvB0zJhMDs14Op14
BYHKqqa9dwUxWijpOeP4Dl6ZVcSeZUTi2y/lChMmsXnzZo1rlCFxrCp62VjP
w2D9jL/3CzoxL96qfNbDwzsn44m2FjpR5/Sv6f/Ew+v8nzi7a+nkxbkvYqas
+GCE1y4y8+gkwueC9surfPjd99ruephOrn+McEg8IcDAr66RTZ9oRGPrfGXn
ShEW8lacCFxBI1PfxawZ3yHBecuwH1hCDcy7zthd9JXgy5hvlpm90cDbK36L
9UEJaP99bVH7VIMKhxTPv5+WgHVlPpFRpEHostzQkVsSvPc6GnHTXYPh5w2l
g0ukSM/LTG7OVeOJi3LNsz4p3BKj34x5qsC2yrKuDJchzGhp2VCvEorJgd++
OytDSn7Jwu3HShyqW+WsuSBDTsmsQdZtJcxIjV8IWwZFkVr+U4oSuaf64kwG
ZEjPX63a5qBE2gOz9mQPOTakl9jU5ysQ41ceddBiHldbFC1XI+exM6G5waBP
gdTMdnh7yDCk8wiLH1Wg62EgbauDDFG/PDUe5ypguqJgucNqGQrvdjFb6Urc
aboxvFc9B/7Y6w3x25U43vgNtb5tDqXfStlj+l/J5t3Em8xBa7c5rSX5M8I7
pMK5ICk6RkoC4zaqcJfX+D3PSYx/RhyWz29TQR1n4pb3lRhRIkZxKlGh+cR5
oS9djOUGGeOsYypMdit5oqFZBDrGnK3KUcF9qIm9Nn4WY5kuuaNiFf7lkhaq
aBRB5dTf7dOsxiZDq3Nr9wnR15Z1urdTDf4H9p+GLkKU7SFU0Es1vh4oS9Fa
C7H7+KMjYXw1OJ/zbDbMCfDzzzenktZokD4ovbWjRACL8VMG9WkalMdOmrEk
fDjlandZ+i+iQ+ApjvqNB2emJrLuyCJq/Z3Etdd4cPFTZXtHLiLLlbXfIJUH
N5rizZlLi1hfszA9E8iD53nR2edNi2C3lc38op7B3tA/y2LXa3Hj2k2u06EZ
hG9p1baptbhXWfAwxWwaEUbNdgeNdLAtb6mc1XJxktu0b9pCh6rs21bnBFxE
VXBumDrrsJKzKaGuk4sz5jWOUTE6ZHTVunITuUjUsMOoP3SwSA22DZ2YQtLo
9cyqjzrsfedHhgemkPK46N5OiQ5s47crj7ZN4VYGO1gyp0NeOkt2t3kK/wMO
xSIM
      "]], LineBox[CompressedData["
1:eJwV13k4lF8bB/CZkSX7vi+z2EKLSkXq3FGkpEjJkrUkW4p+UZSlhCKSlJAo
lEKWCmUrlL2ERGWZkW3msZaE3vP+9Vyf68xZ7u89Z55raK6nrI5TSCSSI5lE
+v+zaPvGrqs8JNC/9jElMomFqrJN4oIFSbCwtD6PN5KFIGkXzVSCBBIDJnId
ASy044yxaR+VBMMaIay+gyxU62z0NVuDBKNXP36T3slCRvt3+JxeQ4IGBfH8
+o0stFMHJfIYkoBpW+B3SYaFTIcNfqyzIUHy14gcxUEmcu/4PHH1KAnUt3Pf
SOliosvVvgvf3Ujg8/2wx+kmJqpJyZSK9SOBZtiGOcYLJuq/ashg/keC9t1i
5Yt5TLQc0LVuawgJJBv0EjUzmWjrfn7z0WgSPGUVMf1vMJGd4UNbiCfByUfG
qfGRTBS4avuJ5NskWFRyGl4IYaJSrjPhu7JI0NMXPVHkw0RrX/W8evCaBOSq
+0vXDzCRxSP/+vlaEpyL3+g8bcZE3jeFPu//QAKOUtD+e8ZM9Nh7B7HUSQIz
sZdrijcz0Xvb3kXrPhLkGOZ2q6xnomGTs/xPB0kQMiNxqUmHiRi0x2p2BM5v
9ZJ3L52JjISNNzyfI4HdgmH8NmUmcv7bB3yLOJ+jtl5f5ZgorVPU4QUfGYa+
OulWizHR69onJ4VEyOC7Nl+eV5iJvhbsPHdMigz7FMNeXeZnIpmYwJvidDJI
nHYyoK5gok3nxDNOapLhSc5JQ0MyE1kfe/qseg0Z+hK711xbHkJnLE0qZPTI
4NkrpCW4OIQStve/992K56fI7qn8M4QKtc931e0gQx2Rmp/xewi1ykoyFXeT
4XZD4/miuSE0wZ0/5W9Bhooui87pmSEkMGP6r9Eaf/7TzhHn6SGk1T8gSLcn
Q/23VQN/J4fQ7pYL8kEuZPDWbJusJYaQe7mUZvsJMui9N99byhlCV3IK9DR8
ydBYM6vxiT2EHt4yM74YQAZ3E5MaWezasKEDnefJQGMMWEdNDKF+3xBHnTBs
1yAGFfufvYx3xFUySCk2+f0YH0LKZs+DvsaSgXI+LqIO23DT3qu6t8jANez1
6CO2HYN1KyqFDAWek3QuPD9I9FLmjwwyGEL4XlvsO0uyhZtyyJAeeeh0B/aL
saI3sc/IoKrjMuqHz/O527yJWUyGmn8HBXTx+WfeDX/ZWo7r40TrSuD6xItC
h29WkyHbk1wmjetfd19+drSeDCuXD5C3Tg0hi+sl5B0tZMjiSvO+hPPyCbIQ
udNBhm8xsU5DOM/r7iOKRA8ZbF137nDHeT85GK5l0k+G12YHL/Difvxc/WLX
7AQZ3uq9eJK5MIToIT7HtWfIkOveuycB99OhWfWK6x8yOK+vH0/B/W73THzX
zk2Buke56ksUJuIv38PkFaSAN12mxpqbiXatpKxA4hSIE1t1tI6Xicpz/Iyf
KVNgZ/xIISHIRLO/NNyYqhR4p1IemCvCRGtMfoQraFOAvt3DNVCcibKY+2qj
N1OAZ1G+3V6Wia7TtHe4H6BAroXBmKoaE9X7DTqnHaaAJskwOkaTiUjVd0M/
O1DAeMp0gAvfj7OOfNVGJymQbqmsuW4DEzneY21XCadAskaR3TEjJtKVyjD8
UkwBoYb1t8bc8H08ZuMgUk6BMf78KCcPJsouFg42qabAr88TCYPeTCRvFVJR
0kyBCbW2x2L/MdGKG3YGCSwKeCpqZAtEM1EXn9SWPTJccP8v14l1z5nowmL0
htfnuaB82kYknI+FWgPcbp0P44Jeg4H2YmEWorIN57ZEcQG7tVaALclC774R
L0qTuOD5RUvyWRoLCVYdMigo5AI1snPhZwMWSg+j7cgc5gKqfmLEQ18WquEp
s4iyWgHqM5fFoYeFeMVGTlprccOfxsTUtKJhxN3CbSrwhgf4rtQ+9N48ggR9
Ut2+veWB9QMza7O3jSBJoQ2hBY08cMdCgNpnPIJU9zmXHfzCA297SpW3HRhB
O1vKtVNneGBgsly7w2MEhbecEl2txQtjhnJ3ze+OIFJrT49FMi80Hl9Ndfs9
gv62PvO+eZoPFifvq/fmjCLljy73dgbywdL40jPuZ6PIqEOq8ddFPrCIkAvQ
KRpFMd0hGvbX+SDQtbHK9/Uoku3fN8jI4YM/0OBT3z6KNk2xbUr7+OB5zciK
t/OjyE9ijfEX05UQZamY+WfXGGLZ5MspK/ODq6rVj6LOMZR9ZKnWQZUf5gQJ
5fyeMeRha+59T4sfjvqo+2V/G0NjdmOVspv5ocXvx7441hiaPKp+TOIAP0SN
KKlunRtDi27p+Xzh/FC3K/cpv+Q4kvCLM55h8cPJjbeZ1/ePox1Rvj7vnwnA
jfM/bUIqx5F80Q+buBIBMNgXflesdhzN9h4wsq4QgMeLqiOZdeMoe+0Gmf73
AjBRur70dfM4Euz+Xf17SABYkpp7W76Ooy61MEkNeUHYL2W359ivceT1NrHi
SqQg3Ee/4gO1J1DS8quVxk5C8LVnaU9B7AQS1KjzTTouBGUh3tPH4yfQ5f0f
O3564fHBxxfkEyfQmYzRtOuBQpD0alA/5M4EsjCSX9+VIASffxxOWJU1gXgi
L9idfCcEaYUPV6q8mkCBQtvzbqwShn0d6V+v9k8ge8W35n0zwlCgQKnP0maj
MZ+p6dIFYfjQnOcivIaNAqtU7t4gi8DZYlniv3VsdNs1mGUkIgItYdLDO/TY
6FOu3sXHWiIwN24VULWdjfbo5Rb85yICu60Y1+ws2cjAIlZcrE0EhtN1tBTP
spFgtfYE/ZAo3GWutFV7yUaDdy3fXzoiCreW8rhEy9jopf+5h332ovDv0mGJ
P+Vs5Krx1uG2qyhUrZc7UV+Jx+PsWlb6iUKWyklui3o8fjQ6fzJGFG5zORmJ
d7LRq4Vhv8pqUThRUFh4boqNjutlztnqiEHr4dhnC2ocFBMnJRKyVgxC9Cxa
fTQ4KP9nlGbGejEwcChq/qHJQb/unrIf3iIGl/eyj1drc1DUsmHNmV1iUHKs
jh6gy0FPGrqvX3MUA5fP0VHZhhzEsRVSfRMvBnZHdX8ZWnHQuYuBVtQ5MSCl
GH86ep6DNCeCBa/Oi8Hm0sK43Asc9MU2rJ79Vww6rc+tnw7moC16MQYVFHHw
8WjYEH6Jg+bH79EPi4qD/A7jzUmXOei8bdX0NW1xECh7JBQVx0EXN/Ik/nYR
h7YYi3U5DzjoylhiR2urOPxxYT9deMdBl7tZjX8/ioPh54/Os3XY7zbXanaK
Q05VmwW7noPC03sLw3vFISgwprfvPV7PihG3aUQclkrIH4qaOei/8qLd6WQJ
WPH4znmDzxzkEfPxjc9GCbBq+Wb9ZpCDzLVEcgVTJMA2545F4RIH2b4/lbsq
TQJO6W8XDFrmIHf39lyTDAn48Y+1esc/DgrNTHgcmi0B7RHU+20kApXIS+bN
FkmAh6OXCYuLQIoCcvl9TRLwPeqc6OxKAk2M00ueLknA8oGS6kwpAsU+21Rt
7iIJqiIiTAdtAqk7a7o8OyYJBheFGKI6BKoUl6cIe0hCZMdMYy325Lkl4zZf
SUAaZ23U1xDI2uhdg2WwJCi2Kp0eXof367ZsO5wsCXkdJpJ7NxHoKcnnu3OL
JCztK/Z9DARqPJi1GKAvBf2rV3V0HCRQ0ZXBr/cMpWAbb7OpvTWBUl7SymqR
FDxO+WY5iO2pkHFW1EQKPq1I1SAOEWjlUConz0oKsuQeDHIdIdDuM7f7B72k
4Lt5+3c5BwLVxUe/O5AuBV+2NtIX3AhU3XLqug6XNKiseJCTeoZAGyVBIJlH
GiZ/Da6X8idQrp1oDJlfGly3ONnEYt/4WXi1S1QaAjqP+QQHEMiRPB0eqiwN
Yf4a3Yf+I9DixoCgz/rSQPItnJgLIpB+aqB7sJ80rBnc5MkOxfV4hkHzN2nw
UeJRaYrF+7k6v1cfkAbfR04vteII9MIWHQhjSkPbr5J/0dhlu5ecNo1LQ9ND
xwemN/B51YMuZcxLQ3flzNqqeAK1DPpVBkjIwEHu1OL7iQQasXM2VDKTgcrh
UCnNuwRS3ou2+JbIAMyXpLllEYhT47UU91IG9nd7sfOwq7bcqS0olwGT9Kcr
ZrGd1afMp6pl4KNscEzEQwJlkrNcAlpkwLFQcf7+IwJpvOK5dn5YBh557Axr
zSHQOrXWb5GysnBqo40/11MCGf9ziLgfjG17Or+zmEAZMfKjXKGy4J18RUu6
BOcj9cXCI0IWmrzIfoexX+gclNeNkQWvWyM2XdiadmbPa5NlYV9kUEZHKYEE
S/V+sIpkwd/K3PDdSwJ99hTeqjMqCxuSNT5frCDQsa6q6VeH5KBls0aZay2B
RAcak4aOyIFjbpJ3InbFeOcWYQc52JJ75c9bbHHyxEU3VzkQmnbLUH2L69eW
FRA+JQflpSfUmNjyYX4Mtyg5aD2Yr+5QR6CP2jRroQo5qGRGfFr3nkDbw8JL
XajysEVAZeRMC4F+G6a6BDPkoYm7XSIFu3C+VChZXR4kO9RpNdgMv9HjzTry
QP/JGBBuJRCf0wHpzfrywMU9Np+L3WGofE7QSh7KrvXe624jkMd82ZaXEfIQ
a+C8T+UTgW6emqoQ/CkPBkmhMke7CNSNUvm8xuSB2yhcNhRbUdT00Ae2PHx0
kF7MxM4pTOVcmZWHtDdHvEawX0+Z0v6RFWC5aW7idDeBhv3TI6cUFaC/sTHh
0hcCGQTuteyyUoDwU3G8kV8JNBj6aPh+pQJwXJMSdn4n0H/taX7vahTAZ2mI
1wmbn3p7YeSdAuib+50Mwl5fFSm8vkkBGpQiOM+wI5ZObHrXrQAZHocp0j8I
pHpeK3JkUgGuLBQ6DmK7+xeo6TIU4aJZso33AIHGj5cdq72qCFPvZeN2M3G/
G41uaF1ThE/lXirO2DprmstuximCz4WS1HPY3r++C7slKcLBCC/7bOyJyBVl
XFmK0LjdbJzCws7ZL7SrUhHEVrq4vcLmjLJKG2YVQUJbVEPqJ/598hHnbXFR
glsdDc53RwnkZDnq+/eYEuylxWrlYbdurO5a5aEE9+3XD7/GfvrXJzvSVwn4
vMw29GN7RH/YBReUYE/XgJr6GIH6H4ZeLr6lBA/EHP8rwG7r5ZBTGpRAfKRd
5NU4gfLNmhbdVyvDxTsf3LLYBNL+XuhzZZ0yJMt5FDzHzj1z+3vWBmWI9mMR
VdiZ91yq+/WVgdfo/v4+7CT27wg7E2UY8CBdk+QQKDhBVcDCSRnKksfmw7H3
9ITI6SUow6qBpHEbAvfXY90mrjlleMttPzo0SSBCLMf0+LwynF8XmDeJPV+u
ZNvwVxmKo9pcl7BXCgkEX6OoQLyi5XPpKZz3c1aNhKgKrHmQ2rob2/9Pyj5V
bRWwekMXz8MmxXAf3+WiAry3Pv05MY3vS97XxKstKiCgfVehboZAZzrSBwva
VWB3y4aqVuwPf111v3SoQOFdPfsv2IHm462aX1Ug4n5k8Dh2N/vvysZhFXjy
bcVxsVlczx1h4CFRobvl9id7bL7etS92y1FB58uu3ePYEc5nMlv2UuGDosDH
uTkCzS4rpkTso0KJ9oTbMrZ7WkOC/n4qsHvOEzy/8HpfFcMeWVGhVKx8UgZb
3LrBKcSWCpJFPqn62BmmikqrT1Ah4RpP+gXsN2vqk6+HU8Hscpf/AvbvRbnY
vWVUKIr1y2X+xt+fmb3Rf8qpoJ4aHDCOPTIWciXnNRVsKzsNprG/fhkI4aqm
Qt/h8Bf/sCtLHvtW1FPhU7aZp/w8gS576x/Q/kyFuO1PGiywRfuOSAgQVLg3
VBxUjK1ZkXy3UZUGBoVl+T5/CPT+tF+JvToNEruyP53B9tA0a5vQoIF0btz0
OezHSQsrRLRpUPndTj0cW8vvqN9BXRo4iG5zvI2trcYw7dtGg2sGfWKV2Gtu
5M+yD9PgyZbsNP4FAum51e0Xi6ZBqDVr5A624sNhg3cxNPDPag9Jw6aweNXP
XacBybhHOBO71X3PYt8NGujf36+Wh+3u2Zabe5sG95x0VN9g3zmN/+w+pMFy
fJB3P/bCJXaxbxUNeC6d3qb6F7+/UqVkm+doYJHVHPUA2yLtG831Nw1aVnst
P8TuTXukPT9Pg75A89O52L/S9ZDqIg0oiz8sCrBXPzjkHkyhQwX31dHX2CmP
kkp0ROjQJVaU3o0dkC9lGatJB464oIzAIs6zWirGwp4OV9VECjyxDeWO3+lz
oENkjdo5H2zLMyXZno504EmW2OaHfV714NtIFzrkP7hQexa7OSp+sfIEHeo+
5RWHYp+2FDi1NoAORw4vrbuNXT5IshaNpUObcW5mFfY+7gmlT5V0iL5k+Epw
Cd/vkYjFsGo6jDkbbxTBpjQr9OrW0oGSuz5fDPvVzb13Euro8Pv0x3vS2HRq
nrhlM95vAhyp2L8MPHnbe+jA9vUM24Cd7jcy2TJLh6bhYvMj2JO9zLcftBiw
KL98IBV7+iKjxkGHAcYfinXTsWdprpXEagZ8LyBEM7DnT/x4JaXLgIr3y41Z
2KTZnmcumxlQ6JGyOg9bVLAt+Y8xAyY965+VYa8zLPNadZQBvF4VDzqxT6XG
SkTfYEDZz/TElcs4H7IqsSeBAf0vLcwFsLVOlDcKJjKgavkClxA2U/dnWPxt
Bjzeau0jin2kASaT0xhgs526VgbbaHqmOTuPAe48Zt6q2NK77SLfNTDAp+Zl
5zZs/2eTLpEfGEC1SXBG2O3iV7ftbmLAcLLoGGBf+1Y829TKgMovK/4YY5P8
hdw6OhmwsJ/Fswd7LK0aDQ4xIDgoZugQtimXjcJDFgMkWXtsbbAferB/Hf/J
gK0hb1uOYDttkM8fHWOAR+FAkT325/f+ilNTDLhnM+Xjgq27hn++aAav73az
xxU7LjGjI2COAb0hs8bHsM0cW2Lm5xmgv4UkdQI7+62be/kCA45wP73ggb1i
1cKO4EUGGOkrDZzEdomLV9q+zICJn9a7vLArZ9T//PvHgAOq1rne2P8DnsKT
Rw==
      "]]}, {}}, {{}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{"DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None},
  PlotRange->{{0, 10}, {0, 4}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 0}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.638917847967958*^9, 
  3.6389603079286013`*^9},ExpressionUUID->"e04fda98-8d8f-45d9-b4a7-\
4731171a72ad"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Suppose we have a spring mass system  and we want to see the effect of \
hitting it with  spike force of 4 units of force after two (t = 2) seconds of \
\"usual\" motion.\
\>", "Subsection",
 CellChangeTimes->{
  3.6389603722086906`*^9},ExpressionUUID->"0608cf66-50eb-4492-8d1c-\
e208a5dcd8e4"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"eq", " ", "=", " ", 
  RowBox[{
   RowBox[{"LaplaceTransform", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"1", " ", 
        RowBox[{
         RowBox[{"y", "''"}], "[", "t", "]"}]}], " ", "+", " ", 
       RowBox[{"6", " ", 
        RowBox[{
         RowBox[{"y", "'"}], "[", "t", "]"}]}], "  ", "+", " ", 
       RowBox[{"5", " ", 
        RowBox[{"y", "[", "t", "]"}]}]}], "\[Equal]", 
      RowBox[{"4", " ", 
       RowBox[{"DiracDelta", "[", 
        RowBox[{"t", "-", "2"}], "]"}]}]}], " ", ",", "t", ",", "s"}], "]"}], 
   "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"LaplaceTransform", "[", 
       RowBox[{
        RowBox[{"y", "[", "t", "]"}], ",", "t", ",", "s"}], "]"}], "\[Rule]", 
      RowBox[{"Y", "[", "s", "]"}]}], ",", 
     RowBox[{
      RowBox[{"y", "[", "0", "]"}], "\[Rule]", "0"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"y", "'"}], "[", "0", "]"}], "\[Rule]", "0"}]}], 
    "}"}]}]}]], "Input",ExpressionUUID->"61cf1b26-1ad2-4a3a-b3bc-\
927eb02528ea"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"5", " ", 
    RowBox[{"Y", "[", "s", "]"}]}], "+", 
   RowBox[{"6", " ", "s", " ", 
    RowBox[{"Y", "[", "s", "]"}]}], "+", 
   RowBox[{
    SuperscriptBox["s", "2"], " ", 
    RowBox[{"Y", "[", "s", "]"}]}]}], "\[Equal]", 
  RowBox[{"4", " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"-", "2"}], " ", "s"}]]}]}]], "Output",
 CellChangeTimes->{
  3.6389178417379494`*^9},ExpressionUUID->"b0d93231-03b8-4c5b-935c-\
366a73e7017d"]
}, Open  ]],

Cell["\<\
Now we solve for Y[s], the Laplace Transform of y[t] in order to get ready \
for the inverse Laplace Transform.\
\>", "Text",ExpressionUUID->"b403dbc3-9351-4bf0-be96-9bb35d05c344"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"L", "[", "s_", "]"}], " ", "=", 
  RowBox[{
   RowBox[{"Y", "[", "s", "]"}], "/.", 
   RowBox[{
    RowBox[{"Solve", "[", 
     RowBox[{"eq", ",", 
      RowBox[{"Y", "[", "s", "]"}]}], "]"}], "[", 
    RowBox[{"[", "1", "]"}], "]"}]}]}]], "Input",ExpressionUUID->"cc4a056d-\
b993-4927-8f8e-bd464741b490"],

Cell[BoxData[
 FractionBox[
  RowBox[{"4", " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"-", "2"}], " ", "s"}]]}], 
  RowBox[{"5", "+", 
   RowBox[{"6", " ", "s"}], "+", 
   SuperscriptBox["s", "2"]}]]], "Output",
 CellChangeTimes->{
  3.6389178419179497`*^9},ExpressionUUID->"c787714e-1775-4190-a003-\
ede18a2a7a12"]
}, Open  ]],

Cell["Now we apply the transform to get the solution for y[t].", "Text",ExpressionUUID->"17cb33fb-33cd-44ee-b161-8a1ee0259ffa"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"yl", "[", "t_", "]"}], " ", "=", " ", 
  RowBox[{"InverseLaplaceTransform", "[", 
   RowBox[{
    RowBox[{"L", "[", "s", "]"}], ",", "s", ",", "t"}], "]"}]}]], "Input",Expr\
essionUUID->"37ccb9e3-f9fa-4b98-ba25-411f2a3ff68b"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{
    RowBox[{"-", "5"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "2"}], "+", "t"}], ")"}]}]], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", "1"}], "+", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"4", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "2"}], "+", "t"}], ")"}]}]]}], ")"}], " ", 
  RowBox[{"HeavisideTheta", "[", 
   RowBox[{
    RowBox[{"-", "2"}], "+", "t"}], "]"}]}]], "Output",
 CellChangeTimes->{
  3.63891784192795*^9},ExpressionUUID->"d4e04df1-be46-4199-a93f-e889a88fd813"]
}, Open  ]],

Cell["\<\
From the plot we see the change in the action at t = 2 due to our applying a \
spike force at that time. Up until the spring mass was at rest due to it \
initial conditions of y(0) = 0 and y\[CloseCurlyQuote](0) = 0.\
\>", "Text",
 CellChangeTimes->{{3.6389603119586067`*^9, 3.6389603394886456`*^9}, {
  3.6389603918787184`*^9, 
  3.6389604232187624`*^9}},ExpressionUUID->"e1598b8e-fe30-49ec-92e7-\
bf97de20d585"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"yl", "[", "t", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "10"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "10"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}]}], "]"}]], "Input",Expression\
UUID->"7e4336b4-e267-4224-a15f-677f55810cde"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
     1.], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAGIQPbcuic0wpduOAQrmRb2xClfItIfxb/p2FSkoVML5
5e6RfKwKnXC+2xGHmO/yM+H8tU0mzR/kV8L5DxPXib2V3wnnVwdmJ7yWPwnn
c/6cfTJH7xacX3iovudN0WM4X2/J5Itb1r2E85/6Zcjct/gA50+XapNdmPAZ
zrcs2rGe+cw3OP/w9dkB+eq/4PwpSaFfvhoj+Glv+WbUOCD4XMxN9zsjEfwA
vYy8Jd0I/r0Wk56b7xH8X4Znjzvv+A3nn9nTln3qCII/z92BP/Aigu8Yuzks
7hWC39Ex82mFzB84X+x+KvO6BgTfsOefnYTnXzjfKPNPytowBN/E7VeXUwqC
b8bw7VpOPYJvU/I27+BWBN8j5s68LKV/cL6X5a0j//URfG+xG6+m2CL4fhcu
m+2PQPBDXE6fE+5H8BN0dv3b8xvBT+LcoRLE+R/OT3621eu5GIKftmDjNEEj
BD9HZKVeWgaCn/dxWcjvUgQ//9ySqgnNCH5Rx4Jju+Yh+OV/psfxX0XwK25O
bVnyCMGv2jZ5leUHBH9u0/TgD58QfABbtsjH
      "]], LineBox[CompressedData["
1:eJwVlXc8Ft4Xx59h7z0eI4+nJKRkR86JilTIqiSFjGSrjCQUIisyEiqEvkIJ
WSEjDaOSbB4joSQZSeTn99d9vV/n3HM/5/M6916qnYepA4lAIHgTCYT/ryU6
Kp8jmAjIwOusUTkcCXW5B2IDOQhYt8rM4hCWCpi0n6rPT8BGK+Ge9RdZsNdb
T39AioCfiOUSR02LoeGMbl/uVgL+UWLq0SgvAV3jvW5eigTs+HHtZPazMtin
AIlM2gTsv7r0LTm4GvQndg/vPEZALrb1iwKqjeDY+el7xCkC6q5P5L93aYLr
9e4rQ/YEnJ9gkEpLa4aXaVmCMZ4EDGtiayubbAEtY7bDU5EEnLRMWH2wtxWs
tHNOYDwBf4+HjVobtoHfNh2nlGQCsh0u9x080g5lZO/Q/dkEFK+KuN8g/R52
VPRWPKgh4PCe2d+9qx/A6KHPq+UGAjKJLP7n5fYRXBM4Pxm/2eh3uCDlRf9H
eOS6d3ati4DKt/fSU552Ao36aIvVLAGd7pjZWep1gS6XnvLTRQLyNB+VuZXV
BWf+DiDLKgEnUpYWW9a7IKOLx7qchYitXH2sh0o/g3CUXwKfNBHTlYyFI5l6
QM2X7/45WSLqOppoRVj2gPnZx4X1ikR8nuD/tj6nB27p0F+7axGxdEgknqzd
C+zz+utvzYmot7aoGGfZB3L0EQ7pk0QMNFFZ2nmnDwzaLlP8bYnoeZqZ70Bf
H4TlFatudSfih+Y0tfFj/bB+Utj1WgQR1VQPyN7fOwCSB5/698UQMUW2Ty/G
bwC01Q5FKN0mInHIlGlT0QD481zNGr5PxPpL66f1BQdhvmmiR6uKiC3KPKkH
Pg0CX0nwREI9EZkys18uEIZg5z3KwtQrIp4sOcTnozAEbv5G3KmdROR30rBY
uDoEX7eX71/4vtGPH3FPgugwSF9xc5CfJ2Iw95HKO9rDYN26OczuDxGv72hd
eWAzDO9dEpveM5LQhOH5reZ7w8BWZTjOzEFCnisGUlO1w7CflcQAfCSMauye
kBgchqo8T71CSRLG20d5OLDTYWFpq/34ZhJ2UIcdtojSQfHAcKiYPAkTZV2e
XZShQ/b4kYZIdRIah1fUtAMdoqnyex1NSLhl3vjDbTc6vPIcPZNhSUIrT4F1
Vj86EOrvBH+yJuGT88czJELpcNGGpV73HAkLoknPZZLo8KSwbtjfg4Rup2Sd
N2XSYXr10vqTiySMKQtarMmlg83dLzqbQkloH5b27ns5HVKn020sb5Awd7RY
JLSWDp2a5kExsSS8fqzJsKGZDgY9DS/+ppHQu+D3loOddAjdGjC46wEJQ5TH
chJ66VBzSWntXB4Jw2QTS6OH6aAkeF+75xkJ6ydFFlOm6eB69pg1dxUJHaOW
Owpm6ZD7jCvwQD0JhZ/2xl1coAOd9OrulVckPBFYHbi0TAeK6ZXq0lYSulbc
7N2xRgfzByr93z6ScF/I7nFp4gjE/fy2It1Lwpo7bV3vGUaAIc5q960vJETW
ZE079hHQGeK1ev2NhAzyM4wGXCPgt/2N//ocCduH491meEagJDD4jtoyCX21
2BPM+Edg5p16pds/Ehqwu8RfFhwBWbHZnhwGMuZomoQ4Co+AnUvucj8bGZ/9
YPIXFB2B9MpTIvy8ZJx0j42IpIzAZxZBDUNhMtpXFFU0io0Az/HWYyESZNSm
Mws0i4+AYd413woaGbN2SmfESozA9aXdKbPbyNjEEmRGlRyBuv2/ymV2ktH1
avauoA1euf3o8yk1Mpq8UdqVu8Eq42eWbmuTcdD+x/60DXZXFhFq1SXjTcZP
p05ucH5ohyr5IBkvmVMdpzfqj34It9htTEa1s076BhssQdW56GVBxrq/KRMX
N/Qc91y8nX+SjAo5/FsubOhNqHtcOmxLRt2Q53S9jX5auc5+EnImY8TC9PwX
kRFgshFbOOJOxlz2QtWTG35g4Uf+sAtkZKl+4J+z4dfl1UjlmgAyGn+RjG/Y
8LP9gv3tgBAy2nRva4ngHQGpGe1FjRtkhJhycXHuEfB2ELL8HUvGObJQbDDH
CDQNzpaXJW34wXNEoJx1BIQs3whfSCfjvwCZnBdMI+DcnuW3K5uMpW/2KaaS
R4CjzmJ38RMyNlf5D79Z3Zhn9R133Z6TkeFkfqf0n435L2ZZla8l4wk/N2vT
RTpY3K9+kf+OjHYstnc1ZuiQGULdmzVBxpEUOU7Nfjr8/LPy4MzMhj9Nfuun
PtNB1/sTadMCGT+/VWc+84EOX+0imu4SGZC9w8vi3ys67Nw3o58kzoBzheoK
FU/o8JKp0uiGKQM6+trkVQTRQeBqQvGBEwzI9avrCGnjvjr+Ps/DeIYBw4tZ
spS96MA2KfkxxI0Bm+fEUo3t6WD65rrF5RsMuJ3rIHfgATqM3zSxdq9lwJUg
a14KKx2YeSfPmcsxopueYx2NcRiWIqz339vJiMmW7otFC0Mw8e+91LQaI3r8
92WP7PgQvPpe2X1VjxFbtnVKfG0YgvDXN/cXWDOiAke0Xs7G+8cUvINKimNE
oqBydPjSIDDNXuopnmfEu/6/KnoHBoCxjVGf/QUTiko0+q9k9MHf9kLXBC8W
jFfs/xP+qwu+HCsSlZRkQ6rsvwbFhQ+Qe3ytwXozG14tErW7OfEBnE8cdr0r
x4bkIB3duZ4PMG01XSuizobvzzDX9rz4AD9PyZzlN2FDIVElF6EbH2DVPrOI
JZQNT5k2xRlKfgB+z1i9+S9sSGMefhp69D3sveHu9rqQHf+Q+2qHctqAUjJ8
LLaUHVvl/O9Sottgod9E17yaHbvOKu5w8WmD3B3KwvTX7HgxIP3IPt024Oj+
Xf97bGP/L0upMXorfN4SIrCVwoHyYWFv66mtcL4xsTosnAMTI7iX8p6+haR/
Fax6pznROlOl9wLza+DY2uye5MCJKmurx1IWWuC68YfOr+c58R/rtNXrkRbw
vj+VEe3HicIJCs0WNS1gpEvZ9fkWJwbpF/JLeLcAU/hlq3NNnCjE+XbMnP4K
/Dh1CuK2caHD4sj+zS3NcFK88fDAPBduc71Qs6WmEabd5n6VrXDhK06GXJOC
RvCr23QnjsiN4j4LbyLTGiHZLvCLLjc3yrTyJ8r4N8LHfNWgR3LcWDedPM2i
3giGqvnFl2y5UWXLeotjWQPsNorh4+3gxvbojkDNmpfAUS//XdqCBwlmkmZv
hutg9M7R11eP8yBr2lMT7uY6eO7jmzNwkgfPHbz54Px/dWC3tdE62Y4H2wN+
zTte3IjHWrWxevKgfX2ejSPHRvxUZNHPKB4c970e76dTCxUrE5619TzoDyUG
HiU14KCatXhCgRcDpfKZl7sqISpWkPvKDl7M4z78rfZlJRR9vSF7f9cGm5Wl
JxVWwtIdj5MTGryomjGi7h1WCTf+ab/03s+Lm3hGVyZUK+G/lu7omza8ONAl
IV96pwJ+nODc/CKeF+PeTTRGuT4H3yA/U6lFXmTOmrr3VLsMZL8HckQs86J4
T4V2gVwZ9JwIeTXzlxfVGXlppSJloKEatbuaxIeHq6pT5xdKYfnbXWlLHj78
Qf9ev7WoFAJO1P26Kc+Hw6IssydopRCkwpT425YPqZLvVeNEnkHYdGJnezsf
trNxjz2SfwrXu7+8/fuBD+tFVdo4JTe4Sb1BtosPD3QzBAfyPIXQzP4nof18
6CUSLxGw+ASCTGmxapN8uJrLd2ix7glcqioxyCTyY09Hlti45RNwjvrwwk2F
H0uKrGM+iRTDYTnufI40fhRA4d5m2cdw4rVH/rYMfjQ63tE5xvcYHB3f5x+4
z4/POw918K0VQHDWrUfBufz43r8tMftDAZRSBAoWSvgxw6t9LPZyAYizixYN
vOPHf73P9UM+/gffv0mXPl7jx5Wt6Y6B0Y8gplCt/rCtACaP98VuUcwDmTOy
toVnBdDs3ojJXUoe1PJRSFzOAiinZ3KTypwHP33X9DrcBfBtxIzSaXoumOs2
tRwNFEDDYLemjMRcEO8+2mGZIoCF7X5C4msP4THBbehMmwC+fjkXVN+fA2/N
slcvaAoi17bwi+NNWVASNtp3V1sQL1iP7ZUqz4K059TKBhDEeTWVx055WeAi
dv8izwFBdK6VUxONygLWsfQfBaaC6LH1KJXJJAsMvJPpo+cFMTxqOWB98AE0
x0c2mWQKorTZo4FdpAdQ3+YRrUAWwvUws+rYzkxQEUD2FCYhHMr6lHqgMhPy
rXiiiGxCmDZ1ZUjgXibEfX0S8ZlHCMte/rRYcMkEG+Kv0GBJIbTuDhitIWfC
qsoF/0+aQrgt8yv3Wc0M0Ez3cwz0FMJPYszjUaV3ocQlBFsHhZBXulvDbSIV
VOzOvJYZEUK1y9apSR9SofwEmISMC6FhzvK5jppUqDRYO632TQh//hPZ5puY
CvUy/lfvLwvhHkmJkKS9qdA26ll7gV8Y5R728RAfpMCk1RltiYPCmL6cSFdy
TQbJQ6DhXiqMRW2uzLxKt+HHy/Nrsc+F8e5p85XD1NtQp5HaUFwljAsi6dpJ
vLfhjMzc4bl6YWSVH7lh+CsRsojZthfahJE6tqyiX5oIWyuYbgZMCONqk+Od
4N2JsHNL+2C4iAjqp+wgPjNOAL1162v3AkVw8P5omezdeLgfRZkiB4ug7qx2
iGhMPKwK9hg5XxPBf6kflYWuxkO5ghlFKUoEbX45yyjbx4Os1cGnDSki6Jup
sG1FPh44ylSHv5SI4EQzI8H5ahx8cuHSUpgSwXxy9pLMcAyc/Vz3q8JCFLUO
ir5eH4wCnpG3SWPHRTHO/IBx4+soqP7WpcFlLYpeCtfvpTyLAj7i9yB7O1Hk
mJFz9I6Mgjp5EXYuD1Fcat8tNqsaBZQQT5r9DVEMOsJR9+dWJHyQp5pzVoui
+57x7hWLG6ATElpmK0XB0CKWcjJ7OPzWTrcNpFHQq6pHZPZPGDxZLuNMkaHg
kV/Dz79OhgHNc8qhVYGCTzclhxBawoDltImQuiYFdz5zlem4Fgad2pK+HKYU
3FrR/6V7/To4L1dqPL9GwfnMThNT4nVI8Jir5vhKwVL2i939W0OhG9JZzk9T
cFKZ2zpVJBTEefQt3sxQsEi/tMyWNRTynqT/CFugoB8SX1C+hUDNnD51nSiG
Wygds5uLQ2DCJzN8TlwMex705sRrhsBuv0NHP5uKoRu9k/PKsWAYDX44ca9W
DPkCzZmZz1+BS+8zPJteiqGU107KvNkVYJNKXplsEkPibLH+nPYV2FUXzrXr
nRjyJ3RV0rivwLU1J7WmbjFU7mnzOF0aCJsD5MInf4phYKj47BZSIDj6FG9R
oolv/Ofi3XH/BcA3h8qzDRHi2GPntP+fvB9wvNWNk7spjlVe3XGewn6goNha
mRArjv17rc0XSH7gujTEZZ8kjnKngWdnny98D2eoJGeLY7fT+fJLkRucZ8y5
v1Ycjae015S/XYIfU1/KWhbEcWpH/Spb9UX46cbH3GYrgYlNbpdUI33g9NEp
979nJfB2tJVgib8PtKvUf97mLIHT66OMWi4+8PivW264+0a8obDU65APOEe+
2Y+XJbDXTEHTi8sH6DnB15/dlsBkAbLvk2Rv6Oj/QUxrkUD/2BzKj2IvKDr4
btVxuyTWW2g7eZI9QX7oiVvYTkkcs9+eMzfjAfneyUPZypLIPeI5JtjlAVl3
bevpmpK49lXLLjXbA5Jmfl+zOiCJJfvv1Fzb6wGBtzazG52WxGh/g8mJYHcw
7L0iqnpLEq+zVcb7c7rBhPNONfKiJJYOjne3WLnALG+evsOyJFYM6LBG7HOB
5SqJEy1/JZEW0MVwQtEFWDnZA2+SNuE7R2MxVZILKDz98pKfZxPaZ4dwtP53
Dnz+pB3ZLL8Jb8wl2zutOwMhitFhv+0mpGiPPZoqcwJKQV9iRNtGvofozXlz
B/DuzBwtfr8JlYN9Q2n7HODNXzulns5NWDTFXnVG2QH8Dn9rl+3bhAkvRetJ
fA7QPfOX9e3EJqz+asc43nEWDFO5kIkghWremwL5jM4CS/+OcgNRKdTd47bc
Y2YP1854Z7UdksKk74OHF0JtYeGfeNq1I1I4b7dlcd3HFhwzWm5pGkshf0it
nYiDLRj2iYc8NN3IP2ps56FvC3zmLaevnJBCSZvPjaUctnBfX1xiu5MUhnou
liXeOQMvFF+lRIdKYcA/LCvxOw2/V0VjDlVKoR5JSP2JvjX8nD8U+adKCudS
aYorO6xhcvpKWF6NFPaeusl0XMQa+npGrpDrpdDx71sR46mTUFv6yL36lRS6
Wr6cl40+CdddNU3kP0lhIH+g2pUuK+AZOM7PPiuFBP/RQxqXToBsdcqdt5up
2D4mp5j73RJee3mWnpSh4tKMxaPnfZbgLHuw4/tWKq7675Xvfm0Jj5JWGLjl
qejdclUYH1qCnOcpTzMlKhJkg89U2FiC/Baa/sAeKmpG3dbX/GQBinFFCzOW
VBRze1y+6405qNo3G/NGUtFpj3Lj+x5TEM+Z2N0URcWi3wclul6bAukLs4xv
NBVz2vcxfq0whXZHw9WBOCqOiS2ZKN8xBUeXjvz8ZComGX1McbUyhVSvXiLm
UHFuzZz5+PBRWLk688y9jopBSiKXm3+ZQH26oEjrIhVvT+9Ns71sBEYZg1S7
31Q8UCbSoGNvBP0ZD+WXl6novuTFtOOQESxlqsLm1Y3zl3bkG4gZwfYHFo6B
JGnMvMdfYFNzBNIeJpUqcEvjaVOhYhbSEbhQJHg0RlYaP1tLCs2mHQLZesEo
o5PSKLJbUX1t3QC0RR1SB6yl0fZcCV/SdwM46l2a62IjjVr03n9avQYQsNms
MdxWGvWumveVlxhA64341VonaTxoVn/8tKMBeB1l99hxQRqzWShOXu/1oWqU
YM4TI40+Sl9VDhUfgCOM3yU+1koj6/aY6sCkfZA/eW01pF4a75vm6m69vg9I
rWL9Sg3SmC6YaEf33gcVCYdSbzVLY+StV1pBJvtAWqqA72jrRv1/P9ccOfbB
0m4X5ve90rjH6YnqaLgeZHpO/mxbkMbYfXPS28N14Wf/eOMbORpmkW6sPChA
+BVEe2mtQENSDY/0jUyEBapd7ex2GpKvHE3yu4Ww7DRcIahEw0Vyjo6fLwJh
obfQVp2Gu7Jjq+f0EHg4OlL+6NEwhl3nc/QLgJ3alee3naLh1x+nEoPVdcAj
PYY/Mo6GrvJugYV2WtBK3DxreIuG3y6E6eUbaoGcU9VbjkQa6iRri1fs0oJx
pa8h8ck0rN70uEKIrAXHW/BnSgYN+7ZS0ttydoPur/nW3AIaRjD9UOX7rglC
BlbhTS00zN57a+flSA3wKfxpG/6GhiuBg3GLPhrwni9ij8E7GnLRWzpCbTTg
5uCzhXftNOz3NizuUtYAgg+nfWcXDTvzlqVODqvDdEY9jI7RcPpcSMZnTXXQ
Jx8Ty/lCw5058va+W9Qhx3lmyeErDZ2u7maW41WH08qUoqlpGp5/MFrQNKkG
n177iM/NbeiJHnvWlqoGSopsyyXzNAwb7an4e10NYhPvd15YpOFIhZGUlpca
HLRpi1pepmHdi7e9MwfVILfR3rFqhYYM1f6ctmpqwLBtZW/g6oafdSuOX6TV
wDY2XkLnHw2t7PW6A7jVoHZe5s/6Og0T3SyNqauq8D+2fGPV
      "]]}, {}}, {{}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{"DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None},
  PlotRange->{{0, 10}, {0, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 0}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.6389178419579496`*^9},ExpressionUUID->"5ae71f32-1ead-4602-8715-\
59afe7ce7449"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Let us consider a tank system in which we \"dump\" stuff (DiracDelta \
function) and we alter amounts suddenly (UnitStep function).  First the \
system without any drastic dumping. Can you draw a scenario for this system \
given the equations?\
\>", "Subsection",
 CellChangeTimes->{
  3.6389180521282434`*^9, {3.6389604556488075`*^9, 
   3.6389604686788263`*^9}},ExpressionUUID->"cb37d3ec-3273-41e1-982c-\
66b2632f862c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"eq", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"x", "'"}], "[", "t", "]"}], "\[Equal]", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"4", "*", 
         RowBox[{"y", "[", "t", "]"}]}], ")"}], "/", "200"}], "-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"7", "*", 
         RowBox[{"x", "[", "t", "]"}]}], ")"}], "/", "200"}]}]}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{"y", "'"}], "[", "t", "]"}], "\[Equal]", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"7", "*", 
         RowBox[{"x", "[", "t", "]"}]}], ")"}], "/", "200"}], "-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"7", "*", 
         RowBox[{"y", "[", "t", "]"}]}], ")"}], "/", "200"}]}]}], ",", 
    RowBox[{
     RowBox[{"x", "[", "0", "]"}], "\[Equal]", "50"}], ",", 
    RowBox[{
     RowBox[{"y", "[", "0", "]"}], "\[Equal]", "0"}]}], "}"}]}]], "Input",Expr\
essionUUID->"ef9a4e59-e1ff-4852-b2af-e726e5f35353"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["x", "\[Prime]",
      MultilineFunction->None], "[", "t", "]"}], "\[Equal]", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       RowBox[{"7", " ", 
        RowBox[{"x", "[", "t", "]"}]}], "200"]}], "+", 
     FractionBox[
      RowBox[{"y", "[", "t", "]"}], "50"]}]}], ",", 
   RowBox[{
    RowBox[{
     SuperscriptBox["y", "\[Prime]",
      MultilineFunction->None], "[", "t", "]"}], "\[Equal]", 
    RowBox[{
     FractionBox[
      RowBox[{"7", " ", 
       RowBox[{"x", "[", "t", "]"}]}], "200"], "-", 
     FractionBox[
      RowBox[{"7", " ", 
       RowBox[{"y", "[", "t", "]"}]}], "200"]}]}], ",", 
   RowBox[{
    RowBox[{"x", "[", "0", "]"}], "\[Equal]", "50"}], ",", 
   RowBox[{
    RowBox[{"y", "[", "0", "]"}], "\[Equal]", "0"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.6389180376782236`*^9},ExpressionUUID->"ce539111-fbfd-4db8-9b17-\
27fd936e0632"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"sol", "=", 
  RowBox[{"DSolve", "[", 
   RowBox[{"eq", ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"x", "[", "t", "]"}], ",", 
      RowBox[{"y", "[", "t", "]"}]}], "}"}], ",", "t"}], "]"}]}]], "Input",Exp\
ressionUUID->"f41f4865-9bae-4022-b033-780908d444c9"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{"x", "[", "t", "]"}], "\[Rule]", 
     RowBox[{"25", " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"-", 
         FractionBox[
          RowBox[{"7", " ", "t"}], "200"]}], "-", 
        FractionBox[
         RowBox[{
          SqrtBox["7"], " ", "t"}], "100"]}]], " ", 
      RowBox[{"(", 
       RowBox[{"1", "+", 
        SuperscriptBox["\[ExponentialE]", 
         FractionBox[
          RowBox[{
           SqrtBox["7"], " ", "t"}], "50"]]}], ")"}]}]}], ",", 
    RowBox[{
     RowBox[{"y", "[", "t", "]"}], "\[Rule]", 
     RowBox[{
      FractionBox["25", "2"], " ", 
      SqrtBox["7"], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"-", 
         FractionBox[
          RowBox[{"7", " ", "t"}], "200"]}], "-", 
        FractionBox[
         RowBox[{
          SqrtBox["7"], " ", "t"}], "100"]}]], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        SuperscriptBox["\[ExponentialE]", 
         FractionBox[
          RowBox[{
           SqrtBox["7"], " ", "t"}], "50"]]}], ")"}]}]}]}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.638918038328224*^9},ExpressionUUID->"5e7aded6-f0e1-45ca-aed0-\
9bdcebe740c6"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"xs", "[", "t_", "]"}], "=", 
   RowBox[{
    RowBox[{"x", "[", "t", "]"}], "/.", 
    RowBox[{"sol", "[", 
     RowBox[{"[", "1", "]"}], "]"}]}]}], ";", 
  RowBox[{
   RowBox[{"ys", "[", "t_", "]"}], "=", 
   RowBox[{
    RowBox[{"y", "[", "t", "]"}], "/.", 
    RowBox[{"sol", "[", 
     RowBox[{"[", "1", "]"}], "]"}]}]}], ";"}]], "Input",ExpressionUUID->\
"c7c773f6-3eaa-4105-87a3-ce8c48efa91c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"xs", "[", "t", "]"}], ",", 
     RowBox[{"ys", "[", "t", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "100"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "100"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "50"}], "}"}]}], "}"}]}]}], "]"}]], "Input",Expressio\
nUUID->"624de286-0273-4ed3-9891-50890f35dbd4"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJwVkHs0lAkAR2dikRK1obRJxtegqYa8yuP7ETOzRR4V32wpUWaECKU2QiWq
3ag99CCzNTStiExp5ZFEJGus7VByKHm1ymvIK822f9xz/7zn3JX+YV7759Bo
NLdv/G/DlFlxlv4Th9gD6l0KBQ/cQ5K5oUIRKVaVig2nePB8x0oxFhaQeVoh
O3mjPHhfHfJUET4mq9dFSDK7eaDGPdaPC2Qk7b3knPA5D3wxPfujoJN0+fKA
88tvPPw0zd/VLxgin42p0aZNeGgjztj0ChRkcX/YR8YeLnKO078q+Wqht8i9
+nG9CzSkogKJ+xLUaVX25x51RibnyxwzDQNIuCJt5a2bkOV/8r0O1wiy3eSp
dFMn2N/o2/fcxhjRq7rvFFo6ou7CrQzlOBaK3ww07uEAbYF7L+VQbDC02SpJ
PQ4Q6e5hFriZo19N55E4zh5torm6syEW0CuTt5utsENACcPHTGgF29yxgS75
Rlw/HoJgvg0cOJ4Km74NcNP2P/0haiMymyMFAe022ILaJVtD7NDeUe2rOmmN
x06vVSd+dcClI8MdhxdbY/Tz/KZmL+BKbfdaZa4VWNr7na+7OiIqoY5zL80S
K0Xf957d6QSBf2Ie+d4C5SNTBUHUJuy1+HyRz7PA4kIrSfABZ9zuWhjUemc9
nlapR4ZHu4AsfGgb9sN66GXpCIQRHJB25fNfZ5mD1XM0+eRJLrTXXLl2X98c
PWOLmlPiedDc1rf0Vb4ZPlPOw6JjP+JuW2v+oLMZqowbbJuTNqO0XXVk4BUb
lk/OF0yc2oKknJy/NY+xEVBzw4NMc4VB5eS1uTps/Lvc/dnZG26wbmQuSo9Y
hyWkxb7ajK2geWyQtzasBb0hbB3zjjvyRU0q3gZrUZd6aKH9dg9k3spLPJO4
BmU9R8YFTR7ovKvrs0LOwoVw5jDDxxMtJhdS6vksSDvlJ16/9ERYlzU3SbYa
xaeDjQx8vWA7M6N83GE1NBYofP3avSBn9Pc6lpoi1bGDbsjfBrWGCv5mB1MM
5wrLot5uQ+muxojLj0yQPblg3pPd2/HCKrZGa5MJLGP8wrP6tuPU9OhSeo0x
5H/MkrOhO9CrNKR2ztUYymXF4h0DO2Bp+/LTSAcTcqVl+mSkN+rqnYmZA0xY
sjNYhqPe+I42VcKhMyFWEeScOeiDKvWOd4MZqzC0qMMiZtwHsrhaegh7FVKU
DlHBkRSsTePKNzcScJ7zKff6YQoOl0vtrjYQmKQFzcqiKUSs9O3uqyfg99Xv
pkUMBZ1jRXmJtQTMpzw+zp6mUOzyxuBpJYGWQXZ8ajoFd83WVBcpAf22YcmD
Egr3R9N9hVcINL8Kme4rpVAxlPamNJ1AUmu/q14FhbYinQTNNALDL9+OnKii
4NWS4PTwIoEqWZMt7wWFGkv7LLXzBAJrCmVt7RSSdTnSolgCetUsQ41OCjfL
mbfUYgjIqm5Hke8orEleXrn7ZwI2lb8vze6hQMWaBs2LJqBemhoQOkghcplG
SmA4gYqS+cWiYQp8lX9Kyg8SiPwzWa15lMIn++h52qEE2h/E51tNUJC2kozq
IAKp978ohFMUErq8PywTEnCRHvXKmKFgdd6sJTKQwPS9sey/Zr/9Yj3/8GIf
gbuF4RMKxbc+Q9fIKIDAf1cuMSs=
     "]]}, 
   {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJwV12k4lG0bB3Bb3oieUimlhfIojWVm7ixZ5j/3IJFIlrFFK1kiqTwRSomS
VJTIUorsZMtSoaTI1qJCiRJtsouS9+rTHL8Pc8xc532d//O85XZ4WewWEhAQ
UBUUEPj7KX9uKiVxWZWejo2Sf8xog96G/Wlinq5JnB8PPqg+P5DJ2dLFOLfa
NZeT6Hu+RtKjnGN95ccWUdf7HPnvJdRHh3oOf9ScPerSxOkJunqoXa+dY5si
eOObSyfnfsWEn5XwV47dpK1Dn8sPzvxOp3z5yElOm0Ko5ieXac6Ir25qXYYY
bvoL/hF2nIMMfnoZ3i6CZEFSbprZIhxaFLKAaSCHq4a/hZiSK2DfJ3+gd5sC
Encc/yC9YRVm3bszY4vqGuhe6931RHM15nguqd+tycDI1eot3RtXo26t05sw
fQYyYhP0ftmtxo5M9vkUcwako7YuUj66GlXJyf9UujLQH3i/PqpqNe4rHKuJ
iWUg2eEyi2+8Bg98LaZKxhgQWrRBoNdeCXaXfHaMZSnjcWRqvEgQA5wAt+KN
Qqp4OF1X1HCOgTXiS+s3Sqii0vtH06VkBvZl97XT0qoosdAUWVPNQHhYrcAK
JVWkStd5mM5QhuaepZWhW1QRkvhd99IZZQwWplmIJalCL4d6rxirAvPH2YqB
i9XQtmf7hZt8Nch4BnzOTVVDgmPRnf+c1bBwQ8vzmAw1OFuKdZq6qsG3uEzq
vxw1fOLmrx07rIb8dSkXNYrVMCQrWGN4WQ2TdyVro2vUMOt58njvSzXEtxvK
tnxQgw7nvYPSVias48YS7ZYxkbTQSTHXlIW++U1D42eYqKxa6sSwJja5mBpy
jon37h2X0rexYCaRFyNxkQn5SlvRG14s3J/ze610HBOprpY9sedZsOQM7Jh5
i4mc0o0px1+y0JljaOT2gIkKe2q5tSMbFZJ9Gio/mWhLEls45UHhhqmUm6gd
C5gp3vfZl4JsQPuKcgcWUr3FS1sDKIgJDVZ4OrHgw51lnxdBQe+WWfrTXSzM
+iCRtDOLwo4vH7z3k/+h8+8cxbqvFBxaR9JtTrCQmCWtcdltHT6rDMkmZrGw
s3SlDdNVHRXvYxU3jbPg0fFYb8xLHbzKD+sPT7DgO+35b/lhdZw6/jY0+RcL
oQZ3RvVPqSM4yffp92kWMlo2RfNT1bEmW0vxwEw2hj4fbAn6qI7m8cmuNTJs
BC9+bNLorIE2L4GzplpshOt6si+6amBznJY7V5uNC85SS/jeGlAIEk9k67Jx
I9XhS1eQBo5WvxCZx2WjljUYNpqogZaghP67RmzMNln8SPatBpRCOP0PbdhI
8PeAu60mupkvdiT4siFiEaD1Zrsm3sfwDoQcYsNtdQRrg5sm3E5GZrr4saH5
MnPVSn9N6O+rvawUwMZzla8z269qwvPCYv+4EDbEuve2GL/XhF3sus0rL7Bx
0Mhlh5KLFqzfHZB6n81Gx7LD9rFeWvCXcJE4m8sGPRpqKeqnBXGrclPNfDbm
XE817A7TAvXMKiO8kI3MXz1KcRlaqPvV0bOwnI2unF3DYv1aEOz4rPmhlg3T
BTtOfPZdj3nmsvXa79n4mV4gXRuwHk4iPa5xXaQeejPSb5xYj5zyouTxbjZ+
u9xqcIpej8MSVl3ZPWxklfVLtxasx4U9lWViX9mQcPZPrx5ajy6Bhn1Bo2w8
zYhujPfWhp/4zQYXMQp+nE/O//lp4xRTRTJenMKqFxrD1sHamBjXn3o6i0LA
VNtCqShtUFtfDjJmU2CYy20Py9VGn84JzlspChGj2cO+/drQ9V8qIiBLwQS1
izZ76KBHlv3GQpmCZVhIxQtfHSjqtNQdUKGwrZnjbH9UB/f3wuSiKgUf5ztp
rpE6uDf58lcDk0JccLp6SJ4O/GSus1jqFPoqz1jeGdFBU9zhzGI9Cie55lHy
R3UhJJRtW7SZQmS4BJV+Uhe/Rmxup5tRiG15/Eo1UhffqhQKrppTyNrOXa6b
pIv6XZp5gRYUXhxj5dhU6WJBZFg2y5qCfPX8pxEz9CDoNuFo70jhPv3mf+Nn
9cDv8asrdKPgYbC+2uqSHvqC9vf5u1NYZBQfUJioh6d0awuX9KWPqePg/lw9
lClfEavzJPXjd7V9a9ZDqPOH5U+9KYR5fs7unsfBZX27o5cPUbCIndjaeIWD
nG7Emh2j8CfObrbydQ6G0557DBJnJpQ/PpPBQe+1FrkLxymIpBzV3VjOQfqh
WNXmEAol2YKKDzs4SBAR+KYXSs7fJTLV8Q8g3nDJt/c0haExieZnFkCL71fp
vRcpuNu8myi1Bpa4yt3sJP5Ykrvymh1w3t3Y2CqaQqufxWGvHcAO5s523RgK
pZOXl0n4AA9C5f4VuUwh+I+8p8F5gJl49fHuOAoT20YuMWIA2eFt0w3EPvdr
KuddAQxScy3XxVPYFew6vzsZ0B1ocxC8SsFIKKc8MA9weLtzIDKBwj+iWuJ3
moAZEq/PBCeT+uwRp5KeA5arVn1oIxaobXcMfQU0JTo5U9fIeU4F5lt2AoHK
Bxs/EreKPeQP9gN2J6tOaqdQSJQ0S1OazcXZAceaypsUFu5b0TJXiovKiCv5
kqkUohoHJ38u4MLnz7c6W+Lj56I31y7l4sK3hNAfxLvnto3uVObCvsZTZe4t
cr8X7NZP2MTF5FXuNeUMcn+bvo69Nuei4NrokA9xQLhP+nwrLpTHH1qWENdP
Bc2OcOQiVfyDsW4mBbdPca+P7OOiTsBkjh7J3QvJcmeKfbiouis25E9cZndL
d+gQF3ONNPruEIs3FV3fG8SF1RLh+WrZFNJLmj34UVxomm3ym5dDoXm/zfLo
aPJ7oj4SxsQ/175raYrlovDThtIgYqPkr+obrnGx+dhypz7ivjBRQfXbXIjL
qnzJyaXwr51OzLwXXEwYb/eZm09h8/wHG8xecyEnx2jWIj7UuHHydAcX/6SM
bN5O/Ii2cRLq4cL4eFh+NvHutT5rBke5OHVmcJHObdLvPT/bGZNcnDvWFeFI
XJgUFOn6h4vi9naFQGKR+WeHO0VpGM0cfFxBfON32t3GhTSqwy53qRZQeFqs
4i0uS+NGdesZY+IR7yJ5wxU0ApbKOu0i5vVUn7q7msYcmdvHY4jdkjaun2DQ
KDnx53kW8QXb5m8Uk8beNCPzB8TdDW+3ZGnRSGioq/9OLB62S6RPl8bd8N/1
goUUWPTX4pU0Dcd9yyfmEx8v/rkk3pjG8s1rOjSJM7yDGls303g7/L+LG4mf
KYkek9pK4+zCWj9bYrmkeZ/C7WmkOz1/dojYQ1N791EnGq1jf1xDiItbdnz0
3knj4csk43PEAu6nd+5yoVFgL+MXR2wscrvbxp3Gu+LGwRvE0Qlvtpt40Yj+
KH8nh7hTXbBL7wANs3y/+hJipebVzqzDNDrusBiVxL57zTsV/GmY7iloqyW+
J+S3TSaIhtaIw6tGYrGrSW8lQmg88jgv/5LYcl2tg8ApGlnptyvaiBMb+9uH
T9PwtJRP7STuc5G2742kYf2J2/mBmC2o19Z2gcb1Wz6uvcSBcbttGy+R8xcu
oL8QP2affV0VR8Nt+IzHN2KphkKbokQapcvU+74TO+7paL11ncaGSt+ifuJb
08LWV1Np6LJuvfjrodi1L89l0KCS1Az/Woe11TIkh4a90D7xv98/VX/k+aHb
NIIUK+W+/q3/rusWbsU01mSGRvQRy/550uJYRuP25AqTHuI9lwfNt9yjscuy
37GLOF9Nplm/msaRWtOaDuLfT2Cm+YjGJirx2Ctiw52ujWvraLhs0rvYQhz1
+5zp8kZS/wsRk3XEbTElT6We0Riz6y15QLxKtdNEtJWGQn1WfTmx12PR+ok3
NDht69ULiMu2qxh/f0tDcMuP8XRikV9WT953kef7RHFuMnGs8s3a2s80HuvH
mZwm7n701LD8O42ZMZGegcTKziM1OYM0hE/49+0nrr7AexgzQSOpK/+LNbEE
w50XPkUjRbXQx4jYpuZCdYAgDzbtK6y0iL+Nd1XuFONh+4J0JRliacfgu0wZ
Hi5n/SffQu6/81iajsJSHiruvzh1lzjzXFP5Ijke0tYeNE4nRvWysunVPGyh
BvoC//aX4t3iBk0e3m3JipYnLqz8uK5Kh4fQnDn9YsTTthJFheAhQul02gDp
5+gI+4J4Ix66ZeR0/vb33cGJ3L18Hj7uiRk1IS7+2FqS78DD5tyy12uJ814V
3J9w5iF/1W7hWcTX73o2he/lwURtJrOW5EtYeFd/+hEe5IdyJ9SJjwXcGxsM
5GHCc43C37w64hX/RyuEhyS9pPgveRQ8raxm153hgSWp4R5PbCH3RPnLVR4e
NEtcGyF5t2l+6jrWNR7CBJ3VnhAb/C9E98hNHgyHFs5OINb8rmMqnsNDztju
Ypp4aWmeh9J9HsKX6T46+Tc/zWMz3bp4KDRWw1eSz928gwW3e3g4KDfaW0jc
rm5RPvmZB9vNDz8eJW6Ulag/PcRDq/nKTknigr6gLxnC+nhlwutWIPMgMNhl
zVcFfayLNgtQT6cwP089zd1NHw3s4EcdNyg4CewpS9qnjz9XjlMXiTPMYxqe
++hDpqhPbCMxZ3B4WNtfH8/Tt3y7TeadGysfEhH6mG+cdiXoOoXKwrVtWdn6
8Hll9Ol3Esmn0hWS/QP6+CH0piKczOcSMfMV8qP62Cfd8kiZWMguiG09oY+B
3m28lisULk++tb0naADXhpgYaeJq7fjUSCkDhH3qSIsj83/RvQVQpQxQ+iOh
MYzsCw+qxQ94HzaAQpqyz/RZCmpDbRYO/gY4V+ZTe4U4US6TZRRkgKjRexls
Yr9gk6HlpwzQNnhAdg95L1HRi9jfdMkAGg5HCmrIvhJbKumtUmyAHo3uPq9T
FPblzfH8NmKAXqMPTJ9gCosTpV1cfQxxXXqgQ3s/BXXFq023DhnC7VnOyzyy
X1nkyWl+PmIIjkyunQLxmWqGmFuIIR6GXRWX9CJ58InOdI82xDdxHfFXZF97
p+r1Y1+xIWJ3xTy2cqWQUlV7+OCkIb7u/akl4ETmf49f2PHjG3DJb/+6RSYU
ekaknp0LNkLWdG7HBzkKY3z9gaT/NmLg5ti8GWSfrl79VPvZKWP0yKzxlK5k
Y13VmdzxEBNkls0VtzjDxs6aa+acmE0Im9EyW8qMjS9LzR6FXzPFnn+zph3n
srGIQ+2qjd8M+8jjEaPkPVDwqZeqYqYZDO4zcz9fZOFx1P65upbmOBr9TGiO
FQsVPYdGXZrNMVvoz4ZYaRYivRUHVtpsgdG1JKmlz5go6BwOfPNiC17JrFSs
Pc9E8Qn3VSscLVAYuvyfByZMSM6ednTusMCb2sU2JuJMRHHfCcrbbgVz2bHq
NXVqGMhwrfB9vxXjpqzIuhNquPFz9qyqbZbw8p0Us9JXw7oAZ+/EXks4Hk8P
r5tSxXD6FGfK0wppajP6Dx9ShUhFcYrVVyuM65TNN5pQwbDwkmWcA9aoXjBT
uMlHBevU4hnyQ9boINvQ2TFlpIi63AzdZwO2ssN50UBl/JB6RwWM2kD258Fl
Nb8ZOCe8n+9+gI95MruLrp1kQF/oe0bCQT6Cmc9mng9h4KfA3qmmw3yctj/5
X/AxBpz/OF+nAvgoCKu/7XSUAdaE+bepE3wkS6qfXH6QgdZ+teCoS3wIG3ll
3djFwLK2gbSiUj5oi3+X1PAYePbaY7K3nA8BlcKld7gMnHrVt2nxPT42LP+h
m8lhYODF+8HAaj5Kzf1enddmoLqpWduono/rGWu9nNkM7KnJa2rr4OOiQgZb
eCUDix8y5CU7+Yh75CH1cwUDTdW3fDldfJTzZ/3zfRkDmpXJMjd6+EhJ7N3+
ajED4uVROz37+VjAdN+XLcXAvVKJ4qQBPqJ+2OukzGHgwJ2wmc+G+Lj1Q2/1
ldkMdBQFZ6uP8xFy85PtSXEGogp/T7tO8OH3NC/JfyYDBgV+FvG/+PBa6Cfs
I8rAZP7IjYYpPpo0OCddRRjIyfMen57mY2XHTAUnIQb+D7vyfNc=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{"DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None},
  PlotRange->{{0, 100}, {0, 50}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 0}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.6389180383682246`*^9},ExpressionUUID->"4060d003-5e80-49a8-9294-\
d669f43ebbe3"]
}, Open  ]],

Cell["\<\
Let us consider a tank system in which we (1) \"dump\" stuff (DiracDelta \
function), (2) we alter amounts suddenly (UnitStep) function, or combinations \
of these. What are we dumping into the system?  Where are we dumping it in?  \
When do we start dumping?  How often are we dumping it in?\
\>", "Subsubsection",
 CellChangeTimes->{
  3.638960730819193*^9},ExpressionUUID->"44e19c42-87d9-463d-9b4b-\
e459bb023c96"],

Cell[CellGroupData[{

Cell["What does these stuff functions do?", "Subsubsection",
 CellChangeTimes->{{3.638960730819193*^9, 
  3.6389607340591974`*^9}},ExpressionUUID->"00935692-8a1e-4b8c-a456-\
68a2a20d3374"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"stuff1", "[", "t_", "]"}], " ", "=", " ", 
   RowBox[{"40", 
    RowBox[{"DiracDelta", "[", 
     RowBox[{"t", "-", "25"}], "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.6389605790689807`*^9, 3.638960587088992*^9}, 
   3.6389607175191746`*^9},ExpressionUUID->"f32790f3-2a64-4270-947e-\
9c29ffa54d44"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"stuff2", "[", "t_", "]"}], " ", "=", " ", 
   RowBox[{"40", 
    RowBox[{"UnitStep", "[", 
     RowBox[{"t", "-", "25"}], "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.6389605828289857`*^9, 3.6389605902789965`*^9}, 
   3.6389607186491756`*^9},ExpressionUUID->"294f6cee-65ec-435f-8b86-\
40935e18f7dd"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"stuff3", "[", "t_", "]"}], " ", "=", " ", 
   RowBox[{
    RowBox[{"40", 
     RowBox[{"UnitStep", "[", 
      RowBox[{"t", "-", "25"}], "]"}]}], " ", "-", " ", 
    RowBox[{"20", " ", 
     RowBox[{"UnitStep", "[", 
      RowBox[{"t", "-", "30"}], "]"}]}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.6389605923189993`*^9, 3.638960595439004*^9}, 
   3.638960720079178*^9},ExpressionUUID->"01024470-9fb7-4c7f-a0ba-\
79146d7bff3e"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"stuff4", "[", "t_", "]"}], " ", "=", " ", 
   RowBox[{"Sum", "[", 
    RowBox[{
     RowBox[{"20", 
      RowBox[{"DiracDelta", "[", 
       RowBox[{"t", "-", "a"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"a", ",", "20", ",", "200", ",", "20"}], "}"}]}], "]"}]}], 
  ";"}]], "Input",ExpressionUUID->"5564f0b8-b3c7-41ea-81a2-19e3dd82a869"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
We might then modify the model system with the new \"stuff\" function and \
Laplace away!\
\>", "Subsubsection",ExpressionUUID->"587f8c04-0b94-4c72-9ba1-08a17b93cb1c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"stuff", "[", "t_", "]"}], " ", "=", " ", 
  RowBox[{"stuff1", "[", "t", "]"}]}]], "Input",
 CellChangeTimes->{{3.638960545088933*^9, 
  3.638960551568942*^9}},ExpressionUUID->"104e8039-b669-492f-876b-\
736d5a29c663"],

Cell[BoxData[
 RowBox[{"40", " ", 
  RowBox[{"DiracDelta", "[", 
   RowBox[{
    RowBox[{"-", "25"}], "+", "t"}], "]"}]}]], "Output",
 CellChangeTimes->{3.6389605537089453`*^9, 3.638960605349017*^9, 
  3.638960669469107*^9, 
  3.638960741899208*^9},ExpressionUUID->"ddc3ba5f-2abf-4d1a-8ad4-\
cfc168bbb197"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"eq", " ", "=", " ", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"x", "'"}], "[", "t", "]"}], " ", "\[Equal]", " ", 
     RowBox[{
      RowBox[{"4", " ", 
       RowBox[{
        RowBox[{"y", "[", "t", "]"}], "/", "200"}]}], " ", "-", " ", 
      RowBox[{"7", " ", 
       RowBox[{
        RowBox[{"x", "[", "t", "]"}], "/", "200"}]}], " ", "+", " ", 
      RowBox[{"stuff", "[", "t", "]"}]}]}], ",", "\[IndentingNewLine]", "\t", 
    RowBox[{
     RowBox[{
      RowBox[{"y", "'"}], "[", "t", "]"}], " ", "\[Equal]", " ", 
     RowBox[{
      RowBox[{"7", " ", 
       RowBox[{
        RowBox[{"x", "[", "t", "]"}], "/", "200"}]}], " ", "-", " ", 
      RowBox[{"7", " ", 
       RowBox[{
        RowBox[{"y", "[", "t", "]"}], "/", "200"}]}]}]}], ",", 
    "\[IndentingNewLine]", "\t", 
    RowBox[{
     RowBox[{"x", "[", "0", "]"}], "\[Equal]", " ", "50"}], ",", " ", 
    RowBox[{
     RowBox[{"y", "[", "0", "]"}], "\[Equal]", "0"}]}], "}"}]}]], "Input",
 CellChangeTimes->{
  3.6389606754791155`*^9},ExpressionUUID->"68d6d176-5a29-467c-87a9-\
6dcd305e295b"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["x", "\[Prime]",
      MultilineFunction->None], "[", "t", "]"}], "\[Equal]", 
    RowBox[{
     RowBox[{"40", " ", 
      RowBox[{"DiracDelta", "[", 
       RowBox[{
        RowBox[{"-", "25"}], "+", "t"}], "]"}]}], "-", 
     FractionBox[
      RowBox[{"7", " ", 
       RowBox[{"x", "[", "t", "]"}]}], "200"], "+", 
     FractionBox[
      RowBox[{"y", "[", "t", "]"}], "50"]}]}], ",", 
   RowBox[{
    RowBox[{
     SuperscriptBox["y", "\[Prime]",
      MultilineFunction->None], "[", "t", "]"}], "\[Equal]", 
    RowBox[{
     FractionBox[
      RowBox[{"7", " ", 
       RowBox[{"x", "[", "t", "]"}]}], "200"], "-", 
     FractionBox[
      RowBox[{"7", " ", 
       RowBox[{"y", "[", "t", "]"}]}], "200"]}]}], ",", 
   RowBox[{
    RowBox[{"x", "[", "0", "]"}], "\[Equal]", "50"}], ",", 
   RowBox[{
    RowBox[{"y", "[", "0", "]"}], "\[Equal]", "0"}]}], "}"}]], "Output",
 CellChangeTimes->{3.638960676049116*^9, 
  3.6389607419192085`*^9},ExpressionUUID->"450cdb9a-dc19-47be-b593-\
7fb90bf94ca3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"eq", "[", 
  RowBox[{"[", "1", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.63892576348339*^9, 
  3.6389257649333916`*^9}},ExpressionUUID->"37904a93-ec5a-4f70-b3a3-\
80f314ef8954"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["x", "\[Prime]",
    MultilineFunction->None], "[", "t", "]"}], "\[Equal]", 
  RowBox[{
   RowBox[{"40", " ", 
    RowBox[{"DiracDelta", "[", 
     RowBox[{
      RowBox[{"-", "25"}], "+", "t"}], "]"}]}], "-", 
   FractionBox[
    RowBox[{"7", " ", 
     RowBox[{"x", "[", "t", "]"}]}], "200"], "+", 
   FractionBox[
    RowBox[{"y", "[", "t", "]"}], "50"]}]}]], "Output",
 CellChangeTimes->{3.6389257654433928`*^9, 3.6389606054590178`*^9, 
  3.638960682249125*^9, 
  3.6389607419392085`*^9},ExpressionUUID->"f968c5b9-be3c-431a-938d-\
677e877500d3"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Now use LaplaceTransform syntax, solve, plot, and examine solution.\
\>", "Subsubsection",ExpressionUUID->"ba6e535d-ae14-4092-a952-5a6ef64cabf9"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"eq1", " ", "=", " ", 
  RowBox[{
   RowBox[{"LaplaceTransform", "[", 
    RowBox[{
     RowBox[{"eq", "[", 
      RowBox[{"[", "1", "]"}], "]"}], " ", ",", "t", ",", "s"}], "]"}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"LaplaceTransform", "[", 
       RowBox[{
        RowBox[{"x", "[", "t", "]"}], ",", "t", ",", "s"}], "]"}], "\[Rule]", 
      RowBox[{"X", "[", "s", "]"}]}], ",", 
     RowBox[{
      RowBox[{"LaplaceTransform", "[", 
       RowBox[{
        RowBox[{"y", "[", "t", "]"}], ",", "t", ",", "s"}], "]"}], "\[Rule]", 
      RowBox[{"Y", "[", "s", "]"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"x", "[", "0", "]"}], "\[Rule]", "50"}], ",", 
     RowBox[{
      RowBox[{"y", "[", "0", "]"}], "->", "0"}]}], "}"}]}]}]], "Input",
 CellChangeTimes->{{3.6389257742934046`*^9, 
  3.638925857123521*^9}},ExpressionUUID->"4e8d5a3e-80c5-4fd7-b2a1-\
dac592a84710"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", "50"}], "+", 
   RowBox[{"s", " ", 
    RowBox[{"X", "[", "s", "]"}]}]}], "\[Equal]", 
  RowBox[{
   RowBox[{"40", " ", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      RowBox[{"-", "25"}], " ", "s"}]]}], "-", 
   FractionBox[
    RowBox[{"7", " ", 
     RowBox[{"X", "[", "s", "]"}]}], "200"], "+", 
   FractionBox[
    RowBox[{"Y", "[", "s", "]"}], "50"]}]}]], "Output",
 CellChangeTimes->{3.638925793273432*^9, 3.6389258582935224`*^9, 
  3.638925900083581*^9, 3.63896056413896*^9, 3.638960691349138*^9, 
  3.638960742119209*^9},ExpressionUUID->"07f55b4f-334b-46f5-9151-\
958f9dcaf0b4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"eq2", " ", "=", " ", 
  RowBox[{
   RowBox[{"LaplaceTransform", "[", 
    RowBox[{
     RowBox[{"eq", "[", 
      RowBox[{"[", "2", "]"}], "]"}], " ", ",", "t", ",", "s"}], "]"}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"LaplaceTransform", "[", 
       RowBox[{
        RowBox[{"x", "[", "t", "]"}], ",", "t", ",", "s"}], "]"}], "\[Rule]", 
      RowBox[{"X", "[", "s", "]"}]}], ",", 
     RowBox[{
      RowBox[{"LaplaceTransform", "[", 
       RowBox[{
        RowBox[{"y", "[", "t", "]"}], ",", "t", ",", "s"}], "]"}], "\[Rule]", 
      RowBox[{"Y", "[", "s", "]"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"x", "[", "0", "]"}], "\[Rule]", "50"}], ",", 
     RowBox[{
      RowBox[{"y", "[", "0", "]"}], "->", "0"}]}], "}"}]}]}]], "Input",
 CellChangeTimes->{{3.6389257742934046`*^9, 3.638925857123521*^9}, {
  3.6389259081435924`*^9, 
  3.6389259105135956`*^9}},ExpressionUUID->"507b0d13-f441-446d-8445-\
76add7e07b7d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"s", " ", 
   RowBox[{"Y", "[", "s", "]"}]}], "\[Equal]", 
  RowBox[{
   FractionBox[
    RowBox[{"7", " ", 
     RowBox[{"X", "[", "s", "]"}]}], "200"], "-", 
   FractionBox[
    RowBox[{"7", " ", 
     RowBox[{"Y", "[", "s", "]"}]}], "200"]}]}]], "Output",
 CellChangeTimes->{3.6389259149736023`*^9, 3.63896056432896*^9, 
  3.638960693799141*^9, 
  3.638960742229209*^9},ExpressionUUID->"298d8476-8a03-438c-a4bb-\
a0df1e9b90ad"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"XYsol", " ", "=", " ", 
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"eq1", ",", "eq2"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"X", "[", "s", "]"}], ",", 
      RowBox[{"Y", "[", "s", "]"}]}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.6389259195736084`*^9, 
  3.638925941663639*^9}},ExpressionUUID->"13bc72bf-900d-4fd6-963e-\
15e358626153"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{"X", "[", "s", "]"}], "\[Rule]", 
     FractionBox[
      RowBox[{"2000", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", "25"}], " ", "s"}]], " ", 
       RowBox[{"(", 
        RowBox[{"4", "+", 
         RowBox[{"5", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"25", " ", "s"}]]}]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"7", "+", 
         RowBox[{"200", " ", "s"}]}], ")"}]}], 
      RowBox[{"21", "+", 
       RowBox[{"2800", " ", "s"}], "+", 
       RowBox[{"40000", " ", 
        SuperscriptBox["s", "2"]}]}]]}], ",", 
    RowBox[{
     RowBox[{"Y", "[", "s", "]"}], "\[Rule]", 
     FractionBox[
      RowBox[{"14000", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", "25"}], " ", "s"}]], " ", 
       RowBox[{"(", 
        RowBox[{"4", "+", 
         RowBox[{"5", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"25", " ", "s"}]]}]}], ")"}]}], 
      RowBox[{"21", "+", 
       RowBox[{"2800", " ", "s"}], "+", 
       RowBox[{"40000", " ", 
        SuperscriptBox["s", "2"]}]}]]}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{{3.6389259363336315`*^9, 3.63892594216364*^9}, 
   3.63896056434896*^9, 3.6389606956291437`*^9, 
   3.638960742239209*^9},ExpressionUUID->"839afe06-c4f6-4a8c-a40c-\
51c1c4fdb56a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Xsol", "[", "s_", "]"}], " ", "=", " ", 
  RowBox[{
   RowBox[{
    RowBox[{"X", "[", "s", "]"}], "/.", 
    RowBox[{"XYsol", "[", 
     RowBox[{"[", "1", "]"}], "]"}]}], "//", "Expand"}]}]], "Input",
 CellChangeTimes->{{3.6389259517236533`*^9, 
  3.6389259786936913`*^9}},ExpressionUUID->"4e8f0096-9996-4448-8666-\
146a76bc8a8d"],

Cell[BoxData[
 RowBox[{
  FractionBox["70000", 
   RowBox[{"21", "+", 
    RowBox[{"2800", " ", "s"}], "+", 
    RowBox[{"40000", " ", 
     SuperscriptBox["s", "2"]}]}]], "+", 
  FractionBox[
   RowBox[{"56000", " ", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      RowBox[{"-", "25"}], " ", "s"}]]}], 
   RowBox[{"21", "+", 
    RowBox[{"2800", " ", "s"}], "+", 
    RowBox[{"40000", " ", 
     SuperscriptBox["s", "2"]}]}]], "+", 
  FractionBox[
   RowBox[{"2000000", " ", "s"}], 
   RowBox[{"21", "+", 
    RowBox[{"2800", " ", "s"}], "+", 
    RowBox[{"40000", " ", 
     SuperscriptBox["s", "2"]}]}]], "+", 
  FractionBox[
   RowBox[{"1600000", " ", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      RowBox[{"-", "25"}], " ", "s"}]], " ", "s"}], 
   RowBox[{"21", "+", 
    RowBox[{"2800", " ", "s"}], "+", 
    RowBox[{"40000", " ", 
     SuperscriptBox["s", "2"]}]}]]}]], "Output",
 CellChangeTimes->{{3.6389259748036857`*^9, 3.6389259792036915`*^9}, 
   3.6389260325137663`*^9, 3.63896056436896*^9, 3.638960697249146*^9, 
   3.6389607422592087`*^9},ExpressionUUID->"b39074d2-a50d-49ce-a692-\
71e8a1df499a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Ysol", "[", "s_", "]"}], " ", "=", " ", 
  RowBox[{
   RowBox[{
    RowBox[{"Y", "[", "s", "]"}], "/.", 
    RowBox[{"XYsol", "[", 
     RowBox[{"[", "1", "]"}], "]"}]}], "//", "Expand"}]}]], "Input",
 CellChangeTimes->{{3.6389259517236533`*^9, 
  3.6389260274237595`*^9}},ExpressionUUID->"f9cda6e5-fc91-4c58-bde9-\
b548fdbda8a8"],

Cell[BoxData[
 RowBox[{
  FractionBox["70000", 
   RowBox[{"21", "+", 
    RowBox[{"2800", " ", "s"}], "+", 
    RowBox[{"40000", " ", 
     SuperscriptBox["s", "2"]}]}]], "+", 
  FractionBox[
   RowBox[{"56000", " ", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      RowBox[{"-", "25"}], " ", "s"}]]}], 
   RowBox[{"21", "+", 
    RowBox[{"2800", " ", "s"}], "+", 
    RowBox[{"40000", " ", 
     SuperscriptBox["s", "2"]}]}]]}]], "Output",
 CellChangeTimes->{{3.638925988833705*^9, 3.6389260280537605`*^9}, 
   3.63896056439896*^9, 3.6389606998491497`*^9, 
   3.638960742279209*^9},ExpressionUUID->"1bcc46d0-3020-4c98-858c-\
03dc38de375b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"xsol", "[", "t_", "]"}], " ", "=", " ", 
  RowBox[{"InverseLaplaceTransform", "[", 
   RowBox[{
    RowBox[{"Xsol", "[", "s", "]"}], ",", "s", ",", "t"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.6389259968337164`*^9, 
  3.638926065813813*^9}},ExpressionUUID->"55f2f4c1-5641-48be-9a04-\
5c3fa6b0a22a"],

Cell[BoxData[
 RowBox[{"5", " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"5", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", 
        FractionBox["1", "200"]}], " ", 
       RowBox[{"(", 
        RowBox[{"7", "+", 
         RowBox[{"2", " ", 
          SqrtBox["7"]}]}], ")"}], " ", "t"}]], " ", 
     RowBox[{"(", 
      RowBox[{"1", "+", 
       SuperscriptBox["\[ExponentialE]", 
        FractionBox[
         RowBox[{
          SqrtBox["7"], " ", "t"}], "50"]]}], ")"}]}], "+", 
    RowBox[{"4", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", 
        FractionBox["1", "200"]}], " ", 
       RowBox[{"(", 
        RowBox[{"7", "+", 
         RowBox[{"2", " ", 
          SqrtBox["7"]}]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "25"}], "+", "t"}], ")"}]}]], " ", 
     RowBox[{"(", 
      RowBox[{"1", "+", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         FractionBox["1", "50"], " ", 
         SqrtBox["7"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "25"}], "+", "t"}], ")"}]}]]}], ")"}], " ", 
     RowBox[{"HeavisideTheta", "[", 
      RowBox[{
       RowBox[{"-", "25"}], "+", "t"}], "]"}]}]}], ")"}]}]], "Output",
 CellChangeTimes->{3.6389260667938147`*^9, 3.638960564938961*^9, 
  3.6389607043191557`*^9, 
  3.6389607426692095`*^9},ExpressionUUID->"cb5fc20d-fdbc-47a2-b9ef-\
e0e4428cd4b9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ysol", "[", "t_", "]"}], " ", "=", " ", 
  RowBox[{"InverseLaplaceTransform", "[", 
   RowBox[{
    RowBox[{"Ysol", "[", "s", "]"}], ",", "s", ",", "t"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.6389259968337164`*^9, 
  3.6389260787738314`*^9}},ExpressionUUID->"7acb34b7-92a8-4e36-a0b5-\
2e4f9e776cfe"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox["5", "2"]}], " ", 
  SqrtBox["7"], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "5"}], " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", 
        FractionBox["1", "200"]}], " ", 
       RowBox[{"(", 
        RowBox[{"7", "+", 
         RowBox[{"2", " ", 
          SqrtBox["7"]}]}], ")"}], " ", "t"}]], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       SuperscriptBox["\[ExponentialE]", 
        FractionBox[
         RowBox[{
          SqrtBox["7"], " ", "t"}], "50"]]}], ")"}]}], "-", 
    RowBox[{"4", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", 
        FractionBox["1", "200"]}], " ", 
       RowBox[{"(", 
        RowBox[{"7", "+", 
         RowBox[{"2", " ", 
          SqrtBox["7"]}]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "25"}], "+", "t"}], ")"}]}]], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         FractionBox["1", "50"], " ", 
         SqrtBox["7"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "25"}], "+", "t"}], ")"}]}]]}], ")"}], " ", 
     RowBox[{"HeavisideTheta", "[", 
      RowBox[{
       RowBox[{"-", "25"}], "+", "t"}], "]"}]}]}], ")"}]}]], "Output",
 CellChangeTimes->{3.638926080723834*^9, 3.6389605653389616`*^9, 
  3.638960706719159*^9, 
  3.63896074295921*^9},ExpressionUUID->"b40e61df-170c-4f4c-bf27-5839e41328e4"]
}, Open  ]],

Cell["\<\
After solving using Laplace Transform techniques we plot our solution for \
x(t). We see that from the dumping due to stuff[t] = 40*DiracDelta[t-25] of \
40 additional units instantly at time t = 25 there is a jump in x(t) at time \
t = 25 and an attendant rapid change in the second tank, y(t).\
\>", "Text",
 CellChangeTimes->{{3.638960767169244*^9, 3.638960895119423*^9}, {
  3.63896170739056*^9, 
  3.6389617198105774`*^9}},ExpressionUUID->"16ab69e8-f8a7-49a4-afe1-\
1359aa78f0a0"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"xPlot", " ", "=", " ", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"xsol", "[", "t", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "0", ",", "200"}], "}"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "200"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "100"}], "}"}]}], "}"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.638926081403835*^9, 3.6389261197938886`*^9}, {
  3.6389261570439405`*^9, 
  3.6389261584639425`*^9}},ExpressionUUID->"23c0cd27-7834-4370-b9a9-\
455e203b14f5"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
     1.], LineBox[CompressedData["
1:eJwVxXsw2wcAB/BQ2qIOYzkmntEu6dDUI/klQr4SIRuNt6JRrY2Ezdz6wEqq
R8dcCTc7wqKt4Vq0p9POZdbRYtu5xivVnemDSate9Vqdxzy2/fG5j1NSRkSy
PolE8v3P/zuXbddftR/283xi1bu7K0LQFzeM0mWtPKPQcl/Rigjhf7mW0WRd
vGP0O8WqlyLEVC+G75UN8kaNbNJlfSLEroZ5rkrHeWRJCb2kQoS4er2Geeki
zyWqUbdBFyF+M04yLd3l6b1XNExNDMLYwUJiSmqGCoVls3xaiG2Xy+PkJTOI
jScnLjwTwvwd/x4q1xwZ492mBUNCeFjw0qJ6zfG91RzlnlqIbDMf9Y8jFlAe
v/1nVbEQBgc8o7JXLRFJnGJL3ISgGFJLtpnWCFOHQZEbgMYcvZ09CY7Ymrk8
JGUJkP/295KBXEdsPk1WnXUX4FS6wrZa5Yg1m+DBwoMCUBJt2e7PHKHat0fc
YynAN3zvc7EnnBC73jdXscRHnlHq7K04ZxRNautLW/iIqxr6IzrGBWZiLeve
IT5M715rvRFKg8aqzPIzhj8yyRtK7ec0PJbRF/l0f7z4MiJ/u5SGdkWQ1MHZ
H3dgGB2poeF4ZpD1jKU/IgbSNndEdLS9WJnvXAOUM97CGP5hULaev8l4ADg7
asYMvF0Rl0dr7Y0GVIFb+kdNGejWVYpS7Hk4kHixxtqega/E2amVFjzkZpE8
SEcYGFaYGAwb8CC5aXB6MIyBsSd5uclzfqAYm3alf8vAcld+rPFPflD12+U0
2x5FQtjIACfGD7VRvL+phz1AMc1NWq7yxdWkfB05yAva2ZdjzUwulGtFt5/H
eGFraSF7wpWLipLSrIYUL9x1yvSyo3LxdbvSxKPQC+9P3p9pMePijHGr57Ff
vZByRFtpN+ODwLanBQUCb+zat0lCan2woOftssRjYkLTPNli7IPpSs5CeygT
zIiHb9R6PtB9ALU8kQnhz8uhmnUORqODQ0zymIh/Fa+/9zUH3U2nzx3qZCI6
oU7e28NBZbiiV8JlgSxr1MouclA+VaGghrAgv3/z+uh5Dq7kVMfOnmBhuM/t
U3E6B5caG+azclhQpT4eD5ZwkLbRYVXRwULVvLi1lMOBb93rT/oIAu/ybZi0
dTbeqrrDJz8kcIm8v1+4yEazstbvn3gCAZ0O+9Km2CCXR1q7yQk8eFX80W8j
bGiuuBsGKgjsr+sP3HnERn6R0crJawS+U1I03B42Fi52PSp/SOCMvVFs/w9s
NFyoUTdpCZzU9Yc7NLERn3m+sVtHYFAw35F1nY2Aj+WyW4sESFSrX87WsPEv
m6um5Q==
      "]], LineBox[CompressedData["
1:eJwVz3k81AkDx/EZlVpk6VCpWD+zZmRiaKgZ5GsaYwxjJjmGQc7xw8g4isrS
o55ou6Zeu1QaFNlHT8luS65ybGWXvBwdm6OadqPUakU52jye3T8+r/ffH4uo
ZL9YHQqFovi7f2w6n1u4w4gDpnhhaFeoFNnxusqlqzgYfByi0gRLwY59LrNi
cJCsWRGSv12K0tBCB5mIg9T9M+fS3KUIlKWap8g5MJEe/z2NI4WBv9jgayUH
eW82u+63lyLTe8FI4wkOTJOmdUsspNjOTT5rfp+DNwO/2XB1pNBZ7Ul5Keci
w6TKMuWIBHXLibF5JReMvZObxPsk2PX5XP/qbC6Ugp2HnRIlGNS9fl1UysU6
WlkjSyzBjx/M4qpecMEqvjXeaixB7P2prt1JzshUjsx6a3zx84mKooU5Lsjr
K5gsvynG7fmOmq6TLvDKvZEkqRajRfVnd0GpCwxzH9IXlYlxw2/LQus2F9gX
Me1O54tRYdKhFC9yxZhNs5+9vxgHi8dcC466Yjs1MHDfmA+2VrG19DNb4dTb
3P8H3QcDisjTl2TANeYSDdEggiaspm5vBOAbrO1cVC1ChP9nz8QkcPvRufPj
l0QYcf/eZioDWDeQt/jJKREm1lHvCAoBSnKKm1GCCPr3S6dfPgQaQlpsB9aK
4OKmDd2wwx3Cwsg1XYe8ULJqJ/2amIdNS2VDnQlCtLSu38kM5IFLb71bFSmE
NnGooDKch5itVr1nZEIQLcG65ck8vM7WWOcKhKgg/YfPnOLBlvOKVkkIUVXv
VZb7kIdPBh0c3pAnmuRs88CwbWD5/jWZ4u+JgZLPVs0p+TDTOyhSBAmAJXqv
RtP5UHxxoDdMKkCFSq/+URYfBt06DiFeAqS668urj/HRd/hBUqSzAPq/G5RE
X+EjIJMTUGkugIuVEb3jDR97qiNXrh31QPEVk82FCR6gbebfJXM8EF1vGWRP
CvCVVr2hq44PzX4lEoOFsM2iqH8L3wbxyqhDo+ki0AjNk3+v58Eb7at9lT74
wfBVPMPUHc28/sXTx32x7sgMw5UGTEwZ9PT5ScHy2pf4vHgrmCtj+Rqf7dBZ
HqYSOrvComT5yBG5HyjGMebyp864+W72WrxsB3rEn760ruFiRbXTd4kJ/rgs
N+57fIyDn9r00lQZAWC+D5hsyNkC02KTODI1EHYn/dQ2324GczgzPzc3CIET
RrbeFU4Yfr+s7+QBGRj1xIj2viOmZPzxkr3BUBN5EqqRI9oY95z78kKwyF1l
8sKDDcfWo9emD8pRwKOKDE5vQvSdC1K3b0MxuLYopvNXB7xeL7l75EIY/Fqp
tCmGA1a7sWPai8Kxscr2Vs4xe1DvJdvR/7sTT4sKXA+PsvCzOsXY1T8CjVYd
N4VBLDQN7/kQ1xMBhcVEAc7Z4YSKPm4ZFAm+yXlO6l5bXH82md3/IBLKYN7r
7t0bUXsokfZFWBTMeHTqMQUTSw3nwyKGopBureiPSrWB2v0plQiOhtPxrjuO
Rzdg/DLZlK6NxtRV/SSctUb5jKF+a3gMzlXGBoY2M+CYFaEqfhmD9yzuiq8H
6ZisnHObS4pFm03tlncL6FjYVFsW8CYWZ66+WPGTuxUmF6w1c0tTwEmwZDJ7
z5dwZBUxiQkFNu2BjV8zDWW6cZcO74rDtiem9jXGNPy57Ck760McQr9KSP5F
bomTC1JkiWkkfO7ltj25QYCvM3ZZs5sEaaSUGNYQmKHEz3VnkHg4Vil0+4FA
xP8iLrKzSJQ90+ZcvELAYVb6x9whEgy7hPmkCwQevWUdUBeQSM0n2WuOEjAb
GP+upp4Ed6RIpyWcQN9j5ceXjSTqHhh+nJMTyPv1lY/pLRK72O1yl2AC4w+0
77LbSORbtIc17CDQ1t3jLOwkQfNwCWkUElDcqe4eGCLRnvGLVa8DAdPbTGLp
MxK9PVMNK1kEutv+k+72/O8fT0VdyEYCW1pK15QPk6Cs6Xw7TCeg16iOTnpL
4puWUU/qegK36g1qS8ZJGEbH0rxMCaTV5S/pmyChOHgx/tQqAkM1B646TZNw
ICxsLZcRUP/4aZ6cJVF1lndV+TkBj+uZfkV/kWD+a/ibWgMCH79/X941R2Jm
cPYFRY9AVbVqen6ehGt1ssZ7MYH/A9AZus0=
      "]]}, {}}, {{}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{"DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None},
  PlotRange->{{0, 200}, {0, 100}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 0}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.6389260957538548`*^9, 3.6389261203138895`*^9}, 
   3.638926158983944*^9, 3.6389605654189615`*^9, 3.6389607089991627`*^9, 
   3.63896074301921*^9},ExpressionUUID->"6308408f-5a33-47af-bf22-\
2cc9abed2dd9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"yPlot", "=", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"ysol", "[", "t", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "0", ",", "200"}], "}"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "200"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "100"}], "}"}]}], "}"}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"Hue", "[", ".3", "]"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.638926081403835*^9, 
  3.6389261676039553`*^9}},ExpressionUUID->"444bf29a-847c-4481-9015-\
e1260d0b7643"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {Hue[0.3, 1, 1], AbsoluteThickness[1.6], Opacity[1.], 
     LineBox[CompressedData["
1:eJxlj3k4lAkAhw1TrUnO0hS1Zphx7DAz3+eYUr5f1KilHDGOHLFESkU5NkJD
OlyhGBpHjlUeQpaV9olc7T4p3e2ibFsrTSWFSru07d/7x/u8z/vnywre6x6q
rKSk5PWF/8zOma0sXXnbbkfanOT09CM7x6ga1cjwBmrRhs97Nu2+TLk94eWY
hHdQWj83jtH8r1OSojdu88MHqCXDDIHCbojynnYlp8NGKIGRtMVP5SXlU0mr
ehX2hjI8LBBwsz9Rvp98/MbCPlP+TWcc+2tVEd2XfCVfqAS35kud13cy0JZz
ZwvZoIT4nmS398YLYc+O3xtdS4OY0pkdOKsGb8fuxolyFbC3XuPUZWggLdeH
fJ21AL+Ls+z85doY5KSLRsM0IGvc3H5zbilmjdJGdCc04P2+/WWbNxOa2uu6
DddoIidoJM3yIhOEFhXh0aMJh417ep98twzxGrZtLfe00ORTKWZ1LQddjfSI
n9ZBdJn5pCxiBfTnGWbOWjORrmzw2daGhQv0ipElCUwwJpvWtfizQNFZpEUH
Ezovmw3nUlkIVvl6MMBxGY7mVpz6PMDCOZqeSafXcmTJZT19oWyQc9o90nh9
VK2uOZx3zBDVCbQ5FX8DhPW9nYip40A6dS3zZqIBQi7ZmzCvc7A9MluvSG6A
Z3fVD55+wYF+oN4qi2EDFEbUKbG5XOTZWx3w3sZC/wmTM+klXCSr7lTU+bAR
uvZmUckRY/gU3nrgKTGCp0uiw0dbU1hrFoYaxBpB1rHygr3EFIuP+08pThtB
viw3a/c+U9w6qNBKuW8E5tL95oFVphAH0DfXenBQMqqd2M0wA8kRdc+5c3HE
q2l91W0zLGoua6hxMYFTE62lbCMPsbozsjt7TJBXOs6tDuDh8ffu0tksEzz4
uJqec4CHRszz3NpvglbuL5Ga5Ty434z4NLfRFNf6hyf6p3mQvbDaILE3w/HO
Syrr5eZgG/QP0q146MpVFI3ct0BGKqeH78FD0B/TW6rHLDA1mlTvu58HvZ2a
P7j/bYHeemFKYxMPC+5OFocY8BFuW8jxszCH5W7F2vCdfNRLgvc1G1vgdaav
lsoHPuTif5SFiwSYz4+4lZ8igFpgUjFzpQD72i74k8cFSIxTIpT4AhxtX+rQ
lyuA3zl60ICrAOWlCue+CgH0GYs6Ik8JUK0ifSjoEUB+Y0VCrZ4QLTMzUZfp
QpR4UJOGZgTidKJsaYeEUI+8emKhLYEaUY0NJ02IpCMO7EknAsOeOVy7DCEC
Wh3duiIJqJr7qrkUCbGS6dqwvYnA0ldB68d/FKJ0aPuuEhGJ4QRWBU/xpYOl
T3UdLRFuKE766ExA9uFo/SOJJeirKk5EuhPIz8yKq9phiXtLnvEHvQgca5Ut
JNItcSZCHFYcTCCa0UBu7rVE5eG3sT/FERBfHEpNdbCC1WOviF3lBMZpVkYT
lDVMD8WkTL4kMFawerzVxRpZs8GluyYIPP0GbYcCreH6lcRreIrAb55OzguT
rcHNzWyrmSXQdT7oAPeKNebHBDCeq5MocMvu8Vtjg1Y8DFEXkDg5mp9t6GwD
tUppg44liYyEIm/FNhsErVAwtL98plRXvYpLsIF2aLDmJ4pExEz74vx2G2xU
PqcX70Ji7dnnIb+KRPjLseBbIpLElLzL7c9NIpSx7/Qyo0jUykrs/vYV4V33
jdIPB0jontzKND8kghpfO7M0kUR/hsU8cbYIN0KcmnakkJAeVX0XUCaChjNH
YpxGYjyp4/rJqyLoDa5CXgaJqoPFbefviEBrXVGwJoeEb2xMdddTEfidU5kj
eSQ0o13zhqZEkMpneQkF/+9/AXnARxk=
      "]], LineBox[CompressedData["
1:eJwV1nk4lOsfBnASR6I6KpQilJmkQtPEWOZ+GcyCJkUkJUsN2ULFSVEkJEkq
S0URWaKTEqksqZxSCqmkUojQgiwtw+/5/THXXJ9rZq55n+e9v/fzargH2HtN
kZCQmCCv/78f8JbxVVA2wua5UXH1d1aB4fXBSZtuhGGfO/xpr1cha/MZAye+
EYpVdzMXzWTA0SlIfZeLEVRqg6+MLmVAfoOtfLyvEW5Unp1SwGEgVCD1qTLR
CGnfy97lhTGwjhWQpt5shDmdW0KnfmRgioq1RI8LCyvM46O2Fa1G+WzNL5O+
LATu87FSvr8a/jPFr1UOsDCtpdug6O1qvJEpLeVnsaDHEiqFzGDi+ojajuIu
Fj7Nt3gX4c+EV/Pok91+xrAYqb5+ib4G9Ym5GVMjTFCtdGnN3BhD1E0+uvHk
uAneL14zlpRuiOrAb42ns0ygbSmhOFhsiJv2hlOX1prAMuza0y0vDZGr9MjX
VtoUCrr2KcPaRog6/8X09FFTMPI4vqo1RjArZnTQUs0Qo+9oQPvIAkvd+df3
y2aolq1U9BpmgZm0f86tCjNIzompjZ9qjOVBD7g2b8xgNHxo7Ji2MRYwnf4N
VGPj9cVrUXu8jfHzzr5DFTlsXJ+MW/Wpzxht27clX3IC3l4+u7i/3QTnXG+U
h7kBwl8JzS59JnDbMO29rQjgGj5RuTVmgk/Uv8tG9wK6KW0lbEVTDC2QvG91
BngydnLmLitTTG/OGut5AeSZe24MLzSFCbtjs856CiFvzU+ViMwwuZoRNbGJ
QvYBr4CRYDPU6sbmN7lTWBA4T35ZhBm48/VG/wmiUPfK/6nXKTM4jEQcf3yC
wp+XQ8aqNWbwL1Sv9X1GwWFFzNWTc9nIVN5KK7E1h0JwdgqtlI3qmoVbdR3N
Ya5w5bbtHTY6drafzt9iDvn/GH97PGRDs9pZJifAHPO2u8e5vGEjV7ShO/WE
OcR+d9rMJYHiCl72oRfmGHAx2tyjDdx2Yag7ulpA80LTHUdfsk/Sw47NXhaI
HeLe9QsEJkr+TRT6WyDepsN7fwiAqSsn+BEWUIip/BgTDtQVLX3LvmCBUi1b
Y4sE4LFYLWNptwWKjzb4iQqAtsxpymJfDvJqZVzTP5Dfy8r1fg7h4IFGr2Rm
F5AbKFfRGs7BqYcspfM9QBA13eVqAgfLxGY5R78A0zvlMz2KOJi1+sXI4p+A
ifYs2qN+DiY8jrg6zKRwMXHWeNkwB1PTjC9IKVKQHZv1X/ZvDvLdpxUXzaHQ
8vDvnfunW+LIlnOG3+ZR8POeXaK3zBJZrSsvMxdTOF+ktOaMjyWiEpVTmtdQ
mDpXWTY6yBL/vMzu1WNR8Nmv/DrwH0tY+6ZvijOhwLRT2cePt4TEQVrhMopC
47d5VeJ8S2ywXZfA5FOQWLXQ2vOzJdLnGhV6u1DwqNDaqC+yAsNHRO34h4Jv
e73ZaIAVjH1vP6aHk9xM+mlX7rXCZ73xNZ/2U4ixLB/hHLECp1fj4YaDFAqe
26Q45VohQbyaKRlLYejz7ucRXVa4t7vnZ3oKhd/yqhWcASv0N1SfWXCaXL9e
dda0H1ZYtCTDOf0MBaU9coEnpawxl7XWOT6dgtGUzBl5mtaQiq67aZJFIXJ+
veCpmzU8Cvs3fy2gEGfqt+qkyBoYj1FkFFFIdlNUdQq0hvpBV509Vyjk5G7u
+xBhDUFv/fFvJRQeGgzGjpy3RtUL7fSb1ynMEMx/sOCtNUYXXevOvENB2b/q
yocua4xcmrnvyl0Ki054nsodsMZjddMrN6soGLws9tT7Y43h2wajNTUUHD0s
pDiqXHBtRsKL71M4t88XO5258NTR297XQNZnH270ehsXE67FN188IfeHnmBg
7cOFy3i87Z2nFAxfFC7W2seFzV2vjQfJHDWv6Jd9c5aLLp0Xzm+bKbCkf0vy
LnHxrDiNU9hCIeuN3O+yK1zk8RxP7X5BwT9W50vyXS42h+iHTbZSmPbR+zm/
gwu54Kbbva8pBJaHPSrv5eKoxGteehuF1sS4e9qDXNTlubhy35D9Mc6/MWUK
D1vrHtDS2ymwT/Wm3dLiwSiou3zOewq5O8eT6brExzJ6C4jlzWUTTjN4WPeD
c9e0g0LbV9qBIEseQte993H+QGE3d4e7zg4eqHlChncnhXa1vS6pATx4/2yb
6CI2H4nZIBPKg+2ChmOuXRRmXcy1+hjLw7dVjX9ZdlPYG1rGFp7goczT7lcp
8Tu7B4Z303hwd5pRrf6JQuHvbp30Ah6a+RItX4gVm0a0ZEt54MZHLhX2UAi9
LL1wTyUPMkrv3EqIrRyWzLRv4EF8LDvKs5fCh2LP4WlfyecVl8T5nylwD4cM
7B3lQfJN6INh4mKX6O7uCR5SAouOsfoohMvmvKyZycfEi5VLqog735U+W6nC
h1Zf8J8/xPwb9/47t4gPtSmSHWv6SX7cOyvD9PnYX1X2Oof4gOHw9R4jPphZ
ZaOtxF0zpIodzPn4NKV4ucwABUG3Yt49Ph8eSZMHDYivVWpm6a/nY5qH3JgL
8bxkg7RMFz5C5HSSDhFHisyTFTz50DheJswl/mRmf3SfLx+qe6aaPCS2nese
/TmEj4t1ng7dxOP5pUoPw4kXTnycIM4xk87PieYjyTtVUukLBWGzo/GhBD4y
mW9LdYj/7Lj8ZGsKH0f3BP8xIb785+dW07N8KB+cfGtDvOGEYGh+Dh/nlbRc
NhFLaJ+LHi/kI8J9/x4v4qJbX5VaS/moFBcY+BM7rUV+aSUfGwctk0OIp3ad
MD5xj4+O8u4zocRXQzuf+D/mo5ejbvUP8WaF1W42zWS94ujMMGLZizFDS9/w
EVyXm7uH+DrzVfRfnXzojf+9ZRex2+Olyt195P92r6v3JpZ325dfO8THpowv
PVuJy380GGf94mOE71u1ntgzTu3p/ikChA4I11kSz1ILdHORE4AVuCCLQXz7
Ws2QoaIA7utsizWIRdazDyvNF8A8desBeeI57Z7KPzQEuNveoDhC9rM6sCz/
+VIBcrjy/m+IfaVlTUr0BZBIT06uIlZJd36aYCTAviVNhy4Q160odPOhBCh5
xaIOEi9wsju8ZJ0AFnuNDVjE9QOZylLOAniszfOeTRxycDC/w00Ah+VdoX0k
Pw0FKU8zAgUQvNhCTyYOZX9yCwsVoLbE9Yk78eKWNcOOkQKE3yhZr08cLm5T
Vkwi11t/Q6Ge5JWerFvw7YwAE/YqVknELdoHTJ5kCuAps8zbkVhXqLEttkSA
mvyc0HYyD6+6goa9bgpg8CjP+yxxdFjdYYsqARaEnbTbRNx+cUfBxFMBpOU5
4kYyXwkjV4ZDvpL1pHgvzybzZxg/edh+VIDi+EVie+IutXUqehMCFFD3mySI
Tbg/TPoVbDBUeDXVkczzQDorZttyG8TNjmroI/0gwEMVO18bPJhRWH6T9MuG
2KjbLSE2GItUiWMTb3nGdnPZb4PWyqMr75M+CnIrzxMl2qBNcf60R6Sv0iPz
mVFXbZBp7Wh46y2F3uqjG8p/2KCRs+IRk/TjkCx33ExsA0efVoNzr0j+hVPP
3pe2hcn7s+mSxDM/hHc2KdkipH/nrjrSr0xJ/6AvhrZoET6PNCB9fJgSJmnu
twXTfAnnGunzxDh5Rv5hW3hUudf+JH2f+rz+5cpE8n3DFdvZxEXbKHXTTFt4
067R7j8m+3/QoHhjjS3a2subbtVT0Kyd05AgbYfExnn3hLUUqsxf/zV2zA6b
9HU9mOS88rVk1TqctsMtvthKUEryxc0Iv37eDlFhiTlbrpH127oO7iqxQ5hU
RkvkVZIHpw9tA8/s8Cf1hGkpOR9j/T5f+Th7LTaZKrc+z6Fgn/pz/dO0tfil
1dMyhZzPQ6Pyz5rshejV56Se9Kewc+O7nxWOQmS7Xnbw8SP372aJ1oVNQuy/
krAQvuQ8CbXfG+AuxMnKjOe93hQqfp1Rkw8SQqvqd/8KL9JXE5p+lieEYEcw
viWS54uZMkZy5Y1CHLYNVs+1Jnmb68U5Z7MO5UuuK/stpKCROftTnIs9qmqS
Up+VA3cGf5Z4O61H/eTNW//aA3OuMvN2+mxA9sDSUz632bhXKxccuNcBUlmt
S0qemWH+eaUdoiBHlHZu13owaArd7tDYQ4c24ql5TkzkpAm6fyg2HY90Qu3S
6cvS1Uww6sT5nhnmDDnWyH/ZHGPU0huMm45sgpp4ccrszSysrjlaMhblguLw
Yf+AI0bwuH9ByD61GbTIjlMOuYboW7j2QdwFVxxRqRPqNK6BCpvh+TBjC2wF
ng+6p6+BZEPASlrhVkScp93TN2OiPmnX36Yb3CCX9kb0OWo1bnfvGdnxzI3k
ssunqImBxEDad62N26Bj85f/ehUGSt8PH3jdsg1pMt6MiYBVKIveuXiRqztc
pDU0AqoMoDBj0tWt3R0N7ckXpRYZIIl6J6np7IGeWUW867H6+F4guh3S4YHg
dl63VJ8ecsZnTK/Z4ok/LhPd7zfpYXW4W+D5Hk/ULtl9SDp+JYbzxWyxnxfU
MoNUZ/mvwNTbZdkO/V5oOmdspOK/HMNSqmrs4O1QvR6gMrZNF6v1MnQ1h7Zj
6OZCeUbgMmTL7LgU478DE4Wf/UbjdfBN8R0jfGQHzphVhBekL8VxqV1OO4NF
ULD4/ffcWjo4U74UnNstgka/vOuWu3SMS3iLG/eKoH95LfPyLTrcJtwuMsJF
WKg696RpKR0GP4UD4mgRKmOdh/1z6Gj9qheZdFqENuXzJgMxdKi1fc+7USHC
tTbeNqENHU2vfH/1VIqwptqJX8il48jLXpv5d0V4tUuqSsaSju8tHYMHakWI
MG3jV5nSUdv4zJj7WITdmsI+5ko6tt+/2tjWLgJHeh8TinTMr9PVVHgvwuCB
q43ZM+horL0cwv4gQr+E8fBf0+kwrM6al9MtQtpD8avnUnTIVSZ5+H0VYfpp
yYW+IzTcrZAvy/wuwqI9uTItgzQEl8fKNg2JkDsiDjP5SkP7jcgrzDER1J4F
i2f00JB0/c+k6KcIkyXeCmGdNFiWhtpn/BZBaFST2/mehl///sh5IhbhF2P7
f3btNBRfDRybnBSh2J+z+9YrGv4H9O8qJw==
      "]]}, {}}, {{}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{"DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None},
  PlotRange->{{0, 200}, {0, 100}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 0}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.6389261287439013`*^9, 3.638926168383957*^9}, 
   3.6389263316941853`*^9, 3.638960565518962*^9, 
   3.6389607431192102`*^9},ExpressionUUID->"11fd190a-f3d9-43bc-96b4-\
ee4493670179"]
}, Open  ]],

Cell["\<\
Here we see both x (t) in gold and y (t) in green showing the effect of our \
dump in both tanks.\
\>", "Text",
 CellChangeTimes->{{3.638960902009433*^9, 3.6389609324594755`*^9}, 
   3.63896172151058*^9},ExpressionUUID->"1777dcea-da40-4f41-a4cd-\
e48380998720"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"xPlot", ",", "yPlot"}], "]"}]], "Input",
 CellChangeTimes->{{3.6389261827439766`*^9, 
  3.638926187283983*^9}},ExpressionUUID->"999d5159-f943-48a0-9bd3-\
b2f3b6559051"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[{{4.081632653061224*^-6, 0.}, {0.061343581608272184`, 
       0.}, {0.12268308158389131`, 0.}, {0.24536208153512956`, 0.}, {
       0.49072008143760604`, 0.}, {0.981436081242559, 0.}, {1.962868080852465,
        0.}, {3.925732080072277, 0.}, {8.181671083146123, 0.}, {
       12.155576217884596`, 0.}, {16.051529108610893`, 0.}, {
       20.277693003971414`, 0.}, {24.221823030996564`, 0.}, {
       24.93622448979592, 0.}}], LineBox[CompressedData["
1:eJxF0F1MEgAQAGD8WT+mblmm0XKJbfTAljVybdYgR80VGpEGZCiC/BiYGJS2
mDFjqWspa6sXhqRilq2gmSwmWVKmWzYYc5WMqT2Q/RqCilhE2cPdbbfbt9vd
dpctrGWL4wkEAv1frtaxtruGxCsHVvk/vJLKmz1cOtiUUUG2FBVg37Q+I6pg
gEX2HM4e2RGw8bKCLucVgovShbov6qPgY/TRzGIFE/y8YHJt+EYxOLiU7Paw
WWBKuphhZJ4AZ5s2fWotY4OfzUcs1dyT4M3WvF752RLwS2eSSllfCiZ2bJHK
zp/C/f6GlqYmDti/kOZp13LBS1xGwHSJB3buGs/3NJ8G7xu+bglfLcN/jHSy
aLfOgL9uP/66tZMPzqRRq0YN5eC48drd5AcV4DF93caDJQKww39xUepGtynJ
gRxOJbh/OtQ4OYG26eQ7d/CF4JTUGF/gQ+sPTcWReCJwoE/mUM+gzcupG4bL
q/A+jUDZMYsO3Y/SojVicKLD1l36DR1K2JZFU0lwPtdAIQXR3WukPdfOScE/
06aomkV0e0IdV66SgRnxP/qMF9DLhOqoqx4t+CPoomrQeyOs71Ed+t1crlZ/
G53lDfQO2NGeD4qV2UF08/vPTOIQOjAxM9/oRDtd7vzCN2jJiNXl9aGJryik
lGm0y3lPTfuI3v/izlazH500qBfVzKGH7Mk2UwCtetqyzhNE+wa0D/PCaP2T
3zFZBH24v4Ft+IVeebxgfhtFP7Iqw7EY+i9q8fhN
       "]]}, 
     {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwVxXsw2wcAB/BQ2qIOYzkmntEu6dDUI/klQr4SIRuNt6JRrY2Ezdz6wEqq
R8dcCTc7wqKt4Vq0p9POZdbRYtu5xivVnemDSate9Vqdxzy2/fG5j1NSRkSy
PolE8v3P/zuXbddftR/283xi1bu7K0LQFzeM0mWtPKPQcl/Rigjhf7mW0WRd
vGP0O8WqlyLEVC+G75UN8kaNbNJlfSLEroZ5rkrHeWRJCb2kQoS4er2Geeki
zyWqUbdBFyF+M04yLd3l6b1XNExNDMLYwUJiSmqGCoVls3xaiG2Xy+PkJTOI
jScnLjwTwvwd/x4q1xwZ492mBUNCeFjw0qJ6zfG91RzlnlqIbDMf9Y8jFlAe
v/1nVbEQBgc8o7JXLRFJnGJL3ISgGFJLtpnWCFOHQZEbgMYcvZ09CY7Ymrk8
JGUJkP/295KBXEdsPk1WnXUX4FS6wrZa5Yg1m+DBwoMCUBJt2e7PHKHat0fc
YynAN3zvc7EnnBC73jdXscRHnlHq7K04ZxRNautLW/iIqxr6IzrGBWZiLeve
IT5M715rvRFKg8aqzPIzhj8yyRtK7ec0PJbRF/l0f7z4MiJ/u5SGdkWQ1MHZ
H3dgGB2poeF4ZpD1jKU/IgbSNndEdLS9WJnvXAOUM97CGP5hULaev8l4ADg7
asYMvF0Rl0dr7Y0GVIFb+kdNGejWVYpS7Hk4kHixxtqega/E2amVFjzkZpE8
SEcYGFaYGAwb8CC5aXB6MIyBsSd5uclzfqAYm3alf8vAcld+rPFPflD12+U0
2x5FQtjIACfGD7VRvL+phz1AMc1NWq7yxdWkfB05yAva2ZdjzUwulGtFt5/H
eGFraSF7wpWLipLSrIYUL9x1yvSyo3LxdbvSxKPQC+9P3p9pMePijHGr57Ff
vZByRFtpN+ODwLanBQUCb+zat0lCan2woOftssRjYkLTPNli7IPpSs5CeygT
zIiHb9R6PtB9ALU8kQnhz8uhmnUORqODQ0zymIh/Fa+/9zUH3U2nzx3qZCI6
oU7e28NBZbiiV8JlgSxr1MouclA+VaGghrAgv3/z+uh5Dq7kVMfOnmBhuM/t
U3E6B5caG+azclhQpT4eD5ZwkLbRYVXRwULVvLi1lMOBb93rT/oIAu/ybZi0
dTbeqrrDJz8kcIm8v1+4yEazstbvn3gCAZ0O+9Km2CCXR1q7yQk8eFX80W8j
bGiuuBsGKgjsr+sP3HnERn6R0crJawS+U1I03B42Fi52PSp/SOCMvVFs/w9s
NFyoUTdpCZzU9Yc7NLERn3m+sVtHYFAw35F1nY2Aj+WyW4sESFSrX87WsPEv
m6um5Q==
       "]], LineBox[CompressedData["
1:eJwVz3k81AkDx/EZlVpk6VCpWD+zZmRiaKgZ5GsaYwxjJjmGQc7xw8g4isrS
o55ou6Zeu1QaFNlHT8luS65ybGWXvBwdm6OadqPUakU52jye3T8+r/ffH4uo
ZL9YHQqFovi7f2w6n1u4w4gDpnhhaFeoFNnxusqlqzgYfByi0gRLwY59LrNi
cJCsWRGSv12K0tBCB5mIg9T9M+fS3KUIlKWap8g5MJEe/z2NI4WBv9jgayUH
eW82u+63lyLTe8FI4wkOTJOmdUsspNjOTT5rfp+DNwO/2XB1pNBZ7Ul5Keci
w6TKMuWIBHXLibF5JReMvZObxPsk2PX5XP/qbC6Ugp2HnRIlGNS9fl1UysU6
WlkjSyzBjx/M4qpecMEqvjXeaixB7P2prt1JzshUjsx6a3zx84mKooU5Lsjr
K5gsvynG7fmOmq6TLvDKvZEkqRajRfVnd0GpCwxzH9IXlYlxw2/LQus2F9gX
Me1O54tRYdKhFC9yxZhNs5+9vxgHi8dcC466Yjs1MHDfmA+2VrG19DNb4dTb
3P8H3QcDisjTl2TANeYSDdEggiaspm5vBOAbrO1cVC1ChP9nz8QkcPvRufPj
l0QYcf/eZioDWDeQt/jJKREm1lHvCAoBSnKKm1GCCPr3S6dfPgQaQlpsB9aK
4OKmDd2wwx3Cwsg1XYe8ULJqJ/2amIdNS2VDnQlCtLSu38kM5IFLb71bFSmE
NnGooDKch5itVr1nZEIQLcG65ck8vM7WWOcKhKgg/YfPnOLBlvOKVkkIUVXv
VZb7kIdPBh0c3pAnmuRs88CwbWD5/jWZ4u+JgZLPVs0p+TDTOyhSBAmAJXqv
RtP5UHxxoDdMKkCFSq/+URYfBt06DiFeAqS668urj/HRd/hBUqSzAPq/G5RE
X+EjIJMTUGkugIuVEb3jDR97qiNXrh31QPEVk82FCR6gbebfJXM8EF1vGWRP
CvCVVr2hq44PzX4lEoOFsM2iqH8L3wbxyqhDo+ki0AjNk3+v58Eb7at9lT74
wfBVPMPUHc28/sXTx32x7sgMw5UGTEwZ9PT5ScHy2pf4vHgrmCtj+Rqf7dBZ
HqYSOrvComT5yBG5HyjGMebyp864+W72WrxsB3rEn760ruFiRbXTd4kJ/rgs
N+57fIyDn9r00lQZAWC+D5hsyNkC02KTODI1EHYn/dQ2324GczgzPzc3CIET
RrbeFU4Yfr+s7+QBGRj1xIj2viOmZPzxkr3BUBN5EqqRI9oY95z78kKwyF1l
8sKDDcfWo9emD8pRwKOKDE5vQvSdC1K3b0MxuLYopvNXB7xeL7l75EIY/Fqp
tCmGA1a7sWPai8Kxscr2Vs4xe1DvJdvR/7sTT4sKXA+PsvCzOsXY1T8CjVYd
N4VBLDQN7/kQ1xMBhcVEAc7Z4YSKPm4ZFAm+yXlO6l5bXH82md3/IBLKYN7r
7t0bUXsokfZFWBTMeHTqMQUTSw3nwyKGopBureiPSrWB2v0plQiOhtPxrjuO
Rzdg/DLZlK6NxtRV/SSctUb5jKF+a3gMzlXGBoY2M+CYFaEqfhmD9yzuiq8H
6ZisnHObS4pFm03tlncL6FjYVFsW8CYWZ66+WPGTuxUmF6w1c0tTwEmwZDJ7
z5dwZBUxiQkFNu2BjV8zDWW6cZcO74rDtiem9jXGNPy57Ck760McQr9KSP5F
bomTC1JkiWkkfO7ltj25QYCvM3ZZs5sEaaSUGNYQmKHEz3VnkHg4Vil0+4FA
xP8iLrKzSJQ90+ZcvELAYVb6x9whEgy7hPmkCwQevWUdUBeQSM0n2WuOEjAb
GP+upp4Ed6RIpyWcQN9j5ceXjSTqHhh+nJMTyPv1lY/pLRK72O1yl2AC4w+0
77LbSORbtIc17CDQ1t3jLOwkQfNwCWkUElDcqe4eGCLRnvGLVa8DAdPbTGLp
MxK9PVMNK1kEutv+k+72/O8fT0VdyEYCW1pK15QPk6Cs6Xw7TCeg16iOTnpL
4puWUU/qegK36g1qS8ZJGEbH0rxMCaTV5S/pmyChOHgx/tQqAkM1B646TZNw
ICxsLZcRUP/4aZ6cJVF1lndV+TkBj+uZfkV/kWD+a/ibWgMCH79/X941R2Jm
cPYFRY9AVbVqen6ehGt1ssZ7MYH/A9AZus0=
       "]]}, {}}, {{}, {}, {}, {}}}, {{{}, {}, 
     {Hue[0.3, 1, 1], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJxlj3k4lAkAhw1TrUnO0hS1Zphx7DAz3+eYUr5f1KilHDGOHLFESkU5NkJD
OlyhGBpHjlUeQpaV9olc7T4p3e2ibFsrTSWFSru07d/7x/u8z/vnywre6x6q
rKSk5PWF/8zOma0sXXnbbkfanOT09CM7x6ga1cjwBmrRhs97Nu2+TLk94eWY
hHdQWj83jtH8r1OSojdu88MHqCXDDIHCbojynnYlp8NGKIGRtMVP5SXlU0mr
ehX2hjI8LBBwsz9Rvp98/MbCPlP+TWcc+2tVEd2XfCVfqAS35kud13cy0JZz
ZwvZoIT4nmS398YLYc+O3xtdS4OY0pkdOKsGb8fuxolyFbC3XuPUZWggLdeH
fJ21AL+Ls+z85doY5KSLRsM0IGvc3H5zbilmjdJGdCc04P2+/WWbNxOa2uu6
DddoIidoJM3yIhOEFhXh0aMJh417ep98twzxGrZtLfe00ORTKWZ1LQddjfSI
n9ZBdJn5pCxiBfTnGWbOWjORrmzw2daGhQv0ipElCUwwJpvWtfizQNFZpEUH
Ezovmw3nUlkIVvl6MMBxGY7mVpz6PMDCOZqeSafXcmTJZT19oWyQc9o90nh9
VK2uOZx3zBDVCbQ5FX8DhPW9nYip40A6dS3zZqIBQi7ZmzCvc7A9MluvSG6A
Z3fVD55+wYF+oN4qi2EDFEbUKbG5XOTZWx3w3sZC/wmTM+klXCSr7lTU+bAR
uvZmUckRY/gU3nrgKTGCp0uiw0dbU1hrFoYaxBpB1rHygr3EFIuP+08pThtB
viw3a/c+U9w6qNBKuW8E5tL95oFVphAH0DfXenBQMqqd2M0wA8kRdc+5c3HE
q2l91W0zLGoua6hxMYFTE62lbCMPsbozsjt7TJBXOs6tDuDh8ffu0tksEzz4
uJqec4CHRszz3NpvglbuL5Ga5Ty434z4NLfRFNf6hyf6p3mQvbDaILE3w/HO
Syrr5eZgG/QP0q146MpVFI3ct0BGKqeH78FD0B/TW6rHLDA1mlTvu58HvZ2a
P7j/bYHeemFKYxMPC+5OFocY8BFuW8jxszCH5W7F2vCdfNRLgvc1G1vgdaav
lsoHPuTif5SFiwSYz4+4lZ8igFpgUjFzpQD72i74k8cFSIxTIpT4AhxtX+rQ
lyuA3zl60ICrAOWlCue+CgH0GYs6Ik8JUK0ifSjoEUB+Y0VCrZ4QLTMzUZfp
QpR4UJOGZgTidKJsaYeEUI+8emKhLYEaUY0NJ02IpCMO7EknAsOeOVy7DCEC
Wh3duiIJqJr7qrkUCbGS6dqwvYnA0ldB68d/FKJ0aPuuEhGJ4QRWBU/xpYOl
T3UdLRFuKE766ExA9uFo/SOJJeirKk5EuhPIz8yKq9phiXtLnvEHvQgca5Ut
JNItcSZCHFYcTCCa0UBu7rVE5eG3sT/FERBfHEpNdbCC1WOviF3lBMZpVkYT
lDVMD8WkTL4kMFawerzVxRpZs8GluyYIPP0GbYcCreH6lcRreIrAb55OzguT
rcHNzWyrmSXQdT7oAPeKNebHBDCeq5MocMvu8Vtjg1Y8DFEXkDg5mp9t6GwD
tUppg44liYyEIm/FNhsErVAwtL98plRXvYpLsIF2aLDmJ4pExEz74vx2G2xU
PqcX70Ji7dnnIb+KRPjLseBbIpLElLzL7c9NIpSx7/Qyo0jUykrs/vYV4V33
jdIPB0jontzKND8kghpfO7M0kUR/hsU8cbYIN0KcmnakkJAeVX0XUCaChjNH
YpxGYjyp4/rJqyLoDa5CXgaJqoPFbefviEBrXVGwJoeEb2xMdddTEfidU5kj
eSQ0o13zhqZEkMpneQkF/+9/AXnARxk=
       "]], LineBox[CompressedData["
1:eJwV1nk4lOsfBnASR6I6KpQilJmkQtPEWOZ+GcyCJkUkJUsN2ULFSVEkJEkq
S0URWaKTEqksqZxSCqmkUojQgiwtw+/5/THXXJ9rZq55n+e9v/fzargH2HtN
kZCQmCCv/78f8JbxVVA2wua5UXH1d1aB4fXBSZtuhGGfO/xpr1cha/MZAye+
EYpVdzMXzWTA0SlIfZeLEVRqg6+MLmVAfoOtfLyvEW5Unp1SwGEgVCD1qTLR
CGnfy97lhTGwjhWQpt5shDmdW0KnfmRgioq1RI8LCyvM46O2Fa1G+WzNL5O+
LATu87FSvr8a/jPFr1UOsDCtpdug6O1qvJEpLeVnsaDHEiqFzGDi+ojajuIu
Fj7Nt3gX4c+EV/Pok91+xrAYqb5+ib4G9Ym5GVMjTFCtdGnN3BhD1E0+uvHk
uAneL14zlpRuiOrAb42ns0ygbSmhOFhsiJv2hlOX1prAMuza0y0vDZGr9MjX
VtoUCrr2KcPaRog6/8X09FFTMPI4vqo1RjArZnTQUs0Qo+9oQPvIAkvd+df3
y2aolq1U9BpmgZm0f86tCjNIzompjZ9qjOVBD7g2b8xgNHxo7Ji2MRYwnf4N
VGPj9cVrUXu8jfHzzr5DFTlsXJ+MW/Wpzxht27clX3IC3l4+u7i/3QTnXG+U
h7kBwl8JzS59JnDbMO29rQjgGj5RuTVmgk/Uv8tG9wK6KW0lbEVTDC2QvG91
BngydnLmLitTTG/OGut5AeSZe24MLzSFCbtjs856CiFvzU+ViMwwuZoRNbGJ
QvYBr4CRYDPU6sbmN7lTWBA4T35ZhBm48/VG/wmiUPfK/6nXKTM4jEQcf3yC
wp+XQ8aqNWbwL1Sv9X1GwWFFzNWTc9nIVN5KK7E1h0JwdgqtlI3qmoVbdR3N
Ya5w5bbtHTY6drafzt9iDvn/GH97PGRDs9pZJifAHPO2u8e5vGEjV7ShO/WE
OcR+d9rMJYHiCl72oRfmGHAx2tyjDdx2Yag7ulpA80LTHUdfsk/Sw47NXhaI
HeLe9QsEJkr+TRT6WyDepsN7fwiAqSsn+BEWUIip/BgTDtQVLX3LvmCBUi1b
Y4sE4LFYLWNptwWKjzb4iQqAtsxpymJfDvJqZVzTP5Dfy8r1fg7h4IFGr2Rm
F5AbKFfRGs7BqYcspfM9QBA13eVqAgfLxGY5R78A0zvlMz2KOJi1+sXI4p+A
ifYs2qN+DiY8jrg6zKRwMXHWeNkwB1PTjC9IKVKQHZv1X/ZvDvLdpxUXzaHQ
8vDvnfunW+LIlnOG3+ZR8POeXaK3zBJZrSsvMxdTOF+ktOaMjyWiEpVTmtdQ
mDpXWTY6yBL/vMzu1WNR8Nmv/DrwH0tY+6ZvijOhwLRT2cePt4TEQVrhMopC
47d5VeJ8S2ywXZfA5FOQWLXQ2vOzJdLnGhV6u1DwqNDaqC+yAsNHRO34h4Jv
e73ZaIAVjH1vP6aHk9xM+mlX7rXCZ73xNZ/2U4ixLB/hHLECp1fj4YaDFAqe
26Q45VohQbyaKRlLYejz7ucRXVa4t7vnZ3oKhd/yqhWcASv0N1SfWXCaXL9e
dda0H1ZYtCTDOf0MBaU9coEnpawxl7XWOT6dgtGUzBl5mtaQiq67aZJFIXJ+
veCpmzU8Cvs3fy2gEGfqt+qkyBoYj1FkFFFIdlNUdQq0hvpBV509Vyjk5G7u
+xBhDUFv/fFvJRQeGgzGjpy3RtUL7fSb1ynMEMx/sOCtNUYXXevOvENB2b/q
yocua4xcmrnvyl0Ki054nsodsMZjddMrN6soGLws9tT7Y43h2wajNTUUHD0s
pDiqXHBtRsKL71M4t88XO5258NTR297XQNZnH270ehsXE67FN188IfeHnmBg
7cOFy3i87Z2nFAxfFC7W2seFzV2vjQfJHDWv6Jd9c5aLLp0Xzm+bKbCkf0vy
LnHxrDiNU9hCIeuN3O+yK1zk8RxP7X5BwT9W50vyXS42h+iHTbZSmPbR+zm/
gwu54Kbbva8pBJaHPSrv5eKoxGteehuF1sS4e9qDXNTlubhy35D9Mc6/MWUK
D1vrHtDS2ymwT/Wm3dLiwSiou3zOewq5O8eT6brExzJ6C4jlzWUTTjN4WPeD
c9e0g0LbV9qBIEseQte993H+QGE3d4e7zg4eqHlChncnhXa1vS6pATx4/2yb
6CI2H4nZIBPKg+2ChmOuXRRmXcy1+hjLw7dVjX9ZdlPYG1rGFp7goczT7lcp
8Tu7B4Z303hwd5pRrf6JQuHvbp30Ah6a+RItX4gVm0a0ZEt54MZHLhX2UAi9
LL1wTyUPMkrv3EqIrRyWzLRv4EF8LDvKs5fCh2LP4WlfyecVl8T5nylwD4cM
7B3lQfJN6INh4mKX6O7uCR5SAouOsfoohMvmvKyZycfEi5VLqog735U+W6nC
h1Zf8J8/xPwb9/47t4gPtSmSHWv6SX7cOyvD9PnYX1X2Oof4gOHw9R4jPphZ
ZaOtxF0zpIodzPn4NKV4ucwABUG3Yt49Ph8eSZMHDYivVWpm6a/nY5qH3JgL
8bxkg7RMFz5C5HSSDhFHisyTFTz50DheJswl/mRmf3SfLx+qe6aaPCS2nese
/TmEj4t1ng7dxOP5pUoPw4kXTnycIM4xk87PieYjyTtVUukLBWGzo/GhBD4y
mW9LdYj/7Lj8ZGsKH0f3BP8xIb785+dW07N8KB+cfGtDvOGEYGh+Dh/nlbRc
NhFLaJ+LHi/kI8J9/x4v4qJbX5VaS/moFBcY+BM7rUV+aSUfGwctk0OIp3ad
MD5xj4+O8u4zocRXQzuf+D/mo5ejbvUP8WaF1W42zWS94ujMMGLZizFDS9/w
EVyXm7uH+DrzVfRfnXzojf+9ZRex2+Olyt195P92r6v3JpZ325dfO8THpowv
PVuJy380GGf94mOE71u1ntgzTu3p/ikChA4I11kSz1ILdHORE4AVuCCLQXz7
Ws2QoaIA7utsizWIRdazDyvNF8A8desBeeI57Z7KPzQEuNveoDhC9rM6sCz/
+VIBcrjy/m+IfaVlTUr0BZBIT06uIlZJd36aYCTAviVNhy4Q160odPOhBCh5
xaIOEi9wsju8ZJ0AFnuNDVjE9QOZylLOAniszfOeTRxycDC/w00Ah+VdoX0k
Pw0FKU8zAgUQvNhCTyYOZX9yCwsVoLbE9Yk78eKWNcOOkQKE3yhZr08cLm5T
Vkwi11t/Q6Ge5JWerFvw7YwAE/YqVknELdoHTJ5kCuAps8zbkVhXqLEttkSA
mvyc0HYyD6+6goa9bgpg8CjP+yxxdFjdYYsqARaEnbTbRNx+cUfBxFMBpOU5
4kYyXwkjV4ZDvpL1pHgvzybzZxg/edh+VIDi+EVie+IutXUqehMCFFD3mySI
Tbg/TPoVbDBUeDXVkczzQDorZttyG8TNjmroI/0gwEMVO18bPJhRWH6T9MuG
2KjbLSE2GItUiWMTb3nGdnPZb4PWyqMr75M+CnIrzxMl2qBNcf60R6Sv0iPz
mVFXbZBp7Wh46y2F3uqjG8p/2KCRs+IRk/TjkCx33ExsA0efVoNzr0j+hVPP
3pe2hcn7s+mSxDM/hHc2KdkipH/nrjrSr0xJ/6AvhrZoET6PNCB9fJgSJmnu
twXTfAnnGunzxDh5Rv5hW3hUudf+JH2f+rz+5cpE8n3DFdvZxEXbKHXTTFt4
067R7j8m+3/QoHhjjS3a2subbtVT0Kyd05AgbYfExnn3hLUUqsxf/zV2zA6b
9HU9mOS88rVk1TqctsMtvthKUEryxc0Iv37eDlFhiTlbrpH127oO7iqxQ5hU
RkvkVZIHpw9tA8/s8Cf1hGkpOR9j/T5f+Th7LTaZKrc+z6Fgn/pz/dO0tfil
1dMyhZzPQ6Pyz5rshejV56Se9Kewc+O7nxWOQmS7Xnbw8SP372aJ1oVNQuy/
krAQvuQ8CbXfG+AuxMnKjOe93hQqfp1Rkw8SQqvqd/8KL9JXE5p+lieEYEcw
viWS54uZMkZy5Y1CHLYNVs+1Jnmb68U5Z7MO5UuuK/stpKCROftTnIs9qmqS
Up+VA3cGf5Z4O61H/eTNW//aA3OuMvN2+mxA9sDSUz632bhXKxccuNcBUlmt
S0qemWH+eaUdoiBHlHZu13owaArd7tDYQ4c24ql5TkzkpAm6fyg2HY90Qu3S
6cvS1Uww6sT5nhnmDDnWyH/ZHGPU0huMm45sgpp4ccrszSysrjlaMhblguLw
Yf+AI0bwuH9ByD61GbTIjlMOuYboW7j2QdwFVxxRqRPqNK6BCpvh+TBjC2wF
ng+6p6+BZEPASlrhVkScp93TN2OiPmnX36Yb3CCX9kb0OWo1bnfvGdnxzI3k
ssunqImBxEDad62N26Bj85f/ehUGSt8PH3jdsg1pMt6MiYBVKIveuXiRqztc
pDU0AqoMoDBj0tWt3R0N7ckXpRYZIIl6J6np7IGeWUW867H6+F4guh3S4YHg
dl63VJ8ecsZnTK/Z4ok/LhPd7zfpYXW4W+D5Hk/ULtl9SDp+JYbzxWyxnxfU
MoNUZ/mvwNTbZdkO/V5oOmdspOK/HMNSqmrs4O1QvR6gMrZNF6v1MnQ1h7Zj
6OZCeUbgMmTL7LgU478DE4Wf/UbjdfBN8R0jfGQHzphVhBekL8VxqV1OO4NF
ULD4/ffcWjo4U74UnNstgka/vOuWu3SMS3iLG/eKoH95LfPyLTrcJtwuMsJF
WKg696RpKR0GP4UD4mgRKmOdh/1z6Gj9qheZdFqENuXzJgMxdKi1fc+7USHC
tTbeNqENHU2vfH/1VIqwptqJX8il48jLXpv5d0V4tUuqSsaSju8tHYMHakWI
MG3jV5nSUdv4zJj7WITdmsI+5ko6tt+/2tjWLgJHeh8TinTMr9PVVHgvwuCB
q43ZM+horL0cwv4gQr+E8fBf0+kwrM6al9MtQtpD8avnUnTIVSZ5+H0VYfpp
yYW+IzTcrZAvy/wuwqI9uTItgzQEl8fKNg2JkDsiDjP5SkP7jcgrzDER1J4F
i2f00JB0/c+k6KcIkyXeCmGdNFiWhtpn/BZBaFST2/mehl///sh5IhbhF2P7
f3btNBRfDRybnBSh2J+z+9YrGv4H9O8qJw==
       "]]}, {}}, {{}, {}, {}}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{"DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None},
  PlotRange->{{0, 200}, {0, 100}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 0}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.6389261883639846`*^9, {3.638926325084176*^9, 3.638926335664191*^9}, 
   3.6389605655389614`*^9, 
   3.6389607431392107`*^9},ExpressionUUID->"22f481a8-b795-424d-bc23-\
ecd5cc0852ac"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Suppose we have a spring mass system  and we want to see the effect of \
turning on a force and turning off that force, over and over again, perhaps \
by placing the mass in an alternating magnetic field.   We model this  with \
small rectangular functions of forces, 0.5 units high and 1 unit long, spaced \
2 units apart, centered at 1, 3, 5, etc.\
\>", "Subsection",
 CellChangeTimes->{{3.638960939499485*^9, 
  3.6389609546995063`*^9}},ExpressionUUID->"6c0febf5-d88f-4f8d-9be1-\
03496ccc1997"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"rut", "[", "t_", "]"}], " ", "=", " ", 
  RowBox[{"Sum", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"5", "  ", 
      RowBox[{"UnitStep", "[", 
       RowBox[{"t", "-", 
        RowBox[{"2", " ", "k"}]}], "]"}]}], " ", "-", " ", 
     RowBox[{"5", " ", 
      RowBox[{"UnitStep", "[", 
       RowBox[{"t", " ", "-", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", "k"}], "+", "1"}], ")"}]}], "]"}]}]}], ",", 
    RowBox[{"{", 
     RowBox[{"k", ",", "0", ",", "10"}], "}"}]}], "]"}]}]], "Input",Expression\
UUID->"555a3825-ec5f-461e-856c-b6a2a0213afa"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", "5"}], " ", 
   RowBox[{"UnitStep", "[", 
    RowBox[{
     RowBox[{"-", "21"}], "+", "t"}], "]"}]}], "+", 
  RowBox[{"5", " ", 
   RowBox[{"UnitStep", "[", 
    RowBox[{
     RowBox[{"-", "20"}], "+", "t"}], "]"}]}], "-", 
  RowBox[{"5", " ", 
   RowBox[{"UnitStep", "[", 
    RowBox[{
     RowBox[{"-", "19"}], "+", "t"}], "]"}]}], "+", 
  RowBox[{"5", " ", 
   RowBox[{"UnitStep", "[", 
    RowBox[{
     RowBox[{"-", "18"}], "+", "t"}], "]"}]}], "-", 
  RowBox[{"5", " ", 
   RowBox[{"UnitStep", "[", 
    RowBox[{
     RowBox[{"-", "17"}], "+", "t"}], "]"}]}], "+", 
  RowBox[{"5", " ", 
   RowBox[{"UnitStep", "[", 
    RowBox[{
     RowBox[{"-", "16"}], "+", "t"}], "]"}]}], "-", 
  RowBox[{"5", " ", 
   RowBox[{"UnitStep", "[", 
    RowBox[{
     RowBox[{"-", "15"}], "+", "t"}], "]"}]}], "+", 
  RowBox[{"5", " ", 
   RowBox[{"UnitStep", "[", 
    RowBox[{
     RowBox[{"-", "14"}], "+", "t"}], "]"}]}], "-", 
  RowBox[{"5", " ", 
   RowBox[{"UnitStep", "[", 
    RowBox[{
     RowBox[{"-", "13"}], "+", "t"}], "]"}]}], "+", 
  RowBox[{"5", " ", 
   RowBox[{"UnitStep", "[", 
    RowBox[{
     RowBox[{"-", "12"}], "+", "t"}], "]"}]}], "-", 
  RowBox[{"5", " ", 
   RowBox[{"UnitStep", "[", 
    RowBox[{
     RowBox[{"-", "11"}], "+", "t"}], "]"}]}], "+", 
  RowBox[{"5", " ", 
   RowBox[{"UnitStep", "[", 
    RowBox[{
     RowBox[{"-", "10"}], "+", "t"}], "]"}]}], "-", 
  RowBox[{"5", " ", 
   RowBox[{"UnitStep", "[", 
    RowBox[{
     RowBox[{"-", "9"}], "+", "t"}], "]"}]}], "+", 
  RowBox[{"5", " ", 
   RowBox[{"UnitStep", "[", 
    RowBox[{
     RowBox[{"-", "8"}], "+", "t"}], "]"}]}], "-", 
  RowBox[{"5", " ", 
   RowBox[{"UnitStep", "[", 
    RowBox[{
     RowBox[{"-", "7"}], "+", "t"}], "]"}]}], "+", 
  RowBox[{"5", " ", 
   RowBox[{"UnitStep", "[", 
    RowBox[{
     RowBox[{"-", "6"}], "+", "t"}], "]"}]}], "-", 
  RowBox[{"5", " ", 
   RowBox[{"UnitStep", "[", 
    RowBox[{
     RowBox[{"-", "5"}], "+", "t"}], "]"}]}], "+", 
  RowBox[{"5", " ", 
   RowBox[{"UnitStep", "[", 
    RowBox[{
     RowBox[{"-", "4"}], "+", "t"}], "]"}]}], "-", 
  RowBox[{"5", " ", 
   RowBox[{"UnitStep", "[", 
    RowBox[{
     RowBox[{"-", "3"}], "+", "t"}], "]"}]}], "+", 
  RowBox[{"5", " ", 
   RowBox[{"UnitStep", "[", 
    RowBox[{
     RowBox[{"-", "2"}], "+", "t"}], "]"}]}], "-", 
  RowBox[{"5", " ", 
   RowBox[{"UnitStep", "[", 
    RowBox[{
     RowBox[{"-", "1"}], "+", "t"}], "]"}]}], "+", 
  RowBox[{"5", " ", 
   RowBox[{"UnitStep", "[", "t", "]"}]}]}]], "Output",
 CellChangeTimes->{
  3.638917803097895*^9},ExpressionUUID->"c1dead78-e907-4f14-a7d8-\
3d11f1970028"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"pRut", " ", "=", " ", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"rut", "[", "t", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "0", ",", "20"}], "}"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "20"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "6"}], "}"}]}], "}"}]}]}], "]"}]}]], "Input",Express\
ionUUID->"c37b6df7-9165-4ffd-b5e7-c55b2a153242"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
     1.], LineBox[{{4.0816326530612243`*^-7, 5.}, {0.19628680808524648`, 
      5.}, {0.39257320800722767`, 5.}, {0.60537015816092, 5.}, {
      0.8181671083146124, 5.}, {0.8678409224988433, 5.}, {0.9175147366830743, 
      5.}, {0.9423516437751898, 5.}, {0.9671885508673052, 5.}, {
      0.9796070044133629, 5.}, {0.9920254579594205, 5.}, {0.9982346847324495, 
      5.}, {0.9982346847324495, 5.}}], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwBGIQ7ROYedxY6IM9AxSkSHAsWKSN4FffX1Yh6IrgT1rm
GtgQh+Cvyn2i+b4cwb/1W/H2mVUIvoXEXNsOgY9w/reAyUz/byP4hYfqe94U
fYbzfwhOWXu7G8GvS1xx7tQSBL+H4aLAymsI/go7pampVl/g/Ae7jsy9x/gV
zg/YzLn+woRvcP51JrkL+1ci+HFBRh/XHULwcz5GGfd+QfA79Nds94z4Dufv
X+134JD8Dzhfb8nki1vW/YTzRWYYfD9wEsH/3X1W5uwTBP9EMXvGU6lfcH6S
c/U/0XYEf+qjJO3y+N9wfs21/wHNVQh+0qk5Zf1TEXy9TdcOLj+N4J9o9Iq4
Yf4Hzv+jYNRqKfAXzn8kcn6VqzaCf5Ij50KgG4I/7cNS6awaBN/ggOSmWS8Q
fLEt264vY/4H5/9dHvx3kxyCf6q/1+N0CIKfHM94//cBBN8reB4Lxx0E38Dd
WkvkO4L/R6+0VEf3P8K9SkKzLTwQ/JNi6w+4JCP40/694I6dieDXfGo1zNyC
4Cc/UwovPY/ge93aX9P4CsFXXjj3N/8HBB8At/jUog==
      "]], 
     LineBox[{{2.0038910075435785`, 5.}, {2.0145625382241397`, 5.}, {
      2.0277693003971415`, 5.}, {2.224975801748399, 5.}, {2.4221823030996563`,
       5.}, {2.635899354682625, 5.}, {2.8496164062655933`, 5.}, {
      2.902071266111183, 5.}, {2.9545261259567734`, 5.}, {2.967639840918171, 
      5.}, {2.980753555879568, 5.}, {2.987310413360267, 5.}, {
      2.9938672708409655`, 5.}, {2.996097931156149, 5.}}], 
     LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAGIQPXnihXN/2TkcGKDAdwcvjw8fgv/EdeKundIIftVl
kUx1TQR/2TvpY0wuCP4/Fa2GnZUI/pRNa/XU2xF8LQfDu1OmIPhh0RZWBesR
/PUT3b6oPUXwE/4lZUwJ4ITzD1+fHZCvzoUwPyn0y1djBD/tLd+MGgcEn4u5
6X5nJIIfoJeRt6Qbwb/XYtJz8z2C/8vw7HHnHdxw/pk9bdmnjiD489wd+AMv
IviOsZvD4l4h+B0dM59WyPDA+WL3U5nXNSD4hj3/7CQ8eeF8o8w/KWvDEHwT
t19dTikIvhnDt2s59Qi+TcnbvINbEXyPmDvzspT44Hwvy1tH/usj+N5iN15N
sUXw/S5cNtsfgeCHuJw+J9yP4Cfo7Pq35zeCn8S5QyWIkx/OT3621eu5GIKf
tmDjNEEjBD9HZKVeWgaCn/dxWcjvUgQ//9ySqgnNCH5Rx4Jju+Yh+MWp8974
r0HwS5zmCD3dieCX/5kex38Vwa+4ObVlySMEv2rb5FWWHxD8anACx80HAIUL
ovM=
      "]], 
     LineBox[{{4.005561758282111, 5.}, {4.018826026794443, 5.}, {
      4.032090295306774, 5.}, {4.058618832331437, 5.}, {4.0851473693561, 
      5.}, {4.283273972136633, 5.}, {4.481400574917166, 5.}, {
      4.675629565497091, 5.}, {4.869858556077015, 5.}, {4.922543441279924, 
      5.}, {4.975228326482833, 5.}, {4.981813937133197, 5.}, {
      4.98839954778356, 5.}, {4.9949851584339235`, 5.}, {4.996102831869125, 
      5.}}], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAmIQrbe2bd5fZhEHBiiwup2gGsWB4PcEW7VJ8CP4Bi5v
3afKIPhNe46tCFZG8K+YLOAU0kLwK1SDT/eZI/gH2Xb6dQQh+CL1k9a7RSL4
ad+zBVgTEHyuF3KXGnMR/KCTLaHVHQj+k+6AmLx9CD674IvMEC1ROP9be4zr
fAME/9m/CwqvzBD8Y292Xq93RvDbTnS7ro5B8Nka9BWZ+pH478turP+MZH7q
682/fiKZfye+35VBDGH+KQ+32zwIftsyqS1sagg+W9y+/tgIBJ/1LKs7914E
nyd3TvLdwwi+CK9xw/pTCL6Kb8LO4BsIvsvZXdpzPiP4TWfzBXS1xOH8rlw2
3f8GCP4k3rmeF80R/EW+p5pKXRH8g2dVvu5NQPAZzt286TcdwefIK/imMA/B
F+BjF/68BMFX8DPxmb4Jwdd4dyojcyeCb9CX2Gp9AMG3P9e37/5ZBN8tT/X2
xisIvh/fnu/NtxH8sHVBImGPEPw4v5cGGi8R/LR39b6/3iP4eX1iWWe+Ifhl
4AyAmw8A4ieiAQ==
      "]], 
     LineBox[{{6.004335928929889, 5.}, {6.057623028336533, 5.}, {
      6.110910127743177, 5.}, {6.320160913169147, 5.}, {6.5294116985951165`, 
      5.}, {6.724560790604317, 5.}, {6.919709882613518, 5.}, {
      6.946167337893632, 5.}, {6.972624793173747, 5.}, {6.985853520813803, 
      5.}, {6.999082248453861, 5.}, {6.999082248453861, 5.}}], 
     LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAGIQ7bVCN/Qqq4wDAxSoXJpnP5sHwf/7m18rURjBv6ba
KKIuheCv9//0740Cgt9RmfxykzqCb33WdZ+dKYK/oIQrIywAwc8+PHl3axuC
7/KWZZl3L4IvJ142QXAKgn8hKyJ17kIE30xIln/rHgSfIXFZ0pNPCP7Ufzs4
neNl4Xwe9aN5U1MR/Bb/i5efZyP4RQtezu2pQPD9nKSMrk1E8NnaqqMyjyD4
Fbx2q/s15eD896ZeAo/0Efy0uLBSEzMEP2R9nv1NJwTfMHD+ZaUYBP/VFIY/
W/sQ/GiZwz53PiPJ5378tPUXgl+xX35mP6M8nD8tqeapEz+Cf2mFad1KLQTf
y3TF+rJEBP9m27XQgAwEP+MGyx/NfAS/rTrR424Ngn/ooNRD5xkIfqCwZ7vs
fAT/QUq57velCP4/9iuVqzYj+FZ+vUKC5xH8k/N373h1FcGP+Pgy7sgdBP+Z
kwTrvMcIfukUt9XlrxB8lmclgYEfEfxJ5ou/a/1A8BU7L85l+Y+bDwBGVaBq

      "]], 
     LineBox[{{8.005730688563446, 5.}, {8.032489250945428, 5.}, {
      8.05924781332741, 5.}, {8.112764938091374, 5.}, {8.166282062855338, 
      5.}, {8.376452949710583, 5.}, {8.58662383656583, 5.}, {
      8.782693030004307, 5.}, {8.978762223442784, 5.}, {8.985405340432479, 
      5.}, {8.992048457422172, 5.}, {8.998691574411865, 5.}, {
      8.998691574411865, 5.}}], LineBox[CompressedData["
1:eJxNzlsogwEYBuB/LsihNhERF9tKRqQZc8jpBhdWUmQuZA4jpRU5R8uhRBEr
YVnrT5rMPzsox2TMRC0j0YiIyFywVs5zKHn31dfbc/G9fcxySUGVB0EQcT/7
m0kJ/SkrHqxM4m/uyEEn0xMeY8ioPm/4xS5nFTFglVB5thoAF5unRtnB8BI5
5/MUDrcJ1x0D0XCUeVPtiIVtvB2xkAunMqy2iGT4Y/vKuJENd/I8Zc8iOJb0
EZRWwed0upepBs6wB7ePSGCC5FTEdMBddEF8xRjcey87tFjgnuOb3Xerm7f4
xsgjt3vF6XzXqdt/BezBxDu4aVmXq6Cx/13Tb12r48HVzeyFCT4srmxUm1Pg
yvQQOTMLFjnKWo4EcEnJIzetGs6Loqv8JmDhjkTFmXTrF++rspWwlByekU7D
htDAWacODvMNoc72YM5MK/VqgRNzbFTQAZzfLdfkn8A97+HarWt4eLxTe3kL
K/gXWtc9vNig1CU9wSZ/mr7QCR9oRPr6Z/hCYNQPvcEPdpZB/QnXGqRfNBf8
DedRqc0=
      "]], LineBox[CompressedData["
1:eJxTTMoPSmViYGAQB2IQPc27nuEfo4oDAxiIOLBpPNnyjBnBFz7mspWZHcFX
SFm6VYELwbdakLYtSgDBD7mjvn2KGILfEbJqB4cygr/njM6uGn0EX2Wv4d4U
DwS/d63ZAZ9EBH8NQ+69hLMI/qngxX9KLFXhfI+iaQ8eZSP4Ryd0HgmYh+Cz
KDRva9+O4Dutr1mx7wKC/6isUjHqLoLfaFc26+tLBD9g0Zcw5w8IvgJbsfDE
bwg+h8Wmj9t/IvgfMj+ev/cHwZ84FRTACD4ABihXAQ==
      "]], LineBox[CompressedData["
1:eJxTTMoPSmViYGBQBWIQnZ+1peE/o5oDAxQcOJvfo8OM4JuIOHBPZ0PwV0QJ
dDFyIfj9zze0XxNA8OMYPzU1yCH4f0xKKq9YIviWcyrSagoQ/E1ZjQ5n7iLZ
l5RwQu0hgr8t0j6g8QmCv9Pjb7zZayT3qlXWL/iB4J99VLCvRFgdzn8RlWAj
64ngZwXZHyn3QfDfeMr5XPJH8N9b3IluD0Pwv4lFVH9MRvCZL/vvOlqH4Mt5
21vkbUHw3x3M/tu3HcHfbzHj0PpdCH6C2kefjwcQ/EWMixNLziL4RRXn1aZe
QPCd3/9+vfUygv/kTkjZ95sIvvoOtu6qZwj+Dz3jgNkvEfwTS+NF97xB8v/k
HfP/fkLwrbiepsh9Q/C5GwW17H8i+He+276P/4Pgr8kDJRjcfAD5x4Sw
      "]], 
     LineBox[{{12.005138206167196`, 5.}, {12.011247598026012`, 5.}, {
      12.017356989884828`, 5.}, {12.023466381743642`, 5.}, {
      12.035685165461272`, 5.}, {12.047903949178902`, 5.}, {
      12.145654218919947`, 5.}, {12.24340448866099, 5.}, {12.45541557837479, 
      5.}, {12.667426668088588`, 5.}, {12.766381366237102`, 5.}, {
      12.865336064385618`, 5.}, {12.914813413459875`, 5.}, {
      12.964290762534134`, 5.}, {12.976660099802698`, 5.}, {
      12.989029437071263`, 5.}, {12.995214105705545`, 5.}, {
      12.996108949417103`, 5.}}], LineBox[CompressedData["
1:eJxTTMoPSmViYGBQB2IQHcTwj/Efo5YDAxRYKMr/esiM4D/W1prLw47g95mZ
OphzIfhWjg6PE3kR/AlhYZrbhRF8u8amrYkKCP53mzmJNcoI/oYfW3mnqyH4
ygUvU8/oIPgc8QFi5pYI/mUbuXKeIAQ/48dOi+3NCP6k/I+7eZ4j+Nft53Bk
v0LwZQTcQ0++RfCXb5jzrvULgr/no7vif0ZtOP9Z8by2jzIIvlWFd+C1IAS/
3uPbXJMwBP+IxMJXkyIRfP+d35r9ExD8lF8Lt53IRfD7an5I7+5A8B81LH02
fx+CX3ZhbsGRgwg+l8K0Xy+OIPhG+9v4jE4j+M1/082OXEfwJXwTDry4heCv
mRPhxXsPwb9i7RkX9gTBV6nSanvxAcHfcVJJgPcLgu8jKT3L8DuC/yBDWCXs
F4JfsoN7XdVfJPPACQzBBwAtz4M4
      "]], 
     LineBox[{{14.003891050778225`, 5.}, {14.007352888158316`, 5.}, {
      14.013491033186796`, 5.}, {14.019629178215277`, 5.}, {
      14.044181758329199`, 5.}, {14.068734338443118`, 5.}, {14.1669446588988, 
      5.}, {14.265154979354483`, 5.}, {14.478086170497559`, 5.}, {
      14.691017361640633`, 5.}, {14.790432110503787`, 5.}, {
      14.889846859366939`, 5.}, {14.939554233798514`, 5.}, {
      14.989261608230091`, 5.}, {14.995475030034038`, 5.}, {
      14.996108999225997`, 5.}}], LineBox[CompressedData["
1:eJxF0mkowwEABfC/K2ZWmMhqcq3kGJIVSVLmCKEUSrLsb+WYkKu/T66i0RpT
ZORoIucHNJHjgytaphwxs2y1NDS52hJK3qvX6/f9BQjEeUJ7giAif/q75Zw8
4suOm0T8hb5xt0J3hFvG1vzinWFTW1+nyBUuKCcf5QyYx/XafGHCUx4PnEAf
2Ot1W5LDgi3r4uI5f3g+/chGRsBh2sWqjih4ulaunYiBx4dLt3Rx8ID5va2I
D1PSYHp2CZxx2eobK4WNoiiewyv85KFMFX7AHyp24Z4VpjHoVI995L/Dlwzb
THe47nMoKzgMJrqdhCmlMC2GalCWwZ7Xli6aCA7i6maOq2H+qeo5n4IlrBqK
HITlu0bJ/hCsqCweDVXAi5sZO4+T8JmA49K4DLNmr2Rdx3CtRqFfUMMHVkH0
hQZuynw4CbmC1fUL7NwbOGSkrrJZB5+brbRDI8z13iqwmODOxHYlywxrybS3
5GeY1+eWUvEC966qZbI32HDbr1//hBNcCqPvbbCN/D04/A2XbKRf
      "]], 
     LineBox[{{16.003903801855365`, 5.}, {16.049430556414936`, 5.}, {
      16.098765742000097`, 5.}, {16.19743611317042, 5.}, {16.296106484340736`,
       5.}, {16.509957776913087`, 5.}, {16.723809069485437`, 5.}, {
      16.82878590967131, 5.}, {16.93376274985718, 5.}, {16.960006959903648`, 
      5.}, {16.986251169950116`, 5.}, {16.992812222461733`, 5.}, {
      16.99937327497335, 5.}, {16.99937327497335, 5.}}], 
     LineBox[CompressedData["
1:eJxTTMoPSmViYGDQAmIQfaCi7mULo6EDAxTszN/w1IgZwd+U9ujhAxYEf1Ws
yL0+NgR/jnfFtVecCP5Up1WXZnAj+H2Wd8658SL49eoOxxcJIPhJzBw7osQR
fI3d02eeUkHwTxQWbIlWQ/AzNDzPv1FH8FdO/cXCr43gaxXEFgQbIvjaqsru
d2wRfL3+dV/ehiH4pslH/QU7EXyZJc+sjnQh+ExP2dXKexD8c2lef+70I/hp
WedXrJiG4M8ovMnosATB/1X/dnPefgT/wQG++YoHEfxjjAZdVw4h+JObixKs
jiH4Ou3fedjOIvixfYxpc28h+C7nlQID7iD5X8DFhvkegv9tYptQ5kOk+JjK
vd/kBYJfck1n1fOXCH6UuN/UWa8RfPWZE7IZ3iP4B+aISpz5iuD7zb2rmPQd
wb89d6n2jx9I8TUv17TvF5J75pnaq/xB8Fvm//XY9RfJvp///zP8R/AB2dmS
Fw==
      "]], 
     LineBox[{{18.003890991217165`, 5.}, {18.00971068945471, 5.}, {
      18.03449329492595, 5.}, {18.05927590039719, 5.}, {18.108841111339668`, 
      5.}, {18.158406322282147`, 5.}, {18.257536744167105`, 5.}, {
      18.356667166052063`, 5.}, {18.551030397621368`, 5.}, {
      18.745393629190676`, 5.}, {18.850830520091186`, 5.}, {
      18.956267410991693`, 5.}, {18.969447022354256`, 5.}, {18.98262663371682,
       5.}, {18.9892164393981, 5.}, {18.995806245079383`, 5.}, {
      18.996093751594387`, 5.}}], LineBox[CompressedData["
1:eJxTTMoPSmViYGDQAGIQ/UXt5///DMYODFBQ1L38qQ8Tgn8mz/7IH2YEXz3o
+qI1rAj+HQn2BB5OBN99Wdqt0/wI/qLOfzuqBRH8PznTpmsLI/ibjI+FdIsh
+DIHVc97ySL4H24/OXxSC8H/VKd8MEYHwf+imLTvvS6C/yP9/g5RQwSf4cvN
tYnmCL4Az/npP50RfAObndmasQh+/pxe4c5+JP8zqrz3mojga6XvOsUzGcF/
Yvi8ccI0BD/iuMOH6XMRfKdPn88sW43gi3lEtR05juAXr/2Q2HYSwb8g1G7r
cRrB7767+cvpc0j+KeZNvnwVwX8194D9o8dI4c8cLr3kKYK/JOPtt9TnCH68
sdS6l68Q/CsnimU+fkTwDfW4fmz6jOD3TV5wueQrgu8Zd7brxw8Ef9nh5LRd
vxB8Fs1fjjV/EPzEvgmydv8Q/H2fQQkOwQcAGV6VSw==
      "]]}, {}}, {{}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{"DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None},
  PlotRange->{{0, 20}, {0, 6}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 0}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.6389178032478952`*^9},ExpressionUUID->"30d0fa43-a882-4035-8892-\
fb53b2545f9d"]
}, Open  ]],

Cell["We apply our force function rut(t).", "Text",
 CellChangeTimes->{{3.6389609734995327`*^9, 
  3.638960988139553*^9}},ExpressionUUID->"6adf16ab-64b0-464f-95f7-\
7695a06ccbbc"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"eq", " ", "=", " ", 
  RowBox[{
   RowBox[{"LaplaceTransform", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"1", " ", 
        RowBox[{
         RowBox[{"y", "''"}], "[", "t", "]"}]}], " ", "+", " ", 
       RowBox[{"6", " ", 
        RowBox[{
         RowBox[{"y", "'"}], "[", "t", "]"}]}], "  ", "+", " ", 
       RowBox[{"5", " ", 
        RowBox[{"y", "[", "t", "]"}]}]}], "\[Equal]", 
      RowBox[{"rut", "[", "t", "]"}]}], " ", ",", "t", ",", "s"}], "]"}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"LaplaceTransform", "[", 
       RowBox[{
        RowBox[{"y", "[", "t", "]"}], ",", "t", ",", "s"}], "]"}], "\[Rule]", 
      RowBox[{"Y", "[", "s", "]"}]}], ",", 
     RowBox[{
      RowBox[{"y", "[", "0", "]"}], "\[Rule]", "0"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"y", "'"}], "[", "0", "]"}], "\[Rule]", "0"}]}], 
    "}"}]}]}]], "Input",ExpressionUUID->"3f02af97-1135-4be7-b3ed-\
0bbeaf6844c8"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"5", " ", 
    RowBox[{"Y", "[", "s", "]"}]}], "+", 
   RowBox[{"6", " ", "s", " ", 
    RowBox[{"Y", "[", "s", "]"}]}], "+", 
   RowBox[{
    SuperscriptBox["s", "2"], " ", 
    RowBox[{"Y", "[", "s", "]"}]}]}], "\[Equal]", 
  RowBox[{
   FractionBox["5", "s"], "-", 
   FractionBox[
    RowBox[{"5", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", "21"}], " ", "s"}]]}], "s"], "+", 
   FractionBox[
    RowBox[{"5", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", "20"}], " ", "s"}]]}], "s"], "-", 
   FractionBox[
    RowBox[{"5", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", "19"}], " ", "s"}]]}], "s"], "+", 
   FractionBox[
    RowBox[{"5", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", "18"}], " ", "s"}]]}], "s"], "-", 
   FractionBox[
    RowBox[{"5", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", "17"}], " ", "s"}]]}], "s"], "+", 
   FractionBox[
    RowBox[{"5", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", "16"}], " ", "s"}]]}], "s"], "-", 
   FractionBox[
    RowBox[{"5", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", "15"}], " ", "s"}]]}], "s"], "+", 
   FractionBox[
    RowBox[{"5", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", "14"}], " ", "s"}]]}], "s"], "-", 
   FractionBox[
    RowBox[{"5", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", "13"}], " ", "s"}]]}], "s"], "+", 
   FractionBox[
    RowBox[{"5", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", "12"}], " ", "s"}]]}], "s"], "-", 
   FractionBox[
    RowBox[{"5", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", "11"}], " ", "s"}]]}], "s"], "+", 
   FractionBox[
    RowBox[{"5", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", "10"}], " ", "s"}]]}], "s"], "-", 
   FractionBox[
    RowBox[{"5", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", "9"}], " ", "s"}]]}], "s"], "+", 
   FractionBox[
    RowBox[{"5", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", "8"}], " ", "s"}]]}], "s"], "-", 
   FractionBox[
    RowBox[{"5", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", "7"}], " ", "s"}]]}], "s"], "+", 
   FractionBox[
    RowBox[{"5", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", "6"}], " ", "s"}]]}], "s"], "-", 
   FractionBox[
    RowBox[{"5", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", "5"}], " ", "s"}]]}], "s"], "+", 
   FractionBox[
    RowBox[{"5", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", "4"}], " ", "s"}]]}], "s"], "-", 
   FractionBox[
    RowBox[{"5", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", "3"}], " ", "s"}]]}], "s"], "+", 
   FractionBox[
    RowBox[{"5", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", "2"}], " ", "s"}]]}], "s"], "-", 
   FractionBox[
    RowBox[{"5", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"-", "s"}]]}], "s"]}]}]], "Output",
 CellChangeTimes->{
  3.6389178034778957`*^9},ExpressionUUID->"c7041573-4408-41b4-b883-\
ea75d1f7c1cd"]
}, Open  ]],

Cell["\<\
Now we solve for Y[s], the Laplace Transform of y[t] in order to get ready \
for the inverse Laplace Transform.\
\>", "Text",ExpressionUUID->"e67c1382-e6ac-4555-ad2e-d3c477656732"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"L", "[", "s_", "]"}], " ", "=", 
  RowBox[{
   RowBox[{"Y", "[", "s", "]"}], "/.", 
   RowBox[{
    RowBox[{"Solve", "[", 
     RowBox[{"eq", ",", 
      RowBox[{"Y", "[", "s", "]"}]}], "]"}], "[", 
    RowBox[{"[", "1", "]"}], "]"}]}]}]], "Input",ExpressionUUID->"8c5e825a-\
ae49-4bce-ad80-395f1c4aeaf0"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", 
   RowBox[{"s", " ", 
    RowBox[{"(", 
     RowBox[{"5", "+", 
      RowBox[{"6", " ", "s"}], "+", 
      SuperscriptBox["s", "2"]}], ")"}]}]], 
  RowBox[{"5", " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"-", "21"}], " ", "s"}]], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", 
     SuperscriptBox["\[ExponentialE]", "s"], "-", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"2", " ", "s"}]], "+", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"3", " ", "s"}]], "-", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"4", " ", "s"}]], "+", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"5", " ", "s"}]], "-", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"6", " ", "s"}]], "+", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"7", " ", "s"}]], "-", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"8", " ", "s"}]], "+", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"9", " ", "s"}]], "-", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"10", " ", "s"}]], "+", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"11", " ", "s"}]], "-", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"12", " ", "s"}]], "+", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"13", " ", "s"}]], "-", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"14", " ", "s"}]], "+", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"15", " ", "s"}]], "-", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"16", " ", "s"}]], "+", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"17", " ", "s"}]], "-", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"18", " ", "s"}]], "+", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"19", " ", "s"}]], "-", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"20", " ", "s"}]], "+", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"21", " ", "s"}]]}], ")"}]}]}]], "Output",
 CellChangeTimes->{
  3.6389178034978957`*^9},ExpressionUUID->"a4a58d8e-8a8b-48a9-a088-\
3a406d4f9fe6"]
}, Open  ]],

Cell["\<\
We finally apply the Inverse Laplace Transform to get the solution for y[t].\
\>", "Text",
 CellChangeTimes->{{3.638960995819564*^9, 
  3.638961009559583*^9}},ExpressionUUID->"fe8b3296-3fe1-455c-955b-\
1a3bc2a92519"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"yl", "[", "t_", "]"}], " ", "=", " ", 
  RowBox[{"InverseLaplaceTransform", "[", 
   RowBox[{
    RowBox[{"L", "[", "s", "]"}], ",", "s", ",", "t"}], "]"}]}]], "Input",Expr\
essionUUID->"da4d3709-ab62-49a6-abd0-9aaa198ec72c"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "4"], " ", 
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{
    RowBox[{"-", "5"}], " ", "t"}]], " ", 
  RowBox[{"(", 
   RowBox[{"1", "-", 
    RowBox[{"5", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"4", " ", "t"}]]}], "+", 
    RowBox[{"4", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"5", " ", "t"}]]}], "-", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", "105"], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"5", " ", "t"}]]}], "-", 
       RowBox[{"5", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"21", "+", 
          RowBox[{"4", " ", "t"}]}]]}]}], ")"}], " ", 
     RowBox[{"HeavisideTheta", "[", 
      RowBox[{
       RowBox[{"-", "21"}], "+", "t"}], "]"}]}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", "100"], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"5", " ", "t"}]]}], "-", 
       RowBox[{"5", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"4", " ", 
          RowBox[{"(", 
           RowBox[{"5", "+", "t"}], ")"}]}]]}]}], ")"}], " ", 
     RowBox[{"HeavisideTheta", "[", 
      RowBox[{
       RowBox[{"-", "20"}], "+", "t"}], "]"}]}], "-", 
    RowBox[{
     SuperscriptBox["\[ExponentialE]", "95"], " ", 
     RowBox[{"HeavisideTheta", "[", 
      RowBox[{
       RowBox[{"-", "19"}], "+", "t"}], "]"}]}], "-", 
    RowBox[{"4", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"5", " ", "t"}]], " ", 
     RowBox[{"HeavisideTheta", "[", 
      RowBox[{
       RowBox[{"-", "19"}], "+", "t"}], "]"}]}], "+", 
    RowBox[{"5", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"19", "+", 
       RowBox[{"4", " ", "t"}]}]], " ", 
     RowBox[{"HeavisideTheta", "[", 
      RowBox[{
       RowBox[{"-", "19"}], "+", "t"}], "]"}]}], "+", 
    RowBox[{
     SuperscriptBox["\[ExponentialE]", "90"], " ", 
     RowBox[{"HeavisideTheta", "[", 
      RowBox[{
       RowBox[{"-", "18"}], "+", "t"}], "]"}]}], "+", 
    RowBox[{"4", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"5", " ", "t"}]], " ", 
     RowBox[{"HeavisideTheta", "[", 
      RowBox[{
       RowBox[{"-", "18"}], "+", "t"}], "]"}]}], "-", 
    RowBox[{"5", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"18", "+", 
       RowBox[{"4", " ", "t"}]}]], " ", 
     RowBox[{"HeavisideTheta", "[", 
      RowBox[{
       RowBox[{"-", "18"}], "+", "t"}], "]"}]}], "-", 
    RowBox[{
     SuperscriptBox["\[ExponentialE]", "85"], " ", 
     RowBox[{"HeavisideTheta", "[", 
      RowBox[{
       RowBox[{"-", "17"}], "+", "t"}], "]"}]}], "-", 
    RowBox[{"4", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"5", " ", "t"}]], " ", 
     RowBox[{"HeavisideTheta", "[", 
      RowBox[{
       RowBox[{"-", "17"}], "+", "t"}], "]"}]}], "+", 
    RowBox[{"5", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"17", "+", 
       RowBox[{"4", " ", "t"}]}]], " ", 
     RowBox[{"HeavisideTheta", "[", 
      RowBox[{
       RowBox[{"-", "17"}], "+", "t"}], "]"}]}], "+", 
    RowBox[{
     SuperscriptBox["\[ExponentialE]", "80"], " ", 
     RowBox[{"HeavisideTheta", "[", 
      RowBox[{
       RowBox[{"-", "16"}], "+", "t"}], "]"}]}], "+", 
    RowBox[{"4", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"5", " ", "t"}]], " ", 
     RowBox[{"HeavisideTheta", "[", 
      RowBox[{
       RowBox[{"-", "16"}], "+", "t"}], "]"}]}], "-", 
    RowBox[{"5", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"4", " ", 
       RowBox[{"(", 
        RowBox[{"4", "+", "t"}], ")"}]}]], " ", 
     RowBox[{"HeavisideTheta", "[", 
      RowBox[{
       RowBox[{"-", "16"}], "+", "t"}], "]"}]}], "-", 
    RowBox[{
     SuperscriptBox["\[ExponentialE]", "75"], " ", 
     RowBox[{"HeavisideTheta", "[", 
      RowBox[{
       RowBox[{"-", "15"}], "+", "t"}], "]"}]}], "-", 
    RowBox[{"4", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"5", " ", "t"}]], " ", 
     RowBox[{"HeavisideTheta", "[", 
      RowBox[{
       RowBox[{"-", "15"}], "+", "t"}], "]"}]}], "+", 
    RowBox[{"5", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"15", "+", 
       RowBox[{"4", " ", "t"}]}]], " ", 
     RowBox[{"HeavisideTheta", "[", 
      RowBox[{
       RowBox[{"-", "15"}], "+", "t"}], "]"}]}], "+", 
    RowBox[{
     SuperscriptBox["\[ExponentialE]", "70"], " ", 
     RowBox[{"HeavisideTheta", "[", 
      RowBox[{
       RowBox[{"-", "14"}], "+", "t"}], "]"}]}], "+", 
    RowBox[{"4", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"5", " ", "t"}]], " ", 
     RowBox[{"HeavisideTheta", "[", 
      RowBox[{
       RowBox[{"-", "14"}], "+", "t"}], "]"}]}], "-", 
    RowBox[{"5", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"14", "+", 
       RowBox[{"4", " ", "t"}]}]], " ", 
     RowBox[{"HeavisideTheta", "[", 
      RowBox[{
       RowBox[{"-", "14"}], "+", "t"}], "]"}]}], "-", 
    RowBox[{
     SuperscriptBox["\[ExponentialE]", "65"], " ", 
     RowBox[{"HeavisideTheta", "[", 
      RowBox[{
       RowBox[{"-", "13"}], "+", "t"}], "]"}]}], "-", 
    RowBox[{"4", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"5", " ", "t"}]], " ", 
     RowBox[{"HeavisideTheta", "[", 
      RowBox[{
       RowBox[{"-", "13"}], "+", "t"}], "]"}]}], "+", 
    RowBox[{"5", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"13", "+", 
       RowBox[{"4", " ", "t"}]}]], " ", 
     RowBox[{"HeavisideTheta", "[", 
      RowBox[{
       RowBox[{"-", "13"}], "+", "t"}], "]"}]}], "+", 
    RowBox[{
     SuperscriptBox["\[ExponentialE]", "60"], " ", 
     RowBox[{"HeavisideTheta", "[", 
      RowBox[{
       RowBox[{"-", "12"}], "+", "t"}], "]"}]}], "+", 
    RowBox[{"4", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"5", " ", "t"}]], " ", 
     RowBox[{"HeavisideTheta", "[", 
      RowBox[{
       RowBox[{"-", "12"}], "+", "t"}], "]"}]}], "-", 
    RowBox[{"5", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"4", " ", 
       RowBox[{"(", 
        RowBox[{"3", "+", "t"}], ")"}]}]], " ", 
     RowBox[{"HeavisideTheta", "[", 
      RowBox[{
       RowBox[{"-", "12"}], "+", "t"}], "]"}]}], "-", 
    RowBox[{
     SuperscriptBox["\[ExponentialE]", "55"], " ", 
     RowBox[{"HeavisideTheta", "[", 
      RowBox[{
       RowBox[{"-", "11"}], "+", "t"}], "]"}]}], "-", 
    RowBox[{"4", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"5", " ", "t"}]], " ", 
     RowBox[{"HeavisideTheta", "[", 
      RowBox[{
       RowBox[{"-", "11"}], "+", "t"}], "]"}]}], "+", 
    RowBox[{"5", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"11", "+", 
       RowBox[{"4", " ", "t"}]}]], " ", 
     RowBox[{"HeavisideTheta", "[", 
      RowBox[{
       RowBox[{"-", "11"}], "+", "t"}], "]"}]}], "+", 
    RowBox[{
     SuperscriptBox["\[ExponentialE]", "50"], " ", 
     RowBox[{"HeavisideTheta", "[", 
      RowBox[{
       RowBox[{"-", "10"}], "+", "t"}], "]"}]}], "+", 
    RowBox[{"4", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"5", " ", "t"}]], " ", 
     RowBox[{"HeavisideTheta", "[", 
      RowBox[{
       RowBox[{"-", "10"}], "+", "t"}], "]"}]}], "-", 
    RowBox[{"5", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"10", "+", 
       RowBox[{"4", " ", "t"}]}]], " ", 
     RowBox[{"HeavisideTheta", "[", 
      RowBox[{
       RowBox[{"-", "10"}], "+", "t"}], "]"}]}], "-", 
    RowBox[{
     SuperscriptBox["\[ExponentialE]", "45"], " ", 
     RowBox[{"HeavisideTheta", "[", 
      RowBox[{
       RowBox[{"-", "9"}], "+", "t"}], "]"}]}], "-", 
    RowBox[{"4", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"5", " ", "t"}]], " ", 
     RowBox[{"HeavisideTheta", "[", 
      RowBox[{
       RowBox[{"-", "9"}], "+", "t"}], "]"}]}], "+", 
    RowBox[{"5", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"9", "+", 
       RowBox[{"4", " ", "t"}]}]], " ", 
     RowBox[{"HeavisideTheta", "[", 
      RowBox[{
       RowBox[{"-", "9"}], "+", "t"}], "]"}]}], "+", 
    RowBox[{
     SuperscriptBox["\[ExponentialE]", "40"], " ", 
     RowBox[{"HeavisideTheta", "[", 
      RowBox[{
       RowBox[{"-", "8"}], "+", "t"}], "]"}]}], "+", 
    RowBox[{"4", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"5", " ", "t"}]], " ", 
     RowBox[{"HeavisideTheta", "[", 
      RowBox[{
       RowBox[{"-", "8"}], "+", "t"}], "]"}]}], "-", 
    RowBox[{"5", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"8", "+", 
       RowBox[{"4", " ", "t"}]}]], " ", 
     RowBox[{"HeavisideTheta", "[", 
      RowBox[{
       RowBox[{"-", "8"}], "+", "t"}], "]"}]}], "-", 
    RowBox[{
     SuperscriptBox["\[ExponentialE]", "35"], " ", 
     RowBox[{"HeavisideTheta", "[", 
      RowBox[{
       RowBox[{"-", "7"}], "+", "t"}], "]"}]}], "-", 
    RowBox[{"4", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"5", " ", "t"}]], " ", 
     RowBox[{"HeavisideTheta", "[", 
      RowBox[{
       RowBox[{"-", "7"}], "+", "t"}], "]"}]}], "+", 
    RowBox[{"5", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"7", "+", 
       RowBox[{"4", " ", "t"}]}]], " ", 
     RowBox[{"HeavisideTheta", "[", 
      RowBox[{
       RowBox[{"-", "7"}], "+", "t"}], "]"}]}], "+", 
    RowBox[{
     SuperscriptBox["\[ExponentialE]", "30"], " ", 
     RowBox[{"HeavisideTheta", "[", 
      RowBox[{
       RowBox[{"-", "6"}], "+", "t"}], "]"}]}], "+", 
    RowBox[{"4", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"5", " ", "t"}]], " ", 
     RowBox[{"HeavisideTheta", "[", 
      RowBox[{
       RowBox[{"-", "6"}], "+", "t"}], "]"}]}], "-", 
    RowBox[{"5", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"6", "+", 
       RowBox[{"4", " ", "t"}]}]], " ", 
     RowBox[{"HeavisideTheta", "[", 
      RowBox[{
       RowBox[{"-", "6"}], "+", "t"}], "]"}]}], "-", 
    RowBox[{
     SuperscriptBox["\[ExponentialE]", "25"], " ", 
     RowBox[{"HeavisideTheta", "[", 
      RowBox[{
       RowBox[{"-", "5"}], "+", "t"}], "]"}]}], "-", 
    RowBox[{"4", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"5", " ", "t"}]], " ", 
     RowBox[{"HeavisideTheta", "[", 
      RowBox[{
       RowBox[{"-", "5"}], "+", "t"}], "]"}]}], "+", 
    RowBox[{"5", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"5", "+", 
       RowBox[{"4", " ", "t"}]}]], " ", 
     RowBox[{"HeavisideTheta", "[", 
      RowBox[{
       RowBox[{"-", "5"}], "+", "t"}], "]"}]}], "+", 
    RowBox[{
     SuperscriptBox["\[ExponentialE]", "20"], " ", 
     RowBox[{"HeavisideTheta", "[", 
      RowBox[{
       RowBox[{"-", "4"}], "+", "t"}], "]"}]}], "+", 
    RowBox[{"4", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"5", " ", "t"}]], " ", 
     RowBox[{"HeavisideTheta", "[", 
      RowBox[{
       RowBox[{"-", "4"}], "+", "t"}], "]"}]}], "-", 
    RowBox[{"5", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"4", "+", 
       RowBox[{"4", " ", "t"}]}]], " ", 
     RowBox[{"HeavisideTheta", "[", 
      RowBox[{
       RowBox[{"-", "4"}], "+", "t"}], "]"}]}], "-", 
    RowBox[{
     SuperscriptBox["\[ExponentialE]", "15"], " ", 
     RowBox[{"HeavisideTheta", "[", 
      RowBox[{
       RowBox[{"-", "3"}], "+", "t"}], "]"}]}], "-", 
    RowBox[{"4", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"5", " ", "t"}]], " ", 
     RowBox[{"HeavisideTheta", "[", 
      RowBox[{
       RowBox[{"-", "3"}], "+", "t"}], "]"}]}], "+", 
    RowBox[{"5", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"3", "+", 
       RowBox[{"4", " ", "t"}]}]], " ", 
     RowBox[{"HeavisideTheta", "[", 
      RowBox[{
       RowBox[{"-", "3"}], "+", "t"}], "]"}]}], "+", 
    RowBox[{
     SuperscriptBox["\[ExponentialE]", "10"], " ", 
     RowBox[{"HeavisideTheta", "[", 
      RowBox[{
       RowBox[{"-", "2"}], "+", "t"}], "]"}]}], "+", 
    RowBox[{"4", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"5", " ", "t"}]], " ", 
     RowBox[{"HeavisideTheta", "[", 
      RowBox[{
       RowBox[{"-", "2"}], "+", "t"}], "]"}]}], "-", 
    RowBox[{"5", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"2", "+", 
       RowBox[{"4", " ", "t"}]}]], " ", 
     RowBox[{"HeavisideTheta", "[", 
      RowBox[{
       RowBox[{"-", "2"}], "+", "t"}], "]"}]}], "-", 
    RowBox[{
     SuperscriptBox["\[ExponentialE]", "5"], " ", 
     RowBox[{"HeavisideTheta", "[", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "t"}], "]"}]}], "-", 
    RowBox[{"4", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"5", " ", "t"}]], " ", 
     RowBox[{"HeavisideTheta", "[", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "t"}], "]"}]}], "+", 
    RowBox[{"5", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"1", "+", 
       RowBox[{"4", " ", "t"}]}]], " ", 
     RowBox[{"HeavisideTheta", "[", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "t"}], "]"}]}]}], ")"}]}]], "Output",
 CellChangeTimes->{
  3.638917803817896*^9},ExpressionUUID->"a71b507c-d7da-4230-9f87-\
990eafd358eb"]
}, Open  ]],

Cell["\<\
Here is our solution plot. Notice the effects of turning on and turning off \
the driver force.\
\>", "Text",
 CellChangeTimes->{{3.6389610174395943`*^9, 
  3.6389610433196306`*^9}},ExpressionUUID->"5ae50aba-fec3-4cd7-b811-\
d1fc7285338c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"pSol", " ", "=", " ", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"yl", "[", "t", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "0", ",", "20"}], "}"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "20"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "2"}], "}"}]}], "}"}]}]}], "]"}]}]], "Input",Express\
ionUUID->"7e1b42a6-f242-4a44-be71-3f41ac94b379"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
     1.], LineBox[CompressedData["
1:eJwBgQN+/CFib1JlAgAAADcAAAACAAAAnX5iBjFkmz7QLl0U/E9dPZ5a7DpX
IHk/syJWinpcGD/ZTYpyICCJP2QPlatuEDg/MjfPowrYkj/TtYhmlL5KP3dH
WQ4FIJk/P4Ns9358Vz+8V+N4/2efP/gp3jzeIGI/AbS28fzXoj9NL3HA6spp
PyS8+yb6+6U/OG6DsBlYcT9GxEBc9x+pP/4rCy90YnY/aMyFkfRDrD/Sl69w
zP57P4vUysbxZ68/QeLYBswTgT9X7gd+90WxP4VMkJ28a4Q/aHKqGPbXsj9x
NI+3ngSIP3n2TLP0abQ/CcTVB+7biz+Keu9N8/u1P6hS0pU6748/rYI0g/Af
uT8vjSG+NmCUP74G1x3vsbo/xjRIB+q8lj/Qinm47UO8P6EuSZYbM5k/8pK+
7epnvz8OlAh522eeP5xRJKzy18I/PZqVQOPrpD+kk3X58aDDPyzUWtaScqY/
rdXGRvFpxD9AZMdOSgKoP75ZaeHv+8U/lDuocDo7qz/hYa4W7R/JPzoqCI1a
BLE/6qP/Y+zoyT9yioqCkOaxP/LlULHrsco/SWcqDNzLsj8EavNL6kPMP30l
WKYXn7Q/JnI4gednzz+9mX8+IWS4PzZB4fXw19I/aJpvWxomwD97UWtg6x/Z
P8cTWxmhccg//oM2Gd+M2T+ihkdvVQPJP4C2AdLS+dk/0nuouQ2VyT+EG5hD
utPaP8GyZIhpuMo/juXEJomH3D8jC/YV+/3MP6B5Hu0m798/Gq3V4my/0D/j
0Og8MV/jP/NqhEsPG9U/JGpOGauV4z87Q4PEqV7VP2YDtPUkzOM/QY6P3/yh
1T/oNX+uGDnkPwvQXULJJ9Y/7JoVIAAT5T8mg5CA4y/XP/ZkQgPPxuY/Isef
HIox2T8J+ZvJbC7qP/+Wix7r99w/OIfZekph6j/ZUaS4wi3dP2gVFywolOo/
0oukElJj3T/GMZKO4/nqP1R5PjqYzd0/hGqIU1rF6z9gaZpnxJ7ePwDcdN1H
XO0/vi42odoZ4D8warKOJY/tP8WBqz+KMuA/X/jvPwPC7T8N29a5FkvgP74U
a6K+J+4/uOxgpMZ74D97TWFnNfPuPzN9nTKF2+A/qtueGBMm7z96eBOJHvPg
P9pp3MnwWO8/jjJVlJUK4T84hlcsrL7vP5lKD0IdOeE/IOAf4B/g7z9fO/Jn
TEjhP9PMufA=
      "]], LineBox[CompressedData["
1:eJwVUAlMk2cAhY4pqGNAwHEYZrvIJTdEQcA3JYAg4xCZilcA8RqMTGWg4EHw
gIGAIgJDXHXaCQozLSvTOek6BlhELoFRlPYrZXMGWP+/BxVKuy4vLy8veXkv
ecy07G0ZDBMTk0gj/9fYxCNdATYKXIyIreIfJMiXcPKsIxT4zUY2oionuMqJ
SDy3TwGmqMaijU3QlCV3/zdXgUL+xVTtQwJhYBFj3xUFxh7ZuHW2E4gXmOPP
mxSINgsN9eoloIUCXkiHAvK8SbsNYwQW3+wva3qtQGi+uls7SbA6UX/AYU6B
6pl885wZgiD7hrBiKwoprFr3x2qCBEnIyjl3Cq0FGS5DOoLDHPFsRjgF59w/
2CKGDOeyTna93EOhTmA31bRUhppAe3b41xTWrBqYPr1chpYFfh63ggLvnlPq
Z5YydAqTE5mNFDr9QxpYVjJMlKjcK4UUrD11D5dYy6BJqGIYximkS99LZxi9
pb3/eJaaAnXKKsDZmHeR9PNeWdJwPeq6J83Yt5GTXbbVjYbnA+7IiHEvOcsy
4/EmGj+XXE4pMpchM7A5zH03DfNNpqnZZjKcX9i6svYEjS5nrsttA8EN4dvZ
JeU08s+cbmbNE7SWlHTl/EBD5xb9dE5J8DzBjS0X0Igv6njravxn8qOuvCQx
jVmdU8WjKQIbjpmH3wdK3Jje1eIwTOCR9T2D7aLEL8xbcmUPwebAzeOWnyqx
ybFqRZSQ4Cvh2bLpY0oEkUpOVjOB1vpa83ipEh01pZnnbxOcSb33QnRHiUmp
ysmrhqDMZMCqcUSJGO3MfMRZgnsbWdUZG1S4fuLuwWVbCXzK1/G3J6kgmtH6
uoQR8F/HjIZnqhBiI5pXehN0FBx3YN1UIVd3OJJnTSB93NEwYapGW391n+NL
KQ4tG3va66jGqAfrJLNDitldM5InAWokMR3kNE8KndaOVZ+hhrcou8KkSgr7
9Yc4O56pEfTP6aIV8VIk8Cx+7K/UgHf1XMPtQglGGc797Y0a9GlOlfnslWDf
Nn+qRaiBV/J5r+ogCTKplIDLKg0suE5SzewEin0etEXvnEOpzxbRgZQJtN+P
Ewg/1iJWvtP1E+/X8L5TNdDa8g5Bvb/G/T0ihm2t75zg2Tt49t0K7GkRY6G0
d1Wv/B2219Z7d18Uo/v40sNTjvOwvdbtZbNejLTwfL3dpXlMt0vWvF83hmpZ
2trc/Qs4GVxHr0v/E7rV/heCrRbRU8pu+dxuBDLbvqaItYvQLzHf/YYaxjPz
zP7EyEVc2BKt5LwYxnXFXaejBYtwq+R/d794GL4CB+63bxYRxmxcNqp/ifT9
ppIFgR57Qy1ce5RDiEm6aWb+So++qsK44KEh+EaFeNjO6fHTE1P2MHcIOu+c
HE8vA7iDhxprjw3huv7N8r11BrQWBgZEqQZRQF/wO9JqQE+9oG7N8CDS/2Lt
yOkzYPLLG7/78QcRI24vKHxrgEV8bP0XNYOwUnxohAGmvUUDzlcG8R86tEmD

      "]], LineBox[CompressedData["
1:eJwVT3kwnAcc/T6b9VEWSZASm6ZdYloxzjYM9vdLXJk4Ko5GSiRNS+NIUhmJ
CSnrGJk6olQJRWMjiGPQ6tjuiFSSSqQqfLuOZbGyuykmJdigsuhm3rx5f7x5
b957/+zF4GgtgiC4Gr5VvRm13N+IQHO7xvuvI2nY+vyvVZpN4Lv3xNEVXjQs
i8t1T9oQmENmz7Xb0aAMPGcx7UIgK3yds3cfDca9CZZp3gQOVz/a/4MRDUc8
Eg+ygwk8Mrhvt5BJQ2LHZeeuKAL5xdWFyZtDcMsmxT0inkDvMpuFX9eG4Bk/
zWsjmUDjEsorXDUEW2ZZ/uXZBEaVa0cFrgyBbdH1UJciAvUiVEKexo/UyY8c
rSJwxcgqZ1yTz0v//qsrjZr9FfbFvpp+4WpJgkkngVcqR0I6dtAwe748qeMh
gZ5fvDPJMqBhj7LqWsgggU6uVmOHzWjwieRnL0sJDOVys7gHaEgS1eUXzRE4
82ld07IzDbePNZXYr2r+212/G+BNA93TWvlMi8TNltoIOEED6dpRe8GQRJ6M
yxHE0WDfJmhmWZDoEWEsa0inoaC6p8vvYxIfPu0zE7TQ0GXS+2j+MIkNlWea
hb00zOc/7f8ukMSjS5fDN2U0HE0VSR9/TeJk2Kt/DM1EkLw8qohJIjEtTOX5
+BMR1MVKXzIzSFw8frq2IEwEjHCl2rOCROLscIl5qQi6ndcs/ugn0WuxcMDg
AzH82/TG8rSERKV0ztXEVwwWHMJ2S0li2N7X3ZIEMVzdqevhvk1inL7zjRSh
GJwXzE8JHLRQ4vdywuXUMDTWc6vaSrUwMyDls2jhCJSZ57BrzjBwcNiB7dQs
gVX5QH3gBQZasN479JNMAqEtexzVqQyU83MzTU3GYRfe9TlRxsAMyzwDl7Rx
yI/uv8gaYKBjZuixJ0ETwGvb9eCq2w50cHNV31BJ4ZzPzzHBpkzcrkji9OyW
Qa/h7KttDhMX0xmjTQdlYCWxT21xYGKH2q8zzVsGz+MfFOoEMPHWR+1OE1dk
EFmkFHRnMdH2kp/oyzEZBElt9GyWmOhNN1jHlc6A6yVBK6NfGz+cbbgzon4O
g9tuUYkSbRSz2q9Jd8ohpuC+/vQLbVQPqEL+PCCH4obeWCFJYWy89hsIksP8
lJiTeIjC+qY6P0mNHHgJ4fSUF4UxvHiXtd/kYLoxwfMPprDEeth9vU8Oniby
SevzFLKzY365vSSHSr+lsik+hf9xNsprQAGOkiQf/zYK/9b3z5YEK+BJzLrq
93sUkp03F1TRClBlbB//cYzCm98a5I7kKSDXMItgvKDw5J0+WWW1AvZXabd+
s0KhLlWk5duuAJ116i3QkznN5ncq4H9cCc4d
      "]], LineBox[CompressedData["
1:eJwVkH0w1Akcxt26ut9v7e5Pzskh59B5PaWcOU3n+11vpaUQ7uQltyctGZuS
MGYypT1vhVpLU4PkpDsvc9cV69xwR162Iy/tettN+P1KpoRBXcTtzTPPPPPM
PH985vlcKA46xtLR0eFr/X/6N3E5fjwC5x+ZsARKGmjvoma5KYFzcu+6ZZqG
9CHDOBs7Arv/PfueXqRB//vSrcWuBC7mNvjZbdBQPWfayfIiMH5zWvwgycDe
jPLkk4EEtp9JqHhtwMAgaWX1JIpAgrp4v8CEAVFJ9YAggUBzTsibNgsG1q3t
M+VpBDY9MHIp2s6A9Lc6J5sfCazdeaOba8eAPTprpFICPYa2lXs6MNDW+3se
q5JAGczuBkcGQsO/3nOygcBKozelHG1/OfPHjKaFwPyC4LRGewbOp0CJQEFg
Z0qWmcCWAeMP273lwwQqC+/FDVoz0FDks/QFQ+ANL3r2Wy2Pz2eKSukigT1x
k48YLa+61j+QpUPimj4uXDRk4NSegQ0xl8QMQ4chPpcBoju4XmNCYqSbVY3l
JgbKQkYiBLYkdlRWH3Zeo8FlOlxP/hWJwUF/J6Ro/4teF4qkASQGPC9+3KGm
YSXvmRErisQjIvsXmn4a8j+NfyA+QeJId9WqXwcNcpckS4GExKv7Hvf63qHB
4MQ59QctJCY2UIq0BBpq3rLyxD0kNtcHeuhE0OAukbhpVCTyNUU79AU0xN+8
JGtaILHy6F2HKRsa2oevB4ht2OjndalPrZ4GqTBkaXk3G3dmm1++opiG2Fe8
0gxko8GmzAFW0zSwdc9P5ISx0YJh+VpcmYYAJ1FiVR4bU2NP91Z7TsOTLJf8
0ddsbM29NXSobAreOfd2eTbp4YT9NjM//iT80yI5oejQw/tLne7WDpNQtg+p
wAE9LE6UmL8znAR+5N3QqFk9DKPFObdmnkJ29jUm1YyDf0YK2ezCp2A0cUy3
PpODAZ9wXky0ToBz/rq7sS8XM/n9M/1bNLArbi2mLpSLix4hiRdoNbj4vMv1
iOFi9E8PrYSNanDVWVElnOPi8bb57bcj1bA3+VXiX/e4WNGVLBPWjsP+CHVZ
vCUPa+xaXpocHoMDbmMdGzt4yC93qR6xHQOB0cis9BseRqvmuhTro3Cwf8i1
9Tsebnj1hfn/MgrBXg/7Pi7goVOOzGxw8yhEOzavt6zysP2aNPR91zAIySbr
IJLCI4rilq03h+GHZ/cOPDei0Fu01ihKH4bYil9lW3ZROB7Qk1T/5TAkGN5x
ihVRaEXLj3bLVJC4UB28eobCmPGDK7IkFYj7qtILL1DYsyx5ct1PBaeyKzqb
yyjMPTURuF9XBWfXSqIoJYXZU6aU3WklpI4WZ1VNUTjy/Pjl24eUkH7/6s9u
89o9WS4Jd1QC8fYjrShkOXLu2hsr4T9lo+Ew
      "]], LineBox[CompressedData["
1:eJwVj3881Hccxz1KdUJ97r7Mg0x+V7s6PGyEy/vtyDWT82g86NjyQFQPzDAk
1zSZsTQhs5GH/IpGWLlUQkIytTOf8yNdZe5YTUtz1rrQ7PF6vB7Px+vxeP7z
sgj/bN/BVVpaWh4r/Z/ubcI3LWsIHkgsNa6eodBZ6306XY+guk+ZX3eXAp7d
bSFkCM7Y6+q5NVHoyvS6wjYhaPvcKcOlhIJHgqfwoTlBRYrD2syTFLrDBA9q
txBUauSyV4kUBCKP2M95BBerh6yORlG4vQu1+B8Q7BG1+DwNoeC1HQrX8gm+
+sslnxtAodfE3XZIQDAvWMfJWkTBW2fXtdIPCVaxJDFtvhT6Xrn5RvkTvFTy
0Of+yhZOuz62DyJYIe2947viRw3T2exPCNbcuqzV9jGFk11xmkcRBKPtD0kM
xBQqG1kspyMEeZR3TxRO4daPlYZ58QTzHx02CI6h8CSbb6VMJsgVLK8zTaWw
nDRi7yYhODA69UduFgXT8Hj3gkyCL+3GviwqouAmWu/7NIeg8WpH4201FMT8
6v2YT1B750SGy1UKqdvco78vJqiTFbIsHaDQujrhq91VBN85U9jQtUCBzunm
l9UTbGlXX3HQl8Pfippz800EC4Spx8Zt5GDXNt52vp1gfH/y2VKxHPxqEvv+
7SZ4VCjeWJ4sh5gCfSq6S7D8mibvQqEc6mM8XizJCWpsNEtVMjlYWdTbiF8Q
zHa6XWIdOAKCDZ6OLQsE/Y6n5LqnjkDYm4fIWlz59550ipSNwDk5CZWy2Bg3
5Od9UzUCRrmpBRxLNq6rT9ffnzEKTimcisNb2eg7XZgYXDcKAZENjV08NpZs
aVINy0bhjPuT/jg3Nm42l4GN1RjozgvfDgSwMZSVVpszOAZvQ4xiMrPZ2HQw
Xtm64wHM7JDuVs+y8VlpUEmDngIsJbEHufNsxE0GtgauCggdtM4Kf83Gzsfj
bqnRCpAdKeyRreGg//tZW3ndCrh+Id6z0YyDxsV71pulPIJTFlyPKH8O5v1c
rL6oeAwOhhX8scscPN3uunzaZxJiIoNCN17n4N5Lg+XNByah9vKGdO8uDg6X
b9rekTQJJvskN64McnBCZapTVj4J2t+JXc+oOKjRpEWGvpyEEZbhTh8jBk95
3rnXW/A7HFvMcWxPYzDd1ij5UM8U3E+KKEo7weBM4UdLe8amwPw5f2HnNwwy
lkkd+rNT0KN4IW09y+C3ztw5T0YJep2Brk3NDM7/Jo6NCFPCp852pbFXGcxh
aRlGJSqhuYm1yO1gUIK/vrv3ayUEVty4WfcLgwNB/OP9Pymh/ISFR+U0g47d
zsovFpQw91pzPuw5g5knx/4pW6cCQQJdtVnNoDpWMFFnrIKiZ40RCg2Df4qK
qn7gqkB7cfVKGPSqNLtYy1PBf1qh3cI=
      "]], LineBox[CompressedData["
1:eJwVUw9Q03UcHQJDRdT0+/v9SkmQwAr5Kyhp4udjbpjilvEnkibOUExtoIak
YfJHnSS6GZ26BGQUWUBAhgeskDtAORiCf3AMGP8m+wKKijX+iIq07t27d+/u
3b27d/cWfx4XsnMaj8f7wML/dZVB6hY5nWD6kuXWLSIKp0NXyV+fQxB4Nrlf
Syh0N84faGUInmqJlGzfTcFH8Hj9OUeCmVuH89XxFFIr634LfYvgq4yEA8Kj
FO75q2fMcyc4cNKP2yansKTo8J7bPgTZVGnCy9MUDrmFNioCCF6XfTW8NIOC
NtvDQ7SGYBdds+vFOQqOLP+MvZDg1tGnwYdUFGIVPY8bggmOFj1VlfxIoZqv
EaeFELx1ObOjyOJJUkZJ0BaCcpnJN8mSjxnfO9dWStD/0d0I7/MUKuKE+2tj
CFpXDqgbLH0zBxfdTZERdPokmrdFQUEifbYM4wmaZx2wH0yjUNx254dX3xC8
Xxz4MjmVAu/jwpHKFIK//E6veiZSCGk4Hp6YRnDdhaia8QMU8tZGla1UEpyo
Xrlt0LLPmCaAe3aOYGRzeMJ0KYXMgodt8T8TXLhKBxMbKDxxub7Sr4BgmfHQ
5o5ACpiZffGfPwgqFuRn2ftSMKVvlsRWEbTKiy86wlBYYeN+zeMGwfBAfamW
TyHtiPWioUaCSTFp354YN4GnrKxnVzvBycMuQZ/pTZAgdozePmLJewVa+X5v
gvq60VqnFwS9fBqczh41wQK45dptxeAVX3Xsqb0mqPJO7Y+cw2Cw0Wn5DoEJ
7F4b3B3mzmALM7Le498+GDspEeb4MLjpXbkqrLsP+l/ddn64gkGF1d+yddo+
qHuk0SetYzB+3obi5Nw+kNenCwslDC68/WtEvagP+Mnei6cpGdTuMntqcu4D
fzihrcTMoA6V0vIVRhjbOVT6fIJBd4fqwSknI/R3blMKeSxOVamHNs4wQp32
wyDDLBZzG84EPzL0gvzygqv8JSxG1O81HkzpBX5UlXLrpyzuKFfZFmT1gG2T
7Xr7ayy6HdPNvNnfCbNkWdFdtSz2GWNuuGo6gTj4JZdoWRR8mW1XnN4JriKp
JrSNRQwovxTm2wmCpr+WZplZnKg5f9YqyQCpTXFzPd05lBS8V7HatQNOyfie
Uz4cung9uKmfaIcMh+wNdwI4/MguoDf/Vjv8JNKmHhRyWBLRVWtObIfqJtfR
a1IO/Zrf17jo24DX3N4uvsChvObkm1YqPUyP3TfmfIlD0767qjf262HubLv5
5jwOBctGvPds1IOz2H/ThT85vFgXnVI62QrQrKjqaeLwRFxFsymmFYJi3QxX
7nG4Y1QdWbm2FcSzK8ePGTjUFpq3Nzq2QpT4gc87DzgscJn8Qtmig5gnSaLn
wxx2tLBvC0p0ln+xe26OcVha/F2Xd7oObF5aW8Dh6px4/8o4HfwH7PbtOw==

      "]], LineBox[CompressedData["
1:eJwVjn1Q03Ucx8cmkEloI+K7309IUXkKWQQhncbnwxgIh02O8SBLugRNSTfg
PKku4UDlQZBBkWR5IKaAQ1hGzEqe0SuE3Onx29h4EBwbEs5dJGOoSOG973Wv
/1733piWGX+AzWKxtq/w0nnqiEtZqwiSkz1OmUINFMlGugVrCF69IZly2aIB
uXP22BtcglVnneYTV2ugWun4dJoQnNV3l3LnGKgR1br+/hbB3Vadu88YA5ct
we+WeRFcSEsX5gww0CwfFKVuJfjdmcrm8XYG2gLSDvODCR4+VsTFawx0qBeL
7bYTPFDx1bb8RgZuySouD4UTbAx21xdcZOAvZ6/e+miCS/FhCt9aBhhlx/jn
uwn2PhqMTK1hYEwkfhaTRDDVwz6Qc4EBo+XvN9enEuQXz99mX2LALM8PsqSv
/Ff7RAoVDMwHuMX1fEYwOKmp/trPDDxXtxz5Jnulz/G/HtjBgMe9feeFXxC0
GYQOR/sZEAy5DizkEeRu+UlarmXgU83txSuFBOM6Hy5IpxkoHc71/ugMwdjB
fhF7kQGlPjDptSqCYn5Ud+gaDdwbNZ3q/p7gsROJfqwNGiCTHxo2NRK01NbE
s0Qa2GGwe13bQpC9NaSOd1ADnxhVUNJGsEz0KquwQAONM+415l6CobG/dJMb
GgiZe5ysGiPo+OMdn65QLUieXCw6OEXwB6lZbJFoIdeaqOLNErTjfzm/Ok8L
t552cvNsBCPflvJ1f2hBzJbfieLycE9Oir1q3zBkuQRE6HbysNLa9F99mw6+
dTVkl4p4WODb7u/7QAe/ulXX7Ujk4XW3usy1znpYppdf1KXxMEJws8x8SA/l
m9W/ZeTyUNymkER7jkDTe7KA5608lHorwzZeGAVTspLn4UFhsULoImu4Dw17
XvTt3UzhA35IuWzoPhxK2XXkvB+FYZwl7sesCZiVzHaRbRT65xemrJJMwD+p
Xvtd4ii0rvX+c5PDJCyl1ypfOUGh9/J04F3VJLhkySOemChsTROz+hwNwGSN
mwPNFOqj3ucGrTdAdbZ/dda/FMolGQnydwxAjg7MPF6m8IObyT3sFAN45DjI
Z9xojI4/vWHiigH8jufpxmNoZDoWFLuEUxBeIpP2t9CoKGHdrcgwAtU6kSxv
o/G01zlB9XEjzI/GCRLaafRxV9sXVBihgR/kNtlPY3hRbwNHZQSnYVuPbYrG
U1/vb+5aNoKJlXG1c5bGh/Yc68w6E3T5jZw9OUejbanymc3TBOcSYvNjFmm0
Vg2oHwWbgLP0cjS6W/Z69oWZ4H/ST7Ym
      "]], LineBox[CompressedData["
1:eJwVjA001Xccxu8iq0aIjtjv3r9I4oiTl2o3fL9dIzPzkpeMIupiUzSjmetl
Zd3TSq6QuZn30Q3NWaNpheNtxWbecl1vdXF/3qY2d3aM3Wp2nvOcz3nO55xn
Z0TcUf4GFouF6/2fHpK9AUMbCd7eylsZOUZh10AxFGoSHHz5lpAdReHlv9qW
4XoErYqtud8kUJCaXdA3NyK4h9e0HPkFhTpv5atFY4LLcrFG1hUKlz8/NX/X
nKDwTSuHnbkUIiqeDCZZExxN/bPZ5iaFQz2uzc4OBP2npsIel1DQX7knUXck
GJ/WFrBaQeGF8Z7cbh5Bzwy7031VFB55iFOz3yNoJ2uSBUsolCZsiQ70IfjO
19VZles7uVhwlBwjmOzXqnx4i4Lf40XHqRMEjfbOaNyppGClPGEuOU1Q0STm
XyinoEF6dWNjCA5JQ1xdiyk8c0WVXTxBd5ZSoCam0Bj3/cxqEsG06pwLP+dQ
yBGb9LekE5Qo//604CqFmPbcB5eEBOsHPQ0zMii8+1y96v1rBNeKmGlRMgWO
wfls3TyConT9pUfnKKzgbPLwTYIfzhbr2UdS6Ps4iF9URrAqveC38WAK1Xld
3qckBHUvdoR0e1HIaOZyLeoIBuo431HnUdi/ja3d8JDgcIObVtpuCtqOWavJ
7QQdezO/+8WAwhz/9TR2E1zYMu2UsYlC4f3Jxl+HCR6svVTuMacAVnhVhEJJ
cFf61pTZMgWMXDH4oHqV4ARPk2snUsDd+ssHzrHYmB900WdHigL4m2I0VVps
dLPdIWzzV0B3nc09PQs29joeEhluUMCNV42bXcLYqGts9hPfZxo0zTtjb/DZ
+GLf683D3Gn40rt/cDaGjWWHO13MzKYhvnS+KDOJjdlm1yvCV6fAi2dkK73O
xrCT3SS/dAo0hILgjzrYeL86oibv90lI0nKuEVlwsKlyLck0TQ5/OHjoTNlw
0FXNWicxSg6RoYGJ9vs5uLt1sbbPRw7+dbEwwuPggkq/X2Iqh32+JYMmxzlo
vyTmP819Bgt5LFVDFgel7YZ2VbZPIYS0e47/xcFKX9OVxswxWDi7pGxY46BG
/a0nx0+OQVILIxa9waC3RY3KwX4M8iNSKE+bwdTOgdqvxkdhQOKQdtuSwavf
ppS02IyCh4Ok7nw4g+o9P2gWymUwIpQG+EQzWH5mTq/+RxlEy9RVFnEMLm+X
dm0UyUAoCHefSFn/b/gk0c9ZBm2tRpMuBQw6OcliCkqGget1bZtuL4PufmcT
2s9IoavkQePCEINvW0zURh6RQtDSfGjHOIMjAVFrh02kkJjnVvPZAoOCI6uB
pbIhUJ9J8PVdYrAnO9TEtH4Icg5UrFj+w2DN8zbBhGjdq9TWw+DBnoLt+YIh
+A9XDeC2
      "]], LineBox[CompressedData["
1:eJwVkH1Q03Ucx5FSnPHYgagBfb8BMhAjQNDuhM8HD4KpYCAYCEZOYXYaT57j
QabTCxVE4qFwJASReDAe5mXiEPQUFg/Gg9FvD4EcYxvMDCZcsiATW/e+973v
fa+/3m/KTY9JMTczMwsx+f+Mn3tNn5sTPHSiXLKXIwey3nExcQ3BwUcpyee9
5KAPfr+/n0VwsmurKs5GDm28sGsBVgQPL23Zdv1vBvilSWn1tgQrVm3o3KNl
ILjjZIiNPcGUqx6qLaMMrNYU2ec7ElzndtzWXcbA4Lp6/dNNBB0zTy9v6GDg
a/+Ou3EuBLPnTn3w7CYDSUmPr3RTgrnG0Oj8ZgZcC/Sf+bgT3Fnja7jVyMCz
1hX/ajZBmbDrIt/Uf1Q4WLC8Cc6ndn4pFjOQ99p77JQPwWd7O7y2SxgIYYe2
avwIXpBVVr7ZzsDa6EThvkCCLoJjt1/eZ+Bxbtb+rg8JWhjKgtY8YkBUX7jZ
M4jgXY9NjdZKBpJ/qVv+Bgnum9rhZTbDwOYXdwbNQwlm/LFR0mtkwOA0Upse
TvBPH/mvUSw5tIfNZD3ZTVDbWqUscJaDIO1VGCeK4IKAJU7wl4Plgy2z78UR
XBPokVl+RA6aquj+s/EEOYPhbfECOdw5mX39SSLBYf1h9y9EcuB69CRVcgmG
RvCl4aMmXnJwiJVBMKlg6EbUfgUUHxM2pZ4kqDrEjbDmK4C760ZBD59gtYuF
/naVAiyNC0ECAcHyPI6+TGvihwrb5osIbnVKGOYKlbBju6QosoRgxMPPj4c1
KcHKTp4qLiPo68aTdI8qQSoj7x4VESTVruUnPFRg5S39Stlg+j9DtL5JoQLp
PzMZ9x8QfKoU1S18NAYljGXkOzKCmS537m3jj8GRNj/PnD7T33syqlsaxsCa
e2bKd5igVfe1g+zV43BkwCGmYZxgPMM4/P7zOFiLQv2LjQR5zrWeut0TkBJQ
v5jgTTGa9syuZquhqMTBRuBDUZezmOYbrIY2/SV2nR9F212c1KhYNRir0hNn
dlDc6PL6xkGhGi6t7HyYFUZx7bGWIIlSDeI+ZfHlTymyqGHBcH4KDAlWbvdK
KV5xaB0aGNDA27eEQeoKij3b7c/mTGgg0PLFgTeuUhxWBBptFjRw9v5YIaeG
onSkYnLJUQu2ro3P5U0U+77PFN88qgW/2V2dhm6KGidQty5r4UBYO2PXS7Hp
QUOs5i0d5H3nadg2QNG5JXhhxVkHPR/b0tMjFGnpJ+L5EB3E3p64YPGEolFp
Xth+SQc51tF1XpMUfwsf/8H7Wx3U8GQdkRqK7kI/m8vNOpjZ2Dxb8ZTivFnu
v2bDOsg+kxNDFiny1tYmj9pNA3s23/LiEsWAsvUNf7lOgyrhXO/cS9M+6U/n
lgOmwXxllUkUX8XwfOZxGv4DFLHjlQ==
      "]], LineBox[CompressedData["
1:eJwVT30wFGgc3tQVMq27M0eOOu97OYQxsizn+v2a5mozdOrcsbLuVr6uu9Jl
omiNEV0hN+GyPvKx6VicWGoikvKVytka1lfrWO8wVoM9deiY25tnnnnm+ef5
sAmLORphwOFwQM//lc9L97pvQLBt5n71TiGDGVnWks1mgrFWnguXoxlITXNq
LxsRVL/IyrKLYyBIyoueNyHo5ZJewU1hsKwtJN+aEnQ5veXJ4UwGlcLSsZYP
CfZYdOre5DII6i6/Ts0Jqrq3FZoVMTDkyf3TLQkGvcaGpjIGTbI/jBetCUY0
2db8fYvBCVNFR6ANwarzexL6KxlYJt1NevApwT+l0nxRFYNebTN/lx3B+CjP
Dyr1PkHYpsvYTTD3mSSxRc7Aoftxjc6ZYJ1uE6eigsGIW0+k0JXgmTW+OLac
Qbrs2ScPefr83o5Vx1IGn5sqR2w99X+a5jrVBQzmJAO5V70Jev/wNCRHv79I
O3x4CQjmiGLXAq4y8BWqDY/tJ7gY/jbTKY3Bv12Tj9oPENx28+sC2wsMatym
L9j5EKzl+okPnWEQItO6/+pH0Ie/63lxFINWyVJVSABB0U/K1o3+DE5pl8Mf
BxK84mtVTPcz2CFc2+FwjGD2itn4dR6DJLfNOf+ICbKUMu/fLBg4y4z9QiMI
LnNyc5yNGKi53C2d0QRn9np0eKxMAWjNE7NjCBqVGqU3qKaAI7M/7iQh2Li0
T7SSNQUpXL89x6UEsxLkwd9pNeAqOfL6SSFBP031ZPaABiZnv6lwKSEoyDvi
+0ubBvZ3hX68fougJCwjrD1bA5skpzfmNxA89GC3cthdA2mzOS/7+gh2BQVe
4Z2bhFQV632n1Pc3S77MFOt9h8cjuwGCvK2XEl/6TEJK8WhdyijB3h9vz3ta
T0LSUZrlPkPw0nyJYXb7BMQ1KwTFGyiqnmtuFBlNQHS6svWkG0Wh2Id/03sc
ouLpnQIPilRaZ/K+6ThEhp+t6faiePegcUCJRg3he7cX2uyjeHL1jbFNhhrE
uu/PDfhRXBlPTFOOvoLg4AXXL6Io5skflmWkjoGvA7fSpIDi7LLAau3tMAh7
Yirtb1CUZoTQ+P5hiIzsrzxQSvHi2WnRzqphSJZdkyf/TpHXotSuioah0dKs
eklB0dGkwHGiewistm6vHXtKkdWdYnHlKrCXn69d6aOodjIcGktWgfvBkdqP
XlDstp6t+1mkAv+Lhbf9hyjeE5UsfGaugtR31vUdUxQLBa+wM3MQruUn1U9M
U9RZtJiUnRiEYo/x+vVZimmJXwmqBYNwL7ZUwV/U92W03fF5bxDmtKSxZo3i
ejxVKJIHwGB9gx4U60L/qnGRDMB/wSbj2g==
      "]], LineBox[CompressedData["
1:eJwVjn001Xccx+8koZjctjzNw/b9IdWKg1OePp88xQlT7tQ4NoxSVkOeMg1L
co9lmIe5wzxk5umI497r4bqNY4VVxO93PYThXnY87nJoqWh2Xud9Xuf938so
+OtzoQosFgt39r+VTGXNc7sIav+grf/sFAPsh878XXsIJtsEBRUZM2AYUsk3
VCXo6s9b+1ydgaMKSgJ7NYJfiszE2y9psCm9KPDTIBgfkHkzeI6G0w6PBHFs
gr3mhxsjJTRwxk2Eue8THLDj8A700hCUkC5s1CboXplgZSmm4ZrWvPCpHkGt
zzIs2/g0fCNwb1k0IGizEreZ1UBDOqemRfkjgg/j57MqamnIW1NtpYwJ7lfX
q5+opqE8K7zV8RDBpM7p0sM1NDR8/Lj1iyMEPRb/9Euoo0H0+Ehb4jGC6dk3
AoX3aei9cret0IJg2XOVvgEBDRLllTaBFUHH2EZ7/k6P9Fev9qETBPkTkYs+
PTTInRva5bY7/Zmr6UVDNGzNvCtSA4Js3WjPpCkaVFMiRGaOBAuPry4vrdBw
0OCZ6LQLQd8q90LJNg2kw7wjxI3ge7WF60c1GDD3z+lIOUPQxLTq4OyHDDhs
rnWUeBHcWxTOXbFm4IJVs3iEQ3B34Mb33cEMhA4deLBxnmA+/GsTn8BAVGTM
A01/ghXP/7ns8SMDd+utf/cI2vlUcaNpDwPGgaZB9SEE1dLNfG/PMSDW1FFQ
DyNIn/xpnqUkAXncllP/NYKv1U2kRm4S4Dh2PzqbSND87YSpeFgCy+v8sKYk
glvV5UpdWxJIq6pSYd8i2Hm9NINLhqFlX8YZmktQh2Omah89DHrDZ/t9Cwgu
zIzl2+iOAJ/rFCHkEVTIvbQQ4DoCXnZW+7VKCHKTE9RZUSOQXKblM3qP4NOF
ycGKvhGQhf8l8W8iGJrBya5LHoU61tXJwCcEjdUH+YWvxqDPp+JN9EkKD7no
PGlInYKm2zNjP9tReP64OdPMmwKe0Ki1CyhkxXiT6vtTcEW3NEbDlcK8t0tj
AeNToCItWqk9R2Hn7hHuksU0uEXlT82EU9jFs3zhMz4Nf2Rxu71LKDTyHAqr
1ZdCXVdPeVwZhcI6fuZeCynkru9JKblH4cTf38p9XKQQciHNfqmGQn39X44V
h0tB0fCW4I6QwqoJ4VcaQik4NiT+Jh6gsPITkXaMuwzMptvTZocoVJL3x37q
LwNN9uuQfcMUGtDOgx9clcFM7A0jvwkKS3tSii9mySDFIZa3MU9hhannpVFG
BmER/Hi9ZQp1ItJyXs3JwLt83ddJTuF3ETxFxZcyMFS6zs5+QaFjnp68X3sW
lE80rQo3KbQuKEjNMZsF+eXV/sk3FN5M3cyzt50Fhe13dqDQVSGDb3tqFv4D
U0zkjA==
      "]], LineBox[CompressedData["
1:eJwVUXlM03ccpVQJQWEuHMaAHWTs+0XmcAjIoePzmSMcigIqpBMyDkGxMEFG
OOU+BOvAweg8Ni/cANHVEWECogUnQxzDgS01gKPs94UiBAZya2FdXl5eXvL+
eC/PKiLuQJSujo7OLi3/V1lX3NmtfIIWa+XHC4MZOJrguu/0CH6oGT/ZJmJQ
fXjDGZ4BwdqQx84OKQwsrg3pxxoSFMuadF7lMSgdvXNasYGgGoIyFr5moGuX
o/epCcEiqdufMRIGSYkBBbUbCTZfGy4K+oHBqyarNWbmBN1znO+3X2fwBW8m
N1tAMOsd3bnOnxj0eLXxxq0IJpQ77T5Zw8CzpCw78AOCN9Rmrr/fZND0PGL1
oQ1BQTUuvdD6j8wdMm23EnQqLPi4QZu/Gs7XfLuNYIpBnSC6ioFJdW/66naC
prftLrypZFA0Wbl8fAfBi0fzjE5dYfDWMTH1uStBn7qW4tkLDOLTPRbdPyHY
utxYH1fOgGs1Sa5BgsfCA4YWxAyE+mzO2IOgsiNWI9Huf7q/PjHTi6Axf6Um
KI2Be0XBa/UegqK3f9thPIO6/sCEg/sJTtRfzguJYnAxej7OJpDgudrIWb99
DIyk7ZNlQoL6lg+ynZFB7pzkS00wQZtmcVvCdgaiXOeYngiCY/oVu3VNGbh+
n3L0VDzBdizc4t3Lwa1hbzbyFcHVp6UeZa0cWG7ZFBmQTHBb76b8KCkH+g2N
4SSTIL8odK6lmANl93LIMzHBQzszCp64cpDEzzhoXUVwxTXvboD4H6gT5eAf
gwRjG7wyX68fBseIsA6iImhgf860fVYFDZ+Dfw6n/XOk8GbpgAoavTWhO8YJ
LqR6Co1uqUBGUrOuLhLcJyyx5/aooGs4/kGiMUVpheLfjcVDoD4ctmuzD8XN
oz2SFYuXIDoAvyX7UrTON5cPTg7ChI/At8eP4u2l9/JHZYMw5TIQfDqIotVE
VEFG1CDMmwnTp49QbBWuGj65MwD8Xr+mx5kU5+Lth4/594NgL7icuEvxl7Qi
27MNSphsjdGU/EpRbGzWfeQbJTx0Od8mbaLY6KbqFMUqIYxM+07LKJ73VHF6
7yvhOq8yPLGLYoDEkksu64OElG5S8Yzi1FpO0nmiDz6bejNe30vxxk7eZd+9
fcANHEpaeEGx6pE66+WaPqD39MRpI9p+ST7rXdIUsGjn4H9pjKIqsnaML1RA
x4+hpvcnKP5cN31pxUkBovJ7VzQzFGVZ81bZM3JwM2CRgnmK9v0tj/T+ksO6
nHdtYYliWaBE0SyVg+4KTwuKhjbW7tEZcvgPbyPJuQ==
      "]], LineBox[CompressedData["
1:eJwVUQs01HkYnSG7QxOTsixSWW2//6IoO4qO79MkjzXaEMumNtOORxapNrZJ
pil5hK2w7GkX1bKSSqvMUpTtoXRY+f+HGI8xM5WIrdNraO1O5zvf+c495557
7nfv4uik4G8NWCyWj37fX4m2OK3CgKBCLCg1CGJAuPkvr1Yjgh53tsYluTJg
1z1pqOYQHMx+VKi1ZGDC3/auIZfgmsChkAA2A83X/fIdzAh23Rmqkz2jocB9
T4iPOcEofuWRVCUN35yvsBJbECzgaHfzOmhwWdIxkGlF8MlOr76VrTSwTk6d
qrIhGBqR2N0up6HLfGlsmx3BMf8K19Y6Gk5lhziPLiYYwHmzh11LQwor44Xx
EoIJkuX3d5+lQbD3XMNnhGDJ2Qwjjh7Pn+iVfOFIULS/8ERVDQ2a7UZrE5YR
vOlaK8MLNFzud/0wz5XgXv5k2vV6GjKDt9yvdSN4KrrznMVVGsLu5hzrcCfY
EnNmeNktGpZiQ9ikB8E5eyJF0500vL2ituF5EWya8eXs0P/X5sxTuXgTtKy1
d0h8SkPpmTWVG9cRnN43L/uVjoZ4m7gdKb4EbT8ePfjChAGP40UuJwIIlpXE
dIctYMDEuPXVH0KCvF/rz8/X591/YKKR/pLgRbuhBrv1DEi+8/X5KJzghGXG
a/UuBgI1u0zcIwnO7e5LzzzKwIKvyzvDowiGbCijBZX6Pvx0EaUiPV/C+1Ol
ZCC/ZcnCRjFBtmfjiXM6BrbygzV9cQSFMkGH2FIBLIeaRNtkgn93vqyWblKA
4L/NsjIJweHee/zAfgWU51iPGmYQ7M8vkB9l98A7i96gWBnBbSuOVB0jPXDF
KcTaNYdgvPL++I3UHiCR/nWtPxFc696V1ryoF7iXPx/SXiJYmGT/0C3rIdDx
pp5OowSXP6ojATlKcHndXv7juN7faukzUZMS8qTZH7yaJOhn9sTh8LgS1pfM
enDttb6PdTe5D4IGQH5rKnbDLAqtp5wm/eYNwslFj4tTFlLYtt9kvKR0CLYr
Wl7IN1EYodvEa/FVAU91r0j9FYUGpy9uWx2lgqYxZpXpZgozZ30qKUtRgTl7
PF0UTWFOqk7j/IsKWhytZpsm6fV/3+0Z+FwF1tLkT0RZFJJqndfWohG4nbvv
dl4uhYdlA6IfqkdgZ3FmnDxfjwsbHdKvjUBbzckLc4oo9Osy4oJ2BL5XtHnK
Kyg87q8bPr1SDV2Oi0PnNFEoi5AJxtrVIOE7vXFvpjDZ7NiKI4NqIN7uP0ff
oJAjkfeaPFdDephwuOEOheEOnuvvWmjASZqWEE1TeLXRsN1+iwZ6cw+Z5fVQ
uCqrKf9dkgZkxQWXGvooLK8stGuWaqCv5re3XBWFQu2B62/PaCBL0XWo4RmF
Y7lppsKnGnBTKZeO/EOh7dQ1Z/G0BobGHt/jvqRwbtjG+BiuFvjsGV70FIXi
yEUp9su0oJptXH/0Xwp9RkIjlV5aYM+8HwoFUfYTPt5a+B/ADgGl
      "]], LineBox[CompressedData["
1:eJwVkn8s3HcYx0+lQ0dr1XaoltstxedjhtX5MfM8ZIapKUJVVnXNbH6ftuKG
TtfdHFLMnfj9ozUV1tlKylANnbJVp0PUnQibq/u4Y3R0hgjbvsuTJ0/eeZ4/
nlfy4l8Qh8Xt4fF4wPX/051vva3WJxgeMffuXAyDeUrqjA0IviPzT+hMZlAs
dEW3fQSx3PsvvUwGnj44LzIh+GtmW+WElAELCpIVmhK89sqzBrciBiWRkfZd
ZgTvBD5Z9ixj4CUSjaiPENzRv7C6WMNAm5QsNrYk6Nj4Xf/pBgaKDMlBt2ME
P3yxaJzdxMD72hedIhuCQ8J0h/QWBptetaIrAoI2oU7f4m0GbVudJhUnCB7o
/OryDpcTO0Z72u0JtozrPNu5LEhbjBtxIPixwWpC/DcMZqj+Qe2b3L3LXmva
zKBca9Wn9xZBPYXYac8tBiGNwkQrIcGZynzHjRsMDM+fPuLmQTCPr4w7wP07
YJk4EOpFMLD0kDqC48lWSlOTgWCryDlpvJjBSUWdZZ4vt08WygvyGDwP7vqp
wY/gxdsnbuVeZdBsNH7pfgDB9oqReyMZDGKHlo6rggj6/px1Ny6FwYTXcYlx
GEEYNuxojmJQuOUmsI0gOCXwTTkXzOC9jtBRnyiCpY3nUnN8GHTTXFtJDEEP
a3rdwo5BveWySp1IcNOzzyj4Tw2cUe79cieF4HJxpPvm7xowVVg7vXqR43M6
3Csc04DUKDz/lITgPV1jf94dDcRv9bh3SQlWr9Ub6hI0wO+Y0IzLCJbJbR06
zmhgWrxSslxAcPdRqZ3QTwPBWptFfgnnR8u4IsFaAy7KvKrCWoJVpCl2cWwe
du9GbIs6CZ73exE1QeZBIV7rNdZyvpiFGLg8VoMKag2TlghGy9WJT9vVYGXq
HzG8wvmRepZeqlJDc1vt89x1gp2N4d1N8Wq4v+bP/1ePYpXupWozAzUsXK6X
rVlRnIg0dj3sNweenwaFKsMoVnv7BAxUzMLVgI26k5EUbR48Lv8jYRYGzRuW
FGcp/p3K2+/rNQshPRvSkFiKZabD0ZnqGfhou+GHRykU59/Q1QocZ6D4ytbR
3nyKMZMeNTNj0/Ds86aFG30US/0Lioj3FGSM1aUN/kgxdKOxIs1iCvbZlG/r
BikKinTZC+sqcOmX7Xf5heKKq2RM1KoC6e4nwkEVRclNwfHyYyowD459oJum
GJu0nhO9rYTW2qj3TX6jaMeX53ygUsLTtwNjIjUU8w/lmg/JlfB6FpHpVjme
6Fz5kqESuodfMzVZp3h9Lm3UXjsJpyyOVjtvUhQ5P+RVDk1CevfL32ftUvSu
kT/hSSfh5j96XFH82i/sofizSfgPfS/TVg==
      "]], LineBox[CompressedData["
1:eJwVjn001Xccx106bELi1k47Tod5rL7f66lZIp8PYosWkXG0Up4T15GcHXqg
5tkOtaWUyxjFJA5GyFTuhDZi+/0uibt7uddNHjuZx8nu/nif93mf1/uPl1Fw
rE+YqoqKiosy/7fA/9+nQjWCPuvhDT6uLFhVLHi+Vie46cCqxa/mLHQuTrNa
mgRnm+0P8bawEOguD7LWJljZuLw/Z4WB2fzRST9dglckFqstEwxclbPxSfoE
pcOnjpaKGNj+ad968XaCh5Zu/GXRw0BV6rMM4Q6CzHcqon3tDDgx7VtfGxCc
vuQU1drIwJ/GDwu1DAly4/ICbtUyEB5fa2ptTJDyD3/cep+B1Y6KWj8zgibn
UxntKgZy9Ursk3Yp+Quhz2Xl/iS4QFhMCNYPqqkuVzPQVHftS6Elwbf/PJ2K
qGPAg5M1qLAh+OCuY92jhwyIva+c1rIjGBvJpksfM3CuJHHKyp7gQvxNy26l
r8Z8XIKfI0Ezg1fLJ1kGBBC1kQgEm0d2NOWPMWCVF5xV7ELQf6Ov7eu3DPwm
DtQXuhEcfJcuKeewEMDzLVJ8QfCgh0ZskD4L05c8zbUOEwyOzyeXzVhI6XWt
s/JS+p8M9H63n4XK6L2diX4EE6Ka+u9HsODYRryKAwhGG3Efscks9G82fdlx
nGBMeIuh8W0WVqq2zWwOVvIicc9KHwsek4vcYj7B7JrhzlB3EYj3zRV3xBHU
2Zq9mhAugnOZCgvFeYL3+NybX2WI4I75kKPVBYLODxr0gn8XwVRYS2hHBkFe
qyKk6fggaD13ydudQ5BwT6mnpQ4C4f3R8n0uQcf7dtdWHwxC9KJYJySfoHDg
A5+HqkMwnb6pRa2M4LFv4+x+qFfuCi9tt3aCuXk64fmmwzA7KW/sWiA44eGj
ctZmFHSOxEoslwmuZE6UdYeMAq9+WbNgjeCSUP2Ncf4o8JM2n4pUpfjYRfB3
99IozGpaa36oS5E/vbMys00Mc3sunvTYQzFgLmdc3UgC8zF6Gr2nKV43sLXC
21IIOjrJXwulOOLEqKXVSKFv7xPRrkiKRu7ikF+EUqhei7mXzqe4xYHLDMxI
ITKrxw0vUMwxSEjgOI+BpDwlteEGxYi0UAft8THwyvSflt6i+E3hvKtscQza
z/KO6RZS5HIMj5RpjoPAZsQ4ppSiAEo+emk9DgFPPhOa1VD07HZqNkoehxev
Zjl3uih6Zf0ctnObDJwed57pfk4xSBzSGGsug+qfBAOLvRSvjqmnVtrLIPuM
R6kvo/ybQHX/CRm4L91FbSlFTWFB51q5DBqHL1Y6yCjGRLWUZjXJwKTdVzdK
QXF30QubjS4ZqKZxJM9mKC4PCX8sfSODdr0TySmrFG2rbVU7eXKgi7aKmnWK
cuvM0esgh8AgznvOe4qR2w54f+4sh/8AXqb13w==
      "]], LineBox[CompressedData["
1:eJwVkmlQ1HUcxonD5bJEaN0QSEJCQX9/CFjLwO+3QA4lvFiExlSOXWm4BVFo
YSbuQY5wkcMAOSRgFbxmlDsInB0SDXVhFTmWZX8mGCBXSBxFL555XjwvPs8z
85j6hx/lq6qoqOC6/ned1tF7OuoE26Cxq/wUhbiyBpO9LIJTbq3dkaEUxpNy
UoO0CZrUC3j3Yin4nBFM5W8keC5lj1t8MgXJAUfvB5sInuXY6UuzKHCJQduc
PsGLUYebJZcpVOm9Mf9kC8ESdudgYDEFg4WOrMOGBFl5jvX3yykkPS9cSDAm
uDyjo95TRWG2Ofy7um0EFZe2HquroeB31eXBSzOCRqcm7grEFHoTjXdrWxD8
dOYkVb1OAQTzeZ9bEvQOzziUuZ7Xuz9cEewm+GOP14aNtRSshm+FplgTlHbk
3Sn5hULN2fzhSluCBdesHb6upGDOEh76jUswveuxs9pVChU/+7XLvyCYtBiw
c7yIwsfWrjb/OhDcqnBRXxFRKO7aVWGMBKMP2t50Wt/L8d2s7+BE8I9FxweS
FAqXJxeTvnUhGHi+8VpOPIXNiUPzF9wJHg7VjayIppDN7uQXeBAsr4s1YAVT
SIdsV+lRgqfLPGLkPAoa0qiGWR7B4Mbef/wOUEgM8t2p50uQKEao5z4Kwtzt
Op6nCN45s8xL3E5hyVxbGOJP0FlzgCNlU4hpmv4rg09waa21vVqTQsRY02NJ
8Dq/Zs1rfEIJAfZHLn11gWBVz09NJ8RKkHdz1U7/QHBDWz3LpUgJJ04aRSck
EOTfeh3Yn6YE77Q/ec3JBFu2mdqtBCjhwIv4j+xzCWaUDIV0cZQgCQ3IOJZH
cPQJ+9whDSU4q7ovRxYQ7Jf7cktnxmCflcFQfQnB1eEtJqLuMbCJF5ftEK//
JZtVY3l+DDimMgujToIG0s4u14cKeBVkzVVbWO9zu+y1IX8UpvWqXfnvCEbJ
BJ6FHqPwrsnYV7JMUG6fM8e2GwWtjTrCi6oMOq1+aWSsNgq7btMO/U0MhqVW
scLK5RC1dOWb7VYM7r0yFaLbPgIqGRr8/X4Myi3ezyiUDoKWrTCmOpDBp8Wa
q7zqQdg8OJumFcTg9wtS6hQ3CGZELn4UxmBgvkPQ3W2D4PK06S1PyGAsOZkz
Hf4SsgwjhIICBq0+0Du4hzMAhtcHRGmPGGxIcpNU5crg7LNSxc1eBltEY08q
Q2XQvexv8/wZgxHpPR8+dZfBBY83j3cMMBhQX2vyq6oMZJPLWr+/YtA9zqfs
RUw/EHa7z+w4g7UT5dPHvfohdV9yteEkg76ZZF7js37g5ujuD55j8IZFZsvb
yT7Ivt8rEv3NoNmRco/dPX1AR/IUzUsMdmCpZZG4Dy5Wla29t8Zg643jHRHx
ffAfrMrgJg==
      "]], LineBox[CompressedData["
1:eJwVUntU0wUUnmMkikcQEwXGeBxZmhMvCR0QOvdKijQ0aQiilkwspmE47DQf
Y5QxDgwGIeL7oDYjkAPIEQRJUaoTD3WQ+vvNMR7GNgrJ5KEGJlK//rjnO985
9373O9+9fsl7ZZ/weTwecfU/qqqUitMzgISR47kF0SwaWu4VBjoAfe8afyJG
wmInE9zwkwDo1p4dHwnns/jP0PG+hNeALvjHqu1TDIpfTQr+nAnUuvlcqu4R
g7J52yRfzgLSh+zOGDMzmBnQHDffGcg780m7w20GL4b5qMvnAG1+P25lxU0G
mQ2HDeFzgQZq9NvbGhjkJds6ulyAtPGaCmktgxLV2rGd8zgeSYuFVQwm5pUv
mnQDivvlXIm4kkHt2Vmkfx3ozvHGlHiO115OVfi6A2U1tlSVcP29rcbC+oVA
I0ZHj7ucnlPPioZoD6B9HdOTE9y+4JEjfb2eQAmnimHiBoNyh2eCdCHQvU5N
SHM7g/qFCRJHEdDMOX2zwxgGry67GnfKB+j3JZaIrQMM2tFTvdwPyI+n7nUd
ZdB1U4bhR38g6cMi9QYei4oMGnsUAHRUdj/VO4DF4iLDosw3gELHr60uCWPx
xncCclsK5Hl0rUfiRhbdje2FqyRAS3wCq4ozWYwceLOhcznQe10j20dPsJj2
XN+XvAIIZpe93HWZxVbvDyT5bwHx5ZvFmmEWx4Pq4nyCgWQH5jbynUwoilqg
rgvh/PMPBe0Xm/CLtO6OnlCgJCqoFqSYcPHNHQoJAlnzc55ffGLCLPk+gzEG
yKKrqOwSmfHZtPB01gYur6GI5EKpGVNK246EbQRyO1lT0Kkyo9QiPFwmA9q/
ewtd+dWMbpvakjRbgE6GL2hJ1HXj+XVC7+UKoOZ7+4MuOPVgc2DrCf3XQCX0
qrBO1I+BRuU3kVqglaEGUUBsP55P9cqZzAbyN4k+zT3cj9oKpepjHVDRJr8D
XvZ+XO/vFR9RxOWlkUvCKx6iZYHS7XEp0B9786OVx37DiSmPgpgmoIxD6Xfy
nKw4+jRG9+IH7l7HLLHZIisODWuyy68DOXa/+DYl2IoW84DGoQUoxE/+oDfJ
ijfqL6ZdawXKVv2dVXzFito9YbHLGO7/GyujBB/aULMzdX03C7Tmya4VW5Q2
VG0tjc55AFR2MHe4WGtDRfSM1TYLkFnsW11fZUPp4o6gMwNA1S6NZ2tf2tC1
N3G+8wg3X39wu67EjrPu57k0jQJtc5AOLC23I//WdWfFOJDy9l/vXmqy49NG
X8HPz4G8NoZ27+q34+MaGS99Auizr86IS0ftaC/TToleAA2ufFvXwB9E09Gh
Z4emgD53yTeeFA9iV57n2JJpIEOU+90doYMoX1V9ifcv0LoE33fWrB7E/wAO
T9PY
      "]], LineBox[CompressedData["
1:eJxlkX00FXYcxl2EJS+JmlbpJipZ7tfbRtn3y2i6DMk6xW5Ju4TU1STr5OWo
KBNHY26b66WQHGsWdZZ2IqG8W+WOe6/3+2teO+2sIsJuf++P5zzn88/nPOc8
3JDj/kJ1NTU1V1Xed11cwtg5DtBAvSRxKpDh3eOVzFYDSGt7V+NCOMNbocND
g5pAWX98+cb/FMNygXF/hhaQU4Fe6mwyw2sBO2U7dIAeB50PWXKJYZ5XnHT8
A6BFTZvJ5ByGOW7lT8S6QGd3j2sm5zHMcFJ07NQDIpGTwfKrDFN4+q2v9IGq
ugL/dSllmLiJHl01BMqcJ/OVNxjGrTvx0M8I6Oj18PzScoYik+LahRVAcRPZ
r+dUHL5Meq/CBOhEn8Bng4pDNHR+D1wFxPO/HWpRxjBo1qlaxxTozhCKDUsY
BvwTWXlnNZDYQCx/UcjQe1RS8c0aoPrTJ1tbfmboMdBZZrQOyGfu7vWbqv2f
STkldWZA9xOE+4ozGDq22xUd4wLpfxctup3C0KZBKFljrvLdzOZNxDPcfC/3
SstGoIdmLy/6xDB8HC2qDrIEWoh/YloUwfDI5l2dk5uA+NWfDvODGd7ImdU0
2ArkuD8K7u9iyPd+alZoDZQWdRuzXRiOq1c4wzag7ZVFYhmPoZVIINoDQG7l
Y6s7TRi2WDp+r7QFkjxt8bygzTCiT7/0pD3Qvs+t2h/NKLGcXyfP/QRo7xYj
jRe9StxqYf6FwgVo/4PG+KBcJbbJ5w5FIZAiMnCy7bwSj15+dmaBgNiSj4zH
vlVixeL5W+vdgRy8GkzBV4nWstG1Qj5QeULspFBdidsyb76a2guUHeYntT8w
gh0eqQaJ+4Amuc1Vf3uO4LF3B60MA4FmvZIaY+1G8Nfw5cG2AtV+uVuJrc4I
8txjWmMPA+naqOkIKofR9q3T1cXjQDVTPc7c+SF0ONzou/wiUExo5O78y4O4
pvi5c0Ma0DUu18P29CCqM23LU+lA+LFgy5+HBrEjlP9OkQkU1vs8zA4GMTSi
s6zsR6Dh4KW+bkUDKI7u5VAxUPpBY06yRT/OJk5VHasFuvKbd5arrxwH6/QL
uA+Aktr4c6nmcmzi8NKe1QOVDE8JNWZk+MPZE8HOTUClAf0ZPxXJ0Dp1eplW
O1D/Jr1V/tO9KMjghEpkQHvS5+NX/NKD7p0bdvspgNa+bHrbeK4HrQzdd2j0
A1UoVn5V+XUPvslKMQofAmpeKm+21uvBjBzdWvtRIIsk464G0V9Yl2fyYdtr
IGmf6/ARNyn6SPq4IdNAvknBWtrrpSiXlGydmQHqOVNl3T3fjW/yHXDjOyDR
aJIJp6YbzxXMe9bMv/83quCAuBuNChv9/RZVvrFLNROx/+f/AFh/5lk=
      "]], LineBox[CompressedData["
1:eJwVk30w1AkYxzcXaumSS+doERncpa7HuNsJPY/rkmPaoc1dr7qKkt7ctTl5
ObRSZ5ISR+7snpdd2i2Z2JN1mkbRC8rlt9aGll0rXZyrK6m23O/+eOaZZ+b7
x/N8PvMs2nFwXawFh8MJZuv/7lsWtSvVAsjVs3ZyK1+D6jJegv1MIG536vFG
ngZDy01Hqi2BNjcwya5WGuwpvyheaQ10POHXk6KnDMZUHM5lZgH9Dv5CiZ7B
ZxVBRfFcIP/e23xxF4PplZZlHFugU4IuEfcGg7ayTsXPc4D2tjZbLlQzWCIr
rF8yF6iaN6b47TKD3vKtV1vsgHxmX3qYeZFBldzz1gZ7oKL9RV3nFQx+UTX+
598fALnLjdveY+euKlVflgOQKcB5QbKSwejqNJPTh0Axbcyi1zUMjlWvnqh1
ZPMXKiMT6hlMPj/nVYgTULTYb+6dJgatFRqLAWegKl3yphfsfgWKUttDPCAr
vlfr4D0G3ZWxC2a7AtWEuhxI6WewVunrJnUD2vDS6239XwyuvPDCx98d6H5G
oyTtNYMdF5r92j2A8vcNTbfaaHDjxWNB2z2BJuKFYekuGhTVOETmegMd6wks
sQnVoMWlgU0eHwNtTNxL16M1mHdJFtP4CZDfrhVcVaIGFbX+SaalQCdf/Ts5
X6HBoctR0iB/IC8/VUUarwcP1PHOd38GZJ93slcd2IPmOtPlPXygbnPloHZL
DzqqDrcVBgCt0K0ayJH2oKChcHw8mOV/6IFa66vF/oatL8WrgBh9Qdx8oRb3
XPGc4bSa5fdEKnqSpMWsRtX8kFAgjp3NvPA2LTY1aQIkAqCWuzbi93f3ovc1
hxzBZiCHFsGj8CYdBn4UW9y/BUhE2csFIzqM/L5eHh8NlFKubc6Z9wCTFwuv
Z28H2vdp+87yuAfYceK0+epu1k/2lWtDjn34XaTNwWUi9p7HSUfrf+xHtYGz
3i4XKNMnbGPWWj3eDYjYITkFBO7ndNbJejQWSBOWnAbqTCiQHJbr0XbNytzQ
s0BZj90M3Gk9blOmtGWcA3qxf84fad8M4kzRJP+pDCgirDjjp5lDuNZyjHf/
KlBI7f66IxEGrB4VmzOvsb7int3k7zKgRYdz3/IWIO/U8PaBFANeyQ8vPtPK
+vky6Xmv3IDubkr7yA4gedmJ+3lvDDi5It66SwcUloqnRqVGjHCxGEnvAyod
3/L1VJ0RlTNKbiwbADLHrSscu2nEb2/dzswbBNo0ixN7dMKId6J8zIJHQNOx
Eo+dQcMoSRj9p/M50EOmpNTcPYxTwox7aZNAv5wVN6wfGUbh5441vlNAIzH5
ZWemhnHWuzV7c9+w+aVJi9ULTbhjSP9V0Fv2X5NkD2VLTdh84wfv8Xcsz/R8
ZSKZ0FZnxeFMA1VuKOYGBZvwPyqn7Xo=
      "]], LineBox[CompressedData["
1:eJwVk3801XcYx+/cGoltKFSkRJLKbs/6nfs86lS0umTUUObHxGhujWxrrK5O
VFKpST9EYRqixSwJ25Xj15UsrosI1/0s0Z2f1SXTvvvjfZ7z/u95v8/rvdBf
7BaoxePxHDn9f7+Jv8V2aAHdehn+xsafYX0YVk7ygTZ3/mH77UGGNm6K9NvT
gX4SDK/Xj2YYs0os2asNtMQzMGkijmGHqbav3gygIosiE5dEhmsmU4WlukAt
gZvmzL3C8ELXavMDekA/82+EhaQxfFnR8HbeB0ACI/nXokyG27L2t8s+BHKU
R4003WKYfmqq+AcDIJ5LpZ9ODsPJA5eS7YyAmHRrvobze1xXRD6dBaQxrPO+
y/kCqHKPNwZ6bdURI8xmqGfiAxtMgUR2bs25WQyDJl4ZDMwBUg/npEzLYFjR
mTB0dR7QSb5H9WepDM2k1o+3mwP1pLT1ZFxmGJlZljcxHyjeVT3/HZfnrziP
MzkLgBrtgzzFpxkuC1WHeFkCyUUWJlMShrGiE866VkAJEUXxv33HsFtgvqTE
GuhgEV27FsZww+yi90NsgCQP+joeBDAceqp6WLsUyF4t6an5lOHIj4uke5cB
jRuPR2cjw7GF/uWDy4H6jgzoalYy1AR1Fc8WAJXfP+H52oQhb6wtz28Nl9dW
usugQ4Vayaa5Y2uBwu6c3DcpU+G09Xt+iVsPpDqece7oAxXqHGtOz3MAqnJJ
FfteUeFHeo+TxzcDzV8UFaq1S4WGd/STzmwBuvp33czFQhXOcttxwWIbUMqT
e+5adio0vVx7Zst2oICmu6UjfBUusKqUJLoCZUe3lugX9uLHG++H2u4D0tk7
qMnX6cWVXW+CS304fqSHo6pGlPhJzOr9Lr5AtV5h2RUdSlxbU+h7OABIWLXO
6NCvSiT3fA/pV0B4VPlP+24luh7IQM9I7t9Uyzm7b/agOCXB6NQ5oO8jnMp7
VnVj/XtWg9sTge5IctY9NuvGpUEldXoXgRYcMx+X8btRJXguOX8JqCx/wFOd
0YWfV9NQ8nWOv+E+v53PnuGmkdH6rFygGqebC7W9O9HYySu2shpInGfZe/9I
O4bnDfnF1nK83fZuPS9qx0bDOAcnGVDEzrQZ6ZbtGN9ZOCZrALJudjSOkLUh
L1w/oEkONGCfJOqwaMP+63+ishfIEG0FrU0K3MbfMy+Tcf3i9MYvcxWYGax+
HfgcKNNhpnD5cQV+AXPzX/RzfSee9DkECmyuCTcbHgYK8i7pq7zUgoIVupqC
UaBX92a7rjjYgmcv3miKeAVk1p/84olzCzr7PDqt0QC1hpbBo3/lmPUwYH/J
BFBxnUOaZascp9lOOEZNAr3d2FhQUCBHv7PnzYVTQL/rKrZGJ8ixfHTx+Lt3
3P4aWgUxwXL8D+Qf86A=
      "]]}, {}}, {{}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{"DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None},
  PlotRange->{{0, 20}, {0, 2}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 0}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.6389178040978966`*^9},ExpressionUUID->"9eaca10d-41d5-4fca-ac6e-\
b5e2ee0535b7"]
}, Open  ]],

Cell["\<\
We examine the input function (square wave) and the output function (rounded \
wave).\
\>", "Text",ExpressionUUID->"2211ec93-62d6-4618-b9b3-1470e3d1cb01"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"pRut", ",", "pSol"}], "]"}]], "Input",
 CellChangeTimes->{
  3.638961049389639*^9},ExpressionUUID->"77d1f707-2b3b-47e0-8aaa-\
aba60d2b4d82"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[{{4.0816326530612243`*^-7, 5.}, {0.19628680808524648`, 
       5.}, {0.39257320800722767`, 5.}, {0.60537015816092, 5.}, {
       0.8181671083146124, 5.}, {0.8678409224988433, 5.}, {0.9175147366830743,
        5.}, {0.9423516437751898, 5.}, {0.9671885508673052, 5.}, {
       0.9796070044133629, 5.}, {0.9920254579594205, 5.}, {0.9982346847324495,
        5.}, {0.9982346847324495, 5.}}], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwBGIQ7ROYedxY6IM9AxSkSHAsWKSN4FffX1Yh6IrgT1rm
GtgQh+Cvyn2i+b4cwb/1W/H2mVUIvoXEXNsOgY9w/reAyUz/byP4hYfqe94U
fYbzfwhOWXu7G8GvS1xx7tQSBL+H4aLAymsI/go7pampVl/g/Ae7jsy9x/gV
zg/YzLn+woRvcP51JrkL+1ci+HFBRh/XHULwcz5GGfd+QfA79Nds94z4Dufv
X+134JD8Dzhfb8nki1vW/YTzRWYYfD9wEsH/3X1W5uwTBP9EMXvGU6lfcH6S
c/U/0XYEf+qjJO3y+N9wfs21/wHNVQh+0qk5Zf1TEXy9TdcOLj+N4J9o9Iq4
Yf4Hzv+jYNRqKfAXzn8kcn6VqzaCf5Ij50KgG4I/7cNS6awaBN/ggOSmWS8Q
fLEt264vY/4H5/9dHvx3kxyCf6q/1+N0CIKfHM94//cBBN8reB4Lxx0E38Dd
WkvkO4L/R6+0VEf3P8K9SkKzLTwQ/JNi6w+4JCP40/694I6dieDXfGo1zNyC
4Cc/UwovPY/ge93aX9P4CsFXXjj3N/8HBB8At/jUog==
       "]], 
      LineBox[{{2.0038910075435785`, 5.}, {2.0145625382241397`, 5.}, {
       2.0277693003971415`, 5.}, {2.224975801748399, 5.}, {
       2.4221823030996563`, 5.}, {2.635899354682625, 5.}, {
       2.8496164062655933`, 5.}, {2.902071266111183, 5.}, {
       2.9545261259567734`, 5.}, {2.967639840918171, 5.}, {2.980753555879568, 
       5.}, {2.987310413360267, 5.}, {2.9938672708409655`, 5.}, {
       2.996097931156149, 5.}}], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAGIQPXnihXN/2TkcGKDAdwcvjw8fgv/EdeKundIIftVl
kUx1TQR/2TvpY0wuCP4/Fa2GnZUI/pRNa/XU2xF8LQfDu1OmIPhh0RZWBesR
/PUT3b6oPUXwE/4lZUwJ4ITzD1+fHZCvzoUwPyn0y1djBD/tLd+MGgcEn4u5
6X5nJIIfoJeRt6Qbwb/XYtJz8z2C/8vw7HHnHdxw/pk9bdmnjiD489wd+AMv
IviOsZvD4l4h+B0dM59WyPDA+WL3U5nXNSD4hj3/7CQ8eeF8o8w/KWvDEHwT
t19dTikIvhnDt2s59Qi+TcnbvINbEXyPmDvzspT44Hwvy1tH/usj+N5iN15N
sUXw/S5cNtsfgeCHuJw+J9yP4Cfo7Pq35zeCn8S5QyWIkx/OT3621eu5GIKf
tmDjNEEjBD9HZKVeWgaCn/dxWcjvUgQ//9ySqgnNCH5Rx4Jju+Yh+MWp8974
r0HwS5zmCD3dieCX/5kex38Vwa+4ObVlySMEv2rb5FWWHxD8anACx80HAIUL
ovM=
       "]], 
      LineBox[{{4.005561758282111, 5.}, {4.018826026794443, 5.}, {
       4.032090295306774, 5.}, {4.058618832331437, 5.}, {4.0851473693561, 
       5.}, {4.283273972136633, 5.}, {4.481400574917166, 5.}, {
       4.675629565497091, 5.}, {4.869858556077015, 5.}, {4.922543441279924, 
       5.}, {4.975228326482833, 5.}, {4.981813937133197, 5.}, {
       4.98839954778356, 5.}, {4.9949851584339235`, 5.}, {4.996102831869125, 
       5.}}], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAmIQrbe2bd5fZhEHBiiwup2gGsWB4PcEW7VJ8CP4Bi5v
3afKIPhNe46tCFZG8K+YLOAU0kLwK1SDT/eZI/gH2Xb6dQQh+CL1k9a7RSL4
ad+zBVgTEHyuF3KXGnMR/KCTLaHVHQj+k+6AmLx9CD674IvMEC1ROP9be4zr
fAME/9m/CwqvzBD8Y292Xq93RvDbTnS7ro5B8Nka9BWZ+pH478turP+MZH7q
682/fiKZfye+35VBDGH+KQ+32zwIftsyqS1sagg+W9y+/tgIBJ/1LKs7914E
nyd3TvLdwwi+CK9xw/pTCL6Kb8LO4BsIvsvZXdpzPiP4TWfzBXS1xOH8rlw2
3f8GCP4k3rmeF80R/EW+p5pKXRH8g2dVvu5NQPAZzt286TcdwefIK/imMA/B
F+BjF/68BMFX8DPxmb4Jwdd4dyojcyeCb9CX2Gp9AMG3P9e37/5ZBN8tT/X2
xisIvh/fnu/NtxH8sHVBImGPEPw4v5cGGi8R/LR39b6/3iP4eX1iWWe+Ifhl
4AyAmw8A4ieiAQ==
       "]], 
      LineBox[{{6.004335928929889, 5.}, {6.057623028336533, 5.}, {
       6.110910127743177, 5.}, {6.320160913169147, 5.}, {6.5294116985951165`, 
       5.}, {6.724560790604317, 5.}, {6.919709882613518, 5.}, {
       6.946167337893632, 5.}, {6.972624793173747, 5.}, {6.985853520813803, 
       5.}, {6.999082248453861, 5.}, {6.999082248453861, 5.}}], 
      LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAGIQ7bVCN/Qqq4wDAxSoXJpnP5sHwf/7m18rURjBv6ba
KKIuheCv9//0740Cgt9RmfxykzqCb33WdZ+dKYK/oIQrIywAwc8+PHl3axuC
7/KWZZl3L4IvJ142QXAKgn8hKyJ17kIE30xIln/rHgSfIXFZ0pNPCP7Ufzs4
neNl4Xwe9aN5U1MR/Bb/i5efZyP4RQtezu2pQPD9nKSMrk1E8NnaqqMyjyD4
Fbx2q/s15eD896ZeAo/0Efy0uLBSEzMEP2R9nv1NJwTfMHD+ZaUYBP/VFIY/
W/sQ/GiZwz53PiPJ5378tPUXgl+xX35mP6M8nD8tqeapEz+Cf2mFad1KLQTf
y3TF+rJEBP9m27XQgAwEP+MGyx/NfAS/rTrR424Ngn/ooNRD5xkIfqCwZ7vs
fAT/QUq57velCP4/9iuVqzYj+FZ+vUKC5xH8k/N373h1FcGP+Pgy7sgdBP+Z
kwTrvMcIfukUt9XlrxB8lmclgYEfEfxJ5ou/a/1A8BU7L85l+Y+bDwBGVaBq

       "]], 
      LineBox[{{8.005730688563446, 5.}, {8.032489250945428, 5.}, {
       8.05924781332741, 5.}, {8.112764938091374, 5.}, {8.166282062855338, 
       5.}, {8.376452949710583, 5.}, {8.58662383656583, 5.}, {
       8.782693030004307, 5.}, {8.978762223442784, 5.}, {8.985405340432479, 
       5.}, {8.992048457422172, 5.}, {8.998691574411865, 5.}, {
       8.998691574411865, 5.}}], LineBox[CompressedData["
1:eJxNzlsogwEYBuB/LsihNhERF9tKRqQZc8jpBhdWUmQuZA4jpRU5R8uhRBEr
YVnrT5rMPzsox2TMRC0j0YiIyFywVs5zKHn31dfbc/G9fcxySUGVB0EQcT/7
m0kJ/SkrHqxM4m/uyEEn0xMeY8ioPm/4xS5nFTFglVB5thoAF5unRtnB8BI5
5/MUDrcJ1x0D0XCUeVPtiIVtvB2xkAunMqy2iGT4Y/vKuJENd/I8Zc8iOJb0
EZRWwed0upepBs6wB7ePSGCC5FTEdMBddEF8xRjcey87tFjgnuOb3Xerm7f4
xsgjt3vF6XzXqdt/BezBxDu4aVmXq6Cx/13Tb12r48HVzeyFCT4srmxUm1Pg
yvQQOTMLFjnKWo4EcEnJIzetGs6Loqv8JmDhjkTFmXTrF++rspWwlByekU7D
htDAWacODvMNoc72YM5MK/VqgRNzbFTQAZzfLdfkn8A97+HarWt4eLxTe3kL
K/gXWtc9vNig1CU9wSZ/mr7QCR9oRPr6Z/hCYNQPvcEPdpZB/QnXGqRfNBf8
DedRqc0=
       "]], LineBox[CompressedData["
1:eJxTTMoPSmViYGAQB2IQPc27nuEfo4oDAxiIOLBpPNnyjBnBFz7mspWZHcFX
SFm6VYELwbdakLYtSgDBD7mjvn2KGILfEbJqB4cygr/njM6uGn0EX2Wv4d4U
DwS/d63ZAZ9EBH8NQ+69hLMI/qngxX9KLFXhfI+iaQ8eZSP4Ryd0HgmYh+Cz
KDRva9+O4Dutr1mx7wKC/6isUjHqLoLfaFc26+tLBD9g0Zcw5w8IvgJbsfDE
bwg+h8Wmj9t/IvgfMj+ev/cHwZ84FRTACD4ABihXAQ==
       "]], LineBox[CompressedData["
1:eJxTTMoPSmViYGBQBWIQnZ+1peE/o5oDAxQcOJvfo8OM4JuIOHBPZ0PwV0QJ
dDFyIfj9zze0XxNA8OMYPzU1yCH4f0xKKq9YIviWcyrSagoQ/E1ZjQ5n7iLZ
l5RwQu0hgr8t0j6g8QmCv9Pjb7zZayT3qlXWL/iB4J99VLCvRFgdzn8RlWAj
64ngZwXZHyn3QfDfeMr5XPJH8N9b3IluD0Pwv4lFVH9MRvCZL/vvOlqH4Mt5
21vkbUHw3x3M/tu3HcHfbzHj0PpdCH6C2kefjwcQ/EWMixNLziL4RRXn1aZe
QPCd3/9+vfUygv/kTkjZ95sIvvoOtu6qZwj+Dz3jgNkvEfwTS+NF97xB8v/k
HfP/fkLwrbiepsh9Q/C5GwW17H8i+He+276P/4Pgr8kDJRjcfAD5x4Sw
       "]], 
      LineBox[{{12.005138206167196`, 5.}, {12.011247598026012`, 5.}, {
       12.017356989884828`, 5.}, {12.023466381743642`, 5.}, {
       12.035685165461272`, 5.}, {12.047903949178902`, 5.}, {
       12.145654218919947`, 5.}, {12.24340448866099, 5.}, {12.45541557837479, 
       5.}, {12.667426668088588`, 5.}, {12.766381366237102`, 5.}, {
       12.865336064385618`, 5.}, {12.914813413459875`, 5.}, {
       12.964290762534134`, 5.}, {12.976660099802698`, 5.}, {
       12.989029437071263`, 5.}, {12.995214105705545`, 5.}, {
       12.996108949417103`, 5.}}], LineBox[CompressedData["
1:eJxTTMoPSmViYGBQB2IQHcTwj/Efo5YDAxRYKMr/esiM4D/W1prLw47g95mZ
OphzIfhWjg6PE3kR/AlhYZrbhRF8u8amrYkKCP53mzmJNcoI/oYfW3mnqyH4
ygUvU8/oIPgc8QFi5pYI/mUbuXKeIAQ/48dOi+3NCP6k/I+7eZ4j+Nft53Bk
v0LwZQTcQ0++RfCXb5jzrvULgr/no7vif0ZtOP9Z8by2jzIIvlWFd+C1IAS/
3uPbXJMwBP+IxMJXkyIRfP+d35r9ExD8lF8Lt53IRfD7an5I7+5A8B81LH02
fx+CX3ZhbsGRgwg+l8K0Xy+OIPhG+9v4jE4j+M1/082OXEfwJXwTDry4heCv
mRPhxXsPwb9i7RkX9gTBV6nSanvxAcHfcVJJgPcLgu8jKT3L8DuC/yBDWCXs
F4JfsoN7XdVfJPPACQzBBwAtz4M4
       "]], 
      LineBox[{{14.003891050778225`, 5.}, {14.007352888158316`, 5.}, {
       14.013491033186796`, 5.}, {14.019629178215277`, 5.}, {
       14.044181758329199`, 5.}, {14.068734338443118`, 5.}, {14.1669446588988,
        5.}, {14.265154979354483`, 5.}, {14.478086170497559`, 5.}, {
       14.691017361640633`, 5.}, {14.790432110503787`, 5.}, {
       14.889846859366939`, 5.}, {14.939554233798514`, 5.}, {
       14.989261608230091`, 5.}, {14.995475030034038`, 5.}, {
       14.996108999225997`, 5.}}], LineBox[CompressedData["
1:eJxF0mkowwEABfC/K2ZWmMhqcq3kGJIVSVLmCKEUSrLsb+WYkKu/T66i0RpT
ZORoIucHNJHjgytaphwxs2y1NDS52hJK3qvX6/f9BQjEeUJ7giAif/q75Zw8
4suOm0T8hb5xt0J3hFvG1vzinWFTW1+nyBUuKCcf5QyYx/XafGHCUx4PnEAf
2Ot1W5LDgi3r4uI5f3g+/chGRsBh2sWqjih4ulaunYiBx4dLt3Rx8ID5va2I
D1PSYHp2CZxx2eobK4WNoiiewyv85KFMFX7AHyp24Z4VpjHoVI995L/Dlwzb
THe47nMoKzgMJrqdhCmlMC2GalCWwZ7Xli6aCA7i6maOq2H+qeo5n4IlrBqK
HITlu0bJ/hCsqCweDVXAi5sZO4+T8JmA49K4DLNmr2Rdx3CtRqFfUMMHVkH0
hQZuynw4CbmC1fUL7NwbOGSkrrJZB5+brbRDI8z13iqwmODOxHYlywxrybS3
5GeY1+eWUvEC966qZbI32HDbr1//hBNcCqPvbbCN/D04/A2XbKRf
       "]], 
      LineBox[{{16.003903801855365`, 5.}, {16.049430556414936`, 5.}, {
       16.098765742000097`, 5.}, {16.19743611317042, 5.}, {
       16.296106484340736`, 5.}, {16.509957776913087`, 5.}, {
       16.723809069485437`, 5.}, {16.82878590967131, 5.}, {16.93376274985718, 
       5.}, {16.960006959903648`, 5.}, {16.986251169950116`, 5.}, {
       16.992812222461733`, 5.}, {16.99937327497335, 5.}, {16.99937327497335, 
       5.}}], LineBox[CompressedData["
1:eJxTTMoPSmViYGDQAmIQfaCi7mULo6EDAxTszN/w1IgZwd+U9ujhAxYEf1Ws
yL0+NgR/jnfFtVecCP5Up1WXZnAj+H2Wd8658SL49eoOxxcJIPhJzBw7osQR
fI3d02eeUkHwTxQWbIlWQ/AzNDzPv1FH8FdO/cXCr43gaxXEFgQbIvjaqsru
d2wRfL3+dV/ehiH4pslH/QU7EXyZJc+sjnQh+ExP2dXKexD8c2lef+70I/hp
WedXrJiG4M8ovMnosATB/1X/dnPefgT/wQG++YoHEfxjjAZdVw4h+JObixKs
jiH4Ou3fedjOIvixfYxpc28h+C7nlQID7iD5X8DFhvkegv9tYptQ5kOk+JjK
vd/kBYJfck1n1fOXCH6UuN/UWa8RfPWZE7IZ3iP4B+aISpz5iuD7zb2rmPQd
wb89d6n2jx9I8TUv17TvF5J75pnaq/xB8Fvm//XY9RfJvp///zP8R/AB2dmS
Fw==
       "]], 
      LineBox[{{18.003890991217165`, 5.}, {18.00971068945471, 5.}, {
       18.03449329492595, 5.}, {18.05927590039719, 5.}, {18.108841111339668`, 
       5.}, {18.158406322282147`, 5.}, {18.257536744167105`, 5.}, {
       18.356667166052063`, 5.}, {18.551030397621368`, 5.}, {
       18.745393629190676`, 5.}, {18.850830520091186`, 5.}, {
       18.956267410991693`, 5.}, {18.969447022354256`, 5.}, {
       18.98262663371682, 5.}, {18.9892164393981, 5.}, {18.995806245079383`, 
       5.}, {18.996093751594387`, 5.}}], LineBox[CompressedData["
1:eJxTTMoPSmViYGDQAGIQ/UXt5///DMYODFBQ1L38qQ8Tgn8mz/7IH2YEXz3o
+qI1rAj+HQn2BB5OBN99Wdqt0/wI/qLOfzuqBRH8PznTpmsLI/ibjI+FdIsh
+DIHVc97ySL4H24/OXxSC8H/VKd8MEYHwf+imLTvvS6C/yP9/g5RQwSf4cvN
tYnmCL4Az/npP50RfAObndmasQh+/pxe4c5+JP8zqrz3mojga6XvOsUzGcF/
Yvi8ccI0BD/iuMOH6XMRfKdPn88sW43gi3lEtR05juAXr/2Q2HYSwb8g1G7r
cRrB7767+cvpc0j+KeZNvnwVwX8194D9o8dI4c8cLr3kKYK/JOPtt9TnCH68
sdS6l68Q/CsnimU+fkTwDfW4fmz6jOD3TV5wueQrgu8Zd7brxw8Ef9nh5LRd
vxB8Fs1fjjV/EPzEvgmydv8Q/H2fQQkOwQcAGV6VSw==
       "]]}, {}}, {{}, {}, {}}}, {{{}, {}, 
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwBgQN+/CFib1JlAgAAADcAAAACAAAAnX5iBjFkmz7QLl0U/E9dPZ5a7DpX
IHk/syJWinpcGD/ZTYpyICCJP2QPlatuEDg/MjfPowrYkj/TtYhmlL5KP3dH
WQ4FIJk/P4Ns9358Vz+8V+N4/2efP/gp3jzeIGI/AbS28fzXoj9NL3HA6spp
PyS8+yb6+6U/OG6DsBlYcT9GxEBc9x+pP/4rCy90YnY/aMyFkfRDrD/Sl69w
zP57P4vUysbxZ68/QeLYBswTgT9X7gd+90WxP4VMkJ28a4Q/aHKqGPbXsj9x
NI+3ngSIP3n2TLP0abQ/CcTVB+7biz+Keu9N8/u1P6hS0pU6748/rYI0g/Af
uT8vjSG+NmCUP74G1x3vsbo/xjRIB+q8lj/Qinm47UO8P6EuSZYbM5k/8pK+
7epnvz8OlAh522eeP5xRJKzy18I/PZqVQOPrpD+kk3X58aDDPyzUWtaScqY/
rdXGRvFpxD9AZMdOSgKoP75ZaeHv+8U/lDuocDo7qz/hYa4W7R/JPzoqCI1a
BLE/6qP/Y+zoyT9yioqCkOaxP/LlULHrsco/SWcqDNzLsj8EavNL6kPMP30l
WKYXn7Q/JnI4gednzz+9mX8+IWS4PzZB4fXw19I/aJpvWxomwD97UWtg6x/Z
P8cTWxmhccg//oM2Gd+M2T+ihkdvVQPJP4C2AdLS+dk/0nuouQ2VyT+EG5hD
utPaP8GyZIhpuMo/juXEJomH3D8jC/YV+/3MP6B5Hu0m798/Gq3V4my/0D/j
0Og8MV/jP/NqhEsPG9U/JGpOGauV4z87Q4PEqV7VP2YDtPUkzOM/QY6P3/yh
1T/oNX+uGDnkPwvQXULJJ9Y/7JoVIAAT5T8mg5CA4y/XP/ZkQgPPxuY/Isef
HIox2T8J+ZvJbC7qP/+Wix7r99w/OIfZekph6j/ZUaS4wi3dP2gVFywolOo/
0oukElJj3T/GMZKO4/nqP1R5PjqYzd0/hGqIU1rF6z9gaZpnxJ7ePwDcdN1H
XO0/vi42odoZ4D8warKOJY/tP8WBqz+KMuA/X/jvPwPC7T8N29a5FkvgP74U
a6K+J+4/uOxgpMZ74D97TWFnNfPuPzN9nTKF2+A/qtueGBMm7z96eBOJHvPg
P9pp3MnwWO8/jjJVlJUK4T84hlcsrL7vP5lKD0IdOeE/IOAf4B/g7z9fO/Jn
TEjhP9PMufA=
       "]], LineBox[CompressedData["
1:eJwVUAlMk2cAhY4pqGNAwHEYZrvIJTdEQcA3JYAg4xCZilcA8RqMTGWg4EHw
gIGAIgJDXHXaCQozLSvTOek6BlhELoFRlPYrZXMGWP+/BxVKuy4vLy8veXkv
ecy07G0ZDBMTk0gj/9fYxCNdATYKXIyIreIfJMiXcPKsIxT4zUY2oionuMqJ
SDy3TwGmqMaijU3QlCV3/zdXgUL+xVTtQwJhYBFj3xUFxh7ZuHW2E4gXmOPP
mxSINgsN9eoloIUCXkiHAvK8SbsNYwQW3+wva3qtQGi+uls7SbA6UX/AYU6B
6pl885wZgiD7hrBiKwoprFr3x2qCBEnIyjl3Cq0FGS5DOoLDHPFsRjgF59w/
2CKGDOeyTna93EOhTmA31bRUhppAe3b41xTWrBqYPr1chpYFfh63ggLvnlPq
Z5YydAqTE5mNFDr9QxpYVjJMlKjcK4UUrD11D5dYy6BJqGIYximkS99LZxi9
pb3/eJaaAnXKKsDZmHeR9PNeWdJwPeq6J83Yt5GTXbbVjYbnA+7IiHEvOcsy
4/EmGj+XXE4pMpchM7A5zH03DfNNpqnZZjKcX9i6svYEjS5nrsttA8EN4dvZ
JeU08s+cbmbNE7SWlHTl/EBD5xb9dE5J8DzBjS0X0Igv6njravxn8qOuvCQx
jVmdU8WjKQIbjpmH3wdK3Jje1eIwTOCR9T2D7aLEL8xbcmUPwebAzeOWnyqx
ybFqRZSQ4Cvh2bLpY0oEkUpOVjOB1vpa83ipEh01pZnnbxOcSb33QnRHiUmp
ysmrhqDMZMCqcUSJGO3MfMRZgnsbWdUZG1S4fuLuwWVbCXzK1/G3J6kgmtH6
uoQR8F/HjIZnqhBiI5pXehN0FBx3YN1UIVd3OJJnTSB93NEwYapGW391n+NL
KQ4tG3va66jGqAfrJLNDitldM5InAWokMR3kNE8KndaOVZ+hhrcou8KkSgr7
9Yc4O56pEfTP6aIV8VIk8Cx+7K/UgHf1XMPtQglGGc797Y0a9GlOlfnslWDf
Nn+qRaiBV/J5r+ogCTKplIDLKg0suE5SzewEin0etEXvnEOpzxbRgZQJtN+P
Ewg/1iJWvtP1E+/X8L5TNdDa8g5Bvb/G/T0ihm2t75zg2Tt49t0K7GkRY6G0
d1Wv/B2219Z7d18Uo/v40sNTjvOwvdbtZbNejLTwfL3dpXlMt0vWvF83hmpZ
2trc/Qs4GVxHr0v/E7rV/heCrRbRU8pu+dxuBDLbvqaItYvQLzHf/YYaxjPz
zP7EyEVc2BKt5LwYxnXFXaejBYtwq+R/d794GL4CB+63bxYRxmxcNqp/ifT9
ppIFgR57Qy1ce5RDiEm6aWb+So++qsK44KEh+EaFeNjO6fHTE1P2MHcIOu+c
HE8vA7iDhxprjw3huv7N8r11BrQWBgZEqQZRQF/wO9JqQE+9oG7N8CDS/2Lt
yOkzYPLLG7/78QcRI24vKHxrgEV8bP0XNYOwUnxohAGmvUUDzlcG8R86tEmD

       "]], LineBox[CompressedData["
1:eJwVT3kwnAcc/T6b9VEWSZASm6ZdYloxzjYM9vdLXJk4Ko5GSiRNS+NIUhmJ
CSnrGJk6olQJRWMjiGPQ6tjuiFSSSqQqfLuOZbGyuykmJdigsuhm3rx5f7x5
b957/+zF4GgtgiC4Gr5VvRm13N+IQHO7xvuvI2nY+vyvVZpN4Lv3xNEVXjQs
i8t1T9oQmENmz7Xb0aAMPGcx7UIgK3yds3cfDca9CZZp3gQOVz/a/4MRDUc8
Eg+ygwk8Mrhvt5BJQ2LHZeeuKAL5xdWFyZtDcMsmxT0inkDvMpuFX9eG4Bk/
zWsjmUDjEsorXDUEW2ZZ/uXZBEaVa0cFrgyBbdH1UJciAvUiVEKexo/UyY8c
rSJwxcgqZ1yTz0v//qsrjZr9FfbFvpp+4WpJgkkngVcqR0I6dtAwe748qeMh
gZ5fvDPJMqBhj7LqWsgggU6uVmOHzWjwieRnL0sJDOVys7gHaEgS1eUXzRE4
82ld07IzDbePNZXYr2r+212/G+BNA93TWvlMi8TNltoIOEED6dpRe8GQRJ6M
yxHE0WDfJmhmWZDoEWEsa0inoaC6p8vvYxIfPu0zE7TQ0GXS+2j+MIkNlWea
hb00zOc/7f8ukMSjS5fDN2U0HE0VSR9/TeJk2Kt/DM1EkLw8qohJIjEtTOX5
+BMR1MVKXzIzSFw8frq2IEwEjHCl2rOCROLscIl5qQi6ndcs/ugn0WuxcMDg
AzH82/TG8rSERKV0ztXEVwwWHMJ2S0li2N7X3ZIEMVzdqevhvk1inL7zjRSh
GJwXzE8JHLRQ4vdywuXUMDTWc6vaSrUwMyDls2jhCJSZ57BrzjBwcNiB7dQs
gVX5QH3gBQZasN479JNMAqEtexzVqQyU83MzTU3GYRfe9TlRxsAMyzwDl7Rx
yI/uv8gaYKBjZuixJ0ETwGvb9eCq2w50cHNV31BJ4ZzPzzHBpkzcrkji9OyW
Qa/h7KttDhMX0xmjTQdlYCWxT21xYGKH2q8zzVsGz+MfFOoEMPHWR+1OE1dk
EFmkFHRnMdH2kp/oyzEZBElt9GyWmOhNN1jHlc6A6yVBK6NfGz+cbbgzon4O
g9tuUYkSbRSz2q9Jd8ohpuC+/vQLbVQPqEL+PCCH4obeWCFJYWy89hsIksP8
lJiTeIjC+qY6P0mNHHgJ4fSUF4UxvHiXtd/kYLoxwfMPprDEeth9vU8Oniby
SevzFLKzY365vSSHSr+lsik+hf9xNsprQAGOkiQf/zYK/9b3z5YEK+BJzLrq
93sUkp03F1TRClBlbB//cYzCm98a5I7kKSDXMItgvKDw5J0+WWW1AvZXabd+
s0KhLlWk5duuAJ116i3QkznN5ncq4H9cCc4d
       "]], LineBox[CompressedData["
1:eJwVkH0w1Akcxt26ut9v7e5Pzskh59B5PaWcOU3n+11vpaUQ7uQltyctGZuS
MGYypT1vhVpLU4PkpDsvc9cV69xwR162Iy/tettN+P1KpoRBXcTtzTPPPPPM
PH985vlcKA46xtLR0eFr/X/6N3E5fjwC5x+ZsARKGmjvoma5KYFzcu+6ZZqG
9CHDOBs7Arv/PfueXqRB//vSrcWuBC7mNvjZbdBQPWfayfIiMH5zWvwgycDe
jPLkk4EEtp9JqHhtwMAgaWX1JIpAgrp4v8CEAVFJ9YAggUBzTsibNgsG1q3t
M+VpBDY9MHIp2s6A9Lc6J5sfCazdeaOba8eAPTprpFICPYa2lXs6MNDW+3se
q5JAGczuBkcGQsO/3nOygcBKozelHG1/OfPHjKaFwPyC4LRGewbOp0CJQEFg
Z0qWmcCWAeMP273lwwQqC+/FDVoz0FDks/QFQ+ANL3r2Wy2Pz2eKSukigT1x
k48YLa+61j+QpUPimj4uXDRk4NSegQ0xl8QMQ4chPpcBoju4XmNCYqSbVY3l
JgbKQkYiBLYkdlRWH3Zeo8FlOlxP/hWJwUF/J6Ro/4teF4qkASQGPC9+3KGm
YSXvmRErisQjIvsXmn4a8j+NfyA+QeJId9WqXwcNcpckS4GExKv7Hvf63qHB
4MQ59QctJCY2UIq0BBpq3rLyxD0kNtcHeuhE0OAukbhpVCTyNUU79AU0xN+8
JGtaILHy6F2HKRsa2oevB4ht2OjndalPrZ4GqTBkaXk3G3dmm1++opiG2Fe8
0gxko8GmzAFW0zSwdc9P5ISx0YJh+VpcmYYAJ1FiVR4bU2NP91Z7TsOTLJf8
0ddsbM29NXSobAreOfd2eTbp4YT9NjM//iT80yI5oejQw/tLne7WDpNQtg+p
wAE9LE6UmL8znAR+5N3QqFk9DKPFObdmnkJ29jUm1YyDf0YK2ezCp2A0cUy3
PpODAZ9wXky0ToBz/rq7sS8XM/n9M/1bNLArbi2mLpSLix4hiRdoNbj4vMv1
iOFi9E8PrYSNanDVWVElnOPi8bb57bcj1bA3+VXiX/e4WNGVLBPWjsP+CHVZ
vCUPa+xaXpocHoMDbmMdGzt4yC93qR6xHQOB0cis9BseRqvmuhTro3Cwf8i1
9Tsebnj1hfn/MgrBXg/7Pi7goVOOzGxw8yhEOzavt6zysP2aNPR91zAIySbr
IJLCI4rilq03h+GHZ/cOPDei0Fu01ihKH4bYil9lW3ZROB7Qk1T/5TAkGN5x
ihVRaEXLj3bLVJC4UB28eobCmPGDK7IkFYj7qtILL1DYsyx5ct1PBaeyKzqb
yyjMPTURuF9XBWfXSqIoJYXZU6aU3WklpI4WZ1VNUTjy/Pjl24eUkH7/6s9u
89o9WS4Jd1QC8fYjrShkOXLu2hsr4T9lo+Ew
       "]], LineBox[CompressedData["
1:eJwVj3881Hccxz1KdUJ97r7Mg0x+V7s6PGyEy/vtyDWT82g86NjyQFQPzDAk
1zSZsTQhs5GH/IpGWLlUQkIytTOf8yNdZe5YTUtz1rrQ7PF6vB7Px+vxeP7z
sgj/bN/BVVpaWh4r/Z/ubcI3LWsIHkgsNa6eodBZ6306XY+guk+ZX3eXAp7d
bSFkCM7Y6+q5NVHoyvS6wjYhaPvcKcOlhIJHgqfwoTlBRYrD2syTFLrDBA9q
txBUauSyV4kUBCKP2M95BBerh6yORlG4vQu1+B8Q7BG1+DwNoeC1HQrX8gm+
+sslnxtAodfE3XZIQDAvWMfJWkTBW2fXtdIPCVaxJDFtvhT6Xrn5RvkTvFTy
0Of+yhZOuz62DyJYIe2947viRw3T2exPCNbcuqzV9jGFk11xmkcRBKPtD0kM
xBQqG1kspyMEeZR3TxRO4daPlYZ58QTzHx02CI6h8CSbb6VMJsgVLK8zTaWw
nDRi7yYhODA69UduFgXT8Hj3gkyCL+3GviwqouAmWu/7NIeg8WpH4201FMT8
6v2YT1B750SGy1UKqdvco78vJqiTFbIsHaDQujrhq91VBN85U9jQtUCBzunm
l9UTbGlXX3HQl8Pfippz800EC4Spx8Zt5GDXNt52vp1gfH/y2VKxHPxqEvv+
7SZ4VCjeWJ4sh5gCfSq6S7D8mibvQqEc6mM8XizJCWpsNEtVMjlYWdTbiF8Q
zHa6XWIdOAKCDZ6OLQsE/Y6n5LqnjkDYm4fIWlz59550ipSNwDk5CZWy2Bg3
5Od9UzUCRrmpBRxLNq6rT9ffnzEKTimcisNb2eg7XZgYXDcKAZENjV08NpZs
aVINy0bhjPuT/jg3Nm42l4GN1RjozgvfDgSwMZSVVpszOAZvQ4xiMrPZ2HQw
Xtm64wHM7JDuVs+y8VlpUEmDngIsJbEHufNsxE0GtgauCggdtM4Kf83Gzsfj
bqnRCpAdKeyRreGg//tZW3ndCrh+Id6z0YyDxsV71pulPIJTFlyPKH8O5v1c
rL6oeAwOhhX8scscPN3uunzaZxJiIoNCN17n4N5Lg+XNByah9vKGdO8uDg6X
b9rekTQJJvskN64McnBCZapTVj4J2t+JXc+oOKjRpEWGvpyEEZbhTh8jBk95
3rnXW/A7HFvMcWxPYzDd1ij5UM8U3E+KKEo7weBM4UdLe8amwPw5f2HnNwwy
lkkd+rNT0KN4IW09y+C3ztw5T0YJep2Brk3NDM7/Jo6NCFPCp852pbFXGcxh
aRlGJSqhuYm1yO1gUIK/vrv3ayUEVty4WfcLgwNB/OP9Pymh/ISFR+U0g47d
zsovFpQw91pzPuw5g5knx/4pW6cCQQJdtVnNoDpWMFFnrIKiZ40RCg2Df4qK
qn7gqkB7cfVKGPSqNLtYy1PBf1qh3cI=
       "]], LineBox[CompressedData["
1:eJwVUw9Q03UcHQJDRdT0+/v9SkmQwAr5Kyhp4udjbpjilvEnkibOUExtoIak
YfJHnSS6GZ26BGQUWUBAhgeskDtAORiCf3AMGP8m+wKKijX+iIq07t27d+/u
3b27d/cWfx4XsnMaj8f7wML/dZVB6hY5nWD6kuXWLSIKp0NXyV+fQxB4Nrlf
Syh0N84faGUInmqJlGzfTcFH8Hj9OUeCmVuH89XxFFIr634LfYvgq4yEA8Kj
FO75q2fMcyc4cNKP2yansKTo8J7bPgTZVGnCy9MUDrmFNioCCF6XfTW8NIOC
NtvDQ7SGYBdds+vFOQqOLP+MvZDg1tGnwYdUFGIVPY8bggmOFj1VlfxIoZqv
EaeFELx1ObOjyOJJUkZJ0BaCcpnJN8mSjxnfO9dWStD/0d0I7/MUKuKE+2tj
CFpXDqgbLH0zBxfdTZERdPokmrdFQUEifbYM4wmaZx2wH0yjUNx254dX3xC8
Xxz4MjmVAu/jwpHKFIK//E6veiZSCGk4Hp6YRnDdhaia8QMU8tZGla1UEpyo
Xrlt0LLPmCaAe3aOYGRzeMJ0KYXMgodt8T8TXLhKBxMbKDxxub7Sr4BgmfHQ
5o5ACpiZffGfPwgqFuRn2ftSMKVvlsRWEbTKiy86wlBYYeN+zeMGwfBAfamW
TyHtiPWioUaCSTFp354YN4GnrKxnVzvBycMuQZ/pTZAgdozePmLJewVa+X5v
gvq60VqnFwS9fBqczh41wQK45dptxeAVX3Xsqb0mqPJO7Y+cw2Cw0Wn5DoEJ
7F4b3B3mzmALM7Le498+GDspEeb4MLjpXbkqrLsP+l/ddn64gkGF1d+yddo+
qHuk0SetYzB+3obi5Nw+kNenCwslDC68/WtEvagP+Mnei6cpGdTuMntqcu4D
fzihrcTMoA6V0vIVRhjbOVT6fIJBd4fqwSknI/R3blMKeSxOVamHNs4wQp32
wyDDLBZzG84EPzL0gvzygqv8JSxG1O81HkzpBX5UlXLrpyzuKFfZFmT1gG2T
7Xr7ayy6HdPNvNnfCbNkWdFdtSz2GWNuuGo6gTj4JZdoWRR8mW1XnN4JriKp
JrSNRQwovxTm2wmCpr+WZplZnKg5f9YqyQCpTXFzPd05lBS8V7HatQNOyfie
Uz4cung9uKmfaIcMh+wNdwI4/MguoDf/Vjv8JNKmHhRyWBLRVWtObIfqJtfR
a1IO/Zrf17jo24DX3N4uvsChvObkm1YqPUyP3TfmfIlD0767qjf262HubLv5
5jwOBctGvPds1IOz2H/ThT85vFgXnVI62QrQrKjqaeLwRFxFsymmFYJi3QxX
7nG4Y1QdWbm2FcSzK8ePGTjUFpq3Nzq2QpT4gc87DzgscJn8Qtmig5gnSaLn
wxx2tLBvC0p0ln+xe26OcVha/F2Xd7oObF5aW8Dh6px4/8o4HfwH7PbtOw==

       "]], LineBox[CompressedData["
1:eJwVjn1Q03Ucx8cmkEloI+K7309IUXkKWQQhncbnwxgIh02O8SBLugRNSTfg
PKku4UDlQZBBkWR5IKaAQ1hGzEqe0SuE3Onx29h4EBwbEs5dJGOoSOG973Wv
/1733piWGX+AzWKxtq/w0nnqiEtZqwiSkz1OmUINFMlGugVrCF69IZly2aIB
uXP22BtcglVnneYTV2ugWun4dJoQnNV3l3LnGKgR1br+/hbB3Vadu88YA5ct
we+WeRFcSEsX5gww0CwfFKVuJfjdmcrm8XYG2gLSDvODCR4+VsTFawx0qBeL
7bYTPFDx1bb8RgZuySouD4UTbAx21xdcZOAvZ6/e+miCS/FhCt9aBhhlx/jn
uwn2PhqMTK1hYEwkfhaTRDDVwz6Qc4EBo+XvN9enEuQXz99mX2LALM8PsqSv
/Ff7RAoVDMwHuMX1fEYwOKmp/trPDDxXtxz5Jnulz/G/HtjBgMe9feeFXxC0
GYQOR/sZEAy5DizkEeRu+UlarmXgU83txSuFBOM6Hy5IpxkoHc71/ugMwdjB
fhF7kQGlPjDptSqCYn5Ud+gaDdwbNZ3q/p7gsROJfqwNGiCTHxo2NRK01NbE
s0Qa2GGwe13bQpC9NaSOd1ADnxhVUNJGsEz0KquwQAONM+415l6CobG/dJMb
GgiZe5ysGiPo+OMdn65QLUieXCw6OEXwB6lZbJFoIdeaqOLNErTjfzm/Ok8L
t552cvNsBCPflvJ1f2hBzJbfieLycE9Oir1q3zBkuQRE6HbysNLa9F99mw6+
dTVkl4p4WODb7u/7QAe/ulXX7Ujk4XW3usy1znpYppdf1KXxMEJws8x8SA/l
m9W/ZeTyUNymkER7jkDTe7KA5608lHorwzZeGAVTspLn4UFhsULoImu4Dw17
XvTt3UzhA35IuWzoPhxK2XXkvB+FYZwl7sesCZiVzHaRbRT65xemrJJMwD+p
Xvtd4ii0rvX+c5PDJCyl1ypfOUGh9/J04F3VJLhkySOemChsTROz+hwNwGSN
mwPNFOqj3ucGrTdAdbZ/dda/FMolGQnydwxAjg7MPF6m8IObyT3sFAN45DjI
Z9xojI4/vWHiigH8jufpxmNoZDoWFLuEUxBeIpP2t9CoKGHdrcgwAtU6kSxv
o/G01zlB9XEjzI/GCRLaafRxV9sXVBihgR/kNtlPY3hRbwNHZQSnYVuPbYrG
U1/vb+5aNoKJlXG1c5bGh/Yc68w6E3T5jZw9OUejbanymc3TBOcSYvNjFmm0
Vg2oHwWbgLP0cjS6W/Z69oWZ4H/ST7Ym
       "]], LineBox[CompressedData["
1:eJwVjA001Xccxu8iq0aIjtjv3r9I4oiTl2o3fL9dIzPzkpeMIupiUzSjmetl
Zd3TSq6QuZn30Q3NWaNpheNtxWbecl1vdXF/3qY2d3aM3Wp2nvOcz3nO55xn
Z0TcUf4GFouF6/2fHpK9AUMbCd7eylsZOUZh10AxFGoSHHz5lpAdReHlv9qW
4XoErYqtud8kUJCaXdA3NyK4h9e0HPkFhTpv5atFY4LLcrFG1hUKlz8/NX/X
nKDwTSuHnbkUIiqeDCZZExxN/bPZ5iaFQz2uzc4OBP2npsIel1DQX7knUXck
GJ/WFrBaQeGF8Z7cbh5Bzwy7031VFB55iFOz3yNoJ2uSBUsolCZsiQ70IfjO
19VZles7uVhwlBwjmOzXqnx4i4Lf40XHqRMEjfbOaNyppGClPGEuOU1Q0STm
XyinoEF6dWNjCA5JQ1xdiyk8c0WVXTxBd5ZSoCam0Bj3/cxqEsG06pwLP+dQ
yBGb9LekE5Qo//604CqFmPbcB5eEBOsHPQ0zMii8+1y96v1rBNeKmGlRMgWO
wfls3TyConT9pUfnKKzgbPLwTYIfzhbr2UdS6Ps4iF9URrAqveC38WAK1Xld
3qckBHUvdoR0e1HIaOZyLeoIBuo431HnUdi/ja3d8JDgcIObVtpuCtqOWavJ
7QQdezO/+8WAwhz/9TR2E1zYMu2UsYlC4f3Jxl+HCR6svVTuMacAVnhVhEJJ
cFf61pTZMgWMXDH4oHqV4ARPk2snUsDd+ssHzrHYmB900WdHigL4m2I0VVps
dLPdIWzzV0B3nc09PQs29joeEhluUMCNV42bXcLYqGts9hPfZxo0zTtjb/DZ
+GLf683D3Gn40rt/cDaGjWWHO13MzKYhvnS+KDOJjdlm1yvCV6fAi2dkK73O
xrCT3SS/dAo0hILgjzrYeL86oibv90lI0nKuEVlwsKlyLck0TQ5/OHjoTNlw
0FXNWicxSg6RoYGJ9vs5uLt1sbbPRw7+dbEwwuPggkq/X2Iqh32+JYMmxzlo
vyTmP819Bgt5LFVDFgel7YZ2VbZPIYS0e47/xcFKX9OVxswxWDi7pGxY46BG
/a0nx0+OQVILIxa9waC3RY3KwX4M8iNSKE+bwdTOgdqvxkdhQOKQdtuSwavf
ppS02IyCh4Ok7nw4g+o9P2gWymUwIpQG+EQzWH5mTq/+RxlEy9RVFnEMLm+X
dm0UyUAoCHefSFn/b/gk0c9ZBm2tRpMuBQw6OcliCkqGget1bZtuL4PufmcT
2s9IoavkQePCEINvW0zURh6RQtDSfGjHOIMjAVFrh02kkJjnVvPZAoOCI6uB
pbIhUJ9J8PVdYrAnO9TEtH4Icg5UrFj+w2DN8zbBhGjdq9TWw+DBnoLt+YIh
+A9XDeC2
       "]], LineBox[CompressedData["
1:eJwVkH1Q03Ucx5FSnPHYgagBfb8BMhAjQNDuhM8HD4KpYCAYCEZOYXYaT57j
QabTCxVE4qFwJASReDAe5mXiEPQUFg/Gg9FvD4EcYxvMDCZcsiATW/e+973v
fa+/3m/KTY9JMTczMwsx+f+Mn3tNn5sTPHSiXLKXIwey3nExcQ3BwUcpyee9
5KAPfr+/n0VwsmurKs5GDm28sGsBVgQPL23Zdv1vBvilSWn1tgQrVm3o3KNl
ILjjZIiNPcGUqx6qLaMMrNYU2ec7ElzndtzWXcbA4Lp6/dNNBB0zTy9v6GDg
a/+Ou3EuBLPnTn3w7CYDSUmPr3RTgrnG0Oj8ZgZcC/Sf+bgT3Fnja7jVyMCz
1hX/ajZBmbDrIt/Uf1Q4WLC8Cc6ndn4pFjOQ99p77JQPwWd7O7y2SxgIYYe2
avwIXpBVVr7ZzsDa6EThvkCCLoJjt1/eZ+Bxbtb+rg8JWhjKgtY8YkBUX7jZ
M4jgXY9NjdZKBpJ/qVv+Bgnum9rhZTbDwOYXdwbNQwlm/LFR0mtkwOA0Upse
TvBPH/mvUSw5tIfNZD3ZTVDbWqUscJaDIO1VGCeK4IKAJU7wl4Plgy2z78UR
XBPokVl+RA6aquj+s/EEOYPhbfECOdw5mX39SSLBYf1h9y9EcuB69CRVcgmG
RvCl4aMmXnJwiJVBMKlg6EbUfgUUHxM2pZ4kqDrEjbDmK4C760ZBD59gtYuF
/naVAiyNC0ECAcHyPI6+TGvihwrb5osIbnVKGOYKlbBju6QosoRgxMPPj4c1
KcHKTp4qLiPo68aTdI8qQSoj7x4VESTVruUnPFRg5S39Stlg+j9DtL5JoQLp
PzMZ9x8QfKoU1S18NAYljGXkOzKCmS537m3jj8GRNj/PnD7T33syqlsaxsCa
e2bKd5igVfe1g+zV43BkwCGmYZxgPMM4/P7zOFiLQv2LjQR5zrWeut0TkBJQ
v5jgTTGa9syuZquhqMTBRuBDUZezmOYbrIY2/SV2nR9F212c1KhYNRir0hNn
dlDc6PL6xkGhGi6t7HyYFUZx7bGWIIlSDeI+ZfHlTymyqGHBcH4KDAlWbvdK
KV5xaB0aGNDA27eEQeoKij3b7c/mTGgg0PLFgTeuUhxWBBptFjRw9v5YIaeG
onSkYnLJUQu2ro3P5U0U+77PFN88qgW/2V2dhm6KGidQty5r4UBYO2PXS7Hp
QUOs5i0d5H3nadg2QNG5JXhhxVkHPR/b0tMjFGnpJ+L5EB3E3p64YPGEolFp
Xth+SQc51tF1XpMUfwsf/8H7Wx3U8GQdkRqK7kI/m8vNOpjZ2Dxb8ZTivFnu
v2bDOsg+kxNDFiny1tYmj9pNA3s23/LiEsWAsvUNf7lOgyrhXO/cS9M+6U/n
lgOmwXxllUkUX8XwfOZxGv4DFLHjlQ==
       "]], LineBox[CompressedData["
1:eJwVT30wFGgc3tQVMq27M0eOOu97OYQxsizn+v2a5mozdOrcsbLuVr6uu9Jl
omiNEV0hN+GyPvKx6VicWGoikvKVytka1lfrWO8wVoM9deiY25tnnnnm+ef5
sAmLORphwOFwQM//lc9L97pvQLBt5n71TiGDGVnWks1mgrFWnguXoxlITXNq
LxsRVL/IyrKLYyBIyoueNyHo5ZJewU1hsKwtJN+aEnQ5veXJ4UwGlcLSsZYP
CfZYdOre5DII6i6/Ts0Jqrq3FZoVMTDkyf3TLQkGvcaGpjIGTbI/jBetCUY0
2db8fYvBCVNFR6ANwarzexL6KxlYJt1NevApwT+l0nxRFYNebTN/lx3B+CjP
Dyr1PkHYpsvYTTD3mSSxRc7Aoftxjc6ZYJ1uE6eigsGIW0+k0JXgmTW+OLac
Qbrs2ScPefr83o5Vx1IGn5sqR2w99X+a5jrVBQzmJAO5V70Jev/wNCRHv79I
O3x4CQjmiGLXAq4y8BWqDY/tJ7gY/jbTKY3Bv12Tj9oPENx28+sC2wsMatym
L9j5EKzl+okPnWEQItO6/+pH0Ie/63lxFINWyVJVSABB0U/K1o3+DE5pl8Mf
BxK84mtVTPcz2CFc2+FwjGD2itn4dR6DJLfNOf+ICbKUMu/fLBg4y4z9QiMI
LnNyc5yNGKi53C2d0QRn9np0eKxMAWjNE7NjCBqVGqU3qKaAI7M/7iQh2Li0
T7SSNQUpXL89x6UEsxLkwd9pNeAqOfL6SSFBP031ZPaABiZnv6lwKSEoyDvi
+0ubBvZ3hX68fougJCwjrD1bA5skpzfmNxA89GC3cthdA2mzOS/7+gh2BQVe
4Z2bhFQV632n1Pc3S77MFOt9h8cjuwGCvK2XEl/6TEJK8WhdyijB3h9vz3ta
T0LSUZrlPkPw0nyJYXb7BMQ1KwTFGyiqnmtuFBlNQHS6svWkG0Wh2Id/03sc
ouLpnQIPilRaZ/K+6ThEhp+t6faiePegcUCJRg3he7cX2uyjeHL1jbFNhhrE
uu/PDfhRXBlPTFOOvoLg4AXXL6Io5skflmWkjoGvA7fSpIDi7LLAau3tMAh7
Yirtb1CUZoTQ+P5hiIzsrzxQSvHi2WnRzqphSJZdkyf/TpHXotSuioah0dKs
eklB0dGkwHGiewistm6vHXtKkdWdYnHlKrCXn69d6aOodjIcGktWgfvBkdqP
XlDstp6t+1mkAv+Lhbf9hyjeE5UsfGaugtR31vUdUxQLBa+wM3MQruUn1U9M
U9RZtJiUnRiEYo/x+vVZimmJXwmqBYNwL7ZUwV/U92W03fF5bxDmtKSxZo3i
ejxVKJIHwGB9gx4U60L/qnGRDMB/wSbj2g==
       "]], LineBox[CompressedData["
1:eJwVjn001Xccx+8koZjctjzNw/b9IdWKg1OePp88xQlT7tQ4NoxSVkOeMg1L
co9lmIe5wzxk5umI497r4bqNY4VVxO93PYThXnY87nJoqWh2Xud9Xuf938so
+OtzoQosFgt39r+VTGXNc7sIav+grf/sFAPsh878XXsIJtsEBRUZM2AYUsk3
VCXo6s9b+1ydgaMKSgJ7NYJfiszE2y9psCm9KPDTIBgfkHkzeI6G0w6PBHFs
gr3mhxsjJTRwxk2Eue8THLDj8A700hCUkC5s1CboXplgZSmm4ZrWvPCpHkGt
zzIs2/g0fCNwb1k0IGizEreZ1UBDOqemRfkjgg/j57MqamnIW1NtpYwJ7lfX
q5+opqE8K7zV8RDBpM7p0sM1NDR8/Lj1iyMEPRb/9Euoo0H0+Ehb4jGC6dk3
AoX3aei9cret0IJg2XOVvgEBDRLllTaBFUHH2EZ7/k6P9Fev9qETBPkTkYs+
PTTInRva5bY7/Zmr6UVDNGzNvCtSA4Js3WjPpCkaVFMiRGaOBAuPry4vrdBw
0OCZ6LQLQd8q90LJNg2kw7wjxI3ge7WF60c1GDD3z+lIOUPQxLTq4OyHDDhs
rnWUeBHcWxTOXbFm4IJVs3iEQ3B34Mb33cEMhA4deLBxnmA+/GsTn8BAVGTM
A01/ghXP/7ns8SMDd+utf/cI2vlUcaNpDwPGgaZB9SEE1dLNfG/PMSDW1FFQ
DyNIn/xpnqUkAXncllP/NYKv1U2kRm4S4Dh2PzqbSND87YSpeFgCy+v8sKYk
glvV5UpdWxJIq6pSYd8i2Hm9NINLhqFlX8YZmktQh2Omah89DHrDZ/t9Cwgu
zIzl2+iOAJ/rFCHkEVTIvbQQ4DoCXnZW+7VKCHKTE9RZUSOQXKblM3qP4NOF
ycGKvhGQhf8l8W8iGJrBya5LHoU61tXJwCcEjdUH+YWvxqDPp+JN9EkKD7no
PGlInYKm2zNjP9tReP64OdPMmwKe0Ki1CyhkxXiT6vtTcEW3NEbDlcK8t0tj
AeNToCItWqk9R2Hn7hHuksU0uEXlT82EU9jFs3zhMz4Nf2Rxu71LKDTyHAqr
1ZdCXVdPeVwZhcI6fuZeCynkru9JKblH4cTf38p9XKQQciHNfqmGQn39X44V
h0tB0fCW4I6QwqoJ4VcaQik4NiT+Jh6gsPITkXaMuwzMptvTZocoVJL3x37q
LwNN9uuQfcMUGtDOgx9clcFM7A0jvwkKS3tSii9mySDFIZa3MU9hhannpVFG
BmER/Hi9ZQp1ItJyXs3JwLt83ddJTuF3ETxFxZcyMFS6zs5+QaFjnp68X3sW
lE80rQo3KbQuKEjNMZsF+eXV/sk3FN5M3cyzt50Fhe13dqDQVSGDb3tqFv4D
U0zkjA==
       "]], LineBox[CompressedData["
1:eJwVUXlM03ccpVQJQWEuHMaAHWTs+0XmcAjIoePzmSMcigIqpBMyDkGxMEFG
OOU+BOvAweg8Ni/cANHVEWECogUnQxzDgS01gKPs94UiBAZya2FdXl5eXvL+
eC/PKiLuQJSujo7OLi3/V1lX3NmtfIIWa+XHC4MZOJrguu/0CH6oGT/ZJmJQ
fXjDGZ4BwdqQx84OKQwsrg3pxxoSFMuadF7lMSgdvXNasYGgGoIyFr5moGuX
o/epCcEiqdufMRIGSYkBBbUbCTZfGy4K+oHBqyarNWbmBN1znO+3X2fwBW8m
N1tAMOsd3bnOnxj0eLXxxq0IJpQ77T5Zw8CzpCw78AOCN9Rmrr/fZND0PGL1
oQ1BQTUuvdD6j8wdMm23EnQqLPi4QZu/Gs7XfLuNYIpBnSC6ioFJdW/66naC
prftLrypZFA0Wbl8fAfBi0fzjE5dYfDWMTH1uStBn7qW4tkLDOLTPRbdPyHY
utxYH1fOgGs1Sa5BgsfCA4YWxAyE+mzO2IOgsiNWI9Huf7q/PjHTi6Axf6Um
KI2Be0XBa/UegqK3f9thPIO6/sCEg/sJTtRfzguJYnAxej7OJpDgudrIWb99
DIyk7ZNlQoL6lg+ynZFB7pzkS00wQZtmcVvCdgaiXOeYngiCY/oVu3VNGbh+
n3L0VDzBdizc4t3Lwa1hbzbyFcHVp6UeZa0cWG7ZFBmQTHBb76b8KCkH+g2N
4SSTIL8odK6lmANl93LIMzHBQzszCp64cpDEzzhoXUVwxTXvboD4H6gT5eAf
gwRjG7wyX68fBseIsA6iImhgf860fVYFDZ+Dfw6n/XOk8GbpgAoavTWhO8YJ
LqR6Co1uqUBGUrOuLhLcJyyx5/aooGs4/kGiMUVpheLfjcVDoD4ctmuzD8XN
oz2SFYuXIDoAvyX7UrTON5cPTg7ChI/At8eP4u2l9/JHZYMw5TIQfDqIotVE
VEFG1CDMmwnTp49QbBWuGj65MwD8Xr+mx5kU5+Lth4/594NgL7icuEvxl7Qi
27MNSphsjdGU/EpRbGzWfeQbJTx0Od8mbaLY6KbqFMUqIYxM+07LKJ73VHF6
7yvhOq8yPLGLYoDEkksu64OElG5S8Yzi1FpO0nmiDz6bejNe30vxxk7eZd+9
fcANHEpaeEGx6pE66+WaPqD39MRpI9p+ST7rXdIUsGjn4H9pjKIqsnaML1RA
x4+hpvcnKP5cN31pxUkBovJ7VzQzFGVZ81bZM3JwM2CRgnmK9v0tj/T+ksO6
nHdtYYliWaBE0SyVg+4KTwuKhjbW7tEZcvgPbyPJuQ==
       "]], LineBox[CompressedData["
1:eJwVUQs01HkYnSG7QxOTsixSWW2//6IoO4qO79MkjzXaEMumNtOORxapNrZJ
pil5hK2w7GkX1bKSSqvMUpTtoXRY+f+HGI8xM5WIrdNraO1O5zvf+c495557
7nfv4uik4G8NWCyWj37fX4m2OK3CgKBCLCg1CGJAuPkvr1Yjgh53tsYluTJg
1z1pqOYQHMx+VKi1ZGDC3/auIZfgmsChkAA2A83X/fIdzAh23Rmqkz2jocB9
T4iPOcEofuWRVCUN35yvsBJbECzgaHfzOmhwWdIxkGlF8MlOr76VrTSwTk6d
qrIhGBqR2N0up6HLfGlsmx3BMf8K19Y6Gk5lhziPLiYYwHmzh11LQwor44Xx
EoIJkuX3d5+lQbD3XMNnhGDJ2Qwjjh7Pn+iVfOFIULS/8ERVDQ2a7UZrE5YR
vOlaK8MLNFzud/0wz5XgXv5k2vV6GjKDt9yvdSN4KrrznMVVGsLu5hzrcCfY
EnNmeNktGpZiQ9ikB8E5eyJF0500vL2ituF5EWya8eXs0P/X5sxTuXgTtKy1
d0h8SkPpmTWVG9cRnN43L/uVjoZ4m7gdKb4EbT8ePfjChAGP40UuJwIIlpXE
dIctYMDEuPXVH0KCvF/rz8/X591/YKKR/pLgRbuhBrv1DEi+8/X5KJzghGXG
a/UuBgI1u0zcIwnO7e5LzzzKwIKvyzvDowiGbCijBZX6Pvx0EaUiPV/C+1Ol
ZCC/ZcnCRjFBtmfjiXM6BrbygzV9cQSFMkGH2FIBLIeaRNtkgn93vqyWblKA
4L/NsjIJweHee/zAfgWU51iPGmYQ7M8vkB9l98A7i96gWBnBbSuOVB0jPXDF
KcTaNYdgvPL++I3UHiCR/nWtPxFc696V1ryoF7iXPx/SXiJYmGT/0C3rIdDx
pp5OowSXP6ojATlKcHndXv7juN7faukzUZMS8qTZH7yaJOhn9sTh8LgS1pfM
enDttb6PdTe5D4IGQH5rKnbDLAqtp5wm/eYNwslFj4tTFlLYtt9kvKR0CLYr
Wl7IN1EYodvEa/FVAU91r0j9FYUGpy9uWx2lgqYxZpXpZgozZ30qKUtRgTl7
PF0UTWFOqk7j/IsKWhytZpsm6fV/3+0Z+FwF1tLkT0RZFJJqndfWohG4nbvv
dl4uhYdlA6IfqkdgZ3FmnDxfjwsbHdKvjUBbzckLc4oo9Osy4oJ2BL5XtHnK
Kyg87q8bPr1SDV2Oi0PnNFEoi5AJxtrVIOE7vXFvpjDZ7NiKI4NqIN7uP0ff
oJAjkfeaPFdDephwuOEOheEOnuvvWmjASZqWEE1TeLXRsN1+iwZ6cw+Z5fVQ
uCqrKf9dkgZkxQWXGvooLK8stGuWaqCv5re3XBWFQu2B62/PaCBL0XWo4RmF
Y7lppsKnGnBTKZeO/EOh7dQ1Z/G0BobGHt/jvqRwbtjG+BiuFvjsGV70FIXi
yEUp9su0oJptXH/0Xwp9RkIjlV5aYM+8HwoFUfYTPt5a+B/ADgGl
       "]], LineBox[CompressedData["
1:eJwVkn8s3HcYx0+lQ0dr1XaoltstxedjhtX5MfM8ZIapKUJVVnXNbH6ftuKG
TtfdHFLMnfj9ozUV1tlKylANnbJVp0PUnQibq/u4Y3R0hgjbvsuTJ0/eeZ4/
nlfy4l8Qh8Xt4fF4wPX/051vva3WJxgeMffuXAyDeUrqjA0IviPzT+hMZlAs
dEW3fQSx3PsvvUwGnj44LzIh+GtmW+WElAELCpIVmhK89sqzBrciBiWRkfZd
ZgTvBD5Z9ixj4CUSjaiPENzRv7C6WMNAm5QsNrYk6Nj4Xf/pBgaKDMlBt2ME
P3yxaJzdxMD72hedIhuCQ8J0h/QWBptetaIrAoI2oU7f4m0GbVudJhUnCB7o
/OryDpcTO0Z72u0JtozrPNu5LEhbjBtxIPixwWpC/DcMZqj+Qe2b3L3LXmva
zKBca9Wn9xZBPYXYac8tBiGNwkQrIcGZynzHjRsMDM+fPuLmQTCPr4w7wP07
YJk4EOpFMLD0kDqC48lWSlOTgWCryDlpvJjBSUWdZZ4vt08WygvyGDwP7vqp
wY/gxdsnbuVeZdBsNH7pfgDB9oqReyMZDGKHlo6rggj6/px1Ny6FwYTXcYlx
GEEYNuxojmJQuOUmsI0gOCXwTTkXzOC9jtBRnyiCpY3nUnN8GHTTXFtJDEEP
a3rdwo5BveWySp1IcNOzzyj4Tw2cUe79cieF4HJxpPvm7xowVVg7vXqR43M6
3Csc04DUKDz/lITgPV1jf94dDcRv9bh3SQlWr9Ub6hI0wO+Y0IzLCJbJbR06
zmhgWrxSslxAcPdRqZ3QTwPBWptFfgnnR8u4IsFaAy7KvKrCWoJVpCl2cWwe
du9GbIs6CZ73exE1QeZBIV7rNdZyvpiFGLg8VoMKag2TlghGy9WJT9vVYGXq
HzG8wvmRepZeqlJDc1vt89x1gp2N4d1N8Wq4v+bP/1ePYpXupWozAzUsXK6X
rVlRnIg0dj3sNweenwaFKsMoVnv7BAxUzMLVgI26k5EUbR48Lv8jYRYGzRuW
FGcp/p3K2+/rNQshPRvSkFiKZabD0ZnqGfhou+GHRykU59/Q1QocZ6D4ytbR
3nyKMZMeNTNj0/Ds86aFG30US/0Lioj3FGSM1aUN/kgxdKOxIs1iCvbZlG/r
BikKinTZC+sqcOmX7Xf5heKKq2RM1KoC6e4nwkEVRclNwfHyYyowD459oJum
GJu0nhO9rYTW2qj3TX6jaMeX53ygUsLTtwNjIjUU8w/lmg/JlfB6FpHpVjme
6Fz5kqESuodfMzVZp3h9Lm3UXjsJpyyOVjtvUhQ5P+RVDk1CevfL32ftUvSu
kT/hSSfh5j96XFH82i/sofizSfgPfS/TVg==
       "]], LineBox[CompressedData["
1:eJwVjn001Xccx106bELi1k47Tod5rL7f66lZIp8PYosWkXG0Up4T15GcHXqg
5tkOtaWUyxjFJA5GyFTuhDZi+/0uibt7uddNHjuZx8nu/nif93mf1/uPl1Fw
rE+YqoqKiosy/7fA/9+nQjWCPuvhDT6uLFhVLHi+Vie46cCqxa/mLHQuTrNa
mgRnm+0P8bawEOguD7LWJljZuLw/Z4WB2fzRST9dglckFqstEwxclbPxSfoE
pcOnjpaKGNj+ad968XaCh5Zu/GXRw0BV6rMM4Q6CzHcqon3tDDgx7VtfGxCc
vuQU1drIwJ/GDwu1DAly4/ICbtUyEB5fa2ptTJDyD3/cep+B1Y6KWj8zgibn
UxntKgZy9Ursk3Yp+Quhz2Xl/iS4QFhMCNYPqqkuVzPQVHftS6Elwbf/PJ2K
qGPAg5M1qLAh+OCuY92jhwyIva+c1rIjGBvJpksfM3CuJHHKyp7gQvxNy26l
r8Z8XIKfI0Ezg1fLJ1kGBBC1kQgEm0d2NOWPMWCVF5xV7ELQf6Ov7eu3DPwm
DtQXuhEcfJcuKeewEMDzLVJ8QfCgh0ZskD4L05c8zbUOEwyOzyeXzVhI6XWt
s/JS+p8M9H63n4XK6L2diX4EE6Ka+u9HsODYRryKAwhGG3Efscks9G82fdlx
nGBMeIuh8W0WVqq2zWwOVvIicc9KHwsek4vcYj7B7JrhzlB3EYj3zRV3xBHU
2Zq9mhAugnOZCgvFeYL3+NybX2WI4I75kKPVBYLODxr0gn8XwVRYS2hHBkFe
qyKk6fggaD13ydudQ5BwT6mnpQ4C4f3R8n0uQcf7dtdWHwxC9KJYJySfoHDg
A5+HqkMwnb6pRa2M4LFv4+x+qFfuCi9tt3aCuXk64fmmwzA7KW/sWiA44eGj
ctZmFHSOxEoslwmuZE6UdYeMAq9+WbNgjeCSUP2Ncf4o8JM2n4pUpfjYRfB3
99IozGpaa36oS5E/vbMys00Mc3sunvTYQzFgLmdc3UgC8zF6Gr2nKV43sLXC
21IIOjrJXwulOOLEqKXVSKFv7xPRrkiKRu7ikF+EUqhei7mXzqe4xYHLDMxI
ITKrxw0vUMwxSEjgOI+BpDwlteEGxYi0UAft8THwyvSflt6i+E3hvKtscQza
z/KO6RZS5HIMj5RpjoPAZsQ4ppSiAEo+emk9DgFPPhOa1VD07HZqNkoehxev
Zjl3uih6Zf0ctnObDJwed57pfk4xSBzSGGsug+qfBAOLvRSvjqmnVtrLIPuM
R6kvo/ybQHX/CRm4L91FbSlFTWFB51q5DBqHL1Y6yCjGRLWUZjXJwKTdVzdK
QXF30QubjS4ZqKZxJM9mKC4PCX8sfSODdr0TySmrFG2rbVU7eXKgi7aKmnWK
cuvM0esgh8AgznvOe4qR2w54f+4sh/8AXqb13w==
       "]], LineBox[CompressedData["
1:eJwVkmlQ1HUcxonD5bJEaN0QSEJCQX9/CFjLwO+3QA4lvFiExlSOXWm4BVFo
YSbuQY5wkcMAOSRgFbxmlDsInB0SDXVhFTmWZX8mGCBXSBxFL555XjwvPs8z
85j6hx/lq6qoqOC6/ned1tF7OuoE26Cxq/wUhbiyBpO9LIJTbq3dkaEUxpNy
UoO0CZrUC3j3Yin4nBFM5W8keC5lj1t8MgXJAUfvB5sInuXY6UuzKHCJQduc
PsGLUYebJZcpVOm9Mf9kC8ESdudgYDEFg4WOrMOGBFl5jvX3yykkPS9cSDAm
uDyjo95TRWG2Ofy7um0EFZe2HquroeB31eXBSzOCRqcm7grEFHoTjXdrWxD8
dOYkVb1OAQTzeZ9bEvQOzziUuZ7Xuz9cEewm+GOP14aNtRSshm+FplgTlHbk
3Sn5hULN2fzhSluCBdesHb6upGDOEh76jUswveuxs9pVChU/+7XLvyCYtBiw
c7yIwsfWrjb/OhDcqnBRXxFRKO7aVWGMBKMP2t50Wt/L8d2s7+BE8I9FxweS
FAqXJxeTvnUhGHi+8VpOPIXNiUPzF9wJHg7VjayIppDN7uQXeBAsr4s1YAVT
SIdsV+lRgqfLPGLkPAoa0qiGWR7B4Mbef/wOUEgM8t2p50uQKEao5z4Kwtzt
Op6nCN45s8xL3E5hyVxbGOJP0FlzgCNlU4hpmv4rg09waa21vVqTQsRY02NJ
8Dq/Zs1rfEIJAfZHLn11gWBVz09NJ8RKkHdz1U7/QHBDWz3LpUgJJ04aRSck
EOTfeh3Yn6YE77Q/ec3JBFu2mdqtBCjhwIv4j+xzCWaUDIV0cZQgCQ3IOJZH
cPQJ+9whDSU4q7ovRxYQ7Jf7cktnxmCflcFQfQnB1eEtJqLuMbCJF5ftEK//
JZtVY3l+DDimMgujToIG0s4u14cKeBVkzVVbWO9zu+y1IX8UpvWqXfnvCEbJ
BJ6FHqPwrsnYV7JMUG6fM8e2GwWtjTrCi6oMOq1+aWSsNgq7btMO/U0MhqVW
scLK5RC1dOWb7VYM7r0yFaLbPgIqGRr8/X4Myi3ezyiUDoKWrTCmOpDBp8Wa
q7zqQdg8OJumFcTg9wtS6hQ3CGZELn4UxmBgvkPQ3W2D4PK06S1PyGAsOZkz
Hf4SsgwjhIICBq0+0Du4hzMAhtcHRGmPGGxIcpNU5crg7LNSxc1eBltEY08q
Q2XQvexv8/wZgxHpPR8+dZfBBY83j3cMMBhQX2vyq6oMZJPLWr+/YtA9zqfs
RUw/EHa7z+w4g7UT5dPHvfohdV9yteEkg76ZZF7js37g5ujuD55j8IZFZsvb
yT7Ivt8rEv3NoNmRco/dPX1AR/IUzUsMdmCpZZG4Dy5Wla29t8Zg643jHRHx
ffAfrMrgJg==
       "]], LineBox[CompressedData["
1:eJwVUntU0wUUnmMkikcQEwXGeBxZmhMvCR0QOvdKijQ0aQiilkwspmE47DQf
Y5QxDgwGIeL7oDYjkAPIEQRJUaoTD3WQ+vvNMR7GNgrJ5KEGJlK//rjnO985
9373O9+9fsl7ZZ/weTwecfU/qqqUitMzgISR47kF0SwaWu4VBjoAfe8afyJG
wmInE9zwkwDo1p4dHwnns/jP0PG+hNeALvjHqu1TDIpfTQr+nAnUuvlcqu4R
g7J52yRfzgLSh+zOGDMzmBnQHDffGcg780m7w20GL4b5qMvnAG1+P25lxU0G
mQ2HDeFzgQZq9NvbGhjkJds6ulyAtPGaCmktgxLV2rGd8zgeSYuFVQwm5pUv
mnQDivvlXIm4kkHt2Vmkfx3ozvHGlHiO115OVfi6A2U1tlSVcP29rcbC+oVA
I0ZHj7ucnlPPioZoD6B9HdOTE9y+4JEjfb2eQAmnimHiBoNyh2eCdCHQvU5N
SHM7g/qFCRJHEdDMOX2zwxgGry67GnfKB+j3JZaIrQMM2tFTvdwPyI+n7nUd
ZdB1U4bhR38g6cMi9QYei4oMGnsUAHRUdj/VO4DF4iLDosw3gELHr60uCWPx
xncCclsK5Hl0rUfiRhbdje2FqyRAS3wCq4ozWYwceLOhcznQe10j20dPsJj2
XN+XvAIIZpe93HWZxVbvDyT5bwHx5ZvFmmEWx4Pq4nyCgWQH5jbynUwoilqg
rgvh/PMPBe0Xm/CLtO6OnlCgJCqoFqSYcPHNHQoJAlnzc55ffGLCLPk+gzEG
yKKrqOwSmfHZtPB01gYur6GI5EKpGVNK246EbQRyO1lT0Kkyo9QiPFwmA9q/
ewtd+dWMbpvakjRbgE6GL2hJ1HXj+XVC7+UKoOZ7+4MuOPVgc2DrCf3XQCX0
qrBO1I+BRuU3kVqglaEGUUBsP55P9cqZzAbyN4k+zT3cj9oKpepjHVDRJr8D
XvZ+XO/vFR9RxOWlkUvCKx6iZYHS7XEp0B9786OVx37DiSmPgpgmoIxD6Xfy
nKw4+jRG9+IH7l7HLLHZIisODWuyy68DOXa/+DYl2IoW84DGoQUoxE/+oDfJ
ijfqL6ZdawXKVv2dVXzFito9YbHLGO7/GyujBB/aULMzdX03C7Tmya4VW5Q2
VG0tjc55AFR2MHe4WGtDRfSM1TYLkFnsW11fZUPp4o6gMwNA1S6NZ2tf2tC1
N3G+8wg3X39wu67EjrPu57k0jQJtc5AOLC23I//WdWfFOJDy9l/vXmqy49NG
X8HPz4G8NoZ27+q34+MaGS99Auizr86IS0ftaC/TToleAA2ufFvXwB9E09Gh
Z4emgD53yTeeFA9iV57n2JJpIEOU+90doYMoX1V9ifcv0LoE33fWrB7E/wAO
T9PY
       "]], LineBox[CompressedData["
1:eJxlkX00FXYcxl2EJS+JmlbpJipZ7tfbRtn3y2i6DMk6xW5Ju4TU1STr5OWo
KBNHY26b66WQHGsWdZZ2IqG8W+WOe6/3+2teO+2sIsJuf++P5zzn88/nPOc8
3JDj/kJ1NTU1V1Xed11cwtg5DtBAvSRxKpDh3eOVzFYDSGt7V+NCOMNbocND
g5pAWX98+cb/FMNygXF/hhaQU4Fe6mwyw2sBO2U7dIAeB50PWXKJYZ5XnHT8
A6BFTZvJ5ByGOW7lT8S6QGd3j2sm5zHMcFJ07NQDIpGTwfKrDFN4+q2v9IGq
ugL/dSllmLiJHl01BMqcJ/OVNxjGrTvx0M8I6Oj18PzScoYik+LahRVAcRPZ
r+dUHL5Meq/CBOhEn8Bng4pDNHR+D1wFxPO/HWpRxjBo1qlaxxTozhCKDUsY
BvwTWXlnNZDYQCx/UcjQe1RS8c0aoPrTJ1tbfmboMdBZZrQOyGfu7vWbqv2f
STkldWZA9xOE+4ozGDq22xUd4wLpfxctup3C0KZBKFljrvLdzOZNxDPcfC/3
SstGoIdmLy/6xDB8HC2qDrIEWoh/YloUwfDI5l2dk5uA+NWfDvODGd7ImdU0
2ArkuD8K7u9iyPd+alZoDZQWdRuzXRiOq1c4wzag7ZVFYhmPoZVIINoDQG7l
Y6s7TRi2WDp+r7QFkjxt8bygzTCiT7/0pD3Qvs+t2h/NKLGcXyfP/QRo7xYj
jRe9StxqYf6FwgVo/4PG+KBcJbbJ5w5FIZAiMnCy7bwSj15+dmaBgNiSj4zH
vlVixeL5W+vdgRy8GkzBV4nWstG1Qj5QeULspFBdidsyb76a2guUHeYntT8w
gh0eqQaJ+4Amuc1Vf3uO4LF3B60MA4FmvZIaY+1G8Nfw5cG2AtV+uVuJrc4I
8txjWmMPA+naqOkIKofR9q3T1cXjQDVTPc7c+SF0ONzou/wiUExo5O78y4O4
pvi5c0Ma0DUu18P29CCqM23LU+lA+LFgy5+HBrEjlP9OkQkU1vs8zA4GMTSi
s6zsR6Dh4KW+bkUDKI7u5VAxUPpBY06yRT/OJk5VHasFuvKbd5arrxwH6/QL
uA+Aktr4c6nmcmzi8NKe1QOVDE8JNWZk+MPZE8HOTUClAf0ZPxXJ0Dp1eplW
O1D/Jr1V/tO9KMjghEpkQHvS5+NX/NKD7p0bdvspgNa+bHrbeK4HrQzdd2j0
A1UoVn5V+XUPvslKMQofAmpeKm+21uvBjBzdWvtRIIsk464G0V9Yl2fyYdtr
IGmf6/ARNyn6SPq4IdNAvknBWtrrpSiXlGydmQHqOVNl3T3fjW/yHXDjOyDR
aJIJp6YbzxXMe9bMv/83quCAuBuNChv9/RZVvrFLNROx/+f/AFh/5lk=
       "]], LineBox[CompressedData["
1:eJwVk30w1AkYxzcXaumSS+doERncpa7HuNsJPY/rkmPaoc1dr7qKkt7ctTl5
ObRSZ5ISR+7snpdd2i2Z2JN1mkbRC8rlt9aGll0rXZyrK6m23O/+eOaZZ+b7
x/N8PvMs2nFwXawFh8MJZuv/7lsWtSvVAsjVs3ZyK1+D6jJegv1MIG536vFG
ngZDy01Hqi2BNjcwya5WGuwpvyheaQ10POHXk6KnDMZUHM5lZgH9Dv5CiZ7B
ZxVBRfFcIP/e23xxF4PplZZlHFugU4IuEfcGg7ayTsXPc4D2tjZbLlQzWCIr
rF8yF6iaN6b47TKD3vKtV1vsgHxmX3qYeZFBldzz1gZ7oKL9RV3nFQx+UTX+
598fALnLjdveY+euKlVflgOQKcB5QbKSwejqNJPTh0Axbcyi1zUMjlWvnqh1
ZPMXKiMT6hlMPj/nVYgTULTYb+6dJgatFRqLAWegKl3yphfsfgWKUttDPCAr
vlfr4D0G3ZWxC2a7AtWEuhxI6WewVunrJnUD2vDS6239XwyuvPDCx98d6H5G
oyTtNYMdF5r92j2A8vcNTbfaaHDjxWNB2z2BJuKFYekuGhTVOETmegMd6wks
sQnVoMWlgU0eHwNtTNxL16M1mHdJFtP4CZDfrhVcVaIGFbX+SaalQCdf/Ts5
X6HBoctR0iB/IC8/VUUarwcP1PHOd38GZJ93slcd2IPmOtPlPXygbnPloHZL
DzqqDrcVBgCt0K0ayJH2oKChcHw8mOV/6IFa66vF/oatL8WrgBh9Qdx8oRb3
XPGc4bSa5fdEKnqSpMWsRtX8kFAgjp3NvPA2LTY1aQIkAqCWuzbi93f3ovc1
hxzBZiCHFsGj8CYdBn4UW9y/BUhE2csFIzqM/L5eHh8NlFKubc6Z9wCTFwuv
Z28H2vdp+87yuAfYceK0+epu1k/2lWtDjn34XaTNwWUi9p7HSUfrf+xHtYGz
3i4XKNMnbGPWWj3eDYjYITkFBO7ndNbJejQWSBOWnAbqTCiQHJbr0XbNytzQ
s0BZj90M3Gk9blOmtGWcA3qxf84fad8M4kzRJP+pDCgirDjjp5lDuNZyjHf/
KlBI7f66IxEGrB4VmzOvsb7int3k7zKgRYdz3/IWIO/U8PaBFANeyQ8vPtPK
+vky6Xmv3IDubkr7yA4gedmJ+3lvDDi5It66SwcUloqnRqVGjHCxGEnvAyod
3/L1VJ0RlTNKbiwbADLHrSscu2nEb2/dzswbBNo0ixN7dMKId6J8zIJHQNOx
Eo+dQcMoSRj9p/M50EOmpNTcPYxTwox7aZNAv5wVN6wfGUbh5441vlNAIzH5
ZWemhnHWuzV7c9+w+aVJi9ULTbhjSP9V0Fv2X5NkD2VLTdh84wfv8Xcsz/R8
ZSKZ0FZnxeFMA1VuKOYGBZvwPyqn7Xo=
       "]], LineBox[CompressedData["
1:eJwVk3801XcYx+/cGoltKFSkRJLKbs/6nfs86lS0umTUUObHxGhujWxrrK5O
VFKpST9EYRqixSwJ25Xj15UsrosI1/0s0Z2f1SXTvvvjfZ7z/u95v8/rvdBf
7BaoxePxHDn9f7+Jv8V2aAHdehn+xsafYX0YVk7ygTZ3/mH77UGGNm6K9NvT
gX4SDK/Xj2YYs0os2asNtMQzMGkijmGHqbav3gygIosiE5dEhmsmU4WlukAt
gZvmzL3C8ELXavMDekA/82+EhaQxfFnR8HbeB0ACI/nXokyG27L2t8s+BHKU
R4003WKYfmqq+AcDIJ5LpZ9ODsPJA5eS7YyAmHRrvobze1xXRD6dBaQxrPO+
y/kCqHKPNwZ6bdURI8xmqGfiAxtMgUR2bs25WQyDJl4ZDMwBUg/npEzLYFjR
mTB0dR7QSb5H9WepDM2k1o+3mwP1pLT1ZFxmGJlZljcxHyjeVT3/HZfnrziP
MzkLgBrtgzzFpxkuC1WHeFkCyUUWJlMShrGiE866VkAJEUXxv33HsFtgvqTE
GuhgEV27FsZww+yi90NsgCQP+joeBDAceqp6WLsUyF4t6an5lOHIj4uke5cB
jRuPR2cjw7GF/uWDy4H6jgzoalYy1AR1Fc8WAJXfP+H52oQhb6wtz28Nl9dW
usugQ4Vayaa5Y2uBwu6c3DcpU+G09Xt+iVsPpDqece7oAxXqHGtOz3MAqnJJ
FfteUeFHeo+TxzcDzV8UFaq1S4WGd/STzmwBuvp33czFQhXOcttxwWIbUMqT
e+5adio0vVx7Zst2oICmu6UjfBUusKqUJLoCZUe3lugX9uLHG++H2u4D0tk7
qMnX6cWVXW+CS304fqSHo6pGlPhJzOr9Lr5AtV5h2RUdSlxbU+h7OABIWLXO
6NCvSiT3fA/pV0B4VPlP+24luh7IQM9I7t9Uyzm7b/agOCXB6NQ5oO8jnMp7
VnVj/XtWg9sTge5IctY9NuvGpUEldXoXgRYcMx+X8btRJXguOX8JqCx/wFOd
0YWfV9NQ8nWOv+E+v53PnuGmkdH6rFygGqebC7W9O9HYySu2shpInGfZe/9I
O4bnDfnF1nK83fZuPS9qx0bDOAcnGVDEzrQZ6ZbtGN9ZOCZrALJudjSOkLUh
L1w/oEkONGCfJOqwaMP+63+ishfIEG0FrU0K3MbfMy+Tcf3i9MYvcxWYGax+
HfgcKNNhpnD5cQV+AXPzX/RzfSee9DkECmyuCTcbHgYK8i7pq7zUgoIVupqC
UaBX92a7rjjYgmcv3miKeAVk1p/84olzCzr7PDqt0QC1hpbBo3/lmPUwYH/J
BFBxnUOaZascp9lOOEZNAr3d2FhQUCBHv7PnzYVTQL/rKrZGJ8ixfHTx+Lt3
3P4aWgUxwXL8D+Qf86A=
       "]]}, {}}, {{}, {}, {}}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{"DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None},
  PlotRange->{{0, 20}, {0, 6}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 0}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.638917804107897*^9},ExpressionUUID->"2cf7fbea-0f1b-4875-98e8-\
1a5214a35e8d"]
}, Open  ]],

Cell["\<\
Up close. Notice the delay of the system (system response) in responding to \
the turn on and to the shut off of the input function\
\>", "Text",ExpressionUUID->"50f69e72-f068-4619-ab65-1fbcbb3cde3f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"Show", "[", 
   RowBox[{"pRut", ",", "pSol", ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "5.5"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "6"}], "}"}]}], "}"}]}]}], "]"}]}]], "Input",Express\
ionUUID->"95f5d7c6-d1da-4fe7-a6ee-68ebb5afd87e"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[{{4.0816326530612243`*^-7, 5.}, {0.19628680808524648`, 
       5.}, {0.39257320800722767`, 5.}, {0.60537015816092, 5.}, {
       0.8181671083146124, 5.}, {0.8678409224988433, 5.}, {0.9175147366830743,
        5.}, {0.9423516437751898, 5.}, {0.9671885508673052, 5.}, {
       0.9796070044133629, 5.}, {0.9920254579594205, 5.}, {0.9982346847324495,
        5.}, {0.9982346847324495, 5.}}], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwBGIQ7ROYedxY6IM9AxSkSHAsWKSN4FffX1Yh6IrgT1rm
GtgQh+Cvyn2i+b4cwb/1W/H2mVUIvoXEXNsOgY9w/reAyUz/byP4hYfqe94U
fYbzfwhOWXu7G8GvS1xx7tQSBL+H4aLAymsI/go7pampVl/g/Ae7jsy9x/gV
zg/YzLn+woRvcP51JrkL+1ci+HFBRh/XHULwcz5GGfd+QfA79Nds94z4Dufv
X+134JD8Dzhfb8nki1vW/YTzRWYYfD9wEsH/3X1W5uwTBP9EMXvGU6lfcH6S
c/U/0XYEf+qjJO3y+N9wfs21/wHNVQh+0qk5Zf1TEXy9TdcOLj+N4J9o9Iq4
Yf4Hzv+jYNRqKfAXzn8kcn6VqzaCf5Ij50KgG4I/7cNS6awaBN/ggOSmWS8Q
fLEt264vY/4H5/9dHvx3kxyCf6q/1+N0CIKfHM94//cBBN8reB4Lxx0E38Dd
WkvkO4L/R6+0VEf3P8K9SkKzLTwQ/JNi6w+4JCP40/694I6dieDXfGo1zNyC
4Cc/UwovPY/ge93aX9P4CsFXXjj3N/8HBB8At/jUog==
       "]], 
      LineBox[{{2.0038910075435785`, 5.}, {2.0145625382241397`, 5.}, {
       2.0277693003971415`, 5.}, {2.224975801748399, 5.}, {
       2.4221823030996563`, 5.}, {2.635899354682625, 5.}, {
       2.8496164062655933`, 5.}, {2.902071266111183, 5.}, {
       2.9545261259567734`, 5.}, {2.967639840918171, 5.}, {2.980753555879568, 
       5.}, {2.987310413360267, 5.}, {2.9938672708409655`, 5.}, {
       2.996097931156149, 5.}}], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAGIQPXnihXN/2TkcGKDAdwcvjw8fgv/EdeKundIIftVl
kUx1TQR/2TvpY0wuCP4/Fa2GnZUI/pRNa/XU2xF8LQfDu1OmIPhh0RZWBesR
/PUT3b6oPUXwE/4lZUwJ4ITzD1+fHZCvzoUwPyn0y1djBD/tLd+MGgcEn4u5
6X5nJIIfoJeRt6Qbwb/XYtJz8z2C/8vw7HHnHdxw/pk9bdmnjiD489wd+AMv
IviOsZvD4l4h+B0dM59WyPDA+WL3U5nXNSD4hj3/7CQ8eeF8o8w/KWvDEHwT
t19dTikIvhnDt2s59Qi+TcnbvINbEXyPmDvzspT44Hwvy1tH/usj+N5iN15N
sUXw/S5cNtsfgeCHuJw+J9yP4Cfo7Pq35zeCn8S5QyWIkx/OT3621eu5GIKf
tmDjNEEjBD9HZKVeWgaCn/dxWcjvUgQ//9ySqgnNCH5Rx4Jju+Yh+MWp8974
r0HwS5zmCD3dieCX/5kex38Vwa+4ObVlySMEv2rb5FWWHxD8anACx80HAIUL
ovM=
       "]], 
      LineBox[{{4.005561758282111, 5.}, {4.018826026794443, 5.}, {
       4.032090295306774, 5.}, {4.058618832331437, 5.}, {4.0851473693561, 
       5.}, {4.283273972136633, 5.}, {4.481400574917166, 5.}, {
       4.675629565497091, 5.}, {4.869858556077015, 5.}, {4.922543441279924, 
       5.}, {4.975228326482833, 5.}, {4.981813937133197, 5.}, {
       4.98839954778356, 5.}, {4.9949851584339235`, 5.}, {4.996102831869125, 
       5.}}], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAmIQrbe2bd5fZhEHBiiwup2gGsWB4PcEW7VJ8CP4Bi5v
3afKIPhNe46tCFZG8K+YLOAU0kLwK1SDT/eZI/gH2Xb6dQQh+CL1k9a7RSL4
ad+zBVgTEHyuF3KXGnMR/KCTLaHVHQj+k+6AmLx9CD674IvMEC1ROP9be4zr
fAME/9m/CwqvzBD8Y292Xq93RvDbTnS7ro5B8Nka9BWZ+pH478turP+MZH7q
682/fiKZfye+35VBDGH+KQ+32zwIftsyqS1sagg+W9y+/tgIBJ/1LKs7914E
nyd3TvLdwwi+CK9xw/pTCL6Kb8LO4BsIvsvZXdpzPiP4TWfzBXS1xOH8rlw2
3f8GCP4k3rmeF80R/EW+p5pKXRH8g2dVvu5NQPAZzt286TcdwefIK/imMA/B
F+BjF/68BMFX8DPxmb4Jwdd4dyojcyeCb9CX2Gp9AMG3P9e37/5ZBN8tT/X2
xisIvh/fnu/NtxH8sHVBImGPEPw4v5cGGi8R/LR39b6/3iP4eX1iWWe+Ifhl
4AyAmw8A4ieiAQ==
       "]], 
      LineBox[{{6.004335928929889, 5.}, {6.057623028336533, 5.}, {
       6.110910127743177, 5.}, {6.320160913169147, 5.}, {6.5294116985951165`, 
       5.}, {6.724560790604317, 5.}, {6.919709882613518, 5.}, {
       6.946167337893632, 5.}, {6.972624793173747, 5.}, {6.985853520813803, 
       5.}, {6.999082248453861, 5.}, {6.999082248453861, 5.}}], 
      LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAGIQ7bVCN/Qqq4wDAxSoXJpnP5sHwf/7m18rURjBv6ba
KKIuheCv9//0740Cgt9RmfxykzqCb33WdZ+dKYK/oIQrIywAwc8+PHl3axuC
7/KWZZl3L4IvJ142QXAKgn8hKyJ17kIE30xIln/rHgSfIXFZ0pNPCP7Ufzs4
neNl4Xwe9aN5U1MR/Bb/i5efZyP4RQtezu2pQPD9nKSMrk1E8NnaqqMyjyD4
Fbx2q/s15eD896ZeAo/0Efy0uLBSEzMEP2R9nv1NJwTfMHD+ZaUYBP/VFIY/
W/sQ/GiZwz53PiPJ5378tPUXgl+xX35mP6M8nD8tqeapEz+Cf2mFad1KLQTf
y3TF+rJEBP9m27XQgAwEP+MGyx/NfAS/rTrR424Ngn/ooNRD5xkIfqCwZ7vs
fAT/QUq57velCP4/9iuVqzYj+FZ+vUKC5xH8k/N373h1FcGP+Pgy7sgdBP+Z
kwTrvMcIfukUt9XlrxB8lmclgYEfEfxJ5ou/a/1A8BU7L85l+Y+bDwBGVaBq

       "]], 
      LineBox[{{8.005730688563446, 5.}, {8.032489250945428, 5.}, {
       8.05924781332741, 5.}, {8.112764938091374, 5.}, {8.166282062855338, 
       5.}, {8.376452949710583, 5.}, {8.58662383656583, 5.}, {
       8.782693030004307, 5.}, {8.978762223442784, 5.}, {8.985405340432479, 
       5.}, {8.992048457422172, 5.}, {8.998691574411865, 5.}, {
       8.998691574411865, 5.}}], LineBox[CompressedData["
1:eJxNzlsogwEYBuB/LsihNhERF9tKRqQZc8jpBhdWUmQuZA4jpRU5R8uhRBEr
YVnrT5rMPzsox2TMRC0j0YiIyFywVs5zKHn31dfbc/G9fcxySUGVB0EQcT/7
m0kJ/SkrHqxM4m/uyEEn0xMeY8ioPm/4xS5nFTFglVB5thoAF5unRtnB8BI5
5/MUDrcJ1x0D0XCUeVPtiIVtvB2xkAunMqy2iGT4Y/vKuJENd/I8Zc8iOJb0
EZRWwed0upepBs6wB7ePSGCC5FTEdMBddEF8xRjcey87tFjgnuOb3Xerm7f4
xsgjt3vF6XzXqdt/BezBxDu4aVmXq6Cx/13Tb12r48HVzeyFCT4srmxUm1Pg
yvQQOTMLFjnKWo4EcEnJIzetGs6Loqv8JmDhjkTFmXTrF++rspWwlByekU7D
htDAWacODvMNoc72YM5MK/VqgRNzbFTQAZzfLdfkn8A97+HarWt4eLxTe3kL
K/gXWtc9vNig1CU9wSZ/mr7QCR9oRPr6Z/hCYNQPvcEPdpZB/QnXGqRfNBf8
DedRqc0=
       "]], LineBox[CompressedData["
1:eJxTTMoPSmViYGAQB2IQPc27nuEfo4oDAxiIOLBpPNnyjBnBFz7mspWZHcFX
SFm6VYELwbdakLYtSgDBD7mjvn2KGILfEbJqB4cygr/njM6uGn0EX2Wv4d4U
DwS/d63ZAZ9EBH8NQ+69hLMI/qngxX9KLFXhfI+iaQ8eZSP4Ryd0HgmYh+Cz
KDRva9+O4Dutr1mx7wKC/6isUjHqLoLfaFc26+tLBD9g0Zcw5w8IvgJbsfDE
bwg+h8Wmj9t/IvgfMj+ev/cHwZ84FRTACD4ABihXAQ==
       "]], LineBox[CompressedData["
1:eJxTTMoPSmViYGBQBWIQnZ+1peE/o5oDAxQcOJvfo8OM4JuIOHBPZ0PwV0QJ
dDFyIfj9zze0XxNA8OMYPzU1yCH4f0xKKq9YIviWcyrSagoQ/E1ZjQ5n7iLZ
l5RwQu0hgr8t0j6g8QmCv9Pjb7zZayT3qlXWL/iB4J99VLCvRFgdzn8RlWAj
64ngZwXZHyn3QfDfeMr5XPJH8N9b3IluD0Pwv4lFVH9MRvCZL/vvOlqH4Mt5
21vkbUHw3x3M/tu3HcHfbzHj0PpdCH6C2kefjwcQ/EWMixNLziL4RRXn1aZe
QPCd3/9+vfUygv/kTkjZ95sIvvoOtu6qZwj+Dz3jgNkvEfwTS+NF97xB8v/k
HfP/fkLwrbiepsh9Q/C5GwW17H8i+He+276P/4Pgr8kDJRjcfAD5x4Sw
       "]], 
      LineBox[{{12.005138206167196`, 5.}, {12.011247598026012`, 5.}, {
       12.017356989884828`, 5.}, {12.023466381743642`, 5.}, {
       12.035685165461272`, 5.}, {12.047903949178902`, 5.}, {
       12.145654218919947`, 5.}, {12.24340448866099, 5.}, {12.45541557837479, 
       5.}, {12.667426668088588`, 5.}, {12.766381366237102`, 5.}, {
       12.865336064385618`, 5.}, {12.914813413459875`, 5.}, {
       12.964290762534134`, 5.}, {12.976660099802698`, 5.}, {
       12.989029437071263`, 5.}, {12.995214105705545`, 5.}, {
       12.996108949417103`, 5.}}], LineBox[CompressedData["
1:eJxTTMoPSmViYGBQB2IQHcTwj/Efo5YDAxRYKMr/esiM4D/W1prLw47g95mZ
OphzIfhWjg6PE3kR/AlhYZrbhRF8u8amrYkKCP53mzmJNcoI/oYfW3mnqyH4
ygUvU8/oIPgc8QFi5pYI/mUbuXKeIAQ/48dOi+3NCP6k/I+7eZ4j+Nft53Bk
v0LwZQTcQ0++RfCXb5jzrvULgr/no7vif0ZtOP9Z8by2jzIIvlWFd+C1IAS/
3uPbXJMwBP+IxMJXkyIRfP+d35r9ExD8lF8Lt53IRfD7an5I7+5A8B81LH02
fx+CX3ZhbsGRgwg+l8K0Xy+OIPhG+9v4jE4j+M1/082OXEfwJXwTDry4heCv
mRPhxXsPwb9i7RkX9gTBV6nSanvxAcHfcVJJgPcLgu8jKT3L8DuC/yBDWCXs
F4JfsoN7XdVfJPPACQzBBwAtz4M4
       "]], 
      LineBox[{{14.003891050778225`, 5.}, {14.007352888158316`, 5.}, {
       14.013491033186796`, 5.}, {14.019629178215277`, 5.}, {
       14.044181758329199`, 5.}, {14.068734338443118`, 5.}, {14.1669446588988,
        5.}, {14.265154979354483`, 5.}, {14.478086170497559`, 5.}, {
       14.691017361640633`, 5.}, {14.790432110503787`, 5.}, {
       14.889846859366939`, 5.}, {14.939554233798514`, 5.}, {
       14.989261608230091`, 5.}, {14.995475030034038`, 5.}, {
       14.996108999225997`, 5.}}], LineBox[CompressedData["
1:eJxF0mkowwEABfC/K2ZWmMhqcq3kGJIVSVLmCKEUSrLsb+WYkKu/T66i0RpT
ZORoIucHNJHjgytaphwxs2y1NDS52hJK3qvX6/f9BQjEeUJ7giAif/q75Zw8
4suOm0T8hb5xt0J3hFvG1vzinWFTW1+nyBUuKCcf5QyYx/XafGHCUx4PnEAf
2Ot1W5LDgi3r4uI5f3g+/chGRsBh2sWqjih4ulaunYiBx4dLt3Rx8ID5va2I
D1PSYHp2CZxx2eobK4WNoiiewyv85KFMFX7AHyp24Z4VpjHoVI995L/Dlwzb
THe47nMoKzgMJrqdhCmlMC2GalCWwZ7Xli6aCA7i6maOq2H+qeo5n4IlrBqK
HITlu0bJ/hCsqCweDVXAi5sZO4+T8JmA49K4DLNmr2Rdx3CtRqFfUMMHVkH0
hQZuynw4CbmC1fUL7NwbOGSkrrJZB5+brbRDI8z13iqwmODOxHYlywxrybS3
5GeY1+eWUvEC966qZbI32HDbr1//hBNcCqPvbbCN/D04/A2XbKRf
       "]], 
      LineBox[{{16.003903801855365`, 5.}, {16.049430556414936`, 5.}, {
       16.098765742000097`, 5.}, {16.19743611317042, 5.}, {
       16.296106484340736`, 5.}, {16.509957776913087`, 5.}, {
       16.723809069485437`, 5.}, {16.82878590967131, 5.}, {16.93376274985718, 
       5.}, {16.960006959903648`, 5.}, {16.986251169950116`, 5.}, {
       16.992812222461733`, 5.}, {16.99937327497335, 5.}, {16.99937327497335, 
       5.}}], LineBox[CompressedData["
1:eJxTTMoPSmViYGDQAmIQfaCi7mULo6EDAxTszN/w1IgZwd+U9ujhAxYEf1Ws
yL0+NgR/jnfFtVecCP5Up1WXZnAj+H2Wd8658SL49eoOxxcJIPhJzBw7osQR
fI3d02eeUkHwTxQWbIlWQ/AzNDzPv1FH8FdO/cXCr43gaxXEFgQbIvjaqsru
d2wRfL3+dV/ehiH4pslH/QU7EXyZJc+sjnQh+ExP2dXKexD8c2lef+70I/hp
WedXrJiG4M8ovMnosATB/1X/dnPefgT/wQG++YoHEfxjjAZdVw4h+JObixKs
jiH4Ou3fedjOIvixfYxpc28h+C7nlQID7iD5X8DFhvkegv9tYptQ5kOk+JjK
vd/kBYJfck1n1fOXCH6UuN/UWa8RfPWZE7IZ3iP4B+aISpz5iuD7zb2rmPQd
wb89d6n2jx9I8TUv17TvF5J75pnaq/xB8Fvm//XY9RfJvp///zP8R/AB2dmS
Fw==
       "]], 
      LineBox[{{18.003890991217165`, 5.}, {18.00971068945471, 5.}, {
       18.03449329492595, 5.}, {18.05927590039719, 5.}, {18.108841111339668`, 
       5.}, {18.158406322282147`, 5.}, {18.257536744167105`, 5.}, {
       18.356667166052063`, 5.}, {18.551030397621368`, 5.}, {
       18.745393629190676`, 5.}, {18.850830520091186`, 5.}, {
       18.956267410991693`, 5.}, {18.969447022354256`, 5.}, {
       18.98262663371682, 5.}, {18.9892164393981, 5.}, {18.995806245079383`, 
       5.}, {18.996093751594387`, 5.}}], LineBox[CompressedData["
1:eJxTTMoPSmViYGDQAGIQ/UXt5///DMYODFBQ1L38qQ8Tgn8mz/7IH2YEXz3o
+qI1rAj+HQn2BB5OBN99Wdqt0/wI/qLOfzuqBRH8PznTpmsLI/ibjI+FdIsh
+DIHVc97ySL4H24/OXxSC8H/VKd8MEYHwf+imLTvvS6C/yP9/g5RQwSf4cvN
tYnmCL4Az/npP50RfAObndmasQh+/pxe4c5+JP8zqrz3mojga6XvOsUzGcF/
Yvi8ccI0BD/iuMOH6XMRfKdPn88sW43gi3lEtR05juAXr/2Q2HYSwb8g1G7r
cRrB7767+cvpc0j+KeZNvnwVwX8194D9o8dI4c8cLr3kKYK/JOPtt9TnCH68
sdS6l68Q/CsnimU+fkTwDfW4fmz6jOD3TV5wueQrgu8Zd7brxw8Ef9nh5LRd
vxB8Fs1fjjV/EPzEvgmydv8Q/H2fQQkOwQcAGV6VSw==
       "]]}, {}}, {{}, {}, {}}}, {{{}, {}, 
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwBgQN+/CFib1JlAgAAADcAAAACAAAAnX5iBjFkmz7QLl0U/E9dPZ5a7DpX
IHk/syJWinpcGD/ZTYpyICCJP2QPlatuEDg/MjfPowrYkj/TtYhmlL5KP3dH
WQ4FIJk/P4Ns9358Vz+8V+N4/2efP/gp3jzeIGI/AbS28fzXoj9NL3HA6spp
PyS8+yb6+6U/OG6DsBlYcT9GxEBc9x+pP/4rCy90YnY/aMyFkfRDrD/Sl69w
zP57P4vUysbxZ68/QeLYBswTgT9X7gd+90WxP4VMkJ28a4Q/aHKqGPbXsj9x
NI+3ngSIP3n2TLP0abQ/CcTVB+7biz+Keu9N8/u1P6hS0pU6748/rYI0g/Af
uT8vjSG+NmCUP74G1x3vsbo/xjRIB+q8lj/Qinm47UO8P6EuSZYbM5k/8pK+
7epnvz8OlAh522eeP5xRJKzy18I/PZqVQOPrpD+kk3X58aDDPyzUWtaScqY/
rdXGRvFpxD9AZMdOSgKoP75ZaeHv+8U/lDuocDo7qz/hYa4W7R/JPzoqCI1a
BLE/6qP/Y+zoyT9yioqCkOaxP/LlULHrsco/SWcqDNzLsj8EavNL6kPMP30l
WKYXn7Q/JnI4gednzz+9mX8+IWS4PzZB4fXw19I/aJpvWxomwD97UWtg6x/Z
P8cTWxmhccg//oM2Gd+M2T+ihkdvVQPJP4C2AdLS+dk/0nuouQ2VyT+EG5hD
utPaP8GyZIhpuMo/juXEJomH3D8jC/YV+/3MP6B5Hu0m798/Gq3V4my/0D/j
0Og8MV/jP/NqhEsPG9U/JGpOGauV4z87Q4PEqV7VP2YDtPUkzOM/QY6P3/yh
1T/oNX+uGDnkPwvQXULJJ9Y/7JoVIAAT5T8mg5CA4y/XP/ZkQgPPxuY/Isef
HIox2T8J+ZvJbC7qP/+Wix7r99w/OIfZekph6j/ZUaS4wi3dP2gVFywolOo/
0oukElJj3T/GMZKO4/nqP1R5PjqYzd0/hGqIU1rF6z9gaZpnxJ7ePwDcdN1H
XO0/vi42odoZ4D8warKOJY/tP8WBqz+KMuA/X/jvPwPC7T8N29a5FkvgP74U
a6K+J+4/uOxgpMZ74D97TWFnNfPuPzN9nTKF2+A/qtueGBMm7z96eBOJHvPg
P9pp3MnwWO8/jjJVlJUK4T84hlcsrL7vP5lKD0IdOeE/IOAf4B/g7z9fO/Jn
TEjhP9PMufA=
       "]], LineBox[CompressedData["
1:eJwVUAlMk2cAhY4pqGNAwHEYZrvIJTdEQcA3JYAg4xCZilcA8RqMTGWg4EHw
gIGAIgJDXHXaCQozLSvTOek6BlhELoFRlPYrZXMGWP+/BxVKuy4vLy8veXkv
ecy07G0ZDBMTk0gj/9fYxCNdATYKXIyIreIfJMiXcPKsIxT4zUY2oionuMqJ
SDy3TwGmqMaijU3QlCV3/zdXgUL+xVTtQwJhYBFj3xUFxh7ZuHW2E4gXmOPP
mxSINgsN9eoloIUCXkiHAvK8SbsNYwQW3+wva3qtQGi+uls7SbA6UX/AYU6B
6pl885wZgiD7hrBiKwoprFr3x2qCBEnIyjl3Cq0FGS5DOoLDHPFsRjgF59w/
2CKGDOeyTna93EOhTmA31bRUhppAe3b41xTWrBqYPr1chpYFfh63ggLvnlPq
Z5YydAqTE5mNFDr9QxpYVjJMlKjcK4UUrD11D5dYy6BJqGIYximkS99LZxi9
pb3/eJaaAnXKKsDZmHeR9PNeWdJwPeq6J83Yt5GTXbbVjYbnA+7IiHEvOcsy
4/EmGj+XXE4pMpchM7A5zH03DfNNpqnZZjKcX9i6svYEjS5nrsttA8EN4dvZ
JeU08s+cbmbNE7SWlHTl/EBD5xb9dE5J8DzBjS0X0Igv6njravxn8qOuvCQx
jVmdU8WjKQIbjpmH3wdK3Jje1eIwTOCR9T2D7aLEL8xbcmUPwebAzeOWnyqx
ybFqRZSQ4Cvh2bLpY0oEkUpOVjOB1vpa83ipEh01pZnnbxOcSb33QnRHiUmp
ysmrhqDMZMCqcUSJGO3MfMRZgnsbWdUZG1S4fuLuwWVbCXzK1/G3J6kgmtH6
uoQR8F/HjIZnqhBiI5pXehN0FBx3YN1UIVd3OJJnTSB93NEwYapGW391n+NL
KQ4tG3va66jGqAfrJLNDitldM5InAWokMR3kNE8KndaOVZ+hhrcou8KkSgr7
9Yc4O56pEfTP6aIV8VIk8Cx+7K/UgHf1XMPtQglGGc797Y0a9GlOlfnslWDf
Nn+qRaiBV/J5r+ogCTKplIDLKg0suE5SzewEin0etEXvnEOpzxbRgZQJtN+P
Ewg/1iJWvtP1E+/X8L5TNdDa8g5Bvb/G/T0ihm2t75zg2Tt49t0K7GkRY6G0
d1Wv/B2219Z7d18Uo/v40sNTjvOwvdbtZbNejLTwfL3dpXlMt0vWvF83hmpZ
2trc/Qs4GVxHr0v/E7rV/heCrRbRU8pu+dxuBDLbvqaItYvQLzHf/YYaxjPz
zP7EyEVc2BKt5LwYxnXFXaejBYtwq+R/d794GL4CB+63bxYRxmxcNqp/ifT9
ppIFgR57Qy1ce5RDiEm6aWb+So++qsK44KEh+EaFeNjO6fHTE1P2MHcIOu+c
HE8vA7iDhxprjw3huv7N8r11BrQWBgZEqQZRQF/wO9JqQE+9oG7N8CDS/2Lt
yOkzYPLLG7/78QcRI24vKHxrgEV8bP0XNYOwUnxohAGmvUUDzlcG8R86tEmD

       "]], LineBox[CompressedData["
1:eJwVT3kwnAcc/T6b9VEWSZASm6ZdYloxzjYM9vdLXJk4Ko5GSiRNS+NIUhmJ
CSnrGJk6olQJRWMjiGPQ6tjuiFSSSqQqfLuOZbGyuykmJdigsuhm3rx5f7x5
b957/+zF4GgtgiC4Gr5VvRm13N+IQHO7xvuvI2nY+vyvVZpN4Lv3xNEVXjQs
i8t1T9oQmENmz7Xb0aAMPGcx7UIgK3yds3cfDca9CZZp3gQOVz/a/4MRDUc8
Eg+ygwk8Mrhvt5BJQ2LHZeeuKAL5xdWFyZtDcMsmxT0inkDvMpuFX9eG4Bk/
zWsjmUDjEsorXDUEW2ZZ/uXZBEaVa0cFrgyBbdH1UJciAvUiVEKexo/UyY8c
rSJwxcgqZ1yTz0v//qsrjZr9FfbFvpp+4WpJgkkngVcqR0I6dtAwe748qeMh
gZ5fvDPJMqBhj7LqWsgggU6uVmOHzWjwieRnL0sJDOVys7gHaEgS1eUXzRE4
82ld07IzDbePNZXYr2r+212/G+BNA93TWvlMi8TNltoIOEED6dpRe8GQRJ6M
yxHE0WDfJmhmWZDoEWEsa0inoaC6p8vvYxIfPu0zE7TQ0GXS+2j+MIkNlWea
hb00zOc/7f8ukMSjS5fDN2U0HE0VSR9/TeJk2Kt/DM1EkLw8qohJIjEtTOX5
+BMR1MVKXzIzSFw8frq2IEwEjHCl2rOCROLscIl5qQi6ndcs/ugn0WuxcMDg
AzH82/TG8rSERKV0ztXEVwwWHMJ2S0li2N7X3ZIEMVzdqevhvk1inL7zjRSh
GJwXzE8JHLRQ4vdywuXUMDTWc6vaSrUwMyDls2jhCJSZ57BrzjBwcNiB7dQs
gVX5QH3gBQZasN479JNMAqEtexzVqQyU83MzTU3GYRfe9TlRxsAMyzwDl7Rx
yI/uv8gaYKBjZuixJ0ETwGvb9eCq2w50cHNV31BJ4ZzPzzHBpkzcrkji9OyW
Qa/h7KttDhMX0xmjTQdlYCWxT21xYGKH2q8zzVsGz+MfFOoEMPHWR+1OE1dk
EFmkFHRnMdH2kp/oyzEZBElt9GyWmOhNN1jHlc6A6yVBK6NfGz+cbbgzon4O
g9tuUYkSbRSz2q9Jd8ohpuC+/vQLbVQPqEL+PCCH4obeWCFJYWy89hsIksP8
lJiTeIjC+qY6P0mNHHgJ4fSUF4UxvHiXtd/kYLoxwfMPprDEeth9vU8Oniby
SevzFLKzY365vSSHSr+lsik+hf9xNsprQAGOkiQf/zYK/9b3z5YEK+BJzLrq
93sUkp03F1TRClBlbB//cYzCm98a5I7kKSDXMItgvKDw5J0+WWW1AvZXabd+
s0KhLlWk5duuAJ116i3QkznN5ncq4H9cCc4d
       "]], LineBox[CompressedData["
1:eJwVkH0w1Akcxt26ut9v7e5Pzskh59B5PaWcOU3n+11vpaUQ7uQltyctGZuS
MGYypT1vhVpLU4PkpDsvc9cV69xwR162Iy/tettN+P1KpoRBXcTtzTPPPPPM
PH985vlcKA46xtLR0eFr/X/6N3E5fjwC5x+ZsARKGmjvoma5KYFzcu+6ZZqG
9CHDOBs7Arv/PfueXqRB//vSrcWuBC7mNvjZbdBQPWfayfIiMH5zWvwgycDe
jPLkk4EEtp9JqHhtwMAgaWX1JIpAgrp4v8CEAVFJ9YAggUBzTsibNgsG1q3t
M+VpBDY9MHIp2s6A9Lc6J5sfCazdeaOba8eAPTprpFICPYa2lXs6MNDW+3se
q5JAGczuBkcGQsO/3nOygcBKozelHG1/OfPHjKaFwPyC4LRGewbOp0CJQEFg
Z0qWmcCWAeMP273lwwQqC+/FDVoz0FDks/QFQ+ANL3r2Wy2Pz2eKSukigT1x
k48YLa+61j+QpUPimj4uXDRk4NSegQ0xl8QMQ4chPpcBoju4XmNCYqSbVY3l
JgbKQkYiBLYkdlRWH3Zeo8FlOlxP/hWJwUF/J6Ro/4teF4qkASQGPC9+3KGm
YSXvmRErisQjIvsXmn4a8j+NfyA+QeJId9WqXwcNcpckS4GExKv7Hvf63qHB
4MQ59QctJCY2UIq0BBpq3rLyxD0kNtcHeuhE0OAukbhpVCTyNUU79AU0xN+8
JGtaILHy6F2HKRsa2oevB4ht2OjndalPrZ4GqTBkaXk3G3dmm1++opiG2Fe8
0gxko8GmzAFW0zSwdc9P5ISx0YJh+VpcmYYAJ1FiVR4bU2NP91Z7TsOTLJf8
0ddsbM29NXSobAreOfd2eTbp4YT9NjM//iT80yI5oejQw/tLne7WDpNQtg+p
wAE9LE6UmL8znAR+5N3QqFk9DKPFObdmnkJ29jUm1YyDf0YK2ezCp2A0cUy3
PpODAZ9wXky0ToBz/rq7sS8XM/n9M/1bNLArbi2mLpSLix4hiRdoNbj4vMv1
iOFi9E8PrYSNanDVWVElnOPi8bb57bcj1bA3+VXiX/e4WNGVLBPWjsP+CHVZ
vCUPa+xaXpocHoMDbmMdGzt4yC93qR6xHQOB0cis9BseRqvmuhTro3Cwf8i1
9Tsebnj1hfn/MgrBXg/7Pi7goVOOzGxw8yhEOzavt6zysP2aNPR91zAIySbr
IJLCI4rilq03h+GHZ/cOPDei0Fu01ihKH4bYil9lW3ZROB7Qk1T/5TAkGN5x
ihVRaEXLj3bLVJC4UB28eobCmPGDK7IkFYj7qtILL1DYsyx5ct1PBaeyKzqb
yyjMPTURuF9XBWfXSqIoJYXZU6aU3WklpI4WZ1VNUTjy/Pjl24eUkH7/6s9u
89o9WS4Jd1QC8fYjrShkOXLu2hsr4T9lo+Ew
       "]], LineBox[CompressedData["
1:eJwVj3881Hccxz1KdUJ97r7Mg0x+V7s6PGyEy/vtyDWT82g86NjyQFQPzDAk
1zSZsTQhs5GH/IpGWLlUQkIytTOf8yNdZe5YTUtz1rrQ7PF6vB7Px+vxeP7z
sgj/bN/BVVpaWh4r/Z/ubcI3LWsIHkgsNa6eodBZ6306XY+guk+ZX3eXAp7d
bSFkCM7Y6+q5NVHoyvS6wjYhaPvcKcOlhIJHgqfwoTlBRYrD2syTFLrDBA9q
txBUauSyV4kUBCKP2M95BBerh6yORlG4vQu1+B8Q7BG1+DwNoeC1HQrX8gm+
+sslnxtAodfE3XZIQDAvWMfJWkTBW2fXtdIPCVaxJDFtvhT6Xrn5RvkTvFTy
0Of+yhZOuz62DyJYIe2947viRw3T2exPCNbcuqzV9jGFk11xmkcRBKPtD0kM
xBQqG1kspyMEeZR3TxRO4daPlYZ58QTzHx02CI6h8CSbb6VMJsgVLK8zTaWw
nDRi7yYhODA69UduFgXT8Hj3gkyCL+3GviwqouAmWu/7NIeg8WpH4201FMT8
6v2YT1B750SGy1UKqdvco78vJqiTFbIsHaDQujrhq91VBN85U9jQtUCBzunm
l9UTbGlXX3HQl8Pfippz800EC4Spx8Zt5GDXNt52vp1gfH/y2VKxHPxqEvv+
7SZ4VCjeWJ4sh5gCfSq6S7D8mibvQqEc6mM8XizJCWpsNEtVMjlYWdTbiF8Q
zHa6XWIdOAKCDZ6OLQsE/Y6n5LqnjkDYm4fIWlz59550ipSNwDk5CZWy2Bg3
5Od9UzUCRrmpBRxLNq6rT9ffnzEKTimcisNb2eg7XZgYXDcKAZENjV08NpZs
aVINy0bhjPuT/jg3Nm42l4GN1RjozgvfDgSwMZSVVpszOAZvQ4xiMrPZ2HQw
Xtm64wHM7JDuVs+y8VlpUEmDngIsJbEHufNsxE0GtgauCggdtM4Kf83Gzsfj
bqnRCpAdKeyRreGg//tZW3ndCrh+Id6z0YyDxsV71pulPIJTFlyPKH8O5v1c
rL6oeAwOhhX8scscPN3uunzaZxJiIoNCN17n4N5Lg+XNByah9vKGdO8uDg6X
b9rekTQJJvskN64McnBCZapTVj4J2t+JXc+oOKjRpEWGvpyEEZbhTh8jBk95
3rnXW/A7HFvMcWxPYzDd1ij5UM8U3E+KKEo7weBM4UdLe8amwPw5f2HnNwwy
lkkd+rNT0KN4IW09y+C3ztw5T0YJep2Brk3NDM7/Jo6NCFPCp852pbFXGcxh
aRlGJSqhuYm1yO1gUIK/vrv3ayUEVty4WfcLgwNB/OP9Pymh/ISFR+U0g47d
zsovFpQw91pzPuw5g5knx/4pW6cCQQJdtVnNoDpWMFFnrIKiZ40RCg2Df4qK
qn7gqkB7cfVKGPSqNLtYy1PBf1qh3cI=
       "]], LineBox[CompressedData["
1:eJwVUw9Q03UcHQJDRdT0+/v9SkmQwAr5Kyhp4udjbpjilvEnkibOUExtoIak
YfJHnSS6GZ26BGQUWUBAhgeskDtAORiCf3AMGP8m+wKKijX+iIq07t27d+/u
3b27d/cWfx4XsnMaj8f7wML/dZVB6hY5nWD6kuXWLSIKp0NXyV+fQxB4Nrlf
Syh0N84faGUInmqJlGzfTcFH8Hj9OUeCmVuH89XxFFIr634LfYvgq4yEA8Kj
FO75q2fMcyc4cNKP2yansKTo8J7bPgTZVGnCy9MUDrmFNioCCF6XfTW8NIOC
NtvDQ7SGYBdds+vFOQqOLP+MvZDg1tGnwYdUFGIVPY8bggmOFj1VlfxIoZqv
EaeFELx1ObOjyOJJUkZJ0BaCcpnJN8mSjxnfO9dWStD/0d0I7/MUKuKE+2tj
CFpXDqgbLH0zBxfdTZERdPokmrdFQUEifbYM4wmaZx2wH0yjUNx254dX3xC8
Xxz4MjmVAu/jwpHKFIK//E6veiZSCGk4Hp6YRnDdhaia8QMU8tZGla1UEpyo
Xrlt0LLPmCaAe3aOYGRzeMJ0KYXMgodt8T8TXLhKBxMbKDxxub7Sr4BgmfHQ
5o5ACpiZffGfPwgqFuRn2ftSMKVvlsRWEbTKiy86wlBYYeN+zeMGwfBAfamW
TyHtiPWioUaCSTFp354YN4GnrKxnVzvBycMuQZ/pTZAgdozePmLJewVa+X5v
gvq60VqnFwS9fBqczh41wQK45dptxeAVX3Xsqb0mqPJO7Y+cw2Cw0Wn5DoEJ
7F4b3B3mzmALM7Le498+GDspEeb4MLjpXbkqrLsP+l/ddn64gkGF1d+yddo+
qHuk0SetYzB+3obi5Nw+kNenCwslDC68/WtEvagP+Mnei6cpGdTuMntqcu4D
fzihrcTMoA6V0vIVRhjbOVT6fIJBd4fqwSknI/R3blMKeSxOVamHNs4wQp32
wyDDLBZzG84EPzL0gvzygqv8JSxG1O81HkzpBX5UlXLrpyzuKFfZFmT1gG2T
7Xr7ayy6HdPNvNnfCbNkWdFdtSz2GWNuuGo6gTj4JZdoWRR8mW1XnN4JriKp
JrSNRQwovxTm2wmCpr+WZplZnKg5f9YqyQCpTXFzPd05lBS8V7HatQNOyfie
Uz4cung9uKmfaIcMh+wNdwI4/MguoDf/Vjv8JNKmHhRyWBLRVWtObIfqJtfR
a1IO/Zrf17jo24DX3N4uvsChvObkm1YqPUyP3TfmfIlD0767qjf262HubLv5
5jwOBctGvPds1IOz2H/ThT85vFgXnVI62QrQrKjqaeLwRFxFsymmFYJi3QxX
7nG4Y1QdWbm2FcSzK8ePGTjUFpq3Nzq2QpT4gc87DzgscJn8Qtmig5gnSaLn
wxx2tLBvC0p0ln+xe26OcVha/F2Xd7oObF5aW8Dh6px4/8o4HfwH7PbtOw==

       "]], LineBox[CompressedData["
1:eJwVjn1Q03Ucx8cmkEloI+K7309IUXkKWQQhncbnwxgIh02O8SBLugRNSTfg
PKku4UDlQZBBkWR5IKaAQ1hGzEqe0SuE3Onx29h4EBwbEs5dJGOoSOG973Wv
/1733piWGX+AzWKxtq/w0nnqiEtZqwiSkz1OmUINFMlGugVrCF69IZly2aIB
uXP22BtcglVnneYTV2ugWun4dJoQnNV3l3LnGKgR1br+/hbB3Vadu88YA5ct
we+WeRFcSEsX5gww0CwfFKVuJfjdmcrm8XYG2gLSDvODCR4+VsTFawx0qBeL
7bYTPFDx1bb8RgZuySouD4UTbAx21xdcZOAvZ6/e+miCS/FhCt9aBhhlx/jn
uwn2PhqMTK1hYEwkfhaTRDDVwz6Qc4EBo+XvN9enEuQXz99mX2LALM8PsqSv
/Ff7RAoVDMwHuMX1fEYwOKmp/trPDDxXtxz5Jnulz/G/HtjBgMe9feeFXxC0
GYQOR/sZEAy5DizkEeRu+UlarmXgU83txSuFBOM6Hy5IpxkoHc71/ugMwdjB
fhF7kQGlPjDptSqCYn5Ud+gaDdwbNZ3q/p7gsROJfqwNGiCTHxo2NRK01NbE
s0Qa2GGwe13bQpC9NaSOd1ADnxhVUNJGsEz0KquwQAONM+415l6CobG/dJMb
GgiZe5ysGiPo+OMdn65QLUieXCw6OEXwB6lZbJFoIdeaqOLNErTjfzm/Ok8L
t552cvNsBCPflvJ1f2hBzJbfieLycE9Oir1q3zBkuQRE6HbysNLa9F99mw6+
dTVkl4p4WODb7u/7QAe/ulXX7Ujk4XW3usy1znpYppdf1KXxMEJws8x8SA/l
m9W/ZeTyUNymkER7jkDTe7KA5608lHorwzZeGAVTspLn4UFhsULoImu4Dw17
XvTt3UzhA35IuWzoPhxK2XXkvB+FYZwl7sesCZiVzHaRbRT65xemrJJMwD+p
Xvtd4ii0rvX+c5PDJCyl1ypfOUGh9/J04F3VJLhkySOemChsTROz+hwNwGSN
mwPNFOqj3ucGrTdAdbZ/dda/FMolGQnydwxAjg7MPF6m8IObyT3sFAN45DjI
Z9xojI4/vWHiigH8jufpxmNoZDoWFLuEUxBeIpP2t9CoKGHdrcgwAtU6kSxv
o/G01zlB9XEjzI/GCRLaafRxV9sXVBihgR/kNtlPY3hRbwNHZQSnYVuPbYrG
U1/vb+5aNoKJlXG1c5bGh/Yc68w6E3T5jZw9OUejbanymc3TBOcSYvNjFmm0
Vg2oHwWbgLP0cjS6W/Z69oWZ4H/ST7Ym
       "]], LineBox[CompressedData["
1:eJwVjA001Xccxu8iq0aIjtjv3r9I4oiTl2o3fL9dIzPzkpeMIupiUzSjmetl
Zd3TSq6QuZn30Q3NWaNpheNtxWbecl1vdXF/3qY2d3aM3Wp2nvOcz3nO55xn
Z0TcUf4GFouF6/2fHpK9AUMbCd7eylsZOUZh10AxFGoSHHz5lpAdReHlv9qW
4XoErYqtud8kUJCaXdA3NyK4h9e0HPkFhTpv5atFY4LLcrFG1hUKlz8/NX/X
nKDwTSuHnbkUIiqeDCZZExxN/bPZ5iaFQz2uzc4OBP2npsIel1DQX7knUXck
GJ/WFrBaQeGF8Z7cbh5Bzwy7031VFB55iFOz3yNoJ2uSBUsolCZsiQ70IfjO
19VZles7uVhwlBwjmOzXqnx4i4Lf40XHqRMEjfbOaNyppGClPGEuOU1Q0STm
XyinoEF6dWNjCA5JQ1xdiyk8c0WVXTxBd5ZSoCam0Bj3/cxqEsG06pwLP+dQ
yBGb9LekE5Qo//604CqFmPbcB5eEBOsHPQ0zMii8+1y96v1rBNeKmGlRMgWO
wfls3TyConT9pUfnKKzgbPLwTYIfzhbr2UdS6Ps4iF9URrAqveC38WAK1Xld
3qckBHUvdoR0e1HIaOZyLeoIBuo431HnUdi/ja3d8JDgcIObVtpuCtqOWavJ
7QQdezO/+8WAwhz/9TR2E1zYMu2UsYlC4f3Jxl+HCR6svVTuMacAVnhVhEJJ
cFf61pTZMgWMXDH4oHqV4ARPk2snUsDd+ssHzrHYmB900WdHigL4m2I0VVps
dLPdIWzzV0B3nc09PQs29joeEhluUMCNV42bXcLYqGts9hPfZxo0zTtjb/DZ
+GLf683D3Gn40rt/cDaGjWWHO13MzKYhvnS+KDOJjdlm1yvCV6fAi2dkK73O
xrCT3SS/dAo0hILgjzrYeL86oibv90lI0nKuEVlwsKlyLck0TQ5/OHjoTNlw
0FXNWicxSg6RoYGJ9vs5uLt1sbbPRw7+dbEwwuPggkq/X2Iqh32+JYMmxzlo
vyTmP819Bgt5LFVDFgel7YZ2VbZPIYS0e47/xcFKX9OVxswxWDi7pGxY46BG
/a0nx0+OQVILIxa9waC3RY3KwX4M8iNSKE+bwdTOgdqvxkdhQOKQdtuSwavf
ppS02IyCh4Ok7nw4g+o9P2gWymUwIpQG+EQzWH5mTq/+RxlEy9RVFnEMLm+X
dm0UyUAoCHefSFn/b/gk0c9ZBm2tRpMuBQw6OcliCkqGget1bZtuL4PufmcT
2s9IoavkQePCEINvW0zURh6RQtDSfGjHOIMjAVFrh02kkJjnVvPZAoOCI6uB
pbIhUJ9J8PVdYrAnO9TEtH4Icg5UrFj+w2DN8zbBhGjdq9TWw+DBnoLt+YIh
+A9XDeC2
       "]], LineBox[CompressedData["
1:eJwVkH1Q03Ucx5FSnPHYgagBfb8BMhAjQNDuhM8HD4KpYCAYCEZOYXYaT57j
QabTCxVE4qFwJASReDAe5mXiEPQUFg/Gg9FvD4EcYxvMDCZcsiATW/e+973v
fa+/3m/KTY9JMTczMwsx+f+Mn3tNn5sTPHSiXLKXIwey3nExcQ3BwUcpyee9
5KAPfr+/n0VwsmurKs5GDm28sGsBVgQPL23Zdv1vBvilSWn1tgQrVm3o3KNl
ILjjZIiNPcGUqx6qLaMMrNYU2ec7ElzndtzWXcbA4Lp6/dNNBB0zTy9v6GDg
a/+Ou3EuBLPnTn3w7CYDSUmPr3RTgrnG0Oj8ZgZcC/Sf+bgT3Fnja7jVyMCz
1hX/ajZBmbDrIt/Uf1Q4WLC8Cc6ndn4pFjOQ99p77JQPwWd7O7y2SxgIYYe2
avwIXpBVVr7ZzsDa6EThvkCCLoJjt1/eZ+Bxbtb+rg8JWhjKgtY8YkBUX7jZ
M4jgXY9NjdZKBpJ/qVv+Bgnum9rhZTbDwOYXdwbNQwlm/LFR0mtkwOA0Upse
TvBPH/mvUSw5tIfNZD3ZTVDbWqUscJaDIO1VGCeK4IKAJU7wl4Plgy2z78UR
XBPokVl+RA6aquj+s/EEOYPhbfECOdw5mX39SSLBYf1h9y9EcuB69CRVcgmG
RvCl4aMmXnJwiJVBMKlg6EbUfgUUHxM2pZ4kqDrEjbDmK4C760ZBD59gtYuF
/naVAiyNC0ECAcHyPI6+TGvihwrb5osIbnVKGOYKlbBju6QosoRgxMPPj4c1
KcHKTp4qLiPo68aTdI8qQSoj7x4VESTVruUnPFRg5S39Stlg+j9DtL5JoQLp
PzMZ9x8QfKoU1S18NAYljGXkOzKCmS537m3jj8GRNj/PnD7T33syqlsaxsCa
e2bKd5igVfe1g+zV43BkwCGmYZxgPMM4/P7zOFiLQv2LjQR5zrWeut0TkBJQ
v5jgTTGa9syuZquhqMTBRuBDUZezmOYbrIY2/SV2nR9F212c1KhYNRir0hNn
dlDc6PL6xkGhGi6t7HyYFUZx7bGWIIlSDeI+ZfHlTymyqGHBcH4KDAlWbvdK
KV5xaB0aGNDA27eEQeoKij3b7c/mTGgg0PLFgTeuUhxWBBptFjRw9v5YIaeG
onSkYnLJUQu2ro3P5U0U+77PFN88qgW/2V2dhm6KGidQty5r4UBYO2PXS7Hp
QUOs5i0d5H3nadg2QNG5JXhhxVkHPR/b0tMjFGnpJ+L5EB3E3p64YPGEolFp
Xth+SQc51tF1XpMUfwsf/8H7Wx3U8GQdkRqK7kI/m8vNOpjZ2Dxb8ZTivFnu
v2bDOsg+kxNDFiny1tYmj9pNA3s23/LiEsWAsvUNf7lOgyrhXO/cS9M+6U/n
lgOmwXxllUkUX8XwfOZxGv4DFLHjlQ==
       "]], LineBox[CompressedData["
1:eJwVT30wFGgc3tQVMq27M0eOOu97OYQxsizn+v2a5mozdOrcsbLuVr6uu9Jl
omiNEV0hN+GyPvKx6VicWGoikvKVytka1lfrWO8wVoM9deiY25tnnnnm+ef5
sAmLORphwOFwQM//lc9L97pvQLBt5n71TiGDGVnWks1mgrFWnguXoxlITXNq
LxsRVL/IyrKLYyBIyoueNyHo5ZJewU1hsKwtJN+aEnQ5veXJ4UwGlcLSsZYP
CfZYdOre5DII6i6/Ts0Jqrq3FZoVMTDkyf3TLQkGvcaGpjIGTbI/jBetCUY0
2db8fYvBCVNFR6ANwarzexL6KxlYJt1NevApwT+l0nxRFYNebTN/lx3B+CjP
Dyr1PkHYpsvYTTD3mSSxRc7Aoftxjc6ZYJ1uE6eigsGIW0+k0JXgmTW+OLac
Qbrs2ScPefr83o5Vx1IGn5sqR2w99X+a5jrVBQzmJAO5V70Jev/wNCRHv79I
O3x4CQjmiGLXAq4y8BWqDY/tJ7gY/jbTKY3Bv12Tj9oPENx28+sC2wsMatym
L9j5EKzl+okPnWEQItO6/+pH0Ie/63lxFINWyVJVSABB0U/K1o3+DE5pl8Mf
BxK84mtVTPcz2CFc2+FwjGD2itn4dR6DJLfNOf+ICbKUMu/fLBg4y4z9QiMI
LnNyc5yNGKi53C2d0QRn9np0eKxMAWjNE7NjCBqVGqU3qKaAI7M/7iQh2Li0
T7SSNQUpXL89x6UEsxLkwd9pNeAqOfL6SSFBP031ZPaABiZnv6lwKSEoyDvi
+0ubBvZ3hX68fougJCwjrD1bA5skpzfmNxA89GC3cthdA2mzOS/7+gh2BQVe
4Z2bhFQV632n1Pc3S77MFOt9h8cjuwGCvK2XEl/6TEJK8WhdyijB3h9vz3ta
T0LSUZrlPkPw0nyJYXb7BMQ1KwTFGyiqnmtuFBlNQHS6svWkG0Wh2Id/03sc
ouLpnQIPilRaZ/K+6ThEhp+t6faiePegcUCJRg3he7cX2uyjeHL1jbFNhhrE
uu/PDfhRXBlPTFOOvoLg4AXXL6Io5skflmWkjoGvA7fSpIDi7LLAau3tMAh7
Yirtb1CUZoTQ+P5hiIzsrzxQSvHi2WnRzqphSJZdkyf/TpHXotSuioah0dKs
eklB0dGkwHGiewistm6vHXtKkdWdYnHlKrCXn69d6aOodjIcGktWgfvBkdqP
XlDstp6t+1mkAv+Lhbf9hyjeE5UsfGaugtR31vUdUxQLBa+wM3MQruUn1U9M
U9RZtJiUnRiEYo/x+vVZimmJXwmqBYNwL7ZUwV/U92W03fF5bxDmtKSxZo3i
ejxVKJIHwGB9gx4U60L/qnGRDMB/wSbj2g==
       "]], LineBox[CompressedData["
1:eJwVjn001Xccx+8koZjctjzNw/b9IdWKg1OePp88xQlT7tQ4NoxSVkOeMg1L
co9lmIe5wzxk5umI497r4bqNY4VVxO93PYThXnY87nJoqWh2Xud9Xuf938so
+OtzoQosFgt39r+VTGXNc7sIav+grf/sFAPsh878XXsIJtsEBRUZM2AYUsk3
VCXo6s9b+1ydgaMKSgJ7NYJfiszE2y9psCm9KPDTIBgfkHkzeI6G0w6PBHFs
gr3mhxsjJTRwxk2Eue8THLDj8A700hCUkC5s1CboXplgZSmm4ZrWvPCpHkGt
zzIs2/g0fCNwb1k0IGizEreZ1UBDOqemRfkjgg/j57MqamnIW1NtpYwJ7lfX
q5+opqE8K7zV8RDBpM7p0sM1NDR8/Lj1iyMEPRb/9Euoo0H0+Ehb4jGC6dk3
AoX3aei9cret0IJg2XOVvgEBDRLllTaBFUHH2EZ7/k6P9Fev9qETBPkTkYs+
PTTInRva5bY7/Zmr6UVDNGzNvCtSA4Js3WjPpCkaVFMiRGaOBAuPry4vrdBw
0OCZ6LQLQd8q90LJNg2kw7wjxI3ge7WF60c1GDD3z+lIOUPQxLTq4OyHDDhs
rnWUeBHcWxTOXbFm4IJVs3iEQ3B34Mb33cEMhA4deLBxnmA+/GsTn8BAVGTM
A01/ghXP/7ns8SMDd+utf/cI2vlUcaNpDwPGgaZB9SEE1dLNfG/PMSDW1FFQ
DyNIn/xpnqUkAXncllP/NYKv1U2kRm4S4Dh2PzqbSND87YSpeFgCy+v8sKYk
glvV5UpdWxJIq6pSYd8i2Hm9NINLhqFlX8YZmktQh2Omah89DHrDZ/t9Cwgu
zIzl2+iOAJ/rFCHkEVTIvbQQ4DoCXnZW+7VKCHKTE9RZUSOQXKblM3qP4NOF
ycGKvhGQhf8l8W8iGJrBya5LHoU61tXJwCcEjdUH+YWvxqDPp+JN9EkKD7no
PGlInYKm2zNjP9tReP64OdPMmwKe0Ki1CyhkxXiT6vtTcEW3NEbDlcK8t0tj
AeNToCItWqk9R2Hn7hHuksU0uEXlT82EU9jFs3zhMz4Nf2Rxu71LKDTyHAqr
1ZdCXVdPeVwZhcI6fuZeCynkru9JKblH4cTf38p9XKQQciHNfqmGQn39X44V
h0tB0fCW4I6QwqoJ4VcaQik4NiT+Jh6gsPITkXaMuwzMptvTZocoVJL3x37q
LwNN9uuQfcMUGtDOgx9clcFM7A0jvwkKS3tSii9mySDFIZa3MU9hhannpVFG
BmER/Hi9ZQp1ItJyXs3JwLt83ddJTuF3ETxFxZcyMFS6zs5+QaFjnp68X3sW
lE80rQo3KbQuKEjNMZsF+eXV/sk3FN5M3cyzt50Fhe13dqDQVSGDb3tqFv4D
U0zkjA==
       "]], LineBox[CompressedData["
1:eJwVUXlM03ccpVQJQWEuHMaAHWTs+0XmcAjIoePzmSMcigIqpBMyDkGxMEFG
OOU+BOvAweg8Ni/cANHVEWECogUnQxzDgS01gKPs94UiBAZya2FdXl5eXvL+
eC/PKiLuQJSujo7OLi3/V1lX3NmtfIIWa+XHC4MZOJrguu/0CH6oGT/ZJmJQ
fXjDGZ4BwdqQx84OKQwsrg3pxxoSFMuadF7lMSgdvXNasYGgGoIyFr5moGuX
o/epCcEiqdufMRIGSYkBBbUbCTZfGy4K+oHBqyarNWbmBN1znO+3X2fwBW8m
N1tAMOsd3bnOnxj0eLXxxq0IJpQ77T5Zw8CzpCw78AOCN9Rmrr/fZND0PGL1
oQ1BQTUuvdD6j8wdMm23EnQqLPi4QZu/Gs7XfLuNYIpBnSC6ioFJdW/66naC
prftLrypZFA0Wbl8fAfBi0fzjE5dYfDWMTH1uStBn7qW4tkLDOLTPRbdPyHY
utxYH1fOgGs1Sa5BgsfCA4YWxAyE+mzO2IOgsiNWI9Huf7q/PjHTi6Axf6Um
KI2Be0XBa/UegqK3f9thPIO6/sCEg/sJTtRfzguJYnAxej7OJpDgudrIWb99
DIyk7ZNlQoL6lg+ynZFB7pzkS00wQZtmcVvCdgaiXOeYngiCY/oVu3VNGbh+
n3L0VDzBdizc4t3Lwa1hbzbyFcHVp6UeZa0cWG7ZFBmQTHBb76b8KCkH+g2N
4SSTIL8odK6lmANl93LIMzHBQzszCp64cpDEzzhoXUVwxTXvboD4H6gT5eAf
gwRjG7wyX68fBseIsA6iImhgf860fVYFDZ+Dfw6n/XOk8GbpgAoavTWhO8YJ
LqR6Co1uqUBGUrOuLhLcJyyx5/aooGs4/kGiMUVpheLfjcVDoD4ctmuzD8XN
oz2SFYuXIDoAvyX7UrTON5cPTg7ChI/At8eP4u2l9/JHZYMw5TIQfDqIotVE
VEFG1CDMmwnTp49QbBWuGj65MwD8Xr+mx5kU5+Lth4/594NgL7icuEvxl7Qi
27MNSphsjdGU/EpRbGzWfeQbJTx0Od8mbaLY6KbqFMUqIYxM+07LKJ73VHF6
7yvhOq8yPLGLYoDEkksu64OElG5S8Yzi1FpO0nmiDz6bejNe30vxxk7eZd+9
fcANHEpaeEGx6pE66+WaPqD39MRpI9p+ST7rXdIUsGjn4H9pjKIqsnaML1RA
x4+hpvcnKP5cN31pxUkBovJ7VzQzFGVZ81bZM3JwM2CRgnmK9v0tj/T+ksO6
nHdtYYliWaBE0SyVg+4KTwuKhjbW7tEZcvgPbyPJuQ==
       "]], LineBox[CompressedData["
1:eJwVUQs01HkYnSG7QxOTsixSWW2//6IoO4qO79MkjzXaEMumNtOORxapNrZJ
pil5hK2w7GkX1bKSSqvMUpTtoXRY+f+HGI8xM5WIrdNraO1O5zvf+c495557
7nfv4uik4G8NWCyWj37fX4m2OK3CgKBCLCg1CGJAuPkvr1Yjgh53tsYluTJg
1z1pqOYQHMx+VKi1ZGDC3/auIZfgmsChkAA2A83X/fIdzAh23Rmqkz2jocB9
T4iPOcEofuWRVCUN35yvsBJbECzgaHfzOmhwWdIxkGlF8MlOr76VrTSwTk6d
qrIhGBqR2N0up6HLfGlsmx3BMf8K19Y6Gk5lhziPLiYYwHmzh11LQwor44Xx
EoIJkuX3d5+lQbD3XMNnhGDJ2Qwjjh7Pn+iVfOFIULS/8ERVDQ2a7UZrE5YR
vOlaK8MLNFzud/0wz5XgXv5k2vV6GjKDt9yvdSN4KrrznMVVGsLu5hzrcCfY
EnNmeNktGpZiQ9ikB8E5eyJF0500vL2ituF5EWya8eXs0P/X5sxTuXgTtKy1
d0h8SkPpmTWVG9cRnN43L/uVjoZ4m7gdKb4EbT8ePfjChAGP40UuJwIIlpXE
dIctYMDEuPXVH0KCvF/rz8/X591/YKKR/pLgRbuhBrv1DEi+8/X5KJzghGXG
a/UuBgI1u0zcIwnO7e5LzzzKwIKvyzvDowiGbCijBZX6Pvx0EaUiPV/C+1Ol
ZCC/ZcnCRjFBtmfjiXM6BrbygzV9cQSFMkGH2FIBLIeaRNtkgn93vqyWblKA
4L/NsjIJweHee/zAfgWU51iPGmYQ7M8vkB9l98A7i96gWBnBbSuOVB0jPXDF
KcTaNYdgvPL++I3UHiCR/nWtPxFc696V1ryoF7iXPx/SXiJYmGT/0C3rIdDx
pp5OowSXP6ojATlKcHndXv7juN7faukzUZMS8qTZH7yaJOhn9sTh8LgS1pfM
enDttb6PdTe5D4IGQH5rKnbDLAqtp5wm/eYNwslFj4tTFlLYtt9kvKR0CLYr
Wl7IN1EYodvEa/FVAU91r0j9FYUGpy9uWx2lgqYxZpXpZgozZ30qKUtRgTl7
PF0UTWFOqk7j/IsKWhytZpsm6fV/3+0Z+FwF1tLkT0RZFJJqndfWohG4nbvv
dl4uhYdlA6IfqkdgZ3FmnDxfjwsbHdKvjUBbzckLc4oo9Osy4oJ2BL5XtHnK
Kyg87q8bPr1SDV2Oi0PnNFEoi5AJxtrVIOE7vXFvpjDZ7NiKI4NqIN7uP0ff
oJAjkfeaPFdDephwuOEOheEOnuvvWmjASZqWEE1TeLXRsN1+iwZ6cw+Z5fVQ
uCqrKf9dkgZkxQWXGvooLK8stGuWaqCv5re3XBWFQu2B62/PaCBL0XWo4RmF
Y7lppsKnGnBTKZeO/EOh7dQ1Z/G0BobGHt/jvqRwbtjG+BiuFvjsGV70FIXi
yEUp9su0oJptXH/0Xwp9RkIjlV5aYM+8HwoFUfYTPt5a+B/ADgGl
       "]], LineBox[CompressedData["
1:eJwVkn8s3HcYx0+lQ0dr1XaoltstxedjhtX5MfM8ZIapKUJVVnXNbH6ftuKG
TtfdHFLMnfj9ozUV1tlKylANnbJVp0PUnQibq/u4Y3R0hgjbvsuTJ0/eeZ4/
nlfy4l8Qh8Xt4fF4wPX/051vva3WJxgeMffuXAyDeUrqjA0IviPzT+hMZlAs
dEW3fQSx3PsvvUwGnj44LzIh+GtmW+WElAELCpIVmhK89sqzBrciBiWRkfZd
ZgTvBD5Z9ixj4CUSjaiPENzRv7C6WMNAm5QsNrYk6Nj4Xf/pBgaKDMlBt2ME
P3yxaJzdxMD72hedIhuCQ8J0h/QWBptetaIrAoI2oU7f4m0GbVudJhUnCB7o
/OryDpcTO0Z72u0JtozrPNu5LEhbjBtxIPixwWpC/DcMZqj+Qe2b3L3LXmva
zKBca9Wn9xZBPYXYac8tBiGNwkQrIcGZynzHjRsMDM+fPuLmQTCPr4w7wP07
YJk4EOpFMLD0kDqC48lWSlOTgWCryDlpvJjBSUWdZZ4vt08WygvyGDwP7vqp
wY/gxdsnbuVeZdBsNH7pfgDB9oqReyMZDGKHlo6rggj6/px1Ny6FwYTXcYlx
GEEYNuxojmJQuOUmsI0gOCXwTTkXzOC9jtBRnyiCpY3nUnN8GHTTXFtJDEEP
a3rdwo5BveWySp1IcNOzzyj4Tw2cUe79cieF4HJxpPvm7xowVVg7vXqR43M6
3Csc04DUKDz/lITgPV1jf94dDcRv9bh3SQlWr9Ub6hI0wO+Y0IzLCJbJbR06
zmhgWrxSslxAcPdRqZ3QTwPBWptFfgnnR8u4IsFaAy7KvKrCWoJVpCl2cWwe
du9GbIs6CZ73exE1QeZBIV7rNdZyvpiFGLg8VoMKag2TlghGy9WJT9vVYGXq
HzG8wvmRepZeqlJDc1vt89x1gp2N4d1N8Wq4v+bP/1ePYpXupWozAzUsXK6X
rVlRnIg0dj3sNweenwaFKsMoVnv7BAxUzMLVgI26k5EUbR48Lv8jYRYGzRuW
FGcp/p3K2+/rNQshPRvSkFiKZabD0ZnqGfhou+GHRykU59/Q1QocZ6D4ytbR
3nyKMZMeNTNj0/Ds86aFG30US/0Lioj3FGSM1aUN/kgxdKOxIs1iCvbZlG/r
BikKinTZC+sqcOmX7Xf5heKKq2RM1KoC6e4nwkEVRclNwfHyYyowD459oJum
GJu0nhO9rYTW2qj3TX6jaMeX53ygUsLTtwNjIjUU8w/lmg/JlfB6FpHpVjme
6Fz5kqESuodfMzVZp3h9Lm3UXjsJpyyOVjtvUhQ5P+RVDk1CevfL32ftUvSu
kT/hSSfh5j96XFH82i/sofizSfgPfS/TVg==
       "]], LineBox[CompressedData["
1:eJwVjn001Xccx106bELi1k47Tod5rL7f66lZIp8PYosWkXG0Up4T15GcHXqg
5tkOtaWUyxjFJA5GyFTuhDZi+/0uibt7uddNHjuZx8nu/nif93mf1/uPl1Fw
rE+YqoqKiosy/7fA/9+nQjWCPuvhDT6uLFhVLHi+Vie46cCqxa/mLHQuTrNa
mgRnm+0P8bawEOguD7LWJljZuLw/Z4WB2fzRST9dglckFqstEwxclbPxSfoE
pcOnjpaKGNj+ad968XaCh5Zu/GXRw0BV6rMM4Q6CzHcqon3tDDgx7VtfGxCc
vuQU1drIwJ/GDwu1DAly4/ICbtUyEB5fa2ptTJDyD3/cep+B1Y6KWj8zgibn
UxntKgZy9Ursk3Yp+Quhz2Xl/iS4QFhMCNYPqqkuVzPQVHftS6Elwbf/PJ2K
qGPAg5M1qLAh+OCuY92jhwyIva+c1rIjGBvJpksfM3CuJHHKyp7gQvxNy26l
r8Z8XIKfI0Ezg1fLJ1kGBBC1kQgEm0d2NOWPMWCVF5xV7ELQf6Ov7eu3DPwm
DtQXuhEcfJcuKeewEMDzLVJ8QfCgh0ZskD4L05c8zbUOEwyOzyeXzVhI6XWt
s/JS+p8M9H63n4XK6L2diX4EE6Ka+u9HsODYRryKAwhGG3Efscks9G82fdlx
nGBMeIuh8W0WVqq2zWwOVvIicc9KHwsek4vcYj7B7JrhzlB3EYj3zRV3xBHU
2Zq9mhAugnOZCgvFeYL3+NybX2WI4I75kKPVBYLODxr0gn8XwVRYS2hHBkFe
qyKk6fggaD13ydudQ5BwT6mnpQ4C4f3R8n0uQcf7dtdWHwxC9KJYJySfoHDg
A5+HqkMwnb6pRa2M4LFv4+x+qFfuCi9tt3aCuXk64fmmwzA7KW/sWiA44eGj
ctZmFHSOxEoslwmuZE6UdYeMAq9+WbNgjeCSUP2Ncf4o8JM2n4pUpfjYRfB3
99IozGpaa36oS5E/vbMys00Mc3sunvTYQzFgLmdc3UgC8zF6Gr2nKV43sLXC
21IIOjrJXwulOOLEqKXVSKFv7xPRrkiKRu7ikF+EUqhei7mXzqe4xYHLDMxI
ITKrxw0vUMwxSEjgOI+BpDwlteEGxYi0UAft8THwyvSflt6i+E3hvKtscQza
z/KO6RZS5HIMj5RpjoPAZsQ4ppSiAEo+emk9DgFPPhOa1VD07HZqNkoehxev
Zjl3uih6Zf0ctnObDJwed57pfk4xSBzSGGsug+qfBAOLvRSvjqmnVtrLIPuM
R6kvo/ybQHX/CRm4L91FbSlFTWFB51q5DBqHL1Y6yCjGRLWUZjXJwKTdVzdK
QXF30QubjS4ZqKZxJM9mKC4PCX8sfSODdr0TySmrFG2rbVU7eXKgi7aKmnWK
cuvM0esgh8AgznvOe4qR2w54f+4sh/8AXqb13w==
       "]], LineBox[CompressedData["
1:eJwVkmlQ1HUcxonD5bJEaN0QSEJCQX9/CFjLwO+3QA4lvFiExlSOXWm4BVFo
YSbuQY5wkcMAOSRgFbxmlDsInB0SDXVhFTmWZX8mGCBXSBxFL555XjwvPs8z
85j6hx/lq6qoqOC6/ned1tF7OuoE26Cxq/wUhbiyBpO9LIJTbq3dkaEUxpNy
UoO0CZrUC3j3Yin4nBFM5W8keC5lj1t8MgXJAUfvB5sInuXY6UuzKHCJQduc
PsGLUYebJZcpVOm9Mf9kC8ESdudgYDEFg4WOrMOGBFl5jvX3yykkPS9cSDAm
uDyjo95TRWG2Ofy7um0EFZe2HquroeB31eXBSzOCRqcm7grEFHoTjXdrWxD8
dOYkVb1OAQTzeZ9bEvQOzziUuZ7Xuz9cEewm+GOP14aNtRSshm+FplgTlHbk
3Sn5hULN2fzhSluCBdesHb6upGDOEh76jUswveuxs9pVChU/+7XLvyCYtBiw
c7yIwsfWrjb/OhDcqnBRXxFRKO7aVWGMBKMP2t50Wt/L8d2s7+BE8I9FxweS
FAqXJxeTvnUhGHi+8VpOPIXNiUPzF9wJHg7VjayIppDN7uQXeBAsr4s1YAVT
SIdsV+lRgqfLPGLkPAoa0qiGWR7B4Mbef/wOUEgM8t2p50uQKEao5z4Kwtzt
Op6nCN45s8xL3E5hyVxbGOJP0FlzgCNlU4hpmv4rg09waa21vVqTQsRY02NJ
8Dq/Zs1rfEIJAfZHLn11gWBVz09NJ8RKkHdz1U7/QHBDWz3LpUgJJ04aRSck
EOTfeh3Yn6YE77Q/ec3JBFu2mdqtBCjhwIv4j+xzCWaUDIV0cZQgCQ3IOJZH
cPQJ+9whDSU4q7ovRxYQ7Jf7cktnxmCflcFQfQnB1eEtJqLuMbCJF5ftEK//
JZtVY3l+DDimMgujToIG0s4u14cKeBVkzVVbWO9zu+y1IX8UpvWqXfnvCEbJ
BJ6FHqPwrsnYV7JMUG6fM8e2GwWtjTrCi6oMOq1+aWSsNgq7btMO/U0MhqVW
scLK5RC1dOWb7VYM7r0yFaLbPgIqGRr8/X4Myi3ezyiUDoKWrTCmOpDBp8Wa
q7zqQdg8OJumFcTg9wtS6hQ3CGZELn4UxmBgvkPQ3W2D4PK06S1PyGAsOZkz
Hf4SsgwjhIICBq0+0Du4hzMAhtcHRGmPGGxIcpNU5crg7LNSxc1eBltEY08q
Q2XQvexv8/wZgxHpPR8+dZfBBY83j3cMMBhQX2vyq6oMZJPLWr+/YtA9zqfs
RUw/EHa7z+w4g7UT5dPHvfohdV9yteEkg76ZZF7js37g5ujuD55j8IZFZsvb
yT7Ivt8rEv3NoNmRco/dPX1AR/IUzUsMdmCpZZG4Dy5Wla29t8Zg643jHRHx
ffAfrMrgJg==
       "]], LineBox[CompressedData["
1:eJwVUntU0wUUnmMkikcQEwXGeBxZmhMvCR0QOvdKijQ0aQiilkwspmE47DQf
Y5QxDgwGIeL7oDYjkAPIEQRJUaoTD3WQ+vvNMR7GNgrJ5KEGJlK//rjnO985
9373O9+9fsl7ZZ/weTwecfU/qqqUitMzgISR47kF0SwaWu4VBjoAfe8afyJG
wmInE9zwkwDo1p4dHwnns/jP0PG+hNeALvjHqu1TDIpfTQr+nAnUuvlcqu4R
g7J52yRfzgLSh+zOGDMzmBnQHDffGcg780m7w20GL4b5qMvnAG1+P25lxU0G
mQ2HDeFzgQZq9NvbGhjkJds6ulyAtPGaCmktgxLV2rGd8zgeSYuFVQwm5pUv
mnQDivvlXIm4kkHt2Vmkfx3ozvHGlHiO115OVfi6A2U1tlSVcP29rcbC+oVA
I0ZHj7ucnlPPioZoD6B9HdOTE9y+4JEjfb2eQAmnimHiBoNyh2eCdCHQvU5N
SHM7g/qFCRJHEdDMOX2zwxgGry67GnfKB+j3JZaIrQMM2tFTvdwPyI+n7nUd
ZdB1U4bhR38g6cMi9QYei4oMGnsUAHRUdj/VO4DF4iLDosw3gELHr60uCWPx
xncCclsK5Hl0rUfiRhbdje2FqyRAS3wCq4ozWYwceLOhcznQe10j20dPsJj2
XN+XvAIIZpe93HWZxVbvDyT5bwHx5ZvFmmEWx4Pq4nyCgWQH5jbynUwoilqg
rgvh/PMPBe0Xm/CLtO6OnlCgJCqoFqSYcPHNHQoJAlnzc55ffGLCLPk+gzEG
yKKrqOwSmfHZtPB01gYur6GI5EKpGVNK246EbQRyO1lT0Kkyo9QiPFwmA9q/
ewtd+dWMbpvakjRbgE6GL2hJ1HXj+XVC7+UKoOZ7+4MuOPVgc2DrCf3XQCX0
qrBO1I+BRuU3kVqglaEGUUBsP55P9cqZzAbyN4k+zT3cj9oKpepjHVDRJr8D
XvZ+XO/vFR9RxOWlkUvCKx6iZYHS7XEp0B9786OVx37DiSmPgpgmoIxD6Xfy
nKw4+jRG9+IH7l7HLLHZIisODWuyy68DOXa/+DYl2IoW84DGoQUoxE/+oDfJ
ijfqL6ZdawXKVv2dVXzFito9YbHLGO7/GyujBB/aULMzdX03C7Tmya4VW5Q2
VG0tjc55AFR2MHe4WGtDRfSM1TYLkFnsW11fZUPp4o6gMwNA1S6NZ2tf2tC1
N3G+8wg3X39wu67EjrPu57k0jQJtc5AOLC23I//WdWfFOJDy9l/vXmqy49NG
X8HPz4G8NoZ27+q34+MaGS99Auizr86IS0ftaC/TToleAA2ufFvXwB9E09Gh
Z4emgD53yTeeFA9iV57n2JJpIEOU+90doYMoX1V9ifcv0LoE33fWrB7E/wAO
T9PY
       "]], LineBox[CompressedData["
1:eJxlkX00FXYcxl2EJS+JmlbpJipZ7tfbRtn3y2i6DMk6xW5Ju4TU1STr5OWo
KBNHY26b66WQHGsWdZZ2IqG8W+WOe6/3+2teO+2sIsJuf++P5zzn88/nPOc8
3JDj/kJ1NTU1V1Xed11cwtg5DtBAvSRxKpDh3eOVzFYDSGt7V+NCOMNbocND
g5pAWX98+cb/FMNygXF/hhaQU4Fe6mwyw2sBO2U7dIAeB50PWXKJYZ5XnHT8
A6BFTZvJ5ByGOW7lT8S6QGd3j2sm5zHMcFJ07NQDIpGTwfKrDFN4+q2v9IGq
ugL/dSllmLiJHl01BMqcJ/OVNxjGrTvx0M8I6Oj18PzScoYik+LahRVAcRPZ
r+dUHL5Meq/CBOhEn8Bng4pDNHR+D1wFxPO/HWpRxjBo1qlaxxTozhCKDUsY
BvwTWXlnNZDYQCx/UcjQe1RS8c0aoPrTJ1tbfmboMdBZZrQOyGfu7vWbqv2f
STkldWZA9xOE+4ozGDq22xUd4wLpfxctup3C0KZBKFljrvLdzOZNxDPcfC/3
SstGoIdmLy/6xDB8HC2qDrIEWoh/YloUwfDI5l2dk5uA+NWfDvODGd7ImdU0
2ArkuD8K7u9iyPd+alZoDZQWdRuzXRiOq1c4wzag7ZVFYhmPoZVIINoDQG7l
Y6s7TRi2WDp+r7QFkjxt8bygzTCiT7/0pD3Qvs+t2h/NKLGcXyfP/QRo7xYj
jRe9StxqYf6FwgVo/4PG+KBcJbbJ5w5FIZAiMnCy7bwSj15+dmaBgNiSj4zH
vlVixeL5W+vdgRy8GkzBV4nWstG1Qj5QeULspFBdidsyb76a2guUHeYntT8w
gh0eqQaJ+4Amuc1Vf3uO4LF3B60MA4FmvZIaY+1G8Nfw5cG2AtV+uVuJrc4I
8txjWmMPA+naqOkIKofR9q3T1cXjQDVTPc7c+SF0ONzou/wiUExo5O78y4O4
pvi5c0Ma0DUu18P29CCqM23LU+lA+LFgy5+HBrEjlP9OkQkU1vs8zA4GMTSi
s6zsR6Dh4KW+bkUDKI7u5VAxUPpBY06yRT/OJk5VHasFuvKbd5arrxwH6/QL
uA+Aktr4c6nmcmzi8NKe1QOVDE8JNWZk+MPZE8HOTUClAf0ZPxXJ0Dp1eplW
O1D/Jr1V/tO9KMjghEpkQHvS5+NX/NKD7p0bdvspgNa+bHrbeK4HrQzdd2j0
A1UoVn5V+XUPvslKMQofAmpeKm+21uvBjBzdWvtRIIsk464G0V9Yl2fyYdtr
IGmf6/ARNyn6SPq4IdNAvknBWtrrpSiXlGydmQHqOVNl3T3fjW/yHXDjOyDR
aJIJp6YbzxXMe9bMv/83quCAuBuNChv9/RZVvrFLNROx/+f/AFh/5lk=
       "]], LineBox[CompressedData["
1:eJwVk30w1AkYxzcXaumSS+doERncpa7HuNsJPY/rkmPaoc1dr7qKkt7ctTl5
ObRSZ5ISR+7snpdd2i2Z2JN1mkbRC8rlt9aGll0rXZyrK6m23O/+eOaZZ+b7
x/N8PvMs2nFwXawFh8MJZuv/7lsWtSvVAsjVs3ZyK1+D6jJegv1MIG536vFG
ngZDy01Hqi2BNjcwya5WGuwpvyheaQ10POHXk6KnDMZUHM5lZgH9Dv5CiZ7B
ZxVBRfFcIP/e23xxF4PplZZlHFugU4IuEfcGg7ayTsXPc4D2tjZbLlQzWCIr
rF8yF6iaN6b47TKD3vKtV1vsgHxmX3qYeZFBldzz1gZ7oKL9RV3nFQx+UTX+
598fALnLjdveY+euKlVflgOQKcB5QbKSwejqNJPTh0Axbcyi1zUMjlWvnqh1
ZPMXKiMT6hlMPj/nVYgTULTYb+6dJgatFRqLAWegKl3yphfsfgWKUttDPCAr
vlfr4D0G3ZWxC2a7AtWEuhxI6WewVunrJnUD2vDS6239XwyuvPDCx98d6H5G
oyTtNYMdF5r92j2A8vcNTbfaaHDjxWNB2z2BJuKFYekuGhTVOETmegMd6wks
sQnVoMWlgU0eHwNtTNxL16M1mHdJFtP4CZDfrhVcVaIGFbX+SaalQCdf/Ts5
X6HBoctR0iB/IC8/VUUarwcP1PHOd38GZJ93slcd2IPmOtPlPXygbnPloHZL
DzqqDrcVBgCt0K0ayJH2oKChcHw8mOV/6IFa66vF/oatL8WrgBh9Qdx8oRb3
XPGc4bSa5fdEKnqSpMWsRtX8kFAgjp3NvPA2LTY1aQIkAqCWuzbi93f3ovc1
hxzBZiCHFsGj8CYdBn4UW9y/BUhE2csFIzqM/L5eHh8NlFKubc6Z9wCTFwuv
Z28H2vdp+87yuAfYceK0+epu1k/2lWtDjn34XaTNwWUi9p7HSUfrf+xHtYGz
3i4XKNMnbGPWWj3eDYjYITkFBO7ndNbJejQWSBOWnAbqTCiQHJbr0XbNytzQ
s0BZj90M3Gk9blOmtGWcA3qxf84fad8M4kzRJP+pDCgirDjjp5lDuNZyjHf/
KlBI7f66IxEGrB4VmzOvsb7int3k7zKgRYdz3/IWIO/U8PaBFANeyQ8vPtPK
+vky6Xmv3IDubkr7yA4gedmJ+3lvDDi5It66SwcUloqnRqVGjHCxGEnvAyod
3/L1VJ0RlTNKbiwbADLHrSscu2nEb2/dzswbBNo0ixN7dMKId6J8zIJHQNOx
Eo+dQcMoSRj9p/M50EOmpNTcPYxTwox7aZNAv5wVN6wfGUbh5441vlNAIzH5
ZWemhnHWuzV7c9+w+aVJi9ULTbhjSP9V0Fv2X5NkD2VLTdh84wfv8Xcsz/R8
ZSKZ0FZnxeFMA1VuKOYGBZvwPyqn7Xo=
       "]], LineBox[CompressedData["
1:eJwVk3801XcYx+/cGoltKFSkRJLKbs/6nfs86lS0umTUUObHxGhujWxrrK5O
VFKpST9EYRqixSwJ25Xj15UsrosI1/0s0Z2f1SXTvvvjfZ7z/u95v8/rvdBf
7BaoxePxHDn9f7+Jv8V2aAHdehn+xsafYX0YVk7ygTZ3/mH77UGGNm6K9NvT
gX4SDK/Xj2YYs0os2asNtMQzMGkijmGHqbav3gygIosiE5dEhmsmU4WlukAt
gZvmzL3C8ELXavMDekA/82+EhaQxfFnR8HbeB0ACI/nXokyG27L2t8s+BHKU
R4003WKYfmqq+AcDIJ5LpZ9ODsPJA5eS7YyAmHRrvobze1xXRD6dBaQxrPO+
y/kCqHKPNwZ6bdURI8xmqGfiAxtMgUR2bs25WQyDJl4ZDMwBUg/npEzLYFjR
mTB0dR7QSb5H9WepDM2k1o+3mwP1pLT1ZFxmGJlZljcxHyjeVT3/HZfnrziP
MzkLgBrtgzzFpxkuC1WHeFkCyUUWJlMShrGiE866VkAJEUXxv33HsFtgvqTE
GuhgEV27FsZww+yi90NsgCQP+joeBDAceqp6WLsUyF4t6an5lOHIj4uke5cB
jRuPR2cjw7GF/uWDy4H6jgzoalYy1AR1Fc8WAJXfP+H52oQhb6wtz28Nl9dW
usugQ4Vayaa5Y2uBwu6c3DcpU+G09Xt+iVsPpDqece7oAxXqHGtOz3MAqnJJ
FfteUeFHeo+TxzcDzV8UFaq1S4WGd/STzmwBuvp33czFQhXOcttxwWIbUMqT
e+5adio0vVx7Zst2oICmu6UjfBUusKqUJLoCZUe3lugX9uLHG++H2u4D0tk7
qMnX6cWVXW+CS304fqSHo6pGlPhJzOr9Lr5AtV5h2RUdSlxbU+h7OABIWLXO
6NCvSiT3fA/pV0B4VPlP+24luh7IQM9I7t9Uyzm7b/agOCXB6NQ5oO8jnMp7
VnVj/XtWg9sTge5IctY9NuvGpUEldXoXgRYcMx+X8btRJXguOX8JqCx/wFOd
0YWfV9NQ8nWOv+E+v53PnuGmkdH6rFygGqebC7W9O9HYySu2shpInGfZe/9I
O4bnDfnF1nK83fZuPS9qx0bDOAcnGVDEzrQZ6ZbtGN9ZOCZrALJudjSOkLUh
L1w/oEkONGCfJOqwaMP+63+ishfIEG0FrU0K3MbfMy+Tcf3i9MYvcxWYGax+
HfgcKNNhpnD5cQV+AXPzX/RzfSee9DkECmyuCTcbHgYK8i7pq7zUgoIVupqC
UaBX92a7rjjYgmcv3miKeAVk1p/84olzCzr7PDqt0QC1hpbBo3/lmPUwYH/J
BFBxnUOaZascp9lOOEZNAr3d2FhQUCBHv7PnzYVTQL/rKrZGJ8ixfHTx+Lt3
3P4aWgUxwXL8D+Qf86A=
       "]]}, {}}, {{}, {}, {}}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{"DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None},
  PlotRange->{{0, 5.5}, {0, 6}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 0}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.6389178041178966`*^9},ExpressionUUID->"84fbca19-cb10-4f74-ad2a-\
0ead177b87ef"]
}, Open  ]],

Cell["\<\
There are many uses and reasons for using Laplace Transforms, indeed, often \
engineers live in the frequency domain of the transform world, i.e. s, \
without returning to the time domain world of t, for they learn to \"see\" \
and understand in the frequency world and, as we saw, it is algebra and not \
calculus - thus making it more \[OpenCurlyDoubleQuote]elementary.\
\[CloseCurlyDoubleQuote]\
\>", "Subsubsection",
 CellChangeTimes->{{3.6389610639096594`*^9, 3.6389611517397823`*^9}, {
   3.6389617291805906`*^9, 3.638961759660633*^9}, 
   3.6425922385839305`*^9},ExpressionUUID->"daae413d-3b99-46b4-baaf-\
7d1b495f2fc4"]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1356., 916.8},
WindowMargins->{{Automatic, 0}, {Automatic, 0}},
PrintingCopies->1,
PrintingPageRange->{32000, 32000},
PrintingOptions->{"Magnification"->1.,
"PaperOrientation"->"Portrait",
"PaperSize"->{612, 792},
"PrintCellBrackets"->False,
"PrintMultipleHorizontalPages"->False,
"PrintRegistrationMarks"->True,
"PrintingMargins"->{{54, 54}, {72, 72}}},
Magnification->1.5,
FrontEndVersion->"12.3 for Microsoft Windows (64-bit) (July 9, 2021)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"1765acae-899d-4f5e-ae1b-1bf1eb129c36"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "Info3638943105-3626895"->{
  Cell[8758, 272, 1466, 26, 133, "Print",ExpressionUUID->"8d22236f-2dd3-46b2-a9c8-45f9ee3c5483",
   CellTags->"Info3638943105-3626895"],
  Cell[10227, 300, 1350, 36, 234, "Print",ExpressionUUID->"f627e12c-1262-4175-8969-65c022521cb1",
   CellTags->"Info3638943105-3626895"]},
 "Info3638943109-3626895"->{
  Cell[12044, 355, 1504, 26, 199, "Print",ExpressionUUID->"263ab8fe-c83e-4bce-93b5-a0f08284663f",
   CellTags->"Info3638943109-3626895"],
  Cell[13551, 383, 600, 17, 72, "Print",ExpressionUUID->"49f86260-a2bc-4b56-8e88-18f1e8c6aa53",
   CellTags->"Info3638943109-3626895"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"Info3638943105-3626895", 420820, 9606},
 {"Info3638943109-3626895", 421125, 9611}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 347, 5, 100, "Section",ExpressionUUID->"6db1f829-760f-4f9b-8fb3-5bfa94c6e5d4"],
Cell[929, 29, 422, 9, 144, "Subsubsection",ExpressionUUID->"cca66ae4-e291-4ab0-83e6-312284df32f0"],
Cell[1354, 40, 387, 8, 91, "Subsubsection",ExpressionUUID->"70ddb0e3-cf41-4ceb-9f74-f3308c72efbc"],
Cell[CellGroupData[{
Cell[1766, 52, 240, 5, 53, "Subsubsection",ExpressionUUID->"d44cc210-1268-4bc3-ba45-9e2fb16cfae4"],
Cell[2009, 59, 1067, 33, 72, "Text",ExpressionUUID->"a1e808e2-2cb3-4545-a28e-34774f1c82b5"],
Cell[3079, 94, 544, 10, 121, "Text",ExpressionUUID->"b00ea4f6-1558-411f-8358-a99cd070a015"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3660, 109, 251, 4, 105, "Subsubsection",ExpressionUUID->"0ae9dd11-2e82-4df9-b2ec-9306a2f9c0ff"],
Cell[CellGroupData[{
Cell[3936, 117, 347, 10, 42, "Input",ExpressionUUID->"44f53d3d-40aa-44b8-b6aa-8b1b42c8f3e4"],
Cell[4286, 129, 279, 8, 68, "Output",ExpressionUUID->"bf0bb856-86f0-42b5-8000-217463db1b47"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4602, 142, 370, 11, 42, "Input",ExpressionUUID->"e7bdedd5-5967-462e-bd75-0ed9e582f1d8"],
Cell[4975, 155, 329, 10, 66, "Output",ExpressionUUID->"53488181-2519-4bb7-95e9-50570e79e016"]
}, Open  ]],
Cell[5319, 168, 344, 7, 87, "Text",ExpressionUUID->"48cd4155-5656-4ab2-b63c-1e401dde3978"],
Cell[5666, 177, 482, 13, 87, "Text",ExpressionUUID->"055468d3-f490-4a52-981a-c67af1164b49"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6185, 195, 885, 19, 221, "Subsubsection",ExpressionUUID->"e7794b55-fd39-4461-a78f-69349585951e"],
Cell[CellGroupData[{
Cell[7095, 218, 417, 12, 67, "Input",ExpressionUUID->"161a1b1a-6c1f-482a-b90c-d74d5e121152"],
Cell[7515, 232, 419, 12, 105, "Output",ExpressionUUID->"a71c003a-48d4-49f6-a161-4c5692f16d14"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[7983, 250, 610, 13, 304, "Subsection",ExpressionUUID->"85f6ada5-8c51-4373-8115-0ff0706610a0"],
Cell[CellGroupData[{
Cell[8618, 267, 115, 1, 67, "Input",ExpressionUUID->"8f5b95a7-dd27-46c7-a7ef-060144d1fbfb"],
Cell[CellGroupData[{
Cell[8758, 272, 1466, 26, 133, "Print",ExpressionUUID->"8d22236f-2dd3-46b2-a9c8-45f9ee3c5483",
 CellTags->"Info3638943105-3626895"],
Cell[10227, 300, 1350, 36, 234, "Print",ExpressionUUID->"f627e12c-1262-4175-8969-65c022521cb1",
 CellTags->"Info3638943105-3626895"]
}, Open  ]]
}, Open  ]],
Cell[11604, 340, 268, 6, 100, "Text",ExpressionUUID->"74935ead-8299-49d6-b082-00bbef315ae2"],
Cell[CellGroupData[{
Cell[11897, 350, 122, 1, 100, "Input",ExpressionUUID->"a171f6a1-b6ad-419f-8e93-53a1fd7357be"],
Cell[CellGroupData[{
Cell[12044, 355, 1504, 26, 199, "Print",ExpressionUUID->"263ab8fe-c83e-4bce-93b5-a0f08284663f",
 CellTags->"Info3638943109-3626895"],
Cell[13551, 383, 600, 17, 72, "Print",ExpressionUUID->"49f86260-a2bc-4b56-8e88-18f1e8c6aa53",
 CellTags->"Info3638943109-3626895"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[14212, 407, 378, 7, 261, "Subsection",ExpressionUUID->"bf2f55cc-e6ab-42fb-a255-deda48685ad5"],
Cell[CellGroupData[{
Cell[14615, 418, 159, 3, 100, "Input",ExpressionUUID->"d1f2445a-d1ed-4425-87a2-0a54bdb8f684"],
Cell[14777, 423, 150, 4, 145, "Output",ExpressionUUID->"b5fbcc7d-81d3-4883-b016-69dd07d32eb9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[14964, 432, 159, 3, 100, "Input",ExpressionUUID->"6cb3ce9e-c308-4fbc-9b6d-e359950e1062"],
Cell[15126, 437, 174, 5, 150, "Output",ExpressionUUID->"da945657-e3c3-44d7-8b30-c7072f2d9029"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15337, 447, 183, 4, 100, "Input",ExpressionUUID->"9b0bcb35-ee1f-4a4a-bae6-d5b7d44c0625"],
Cell[15523, 453, 176, 5, 150, "Output",ExpressionUUID->"262701f9-b79d-4afd-b827-9e41a387dcf8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15736, 463, 183, 4, 100, "Input",ExpressionUUID->"040a1974-4c4c-4098-9b2c-c8931419c610"],
Cell[15922, 469, 176, 5, 150, "Output",ExpressionUUID->"0b26ed12-d373-4ef5-a1ae-6b04801fcd11"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16135, 479, 183, 4, 100, "Input",ExpressionUUID->"529e76ae-d5ef-4816-bbf2-c6dedf4ca05a"],
Cell[16321, 485, 177, 5, 150, "Output",ExpressionUUID->"cb3bca3a-b2c1-41ac-bec3-4dd654255a17"]
}, Open  ]],
Cell[16513, 493, 572, 13, 166, "Text",ExpressionUUID->"dfe081a5-3439-4147-8e84-d279eec24516"],
Cell[CellGroupData[{
Cell[17110, 510, 95, 0, 130, "Subsubsection",ExpressionUUID->"9e6f242e-ea13-4f89-83b4-ff4684a89cf5"],
Cell[CellGroupData[{
Cell[17230, 514, 210, 5, 100, "Input",ExpressionUUID->"2ada46ef-220c-4cd8-ab9a-255fa7e1ff02"],
Cell[17443, 521, 200, 6, 150, "Output",ExpressionUUID->"7f087cf1-9218-45a5-966a-98ca7778cb40"]
}, Open  ]],
Cell[CellGroupData[{
Cell[17680, 532, 252, 6, 100, "Input",ExpressionUUID->"6a351876-69e4-4f57-8856-d75db2e77b30"],
Cell[17935, 540, 199, 6, 150, "Output",ExpressionUUID->"ef7d4507-fd51-4e25-9bb8-2c2023a46cfa"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18171, 551, 210, 5, 100, "Input",ExpressionUUID->"2c630e84-83c4-45b5-95d9-a45287616455"],
Cell[18384, 558, 198, 6, 141, "Output",ExpressionUUID->"ffcbb7e4-a2cc-43ee-8285-bb96ce919168"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18619, 569, 257, 7, 100, "Input",ExpressionUUID->"6035ad3c-2d06-4329-b43a-3ecdca126fa8"],
Cell[18879, 578, 201, 6, 141, "Output",ExpressionUUID->"b0816baf-095a-4fc3-baa5-de30254ac7fc"]
}, Open  ]],
Cell[19095, 587, 165, 3, 100, "Text",ExpressionUUID->"b582a886-a89d-44b0-969c-b9be7677b6bb"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19297, 595, 112, 0, 130, "Subsubsection",ExpressionUUID->"78e0c584-c19c-4b25-a861-d474a84b67b6"],
Cell[CellGroupData[{
Cell[19434, 599, 215, 5, 100, "Input",ExpressionUUID->"7a8d4a38-8b65-47d8-add6-70fdcf5c7ae1"],
Cell[19652, 606, 192, 6, 145, "Output",ExpressionUUID->"1fc95521-7a0a-477a-86cc-388fb8b7d691"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19881, 617, 215, 5, 100, "Input",ExpressionUUID->"df54b643-3881-4f5c-a6bc-281e837e1544"],
Cell[20099, 624, 194, 6, 145, "Output",ExpressionUUID->"58a4cb73-d3a9-4288-b01f-14de8dfcb661"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20330, 635, 237, 6, 100, "Input",ExpressionUUID->"51ce29de-b474-4356-a572-2edde4e0a9f5"],
Cell[20570, 643, 173, 5, 145, "Output",ExpressionUUID->"a689496e-e3e5-40d6-8be8-46899086a403"]
}, Open  ]],
Cell[20758, 651, 425, 11, 105, "Text",ExpressionUUID->"0a692126-0990-4f15-a5e1-f30bce709605"]
}, Open  ]],
Cell[CellGroupData[{
Cell[21220, 667, 440, 8, 225, "Subsubsection",ExpressionUUID->"eb6b564f-6fb5-4192-847f-42e3674789a7"],
Cell[21663, 677, 73811, 1214, 1039, "Input",ExpressionUUID->"fed74b4f-cc95-4cc9-ae23-e7fd322e965a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[95511, 1896, 203, 3, 130, "Subsubsection",ExpressionUUID->"37e81c8d-7e41-4fa9-9a3f-525ff3af2305"],
Cell[CellGroupData[{
Cell[95739, 1903, 299, 8, 100, "Input",ExpressionUUID->"c9b85917-a288-486a-a193-c5b42011e49b"],
Cell[96041, 1913, 271, 9, 159, "Output",ExpressionUUID->"f2587939-7bcb-4709-9490-0e463387eeea"]
}, Open  ]],
Cell[96327, 1925, 190, 3, 100, "Text",ExpressionUUID->"f306e167-3a8c-4d5c-845f-7aa746667981"],
Cell[CellGroupData[{
Cell[96542, 1932, 370, 10, 100, "Input",ExpressionUUID->"b635bec5-aedc-4a1c-8254-13f3d193bccd"],
Cell[96915, 1944, 298, 9, 159, "Output",ExpressionUUID->"76219bf9-7d26-46ef-9704-1f83815b9694"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[97262, 1959, 385, 7, 225, "Subsubsection",ExpressionUUID->"d1ccbef6-7248-46d3-9fbb-19e5f06082bf"],
Cell[CellGroupData[{
Cell[97672, 1970, 247, 6, 100, "Input",ExpressionUUID->"6411148d-de64-414f-a473-2802377b8365"],
Cell[97922, 1978, 192, 5, 103, "Output",ExpressionUUID->"ae6c06da-f92e-419d-be95-849543ea77be"]
}, Open  ]],
Cell[CellGroupData[{
Cell[98151, 1988, 372, 11, 100, "Input",ExpressionUUID->"974ca443-c479-4976-abd9-bb494f401158"],
Cell[98526, 2001, 641, 18, 145, "Output",ExpressionUUID->"56b99a47-9ae9-4748-95a6-18f5f9a0f166"]
}, Open  ]],
Cell[CellGroupData[{
Cell[99204, 2024, 215, 5, 100, "Input",ExpressionUUID->"58b21c26-2132-44ac-beb4-07f88862cde2"],
Cell[99422, 2031, 173, 4, 154, "Output",ExpressionUUID->"d0f5dd6e-2a5c-465f-ad9d-ce87fb463dfe"]
}, Open  ]],
Cell[CellGroupData[{
Cell[99632, 2040, 395, 11, 100, "Input",ExpressionUUID->"f9b7df00-8a0d-4ca9-91be-db916daaef27"],
Cell[100030, 2053, 265, 7, 103, "Output",ExpressionUUID->"4b04f7b7-ac42-4aab-aa2d-c5f5a099d427"]
}, Open  ]],
Cell[CellGroupData[{
Cell[100332, 2065, 282, 8, 100, "Input",ExpressionUUID->"eb0f87b2-5a24-4fc7-ae4d-195336ffe952"],
Cell[100617, 2075, 375, 11, 145, "Output",ExpressionUUID->"038cb112-33c6-4141-a051-1c73ef39bb31"]
}, Open  ]],
Cell[CellGroupData[{
Cell[101029, 2091, 467, 14, 100, "Input",ExpressionUUID->"26e67901-d113-4d87-bea1-72d14e39e52c"],
Cell[101499, 2107, 489, 14, 145, "Output",ExpressionUUID->"d718c105-6b74-417e-807f-33781d75af48"]
}, Open  ]],
Cell[CellGroupData[{
Cell[102025, 2126, 228, 6, 100, "Input",ExpressionUUID->"5dbf5d09-ba41-4650-b033-ca53ab2af4b8"],
Cell[102256, 2134, 7092, 128, 783, "Output",ExpressionUUID->"f2ce9b55-b177-449a-becb-3275c83f75da"]
}, Open  ]],
Cell[CellGroupData[{
Cell[109385, 2267, 392, 12, 100, "Input",ExpressionUUID->"6368fa0c-28a6-43ec-a7f8-e67a4a9a4b04"],
Cell[109780, 2281, 492, 15, 145, "Output",ExpressionUUID->"c431ba64-2249-4842-bed6-f5f33deb4c2b"]
}, Open  ]],
Cell[110287, 2299, 661, 17, 171, "Text",ExpressionUUID->"e7a7d522-be9a-4cd9-822b-5582cb5f5122"],
Cell[CellGroupData[{
Cell[110973, 2320, 442, 13, 100, "Input",ExpressionUUID->"679ec61c-c147-48c5-9952-8439e38e99b7"],
Cell[111418, 2335, 1804, 58, 262, "Output",ExpressionUUID->"6df042ea-7546-4fa9-838f-3536261a615a"]
}, Open  ]],
Cell[113237, 2396, 414, 8, 166, "Text",ExpressionUUID->"bbb197c9-1094-46a2-82c0-ce27bb3f9ff5"],
Cell[CellGroupData[{
Cell[113676, 2408, 490, 14, 100, "Input",ExpressionUUID->"2a019cc0-a469-4ff9-9cd1-029b9e1d7ec0"],
Cell[114169, 2424, 285, 8, 103, "Output",ExpressionUUID->"2ac0bed5-27a3-4861-84bc-71fed8d1bcb9"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[114503, 2438, 169, 3, 130, "Subsubsection",ExpressionUUID->"9f92c725-81d6-4cbd-83d0-66b9c2a277da"],
Cell[CellGroupData[{
Cell[114697, 2445, 188, 4, 100, "Input",ExpressionUUID->"71fd9a1a-81d3-427b-a6d9-1102a1fc375e"],
Cell[114888, 2451, 234, 6, 99, "Output",ExpressionUUID->"9adb5df8-0630-4bd3-9a79-a20b8e66f5da"]
}, Open  ]],
Cell[CellGroupData[{
Cell[115159, 2462, 208, 5, 100, "Input",ExpressionUUID->"5994784b-faf2-4334-bf71-1e56b7a42bb3"],
Cell[115370, 2469, 315, 9, 99, "Output",ExpressionUUID->"a148ef78-a3b4-4929-bc76-1b2942b14bf2"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[115734, 2484, 132, 0, 130, "Subsubsection",ExpressionUUID->"01215f39-e18b-47a5-8b32-add9ced1d5ee"],
Cell[CellGroupData[{
Cell[115891, 2488, 210, 5, 100, "Input",ExpressionUUID->"7da07e64-f3ed-4eff-b58c-e40cb24597be"],
Cell[116104, 2495, 463, 14, 103, "Output",ExpressionUUID->"8ee20853-b7f8-4b05-94c4-b27d08453ce5"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[116616, 2515, 131, 0, 130, "Subsubsection",ExpressionUUID->"6b6e1b2e-06e8-49bb-b4b2-79f7b4b43299"],
Cell[CellGroupData[{
Cell[116772, 2519, 211, 5, 100, "Input",ExpressionUUID->"56dcf9f5-1b31-4357-9776-418b3117ed6e"],
Cell[116986, 2526, 621, 19, 103, "Output",ExpressionUUID->"72c6d8b0-0ecf-4aa3-bd65-cea4c4c13ffc"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[117656, 2551, 132, 0, 130, "Subsubsection",ExpressionUUID->"e0bc6b7d-d129-41a9-8c4a-5a472cde0229"],
Cell[CellGroupData[{
Cell[117813, 2555, 212, 5, 100, "Input",ExpressionUUID->"d85283dc-784c-4b10-92a0-47ebe0876c1a"],
Cell[118028, 2562, 820, 27, 105, "Output",ExpressionUUID->"81f7c879-a27b-454e-9741-62d715775f30"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[118897, 2595, 170, 3, 130, "Subsubsection",ExpressionUUID->"e849b36f-644a-407a-86b4-502890b9b7d1"],
Cell[CellGroupData[{
Cell[119092, 2602, 431, 12, 100, "Input",ExpressionUUID->"12bf0f6f-ce4e-4537-918f-5e1b4f4967a4"],
Cell[119526, 2616, 251, 8, 99, "Output",ExpressionUUID->"6c78334b-6d8b-4dbf-97eb-175f2d881330"]
}, Open  ]],
Cell[CellGroupData[{
Cell[119814, 2629, 432, 12, 100, "Input",ExpressionUUID->"eb5adcd3-f76a-438c-b242-7f1b98cdbb7c"],
Cell[120249, 2643, 399, 13, 103, "Output",ExpressionUUID->"b16dfe92-18dc-4bd0-8012-1e684a2df33e"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[120709, 2663, 167, 3, 162, "Subsection",ExpressionUUID->"5b23ecc6-2271-4850-a8fc-f36df13350ec"],
Cell[CellGroupData[{
Cell[120901, 2670, 545, 15, 100, "Input",ExpressionUUID->"e2991b5e-b870-4d25-a029-7faea1f02e01"],
Cell[121449, 2687, 1082, 33, 213, "Output",ExpressionUUID->"28cf3ac3-dead-4c38-bd0c-f6e133f73757"]
}, Open  ]],
Cell[122546, 2723, 147, 2, 100, "Text",ExpressionUUID->"5d414aa8-c725-4683-b038-b6ac8c520acb"],
Cell[CellGroupData[{
Cell[122718, 2729, 852, 24, 168, "Input",ExpressionUUID->"90e719a5-c0ec-4e64-8e00-7129c076f15c"],
Cell[123573, 2755, 891, 29, 150, "Output",ExpressionUUID->"3cacc8b0-39c1-4983-9ef4-3d82a3284119"]
}, Open  ]],
Cell[124479, 2787, 232, 6, 100, "Text",ExpressionUUID->"47862f1b-6fd8-49fa-b207-502df4eadc9c"],
Cell[CellGroupData[{
Cell[124736, 2797, 343, 10, 100, "Input",ExpressionUUID->"f25ab540-ac28-41a7-a76e-2e8c23147929"],
Cell[125082, 2809, 1035, 33, 112, "Output",ExpressionUUID->"2d3b55c3-1ec7-45db-92a0-7bcf4201e75e"]
}, Open  ]],
Cell[126132, 2845, 1029, 21, 325, "Text",ExpressionUUID->"30624ba8-0224-4f4a-89ad-63c8c3613bd6"],
Cell[CellGroupData[{
Cell[127186, 2870, 307, 8, 100, "Input",ExpressionUUID->"77d4dbf0-bdfb-4a9b-b408-368cc76e4d32"],
Cell[127496, 2880, 10694, 313, 1531, "Output",ExpressionUUID->"b749795a-39a2-413b-8b79-449acc87f55e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[138227, 3198, 2259, 43, 1345, "Subsubsection",ExpressionUUID->"ab5e9dbc-0168-483a-bd14-c75c0fe7de12"],
Cell[140489, 3243, 547, 10, 229, "Text",ExpressionUUID->"dad35a3b-0343-4042-88a4-55d8fa56c542"],
Cell[CellGroupData[{
Cell[141061, 3257, 333, 10, 100, "Input",ExpressionUUID->"313bdd8c-5949-493b-bb8f-325651374647"],
Cell[141397, 3269, 390, 13, 168, "Output",ExpressionUUID->"dd20dcb8-4fc3-4eaf-b3bb-f9c7782f9ea0"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[141836, 3288, 335, 7, 411, "Subsubsection",ExpressionUUID->"ef2dcc1c-da5e-4250-a913-614f2c1164d1"],
Cell[142174, 3297, 228, 5, 100, "Text",ExpressionUUID->"202cf8ce-3293-4933-9764-610932d772b2"],
Cell[CellGroupData[{
Cell[142427, 3306, 1117, 32, 168, "Input",ExpressionUUID->"4a8c4a35-011d-4b6e-9278-8c5dde596620"],
Cell[143547, 3340, 590, 19, 153, "Output",ExpressionUUID->"f520bd38-5c56-42e7-a6c8-833942d908d0"]
}, Open  ]],
Cell[144152, 3362, 338, 7, 166, "Text",ExpressionUUID->"11b1110d-df84-40c1-87c7-9280d7fc2ffd"],
Cell[CellGroupData[{
Cell[144515, 3373, 980, 29, 168, "Input",ExpressionUUID->"fc1b99c3-00d8-45c7-a154-6c9c3969aae0"],
Cell[145498, 3404, 608, 21, 150, "Output",ExpressionUUID->"283f3a5f-e1b6-4730-8619-999ac034f908"]
}, Open  ]],
Cell[146121, 3428, 190, 3, 100, "Text",ExpressionUUID->"aa38070b-b120-4cc6-b0db-de46d43fb77d"],
Cell[CellGroupData[{
Cell[146336, 3435, 340, 10, 100, "Input",ExpressionUUID->"18ab9834-8b10-4082-9d10-86519daf3565"],
Cell[146679, 3447, 532, 18, 177, "Output",ExpressionUUID->"675d9a33-974c-4aa4-b62b-df48e7204fbd"]
}, Open  ]],
Cell[147226, 3468, 143, 2, 100, "Text",ExpressionUUID->"44908fec-6c4d-4ef6-a752-a3821a477462"],
Cell[CellGroupData[{
Cell[147394, 3474, 368, 10, 100, "Input",ExpressionUUID->"65fca38e-f29d-4eae-a802-93939dd305c2"],
Cell[147765, 3486, 590, 19, 153, "Output",ExpressionUUID->"04250e17-82da-46ab-a370-c29483327076"]
}, Open  ]]
}, Open  ]],
Cell[148382, 3509, 1318, 38, 328, "Subsubsection",ExpressionUUID->"7b3baec8-7bfe-40f6-ab4e-09e863ed5b1a"],
Cell[CellGroupData[{
Cell[149725, 3551, 309, 6, 199, "Subsubsection",ExpressionUUID->"032be331-318d-4290-83df-0669bb6132da"],
Cell[CellGroupData[{
Cell[150059, 3561, 1117, 32, 168, "Input",ExpressionUUID->"0276090f-0c90-4fee-8839-ed98a5805f5b"],
Cell[151179, 3595, 566, 19, 153, "Output",ExpressionUUID->"8625e98a-ffea-4553-a1f2-eb4250f141fc"]
}, Open  ]]
}, Open  ]],
Cell[151772, 3618, 632, 12, 690, "Subsubsection",ExpressionUUID->"c44a5a06-3e41-4047-b192-dca46ccd3d46"]
}, Open  ]],
Cell[CellGroupData[{
Cell[152441, 3635, 227, 5, 162, "Subsection",ExpressionUUID->"74d51bc5-cbea-4679-8230-fff4ea31cdc7"],
Cell[CellGroupData[{
Cell[152693, 3644, 149, 2, 130, "Subsubsection",ExpressionUUID->"c5208768-b0a8-4e47-ae78-27daab7c49c5"],
Cell[CellGroupData[{
Cell[152867, 3650, 181, 4, 100, "Input",ExpressionUUID->"f5e0ca0e-2432-4479-a8ab-4a3c685478b5"],
Cell[153051, 3656, 166, 4, 99, "Output",ExpressionUUID->"e68948bd-f51a-4563-8583-107f6fadd721"]
}, Open  ]],
Cell[CellGroupData[{
Cell[153254, 3665, 361, 10, 100, "Input",ExpressionUUID->"13d9b378-ba6d-464a-8441-079b922181d0"],
Cell[153618, 3677, 2217, 49, 811, "Output",ExpressionUUID->"8cea08e9-4cdb-48af-a5a5-5e9bd1938cfa"]
}, Open  ]],
Cell[CellGroupData[{
Cell[155872, 3731, 205, 5, 100, "Input",ExpressionUUID->"ea4d853b-7ff5-4f19-8697-397939d49da1"],
Cell[156080, 3738, 208, 6, 99, "Output",ExpressionUUID->"578468c2-4e2f-40ce-8393-55619f99046e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[156325, 3749, 361, 10, 100, "Input",ExpressionUUID->"9a742f11-eef1-43e1-899b-f282adc8259f"],
Cell[156689, 3761, 2156, 48, 811, "Output",ExpressionUUID->"fde68c4c-c7bc-43a5-b5ac-ed67fcaa17d7"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[158894, 3815, 455, 12, 411, "Subsubsection",ExpressionUUID->"6e927bd3-81a3-4eba-a69e-aacf7da96180"],
Cell[CellGroupData[{
Cell[159374, 3831, 240, 6, 100, "Input",ExpressionUUID->"921590ce-1271-45d7-ad6a-e4562fc4156f"],
Cell[159617, 3839, 217, 6, 99, "Output",ExpressionUUID->"8695f289-2f16-4a8e-95e2-a8ae03cc4ddb"]
}, Open  ]],
Cell[CellGroupData[{
Cell[159871, 3850, 367, 10, 100, "Input",ExpressionUUID->"c661539e-a85b-4c74-8f12-e800f0d2e357"],
Cell[160241, 3862, 2066, 46, 811, "Output",ExpressionUUID->"ffc5a44c-142a-45cf-bc0b-2d2b52fa1495"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[162356, 3914, 112, 0, 130, "Subsubsection",ExpressionUUID->"50596c8c-6885-45aa-bed0-6b50bb2ada82"],
Cell[CellGroupData[{
Cell[162493, 3918, 182, 4, 100, "Input",ExpressionUUID->"67a19b93-3e34-4345-bbc1-2e4884a53b83"],
Cell[162678, 3924, 168, 4, 99, "Output",ExpressionUUID->"7f9ddfe5-20ff-46af-9097-92e212293a54"]
}, Open  ]],
Cell[162861, 3931, 91, 0, 100, "Text",ExpressionUUID->"87107099-bb57-474e-8588-b11f6f0202a2"],
Cell[CellGroupData[{
Cell[162977, 3935, 360, 10, 100, "Input",ExpressionUUID->"ca0fd3de-9d79-4153-847e-de2035f3b169"],
Cell[163340, 3947, 1998, 45, 802, "Output",ExpressionUUID->"3172932e-cf38-45bf-8e96-4b848d99fe89"]
}, Open  ]],
Cell[165353, 3995, 414, 8, 229, "Text",ExpressionUUID->"7a588f8d-f549-4b22-8ebf-a36a02ad5687"],
Cell[165770, 4005, 477, 8, 229, "Text",ExpressionUUID->"62c73ba9-5d83-4298-a99e-781ce8491979"],
Cell[166250, 4015, 203, 3, 100, "Text",ExpressionUUID->"c40c88b4-ff89-4bfc-98e5-d30104f0bd1a"],
Cell[CellGroupData[{
Cell[166478, 4022, 251, 7, 100, "Input",ExpressionUUID->"25ef2152-74da-4340-9d72-a5934f0e82c2"],
Cell[166732, 4031, 132, 3, 99, "Output",ExpressionUUID->"6b0bd01f-b32d-4f5f-830b-acafd4095f9c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[166901, 4039, 231, 6, 100, "Input",ExpressionUUID->"d6981c4a-2c12-4fe0-8fea-49a5eec3ee72"],
Cell[167135, 4047, 132, 3, 99, "Output",ExpressionUUID->"c93770dc-5b5b-46aa-af19-21e1f0f4fbd9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[167304, 4055, 110, 1, 100, "Input",ExpressionUUID->"bc47fc86-e8ed-445a-b162-8ec37cf5fcc3"],
Cell[167417, 4058, 132, 3, 99, "Output",ExpressionUUID->"9f756d01-fc85-4028-9a90-014ef90baf90"]
}, Open  ]],
Cell[CellGroupData[{
Cell[167586, 4066, 109, 1, 100, "Input",ExpressionUUID->"f857865e-fa59-464d-88db-47ff953e7e24"],
Cell[167698, 4069, 168, 4, 99, "Output",ExpressionUUID->"abd41785-37ad-4dee-956c-a7b8158f4874"]
}, Open  ]],
Cell[CellGroupData[{
Cell[167903, 4078, 109, 1, 100, "Input",ExpressionUUID->"2e4be141-49d1-49a9-9e99-f26b79d17390"],
Cell[168015, 4081, 132, 3, 99, "Output",ExpressionUUID->"8673926a-317e-480a-8c36-b4e30cfb3c42"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[168196, 4090, 191, 3, 225, "Subsubsection",ExpressionUUID->"970436b7-e190-4731-9a53-07ecb3316fa0"],
Cell[168390, 4095, 200, 5, 100, "Input",ExpressionUUID->"43f80ad8-e309-4a95-98f2-b1c9404163a7"],
Cell[CellGroupData[{
Cell[168615, 4104, 188, 4, 100, "Input",ExpressionUUID->"78777561-0955-4681-adcf-685899fddbee"],
Cell[168806, 4110, 152, 4, 145, "Output",ExpressionUUID->"b9a83ec7-1317-448a-9074-adeee58b7bd7"]
}, Open  ]],
Cell[168973, 4117, 202, 5, 100, "Input",ExpressionUUID->"2f670eb2-97d1-44bd-bed4-c2905ba2f9ca"],
Cell[CellGroupData[{
Cell[169200, 4126, 188, 4, 100, "Input",ExpressionUUID->"4cabacf8-d1da-4e4a-90e9-59f4c926e7bc"],
Cell[169391, 4132, 130, 3, 99, "Output",ExpressionUUID->"39b8ca83-d2c0-4c3a-b4bb-02a82a14a1df"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[169570, 4141, 261, 4, 225, "Subsubsection",ExpressionUUID->"15a73c2c-772b-48da-8e0b-8752191fa3ee"],
Cell[CellGroupData[{
Cell[169856, 4149, 501, 16, 100, "Input",ExpressionUUID->"fa8e5741-5da4-4127-a5a1-2ef2a74136c3"],
Cell[170360, 4167, 358, 11, 148, "Output",ExpressionUUID->"6506f030-efcb-405e-979c-cd190976693a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[170755, 4183, 273, 8, 100, "Input",ExpressionUUID->"659bc6f2-37c8-4268-a652-57ad8f1b5aa0"],
Cell[171031, 4193, 2962, 61, 811, "Output",ExpressionUUID->"a3446b1f-7ed2-4bc0-a372-e77b576c6d90"]
}, Open  ]],
Cell[CellGroupData[{
Cell[174030, 4259, 282, 8, 100, "Input",ExpressionUUID->"05fba0f8-1d5f-4342-bb53-c331c8b574bd"],
Cell[174315, 4269, 127, 2, 99, "Output",ExpressionUUID->"e5e42d4c-cf07-4019-9d79-59fdb2572298"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[174491, 4277, 332, 6, 225, "Subsubsection",ExpressionUUID->"861ee5d0-359c-4a39-b896-565c7e027d03"],
Cell[174826, 4285, 468, 9, 166, "Text",ExpressionUUID->"480a6553-09a7-4e95-a353-d021b9f84fa0"],
Cell[CellGroupData[{
Cell[175319, 4298, 870, 25, 168, "Input",ExpressionUUID->"e36e2e4c-5979-43fc-a8d0-320a3b7e4729"],
Cell[176192, 4325, 1829, 37, 1194, "Output",ExpressionUUID->"eac5192f-5e47-44eb-b88d-3c20eb0cf75a"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[178070, 4368, 179, 3, 130, "Subsubsection",ExpressionUUID->"a35393f7-9284-4684-b9de-95572dd75fe2"],
Cell[CellGroupData[{
Cell[178274, 4375, 301, 8, 100, "Input",ExpressionUUID->"3b81ff00-85a6-488c-bc9b-2f261624ee32"],
Cell[178578, 4385, 351, 10, 99, "Output",ExpressionUUID->"cdd6be00-12ea-4fcd-bf77-b72b01138a24"]
}, Open  ]],
Cell[CellGroupData[{
Cell[178966, 4400, 408, 11, 100, "Input",ExpressionUUID->"d62a5c6a-246e-44b9-a47e-bfee11534c06"],
Cell[179377, 4413, 2673, 56, 793, "Output",ExpressionUUID->"17e4403e-cf77-495d-9585-fb23ec0bb8da"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[182111, 4476, 344, 7, 261, "Subsection",ExpressionUUID->"032060f5-a1b8-44a3-83d4-4d253e7c08ef"],
Cell[CellGroupData[{
Cell[182480, 4487, 1051, 32, 168, "Input",ExpressionUUID->"30f7dd46-0447-4a9d-b01c-07899d781c2f"],
Cell[183534, 4521, 692, 23, 154, "Output",ExpressionUUID->"76504f2f-4f8d-49a2-8956-deafebd2a7a6"]
}, Open  ]],
Cell[184241, 4547, 263, 6, 100, "Text",ExpressionUUID->"81f2785d-c496-4b7d-80f2-7771171e8332"],
Cell[CellGroupData[{
Cell[184529, 4557, 340, 10, 100, "Input",ExpressionUUID->"6d63529c-a971-463a-b366-1f366135881b"],
Cell[184872, 4569, 717, 22, 181, "Output",ExpressionUUID->"7080f760-e09c-4681-9cb5-a6be8f0fa4d1"]
}, Open  ]],
Cell[185604, 4594, 224, 5, 100, "Text",ExpressionUUID->"ca57e093-dfd6-4b67-8b74-d2c68c5bc850"],
Cell[CellGroupData[{
Cell[185853, 4603, 260, 6, 100, "Input",ExpressionUUID->"5ed5dff2-052b-4b14-b1c4-c35aa7075efa"],
Cell[186116, 4611, 919, 28, 145, "Output",ExpressionUUID->"747f048a-fec3-4800-b149-18db5168b0db"]
}, Open  ]],
Cell[187050, 4642, 286, 6, 100, "Text",ExpressionUUID->"40b2e4e6-1281-4857-bff3-ef7292eba90a"],
Cell[CellGroupData[{
Cell[187361, 4652, 437, 13, 100, "Input",ExpressionUUID->"b59dc325-a99f-4c80-bc7f-69ce0d45db4c"],
Cell[187801, 4667, 10182, 177, 838, "Output",ExpressionUUID->"e04fda98-8d8f-45d9-b4a7-4731171a72ad"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[198032, 4850, 304, 7, 261, "Subsection",ExpressionUUID->"0608cf66-50eb-4492-8d1c-e208a5dcd8e4"],
Cell[CellGroupData[{
Cell[198361, 4861, 1053, 32, 168, "Input",ExpressionUUID->"61cf1b26-1ad2-4a3a-b3bc-927eb02528ea"],
Cell[199417, 4895, 500, 16, 103, "Output",ExpressionUUID->"b0d93231-03b8-4c5b-935c-366a73e7017d"]
}, Open  ]],
Cell[199932, 4914, 190, 3, 100, "Text",ExpressionUUID->"b403dbc3-9351-4bf0-be96-9bb35d05c344"],
Cell[CellGroupData[{
Cell[200147, 4921, 340, 10, 100, "Input",ExpressionUUID->"cc4a056d-b993-4927-8f8e-bd464741b490"],
Cell[200490, 4933, 342, 11, 162, "Output",ExpressionUUID->"c787714e-1775-4190-a003-ede18a2a7a12"]
}, Open  ]],
Cell[200847, 4947, 127, 0, 100, "Text",ExpressionUUID->"17cb33fb-33cd-44ee-b161-8a1ee0259ffa"],
Cell[CellGroupData[{
Cell[200999, 4951, 260, 6, 100, "Input",ExpressionUUID->"37ccb9e3-f9fa-4b98-ba25-411f2a3ff68b"],
Cell[201262, 4959, 611, 20, 114, "Output",ExpressionUUID->"d4e04df1-be46-4199-a93f-e889a88fd813"]
}, Open  ]],
Cell[201888, 4982, 423, 8, 166, "Text",ExpressionUUID->"e1598b8e-fe30-49ec-92e7-bf97de20d585"],
Cell[CellGroupData[{
Cell[202336, 4994, 437, 13, 100, "Input",ExpressionUUID->"7e4336b4-e267-4224-a15f-677f55810cde"],
Cell[202776, 5009, 9260, 161, 823, "Output",ExpressionUUID->"5ae71f32-1ead-4602-8715-59afe7ce7449"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[212085, 5176, 431, 9, 357, "Subsection",ExpressionUUID->"cb37d3ec-3273-41e1-982c-66b2632f862c"],
Cell[CellGroupData[{
Cell[212541, 5189, 1007, 32, 100, "Input",ExpressionUUID->"ef9a4e59-e1ff-4852-b2af-e726e5f35353"],
Cell[213551, 5223, 961, 31, 145, "Output",ExpressionUUID->"ce539111-fbfd-4db8-9b17-27fd936e0632"]
}, Open  ]],
Cell[CellGroupData[{
Cell[214549, 5259, 291, 8, 100, "Input",ExpressionUUID->"f41f4865-9bae-4022-b033-780908d444c9"],
Cell[214843, 5269, 1303, 44, 180, "Output",ExpressionUUID->"5e7aded6-f0e1-45ca-aed0-9bdcebe740c6"]
}, Open  ]],
Cell[216161, 5316, 445, 14, 100, "Input",ExpressionUUID->"c7c773f6-3eaa-4105-87a3-ce8c48efa91c"],
Cell[CellGroupData[{
Cell[216631, 5334, 523, 16, 100, "Input",ExpressionUUID->"624de286-0273-4ed3-9891-50890f35dbd4"],
Cell[217157, 5352, 8773, 154, 823, "Output",ExpressionUUID->"4060d003-5e80-49a8-9294-d669f43ebbe3"]
}, Open  ]],
Cell[225945, 5509, 427, 8, 316, "Subsubsection",ExpressionUUID->"44e19c42-87d9-463d-9b4b-e459bb023c96"],
Cell[CellGroupData[{
Cell[226397, 5521, 188, 3, 105, "Subsubsection",ExpressionUUID->"00935692-8a1e-4b8c-a456-68a2a20d3374"],
Cell[226588, 5526, 351, 9, 100, "Input",ExpressionUUID->"f32790f3-2a64-4270-947e-9c29ffa54d44"],
Cell[226942, 5537, 351, 9, 100, "Input",ExpressionUUID->"294f6cee-65ec-435f-8b86-40935e18f7dd"],
Cell[227296, 5548, 476, 13, 100, "Input",ExpressionUUID->"01024470-9fb7-4c7f-a0ba-79146d7bff3e"],
Cell[227775, 5563, 394, 11, 100, "Input",ExpressionUUID->"5564f0b8-b3c7-41ea-81a2-19e3dd82a869"]
}, Open  ]],
Cell[CellGroupData[{
Cell[228206, 5579, 177, 3, 130, "Subsubsection",ExpressionUUID->"587f8c04-0b94-4c72-9ba1-08a17b93cb1c"],
Cell[CellGroupData[{
Cell[228408, 5586, 251, 6, 100, "Input",ExpressionUUID->"104e8039-b669-492f-876b-736d5a29c663"],
Cell[228662, 5594, 306, 8, 99, "Output",ExpressionUUID->"ddc3ba5f-2abf-4d1a-8ad4-cfc168bbb197"]
}, Open  ]],
Cell[CellGroupData[{
Cell[229005, 5607, 1113, 32, 234, "Input",ExpressionUUID->"68d6d176-5a29-467c-87a9-6dcd305e295b"],
Cell[230121, 5641, 1090, 34, 145, "Output",ExpressionUUID->"450cdb9a-dc19-47be-b593-7fb90bf94ca3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[231248, 5680, 205, 5, 100, "Input",ExpressionUUID->"37904a93-ec5a-4f70-b3a3-80f314ef8954"],
Cell[231456, 5687, 602, 18, 145, "Output",ExpressionUUID->"f968c5b9-be3c-431a-938d-677e877500d3"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[232107, 5711, 155, 2, 130, "Subsubsection",ExpressionUUID->"ba6e535d-ae14-4092-a952-5a6ef64cabf9"],
Cell[CellGroupData[{
Cell[232287, 5717, 938, 25, 234, "Input",ExpressionUUID->"4e8d5a3e-80c5-4fd7-b2a1-dac592a84710"],
Cell[233228, 5744, 650, 19, 145, "Output",ExpressionUUID->"07f55b4f-334b-46f5-9151-958f9dcaf0b4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[233915, 5768, 991, 26, 234, "Input",ExpressionUUID->"507b0d13-f441-446d-8445-76add7e07b7d"],
Cell[234909, 5796, 464, 14, 145, "Output",ExpressionUUID->"298d8476-8a03-438c-a4bb-a0df1e9b90ad"]
}, Open  ]],
Cell[CellGroupData[{
Cell[235410, 5815, 417, 12, 100, "Input",ExpressionUUID->"13bc72bf-900d-4fd6-963e-15e358626153"],
Cell[235830, 5829, 1438, 42, 166, "Output",ExpressionUUID->"839afe06-c4f6-4a8c-a40c-51c1c4fdb56a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[237305, 5876, 365, 10, 100, "Input",ExpressionUUID->"4e8f0096-9996-4448-8666-146a76bc8a8d"],
Cell[237673, 5888, 1136, 34, 162, "Output",ExpressionUUID->"b39074d2-a50d-49ce-a692-71e8a1df499a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[238846, 5927, 365, 10, 100, "Input",ExpressionUUID->"f9cda6e5-fc91-4c58-bde9-b548fdbda8a8"],
Cell[239214, 5939, 651, 19, 162, "Output",ExpressionUUID->"1bcc46d0-3020-4c98-858c-03dc38de375b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[239902, 5963, 336, 8, 100, "Input",ExpressionUUID->"55f2f4c1-5641-48be-9a04-5c3fa6b0a22a"],
Cell[240241, 5973, 1452, 46, 180, "Output",ExpressionUUID->"cb5fc20d-fdbc-47a2-b9ef-e0e4428cd4b9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[241730, 6024, 338, 8, 100, "Input",ExpressionUUID->"7acb34b7-92a8-4e36-a0b5-2e4f9e776cfe"],
Cell[242071, 6034, 1574, 51, 180, "Output",ExpressionUUID->"b40e61df-170c-4f4c-bf27-5839e41328e4"]
}, Open  ]],
Cell[243660, 6088, 495, 9, 229, "Text",ExpressionUUID->"16ab69e8-f8a7-49a4-afe1-1359aa78f0a0"],
Cell[CellGroupData[{
Cell[244180, 6101, 615, 17, 100, "Input",ExpressionUUID->"23c0cd27-7834-4370-b9a9-455e203b14f5"],
Cell[244798, 6120, 4587, 84, 811, "Output",ExpressionUUID->"6308408f-5a33-47af-bf22-2cc9abed2dd9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[249422, 6209, 635, 18, 100, "Input",ExpressionUUID->"444bf29a-847c-4481-9015-e1260d0b7643"],
Cell[250060, 6229, 8041, 141, 811, "Output",ExpressionUUID->"11fd190a-f3d9-43bc-96b4-ee4493670179"]
}, Open  ]],
Cell[258116, 6373, 271, 6, 100, "Text",ExpressionUUID->"1777dcea-da40-4f41-a4cd-e48380998720"],
Cell[CellGroupData[{
Cell[258412, 6383, 216, 5, 100, "Input",ExpressionUUID->"999d5159-f943-48a0-9bd3-b2f3b6559051"],
Cell[258631, 6390, 13115, 227, 811, "Output",ExpressionUUID->"22f481a8-b795-424d-bc23-ecd5cc0852ac"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[271807, 6624, 507, 9, 456, "Subsection",ExpressionUUID->"6c0febf5-d88f-4f8d-9be1-03496ccc1997"],
Cell[CellGroupData[{
Cell[272339, 6637, 609, 18, 100, "Input",ExpressionUUID->"555a3825-ec5f-461e-856c-b6a2a0213afa"],
Cell[272951, 6657, 2647, 91, 352, "Output",ExpressionUUID->"c1dead78-e907-4f14-a7d8-3d11f1970028"]
}, Open  ]],
Cell[CellGroupData[{
Cell[275635, 6753, 485, 14, 100, "Input",ExpressionUUID->"c37b6df7-9165-4ffd-b5e7-c55b2a153242"],
Cell[276123, 6769, 10741, 192, 838, "Output",ExpressionUUID->"30d0fa43-a882-4035-8892-fb53b2545f9d"]
}, Open  ]],
Cell[286879, 6964, 179, 3, 100, "Text",ExpressionUUID->"6adf16ab-64b0-464f-95f7-7695a06ccbbc"],
Cell[CellGroupData[{
Cell[287083, 6971, 985, 29, 168, "Input",ExpressionUUID->"3f02af97-1135-4be7-b3ed-0bbeaf6844c8"],
Cell[288071, 7002, 3519, 118, 279, "Output",ExpressionUUID->"c7041573-4408-41b4-b883-ea75d1f7c1cd"]
}, Open  ]],
Cell[291605, 7123, 190, 3, 100, "Text",ExpressionUUID->"e67c1382-e6ac-4555-ad2e-d3c477656732"],
Cell[CellGroupData[{
Cell[291820, 7130, 340, 10, 100, "Input",ExpressionUUID->"8c5e825a-ae49-4bce-ad80-395f1c4aeaf0"],
Cell[292163, 7142, 2112, 58, 249, "Output",ExpressionUUID->"a4a58d8e-8a8b-48a9-a088-3a406d4f9fe6"]
}, Open  ]],
Cell[294290, 7203, 226, 5, 100, "Text",ExpressionUUID->"fe8b3296-3fe1-455c-955b-1a3bc2a92519"],
Cell[CellGroupData[{
Cell[294541, 7212, 260, 6, 100, "Input",ExpressionUUID->"da4d3709-ab62-49a6-abd0-9aaa198ec72c"],
Cell[294804, 7220, 13229, 389, 1482, "Output",ExpressionUUID->"a71b507c-d7da-4230-9f87-990eafd358eb"]
}, Open  ]],
Cell[308048, 7612, 249, 6, 100, "Text",ExpressionUUID->"5ae50aba-fec3-4cd7-b811-d1fc7285338c"],
Cell[CellGroupData[{
Cell[308322, 7622, 484, 14, 100, "Input",ExpressionUUID->"7e1b42a6-f242-4a44-be71-3f41ac94b379"],
Cell[308809, 7638, 29804, 515, 823, "Output",ExpressionUUID->"9eaca10d-41d5-4fca-ac6e-b5e2ee0535b7"]
}, Open  ]],
Cell[338628, 8156, 164, 3, 100, "Text",ExpressionUUID->"2211ec93-62d6-4618-b9b3-1470e3d1cb01"],
Cell[CellGroupData[{
Cell[338817, 8163, 188, 5, 100, "Input",ExpressionUUID->"77d1f707-2b3b-47e0-8aaa-aba60d2b4d82"],
Cell[339008, 8170, 39902, 687, 838, "Output",ExpressionUUID->"2cf7fbea-0f1b-4875-98e8-1a5214a35e8d"]
}, Open  ]],
Cell[378925, 8860, 210, 3, 100, "Text",ExpressionUUID->"50f69e72-f068-4619-ab65-1fbcbb3cde3f"],
Cell[CellGroupData[{
Cell[379160, 8867, 398, 11, 168, "Input",ExpressionUUID->"95f5d7c6-d1da-4fe7-a6ee-68ebb5afd87e"],
Cell[379561, 8880, 39905, 687, 850, "Output",ExpressionUUID->"84fbca19-cb10-4f74-ad2a-0ead177b87ef"]
}, Open  ]],
Cell[419481, 9570, 637, 11, 411, "Subsubsection",ExpressionUUID->"daae413d-3b99-46b4-baaf-7d1b495f2fc4"]
}, Open  ]]
}, Open  ]]
}
]
*)