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

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

(* CreatedBy='Wolfram 14.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       154,          7]
NotebookDataLength[    361429,       7894]
NotebookOptionsPosition[    175301,       4045]
NotebookOutlinePosition[    338265,       7436]
CellTagsIndexPosition[    338164,       7430]
WindowTitle->2. Formal Properties of the Laplace Transform: Part 1 | Laplace \
Transforms in Theory and Practice
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[TextData[{
 
 CounterBox["Section"],
 StyleBox[" | ", "SectionBar"],
 "Formal Properties of the Laplace Transform: Part 1"
}], "Section",
 CounterAssignments->{{"Section", 1}, {"Subsection", 0}, {
   "Subsubsection", 0}, {"Exercise", 0}},
 CellID->1553412245,ExpressionUUID->"31c9d6c8-25c2-4569-8c9b-9f9841621767"],

Cell["\<\
In this chapter, formal properties of the Laplace transform will be \
discussed. These properties are direct consequences of the definition of the \
Laplace transform. Some of these properties are very simple; still, they have \
wide applications and their importance should not be underestimated. In this \
chapter, the following properties will be discussed in detail: linearity, \
scaling and the first and second translation properties.\
\>", "Text",
 CellChangeTimes->{{3.899426568767448*^9, 3.899426848405614*^9}, {
  3.899430044270459*^9, 3.899430051102976*^9}, {3.899451946827111*^9, 
  3.899451988006948*^9}, {3.915436668862833*^9, 3.915436671136435*^9}, {
  3.915453424769779*^9, 3.915453433621318*^9}, {3.919420383712698*^9, 
  3.919420436218487*^9}, {3.926004282932138*^9, 3.926004295620287*^9}, {
  3.9297178571699996`*^9, 3.9297178574589186`*^9}, {3.9458813919447107`*^9, 
  3.945881410597301*^9}, {3.9469908951334534`*^9, 3.946990917810814*^9}},
 CellID->1240905136,ExpressionUUID->"e86f6062-bcab-4e89-82bc-40b756572968"],

Cell[TextData[{
 StyleBox["Linearity",
  FontSlant->"Italic"],
 " is a crucial property of the Laplace transform. It states that the Laplace \
transform of the sum of two functions is equivalent to the sum of Laplace \
transforms of those functions:"
}], "Text",
 CellChangeTimes->{{3.8805428517868443`*^9, 3.880543000796973*^9}, {
   3.880714759430303*^9, 3.880714759553936*^9}, {3.919420462170948*^9, 
   3.9194204623172703`*^9}, 3.9297178617106524`*^9, {3.945881431429294*^9, 
   3.9458814363886414`*^9}},
 CellID->810454819,ExpressionUUID->"7b1da2d7-3126-40d0-acb6-7fd87dd2ec22"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LaplaceTransform", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"f", "[", "t", "]"}], "+", 
    RowBox[{"g", "[", "t", "]"}]}], ",", "t", ",", "s"}], "]"}]], "Input",
 CellChangeTimes->{{3.880543004787781*^9, 3.880543015317885*^9}},
 CellID->1327470350,ExpressionUUID->"8a1d5081-456d-4555-9c59-20555a23cb06"],

Cell[BoxData[
 RowBox[{
  RowBox[{"LaplaceTransform", "[", 
   RowBox[{
    RowBox[{"f", "[", "t", "]"}], ",", "t", ",", "s"}], "]"}], "+", 
  RowBox[{"LaplaceTransform", "[", 
   RowBox[{
    RowBox[{"g", "[", "t", "]"}], ",", "t", ",", "s"}], "]"}]}]], "Output",
 CellChangeTimes->{3.88054301568377*^9, 3.9194204713953266`*^9, 
  3.9243483067501183`*^9},
 CellID->532622580,ExpressionUUID->"af1012aa-259f-6347-98fc-e89e9bbe18ca"]
}, Open  ]],

Cell["\<\
In fact, an even stronger statement is valid when functions are multiplied by \
arbitrary constants:\
\>", "Text",
 CellChangeTimes->{{3.8805432799472637`*^9, 3.880543387991106*^9}, {
  3.9154367535309877`*^9, 3.9154367563836117`*^9}},
 CellID->1331536798,ExpressionUUID->"42cc18aa-ab34-40b0-8025-243b2a413bcf"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LaplaceTransform", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"a", " ", 
     RowBox[{"f", "[", "t", "]"}]}], "+", 
    RowBox[{"b", " ", 
     RowBox[{"g", "[", "t", "]"}]}]}], ",", "t", ",", "s"}], "]"}]], "Input",
 CellChangeTimes->{{3.880543390668274*^9, 3.880543401254252*^9}, {
  3.880715514662888*^9, 3.880715517289246*^9}},
 CellID->1738029368,ExpressionUUID->"c152914d-a8b8-4575-9dbd-0e75eb0728b0"],

Cell[BoxData[
 RowBox[{
  RowBox[{"a", " ", 
   RowBox[{"LaplaceTransform", "[", 
    RowBox[{
     RowBox[{"f", "[", "t", "]"}], ",", "t", ",", "s"}], "]"}]}], "+", 
  RowBox[{"b", " ", 
   RowBox[{"LaplaceTransform", "[", 
    RowBox[{
     RowBox[{"g", "[", "t", "]"}], ",", "t", ",", "s"}], "]"}]}]}]], "Output",\

 CellChangeTimes->{
  3.880543401481118*^9, {3.880715522431247*^9, 3.880715527976166*^9}, {
   3.9194204770480366`*^9, 3.919420490149967*^9}, 3.924348306764084*^9},
 CellID->10667228,ExpressionUUID->"da45f3d6-0fe9-eb45-8167-00cb717f18c5"]
}, Open  ]],

Cell["\<\
In other words, one can \[OpenCurlyDoubleQuote]pull out\
\[CloseCurlyDoubleQuote] constant coefficients from the transform.\
\>", "Text",
 CellChangeTimes->{{3.880543437157695*^9, 3.8805434817983093`*^9}, {
   3.880543521365281*^9, 3.880543527652617*^9}, {3.8805436690436573`*^9, 
   3.880543749031623*^9}, 3.880714774679229*^9, {3.8994602444247203`*^9, 
   3.8994602512247763`*^9}, {3.915436785139099*^9, 3.9154367854693117`*^9}, 
   3.929717873562296*^9, {3.945881458822762*^9, 3.9458814592450333`*^9}},
 CellID->1499714417,ExpressionUUID->"79171837-eeea-4d3f-be82-5bc9518b5ab1"],

Cell["\<\
It should be obvious that linearity holds for any number of terms:\
\>", "Text",
 CellChangeTimes->{{3.880543966627243*^9, 3.880544021312089*^9}, {
  3.915436823275681*^9, 3.915436823540678*^9}},
 CellID->1708046656,ExpressionUUID->"22d93848-4a88-458a-9cb4-b47c03216370"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"LaplaceTransform", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"a", " ", 
      RowBox[{"f", "[", "t", "]"}]}], "+", 
     RowBox[{"b", " ", 
      RowBox[{"g", "[", "t", "]"}]}], "+", 
     RowBox[{"c", " ", 
      RowBox[{"h", "[", "t", "]"}]}]}], ",", "t", ",", "s"}], "]"}], 
  " "}]], "Input",
 CellChangeTimes->{{3.880544027846056*^9, 3.880544037300304*^9}, {
  3.88071550682691*^9, 3.880715511468473*^9}, {3.881313586182632*^9, 
  3.881313592104827*^9}},
 CellID->414808071,ExpressionUUID->"0930d4c8-7289-46be-ae50-0c7b5995ed0a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"a", " ", 
   RowBox[{"LaplaceTransform", "[", 
    RowBox[{
     RowBox[{"f", "[", "t", "]"}], ",", "t", ",", "s"}], "]"}]}], "+", 
  RowBox[{"b", " ", 
   RowBox[{"LaplaceTransform", "[", 
    RowBox[{
     RowBox[{"g", "[", "t", "]"}], ",", "t", ",", "s"}], "]"}]}], "+", 
  RowBox[{"c", " ", 
   RowBox[{"LaplaceTransform", "[", 
    RowBox[{
     RowBox[{"h", "[", "t", "]"}], ",", "t", ",", "s"}], "]"}]}]}]], "Output",\

 CellChangeTimes->{
  3.880544037500537*^9, {3.88131358788301*^9, 3.881313592480315*^9}, 
   3.9194204964142647`*^9, 3.9243483067931423`*^9},
 CellID->524941433,ExpressionUUID->"a8f1765f-e49c-da4a-a95e-d364e5929916"]
}, Open  ]],

Cell["\<\
The linearity property plays a central role in solving differential \
equations, both ODEs and PDEs, as you will see in later chapters.\
\>", "Text",
 CellChangeTimes->{{3.880543909377554*^9, 3.880543922509321*^9}, {
   3.8805440834983587`*^9, 3.880544089829261*^9}, {3.880544139527691*^9, 
   3.880544145842593*^9}, {3.915436857353462*^9, 3.915436876605596*^9}, {
   3.915441099002852*^9, 3.915441099149495*^9}, {3.91545343826053*^9, 
   3.9154534393072042`*^9}, 3.929717881378422*^9, {3.945881476591104*^9, 
   3.9458814781730137`*^9}, 3.946990923243492*^9},
 CellID->1480325712,ExpressionUUID->"55dd8c32-7802-4404-8e5a-fe536a55ed3e"],

Cell["\<\
In the previous chapter, Laplace transforms for some simple functions were \
discussed. One can create various linear combinations of these functions with \
any constant coefficients and use linearity to easily determine their Laplace \
transforms. In this way, linearity significantly expands the pool of known \
Laplace transforms.\
\>", "Text",
 CellChangeTimes->{{3.880543909377554*^9, 3.880543922509321*^9}, {
   3.8805440834983587`*^9, 3.880544089829261*^9}, {3.880544139527691*^9, 
   3.880544304629319*^9}, {3.880544347480808*^9, 3.8805445958142147`*^9}, {
   3.8813136794264803`*^9, 3.881313680112821*^9}, {3.899460264614969*^9, 
   3.899460321378409*^9}, {3.915436889315947*^9, 3.915436894609498*^9}, {
   3.9154369723257093`*^9, 3.9154371455057993`*^9}, {3.9260043324517326`*^9, 
   3.9260043568309336`*^9}, {3.945881497214583*^9, 3.945881501254125*^9}, 
   3.9469909283624115`*^9},
 CellID->761846973,ExpressionUUID->"03e7c2e7-c2f7-4a7d-af45-244bfcc1a7fb"],

Cell["\<\
The following example illustrates how to use linearity. Define:\
\>", "Text",
 CellChangeTimes->{{3.880543909377554*^9, 3.880543922509321*^9}, {
  3.8805440834983587`*^9, 3.880544089829261*^9}, {3.880544139527691*^9, 
  3.880544304629319*^9}, {3.880544347480808*^9, 3.88054469295299*^9}, {
  3.880544837831439*^9, 3.880544903409053*^9}, {3.880544964194504*^9, 
  3.880544968480144*^9}, {3.880545024695696*^9, 3.880545069559395*^9}, {
  3.8805451169986563`*^9, 3.880545183457441*^9}, {3.899460522946385*^9, 
  3.899460529293989*^9}, {3.91543717692568*^9, 3.915437180458305*^9}, {
  3.915437279594471*^9, 3.915437280425807*^9}, {3.9236664374861727`*^9, 
  3.923666437923505*^9}, {3.9260043644618874`*^9, 3.92600436666595*^9}},
 CellID->2009598236,ExpressionUUID->"a0ed79eb-7c1f-4423-8cc2-21f36d9b37e3"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"q", "[", "t_", "]"}], "=", 
   RowBox[{
    RowBox[{"2", 
     RowBox[{"Sin", "[", "t", "]"}]}], "-", 
    RowBox[{"3", 
     RowBox[{"Cos", "[", "t", "]"}]}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.88054529905674*^9, 3.880545337278788*^9}, 
   3.881315771700595*^9, 3.881315808907606*^9, {3.881315857095125*^9, 
   3.881315866683091*^9}, 3.915437274406937*^9},
 CellID->1994638465,ExpressionUUID->"ffccfa60-7f74-42cd-a259-c585b749dbc5"],

Cell["With the help of linearity:", "Text",
 CellChangeTimes->{{3.880545003968655*^9, 3.880545016653062*^9}, {
   3.881315593238811*^9, 3.8813155947215233`*^9}, 3.881315771701358*^9, 
   3.881315808908267*^9, 3.915437274407032*^9},
 CellID->19180265,ExpressionUUID->"16793d85-e6ba-4cb8-b507-d40d2bc69d46"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"2", 
    RowBox[{"LaplaceTransform", "[", 
     RowBox[{
      RowBox[{"Sin", "[", "t", "]"}], ",", "t", ",", "s"}], "]"}]}], "-", 
   RowBox[{"3", 
    RowBox[{"LaplaceTransform", "[", 
     RowBox[{
      RowBox[{"Cos", "[", "t", "]"}], ",", "t", ",", "s"}], "]"}]}]}], "//", 
  "Simplify"}]], "Input",
 CellChangeTimes->{{3.8807125151704607`*^9, 3.880712528282021*^9}, 
   3.881315771701621*^9, 3.881315808908523*^9, {3.8813158893603354`*^9, 
   3.881315903651691*^9}, 3.915437274407203*^9},
 CellID->240166805,ExpressionUUID->"44a331fc-8798-42fd-8cf1-fafa3241a566"],

Cell[BoxData[
 FractionBox[
  RowBox[{"2", "-", 
   RowBox[{"3", " ", "s"}]}], 
  RowBox[{"1", "+", 
   SuperscriptBox["s", "2"]}]]], "Output",
 CellChangeTimes->{{3.880712522974577*^9, 3.880712531327478*^9}, 
   3.881315599723668*^9, 3.881315771701915*^9, 3.881315808908802*^9, {
   3.881315901054059*^9, 3.881315903921489*^9}, {3.915437274407384*^9, 
   3.915437295505933*^9}, 3.9194205191419334`*^9, 3.92434830682378*^9},
 CellID->122462219,ExpressionUUID->"4555be77-8bff-494f-aad1-45063aadd7e6"]
}, Open  ]],

Cell[TextData[{
 "The same result can be obtained by directly applying ",
 ButtonBox["LaplaceTransform",
  BaseStyle->"Link"],
 " on ",
 Cell[BoxData[
  FormBox[
   RowBox[{"q", "(", "t", ")"}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"6f4a2325-a3bd-45bc-b00e-88ef01771416"],
 ":"
}], "Text",
 CellChangeTimes->{{3.881315605630024*^9, 3.881315672471421*^9}, {
   3.881315712164325*^9, 3.881315724227664*^9}, 3.88131577170198*^9, 
   3.8813158089088793`*^9, {3.881315938709934*^9, 3.881315938786983*^9}, {
   3.915437204427271*^9, 3.915437204971397*^9}, 3.915437274407498*^9, {
   3.915437308453319*^9, 3.915437394601788*^9}},
 CellID->676695975,ExpressionUUID->"33835d6a-5b5d-47da-9663-d5bf7edc3e71"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LaplaceTransform", "[", 
  RowBox[{
   RowBox[{"q", "[", "t", "]"}], ",", "t", ",", "s"}], "]"}]], "Input",
 CellChangeTimes->{{3.8807125151704607`*^9, 3.880712528282021*^9}, 
   3.881315771701621*^9, 3.881315808908523*^9, {3.8813158893603354`*^9, 
   3.881315929908786*^9}, 3.915437274407653*^9},
 CellID->722233749,ExpressionUUID->"1532c588-5e9b-467e-9aab-b3a7fc77da95"],

Cell[BoxData[
 FractionBox[
  RowBox[{"2", "-", 
   RowBox[{"3", " ", "s"}]}], 
  RowBox[{"1", "+", 
   SuperscriptBox["s", "2"]}]]], "Output",
 CellChangeTimes->{3.881315933844914*^9, 3.915437274407844*^9, 
  3.9194205289996414`*^9, 3.9243483102580166`*^9},
 CellID->116861964,ExpressionUUID->"585d5354-fea3-9146-8f39-9d17d59cd7aa"]
}, Open  ]],

Cell[TextData[{
 "Why does the Laplace transform enjoy linearity? This is because, in the \
definition of Laplace transform (equation (",
 Cell[BoxData[
  ButtonBox[
   CounterBox["DisplayFormulaNumbered", {
    "LaplaceTransform-01_What-Is-a-Laplace-Transform.nb", 
    "transform-definition"},
    BaseStyle->"Hyperlink"],
   Appearance->None,
   BaseStyle->"Text",
   ButtonFunction:>
    NotebookLocate[{
     "LaplaceTransform-01_What-Is-a-Laplace-Transform.nb", 
      "transform-definition"}, FrontEnd`HistoryData :> {
       EvaluationNotebook[]}]]],ExpressionUUID->
  "0b586ee2-fa3e-401f-87c3-93eebd2858c2"],
 ") in ",
 ButtonBox["Chapter 1",
  BaseStyle->"Hyperlink",
  Appearance->None,
  ButtonFunction:>
   NotebookLocate[{"LaplaceTransform-01_What-Is-a-Laplace-Transform.nb", ""}, 
    FrontEnd`HistoryData :> {
      EvaluationNotebook[]}]],
 "), the function ",
 Cell[BoxData[
  FormBox[
   RowBox[{"f", "(", "t", ")"}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"4acaf7de-c192-4c7a-b25e-b0c23cdac147"],
 " is simply multiplied by an exponential function and then integrated. In \
other words, no nonlinear operation is performed on the function ",
 Cell[BoxData[
  FormBox[
   RowBox[{"f", "(", "t", ")"}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"4740defc-70fb-45bc-bdf2-50b39b972f54"],
 ". If, for example, one were to take the square of the function ",
 Cell[BoxData[
  FormBox[
   RowBox[{"f", "(", "t", ")"}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"09607d09-2754-460b-9e70-645be75cc8d8"],
 " in (equation (",
 Cell[BoxData[
  ButtonBox[
   CounterBox["DisplayFormulaNumbered", {
    "LaplaceTransform-01_What-Is-a-Laplace-Transform.nb", 
    "transform-definition"},
    BaseStyle->"Hyperlink"],
   Appearance->None,
   BaseStyle->"Text",
   ButtonFunction:>
    NotebookLocate[{
     "LaplaceTransform-01_What-Is-a-Laplace-Transform.nb", 
      "transform-definition"}, FrontEnd`HistoryData :> {
       EvaluationNotebook[]}]]],ExpressionUUID->
  "94304e43-1463-47a2-9d88-c113f7b49a79"],
 ") in ",
 ButtonBox["Chapter 1",
  BaseStyle->"Hyperlink",
  Appearance->None,
  ButtonFunction:>
   NotebookLocate[{"LaplaceTransform-01_What-Is-a-Laplace-Transform.nb", ""}, 
    FrontEnd`HistoryData :> {
      EvaluationNotebook[]}]],
 "), the linearity property would be lost."
}], "Text",
 CellID->1615168087,ExpressionUUID->"cf1303a2-a29e-435c-996c-083ed3dd2f64"],

Cell["\<\
While linearity is a powerful tool, readers should be aware that blindly \
applying this property might lead to incorrect conclusions. For example, \
consider the following function:\
\>", "Text",
 CellID->1641369710,ExpressionUUID->"27b192f5-70f4-4b45-ab0c-9e4574789677"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"q", "[", "t_", "]"}], "=", 
   RowBox[{
    RowBox[{"Exp", "[", 
     SuperscriptBox["t", "2"], "]"}], "-", 
    RowBox[{
     RowBox[{"UnitStep", "[", 
      RowBox[{"t", "-", "1"}], "]"}], " ", 
     RowBox[{"Exp", "[", 
      SuperscriptBox["t", "2"], "]"}]}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8805460960530148`*^9, 3.88054615935989*^9}, {
  3.880546386158174*^9, 3.880546399452319*^9}},
 CellID->683112228,ExpressionUUID->"f589edbd-c48a-446e-9573-946aeda5156c"],

Cell[TextData[{
 "Notice that each term in ",
 Cell[BoxData[
  FormBox[
   RowBox[{"q", "(", "t", ")"}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"1572172e-500a-45f4-b585-8d41a16f6005"],
 " doesn\[CloseCurlyQuote]t have the Laplace transform. Therefore, if you \
apply linearity, you might incorrectly conclude that the function has no \
Laplace transform. However, this is obviously wrong, as for ",
 Cell[BoxData[
  FormBox[
   RowBox[{"t", ">", "1"}], TraditionalForm]], "InlineMath",ExpressionUUID->
  "313e52c9-0e22-4dd0-8972-863e6405f3c6"],
 ", the function ",
 Cell[BoxData[
  FormBox[
   RowBox[{"q", "(", "t", ")"}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"5b821020-8a55-437a-9b05-f3a453aba205"],
 " is identically zero:"
}], "Text",
 CellChangeTimes->{{3.880546410350033*^9, 3.880546720252878*^9}, {
  3.880714973508441*^9, 3.8807149737463512`*^9}, {3.9154378666347523`*^9, 
  3.915437871576136*^9}, {3.9154379035993977`*^9, 3.915438067377701*^9}, {
  3.945881576145855*^9, 3.945881579727683*^9}},
 CellID->671256521,ExpressionUUID->"19ac7dc5-948e-4016-bff2-5981a949e1d2"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"q", "[", "t", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.880546722287701*^9, 3.8805467269730043`*^9}},
 CellID->928329958,ExpressionUUID->"94822a30-3707-4cf4-ae4c-3c4e99313ab5"],

Cell[BoxData[
 GraphicsBox[
  InterpretationBox[{
    TagBox[{{{}, {}, 
       TagBox[
        {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], 
         Opacity[1.], LineBox[CompressedData["
1:eJwV0gk0lWsXB3CclHTRgIylq9QtDskQ0f9FhkQlQyRS0iTTraRSKCqZL5HQ
ZKhkyHBMScpUGRPJzDEcFc57jiFFfO/3rLXXs35rPWuvtZ/9X3fM44ALHw8P
TyZV/79NXUY+lX+7sHMNz/8PiUUGUp69klZovy8Uw0t528N7iXmSxzHXLL1/
MeVBmfUBFxXc8fmCkpow5T31bblJkufxlW5MSFJeHyqburD2EopueZzfSHnO
1DnuqMI1OIxkNW2n/D2wpfJobAA4sSLW5pQPHv/5+j/JQIwXJvG6UK40kCqs
SLyJ9XtPfvGjrCKv+3JybTA+avt+TqKcyOf0fENyCKJ0x2fKKAswrz+xUQhH
5mST0QDlkr7m+gqrSJBdWq8FeUl47j9uejg2Cl0WxGF1yt3KtwzCJGOQ9zxU
NIZyzEOJ8g32dzGeJEh/T9lUJF2nLDEWqXqxnguUC8br1Nlr45G+397rIh+J
s46OubeO3getplO5iPLfDWy6XHICttFmVs9RDs9cuclC4QEC/dJcwmgkDGVT
Ur6dfIj69+G1HZSvVd9f/tbqEaK+l9lvWURCTUMxzC72Mfa4Fc62Un4ktu/m
HckU3IkphMViElfq4yptSlLgkOr3p5CyTVAfn7x9Kta16rHWLSHx15SX36vE
NBw7l4MFyj4tMT6ja59j3+moZX1LSViGdhcUlT+HL81LxUmQBH2XwlTg0XTk
hVy4MUB5MK/QSzb5BapyFRgTy0hYRHec2auQhdTr6/drC5NQ3CP/XKomCysv
SbI/UxagnWUNn8yG+c62Mk8REkeK53PeWL1EnpY8N285CbF/Ium2sTlYU/o4
12kViQCBvI3BkvlIlkyetpQksdk46nauZz5SthaoqkqRaA7y+NZZkw/tzJca
otJUfmiKL+jeDGzj/XJvQIZE9Z8UektzAVpHG9qy5ah5J2LV14YWo29Z+tf5
TSQYWy/EmgwUYyhAZEByMwlHT8ufXtol+CjsW759C4nsMZHiypESyFZE/gxQ
InFg5LbOGcNS5Jqbu+mrkrjXfdmAMV8Gk70q6r46JPRk7FJ6rN9AWUOxpUWX
yushTX6BzDdw7+G32goSa0YvOWcqlcM1btPvKT0SHqc1NvB0lWOw7MlspjGJ
lcezn6Vuf4cHRQeK2i1J2No9ziY5lZjxvNay0YMEu9NK8IlUFXRcTpv3epK4
6SjgYmlQhQSBQ8b3/yWR5+whVRBThejimHdS3iSE3XWDrmhWY2zJyKThVRJV
19sPLb5ag0ZV1V1GoSRUM1YslhH4iMDNn3qmM0h8oFc51at8hDC8C+SySTjl
+Ly6ZvcRElvL1ffmkAgr6PXsT/+Ibps8lXwGiZHyzM4081rY9+fszCgj8aB1
d87W6DqY13f+NP9EYtlCwGHjNY2oaDYzOvaL+q/TBx0VjRohE7U6eXqW2leL
otMK90YqJ1dywudJ7Hze5tz5uhG9aoe+faBxUPw8llFIb4LSClHuWWEOxixH
S/c0NMFomWPLifUcWD+Lqz0n1IwqbValuiUHiQ7XzU6sa8bV7WKRBjYcMFe6
1duqN+N8K9fA2o4Dj6v6jboOzfCv3O0WeISD4ANjzUsym1Hq9Hl2xVkOXs/p
dySYfUYmy730RxAHGyzGRypCWrDE0/j301IOpPyMtU8+bkHdT2WJwHIOlmc+
ChEsbAFTfkLGpZKD3wKWdAtmC7bLegyr13HQVF54rmd7K7axhz6s7OLgskrA
/MxQK9r+c3ApneOgQURUlE60YfNFs8ODelxU6Lq5fLJuww/ajk3ORlwUuVYX
nHdtwz8xYjtZplwk1/jYvYptw1LWcusFSy58/LofmIy1wagtPcLjBBd/s9P+
cb7/FeJ/nupbhnJxsUEL9ybb4eRQOUZ0cSFMZwx9EOiAohzPmtX9XKSEqYTO
ynTA/qb4Pu4QF5/MNrY7GnZA2bikvJDNxZZa0XMbYjsQvHixrh9tAr017LRc
zU7sHsv1oylOwPhtqnD95S7cOW1B/+U/gR65dYz58C54N8su8r45gfP+ifYq
yV0I4EbungmZwGNEP4uu7YLslJ2qUNwEZl/76x+S6Ub2C/agT+YEskvsvVmv
u8FU2bfJvnMCq/NX9PDy9kIiPHHwxI5JHA6dtRoU74VIT5zlGv1JPDk+VFut
2IvcGxWvukwmoShWXBxi24vwuwlh7jaT0Pd2uiv2shcrJGybh70moZF4MC1G
uQ9xEQ0N9PRJHHVMc3jW04d9B2m+hnJTCDSVjo//1gefpgdqrI1TSNOIbLkz
2QeNf62TI5WnMCp8eY+bYD9aOh6W/t45Be835lqqGv1wjaBHKzpOIVRuSrQ0
rB8+2/TD/3owhQKmQV2jDhOysdk2Y/LT+GISwAkzZkLo0fzBM4rTmM4qEzc7
wITLQEMCW20amle0jr4/yYTBZ6Elq4ymUbRKebr8PyamO6JVy05No3iXlFzu
CBNf0ueUMrKnUZpGnouJGcCpYEte6V0/8e5MkrTd6CAakqLzFgXPIO+bq6vj
9CBcf4wbiUXPIOWU9itnniFsyRRqpCfNIOhE2yF30SF8W7WtyzdnBibHVty/
oTME61Sjd0EdM2i0C5LICh1CSbxQArVhdJm4idGUhtHNqtIW7P6F+podLgKa
w+Cox/eajPxCmZEgQ0hvGH80yGtRE7/wcNdTKwnrYeReM28iBH/jGNEfrXR1
GLK6QwyJ7b8xomm90rZ+GFf//sudcfc3phR0RTLdWLhks40xYDuLnUz9mjs+
LPjsbtK4cWIWN5NM/E7dYKF69toX5fOzEBe1YsvHs8CQiUp+GTELDV7XxvuV
LKR4evRZ1MzCp/NexG3pESx1PeKzRmsOcxGTIsc/jMC1Nl+c2PgHfL9eLJfe
8B3W1noj3SoLkK7Xn4Dyd+zwdDoppLcAtcftrce1vqM8aypuj8UCXHYvScgy
/w63Rn2jSa8FvI8/tkHf+zsWanVOzeQtIEJbUvt0zXfM1J3GWVkeQsb3pnPh
6R8Yr+57qZLOQ2gsOBVYZo1iJFjQV7iblzAzL79uWDSKzPRlVxezeAnnhLX7
NN+N4gjDLmgJh5eI1OxhSX0ZReur8Mb1/HzENw97SeafUZiY+hrVK/ERiX3W
vp7mY6ApZL/t9ucjeN+Z6oeNjuGXiIku6DRCYnm6sN/0GI58btc+o0Uj6I5L
Oz15xjEp3+j1cBeNOPS75pyV6DjS69YwNtnTiHxVw1RpnXGc54TkF96mESeS
IZAeMo7+hctfm4ZoRF2gWkP1ZjZiyAu2Os8WEdoitXxR6mwssHhDWxiLiGfx
RzXtCTaS3985c7liEXEjK/wR25oNi7JgF3YP9f7ryL8SAWxkfNnJ5y/OTzw7
5veUGcIGnwBd59Z6fkJ8TKwrI5aN16X8SYmq/ASH18BQL4ONOcneldy9/IRj
aPulZYVsEGW1xqoO/ESduGdW61s27oldHPB3pfptSVp9po0NgcdvI3bfpvoV
bDNTY7IhFU+WV8TyE4HER//5UTZK+OfjzVL5iaunMkTCptiY7ejt6X7JT/wP
gypRAQ==
          "]], LineBox[CompressedData["
1:eJxNzglIEwAUBuA5N29nzrAMp8wMNE/MIzXQRjjPwKVYpNMszbTLg9IobOJC
PJqEmLVlpmZOyc1yIG25shFklzZNBZ1lyzK1aR6bWlsF9Z4PHj8fPPgfPf0M
K4NIIBDi/uzffPrSvTCYPB9G+DdfNBG8DhO0U8A1oZ0VukLuphq3R/eSCnQM
R7QuSk5tpaMzBxOZeZ5oxnSJ2ISBLvJ+05fDRIvzHT73x27o14sc+EnoVep4
ic+pDfd7ghIP1qGdq2dWhd/RPUeKhQ8W0exddoekOrTgfUj3K+ICeCut/JzG
Hk1tc1v0D0OTFRmzch56RjuhGvL9AW7+Ju2jXF0EU2j3NGr1ErjyhCSzwXUF
vBLers4q1oIL/BRd9s904IkORcUAfQ28nj3Id7+wDvbYa6rPlP4EMxvpxzu3
6MHnaakuH5MNYM/ZRMvhOEL4f9vZzJsp1tAkOV+0XWAEzvGXjprHEMHtUekN
PSvo5Zltm6ZqjcGSA0zjmn0kcHEk93bXFJo+Hj3SxCWDQ4JKaxz8TMDJTm9X
jZTo5b6qybMcU3AdiV3AcjXD/1WSRqICTb7ESQjONQcThGzRJNUCnHdTVEXt
RT/2KDOzPW0Jto3O8yyhWIHHvPqVRTK0uD7MVc22BqeIAm1pevRl7h3OWBsF
fP8rjU+JtQGX3eKmqfajj7HmdnTEox1lMnFcErqcd/h5ZTo6K/DGgkUR2qV0
c6RpC1q/+6L1cCt6dO7Tu5Z2dHXSw5SITrRhJyufK0OPDfDqjZXo7ivao8oh
dE1oqnvTCDrmrncXQ4V+VPj6BWcaXesVwIufRedOChLoGrRb7MmJJ0toktFg
c7UW/UESmp22hpZlN/n4/kJfd7ZcNhjQvwF5+x0S
          "]]},
        Annotation[#, "Charting`Private`Tag#1"]& ], {}}, {}},
     {"WolframDynamicHighlight", <|
      "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], 
    StyleBox[
     DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, 
       Slot["HighlightElements"], 
       Slot["LayoutOptions"], 
       Slot["Meta"], 
       Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, 
           Annotation[{
             Directive[
              Opacity[1.], 
              RGBColor[0.368417, 0.506779, 0.709798], 
              AbsoluteThickness[2]], 
             Line[CompressedData["
1:eJwV0gk0lWsXB3CclHTRgIylq9QtDskQ0f9FhkQlQyRS0iTTraRSKCqZL5HQ
ZKhkyHBMScpUGRPJzDEcFc57jiFFfO/3rLXXs35rPWuvtZ/9X3fM44ALHw8P
TyZV/79NXUY+lX+7sHMNz/8PiUUGUp69klZovy8Uw0t528N7iXmSxzHXLL1/
MeVBmfUBFxXc8fmCkpow5T31bblJkufxlW5MSFJeHyqburD2EopueZzfSHnO
1DnuqMI1OIxkNW2n/D2wpfJobAA4sSLW5pQPHv/5+j/JQIwXJvG6UK40kCqs
SLyJ9XtPfvGjrCKv+3JybTA+avt+TqKcyOf0fENyCKJ0x2fKKAswrz+xUQhH
5mST0QDlkr7m+gqrSJBdWq8FeUl47j9uejg2Cl0WxGF1yt3KtwzCJGOQ9zxU
NIZyzEOJ8g32dzGeJEh/T9lUJF2nLDEWqXqxnguUC8br1Nlr45G+397rIh+J
s46OubeO3getplO5iPLfDWy6XHICttFmVs9RDs9cuclC4QEC/dJcwmgkDGVT
Ur6dfIj69+G1HZSvVd9f/tbqEaK+l9lvWURCTUMxzC72Mfa4Fc62Un4ktu/m
HckU3IkphMViElfq4yptSlLgkOr3p5CyTVAfn7x9Kta16rHWLSHx15SX36vE
NBw7l4MFyj4tMT6ja59j3+moZX1LSViGdhcUlT+HL81LxUmQBH2XwlTg0XTk
hVy4MUB5MK/QSzb5BapyFRgTy0hYRHec2auQhdTr6/drC5NQ3CP/XKomCysv
SbI/UxagnWUNn8yG+c62Mk8REkeK53PeWL1EnpY8N285CbF/Ium2sTlYU/o4
12kViQCBvI3BkvlIlkyetpQksdk46nauZz5SthaoqkqRaA7y+NZZkw/tzJca
otJUfmiKL+jeDGzj/XJvQIZE9Z8UektzAVpHG9qy5ah5J2LV14YWo29Z+tf5
TSQYWy/EmgwUYyhAZEByMwlHT8ufXtol+CjsW759C4nsMZHiypESyFZE/gxQ
InFg5LbOGcNS5Jqbu+mrkrjXfdmAMV8Gk70q6r46JPRk7FJ6rN9AWUOxpUWX
yushTX6BzDdw7+G32goSa0YvOWcqlcM1btPvKT0SHqc1NvB0lWOw7MlspjGJ
lcezn6Vuf4cHRQeK2i1J2No9ziY5lZjxvNay0YMEu9NK8IlUFXRcTpv3epK4
6SjgYmlQhQSBQ8b3/yWR5+whVRBThejimHdS3iSE3XWDrmhWY2zJyKThVRJV
19sPLb5ag0ZV1V1GoSRUM1YslhH4iMDNn3qmM0h8oFc51at8hDC8C+SySTjl
+Ly6ZvcRElvL1ffmkAgr6PXsT/+Ibps8lXwGiZHyzM4081rY9+fszCgj8aB1
d87W6DqY13f+NP9EYtlCwGHjNY2oaDYzOvaL+q/TBx0VjRohE7U6eXqW2leL
otMK90YqJ1dywudJ7Hze5tz5uhG9aoe+faBxUPw8llFIb4LSClHuWWEOxixH
S/c0NMFomWPLifUcWD+Lqz0n1IwqbValuiUHiQ7XzU6sa8bV7WKRBjYcMFe6
1duqN+N8K9fA2o4Dj6v6jboOzfCv3O0WeISD4ANjzUsym1Hq9Hl2xVkOXs/p
dySYfUYmy730RxAHGyzGRypCWrDE0/j301IOpPyMtU8+bkHdT2WJwHIOlmc+
ChEsbAFTfkLGpZKD3wKWdAtmC7bLegyr13HQVF54rmd7K7axhz6s7OLgskrA
/MxQK9r+c3ApneOgQURUlE60YfNFs8ODelxU6Lq5fLJuww/ajk3ORlwUuVYX
nHdtwz8xYjtZplwk1/jYvYptw1LWcusFSy58/LofmIy1wagtPcLjBBd/s9P+
cb7/FeJ/nupbhnJxsUEL9ybb4eRQOUZ0cSFMZwx9EOiAohzPmtX9XKSEqYTO
ynTA/qb4Pu4QF5/MNrY7GnZA2bikvJDNxZZa0XMbYjsQvHixrh9tAr017LRc
zU7sHsv1oylOwPhtqnD95S7cOW1B/+U/gR65dYz58C54N8su8r45gfP+ifYq
yV0I4EbungmZwGNEP4uu7YLslJ2qUNwEZl/76x+S6Ub2C/agT+YEskvsvVmv
u8FU2bfJvnMCq/NX9PDy9kIiPHHwxI5JHA6dtRoU74VIT5zlGv1JPDk+VFut
2IvcGxWvukwmoShWXBxi24vwuwlh7jaT0Pd2uiv2shcrJGybh70moZF4MC1G
uQ9xEQ0N9PRJHHVMc3jW04d9B2m+hnJTCDSVjo//1gefpgdqrI1TSNOIbLkz
2QeNf62TI5WnMCp8eY+bYD9aOh6W/t45Be835lqqGv1wjaBHKzpOIVRuSrQ0
rB8+2/TD/3owhQKmQV2jDhOysdk2Y/LT+GISwAkzZkLo0fzBM4rTmM4qEzc7
wITLQEMCW20amle0jr4/yYTBZ6Elq4ymUbRKebr8PyamO6JVy05No3iXlFzu
CBNf0ueUMrKnUZpGnouJGcCpYEte6V0/8e5MkrTd6CAakqLzFgXPIO+bq6vj
9CBcf4wbiUXPIOWU9itnniFsyRRqpCfNIOhE2yF30SF8W7WtyzdnBibHVty/
oTME61Sjd0EdM2i0C5LICh1CSbxQArVhdJm4idGUhtHNqtIW7P6F+podLgKa
w+Cox/eajPxCmZEgQ0hvGH80yGtRE7/wcNdTKwnrYeReM28iBH/jGNEfrXR1
GLK6QwyJ7b8xomm90rZ+GFf//sudcfc3phR0RTLdWLhks40xYDuLnUz9mjs+
LPjsbtK4cWIWN5NM/E7dYKF69toX5fOzEBe1YsvHs8CQiUp+GTELDV7XxvuV
LKR4evRZ1MzCp/NexG3pESx1PeKzRmsOcxGTIsc/jMC1Nl+c2PgHfL9eLJfe
8B3W1noj3SoLkK7Xn4Dyd+zwdDoppLcAtcftrce1vqM8aypuj8UCXHYvScgy
/w63Rn2jSa8FvI8/tkHf+zsWanVOzeQtIEJbUvt0zXfM1J3GWVkeQsb3pnPh
6R8Yr+57qZLOQ2gsOBVYZo1iJFjQV7iblzAzL79uWDSKzPRlVxezeAnnhLX7
NN+N4gjDLmgJh5eI1OxhSX0ZReur8Mb1/HzENw97SeafUZiY+hrVK/ERiX3W
vp7mY6ApZL/t9ucjeN+Z6oeNjuGXiIku6DRCYnm6sN/0GI58btc+o0Uj6I5L
Oz15xjEp3+j1cBeNOPS75pyV6DjS69YwNtnTiHxVw1RpnXGc54TkF96mESeS
IZAeMo7+hctfm4ZoRF2gWkP1ZjZiyAu2Os8WEdoitXxR6mwssHhDWxiLiGfx
RzXtCTaS3985c7liEXEjK/wR25oNi7JgF3YP9f7ryL8SAWxkfNnJ5y/OTzw7
5veUGcIGnwBd59Z6fkJ8TKwrI5aN16X8SYmq/ASH18BQL4ONOcneldy9/IRj
aPulZYVsEGW1xqoO/ESduGdW61s27oldHPB3pfptSVp9po0NgcdvI3bfpvoV
bDNTY7IhFU+WV8TyE4HER//5UTZK+OfjzVL5iaunMkTCptiY7ejt6X7JT/wP
gypRAQ==
              "]], 
             Line[CompressedData["
1:eJxNzglIEwAUBuA5N29nzrAMp8wMNE/MIzXQRjjPwKVYpNMszbTLg9IobOJC
PJqEmLVlpmZOyc1yIG25shFklzZNBZ1lyzK1aR6bWlsF9Z4PHj8fPPgfPf0M
K4NIIBDi/uzffPrSvTCYPB9G+DdfNBG8DhO0U8A1oZ0VukLuphq3R/eSCnQM
R7QuSk5tpaMzBxOZeZ5oxnSJ2ISBLvJ+05fDRIvzHT73x27o14sc+EnoVep4
ic+pDfd7ghIP1qGdq2dWhd/RPUeKhQ8W0exddoekOrTgfUj3K+ICeCut/JzG
Hk1tc1v0D0OTFRmzch56RjuhGvL9AW7+Ju2jXF0EU2j3NGr1ErjyhCSzwXUF
vBLers4q1oIL/BRd9s904IkORcUAfQ28nj3Id7+wDvbYa6rPlP4EMxvpxzu3
6MHnaakuH5MNYM/ZRMvhOEL4f9vZzJsp1tAkOV+0XWAEzvGXjprHEMHtUekN
PSvo5Zltm6ZqjcGSA0zjmn0kcHEk93bXFJo+Hj3SxCWDQ4JKaxz8TMDJTm9X
jZTo5b6qybMcU3AdiV3AcjXD/1WSRqICTb7ESQjONQcThGzRJNUCnHdTVEXt
RT/2KDOzPW0Jto3O8yyhWIHHvPqVRTK0uD7MVc22BqeIAm1pevRl7h3OWBsF
fP8rjU+JtQGX3eKmqfajj7HmdnTEox1lMnFcErqcd/h5ZTo6K/DGgkUR2qV0
c6RpC1q/+6L1cCt6dO7Tu5Z2dHXSw5SITrRhJyufK0OPDfDqjZXo7ivao8oh
dE1oqnvTCDrmrncXQ4V+VPj6BWcaXesVwIufRedOChLoGrRb7MmJJ0toktFg
c7UW/UESmp22hpZlN/n4/kJfd7ZcNhjQvwF5+x0S
              "]]}, "Charting`Private`Tag#1"], {}}}, {}}, <|
        "HighlightElements" -> <|
          "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
         "LayoutOptions" -> <|
          "PanelPlotLayout" -> <||>, 
           "PlotRange" -> {{0, 4}, {0., 2.7113606845917935`}}, 
           "Frame" -> {{False, False}, {False, False}}, 
           "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, 
           "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> 
           GoldenRatio^(-1), "DefaultStyle" -> {
             Directive[
              Opacity[1.], 
              RGBColor[0.368417, 0.506779, 0.709798], 
              AbsoluteThickness[2]]}, 
           "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
               Identity[
                Part[#, 1]], 
               Identity[
                Part[#, 2]]}& ), 
             "ScalingFunctions" -> {{Identity, Identity}, {
               Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
           False|>, 
         "Meta" -> <|
          "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
           Plot, "GroupHighlight" -> False|>|>]]& )[<|
       "HighlightElements" -> <|
         "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
        "LayoutOptions" -> <|
         "PanelPlotLayout" -> <||>, 
          "PlotRange" -> {{0, 4}, {0., 2.7113606845917935`}}, 
          "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0},
           "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
          "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
          "DefaultStyle" -> {
            Directive[
             Opacity[1.], 
             RGBColor[0.368417, 0.506779, 0.709798], 
             AbsoluteThickness[2]]}, 
          "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
              Identity[
               Part[#, 1]], 
              Identity[
               Part[#, 2]]}& ), 
            "ScalingFunctions" -> {{Identity, Identity}, {
              Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>,
         "Meta" -> <|
         "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
          Plot, "GroupHighlight" -> False|>|>],
      ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, {
       4.503599627370496*^15, -4.503599627370496*^15}}],
     Selectable->False]},
   Annotation[{{{{}, {}, 
       Annotation[{
         Directive[
          Opacity[1.], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[2]], 
         Line[CompressedData["
1:eJwV0gk0lWsXB3CclHTRgIylq9QtDskQ0f9FhkQlQyRS0iTTraRSKCqZL5HQ
ZKhkyHBMScpUGRPJzDEcFc57jiFFfO/3rLXXs35rPWuvtZ/9X3fM44ALHw8P
TyZV/79NXUY+lX+7sHMNz/8PiUUGUp69klZovy8Uw0t528N7iXmSxzHXLL1/
MeVBmfUBFxXc8fmCkpow5T31bblJkufxlW5MSFJeHyqburD2EopueZzfSHnO
1DnuqMI1OIxkNW2n/D2wpfJobAA4sSLW5pQPHv/5+j/JQIwXJvG6UK40kCqs
SLyJ9XtPfvGjrCKv+3JybTA+avt+TqKcyOf0fENyCKJ0x2fKKAswrz+xUQhH
5mST0QDlkr7m+gqrSJBdWq8FeUl47j9uejg2Cl0WxGF1yt3KtwzCJGOQ9zxU
NIZyzEOJ8g32dzGeJEh/T9lUJF2nLDEWqXqxnguUC8br1Nlr45G+397rIh+J
s46OubeO3getplO5iPLfDWy6XHICttFmVs9RDs9cuclC4QEC/dJcwmgkDGVT
Ur6dfIj69+G1HZSvVd9f/tbqEaK+l9lvWURCTUMxzC72Mfa4Fc62Un4ktu/m
HckU3IkphMViElfq4yptSlLgkOr3p5CyTVAfn7x9Kta16rHWLSHx15SX36vE
NBw7l4MFyj4tMT6ja59j3+moZX1LSViGdhcUlT+HL81LxUmQBH2XwlTg0XTk
hVy4MUB5MK/QSzb5BapyFRgTy0hYRHec2auQhdTr6/drC5NQ3CP/XKomCysv
SbI/UxagnWUNn8yG+c62Mk8REkeK53PeWL1EnpY8N285CbF/Ium2sTlYU/o4
12kViQCBvI3BkvlIlkyetpQksdk46nauZz5SthaoqkqRaA7y+NZZkw/tzJca
otJUfmiKL+jeDGzj/XJvQIZE9Z8UektzAVpHG9qy5ah5J2LV14YWo29Z+tf5
TSQYWy/EmgwUYyhAZEByMwlHT8ufXtol+CjsW759C4nsMZHiypESyFZE/gxQ
InFg5LbOGcNS5Jqbu+mrkrjXfdmAMV8Gk70q6r46JPRk7FJ6rN9AWUOxpUWX
yushTX6BzDdw7+G32goSa0YvOWcqlcM1btPvKT0SHqc1NvB0lWOw7MlspjGJ
lcezn6Vuf4cHRQeK2i1J2No9ziY5lZjxvNay0YMEu9NK8IlUFXRcTpv3epK4
6SjgYmlQhQSBQ8b3/yWR5+whVRBThejimHdS3iSE3XWDrmhWY2zJyKThVRJV
19sPLb5ag0ZV1V1GoSRUM1YslhH4iMDNn3qmM0h8oFc51at8hDC8C+SySTjl
+Ly6ZvcRElvL1ffmkAgr6PXsT/+Ibps8lXwGiZHyzM4081rY9+fszCgj8aB1
d87W6DqY13f+NP9EYtlCwGHjNY2oaDYzOvaL+q/TBx0VjRohE7U6eXqW2leL
otMK90YqJ1dywudJ7Hze5tz5uhG9aoe+faBxUPw8llFIb4LSClHuWWEOxixH
S/c0NMFomWPLifUcWD+Lqz0n1IwqbValuiUHiQ7XzU6sa8bV7WKRBjYcMFe6
1duqN+N8K9fA2o4Dj6v6jboOzfCv3O0WeISD4ANjzUsym1Hq9Hl2xVkOXs/p
dySYfUYmy730RxAHGyzGRypCWrDE0/j301IOpPyMtU8+bkHdT2WJwHIOlmc+
ChEsbAFTfkLGpZKD3wKWdAtmC7bLegyr13HQVF54rmd7K7axhz6s7OLgskrA
/MxQK9r+c3ApneOgQURUlE60YfNFs8ODelxU6Lq5fLJuww/ajk3ORlwUuVYX
nHdtwz8xYjtZplwk1/jYvYptw1LWcusFSy58/LofmIy1wagtPcLjBBd/s9P+
cb7/FeJ/nupbhnJxsUEL9ybb4eRQOUZ0cSFMZwx9EOiAohzPmtX9XKSEqYTO
ynTA/qb4Pu4QF5/MNrY7GnZA2bikvJDNxZZa0XMbYjsQvHixrh9tAr017LRc
zU7sHsv1oylOwPhtqnD95S7cOW1B/+U/gR65dYz58C54N8su8r45gfP+ifYq
yV0I4EbungmZwGNEP4uu7YLslJ2qUNwEZl/76x+S6Ub2C/agT+YEskvsvVmv
u8FU2bfJvnMCq/NX9PDy9kIiPHHwxI5JHA6dtRoU74VIT5zlGv1JPDk+VFut
2IvcGxWvukwmoShWXBxi24vwuwlh7jaT0Pd2uiv2shcrJGybh70moZF4MC1G
uQ9xEQ0N9PRJHHVMc3jW04d9B2m+hnJTCDSVjo//1gefpgdqrI1TSNOIbLkz
2QeNf62TI5WnMCp8eY+bYD9aOh6W/t45Be835lqqGv1wjaBHKzpOIVRuSrQ0
rB8+2/TD/3owhQKmQV2jDhOysdk2Y/LT+GISwAkzZkLo0fzBM4rTmM4qEzc7
wITLQEMCW20amle0jr4/yYTBZ6Elq4ymUbRKebr8PyamO6JVy05No3iXlFzu
CBNf0ueUMrKnUZpGnouJGcCpYEte6V0/8e5MkrTd6CAakqLzFgXPIO+bq6vj
9CBcf4wbiUXPIOWU9itnniFsyRRqpCfNIOhE2yF30SF8W7WtyzdnBibHVty/
oTME61Sjd0EdM2i0C5LICh1CSbxQArVhdJm4idGUhtHNqtIW7P6F+podLgKa
w+Cox/eajPxCmZEgQ0hvGH80yGtRE7/wcNdTKwnrYeReM28iBH/jGNEfrXR1
GLK6QwyJ7b8xomm90rZ+GFf//sudcfc3phR0RTLdWLhks40xYDuLnUz9mjs+
LPjsbtK4cWIWN5NM/E7dYKF69toX5fOzEBe1YsvHs8CQiUp+GTELDV7XxvuV
LKR4evRZ1MzCp/NexG3pESx1PeKzRmsOcxGTIsc/jMC1Nl+c2PgHfL9eLJfe
8B3W1noj3SoLkK7Xn4Dyd+zwdDoppLcAtcftrce1vqM8aypuj8UCXHYvScgy
/w63Rn2jSa8FvI8/tkHf+zsWanVOzeQtIEJbUvt0zXfM1J3GWVkeQsb3pnPh
6R8Yr+57qZLOQ2gsOBVYZo1iJFjQV7iblzAzL79uWDSKzPRlVxezeAnnhLX7
NN+N4gjDLmgJh5eI1OxhSX0ZReur8Mb1/HzENw97SeafUZiY+hrVK/ERiX3W
vp7mY6ApZL/t9ucjeN+Z6oeNjuGXiIku6DRCYnm6sN/0GI58btc+o0Uj6I5L
Oz15xjEp3+j1cBeNOPS75pyV6DjS69YwNtnTiHxVw1RpnXGc54TkF96mESeS
IZAeMo7+hctfm4ZoRF2gWkP1ZjZiyAu2Os8WEdoitXxR6mwssHhDWxiLiGfx
RzXtCTaS3985c7liEXEjK/wR25oNi7JgF3YP9f7ryL8SAWxkfNnJ5y/OTzw7
5veUGcIGnwBd59Z6fkJ8TKwrI5aN16X8SYmq/ASH18BQL4ONOcneldy9/IRj
aPulZYVsEGW1xqoO/ESduGdW61s27oldHPB3pfptSVp9po0NgcdvI3bfpvoV
bDNTY7IhFU+WV8TyE4HER//5UTZK+OfjzVL5iaunMkTCptiY7ejt6X7JT/wP
gypRAQ==
          "]], 
         Line[CompressedData["
1:eJxNzglIEwAUBuA5N29nzrAMp8wMNE/MIzXQRjjPwKVYpNMszbTLg9IobOJC
PJqEmLVlpmZOyc1yIG25shFklzZNBZ1lyzK1aR6bWlsF9Z4PHj8fPPgfPf0M
K4NIIBDi/uzffPrSvTCYPB9G+DdfNBG8DhO0U8A1oZ0VukLuphq3R/eSCnQM
R7QuSk5tpaMzBxOZeZ5oxnSJ2ISBLvJ+05fDRIvzHT73x27o14sc+EnoVep4
ic+pDfd7ghIP1qGdq2dWhd/RPUeKhQ8W0exddoekOrTgfUj3K+ICeCut/JzG
Hk1tc1v0D0OTFRmzch56RjuhGvL9AW7+Ju2jXF0EU2j3NGr1ErjyhCSzwXUF
vBLers4q1oIL/BRd9s904IkORcUAfQ28nj3Id7+wDvbYa6rPlP4EMxvpxzu3
6MHnaakuH5MNYM/ZRMvhOEL4f9vZzJsp1tAkOV+0XWAEzvGXjprHEMHtUekN
PSvo5Zltm6ZqjcGSA0zjmn0kcHEk93bXFJo+Hj3SxCWDQ4JKaxz8TMDJTm9X
jZTo5b6qybMcU3AdiV3AcjXD/1WSRqICTb7ESQjONQcThGzRJNUCnHdTVEXt
RT/2KDOzPW0Jto3O8yyhWIHHvPqVRTK0uD7MVc22BqeIAm1pevRl7h3OWBsF
fP8rjU+JtQGX3eKmqfajj7HmdnTEox1lMnFcErqcd/h5ZTo6K/DGgkUR2qV0
c6RpC1q/+6L1cCt6dO7Tu5Z2dHXSw5SITrRhJyufK0OPDfDqjZXo7ivao8oh
dE1oqnvTCDrmrncXQ4V+VPj6BWcaXesVwIufRedOChLoGrRb7MmJJ0toktFg
c7UW/UESmp22hpZlN/n4/kJfd7ZcNhjQvwF5+x0S
          "]]}, "Charting`Private`Tag#1"], {}}}, {}}, <|
    "HighlightElements" -> <|
      "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
     "LayoutOptions" -> <|
      "PanelPlotLayout" -> <||>, 
       "PlotRange" -> {{0, 4}, {0., 2.7113606845917935`}}, 
       "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, 
       "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
       "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> {
         Directive[
          Opacity[1.], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[2]]}, 
       "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
           Identity[
            Part[#, 1]], 
           Identity[
            Part[#, 2]]}& ), 
         "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>,
        "Primitives" -> {}, "GCFlag" -> False|>, 
     "Meta" -> <|
      "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
       Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]],
  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]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 4}, {0., 2.7113606845917935`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.88054672757839*^9, 3.9194207733919277`*^9, 
  3.9243483103418903`*^9},
 CellID->641218482,ExpressionUUID->"9c58d0f8-c164-8b41-b580-af1aa2c8458f"]
}, Open  ]],

Cell[TextData[{
 "Therefore the Laplace transform of ",
 Cell[BoxData[
  FormBox[
   RowBox[{"q", "(", "t", ")"}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"eee88913-370c-4bae-aeb6-245a1ea3e54f"],
 " exists, and in fact it exists for any complex ",
 Cell[BoxData[
  FormBox["s", TraditionalForm]], "InlineMath",ExpressionUUID->
  "4562e570-47bf-4f46-acce-f469cdff9f94"],
 ":"
}], "Text",
 CellChangeTimes->{{3.880546736165367*^9, 3.880546751666671*^9}, {
  3.915438088169323*^9, 3.915438092010684*^9}, {3.945881596312202*^9, 
  3.945881607938336*^9}},
 CellID->1404545184,ExpressionUUID->"6dc59ea9-0a82-496d-99ad-dc32f770d9ca"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LaplaceTransform", "[", 
  RowBox[{
   RowBox[{"q", "[", "t", "]"}], ",", "t", ",", "s"}], "]"}]], "Input",
 CellChangeTimes->{{3.880546695412949*^9, 3.880546698040515*^9}},
 CellID->1483178222,ExpressionUUID->"023d16cb-2a81-409c-b770-bd626116043f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"DawsonF", "[", 
   FractionBox["s", "2"], "]"}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"-", 
     FractionBox[
      SuperscriptBox["s", "2"], "4"]}]], " ", 
   SqrtBox["\[Pi]"], " ", 
   RowBox[{"Erfi", "[", 
    RowBox[{"1", "-", 
     FractionBox["s", "2"]}], "]"}]}]}]], "Output",
 CellChangeTimes->{
  3.880546699284213*^9, {3.8805467752989607`*^9, 3.880546795088722*^9}, 
   3.915438100738704*^9, 3.9194208046496887`*^9, 3.9243483122070427`*^9},
 CellID->667188508,ExpressionUUID->"26346751-a5b1-3c47-858e-d34ad44b1014"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ComplexPlot", "[", 
  RowBox[{"%", ",", 
   RowBox[{"{", 
    RowBox[{"s", ",", 
     RowBox[{
      RowBox[{"-", "10"}], "-", 
      RowBox[{"10", "I"}]}], ",", 
     RowBox[{"10", "+", 
      RowBox[{"10", "I"}]}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.880546755256659*^9, 3.880546798752802*^9}},
 CellID->881791148,ExpressionUUID->"6069fafd-68ed-42b6-9196-0129f58915f1"],

Cell[BoxData[
 GraphicsBox[{GraphicsComplexBox[CompressedData["
1:eJx12yGo31UYh/GLK0viQBAugs6ZRMQgNtFkHZhWDFcwmJRh0mJYElYXV60r
hiXHkswiiAaxro41g8X753c+L/gctBweGfN4H875vef7vvf6Z19+8vkLZ2dn
d66cnZ3W4583H1lvPfviztP7bww/+Ou3q798cH34pXvfnl88fG340e2bN97+
+9Xhr0743vnw65f0+PYrw79e/m13H7w8/N3T+x/fenZt+OLO6V+8OPz48k9f
bmH4xumvu3ll+OrFwx+u3fvnJ/zktN27z4ffPT/9gT+Gfz74Q/z8+PPD7xx/
3/D7x3/vI/z7sZ/hr4/9Dn9//P8M/3n8/w6/dfw8hr85fl7DT46f5/D58fMe
/vHwMfzp4Wt4reXx2pVfzC/mF/OL+cX8Yn4xv5hfzC/mF/OL+cX8Yn4xv5hf
zC/mF/OL+cX8Yn5n/8sv5hfzi/nNuSxvHnFXfjG/mF/ML+YX84v5xfxifjG/
mF/ML+YX84v5xfxifjG/mF/ML+YX8zv7X34xv5hfzG/u2fJ2LusRd+UX84v5
xfxifjG/mF/ML+YX84v5xfxifjG/mF/ML+YX84v5xfxifmf/yy/mF/OL+c13
s7zdsz2X9Yi78ov5xfxifjG/mF/ML+YX84v5xfxifjG/mF/ML+YX84v5xfxi
fmf/yy/mF/OL+U0dVN6+m71ney7rEXflF/OL+cX8Yn4xv5hfzC/mF/OL+cX8
Yn4xv5hfzC/mF/OL+Z39L7+YX8wv5jd1bXmrg/rd7D3bc1mPuCu/mF/ML+YX
84v5xfxifjG/mF/ML+YX84v5xfxifjG/mN/Z//KL+cX8Yn7zTilvdW3roH43
e8/2XNYj7sov5hfzi/nF/GJ+Mb+YX8wv5hfzi/nF/GJ+Mb+YX8zv7H/5xfxi
fjG/eXeWt3dK69rWQf1u9p7tuaxH3JVfzC/mF/OL+cX8Yn4xv5hfzC/mF/OL
+cX8Yn4xv7P/5Rfzi/nF/CZHKG/vzr5TWte2Dup3s/dsz2U94q78Yn4xv5hf
zC/mF/OL+cX8Yn4xv5hfzC/mF/M7+19+Mb+YX8xvcqHyliP03dl3Suva1kH9
bvae7bmsR9yVX8wv5hfzi/nF/GJ+Mb+YX8wv5hfzi/nF/M7+l1/ML+YX85uc
r7zlQs0R+u7sO6V1beugfjd7z/Zc1iPuyi/mF/OL+cX8Yn4xv5hfzC/mF/OL
+cX8zv6XX8wv5hfzm9y2vOV8zYWaI/Td2XdK69rWQf1u9p7tuaxH3JVfzC/m
F/OL+cX8Yn4xv5hfzC/mF/M7+19+Mb+YX8xvcvjylts252su1Byh786+U1rX
tg7qd7P3bM9lPeKu/GJ+Mb+YX8wv5hfzi/nF/GJ+Mb+z7+UX84v5xfymr1Le
cvjmts35mgs1R+i7s++U1rWtg/rd7D3bc1mPuCu/mF/ML+YX84v5xfxifjG/
mN/Z//KL+cX8Yn7TJytvfZXm8M1tm/M1F2qO0Hdn3ymta1sH9bvZe7bnsh5x
V34xv5hfzC/mF/OL+cX8Yn5n/8sv5hfzi/lN37O89cnaV2kO39y2OV9zoeYI
fXf2ndK6tnVQv5u9Z3su6xF35Rfzi/nF/GJ+Mb+YX8zv7H/5xfxifjG/6WOX
t75n+2TtqzSHb27bnK+5UHOEvjv7Tmld2zqo383esz2X9Yi78ov5xfxifjG/
mF/M7+x/+cX8Yn4xv5lLKG997PY92ydrX6U5fHPb5nzNhZoj9N3Zd0rr2tZB
/W72nu25rEfclV/ML+YX84v5xfzO/pdfzC/mF/ObOZPyNpfQPnb7nu2Tta/S
HL65bXO+5kLNEfru7DuldW3roH43e8/2XNYj7sov5hfzi/nF/M7+l1/ML+YX
85u5ofI2Z9K5hPax2/dsn6x9lebwzW2b8zUXao7Qd2ffKa1rWwf1u9l7tuey
HnFXfjG/mF/M7+x/+cX8Yn4xv5kDK29zQ50z6VxC+9jte7ZP1r5Kc/jmts35
mgs1R+i7s++U1rWtg/rd7D3bc1mPuCu/mF/M7+x/+cX8Yn4xv5nrK29zYJ0b
6pxJ5xLax27fs32y9lWawze3bc7XXKg5Qt+dfae0rm0d1O9m79mey3rEXfnF
/M7+l1/ML+YX85s5zfI219c5sM4Ndc6kcwntY7fv2T5Z+yrN4ZvbNudrLtQc
oe/OvlNa17YO6nez92zPZT3irvzO/pdfzC/mF/ObudvyNqfZub7OgXVuqHMm
nUtoH7t9z/bJ2ldpDt/ctjlfc6HmCH139p3SurZ1UL+bvWd7LusRd+UX84v5
xfxmjrq8zd12TrNzfZ0D69xQ50w6l9A+dvue7ZO1r9Icvrltc77mQs0R+u7s
O6V1beugfjd7z/Zc1uPsP+vkz4snf148+fN/5+LL2xx15247p9m5vs6BdW6o
cyadS2gfu33P9snaV2kO39y2OV9zoeYIfXf2ndK6tnVQv5u9Z3su6xF35Rfz
m99zKG9z8Z2j7txt5zQ719c5sM4Ndc6kcwntY7fv2T5Z+yrN4ZvbNudrLtQc
oe/OvlNa17YO6nez92zPZT3irvzm91bK2+85dC6+c9Sdu+2cZuf6OgfWuaHO
mXQuoX3s9j3bJ2tfpTl8c9vmfM2FmiP03dl3Suva1kH9bvae7bmsR9yV3//7
vaT+Hgu/uHPynavuHG7nNjvn17mwzhF17qRzCu1rtw/avln7LM3lm+M292tO
1Fyh79C+W1rnti7qd7T3bs9pvXb9F0fyBaA=
    "], {{
      {Opacity[1.], Texture[
        GraphicsBox[
         TagBox[
          RasterBox[CompressedData["
1:eJysvAdQVGka/vuve6vu7uyEHWc2zSzBnMesJAlKMmIiqZhAVDAigiKIAcGc
IxgxAIqBKCI5x865m845n87dhK37ndM0NMmZ3fpXPbs1g7hbnB/P8z7fOaff
CZGHN+75f/7P//k/8X8G/7Vx1/FlR4/uStr0I/iXkEPxMXsPRe9eeehY9N7o
o66R/y/44s3+/8D/zNWZmRoTTW0kKgwYmb5NrG0QaCq56lKm6j1NkUOWP8VL
H6AlN9tFl5qFafWCU9X84xW8o5+5h0q5sUWcvQWc3e85kfnsHW/Y23PZEa85
W19yNr/ghD/nhD/jhD3hhj7mhmbxQjN5IQ95Iff5Iff4IXcFIXeEIbeFITdF
ITdEIdfFIdckIVckIZelIZdkIRdlIRnykHRFSJoy5Jwy5Kwq5LQ65BQUlgKF
J0NbTkIRSdC249CORGjXMSgqHoqOg/YehmIOQvv3QwdjoMN7objdUPwudeJ2
9Ymt6pPh6pRg9en16rNr1Gkr1BcDlNf8ZLd8JfeXibK8+U88udnu7FeuzLwl
jLeLaO8XUAvmkYvmkEpmEz7NxH+ejv0yFVM5CV01AVXj3Fnr2FHn2Fbv2NLg
2NTo2NDkWNfsUNPsUNXiUNnq8KXN4XObQ1m7Q2m7Q0mHQ3GnQ2GnQwHK4QPK
4T3a4R3aIR/j8AbjkId1yMU65GAdXuMcXuIcXuAdsvEOz/EOzwgOTwkOT4gO
j4kOj4gOWSSHTJLDQ5LDA5LjfbLjPbLjXbLjHYrjbYrjLb7GwlaZGQozWWbC
iY2dfEMzR1/TpftM1RQSobcY9csO1aNm5d16+fUq+cVy2blSaUqh5MQHSfxb
8eFc8YFX4pgX4j3PxLufiCMfiXdminc8EG+/J4m4I4m4Ldl6U7rlhnTzNenm
q7LwK7LwS/Lwi/KwC4qwdEXYeWVYmirsnCr0jDr0tDo0FQo7BYWnQFuSoa1W
KCeg7VYuCVAkgmb3UWjPEYTOISj2QD+gQ3uhI3ugo4BRpDphp/r4NhumEHXq
RvXpdeqzq/tJXfWX3/SV3l0mfuAjfOTFf7aU+8Kd/RqBlY/A+jgEFg7AqpiM
rpqIqh7fWes0BFajY32TQ22zQzUCq6LVoRzwanf4BHgBWB0ORQBWp8NHhBcM
C+3wFuE1AOsV4DUMFsEGizg2LCCBupuj6O6SWahiC4FvRnFMrV3GOqqxgmAo
QevfteleN2qf1mgefIFulUKXC9Tp79Snc1UnX6oSn6uOPlYdzlQduK+KuaPa
c0u1+4Yq6qpq12X1jovq7RfU29KhiDRo6zlNxBko4jQUkQptOwVtS4G2J0Pb
T0I7kqCdJ6Bdx6FdiVBkAhR1DNoNzAKIAL8cgfYhUIBrrFwOxEKHEO8ANHHR
0NEoQAc6tkudsKMfUNKWfkanNqlPb1CfCerHlBGouhygsHrKSirLC7bVcw/2
SzdWjkvXm8V0AOvDAspQZ+HKp2IrJmMqEVg1MKz2esfWesfmBsdGG6yaFthc
Ffbm6oDNVYSY66PNXAOw8uxh2cz138GiOt4UKnu5sh6muIcm6CFyutFd3W1U
Sz3BXIk2l7aaPjSYcquMz8qMmUWG2+8MV3MNGS/0Z5/qT2Xqku7rEm/r4m9o
465qD1/SHrygPXBeE3tOE3tGE5Oq2XdKsy9Zs+8ktO8EtO84tC8R2pcAxcRD
MUeh2Dgo9gi0/zC0/xB04CB04AB0cD90yEpkH3QEBJoVCrBMFIACAdcALiDf
BtFsVieHIXSCEROtRwCtUZ9b1c/oYoDiir/8OoLpznLxfR9hprfgsRfv6VJu
tpWUa5c1A98tpH6cTymcSyr+jTgCFrp6PKrGCSRhe10/LPsktJrrC2KuMsRc
JYi5rEn4cYwktIf1nNDP63dh3bbCojreEMr7eJJelrCXzu0lM3twtJ4OYncT
prum3VLeaC6uNr/7bMopMj1/Z8zKMdzNNtx8rL/yQH/hti7tuu7MZW3qBW1y
mjbpjPZEqiYxWZOQpDl2XBOfoImP18QfhY4egY4eho4ehI4egI7GQvExUPw+
KH4vdGwPdCwaSoiCEiKhxF1Q4k7o+A7oOJg429RJEeqkrQiRcARKqPoU4hqY
CzDOOhsaYJ+V6vP9dJTARFcRQCDxbi8HVhIBRg+9BcBNjz15z2yYQPrl2jz1
fiH1w/xBW5XOwpfNwH2ehrWPQRusIWNrZBK2/U4S5g1NwlHH1h+CRXW8Lpb2
CUS9XH4vk91LY/QQyT0YXHd7Z3djs6W61vz5i7mo2PTuvTE3x5j93PA4y/Dg
nv7ODf2Ny7qrGbpL57QZqdrzydpzxzVnEjSnj2pSD2tOHdSk7IdSYqDkvVDy
Hih5N5QcCSXvgpJ3QsnboeRtUEoElLIFStmsPhWuPhWmTg1Vp4JKAHJso/oM
QuQsILJWfc7qFxuUC4HKSwEKKxeQbzf8pDd9JQANsM+9ZaIHVjre/EdevCee
sI+ee3DAeLIyArkHu2kopgFP9ZOajoVtNQUpGLYYtDlr5NganoTtfzgJv9ox
HpAc7GENJGE/LKrjNamkTyTs5XN72czeLloPhdhDQHejW7tb6y0NleaqUnPZ
B1NRrvHdc2NupuHlHcPTa/qsC7r753R3TuluJmmvJ2ivxmkvH9JcjNVc2KfJ
iNakR0Lnd0Lnt0NpEVDaFigtHEoLg9JCoLRgKG2jOm2DOm2dOi1IfX6N+vxq
dfoqdcZK1YUVqosrlJcCERwB8mv+suv+MBGQZreRQLu7XHTfCsVHAJINtIXH
MBeulQvwzgt3Vj8a165chA4wERJ3cJEA4+mjjVHRHGJ/9PVjwpVbPWVPqr8N
Dswse1j2Y+uPJ+HvjK2BQki2mWtUWDTHq3JRn4TfK2T38hi9LHIPHddD6ujG
NXV3Vltaysx1BebKPFNZtrEo0/j+tiHviv5Vuv75ad2TJF3mMe2Dw9q7sdrb
ezQ3ozQ3dmiuR2iubYauhkJXgqErG9VX1quvrlNdXau6tkZ5bbXi+irF9ZXy
GyvkNwNltwKkt/2ld/wld/3E93zF95eLHiwXPlwmzPQBHhE88rbi4D315D5b
CnBwXoA0c2e9GkkEsQyYQfZQCuZauSD26XcQPJiArIBA6A0wAtFnxQRKuz0p
m62sBWMgBq2wRh1bg0log/V27LH1P8KiOV5RCPuk3F4xs5dP7eUQerpQPdSW
bmKtBVNuaS8yN701174wVWQZy24biq7oP5zX5Z/S5h3XvI6DXhyAnu9VP41S
PdmhfLxV8ShckRUiz9oky1ovywySZq2RZK2WZK0UZ60QPQoQPfIXPvYTPPYV
PFnOf7qM98yH99yb+9yLm+3JebGU/dKD/cqd9dqdmePGzAVNwIXxBsTXEnr+
Yto7a4ItgFvBx/nkYR4pRWwyCGI6DALEGmDxZUo/DisRWBMRLlY0CB0rIHhI
wdFnxdRmR8pmq8GZZQ9r2NgaNQlHGVtIxxilEP4RWDTHyyp+r5zdK2X0iMjd
fFw3p8PS1WSmVZtIZUbsR0Nnrr71ma7xgbb2hqbygrr8jKo0SVkcryg4KP+w
V/YuUpq/XfJmizgvVJS3UZi7TpC7lp+zipezgpcTwM3x4+Qu5+QuY+d6s/K8
WG+WMt94dL1173rrxsh3pb9zob9fQnu/mPphEfXjQkrBAnLhfHLRPFIxGCtz
gC/6WZTNxH2egSsHR1fgiNHsgEwZ66AZuNpWtYym1tE08KfNVkxWT9mRqhkb
1sDYsj8d/5Gx9b/Aojlegng9Kna3gt4tJVnEWLOg3cRtMLIqDfRSHfm9lvBK
g3ms7ryrar2iaEqT16dIa45JKg+JvuwVfo4UlEXwPoVxSzZxStaxi9ewilYw
i/y7iny7inwYRV70oqW0IndqsSu12IVSsphcspBcuoBUOp/4aS6xbA6h7Df8
51n48pm4LzOwX6ZjK6ZiKqegqyajqyfCv/xwLoFTj9NAN7P+ttuiybG22bGm
2bEayHoZEVW0DlULLOsfVTXDqgZXHlx/8NeR/5H6xn412Km+H5Mdqeb+/4uK
YbDah8D63bH1+4Xwd2HRHS9qed0Q06KimRVEkwxtlLQahHV63hctu0jT9VZN
y1aSH8rxN2WYCxJUqqg9UdB6mNe0l9u4i12/lVUX0lWznlGzml4dSKvypVZ5
U6qWkqvcSFVLiFWLCFXz8VVzcdW/4apnYatnYGqmoWumoGsno+omdtZN6Kgf
314/vq3BuaXBubnRqbHRqaHJqb7ZqbbZqaYFUHCsbHWsaHX80ub4uc2xrN3x
U7ujffIU2C7RB+tv9QjBXwcBhXxnIfhbwAjgCoPrDK42uObgyltpDnAcoWo7
Utbq3j+z7GCN2jHGGlvDCuF/B4uOwKI7XtBzLNous4ZiUuONyk69vFknrdaI
yiDBBxU3R8F6ImPckdAui8hn+cQTXPxhNnYvE72D0RlO79hAbV9NbvMntfoQ
WzzwLS64lkWY5vno5jmdzbM7mme2NU9vbZ7W3Dy1qWVyQ8uk+pZJta0Ta1on
VLeOr2wbX9Hm/KXd+XO7c1mHU2mHU0mnU3GnUyHKsQDl+BHl+B7t+A7tmI9x
fINxzMM65mIdc3CO9vfcBrLFehEGBb6I/FE2+E7w/eCKgesGLiDIKHA9EYgF
dvjKhuEboYrWIbYaBut37zt9pWOMdRPja7DojhkGtllPN+lIBg1GD7XpVPUa
RYVaVqyUvJULsyX8hyLudT4rndOVzKQfZVBjqeRIEnELnrAJi1+LwgV2YJe3
Ybya0e6N6CX16IV1qHk1qDlVqNkVqJlfUNM/o6Z9Qk0pRU8uRk8qQk8sQE/4
iJnwATP+HWZ8Ptb5DdY5D+ecg3N6jXN6hXd6gXfKJjg+Jzg+JTg+ITo+Jjpm
kRwzSY4PSY7WeB95JLH+aAO6SYEF/ug2+E5wHcBfBNULXB9wocAVQ/C9Rtjl
AzuA6zwauHKEjr2spD7b2uCosP67jtF/1PrvYTEc000so5Gu15N0OoxG26aG
6pWqCpmyWCJ/K5Rm88QPWYLrDF46hZNCZMdjmbEoRmQ7fUszdVMDZW0teUU1
eXkFyesz0f0TcUkJcWERYV4BYc4Hwux3hJlvCdPfEKblEqa8Jk5+RZz0gjgx
mzjxGWnCU9KEx6Txj0jjM8nOD8nO9ynO9yjOdylOt6lOt6hON6lO12lO12hO
V2lOl+lOl+hOF+lOFxhOGQyndIbT+S6ntC6nc11OZxGdGSrwlXMMpzTwbeBH
Az8j+GHBD45AvAMuDrhQNnDAdLng8lqpIYFZjID4hIArswEakNVWw2DZF8I/
0jGGtvf/CRbD8byZpTPRtUYSZMCodG1ybb0EqhCqi3nKfLb8BUP2kCK5QRCl
YwQpHfz4Zm5sPSeymrW1ghlc1hVUwlhRyPD9QPfKp7vn0VxyaIte0uZn0+Y8
o85+Qp35iDojkzbtAW3qfdqUu7TJt2mTbtEm3qBPvE6fcJU+4Qpj/CXG+IuM
8RmM8eld4893OZ/rcj7LdD7DdE5ljj/FGp/CmpDMmniSNSmJNekEe/Jx9pRE
WFMT2FOPwZoWP0TWL05JYE9OBN/PmpDEHJ/MdEoFEMHPiLC7Ci4IbDqHTIRa
NohKm9cGQtJKzQrukx2mAVJjwfojHWPYUet/gQV+Gy0sjZmuNpGURqzM0C7W
Nwi0lVxNCVOdT1O9ICoysfKbHdKMZsmpOtGxKuH+z/yoYl7ER25IPicol7Py
FdvvOdv7Ccsji+X6kLnoHnPBHebcm8zfrjNnXWXOvMycfpE5LYM5NZ01JY01
+Sxr8hnW5NOsyadYU1LYU5LZU5PYU0+wpx1nT0vkTE/gTD/GmRHPmRnHmXmE
O+swd9Yh7uyD3N8OcH/bz52znzcnljc3hjd3H6x5e4fL+vU5MfA3zz7AnXmI
MyMO5gjwTTjJdDoFrAd+cITaLcRrj8CVBFcVM8JoSEKW2MANyEqqeLT23t8x
MF/rGMPa+/8IC/wUFrbaQleaSTITVmxsFxgaOPrKLl0JVfOOAL1Eq7PalLca
FBeqZamfpQnFkgMfxLvfiLa9EoY+E6x/JFj1gO9/h7fsJs/rGs/jMtf1IndJ
OndRGnfhWe6C09z5p7jzkrlzT3LnnuDOTeTOSeDOOcadc5Q7N4479wh37iHe
3IO8eQd48/bz5sfw5u/jLdjLX7CHvzCav3A3f1EUf9EuweKdgsU7BEuAtguW
bBO4RAhctgpdgbYMl8tW+E/B9yzeAf4if0EUb94eGN/sA5wZR4ArWROTgN1A
VIJLgRjNigzOxhHIiuyoldjbalh7/4MdY1h7t5vFvw+LYYXl1A8LxEU3W9nN
kFnIYjNOYOrgGBu7DFVU/SeC7gNam9MKPWlQ361SXSlTniuUn8yXHX0tjX0u
2Z0l3nZfHH5LtOmaMOiScFW6MPCcwO+0YFmKwPukwOs4f2kC3yOe7x7HdzvM
dz3Idz3Ad4nlu8QIXPYKXPYIXHYLXKIELpEC150C1x1C1+1Ct21Ct61C9y1C
981C93ChR5jII0S0NFi0dJPIc6PIc4PIa73Yax0s7yCx91pEa+y0Fv661zqR
53rR0o0ij2ChexiACCjzF0YCcDC16XEgVJnOKeAHR5DdApcOzBQkGEEJeTPQ
Hu2Q2avI7ijx9Tu6oxbCPw5rwFajwAJjuocr72ZKLFShhcA1o5mmFpqxjmj4
gtEXteneNmpfVGkyy9S3ClQX3yrPvFSceCKPeyDbf1sWfVW644JkS5ok9LR4
Y7J43XHxmmOilXGiwEMi/wMivxiR717R8mjRsiiRzy6Rzw6R93aRd4TIe6vI
e7PIO1zkHSryDhF7bxJ7bxT7bBD7rBP7BImXrRUvWyNZvkqyfKVk+QqJb6DE
N0Di5yfx85X6L5f6L5P6+0gDgLylAV7SQDuBfwVf9PeR+C2X+PpJlgeKl60C
EAE7AE6wJAKmNncfZ+ZhEI8gG8FFABcHXDRwGcdIxSI7ZEVjwBp9bNl1jOHt
3XYTY1RYgyfioRk4BFaX0+kenrSHJeqm8y0ktgXLMLeTTY04Y1WHobRJ/6FG
l/NZ+7RQc+8tdO2lOuOxKvWe8vgNRdwl+f40eXSqbFeSLOKYdPMRaegB6aYY
6fo9kqAoyZqdktXbJKu2SlZulqwIkwSGSAI3SQI2SALWSQKCJAFrJAGrJAEr
JQGB0oAAaYCfNNBXGrhcGugjXeEtW+UtW+MlC/KSr/eSb/SUb/JUhHgqwpYq
wpcqtixVbvVQRngot3kotyPa4d6v7cgXt3oowj0UIUvlGzxlqz2l/t4SX3+x
zypgT6FbuGDRThjZjCOgjYAfHFwWcLkQiz1Ben4/LxRyxO4YRPY1WOjRx9bI
Qmh/1PqvYIGue84eFoj0Hr6khyPo7uJ2U7oseKq5k2BuRplqW4zldYbCL/o3
RboX+dqsl5rbj6HLd9Vp19QpGarEM8q4JOX+Y4q9hxRRsfId0fKIXfLN22Rh
W2QhobJNm2QbNsjWB8nWrZEFrZQFBcrW+suC/GTrfOXrl8s3LpNvWiYP9lGE
eivCvBWbvRRbPJURnsrtS5U7lqp2eagiPVS73dV73NV73dQxbupYN+iAK3TQ
FTrsAh1x0cS5aI4u0cQjOmYT+Gfwxbgl8PcccFXvc1NFuQOy8uCl0pVewHHA
a0L3UBjZnBhQQuBUdMwAl2skL5u/hvEq/G+ScGQhtL+JMQTW77aLgWMLE4EF
wqFXIOrh8nqYrG4avZtIsqCx5rZ2c32DqaLSWFJqeP9e//q17ukT7f272htX
NRfTobOn1MmJ6sQjqqOxqsPRqv07lTERyr3hyugQ5e6Nyqh1ysg1yshVysgV
yshAZaS/KspXFbVctXuZKtpHtcdbvddLvc9THbNUvd8DOuABHXSHDrtBR9w0
R1018S6aBBdt4hLtiSXapMXa5EW6lEW61IW60wt1Zxfozy3Qp83Xn5+vT5+n
z5hnuDDPcHHuoC7AX4T/9OwC8Fe0SYsARGi/q2qXO0zN30fss0boFgZ6CEhF
0D3ABQGXC+H1FNdf7IfNr98x11hJaN8xhh21/iisERloJQXLOaVXJOjlc3vY
zB4GtZtC6MajLKgWS0udua7cVFFkKn1r/PDCkJelf3Fb/+gy/JzyVrL26jHt
xYOa8/s0ZyM1qds0KZs1J0M0JzZqjgdpEtdoEldqEgI1Cf6aBF9N4jJNoo/m
uJfmuKf2xFJtkrv2pJs22VWX4qJLddGdXqI7s1h/dpE+baH+/EJ9xgLDhfmG
S/MMl+cars41XptjvPGb8eZs463ZpjuzTHdnmu7PND2YYXo43Zw53Zw1Ddaj
qYPKmgb+yHR/hunOTOON2YZLc/Vn52tPLAbUFFs8YGRe60CBBIUfRCLC6yYy
v54Dg9jMNZCEQ5rG2OYa1gmHja1hsO58Hdao7WIQlnMKrPHJfVJBr4jTy+/q
5VB6uvA9VFQ3obkbXWtp+2xpLDRXvzF/fm4qfmh6f9OYd8H48ozh6QlDVpzh
wX79nWj9zR3661v0V0P0lzfoLwXpL67SXwzUX/DXX1iuv+Cjv+Clv7BUf9Fd
f9HNcMnFcHmJ4cpiw9VFhmsLjNfnG2/MM96ca7w9x3TnN9Pd2ab7s0wPZpoy
Z5izppsfTzM/mWp+NsXyfLLlxSTLy4nmVxPMryeYciaYcscb82AZ3jgb3iLK
d9Yjsv6rMc8ZfA/4fsvzSabM6QCc/tx8EJXKLR5gnIFBBiKRNfEEuD5glCBh
CMz1duiR2b7JF9vycMh9QrubuiOTcFgh/N9hMYfCYo1PBmfJPgW/T8bpEzN6
BZReLq6X2dlDa+ohVfdgy7o7P3a35Frqn1qq7ps/XzMXp5s/njLlJ5jyDple
7TW92Gl6ttX0JMT4aIMxa40xc4Xxob/x4XLTA2/Tg6WmB+6mh66mh4tNmYtM
mQtMWfPMj+aaH/9mfjLb/HSm+dkM8/NpluyplpdTLK8mmV9PMudMNOVONOVN
ML6ZYHg73pA/Xv/OWffeWffBSfvRSVPgpCl0hIoc1cUOQKoSB1Xpv5WfYCnK
foX1+VfrP8BfLP03+B7w/bp3TjC7x1MNl+eAASdb5wkOCIAX+NnBlAd5BXyB
OAu+kWg7I38acU9j1GfHb+xrxtAkHFYI/yCsUW1lgwVIIbBYE5L+o+b3Kdl9
MkafhNwnxPbx2ntZjb2Mql5KaQ/hfQ/mVU/74+7mO931l7urz3ZXnLCUHbGU
xFgKIy0ft1reh1jy11nerrK8CbDkLbPkeVly3S25LpbcRZbc+Za8uZa82Za8
WeY3M8xvppveTDO9nWrMn2LIn2x4N0n/fqL+/QTdhwnaj+O1Bc6aQmeoyAkq
dlKXOKpKHZSfHJRl/1Z8/re8/FfZl19lFb9IK3+RVP1LXP0vcc0/RbX/FNb9
QwBU/3d+w9/5jX/j2Qn8K/g6+AZx9T/l5b9ARQ6mnPHGa7+pot1AJHJnHQS/
yeB6Al8AsyCk4Pu9tpu95QO34ttHeXw8cKtwmLn6k9BubA07ao0Fa9R2MYqt
YE1MAsnwHw3vP2rWf5S0/8iJfVJMn6i1j1/fx/nSxyzqpb/tJWf3Eh72Yq73
dqb3tKb0NMX31O/vro3qroqwVIRYyteZP680f/IzlfqYSpYaS1wNxYsNxQv0
xfP0Rb/pimbpimdoi6dri6dqSqZAJZOg0onq0gmqT+NVZc7KMifFZydFuaP8
i4Os4t9A0spfJVW/iKt/EdX8q59I/T8ADoCA2/Q3TvPP7Naf2G3jWO3jmB0/
dnX+lYH6gY7+nob5nor5jor9loL7CxAZD/QN+G8K7lsa5jtG5w/slp8AYuBT
UEUAL/CDA1jAIAAE4GL3CMz6tGvU1zPseeXbePVPrtGTcEh7/59hDdoKhjXp
BGvS8f/ouP/RMvsgap+K0KdA9claesW1vcLyHl5hDzuvu+tZN/W+hXTNjE8z
YU6aOuOM7TGGll2Gps36xk26+jXaukBtzXJNtSdU7QZVLVZXLVBVzVVVzlZW
zlRUTVNUTZVXTZZXTZRVT5BWO0tqnCQ1juJaB1Hdv0V1vwrrfxE0/Ivf+E9e
0z94zX/nNv+N0/I3duvPrLafmO3jujp+ZHT+lY7+ASaC/Q5cf0CBRPgzkfgn
POn/w5L+hCL9qYP0p1bSn5pJf24k/bmO9Oca0p+rSH+uIH1TTvzmMyLwD+Ar
TaQ/AYjAaPxFu8AVBiwaHesbHJvsXgOwPryuh59cIy/V2N4ttL61W2zPayAM
B8xF6DeXLQmHHrVGgzV6FRwysOAMHLSVFRY47/cZOH26rl4ttRci9KhQPYrm
bllNt+SzRVRg5ueaOE+NrLsGxhU99ayOfEJLOKzB7YEw29WoMFXnemX7SkWb
r6LVS97iJmtZLG2eL2meI2meJW6eLmqeImyeJGieIGhx5rc48loduK2/ctt+
4bT9k93+D1bH35kdf2N2/tyF+omB/pGO/isN8wMV+z0F9x0Z/y2J8A2R+GcC
6U840p/QpD91kv7URvpziw1KNekbK5FS4jdFxL98JP7lHfHbPOK3r4nfZhO/
e0L4LpPw/T3C97cIP1zB/5CB/+tp/F8TcD9GYn/aiFmWHKZ+7cr8MJ9S/Bvx
00x8+TQs/Goo8voB8vZai/V1axuyL9a34kfysoXhoLlsSWjfMQZhDRyKR4P1
lQwctBX8hGJyIntKQq+R02Po6tFTurX4bk2nRd1sVlab5GVG6QeDOEcvfKzj
3dFwLkGs0+quRCX9gIIaJSdvlZI2SQhrxHh/Ec5biHMXYBfzsfN4mNlczAwO
ZgobM5GFGc/EODKx/+7C/sLA/pOO+zsN9zMVP45C+JFM+IFM/J5E+pZI/gue
/A2W9A2a9E0n6Zt20jctpG+aSN80kL6pJX3Tz4X0l0/EvxQT/1JA/Mt74rdv
id/mEr99SfzuOfG7x4TvHhK+v0v4/qYNzRn8X0/if4zH/RiLG7cT+9NWrHM4
5rdgzNI16CDXzli3+rzgi9KkzeobvtJnSzl5SxgfEXBlM3BfpmAANeRDDa2I
16zIKhGLWSPRnlfeUHMN1IzMYR3j92CNloED1WKorZDHSfCzpB4zu9vE6DaS
LXqcWddh0jYaoSqDulSnfK+Vv4KkWWrxTaUwQ8FPkfGOSjgxYtYOITOM3xXE
YwRy6D5smjuLtqiLOodBnUmnTqFRJ1CpThTqr2Tqv4jUf+Apf8NRfsJQxqHI
P3aQ/9pG/qGF/EMz+ftG8vf1pO9qSd9Vkb6rIH1XTvq2jPRtCenbIuK3BcTv
3hO/e0v8Lo/43Wvidy+I3z0jfv+Y8P1D2DU/ANdcI/xwCf/XdIROMv5H4J3D
uHExuHG7sD9FYH/Zgp0EGIViFm/CeAehV65AB3uhouZ2HHdtylr8pX3TNdH+
/VDqRvV1P9ljTx7w2ruF1MI5JOC1L1MxVRNhZPUwskYQjDaLldlG2EfUYNnI
sTPXk0FzDYF1c2xYY2fgQLUYaisrLPbU+G4L22Kmm00kkxFrNLQZ9A06XYVW
WwxBb9XqbKXygVxxTSI7J5KcEIgPcYXRbP7WLt4mOmc1le1HYnkSmC64rgUY
xm8o+vQO+pQ22oQWmnMT1aGB+msd5V81lH9UUf5eQf65nPxTGXlcKWlcMenH
QtKPH0l/fUf661vSD3nEH3KIP7wk/pBN/OEp8YdHxB8yCT/cJ/xwh/DDTcJf
rxH+CtAA45zD/5iK//EkTGfcEdy4/bhx0difdsCAft2KnbAZMz0cMxcwAlba
gPYNQq9ahd7gj9riido9v/PIwrZzrk2PXGq++OcTg69IouOg49vgN71v+Uqe
eHJzXLsAsiIrsimYauAyx/YGx2bEYtVgig3wArUflEPk5DUQhs9tNWOgE9p3
jOGwGKPDGpqBE+0zcNBW1ke0nGlHzRaWyUI3mEl6E1ZrbNMYGtS6CoW2WKbJ
F6tfCJQPuYrrLNl5huQkVXSEKNyD429D80I6OGtb2QFNLO96pltN16Iqxtwv
9FmfadNKaZOLqRMKKU4fKQ7vyL++Jf+SR/5nDukfr0h/zyb97Rnp5yfEnx8R
f3pI/Ok+cdwdwrhbhHHXCeOuEsZdIozLIIxLw487gx+Xgh+XhB8H0MThxh3E
/RSD+2k3Qmcb9l8RWKct2MmbMTMBoDDMohCM2yaM5wbM8nXoFWvQa1eiN/mj
Nvugdrqj9gFS89tPLWm96tr4zKW21L0MtfY5IzhDHnUU/jRf6gb15QDFAx9h
tgcbBCOYaCWzCZ+n4yonoWucOsEga3RsQCKxAhlhoHIUWg9fyPAaCMNnQ5Nw
YGxZC+FIWPbt4isZaGcr6/N0mFQ8Z/pRzvQ4g4Wts9C1ZjJkwqqM7XJDo1RX
KdKW8KF3bPVLhjKTKr9JlGVgJCkdoqMtgpgG/s4ablgFZ10Za0UJc1lB19L3
jCVv6Qtyab+9os7Mpk59Spn8mDwhk+wMfoC7pH/fJv16g/jLNeK/LhP/eZHw
j3TC39MIfz9D+Nsp/N9O4v92HP/zMfzPcbifD+F+jsX9vBf3cxTu5+3Yn61o
tmInbsFO3YwFdOaEYRaEYpaEYNw3YbxAc1iP9gdxBxitQm8MRIf6obYCTB6o
PYs7D/zWGQ9ILW695NJ8363htUvtp0UV7YFvSBvuc0POqnbHwR8fSwlWpweq
bi8XP7Gl4qDFxoPu0QZHogOIxEqEV0lnP698+zC0M9dAEg50DOvzrFFhDRlY
o1ULe1vFW21lhcWZcURrYUMWhspMVphwUmOHSN/I11WxtZ8Y0HuK6hVe+Qgl
v9UqvdAgTq0WHisX7C/hRX7kbH7L3vCauSq7y+8JwyuT7naPtug2dd51yuwr
lBkXyVPTSZPOkSacJjqnEJ2SCA6JhH/HE349gv/lIP5fsfh/7cX9Mwr3z524
f+zA/bod67QNOyECOzkCO20rduYW7G+bsfPCMQvDMEtCMa4hGI9ghM4GjN96
dCAIurXotavRG1aigwPRYYDRMtQOMJ6AmwCmuZ1H53YkLWw/u7j1skvzXWAr
1/p3S2q+AFh+7wlBT5ibronDkuGPZ8ZHwp8dS1uhvukrfeTFf+nGeruIXjCP
XDoLmWITUHVwJDaN4PUePRiG1qYBm2sgCe06xliwhreLsW01GIADpGDNPKy2
cJTmLpmJIjbiBYZOjr6pS1dN0ZThoQ8oVU6r4nG97E6F5FKp+PRHYeIb/sEX
3N2P2VsfsIJvda29ygi4QPc5R/M4RV2SRFmQQJ4TR5p1kDg9ljh9H2H6HsKM
aPzMKPysSPzsXbjfduDmbMfN3YabH4FdsBW7aAt28WasSzjWLQzrEYrxDMF4
B2OWbcL4bsT4b8AErkevDEKvXosOWoNevwq9aQU6JBAd7o/auhy13Qe1Cwwm
wMilc/+CzsPATfM6kha0n17UlrGk5ZpL8z3XxqegCrrWFi+urnEp7/B9T1iT
zdh4hx9yXrHtOPyBzWM7+3mBopjpzX/hzn6zmP5xHhlEImj4oHUM5VXWAfMq
ALysTR6E4VBzDYwt+6OWHSy73j44sOyPVyNtZReAnBlxVlJA3JmH5BaOxNwl
NFF4RjzLgKLpm4naGozmc5u6oEGZV6l49kn24KPkep4oI1uQ+oiXeJdz+Dp7
3yVm5PmuiNP0sJO0TYnUdfGUNYfJqw6QVsQSA/YS/aMJflEE31143x143204
3wic7xac72asXzjWPwwbEIINDMas2IRZuRGzagNmzXrM2iDMurXo9WvQG1ej
g1eiQ1egwwPQW/zREb6o7ctQO71RUZ6oaA/UPldU7OLOg2AwAUZzO06A0FvY
fm5x2wUE0x3QAN0as93q37jWFS2pqVhY1ezxCeX/jrgmm77hPi/4kjQsBQLD
69A+KHE7/AHA84i/BnkhI8yOlzUPKxBe4PxlLRt5I8xln4Q3R8Aa0tuH90Bb
Yx/DVnE2W/WTgl9AmnVQZhGIzRy+qYtjpHYZCBQ9Gq9tRWnqWtQVdcriL/J3
xdJX78SPX4vuPRVce8DLuMU5fZmVdL4r/jTj0El6TAI1Oo4SeZC8I5YUsYe4
JYoYvosQth0fGoEP2YILCceFhOKCQ7Ahm7AhG7Ah6zGh6zBhazFhazDhq9Cb
V6K3rkBHBKC3+aN3+KJ3LkdF+qCivFDRnqi9HqgYN9T+JaiDizoPz++Mm9N5
bG7n8fkdJxe0p4K+B1up9YpLyw0495oy3RqfgTkF0g94CpBaVNW4pLzDpxAL
ZhboGGBsgVoYclq9PRH+QHTcbihpC/wR2oxAJaiIWV6AF8vqr1IrLzgP4fkF
+gbo88h5ucg2vAbNhXT4gSS0h3XFHtbIdjGYgYO2SrCz1fAAHCAFvy02+4DU
IhaZ+TwTh2XsohuoZB0Bq0V1QK1N6vpqZUWZvKRA+v6NOCdb+CyL//AO9/ZV
9tV0VsbprjNJ9JRjtOOHqcdiKUf2kA9FkvbvIMZEEPZtxu8JxUcH46I34nav
w+5ei929GrN7FWb3Ckx0ACbaH73HF71nGXqvD3qfFypmKSrWHXXAFXVwCerQ
ItSRBai4ecA7nQnzOk/AdDqAg84saktb3JYB+sOS1msuLTcRRg9dmx7DbmrI
cavPd60rdKktW1JdtaiqacmXDq9iDBhYq15TwczacJcHwzqrijgBRR+BzZWw
Q50cCn+iFvTDu8vF4BT2Cp5ftIH5hfSNVqQfgj5fDsqhdXjZmuFLm7ngmjE0
Ca/9HixrBvZXi6G2sg/AI7YAHEKKO3s/97f9EotUaBZxTXymkU0zMIg6ClqL
b4VQ9eqWCmV9ibzinbT0lfjjE2HePf6La9zHGez7p5m3TjCuHqVfPEA9v5dy
JpJ8ajspeQsxKZRwfCM+YR3+2Bpc/EpsfCD2qB/26HLMUR/MUU/0UQ90vBs6
3gV9bDHq2EJUwnxU4oLOEws6kxZ0Ji8EXDpOL2o/u6gdoEmHIw6mcxV2UMst
VwCo+QE4Q7mBwdT4AlgJhJ5b3QfX2iIYU03l4qr6hZWtrp87raRW5FLAwFqf
yd54WwBiEMDamgTvggAnZdAMgblAmQfD65qf7L6P8OlS6xGMVjgX7ocVkzE1
znCfb3Kssw0vaxjCzdDOXPZJ+BVY1nYxMgNH1vURo2oEKe5vsbw5sSKLnG+W
sE0ihpFHNrBxOkaHltwE4atVqDJly0d5fa608pn40wNBwXVefgbndSr7eSLz
0WHGg320O5HUGxGUq2GkSxuJF9YS0lfiz/vjzy3HnfXBnvXCnPHEnFmKPuOB
PuuOOuvWec6tMw3IteO8a0e6a/sF1/aLrm2XXNuuuLZec2297tp607XltlvL
XTdQwpsfugE6TU/cGp/bAOUBH7nVfQSMXGs/gcPvkurqRVUNABOIvqWlaJ9C
HBhVK2FS9HWPWBvu8TZdFwVfkIEYBM4CYwvUDJCE4KQMmgYw18UAxe3lcBhm
uyPnrwXwjSnr+avWsQMpGwNhaG8u65kLSUL4rX54bH0F1kC7sM/AIbYaFoBf
JcWbEwMktCi5ZjnTJKEahQQ9D61jtWrpdRD5iwpfrEDly1pfShoeiapvC8ov
80rOsT8mM/OPMXIP0l/upT7bRX4cQcoKJzwMxt9fj7u7FntnFeb2CvTtANQt
P9Qt385byzpu+XTc9m6/7dV2x6vtrmcr0L2lrfeXtjz0aMn0aM7yaH7s0fTE
o+mZe2O2e+NL98bX7g257g1v3AGd+g9udQWudcUIoHKXmsol1TWLAaOqFlDR
gZs8YUxYYCgwp0D6gVEFk7rP23RTGHxZGpKmDE2BN66AA1fsfuhINFwzksPg
DSrpK1TXbeZ65cocIwyrQJNHmuFHu8k1kIT2Y2sYrDQbLPuBNcxWcK8YGYBf
I2V9gXnuXqFZzTMpWUY53SAl6UVYLb9dw25Ud1UpqaVy4gcpNkfc8VTQcp/X
cJ1TncH6ksr4dJxWHEcp2E96H018uxOfF4HLCce8Dka/2oB6GdT5YnXHi5Xt
2YHt2QFt2X6tL3xbXyxvebms+aVP8yvvptdeTTlejbmejXlLG98ubcj3aHjn
Uf/Bo77Ava7Qva7YrbbUrbbMFaHjUl29pLoOAFpU1bywsg0MJreyTmAl7yLs
8o944KbAN2SACRgKzKn1mZyNd3mbbgBSEniXUap6y0loZwK8D+dALLzNA8A6
GQ7XjLSV6iv+8jvLxY/gpgGb6/0CqvWur525alsdKoC57CYXXAsHktB22rJ2
DOtLngOw7Krg79hqMACRUnEQgTUmKeTN8z0is5ZngthGFV2vIOtkOK24AxI0
qbjVClaZjP5RQskTEp7zsQ+5nTdZrRe7ms7Q6pMoNfGkyoOEL3txnyOxn7ah
SzajikM6iza2F61rK1zTWriqpXBFS2FAc6FfU6FvU9HyxmKfhmLvhhKv+lLP
+k9L68qW1n32qP3iXlvhVlvlVlPtWlPrUl2/pLphcVXTImAfQKeiw7W806MM
BUzkXYxdVoDz+4APQBitzKGsfkkDbkIwsYGhwJwCZ2F4VJ1XgADcnAyBKggy
MOYQvLAIzKzEbYizNsC3DS8jSZjpLXjmwQGTK38RPLmGmqu+pd9cxcg9w7e2
mgEnITgdI3fg79gVwmGwkHYxPANH9IohpA6NIBUzkhRvXjR/frTIpOcbtWyD
hqFXk7VKnEbeoZY2KUXVckGZlFsgYuUJGM+51Ids0s0u/EU65gwFlURqjye0
HsA178U07UI1bOusD2+vC26r29BaG9RSu7q5dkVTbUBjrV9D3fL6Op/6eu+6
es/ahqW1jR41Te41za7VLS7VbUuq2l0qO1wrOty/dHp8RnmWob1AvpVglgH7
ADrAQe+JgfmkFQBQLmX1a9qaF/S1z7tgRlnsDQ+4sJtuCeAhBaIvQw5vBjsF
bwMDARgVD9/EAO3iyB54Z9GJCLgQAmedWwnDAh3+obegPwnhYxd8TP6MHLuQ
O70DNR7UwgLrmcsuCTPtOsZYsMbOQPsAHFL/xiDVj2kPbz5Mij9/N3/BbpHJ
yDca2AY9Q6clazU4SN2hUjYp5NUyaZlE/FEozOXznnE4D5is64yuDCrtNIl6
nEA+giPGYgi7UfjtHbjNbdiQVuyGZszaJsyqRsyKekxAHca/Fu1XjfarwvhW
Yny/YHzLMb6fMb5lWN9SrF8Jzq8Y51+E9y/AB3wkBH4gBr4jrcgnrQT5lkdZ
nUNdA+i8pK/NZgQ961oHAD1ib8jkgGPUxrt8mNENUfBVCeymdARTqjo8GQKl
AqQfKIFWUof3Irbark7aDO8sOhMEF0IQgzAsHwSWG3zm+mB7/lU5GY08SWlG
HqNUDK0Zr5FOiIyt/o4xOqzBdmGfgcMDcNioGpXU3lFJ8RdEAQlNZp7BxNIb
6ToDWaPHqnUdSk2THKqWqMpEigK+PI8jzWaKM+nCWxT+ZSI3DcdJQbMSO5hH
Whn7m+h7G2hRddQdNdSIKsrmCkpYOTmkjLzpE3ljCXlDMXl9IXldAXndR3LQ
B0rQO0pQPiXoLTUojxqUSwvKoQW9pq97yVj3grHuedf6Z8z1T1jrH7M2ZMF0
NgIHgY53BwASBgNAIO7AMcq6ai9NGXJGHXoK2oxg2pEIRcbDcwqchcGospIC
h6wTW+FdRqC6n10Nr8e56i8DMyvT6iw3JgxrAaVoDgxrtA4PH5DtYD21dYxB
WLaCcX6wXTgPDKwhthoegIOkDoxJagQm/sJIRLvEBotAb+FqzUzIRFON2ILI
Un1gKHIp8udE6UOs5Fan6Eqb8HwTP7Wel1TDPVbJOVzO2V/G3lfCii5iRRaw
dn5gbn/HjMhnbnnD3JzLDM9hhr1mhb5khbxghTxnhTxjBz9lBz/hBD/iBGdx
gzO5wQ94wff5wXf5wXcEwQDNzYF1iMguxAu2RYhnVaGn1WFWRklw6O1KgHMP
xnQINhQ4CINSER8JrwUDJywQgKkb4aVGwFaXAhQ3fKX3lolAe3/uwXmNxOCA
syqm9MMaOrY+2MbWQMewh2Vtgxl2vd02sEbayi4Af4/UqIbqxwRr0U7Bop1S
fbdI282DbFsQpcgWRAG8BbGWqS2naYpIUD5O/QqlfNKmuN8kv1knu1QlPV8u
Sf0kTioWJRSI4t4LD74VxuYJ974WRL8URGULdj0T7Hgq2P5YsC1LGJEp3PpA
uOW+cPM90eY7ovDb4vBb4vAbkrDrkrBr0rAr0rDLsrCL8tAL8tB0Reh5Zeg5
VehZdejpwXWIMCAQd4nwFsTdyMK9fYfh8xS8ZK8fE2yo4xHwljB47eEGhNTK
/u2UwFYgA5948kAbzHGBCwaYWf2wJqP/AKysEbAu2mDZDaz+DLS3lR2pmaOR
GjqkxjIU/HE2hBT8UbjFO6TaHjHUw1chWxClForYTBD0b0GspxkqiPoSrO5D
hza3RfO8HsqsVt8pV18tVV0oVJ59rzz1RnEiR3HspTzuufzgE/n+R/J9D+V7
7st335VH3pbvuinfcUOx/Zpi21VFxGXF1kvKrReUWzJUW9JVm9PUm8+pw89A
4aehzanQllPQ1hQoIhnadhJBY1uKOLAREQZ0ENp/ADoYi+zcQxZUHtsFJe6A
6wQYUsBQ8ObDdfBZ+DziKUAK9EDrakpgK5CBcHVfSIXbIPxoEos8mrTOrMFb
GUgMwrDwA7DgmXXH7px10W5gwRnYXy1G2goOQGupsB2p4A+KjiA1zFAjMS3a
gZDaDmvJNhnUK1b1ChS9HGQLIlXQTeB0o5mWNqqlgWiuxJg+tZs+Nhnzag3Z
FYZHn/R3C3XX3+ku5unSXmlTn2tPPtYmPtQevac5fFtz4KYm5ppm7xVt9CXN
7guaqHRN1HlN5DlN5FnNrjOaXamaXaegyBQoMhmKPAlFJUFRJ6DdidDuBCj6
GLQHlLqj0L44KOYIFAs6w8BeRGQpYlz/BlEoYYDRFnjh3uAS0TWwoS4EKkGp
uOEnBZ6yLRHlvHRj5bowEFtRiucQ+1/V6H/u32QtGG39N3VHFoz7lEFYl63t
YkgG2ttqasIoATgKqaFDaoihBnNvGCabImTqPomyTyjr44p7mYJeGreXxOzB
0nraSd1N2O6aDsvnZktRrTm/wvS61PSswJj51njnteF6tv7SY336Q/3Zu7rU
m7rka9oTl7WJF7TH0rVH0zRHzmoOn9YcOqU5lKw5eFJz4ITmwHHoQCJ04Bh0
IB46cBQ6EAcdPAIdPAwdPAQdOgAdBo0uFjoSA8UBNKAwgIgD9olC6OxE9iIO
LEUMg9chpm5CVvIGwVsQgZtgTAHw8sPbvhIwp+DVlJ48xFP9pMC0KpoDDllw
b4dtBWfgsDu6w6q79Zx1z3q7ydYuhmSgna1GC0A7UrwhpEZE36ChxsIUAQv5
LDCQQtUnlfeJpX18US+H39vF7qUyegiUHjS+uw3V3dBiqao3l1WaCz+Z8gtM
OW+Nz18bHj0z3M/S37qnv3ZLd/maLuOSLi1de/ac9vRp7alT2uSTmpMnNCcS
NcePaY4f1STGaRIPQwmHoIQDUMJ+KCEWSoiBEvZCCXughGgocTeUGAUdj4SO
74RO7IBObIeStqlPAjTAPmAYATrW7Ygb1WesgICPVvUzghe9+stuIm66b8Xk
xQOGst/K+3GA1HR4Wtme9Q/YquyPtYuBDBxiq4EARBrgHyA1qqEW7foqJpiR
EJb1k9qblco+uaxPIu4TCnp53F4Ws5dO6yETe3CY7s627pZGS321ubLM/KnQ
VJhvyn9tzHlmyM40PLmjf3hdf/eS7la67vpZ3ZVT2ksntRnHtenHNGlxmnOH
NWcOak7v15yOgVL3Qqf2QKd2Q6eioFO7oJSdUMoO6NQ26FQEdGordGoLdGoz
lIpsrTwdAm+tPINsrTy7Tn1ugM5KdcYK1cXAwSWi1i2vwEoP4f17fNAlnsOY
WK+HbrqGXwqd1f9SKELKGoB11mqBPOUf5URMhjNwFFvBxyvrtBoMwIFRNTap
weizN9SwFjEUk8sApoEP1G+G5RYOpJL3KaR9MlGfmNcrYPdyGD1Mcg8N10Ps
7MY2d3fUWprKzbXF5op3pk+vjQVPjfkPDbm3DS+u6p9m6B+d1T04pbt7Qnv7
mPZGnPbaQc2VWM3lfZqL0ZoLUZqMXVDGDih9G3R+K3R+M3Q+HEoLHVhcCcGL
K9erzwepz6+Fd1fCiytXqS+sRBZXrlBeCYQXV8JbK/2lt/wkd3wldxETPfQR
ZiHbEZ96chFGbFAk4BWvS+zXJhOBoeC3QJFt5Mi7u212pIY90rI7YfUfh0ed
Vraz1UAAjk5q+JAaNNSw3BsDk72V7DEJ3cJguYepZX1KcZ9c0Cfh9Aq7ennU
Hjahh4HuobR24+st6ApLW4m58b25Jsf05Zmx9KGx4Jbh3WVD7nn9q1Td8xO6
J/G6rMPaB7Hae3u1d6I0t3Zqbm7T3NiiuR4OXQuFrgarr25UX92ALK4MUl1d
qxy2u/JGoGxwfaWf3frKZfD6yiyf/t2VtsWV1q2V8MrKPBd4v+s76x7y+fBS
xBLETdY95ACT1VD18JuEDc2OA2+mWd/EeDf8Fq7jHwjAr5HaP5TUqIb6PUwj
rNSPyR0o1KYQSNqnEvUpeL0yVq+Y3iMg93Bx3ayObnqThVxtxn82owpMbW+M
jdmG2ix9xR1d2RVdcbq2IFXz7gT0Jl6de1D9Kkb1Ilr5fJfy2TbFky3yx2Hy
RyGyR5tkWRukWeukmWslmaslmavEmSvFmSvEWQGiLH9Rlp/wkS+Q4PFywZNl
/Cc+/KfevGdf3WBpXV+J7K6kWAHBaxKtG61hK2GtS5KtbrJiQoZUJdIoPtle
+LS+kPZqhKfsSWX8YVJDi98ohrKNp1Ew2SfeCEZuQxjB2y1gBQNpJb2QsFfN
7VEwe2S0bgnRIsRYeG1mVoOJUWmklBoIH/SYHF3HM03LA6jhhrr2oqryrLL8
pOLTMXnxIVlhjPTjbsn7neL8CPHbcNGbEKF1cWXOWn7Oav7rlbzXgbzX/tzX
ftzXvpzXyzivfdg53uwcL1aOJyt3KTPXg5nn3pXn1vXGjfHWlfHWhZ6/hP4O
cFlE/bCQ+hHkG0ADIs62xLJ/gyUw0TR4N3IV4qOBZf6N8HvUdfBSRMeB9zyL
bK/K2D/Nf2y7czvqwWoEqf6iPtAo7IbUcEPZcm8UTF+30qiMgm3aBK8iQaQX
92gFPRpOt7rLoqSaZQSzBGUSthp5dQb2F11XsZaWryG9VOMfqdB3FB1X5K3n
ZY0pkvoEcc1hUVWMsCKKX76dV7aF+ymUW7KRUxzELlrNKlrJKgxgFvp1FSzv
KvBhFHgxCjzpBR70AndagRutwJVauIRauJhSuIhStJBctIBcPJ9UPI9UMpdY
CkYPgDKbUAaSbXCzKLIM2bpjfEJnLXCQ05Dt/c3AR45Vrf2M+j9OMuL1zudD
79n2N4r+e7b9d5ZsRd3aKOB1VbaWPmr0jTTU1zB9nVGIaExGG23aIPLcYBB1
6/ndWrZFwzCrySYlzijvMEib9KIaLb9Mwy1Qs/JUjGcKygMZ8YYUnyHGpAo7
jwvaDvNaYrhNkeyGbaz6MGbtxq6aIEb1KnpVIK3Sl1rhQ6nwolR4kL+4kb64
kL4sJn5ZRPyygPBlPuHLXPyXOfgvv+EqZuMqZmIrZmArp2Mqp2GqpqKrpqCr
J6NqQKYBKGD6IPtF651a651aGpyabZ/PqoOHkWMVstAS3mbZ7vgJeQo88vMj
LwdfZHLMHIEJqRNOIw6/o0ffgKH+AKYlA5gGrDQ2Iw97RqMDQrR+QCahxcC1
6JlmHc2kIRohjF7VplPUa2UVkLhEJXyn5L2Uc7KkzNti+iUh9QyfdJxLOMzG
7WNidnWhttA7gmntQZS2leRWP1KLD7F5KaHJDd+0BNe4ENs4D9s4B9MwC90w
A90wHdUwrbNhSkfDZKD2hkltDRNbGye0NE5obhzfBNQ0vrHJuaHJub7ZuQ5e
MepU3eJU1eJk3TJajnApg1eMOpZ0OBZ1OhYOrLXEDH5gZPADPkTHRzZG9i+b
2Z7aj8Q0ceBu0igTyr5IjI1pNCuN0hm+CshzJKB1IusiJlhBQGaB2cQxGbuM
eopBh9drUVqoBVLVqhXlSlmhXJInET0XCR4IuNe57HQWM6WLEU+j7adQokik
CAIhBIdfh8GtQmH8O9A+7eilrSi3ls4lzZ0LmzrmNXTMqW+fXdc+s7Z9Rm37
tJr2qdXtU6raJ1e2T6pon/gF1oTy9vGf28eXdYz/1OFc2uFcAoQsGi2Cd406
ASIf0IO7Rt/a7Rp9hXN8iXfMxjs+Izg+tVtuOfK96EFG9k+phtydmPoH3WTf
9HYMxWRnpRGMhgTd6IAG7TOMTr/6V2bBsgiMZo7B1KU3UrQGPKRDqbUtCqhW
pi6XKAuF8jye9Dlb/KBLeJ3GTydzUwjw1sr9KEZUOz2ihRrSRFnXQF5VR/Kv
IfpUEZZWEFy/4Bd/xi0ow837hJtTgp1djJ1ZhJ1eiJ1WgJ1agJ3yETv5A3bS
e+zEd9gJ+bDGv8WOhxeNYp1z4V2jg+tGX9ptHLVCeYK4pn/pKHnoEpLhL0I7
DQIa7XmHfeLZzabBsvdHrDQqo7FMNEa+jaTjPYTOkLVmPquB4KdfHJ25S2Oi
qI14pQEl17VItbUiTTlfXchR5nUpntNkD0iS6zhROlqQ0g5vrdzfwImqYUVU
MkPKu9aVMVaV0P2LaD4F1KUfqG7vKIvzKQvfkOflkefkkme/Js18RZrxkjTt
BWlqNmnKc9Lk56RJz0gTn5ImPoEXjfbvGs0iOWeSna0bRx+Qne6Tne4BUZzu
UpzuUJxuU/pXj96wbR+9MnT7qP3LmQOPDlNGvj7BGbPm/XFG9lk3YKIxAP0+
ndHQ+PSjsWmVvboFWgtHY+lSm6lKE0FmREkMLUJ9LU9bztIU0tVvyKrneMUD
tPx6uzS9SZxi3VpZzt9dyttWyA39wFmfz16Vx/LPYS57yfTM7nJ71rXkCWPh
Y8b8LPqcTPrsh/RZ9+kz7tGn36VPu0ObchvW5Fu0STdpE2/AmnCdPuEaffxV
RFfo4y/TnYEu0Z0vMpwvMJwzEKUznO03wdo+k+hsfVPCtol0ot0mUjjiRtzW
Gw3Q0B6OZN3QeTSWiUaPOHtAY6IZbplRuCwDWjkgSb9WAPUIoG6O2tKlsFBl
ZoLYhBIYW7iGWqa+nKYrJGne4KDsTtXDFuWNekVGlezUZ+mxYsmBj6Ld+cJt
uYKwl/wNz3irH/MCMrnLH3C97nLcb3NcbrIXXWfPv8aee4X122XW7EusmRdY
MzJY09JZ8KLR88wpaczJ55iTzgKxJp5hTTyNKBXRKUQprInJsCadRJTEmpzE
nmxlYcMxSOToiKftY97H44+kYw9olLbQ7yBkBo1qn37vDDHOKJYZjYsdFHsi
g1oOFDhMPUJ1D1fZzZRZaGILUWBGc01tTORRJUlfjNXld2heNkOP6tS3K1SX
PinOFshP5MuO5EhjsiWRT8QRmaLQe8L1t4VrbggCr/L9LvF9LvA903keaTzX
s7wlZ7iLU7kLT3EXpFgXjXLmJHHmnOD8BnScMzsR1qwEzqxjiOIRHUUUh+gI
d5Z1Mexh7uxDiA7aNsTaLYmFcQwQ2cubb4Uy9K7dyL7tMtoAGh5uoxtnNDQj
uYwF5XdwSJYHjCJfIH+rekTKHp68my3ppgstZJ4ZxzJ30E1NZGM1zlDWqf/Y
osut0zyrgO6Xqq9/VGW8Uaa+UiQ+lR/OlMXclUbelGy7Kg6/KN6ULlp3TrT6
tHBFitD/pND3hMAnUeCVIPCMF3gcRRaNHuG7HOa7HOIvOchfDHSAv2g/rIWx
iGJgLdiHaC/fuhi2X9H9G2JhRdkEEEQit7itIPqflSMsBnAMIzIMylcCbUSa
DfPLMCg2IsM9MgqOMSkMld9X1CtW9AikPRxRdxe/m8Kx4LvMKIqphWCqRRm/
tBqK6vVvK3UvP2kefYRuv1FfeaFKe6xMua9IuKU4dFW+74IsKk26/bR0S7Ik
9IRkY4J43VHxmiPiVYdEgQdE/rEiv32i5XtFy/YIfaKF3ruFXlFCz0jh0l2w
PHbCct+BaLvQzboVFijCpq02bbFps03h8NpYd+vFDxuKwO4WwSiTBcHh9dX4
+hqOARZjUBgdwRgX38/397R8pHolsl6hpIcr6GFyu2lMC5FmwRDNbRhTQ7ux
stFYWmX4UKbPKdA9faO9/0Jz4xF04Z76zHXVyYvK+DTFoVTFviT57gT5jjhZ
xEFZeKw0ZK90Y7R0fZQkaJdkzQ7Jqm2SlRGSwK3igM1i/3CxX7jYN0zsGype
HgJrWTAsn02INsLyBtpgp/V2WmenIDsNrVg+Axp52Ue98mNc/FGu/B+84KNc
ZOkQLYPl/z/IB6hXIu0Vinp4vB4Wu4fO6CaTLVicpaPD3NRsqq4xfv5sKCg0
vHmrz36hy3qkvXNXc+UalJ6hTj2jPnFSFX9MeeiwMiZWEb1HsStKvn2HfGuE
PHyLLDRMFhwi27hJtn6jbN166dp10jVB0tVrpavWSFeulq5cJV2xElbgCljw
YthACZB/gJ38YfnZy28M/Re/okOuW/9O4N+/RP+9vH9HAf+7+mSSXrGwV8Dt
5TJ7mLQeGrGbiLFg2ixtDebGSlNVqansg7Egx/Dmqf7FA92jG7p7F7XXz2gu
ntSkHYNSD0FJMeqE3eq4naqDEarYcOXeEGX0RmXUeuWuIOWONYptqxQRKxVb
AxVbAhSb/RXhfoowX3noclghy+TB8GJYWJuAvGFttMoL1oahWg/kOUTrBiWz
Kmg0rR2hNSO0eqS8ZKvG0Mrhko6qFf9XZVsuDT+tlAn6JNxeIbOXS+1hEnpo
6B5Saze23tJRYWkqMde8M5e/MhU/Mb6/Z8y9ZshO1z9K1d8/rrsVp7u2X3tp
jzZ9l/bsNk3qZk1yiCZpI3R8HZSwFopfDcWthI4EQof81Qf91Ad81fuXq2OX
qWN91DHe6n1AXvBu2L2e6j2eqj1LVdE27fboV5RNkTbtsmlnv5Q7bLJuYN5m
UwSirTZt8VAAbUYUjmxvDrMpFFEIouClcqs22bTRKk/5BptG/LaM8qsy8jdk
1F+SMX9VhmqVvbz61OI+JbKyUtLVK6T08vC9LFQPvaWHXNuDK+/uLOpueWup
f2GpzDKX3TYXXTa9O2fKTTa+PGZ8esiQtc/wINJwZ5v+5mb9tRD9FXjLqO7C
al36Sl1aoO6cv+6Mr+70Mm2qj/aUtzbFS5vsqU1eqj3poU3ygHfDngBy0x4H
ctUkIkpAdAzIBVY8oqOI4hAdgbcuw3uVgQ4BIauYgQ4g2g9LHeuqjnGFdzXv
c4OXNgPtcVNHu6mAdsOrmGFFuqt2Ido5dMn2NjvQY1G2RxwyFuKhlDd4/t8K
h/9oRP9R8/+jZPfJrSsrcX28jl52Uy+jupdS1kMo6EHn9bQ/62560F17w1Jx
wVJ22lJ83PzxiDn//2/trcOi2t7+//+ezzl2nfKI3Y1KSlkgtiASBtiB3Z2g
YqMiBkqJIoICorR0TnfADBMMMwzDdAKe67fWnmAG0M95nu/vuu4/PIKci/2a
9/u+19p7v9d+/bsdujdbdYnButcbdHHrtM9XaWN9tU+9tU+Wah8v0kZ7ah56
aB64ae4v1Nxz1dx11txx1txGgmGjHGDdWqC+idQNUPPVkUhFIHUdqWtIXZ2v
AnUFCV4GdQmpi0gaM6jzC5TnFijPLoARzWcclKcdlKdgKU7aRGcrjlgQO5n4
WsjudTYx3W3FdLuZaTdQ157itQHaF9PeWK3J2sDtxbc3YqT+UQn+UXL/kbP/
kTL+kRgjK+u+8yu+c4q+s3K6GOldlDddhLhOzOPOujudVdc6y851FB/rKAjv
yN3Z8XmrISvI8NHfkL7G8H6F4Z23/u0S/RsvfbK7PnGhPsFFH++kf+2gf7VA
Hzdf/3Ke7oW97sVc3fM5umegZutikXo6SxeD1BOkHs/Sgno0SxuN1EOkHszS
3p8NE5jvzdbcna25MxtmMoOKmqO5NdcUjh2J5GNft1dfQ1Kyr8xTXZ6HkJ2v
ujBfacF62kjTwSYI3UjzoJNJpBaOe03yNHN06dZmmBnlVltt9i1PM9DAHwK1
YdoDqxXZfzTN/6i437sjK7HfxbVdwrKu5oIubnYnO62zIbGT9ryD/LADf7MD
c8lQf8pQfdBQsdtQGqr/FqQv9NPnr9bnLtd/WaL/7KXPdtNnueg/Oeo/LtBn
zNOnz9V/mK1Pm6lPm6F/P12fOk2fOlX/bgoow9vJsFImwXozCQb5gkpCKnGS
IWGSHlT8ZP3ryTB7GVTcFP1LJBP7+VSYg/1sGszKfjpdFzNd93iG9tEMbfRM
GKb9YKb2/iztvVkI09kI0DndNC0oLRyNEM/YQrTWoxnij8Xo8gOD/SFHG5S9
tdkDqC3T79rm7xpOF4yspHXJiUhkZU2HuLRDlG8QZBl4qfqmBH1jrI5xX0uN
1JIuaPDHNZhwdf0Ode1mdXWAqmKtqmyFqmSZ8puXsshdWeiiLHBU5s9X5tor
c2crv85UfpmhzDGmwk5RZk9WZk1SZk1UZk5UZU5QfQI1XvUR1Dh1BlLpsDQf
kEqDpX2PVOo43Tuk3sKgbFCGN+MMyeMNSeMNiRMMCRP1ryfpX03Sx03uBvp0
GoJyOkRp5Agg3jVDvGlL0KjEC/NN7nrGLMMTDj01+H8i+DOIveeinihtaHbp
+F3apk5NAxJZSUAiK6v07SX6tlyd6JO25Z2G/1rNjVGx76oarikZZxXUo3Ly
XhkhTIYLlmL8pKhV7XU+7bWLJdXukioXSaWDpHyepGyOpHSWpHRGW8m0tm9T
2oonS4onSoomSArHSwrHSQpAjZXkjwHVngdqdHsuLOlXpL7YyXKQ+mwnB5U9
GpQiC0ZkKz8h9XE0zM1OH6NOh2HmMMP8PUw4170bq3s7thtl4gR9PMIxzhxN
H2smGI0QvN83PpORWly0t/osZ0mY2PWFr+eQY9sT+4Do2nO4teVoQdmp5yGR
lUyDhmpQ4/Wqep0CiayUflFLMlTiN0rRS4XgkYwfJeVebmefkjQebGPuEtO3
tFIDROQ1ItJyIWGxEO/egnVpwTgI0PYC1GxB/QxB3VRB7WRB7URBzQRB9ThB
9VhB1RhB5WhBpZ2gYhSolvK/YZWNhFU6UgiqBJbo20hR8chWUEUjWwtHigth
PnZbPigYly3JRWLMv4ySfhkly4HZ5vJsO0WWnSLTDqBUZYxWpY9WWyBaEwRK
TJhggw8I8IlZfcBC7yIWCtnN+Sk7RHq27HqbJ+yAP8H3XwlaIPZapHR0cA0G
lkHP0OvIOi0OiawsVysLVYrPClmavD1R2vasXfygTRQpbjkvaj4m5O1r4YQ1
s4P4rHW8Bl8ucwmX7s6hOTdR5zdR5rDJM9ikqWziJDZxAoswloUfw8LbsXB/
s7AjWdi/WJg/2Zg/2GhQv7NRsJrqf2uqg8WpRarmNy6o6t94VbD4lb/zK35v
roBB2YIyGGPeUvKH8NufomJYrUV/iQv/gihh+DzkKP3yN4Aozx4lNxKEShwN
ZQjxjTEJEKpvHMJu4o/YmXR3a47G2Piu23a98z/oen2ws5VeD3xGgtb4+iLY
A6K+g6szsLR6hkZPVuuwSm2tQl0mUxVIldkS+XuxLEHUHtsiudcsvs4TneUI
D7MFu1n8LQ28DUzuKkbTMjrbg8ZypjbOpzTOpjRMozAnkZnjyYwxZMYoMv0v
Cv0PCv03Cm04hTaMQh1KoQ6hUkANppJBDaKRkCIOohNgMfCgBjNxg5nYwQ2g
MEMa0bBYKJhhzq4b1lQ7jFMznFs9nFuF5MxX/GbMmQcchSV/IAT/NBKU5I00
4YMCHIWoz66bHWKe+pSxEFzieGiboPf9HNxNM7ifiO7n7PqUXm98fQrQiqCm
g6s2sFR6hkJHlutwUk2tRF0uVhUIldkCeRpPltjUHtvYdp8pjqCJzpFbjhAF
e3D8rRjeRhRnTV2TTy3bq4blWtW4oKphbiVzRgVzSgVjYgVjXDl9dDn973La
XxW0Pypov1XQRlRSh1VSh1ZRh1RRB1fDIN+BtdQBddQB9dT+KEp/NKUfhtIP
S/kVR/mVQPmFSPmFRPmFTP6FQv6VSupnzJOn4wcwcAOZ2EENmEGN6MEs1BDA
EYE4DEA0E/xdUPq7CV/hn+KCv4D62nPN7My6U6ePtojOBlycLTjQ6R78QHG9
wZ37Mbge44qFXQ/pWS/we+AzE1R18BQGtkzPaNeR27S4Vk1di7qcryrkKD6z
5PAMS2r7M2LbA1xrJEp4vrblWGXz3jJe2DduYBFnbT57eS5r8ddGt5wGx8/M
ednMWVmMaZmMyZn0CZn0sZ9odp9of2fS/sqk/pFJ/T2L+lsWdXg2dVg2kuKb
Qxn8hTL4K2VQLmVgHmVgPhK8XETpX0zpX0LpV0rpV075tRKJy66h/FJH+QVF
+QVD+Q+e8h8i5T9kyn8opF+oxF9NELEDTQTrhzTVDoX4qoabTnkohac8AHYm
3eWOtAansoBLNXc6k1VOggfoPJ+ii51qWi9EmydMS4+DxyFZWaUZXPf63bx4
70N0P2H3U3yg5B08qYEt0TNbdZQWLY6vqeOoKxqVRQxFDkX2AS9NQkue14gf
VohufBNeKBAc/8rfn83b9pET/KFpfSp7RUrjkuQGj0SmcwJz/mvGnFf0GXH0
qXG0SS9p419Sx76k2r2k/v2SMjKO8mcc5Y9XlN9fUUa8pgyPJw9LIA9LJA9N
Ig9JJg9JIQ9+Sx70jjzoPXlgGnlgOnnAR/KATPKAbHL/HHL/r5R+eZR+BZR+
RZRfSyi/lkGOvxghoin/wUGC/wOUaMTHwA0AAjSzG8ZBdGc6nqOkG5xFcWBW
MVnlhz7lZm5wMdNMg+WDvnyyz5Xdz8FZG2YPdj1s0+KcCD6JgSc2sIV6ZrOO
wtXiWZp6hqqCoizCy3NQsvTq9uTStheF4ugvopuZLRfTmk+k8MITuNvjmkKe
sf2fNK6Kblj2gOl5l+F6m+4QRbe/SZt1gzr9BnVKJGViJGV8JGVsJHl0JHlU
JHnkDfJfN8l/3kRSfKNIv90mjbhDGn6PNOw+adhDJHj5MWnIE9KQp6TBz0iD
X5AGxcHE7IGJ5IHJ5IEpSLx5Grl/Bgw87/+ZDEPp8ym/GglWUH6ppvxSjxwu
QIDs4GkOdHx/qDv0IKPouGZwLYjiYKfL/8tabhZqGgu1Nz8wyT5HSovcLD75
X8A5mE6dMxtmX+z6kF6bQSDS8wR6Nk/HZGspTDWOoqrDKytQ8sIqaU5Je3p+
W3J264t0YXSK4FY8//Jz3qnHnIP32LtusbZGNGy8zFx3geF7hr7kJM3jONXl
CHXBIcqcA+QZ4eTJ+8kT95PGh5PGhpNGh5NGHSD+fZA48hDxr8PEP48Q/zhG
/P048beTxN9OEUecIQ4/Rxx+gTjsEnHYFeLQa8ShkcQhN4lDbpOG3CUNfkAa
/Ig06AlpUCxp0EvSwNckAHHAG0iw/wdy/0/IaQK5ZHi4QAnllwooPXhOB3BO
CzgmdiBQHGh2JqusMPkkpFYAqbX/hNqPWpuFmsUkLd0t4r/tifUA11t0Nrud
NuzEBpFQL2jWcTlaVqOGQVeTSSocVlFXJy+vkBYWSXK+itM/taakCuMSBU9e
8u/GcCPvN12MYp+KaDx8uWHfOcaO0/Stx2nBR6gbDlLXhVNW7SP7IpGwi3eS
PHcQ3bYTXbcRncKIDmGEeaGEuaEwyHdGKGFqKGHyVsKEUMLYUIJdKOGvUMJv
2wgjdhJG7CEM30cYfoAw/DBh2DHCsJMEmG1+gTj0MnHIdeKQG8TBt0mD75MG
PYIx9QNfQHzwTIG3ZnY5QHfwzJRfyxFwaJPifqER+sHjbzBGufWk1malNeiQ
H+E6zmogQfpa4k+WADO7d8CsTbIvuXUvB6zAwQWdxS17iM6WXatB3KIX8nTN
TVpOg6aRqqYTVCS0Alstqy2VludLCrPFOR9EGW9aUl41v37Ki33IeRjVFHWd
df1Sw4WzzNMnGceO0g8epO3dT925hxK2i7xlOzlkGykwlLhhK3H9FuLazYTV
mwgrQwjLQwjewfhlwfglwfhFwXjPYLx7MH5hMN4lGO8UjHcIwc8Lwc8Nwc/e
hJ+xCT91M37SZvy4LXi7Lfg/t+KH78AP30MYFk4YdoQw9ARh6BnikIvEIdeQ
owTuwJMFBsUg7OJJUHfvrcCVIKeu1CNtDpGbFbWaYbyq4UaHFBX/0Wrsa2AV
kPO3cQnQcxqBi+7e08hPqNmYZG+5Wd1ZWGB7Z8HB5lxOk+hMhik0SJr1rVxd
C0vLp2uayOoGrJJWpyBWyDBF7TVfJGUfxQVvRTnxLRmxzW8f8hKiOM+vsx9f
bLx3uuHWMcb1g/RL+2jndlFPbqccCyUf2kIK34REwgYSd2wkbAsgbN1A2OyP
D/HHB/nhA/3wAX54fz/cej/cOj/cGj/cKj/cSj+crz/Oxx+3bANuyQbcogCc
ZwDOfSPOdSPOORDnEISbF4ybE4yfGYKfugk/YTPMP/8zDD9sF8QHDxQ4RRhy
AWF3iwh195g08DkCLgVRXBZilcWIT9ZBarC7IVpDHLIOOiTsa2W/gZW46Mf2
qO3d1F7ZUnvcyyFvW7U2i9yuWuT2L8H1FJ3AIOXp29i6Vqa2haLh4VVNKCWz
SkH9JiPktqMz26pTW8sShIXPBDkP+R+juKlXm5LOsV+daIw9xHy0j3F/Jy0q
lBq5mXItiHwpgHTen3RmPfHkWsLx1YSjqwiHVuIPrMDvX4Hf54vb44vb5Yvb
4Yvb7osL88WF+mK3+GI3rcCGrMAGrcQGrsQGrML6r8auX41duwa7ei125Tqc
73qcjx9uqR9usT9MO3cLwLkgBO2DcbMQfOM34//eCtjhhx0gDD1OGHqOOOQq
Au4B4pZxpAHJyJRipPYN0RoKcUiwHIB9DQgNZbJHs9D+hEIzLrdzTGttZKFt
K7Q+d0hsNyd/Rq1Pudk0uO6lnAmc2S1b9HKeTtqE5FVS1S0EFQ+laKqSN3yT
Ur9KiJ/EmHei2tct5U+bi+/zciM52RfZ6aca3x1uSNrLeL2d/nwzNSaQEu1H
vr+GdHsF6aY3MWIJ4doiwmUv/EVP/HkP3Fl33Bl33Cl33Al37HF37FF37GF3
7CEP7AEPbLgndp8ndq8XjF/etRi7YzF22xJs2FLs1mXYzT7YkOXYIF/sxhXY
DSux61dBiKvWYn3XYb39cEsQfAs34pwCofoAu8mb8GO24H/biR92kDD0JAG6
ZSRx8F04pZioAa1lIw5ZivQ1MEmSKEZ7NAkNDJD8ihHGU/nAQtvU0cze2N3R
UnvNIdZCQ5qaDt7cmdHnnR3zQNLLJHs0uB+Da9Er+UheZYNGQlO1EpQtaDm/
WsYpaW/Ma6NntpJThbgEQf0zXvVDTtktdtGVxtyzzM/H6J8O0NJ2U96FkZM3
kxICiXH+hOdr8bGrcE98sY+8sQ+WYu8txtzxwkR5YG66YSIXoiNc0Nec0Vcc
0Zcc0BcWoM/Px5ydhzltjzk5D8YvH3PAHHXEHHbCHHTBHHDF7HfD7HXH7PbE
7PTCbF+MCV2K2bIMG+IDCQaswPoh+Fauw/qsR9gFQPNcEISbDcBtxtsBxe0l
DD1GGHqeOCSCOPge0t1eIQ6ZQe73BZlGjEIDCzc4QCLH8EFvrIarbBMy24Ff
YTs6ai1bkaZtZPP0+HyqTVP7EbX/eoPVejKxBQfzKnUqY14lTdVOVIjRclG1
VFAi4eaJ2Vki5nsBNZFPfM7FRrProxqrrzHLz9O/naAWHCLn7iXl7CBkbsVn
hOA+bMSm+mHerkUnr0InrkDF+6BeLat/ubT++eL6WK/6p551TzzqHrnXRbvV
PVhYd8+17o5L/W3n+ltO9Tcc6yMc6q8tQF2Zj7o0D3XBHnVuLvrMHPTJOejj
89BHF6APO2IOOmP2L4QEd3liti/ChC3FbPbGBC+H6gPs1gDdrccuRcC5IIoD
EwuYVcCoCajB7nYDccjnyEIgDRFaARkOkPXd3giHEHb9EGM7My6uLdN+n2s0
my0Ra6H1sEfL3TfLeu3fULP1SVODQ8CZ8ypVDWolVSknyKVomaSqXVzSJsxr
bc5s4b5vZidymc+baNGN5Cgm/iodc45ad4JcfZBYsRdfugP3bSumMASdvxH1
1b8+Z11d9uq6zJW1H31r031qPiyreb+05t3imreLqt94VSd5Vid6VMe7V792
r45zq3mxEKYux7rWxLjUPHapiXaufeBUe8+p9o5j3S2HuhsL6iLm11+dV3/J
HnV+LurMbEjw2DyADw00uM8Nqm/HIii9TT7YQAQc6HrL1+MWg04H5BaMm4lQ
G7YfmUlAX7tDhEIDo0gq0tGAN5YhQwj+R8i+/RRZ9y7WWION0BBk1vb4eIap
qSE7Wv+Cmq3cbMHBvEqtKa+SolDj5cp6qbxSIi0WS74KxZ8Eonc8QTyH95TF
ud/AuklnXqbSzpAoRwnEcBx+NxYThkZtRtUF1dVsqK1aX1OxpqZsZXWJb1Wx
T1WRd2XB0sr8JZW5iyu/LKrI8arI9qzI8qj45FHx0b0i3b0iza3yvVvlu4WV
KQsrkxdWJrpWxbtWvXKteulS/dylOhbGztdEO9U8cKy961AbBQjOr7s2r/4y
wDcHdXo2VB9gB8xzrwdmpxEcUNxK7Lo12BXrsWDUdAuE1KYDh9yBhwsBILRb
RDhAAm98B/dJupEhKrM1xoq+jbEbmW076/bGPoRmZY+Wsb8nNctAgrS2H8nt
4nwkr1LPUcI39ugyDaldjbyxpyhrkRc0S7O5kjS2OKlB9ILe8ojKv03iXiM0
nceyTqAbDtYz99TRt9VQN1dTAqtIflXENZWEFZU4nwrssnL0knLU4rI6r7Ja
z7Iaj7Iq99JK99Jyt9Iyt9KShaXfFpYWLSwtWFiW71qW61r2xbXsM8zHLv/k
Wp7hWv4B5pnDVPM3MHy+Mt6lKs656rlz9VOnmscIvjsOdTcX1F0H7OaizgHd
2aOPAHALMXuAWy7BbPGB0+Z6SA23GLS2IBxY1k3YisyQ5xBvfGRGlmVljMZe
BlZnVuOHeUFdaLOg7omsx501ozdabozaCK1XU/sRNVuTtJLbPJGqQ4DkVbKl
eqZERxFr8SJNvUBdyVMWNym+Nso+0dvfUSQJRPEznCga1XK7rvl6Nf9CBfdU
WdPREnb4N9aeoobthcytBYxN+fTAfNqGPOr6PMraPPKqPNKKPKJPHmFZHn5J
Pm5RPtazAOteiFlYiHYpQjkW1zsW1znC7OUqp28VTt/KnEpKnUuKnUsKnUvz
nUtzXUpzXMqyXco+uZSnwwMdKt66VCQDfM5VL52rY52qITuH2tsL6iLn1V8B
4Gahj89HHwJW6YHZgVADWlu7FgtWdh7AHkPwU7bgfw+HuyUQ2WNkYyQV6WVF
yPiBRiZGsDRjYgcah/zeq+n/jszYzizeaBkdTU8jWFGzfjSoFzU4RvYwSbPc
WpWdLUheZZPE0CA2UIV6QrMOzdVWszUlTFU+TZlNUnzAyZJR0rgaSUxl2/3S
1lvFomsFwgt5gtNfm4/l8A9m8/Zlcnd/atr+kR2awd6SwQpJbwxKb9iYztyQ
zvBLp6/LoK/JoK3+SF35kbLiE2V5Jtknk7Qsi7g0m7D4M94rB+fxFeuei3XN
wzgXoBwL6+cX1S0ornEornSEIeclMIu+BBD86lz6GcH3waXinZndC+fqGKea
hwi46/b1F2ejTwGfBNSA1oBD+mL9wSTph1u0EecYjJu2Gf9HOKKyW0gvS0Dm
/C/I0qwGWU0b12XWjcy0lC4230pDNkBk2VYToxlZH48fGL2xh9BirGZ+G2qz
e1Lr0doQcK3yrhZpF1/SyWntbBB20Jo7iFwDhqWvYejKKNoCguYzRp1ep0qp
VL4uVcQWyaLzpHdy2iOzJJc/tp1LF59633r0nejQW+H+Ny17kgU7k5q3JzWH
JfK3JPI2J3JDErhBiZzAxKaARPaGJLZ/EssvuXHdm4a1bxrWpDBXv2Wsekdf
mUrzTaMu/0DxSScv+0ha+om4OIvglY33yMG5fcW45KEdC1AIwWqH4goEX6FT
SR5g5wzZpcHTOhBwQHGONfeA3OzrLwGTXIA+tBCzG6wFgNDAKLIeC7zRCSAD
c+MhwtBLyOoMTIxvkM2rfMQVUVBiRlcc2IgabNzVh65oPXvYLqV/gMw4gYyz
eubHWmi97PEn1GwGEghOLP0ulHzni79zhF2NzV00bieR1YlhdNRQOsrwhgK0
PqdGn1Gue1usjc/TPMtRP8pU3f2gvJGquJqiuJAkPxMvO/FKeuRl+8Hn7fuf
SfbEtu16Kt4RI94W0xoaI9oSI9ocI9wU0xIS0xL8VBD4tDkwtnljLD/gGW/D
c67/C47fS876uCaYjB3PWpvQuCaxYXUyc+Ubxoq3dN9Umk8axTudvPQjaXEm
wTMb7/YF65KLdigAAqxdYGJX4Fz6xQwu2bkqzqk6xkQNjCXoY2Ah4IXZ5o0J
AmM/QLYR5wDWaGH4YccJQ64TB0cjrpgG77L1ITGWRWLdrmhqZO19PGlgRmYe
Gi3tzMYbewvtf0mtrf27qO27QPSdJ+hi87qY7E4KsxNP7UQROqowhm81hrxy
fVaxPi1Xl5ytfZWhfZqqefhGcztBHRmnvvJMdT5Gdfqx6vhD5eH7yvB7yr13
lLtvK3ZGKbZHycOiZKG3ZFtvSbdESTdHtW+KkoTclgTfbgu6Iw662wrDlu+L
Nj4QBjxsCYgWbHgk8H/S7B/D94vlrX/GXf+iaV0ce+1r1pqExlVJkKDvW9ry
91TvD+QlH4leWXj3HCyQ3oLC+gXFVQ7fShFwn51Bp6tIca585VT9xKH2zrz6
q0BoYBQB3giQrcau9sN5gQXaJvyYvYgr3iYOekYamILMimDwqDB1sf+hEvox
sNYSM63IjBuMyAMGlkZm3P34KbIe3thDaGCZ1sMef0ZtjkTyXdz6XdjS1czv
4nC6Ghs76fROEqkDi+2orTNUVBiKvum/5ukzs3Vp6drkd9pXSZpnrzSPnqvv
xaijolUR91VX7qgu3lKevaE8FaE8fl155Jri0FXFgSuK/ZcVey8rdl9S7Lyk
2H5JEXZJvvWSfMtl+abL8uDLchi2fFUWeE0aeF0aGNG+8YYERmTfEgfcbg24
K4KB8w9a/KMF/o/5fjG89bHcdS+a1sax18RDfCtS6MtTIbvFn4ien3GuuZj5
EBzod8VOUG4ZLhVvgEM61jwEi7g5qDMO6IMAGTBGMDSCOR8sqMG6DCylI5DB
I4E0IB3ZYCztY7a3kVgvV7R5JgRZl0FkptX0O1tkJm+caPJG+FyrzcDfS2h9
UYua0y7+3ib8LmruEnC7eKwuNqOTSemk4jsI9R3oKkN1iaE0X1/wWfclXffp
rfZ9ojb5peb1U/XzaPWTe+qHUaq7N1S3risjryivXVJevqC8cE5x7qzi9BnF
ydOK46cUx04pjpxUHDopP3hSHn5Svv+kfO8p+Z5T8l2n5DtPy7eflm87Iw89
K996Tr75nHzTeXnwBRhjvvGyfOMV6cZr7fA8lBttAbfEG+5Agv4PBH6PmgG+
dc84a1+y17yG7IDuvNMoAJzHZ5xTPmp+cTWg5gxmy/I0eJJv9eMFdTcAMqCy
RZgwX6zfOuxSMC4Cie1HutgD0iAw27/vyxKZPW6W2TxRYHJF0MhkxsfnPvWN
zGoCsfXGPoT2Q3u0piZt/S5p+S7mdQmbuvgNXRxqZyOhk47uIFV3YEsNdQWG
ys/6bxm6/Le6zwnaj881qU80yffV8VHqF5Gqp1dUjy6qHpxT3j2tjDqhvHFM
EWEMgz2kuHRQceGA4twB+dkD8tPh8lPh8hPh8uMH5McOyI8ekB8+KD90EIYt
HzgM07D3HYHJ2LuPyXcdl+84AZPMw07DYPPNZ+GRKEEX5AEX5QFXZPD0jUiJ
EZ///Ra/6Ob1gN1zzppXLCO4Zelk0OacgU8WVzmCdQHoaxXJoKMhyE6BoRFM
jKuxqzbgFoLxfid+GLDEO8RBL5C12Gdyv2L4XAHcCjbec2FaW6JRYiW/C4tN
EkNmxZE9HpkzIxvTNzJLOzN5o63Q4OsAZns0vRHQBzX4+ldzVxunC77+Re/k
kTrZ2E5mbQelvINQaEDn6Gsy9GVvdUXxutxn2uxHmow7mtRI9Zsr6oTzqrjT
qmfHlTFHlI8OKh/sV9zbq7izWxG1S3FzpyJyh/z6dvm1bfIr2+SXt8kvbZNf
2CY/v01+brv87Hb5mR3y0ztg2PLJXfLju+THdsNY7CN75Yf3wYT5Awdgnvm+
Q/I9R2D4/M5j8KSAsFPwWIdNZ+VB5434pEB9G24i7IDunvAhuNeNK94wgE8C
amCqBH0NLgEqUgCy+cAY0Uc9MNuBxMB4H4SbFYofdpowJIoIp8S35oVYFfIU
lukeGdb2HpnlaasiK4lZXNEye3zsfsbYFlmvdmYR2ou+hWZqarbUFC1dMn5n
e1NnW0OHiNohIBh4aAO7Ws8s0VHztYQsLSZNU5ukrnip+vZYlX9X+SVSkXlZ
kX5WkXpC/uawPCFc/mqP/MUOeWyY/MkWefQm+YNg+b0g+Z1A+e2N8lsb5TcD
5DcC5JEB8ogA+bWN8qsb5VcC5ZcD5ZeCYNLyhRD5+RD5uU3ys5thOPbpUBhg
fnIbDDM/thOe3XBkDzzEAUAMP4AQPCzfdRTiCz0FD08JNrK7KgW2CcE9FKx/
yl0TxwLUgNbAPAmEBjoaaGdONdFgdQbGRTB4rMN6B+LswWB/yszrnYnXL1WU
/3Tzsr6nabbEFtsnG82uaDV7/Etk8DUNW2/sFtoP7BGhphJ0KngdMnZHO9PQ
RtGL8DpBvZZXqW0q1jR8VdM+KknvFNh4eX2srPqBtPxWe7E5XDT7cNun/eL0
XeL328Rvt4qTN7UmBrXGbxTHbRC/8BM/Wy9+ulYcs6bt8Zq26NVtD1ZJ7q+S
3F3Vfntle9RK6c2VssiVMGb5+mrZ9TWya2tlV9fDZOzL/jC9/OJGmGR+Phge
CnBms+z0VtmpUNmJbfLjOyDBw3vgqV7h4fK9h+D5KTuOQ3ZAd4EXIDigOP97
QuCTwCSBQ4JJcn5RDRxCKhMcaqPmoo8uxmxZg/UFU+IW/HCgL+CHL636l7Uf
Al4N8Ckd+OQA0sKQtXMPidk+SGyaPZAJ/78hs/JG48s1L3sJrdseu6mpmztU
HIOiUS+j69pJujaMVlSjbilT8QuUTdmKxg8yerKU/LKd8KgNc0dcd721yhwu
WrhPkL+z+Wto8+dNzVlB/I8B/HQ/fto6fuoa/ttV/JQV/GRffuLy5gSf5tc+
za+8BS+9BS+8W555t8QuE8YsEz7xFj3ybo32bn3gLb7n03bXR3LbR3JrefuN
5dIIXxhjfm0VDJy/sg6es3bJHx7lcD4QHhlwZhM81OZkmOz4dogPqM/IDuhu
20kIDiouQgKpPeWuSmSC+R8gcy7LBK44B3UWLMfAlAj0tQ0/7AJxyEPSoHir
+bDW+pkB+Dic6TlGSwuzPIBqIzFrVzSNiz9FZmlnvb3xx0IzNTWeQdOkVzF1
SqpWjtdIUeq2SmVrsaLlq4z/Ucp5K2G9bmPGtNLuCUmRLfiLzZiT/PpDvJq9
nMrtTeVbmkqC2MUbWIXrWPmrWbkrG78sb/zs3Zi9tDFzSePHxayMRax0L1aa
F+u9JzvVk/3WsynFsynZk5PkyUn05MZ7cl978V558V968V8san62SPB0cUvM
YuHjJcLopaIHS1vvLRPf8W6L8pHc8JFGLIen411dJbuyFhK86A+Pi7LgO75N
Btgd3AvPwQHggOJgmwPUHgiA0JZkkByKy8HsMa/+Chjs12J9gnHTwwlDwTwf
i6y/ssj9CpH1l+VpAVr3U3AmXpbnTuE7F8apo1tiVq6INDLLuGiLzLwBgkwg
Pb3ReifEKDTji2ymOcRMjavTsrQaukZFUiuxKnmtQloml+RLxVkS4fs2QUIr
L1bYdF/QGMlnXOTSTnLIB9mE3Y240AZ0MLN+A6N2Lb16Ja3Sh1a+lFq6iFri
SS12pxYtpBa4UvNdqHnO1K9O1C9O1Bwn2mdHWrYjLdOR/smJ/tGJkeHE/ODE
THNueO/ckOrS+NaVleLKTl7ITnJrSnDjxLtzX3nwXnryn3s2P/MSPF3U8mSx
MHoJhHh3mfi2t+SmT7uR4JXV8GyOixug+ozsju2Aott3EJ4LBqhtuCVe+6LJ
K4vgXJq9oO6mFyYMrJo340eeQ8SVQB6QQe6XZxYXtvupxQFMDJwPwRKsm5ep
hf1AYsjbMch4bzsu9kbWRzv7d0KLma7nanQstZau1JAUSFhlu7y0TZrfKskS
ilObRQk8wdMm/j0WJ6KBfZ7eeIzK2EembSdRQgikDXjCahxuOQ6zBIv2xNYv
xNQ5YWsXYGvssVVzsJWzcBUzceUzcWUzcKUzcN9m4Itn4Itm4AtnEgpmEvJn
EfNmEXNnk77MJufMIX+eS8m2p2TZUz/No32cT89YwPjgwEhzZKY6Nbx1bkxx
YSW7shMXNsW7cV67c1968ADEWC9BzKKWR4uNBNuivCWRPlKIbw08AQewO70Z
GKbswD7Y4MAwue55E3BFh9rbPthAMByCxfJ9xAkzECcsQToXBrmrAsVlflgR
4TW0yep9CoGlhRlfhykwSayHK1oaWd/IerQzG2+0DCFmoRm3sMzUDFyVngVv
fWlJlrBKoTy/WZrFlaSyxfENoqf0lruU5utE3jkc5yiava++cVsNM6SK7l9J
XV1O8SkjLS4lepQSXEtwjiXY+SUY+xL07BLUzNL66aV108rqppTXTi6vmVRR
PbGyakJV5fjqyvG1FePqysfVl41Fl45Dl4zHfJsIw5YLJ+MKpuDzp+LzphNy
ZxC/zCTlzCJnzyZnzaVk2lM/zqOlz6d/WMB478h859SQ4sxKdjFBfOXOe+HB
f4YQBBq8v1QM8EUslwLzBLYJRHdkt3zLafnKZMb8uusBOBcwFj4xz/DG+1+1
trDo8CF8U/MyzodW77/AFoa8hganjtbCvxBkJl7WrvgzZL0nkD68sW+hdXDl
PcIqVaU8ZV6TPLNBlkpvjye3PcW33kULr9cJzlXxj5bz9pZwthWxgwtY/rkN
q74yfXLoiz/TPLKprlkUxyzy/EzS3Ezi7EzCzCzC9Cz81GzclGzspM/YiTmY
CV/Q47+ixueixuXVj8uvG1tQO7awdkxxzZhv1WNKq0aXVY2uqBxdWTG6unx0
bdno+tLRqJKx6G/jMUUTsIWTcAWT8XlT8bnTCV9mEHNmkiDHOZRP9tSMefT0
+Yw0B2aqY8Nbp8Y3Lqwk16aEhQAiUCKE+GSREGgQdMBTW2QbcQ4JpAHG25Sl
yPReh5AyPnVPIf0KYeERWIi4ul946ZOXlcSsXVFqevHzf4PMpp318EZEaGZq
HVxpR6+wSlUeU5lJVaQSZPGY9pg6yd1K8fVS0bki4dE8wd4c/rYsXvBHrv+H
ptXv2T7vWItTGj3eNLgmMx3BJziJPjeJPjuJNjOJOj2JMjWJMiWZPCmZNPEN
aUIKcfxb4vh3hHGpMLN3bBpuzAfsmAzsmI+Y0Z/Qo7PQo7NRo3Pq7b7W2eXW
2eXX2hXW2BVV232rsiutsiuvtKussKsut6sts4Mov41FF5tR5kOUhNxphK/T
EVXOJH1GhAkK/OHLDFL+FDz4tzS7x6oL88FFZqGGACigSVFAkX4Ff0DeL+sH
X5HA2cCCZmjzfpl55DBZorXErFzR2Misx8XeyNJskNm0s95DiJXQOrkSm7DK
Wpa2jKHJp6iy8Mr3KEVCtexpmfRekeR6btu57NajGaJ974XbUgQhSc3+8fzV
cTyfF9wlzzgesU2uMWynJ+wFT1j2jxtnP26c+bhh+mPmtMfMKU8Yk58wJsXQ
J8bQJjyljY+ljntGHfccZvaOjSOPeUUe85o0Op44OpE4Ookw+g3BLgVv9w5n
l4qzS8PapWPsMjB2n9B2WSi7z/V2Rpp5tXb5NZBmsZlmWaVdRQUEWmUp41kP
NaOK6kfl4Ee9Zdjd5dvvlG53BQ0CXFJwzQEFQARMgIAOE6kGjOlNQCtYsHlx
quH6qwcvG4kBZFYSs7iiafawRabqhaznBPJToXXyxaawSgpXj2fr6pm6Coqm
iKDOQanSq5VvyhQvC2WPvkijMtuvpLWdThEfTmjdEycKeyYMfgI30Fc/aF5+
l7/kNt8zirfwJtfpBndBJMc+kjM7omlmRNP0CPbUCPaUSNbkSNakG40TbzZO
uNUwPqph3G3muDvMsXcZY+8xxtynj3lAHxON5Co/QZKWYyl2zyh2L8h2L0l2
r0h2r4l2CUS7RIJdMmFUCrj4uFGpuFHvsaPSsKPSMaMyMKM+YkZ9QiOFgfXR
eAAHYdQb0qhXNLtHjaOvcWccbHFfD3jBXZ33Y8BVBVcb+BsQDoAChkAAyLoA
LGtxWfMCq2ZrS0Qk1qcrWiHL7APZD4fGlN7IuoVmDqvkddCaDMQGPZqqqyJo
S9Ca3Br1pzLVu0Ll6y+Kpx9l91KlkUntF15JTj5rO/hYvPtBa9gdUchNYUBE
yzokWdTnUvPSC81e5/nu5/iuZ3nOZ3mOZ3jzz3Dtz3DnnoFJsDPPcqafbZp2
rmnKuabJ59mTLrAnXGSPv8QaC+oKa+zVxjHXGsdEwHTl0TeQ4OsoJAf7Lt3u
Pt3uAc0uGlx5qt1jJMb8KcUOMiXbPSePekEe9dJcL5CDUYwp9A8ZdrcBKfaE
M9xZ4QLnENHSJbI9Lppbc8BFANcNXFhwtYFYAAhIrWYYAm6omZQJVh+8LJbY
Q2IFpleneyCT/xDZj4dGSzvrNYR0NQs7ufxOFqeD3mgg0Q0Ykr4Gqyur1eaX
a7IL1WlfVEkflc/fKaIT5VEvpFeftJ99IDl2W3Igsm33VXHYxdZN50QbT4v8
TgjXHBOuPNqy/HDLskOCxQcFXgebPQ40ux1odj3Adz7AdzrAdzjIW3CQN+8Q
z/4Qb+5h7pzD3FlHuDOPwsDe6cc5005wpp5smnIKJipPPAMzlsefY487zxp7
AeZgj77cOPoKEo59rWF0BBJgDpjeZNrdRE5rNdZN5Gw1eHYD+H722HNNk05y
p4P/3S6Bc7DQa0Xbenf5YSfAC3xKwVUCVxIoAlxwcPEBCECEUz0c0EHADbPA
An/ZzcvqJfc+JWZyxf9nZD/xxi6BoJPH7WSzOhiMDjLZgMPp6+r0FRW6omJt
zldNxid1yjvVqwRlzHPFvUfyyLuyS5HS01faj56XhJ+S7D7Wtu2wePMBcdA+
mCy6fpdozQ7Rqu1C321Cn23CZWEtS8JaFoW1eIUJPMIE7mEwBtZ1W7PL9mbn
7c1OO5odd/IddvIX7OLP382ft4dnv5c3dx9vzn7e7HCYqDzzIHfGIc6Mw5zp
R2D89dRjnCnH4ZF2k0/CiOyJp2Bc9sTT7AmnkdPuLAfpwgxzGJE9az/fflez
w9aWhQEAVquvh3Sbq/K0g+bObNAIwMUBlw5cUjAtAJkAiwPIeFUQDehWJlIW
cfXiZbJEW4lZBg+zKyKbHr3GRbj1YY3sB0Nj38gSJ3TBW5WcLm5jJ4vWSSd2
kDAGbI2hplRflq8ryNZmp2nSktRJL1QvHikf3VbcuS6/fkF24ZTs5BHpkfD2
8D3tu3dItodJtm5p27SpLTBYHBAo9tvYui6gdfWG1lUbRCv8Rcv9RT7+omX+
wqX+wiUbhIs3CL0CWjwDWjw2trgHtrgFCUAtDBa4hsCoXufNzU5bmp22NjuG
NjuEwURlGHC9A4Zd2+/i2e82hWDD00z2mQ6b7j5yei+SWL4T/JNmh1CBU0iL
a4DQY41osbd4hUf75oXyQ06qy/O0D2YCVwGXBVw0cDHBFQZXG1x5QAHgMCJD
qCHgqod38zKFSHRbopXEkEGx2xV7zR7/S2Q92pm1N35v438XNXUJGrq41E6W
8VZlVQe2xFCbqy/P1Bem6nIStBnPNG8fauJvqZ9fUT06q7x7XHnjoOLKXvn5
HXK4ARQiPRgo3behfff69u1rJaGrJZtWSoJWtAUsb/PzEa/zFq9eJl7l3brC
u9XXu3W5T6uPj8h7uWiZr2ipr2jJCtGSlcLFq4SLVgu91gi91go917V4rG9x
92tx929x24DkJ2+Eicow3dp4RCCSD4+cd9Z9HKclltx1I8xYdl8n9FoJSLUu
8wI22L7VVX7ASXluATBDXcw08EEFV0aB8ALXFlzqlpLfTRKrhMZohawXr14S
68MVbRvZ/2/IEGrf23nf29jfRczvAkoXF9/Fqu9kVHaSiztwXzrqMgwVKYbi
V/rcGF3WPd2HSG3KRU38Kc2Lw+qYfeqHO1V3QlU3NymvByov+ysurFOcWSM/
uVJ+zFd+eLnsoLds/zLp3qXSXUukOxa3b1vUHrqofbOXJMRLEuQl2YjEwK73
FK/1FK/2FK/0bPX1bPXxavVe1Oq9uHXZEiSYdxkMPYYZyMtFMCd5hTk/eZVt
xrIlaXklzFIG379kKYze9fWApEIWSne6gLYFYKlvzNVGz4ALmZSx4OKAMbu9
mxfoYoDXbz/kZbZEk8RsulgPVzTPin3NHv8KmWnO79sb/5Fz/2lnfW9jfBeR
vwuw33m1XeyyLmZBF+VzJ/5DJyqpo/pFR1m0oTDK8PWqPuusPv2Y7l24LmmX
9nWo9kWI5ulGzWM/zYO16rur1FG+6hs+qohlqqtLVJcXKy96Kc95Ks94Kk55
KE64K465y4+4yQ+5yQ+6ycLdZPvcZHuQANgdbtJtbu2hbu1b3do3u0lC3CRB
7pKN7m0b3I0RjjB7c7WHMVAX5uL6eLR6G8sYQYz8zXIkWXc1Euq4wU0SvLA9
1FW220V+0Elx0kF1ab7m5lztw5n651MMSePApQBXCUza7bkjTX7YS18cSyOr
tho5enQx27WYsLjvRvZ/Q9b3BJIy7h9l0z/yhn+ktH8khH9a0d9bqr7zv31v
yv3e8KmL9q6L9LoLG9NZf7ezKqKj9EJH0YmO3AOGz7sMn0IN6cH61A36lHX6
xFW6eF9dnLfu+RJt7CLtE0/tI3ftQyRW9K6r5raL+paz+oazOsJZfd1JdRU0
ESfVRSfVBfCZd1KecVKeBpfUSXHcWXHMWX7E2RTxGu5iCnSFIXWu1imRPdN6
jX8ORb66AzKS7XOGmI45gulCdXG+OsIezBi6xzP0LwCs8cBnwJUB4oJmmDcS
yAGOiN39a4QJVo3N1PFDZGU9ls8/aGT/ElnGj5GZvfG7uum7kvldTu2S4rsk
9V2tlV0tRZ38L52c9M7GN52Mlx2U6A7CrQ7M5Y66Ux3VhzrKd3eUhHYUBnXk
+XV8WdXxeXlH5tKODC/DB3fD+4WGty6GN076JAd9wgL96/n6V/N0L+fpntvr
Yu11T+11T+ZqHwFTmqt9MFd7315z115z214TZa+5OU99Y546Yp76+jy1Mfr1
0gKY+Arfe3KAQa+ne0W89ijwlyeRbzu7AL53cxn8KPBj52jvztI+mqF7NhUs
NoGZgN8dwsq0A9cNXEZwVU3DhpW4LLCakOoLmckVbWZ7q1nR1Mh6j4s91tE/
R/aDdtalYXepmZ1KSqcc1yGt65CUG1oLDcLP+uYPem6SjvVMx3ygpd1AkipP
aDDhmrodmurN6soAddla9TdfddFSTYGXJs9N89VFk+OoyZ6vzbLXfpqj/ThL
lz5T92G6Ps2YKTrV8HaKIWWKIRl8yKfoE6bq46fqX03Vx03Tv5imez5dFztd
93SG7skM3eOZSFIokgFrSn9Fol+RZ1y7H06OtIdPlRsLeaEDfhV8z+3ZkNGD
mRDT02lwjzR+ImjT4JcFvz64JmAdBC4a6Cy2TvibcdVs9EDj+gtZMg+1XYsN
++ms2Ecj6zl7/G+Q9TmBdGpZHRpGh5pkUGINilq9rEwnydeKszSiVI0gXs17
qmq6q2y8roBJlUfkpL1yQpgMGyRDrZfVrZTWeEurFkkr3KRlztISB9m3ebKi
ObLCWbL8GfK86fLcqfIvUxQ5kxWfJymzJyqzTJmi6o/j1RnjNenjNR/Ga9PG
a9+P16WO170br387Xp8y3vBmvCF5gik1NN6y1WmVBBs7zXTLtUfFwq/CbwPf
/3oi/AlvxoEPJLAU8IuDSwE8EFwlcMXAZ95og6Yx3rLyMpHq3uWw2uvotd3R
C1l3I7NdkYnze42L/xZZr6ExdWyHvtGgo+m1RJ0arVNVaxUlGlmuqv2Tsu2t
ojVOLnwsa46S8i63N52SNB5oY+4U0ze1Uja0klaLCD4i3CIRxk2EdhbVLxDV
zhXVzBJVzxBVThNVTGktn9RaNrG1dIL423hx8bi2orFthWPaCmCmqAQJFJUi
gaKyL6NlOaPln21DRD+OUWXA+FBzguhYDZIgauPkxlvq3WVqyuCr4NvALwh+
U2B9EFOmHbgmRgNESBllZdzWMMvKhlSPjcQhP9uh+kkj6z179EQ26n+BzDw0
6g0NOj1Vq8NrtPVqTYVKXaRU5sgVH2SypPb2Z5K2++LWiFbhOaHgSAtvj4Cz
tZm9kd+4htfgw2Us4tIWcqmOHPI8Dmk2hzCDg5/KwU3iYCdw0eO4qLHc+tHc
Ojte7ShezSh+9d/8qpHNlbAEFSMF5X+1lP3VUvqXsOQvU6BoESxx4ci2Atso
UWggo0y/GpImCn4102/XV8GvZiPfnAN9D/xzcJUsmGw1ZSGFYDICQg1pRA22
FPhPEzXjdn3dz5AJ+lyR9Zg9bBdl/1tk4HOoMTSo9FSljiDX1ss0le2qojZl
Tqvig1CWJGh/xpfc54qvN4nOsloONwp2MfmbGDw/OmcFvWkJje1GYznQGufS
GmbQmJPpzPF0xhg63Y5O+5tO/YtO+ZNB/oNB+p1B/I1JGMHEj2jAjWjADm/E
wGKhh7NRw9n1w5vqRjTVjuDUjOCCqjZmiv7GNwaKwkzR382ZouZY0SLzh9Zo
NX1WIaQDvs0ICPQUcA3Bj7KZAM2YuhmhBzfAGmRVg433Voy3V6w27Yf23gfm
/2BF1ufs0Xsd/RNkPeZ8haFBrqdKdQSJFtWqqRSqipqVOTx5epMsqbH9GaPt
PrU1giQ6R2g5gm3ejeZvruduqOOsrGlaWs1yr250qmqwr2qYVcWcWsWYWMUY
V023q6b/XUP/s5b2ex1tRD1tGIo2FE0dgqEOwlEH4qkDCNT+JGp/MqUfhdKf
Qu5PJfWnEQfQCAPo+IEMULhBSBzlYORaDUE+3qb7GqYPdrU5X7R7twFeq141
wri25VkWU4jjWXRkBjTIdPMLO7CPMt4RQ5vviKG67dEaGe9HyL71OXv0NeFb
tj7+BTKpvqFNR23VEVo0KL66kqMqZim+MOTpVGkyUfIc2/agvjWyWni+QnC0
tHlPMW9rAScgr2n1V7Z3Dsvzc6NLdsP8bObsLMb0LMbkLPqEbPrYbJrdZ9rf
n2l/5lB//0L97St1eC51WD51aAF1cCFlUDFl0DfKwFLKgDJK/wpK/0pKv2pK
vxrKr3WUX1HwdZ5fsJRf8PAGPXw7lQyfVvrFeAuYRjBGjPan44wpo6agUeSS
IkJAD7a2MiMRCxSEC/xXDFDwJwwAPwf+tD4L+QbjvWbj7eZuahZvNCKrtkH2
00V073GxL2RZvZDZrqZb9Q1CHa1ZS+BoUCx1FUNZTFZ8wcsyUNLkasmLcvHD
YtGNvJYLOc3HPvH3pnNDU5s2prDXJrN8EhsXxTcsfM10eMWYG0efaYypjKON
j6OOeUW1e0X9+zXlr3jKHwmU3xMpI5Ipw99QhqVQhr6jDEmlDE6jDP5AHpRB
HviRPDCTMiCbMiCH0v8LpX8upV++OZryG+XXUiSdsgI+aAETDmuRF8NRyBMX
WCTCi0D5HyLlf0iw4HNoSAG+/7cyPhjwKxV+MPrRrMBZtNYLmVny3ePizxbR
3bPH/wOyFj2br2M2aSkNGhxNVUtUlqHl+dWyzNL2twVtcZ9bozOEN94JLiTy
j8fx9j3jhD1hBz1krbvX6HubufgWw+0G3SmSPi+CNjuCOj2COiWCMjGCMi6C
MiaSbHeD/PdN8shb5D+jyH/cIf9+l/zbPdKIB6Th0aRhj0hDn5CGPiUNiSUN
fk4e/JI86BV5UDx5UAJ5YBJ54BuYj2cKqEwn9/+IvLKaheQcfoFJlb/mkX8t
QAIPi5HMw1LKL2VIoleliex/aij/qUWepQFlRIxCsvUwZtYI7v/BI2WBbiRu
xGetaKi1bqH1gezHN8hsG9mPxsU+tj5+iEyg5/F0bLaWwVCTKSosXllbLy+r
lOYXS7Jy21IzWxPeC58mCe7F8SNiuOcfNB27zdof0bj9SkPIBYb/GfrqkzSf
Y9RFh6kLD1Icw8n2+8kz9pEm7yWN20sas59kF04cdcCcUXkUyag8YQqoHNEj
oDICvrY/5BZpyG3S4Lsw4XDwQyTkEImphJFrL2EIA0w7SSTDPKgUcv935P7v
kRC2dHK/j+R+meR+2SamvxqZ5gOm5F8Rqf5ixFpuxmphai1YIzszuG5q1iZs
g8xqYvzZ7PHtx7NHn4uynyJr1jdzdNxGDYumphNVJIwCUyOvKZOWFkjyPouz
0kXvU1oSXjc/i+U9fMi5dZt9JYJ19nLDsXPMA6cYu4/Rwg5TNx2gbtxH8dtD
XrOLvGInyXsHacl2otc2olsY0SWU4BhKWLCVYL+VMHsrYcZWwtSthElbCeO3
EsZsxY8Kxf8ZShixHcZUDjfHVA47RBh2FAlbOwVzDmEG1EXikCtIYl4kcfBN
4uAo4qC7pEH3SYOikfS8GNLAZ0j4YRxpwGtbmmm2KHPMHAuQhL0SsyqrkNf0
6szgcFbUuoWGN6Zzm5+e6v1MTs3/oZH1Ghd7IVP0QsbTCdlaPlPDoagb8Cpa
vYJQKUMXt1d9lZR8Eue9E2UmCN4/4ydFc1/cbnocwb57qfHGGebl44xzh+kn
wmmH91LDd1F2byfvCCOFbiVt3kIM2kQMCCH4BxPWBRPWBBFWBuF9g/A+gfhl
gfglgXivQLxHEN4tCO8ahHcOwjsG4xcE4+cFw6TKWSH4GUhK3mQk53DsZvyo
Lfi/tuBHhOKH7cAP200Yto8w9ABh6GEky+skYcgZwhBA8xJx8FXi4AgE5W3i
oHtIfCXg+BRRJYAYjwSQAoLG/NiPZmv9igjQqL4ys+hqzdTwJpP8DxnYo7Gp
4S2B6gMtgeosm9mjr0ZW+sNF9P8NWZOutUHbQtPwiOomtJJZraCUyPB57ais
tsr3rd8ShbnPBVnR/LQobvK1plfnWbEnG6KPMO+E02/spl3dTr0QSjmzmXwi
mHQ0kHQogBi+gbDXj7BrPWHHenzYOvzWdfjNa3Eha3FBa3Eb1+IC1uL81+LW
r8OtXYdbsw63aj1uxXpTyOEyJCVv0Qac1wacRwCMOoR5lRtxjoG4+UE4+yDc
nGDczGD8NCQ6b8Im/JjN+L+34H83otxDGBqOcDxOGHIagXiZOPg6QvAOcdAD
BF8sdFTILhkJj00zg/uCKK7QiloNYpJoG6FZITP2MgxMcjYO+X03sp+vyPrc
qvp3yDg6SYPWnHyoZFfKmcVSylcJPkOMShFVxbWUPG7Ov83LvspJP8t+e7Qx
YX/Dy52Mp1vp0SHUexspUX7kyLWka6uJl1YSz/sSzi4nnPLBn/DGH12GO7wM
d3ApLnwpbv9S7N6l2N3LsDuXYXcsw27zxoZ5Y7f6YLf4YDctN+UcBq6AQXn+
K2Fs17pV2LWrsavXYFcigYfL12G915tSK738ce4bcAsDulHOhRxxU0PwExGI
I7cgBPcShh5C8J0lQAFehyGWUHqPEHBAdAmI4t4jCXtGaojWYI9D0rahPVoj
s+5l3RNjD1es/Reu2Gcj62tctNrSsUHG0UobNRKaupWobEEr+NWyppL2htw2
2qdW4jsh5nVz7VNe+T1OcSQ792Jj9klmxiF66h7am22U+M3kl4GkWD/ikzWE
6BX4ez74O0txtxbhIj1w192wV1yxl5yxFxyx5xywZxywpxyxJx0xx50wx5wx
R5wxh10wB10xBxZiwt0w+9yRqEMPmJW3wwvG5W1bjAldgtmyFLN5GSbEGxvs
gw1cjg3wxfqvwK5fiV27qhul93rsEj/cIn+cxwaoRyeE4OxgHJDhxM0w+3f4
TjyMjT2GmOdlpAMCxUWbqSXaBjXnkY0B6T2REW17mc1jwLbI/s14b9PI+pg9
/gsyjlbR2J18KKyWNiPJh6xMISNVQInn42M56PvsmhuN5ZeY307T849Qv+wn
Z+0kZoQS0kLw7zbikv2wCWswr1diXi5HP/dGP12KerIY9cgL9dADdd8ddXch
6rYr6pYL6qYzKtIJdd0Rdc0BdWUB6tJ81IV5qPP26LNz0afnoE/NRp+Yiz5m
jz46H31kAfqQI+agEybcBbPfFbPXDbPbHbPLA9LctsiEcpM3BnL0xW5YAdNH
16yGBIESga8uQpJjnQNx84JwM0NgbjNMsNyNGOZpRG43kHAbS9LvG7M99shF
r0aM0dLLrJD1csUfjfe9XLHXisx29ug94dvsVkFkHI26Qa2kKeUEhTH5sPVb
W0uuiP+phfOO3xjPZTxlU+43Em4wMJdodacp1UdI5fsJJbvwhaHYvE2YL4Ho
z/6ozHX1H1fXf1hR93553Tvv2pSltclLahMX1cZ71bz2rInzqHnhXvPcrSZ2
YU2Ma+0T19pHLrUw7dAZph3edaq7jQQe3nSoi1xQd31+/bX59VeQ2MMLc1Hn
5qDOAJqz0CfmQJoISvQBZzNHBGLYYsxWmIKIgfhWYtethsmxPkB6wDwDoOiA
Z05DAmNhpztKGHIOmTZvI0J7hkTcvEG80Rhlb1RZqbmXoczHEJDMJxH0kFhP
V/zxpsd/a2S2s8cPkP1/6h5mWA==
           "], {{0, 144.}, {144., 0}}, {0, 255}, ColorFunction -> RGBColor], 
          BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
           Selectable -> False], DefaultBaseStyle -> "ImageGraphics", 
         ImageSizeRaw -> {144., 144.}, PlotRange -> {{0, 144.}, {0, 144.}}]], 
       EdgeForm[None], GraphicsGroupBox[
        TagBox[PolygonBox[CompressedData["
1:eJxNm3V01UfXhXPvD3e3oMGCBQlO0QDBA4Hg7u4uwSluhQKlRYsXCsXdnUIL
xd0dSpGi5T17zfOt9f2xV0/3nXNmZj/DhVSytO4R2d0fEBBQ1QsIiGF/9Zn0
95lNmajto4AseKq1LghPdUxTVjzVsUzZ8FTHNmXHUx3HlANPdVxTTjzV8UzB
eKrjm3LhqU5gyo2XxpTWVMxUlDqdqTheIlNiUz5TXuokphA81UlN+fFUJzMV
wFOd3FQQT3UKUyE81SlNoXiqU5kK46lObSqCl5ozF8XTXRKa8nCnhJw5L57u
EmgqwZ2CuXe4qbIpvSmDqZSpJHVG0zd4meBWxlSaWtzK4mWBWzm8ILiVx8sK
twp42eAWhpcdbhXxcsCtEl4o94401eEu6TlrCe6ie1fhTrm5d1W8PGRRDS8v
3Krj5YNbDbwQuNXEyw+3WngF4BaBVxButfEKceY6eDnJvDJ3Kgy3utypCCzr
4anWu4vCK849G5jqU+vuDfHKk2NLUwt6i7M2irXi2IieUrBtjFcWTs1NzajL
M0teaTg3NTVhL3FqxZ5lmNGMNWFwa82aGuTWxdSZDJRFW1MbanFrhxcOt/Z4
VeDWAa8anDqZOjK3q2miaQJ71cLrQi0u3fCqc6bOzKjImdpw5gi4daenNix7
4NWBW0+8unDqbepFrdz74EXBoi9efbj1w2sAl/54DeEyAK8RrAbiNSHnwaZB
1Mp+CF4zuA3Fi+SMvThzc9gOY01LOA03RZOBshhpGkEtLqPwWtATzYxW9Ixg
RmdyF4vx9IrjaGa0h+VY0xhqcRyH1xEu3+J1YuZ4vHbMGMNMvY1q9HWAsbhN
CnBvYotpq+m86S8YitsU02Rq5TIVrydZTcPrBcfpeL3hOAOvDxxn4vWF43d4
/eA4C68/HGfjDYDt93hjuffPpqXUuvcyvCFw+8E0j1oc5uMNg82PeNFw+Qlv
OKwW4I2A60K8kXBahDeKnBfjjSb7JXhjOPNSPL1JvcO5pjnUQzjrXO4ilsu5
0yzuvdH0W4B7N+K20rSCWixX4U2C22q8yXBbgzcFbr/gTYXbWrxpcFuHNx1u
v+LNgNt6vJlw24C3iHvvNe3hLhM463LuIpabuNMc7q13uJlaWWzFmwe3bXg/
wG073ny47cD7EW478X6C2y68BXDbjbeQM+/B+47Mf+NOi+G2jzstgeV+PNV6
dwfwlnHPQ6aD1Lr7Yby15HjKdJLeZaw9wFpxPELPSjgexVsDpxOm49RrmXWC
teJ8jJ51cPqdPVcz4zhrfoXbadZsJ7dLpotkoCz+MJ2hFrc/8TbC8izeZrjp
u+QczMTpQoD7jtF3j75j9C4nsZe4XGbPnXC5greNM11kxnrOdIYz74LbVXp2
w/Ia3h64XcfbB6ebphvUyv0W3gFY3MY7CLc7eIfgchfvMFzu4R0h9/t4R8n5
Ad4xsn+Idxxuj/D2csYbnPkEbB+z5hScnpqekIGyeG56Ri0uL/BO0vOEGb/T
84wZF8n9nektveL4khnnYPmP6RW1OL7GOw+XN3gXmPkWT7P0Nv5m5iW4/sue
l+H2Hu8K3D7gXSOHT6aP1MrmM949cvXsByu/z/VeY+0H1orrF3puwvU/vDtw
8+kHM5+rNVOz5N2C+1d67sMths/teZsZ6v3KZ+IY0+fWvOTuiaxO6HMMxSG2
1bF8rhabOD7nPYFLXJ/znsIqns95z+GSwOr4zNTsvKY8PsdIXJJYndjnanFJ
6nPeCzioTzMe8q50Fp35Ge9Gs7Xnazgm87kZb+GWwurkPsdIOae2OpXP1co+
jc95AeSYyZTR5xirR2tT+txacUzrcz2f4JTO57z/yD6D1enJOIBZ8j7DMdDn
et7xjjRbZ3zDW9RZk3EWsc3MmeKRYy5TMBkoi2ymrNTikh3PD/cszIhBj9YG
sVbcctATB2458eKTe272TADDPHhxOVMwPR57BLHnb6aNpj9Nf8BYXENM+WCk
exYw5YeRcihkKkitbELxAsm1pKkEvclZW4C1YlWYnlRwLYKXltyLm4pRBzKr
OGvFtSg96eFWij3TMKMYazLA9hvW5CCHSqaKMFPuZUylqZVLWbwsZFUOLwg2
5fGywSXMVIHskpJVCHsp+8rsGQyncLzsnKkiMzJyptKcORccq9CTG7ZV8VTr
12o1vBD2rmmqQa3ca+EVgEUEXkG41cYrBJc6eKFwicQrTO518YqQcz28omQf
hVcMbvXx8nFGna06n4ltA9aUhFMjU0MyUBZNTI2pxaUpXgl6GjKjFD2NmfGF
71m9k0B6xbEZM8rBsoWpObU4tsSrAJdWeGGwao1XlhnNmVkRzm1YUwnObfEq
w7EdXlXYdTR1IBNl09nUiYyVay9TT5hXZW171oprF3pqwrUrXm249TB1p45k
Vg/Wins3elpyr+GmaD6rTW83ziKuvTlTU+49xDQYBmLR39SPWhwG4NXjHfRh
Rn16tLYva8VuID2N4TwIrxlZD2XP5nAahteEMw2mJ4o9+rJnC+4YTU8rOI3g
zoOZO880F2biNMo0klrsRuO1g8MYvPawGYvXAbbj8DrBabzpW2pxmoDXBQ4T
8bqS+yS8brCYjNeaM47kDt3hOoU1PeE0zTSVzJXDDNN0amUzE68HPVOZ0Yue
6cwYQs4/kFFf2H3HjP5wm22aRS1u3+MNhMscvEFkPhevHzNmMXODz/0epd+b
zrC3uM3nDItMi017TXvIQFksNC0gU+W4wrScWjmuxBtOj9b+5HPvYjj1j8wa
xT4LYTaeWctgLs5LOMcovMX0TITTKvbUG9Bb+Nm0lM/EaTVrZpHTRu49BRa/
mNZQi8NavOlw+9W0jllTWLuatdP5bC1rxWk9PbPhsIk9Z/6/3LVG31X6ztG7
bsdnszjbBu4+lrssYZY4bmbmHNhuwZtPrjtM26mV9U68pWRzwLQfxvNZu421
YrWLngVw2Y23mHPs87k3sYSZ+/EWwmUPPfPYQ7O3wlRsD5kO+twbEbcjpsPk
qNx+N50iY2V93HSM3hWsPcTd5zF7C4xXs/aoz73laHKYz16r+OwIjMXtpOkE
e4vLac6wHg5n8NZyxlP0rGHGCc6oP7vozyz6fa08zMXprM/9GfCi336mMr0z
vfU7Zjr3X6Zz1LrLebytZHcBbxusLuJth+slvB1wu4y3E25X8HbB5Sreblhd
w9sD1+t4p8jhqekJtXJ4hifueku3TDdhKi53TLepxeou3mFyv4d3BBb38Y7C
7gHeMXJ9iHecrB/hnYDDY7yTnPkJnu6id3mDO+3jzDfxTsP2OXe6yr0/mj74
3PeiuL00vaAWy7/xzsLtFd45uP2D9xfcXuOdh9sbvAtwe4t3EW7v8C7B7V+8
y3B7j/eQe8eytxTT7+7yB2d9zl1070/c6Tr3/ox3gyy+4N2E5X94t+Gmf/H5
lVrcfH7n3YWb3++8e3Dz/M67D7cYfuc94Mw6q7wrZP6BOz2CW2y/u9NjWMbx
O0+13l1cv/Oecc/4Vsfzu1p3T+B33htyTG51Mr/rVY/WasYLOCb0u56XcEzk
d94/cEpqdRK/qzVTs+T9DefEftfzFk4p/G7PV3BXr9a8g1tKv1sTQG6ZTBn9
LgNlkdrqVH5Xi1sav/M+wi2t33mf4JbO77wvsEtvdSBzM5vKmEqzlx8vE7W4
ZMH7CmudJYPfnVVn0llSslbcguiJwbvLihcTbtnwYsMphyk7tXLPiRcXbsF4
8eCWCy8+XHLjJYBLHryE5J4XLxE558NLDLcQvCRwy48XizNm58xJeScFWJMc
ToVMBclAWRQ2hVKLSxG8ZPQUZEYKekKZkZHcxeIbesWxKDPEUCyLm4pRi2MJ
PNViWxIvAzM1qxSz0tKrmZ/5dRzIrMxwK8ub6GTqbBpv+haG4lbeVI5auVTA
y0ZWYXjZ4VgRLwccK+HlhGNlvGA4huPlgmMVvNxwrIqXB47V8Ipz7wam+tTK
oiFeCNxqmmpQi0MtvAKwicArCJfaeIVgVQcvFK6ReIXhVBevCDnXwytK9lF4
xThzfTzdRe+wOnfKx5lr4JWCZWNTIzLQvTuY2vvduxG3pqYm1GLZDK8s3Jrj
lYNbC7zycGuJVwFurfDC4NYaryLc2uBVgltbvMpwa4dXl3v3NvXiLqU5a2Pu
ont35E7VuHcnvOpk0RmvBty64NWEW1e8WnDrhhcBt+54teHWA68O3HriRXLm
XnjhZN6eO9WDWx/uFAXLvniq9e764TXingNNA6h190F4rchxhGk4vXq7/ZnR
BI6D6WkKxyF4LeAUbRpG3YpZ0awV56H0tIbTSPZszoxhrGkDt1Gs6Upuk0wT
yUBZjDGNpha3sXgd4DYOryPcvsXrDKcJfvcdo+8efcfoXZZlL3GZzJ7d4TIF
rwtnmsiMtpxpNGfuAbep9PSE5TS8XnCbjtcHTjNNM6iV+3d4/WAxC28A3L43
zaYWlzl4g+AyF28wuc/DG0LOP+ANJfv5eMPg9iNeb844gzNHw/Yn1oyA00LT
AjJQFotNi6jFZQnecHoWMGMkPYuYMZHcV5lW0iuOS5kxDpbLTD9Ti+NyvPFw
WYE3gZkr8cYy42dmToLravacDLc1eFPg9gveNHJYZ1pLrWx+xZtLrltNW+id
xtpfWCuu6+mZCdcNeN/DbbNpE/VcZm1mrd7Cb/TMg9s29pzNDPVu5DNx3M6a
pdz9gGk/DMVhp2kHtdjswlsAl914C2G1B28xXPaZ9jJTs2+ZbrKXuBzEXwaX
Q3hLONN+ZsznTDs48yL22Muey+F4mBkr4XbUdARGyvmE6Ti1sj+Jt4kcz5nO
wngNa4+xVhxP0bMOTr/jbSD7P0xnyHgTs/5krTiepmcVexzjjCs48xHusBm2
f3GmPdz1uukaGSgL/Yx+kVpcLuNtgft5ZmyjR2svsFbcrtCzC25X8faS+w32
3AeLm3i7OdM1erayxwX21D9L2MzPmfrZ8wBcb/MGDnHPu6Y73Fs53Dfdo1Y2
D/BOk+tz0zN6j7D2LmvF6iE9x+H6CO8UuT81PaE+zaynrBXXx/ScgeUL9jzJ
jCes+RO2f5tekply+GB6DzPl/o/pFbVyeY13nqze4F2AzVu8S3D51+/+GcxB
MrtDhlfJ/iN7XoPTJ7zLnOk9M85yplec+TocP9NzA7Zf8G7C6T+82+yt/5D4
K7Vy93nOuwsLv+e8e3DzPOfdh0sMz3kP4BLTc95Dco/lOe8ROcf2nPeY7ON4
znsCt7ie825xxq+c+Sls43luzXNYJrA6vucyUBaJrU7kuVpcknjOewZ3rdWM
l+SmtQk992t5A+/kNL3imNRzM97AMrnVyTxXi2MKz3nv4JLSc96/sErlOe81
70C9mvkezqk9t+YDnNN4zvsIx7Se876QQ3qrAz1XK5sMnvNikms2U1bPMVeP
1qaDsbhm9FxPAFwz4XlwCzJloY7JrCDWintmelJwr1BTIT7z6M3MWcQ1O2dK
wr3zm0JgIBa5TMHUYpkbLzbvIAcz4tKjtTlhJnZ5TXmoxTkfXlI4FWDPZHAq
iJeYM4XQE4c9crJncu5YiJ6UcCrMnUOYW9NUA2biVNRUhFrsiuGlhUNxvHRw
LIEXCMeSeOnhVAovA5y+wcsIh9J4mci9DF5mWJTFS8UZi3CHLHAtx5qscKpg
Kk/myqGiKYxa2VTCC6KnPDOy0RPGjPzkXIuMcsKuMjNywbqKKRyG4lbNc/8P
RF64VMfLR+Y18IKZEc7MtqZ2ptGmUewtbhGcoZ4pytTH1JsMlEVdUySZKsfG
pkbUyrEJXig9WlvHc+8ilLo2s4qyT12YlWJWQ5iLc33OURQvip7ScGrKniWY
od4GfCZOzVgTTnbtuXc5WLQwNacWh5Z4YXBrbWrFrHKsbcbaMD5ryVpxakNP
VTh0NHXgs//LXWs+8fuM3nVaPgvnbG25ewnuUp9Z4tiJmdVh2xkvgly7m7pR
K+seeA3Ipr+pH4wjWNuVtWLVk55IuPTCi+IcfT33Juozsx9eXbj0pqcme2h2
F/YW2wGcoTHcBpkGkqNyG2EaTsbKeqhpCL2NWTuAu9dkdmcYN2PtYM+95ULk
EMFeTflsEIzFLdo0jL3FZSRnaAOHUXgtOeNwepozYxhnFDe9rTGe+zX1P4uT
Py0=
          "]],
         Annotation[#, "Charting`Private`Tag#1"]& ]]}, {}, {}, {}, {}}, 
     LineBox[CompressedData["
1:eJwt0bdNgwEQBtAfTMY2OdsgWsIChJ7QURE6CrDJyYmcBAsQFoAFCAvAAoQF
YAHCAsCzRPGkK06nu+86p5fHlgqCIEhRSL7uYJApclxyzyvfVGnqZZQkp1zz
yDu/xA3rZ4IM59zyzCeRUBB0M8wsCZLMMc8CiyyxzAqrrLHOBinSZMiSY5Mt
ttlhlz32OeCQI46ZYYguwnzY64kbzkgzTh8xftz1xgNXnJBghB6ifMnnhTsu
yDLJAO3EidFGKy0000QjDdRTRy01VOczJ0qEMJVUUE4ZpZRQTBGh/3/+Ac0Z
Le4=
      "]]},
    VertexTextureCoordinates->CompressedData["
1:eJx1mz2oHkUYRj+0CWiTNoUgtpaCldhZiCCkso0YwUqwDahFWgubIBaCVcDK
KZNuglgYECQgQUQd/13X5Wpj672fnGd5z7drMxwTrzt7mJ2Z533vk6++efX6
I4fD4eajh8PF6H8+uHHl2p3bHz9fuYVfu3P78q0bd/XnPfzuBV7+PPz68e9/
EX7pleWNm798Gf7w+N9/FX78/nPvffrtg/A7x5/3dfif8//6oxcehq8ff/43
4YeXjj8g/OLx//dd+PsHF3/hBz3/CF996ul/n7n3Y/ix44/7KfzZWy+f/42f
w28fn+/X8LP3Lv7Cb+G/j8/7e/iT86e9cu0Pvc8p/MTFj7v1p+Yzh98/fzmX
7v+l+S3h//85E69et8cWxm/98x7GL4xfGL8wfmH8wviF8QvjF8YvjF8Yv/X5
Rxi/MH5h/ML4hfEL4xfGb32fUxi/dT5zGL91fksYv3vrdNvrOla//Psern6b
/Db5bfLb5LfJb5PfJr9Nfpv8Nvnl+Ue4+m3y2+S3yW+T3ya/TX6b/Db5bfLb
5LfJb5Pf0+/u9jpdvXrEL4xfGL8wfmH8wviF8QvjF8YvjF8YvzB+6/OPMH5h
/ML4hfEL4xfGL4zf+h6nMH7rfOYwfuv8ljB+9/bR7e9uO/FY/3wd6/rtWr9d
67dr/Xat367127V+u9Zv1/rtWr9d67fHL1zXb9f67Vq/Xeu3a/12rd+u9dvj
F67rt2v9dq3frvXbtX5Pz0Xb+2g7WZf2CHvEL4xfGL8wfmH8wviF8QvjF8Yv
jN/6/COMXxi/MH5h/ML4hfEL47e+zymM3zqfOYzfOr8ljN+9c+72uaidfGe9
Lu0R9ohfGL8wfmH8wviF8QvjF8YvjN/6/COMXxi/MH5h/ML4hfEL47e+zymM
3zqfOYzfOr8ljN+9e8v2Obed7Jv+znpd2iPsEb8wfmH8wviF8QvjF8YvjN/6
/COMXxi/MH5h/ML4hfEL47e+zymM3zqfOYzfOr8ljN+9e+j2vaWdnIO8b/o7
63Vpj7BH/ML4hfEL4xfGL4xfGL/1+UcYvzB+YfzC+IXxC+MXxm99n1MYv3U+
cxi/dX5LGL97ucL2PbSdnGt9DvK+6e+s16U9wh7xC+MXxi+MXxi/MH7r848w
fmH8wviF8QvjF8YvjN/6Pqcwfut85jB+6/yWMH73cqLtXKGd3FN8rvU5yPum
v7Nel/YIe8QvjF8YvzB+YfzW5x9h/ML4hfEL4xfGL4xfGL/1fU5h/Nb5zGH8
1vktYfzu5X7bOVE7uXf6nuJzrc9B3jf9nfW6tEfYI35h/ML4hfFbn3+E8Qvj
F8YvjF8YvzB+YfzW9zmF8VvnM4fxW+e3hPG7l+Nu537tJEfwvdP3FJ9rfQ7y
vunvrNelPcIe8QvjF8Zvff4Rxi+MXxi/MH5h/ML4hfFb3+cUxm+dzxzGb53f
EsbvXi6/neO2k1zIOYLvnb6n+Fzrc5D3TX9nvS7tEfaIXxi/9flHGL8wfmH8
wviF8QvjF8ZvfZ9TGL91HnMYv3V+Sxi/e3WWmluvua1zPudCzhF87/Q9xeda
n4O8b/o763Vpj7BH/NbnH2H8wviF8QvjF8YvjF8Yv/V9TmH81vnMYfzWeS1h
/O7VzfDrHN65rXM+50LOEXzv9D3F51qfg7xv+jvrdWmPsEf8wviF8QvjF8Yv
jF8YvzB+6/ucwvit85nD+K3zW8L43auD1vx5ras4h3du65zPuZBzBN87fU/x
udbnIO+b/s56Xdpjff51rPnzUP48lD8P5c9D+fNQ/jyUPw/lz0P584hfuObP
I37hmj+f1rXx6zqZ6yrO4Z3bOudzLuQcwfdO31N8rvU5yPumv7Nel/YIe8Qv
jF8YvzB+YfzC+K3vcwrjt85nDuO3zm8J43evTwG/rnu6Tua6inN457bO+ZwL
OUfwvdP3FJ9rfQ7yvunvrNelPcIe8QvjF8YvjF8Yv/V9TmH81vnMYfzW+S1h
/O71neDXdWzXPV0nc13FObxzW+d8zoWcI/je6XuKz7U+B3nf9HfW69IeYY/4
hfEL4xfGb32fUxi/dT5zGL91fksYv3t9RPh1X4Lr2K57uk7muopzeOe2zvmc
CzlH8L3T9xSfa30O8r7p76zXpT3CHvEL4xfGb32fUxi/dT5zGL91fksYv3t9
Yfh1n4n7ElzHdt3TdTLXVZzDO7d1zudcyDmC752+p/hc63OQ901/Z70u7RH2
iF8Yv/V9TmH81vnMYfzW+S1h/O71+eHXfUPuM3FfguvYrnu6Tua6inN457bO
+ZwLOUfwvdP3FJ9rfQ7yvunvrNelPcIe8Vvf5xTGb53PHMZvnd8Sxu9e3yZ+
3QfmviH3mbgvwXVs1z1dJ3NdxTm8c1vnfM6FnCP43ul7is+1Pgd53/R31uvS
HmGP+IXxW+czh/Fb57eE8bvXh4tf9/W5D8x9Q+4zcV+C69iue7pO5rqKc3jn
ts75nAs5R/C90/cUn2t9DvK+6e+s16U91ve5jrW/bopfuPbXTfFb+6jPxGtf
NX7dp+m+PveBuW/IfSbuS3Ad23VP18lcV3EO79zWOZ9zIecIvnf6nuJzrc9B
3jf9nfW6tEfYI35h/Nb5LWH87vXJ1/rC2nfrPk339bkPzH1D7jNxX4Lr2K57
uk7muopzeOe2zvmcCzlH8L3T9xSfa30O8r7p76zXpT3W+axjrS/M8Vt/z+FM
vP7eA37dR+2+W/dpuq/PfWDuG3KfifsSXMd23dN1MtdVnMM7t3XO51zIOYLv
nb6n+Fzrc5D3TX9nvS7tEfaI3/p7K2fi9fdYav1o7Yt3H7X7bt2n6b4+94G5
b8h9Ju5LcB3bdU/XyVxXcQ7v3NY5n3Mh5wi+d/qe4nOtz0HeN/2d9bq0xzq/
dcTv3u8l4bdy0759V3++9lW7D9d9m+7zc1+Y+4jcd+I+Bde1XQd13cx1Fufy
znGd+zkncq7ge6jvLT7n+lzkfdTfXa9Te/X4H/Gg4t8=
     "]], {}},
  Axes->{False, False},
  AxesLabel->{None, None},
  AxesOrigin->{Automatic, Automatic},
  DisplayFunction->Identity,
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  ImagePadding->All,
  Method->{
   "GridLinesInFront" -> True, "ScalingFunctions" -> None, 
    "TransparentPolygonMesh" -> True, "AxesInFront" -> True},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.02]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.88054677126985*^9, 3.880546804294529*^9}, 
   3.915438107323181*^9, 3.9194208113091927`*^9, 3.9243483173218956`*^9},
 CellID->319700664,ExpressionUUID->"fb2a6634-f857-fb4c-b805-bd7b777812ce"]
}, Open  ]],

Cell[TextData[{
 "The ",
 StyleBox["scaling",
  FontSlant->"Italic"],
 " property states:"
}], "Text",
 CellChangeTimes->{{3.89943008516259*^9, 3.899430098245219*^9}},
 CellID->734617041,ExpressionUUID->"564fc03a-d2b7-4f59-bacb-5fe8da67e579"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"LaplaceTransform", "[", 
   RowBox[{
    RowBox[{"f", "[", 
     RowBox[{"a", "*", "t"}], "]"}], ",", "t", ",", "s"}], "]"}], 
  " "}]], "Input",
 CellChangeTimes->{{3.899430099345975*^9, 3.899430104526869*^9}, {
  3.899430159948898*^9, 3.899430168076829*^9}, {3.900064649453926*^9, 
  3.900064651276173*^9}},
 CellID->1026614652,ExpressionUUID->"90aa3bbc-2468-4b7b-8aff-1c099d9bc893"],

Cell[BoxData[
 FractionBox[
  RowBox[{"LaplaceTransform", "[", 
   RowBox[{
    RowBox[{"f", "[", "t", "]"}], ",", "t", ",", 
    FractionBox["s", "a"]}], "]"}], "a"]], "Output",
 CellChangeTimes->{3.899430106548324*^9, 3.90006464518812*^9, 
  3.9194208129195385`*^9, 3.924348317365345*^9},
 CellID->46541,ExpressionUUID->"5919c578-326f-9441-9c3c-bd8980129ae6"]
}, Open  ]],

Cell[TextData[{
 "In other words, if ",
 Cell[BoxData[
  FormBox[
   RowBox[{"F", "(", "s", ")"}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"24d32d91-64bd-4266-95bc-f9de0125d95d"],
 " is the Laplace transform of the function ",
 Cell[BoxData[
  FormBox[
   RowBox[{"f", "(", "t", ")"}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"698e0b8e-9458-44db-ada0-6b105453dfbf"],
 ", then the Laplace transform of ",
 Cell[BoxData[
  FormBox[
   RowBox[{"f", "(", 
    RowBox[{"a", " ", "t"}], ")"}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"1111c546-25ef-482e-894d-920a5d2f0c71"],
 " equals ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    FractionBox["1", "a"], 
    RowBox[{"F", "(", 
     FractionBox["s", "a"], ")"}]}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"74e991e9-b67d-4df2-856e-d1044ad1049f"],
 "."
}], "Text",
 CellChangeTimes->{{3.899433618818611*^9, 3.899433711055064*^9}, {
   3.899452133226128*^9, 3.899452135863338*^9}, {3.915438120057877*^9, 
   3.9154381203133297`*^9}, {3.9297177933313704`*^9, 3.9297177939838457`*^9}, 
   3.9297179403386283`*^9},
 CellID->1494072528,ExpressionUUID->"f420f00a-9d72-45a4-a919-a01ee9e73a58"],

Cell[TextData[{
 "This property can be proved using the Laplace transform definition \
(equation (",
 Cell[BoxData[
  ButtonBox[
   CounterBox["DisplayFormulaNumbered", {
    "LaplaceTransform-01_What-Is-a-Laplace-Transform.nb", 
    "transform-definition"},
    BaseStyle->"Hyperlink"],
   Appearance->None,
   BaseStyle->"Text",
   ButtonFunction:>
    NotebookLocate[{
     "LaplaceTransform-01_What-Is-a-Laplace-Transform.nb", 
      "transform-definition"}, FrontEnd`HistoryData :> {
       EvaluationNotebook[]}]]],ExpressionUUID->
  "febcd67e-c7ca-47cd-ae03-2edf5c27e52f"],
 ") in ",
 ButtonBox["Chapter 1",
  BaseStyle->"Hyperlink",
  Appearance->None,
  ButtonFunction:>
   NotebookLocate[{"LaplaceTransform-01_What-Is-a-Laplace-Transform.nb", ""}, 
    FrontEnd`HistoryData :> {
      EvaluationNotebook[]}]],
 "):"
}], "Text",
 CellID->1532482905,ExpressionUUID->"2942e384-0953-4aa7-939f-5c2562ec9c16"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    RowBox[{
     SubscriptBox["\[ScriptCapitalL]", "t"], "[", 
     RowBox[{"f", 
      RowBox[{"(", 
       RowBox[{"a", " ", "t"}], ")"}]}], "]"}], 
    RowBox[{"(", "s", ")"}]}], "\[LongEqual]", 
   RowBox[{
    SubsuperscriptBox["\[Integral]", "0", 
     RowBox[{"\[VeryThinSpace]", "\[Infinity]"}]], 
    RowBox[{"exp", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "s"}], " ", "t"}], ")"}], "f", 
     RowBox[{"(", 
      RowBox[{"a", " ", "t"}], ")"}], " ", 
     RowBox[{"\[DifferentialD]", "t"}]}]}], "\[LongEqual]", 
   RowBox[{
    FractionBox["1", "a"], 
    RowBox[{
     SubsuperscriptBox["\[Integral]", "0", 
      RowBox[{"\[VeryThinSpace]", "\[Infinity]"}]], " ", 
     RowBox[{"exp", 
      RowBox[{"(", 
       RowBox[{"-", 
        FractionBox[
         RowBox[{"s", " ", "\[Tau]"}], "a"]}], ")"}], 
      RowBox[{"f", "(", "\[Tau]", ")"}], 
      RowBox[{"\[DifferentialD]", "\[Tau]"}]}]}]}]}], 
  TraditionalForm]], "DisplayFormulaNumbered",
 CellTags->"scaling",
 CellID->470321058,ExpressionUUID->"b9ae1e75-284f-4fb5-9d27-a3a63893edfd"],

Cell[TextData[{
 "In the last step, a change of variables is performed: ",
 Cell[BoxData[
  FormBox[
   RowBox[{"\[Tau]", "\[LongEqual]", 
    RowBox[{"a", " ", "t"}]}], TraditionalForm]], "InlineMath",ExpressionUUID->
  "1425b04e-2eb2-4ddc-82ce-46151101ee27"],
 ". Notice that the last integral in equation (",
 
 CounterBox["DisplayFormulaNumbered", "scaling",
  BaseStyle->"Hyperlink"],
 ") is the Laplace transform of ",
 Cell[BoxData[
  FormBox[
   RowBox[{"f", "(", "t", ")"}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"7acddb52-bde2-43df-adde-ea3a8b03604d"],
 " at ",
 Cell[BoxData[
  FormBox[
   FractionBox["s", "a"], TraditionalForm]], "InlineMath",ExpressionUUID->
  "51df529c-fce4-4c7e-95a3-2bda8b61edbe"],
 ". This proves the property."
}], "Text",
 CellChangeTimes->{{3.899430451355329*^9, 3.899430562753174*^9}, {
   3.8994333912200203`*^9, 3.8994333972763243`*^9}, {3.899435153551088*^9, 
   3.899435154502059*^9}, {3.899452164666917*^9, 3.899452165020752*^9}, {
   3.915438196875585*^9, 3.915438197674035*^9}, {3.915438272651072*^9, 
   3.91543828513848*^9}, {3.915438370403432*^9, 3.915438371382298*^9}, {
   3.9194208572681446`*^9, 3.919420870143385*^9}, 3.929717949090604*^9, {
   3.946991740424347*^9, 3.9469917519907513`*^9}},
 CellID->1789629202,ExpressionUUID->"7b8dde0d-466d-404d-a191-754aeb74a4e2"],

Cell["\<\
The following is a simple application of the scaling property. Consider the \
Laplace transform of a sine function:\
\>", "Text",
 CellChangeTimes->{{3.899433401234988*^9, 3.8994334680153913`*^9}, {
  3.915438320732029*^9, 3.915438351209502*^9}},
 CellID->2027724172,ExpressionUUID->"ef138db4-6eaa-418e-9b4c-f1897e27a05c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LaplaceTransform", "[", 
  RowBox[{
   RowBox[{"Sin", "[", "t", "]"}], ",", "t", ",", "s"}], "]"}]], "Input",
 CellChangeTimes->{{3.899433440330923*^9, 3.8994334750029488`*^9}},
 CellID->1907358380,ExpressionUUID->"ffecff49-ad5e-432a-bf06-983ae267ebde"],

Cell[BoxData[
 FractionBox["1", 
  RowBox[{"1", "+", 
   SuperscriptBox["s", "2"]}]]], "Output",
 CellChangeTimes->{
  3.899433475162797*^9, 3.8994335722280083`*^9, {3.899449112123255*^9, 
   3.89944911810913*^9}, 3.9194208907863445`*^9, 3.9243483173794193`*^9},
 CellID->63618945,ExpressionUUID->"91cf04d5-3cd7-1144-8aac-800bd5d1e5f2"]
}, Open  ]],

Cell[TextData[{
 "Using the scaling property, one can determine the Laplace transform of ",
 Cell[BoxData[
  FormBox[
   RowBox[{"sin", "(", 
    RowBox[{"\[Omega]", " ", "t"}], ")"}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"c04c07ce-f53e-4ef3-898b-de593fe34b51"],
 ":"
}], "Text",
 CellChangeTimes->{{3.899433481635367*^9, 3.899433519599832*^9}, {
  3.899449105508429*^9, 3.8994491067893963`*^9}, {3.91543839345686*^9, 
  3.915438394354302*^9}},
 CellID->174694096,ExpressionUUID->"14a30351-1993-4168-a9df-8a499e6ea32c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Simplify", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"1", "/", "\[Omega]"}], "*", "%"}], "/.", 
   RowBox[{"s", "\[Rule]", 
    RowBox[{"s", "/", "\[Omega]"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.899433525724299*^9, 3.899433569413293*^9}, {
  3.89944910843659*^9, 3.899449117032015*^9}},
 CellID->930751268,ExpressionUUID->"fb58e32d-ed22-4f2c-92b9-318c37cf80d4"],

Cell[BoxData[
 FractionBox["\[Omega]", 
  RowBox[{
   SuperscriptBox["s", "2"], "+", 
   SuperscriptBox["\[Omega]", "2"]}]]], "Output",
 CellChangeTimes->{{3.899433540146918*^9, 3.899433573746697*^9}, {
   3.899449109975511*^9, 3.899449119140884*^9}, 3.9194208969098644`*^9, 
   3.9243483173936424`*^9},
 CellID->296021333,ExpressionUUID->"a01f2e38-0f5a-314a-a620-58f47c76bad4"]
}, Open  ]],

Cell[TextData[{
 "Or, directly using ",
 ButtonBox["LaplaceTransform",
  BaseStyle->"Link"],
 ":"
}], "Text",
 CellChangeTimes->{{3.899433580826529*^9, 3.899433586359324*^9}, {
  3.9154384168642693`*^9, 3.9154384388600607`*^9}},
 CellID->306392095,ExpressionUUID->"455b5f7d-7864-493e-8e35-cbb145f065d7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LaplaceTransform", "[", 
  RowBox[{
   RowBox[{"Sin", "[", 
    RowBox[{"\[Omega]", "*", "t"}], "]"}], ",", "t", ",", "s"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.899433587281735*^9, 3.899433590966285*^9}, {
  3.899449120671096*^9, 3.899449121699927*^9}},
 CellID->1010657284,ExpressionUUID->"24bbb974-20e1-4300-873a-5e1a8c02d135"],

Cell[BoxData[
 FractionBox["\[Omega]", 
  RowBox[{
   SuperscriptBox["s", "2"], "+", 
   SuperscriptBox["\[Omega]", "2"]}]]], "Output",
 CellChangeTimes->{3.899433591180117*^9, 3.899449122034133*^9, 
  3.919420900162134*^9, 3.924348317425247*^9},
 CellID->276232554,ExpressionUUID->"84e4a80a-a0b8-574f-a873-2a79986adb7f"]
}, Open  ]],

Cell[TextData[{
 "The ",
 StyleBox["first translation",
  FontSlant->"Italic"],
 " or ",
 StyleBox["shifting",
  FontSlant->"Italic"],
 " property states that the Laplace transform of ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"exp", "(", 
     RowBox[{"a", " ", "t"}], ")"}], 
    RowBox[{"f", "(", "t", ")"}]}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"80d9880b-0a90-4327-ae43-035ea4e6d699"],
 " equals ",
 Cell[BoxData[
  FormBox[
   RowBox[{"F", "(", 
    RowBox[{"s", "-", "a"}], ")"}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"34818824-c2a2-4110-95fd-5e407595837e"],
 ", provided that the Laplace transform of ",
 Cell[BoxData[
  FormBox[
   RowBox[{"f", "(", "t", ")"}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"4dd368ca-703a-459d-b551-5701cea0368d"],
 " is ",
 Cell[BoxData[
  FormBox[
   RowBox[{"F", "(", "s", ")"}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"3df62727-f0c1-4ce9-91db-e80a960a0710"],
 ":"
}], "Text",
 CellID->663775186,ExpressionUUID->"0adc7798-3bab-4a51-8056-472ea38de40f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LaplaceTransform", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Exp", "[", 
     RowBox[{"a", "*", "t"}], "]"}], 
    RowBox[{"f", "[", "t", "]"}]}], ",", "t", ",", "s"}], "]"}]], "Input",
 CellChangeTimes->{{3.899436575568389*^9, 3.899436582614933*^9}},
 CellID->2080342151,ExpressionUUID->"9a08c91d-f2b2-432b-8ccf-fa8789027a00"],

Cell[BoxData[
 RowBox[{"LaplaceTransform", "[", 
  RowBox[{
   RowBox[{"f", "[", "t", "]"}], ",", "t", ",", 
   RowBox[{
    RowBox[{"-", "a"}], "+", "s"}]}], "]"}]], "Output",
 CellChangeTimes->{3.8994365827846518`*^9, 3.915438619328407*^9, 
  3.9194209119654427`*^9, 3.9243483174382133`*^9},
 CellID->46017808,ExpressionUUID->"c4e64352-c02d-a044-a7e9-24b23e155d70"]
}, Open  ]],

Cell[TextData[{
 "One can formulate it as follows: multiplication by an exponential function \
in the time domain is equivalent to translation in the ",
 Cell[BoxData[
  FormBox["s", TraditionalForm]], "InlineMath",ExpressionUUID->
  "991ec1b8-1835-48bf-9987-edc21e1e9574"],
 "-domain. This property is a direct consequence of the Laplace transform \
definition:"
}], "Text",
 CellChangeTimes->{{3.899448887332733*^9, 3.899448957494253*^9}, {
  3.915438686997665*^9, 3.915438715301235*^9}, {3.9297179778777122`*^9, 
  3.9297179976836824`*^9}},
 CellID->61659265,ExpressionUUID->"8c9d2a34-39d2-4179-aaf4-60e42549041a"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      SubscriptBox["\[ScriptCapitalL]", "t"], "[", 
      RowBox[{"exp", 
       RowBox[{"(", 
        RowBox[{"a", " ", "t"}], ")"}], "f", 
       RowBox[{"(", "t", ")"}]}], " ", "]"}], 
     RowBox[{"(", "s", ")"}]}], "\[LongEqual]", 
    RowBox[{
     SubsuperscriptBox["\[Integral]", "0", 
      RowBox[{"\[VeryThinSpace]", "\[Infinity]"}]], 
     RowBox[{"exp", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "s"}], " ", "t"}], ")"}], "exp", 
      RowBox[{"(", 
       RowBox[{"a", " ", "t"}], ")"}], " ", "f", 
      RowBox[{"(", "t", ")"}], " ", 
      RowBox[{"\[DifferentialD]", "t"}]}]}]}], "=", 
   RowBox[{
    SubsuperscriptBox["\[Integral]", "0", 
     RowBox[{"\[VeryThinSpace]", "\[Infinity]"}]], 
    RowBox[{"exp", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{"(", 
         RowBox[{"s", "-", "a"}], ")"}]}], " ", "t"}], ")"}], 
     RowBox[{"f", "(", "t", ")"}], " ", 
     RowBox[{"\[DifferentialD]", "t"}]}]}]}], 
  TraditionalForm]], "DisplayFormulaNumbered",
 CellTags->"shifting",
 CellID->61107451,ExpressionUUID->"f2663f13-c58d-4490-bb44-97e079544f8c"],

Cell[TextData[{
 "From (",
 
 CounterBox["DisplayFormulaNumbered", "shifting",
  BaseStyle->"Hyperlink"],
 "), it follows that the Laplace transform of ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"exp", "(", 
     RowBox[{"a", " ", "t"}], ")"}], 
    RowBox[{"f", "(", "t", ")"}], " "}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"6b99f082-8de5-4601-9d8f-8699569492fb"],
 "equals the Laplace transform of ",
 Cell[BoxData[
  FormBox[
   RowBox[{"f", "(", "t", ")"}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"6a36c1cd-ef5f-4148-9ed2-98061615aff7"],
 " evaluated at ",
 Cell[BoxData[
  FormBox[
   RowBox[{"s", "-", "a"}], TraditionalForm]], "InlineMath",ExpressionUUID->
  "8da82e4b-af01-4512-8538-81092fe947fa"],
 "."
}], "Text",
 CellChangeTimes->{{3.899448960132736*^9, 3.89944902242542*^9}, {
   3.899452230073827*^9, 3.899452230180833*^9}, {3.9154387992759457`*^9, 
   3.915438821773226*^9}, {3.929717818247716*^9, 3.9297178189149637`*^9}, 
   3.929718054523292*^9, {3.9469918319428635`*^9, 3.946991840567074*^9}},
 CellID->2137474240,ExpressionUUID->"cf6a4ec8-30bc-4f0f-8659-4b3145c58285"],

Cell[TextData[{
 "The Laplace transform for ",
 Cell[BoxData[
  FormBox[
   RowBox[{"sin", "(", 
    RowBox[{"\[Omega]", " ", "t"}], ")"}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"7629ef9d-8078-4c69-bbf6-b99a0ea4eab4"],
 " is known, as determined previously. Using the first translation property, \
one can determine the Laplace transform of ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"exp", "(", 
     RowBox[{"a", " ", "t"}], ")"}], " ", 
    RowBox[{"sin", "(", 
     RowBox[{"\[Omega]", " ", "t"}], ")"}]}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"f780e346-8e3e-4a89-8700-da570267defe"],
 ":"
}], "Text",
 CellID->1773081480,ExpressionUUID->"b2015e73-fffb-42ed-8fc9-0f66e3577e63"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LaplaceTransform", "[", 
  RowBox[{
   RowBox[{"Sin", "[", 
    RowBox[{"\[Omega]", "*", "t"}], "]"}], ",", "t", ",", 
   RowBox[{"s", "-", "a"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.899449213640882*^9, 3.899449227461333*^9}},
 CellID->1638977989,ExpressionUUID->"b55e96d3-c59c-4f28-b072-f939a30a5545"],

Cell[BoxData[
 FractionBox["\[Omega]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "a"}], "+", "s"}], ")"}], "2"], "+", 
   SuperscriptBox["\[Omega]", "2"]}]]], "Output",
 CellChangeTimes->{3.899449227760192*^9, 3.919420956590744*^9, 
  3.9243483175103016`*^9},
 CellID->144502785,ExpressionUUID->"ace85270-2768-ad49-8083-64c5d09f67f1"]
}, Open  ]],

Cell[TextData[{
 "Or, directly applying ",
 ButtonBox["LaplaceTransform",
  BaseStyle->"Link"],
 ":"
}], "Text",
 CellChangeTimes->{{3.899449238646408*^9, 3.899449243946804*^9}, {
   3.915438926847073*^9, 3.915438949123687*^9}, 3.915439221502165*^9, {
   3.915439570392926*^9, 3.915439592952547*^9}},
 CellID->710114440,ExpressionUUID->"44217e33-eb8c-4bdd-9249-73ceb40f8167"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LaplaceTransform", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Exp", "[", 
     RowBox[{"a", "*", "t"}], "]"}], 
    RowBox[{"Sin", "[", 
     RowBox[{"\[Omega]", "*", "t"}], "]"}]}], ",", "t", ",", "s"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.899449244896863*^9, 3.899449252419436*^9}},
 CellID->1947394842,ExpressionUUID->"84b07d9c-8cb9-4801-a3bb-355679b742ca"],

Cell[BoxData[
 FractionBox["\[Omega]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "a"}], "+", "s"}], ")"}], "2"], "+", 
   SuperscriptBox["\[Omega]", "2"]}]]], "Output",
 CellChangeTimes->{3.8994492525922937`*^9, 3.915438953540094*^9, 
  3.919420962142214*^9, 3.924348317523243*^9},
 CellID->105908967,ExpressionUUID->"1c2432de-b16c-a445-a4fb-881aa8fc4039"]
}, Open  ]],

Cell[TextData[{
 "The next property is known as the ",
 StyleBox["second translation",
  FontSlant->"Italic"],
 " or ",
 StyleBox["shifting",
  FontSlant->"Italic"],
 " property. It is the dual version of the first translation property, \
swapping the roles of the time and frequency domains. It states that \
translation in the time domain is equivalent to multiplication by an exponent \
in the ",
 Cell[BoxData[
  FormBox["s", TraditionalForm]], "InlineMath",ExpressionUUID->
  "dc28ef72-5a74-4ef8-a01b-d7913c133b00"],
 "-domain:"
}], "Text",
 CellChangeTimes->{{3.89943403048748*^9, 3.899434093004359*^9}, {
  3.899434257731878*^9, 3.899434434618477*^9}, {3.899449357125662*^9, 
  3.89944938470149*^9}, {3.899449794813542*^9, 3.899449852067608*^9}, {
  3.899449897093776*^9, 3.899449975410606*^9}, {3.899452250604808*^9, 
  3.8994522507246723`*^9}, {3.915438961730228*^9, 3.915439045696369*^9}, {
  3.915440478114286*^9, 3.915440479892864*^9}, {3.9297180741617007`*^9, 
  3.929718079669633*^9}, {3.945881743155469*^9, 3.945881747830318*^9}},
 CellID->515758566,ExpressionUUID->"3c06fcb3-68e5-4856-a6ac-d156eb3543af"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"LaplaceTransform", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"UnitStep", "[", 
      RowBox[{"t", "-", "a"}], "]"}], 
     RowBox[{"f", "[", 
      RowBox[{"t", "-", "a"}], "]"}]}], " ", ",", "t", ",", "s", ",", 
    RowBox[{"Assumptions", "->", 
     RowBox[{"a", ">", "0"}]}]}], "]"}], "  "}]], "Input",
 CellChangeTimes->{{3.899434094591051*^9, 3.899434095497915*^9}, {
   3.899434149154941*^9, 3.899434157616675*^9}, {3.899434297325697*^9, 
   3.8994342974067087`*^9}, 3.90006466515489*^9, {3.915439053556836*^9, 
   3.915439055807662*^9}},
 CellID->1039320973,ExpressionUUID->"a146d4a2-2ee5-4c02-a36c-1f4f75104105"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{
    RowBox[{"-", "a"}], " ", "s"}]], " ", 
  RowBox[{"LaplaceTransform", "[", 
   RowBox[{
    RowBox[{"f", "[", "t", "]"}], ",", "t", ",", "s"}], "]"}]}]], "Output",
 CellChangeTimes->{3.899434154349949*^9, 3.899434301939981*^9, 
  3.900064666178796*^9, 3.9154390567130003`*^9, 3.919420978715763*^9, 
  3.924348317537716*^9},
 CellID->296063225,ExpressionUUID->"3bb86af5-a6e9-c645-a3f6-1c26b41feb78"]
}, Open  ]],

Cell[TextData[{
 "In order to prove this property, one can use the Laplace transform \
definition and break the integration region into two intervals: from 0 to ",
 Cell[BoxData[
  FormBox["a", TraditionalForm]], "InlineMath",ExpressionUUID->
  "e388f8c3-627f-42e5-b320-0a7c262b12ab"],
 " and from ",
 Cell[BoxData[
  FormBox["a", TraditionalForm]], "InlineMath",ExpressionUUID->
  "ec20d9b3-277d-4847-8086-65ceeb09f401"],
 " to ",
 Cell[BoxData[
  FormBox["\[Infinity]", TraditionalForm]], "InlineMath",ExpressionUUID->
  "124fad0d-d4a6-448a-9f85-ee05a072f3fd"],
 "."
}], "Text",
 CellID->442393551,ExpressionUUID->"d0a28c1e-2a61-4739-b01f-6c240e9a283c"],

Cell[BoxData[{
 FormBox[
  RowBox[{
   RowBox[{
    RowBox[{
     SubscriptBox["\[ScriptCapitalL]", "t"], "[", 
     TemplateBox[{
       RowBox[{
         RowBox[{"t", "-", "a"}]}]},
      "UnitStepSeq"], "]"}], "f", 
    RowBox[{"(", 
     RowBox[{"t", "-", "a"}], ")"}], " ", 
    RowBox[{"(", "s", ")"}]}], "\[LongEqual]", 
   RowBox[{
    SubsuperscriptBox["\[Integral]", "0", 
     RowBox[{"\[VeryThinSpace]", "\[Infinity]"}]], 
    RowBox[{"exp", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "s"}], " ", "t"}], ")"}], 
     TemplateBox[{
       RowBox[{
         RowBox[{"t", "-", "a"}]}]},
      "UnitStepSeq"], "f", 
     RowBox[{"(", 
      RowBox[{"t", "-", "a"}], ")"}], " ", 
     RowBox[{"\[DifferentialD]", "t"}]}]}]}], TraditionalForm], "\[IndentingNewLine]", 
 FormBox[
  RowBox[{
   RowBox[{"\[LongEqual]", " ", 
    RowBox[{
     RowBox[{
      SubsuperscriptBox["\[Integral]", "0", 
       RowBox[{"\[VeryThinSpace]", "a"}]], 
      RowBox[{"exp", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "s"}], " ", "t"}], ")"}], "0", "f", 
       RowBox[{"(", 
        RowBox[{"t", "-", "a"}], ")"}], 
       RowBox[{"\[DifferentialD]", "t"}]}]}], "+", 
     RowBox[{
      SubsuperscriptBox["\[Integral]", "a", 
       RowBox[{"\[VeryThinSpace]", "\[Infinity]"}]], 
      RowBox[{"exp", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "s"}], " ", "t"}], ")"}], 
       TemplateBox[{
         RowBox[{
           RowBox[{"t", "-", "a"}]}]},
        "UnitStepSeq"], "f", 
       RowBox[{"(", 
        RowBox[{"t", "-", "a"}], ")"}], " ", 
       RowBox[{"\[DifferentialD]", "t"}]}]}]}]}], " "}], TraditionalForm], "\[IndentingNewLine]", 
 FormBox[
  RowBox[{"\[LongEqual]", " ", 
   RowBox[{
    SubsuperscriptBox["\[Integral]", "0", 
     RowBox[{"\[VeryThinSpace]", "\[Infinity]"}]], 
    RowBox[{"exp", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "s"}], " ", 
       RowBox[{"(", 
        RowBox[{"t", "+", "a"}], ")"}]}], ")"}], 
     TemplateBox[{"t"},
      "UnitStepSeq"], "f", 
     RowBox[{"(", "t", ")"}], "  ", 
     RowBox[{"\[DifferentialD]", "t"}]}]}]}], 
  TraditionalForm]}], "DisplayFormula",
 CellID->1212069869,ExpressionUUID->"8ba2e68d-dff7-4a61-8295-9d86d8fcdcc6"],

Cell[TextData[{
 "In that last line, a change of variables is performed: ",
 Cell[BoxData[
  FormBox[
   RowBox[{"t", "\[Rule]", 
    RowBox[{"a", "+", "t"}]}], TraditionalForm]], "InlineMath",ExpressionUUID->
  "329f2253-103d-456f-b43f-9cb3f5e070d6"],
 ". Notice that ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"f", "(", "t", ")"}], " ", 
    TemplateBox[{
      RowBox[{"t"}]},
     "UnitStepSeq"]}], TraditionalForm]], "InlineMath",ExpressionUUID->
  "7b1dbe21-448d-4349-b24a-a46c03a9fa4b"],
 " for positive ",
 Cell[BoxData[
  FormBox["t", TraditionalForm]], "InlineMath",ExpressionUUID->
  "f232e72b-2d2a-4f93-b9a3-32b4a42bbae8"],
 " equals ",
 Cell[BoxData[
  FormBox[
   RowBox[{"f", "(", "t", ")"}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"9efe9be8-fd6f-4718-96b3-27441d5684a6"],
 ", therefore:"
}], "Text",
 CellID->1050385794,ExpressionUUID->"bee0857b-6ee2-46e3-bdda-fe1e86257253"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    RowBox[{
     SubscriptBox["\[ScriptCapitalL]", "t"], "[", 
     RowBox[{
      TemplateBox[{
        RowBox[{
          RowBox[{"t", "-", "a"}]}]},
       "UnitStepSeq"], "f", 
      RowBox[{"(", 
       RowBox[{"t", "-", "a"}], ")"}]}], " ", "]"}], 
    RowBox[{"(", "s", ")"}]}], "\[LongEqual]", 
   RowBox[{"exp", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "a"}], " ", "s"}], ")"}], 
    RowBox[{
     SubsuperscriptBox["\[Integral]", "0", 
      RowBox[{"\[VeryThinSpace]", "\[Infinity]"}]], 
     RowBox[{
      RowBox[{"exp", "(", 
       RowBox[{
        RowBox[{"-", "s"}], " ", "t"}], ")"}], 
      RowBox[{"f", "(", "t", ")"}], " ", 
      RowBox[{"\[DifferentialD]", "t"}]}]}]}]}], 
  TraditionalForm]], "DisplayFormulaNumbered",
 CellID->2071560097,ExpressionUUID->"3bfbeb53-0dfc-4b59-8e75-5c4cd8292c71"],

Cell["This proves the property.", "Text",
 CellChangeTimes->{{3.899435412766458*^9, 3.899435419884474*^9}, {
   3.899435573591542*^9, 3.899435593562374*^9}, {3.899435625385879*^9, 
   3.8994356253875723`*^9}, {3.919421095252672*^9, 3.919421096488556*^9}, 
   3.929718202497775*^9},
 CellID->1971596300,ExpressionUUID->"35074593-82e2-498a-8e4a-e7ef062e43b1"],

Cell["Consider the following simple example:", "Text",
 CellChangeTimes->{{3.899435412766458*^9, 3.899435419884474*^9}, {
  3.899435573591542*^9, 3.899435593562374*^9}, {3.945881821264762*^9, 
  3.945881823001677*^9}},
 CellID->1537960700,ExpressionUUID->"656821e3-a8af-4982-a64d-3d2bb2902e59"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LaplaceTransform", "[", 
  RowBox[{
   SuperscriptBox["t", "2"], ",", "t", ",", "s"}], "]"}]], "Input",
 CellChangeTimes->{{3.899435594553348*^9, 3.899435614663164*^9}},
 CellID->1038554161,ExpressionUUID->"a87d1500-171e-4023-93d9-099092bb05d2"],

Cell[BoxData[
 FractionBox["2", 
  SuperscriptBox["s", "3"]]], "Output",
 CellChangeTimes->{{3.899435599826498*^9, 3.899435615048468*^9}, 
   3.915439197354498*^9, 3.9194211037863026`*^9, 3.924348317560526*^9},
 CellID->676929778,ExpressionUUID->"e30d6c9a-08e0-5e4c-8db0-746bc2584a5c"]
}, Open  ]],

Cell[TextData[{
 "The second translation property can be used to determine the Laplace \
transform of the delayed function ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"\[Theta]", "(", 
     RowBox[{"t", "-", "2"}], ")"}], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"t", "-", "2"}], ")"}], "2"]}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"67a7ea6d-7745-4149-ace7-ce8f7ade52f6"],
 ":"
}], "Text",
 CellID->1565763944,ExpressionUUID->"bfbfa02e-453f-4000-a672-0cfcabd24c8d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Exp", "[", 
   RowBox[{
    RowBox[{"-", "2"}], "s"}], "]"}], "*", "%"}]], "Input",
 CellChangeTimes->{{3.899435698279882*^9, 3.899435723913761*^9}},
 CellID->574839994,ExpressionUUID->"675b792a-be86-4a74-bcf3-1b009899724a"],

Cell[BoxData[
 FractionBox[
  RowBox[{"2", " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"-", "2"}], " ", "s"}]]}], 
  SuperscriptBox["s", "3"]]], "Output",
 CellChangeTimes->{3.899435724439577*^9, 3.915439211554912*^9, 
  3.9194211077317047`*^9, 3.924348317567507*^9},
 CellID->319756650,ExpressionUUID->"1460ee37-34d7-2849-9424-59e3584316e7"]
}, Open  ]],

Cell[TextData[{
 "Or, directly using ",
 ButtonBox["LaplaceTransform",
  BaseStyle->"Link"],
 ":"
}], "Text",
 CellChangeTimes->{{3.899435746334268*^9, 3.899435748178382*^9}, {
  3.915439214155698*^9, 3.915439230292997*^9}, {3.9154392667356777`*^9, 
  3.915439270759327*^9}},
 CellID->651103309,ExpressionUUID->"e332d78d-843c-4e2c-a886-4d06419d9fe4"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"LaplaceTransform", "[", 
   RowBox[{
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"t", "-", "2"}], ")"}], "2"], 
     RowBox[{"UnitStep", "[", 
      RowBox[{"t", "-", "2"}], "]"}]}], ",", "t", ",", "s"}], "]"}], "//", 
  "Simplify"}]], "Input",
 CellChangeTimes->{{3.899435752973472*^9, 3.899435762772986*^9}},
 CellID->957488942,ExpressionUUID->"2bb5df44-c0cf-466a-98e8-e05b4be231a1"],

Cell[BoxData[
 FractionBox[
  RowBox[{"2", " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"-", "2"}], " ", "s"}]]}], 
  SuperscriptBox["s", "3"]]], "Output",
 CellChangeTimes->{{3.899435758270821*^9, 3.899435763030408*^9}, 
   3.9194211153326874`*^9, 3.924348317589239*^9},
 CellID->170374768,ExpressionUUID->"fb22a4a9-b87b-024a-a652-3351e1629d1b"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Summary", "SummarySection",
 CellChangeTimes->{{3.877080161186781*^9, 3.877080166731228*^9}},
 CellID->139280579,ExpressionUUID->"c027ffd0-849f-4c87-9895-7006d3700ded"],

Cell["\<\
The Laplace transform has many properties with simple applications.\
\>", "SummaryList",
 CellChangeTimes->{{3.877080190109833*^9, 3.87708019064956*^9}, {
   3.877080251988405*^9, 3.8770802804677706`*^9}, {3.877080311529955*^9, 
   3.877080319573534*^9}, 3.877675059683354*^9, 3.877675121923796*^9, 
   3.8788988266463747`*^9, {3.87889899438289*^9, 3.878898996816455*^9}, {
   3.906112574589088*^9, 3.906112589617337*^9}, {3.908531580943096*^9, 
   3.908531586682143*^9}, {3.908531646681631*^9, 3.908531692298759*^9}, {
   3.908531773959214*^9, 3.908531776171564*^9}, {3.908531808924667*^9, 
   3.908531814539953*^9}, {3.908531858313798*^9, 3.908531895841164*^9}, {
   3.909136987987166*^9, 3.909137004376446*^9}, {3.9099195379451647`*^9, 
   3.909919588372731*^9}, {3.9099198195703993`*^9, 3.909919839467931*^9}, {
   3.911555898598285*^9, 3.91155602459902*^9}, {3.915436305100608*^9, 
   3.915436316721577*^9}, {3.915436536336105*^9, 3.9154365366967077`*^9}, {
   3.915440641138661*^9, 3.915440670094165*^9}, 3.915456962500843*^9, {
   3.919421129117674*^9, 3.919421142008423*^9}},
 CellID->1578068080,ExpressionUUID->"118ca64a-845b-4171-8a56-e5e175715240"],

Cell["\<\
Some of the most basic and important ones are: linearity, scaling and the \
first and second translation.\
\>", "SummaryList",
 CellChangeTimes->{{3.877080190109833*^9, 3.8770801921357117`*^9}, 
   3.877080248827932*^9, {3.8776748290424833`*^9, 3.877674830648668*^9}, {
   3.877674991837659*^9, 3.8776750184403257`*^9}, {3.877675053494359*^9, 
   3.877675054642613*^9}, 3.87889857356829*^9, 3.878898823057308*^9, {
   3.906112536019875*^9, 3.906112557646282*^9}, {3.908531384153013*^9, 
   3.908531488011599*^9}, {3.908531556290925*^9, 3.908531601998774*^9}, {
   3.908531634760635*^9, 3.908531661240567*^9}, {3.908531756203359*^9, 
   3.908531758100929*^9}, {3.909136904777071*^9, 3.909136979150676*^9}, {
   3.909137066075686*^9, 3.909137066460779*^9}, {3.909919609076407*^9, 
   3.909919640482448*^9}, {3.909919728376627*^9, 3.909919752039192*^9}, {
   3.911556034326704*^9, 3.9115560745463657`*^9}, {3.915436341933879*^9, 
   3.9154363702104263`*^9}, {3.915436439339332*^9, 3.915436445117308*^9}, {
   3.915436540096944*^9, 3.915436542157645*^9}, {3.915440672991485*^9, 
   3.915440699254779*^9}, {3.915440744753208*^9, 3.91544074629522*^9}, {
   3.915457000129444*^9, 3.91545700631706*^9}, {3.9194211708206806`*^9, 
   3.919421186415573*^9}, {3.9224610838805532`*^9, 3.9224610865579166`*^9}, 
   3.9236668685763655`*^9, {3.9458818562670927`*^9, 3.9458818578823566`*^9}},
 CellID->1021119311,ExpressionUUID->"8335909b-60e8-4d6f-8a71-5797d2b592eb"],

Cell["\<\
These properties can be proven straight from the integral definition.\
\>", "SummaryList",
 CellChangeTimes->{{3.877080190109833*^9, 3.8770801921357117`*^9}, 
   3.877080248827932*^9, {3.8776748290424833`*^9, 3.877674830648668*^9}, {
   3.877674991837659*^9, 3.8776750184403257`*^9}, {3.877675053494359*^9, 
   3.877675054642613*^9}, 3.87889857356829*^9, 3.878898823057308*^9, {
   3.906112536019875*^9, 3.906112557646282*^9}, {3.908531384153013*^9, 
   3.908531488011599*^9}, {3.908531556290925*^9, 3.908531601998774*^9}, {
   3.908531634760635*^9, 3.908531661240567*^9}, {3.908531756203359*^9, 
   3.908531758100929*^9}, {3.909136904777071*^9, 3.909136979150676*^9}, {
   3.909137066075686*^9, 3.909137066460779*^9}, {3.909919609076407*^9, 
   3.909919640482448*^9}, {3.909919728376627*^9, 3.909919752039192*^9}, {
   3.911556034326704*^9, 3.9115560745463657`*^9}, {3.915436341933879*^9, 
   3.9154363702104263`*^9}, {3.915436439339332*^9, 3.915436445117308*^9}, {
   3.915436540096944*^9, 3.915436542157645*^9}, {3.915440672991485*^9, 
   3.915440699254779*^9}, {3.915440744753208*^9, 3.91544074629522*^9}, {
   3.915457000129444*^9, 3.91545700631706*^9}, {3.9194211708206806`*^9, 
   3.919421186415573*^9}, {3.9224610838805532`*^9, 3.9224611066254263`*^9}},
 CellID->133041234,ExpressionUUID->"968117a2-48c2-4c43-a646-21c8a38e2a38"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox["Exercises",
  $Line = 0; Null]], "ExerciseSection",
 CellID->1986792280,ExpressionUUID->"35865ca2-3592-4104-ab05-9e54ed39396d"],

Cell[TextData[{
 "Determine the Laplace transform of ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"p", "(", "t", ")"}], "\[LongEqual]", 
    RowBox[{
     RowBox[{"t", " ", 
      RowBox[{"log", "(", "t", ")"}]}], "-", 
     RowBox[{"4", " ", 
      RowBox[{"exp", "(", "t", ")"}]}], "+", 
     RowBox[{"5", " ", 
      TemplateBox[{
        RowBox[{
          RowBox[{"t", "-", "5"}]}]},
       "UnitStepSeq"]}]}]}], TraditionalForm]], "InlineMath",ExpressionUUID->
  "1aebf41b-6b54-4fb9-afcd-27829b87dda2"],
 "."
}], "Exercise",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.881315538074304*^9, 3.88131556779521*^9}, {
   3.8813156869665213`*^9, 3.881315688958201*^9}, 3.881315771700062*^9, 
   3.881316012716393*^9, {3.915439317799602*^9, 3.915439345803483*^9}},
 CellID->711666251,ExpressionUUID->"aaafccaa-46f5-42aa-9c48-e3b32feeef97"],

Cell[CellGroupData[{

Cell["Solution", "ExerciseSolution",
 CellID->31905076,ExpressionUUID->"ee66de7d-7ffa-43c3-aa77-184ee2214cb2"],

Cell[CellGroupData[{

Cell["Define:", "SolutionAnswer",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.881315585958013*^9, 3.881315587026301*^9}, 
   3.881315771700201*^9, 3.88131601271646*^9},
 CellID->1004776527,ExpressionUUID->"5535b2b9-5123-4997-8d1f-c4631fafe677"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"p", "[", "t_", "]"}], "=", 
   RowBox[{
    RowBox[{"t", "*", 
     RowBox[{"Log", "[", "t", "]"}]}], "-", 
    RowBox[{"4", 
     RowBox[{"Exp", "[", "t", "]"}]}], "+", 
    RowBox[{"5", 
     RowBox[{"UnitStep", "[", 
      RowBox[{"t", "-", "5"}], "]"}]}]}]}], ";"}]], "ExerciseInput",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.88054529905674*^9, 3.880545337278788*^9}, 
   3.881315771700595*^9, 3.881316012716772*^9},
 CellID->1121850205,ExpressionUUID->"574151dc-12e0-446c-8e96-a04861c59910"],

Cell["With the help of linearity:", "SolutionAnswer",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.880545003968655*^9, 3.880545016653062*^9}, {
   3.881315593238811*^9, 3.8813155947215233`*^9}, 3.881315771701358*^9, 
   3.881316012716816*^9},
 CellID->1428834168,ExpressionUUID->"006080e2-e0a0-40ff-a605-c4c1a8ed9434"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"LaplaceTransform", "[", 
    RowBox[{"#", ",", "t", ",", "s"}], "]"}], "&"}], "/@", 
  RowBox[{"p", "[", "t", "]"}]}]], "ExerciseInput",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.8807125151704607`*^9, 3.880712528282021*^9}, 
   3.881315771701621*^9, 3.881316012717113*^9},
 CellID->1161599233,ExpressionUUID->"63260d88-b7e0-488e-b183-87162e7265c5"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox["4", 
    RowBox[{
     RowBox[{"-", "1"}], "+", "s"}]]}], "+", 
  FractionBox[
   RowBox[{"5", " ", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      RowBox[{"-", "5"}], " ", "s"}]]}], "s"], "+", 
  FractionBox[
   RowBox[{"1", "-", "EulerGamma", "-", 
    RowBox[{"Log", "[", "s", "]"}]}], 
   SuperscriptBox["s", "2"]]}]], "ExerciseOutput",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.880712522974577*^9, 3.880712531327478*^9}, 
   3.881315599723668*^9, 3.881315771701915*^9, 3.881316012717449*^9, 
   3.915439379534828*^9, 3.9194212104736576`*^9, 3.924348319830963*^9},
 CellID->256354372,ExpressionUUID->"fa06bfa3-d379-df49-8fd8-4f47f2f1a0de"],

Cell[TextData[{
 "The same result can be obtained by directly applying ",
 ButtonBox["LaplaceTransform",
  BaseStyle->"Link"],
 " on ",
 Cell[BoxData[
  FormBox[
   RowBox[{"p", "(", "t", ")"}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"c8e0fa88-7041-45cf-b68b-9433082b7c48"],
 ":"
}], "SolutionAnswer",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.881315605630024*^9, 3.881315672471421*^9}, {
   3.881315712164325*^9, 3.881315724227664*^9}, 3.88131577170198*^9, 
   3.881316012717527*^9, {3.9154393941203613`*^9, 3.915439395138526*^9}, {
   3.915439470684019*^9, 3.9154394752339153`*^9}},
 CellID->1729660651,ExpressionUUID->"dcf82179-4da9-407c-a3c5-4d830e5461d2"],

Cell[BoxData[
 RowBox[{"LaplaceTransform", "[", 
  RowBox[{
   RowBox[{"p", "[", "t", "]"}], ",", "t", ",", "s"}], "]"}]], "ExerciseInput",\

 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.881315989648303*^9, 3.8813160127178297`*^9}},
 CellID->1270383017,ExpressionUUID->"4af90da2-b06d-4432-8bfc-355901af814a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox["4", 
    RowBox[{
     RowBox[{"-", "1"}], "+", "s"}]]}], "+", 
  FractionBox[
   RowBox[{"5", " ", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      RowBox[{"-", "5"}], " ", "s"}]]}], "s"], "+", 
  FractionBox[
   RowBox[{"1", "-", "EulerGamma", "-", 
    RowBox[{"Log", "[", "s", "]"}]}], 
   SuperscriptBox["s", "2"]]}]], "ExerciseOutput",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.881315997693477*^9, 3.881316012718176*^9}, 
   3.9154394792582884`*^9, 3.919421218846121*^9, 3.924348322110588*^9},
 CellID->902459233,ExpressionUUID->"35711cc7-abc8-e442-b086-23093c826703"]
}, Open  ]]
}, Closed]],

Cell[TextData[{
 "Determine the Laplace transform of the following function: ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"5", 
     SuperscriptBox["t", "2"]}], "-", 
    RowBox[{"4", 
     RowBox[{"Exp", "[", "t", "]"}]}], "+", 
    RowBox[{"2", 
     RowBox[{"Sin", "[", "t", "]"}]}]}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"20d44c9b-d02f-d049-a275-9c0c472efbf4"],
 "."
}], "Exercise",
 CellChangeTimes->{{3.880712131870977*^9, 3.880712213013256*^9}, {
   3.8807123003276043`*^9, 3.880712342935297*^9}, {3.880712405538959*^9, 
   3.8807124148687873`*^9}, 3.880712554052737*^9, 3.880712657974045*^9, {
   3.880713650916252*^9, 3.880713654947318*^9}, {3.915439484638899*^9, 
   3.915439485880918*^9}},
 CellID->2006472404,ExpressionUUID->"04d47969-f407-42b7-b640-6fdf5332578d"],

Cell[CellGroupData[{

Cell["Solution", "ExerciseSolution",
 CellID->460735682,ExpressionUUID->"13e1051a-eca6-4efe-a7c8-2f374dcd66b9"],

Cell["Use linearity and apply the Laplace transform term by term:", \
"SolutionAnswer",
 CellChangeTimes->{{3.88071256134304*^9, 3.88071260348763*^9}, {
   3.899460422269788*^9, 3.8994604299419928`*^9}, {3.9154394920158587`*^9, 
   3.915439502957307*^9}, 3.929718257178697*^9, {3.945881874797079*^9, 
   3.94588188024069*^9}},
 CellID->1815264187,ExpressionUUID->"27accd27-fe7a-48e6-ae2a-0ebfdc88e144"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"LaplaceTransform", "[", 
    RowBox[{"#", ",", "t", ",", "s"}], "]"}], "&"}], "/@", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"5", 
     SuperscriptBox["t", "2"]}], "-", 
    RowBox[{"4", 
     RowBox[{"Exp", "[", "t", "]"}]}], "+", 
    RowBox[{"2", 
     RowBox[{"Sin", "[", "t", "]"}]}]}], ")"}]}]], "ExerciseInput",
 CellChangeTimes->{{3.880712425350662*^9, 3.880712455072394*^9}},
 CellID->269847969,ExpressionUUID->"6b56dd11-13ff-484d-85df-ff0836b9bbfd"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox["4", 
    RowBox[{
     RowBox[{"-", "1"}], "+", "s"}]]}], "+", 
  FractionBox["10", 
   SuperscriptBox["s", "3"]], "+", 
  FractionBox["2", 
   RowBox[{"1", "+", 
    SuperscriptBox["s", "2"]}]]}]], "ExerciseOutput",
 CellChangeTimes->{{3.880712449876218*^9, 3.880712464648118*^9}, 
   3.9194212544043026`*^9, 3.924348322190325*^9, 3.924348678221594*^9},
 CellID->21797184,ExpressionUUID->"75e10e58-da56-db4b-81c1-3a3f7265842f"]
}, Open  ]]
}, Closed]],

Cell[TextData[{
 "Bring the function ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox[
     RowBox[{"Sinh", "[", "t", "]"}], "2"], 
    SuperscriptBox[
     RowBox[{"Cosh", "[", "t", "]"}], "2"]}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"7ba67d35-3b5e-534a-9343-968778e0c66e"],
 " to a convenient form and apply linearity to determine its Laplace \
transform."
}], "Exercise",
 CellChangeTimes->{{3.880712131870977*^9, 3.880712213013256*^9}, {
   3.8807123003276043`*^9, 3.880712342935297*^9}, {3.880712405538959*^9, 
   3.880712414868787*^9}, 3.880712554052737*^9, 3.880712657974045*^9, {
   3.880712794267374*^9, 3.880712801588996*^9}, {3.880713045659417*^9, 
   3.880713076576951*^9}, {3.880713140801274*^9, 3.880713176760501*^9}, {
   3.915439518913081*^9, 3.915439521245357*^9}, {3.919421263646637*^9, 
   3.919421272953476*^9}, 3.9297182688073273`*^9, {3.945881893489287*^9, 
   3.945881897057749*^9}},
 CellID->1589483118,ExpressionUUID->"5c3b8c99-1501-43f3-957b-0d6c8c479f13"],

Cell[CellGroupData[{

Cell["Solution", "ExerciseSolution",
 CellID->103736567,ExpressionUUID->"b2420b5d-c914-4083-a13c-3b4af71f61f0"],

Cell[TextData[{
 ButtonBox["TrigToExp",
  BaseStyle->"Link"],
 " expands trigonometric and hyperbolic functions in terms of exponential \
functions:"
}], "SolutionAnswer",
 CellChangeTimes->{{3.88071256134304*^9, 3.88071260348763*^9}, {
   3.880713183280261*^9, 3.88071319820819*^9}, {3.880713247300386*^9, 
   3.880713275160928*^9}, {3.915439539422886*^9, 3.9154395567915*^9}, 
   3.9194212992172966`*^9},
 CellID->1893679193,ExpressionUUID->"432a4398-830f-46f1-96c1-5233129be9a9"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TrigToExp", "[", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"Sinh", "[", "t", "]"}], "2"], 
   SuperscriptBox[
    RowBox[{"Cosh", "[", "t", "]"}], "2"]}], "]"}]], "ExerciseInput",
 CellChangeTimes->{{3.8807128057586*^9, 3.880712817869469*^9}, {
  3.880712865911855*^9, 3.8807128831416187`*^9}, {3.88071297398779*^9, 
  3.880713038526435*^9}, {3.8807131527129617`*^9, 3.880713153043564*^9}},
 CellID->993381753,ExpressionUUID->"c7fafc3c-7919-4c6d-8010-00a4e20a3cc5"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox["1", "8"]}], "+", 
  FractionBox[
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"-", "4"}], " ", "t"}]], "16"], "+", 
  FractionBox[
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"4", " ", "t"}]], "16"]}]], "ExerciseOutput",
 CellChangeTimes->{{3.880712812002061*^9, 3.880712818093444*^9}, {
   3.880712869865922*^9, 3.880712883328806*^9}, {3.880712978674165*^9, 
   3.880713038801914*^9}, 3.880713153316392*^9, 3.915439612905056*^9, 
   3.91942129368141*^9, 3.9243483222035694`*^9},
 CellID->97505773,ExpressionUUID->"f030ade0-5c86-7e4b-9d01-916dc707694e"]
}, Open  ]],

Cell[TextData[{
 "Using linearity and applying ",
 ButtonBox["LaplaceTransform",
  BaseStyle->"Link"],
 " term by term one obtains:"
}], "SolutionAnswer",
 CellChangeTimes->{{3.880713289533448*^9, 3.880713338584483*^9}, {
   3.899460436529845*^9, 3.899460437836792*^9}, 3.9467489317401123`*^9, {
   3.947242994735783*^9, 3.947242997747293*^9}},
 CellID->1227074511,ExpressionUUID->"16068303-814f-46c5-af96-c1568729f523"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"LaplaceTransform", "[", 
    RowBox[{"#", ",", "t", ",", "s"}], "]"}], "&"}], "/@", 
  "%"}]], "ExerciseInput",
 CellChangeTimes->{{3.880712425350662*^9, 3.880712455072394*^9}, 
   3.880713341422234*^9},
 CellID->1358548211,ExpressionUUID->"c65a85bf-d3c1-4f2e-ab3f-994a38b141e2"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", 
   RowBox[{"16", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "4"}], "+", "s"}], ")"}]}]], "-", 
  FractionBox["1", 
   RowBox[{"8", " ", "s"}]], "+", 
  FractionBox["1", 
   RowBox[{"16", " ", 
    RowBox[{"(", 
     RowBox[{"4", "+", "s"}], ")"}]}]]}]], "ExerciseOutput",
 CellChangeTimes->{{3.880712449876218*^9, 3.880712464648118*^9}, 
   3.880713342284102*^9, 3.91543961532454*^9, 3.9194213090751247`*^9, 
   3.9243483222325916`*^9},
 CellID->50290532,ExpressionUUID->"41c89471-c9ed-d848-81a7-3f98faec91aa"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Simplify", "[", "%", "]"}]], "ExerciseInput",
 CellChangeTimes->{{3.880713344492975*^9, 3.880713346540213*^9}},
 CellID->1189381132,ExpressionUUID->"6a1664cc-8a2b-4eeb-a200-a78ae77f90ba"],

Cell[BoxData[
 FractionBox["2", 
  RowBox[{"s", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "16"}], "+", 
     SuperscriptBox["s", "2"]}], ")"}]}]]], "ExerciseOutput",
 CellChangeTimes->{3.880713346827175*^9, 3.915439616435734*^9, 
  3.919421311581602*^9, 3.9243483222494144`*^9},
 CellID->3667903,ExpressionUUID->"34d6b3f7-2372-334f-8448-52c439521589"]
}, Open  ]]
}, Closed]],

Cell[TextData[{
 "If the Laplace transform of ",
 Cell[BoxData[
  FormBox[
   RowBox[{"f", "(", "t", ")"}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"a943cc53-a68f-492e-825b-2719ce4ed4d4"],
 " is ",
 Cell[BoxData[
  FormBox[
   FractionBox[
    RowBox[{
     SuperscriptBox["s", "2"], "+", "s", "-", "5"}], 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"3", " ", "s"}], "-", "1"}], ")"}], "2"], " ", 
     RowBox[{"(", 
      RowBox[{"s", "-", "4"}], ")"}]}]], TraditionalForm]], "InlineMath",
  ExpressionUUID->"04732bee-6565-498e-ada7-b93d4f829eaa"],
 ", determine ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     SubscriptBox["\[ScriptCapitalL]", "t"], "[", 
     RowBox[{"f", "(", 
      FractionBox["t", "2"], ")"}], "]"}], 
    RowBox[{"(", "s", ")"}]}], TraditionalForm]], "InlineMath",ExpressionUUID->
  "c3aec70a-6248-49db-8e65-e74ac073f6e1"],
 "."
}], "Exercise",
 CellChangeTimes->{{3.899457948454931*^9, 3.899458024223753*^9}, {
   3.899458055658171*^9, 3.899458055739976*^9}, 3.915712304737192*^9, {
   3.9194213967391033`*^9, 3.9194213987931824`*^9}},
 CellID->1744061786,ExpressionUUID->"dd668ed3-c5f4-410a-9700-16448bc8efa3"],

Cell[CellGroupData[{

Cell["Solution", "ExerciseSolution",
 CellID->98900012,ExpressionUUID->"f3f953f5-c231-43b3-ae8e-41ade44cc6ad"],

Cell[TextData[{
 "Use the scaling property of the Laplace transform to find ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     SubscriptBox["\[ScriptCapitalL]", "t"], "[", 
     RowBox[{"f", "(", 
      FractionBox["t", "2"], ")"}], "]"}], 
    RowBox[{"(", "s", ")"}]}], TraditionalForm]], "InlineMath",ExpressionUUID->
  "bef132be-f43d-4a2a-a5b0-808696a45ac8"],
 ":"
}], "SolutionAnswer",
 CellChangeTimes->{{3.899458035913863*^9, 3.8994581243516474`*^9}, 
   3.899458304482633*^9, {3.945881953963678*^9, 3.945881954500256*^9}},
 CellID->1013478173,ExpressionUUID->"271a1432-3f8d-4801-aace-a393cec1ffe5"],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{
    SuperscriptBox["s", "2"], "+", "s", "-", "5"}], 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"3", " ", "s"}], "-", "1"}], ")"}], "2"], " ", 
    RowBox[{"(", 
     RowBox[{"s", "-", "4"}], ")"}]}]], ";"}]], "ExerciseInput",
 CellChangeTimes->{{3.899458130730379*^9, 3.899458135795253*^9}},
 CellID->1442139399,ExpressionUUID->"6ec7d073-c234-4e43-945b-e5ec8f39bb5f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"2", "*", "%"}], "/.", 
  RowBox[{"s", "\[Rule]", 
   RowBox[{"2", "s"}]}]}]], "ExerciseInput",
 CellChangeTimes->{{3.899458159093959*^9, 3.899458165027095*^9}},
 CellID->250782769,ExpressionUUID->"5769222c-b208-4995-8c7a-6a0ad5c071b4"],

Cell[BoxData[
 FractionBox[
  RowBox[{"2", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "5"}], "+", 
     RowBox[{"2", " ", "s"}], "+", 
     RowBox[{"4", " ", 
      SuperscriptBox["s", "2"]}]}], ")"}]}], 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "4"}], "+", 
     RowBox[{"2", " ", "s"}]}], ")"}], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      RowBox[{"6", " ", "s"}]}], ")"}], "2"]}]]], "ExerciseOutput",
 CellChangeTimes->{3.899458165685694*^9, 3.915439657286667*^9, 
  3.919421408740921*^9, 3.9243483222679577`*^9},
 CellID->219299588,ExpressionUUID->"b6a55e35-f86a-654f-8c76-7b54fbbbfbdf"]
}, Open  ]]
}, Closed]],

Cell[TextData[{
 "Given that ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{
      SubscriptBox["\[ScriptCapitalL]", "t"], "[", 
      FractionBox[
       RowBox[{"sin", "(", "t", ")"}], "t"], "]"}], 
     RowBox[{"(", "s", ")"}]}], "\[LongEqual]", 
    RowBox[{
     SuperscriptBox["tan", 
      RowBox[{"-", "1"}]], "(", 
     FractionBox["1", "s"], ")"}]}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"5f772afb-5123-4f5f-b8a7-53e6ffd47d82"],
 ", determine ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     SubscriptBox["\[ScriptCapitalL]", "t"], "[", 
     FractionBox[
      RowBox[{"sin", "(", 
       RowBox[{"a", " ", "t"}], ")"}], "t"], "]"}], 
    RowBox[{"(", "s", ")"}]}], TraditionalForm]], "InlineMath",ExpressionUUID->
  "89b0074c-892a-4409-b64a-8daeb01ff402"],
 "."
}], "Exercise",
 CellChangeTimes->{{3.8994585927192073`*^9, 3.899458644520686*^9}},
 CellID->626505473,ExpressionUUID->"ea24ff7d-a828-4896-91a8-20a967a7ae49"],

Cell[CellGroupData[{

Cell["Solution", "ExerciseSolution",
 CellID->464490833,ExpressionUUID->"a7541ef8-f779-4c28-a39a-669625fe5fae"],

Cell[TextData[{
 "One can use the scaling property to solve this problem. First, the function \
",
 Cell[BoxData[
  FormBox[
   FractionBox[
    RowBox[{"sin", "(", 
     RowBox[{"a", " ", "t"}], ")"}], "t"], TraditionalForm]], "InlineMath",
  ExpressionUUID->"17ac11e1-781d-4995-9f9b-bbaac2aa8fc2"],
 " needs to be",
 " multiplied and divided by ",
 Cell[BoxData[
  FormBox["a", TraditionalForm]], "InlineMath",ExpressionUUID->
  "0c66911f-f8cf-4e1e-b3d1-9288137c877d"],
 ":"
}], "SolutionAnswer",
 CellChangeTimes->{{3.899458677576127*^9, 3.899458745850334*^9}, {
  3.915439807622964*^9, 3.915439828261909*^9}, {3.9194214416700115`*^9, 
  3.9194214422634163`*^9}},
 CellID->1228707634,ExpressionUUID->"2592e727-a0ea-43a2-b173-ec79ab958424"],

Cell[BoxData[
 RowBox[{
  RowBox[{"a", "*", 
   FractionBox[
    RowBox[{"Sin", "[", 
     RowBox[{"a", "*", "t"}], "]"}], 
    RowBox[{"a", "*", "t"}]]}], ";"}]], "ExerciseInput",
 CellChangeTimes->{{3.89945874978942*^9, 3.89945875975332*^9}},
 CellID->2086487190,ExpressionUUID->"2bd14a8b-1e6b-4125-be3f-d7c219925ad7"],

Cell["Now, use linearity and scaling to obtain:", "SolutionAnswer",
 CellChangeTimes->{{3.8994587665064793`*^9, 3.899458781778921*^9}},
 CellID->580558630,ExpressionUUID->"735664e1-ba6e-4df1-a39f-fd76e5221e1c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"a", "*", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     FractionBox["1", "a"], 
     RowBox[{"LaplaceTransform", "[", 
      RowBox[{
       FractionBox[
        RowBox[{"Sin", "[", "t", "]"}], "t"], ",", "t", ",", "s"}], "]"}]}], "/.", 
    RowBox[{"s", "\[Rule]", 
     FractionBox["s", "a"]}]}], ")"}]}]], "ExerciseInput",
 CellChangeTimes->{{3.899458784259856*^9, 3.899458837878441*^9}},
 CellID->1832712606,ExpressionUUID->"7f070843-a030-4cb9-a42d-707da72c4271"],

Cell[BoxData[
 RowBox[{"ArcTan", "[", 
  FractionBox["a", "s"], "]"}]], "ExerciseOutput",
 CellChangeTimes->{3.8994588060310373`*^9, 3.899458838363339*^9, 
  3.9194214500822983`*^9, 3.924348322288887*^9},
 CellID->639889462,ExpressionUUID->"11cdde5f-b5cb-8f4c-87e8-8b6948c23cf4"]
}, Open  ]]
}, Closed]],

Cell[TextData[{
 "Determine the Laplace transform of ",
 Cell[BoxData[
  FormBox[
   RowBox[{"t", " ", 
    RowBox[{"exp", "(", 
     RowBox[{"5", " ", "t"}], ")"}]}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"09f6e1fa-3e23-4a5d-84b8-0ab162ae647d"],
 "."
}], "Exercise",
 CellChangeTimes->{{3.899456807278587*^9, 3.899456836800153*^9}, 
   3.899456920207353*^9, {3.915439841623466*^9, 3.91543984664177*^9}, {
   3.915439977636568*^9, 3.9154399778679543`*^9}},
 CellID->794622757,ExpressionUUID->"75be12ba-cbda-400d-b818-1d72a5f1c28c"],

Cell[CellGroupData[{

Cell["Solution", "ExerciseSolution",
 CellID->208643919,ExpressionUUID->"49b8f8c5-ef75-4f25-a308-2a2c48abbd3b"],

Cell[TextData[{
 "First, notice that the Laplace transform of ",
 Cell[BoxData[
  FormBox["t", TraditionalForm]], "InlineMath",ExpressionUUID->
  "bbbfa348-f1a3-4af2-83ee-31adbd75381c"],
 " is:"
}], "SolutionAnswer",
 CellChangeTimes->{{3.899456844583461*^9, 3.899456868037588*^9}, {
   3.915439852790043*^9, 3.9154398530661793`*^9}, 3.945881965523016*^9},
 CellID->304019797,ExpressionUUID->"081e3fd9-fe74-4c16-96ae-2a20751304a1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LaplaceTransform", "[", 
  RowBox[{"t", ",", "t", ",", "s"}], "]"}]], "ExerciseInput",
 CellChangeTimes->{{3.899456875013483*^9, 3.899456877356673*^9}},
 CellID->1848325258,ExpressionUUID->"acec2f72-eda6-4cd7-a2b4-7ebe235f68cd"],

Cell[BoxData[
 FractionBox["1", 
  SuperscriptBox["s", "2"]]], "ExerciseOutput",
 CellChangeTimes->{3.8994568776066713`*^9, 3.899457006871453*^9, 
  3.919421458304899*^9, 3.919421493846571*^9, 3.924348322298601*^9},
 CellID->108273343,ExpressionUUID->"5ed82ea0-a54d-994a-b3ac-07b4d3c08341"]
}, Open  ]],

Cell[TextData[{
 "Which you can prove easily employing integration by parts in the Laplace \
transform definition. Use the first translation property to determine ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     SubscriptBox["\[ScriptCapitalL]", "t"], "[", 
     RowBox[{"t", " ", 
      RowBox[{"exp", "(", 
       RowBox[{"5", " ", "t"}], ")"}]}], "]"}], 
    RowBox[{"(", "s", ")"}]}], TraditionalForm]], "InlineMath",ExpressionUUID->
  "cdfa6b6a-1d62-4abf-b818-922360114cf6"],
 ":"
}], "SolutionAnswer",
 CellChangeTimes->{{3.899456880225459*^9, 3.899456963034918*^9}, {
  3.9154398642169247`*^9, 3.915439902381213*^9}},
 CellID->365969228,ExpressionUUID->"cdc76a61-4229-49a8-b830-f92bd7ef6169"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"s", "\[Rule]", 
   RowBox[{"s", "-", "5"}]}]}]], "ExerciseInput",
 CellChangeTimes->{
  3.899456967199644*^9, {3.899456998785179*^9, 3.899457008255775*^9}},
 CellID->1123490203,ExpressionUUID->"08f62238-0b5a-4e22-99e4-d5c490da0341"],

Cell[BoxData[
 FractionBox["1", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "5"}], "+", "s"}], ")"}], "2"]]], "ExerciseOutput",
 CellChangeTimes->{{3.899457002952052*^9, 3.899457008427857*^9}, {
   3.919421477072609*^9, 3.9194214974628086`*^9}, 3.9243483223039246`*^9},
 CellID->20109875,ExpressionUUID->"c497d014-18cd-954b-bec5-84ac06b95089"]
}, Open  ]],

Cell[TextData[{
 "Verify your answer by directly applying ",
 ButtonBox["LaplaceTransform",
  BaseStyle->"Link"],
 " on ",
 Cell[BoxData[
  FormBox[
   RowBox[{"t", " ", 
    RowBox[{"exp", "(", 
     RowBox[{"5", " ", "t"}], ")"}]}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"c1578657-651b-423d-b7a4-b39778818bfa"],
 ":"
}], "SolutionAnswer",
 CellChangeTimes->{{3.899457014437776*^9, 3.899457065148972*^9}, {
  3.915439930116664*^9, 3.915439953086072*^9}},
 CellID->743903260,ExpressionUUID->"b703da1d-5b1d-4c33-a23a-38a6de8ef065"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LaplaceTransform", "[", 
  RowBox[{
   RowBox[{"t", "*", 
    RowBox[{"Exp", "[", 
     RowBox[{"5", "*", "t"}], "]"}]}], ",", "t", ",", "s"}], 
  "]"}]], "ExerciseInput",
 CellChangeTimes->{{3.899457066241993*^9, 3.89945707166356*^9}},
 CellID->618345327,ExpressionUUID->"eaa0a3cc-e3b4-407b-b95b-41ada6083875"],

Cell[BoxData[
 FractionBox["1", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "5"}], "+", "s"}], ")"}], "2"]]], "ExerciseOutput",
 CellChangeTimes->{
  3.899457071843709*^9, {3.9194214832504997`*^9, 3.9194215030197945`*^9}, 
   3.9243483223145657`*^9},
 CellID->322694641,ExpressionUUID->"8fefdfc4-b0fe-994d-892c-53898e62a8c8"]
}, Open  ]]
}, Closed]],

Cell[TextData[{
 "Determine the Laplace transform of ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    TemplateBox[{
      RowBox[{
        RowBox[{"t", "-", 
          FractionBox["\[Pi]", "2"]}]}]},
     "UnitStepSeq"], " ", 
    RowBox[{"cos", "(", "t", ")"}]}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"6e3e7e3b-358c-4869-adfc-effc121e989d"],
 "."
}], "Exercise",
 CellChangeTimes->{{3.8994572377033873`*^9, 3.899457276416955*^9}, {
  3.91543998028784*^9, 3.915439981930605*^9}},
 CellID->1234714787,ExpressionUUID->"ae763952-8c9f-4be7-bb9d-9f300689c5b2"],

Cell[CellGroupData[{

Cell["Solution", "ExerciseSolution",
 CellID->138568282,ExpressionUUID->"9024ec9f-c304-48f1-978f-4cc174163897"],

Cell[TextData[{
 "In order to use the second translation property, the function has to be of \
the form ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    TemplateBox[{
      RowBox[{
        RowBox[{"t", "-", "a"}]}]},
     "UnitStepSeq"], 
    RowBox[{"f", "(", 
     RowBox[{"t", "-", "a"}], ")"}]}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"d0b0782e-bf59-4068-95f0-3223a3b7eded"],
 ". This can be achieved by noticing that:"
}], "SolutionAnswer",
 CellChangeTimes->{{3.899457293780023*^9, 3.899457356844735*^9}, {
  3.915439993533354*^9, 3.915439996474835*^9}, {3.945881976602347*^9, 
  3.9458819866269903`*^9}},
 CellID->819479212,ExpressionUUID->"ff43112d-c6ef-4abb-9bcc-38aa8b012514"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Cos", "[", "t", "]"}], "\[Equal]", 
  RowBox[{"-", 
   RowBox[{"Sin", "[", 
    RowBox[{"t", "-", 
     RowBox[{"Pi", "/", "2"}]}], "]"}]}]}]], "ExerciseInput",
 CellChangeTimes->{{3.899457359840769*^9, 3.899457372145808*^9}},
 CellID->716944148,ExpressionUUID->"4a54d99c-1dec-4af4-b5b5-7c2220eca744"],

Cell[BoxData["True"], "ExerciseOutput",
 CellChangeTimes->{3.899457372476822*^9, 3.9194215107702446`*^9, 
  3.9243483223316326`*^9},
 CellID->373317982,ExpressionUUID->"7ee0843a-69ab-d943-96df-d524cb420611"]
}, Open  ]],

Cell[TextData[{
 "The Laplace transform of ",
 Cell[BoxData[
  FormBox[
   RowBox[{"-", 
    RowBox[{"sin", "(", "t", ")"}]}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"72f9655b-fbeb-40cc-991f-d869842212e1"],
 " is:"
}], "SolutionAnswer",
 CellChangeTimes->{{3.8994573851615963`*^9, 3.899457400607189*^9}, {
  3.899457707072723*^9, 3.899457707072768*^9}, {3.945881996218802*^9, 
  3.945881996689983*^9}},
 CellID->1263021161,ExpressionUUID->"81977293-566a-4844-b3ad-3e7fdf135657"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LaplaceTransform", "[", 
  RowBox[{
   RowBox[{"-", 
    RowBox[{"Sin", "[", "t", "]"}]}], ",", "t", ",", "s"}], 
  "]"}]], "ExerciseInput",
 CellChangeTimes->{{3.899457401981427*^9, 3.899457404530329*^9}, 
   3.899457708537344*^9},
 CellID->2016033361,ExpressionUUID->"3ece5155-140a-4f97-ad67-24eed08f6906"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox["1", 
   RowBox[{"1", "+", 
    SuperscriptBox["s", "2"]}]]}]], "ExerciseOutput",
 CellChangeTimes->{3.899457404674297*^9, 3.899457708990814*^9, 
  3.91544003946085*^9, 3.9194215138107224`*^9, 3.9243483223443584`*^9},
 CellID->329511570,ExpressionUUID->"9c8bc7f4-1668-5c41-a0e7-741a30dba1f2"]
}, Open  ]],

Cell[TextData[{
 "Recall that the time-domain translation is equivalent to multiplication by \
an exponent in the ",
 Cell[BoxData[
  FormBox["s", TraditionalForm]], "InlineMath",ExpressionUUID->
  "bc8f4794-edbc-4a24-b22b-9ee826fb0872"],
 "-domain. Therefore:"
}], "SolutionAnswer",
 CellChangeTimes->{{3.899457544469141*^9, 3.8994575889397993`*^9}, {
  3.915440019879813*^9, 3.915440033335853*^9}, {3.915440071380066*^9, 
  3.915440071652618*^9}, {3.9297183737219906`*^9, 3.9297183851655407`*^9}},
 CellID->1368326901,ExpressionUUID->"29559b84-b91d-41b8-9786-077dae770e9b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Exp", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "Pi"}], "/", "2"}], "*", "s"}], "]"}], "*", 
  "%"}]], "ExerciseInput",
 CellChangeTimes->{{3.899457591449383*^9, 3.899457616198071*^9}},
 CellID->2107867579,ExpressionUUID->"789cd68e-ac07-49fb-9c55-6fa5b159eb26"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"-", 
     FractionBox[
      RowBox[{"\[Pi]", " ", "s"}], "2"]}]], 
   RowBox[{"1", "+", 
    SuperscriptBox["s", "2"]}]]}]], "ExerciseOutput",
 CellChangeTimes->{
  3.899457616552003*^9, 3.899457711204817*^9, {3.9154400375332723`*^9, 
   3.915440040674573*^9}, 3.9194215231045494`*^9, 3.9243483223624096`*^9},
 CellID->478148183,ExpressionUUID->"20ad6569-d653-9344-8edc-7b7c248a64f9"]
}, Open  ]],

Cell[TextData[{
 "Verify your answer by directly applying ",
 ButtonBox["LaplaceTransform",
  BaseStyle->"Link"],
 " on ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    TemplateBox[{
      RowBox[{
        RowBox[{"t", "-", 
          FractionBox["\[Pi]", "2"]}]}]},
     "UnitStepSeq"], " ", 
    RowBox[{"cos", "(", "t", ")"}]}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"23d8c96a-6399-4012-b6a1-ce8650ece1a6"],
 ":"
}], "SolutionAnswer",
 CellChangeTimes->{{3.89945764904091*^9, 3.899457688985201*^9}, {
  3.915440047214073*^9, 3.915440060684969*^9}},
 CellID->1977564471,ExpressionUUID->"2e781cfa-438e-4a2e-b872-76c7c1201c74"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LaplaceTransform", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"UnitStep", "[", 
     RowBox[{"t", "-", 
      RowBox[{"Pi", "/", "2"}]}], "]"}], 
    RowBox[{"Cos", "[", "t", "]"}]}], ",", "t", ",", "s"}], 
  "]"}]], "ExerciseInput",
 CellChangeTimes->{{3.899457691120854*^9, 3.8994576977318063`*^9}},
 CellID->344547347,ExpressionUUID->"a3bcdbfc-70c5-4a7d-a1b5-eca9e676bdd9"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"-", 
     FractionBox[
      RowBox[{"\[Pi]", " ", "s"}], "2"]}]], 
   RowBox[{"1", "+", 
    SuperscriptBox["s", "2"]}]]}]], "ExerciseOutput",
 CellChangeTimes->{3.899457697869525*^9, 3.915440065378439*^9, 
  3.919421525715046*^9, 3.9243483223813934`*^9},
 CellID->360127777,ExpressionUUID->"16fdb041-c87c-c14d-8785-77649b26bb83"]
}, Open  ]]
}, Closed]],

Cell[TextData[{
 "Determine the Laplace transform of ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"exp", "(", 
     RowBox[{"-", "t"}], ")"}], " ", 
    RowBox[{
     SuperscriptBox["sin", "2"], "(", "t", ")"}]}], TraditionalForm]], 
  "InlineMath",ExpressionUUID->"70a07dd9-b70d-496c-bca8-8faba43c7b10"],
 "."
}], "Exercise",
 CellChangeTimes->{{3.899459124307262*^9, 3.899459141608839*^9}, {
  3.915440103840065*^9, 3.9154401048427877`*^9}},
 CellID->1751110409,ExpressionUUID->"238cdbe8-9c61-4680-bca1-534a676e7330"],

Cell[CellGroupData[{

Cell["Solution", "ExerciseSolution",
 CellID->2580725,ExpressionUUID->"c41662bd-b14d-40b8-9f56-f0cf4122336c"],

Cell[TextData[{
 "First, determine Laplace transform of ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["sin", "2"], "(", "t", ")"}], TraditionalForm]], 
  "InlineMath",ExpressionUUID->"2bc6e4dc-0bce-412c-afd6-b7ad6b806452"],
 ". The following identity helps:"
}], "SolutionAnswer",
 CellChangeTimes->{{3.899459151087466*^9, 3.899459187760726*^9}, {
  3.915440114635302*^9, 3.915440115019086*^9}, {3.945882005115697*^9, 
  3.945882011531856*^9}},
 CellID->2040785126,ExpressionUUID->"fdbd18c1-8d92-4cf0-9f94-e942c7b10f81"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox[
    RowBox[{"Sin", "[", "t", "]"}], "2"], "\[Equal]", 
   FractionBox[
    RowBox[{"1", "-", 
     RowBox[{"Cos", "[", 
      RowBox[{"2", "t"}], "]"}]}], "2"]}], "//", 
  "Simplify"}]], "ExerciseInput",
 CellChangeTimes->{{3.899459189967643*^9, 3.899459205584851*^9}},
 CellID->1796745575,ExpressionUUID->"268006e6-9dd5-4b94-91d0-b69d6766ee65"],

Cell[BoxData["True"], "ExerciseOutput",
 CellChangeTimes->{{3.899459203685207*^9, 3.899459205809308*^9}, 
   3.919421702391794*^9, 3.9243483223939133`*^9},
 CellID->250297298,ExpressionUUID->"01717810-cbf5-3342-9805-9626d7a4d965"]
}, Open  ]],

Cell["Using linearity of the Laplace transform:", "SolutionAnswer",
 CellChangeTimes->{{3.899459224688117*^9, 3.8994592381827717`*^9}},
 CellID->2129778512,ExpressionUUID->"9c3dd7e7-5bb2-487e-92c6-2b04629685df"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], 
  RowBox[{"LaplaceTransform", "[", 
   RowBox[{
    RowBox[{"1", "-", 
     RowBox[{"Cos", "[", 
      RowBox[{"2", "*", "t"}], "]"}]}], ",", "t", ",", "s"}], 
   "]"}]}]], "ExerciseInput",
 CellChangeTimes->{{3.899459239792655*^9, 3.899459247209705*^9}},
 CellID->1432885531,ExpressionUUID->"3aad546e-5f2a-4b5a-8be5-9f1c4321a899"],

Cell[BoxData[
 FractionBox["2", 
  RowBox[{
   RowBox[{"4", " ", "s"}], "+", 
   SuperscriptBox["s", "3"]}]]], "ExerciseOutput",
 CellChangeTimes->{
  3.899459248159528*^9, {3.899459464338921*^9, 3.899459479807596*^9}, {
   3.915440195496144*^9, 3.915440205856417*^9}, 3.9194217083634777`*^9, 
   3.9243483226325455`*^9},
 CellID->754979442,ExpressionUUID->"6ca88c47-32d0-2e4b-adc5-f87891e27c86"]
}, Open  ]],

Cell[TextData[{
 "Multiplication by ",
 Cell[BoxData[
  FormBox[
   RowBox[{"exp", "(", 
    RowBox[{"-", "t"}], ")"}], TraditionalForm]], "InlineMath",ExpressionUUID->
  "d8715855-de07-45c1-a840-3a8b9396fb49"],
 " is equivalent to shifting ",
 Cell[BoxData[
  FormBox[
   RowBox[{"s", "\[Rule]", 
    RowBox[{"s", "+", "1"}]}], TraditionalForm]], "InlineMath",ExpressionUUID->
  "cb2ebe7e-f405-488d-8648-84e828bc90dc"],
 " in the ",
 Cell[BoxData[
  FormBox["s", TraditionalForm]], "InlineMath",ExpressionUUID->
  "2cbf38d5-889f-4fdf-a537-a3c696032b5a"],
 "-domain:"
}], "SolutionAnswer",
 CellChangeTimes->{{3.89945928011729*^9, 3.899459334060913*^9}, {
  3.899459424863805*^9, 3.8994594602073507`*^9}, {3.915440126672864*^9, 
  3.915440145779105*^9}},
 CellID->2115469392,ExpressionUUID->"67cd74fb-d957-4a52-9d28-be97d7d7f3be"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"s", "\[Rule]", 
   RowBox[{"s", "+", "1"}]}]}]], "ExerciseInput",
 CellChangeTimes->{{3.899459466001647*^9, 3.8994594779638214`*^9}, {
  3.915440197136982*^9, 3.915440207714024*^9}},
 CellID->1902204585,ExpressionUUID->"e01d15b9-c9e4-4def-a288-790b54cb69b1"],

Cell[BoxData[
 FractionBox["2", 
  RowBox[{
   RowBox[{"4", " ", 
    RowBox[{"(", 
     RowBox[{"1", "+", "s"}], ")"}]}], "+", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", "s"}], ")"}], "3"]}]]], "ExerciseOutput",
 CellChangeTimes->{{3.899459468504782*^9, 3.899459481700231*^9}, {
   3.915440198499644*^9, 3.915440208001121*^9}, 3.9194217112157974`*^9, 
   3.9243483226424904`*^9},
 CellID->199177452,ExpressionUUID->"41ed0e76-2354-de4b-ba16-f36783889f56"]
}, Open  ]],

Cell[TextData[{
 "Verify your answer by directly applying ",
 ButtonBox["LaplaceTransform",
  BaseStyle->"Link"],
 " on ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"exp", "(", 
     RowBox[{"-", "t"}], ")"}], " ", 
    RowBox[{
     SuperscriptBox["sin", "2"], "(", "t", ")"}]}], TraditionalForm]], 
  "InlineMath",ExpressionUUID->"ab6cd6dd-90ba-45eb-aa58-54fd8bfe5242"],
 ":"
}], "SolutionAnswer",
 CellChangeTimes->{{3.89945764904091*^9, 3.899457688985201*^9}, {
  3.915440047214073*^9, 3.915440060684969*^9}, {3.915440171713297*^9, 
  3.915440174088793*^9}},
 CellID->538980340,ExpressionUUID->"158e2494-56dd-4fb5-aa34-0f35117017ea"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LaplaceTransform", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Exp", "[", 
     RowBox[{"-", "t"}], "]"}], 
    SuperscriptBox[
     RowBox[{"Sin", "[", "t", "]"}], "2"]}], ",", "t", ",", "s"}], 
  "]"}]], "ExerciseInput",
 CellChangeTimes->{{3.899457691120854*^9, 3.8994576977318063`*^9}, {
  3.915440178333609*^9, 3.915440193940569*^9}},
 CellID->556551334,ExpressionUUID->"84e81c27-4793-46a7-a5d2-c6796b62cbe2"],

Cell[BoxData[
 FractionBox["2", 
  RowBox[{"5", "+", 
   RowBox[{"7", " ", "s"}], "+", 
   RowBox[{"3", " ", 
    SuperscriptBox["s", "2"]}], "+", 
   SuperscriptBox["s", "3"]}]]], "ExerciseOutput",
 CellChangeTimes->{
  3.899457697869525*^9, 3.915440065378439*^9, {3.915440182935156*^9, 
   3.9154402095671587`*^9}, 3.919421719574484*^9, 3.9243483229399643`*^9},
 CellID->298089183,ExpressionUUID->"beb1c353-dc73-e845-9e1f-a671fc482423"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"%%", "-", "%"}], "//", "Simplify"}]], "ExerciseInput",
 CellChangeTimes->{{3.919421731368408*^9, 3.9194217398744545`*^9}},
 CellID->201307823,ExpressionUUID->"cde10320-ce45-d94c-8d21-4dc6a7e3799a"],

Cell[BoxData["0"], "ExerciseOutput",
 CellChangeTimes->{3.919421740502796*^9, 3.924348322950918*^9},
 CellID->921443957,ExpressionUUID->"9b671a98-79dc-b145-b93e-ae28c64c1985"]
}, Open  ]]
}, Closed]],

Cell[TextData[{
 "If the Laplace transform of ",
 Cell[BoxData[
  FormBox[
   RowBox[{"f", "(", "t", ")"}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"ecc427ba-7e5e-4284-883f-d5aad14dd221"],
 " is ",
 Cell[BoxData[
  FormBox[
   FractionBox[
    RowBox[{"exp", "(", 
     RowBox[{"-", 
      FractionBox["1", "s"]}], ")"}], "s"], TraditionalForm]], "InlineMath",
  ExpressionUUID->"b817dcc9-3e13-43fa-878a-f7b0d751e167"],
 ", then",
 " determine ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     SubscriptBox["\[ScriptCapitalL]", "t"], "[", 
     RowBox[{
      SuperscriptBox["2", 
       RowBox[{"-", "t"}]], " ", 
      RowBox[{"f", "(", 
       RowBox[{"5", " ", "t"}], ")"}]}], "]"}], 
    RowBox[{"(", "s", ")"}]}], TraditionalForm]], "InlineMath",ExpressionUUID->
  "b502b7fe-26be-48d7-b724-0a2102a7c590"],
 "."
}], "Exercise",
 CellChangeTimes->{{3.899459682582953*^9, 3.8994597495847*^9}, {
  3.919421757342304*^9, 3.9194217850842533`*^9}},
 CellID->663057674,ExpressionUUID->"44da34cd-bbeb-4aea-90cb-45b268b4e187"],

Cell[CellGroupData[{

Cell["Solution", "ExerciseSolution",
 CellID->700019135,ExpressionUUID->"c4e28f99-8909-411d-8269-0984fe03df4e"],

Cell[TextData[{
 "This problem can be solved in two steps. First, find the Laplace transform \
of ",
 Cell[BoxData[
  FormBox[
   RowBox[{"f", "(", 
    RowBox[{"5", " ", "t"}], ")"}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"43ff0dbe-2c59-4902-9d67-277f90ab45f0"],
 " using the scaling property:"
}], "SolutionAnswer",
 CellChangeTimes->{{3.899459754952039*^9, 3.899459780260083*^9}, {
   3.9154402359494257`*^9, 3.915440244725268*^9}, 3.945882032870779*^9},
 CellID->929104880,ExpressionUUID->"02900001-9fd4-46f8-a73c-009d0e5898ec"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox["1", "5"], 
   FractionBox[
    RowBox[{"Exp", "[", 
     RowBox[{
      RowBox[{"-", "1"}], "/", "s"}], "]"}], "s"]}], "/.", 
  RowBox[{"s", "\[Rule]", 
   FractionBox["s", "5"]}]}]], "ExerciseInput",
 CellChangeTimes->{{3.899459781883315*^9, 3.8994597963630333`*^9}},
 CellID->717682635,ExpressionUUID->"fff6d9f2-e364-4dbe-8a43-1ba3ea976333"],

Cell[BoxData[
 FractionBox[
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{
    RowBox[{"-", "5"}], "/", "s"}]], "s"]], "ExerciseOutput",
 CellChangeTimes->{3.899459797484693*^9, 3.915440246677903*^9, 
  3.9194217931535015`*^9, 3.9243483229618874`*^9},
 CellID->91217486,ExpressionUUID->"029832f2-a014-1a49-a2e7-d5ed8f673e14"]
}, Open  ]],

Cell[TextData[{
 "Rewrite ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["2", 
     RowBox[{"-", "t"}]], " ", 
    RowBox[{"f", "(", 
     RowBox[{"5", " ", "t"}], ")"}]}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"969e5832-a68c-4e5e-b2df-ed6465decc49"],
 " in the following form:"
}], "SolutionAnswer",
 CellChangeTimes->{{3.8994598670558343`*^9, 3.899459970873863*^9}, {
  3.899460026319512*^9, 3.899460037660911*^9}, {3.915440442833888*^9, 
  3.915440445168316*^9}, {3.915440492471458*^9, 3.9154405228153267`*^9}},
 CellID->1627995614,ExpressionUUID->"426d4431-13c1-400f-a136-5f1487bf915f"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Exp", "[", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{"Log", "[", "2", "]"}]}], "t"}], "]"}], 
   RowBox[{"f", "[", 
    RowBox[{"5", "t"}], "]"}]}], ";"}]], "ExerciseInput",
 CellChangeTimes->{{3.899459973924385*^9, 3.89946001360592*^9}, {
  3.9154403630720587`*^9, 3.915440365523892*^9}},
 CellID->817498235,ExpressionUUID->"c5eee4ff-216f-45c0-9589-00cb1e4e83b0"],

Cell["Use the first translation property:", "SolutionAnswer",
 CellChangeTimes->{{3.915440524247773*^9, 3.91544052849094*^9}},
 CellID->1974923149,ExpressionUUID->"8878ef07-d58f-434e-87d9-80ca7ed6abe8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"Exp", "[", 
    RowBox[{
     RowBox[{"-", "5"}], "s"}], "]"}], "s"], "/.", 
  RowBox[{"s", "\[Rule]", 
   RowBox[{"s", "+", 
    RowBox[{"Log", "[", "2", "]"}]}]}]}]], "ExerciseInput",
 CellChangeTimes->{{3.899460093428604*^9, 3.899460120636491*^9}, 
   3.915440367341309*^9},
 CellID->66464142,ExpressionUUID->"7334d4a8-70a8-4b70-a816-a30dd7bbb7bb"],

Cell[BoxData[
 FractionBox[
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{
    RowBox[{"-", "5"}], " ", 
    RowBox[{"(", 
     RowBox[{"s", "+", 
      RowBox[{"Log", "[", "2", "]"}]}], ")"}]}]], 
  RowBox[{"s", "+", 
   RowBox[{"Log", "[", "2", "]"}]}]]], "ExerciseOutput",
 CellChangeTimes->{
  3.899460120873476*^9, {3.915440350545011*^9, 3.915440367740029*^9}, 
   3.919421800755949*^9, 3.92434832297987*^9},
 CellID->90171278,ExpressionUUID->"546cdff8-32be-014f-bd10-0861f4bf4bcb"]
}, Open  ]]
}, Closed]]
}, Open  ]]
}, Open  ]],

Cell["\[Copyright] 2026 Wolfram Media, Inc.", "SmallText",
 CellMargins->{{66, 66}, {20, 100}},
 CellGroupingRules->"SectionGrouping",
 FontSize->12,
 FontColor->RGBColor[
  0.7098039215686275, 0.7098039215686275, 
   0.7098039215686275],ExpressionUUID->"15dc99d8-db49-4588-8355-6a2f369ffdb5"]
},
Editable->True,
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowToolbars->{},
CellInsertionPointCell->None,
WindowSize->Automatic,
WindowMargins->Automatic,
WindowFrame->"Normal",
WindowPersistentStyles->{
 WindowFrame, WindowMargins, WindowSize, Magnification},
WindowTitle->"2. Formal Properties of the Laplace Transform: Part 1 | Laplace \
Transforms in Theory and Practice",
DockedCells->{
  Cell[
   BoxData[
    TemplateBox[<|
     "label" -> TemplateBox[<|
        "heading" -> "Wolfram eTextbook Series", "title" -> 
         "Laplace Transforms in Theory and Practice"|>, 
        "BannerHeadingTitleTemplate"], "previous" -> TemplateBox[{
         TemplateBox[{
           TemplateBox[{}, "BannerLeftArrowTemplate"], 
           Function[{}, 
            
            NotebookLocate[{
             "LaplaceTransform-01_What-Is-a-Laplace-Transform.nb", ""}, 
             FrontEnd`HistoryData :> {
               EvaluationNotebook[]}]]}, "BannerButtonTemplate"], 
         "1. What Is a Laplace Transform?"}, "PrettyTooltipTemplate"], "next" -> 
      TemplateBox[{
         TemplateBox[{
           TemplateBox[{}, "BannerRightArrowTemplate"], 
           Function[{}, 
            
            NotebookLocate[{
             "LaplaceTransform-03_Formal-Properties-of-the-Laplace-Transform-\
Part-2.nb", ""}, FrontEnd`HistoryData :> {
               EvaluationNotebook[]}]]}, "BannerButtonTemplate"], 
         "3. Formal Properties of the Laplace Transform: Part 2"}, 
        "PrettyTooltipTemplate"], "menu" -> TemplateBox[{
         TemplateBox[{{
           "Cover" :> NotebookLocate[{"LaplaceTransform-00a_Cover.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "Introduction" :> 
            NotebookLocate[{"LaplaceTransform-00b_Introduction.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "1. What Is a Laplace Transform?" :> 
            NotebookLocate[{
              "LaplaceTransform-01_What-Is-a-Laplace-Transform.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], 
            "2. Formal Properties of the Laplace Transform: Part 1" :> 
            NotebookLocate[{
              "LaplaceTransform-02_Formal-Properties-of-the-Laplace-Transform-\
Part-1.nb", ""}, FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], 
            "3. Formal Properties of the Laplace Transform: Part 2" :> 
            NotebookLocate[{
              "LaplaceTransform-03_Formal-Properties-of-the-Laplace-Transform-\
Part-2.nb", ""}, FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "4. Special Functions" :> 
            NotebookLocate[{"LaplaceTransform-04_Special-Functions.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "5. Elementary Functions" :> 
            NotebookLocate[{
              "LaplaceTransform-05_Elementary-Functions.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], 
            "6. Piecewise and Generalized Functions" :> 
            NotebookLocate[{
              "LaplaceTransform-06_Piecewise-and-Generalized-Functions.nb", 
               ""}, FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "7. Periodic Functions" :> 
            NotebookLocate[{"LaplaceTransform-07_Periodic-Functions.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "8. Numerical Evaluation" :> 
            NotebookLocate[{
              "LaplaceTransform-08_Numerical-Evaluation.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], 
            "9. Definition of the Inverse Laplace Transform" :> 
            NotebookLocate[{
              "LaplaceTransform-09_Definition-of-the-Inverse-Laplace-\
Transform.nb", ""}, FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], 
            "10. Formal Properties of the Inverse Laplace Transform: Part 1" :> 
            NotebookLocate[{
              "LaplaceTransform-10_Formal-Properties-of-the-Inverse-Laplace-\
Transform-Part-1.nb", ""}, FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "11. Rational Functions" :> 
            NotebookLocate[{"LaplaceTransform-11_Rational-Functions.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], 
            "12. Formal Properties of the Inverse Laplace Transform: Part 2" :> 
            NotebookLocate[{
              
              "LaplaceTransform-12_Formal-Properties-of-the-Inverse-Laplace-\
Transform-Part-2.nb", ""}, FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "13. Other Functions" :> 
            NotebookLocate[{"LaplaceTransform-13_Other-Functions.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "14. Complex Inversion" :> 
            NotebookLocate[{"LaplaceTransform-14_Complex-Inversion.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], 
            "15. Series and Asymptotic Expansions" :> 
            NotebookLocate[{
              "LaplaceTransform-15_Series-and-Asymptotic-Expansions.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "16. Multivariate Transforms" :> 
            NotebookLocate[{
              "LaplaceTransform-16_Multivariate-Transforms.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], 
            "17. Numerical Inverse Laplace Transform" :> 
            NotebookLocate[{
              "LaplaceTransform-17_Numerical-Inverse-Laplace-Transform.nb", 
               ""}, FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "18. ODEs with Constant Coefficients" :> 
            NotebookLocate[{
              "LaplaceTransform-18_ODEs-with-Constant-Coefficients.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], 
            "19. ODEs: Applications in Physics and Engineering" :> 
            NotebookLocate[{
              "LaplaceTransform-19_ODEs-Applications-in-Physics-and-\
Engineering.nb", ""}, FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], 
            "20. ODEs with Polynomial Coefficients" :> 
            NotebookLocate[{
              "LaplaceTransform-20_ODEs-with-Polynomial-Coefficients.nb", ""},
               FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "21. Partial Differential Equations" :> 
            NotebookLocate[{
              "LaplaceTransform-21_Partial-Differential-Equations.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "22. Integral Equations" :> 
            NotebookLocate[{"LaplaceTransform-22_Integral-Equations.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], 
            "23. Fractional Differential Equations" :> 
            NotebookLocate[{
              "LaplaceTransform-23_Fractional-Differential-Equations.nb", ""},
               FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], 
            "24. Evaluation of Integrals and Sums" :> 
            NotebookLocate[{
              "LaplaceTransform-24_Evaluation-of-Integrals-and-Sums.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "25. Control Systems" :> 
            NotebookLocate[{"LaplaceTransform-25_Control-Systems.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "Laplace Transforms in a Nutshell" :> 
            NotebookLocate[{
              "LaplaceTransform-26_Laplace-Transforms-in-a-Nutshell.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "Sample Exam" :> 
            NotebookLocate[{"LaplaceTransform-27_Sample-Exam.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "Table of Laplace Transforms" :> 
            NotebookLocate[{
              "LaplaceTransform-28_Table-of-Laplace-Transforms.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "References" :> 
            NotebookLocate[{"LaplaceTransform-29_References.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}]}}, "BannerMenuTemplate"], 
         "Table of contents"}, "PrettyTooltipTemplate"]|>, "BannerTemplate"]],
    "DockedCell", "Banner"], 
  Cell[
   BoxData[
    TemplateBox[<|"label" -> "Hrachya Khachatryan  |  Cite this eTextbook"|>, 
     "BannerCitationOpenerTemplate"]], "DockedCell", 
   "BannerCitationOpenerLabel"], 
  Cell[
   BoxData[
    TemplateBox[{
      TemplateBox[{"\"Hrachya Khachatryan (2026), \"", 
        StyleBox[
        "\"Laplace Transforms in Theory and Practice: A Computational \
Approach,\"", Selectable -> True, Copyable -> True, FontSlant -> Italic], 
        "\" Wolfram Media. \
wolfram-media.com/products/laplace-transforms-in-theory-and-practice.\""}, 
       "RowDefault"], 
      RowBox[{"Hrachya Khachatryan (2026), ", 
        StyleBox[
        "Laplace Transforms in Theory and Practice: A Computational \
Approach,", FontSlant -> "Italic"], 
        " Wolfram Media. \
wolfram-media.com/products/laplace-transforms-in-theory-and-practice."}]}, 
     "CitationClickToCopy2", BaseStyle -> {LineBreakWithin -> Automatic}]], 
   "DockedCell", "BannerCitation", CellOpen -> Dynamic[
     TrueQ[
      CurrentValue[
       EvaluationNotebook[], {TaggingRules, "eTextbook", "CitationOpener"}, 
       False]]]]},
PrintingCopies->1,
PrintingPageRange->{32000, 32000},
PrintingOptions->{"Magnification"->1.,
"PaperOrientation"->"Portrait",
"PaperSize"->{612, 792}},
ShowCellBracket->Automatic,
TaggingRules-><|"eTextbook" -> <|"CitationOpener" -> False|>|>,
ShowCellLabel->False,
CellLabelAutoDelete->True,
CellLabelTemplate-><|
 "In" -> "In[`1`]:=", "InExpired" -> "In[`1`]:=", "Out" -> "Out[`1`]=", 
  "OutExpired" -> "Out[`1`]="|>,
ShowCellTags->False,
ShowAutoSpellCheck->False,
ShowPredictiveInterface->False,
AutoStyleOptions->{"HighlightComments"->True},
AutoMultiplicationSymbol->{},
Magnification->1,
FrontEndVersion->"14.3 for Mac OS X ARM (64-bit) (July 1, 2025)",
StyleDefinitions->Notebook[{
   Cell[
    StyleData[StyleDefinitions -> "Default.nb"]], 
   Cell[
    CellGroupData[{
      Cell[
      "Style Environments", "Section", 
       CellChangeTimes -> {{3.64661165091824*^9, 3.646611654013329*^9}, 
         3.6485723794335403`*^9, 3.651347081728628*^9, 3.651347179462186*^9, 
         3.651347384135805*^9, 3.651348171662589*^9}], 
      Cell[
       StyleData[All, "Working"], CellInsertionPointCell -> 
       FEPrivate`FrontEndResource["FEExpressions", "CellInsertionMenu"], 
       DockedCells -> {
         Cell[
          BoxData[
           GridBox[{{
              InterpretationBox[
               StyleBox[
                
                GraphicsBox[{}, BaselinePosition -> Baseline, 
                 ImageSize -> {4, 0}], CacheGraphics -> False], 
               Spacer[5]], 
              ActionMenuBox[
              "\"Insert\"", {
               "\"Subsection\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTConvertToSubsectionStyle[]), 
                "\"Subsubsection\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTConvertToSubsubsectionStyle[]), 
                "\"Subsubsubsection\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTConvertToSubsubsubsectionStyle[]), 
                Delimiter, 
                "\"Text\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTConvertToTextStyle[]), "\"CodeText\"" :> 
                Module[{$CellContext`bn = ButtonNotebook[]}, 
                  If[Developer`CellInformation[$CellContext`bn] =!= $Failed, 
                    While[
                    FreeQ[
                    Developer`CellInformation[$CellContext`bn], 
                    "CellBracket"], 
                    FrontEndExecute[
                    
                    FrontEnd`SelectionMove[$CellContext`bn, All, Cell, 
                    AutoScroll -> False]]]; 
                    SelectionMove[$CellContext`bn, After, Cell]]; 
                  NotebookWrite[$CellContext`bn, 
                    Cell["XXXX", "CodeText"], All]; 
                  SelectionMove[$CellContext`bn, All, CellContents]], 
                "\"Hyperlink\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTGenerateHyperlinkDialog[]), 
                "\"Display Formula\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertDisplayFormulaCell[]), Delimiter, 
                "\"Solved Example\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`\
WBTInsertSolvedExampleAndSolvedExampleNoteCells[]), 
                "\"Solved Example Input\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertSolvedExampleInputCell[]), 
                "\"Solved Example Text\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertSolvedExampleNoteCell[]), 
                "\"Solved Example Display Formula\"" :> (
                 Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertSolvedExampleDisplayFormulaCell[]),
                 "\"Solved Example Display Formula Numbered\"" :> (
                 Needs["WolframBookTools`"]; 
                 WolframBookTools`\
WBTInsertSolvedExampleDisplayFormulaNumberedCell[]), Delimiter, 
                "\"Theorem\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertTheoremCell[]), 
                "\"Theorem Numbered\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertTheoremNumberedCell[]), 
                "\"Theorem Text\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertTheoremTextCell[]), 
                "\"Proof/Theorem Display Formula\"" :> (
                 Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertProofTheoremDisplayCell[]), 
                "\"Proof/Theorem Display Formula Numbered\"" :> (
                 Needs["WolframBookTools`"]; 
                 WolframBookTools`\
WBTInsertProofTheoremDisplayFormulaNumberedCell[]), 
                "\"Proof\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertProofCell[]), 
                "\"Proof Text\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertProofTextCell[]), Delimiter, 
                "\"Vocabulary 2Col\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertVocabularySectionAnd2ColTable[]), 
                "\"Vocabulary 3Col\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertVocabularySectionAnd3ColTable[]), 
                "\"Add Row\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTVocabTableAddRow[]), 
                "\"Remove Row\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTVocabTableAddRow["RemoveRow" -> True]), 
                "\"Apply Divider\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTVocabTableAddRow["AddDivider" -> True]), 
                "\"Remove Divider\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTVocabTableAddRow[
                  "RemoveDivider" -> True]), Delimiter, 
                "\"Exercises\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertExerciseSection[]), 
                "\"Exercise\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertExerciseSection[]), 
                "\"Exercise Note\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertExerciseNote[]), 
                "\"Solution Section\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertExerciseSolution[]), 
                "\"Solution Text\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertSolutionAnswer[]), Delimiter, 
                "\"Q&A | Tech Notes | More\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertQAndATechNotesMore[]), 
                "\"Question\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertQuestion[]), 
                "\"Answer\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertAnswer[]), 
                "\"Tech Note\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertTechNote[]), 
                "\"More to Explore\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertMoreExplore[]), Delimiter, 
                "\"References Section\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertReferencesSection[]), 
                "\"Add Reference\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTAddReferenceCell[]), Delimiter, 
                "\"Comment\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTApplyComment[])}, FrameMargins -> 2.4], 
              ItemBox["", ItemSize -> Fit], 
              ActionMenuBox[
              "\"Function Name\"", {
               "\"Link\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTMakeSymbolLink[]), 
                "\"Format\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTFormatSymbol[])}, Appearance -> 
               "PopupMenu", Method -> "Queued", FrameMargins -> 2.4], 
              ButtonBox[
              "\"Resource Function Link\"", 
               ButtonFunction :> (Needs["WolframBookTools`"]; 
                WolframBookTools`WBTResourceFunctionLink[]), Evaluator -> 
               Automatic, Appearance -> "DialogBox", Method -> "Queued"], 
              ActionMenuBox[
              "\"Inline Format\"", {
               "\"Inline Code\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTConvertToInlineCode[]), 
                "\"Traditional Math\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTTraditionalFormCell[])}, Appearance -> 
               "PopupMenu", Method -> "Queued", FrameMargins -> 2.4], 
              ActionMenuBox[
              "\"Mark Cells\"", {
               "\"Tentative\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTApplyTentative[]), Delimiter, 
                "\"Print Only\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTApplyPrintOnly[]), 
                "\"Web Only\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTApplyWebOnly[]), Delimiter, 
                "\"Locked\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTApplyLock[])}, Appearance -> "PopupMenu",
                Method -> "Queued", FrameMargins -> 2.4], 
              ItemBox["", ItemSize -> Fit], 
              GridBox[{{
                 TooltipBox[
                  ButtonBox[
                  "\"Index Field\"", Appearance -> {"AbuttingRight"}, 
                   ButtonFunction :> (Needs["WolframBookTools`"]; 
                    WolframBookTools`WBTInsertIndexField[]), Evaluator -> 
                   Automatic, Method -> "Queued"], 
                  "First put the cursor in a cell to insert a corresponding \
field above to insert index entries.\nList main index entries corresponding \
to the cell separated by commas. Any associated sub-entries\nshould be put \
immediately after in braces.\nExample: programming{functional, rule based}, \
function, relation, lists{flat, nested}\n If $Language is \"ChineseSimplified\
\", \"ChineseTraditional\", \"Japanese\", \"Korean\" or \"Russian\"\ntwo \
index fields get inserted above a selected cell, the top one for inserting \
entries\nintended for the Englsh index and the bottom for the index in the \
language given by $Language.", TooltipDelay -> 0.3], 
                 TooltipBox[
                  ButtonBox[
                  "\"Toggle\"", Appearance -> {"AbuttingLeft"}, 
                   ButtonFunction :> (CurrentValue[
                    ButtonNotebook[], ScreenStyleEnvironment] = 
                    If[CurrentValue[
                    ButtonNotebook[], ScreenStyleEnvironment] === 
                    "Invisibles", "Working", "Invisibles"]), Evaluator -> 
                   Automatic, Method -> "Queued"], 
                  "Toggles index entry fields.", TooltipDelay -> 0.3]}}, 
               GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
               GridBoxSpacings -> {
                "ColumnsIndexed" -> {2 -> 0}, "Rows" -> {{Automatic}}}], 
              InterpretationBox[
               StyleBox[
                
                GraphicsBox[{}, BaselinePosition -> Baseline, 
                 ImageSize -> {4, 0}], CacheGraphics -> False], 
               Spacer[4]]}}]], "DockedCell", 
          CellFrameMargins -> {{0, 0}, {8, 8}}]}, CreateCellID -> True, 
       TrackCellChangeTimes -> False, ShowPredictiveInterface -> False, 
       AutoStyleOptions -> {
        "UndefinedSymbolStyle" -> 
         None}, $CellContext`GhostCellInEmptyNotebook -> False], 
      Cell[
       StyleData[All, "Printout"], PageWidth :> 700, 
       PrintingOptions -> {"PageSize" -> {504, 720}}, 
       AutoStyleOptions -> {"UndefinedSymbolStyle" -> None}, Magnification -> 
       0.6], 
      Cell[
       StyleData[All, "Invisibles"], CellInsertionPointCell -> 
       FEPrivate`FrontEndResource["FEExpressions", "CellInsertionMenu"], 
       DockedCells -> {
         Cell[
          BoxData[
           GridBox[{{
              InterpretationBox[
               StyleBox[
                
                GraphicsBox[{}, BaselinePosition -> Baseline, 
                 ImageSize -> {4, 0}], CacheGraphics -> False], 
               Spacer[4]], 
              ActionMenuBox[
              "\"Insert\"", {
               "\"Subsection\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTConvertToSubsectionStyle[]), 
                "\"Subsubsection\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTConvertToSubsubsectionStyle[]), 
                "\"Subsubsubsection\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTConvertToSubsubsubsectionStyle[]), 
                Delimiter, 
                "\"Text\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTConvertToTextStyle[]), "\"CodeText\"" :> 
                Module[{$CellContext`bn = ButtonNotebook[]}, 
                  If[Developer`CellInformation[$CellContext`bn] =!= $Failed, 
                    While[
                    FreeQ[
                    Developer`CellInformation[$CellContext`bn], 
                    "CellBracket"], 
                    FrontEndExecute[
                    
                    FrontEnd`SelectionMove[$CellContext`bn, All, Cell, 
                    AutoScroll -> False]]]; 
                    SelectionMove[$CellContext`bn, After, Cell]]; 
                  NotebookWrite[$CellContext`bn, 
                    Cell["XXXX", "CodeText"], All]; 
                  SelectionMove[$CellContext`bn, All, CellContents]], 
                "\"Hyperlink\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTGenerateHyperlinkDialog[]), 
                "\"Display Formula\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertDisplayFormulaCell[]), Delimiter, 
                "\"Solved Example\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`\
WBTInsertSolvedExampleAndSolvedExampleNoteCells[]), 
                "\"Solved Example Input\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertSolvedExampleInputCell[]), 
                "\"Solved Example Text\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertSolvedExampleNoteCell[]), 
                "\"Solved Example Display Formula\"" :> (
                 Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertSolvedExampleDisplayFormulaCell[]),
                 "\"Solved Example Display Formula Numbered\"" :> (
                 Needs["WolframBookTools`"]; 
                 WolframBookTools`\
WBTInsertSolvedExampleDisplayFormulaNumberedCell[]), Delimiter, 
                "\"Theorem\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertTheoremCell[]), 
                "\"Theorem Numbered\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertTheoremNumberedCell[]), 
                "\"Theorem Text\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertTheoremTextCell[]), 
                "\"Proof/Theorem Display Formula\"" :> (
                 Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertProofTheoremDisplayCell[]), 
                "\"Proof/Theorem Display Formula Numbered\"" :> (
                 Needs["WolframBookTools`"]; 
                 WolframBookTools`\
WBTInsertProofTheoremDisplayFormulaNumberedCell[]), 
                "\"Proof\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertProofCell[]), 
                "\"Proof Text\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertProofTextCell[]), Delimiter, 
                "\"Vocabulary 2Col\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertVocabularySectionAnd2ColTable[]), 
                "\"Vocabulary 3Col\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertVocabularySectionAnd3ColTable[]), 
                "\"Add Row\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTVocabTableAddRow[]), 
                "\"Remove Row\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTVocabTableAddRow["RemoveRow" -> True]), 
                "\"Apply Divider\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTVocabTableAddRow["AddDivider" -> True]), 
                "\"Remove Divider\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTVocabTableAddRow[
                  "RemoveDivider" -> True]), Delimiter, 
                "\"Exercises\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertExerciseSection[]), 
                "\"Exercise\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertExerciseSection[]), 
                "\"Exercise Note\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertExerciseNote[]), 
                "\"Solution Section\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertExerciseSolution[]), 
                "\"Solution Text\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertSolutionAnswer[]), Delimiter, 
                "\"Q&A | Tech Notes | More\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertQAndATechNotesMore[]), 
                "\"Question\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertQuestion[]), 
                "\"Answer\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertAnswer[]), 
                "\"Tech Note\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertTechNote[]), 
                "\"More to Explore\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertMoreExplore[]), Delimiter, 
                "\"References Section\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertReferencesSection[]), 
                "\"Add Reference\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTAddReferenceCell[]), Delimiter, 
                "\"Comment\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTApplyComment[])}, Appearance -> 
               "PopupMenu", FrameMargins -> 2.4], 
              ItemBox["", ItemSize -> Fit], 
              ActionMenuBox[
              "\"Function Name\"", {
               "\"Link\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTMakeSymbolLink[]), 
                "\"Format\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTFormatSymbol[])}, Appearance -> 
               "PopupMenu", Method -> "Queued", FrameMargins -> 2.4], 
              ButtonBox[
              "\"Resource Function Link\"", 
               ButtonFunction :> (Needs["WolframBookTools`"]; 
                WolframBookTools`WBTResourceFunctionLink[]), Evaluator -> 
               Automatic, Appearance -> "DialogBox", Method -> "Queued"], 
              ActionMenuBox[
              "\"Inline Format\"", {
               "\"Inline Code\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTConvertToInlineCode[]), 
                "\"Traditional Math\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTTraditionalFormCell[])}, Appearance -> 
               "PopupMenu", Method -> "Queued", FrameMargins -> 2.4], 
              ActionMenuBox[
              "\"Mark Cells\"", {
               "\"Tentative\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTApplyTentative[]), Delimiter, 
                "\"Print Only\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTApplyPrintOnly[]), 
                "\"Web Only\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTApplyWebOnly[]), Delimiter, 
                "\"Locked\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTApplyLock[])}, Method -> "Queued", 
               FrameMargins -> 2.4], 
              ItemBox["", ItemSize -> Fit], 
              GridBox[{{
                 TooltipBox[
                  ButtonBox[
                  "\"Index Field\"", Appearance -> {"AbuttingRight"}, 
                   ButtonFunction :> (Needs["WolframBookTools`"]; 
                    WolframBookTools`WBTInsertIndexField[]), Evaluator -> 
                   Automatic, Method -> "Queued"], 
                  "First put the cursor in a cell to insert a corresponding \
field above to insert index entries.\nList main index entries corresponding \
to the cell separated by commas. Any associated sub-entries\nshould be put \
immediately after in braces.\nExample: programming{functional, rule based}, \
function, relation, lists{flat, nested}\n If $Language is \"ChineseSimplified\
\", \"ChineseTraditional\", \"Japanese\", \"Korean\" or \"Russian\"\ntwo \
index fields get inserted above a selected cell, the top one for inserting \
entries\nintended for the Englsh index and the bottom for the index in the \
language given by $Language.", TooltipDelay -> 0.3], 
                 TooltipBox[
                  ButtonBox[
                  "\"Toggle\"", Appearance -> {"AbuttingLeft"}, 
                   ButtonFunction :> (CurrentValue[
                    ButtonNotebook[], ScreenStyleEnvironment] = 
                    If[CurrentValue[
                    ButtonNotebook[], ScreenStyleEnvironment] === 
                    "Invisibles", "Working", "Invisibles"]), Evaluator -> 
                   Automatic, Method -> "Queued"], 
                  "Toggles index entry fields.", TooltipDelay -> 0.3]}}, 
               GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
               GridBoxSpacings -> {
                "ColumnsIndexed" -> {2 -> 0}, "Rows" -> {{Automatic}}}], 
              InterpretationBox[
               StyleBox[
                
                GraphicsBox[{}, BaselinePosition -> Baseline, 
                 ImageSize -> {4, 0}], CacheGraphics -> False], 
               Spacer[4]]}}]], "DockedCell", 
          CellFrameMargins -> {{0, 0}, {8, 8}}]}, CreateCellID -> True, 
       TrackCellChangeTimes -> False, ShowPredictiveInterface -> False, 
       AutoStyleOptions -> {
        "UndefinedSymbolStyle" -> 
         None}, $CellContext`GhostCellInEmptyNotebook -> False]}, Closed]], 
   Cell[
    CellGroupData[{
      Cell["Styles for Headers and Footers", "Section"], 
      Cell[
       StyleData["Header"], 
       PrintingOptions -> {"PageHeaderMargins" -> {28, 28}}, StyleMenuListing -> 
       None, FontFamily -> "Source Sans Pro", FontSize -> 8, FontWeight -> 
       "Regular", FontSlant -> "Plain", 
       PrivateFontOptions -> {"FontPostScriptName" -> "Automatic"}, FontColor -> 
       GrayLevel[0.45]], 
      Cell[
       StyleData["PageNumber"], CellMargins -> {{0, 0}, {4, 1}}, 
       StyleMenuListing -> None, FontFamily -> "Source Sans Pro", FontSize -> 
       8, FontWeight -> "Bold", FontSlant -> "Plain", 
       PrivateFontOptions -> {"FontPostScriptName" -> "Automatic"}, FontColor -> 
       GrayLevel[0]]}, Closed]], 
   Cell[
    CellGroupData[{
      Cell[
      "Custom Styles", "Section", 
       CellChangeTimes -> {{3.646611660445352*^9, 3.646611669493331*^9}}], 
      Cell[
       StyleData["Notebook"], WindowToolbars -> {}, PageWidth :> WindowWidth, 
       PrintingOptions -> {
        "FirstPageHeader" -> True, "InnerOuterMargins" -> {30, 30}, 
         "PaperOrientation" -> "Portrait", "PaperSize" -> {504, 720}, 
         "PrintingMargins" -> {{20, 20}, {54, 54}}}, CellLabelAutoDelete -> 
       False, ShowSyntaxStyles -> True, 
       LightDarkAutoColorRules -> <|"AllColors" -> True|>, MenuSortingValue -> 
       None, GraphicsBoxOptions -> {ImageSize -> 240}, 
       Graphics3DBoxOptions -> {ImageSize -> 240}], 
      Cell[
       StyleData["TOCPage"], CellSize -> {40, Inherited}, TextAlignment -> 
       Right, MenuSortingValue -> 20010, StyleMenuListing -> None, FontFamily -> 
       "Source Sans Pro", FontSize -> 18, FontWeight -> "Plain"], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["ContentsTitle"], CellMargins -> {{66, 66}, {4, 14}}, 
          MenuSortingValue -> 20000, FontFamily -> "Helvetica", FontSize -> 
          36, FontWeight -> "Bold", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
         Cell[
          StyleData["ContentsTitle", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["TOCTitle"], CellMargins -> {{66, 66}, {4, 14}}, 
          CellGroupingRules -> {"SectionGrouping", 70}, TabSpacings -> 36, 
          CounterIncrements -> "TOCTitle", MenuSortingValue -> 20020, 
          FontFamily -> "Source Sans Pro", FontSize -> 18, FontWeight -> 
          "Bold", FontColor -> GrayLevel[0]], 
         Cell[
          StyleData["TOCTitle", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["TOCSection"], CellMargins -> {{95, 95}, {1, 1}}, 
          CellGroupingRules -> {"SectionGrouping", 75}, TabSpacings -> 34, 
          CounterIncrements -> "TOCSection", MenuSortingValue -> 20030, 
          FontFamily -> "Source Sans Pro", FontSize -> 16], 
         Cell[
          StyleData["TOCSection", "Printout"]]}, Closed]], 
      Cell[
       StyleData["Leader"], TabFilling -> ".", MenuSortingValue -> 10000, 
       StyleMenuListing -> None, FontFamily -> "Source Sans Pro", FontSize -> 
       18, FontWeight -> "Plain"], 
      Cell[
       StyleData["LeaderNoDots"], TabFilling -> " ", MenuSortingValue -> 
       10000, StyleMenuListing -> None, FontFamily -> "Source Sans Pro", 
       FontSize -> 18, FontWeight -> "Plain"], 
      Cell[
       StyleData["PageLink"], MenuSortingValue -> 10000, StyleMenuListing -> 
       None, ButtonStyleMenuListing -> Automatic, FontFamily -> 
       "Source Sans Pro", FontSize -> 18, FontColor -> 
       RGBColor[0.269993, 0.308507, 0.6], 
       ButtonBoxOptions -> {
        Active -> True, Appearance -> {Automatic, None}, 
         ButtonFunction :> (FrontEndExecute[{
            FrontEnd`NotebookLocate[#2]}]& )}], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Title"], CellMargins -> {{64, Inherited}, {50, 72}}, 
          MenuCommandKey :> None, FontFamily -> "Verdana", FontSize -> 42, 
          FontWeight -> "Bold", FontColor -> GrayLevel[0.4]], 
         Cell[
          StyleData["Title", "Printout"], 
          CellMargins -> {{64, Inherited}, {50, 72}}]}, Closed]], 
      Cell[
       StyleData["Chapter"], MenuCommandKey :> None], 
      Cell[
       StyleData["Subchapter"], MenuCommandKey :> None], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Section"], CellFrame -> {{0, 0}, {0, 0}}, 
          CellMargins -> {{64, Inherited}, {12, 64}}, 
          CellGroupingRules -> {"SectionGrouping", 30}, PageBreakAbove -> 
          True, ShowCellLabel -> False, 
          CellFrameLabelMargins -> {{2, Inherited}, {Inherited, Inherited}}, 
          CellChangeTimes -> {3.652728456208679*^9, 3.652728527108994*^9}, 
          CounterIncrements -> "Section", 
          CounterAssignments -> {{"Subsection", 0}, {"Subsubsection", 0}, {
            "Exercise", 0}}, FontFamily -> "Source Sans Pro Semibold", 
          FontSize -> 26, FontSlant -> "Plain", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`], 
          InterpretationBoxOptions -> {Editable -> True}], 
         Cell[
          StyleData["Section", "Printout"], 
          CellMargins -> {{62, 4}, {52, 182}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["SectionSingleDigit"], CellFrame -> {{0, 0}, {0, 0}}, 
          CellDingbat -> Cell[
            TextData[
             CounterBox["Section"], 
             StyleBox[
             "|\[NegativeThinSpace]\[VeryThinSpace]", FontColor -> 
              RGBColor[
               0.9019607843137255, 0.4117647058823529, 0.027450980392156862`],
               FontFamily -> "Courier", FontSize -> 36, FontWeight -> Plain]],
             "SectionNumber"], CellMargins -> {{100, 100}, {12, 64}}, 
          Evaluatable -> True, CellGroupingRules -> {"SectionGrouping", 60}, 
          PageBreakAbove -> True, ShowCellLabel -> False, 
          CellFrameLabelMargins -> {{2, Inherited}, {Inherited, Inherited}}, 
          CellChangeTimes -> {3.652728456208679*^9, 3.652728527108994*^9}, 
          CounterIncrements -> "Section", 
          CounterAssignments -> {{"Subsection", 0}, {"Subsubsection", 0}, {
            "Exercise", 0}}, FontFamily -> "Source Sans Pro Semibold", 
          FontSize -> 26, FontSlant -> "Plain", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`], 
          InterpretationBoxOptions -> {Editable -> True}], 
         Cell[
          StyleData["SectionSingleDigit", "Printout"], 
          CellMargins -> {{100, Inherited}, {12, 2}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["SectionDoubleDigit"], CellFrame -> {{0, 0}, {0, 0}}, 
          CellDingbat -> Cell[
            TextData[
             CounterBox["Section"], 
             StyleBox[
             "|\[NegativeThinSpace]\[VeryThinSpace]", FontColor -> 
              RGBColor[
               0.9019607843137255, 0.4117647058823529, 0.027450980392156862`],
               FontFamily -> "Courier", FontSize -> 36, FontWeight -> Plain]],
             "SectionNumber"], CellMargins -> {{112, Inherited}, {12, 64}}, 
          Evaluatable -> True, CellGroupingRules -> {"SectionGrouping", 60}, 
          PageBreakAbove -> True, ShowCellLabel -> False, 
          CellFrameLabelMargins -> {{2, Inherited}, {Inherited, Inherited}}, 
          CellChangeTimes -> {3.652728456208679*^9, 3.652728527108994*^9}, 
          CounterIncrements -> "Section", 
          CounterAssignments -> {{"Subsection", 0}, {"Subsubsection", 0}, {
            "Exercise", 0}}, FontFamily -> "Source Sans Pro Semibold", 
          FontSize -> 26, FontSlant -> "Plain", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`], 
          InterpretationBoxOptions -> {Editable -> True}], 
         Cell[
          StyleData["SectionDoubleDigit", "Printout"], 
          CellMargins -> {{112, Inherited}, {12, 2}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["SectionNumber"], CellBaseline -> Baseline, FontFamily -> 
          "Source Sans Pro Semibold", FontSize -> 26, FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
         Cell[
          StyleData["SectionNumber", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["SectionBar"], FontFamily -> "Source Sans Pro", 
          FontWeight -> "Plain", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
         Cell[
          StyleData["SectionBar", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["SectionInline"], FontFamily -> 
          "Source Sans Pro Semibold", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
         Cell[
          StyleData["SectionInline", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["SectionNoDingbat"], 
          CellMargins -> {{64, Inherited}, {12, 64}}, Evaluatable -> True, 
          CellGroupingRules -> {"SectionGrouping", 60}, PageBreakAbove -> 
          True, ShowCellLabel -> False, 
          CellFrameLabelMargins -> {{2, Inherited}, {Inherited, Inherited}}, 
          CellChangeTimes -> {3.652728456208679*^9, 3.652728527108994*^9}, 
          CounterIncrements -> "Section", 
          CounterAssignments -> {{"Subsection", 0}, {"Subsubsection", 0}, {
            "Exercise", 0}}, FontFamily -> "Source Sans Pro Semibold", 
          FontSize -> 26, FontSlant -> "Plain", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`], 
          InterpretationBoxOptions -> {Editable -> True}], 
         Cell[
          StyleData["SectionNoDingbat", "Printout"], 
          CellMargins -> {{64, Inherited}, {12, 2}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["SubsectionNumbered"], CellDingbat -> Cell[
            TextData[{"  ", 
              CounterBox["Section"], ".", 
              CounterBox["Subsection"]}], "SubsectionNumber", FontColor -> 
            RGBColor[
             0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
          CellMargins -> {{98, Inherited}, {Inherited, 32}}, 
          CounterIncrements -> "Subsection", FontFamily -> 
          "Source Sans Pro Semibold", FontSize -> 18, FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
         Cell[
          StyleData["SubsectionNumbered", "Printout"], 
          CellMargins -> {{102, Inherited}, {12, 32}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["SubsectionNumber"], FontFamily -> 
          "Source Sans Pro Semibold", FontSize -> 18, FontColor -> 
          GrayLevel[0.25]], 
         Cell[
          StyleData["SubsectionNumber", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["SubsectionFirst"], 
          CellMargins -> {{64, Inherited}, {2, 72}}, FontFamily -> 
          "Source Sans Pro Semibold", FontSize -> 18, FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
         Cell[
          StyleData["Subsection", "Printout"], 
          CellMargins -> {{64, Inherited}, {12, 32}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Subsection"], CellMargins -> {{64, Inherited}, {2, 32}}, 
          FontFamily -> "Source Sans Pro Semibold", FontSize -> 18, FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
         Cell[
          StyleData["Subsection", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Subsubsection"], 
          CellMargins -> {{64, Inherited}, {2, 32}}, FontFamily -> 
          "Source Sans Pro Semibold", FontSize -> 16, FontSlant -> "Italic", 
          FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
         Cell[
          StyleData["Subsubsection", "Printout"], 
          CellMargins -> {{64, Inherited}, {6, 14}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["SubsubsectionTopMargin"], 
          CellMargins -> {{64, Inherited}, {2, 14}}, FontFamily -> 
          "Source Sans Pro Semibold", FontSize -> 16, FontSlant -> "Italic", 
          FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
         Cell[
          StyleData["SubsubsectionTopMargin", "Printout"], 
          CellMargins -> {{64, Inherited}, {6, 14}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Subsubsubsection"], 
          CellMargins -> {{64, Inherited}, {2, 32}}, FontFamily -> 
          "Source Sans Pro Semibold", FontSize -> 15, FontSlant -> "Plain", 
          FontColor -> GrayLevel[0.45]], 
         Cell[
          StyleData["Subsubsubsection", "Printout"], 
          CellMargins -> {{64, Inherited}, {6, 14}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Subsubsubsubsection"], 
          CellMargins -> {{66, 66}, {2, 10}}, 
          StyleKeyMapping -> {
           "Backspace" -> 
            "Subsubsubsection", $CellContext`KeyEvent[
             "Tab", $CellContext`Modifiers -> {"Shift"}] -> 
            "Subsubsubsection"}, CellGroupingRules -> {"SectionGrouping", 70},
           PageBreakBelow -> False, LanguageCategory -> "NaturalLanguage", 
          CounterIncrements -> "Subsubsubsubsection", 
          CounterAssignments -> {{"Item", 0}, {"Subitem", 0}, {
            "Subsubitem", 0}, {"ItemNumbered", 0}, {"SubitemNumbered", 0}, {
            "SubsubitemNumbered", 0}}, MenuSortingValue -> None, FontFamily -> 
          "Source Sans Pro Semibold", FontSize -> 15, FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
         Cell[
          StyleData["Subsubsubsubsection", "Printout"], 
          CellMargins -> {{66, 66}, {2, 10}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["ResourcesSubsection"], 
          CellMargins -> {{64, Inherited}, {4, 16}}, FontFamily -> 
          "Source Sans Pro Semibold", FontSize -> 15, FontSlant -> "Plain", 
          FontColor -> GrayLevel[0]], 
         Cell[
          StyleData["ResourcesSubsection", "Printout"], 
          CellMargins -> {{64, Inherited}, {4, 16}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["VocabularySection"], CellFrame -> {{0, 0}, {0, 3}}, 
          CellMargins -> {{64, Inherited}, {8, 30}}, 
          CellGroupingRules -> {"SectionGrouping", 60}, PageBreakBelow -> 
          False, CellFrameMargins -> {{8, 8}, {4, 6}}, CellFrameColor -> 
          RGBColor[0.901961, 0.411765, 0.027451], FontFamily -> 
          "Source Sans Pro", FontSize -> 18, FontSlant -> "Italic", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`], 
          GridBoxOptions -> {GridBoxAlignment -> {}}], 
         Cell[
          StyleData["VocabularySection", "Printout"], 
          CellMargins -> {{64, Inherited}, {8, 24}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["VocabularySubsection"], 
          CellMargins -> {{64, Inherited}, {2, 10}}, FontFamily -> 
          "Source Sans Pro", FontSize -> 16, FontSlant -> "Italic", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
         Cell[
          StyleData["VocabularySubsubsection", "Printout"], 
          CellMargins -> {{64, Inherited}, {6, 14}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["VocabularySubsectionSM"], 
          CellFrame -> {{0, 0}, {0.75, 0}}, 
          CellMargins -> {{64, Inherited}, {5, 15}}, 
          CellFrameMargins -> {{8, 8}, {5, 6}}, CellFrameColor -> 
          RGBColor[0.901961, 0.411765, 0.027451], FontFamily -> 
          "Source Sans Pro", FontSize -> 14, FontWeight -> "Bold", FontSlant -> 
          "Regular", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
         Cell[
          StyleData["VocabularySubsubsectionSM", "Printout"], 
          CellMargins -> {{64, Inherited}, {6, 15}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["VocabularyTable", StyleDefinitions -> StyleData["Text"]],
           SpanMaxSize -> 1, FontFamily -> "Source Sans Pro Light", FontColor -> 
          GrayLevel[0.8], 
          GridBoxOptions -> {
           GridBoxAlignment -> {"Columns" -> {{Left}}}, 
            GridBoxDividers -> {"Columns" -> {{False}}, "Rows" -> {False, {
                 Directive[
                  Thickness[0.5], "VocabDivColor"]}, False}}, 
            GridBoxItemStyle -> {
             "Columns" -> {"VocabularyCode", Inherited, Inherited}, 
              "Rows" -> {{Automatic}}}, 
            GridBoxSpacings -> {
             "Columns" -> {{0, 1, 2, 1, 2}}, "Rows" -> {{1}}}}], 
         Cell[
          StyleData["VocabularyTable", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData[
          "VocabularyTable3Column", StyleDefinitions -> StyleData["Text"]], 
          SpanMaxSize -> 1, FontFamily -> "Source Sans Pro Light", FontColor -> 
          GrayLevel[0.8], 
          GridBoxOptions -> {
           GridBoxAlignment -> {"Columns" -> {{Left}}}, 
            GridBoxDividers -> {"Columns" -> {{False}}, "Rows" -> {False, {
                 Directive[
                  Thickness[0.5], "VocabDivColor"]}, False}}, 
            GridBoxItemStyle -> {
             "Columns" -> {
               "VocabularyCode", Inherited, "VocabularyCode", Inherited, 
                Inherited}, "Rows" -> {{Automatic}}}, 
            GridBoxSpacings -> {
             "Columns" -> {{0, 1, 2, 1, 2}}, "Rows" -> {{1}}}}], 
         Cell[
          StyleData["VocabularyTable3Column", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["VocabularyText"], FontFamily -> "Source Sans Pro", 
          FontSize -> 14, FontWeight -> "Plain", FontSlant -> "Plain", 
          FontColor -> GrayLevel[0.25]], 
         Cell[
          StyleData["VocabularyText", "Printout"], 
          CellMargins -> {{66, 10}, {7, 7}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["VocabularyCode", StyleDefinitions -> StyleData["Text"]], 
          Deletable -> False, FontFamily -> "Source Sans Pro", FontSize -> 14,
           FontWeight -> "Bold", FontColor -> GrayLevel[0.25], 
          GridBoxOptions -> {
           GridBoxAlignment -> {"Columns" -> {{Left}}}, 
            GridBoxDividers -> {
             "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {True, {True}, True}, "RowsIndexed" -> {}}}], 
         Cell[
          StyleData["VocabularyCode", "Printout"], FontColor -> 
          GrayLevel[0.25]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["GrayPointSix"], FontColor -> GrayLevel[0.6]], 
         Cell[
          StyleData["GrayPointSix", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["VocabDivColor"], FontColor -> GrayLevel[0.8]], 
         Cell[
          StyleData["VocabDivColor", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["SummarySection"], Editable -> True, PageWidth :> 
          WindowWidth, CellFrame -> {{0, 0}, {0, 3}}, 
          CellMargins -> {{64, Inherited}, {8, 30}}, 
          CellGroupingRules -> {"SectionGrouping", 60}, PageBreakAbove -> 
          True, CellFrameMargins -> {{8, 8}, {4, 6}}, CellFrameColor -> 
          RGBColor[0.901961, 0.411765, 0.027451], MenuSortingValue -> 9000, 
          FontFamily -> "Source Sans Pro", FontSize -> 18, FontSlant -> 
          "Italic", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`], 
          GridBoxOptions -> {GridBoxAlignment -> {}}], 
         Cell[
          StyleData["SummarySection", "Printout"], 
          CellMargins -> {{64, 64}, {8, 30}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["SummaryNote"], PageWidth :> WindowWidth, 
          CellMargins -> {{64, 64}, {4, 8}}, ReturnCreatesNewCell -> True, 
          PageBreakBelow -> False, MenuSortingValue -> 9010, FontFamily -> 
          "Source Sans Pro", FontSize -> 14, FontWeight -> "Plain", FontSlant -> 
          "Plain", FontColor -> GrayLevel[0.25]], 
         Cell[
          StyleData["SummaryNote", "Printout"], 
          CellMargins -> {{68, 68}, {4, 8}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["SummaryList"], PageWidth :> WindowWidth, CellDingbat -> 
          Cell[
            TextData[{"\[FilledSmallSquare]"}], FontSize -> 12, FontColor -> 
            GrayLevel[0.5]], CellMargins -> {{78, 78}, {4, 8}}, 
          ReturnCreatesNewCell -> True, CellFrameLabelMargins -> 3, 
          LineSpacing -> {1.25, 1., 2.}, MenuSortingValue -> 9020, FontFamily -> 
          "Source Sans Pro", FontSize -> 14, FontWeight -> "Plain", FontSlant -> 
          "Plain", FontColor -> GrayLevel[0.25]], 
         Cell[
          StyleData["SummaryList", "Printout"], 
          CellMargins -> {{82, 82}, {4, 8}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["ExerciseSection"], CellFrame -> {{0, 0}, {0, 3}}, 
          CellMargins -> {{64, Inherited}, {8, 30}}, Evaluatable -> True, 
          CellGroupingRules -> {"SectionGrouping", 60}, PageBreakBelow -> 
          False, ShowCellLabel -> False, CellFrameMargins -> {{8, 8}, {4, 6}},
           CellFrameColor -> RGBColor[0.901961, 0.411765, 0.027451], 
          CounterAssignments -> {{"Subsection", 0}, {"Subsubsection", 0}, {
            "Exercise", 0}}, FontFamily -> "Source Sans Pro", FontSize -> 18, 
          FontSlant -> "Italic", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`], 
          GridBoxOptions -> {GridBoxAlignment -> {}}], 
         Cell[
          StyleData["ExerciseSection", "Printout"], 
          CellMargins -> {{64, Inherited}, {8, 30}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["ExerciseSubsection"], PageWidth :> 500, 
          CellFrame -> {{False, False}, {1, False}}, 
          CellMargins -> {{64, Inherited}, {8, 18}}, 
          CellGroupingRules -> {"SectionGrouping", 61}, CellFrameColor -> 
          RGBColor[0.65, 0.6, 0.6], FontFamily -> "Source Sans Pro", FontSize -> 
          18, FontSlant -> "Italic", FontColor -> RGBColor[0.65, 0.6, 0.6]], 
         Cell[
          StyleData["ExerciseSubsection", "Printout"], 
          CellFrame -> {{False, False}, {1, False}}, CellFrameColor -> 
          RGBColor[0.65, 0.6, 0.6]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["ExerciseSubsectionSM"], 
          CellMargins -> {{64, Inherited}, {4, 12}}, 
          CellGroupingRules -> {"SectionGrouping", 61}, FontFamily -> 
          "Source Sans Pro Semibold", FontSize -> 15, FontSlant -> "Plain", 
          FontColor -> GrayLevel[0]], 
         Cell[
          StyleData["ExerciseSubsectionSM", "Printout"], 
          CellMargins -> {{64, Inherited}, {4, 12}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Exercise"], CellDingbat -> Cell[
            TextData[{"  ", 
              CounterBox["Section"], ".", 
              CounterBox["Exercise"]}], "ExerciseNumber", FontColor -> 
            RGBColor[
             0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
          ShowGroupOpener -> False, CellMargins -> {{106, Inherited}, {4, 8}},
           CellGroupingRules -> {"SectionGrouping", 62}, DefaultNewCellStyle -> 
          "ExerciseInput", CounterIncrements -> "Exercise", MenuSortingValue -> 
          10020, MenuCommandKey :> "2", FontFamily -> "Source Sans Pro", 
          FontSize -> 14, FontWeight -> "Plain", FontSlant -> "Plain", 
          FontColor -> GrayLevel[0.25]], 
         Cell[
          StyleData["Exercise", "Printout"], ShowGroupOpener -> False, 
          CellMargins -> {{108, Inherited}, {4, 8}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["ExerciseNumber"], FontFamily -> "Source Sans Pro", 
          FontSize -> 14, FontWeight -> "Bold", FontColor -> GrayLevel[0.25]], 
         Cell[
          StyleData["ExerciseNumber", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["ExerciseSectionNote"], 
          CellMargins -> {{64, Inherited}, {4, 8}}, ReturnCreatesNewCell -> 
          True, CellGroupingRules -> {"SectionGrouping", 62.}, PageBreakBelow -> 
          False, LineSpacing -> {1., 1., 2.}, MenuSortingValue -> 10050, 
          FontFamily -> "Source Sans Pro", FontSize -> 14, FontWeight -> 
          "Plain", FontSlant -> "Plain", FontColor -> GrayLevel[0.25]], 
         Cell[
          StyleData["ExerciseSectionNote", "Printout"], 
          CellMargins -> {{64, Inherited}, {4, 8}}, 
          LineSpacing -> {0.8, 1., 2.}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["ExerciseNote"], 
          CellMargins -> {{106, Inherited}, {4, 8}}, ReturnCreatesNewCell -> 
          True, CellGroupingRules -> {"SectionGrouping", 62.}, PageBreakBelow -> 
          False, LineSpacing -> {1., 1., 2.}, MenuSortingValue -> 10050, 
          FontFamily -> "Source Sans Pro", FontSize -> 14, FontWeight -> 
          "Plain", FontSlant -> "Plain", FontColor -> GrayLevel[0.25]], 
         Cell[
          StyleData["ExerciseNote", "Printout"], 
          LineSpacing -> {0.8, 1., 2.}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["ExerciseSolution"], 
          CellMargins -> {{106, Inherited}, {4, 8}}, ReturnCreatesNewCell -> 
          True, CellGroupingRules -> {"SectionGrouping", 62.}, PageBreakBelow -> 
          False, CellChangeTimes -> {3.938884624675207*^9}, 
          LineSpacing -> {1., 1., 2.}, LineColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`], 
          FrontFaceColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`], 
          BackFaceColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`], 
          GraphicsColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`], 
          MenuSortingValue -> 10050, FontFamily -> "Source Sans Pro Semibold",
           FontSize -> 14, FontSlant -> "Plain", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
         Cell[
          StyleData["ExerciseSolution", "Printout"], 
          CellMargins -> {{106, Inherited}, {4, 8}}, 
          LineSpacing -> {0.8, 1., 2.}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["SolutionAnswer"], CellMargins -> {{106, 10}, {4, 1}}, 
          ReturnCreatesNewCell -> True, LineSpacing -> {1.125, 1., 2.}, 
          MenuSortingValue -> 10032, FontFamily -> "Source Sans Pro", 
          FontSize -> 14, FontWeight -> "Plain", FontSlant -> "Plain", 
          FontColor -> 
          GrayLevel[0.25], $CellContext`DefaultReturnCreatedCellStyle -> 
          "Question"], 
         Cell[
          StyleData["SolutionAnswer", "Printout"], 
          CellMargins -> {{106, 10}, {4, 1}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["SolutionItem"], CellDingbat -> Cell[
            TextData[{
              CounterBox["ItemNumbered"], ")"}], FontSize -> 14, FontWeight -> 
            "Regular", FontColor -> GrayLevel[0.25]], 
          CellMargins -> {{122, Inherited}, {2, 4}}, ReturnCreatesNewCell -> 
          True, CellFrameLabelMargins -> 4, LineSpacing -> {1.25, 1., 2.}, 
          CounterIncrements -> "ItemNumbered", MenuSortingValue -> 10040, 
          FontFamily -> "Source Sans Pro", FontSize -> 14, FontWeight -> 
          "Plain", FontSlant -> "Plain", FontColor -> GrayLevel[0.25]], 
         Cell[
          StyleData["SolutionItem", "Printout"], 
          CellMargins -> {{106, Inherited}, {2, 4}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["QASection"], CellFrame -> {{0, 0}, {0, 3}}, 
          CellMargins -> {{64, Inherited}, {8, 30}}, 
          CellGroupingRules -> {"SectionGrouping", 60}, PageBreakBelow -> 
          False, CellFrameMargins -> {{8, 8}, {4, 6}}, CellFrameColor -> 
          RGBColor[0.901961, 0.411765, 0.027451], 
          CounterAssignments -> {{"Subsection", 0}, {"Subsubsection", 0}, {
            "Question", 0}}, FontFamily -> "Source Sans Pro", FontSize -> 18, 
          FontSlant -> "Italic", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`], 
          GridBoxOptions -> {GridBoxAlignment -> {}}], 
         Cell[
          StyleData["QASection", "Printout"], 
          CellMargins -> {{64, Inherited}, {8, 30}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Question"], CellMargins -> {{64, Inherited}, {2, 12}}, 
          ReturnCreatesNewCell -> True, PageBreakBelow -> False, 
          CounterIncrements -> "Question", MenuSortingValue -> 10030, 
          MenuCommandKey :> "3", FontFamily -> "Source Sans Pro", FontSize -> 
          14, FontWeight -> "Bold", FontSlant -> 
          "Plain", $CellContext`DefaultReturnCreatedCellStyle -> "Answer"], 
         Cell[
          StyleData["Question", "Printout"], 
          CellMargins -> {{65, Inherited}, {2, 12}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Answer"], CellMargins -> {{66, 10}, {4, 1}}, 
          ReturnCreatesNewCell -> True, LineSpacing -> {1.125, 1., 2.}, 
          MenuSortingValue -> 10032, FontFamily -> "Source Sans Pro", 
          FontSize -> 14, FontWeight -> "Plain", FontSlant -> "Plain", 
          FontColor -> 
          GrayLevel[0.25], $CellContext`DefaultReturnCreatedCellStyle -> 
          "Question"], 
         Cell[
          StyleData["Answer", "Printout"], 
          CellMargins -> {{66, 10}, {4, 1}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["QuestionNumber"], FontFamily -> "Source Sans Pro", 
          FontSize -> 14, FontWeight -> "Bold", FontColor -> GrayLevel[0.25]], 
         Cell[
          StyleData["QuestionNumber", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["TechNoteSection"], CellFrame -> {{0, 0}, {0, 3}}, 
          CellMargins -> {{64, Inherited}, {8, 30}}, 
          CellGroupingRules -> {"SectionGrouping", 60}, PageBreakBelow -> 
          False, CellFrameMargins -> {{8, 8}, {4, 6}}, CellFrameColor -> 
          RGBColor[0.901961, 0.411765, 0.027451], FontFamily -> 
          "Source Sans Pro", FontSize -> 18, FontSlant -> "Italic", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`], 
          GridBoxOptions -> {GridBoxAlignment -> {}}], 
         Cell[
          StyleData["TechNoteSection", "Printout"], 
          CellMargins -> {{64, Inherited}, {8, 30}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["TechNoteSubsection"], 
          CellMargins -> {{64, Inherited}, {2, 10}}, FontFamily -> 
          "Source Sans Pro", FontSize -> 16, FontSlant -> "Italic", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
         Cell[
          StyleData["TechNoteSubsubsection", "Printout"], 
          CellMargins -> {{64, Inherited}, {6, 14}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["TechNoteItem"], CellDingbat -> Cell[
            TextData[{
              CounterBox["ItemNumbered"], "."}], FontSize -> 12, FontWeight -> 
            Bold, FontColor -> GrayLevel[0.25]], 
          CellMargins -> {{93, Inherited}, {4, 8}}, ReturnCreatesNewCell -> 
          True, CellFrameLabelMargins -> 4, 
          CellChangeTimes -> {{3.651515120816633*^9, 3.651515125814807*^9}, 
            3.6515155174947033`*^9}, LineSpacing -> {1.25, 1., 2.}, 
          CounterIncrements -> "ItemNumbered", MenuSortingValue -> 10040, 
          FontFamily -> "Source Sans Pro", FontSize -> 14, FontWeight -> 
          "Plain", FontSlant -> "Plain", FontColor -> GrayLevel[0.25]], 
         Cell[
          StyleData["TechNoteItem", "Printout"], 
          CellMargins -> {{93, Inherited}, {4, 8}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["TechNoteNoDingbat"], 
          CellMargins -> {{82, Inherited}, {4, 8}}, ReturnCreatesNewCell -> 
          True, CellFrameLabelMargins -> 4, LineSpacing -> {1.25, 1., 2.}, 
          MenuSortingValue -> 10040, FontFamily -> "Source Sans Pro", 
          FontSize -> 14, FontWeight -> "Plain", FontSlant -> "Plain", 
          FontColor -> GrayLevel[0.25]], 
         Cell[
          StyleData["TechNote", "Printout"], 
          CellMargins -> {{82, Inherited}, {4, 8}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["TechNote"], CellDingbat -> Cell[
            TextData[{"\[FilledSquare]"}], FontSize -> 12, FontColor -> 
            GrayLevel[0.5]], CellMargins -> {{78, Inherited}, {4, 8}}, 
          ReturnCreatesNewCell -> True, CellFrameLabelMargins -> 4, 
          LineSpacing -> {1.25, 1., 2.}, MenuSortingValue -> 10040, 
          FontFamily -> "Source Sans Pro", FontSize -> 14, FontWeight -> 
          "Plain", FontSlant -> "Plain", FontColor -> GrayLevel[0.25]], 
         Cell[
          StyleData["TechNote", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["TechNoteInput", StyleDefinitions -> StyleData["Input"]], 
          CellMargins -> {{99, 10}, {3, 7}}, SpanMaxSize -> 1, FontSize -> 
          14], 
         Cell[
          StyleData["TechNoteInput", "Printout"], 
          CellMargins -> {{99, 10}, {3, 7}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData[
          "TechNoteOutput", StyleDefinitions -> StyleData["Output"]], 
          CellMargins -> {{99, 10}, {14, 7}}, FontSize -> 14], 
         Cell[
          StyleData["TechNoteOutput", "Printout"], 
          CellMargins -> {{99, 10}, {14, 7}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["MoreExploreSection"], CellFrame -> {{0, 0}, {0, 3}}, 
          CellMargins -> {{64, Inherited}, {8, 30}}, 
          CellGroupingRules -> {"SectionGrouping", 60}, PageBreakBelow -> 
          False, CellFrameMargins -> {{8, 8}, {4, 6}}, CellFrameColor -> 
          RGBColor[0.901961, 0.411765, 0.027451], FontFamily -> 
          "Source Sans Pro", FontSize -> 18, FontSlant -> "Italic", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`], 
          GridBoxOptions -> {GridBoxAlignment -> {}}], 
         Cell[
          StyleData["MoreExploreSection", "Printout"], 
          CellMargins -> {{64, Inherited}, {8, 30}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["MoreExplore"], CellMargins -> {{64, Inherited}, {4, 8}}, 
          ReturnCreatesNewCell -> True, PageBreakBelow -> False, 
          MenuSortingValue -> 10050, FontFamily -> "Source Sans Pro", 
          FontSize -> 14, FontWeight -> "Plain", FontSlant -> "Plain", 
          FontColor -> GrayLevel[0]], 
         Cell[
          StyleData["MoreExplore", "Printout"], 
          CellMargins -> {{64, Inherited}, {4, 8}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["MoreExploreShortURL"], 
          CellMargins -> {{64, Inherited}, {4, 8}}, PageBreakBelow -> False, 
          FontFamily -> "Source Sans Pro Light", FontSize -> 14, FontSlant -> 
          "Plain", FontColor -> GrayLevel[0]], 
         Cell[
          StyleData["MoreExploreShortURL", "Printout"], 
          CellMargins -> {{64, Inherited}, {4, 8}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["TakeawaysSection"], CellFrame -> {{1, 1}, {1, 1}}, 
          CellMargins -> {{52, -12}, {-1, 30}}, 
          CellGroupingRules -> {"SectionGrouping", 60}, PageBreakBelow -> 
          False, CellFrameMargins -> {{16, 8}, {6, 6}}, CellFrameColor -> 
          RGBColor[0.901961, 0.411765, 0.027451], FontFamily -> 
          "Source Sans Pro", FontSize -> 15, FontWeight -> "Bold", FontSlant -> 
          "Plain", 
          PrivateFontOptions -> {"FontPostScriptName" -> "Automatic"}, 
          FontColor -> GrayLevel[1], Background -> 
          RGBColor[0.901961, 0.411765, 0.027451]], 
         Cell[
          StyleData["TakeawaysSection", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["TakeawaysHeader"], 
          CellMargins -> {{64, Inherited}, {5, 15}}, 
          CellFrameMargins -> {{8, 8}, {5, 6}}, CellFrameColor -> 
          RGBColor[0.901961, 0.411765, 0.027451], FontFamily -> 
          "Source Sans Pro", FontSize -> 15, FontWeight -> "SemiBold", 
          FontSlant -> "Regular", FontColor -> GrayLevel[0]], 
         Cell[
          StyleData["TakeawaysHeader", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["TakeawaysTable"], CellFrame -> {{0, 0}, {0, 0}}, 
          CellMargins -> {{52, -12}, {12, -1}}, ReturnCreatesNewCell -> True, 
          CellFrameMargins -> {{18, 12}, {20, 12}}, CellFrameLabelMargins -> 
          6, LineSpacing -> {1.25, 1., 2.}, SpanMaxSize -> 1, FontFamily -> 
          "Source Sans Pro Light", FontColor -> GrayLevel[0.25], Background -> 
          RGBColor[1., 0.9490196078431372, 0.8509803921568627], 
          GridBoxOptions -> {
           GridBoxAlignment -> {"Columns" -> {{Left}}}, 
            GridBoxDividers -> {"Columns" -> {{False}}, "Rows" -> {False}}, 
            GridBoxItemStyle -> {
             "Columns" -> {"TakeawaysDingbat", Inherited}, 
              "Rows" -> {{SpanFromLeft, Automatic}}}, 
            GridBoxSpacings -> {"Columns" -> {{0.5}}, "Rows" -> {{0.75}}}}], 
         Cell[
          StyleData["TakeawaysTable", "Printout"], 
          CellMargins -> {{51.5, -12.5}, {12, 0}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["TakeawaysText"], FontFamily -> "Source Sans Pro", 
          FontSize -> 14, FontWeight -> "Plain", FontSlant -> "Plain", 
          FontColor -> GrayLevel[0]], 
         Cell[
          StyleData["TakeawaysText", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData[
          "TakeawaysDingbat", StyleDefinitions -> StyleData["Text"]], 
          FontFamily -> "Source Sans Pro", FontSize -> 10, FontWeight -> 
          "SemiBold", FontColor -> RGBColor[0.901961, 0.411765, 0.027451], 
          GridBoxOptions -> {
           GridBoxAlignment -> {"Columns" -> {{Left}}}, 
            GridBoxDividers -> {
             "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {True, {True}, True}, "RowsIndexed" -> {}}}], 
         Cell[
          StyleData["TakeawaysDingbat", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["CodeText", StyleDefinitions -> StyleData["Text"]], 
          CellMargins -> {{66, 10}, {3, 15}}, LineSpacing -> {1, 1, 1}, 
          MenuSortingValue -> 1540, 
          MenuCommandKey :> $CellContext`MenuKey[
           "7", $CellContext`Modifiers -> {"Shift"}], FontFamily -> 
          "Source Sans Pro", FontSize -> 16, FontColor -> GrayLevel[0.25]], 
         Cell[
          StyleData["CodeText", "Printout"], 
          CellMargins -> {{66, 10}, {4, 12}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["CodeCaption"], CellFrame -> {{0, 0}, {0, 0}}, 
          CellMargins -> {{66, 10}, {4, 12}}, PageBreakBelow -> False, 
          CellFrameColor -> GrayLevel[0.4], LineSpacing -> {1, 1, 1}, 
          MenuSortingValue -> 10010, MenuCommandKey :> "1", FontFamily -> 
          "Source Sans Pro", FontSize -> 16, FontColor -> GrayLevel[0.25]], 
         Cell[
          StyleData["CodeCaption", "Printout"], 
          CellMargins -> {{66, 10}, {4, 12}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["DisplayFormula"], CellMargins -> {{99, 15}, {2, 12}}, 
          StripStyleOnPaste -> True, DefaultFormatType -> 
          DefaultInputFormatType, 
          HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"},
           LanguageCategory -> "Formula", ScriptLevel -> 0, 
          SingleLetterItalics -> True, MenuSortingValue -> 1700, FontFamily -> 
          "Baskerville", FontSize -> 16, FontWeight -> "Regular", FontSlant -> 
          "Plain", 
          PrivateFontOptions -> {"FontPostScriptName" -> "Automatic"}, 
          FontColor -> GrayLevel[0.2], 
          UnderoverscriptBoxOptions -> {LimitsPositioning -> True}], 
         Cell[
          StyleData["DisplayFormula", "Printout"], 
          CellMargins -> {{99, Inherited}, {Inherited, Inherited}}]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData[
          "DisplayFormulaNumbered", StyleDefinitions -> 
           StyleData["DisplayFormula"]], CellFrameLabels -> {{None, 
             Cell[
              TextData[{"(", 
                CounterBox["DisplayFormulaNumbered"], ")"}], 
              "DisplayFormulaEquationNumber", CellSize -> {30, Inherited}]}, {
            None, None}}, 
          CellFrameLabelMargins -> {{Inherited, 6}, {Inherited, Inherited}}, 
          TextAlignment -> Left, CounterIncrements -> 
          "DisplayFormulaNumbered", MenuSortingValue -> 1710, FontFamily -> 
          "Baskerville", FontSize -> 16, FontWeight -> "Regular", FontSlant -> 
          "Plain", 
          PrivateFontOptions -> {"FontPostScriptName" -> "Automatic"}], 
         Cell[
          StyleData["DisplayFormulaNumbered", "Printout"], 
          CellMargins -> {{99, 19}, {Inherited, Inherited}}, 
          CellFrameMargins -> {{Inherited, Inherited}, {
            Inherited, Inherited}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Print"], CellMargins -> {{99, 10}, {4, 4}}, FontSize -> 
          15], 
         Cell[
          StyleData["Print", "Presentation"], 
          CellMargins -> {{100, Inherited}, {1.5 Inherited, 1.5 Inherited}}], 
         
         Cell[
          StyleData["Print", "SlideShow"], 
          CellMargins -> {{
            0.135 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}], 0.01 
             FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}]}, {8, 15}}, 
          FontSize -> 18], 
         Cell[
          StyleData["Print", "Condensed"], 
          CellMargins -> {{18, Inherited}, {Inherited, Inherited}}], 
         Cell[
          StyleData["Print", "Printout"], 
          CellMargins -> {{49, Inherited}, {Inherited, Inherited}}], 
         Cell[
          StyleData["Print", "PrintoutGray"], 
          CellMargins -> {{49, Inherited}, {Inherited, Inherited}}]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Item"], CellDingbat -> 
          StyleBox[
           "\:203a", Alignment -> Baseline, FontFamily -> Automatic, FontSize -> 
            18, FontWeight -> GrayLevel[0], 
            RGBColor[
            0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
          CellMargins -> {{81, 10}, {4, 8}}, ReturnCreatesNewCell -> True, 
          StyleKeyMapping -> {"Tab" -> "Subitem", "*" -> "Subitem"}, 
          CellGroupingRules -> {"GroupTogetherNestedGrouping", 15000}, 
          CellFrameLabelMargins -> 4, CounterIncrements -> "Item", 
          CounterAssignments -> {{"Subitem", 0}, {"Subsubitem", 0}}, 
          MenuSortingValue -> 1600, FontFamily -> "Source Sans Pro", FontSize -> 
          15], 
         Cell[
          StyleData["Item", "Printout"], CellDingbat -> 
          StyleBox[
           "\:203a", Alignment -> Baseline, FontSize -> 17, FontFamily -> 
            "Automatic", FontWeight -> "Black", 
            RGBColor[
            0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
          CellMargins -> {{80, Inherited}, {Inherited, Inherited}}, 
          CellDingbatMargin -> 2, 
          CellGroupingRules -> {
           "GroupTogetherNestedGrouping", 1.073741821*^9}, 
          CellChangeTimes -> {{3.8855684925344043`*^9, 
           3.885568495926271*^9}, {3.885643888233819*^9, 
           3.885643900721007*^9}}]}, Open]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["ItemParagraph"], CellMargins -> {{81, 10}, {4, 1}}, 
          ReturnCreatesNewCell -> True, 
          StyleKeyMapping -> {"Tab" -> "SubitemParagraph"}, 
          CellGroupingRules -> {"GroupTogetherNestedGrouping", 15000}, 
          MenuSortingValue -> 1600, FontFamily -> "Source Sans Pro", FontSize -> 
          15, FontColor -> GrayLevel[0.2]], 
         Cell[
          StyleData["ItemParagraph", "Printout"], 
          CellMargins -> {{80, Inherited}, {Inherited, 0.5 Inherited}}]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["ItemNumbered"], CellDingbat -> Cell[
            TextData[{
              CounterBox["ItemNumbered"], "."}], FontWeight -> "Bold"], 
          CellMargins -> {{85, 10}, {4, 8}}, ReturnCreatesNewCell -> True, 
          StyleKeyMapping -> {"Tab" -> "SubitemNumbered"}, 
          CellGroupingRules -> {"GroupTogetherNestedGrouping", 15000}, 
          CellFrameLabelMargins -> 4, CounterIncrements -> "ItemNumbered", 
          CounterAssignments -> {{"SubitemNumbered", 0}, {
            "SubsubitemNumbered", 0}}, MenuSortingValue -> 1630, FontFamily -> 
          "Source Sans Pro", FontSize -> 15], 
         Cell[
          StyleData["ItemNumbered", "Printout"], 
          CellMargins -> {{90, Inherited}, {Inherited, Inherited}}]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Subitem"], CellDingbat -> 
          StyleBox[
           "\:203a", Alignment -> Baseline, FontSize -> 18, FontWeight -> 
            GrayLevel[0], 
            RGBColor[
            0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
          CellMargins -> {{105, 12}, {4, 4}}, ReturnCreatesNewCell -> True, 
          StyleKeyMapping -> {
           "Tab" -> "Subsubitem", "*" -> "Subsubitem", "Backspace" -> 
            "Item", $CellContext`KeyEvent[
             "Tab", $CellContext`Modifiers -> {"Shift"}] -> "Item"}, 
          CellGroupingRules -> {"ItemGrouping", 80}, CellFrameLabelMargins -> 
          4, CounterIncrements -> "Subitem", 
          CounterAssignments -> {{"Subsubitem", 0}}, MenuSortingValue -> 1610,
           FontFamily -> "Source Sans Pro", FontSize -> 14], 
         Cell[
          StyleData["Subitem", "Printout"], CellDingbat -> 
          StyleBox[
           "\:203a", Alignment -> Baseline, FontSize -> 17, FontFamily -> 
            "Automatic", FontWeight -> "Black", 
            RGBColor[
            0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
          CellMargins -> {{105, Inherited}, {Inherited, Inherited}}]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Subsubitem"], CellDingbat -> 
          StyleBox[
           "\:203a", Alignment -> Baseline, FontSize -> 18, FontWeight -> 
            GrayLevel[0], 
            RGBColor[0.6, 0.6, 0.6]], CellMargins -> {{129, 12}, {4, 4}}, 
          ReturnCreatesNewCell -> True, 
          StyleKeyMapping -> {
           "Backspace" -> 
            "Subitem", $CellContext`KeyEvent[
             "Tab", $CellContext`Modifiers -> {"Shift"}] -> "Subitem"}, 
          CellGroupingRules -> {"ItemGrouping", 90}, CellFrameLabelMargins -> 
          4, CounterIncrements -> "Subsubitem", MenuSortingValue -> 1620, 
          FontFamily -> "Source Sans Pro", FontSize -> 13], 
         Cell[
          StyleData["Subsubitem", "Printout"], CellDingbat -> 
          StyleBox[
           "\:203a", Alignment -> Baseline, FontSize -> 18, FontWeight -> 
            GrayLevel[0], 
            GrayLevel[0.65]], 
          CellMargins -> {{129, Inherited}, {Inherited, Inherited}}]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Note"], CellFrame -> {{0, 0}, {0, 1}}, 
          CellMargins -> {{66, 0}, {8, 6}}, ReturnCreatesNewCell -> True, 
          StyleKeyMapping -> {"Tab" -> "SubitemParagraph"}, 
          CellGroupingRules -> {"GroupTogetherNestedGrouping", 15000}, 
          CellFrameMargins -> {{14, 14}, {12, 12}}, CellFrameColor -> 
          RGBColor[0.901961, 0.411765, 0.027451], 
          LineSpacing -> {1.2, 1., 2.}, MenuSortingValue -> 1600, FontFamily -> 
          "Source Sans Pro", FontSize -> 15, FontColor -> GrayLevel[0.2], 
          Background -> RGBColor[1., 0.9647058823529412, 0.9411764705882353]], 
         Cell[
          StyleData["Note", "Printout"], CellMargins -> {{66, 0}, {10, 8}}, 
          FontSize -> 14]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Echo"], 
          CellMargins -> {{99, Inherited}, {Inherited, Inherited}}], 
         Cell[
          StyleData["Echo", "Printout"], 
          CellMargins -> {{99, Inherited}, {Inherited, Inherited}}]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["EchoTiming"], 
          CellMargins -> {{99, Inherited}, {Inherited, Inherited}}], 
         Cell[
          StyleData["EchoTiming", "Printout"], 
          CellMargins -> {{99, Inherited}, {Inherited, Inherited}}]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Epigraph"], CellMargins -> {{100, 78}, {6, 24}}, 
          CellFrameLabels -> {{None, None}, {None, None}}, 
          CellFrameLabelMargins -> 8, TextAlignment -> Left, Hyphenation -> 
          True, HyphenationOptions -> {"HyphenationMinLengths" -> {3, 5}}, 
          LineSpacing -> {1, 2}, TabSpacings -> {1.2, 2.5}, FontFamily -> 
          "Source Sans Pro", FontSize -> 18, FontWeight -> "Plain", FontSlant -> 
          "Plain"], 
         Cell[
          StyleData["Epigraph", "Printout", StyleDefinitions -> None]]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["EpigraphAuthor"], CellMargins -> {{125, 100}, {12, 12}}, 
          TextAlignment -> Left, LineSpacing -> {1, 2}, 
          ParagraphIndent -> -17, TabSpacings -> {1.5, 2.5}, FontFamily -> 
          "Source Sans Pro", FontSize -> 16, FontWeight -> "Plain", FontSlant -> 
          "Plain", FontTracking -> -0.05], 
         Cell[
          StyleData["EpigraphAuthor", "Printout", StyleDefinitions -> None]]},
         Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["ReferenceSection"], CellFrame -> {{0, 0}, {0, 3}}, 
          CellMargins -> {{64, Inherited}, {8, 30}}, 
          CellGroupingRules -> {"SectionGrouping", 60}, PageBreakBelow -> 
          False, CellFrameMargins -> {{8, 8}, {4, 6}}, CellFrameColor -> 
          RGBColor[0.901961, 0.411765, 0.027451], FontFamily -> 
          "Source Sans Pro", FontSize -> 18, FontSlant -> "Italic", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`], 
          GridBoxOptions -> {GridBoxAlignment -> {}}], 
         Cell[
          StyleData["ReferenceSection", "Printout"], 
          CellMargins -> {{64, Inherited}, {8, 30}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Reference"], CellDingbat -> Cell[
            TextData[{
              CounterBox["Reference"]}], "SR", FontSize -> 13, 
            CellSize -> {30, Inherited}, TextAlignment -> Right], 
          CellMargins -> {{80, 10}, {3, 4}}, 
          CellFrameLabels -> {{None, None}, {None, None}}, 
          CellFrameLabelMargins -> 8, 
          CellChangeTimes -> {{3.738599543211059*^9, 3.738599549834622*^9}}, 
          LineSpacing -> {1, 2}, ParagraphIndent -> -8, 
          TabSpacings -> {0.7, 2.5}, CounterIncrements -> "Reference", 
          MenuSortingValue -> 1870, FontFamily -> "Source Sans Pro", FontSize -> 
          14, FontWeight -> "Plain", FontSlant -> "Plain"], 
         Cell[
          StyleData["Reference", "Printout", StyleDefinitions -> None], 
          CellMargins -> {{66, 10}, {3, 4}}, TabSpacings -> {1.2, 2.5}]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["TextFirst"], CellMargins -> {{66, 10}, {4, 72}}, 
          ReturnCreatesNewCell -> True, FontFamily -> "Baskerville", FontSize -> 
          18, FontColor -> GrayLevel[0]], 
         Cell[
          StyleData["Text", "Printout"], CellMargins -> {{66, 10}, {7, 7}}]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Text"], CellMargins -> {{66, 10}, {4, 12}}, 
          ReturnCreatesNewCell -> True, 
          CellChangeTimes -> {{3.968834509197134*^9, 3.968834509700926*^9}}, 
          FontFamily -> "Baskerville", FontSize -> 18, FontColor -> 
          RGBColor[
           0.050002574846150734`, 0.050002574846150734`, 
            0.050002574846150734`]], 
         Cell[
          StyleData["Text", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["SmallText"], CellMargins -> {{66, 10}, {6, 6}}, 
          LineSpacing -> {1, 3}, TabSpacings -> {2.5}, LanguageCategory -> 
          "NaturalLanguage", CounterIncrements -> "SmallText", 
          MenuSortingValue -> 1750, StyleMenuListing -> None, FontFamily -> 
          "Source Sans Pro", FontSize -> 14, FontColor -> GrayLevel[0.2]], 
         Cell[
          StyleData["SmallText", "Printout"], 
          CellMargins -> {{66, 10}, {7, 7}}, Hyphenation -> True]}, Closed]], 
      
      Cell[
       CellGroupData[{
         Cell[
          StyleData["ResourcesText"], CellMargins -> {{66, 10}, {2, 0}}, 
          ReturnCreatesNewCell -> True, FontFamily -> "Source Sans Pro", 
          FontSize -> 14, FontWeight -> "Plain", FontSlant -> "Plain", 
          FontColor -> GrayLevel[0]], 
         Cell[
          StyleData["ResourcesText", "Printout"], 
          CellMargins -> {{66, 10}, {2, 0}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["ResourcesLink"], CellMargins -> {{66, 10}, {2, 0}}, 
          ReturnCreatesNewCell -> True, FontFamily -> "Source Sans Pro", 
          FontSize -> 14, FontWeight -> "Plain", FontSlant -> "Italic", 
          FontColor -> GrayLevel[0]], 
         Cell[
          StyleData["ResourcesLink", "Printout"], 
          CellMargins -> {{66, 10}, {2, 0}}]}, Open]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Input"], CellMargins -> {{99, 10}, {3, 7}}, CellEpilog :> 
          Quiet[Needs["WolframBookTools`"]; 
            WolframBookTools`AddCaptionsToRegeneratedOutput[]], SpanMaxSize -> 
          1, FontSize -> 15], 
         Cell[
          StyleData["Input", "Printout"], CellMargins -> {{99, 10}, {3, 7}}]},
         Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Output"], CellMargins -> {{99, 10}, {14, 7}}, FontSize -> 
          15], 
         Cell[
          StyleData["Output", "Printout"], 
          CellMargins -> {{99, 10}, {14, 7}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["InputOnly"], CellMargins -> {{99, 10}, {25, 10}}, 
          SpanMaxSize -> 1, MenuSortingValue -> 1500, FontSize -> 15], 
         Cell[
          StyleData["InputOnly", "Printout"], 
          CellMargins -> {{99, 10}, {15, 10}}]}, Closed]], 
      Cell[
       StyleData["InitializationCell"], Background -> None], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["CellLabel"], 
          CellLabelMargins -> {{18, Inherited}, {Inherited, Inherited}}, 
          LanguageCategory -> None, StyleMenuListing -> None, FontFamily -> 
          "Roboto", FontSize -> 9, FontWeight -> "Regular", FontSlant -> 
          "Plain", FontColor -> GrayLevel[0.5]], 
         Cell[
          StyleData["CellLabel", "Printout"], FontSize -> 8, FontColor -> 
          GrayLevel[0.3]]}, Closed]], 
      Cell[
       StyleData[
       "CellLabelExpired", StyleDefinitions -> StyleData["CellLabel"]], 
       CellLabelMargins -> 6, FontSlant -> Italic, FontTracking -> 0.4, 
       FontColor -> GrayLevel[0.3]], 
      Cell[
       StyleData["IconizedDefaultName"], FontSize -> 12, 
       PrivateFontOptions -> {"OperatorSubstitution" -> False}, FontColor -> 
       GrayLevel[0.15]], 
      Cell[
       StyleData["IconizedFrame"], 
       TemplateBoxOptions -> {
        DisplayFunction -> (
          FrameBox[#, BaselinePosition -> Baseline, 
           FrameMargins -> {{0, 0}, {1, 1}}, FrameStyle -> GrayLevel[0.65], 
           Background -> GrayLevel[0.96], RoundingRadius -> 4, 
           DefaultBaseStyle -> {
            "DialogStyle", FontFamily -> "Roboto", FontSize -> 11}]& ), 
         Tooltip -> None}], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Message"], Editable -> False, 
          CellMargins -> {{66, Inherited}, {Inherited, Inherited}}, 
          CellGroupingRules -> "OutputGrouping", TextClipboardType -> 
          "PlainText", StripStyleOnPaste -> True, PageBreakWithin -> False, 
          GroupPageBreakWithin -> False, GeneratedCell -> True, 
          CellAutoOverwrite -> True, ShowCellLabel -> False, 
          DefaultFormatType -> DefaultOutputFormatType, ContextMenu -> 
          FEPrivate`FrontEndResource["ContextMenus", "Output"], 
          ShowAutoStyles -> False, ShowSyntaxStyles -> False, 
          AutoStyleOptions -> {
           "StringStyle" -> None, "SyntaxErrorStyle" -> None}, 
          HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"},
           AutoItalicWords -> {}, AutoQuoteCharacters -> {}, 
          PasteAutoQuoteCharacters -> {}, LanguageCategory -> None, 
          FormatType -> InputForm, ShowStringCharacters -> False, 
          CounterIncrements -> "Message", MenuSortingValue -> 1600, 
          StyleMenuListing -> None, FontFamily :> 
          CurrentValue["PanelFontFamily"], FontSize -> 11, FontColor -> 
          RGBColor[0.5072, 0.16933, 0.15221]], 
         Cell[
          StyleData["Message", "Printout"], 
          CellMargins -> {{100, Inherited}, {Inherited, Inherited}}, 
          CellFrameLabels -> {{None, None}, {None, None}}, FontColor -> 
          GrayLevel[0]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["ExerciseInput", StyleDefinitions -> StyleData["Input"]], 
          CellMargins -> {{106, 10}, {4, 7}}, 
          GeneratedCellStyles -> {"Output" -> "ExerciseOutput"}, 
          ShowCellLabel -> False, SpanMaxSize -> 1, FontSize -> 14], 
         Cell[
          StyleData["ExerciseInput", "Printout"], 
          CellMargins -> {{106, 10}, {4, 7}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData[
          "ExerciseOutput", StyleDefinitions -> StyleData["Output"]], 
          CellMargins -> {{106, 10}, {10, 4}}, ShowCellLabel -> False, 
          FontSize -> 14], 
         Cell[
          StyleData["ExerciseOutput", "Printout"], 
          CellMargins -> {{106, 10}, {10, 4}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Picture"], CellMargins -> {{66, 10}, {10, 10}}, 
          CellGroupingRules -> "GraphicsGrouping", StyleMenuListing -> None], 
         
         Cell[
          StyleData["Picture", "Printout"], 
          CellMargins -> {{66, 10}, {8, 8}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Comment"], FontFamily -> "Verdana", FontSize -> 13, 
          FontColor -> RGBColor[0.3, 0.3, 0.2], Background -> 
          RGBColor[1, 0.9, 0.8]], 
         Cell[
          StyleData["Comment", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Suggestion"], 
          CellFrameLabels -> {{Inherited, Inherited}, {Inherited, 
             Cell[
              BoxData[
               TagBox[
                GridBox[{{
                   ButtonBox[
                   "\"  Insert  \"", 
                    ButtonFunction :> (Needs["DocuTools`"]; 
                    DocuTools`DocuToolsLoader[]; 
                    DocuTools`ReplaceWithSuggestion[]), Evaluator -> 
                    Automatic, 
                    BaseStyle -> {FontSize -> 10, FontFamily -> "Verdana"}, 
                    ContentPadding -> False, Appearance -> Automatic, Method -> 
                    "Queued"], 
                   ButtonBox[
                   "\"  Stet  \"", 
                    ButtonFunction :> (Needs["DocuTools`"]; 
                    DocuTools`DocuToolsLoader[]; DocuTools`StetSuggestion[]), 
                    Evaluator -> Automatic, 
                    BaseStyle -> {FontSize -> 10, FontFamily -> "Verdana"}, 
                    Appearance -> Automatic, Method -> "Queued"], "    ", 
                   ButtonBox[
                   "\"  Next  \"", 
                    ButtonFunction :> (Needs["DocuTools`"]; 
                    DocuTools`DocuToolsLoader[]; 
                    DocuTools`FindNextSuggestion[]), Evaluator -> Automatic, 
                    BaseStyle -> {FontSize -> 10, FontFamily -> "Verdana"}, 
                    Appearance -> Automatic, Method -> "Queued"], 
                   ButtonBox[
                   "\"  Previous  \"", 
                    ButtonFunction :> (Needs["DocuTools`"]; 
                    DocuTools`DocuToolsLoader[]; 
                    DocuTools`FindPreviousSuggestion[]), Evaluator -> 
                    Automatic, 
                    BaseStyle -> {FontSize -> 10, FontFamily -> "Verdana"}, 
                    Appearance -> Automatic, Method -> "Queued"], "\"\""}}, 
                 AutoDelete -> False, 
                 GridBoxItemSize -> {
                  "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
                "Grid"]], ShowStringCharacters -> False, Background -> 
              None]}}, Background -> RGBColor[1, 0.8, 0.8]], 
         Cell[
          StyleData["Suggestion", "Printout"], 
          CellElementSpacings -> {"CellMinHeight" -> 0.1}, CellOpen -> False, 
          CellFrameMargins -> 0, FontSize -> 0.1, Magnification -> 0.01]}, 
        Open]], 
      Cell[
       StyleData["Tentative"], 
       CellBracketOptions -> {
        "Color" -> RGBColor[
          0.30000000000000016`, 0.6000000000000003, 0.7000000000000003], 
         "Thickness" -> 5}, Evaluatable -> False, CellFrameMargins -> 4, 
       StyleMenuListing -> None, Background -> 
       RGBColor[0.8500000000000003, 0.9500000000000003, 1]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["PrintOnly"], 
          CellBracketOptions -> {
           "Color" -> RGBColor[0.89, 0.867, 0.99], "Thickness" -> 5}, 
          CellFrameMargins -> 4, StyleMenuListing -> None, Background -> 
          RGBColor[0.89, 0.867, 0.99]], 
         Cell[
          StyleData["PrintOnly", "Printout"], 
          CellElementSpacings -> {"CellMinHeight" -> 0.1}, CellOpen -> False, 
          CellFrameMargins -> 0, FontSize -> 0.1, Magnification -> 0.01], 
         Cell[
          StyleData["Tentative", "Printout"], 
          CellElementSpacings -> {"CellMinHeight" -> 0.1}, CellOpen -> False, 
          CellFrameMargins -> 0, FontSize -> 0.1, Magnification -> 0.01]}, 
        Open]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["WebOnly"], 
          CellBracketOptions -> {
           "Color" -> RGBColor[0.91, 0.92, 0.9], "Thickness" -> 5}, 
          CellFrameMargins -> 4, StyleMenuListing -> None, Background -> 
          RGBColor[0.91, 0.92, 0.86]], 
         Cell[
          StyleData["WebOnly", "Printout"], 
          CellElementSpacings -> {"CellMinHeight" -> 0.1}, CellOpen -> False, 
          CellFrameMargins -> 0, FontSize -> 0.1, Magnification -> 0.01]}, 
        Open]], 
      Cell[
       StyleData["Lockdown"], 
       CellBracketOptions -> {
        "Color" -> RGBColor[0.8, 0.5, 0.4], "Thickness" -> 3}, Evaluatable -> 
       False, StyleMenuListing -> None], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["IndexField"], CellFrame -> True, CellFrameColor -> 
          GrayLevel[0.7], FontFamily -> "Verdana", FontSize -> 12], 
         Cell[
          StyleData["IndexField", "Invisibles"], CellFrame -> False, 
          ShowCellBracket -> False, CellOpen -> False, FontSize -> 1]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["ExplanationField"], CellFrame -> True, CellFrameColor -> 
          GrayLevel[0.7], FontFamily -> "Verdana", FontSize -> 12], 
         Cell[
          StyleData["ExplanationField", "Invisibles"], CellFrame -> False, 
          ShowCellBracket -> False, CellOpen -> False, FontSize -> 1]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["EnglishHighlight"], FontFamily -> "WolframCodeSans"], 
         Cell[
          StyleData["EnglishHighlight", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["SolvedExample"], CellMargins -> {{66, 30}, {0, 16}}, 
          CellBracketOptions -> {"OverlapContent" -> True}, 
          CellFrameMargins -> {{25, 13}, {10, 25}}, 
          LightDarkAutoColorRules -> <|"AllColors" -> True|>, 
          CounterIncrements -> "SolvedExample", FontFamily -> 
          "Source Sans Pro", FontSize -> 16.5, FontWeight -> "SemiBold", 
          FontColor -> 
          RGBColor[
           0.050002574846150734`, 0.050002574846150734`, 
            0.050002574846150734`], Background -> Hue[0.085, 0.07, 0.95]], 
         Cell[
          StyleData["SolvedExample", "Printout"], 
          CellMargins -> {{66, 0}, {0, 16}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData[
          "SolvedExampleNote", StyleDefinitions -> StyleData["Text"]], 
          CellMargins -> {{66, 30}, {0, 0}}, 
          CellBracketOptions -> {"OverlapContent" -> True}, 
          CellFrameMargins -> {{25, 13}, {10, 10}}, 
          LightDarkAutoColorRules -> <|"AllColors" -> True|>, FontSize -> 17, 
          FontColor -> 
          RGBColor[
           0.050002574846150734`, 0.050002574846150734`, 
            0.050002574846150734`], Background -> Hue[0.085, 0.07, 0.95]], 
         Cell[
          StyleData["SolvedExampleNote", "Printout"], 
          CellMargins -> {{66, 0}, {0, -6}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData[
          "SolvedExampleDisplayFormula", StyleDefinitions -> 
           StyleData["DisplayFormula"]], CellMargins -> {{66, 30}, {0, 0}}, 
          CellBracketOptions -> {"OverlapContent" -> True}, 
          CellFrameMargins -> {{32, Inherited}, {12, 8}}, TextAlignment -> 
          Left, LightDarkAutoColorRules -> <|"AllColors" -> True|>, FontSize -> 
          14, FontColor -> 
          RGBColor[
           0.050002574846150734`, 0.050002574846150734`, 
            0.050002574846150734`], Background -> Hue[0.085, 0.07, 0.95]], 
         Cell[
          StyleData["SolvedExampleDisplayFormula", "Printout"], 
          CellMargins -> {{66, 0}, {0, -6}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData[
          "SolvedExampleDisplayFormulaNumbered", StyleDefinitions -> 
           StyleData["DisplayFormula"]], CellMargins -> {{66, 40}, {0, 0}}, 
          CellBracketOptions -> {"OverlapContent" -> True}, 
          CellFrameMargins -> {{32, 46}, {12, 8}}, 
          CellFrameLabels -> {{None, 
             Cell[
              TextData[{"(", 
                CounterBox["SolvedExampleDisplayFormulaNumbered"], ")"}], 
              "DisplayFormulaEquationNumber", CellSize -> {30, Automatic}]}, {
            None, None}}, 
          CellFrameLabelMargins -> {{Inherited, -40}, {Inherited, Inherited}},
           TextAlignment -> Left, 
          LightDarkAutoColorRules -> <|"AllColors" -> True|>, 
          CounterIncrements -> "SolvedExampleDisplayFormulaNumbered", 
          FontSize -> 14, FontColor -> 
          RGBColor[
           0.050002574846150734`, 0.050002574846150734`, 
            0.050002574846150734`], Background -> Hue[0.085, 0.07, 0.95]], 
         Cell[
          StyleData["SolvedExampleDisplayFormulaNumbered", "Printout"], 
          CellMargins -> {{66, 0}, {0, -6}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData[
          "SolvedExampleInput", StyleDefinitions -> StyleData["Input"]], 
          CellMargins -> {{66, 30}, {0, 0}}, 
          CellBracketOptions -> {"OverlapContent" -> True}, 
          GeneratedCellStyles -> {
           "Message" -> "SolvedExampleMessage", "Output" -> 
            "SolvedExampleOutput"}, 
          CellFrameMargins -> {{32, Inherited}, {3, 7}}, 
          LightDarkAutoColorRules -> <|"AllColors" -> True|>, FontColor -> 
          RGBColor[
           0.050002574846150734`, 0.050002574846150734`, 
            0.050002574846150734`], Background -> Hue[0.085, 0.07, 0.95]], 
         Cell[
          StyleData["SolvedExampleInput", "Printout"], 
          CellMargins -> {{66, 0}, {0, -7}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData[
          "SolvedExampleOutput", StyleDefinitions -> StyleData["Output"]], 
          CellMargins -> {{66, 30}, {0, 0}}, 
          CellBracketOptions -> {"OverlapContent" -> True}, 
          CellFrameMargins -> {{32, Inherited}, {14, 7}}, 
          LightDarkAutoColorRules -> <|"AllColors" -> True|>, FontColor -> 
          RGBColor[
           0.050002574846150734`, 0.050002574846150734`, 
            0.050002574846150734`], Background -> Hue[0.085, 0.07, 0.95]], 
         Cell[
          StyleData["SolvedExampleOutput", "Printout"], 
          CellMargins -> {{66, 0}, {6, -6}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["SolvedExampleMessage"], 
          CellMargins -> {{66, 30}, {0, 0}}, 
          CellBracketOptions -> {"OverlapContent" -> True}, 
          CellFrameMargins -> {{25, 13}, {10, 10}}, 
          LightDarkAutoColorRules -> <|"AllColors" -> True|>, FontColor -> 
          RGBColor[
           0.050002574846150734`, 0.050002574846150734`, 
            0.050002574846150734`], Background -> Hue[0.085, 0.07, 0.95]], 
         Cell[
          StyleData["SolvedExampleMessage", "Printout"], 
          CellMargins -> {{66, 0}, {0, -6}}]}, Closed]], 
      Cell[
       StyleData["SolvedExampleEndCap"], CellMargins -> {{66, 30}, {0, 0}}, 
       CellBracketOptions -> {"OverlapContent" -> True}, 
       CellElementSpacings -> {"CellMinHeight" -> 20}, 
       CellFrameMargins -> {{10, 13}, {0, 0}}, 
       LightDarkAutoColorRules -> <|"AllColors" -> True|>, FontSize -> 2, 
       FontColor -> 
       RGBColor[
        0.050002574846150734`, 0.050002574846150734`, 0.050002574846150734`], 
       Background -> Hue[0.085, 0.07, 0.95]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Theorem"], Editable -> False, 
          CellMargins -> {{66, 30}, {0, 16}}, 
          CellBracketOptions -> {"OverlapContent" -> True}, 
          CellFrameMargins -> {{25, 13}, {0, 25}}, 
          CellChangeTimes -> {3.968922600990673*^9}, 
          LightDarkAutoColorRules -> <|"AllColors" -> True|>, 
          CounterIncrements -> "Subsection", FontFamily -> "Source Sans Pro", 
          FontSize -> 16.5, FontWeight -> "SemiBold", FontColor -> 
          RGBColor[
           0.00010000076130382223`, 0.007800042619928998, 
            0.13000297516585294`], Background -> Hue[0.57, 0.098, 0.996], 
          GridBoxOptions -> {
           GridBoxAlignment -> {
             "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
            GridBoxSpacings -> {
             "Columns" -> {{Automatic}}, "RowsIndexed" -> {2 -> 0}}}, 
          GraphicsBoxOptions -> {
           ImagePadding -> None, ImageSize -> {900, 1}, PlotRangePadding -> 
            0}], 
         Cell[
          StyleData["Theorem", "Printout"], CellMargins -> {{66, 0}, {0, 16}},
           CellChangeTimes -> {{3.965900023638689*^9, 
           3.965900023829352*^9}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData[
          "TheoremStatement", StyleDefinitions -> StyleData["Text"]], 
          CellMargins -> {{66, 30}, {0, 0}}, 
          CellBracketOptions -> {"OverlapContent" -> True}, 
          CellFrameMargins -> {{25, 13}, {10, 10}}, 
          LightDarkAutoColorRules -> <|"AllColors" -> True|>, FontSize -> 17, 
          FontColor -> 
          RGBColor[
           0.00010000076130382223`, 0.007800042619928998, 
            0.13000297516585294`], Background -> Hue[0.57, 0.098, 0.996]], 
         Cell[
          StyleData["TheoremStatement", "Printout"], 
          CellMargins -> {{66, 0}, {0, 0}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData[
          "ProofTheoremDisplayFormula", StyleDefinitions -> 
           StyleData["DisplayFormula"]], CellMargins -> {{66, 30}, {0, 0}}, 
          CellBracketOptions -> {"OverlapContent" -> True}, 
          CellFrameMargins -> {{32, Inherited}, {12, 8}}, 
          CellFrameLabelMargins -> {{Inherited, -26}, {Inherited, Inherited}},
           TextAlignment -> Left, 
          LightDarkAutoColorRules -> <|"AllColors" -> True|>, 
          MenuSortingValue -> 1710, FontFamily -> "Baskerville", FontSize -> 
          14, FontWeight -> "Regular", FontSlant -> "Plain", 
          PrivateFontOptions -> {"FontPostScriptName" -> "Automatic"}, 
          FontColor -> 
          RGBColor[
           0.00010000076130382223`, 0.007800042619928998, 
            0.13000297516585294`], Background -> Hue[0.57, 0.098, 0.996]], 
         Cell[
          StyleData["ProofTheoremDisplayFormula", "Printout"], 
          CellMargins -> {{66, 0}, {0, 0}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData[
          "ProofTheoremDisplayFormulaNumbered", StyleDefinitions -> 
           StyleData["DisplayFormula"]], CellMargins -> {{66, 40}, {0, 0}}, 
          CellBracketOptions -> {"OverlapContent" -> True}, 
          CellFrameMargins -> {{32, 46}, {12, 8}}, 
          CellFrameLabels -> {{None, 
             Cell[
              TextData[{"(", 
                CounterBox["ProofTheoremDisplayFormulaNumbered"], ")"}], 
              "DisplayFormulaEquationNumber", CellSize -> {30, Automatic}]}, {
            None, None}}, 
          CellFrameLabelMargins -> {{Inherited, -40}, {Inherited, Inherited}},
           TextAlignment -> Left, 
          LightDarkAutoColorRules -> <|"AllColors" -> True|>, 
          CounterIncrements -> "ProofTheoremDisplayFormulaNumbered", 
          MenuSortingValue -> 1710, FontFamily -> "Baskerville", FontSize -> 
          14, FontWeight -> "Regular", FontSlant -> "Plain", 
          PrivateFontOptions -> {"FontPostScriptName" -> "Automatic"}, 
          FontColor -> 
          RGBColor[
           0.00010000076130382223`, 0.007800042619928998, 
            0.13000297516585294`], Background -> Hue[0.57, 0.098, 0.996]], 
         Cell[
          StyleData["ProofTheoremDisplayFormulaNumbered", "Printout"], 
          CellMargins -> {{66, 0}, {0, 0}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Proof"], Editable -> False, 
          CellMargins -> {{66, 30}, {0, 0}}, 
          CellBracketOptions -> {"OverlapContent" -> True}, 
          CellFrameMargins -> {{25, 13}, {0, 20}}, 
          LightDarkAutoColorRules -> <|"AllColors" -> True|>, FontFamily -> 
          "Source Sans Pro", FontSize -> 16.5, FontWeight -> "SemiBold", 
          FontColor -> 
          RGBColor[
           0.00010000076130382223`, 0.007800042619928998, 
            0.13000297516585294`], Background -> Hue[0.57, 0.098, 0.996], 
          GridBoxOptions -> {
           GridBoxAlignment -> {
             "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
            GridBoxSpacings -> {
             "Columns" -> {{Automatic}}, "RowsIndexed" -> {2 -> 0}}}, 
          GraphicsBoxOptions -> {
           ImagePadding -> None, ImageSize -> {900, 1}, PlotRangePadding -> 
            0}], 
         Cell[
          StyleData["Proof", "Printout"], CellMargins -> {{66, 0}, {0, 0}}]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["ProofContent", StyleDefinitions -> StyleData["Text"]], 
          CellMargins -> {{66, 30}, {0, 0}}, 
          CellBracketOptions -> {"OverlapContent" -> True}, 
          CellFrameMargins -> {{25, 13}, {10, 10}}, 
          LightDarkAutoColorRules -> <|"AllColors" -> True|>, FontSize -> 17, 
          FontColor -> 
          RGBColor[
           0.00010000076130382223`, 0.007800042619928998, 
            0.13000297516585294`], Background -> Hue[0.57, 0.098, 0.996]], 
         Cell[
          StyleData["ProofContent", "Printout"], 
          CellMargins -> {{66, 0}, {0, 0}}]}, Closed]], 
      Cell[
       StyleData["ProofTheoremEndCap"], CellMargins -> {{66, 30}, {0, 0}}, 
       CellBracketOptions -> {"OverlapContent" -> True}, 
       CellElementSpacings -> {"CellMinHeight" -> 20}, 
       CellFrameMargins -> {{10, 13}, {0, 0}}, FontSize -> 2, FontColor -> 
       RGBColor[
        0.00010000076130382223`, 0.007800042619928998, 0.13000297516585294`], 
       Background -> Hue[0.57, 0.098, 0.996]], 
      Cell[
       StyleData["Banner", StyleDefinitions -> StyleData["Text"]], Editable -> 
       False, WindowToolbars -> {}, PageWidth :> WindowWidth, 
       Alignment -> {{Left, Right}, {Center, Center}}, 
       CellFrame -> {{0, 1}, {0, 0}}, ShowCellBracket -> False, 
       CellMargins -> {{0, 0}, {0, 0}}, 
       CellBracketOptions -> {"OverlapContent" -> True}, 
       CellGroupingRules -> {"SectionGrouping", 0}, CellContext -> CellGroup, 
       CellFrameMargins -> {{0, 20}, {5, 0}}, CellFrameColor -> 
       RGBColor[
        0.00009999889888604668, 0.1607913972623736, 0.4000129703059972], 
       ShowStringCharacters -> False, FontFamily -> "Source Sans Pro", 
       FontSize -> 20, FontWeight -> "SemiBold", FontColor -> GrayLevel[1], 
       Background -> 
       RGBColor[
        0.00009999889888604668, 0.1607913972623736, 0.4000129703059972]], 
      Cell[
       StyleData[
       "BannerCitationOpenerLabel", StyleDefinitions -> StyleData["Text"]], 
       WindowToolbars -> {}, Selectable -> True, PageWidth :> WindowWidth, 
       CellFrame -> {{0, 1}, {0, 0}}, ShowCellBracket -> False, 
       CellMargins -> {{0, 0}, {0, 0}}, 
       CellGroupingRules -> {"SectionGrouping", 70}, CellContext -> CellGroup,
        CellFrameMargins -> {{28, 0}, {4, 5}}, CellFrameColor -> 
       RGBColor[0.8627719122171761, 0.9333285528421761, 0.9999789434671761], 
       ShowStringCharacters -> False, FontFamily -> "Source Sans Pro", 
       FontSize -> 11, FontWeight -> "Regular", FontColor -> 
       RGBColor[
        0.27843797333540327`, 0.40392625458540327`, 0.5137851263583065], 
       Background -> 
       RGBColor[0.8627719122171761, 0.9333285528421761, 0.9999789434671761]], 
      
      Cell[
       StyleData["BannerCitation", StyleDefinitions -> StyleData["Text"]], 
       WindowToolbars -> {}, Selectable -> True, PageWidth :> WindowWidth, 
       CellFrame -> {{0, 1}, {0, 0}}, ShowCellBracket -> False, 
       CellMargins -> {{0, 0}, {0, -1}}, 
       CellElementSpacings -> {"CellMinHeight" -> 2, "ClosedCellHeight" -> 1},
        Copyable -> True, CellContext -> CellGroup, 
       CellFrameMargins -> {{28, 0}, {8, 0}}, CellFrameColor -> 
       RGBColor[0.8627719122171761, 0.9333285528421761, 0.9999789434671761], 
       ShowStringCharacters -> False, FontFamily -> "Source Sans Pro", 
       FontSize -> 11, FontWeight -> "Bold", FontColor -> 
       RGBColor[
        0.27843797333540327`, 0.40392625458540327`, 0.5137851263583065], 
       Background -> 
       RGBColor[0.8627719122171761, 0.9333285528421761, 0.9999789434671761]], 
      
      Cell[
       StyleData[
       "BannerPreReleaseLabel", StyleDefinitions -> 
        StyleData["BannerCitationOpenerLabel"]], 
       CellFrameMargins -> {{0, 30}, {2, 0}}, 
       ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{
            
            NotebookLocate[#2, "OpenInNewWindow" -> 
             CurrentValue["HyperlinkModifierKey"]]}]& ), Evaluator -> None, 
         Method -> "Queued"}], 
      Cell[
       StyleData["BannerHeading"], MenuSortingValue -> None, FontFamily -> 
       "Source Sans Pro", FontSize -> 11, FontWeight -> "Regular", FontColor -> 
       RGBColor[
        0.9999903558940054, 0.5650486394018294, 0.14501301402226988`]]}, 
     Open]], 
   Cell[
    CellGroupData[{
      Cell[
      "Inline and special formatting", "Section", 
       CellChangeTimes -> {{3.646681732592888*^9, 3.646681749414035*^9}}], 
      Cell[
       StyleData["DateObject"], ContextMenu -> 
       FEPrivate`FrontEndResource["ContextMenus", "DateObject"], 
       TemplateBoxOptions -> {DisplayFunction -> (FrameBox[
           
           StyleBox[#, "Text", FontFamily -> "Source Sans Pro", FontSize -> 
            13, FontWeight -> "Plain", FontColor -> 
            RGBColor[
             0.12941176470588237`, 0.34509803921568627`, 
              0.43529411764705883`], ShowStringCharacters -> False], 
           Background -> Hue[0.11, 0, 0.97], FrameMargins -> {{5, 5}, {2, 2}},
            FrameStyle -> GrayLevel[0.65], RoundingRadius -> 2, 
           BaselinePosition -> Baseline, 
           BaseStyle -> {FontFamily -> "Courier"}]& ), 
         InterpretationFunction -> (#2& )}], 
      Cell[
       StyleData["DateObjectLabel"], FontWeight -> "Plain", FontColor -> 
       GrayLevel[0.2]], 
      Cell[
       StyleData["SummaryItemAnnotation"], FontColor -> GrayLevel[0.3]], 
      Cell[
       StyleData["Caption"], FontFamily :> CurrentValue["PanelFontFamily"], 
       FontSize :> 0.8 Inherited, FontWeight -> "Plain", FontSlant -> "Plain",
        FontColor :> CurrentValue[{"SystemColors", "DialogText"}], 
       TemplateBoxOptions -> {DisplayFunction -> (ButtonBox[
           
           FrameBox[#, FrameStyle -> GrayLevel[0.5], Background -> 
            GrayLevel[0.969], FrameMargins -> 7, RoundingRadius -> 3, 
            BaselinePosition -> Baseline], Active -> False, Alignment -> Left,
            Appearance -> None, BaseStyle -> {Deployed -> False}, 
           DefaultBaseStyle -> {"Pane", Background -> None}, BaselinePosition -> 
           Baseline]& ), Tooltip -> None}, 
       GraphicsBoxOptions -> {
        Axes -> False, 
         DefaultBaseStyle -> {
          "GraphicsNoFontsOrMenu", CacheGraphics -> False}, ImageSize -> 
         Dynamic[{
           Automatic, 
            3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}]}, 
       Graphics3DBoxOptions -> {
        Axes -> False, DefaultBaseStyle -> {"Graphics3DNoFontsOrMenu"}, 
         ImageSize -> 
         Dynamic[{
           Automatic, 
            3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}]}], 
      Cell[
       StyleData["GraphicsEmbeddedCaption"], FontFamily -> "Source Sans Pro", 
       FontSize -> 14], 
      Cell[
       StyleData["SummaryPanel"], FontFamily :> 
       CurrentValue["PanelFontFamily"], FontSize :> 0.8 Inherited, FontWeight -> 
       "Plain", FontSlant -> "Plain", FontColor :> 
       CurrentValue[{"SystemColors", "DialogText"}], 
       TemplateBoxOptions -> {DisplayFunction -> (ButtonBox[
           
           FrameBox[#, FrameStyle -> GrayLevel[0.5], Background -> 
            GrayLevel[0.969], FrameMargins -> 7, RoundingRadius -> 3, 
            BaselinePosition -> Baseline], Active -> False, Alignment -> Left,
            Appearance -> None, BaseStyle -> {Deployed -> False}, 
           DefaultBaseStyle -> {"Pane", Background -> None}, BaselinePosition -> 
           Baseline]& ), Tooltip -> None}, 
       GraphicsBoxOptions -> {
        Axes -> False, 
         DefaultBaseStyle -> {
          "GraphicsNoFontsOrMenu", CacheGraphics -> False}, ImageSize -> 
         Dynamic[{
           Automatic, 
            3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}]}, 
       Graphics3DBoxOptions -> {
        Axes -> False, DefaultBaseStyle -> {"Graphics3DNoFontsOrMenu"}, 
         ImageSize -> 
         Dynamic[{
           Automatic, 
            3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}]}], 
      Cell[
       StyleData["Graphics"], MenuSortingValue -> None], 
      Cell[
       StyleData["Graphics3D"], MenuSortingValue -> None], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["StandardForm"], LineSpacing -> {1.25, 0, 2}, FontFamily -> 
          "Source Sans Code"], 
         Cell[
          StyleData["StandardForm", "Printout"], LineSpacing -> {1.25, 0, 2}, 
          FontFamily -> "Source Sans Code"]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["OutputForm"], LineSpacing -> {0.6, 1}, FontFamily -> 
          "Source Sans Code"], 
         Cell[
          StyleData["OutputForm", "Printout"], LineSpacing -> {0.6, 1}, 
          FontFamily -> "Source Sans Code"]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["InputForm"], FontFamily -> "Source Sans Code"], 
         Cell[
          StyleData["InputForm", "Printout"], FontFamily -> 
          "Source Sans Code"]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["FormattedFunction"], FontFamily -> "Source Sans Pro", 
          FontSize :> If[CurrentValue[
              EvaluationCell[], "FontFamily"] === "Source Sans Pro", 
            Inherited, 
            If[CurrentValue[
               EvaluationCell[], "FontFamily"] === "WolframCodeSans", 
             Inherited, Inherited 0.9]]], 
         Cell[
          StyleData["FormattedFunction", "Printout"], FontFamily -> 
          "Source Sans Pro", FontSize :> If[CurrentValue[
              EvaluationCell[], "FontFamily"] === "Source Sans Pro", 
            Inherited, 
            If[CurrentValue[
               EvaluationCell[], "FontFamily"] === "WolframCodeSans", 
             Inherited, Inherited 0.88]]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Link"], FontFamily -> "Source Sans Pro", FontSize :> 
          If[CurrentValue[
              EvaluationCell[], "FontFamily"] === "Source Sans Pro", 
            Inherited, 
            If[CurrentValue[
               EvaluationCell[], "FontFamily"] === "WolframCodeSans", 
             Inherited, Inherited 0.9]], FontColor -> GrayLevel[0], 
          ButtonBoxOptions -> {
           Active -> True, Appearance -> {Automatic, None}, 
            ButtonFunction :> (FEPrivate`FrontEndExecute[
              FrontEndToken["OpenHelpLink", {#}]]& ), ButtonNote -> 
            ButtonData, Evaluator -> None, ImageSize -> Full, Method -> 
            "Preemptive"}], 
         Cell[
          StyleData["Link", "Printout"], FontFamily -> "Source Sans Pro", 
          FontSize :> If[CurrentValue[
              EvaluationCell[], "FontFamily"] === "Source Sans Pro", 
            Inherited, 
            If[CurrentValue[
               EvaluationCell[], "FontFamily"] === "WolframCodeSans", 
             Inherited, Inherited 0.88]], FontColor -> GrayLevel[0], 
          ButtonBoxOptions -> {
           Active -> True, Appearance -> {Automatic, None}, 
            ButtonFunction :> (FEPrivate`FrontEndExecute[
              FrontEndToken["OpenHelpLink", {#}]]& ), ButtonNote -> 
            ButtonData, Evaluator -> None, ImageSize -> Full, Method -> 
            "Preemptive"}]}, Open]], 
      Cell[
       StyleData[
       "CaptionFunctionLink", StyleDefinitions -> StyleData["Link"]], 
       FontFamily -> "Source Sans Pro", FontSize -> 14, FontColor -> 
       GrayLevel[0]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["DetailsLink"], FontFamily -> "Source Sans Pro", FontSize :> 
          If[CurrentValue[
              EvaluationCell[], "FontFamily"] === "Source Sans Pro", 
            Inherited, 
            If[CurrentValue[
               EvaluationCell[], "FontFamily"] === "WolframCodeSans", 
             Inherited, Inherited 0.9]], FontColor -> GrayLevel[0], 
          ButtonBoxOptions -> {
           ButtonFunction :> (
             Function[$CellContext`t, 
              NotebookFind[$CellContext`t, "Notes", All, CellStyle]; 
              NotebookFind[$CellContext`t, "NotesSection", All, CellStyle, 
                AutoScroll -> Top]][
              Documentation`HelpLookup["ref/" <> #]]& ), ButtonSource -> 
            ButtonContents, Evaluator -> Automatic}], 
         Cell[
          StyleData["DetailsLink", "Printout"], FontFamily -> 
          "Source Sans Pro", FontSize :> If[CurrentValue[
              EvaluationCell[], "FontFamily"] === "Source Sans Pro", 
            Inherited, 
            If[CurrentValue[
               EvaluationCell[], "FontFamily"] === "WolframCodeSans", 
             Inherited, Inherited 0.88]], FontColor -> GrayLevel[0]]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["LinkAlt"], FontFamily -> "Source Sans Pro", FontSize :> 
          If[CurrentValue[
              EvaluationCell[], "FontFamily"] === "Source Sans Pro", 
            Inherited, 
            If[CurrentValue[
               EvaluationCell[], "FontFamily"] === "WolframCodeSans", 
             Inherited, Inherited 0.9]], FontColor -> GrayLevel[0]], 
         Cell[
          StyleData["LinkAlt", "Printout"], FontFamily -> "Source Sans Pro", 
          FontSize :> If[CurrentValue[
              EvaluationCell[], "FontFamily"] === "Source Sans Pro", 
            Inherited, 
            If[CurrentValue[
               EvaluationCell[], "FontFamily"] === "WolframCodeSans", 
             Inherited, Inherited 0.88]], FontColor -> GrayLevel[0]]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Hyperlink"], MenuSortingValue -> None, FontColor -> 
          RGBColor[0.3, 0.35, 0.5]], 
         Cell[
          StyleData["Hyperlink", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["FunctionLink", StyleDefinitions -> StyleData["Link"]], 
          FontColor -> GrayLevel[0]], 
         Cell[
          StyleData["FunctionLink", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData[
          "FunctionHyperlink", StyleDefinitions -> StyleData["Link"]], 
          FontColor -> GrayLevel[0], 
          ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{
               
               NotebookLocate[#2, "OpenInNewWindow" -> 
                CurrentValue["HyperlinkModifierKey"]]}]& ), Evaluator -> None,
             Method -> "Queued"}], 
         Cell[
          StyleData["FunctionHyperlink", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData[
          "ResourceFunctionlink", StyleDefinitions -> StyleData["Hyperlink"]],
           MenuSortingValue -> None, FontFamily -> "Source Sans Pro", 
          FontSize :> If[CurrentValue[
              EvaluationCell[], "FontFamily"] === "Source Sans Pro", 
            Inherited, 
            If[CurrentValue[
               EvaluationCell[], "FontFamily"] === "WolframCodeSans", 
             Inherited, Inherited 0.9]], FontColor -> GrayLevel[0]], 
         Cell[
          StyleData["ResourceFunctionlink", "Printout"], FontFamily -> 
          "Source Sans Pro", FontSize :> If[CurrentValue[
              EvaluationCell[], "FontFamily"] === "Source Sans Pro", 
            Inherited, 
            If[CurrentValue[
               EvaluationCell[], "FontFamily"] === "WolframCodeSans", 
             Inherited, Inherited 0.88]], FontColor -> GrayLevel[0]]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Crosslink"], 
          ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{
               
               NotebookLocate[#2, "OpenInNewWindow" -> 
                CurrentValue["HyperlinkModifierKey"]]}]& ), Evaluator -> None,
             Method -> "Queued"}], 
         Cell[
          StyleData["Crosslink", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["CodeLink"], 
          ButtonBoxOptions -> {
           Active -> True, Appearance -> {Automatic, None}, 
            ButtonFunction :> (FEPrivate`FrontEndExecute[
              FrontEndToken["OpenHelpLink", {
                Part[#, 1]}]]& ), ButtonNote -> ButtonData, Evaluator -> None,
             ImageSize -> Full, Method -> "Preemptive"}], 
         Cell[
          StyleData["CodeLink", "Printout"]]}, Open]], 
      Cell[
       StyleData["VocabularyLink"], FontColor -> GrayLevel[0], 
       ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{
            
            NotebookLocate[#2, "OpenInNewWindow" -> 
             CurrentValue["HyperlinkModifierKey"]]}]& ), Evaluator -> None, 
         Method -> "Queued"}], 
      Cell[
       StyleData["InlineMath"], SpanMaxSize -> 0, CellID -> 644119144], 
      Cell[
       StyleData["InlineCode"], AutoSpacing -> True, SpanMaxSize -> 0, 
       FontColor -> GrayLevel[0]], 
      Cell[
       StyleData["InlineCodeText"], SpanMaxSize -> 0, FontFamily -> 
       "Source Sans Pro", FontSize -> 0.94 Inherited], 
      Cell[
       StyleData["InlineFormula"]], 
      Cell[
       StyleData["NoLabel"], 
       GeneratedCellStyles -> {"Output" -> "ExerciseOutput"}, ShowCellLabel -> 
       False], 
      Cell[
       StyleData["MenuName"], FontFamily -> "Verdana", FontWeight -> "Bold", 
       FontColor -> GrayLevel[0.286275]], 
      Cell[
       StyleData["DialogElementName"], 
       CellChangeTimes -> {3.642251807158844*^9, 3.8358753610849867`*^9, 
        3.835875471581566*^9}, FontFamily -> "Source Sans Pro SemiBold", 
       FontSize -> 0.95 Inherited, FontWeight -> "Regular"], 
      Cell[
       StyleData["KeyEvent"], CellFrame -> {{0.5, 0.5}, {0.5, 0.5}}, 
       CellFrameMargins -> {{2, 2}, {2, 2}}, CellFrameColor -> GrayLevel[0.7],
        FontFamily -> "Verdana", FontColor -> GrayLevel[0.4]], 
      Cell[
       StyleData["KeyEventDelimiter"], FontColor -> GrayLevel[0.5]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["CodeVariable"], FontFamily -> "Times", FontSize -> 
          1.05 Inherited, FontWeight -> "Plain", FontSlant -> "Italic"], 
         Cell[
          StyleData["CodeVariable", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["CodeVariableLrg"], FontFamily -> "Times", FontSize -> 
          1.1 Inherited, FontWeight -> "Plain", FontSlant -> "Italic"], 
         Cell[
          StyleData["CodeVariableLrg", "Printout"]]}, Open]], 
      Cell[
       CellGroupData[{
         Cell["Key Styles", "Subsubsection"], 
         Cell[
          StyleData["Key0"], 
          TemplateBoxOptions -> {DisplayFunction -> (FrameBox[
              TagBox[
               GridBox[{{
                  ItemBox[
                   
                   TemplateBox[{"\[ThickSpace]", #, "\[ThickSpace]"}, 
                    "RowDefault"], Background -> GrayLevel[1], StripOnInput -> 
                   False]}}, 
                GridBoxAlignment -> {
                 "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, AutoDelete -> 
                False, GridBoxDividers -> {"Rows" -> {{None}}}, 
                GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{1.45}}},
                 GridBoxSpacings -> {"Columns" -> {{0}}}, 
                BaselinePosition -> {{1, 1}, Baseline}], "Grid"], 
              RoundingRadius -> 4, Background -> 
              GrayLevel[0.9333333333333333], 
              FrameMargins -> {{0, 0}, {-1, -1}}, FrameStyle -> {
                GrayLevel[0.8352941176470589], 
                AbsoluteThickness[1]}, BaselinePosition -> Baseline, 
              StripOnInput -> False]& )}], 
         Cell[
          StyleData["Key1"], 
          TemplateBoxOptions -> {DisplayFunction -> (FrameBox[
              TagBox[
               GridBox[{{
                  ItemBox[
                   
                   TemplateBox[{"\[ThickSpace]", #, "\[ThickSpace]"}, 
                    "RowDefault"], Background -> 
                   GrayLevel[0.9333333333333333], StripOnInput -> False], 
                  ItemBox[
                   
                   TemplateBox[{"\[ThickSpace]", #2, "\[ThickSpace]"}, 
                    "RowDefault"], Background -> GrayLevel[1], StripOnInput -> 
                   False]}}, 
                GridBoxAlignment -> {
                 "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, AutoDelete -> 
                False, GridBoxDividers -> {
                 "ColumnsIndexed" -> {2 -> GrayLevel[0.8352941176470589]}, 
                  "Rows" -> {{None}}}, 
                GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{1.45}}},
                 GridBoxSpacings -> {"Columns" -> {{0}}}, 
                BaselinePosition -> {{1, 1}, Baseline}], "Grid"], 
              RoundingRadius -> 4, Background -> 
              GrayLevel[0.9333333333333333], 
              FrameMargins -> {{0, 0}, {-1, -1}}, FrameStyle -> {
                GrayLevel[0.8352941176470589], 
                AbsoluteThickness[1]}, BaselinePosition -> Baseline, 
              StripOnInput -> False]& )}], 
         Cell[
          StyleData["Key2"], 
          TemplateBoxOptions -> {DisplayFunction -> (FrameBox[
              TagBox[
               GridBox[{{
                  ItemBox[
                   
                   TemplateBox[{"\[ThickSpace]", #, "\[ThickSpace]"}, 
                    "RowDefault"], Background -> 
                   GrayLevel[0.9333333333333333], StripOnInput -> False], 
                  ItemBox[
                   
                   TemplateBox[{"\[ThickSpace]", #2, "\[ThickSpace]"}, 
                    "RowDefault"], Background -> 
                   GrayLevel[0.9333333333333333], StripOnInput -> False], 
                  ItemBox[
                   
                   TemplateBox[{"\[ThickSpace]", #3, "\[ThickSpace]"}, 
                    "RowDefault"], Background -> GrayLevel[1], StripOnInput -> 
                   False]}}, 
                GridBoxAlignment -> {
                 "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, AutoDelete -> 
                False, GridBoxDividers -> {
                 "ColumnsIndexed" -> {
                   2 -> GrayLevel[0.8352941176470589], 3 -> 
                    GrayLevel[0.8352941176470589]}, "Rows" -> {{None}}}, 
                GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{1.45}}},
                 GridBoxSpacings -> {"Columns" -> {{0}}}, 
                BaselinePosition -> {{1, 1}, Baseline}], "Grid"], 
              RoundingRadius -> 4, Background -> 
              GrayLevel[0.9333333333333333], 
              FrameMargins -> {{0, 0}, {-1, -1}}, FrameStyle -> {
                GrayLevel[0.8352941176470589], 
                AbsoluteThickness[1]}, BaselinePosition -> Baseline, 
              StripOnInput -> False]& )}], 
         Cell[
          StyleData["Key3"], 
          TemplateBoxOptions -> {DisplayFunction -> (FrameBox[
              TagBox[
               GridBox[{{
                  ItemBox[
                   
                   TemplateBox[{"\[ThickSpace]", #, "\[ThickSpace]"}, 
                    "RowDefault"], Background -> 
                   GrayLevel[0.9333333333333333], StripOnInput -> False], 
                  ItemBox[
                   
                   TemplateBox[{"\[ThickSpace]", #2, "\[ThickSpace]"}, 
                    "RowDefault"], Background -> 
                   GrayLevel[0.9333333333333333], StripOnInput -> False], 
                  ItemBox[
                   
                   TemplateBox[{"\[ThickSpace]", #3, "\[ThickSpace]"}, 
                    "RowDefault"], Background -> 
                   GrayLevel[0.9333333333333333], StripOnInput -> False], 
                  ItemBox[
                   
                   TemplateBox[{"\[ThickSpace]", #4, "\[ThickSpace]"}, 
                    "RowDefault"], Background -> GrayLevel[1], StripOnInput -> 
                   False]}}, 
                GridBoxAlignment -> {
                 "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, AutoDelete -> 
                False, GridBoxDividers -> {
                 "ColumnsIndexed" -> {
                   2 -> GrayLevel[0.8352941176470589], 3 -> 
                    GrayLevel[0.8352941176470589], 4 -> 
                    GrayLevel[0.8352941176470589]}, "Rows" -> {{None}}}, 
                GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{1.45}}},
                 GridBoxSpacings -> {"Columns" -> {{0}}}, 
                BaselinePosition -> {{1, 1}, Baseline}], "Grid"], 
              RoundingRadius -> 4, Background -> 
              GrayLevel[0.9333333333333333], 
              FrameMargins -> {{0, 0}, {-1, -1}}, FrameStyle -> {
                GrayLevel[0.8352941176470589], 
                AbsoluteThickness[1]}, BaselinePosition -> Baseline, 
              StripOnInput -> False]& )}]}, Open]], 
      Cell[
       CellGroupData[{
         Cell["Entity styles", "Subsubsection"], 
         Cell[
          StyleData["Entity"], ContextMenu -> 
          FEPrivate`FrontEndResource["ContextMenus", "Entity"], 
          AutoStyleOptions -> {"HighlightSyntaxErrors" -> False}, 
          ShowStringCharacters -> False, 
          TemplateBoxOptions -> {DisplayFunction -> (TooltipBox[
              FrameBox[
               PaneSelectorBox[{True -> GridBox[{{
                    
                    StyleBox[#, FontSize -> 0.85 Inherited, FontColor -> 
                    RGBColor[0.395437, 0.20595, 0.061158]], 
                    PaneBox[
                    StyleBox[#4, "EntityTypeLabel"], BaselinePosition -> 
                    Baseline, ContentPadding -> False]}}, 
                   GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                   GridBoxSpacings -> {"Columns" -> {{0.5}}, "Rows" -> {{0}}},
                    BaselinePosition -> {1, 1}], False -> 
                 PaneBox[#, 
                   BaseStyle -> {
                    FontColor -> RGBColor[0.395437, 0.20595, 0.061158]}, 
                   BaselinePosition -> Baseline]}, 
                Dynamic[
                 CurrentValue[Evaluatable]], ImageSize -> Automatic, 
                BaselinePosition -> Baseline, 
                BaseStyle -> {FontFamily -> "Helvetica"}], FrameStyle -> 
               Directive[
                 RGBColor[1., 0.504768, 0.], 
                 AbsoluteThickness[1]], Background -> 
               RGBColor[1., 0.980392, 0.921569], 
               FrameMargins -> {{5, 5}, {1.5, 1.5}}, 
               ImageMargins -> {{2, 2}, {2, 2}}, BaselinePosition -> Baseline,
                RoundingRadius -> 4, 
               BaseStyle -> {FontFamily -> "Courier"}], #3, 
              BaseStyle -> {
               ShowStringCharacters -> False, LineIndent -> 0, 
                PrivateFontOptions -> {"OperatorSubstitution" -> False}}, 
              TooltipDelay -> 0.4]& ), Editable -> False, 
            InterpretationFunction -> (#2& )}], 
         Cell[
          StyleData["EntityFrameless"], ShowStringCharacters -> False, 
          TemplateBoxOptions -> {DisplayFunction -> (TooltipBox[
              PaneSelectorBox[{True -> GridBox[{{
                    
                    StyleBox[#, FontWeight -> "Bold", FontFamily -> 
                    "Source Sans Pro", FontColor -> 
                    RGBColor[0.395437, 0.20595, 0.061158]], 
                    StyleBox[
                    RowBox[{"(", #4, ")"}], FontFamily -> "Source Sans Pro", 
                    FontWeight -> "Plain", FontColor -> GrayLevel[0.65], 
                    Selectable -> False]}}, 
                  GridBoxItemSize -> {
                   "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                  GridBoxSpacings -> {"Columns" -> {{0.2}}, "Rows" -> {{0}}}, 
                  BaselinePosition -> {1, 1}], False -> 
                PaneBox[#, 
                  BaseStyle -> {
                   FontColor -> RGBColor[0.395437, 0.20595, 0.061158]}, 
                  BaselinePosition -> Baseline]}, 
               Dynamic[
                CurrentValue[Evaluatable]], ImageSize -> Automatic, 
               BaselinePosition -> Baseline, 
               BaseStyle -> {FontFamily -> "Helvetica"}], #3, 
              BaseStyle -> {
               ShowStringCharacters -> False, LineIndent -> 0, 
                PrivateFontOptions -> {
                 FontWeight -> "Plain", "OperatorSubstitution" -> False}}]& ),
             Editable -> False, InterpretationFunction -> (#2& )}], 
         Cell[
          StyleData["EntityFramelessHot"], ShowStringCharacters -> False, 
          TemplateBoxOptions -> {
           DisplayFunction -> (PaneSelectorBox[{True -> GridBox[{{
                   
                   StyleBox[#, FontWeight -> "Bold", FontFamily -> 
                    "Source Sans Pro", FontColor -> GrayLevel[0]], 
                   StyleBox[
                    RowBox[{"(", #4, ")"}], FontWeight -> "Plain", FontFamily -> 
                    "Source Sans Pro", FontColor -> GrayLevel[0], Selectable -> 
                    False]}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {"Columns" -> {{0.2}}, "Rows" -> {{0}}}, 
                 BaselinePosition -> {1, 1}], False -> 
               PaneBox[#, BaseStyle -> {FontColor -> GrayLevel[0]}, 
                 BaselinePosition -> Baseline]}, 
              Dynamic[
               CurrentValue[Evaluatable]], ImageSize -> Automatic, 
              BaselinePosition -> Baseline, 
              BaseStyle -> {
               FontWeight -> "Plain", FontFamily -> "Helvetica", 
                ShowStringCharacters -> False, LineIndent -> 0, 
                PrivateFontOptions -> {"OperatorSubstitution" -> False}}]& ), 
            Editable -> False, InterpretationFunction -> (#2& )}], 
         Cell[
          StyleData["EntityClass"], ShowStringCharacters -> False, 
          TemplateBoxOptions -> {DisplayFunction -> (TooltipBox[
              FrameBox[
               PaneSelectorBox[{True -> GridBox[{{
                    PaneBox[
                    DynamicBox[
                    FEPrivate`ImportImage[
                    
                    FrontEnd`ToFileName[{"Typeset", "Entity"}, 
                    "EntityClass.png"]], ImageSizeCache -> {8., {2., 6.}}], 
                    BaselinePosition -> Bottom], 
                    
                    StyleBox[#, FontWeight -> "Bold", FontFamily -> 
                    "Source Sans Pro", FontColor -> 
                    RGBColor[0.395437, 0.20595, 0.061158]], 
                    StyleBox[
                    RowBox[{"(", #4, ")"}], FontWeight -> "Plain", FontFamily -> 
                    "Source Sans Pro", FontColor -> GrayLevel[0.65], 
                    Selectable -> False]}}, 
                   GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                   GridBoxSpacings -> {"Columns" -> {{0.2}}, "Rows" -> {{0}}},
                    BaselinePosition -> {1, 2}], False -> GridBox[{{
                    PaneBox[
                    DynamicBox[
                    FEPrivate`ImportImage[
                    
                    FrontEnd`ToFileName[{"Typeset", "Entity"}, 
                    "EntityClass.png"]], ImageSizeCache -> {8., {2., 6.}}], 
                    BaselinePosition -> Bottom], 
                    
                    StyleBox[#, FontColor -> 
                    RGBColor[0.395437, 0.20595, 0.061158]]}}, 
                   GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                   GridBoxSpacings -> {"Columns" -> {{0.2}}, "Rows" -> {{0}}},
                    BaselinePosition -> {1, 2}]}, 
                Dynamic[
                 CurrentValue[Evaluatable]], ImageSize -> Automatic, 
                BaselinePosition -> Baseline, 
                BaseStyle -> {FontFamily -> "Helvetica"}], FrameStyle -> 
               RGBColor[1., 0.504768, 0.], Background -> 
               RGBColor[1., 0.980392, 0.921569], 
               FrameMargins -> {{5, 5}, {1.5, 1.5}}, 
               ImageMargins -> {{2, 2}, {2, 2}}, BaselinePosition -> Baseline,
                RoundingRadius -> 4], #3, 
              BaseStyle -> {
               FontWeight -> "Plain", ShowStringCharacters -> False, 
                LineIndent -> 0, 
                PrivateFontOptions -> {"OperatorSubstitution" -> False}}]& ), 
            Editable -> False, InterpretationFunction -> (#2& )}], 
         Cell[
          StyleData["EntityClassFrameless"], ShowStringCharacters -> False, 
          TemplateBoxOptions -> {DisplayFunction -> (TooltipBox[
              PaneSelectorBox[{True -> GridBox[{{
                    PaneBox[
                    DynamicBox[
                    FEPrivate`ImportImage[
                    
                    FrontEnd`ToFileName[{"Typeset", "Entity"}, 
                    "EntityClass.png"]], ImageSizeCache -> {8., {2., 6.}}], 
                    BaselinePosition -> Bottom], 
                    
                    StyleBox[#, FontWeight -> "Bold", FontFamily -> 
                    "Source Sans Pro", FontColor -> 
                    RGBColor[0.395437, 0.20595, 0.061158]], 
                    StyleBox[
                    RowBox[{"(", #4, ")"}], FontWeight -> "Plain", FontFamily -> 
                    "Source Sans Pro", FontColor -> GrayLevel[0.65], 
                    Selectable -> False]}}, 
                  GridBoxItemSize -> {
                   "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                  GridBoxSpacings -> {"Columns" -> {{0.2}}, "Rows" -> {{0}}}, 
                  BaselinePosition -> {1, 2}], False -> GridBox[{{
                    PaneBox[
                    DynamicBox[
                    FEPrivate`ImportImage[
                    
                    FrontEnd`ToFileName[{"Typeset", "Entity"}, 
                    "EntityClass.png"]], ImageSizeCache -> {8., {2., 6.}}], 
                    BaselinePosition -> Bottom], 
                    
                    StyleBox[#, FontColor -> 
                    RGBColor[0.395437, 0.20595, 0.061158]]}}, 
                  GridBoxItemSize -> {
                   "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                  GridBoxSpacings -> {"Columns" -> {{0.2}}, "Rows" -> {{0}}}, 
                  BaselinePosition -> {1, 2}]}, 
               Dynamic[
                CurrentValue[Evaluatable]], ImageSize -> Automatic, 
               BaselinePosition -> Baseline, 
               BaseStyle -> {FontFamily -> "Helvetica"}], #3, 
              BaseStyle -> {
               FontWeight -> "Plain", ShowStringCharacters -> False, 
                LineIndent -> 0, 
                PrivateFontOptions -> {"OperatorSubstitution" -> False}}]& ), 
            Editable -> False, InterpretationFunction -> (#2& )}], 
         Cell[
          StyleData["EntityClassFramelessHot"], ShowStringCharacters -> False,
           TemplateBoxOptions -> {
           DisplayFunction -> (PaneSelectorBox[{True -> GridBox[{{
                   PaneBox[
                    DynamicBox[
                    FEPrivate`ImportImage[
                    
                    FrontEnd`ToFileName[{"Typeset", "Entity"}, 
                    "EntityClass.png"]], ImageSizeCache -> {8., {2., 6.}}], 
                    BaselinePosition -> Bottom], 
                   
                   StyleBox[#, FontWeight -> "Bold", FontFamily -> 
                    "Source Sans Pro", FontColor -> GrayLevel[0]], 
                   StyleBox[
                    RowBox[{"(", #4, ")"}], FontWeight -> "Plain", FontFamily -> 
                    "Source Sans Pro", FontColor -> GrayLevel[0], Selectable -> 
                    False]}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {"Columns" -> {{0.2}}, "Rows" -> {{0}}}, 
                 BaselinePosition -> {1, 2}], False -> GridBox[{{
                   PaneBox[
                    DynamicBox[
                    FEPrivate`ImportImage[
                    
                    FrontEnd`ToFileName[{"Typeset", "Entity"}, 
                    "EntityClass.png"]], ImageSizeCache -> {8., {2., 6.}}], 
                    BaselinePosition -> Bottom], 
                   StyleBox[#, FontColor -> GrayLevel[0]]}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {"Columns" -> {{0.2}}, "Rows" -> {{0}}}, 
                 BaselinePosition -> {1, 2}]}, 
              Dynamic[
               CurrentValue[Evaluatable]], ImageSize -> Automatic, 
              BaselinePosition -> Baseline, 
              BaseStyle -> {
               FontWeight -> "Plain", FontFamily -> "Helvetica", 
                ShowStringCharacters -> False, LineIndent -> 0, 
                PrivateFontOptions -> {"OperatorSubstitution" -> False}}]& ), 
            Editable -> False, InterpretationFunction -> (#2& )}], 
         Cell[
          StyleData["EntityProperty"], ContextMenu -> 
          FEPrivate`FrontEndResource["ContextMenus", "Entity"], 
          AutoStyleOptions -> {"HighlightSyntaxErrors" -> False}, 
          ShowStringCharacters -> False, 
          TemplateBoxOptions -> {DisplayFunction -> (TooltipBox[
              FrameBox[
               
               PaneBox[#, 
                BaseStyle -> {
                 FontSlant -> Italic, FontWeight -> Plain, FontFamily -> 
                  "Helvetica", FontSize -> 0.85 Inherited, FontColor -> 
                  RGBColor[0.395437, 0.20595, 0.061158]}, BaselinePosition -> 
                Baseline], FrameStyle -> Directive[
                 RGBColor[0.94227, 0.703639, 0.033387], 
                 AbsoluteThickness[1]], Background -> 
               RGBColor[1., 0.980392, 0.921569], 
               FrameMargins -> {{5, 5}, {1.5, 1.5}}, 
               ImageMargins -> {{2, 2}, {2, 2}}, BaselinePosition -> Baseline,
                RoundingRadius -> 4, 
               BaseStyle -> {FontFamily -> "Courier"}], #3, 
              BaseStyle -> {
               ShowStringCharacters -> False, LineIndent -> 0, 
                PrivateFontOptions -> {"OperatorSubstitution" -> False}}, 
              TooltipDelay -> 0.4]& ), Editable -> False, 
            InterpretationFunction -> (#2& )}], 
         Cell[
          StyleData["EntityPropertyClass"], ShowStringCharacters -> False, 
          TemplateBoxOptions -> {DisplayFunction -> (TooltipBox[
              FrameBox[
               PaneBox[
                GridBox[{{
                   PaneBox[
                    DynamicBox[
                    FEPrivate`ImportImage[
                    
                    FrontEnd`ToFileName[{"Typeset", "Entity"}, 
                    "EntityClass.png"]], ImageSizeCache -> {8., {2., 6.}}], 
                    BaselinePosition -> Bottom], #}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {"Columns" -> {{0.2}}, "Rows" -> {{0}}}, 
                 BaselinePosition -> {1, 2}], 
                BaseStyle -> {
                 FontSlant -> Italic, FontWeight -> Plain, FontFamily -> 
                  "Source Sans Pro", FontColor -> 
                  RGBColor[0.395437, 0.20595, 0.061158]}, BaselinePosition -> 
                Baseline], FrameStyle -> 
               RGBColor[0.94227, 0.703639, 0.033387], Background -> 
               RGBColor[1., 0.980392, 0.921569], 
               FrameMargins -> {{5, 5}, {1.5, 1.5}}, 
               ImageMargins -> {{2, 2}, {2, 2}}, BaselinePosition -> Baseline,
                RoundingRadius -> 4], #3, 
              BaseStyle -> {
               FontWeight -> "Plain", ShowStringCharacters -> False, 
                LineIndent -> 0, 
                PrivateFontOptions -> {"OperatorSubstitution" -> False}}]& ), 
            Editable -> False, InterpretationFunction -> (#2& )}], 
         Cell[
          StyleData["EntityValue"], ShowStringCharacters -> False, 
          TemplateBoxOptions -> {DisplayFunction -> (FrameBox[
              
              GridBox[{{#, #2}}, GridBoxAlignment -> {"Rows" -> {{Baseline}}},
                GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
               GridBoxSpacings -> {"Columns" -> {{0}}}, 
               BaselinePosition -> {1, 1}], Background -> 
              RGBColor[{0.9921568627450981, 0.9529411764705882, 
                0.8509803921568627}], BaselinePosition -> Baseline, 
              FrameMargins -> {{1, 1}, {1, 1}}, ImageMargins -> 2, FrameStyle -> 
              RGBColor[{0.9333333333333333, 0.8470588235294118, 
                0.5529411764705883}], RoundingRadius -> 5]& )}]}, Open]]}, 
     Open]], 
   Cell[
    CellGroupData[{
      Cell["Template Boxes", "Section"], 
      Cell[
       StyleData["BannerTemplate"], 
       TemplateBoxOptions -> {DisplayFunction :> (TagBox[
           GridBox[{{
              Slot["label"], 
              Slot["previous"], 
              TemplateBox[{10}, "Spacer1"], 
              Slot["next"], 
              TemplateBox[{10}, "Spacer1"], 
              Slot["menu"]}}, 
            GridBoxAlignment -> {
             "Columns" -> {{Left, Right}}, "Rows" -> {{Center}}}, AutoDelete -> 
            False, GridBoxFrame -> {"Columns" -> None, "Rows" -> {{None}}}, 
            GridBoxItemSize -> {
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
            GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{0}}}], 
           "Grid"]& )}], 
      Cell[
       StyleData["BannerHeadingTitleTemplate"], 
       TemplateBoxOptions -> {DisplayFunction :> (PanelBox[
           TagBox[
            GridBox[{{
               StyleBox[
                Slot["heading"], "BannerHeading", StripOnInput -> False]}, {
               Slot["title"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, 
             DefaultBaseStyle -> "Column", 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{0.2}}}], "Column"], 
           Appearance -> None, ContentPadding -> False, BaseStyle -> "Banner",
            FrameMargins -> {{18, 20}, {6.75, 6}}, 
           ImageSize -> {Full, Automatic}]& )}], 
      Cell[
       StyleData["BannerButtonTemplate"], 
       LightDarkAutoColorRules -> <|"MarkedColors" -> True|>, 
       TemplateBoxOptions -> {DisplayFunction :> (ButtonBox[
           
           PanelBox[#, ContentPadding -> False, 
            FrameMargins -> {{10, 10}, {7, 7}}, Appearance -> None, BaseStyle -> 
            Dynamic[
              FEPrivate`If[
               CurrentValue["MouseOver"], {
               Background -> 
                RGBColor[
                 0.08808648687787803, 0.3397116701677621, 
                  0.5610151372105242]}, "Banner"], Evaluator -> "System"]], 
           ButtonFunction -> #2, Appearance -> None, 
           FrameMargins -> {{0, 0}, {-1, -1}}, Enabled -> True, Evaluator -> 
           Automatic, Method -> "Preemptive"]& )}], 
      Cell[
       StyleData["BannerLeftArrowTemplate"], 
       TemplateBoxOptions -> {DisplayFunction -> (GraphicsBox[{
            CapForm["Round"], 
            JoinForm["Round"], 
            Thickness[0.1], 
            GrayLevel[1], 
            LineBox[{{25, 180}, {-25, 0}, {25, -180}}]}, {
           Method -> {"ShrinkWrap" -> True}, ImageSize -> 12, 
            PlotRange -> {{-75, 100}, {-275, 400}}, AspectRatio -> 1}]& )}], 
      Cell[
       StyleData["BannerRightArrowTemplate"], 
       TemplateBoxOptions -> {DisplayFunction -> (GraphicsBox[{
            CapForm["Round"], 
            JoinForm["Round"], 
            Thickness[0.1], 
            GrayLevel[1], 
            LineBox[{{-25, -180}, {25, 0}, {-25, 180}}]}, {
           Method -> {"ShrinkWrap" -> True}, ImageSize -> 12, 
            PlotRange -> {{-75, 100}, {-275, 400}}, AspectRatio -> 1}]& )}], 
      Cell[
       StyleData["PrettyTooltipTemplate"], 
       TemplateBoxOptions -> {DisplayFunction -> (TooltipBox[#, 
           FrameBox[
            
            StyleBox[#2, FontFamily -> "Source Sans Pro", FontColor -> 
             RGBColor[0.53725, 0.53725, 0.53725], FontSize -> 12, FontWeight -> 
             "Plain", FontTracking -> "Plain", StripOnInput -> False], 
            Background -> RGBColor[0.96078, 0.96078, 0.96078], FrameStyle -> 
            RGBColor[0.89804, 0.89804, 0.89804], FrameMargins -> 8, 
            StripOnInput -> False], TooltipDelay -> 0.1, 
           TooltipStyle -> {Background -> None, CellFrame -> 0}]& )}], 
      Cell[
       StyleData["BannerMenuTemplate"], 
       LightDarkAutoColorRules -> <|"MarkedColors" -> True|>, 
       TemplateBoxOptions -> {DisplayFunction :> (ActionMenuBox[
           TagBox[
            PanelBox[
             GraphicsBox[{
               CapForm["Round"], 
               GrayLevel[1], 
               AbsoluteThickness[3.2], 
               LineBox[{{0, 0}, {2, 0}}], 
               LineBox[{{0, 1}, {2, 1}}], 
               LineBox[{{0, 2}, {2, 2}}]}, ImageSize -> {27, Automatic}, 
              AspectRatio -> 0.62], ContentPadding -> False, 
             FrameMargins -> {{10, 10}, {7, 7}}, Appearance -> None, 
             BaseStyle -> Dynamic[
               FEPrivate`If[
                CurrentValue["MouseOver"], {
                Background -> 
                 RGBColor[
                  0.08808648687787803, 0.3397116701677621, 
                   0.5610151372105242]}, "Banner"], Evaluator -> "System"]], 
            MouseAppearanceTag["LinkHand"]], #, Appearance -> None]& )}], 
      Cell[
       StyleData["BannerCitationOpenerTemplate"], 
       TemplateBoxOptions -> {DisplayFunction :> (ButtonBox[
           TagBox[
            GridBox[{{
               Slot["label"], 
               PaneSelectorBox[{True -> GraphicsBox[{
                    CapForm["Round"], 
                    JoinForm["Round"], 
                    Thickness[0.18], 
                    GrayLevel[0.7], 
                    LineBox[{{-180, 25}, {0, -25}, {180, 25}}]}, {
                   Method -> {"ShrinkWrap" -> True}, ImageSize -> 11, 
                    PlotRange -> {{-275, 400}, {-75, 100}}, AspectRatio -> 
                    1}], False -> GraphicsBox[{
                    CapForm["Round"], 
                    JoinForm["Round"], 
                    Thickness[0.18], 
                    GrayLevel[0.7], 
                    LineBox[{{-25, -180}, {25, 0}, {-25, 180}}]}, {
                   Method -> {"ShrinkWrap" -> True}, ImageSize -> 8, 
                    PlotRange -> {{-75, 100}, {-475, 200}}, AspectRatio -> 
                    1}]}, 
                Dynamic[
                 CurrentValue[
                  EvaluationNotebook[], {
                  TaggingRules, "eTextbook", "CitationOpener"}]]]}}, 
             GridBoxAlignment -> {"Rows" -> {{Baseline}}}, AutoDelete -> 
             False, GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], 
           ButtonFunction :> (CurrentValue[
              EvaluationNotebook[], {
              TaggingRules, "eTextbook", "CitationOpener"}] = Not[
              TrueQ[
               CurrentValue[
                EvaluationNotebook[], {
                TaggingRules, "eTextbook", "CitationOpener"}]]]), Appearance -> 
           None, Evaluator -> Automatic, Method -> "Preemptive", BaseStyle -> 
           "BannerCitationOpenerLabel"]& )}], 
      Cell[
       StyleData["CitationClickToCopy2"], 
       TemplateBoxOptions -> {DisplayFunction -> (TagBox[
           DynamicModuleBox[{Typeset`boxobj$$, Typeset`cellobj$$}, 
            TagBox[
             TagBox[
              ButtonBox[
               
               TagBox[#, BoxForm`Undeploy, 
                DefaultBaseStyle -> {Deployed -> False}], ButtonFunction :> 
               FrontEndExecute[{
                  CopyToClipboard[
                   Cell[
                    TextData[#2], "Text", 
                    LinebreakAdjustments -> {0.85, 2, 10, 0, 1}, 
                    DefaultFormatType -> DefaultTextFormatType, 
                    TextClipboardType -> "PlainText", StripStyleOnPaste -> 
                    True, PageBreakWithin -> False, GroupPageBreakWithin -> 
                    False, LanguageCategory -> None, 
                    HyphenationOptions -> {"HyphenationCharacter" -> ""}]], 
                  NotebookDelete[Typeset`cellobj$$], 
                  FrontEnd`AttachCell[Typeset`boxobj$$, 
                   Cell[
                    BoxData[
                    TemplateBox[{"Copied"}, "ClickToCopyTooltip"]]], {
                   1, {Center, Bottom}}, {Center, Top}, 
                   "ClosingActions" -> {"ParentChanged", "MouseExit"}]}], 
               Evaluator -> None, 
               Appearance -> {
                "Default" -> None, "Hover" -> 
                 FrontEnd`FileName[{"Typeset", "ClickToCopy"}, "Hover.9.png"],
                  "Pressed" -> 
                 FrontEnd`FileName[{"Typeset", "ClickToCopy"}, 
                   "Pressed.9.png"]}, BaseStyle -> {}, DefaultBaseStyle -> {},
                BaselinePosition -> Baseline, FrameMargins -> 2, Method -> 
               "Preemptive"], 
              
              EventHandlerTag[{
               "MouseEntered" :> (Typeset`cellobj$$ = MathLink`CallFrontEnd[
                   FrontEnd`AttachCell[Typeset`boxobj$$, 
                    Cell[
                    BoxData[
                    TemplateBox[{"Copy"}, "ClickToCopyTooltip"]]], {
                    1, {Center, Bottom}}, {Center, Top}, 
                    "ClosingActions" -> {"ParentChanged"}]]), "MouseExited" :> 
                NotebookDelete[Typeset`cellobj$$], PassEventsDown -> True, 
                Method -> "Preemptive", PassEventsUp -> True}]], 
             MouseAppearanceTag["LinkHand"]], 
            Initialization :> (Typeset`boxobj$$ = EvaluationBox[]), 
            DynamicModuleValues :> {}, 
            UnsavedVariables :> {Typeset`boxobj$$, Typeset`cellobj$$}, 
            BaseStyle -> {Editable -> False}], Deploy, DefaultBaseStyle -> 
           "Deploy"]& ), 
         InterpretationFunction -> (RowBox[{"ClickToCopy", "[", 
            RowBox[{#, ",", #2}], "]"}]& ), Tooltip -> None}], 
      Cell[
       StyleData["BannerPreReleaseTemplate"], 
       TemplateBoxOptions -> {DisplayFunction :> (TagBox[
           GridBox[{{
              PanelBox[
               StyleBox[
                Slot["author"], FontWeight -> "SemiBold"], BaseStyle -> 
               "BannerPreReleaseLabel", Appearance -> None, ContentPadding -> 
               False, FrameMargins -> {{18, 20}, {6, 6}}, 
               ImageSize -> {Full, Automatic}], 
              TemplateBox[{"Provide Feedback \[RightGuillemet]", {
                 URL[
                  Slot["url"]], None}, 
                Slot["url"], "BannerPreReleaseLabel", {"HyperlinkActive"}, {
                Appearance -> None}}, "HyperlinkTemplate"]}}, 
            GridBoxAlignment -> {
             "Columns" -> {{Left, Right}}, "Rows" -> {{Center}}}, AutoDelete -> 
            False, GridBoxFrame -> {"Columns" -> None, "Rows" -> {{None}}}, 
            GridBoxItemSize -> {
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
            GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{0}}}], 
           "Grid"]& )}]}, Closed]]}, Visible -> False, FrontEndVersion -> 
  "14.3 for Mac OS X ARM (64-bit) (July 1, 2025)", StyleDefinitions -> 
  "PrivateStylesheetFormatting.nb"],
ETextbookTools`CreateNotebookCollection`Private`FileChangeProtection -> None,
ExpressionUUID->"12d00052-7c05-4f7f-91f6-c17da6e164ad"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "scaling"->{
  Cell[106023, 2044, 1117, 34, 48, "DisplayFormulaNumbered",ExpressionUUID->"b9ae1e75-284f-4fb5-9d27-a3a63893edfd",
   CellTags->"scaling",
   CellID->470321058]},
 "shifting"->{
  Cell[114274, 2281, 1191, 36, 85, "DisplayFormulaNumbered",ExpressionUUID->"f2663f13-c58d-4490-bb44-97e079544f8c",
   CellTags->"shifting",
   CellID->61107451]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"scaling", 337798, 7419},
 {"shifting", 337977, 7423}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[689, 24, 319, 8, 143, "Section",ExpressionUUID->"31c9d6c8-25c2-4569-8c9b-9f9841621767",
 CounterAssignments->{{"Section", 1}, {"Subsection", 0}, {"Subsubsection", 0}, {"Exercise", 0}},
 CellID->1553412245],
Cell[1011, 34, 1046, 15, 154, "Text",ExpressionUUID->"e86f6062-bcab-4e89-82bc-40b756572968",
 CellID->1240905136],
Cell[2060, 51, 583, 11, 83, "Text",ExpressionUUID->"7b1da2d7-3126-40d0-acb6-7fd87dd2ec22",
 CellID->810454819],
Cell[CellGroupData[{
Cell[2668, 66, 328, 7, 25, "Input",ExpressionUUID->"8a1d5081-456d-4555-9c59-20555a23cb06",
 CellID->1327470350],
Cell[2999, 75, 431, 10, 36, "Output",ExpressionUUID->"af1012aa-259f-6347-98fc-e89e9bbe18ca",
 CellID->532622580]
}, Open  ]],
Cell[3445, 88, 321, 6, 60, "Text",ExpressionUUID->"42cc18aa-ab34-40b0-8025-243b2a413bcf",
 CellID->1331536798],
Cell[CellGroupData[{
Cell[3791, 98, 429, 10, 25, "Input",ExpressionUUID->"c152914d-a8b8-4575-9dbd-0e75eb0728b0",
 CellID->1738029368],
Cell[4223, 110, 557, 14, 36, "Output",ExpressionUUID->"da45f3d6-0fe9-eb45-8167-00cb717f18c5",
 CellID->10667228]
}, Open  ]],
Cell[4795, 127, 591, 9, 36, "Text",ExpressionUUID->"79171837-eeea-4d3f-be82-5bc9518b5ab1",
 CellID->1499714417],
Cell[5389, 138, 281, 5, 36, "Text",ExpressionUUID->"22d93848-4a88-458a-9cb4-b47c03216370",
 CellID->1708046656],
Cell[CellGroupData[{
Cell[5695, 147, 571, 15, 28, "Input",ExpressionUUID->"0930d4c8-7289-46be-ae50-0c7b5995ed0a",
 CellID->414808071],
Cell[6269, 164, 678, 18, 63, "Output",ExpressionUUID->"a8f1765f-e49c-da4a-a95e-d364e5929916",
 CellID->524941433]
}, Open  ]],
Cell[6962, 185, 646, 10, 60, "Text",ExpressionUUID->"55dd8c32-7802-4404-8e5a-fe536a55ed3e",
 CellID->1480325712],
Cell[7611, 197, 978, 15, 130, "Text",ExpressionUUID->"03e7c2e7-c2f7-4a7d-af45-244bfcc1a7fb",
 CellID->761846973],
Cell[8592, 214, 810, 12, 36, "Text",ExpressionUUID->"a0ed79eb-7c1f-4423-8cc2-21f36d9b37e3",
 CellID->2009598236],
Cell[9405, 228, 488, 12, 28, "Input",ExpressionUUID->"ffccfa60-7f74-42cd-a259-c585b749dbc5",
 CellID->1994638465],
Cell[9896, 242, 305, 4, 36, "Text",ExpressionUUID->"16793d85-e6ba-4cb8-b507-d40d2bc69d46",
 CellID->19180265],
Cell[CellGroupData[{
Cell[10226, 250, 616, 15, 52, "Input",ExpressionUUID->"44a331fc-8798-42fd-8cf1-fafa3241a566",
 CellID->240166805],
Cell[10845, 267, 499, 10, 55, "Output",ExpressionUUID->"4555be77-8bff-494f-aad1-45063aadd7e6",
 CellID->122462219]
}, Open  ]],
Cell[11359, 280, 711, 16, 60, "Text",ExpressionUUID->"33835d6a-5b5d-47da-9663-d5bf7edc3e71",
 CellID->676695975],
Cell[CellGroupData[{
Cell[12095, 300, 396, 7, 28, "Input",ExpressionUUID->"1532c588-5e9b-467e-9aab-b3a7fc77da95",
 CellID->722233749],
Cell[12494, 309, 333, 8, 55, "Output",ExpressionUUID->"585d5354-fea3-9146-8f39-9d17d59cd7aa",
 CellID->116861964]
}, Open  ]],
Cell[12842, 320, 2414, 66, 160, "Text",ExpressionUUID->"cf1303a2-a29e-435c-996c-083ed3dd2f64",
 CellID->1615168087],
Cell[15259, 388, 282, 5, 83, "Text",ExpressionUUID->"27b192f5-70f4-4b45-ab0c-9e4574789677",
 CellID->1641369710],
Cell[15544, 395, 522, 14, 28, "Input",ExpressionUUID->"f589edbd-c48a-446e-9573-946aeda5156c",
 CellID->683112228],
Cell[16069, 411, 1104, 24, 107, "Text",ExpressionUUID->"19ac7dc5-948e-4016-bff2-5981a949e1d2",
 CellID->671256521],
Cell[CellGroupData[{
Cell[17198, 439, 311, 7, 28, "Input",ExpressionUUID->"94822a30-3707-4cf4-ae4c-3c4e99313ab5",
 CellID->928329958],
Cell[17512, 448, 19794, 375, 169, "Output",ExpressionUUID->"9c58d0f8-c164-8b41-b580-af1aa2c8458f",
 CellID->641218482]
}, Open  ]],
Cell[37321, 826, 637, 15, 60, "Text",ExpressionUUID->"6dc59ea9-0a82-496d-99ad-dc32f770d9ca",
 CellID->1404545184],
Cell[CellGroupData[{
Cell[37983, 845, 273, 5, 28, "Input",ExpressionUUID->"023d16cb-2a81-409c-b770-bd626116043f",
 CellID->1483178222],
Cell[38259, 852, 622, 17, 54, "Output",ExpressionUUID->"26346751-a5b1-3c47-858e-d34ad44b1014",
 CellID->667188508]
}, Open  ]],
Cell[CellGroupData[{
Cell[38918, 874, 409, 11, 28, "Input",ExpressionUUID->"6069fafd-68ed-42b6-9196-0129f58915f1",
 CellID->881791148],
Cell[39330, 887, 63522, 1058, 254, "Output",ExpressionUUID->"fb2a6634-f857-fb4c-b805-bd7b777812ce",
 CellID->319700664]
}, Open  ]],
Cell[102867, 1948, 242, 7, 36, "Text",ExpressionUUID->"564fc03a-d2b7-4f59-bacb-5fe8da67e579",
 CellID->734617041],
Cell[CellGroupData[{
Cell[103134, 1959, 420, 10, 28, "Input",ExpressionUUID->"90aa3bbc-2468-4b7b-8aff-1c099d9bc893",
 CellID->1026614652],
Cell[103557, 1971, 361, 8, 60, "Output",ExpressionUUID->"5919c578-326f-9441-9c3c-bd8980129ae6",
 CellID->46541]
}, Open  ]],
Cell[103933, 1982, 1171, 31, 63, "Text",ExpressionUUID->"f420f00a-9d72-45a4-a919-a01ee9e73a58",
 CellID->1494072528],
Cell[105107, 2015, 913, 27, 62, "Text",ExpressionUUID->"2942e384-0953-4aa7-939f-5c2562ec9c16",
 CellID->1532482905],
Cell[106023, 2044, 1117, 34, 48, "DisplayFormulaNumbered",ExpressionUUID->"b9ae1e75-284f-4fb5-9d27-a3a63893edfd",
 CellTags->"scaling",
 CellID->470321058],
Cell[107143, 2080, 1334, 30, 86, "Text",ExpressionUUID->"7b8dde0d-466d-404d-a191-754aeb74a4e2",
 CellID->1789629202],
Cell[108480, 2112, 332, 6, 60, "Text",ExpressionUUID->"ef138db4-6eaa-418e-9b4c-f1897e27a05c",
 CellID->2027724172],
Cell[CellGroupData[{
Cell[108837, 2122, 277, 5, 28, "Input",ExpressionUUID->"ffecff49-ad5e-432a-bf06-983ae267ebde",
 CellID->1907358380],
Cell[109117, 2129, 336, 7, 55, "Output",ExpressionUUID->"91cf04d5-3cd7-1144-8aac-800bd5d1e5f2",
 CellID->63618945]
}, Open  ]],
Cell[109468, 2139, 533, 12, 60, "Text",ExpressionUUID->"14a30351-1993-4168-a9df-8a499e6ea32c",
 CellID->174694096],
Cell[CellGroupData[{
Cell[110026, 2155, 392, 9, 28, "Input",ExpressionUUID->"fb58e32d-ed22-4f2c-92b9-318c37cf80d4",
 CellID->930751268],
Cell[110421, 2166, 378, 8, 52, "Output",ExpressionUUID->"a01f2e38-0f5a-314a-a620-58f47c76bad4",
 CellID->296021333]
}, Open  ]],
Cell[110814, 2177, 303, 8, 36, "Text",ExpressionUUID->"455b5f7d-7864-493e-8e35-cbb145f065d7",
 CellID->306392095],
Cell[CellGroupData[{
Cell[111142, 2189, 359, 8, 28, "Input",ExpressionUUID->"24bbb974-20e1-4300-873a-5e1a8c02d135",
 CellID->1010657284],
Cell[111504, 2199, 321, 7, 52, "Output",ExpressionUUID->"84e4a80a-a0b8-574f-a873-2a79986adb7f",
 CellID->276232554]
}, Open  ]],
Cell[111840, 2209, 1053, 33, 83, "Text",ExpressionUUID->"0adc7798-3bab-4a51-8056-472ea38de40f",
 CellID->663775186],
Cell[CellGroupData[{
Cell[112918, 2246, 351, 8, 28, "Input",ExpressionUUID->"9a08c91d-f2b2-432b-8ccf-fa8789027a00",
 CellID->2080342151],
Cell[113272, 2256, 367, 8, 39, "Output",ExpressionUUID->"c4e64352-c02d-a044-a7e9-24b23e155d70",
 CellID->46017808]
}, Open  ]],
Cell[113654, 2267, 617, 12, 83, "Text",ExpressionUUID->"8c9d2a34-39d2-4179-aaf4-60e42549041a",
 CellID->61659265],
Cell[114274, 2281, 1191, 36, 85, "DisplayFormulaNumbered",ExpressionUUID->"f2663f13-c58d-4490-bb44-97e079544f8c",
 CellTags->"shifting",
 CellID->61107451],
Cell[115468, 2319, 1123, 29, 60, "Text",ExpressionUUID->"cf6a4ec8-30bc-4f0f-8659-4b3145c58285",
 CellID->2137474240],
Cell[116594, 2350, 718, 19, 83, "Text",ExpressionUUID->"b2015e73-fffb-42ed-8fc9-0f66e3577e63",
 CellID->1773081480],
Cell[CellGroupData[{
Cell[117337, 2373, 331, 7, 28, "Input",ExpressionUUID->"b55e96d3-c59c-4f28-b072-f939a30a5545",
 CellID->1638977989],
Cell[117671, 2382, 374, 10, 55, "Output",ExpressionUUID->"ace85270-2768-ad49-8083-64c5d09f67f1",
 CellID->144502785]
}, Open  ]],
Cell[118060, 2395, 375, 9, 36, "Text",ExpressionUUID->"44217e33-eb8c-4bdd-9249-73ceb40f8167",
 CellID->710114440],
Cell[CellGroupData[{
Cell[118460, 2408, 389, 10, 28, "Input",ExpressionUUID->"84b07d9c-8cb9-4801-a3bb-355679b742ca",
 CellID->1947394842],
Cell[118852, 2420, 396, 10, 55, "Output",ExpressionUUID->"1c2432de-b16c-a445-a4fb-881aa8fc4039",
 CellID->105908967]
}, Open  ]],
Cell[119263, 2433, 1120, 23, 107, "Text",ExpressionUUID->"3c06fcb3-68e5-4856-a6ac-d156eb3543af",
 CellID->515758566],
Cell[CellGroupData[{
Cell[120408, 2460, 657, 15, 28, "Input",ExpressionUUID->"a146d4a2-2ee5-4c02-a36c-1f4f75104105",
 CellID->1039320973],
Cell[121068, 2477, 474, 11, 39, "Output",ExpressionUUID->"3bb86af5-a6e9-c645-a3f6-1c26b41feb78",
 CellID->296063225]
}, Open  ]],
Cell[121557, 2491, 655, 16, 83, "Text",ExpressionUUID->"d0a28c1e-2a61-4739-b01f-6c240e9a283c",
 CellID->442393551],
Cell[122215, 2509, 2244, 71, 124, "DisplayFormula",ExpressionUUID->"8ba2e68d-dff7-4a61-8295-9d86d8fcdcc6",
 CellID->1212069869],
Cell[124462, 2582, 913, 27, 60, "Text",ExpressionUUID->"bee0857b-6ee2-46e3-bdda-fe1e86257253",
 CellID->1050385794],
Cell[125378, 2611, 877, 28, 45, "DisplayFormulaNumbered",ExpressionUUID->"3bfbeb53-0dfc-4b59-8e75-5c4cd8292c71",
 CellID->2071560097],
Cell[126258, 2641, 357, 5, 36, "Text",ExpressionUUID->"35074593-82e2-498a-8e4a-e7ef062e43b1",
 CellID->1971596300],
Cell[126618, 2648, 294, 4, 36, "Text",ExpressionUUID->"656821e3-a8af-4982-a64d-3d2bb2902e59",
 CellID->1537960700],
Cell[CellGroupData[{
Cell[126937, 2656, 269, 5, 28, "Input",ExpressionUUID->"a87d1500-171e-4023-93d9-099092bb05d2",
 CellID->1038554161],
Cell[127209, 2663, 285, 5, 55, "Output",ExpressionUUID->"e30d6c9a-08e0-5e4c-8db0-746bc2584a5c",
 CellID->676929778]
}, Open  ]],
Cell[127509, 2671, 501, 14, 60, "Text",ExpressionUUID->"bfbfa02e-453f-4000-a672-0cfcabd24c8d",
 CellID->1565763944],
Cell[CellGroupData[{
Cell[128035, 2689, 259, 6, 28, "Input",ExpressionUUID->"675b792a-be86-4a74-bcf3-1b009899724a",
 CellID->574839994],
Cell[128297, 2697, 368, 9, 58, "Output",ExpressionUUID->"1460ee37-34d7-2849-9424-59e3584316e7",
 CellID->319756650]
}, Open  ]],
Cell[128680, 2709, 350, 9, 36, "Text",ExpressionUUID->"e332d78d-843c-4e2c-a886-4d06419d9fe4",
 CellID->651103309],
Cell[CellGroupData[{
Cell[129055, 2722, 445, 12, 28, "Input",ExpressionUUID->"2bb5df44-c0cf-466a-98e8-e05b4be231a1",
 CellID->957488942],
Cell[129503, 2736, 371, 9, 58, "Output",ExpressionUUID->"fb22a4a9-b87b-024a-a652-3351e1629d1b",
 CellID->170374768]
}, Open  ]],
Cell[CellGroupData[{
Cell[129911, 2750, 174, 2, 69, "SummarySection",ExpressionUUID->"c027ffd0-849f-4c87-9895-7006d3700ded",
 CellID->139280579],
Cell[130088, 2754, 1169, 17, 29, "SummaryList",ExpressionUUID->"118ca64a-845b-4171-8a56-e5e175715240",
 CellID->1578068080],
Cell[131260, 2773, 1461, 21, 52, "SummaryList",ExpressionUUID->"8335909b-60e8-4d6f-8a71-5797d2b592eb",
 CellID->1021119311],
Cell[132724, 2796, 1346, 19, 29, "SummaryList",ExpressionUUID->"968117a2-48c2-4c43-a646-21c8a38e2a38",
 CellID->133041234]
}, Open  ]],
Cell[CellGroupData[{
Cell[134107, 2820, 161, 3, 69, "ExerciseSection",ExpressionUUID->"35865ca2-3592-4104-ab05-9e54ed39396d",
 CellID->1986792280],
Cell[134271, 2825, 879, 23, 29, "Exercise",ExpressionUUID->"aaafccaa-46f5-42aa-9c48-e3b32feeef97",
 CellID->711666251],
Cell[CellGroupData[{
Cell[135175, 2852, 110, 1, 29, "ExerciseSolution",ExpressionUUID->"ee66de7d-7ffa-43c3-aa77-184ee2214cb2",
 CellID->31905076],
Cell[CellGroupData[{
Cell[135310, 2857, 277, 4, 22, "SolutionAnswer",ExpressionUUID->"5535b2b9-5123-4997-8d1f-c4631fafe677",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellID->1004776527],
Cell[135590, 2863, 579, 15, 28, "ExerciseInput",ExpressionUUID->"574151dc-12e0-446c-8e96-a04861c59910",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellID->1121850205],
Cell[136172, 2880, 350, 5, 22, "SolutionAnswer",ExpressionUUID->"006080e2-e0a0-40ff-a605-c4c1a8ed9434",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellID->1428834168],
Cell[136525, 2887, 430, 9, 28, "ExerciseInput",ExpressionUUID->"63260d88-b7e0-488e-b183-87162e7265c5",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellID->1161599233],
Cell[136958, 2898, 746, 19, 48, "ExerciseOutput",ExpressionUUID->"fa06bfa3-d379-df49-8fd8-4f47f2f1a0de",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellID->256354372],
Cell[137707, 2919, 707, 16, 22, "SolutionAnswer",ExpressionUUID->"dcf82179-4da9-407c-a3c5-4d830e5461d2",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellID->1729660651],
Cell[138417, 2937, 340, 7, 28, "ExerciseInput",ExpressionUUID->"4af90da2-b06d-4432-8bfc-355901af814a",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellID->1270383017],
Cell[138760, 2946, 676, 18, 48, "ExerciseOutput",ExpressionUUID->"35711cc7-abc8-e442-b086-23093c826703",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellID->902459233]
}, Open  ]]
}, Closed]],
Cell[139463, 2968, 799, 19, 25, "Exercise",ExpressionUUID->"04d47969-f407-42b7-b640-6fdf5332578d",
 CellID->2006472404],
Cell[CellGroupData[{
Cell[140287, 2991, 111, 1, 25, "ExerciseSolution",ExpressionUUID->"13e1051a-eca6-4efe-a7c8-2f374dcd66b9",
 CellID->460735682],
Cell[140401, 2994, 402, 6, 22, "SolutionAnswer",ExpressionUUID->"27accd27-fe7a-48e6-ae2a-0ebfdc88e144",
 CellID->1815264187],
Cell[CellGroupData[{
Cell[140828, 3004, 506, 14, 28, "ExerciseInput",ExpressionUUID->"6b56dd11-13ff-484d-85df-ff0836b9bbfd",
 CellID->269847969],
Cell[141337, 3020, 484, 13, 46, "ExerciseOutput",ExpressionUUID->"75e10e58-da56-db4b-81c1-3a3f7265842f",
 CellID->21797184]
}, Open  ]]
}, Closed]],
Cell[141848, 3037, 1007, 21, 44, "Exercise",ExpressionUUID->"5c3b8c99-1501-43f3-957b-0d6c8c479f13",
 CellID->1589483118],
Cell[CellGroupData[{
Cell[142880, 3062, 111, 1, 25, "ExerciseSolution",ExpressionUUID->"b2420b5d-c914-4083-a13c-3b4af71f61f0",
 CellID->103736567],
Cell[142994, 3065, 482, 10, 43, "SolutionAnswer",ExpressionUUID->"432a4398-830f-46f1-96c1-5233129be9a9",
 CellID->1893679193],
Cell[CellGroupData[{
Cell[143501, 3079, 490, 10, 28, "ExerciseInput",ExpressionUUID->"c7fafc3c-7919-4c6d-8010-00a4e20a3cc5",
 CellID->993381753],
Cell[143994, 3091, 634, 15, 47, "ExerciseOutput",ExpressionUUID->"f030ade0-5c86-7e4b-9d01-916dc707694e",
 CellID->97505773]
}, Open  ]],
Cell[144643, 3109, 420, 9, 22, "SolutionAnswer",ExpressionUUID->"16068303-814f-46c5-af96-c1568729f523",
 CellID->1227074511],
Cell[CellGroupData[{
Cell[145088, 3122, 326, 8, 28, "ExerciseInput",ExpressionUUID->"c65a85bf-d3c1-4f2e-ab3f-994a38b141e2",
 CellID->1358548211],
Cell[145417, 3132, 568, 16, 47, "ExerciseOutput",ExpressionUUID->"41c89471-c9ed-d848-81a7-3f98faec91aa",
 CellID->50290532]
}, Open  ]],
Cell[CellGroupData[{
Cell[146022, 3153, 211, 3, 28, "ExerciseInput",ExpressionUUID->"6a1664cc-8a2b-4eeb-a200-a78ae77f90ba",
 CellID->1189381132],
Cell[146236, 3158, 363, 9, 50, "ExerciseOutput",ExpressionUUID->"34d6b3f7-2372-334f-8448-52c439521589",
 CellID->3667903]
}, Open  ]]
}, Closed]],
Cell[146626, 3171, 1202, 35, 34, "Exercise",ExpressionUUID->"dd668ed3-c5f4-410a-9700-16448bc8efa3",
 CellID->1744061786],
Cell[CellGroupData[{
Cell[147853, 3210, 110, 1, 25, "ExerciseSolution",ExpressionUUID->"f3f953f5-c231-43b3-ae8e-41ade44cc6ad",
 CellID->98900012],
Cell[147966, 3213, 614, 15, 26, "SolutionAnswer",ExpressionUUID->"271a1432-3f8d-4801-aace-a393cec1ffe5",
 CellID->1013478173],
Cell[148583, 3230, 457, 13, 52, "ExerciseInput",ExpressionUUID->"6ec7d073-c234-4e43-945b-e5ec8f39bb5f",
 CellID->1442139399],
Cell[CellGroupData[{
Cell[149065, 3247, 270, 6, 28, "ExerciseInput",ExpressionUUID->"5769222c-b208-4995-8c7a-6a0ad5c071b4",
 CellID->250782769],
Cell[149338, 3255, 671, 21, 52, "ExerciseOutput",ExpressionUUID->"b6a55e35-f86a-654f-8c76-7b54fbbbfbdf",
 CellID->219299588]
}, Open  ]]
}, Closed]],
Cell[150036, 3280, 976, 30, 29, "Exercise",ExpressionUUID->"ea24ff7d-a828-4896-91a8-20a967a7ae49",
 CellID->626505473],
Cell[CellGroupData[{
Cell[151037, 3314, 111, 1, 25, "ExerciseSolution",ExpressionUUID->"a7541ef8-f779-4c28-a39a-669625fe5fae",
 CellID->464490833],
Cell[151151, 3317, 742, 19, 47, "SolutionAnswer",ExpressionUUID->"2592e727-a0ea-43a2-b173-ec79ab958424",
 CellID->1228707634],
Cell[151896, 3338, 320, 8, 47, "ExerciseInput",ExpressionUUID->"2bd14a8b-1e6b-4125-be3f-d7c219925ad7",
 CellID->2086487190],
Cell[152219, 3348, 210, 2, 22, "SolutionAnswer",ExpressionUUID->"735664e1-ba6e-4df1-a39f-fd76e5221e1c",
 CellID->580558630],
Cell[CellGroupData[{
Cell[152454, 3354, 491, 13, 47, "ExerciseInput",ExpressionUUID->"7f070843-a030-4cb9-a42d-707da72c4271",
 CellID->1832712606],
Cell[152948, 3369, 279, 5, 43, "ExerciseOutput",ExpressionUUID->"11cdde5f-b5cb-8f4c-87e8-8b6948c23cf4",
 CellID->639889462]
}, Open  ]]
}, Closed]],
Cell[153254, 3378, 544, 13, 25, "Exercise",ExpressionUUID->"75be12ba-cbda-400d-b818-1d72a5f1c28c",
 CellID->794622757],
Cell[CellGroupData[{
Cell[153823, 3395, 111, 1, 25, "ExerciseSolution",ExpressionUUID->"49b8f8c5-ef75-4f25-a308-2a2c48abbd3b",
 CellID->208643919],
Cell[153937, 3398, 431, 9, 22, "SolutionAnswer",ExpressionUUID->"081e3fd9-fe74-4c16-96ae-2a20751304a1",
 CellID->304019797],
Cell[CellGroupData[{
Cell[154393, 3411, 252, 4, 28, "ExerciseInput",ExpressionUUID->"acec2f72-eda6-4cd7-a2b4-7ebe235f68cd",
 CellID->1848325258],
Cell[154648, 3417, 290, 5, 46, "ExerciseOutput",ExpressionUUID->"5ed82ea0-a54d-994a-b3ac-07b4d3c08341",
 CellID->108273343]
}, Open  ]],
Cell[154953, 3425, 709, 17, 43, "SolutionAnswer",ExpressionUUID->"cdc76a61-4229-49a8-b830-f92bd7ef6169",
 CellID->365969228],
Cell[CellGroupData[{
Cell[155687, 3446, 278, 6, 28, "ExerciseInput",ExpressionUUID->"08f62238-0b5a-4e22-99e4-d5c490da0341",
 CellID->1123490203],
Cell[155968, 3454, 366, 8, 48, "ExerciseOutput",ExpressionUUID->"c497d014-18cd-954b-bec5-84ac06b95089",
 CellID->20109875]
}, Open  ]],
Cell[156349, 3465, 543, 15, 22, "SolutionAnswer",ExpressionUUID->"b703da1d-5b1d-4c33-a23a-38a6de8ef065",
 CellID->743903260],
Cell[CellGroupData[{
Cell[156917, 3484, 335, 8, 28, "ExerciseInput",ExpressionUUID->"eaa0a3cc-e3b4-407b-b95b-41ada6083875",
 CellID->618345327],
Cell[157255, 3494, 348, 9, 48, "ExerciseOutput",ExpressionUUID->"8fefdfc4-b0fe-994d-892c-53898e62a8c8",
 CellID->322694641]
}, Open  ]]
}, Closed]],
Cell[157630, 3507, 565, 16, 29, "Exercise",ExpressionUUID->"ae763952-8c9f-4be7-bb9d-9f300689c5b2",
 CellID->1234714787],
Cell[CellGroupData[{
Cell[158220, 3527, 111, 1, 25, "ExerciseSolution",ExpressionUUID->"9024ec9f-c304-48f1-978f-4cc174163897",
 CellID->138568282],
Cell[158334, 3530, 696, 18, 43, "SolutionAnswer",ExpressionUUID->"ff43112d-c6ef-4abb-9bcc-38aa8b012514",
 CellID->819479212],
Cell[CellGroupData[{
Cell[159055, 3552, 336, 8, 28, "ExerciseInput",ExpressionUUID->"4a54d99c-1dec-4af4-b5b5-7c2220eca744",
 CellID->716944148],
Cell[159394, 3562, 207, 3, 31, "ExerciseOutput",ExpressionUUID->"7ee0843a-69ab-d943-96df-d524cb420611",
 CellID->373317982]
}, Open  ]],
Cell[159616, 3568, 490, 12, 22, "SolutionAnswer",ExpressionUUID->"81977293-566a-4844-b3ad-3e7fdf135657",
 CellID->1263021161],
Cell[CellGroupData[{
Cell[160131, 3584, 332, 8, 28, "ExerciseInput",ExpressionUUID->"3ece5155-140a-4f97-ad67-24eed08f6906",
 CellID->2016033361],
Cell[160466, 3594, 335, 7, 46, "ExerciseOutput",ExpressionUUID->"9c8bc7f4-1668-5c41-a0e7-741a30dba1f2",
 CellID->329511570]
}, Open  ]],
Cell[160816, 3604, 575, 11, 43, "SolutionAnswer",ExpressionUUID->"29559b84-b91d-41b8-9786-077dae770e9b",
 CellID->1368326901],
Cell[CellGroupData[{
Cell[161416, 3619, 303, 8, 28, "ExerciseInput",ExpressionUUID->"789cd68e-ac07-49fb-9c55-6fa5b159eb26",
 CellID->2107867579],
Cell[161722, 3629, 480, 12, 54, "ExerciseOutput",ExpressionUUID->"20ad6569-d653-9344-8edc-7b7c248a64f9",
 CellID->478148183]
}, Open  ]],
Cell[162217, 3644, 636, 19, 26, "SolutionAnswer",ExpressionUUID->"2e781cfa-438e-4a2e-b872-76c7c1201c74",
 CellID->1977564471],
Cell[CellGroupData[{
Cell[162878, 3667, 398, 10, 28, "ExerciseInput",ExpressionUUID->"a3bcdbfc-70c5-4a7d-a1b5-eca9e676bdd9",
 CellID->344547347],
Cell[163279, 3679, 426, 11, 54, "ExerciseOutput",ExpressionUUID->"16fdb041-c87c-c14d-8785-77649b26bb83",
 CellID->360127777]
}, Open  ]]
}, Closed]],
Cell[163732, 3694, 527, 14, 25, "Exercise",ExpressionUUID->"238cdbe8-9c61-4680-bca1-534a676e7330",
 CellID->1751110409],
Cell[CellGroupData[{
Cell[164284, 3712, 109, 1, 25, "ExerciseSolution",ExpressionUUID->"c41662bd-b14d-40b8-9f56-f0cf4122336c",
 CellID->2580725],
Cell[164396, 3715, 534, 12, 22, "SolutionAnswer",ExpressionUUID->"fdbd18c1-8d92-4cf0-9f94-e942c7b10f81",
 CellID->2040785126],
Cell[CellGroupData[{
Cell[164955, 3731, 399, 11, 46, "ExerciseInput",ExpressionUUID->"268006e6-9dd5-4b94-91d0-b69d6766ee65",
 CellID->1796745575],
Cell[165357, 3744, 230, 3, 31, "ExerciseOutput",ExpressionUUID->"01717810-cbf5-3342-9805-9626d7a4d965",
 CellID->250297298]
}, Open  ]],
Cell[165602, 3750, 211, 2, 22, "SolutionAnswer",ExpressionUUID->"9c3dd7e7-5bb2-487e-92c6-2b04629685df",
 CellID->2129778512],
Cell[CellGroupData[{
Cell[165838, 3756, 381, 10, 45, "ExerciseInput",ExpressionUUID->"3aad546e-5f2a-4b5a-8be5-9f1c4321a899",
 CellID->1432885531],
Cell[166222, 3768, 396, 9, 46, "ExerciseOutput",ExpressionUUID->"6ca88c47-32d0-2e4b-adc5-f87891e27c86",
 CellID->754979442]
}, Open  ]],
Cell[166633, 3780, 830, 22, 22, "SolutionAnswer",ExpressionUUID->"67cd74fb-d957-4a52-9d28-be97d7d7f3be",
 CellID->2115469392],
Cell[CellGroupData[{
Cell[167488, 3806, 304, 6, 28, "ExerciseInput",ExpressionUUID->"e01d15b9-c9e4-4def-a288-790b54cb69b1",
 CellID->1902204585],
Cell[167795, 3814, 473, 12, 48, "ExerciseOutput",ExpressionUUID->"41ed0e76-2354-de4b-ba16-f36783889f56",
 CellID->199177452]
}, Open  ]],
Cell[168283, 3829, 645, 18, 22, "SolutionAnswer",ExpressionUUID->"158e2494-56dd-4fb5-aa34-0f35117017ea",
 CellID->538980340],
Cell[CellGroupData[{
Cell[168953, 3851, 436, 11, 28, "ExerciseInput",ExpressionUUID->"84e81c27-4793-46a7-a5d2-c6796b62cbe2",
 CellID->556551334],
Cell[169392, 3864, 438, 10, 46, "ExerciseOutput",ExpressionUUID->"beb1c353-dc73-e845-9e1f-a671fc482423",
 CellID->298089183]
}, Open  ]],
Cell[CellGroupData[{
Cell[169867, 3879, 232, 4, 28, "ExerciseInput",ExpressionUUID->"cde10320-ce45-d94c-8d21-4dc6a7e3799a",
 CellID->201307823],
Cell[170102, 3885, 175, 2, 31, "ExerciseOutput",ExpressionUUID->"9b671a98-79dc-b145-b93e-ae28c64c1985",
 CellID->921443957]
}, Open  ]]
}, Closed]],
Cell[170304, 3891, 1042, 32, 37, "Exercise",ExpressionUUID->"44da34cd-bbeb-4aea-90cb-45b268b4e187",
 CellID->663057674],
Cell[CellGroupData[{
Cell[171371, 3927, 111, 1, 25, "ExerciseSolution",ExpressionUUID->"c4e28f99-8909-411d-8269-0984fe03df4e",
 CellID->700019135],
Cell[171485, 3930, 545, 12, 43, "SolutionAnswer",ExpressionUUID->"02900001-9fd4-46f8-a73c-009d0e5898ec",
 CellID->929104880],
Cell[CellGroupData[{
Cell[172055, 3946, 394, 11, 46, "ExerciseInput",ExpressionUUID->"fff6d9f2-e364-4dbe-8a43-1ba3ea976333",
 CellID->717682635],
Cell[172452, 3959, 327, 7, 48, "ExerciseOutput",ExpressionUUID->"029832f2-a014-1a49-a2e7-d5ed8f673e14",
 CellID->91217486]
}, Open  ]],
Cell[172794, 3969, 616, 15, 22, "SolutionAnswer",ExpressionUUID->"426d4431-13c1-400f-a136-5f1487bf915f",
 CellID->1627995614],
Cell[173413, 3986, 416, 11, 28, "ExerciseInput",ExpressionUUID->"c5eee4ff-216f-45c0-9589-00cb1e4e83b0",
 CellID->817498235],
Cell[173832, 3999, 202, 2, 22, "SolutionAnswer",ExpressionUUID->"8878ef07-d58f-434e-87d9-80ca7ed6abe8",
 CellID->1974923149],
Cell[CellGroupData[{
Cell[174059, 4005, 402, 11, 46, "ExerciseInput",ExpressionUUID->"7334d4a8-70a8-4b70-a816-a30dd7bbb7bb",
 CellID->66464142],
Cell[174464, 4018, 489, 13, 51, "ExerciseOutput",ExpressionUUID->"546cdff8-32be-014f-bd10-0861f4bf4bcb",
 CellID->90171278]
}, Open  ]]
}, Closed]]
}, Open  ]]
}, Open  ]],
Cell[175004, 4037, 293, 6, 135, "SmallText",ExpressionUUID->"15dc99d8-db49-4588-8355-6a2f369ffdb5",
 CellGroupingRules->"SectionGrouping"]
}
]
*)

(* NotebookSignature jTG1BsRENe@v3kInXE3BBBJ3 *)
