(* 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[    300547,       7136]
NotebookOptionsPosition[    106409,       3125]
NotebookOutlinePosition[    269917,       6529]
CellTagsIndexPosition[    269723,       6520]
WindowTitle->24. Evaluation of Integrals and Sums | Laplace Transforms in \
Theory and Practice
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[TextData[{
 
 CounterBox["Section"],
 StyleBox[" | ", "SectionBar"],
 "Evaluation of Integrals and Sums"
}], "Section",
 CellChangeTimes->{
  3.652728456208679*^9, 3.652728527108994*^9, {3.893987538527171*^9, 
   3.893987548595874*^9}, {3.893987584392735*^9, 3.893987584813466*^9}},
 CounterAssignments->{{"Section", 23}},
 CellID->850251078,ExpressionUUID->"05c7a800-5550-4f99-a5da-3f4324f2b5b7"],

Cell[TextData[{
 "The integration and summation techniques are useful for evaluating Laplace \
transforms (see, for instance, Chapters ",
 ButtonBox["4",
  BaseStyle->"Hyperlink",
  Appearance->None,
  ButtonFunction:>
   NotebookLocate[{"LaplaceTransform-04_Special-Functions.nb", ""}, 
    FrontEnd`HistoryData :> {
      EvaluationNotebook[]}]],
 " and ",
 ButtonBox["5",
  BaseStyle->"Hyperlink",
  Appearance->None,
  ButtonFunction:>
   NotebookLocate[{"LaplaceTransform-05_Elementary-Functions.nb", ""}, 
    FrontEnd`HistoryData :> {
      EvaluationNotebook[]}]],
 "). In this chapter, the reverse approach will be employed to evaluate \
integrals and sums [",
 Cell[BoxData[
  ButtonBox[
   CounterBox["Reference", {"LaplaceTransform-29_References.nb", "Efthimiou"},
    
    BaseStyle->"Hyperlink"],
   Appearance->None,
   BaseStyle->"Text",
   ButtonFunction:>
    NotebookLocate[{"LaplaceTransform-29_References.nb", "Efthimiou"}, 
     FrontEnd`HistoryData :> {
       EvaluationNotebook[]}]]],ExpressionUUID->
  "0baafe42-eea6-45df-af15-22df5c049c31"],
 ", ",
 Cell[BoxData[
  ButtonBox[
   CounterBox["Reference", {"LaplaceTransform-29_References.nb", 
    "Lesko-Smith"},
    BaseStyle->"Hyperlink"],
   Appearance->None,
   BaseStyle->"Text",
   ButtonFunction:>
    NotebookLocate[{"LaplaceTransform-29_References.nb", "Lesko-Smith"}, 
     FrontEnd`HistoryData :> {
       EvaluationNotebook[]}]]],ExpressionUUID->
  "80e6e9a1-9c6c-4058-af21-bf4e0757ec1e"],
 ", ",
 Cell[BoxData[
  ButtonBox[
   CounterBox["Reference", {"LaplaceTransform-29_References.nb", "Wheelon"},
    BaseStyle->"Hyperlink"],
   Appearance->None,
   BaseStyle->"Text",
   ButtonFunction:>
    NotebookLocate[{"LaplaceTransform-29_References.nb", "Wheelon"}, 
     FrontEnd`HistoryData :> {
       EvaluationNotebook[]}]]],ExpressionUUID->
  "8bddd6a1-fad8-484b-944d-c393a3c2318e"],
 "] with the help of the Laplace transform."
}], "Text",
 CellID->1833128216,ExpressionUUID->"cbcd4117-5a11-4b81-9cc1-f7d5c5d9cb23"],

Cell[CellGroupData[{

Cell["Integrals", "Subsection",
 CellChangeTimes->{{3.898514775653331*^9, 3.898514779654128*^9}},
 CellID->2114387840,ExpressionUUID->"779ddccc-6b7d-4abb-9a5e-e8dd8e942aa6"],

Cell[TextData[{
 "How can the Laplace transform be used for evaluating integrals? First, \
recall that the Laplace transform of ",
 Cell[BoxData[
  FormBox[
   RowBox[{"f", "(", "t", ")"}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"65a94682-bb5c-4bef-96b4-f3269fb0d462"],
 " is an integral of the following type:"
}], "Text",
 CellChangeTimes->{{3.893987828290509*^9, 3.893987905384481*^9}, {
  3.8939879516957006`*^9, 3.893987956695155*^9}, {3.918029723523851*^9, 
  3.9180297409916573`*^9}, {3.9180299057668667`*^9, 3.918029919821611*^9}, {
  3.9196696443482323`*^9, 3.9196696538470764`*^9}},
 CellID->501713442,ExpressionUUID->"11106aec-1f2d-4a99-b64b-e02029c5825f"],

Cell[BoxData[
 FormBox[
  RowBox[{
   SubsuperscriptBox["\[Integral]", "0", 
    RowBox[{"\[VeryThinSpace]", "\[Infinity]"}]], 
   RowBox[{"exp", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "s"}], " ", "t"}], ")"}], "f", 
    RowBox[{"(", "t", ")"}], " ", 
    RowBox[{"\[DifferentialD]", "t"}]}]}], TraditionalForm]], "DisplayFormula",\

 CellID->302091432,ExpressionUUID->"d9404063-7c71-4848-8aef-21bf2d2234a7"],

Cell[TextData[{
 "If the Laplace transform of ",
 Cell[BoxData[
  FormBox[
   RowBox[{"f", "(", "t", ")"}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"770909fa-ecdc-419c-97cf-ce11598b0472"],
 " is known, by using some techniques other than the direct evaluation of the \
previous integral, then one can use this knowledge for evaluating integrals \
of the previous type. The next few examples are discussed to illustrate the \
idea."
}], "Text",
 CellID->865836232,ExpressionUUID->"0e40f686-3111-4ef2-8002-61880c86730f"],

Cell["For example, let\[CloseCurlyQuote]s try to determine the following \
integral:", "Text",
 CellChangeTimes->{{3.893988553285262*^9, 3.893988611958693*^9}, {
  3.898501669232266*^9, 3.898501670251691*^9}, {3.918029993452182*^9, 
  3.918029997775962*^9}, {3.919669684966652*^9, 3.9196697027009163`*^9}},
 CellID->531479216,ExpressionUUID->"a57a63ea-492d-438f-95bf-225e488a81e4"],

Cell[BoxData[
 FormBox[
  RowBox[{
   SubsuperscriptBox["\[Integral]", "0", 
    RowBox[{"\[VeryThinSpace]", "\[Infinity]"}]], 
   RowBox[{"t", " ", "exp", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "3"}], " ", "t"}], ")"}], " ", "cos", 
    RowBox[{"(", "t", ")"}], 
    RowBox[{"\[DifferentialD]", "t"}]}]}], TraditionalForm]], "DisplayFormula",\

 CellID->122427896,ExpressionUUID->"af119a8b-1f27-4d8c-acd8-b1a80079bc9d"],

Cell[TextData[{
 "Notice that this is the Laplace transform of the function ",
 Cell[BoxData[
  FormBox[
   RowBox[{"t", " ", 
    RowBox[{"cos", "(", "t", ")"}]}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"b6881bd8-fa9f-411e-9185-1b59092099fa"],
 " evaluated at ",
 Cell[BoxData[
  FormBox[
   RowBox[{"s", "=", "3"}], TraditionalForm]], "InlineMath",ExpressionUUID->
  "20f8c8e1-9bc8-4105-ba0c-7c3b93811eae"],
 ":"
}], "Text",
 CellChangeTimes->{{3.89398869056818*^9, 3.89398871373806*^9}, {
   3.898501673363165*^9, 3.8985016744984217`*^9}, {3.918030008288581*^9, 
   3.918030028034415*^9}, 3.9196697098230877`*^9},
 CellID->2035518051,ExpressionUUID->"953c219f-ef22-4ba3-be38-ba0c78418bda"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    SubscriptBox["\[ScriptCapitalL]", "t"], "[", 
    RowBox[{"t", " ", "cos", 
     RowBox[{"(", "t", ")"}]}], "]"}], 
   RowBox[{"(", "3", ")"}]}], TraditionalForm]], "DisplayFormula",
 CellChangeTimes->{{3.89398869056818*^9, 3.89398871373806*^9}, {
  3.898501673363165*^9, 3.898501675632279*^9}, {3.9311544074632435`*^9, 
  3.931154408068861*^9}, {3.9457688834294987`*^9, 3.9457688834314938`*^9}},
 CellID->1590956800,ExpressionUUID->"15a98dc8-4f11-47ec-b9fd-30902448fd02"],

Cell["\<\
Since the Laplace transform of the cosine function is known, then one can use \
the multiplication property to obtain:\
\>", "Text",
 CellChangeTimes->{{3.893988781916629*^9, 3.893988860683241*^9}, {
   3.898501537759995*^9, 3.898501538568452*^9}, {3.9180300341963778`*^9, 
   3.918030074183218*^9}, 3.9311544153439837`*^9, 3.946636775606502*^9},
 CellID->436194546,ExpressionUUID->"8815a2cd-bdb8-492b-9fae-7b7d5a60c938"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LaplaceTransform", "[", 
  RowBox[{
   RowBox[{"t", "*", 
    RowBox[{"Cos", "[", "t", "]"}]}], ",", "t", ",", "s"}], "]"}]], "Input",
 CellChangeTimes->{{3.893988841400514*^9, 3.893988846687756*^9}, {
   3.894017729888158*^9, 3.894017731582422*^9}, 3.89401780788056*^9},
 CellID->1262683182,ExpressionUUID->"e6a899c5-732c-481b-b521-1afd16fb6a72"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"-", "1"}], "+", 
   SuperscriptBox["s", "2"]}], 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"1", "+", 
     SuperscriptBox["s", "2"]}], ")"}], "2"]]], "Output",
 CellChangeTimes->{
  3.893988846940885*^9, {3.894017725323945*^9, 3.89401773185469*^9}, {
   3.894017772625681*^9, 3.894017808330964*^9}, 3.918030105826215*^9, 
   3.924463942047703*^9},
 CellID->853739471,ExpressionUUID->"8c9d125b-bede-4d46-8775-8020b6691899"]
}, Open  ]],

Cell[TextData[{
 "Evaluating this expression at ",
 Cell[BoxData[
  FormBox[
   RowBox[{"s", "=", "3"}], TraditionalForm]], "InlineMath",ExpressionUUID->
  "307f7d51-a3be-45ac-8d81-c55a06d6bc93"],
 ", one finds the original integral:"
}], "Text",
 CellChangeTimes->{{3.893988894639145*^9, 3.89398893196445*^9}, {
   3.918030111021948*^9, 3.918030112876767*^9}, 3.946636782534431*^9},
 CellID->1532926351,ExpressionUUID->"91217ae8-6e65-4386-afc5-9a3781c9d827"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"s", "\[Rule]", "3"}]}]], "Input",
 CellChangeTimes->{{3.893988946921709*^9, 3.89398894868566*^9}},
 CellID->2046276691,ExpressionUUID->"bc7660db-4499-4e6d-ac11-22bcd0421c1d"],

Cell[BoxData[
 FractionBox["2", "25"]], "Output",
 CellChangeTimes->{3.893988949172837*^9, 3.918030114915689*^9, 
  3.924463942059862*^9},
 CellID->68288558,ExpressionUUID->"1ab97541-367c-3c4f-9f8e-06d8c81f50bc"]
}, Open  ]],

Cell["\<\
It is always a good idea to crosscheck the answer by directly employing \
Mathematica\[CloseCurlyQuote]s built-in function for integration:\
\>", "Text",
 CellChangeTimes->{{3.898501569604865*^9, 3.898501612571549*^9}, {
  3.918030136091535*^9, 3.918030157441732*^9}, {3.9196697251488495`*^9, 
  3.9196697255455265`*^9}, {3.94663679285373*^9, 3.946636817976482*^9}},
 CellID->1125151573,ExpressionUUID->"4c3b7abb-5c28-4342-97b9-3dbef6427aa5"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{"t", "*", 
    RowBox[{"Cos", "[", "t", "]"}], 
    RowBox[{"Exp", "[", 
     RowBox[{
      RowBox[{"-", "3"}], "t"}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "\[Infinity]"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.898501614127684*^9, 3.898501631995594*^9}},
 CellID->948433699,ExpressionUUID->"0e6ceecf-3c69-4e1e-b3cf-cc1af901851a"],

Cell[BoxData[
 FractionBox["2", "25"]], "Output",
 CellChangeTimes->{3.898501634134681*^9, 3.9180301711287317`*^9, 
  3.924463942704569*^9},
 CellID->78486678,ExpressionUUID->"8e070406-b83f-0e40-9aa6-061f6de3f3ba"]
}, Open  ]],

Cell["Next, consider a more advanced example:", "Text",
 CellChangeTimes->{{3.893989354295615*^9, 3.893989370371711*^9}, {
  3.893989405919732*^9, 3.893989421371613*^9}, {3.8985019684253197`*^9, 
  3.898502008578566*^9}, {3.918030176036622*^9, 3.918030180119543*^9}},
 CellID->411980933,ExpressionUUID->"520d211b-c705-4c7b-9a4a-1fb61289184c"],

Cell[BoxData[
 FormBox[
  RowBox[{
   SubsuperscriptBox["\[Integral]", "0", 
    RowBox[{"\[VeryThinSpace]", "\[Infinity]"}]], 
   RowBox[{"t", " ", "erf", 
    RowBox[{"(", "t", ")"}], " ", 
    RowBox[{"exp", "(", 
     RowBox[{"-", 
      SuperscriptBox["t", "2"]}], ")"}], 
    RowBox[{"\[DifferentialD]", "t"}]}]}], 
  TraditionalForm]], "DisplayFormulaNumbered",
 CellTags->"integral1",
 CellID->626028343,ExpressionUUID->"24398470-14c3-4fc4-a4e7-2b6a8fe6e63b"],

Cell[TextData[{
 "This doesn\[CloseCurlyQuote]t look like a Laplace transform integral. Is it \
possible to bring it to the Laplace integral form? The answer is affirmative. \
Apply a change of variables ",
 Cell[BoxData[
  FormBox[
   RowBox[{"u", "=", 
    FractionBox[
     SuperscriptBox["t", "2"], "2"]}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"9e09185f-9c90-4bed-b8d5-99488f359919"],
 " to the integral (",
 
 CounterBox["DisplayFormulaNumbered", "integral1",
  BaseStyle->"Hyperlink"],
 "):"
}], "Text",
 CellChangeTimes->{{3.89399000260815*^9, 3.893990013882653*^9}, {
   3.898501830895442*^9, 3.898501867990784*^9}, {3.918030191430081*^9, 
   3.918030252317781*^9}, {3.9196697927560253`*^9, 3.919669802522484*^9}, 
   3.947002053594488*^9},
 CellID->394921329,ExpressionUUID->"beb21760-0c3e-49c5-8896-a17560454ee6"],

Cell[BoxData[
 FormBox[
  RowBox[{
   SubsuperscriptBox["\[Integral]", "0", 
    RowBox[{"\[VeryThinSpace]", "\[Infinity]"}]], 
   RowBox[{"erf", 
    RowBox[{"(", 
     SqrtBox[
      RowBox[{"2", " ", "u"}]], ")"}], " ", "exp", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "2"}], " ", "u"}], ")"}], 
    RowBox[{"\[DifferentialD]", "u"}]}]}], TraditionalForm]], "DisplayFormula",\

 CellID->715744122,ExpressionUUID->"600b3e02-6ba8-4089-b076-b09e67cdc2ba"],

Cell[TextData[{
 "Notice that this is the Laplace transform of the ",
 Cell[BoxData[
  FormBox[
   RowBox[{"erf", "(", 
    SqrtBox[
     RowBox[{"2", " ", "u"}]], ")"}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"5ab036f3-c02c-4db6-b87b-4f62d04d8536"],
 " function at ",
 Cell[BoxData[
  FormBox[
   RowBox[{"s", "=", "2"}], TraditionalForm]], "InlineMath",ExpressionUUID->
  "d105a197-ee12-4e4f-a8d5-b0c243db130b"],
 ":"
}], "Text",
 CellChangeTimes->{{3.893990065428742*^9, 3.8939901118087873`*^9}, {
  3.918030274592276*^9, 3.918030281916503*^9}, {3.946636953763102*^9, 
  3.94663695501847*^9}},
 CellID->811872758,ExpressionUUID->"f0973de4-f5ba-4914-ae8c-2dc89166701f"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    SubscriptBox["\[ScriptCapitalL]", "u"], "[", 
    RowBox[{"erf", 
     RowBox[{"(", 
      SqrtBox[
       RowBox[{"2", " ", "u"}]], ")"}]}], "]"}], 
   RowBox[{"(", "2", ")"}]}], TraditionalForm]], "DisplayFormula",
 CellChangeTimes->{{3.89399011304613*^9, 3.893990130275332*^9}, {
  3.931154576863237*^9, 3.931154577763708*^9}, {3.945768935332384*^9, 
  3.9457689353353786`*^9}},
 CellID->17126503,ExpressionUUID->"8c67b604-2b93-4097-9a8a-3f34da081eb5"],

Cell["The Laplace transform of the error function is:", "Text",
 CellChangeTimes->{{3.893990157639952*^9, 3.893990192534111*^9}, {
  3.898502025528852*^9, 3.898502031533256*^9}, {3.91803029676606*^9, 
  3.9180303068263893`*^9}},
 CellID->1396980326,ExpressionUUID->"5a99dd33-93f4-4007-aad6-9fecfa33393e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LaplaceTransform", "[", 
  RowBox[{
   RowBox[{"Erf", "[", 
    RowBox[{"Sqrt", "[", 
     RowBox[{"2", "u"}], "]"}], "]"}], ",", "u", ",", "s"}], "]"}]], "Input",
 CellChangeTimes->{{3.893990193993839*^9, 3.893990206521192*^9}},
 CellID->2039769272,ExpressionUUID->"e4a47919-8457-4d56-a7b9-bfbfb8187a60"],

Cell[BoxData[
 FractionBox["1", 
  RowBox[{
   SqrtBox[
    RowBox[{"1", "+", 
     FractionBox["s", "2"]}]], " ", "s"}]]], "Output",
 CellChangeTimes->{{3.893990204220261*^9, 3.89399020914234*^9}, 
   3.918030311857432*^9, 3.9244639461848087`*^9},
 CellID->385249072,ExpressionUUID->"243cc51c-5cd4-c746-870e-60882d3d0500"]
}, Open  ]],

Cell[TextData[{
 "Evaluating it at ",
 Cell[BoxData[
  FormBox[
   RowBox[{"s", "=", "2"}], TraditionalForm]], "InlineMath",ExpressionUUID->
  "ca389975-44a0-4468-8fdb-1c28817b68bd"],
 ", one obtains the original integral (",
 
 CounterBox["DisplayFormulaNumbered", "integral1",
  BaseStyle->"Hyperlink"],
 "):"
}], "Text",
 CellChangeTimes->{{3.893990224747381*^9, 3.893990249704583*^9}, {
   3.89850205302769*^9, 3.89850205312593*^9}, {3.918030324685033*^9, 
   3.918030333418889*^9}, 3.94700207769586*^9},
 CellID->348326152,ExpressionUUID->"25334a6d-6b82-419e-b9ad-1023e059db4e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"s", "\[Rule]", "2"}]}]], "Input",
 CellChangeTimes->{{3.8939902537243156`*^9, 3.893990255955877*^9}},
 CellID->1773458826,ExpressionUUID->"52fea7f5-0767-454b-94cd-f14fb21c142d"],

Cell[BoxData[
 FractionBox["1", 
  RowBox[{"2", " ", 
   SqrtBox["2"]}]]], "Output",
 CellChangeTimes->{3.893990256095267*^9, 3.918030335630616*^9, 
  3.924463946216099*^9},
 CellID->43874566,ExpressionUUID->"6e9746f2-8fdd-4945-8425-fe35fca209ae"]
}, Open  ]],

Cell[TextData[{
 "Or, directly applying ",
 ButtonBox["Integrate",
  BaseStyle->"Link"],
 ":"
}], "Text",
 CellChangeTimes->{{3.898502062275755*^9, 3.898502084061651*^9}, {
  3.9180303392105827`*^9, 3.918030360413558*^9}},
 CellID->1097977216,ExpressionUUID->"e8ffcf9d-00ac-438a-bb5a-949c321a5d64"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{"t", "*", 
    RowBox[{"Erf", "[", "t", "]"}], "*", 
    RowBox[{"Exp", "[", 
     RowBox[{"-", 
      SuperscriptBox["t", "2"]}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "\[Infinity]"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.898502085515649*^9, 3.898502101182488*^9}},
 CellID->1099598344,ExpressionUUID->"dd2ef872-a694-487e-9fe0-c533561033ca"],

Cell[BoxData[
 FractionBox["1", 
  RowBox[{"2", " ", 
   SqrtBox["2"]}]]], "Output",
 CellChangeTimes->{3.898502101791278*^9, 3.924463946436138*^9},
 CellID->272300122,ExpressionUUID->"b3f6f544-92ea-dd44-9046-57a80618344c"]
}, Open  ]],

Cell[TextData[{
 "Next, one more idea for evaluating integrals will be discussed, which is \
based on the division by ",
 Cell[BoxData[
  FormBox["t", TraditionalForm]], "InlineMath",ExpressionUUID->
  "a401de85-11fb-4be2-a0cc-fd7a89fbdab9"],
 " theorem of the Laplace transform. The theorem (see ",
 ButtonBox["Chapter 3",
  BaseStyle->"Hyperlink",
  Appearance->None,
  ButtonFunction:>
   NotebookLocate[{
    "LaplaceTransform-03_Formal-Properties-of-the-Laplace-Transform-Part-2.\
nb", ""}, FrontEnd`HistoryData :> {
      EvaluationNotebook[]}]],
 ") states that:"
}], "Text",
 CellID->96057773,ExpressionUUID->"3cdcaa44-cd98-4ab5-b0b6-3bae9b9d644f"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    RowBox[{
     SubscriptBox["\[ScriptCapitalL]", "t"], "[", 
     FractionBox[
      RowBox[{"f", "(", "t", ")"}], "t"], "]"}], 
    RowBox[{"(", "s", ")"}]}], "\[LongEqual]", 
   RowBox[{
    SubsuperscriptBox["\[Integral]", "s", 
     RowBox[{"\[VeryThinSpace]", "\[Infinity]"}]], 
    RowBox[{"F", 
     RowBox[{"(", "u", ")"}], 
     RowBox[{"\[DifferentialD]", "u"}]}]}]}], 
  TraditionalForm]], "DisplayFormula",
 CellID->1083511435,ExpressionUUID->"7b51c393-3cc5-4548-9032-47b1eee52685"],

Cell[TextData[{
 "where ",
 Cell[BoxData[
  FormBox[
   RowBox[{"F", "(", "u", ")"}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"9c6bdbb4-2bc4-46bb-9376-dd49b74c0e46"],
 " is the Laplace transform of ",
 Cell[BoxData[
  FormBox[
   RowBox[{"f", "(", "t", ")"}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"8f46659a-4906-4dfe-b00c-9a86cc37b42d"],
 ". Consider the following limit ",
 Cell[BoxData[
  FormBox[
   RowBox[{"s", "\[Rule]", 
    SuperscriptBox["0", "+"]}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"4971efea-1500-4b4d-a431-3d6661d1cd6c"],
 " by a",
 "ssuming that the integrals are converging",
 ":"
}], "Text",
 CellChangeTimes->{{3.894014034466744*^9, 3.894014083325716*^9}, {
  3.898503829986092*^9, 3.898503832047161*^9}, {3.918030644860235*^9, 
  3.918030711246913*^9}},
 CellID->810904586,ExpressionUUID->"6a4a276f-e0c3-4ab5-a13e-4e2c87c0ebae"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    SubsuperscriptBox["\[Integral]", "0", 
     RowBox[{"\[VeryThinSpace]", "\[Infinity]"}]], 
    RowBox[{
     FractionBox[
      RowBox[{"f", "(", "t", ")"}], "t"], 
     RowBox[{"\[DifferentialD]", "t"}]}]}], "\[LongEqual]", 
   RowBox[{
    SubsuperscriptBox["\[Integral]", "0", 
     RowBox[{"\[VeryThinSpace]", "\[Infinity]"}]], 
    RowBox[{
     RowBox[{"F", "(", "u", ")"}], 
     RowBox[{"\[DifferentialD]", "u"}]}]}]}], 
  TraditionalForm]], "DisplayFormulaNumbered",
 CellTags->"integral-limit",
 CellID->1693371531,ExpressionUUID->"99682218-49fd-4404-a07f-30d84df1adc4"],

Cell[TextData[{
 "Formula (",
 
 CounterBox["DisplayFormulaNumbered", "integral-limit",
  BaseStyle->"Hyperlink"],
 ") is very useful when evaluating various integrals that have the form of \
the left-hand side of equation (",
 
 CounterBox["DisplayFormulaNumbered", "integral-limit",
  BaseStyle->"Hyperlink"],
 ")."
}], "Text",
 CellChangeTimes->{{3.894014091989574*^9, 3.894014139532261*^9}, {
   3.898503849697488*^9, 3.8985038497562737`*^9}, {3.898503901940145*^9, 
   3.8985039143956537`*^9}, {3.898503968656781*^9, 3.898503974433158*^9}, {
   3.918030755017495*^9, 3.918030772083642*^9}, 3.9311550854551687`*^9, {
   3.945768982966015*^9, 3.9457689833780174`*^9}, {3.94663698228407*^9, 
   3.946636982708685*^9}, 3.9470021284678535`*^9, 3.947002203622431*^9},
 CellID->1716416184,ExpressionUUID->"6608adaa-1669-43ca-be4b-3f6ab9d62671"],

Cell["For instance, evaluate the following integral:", "Text",
 CellChangeTimes->{{3.894014275657847*^9, 3.89401432576827*^9}, {
   3.898503934041448*^9, 3.898503934121319*^9}, 3.898503976452746*^9, {
   3.9180307873276997`*^9, 3.918030795330915*^9}, 3.946636986283525*^9},
 CellID->1344621807,ExpressionUUID->"39968bb9-f54c-41d2-afd3-247963f33f38"],

Cell[BoxData[
 FormBox[
  RowBox[{
   SubsuperscriptBox["\[Integral]", "0", 
    RowBox[{"\[VeryThinSpace]", "\[Infinity]"}]], 
   RowBox[{
    FractionBox[
     RowBox[{"sin", "(", "t", ")"}], "t"], 
    RowBox[{"\[DifferentialD]", "t"}]}]}], TraditionalForm]], "DisplayFormula",\

 CellID->63839890,ExpressionUUID->"8ecace6a-b1c3-49e8-8136-9800af048f3d"],

Cell[TextData[{
 "Using formula (",
 
 CounterBox["DisplayFormulaNumbered", "integral-limit",
  BaseStyle->"Hyperlink"],
 ") and recalling that the Laplace transform of ",
 Cell[BoxData[
  FormBox[
   RowBox[{"sin", "(", "t", ")"}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"f351ffc3-a4de-4c1a-abd6-15978b3e202d"],
 " is ",
 Cell[BoxData[
  FormBox[
   FractionBox["1", 
    RowBox[{
     SuperscriptBox["s", "2"], "+", "1"}]], TraditionalForm]], "InlineMath",
  ExpressionUUID->"8eff8936-6f2d-4465-be89-adb00f77a891"],
 ", one obtains:"
}], "Text",
 CellChangeTimes->{{3.894014348649498*^9, 3.894014411849155*^9}, {
   3.898503981941614*^9, 3.898503994525902*^9}, {3.898504039752492*^9, 
   3.898504044208949*^9}, {3.918030800032514*^9, 3.918030807804037*^9}, {
   3.946636990660335*^9, 3.9466369909796677`*^9}, 3.947002209396837*^9},
 CellID->1469999820,ExpressionUUID->"2efb65e3-913d-4648-8e5c-30160ca68ac3"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   FractionBox["1", 
    RowBox[{
     SuperscriptBox["u", "2"], "+", "1"}]], ",", 
   RowBox[{"{", 
    RowBox[{"u", ",", "0", ",", "Infinity"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.89401441532642*^9, 3.894014433526523*^9}},
 CellID->447401471,ExpressionUUID->"79e8bd03-1214-4ac2-8472-74afb6308741"],

Cell[BoxData[
 FractionBox["\[Pi]", "2"]], "Output",
 CellChangeTimes->{3.8940144345257583`*^9, 3.898504061856634*^9, 
  3.9180308116355553`*^9, 3.924463946671818*^9},
 CellID->71424893,ExpressionUUID->"df3618c2-bedb-f947-a6ab-91a7fb49a3b1"]
}, Open  ]],

Cell[TextData[{
 "Or, directly applying ",
 ButtonBox["Integrate",
  BaseStyle->"Link"],
 " to evaluate ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubsuperscriptBox["\[Integral]", 
     RowBox[{"\[VeryThinSpace]", "0"}], "\[Infinity]"], 
    RowBox[{
     FractionBox[
      RowBox[{"sin", "(", "t", ")"}], "t"], 
     RowBox[{"\[DifferentialD]", "t"}]}]}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"38560f70-2f51-4fbd-9c2d-c601f691ba95"],
 ":"
}], "Text",
 CellID->774814759,ExpressionUUID->"4af6518b-3940-4978-87b4-4889f5879c8c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   FractionBox[
    RowBox[{"Sin", "[", "t", "]"}], "t"], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "\[Infinity]"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.918030856198008*^9, 3.918030862977151*^9}},
 CellID->1555444331,ExpressionUUID->"c27df281-d3b9-433f-90fc-f0be0aa020ff"],

Cell[BoxData[
 FractionBox["\[Pi]", "2"]], "Output",
 CellChangeTimes->{3.918030863522015*^9, 3.924463946871088*^9},
 CellID->446834947,ExpressionUUID->"3db1df6e-51a3-9a49-a8c2-babdc7e9b813"]
}, Open  ]],

Cell["For the next example, consider the following integral:", "Text",
 CellChangeTimes->{{3.894014502902616*^9, 3.894014522963*^9}, {
   3.898504076693886*^9, 3.898504077246396*^9}, {3.9180308820265827`*^9, 
   3.918030891572332*^9}, 3.946637003684374*^9},
 CellID->498811120,ExpressionUUID->"1b211258-f52d-4fd0-9d3a-331fcbfebf0a"],

Cell[BoxData[
 FormBox[
  RowBox[{
   SubsuperscriptBox["\[Integral]", "0", 
    RowBox[{"\[VeryThinSpace]", "\[Infinity]"}]], 
   RowBox[{
    FractionBox[
     RowBox[{
      RowBox[{"exp", "(", 
       RowBox[{
        RowBox[{"-", "5"}], " ", "t"}], ")"}], "-", 
      RowBox[{"exp", "(", 
       RowBox[{
        RowBox[{"-", "10"}], " ", "t"}], ")"}]}], "t"], 
    RowBox[{"\[DifferentialD]", "t"}]}]}], TraditionalForm]], "DisplayFormula",\

 CellID->973150829,ExpressionUUID->"ca806980-7978-473c-b57e-a8fd28930a71"],

Cell["The Laplace transform of the numerator is known:", "Text",
 CellChangeTimes->{{3.894014571700854*^9, 3.894014584801852*^9}},
 CellID->1051528454,ExpressionUUID->"a4113d72-1002-44ae-8944-97647940e895"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LaplaceTransform", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Exp", "[", 
     RowBox[{
      RowBox[{"-", "5"}], "*", "t"}], "]"}], "-", 
    RowBox[{"Exp", "[", 
     RowBox[{
      RowBox[{"-", "10"}], "*", "t"}], "]"}]}], ",", "t", ",", "s"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.894014585849415*^9, 3.894014593614944*^9}},
 CellID->2023074578,ExpressionUUID->"3f47d4b5-cb61-4dbe-8645-a008994382c0"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", 
   RowBox[{"5", "+", "s"}]], "-", 
  FractionBox["1", 
   RowBox[{"10", "+", "s"}]]}]], "Output",
 CellChangeTimes->{3.894014593822668*^9, 3.918030896933133*^9, 
  3.924463946883709*^9},
 CellID->802413996,ExpressionUUID->"cc01be7e-0360-074f-8a28-0103fafc387c"]
}, Open  ]],

Cell[TextData[{
 "Integrating it from 0 to ",
 Cell[BoxData[
  FormBox["\[Infinity]", TraditionalForm]], "InlineMath",ExpressionUUID->
  "07f697a9-3d04-4c8c-be26-e9ca0590dba5"],
 ", one obtains the original integral:"
}], "Text",
 CellID->848671237,ExpressionUUID->"85ca30f0-9062-4f81-9c1f-86d00d35ec5c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{
    FractionBox["1", 
     RowBox[{"5", "+", "s"}]], "-", 
    FractionBox["1", 
     RowBox[{"10", "+", "s"}]]}], ",", 
   RowBox[{"{", 
    RowBox[{"s", ",", "0", ",", "Infinity"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.894014637790193*^9, 3.894014648799754*^9}},
 CellID->627378759,ExpressionUUID->"4454df4a-a958-497c-9831-304f8d43eae8"],

Cell[BoxData[
 RowBox[{"Log", "[", "2", "]"}]], "Output",
 CellChangeTimes->{3.894014649213409*^9, 3.918030908447015*^9, 
  3.9244639469858475`*^9},
 CellID->42527209,ExpressionUUID->"0825c18c-2c16-714f-8c89-69c082575de3"]
}, Open  ]],

Cell[TextData[{
 "To verify this answer, directly apply ",
 ButtonBox["Integrate",
  BaseStyle->"Link"],
 " on the time-domain function:"
}], "Text",
 CellChangeTimes->{{3.898505070923148*^9, 3.8985051447893143`*^9}, {
  3.918030911928293*^9, 3.918030925895515*^9}},
 CellID->1249872611,ExpressionUUID->"3c2ff97f-0489-4551-aaea-0361efa38432"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   FractionBox[
    RowBox[{
     RowBox[{"Exp", "[", 
      RowBox[{
       RowBox[{"-", "5"}], "t"}], "]"}], "-", 
     RowBox[{"Exp", "[", 
      RowBox[{
       RowBox[{"-", "10"}], "t"}], "]"}]}], "t"], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "\[Infinity]"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.898505147046521*^9, 3.898505171615965*^9}},
 CellID->154407466,ExpressionUUID->"8cc7be1a-837a-48b0-ba4b-540626e00484"],

Cell[BoxData[
 RowBox[{"Log", "[", "2", "]"}]], "Output",
 CellChangeTimes->{3.898505173472577*^9, 3.89850533051503*^9, 
  3.918030929260282*^9, 3.924463948177458*^9},
 CellID->302721005,ExpressionUUID->"fa951107-7ec6-c84d-8bef-62cf00b7ac70"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Sums", "Subsection",
 CellChangeTimes->{{3.89851479264013*^9, 3.898514793765305*^9}},
 CellID->1844367423,ExpressionUUID->"f5b6e4be-1772-43fb-b9e5-e91f5746c439"],

Cell["\<\
Suppose that you want to sum up the following infinite series:\
\>", "Text",
 CellChangeTimes->{{3.898514819895837*^9, 3.898514850353925*^9}, {
   3.898514892390677*^9, 3.898514901298925*^9}, {3.898514989473949*^9, 
   3.898514993590517*^9}, {3.918031826491919*^9, 3.918031860291827*^9}, {
   3.918032035839057*^9, 3.918032036646282*^9}, {3.919669999520954*^9, 
   3.919670005265623*^9}, 3.931155210302579*^9},
 CellID->1681031738,ExpressionUUID->"d6e21c95-f11a-4da8-8a75-63ab254663c7"],

Cell[BoxData[
 FormBox[
  RowBox[{
   UnderoverscriptBox["\[Sum]", 
    RowBox[{"n", "=", "1"}], "\[Infinity]"], 
   RowBox[{"F", "(", "n", ")"}]}], TraditionalForm]], "DisplayFormulaNumbered",\

 CellChangeTimes->{{3.8985149139788213`*^9, 3.898514927858405*^9}, {
  3.8985158506807013`*^9, 3.898515852498982*^9}, {3.93115524204801*^9, 
  3.931155242573493*^9}, {3.9457690319575233`*^9, 3.945769035518936*^9}},
 CellTags->"series",
 CellID->1573845016,ExpressionUUID->"98f9ddde-e2f8-47f2-be2c-940d0abaa371"],

Cell[TextData[{
 "Also suppose that the summand ",
 Cell[BoxData[
  FormBox[
   RowBox[{"F", "(", "n", ")"}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"27c671ce-cd6c-4ff2-9c3f-7f4c6d4cd9be"],
 " can be represented as a Laplace transform of ",
 Cell[BoxData[
  FormBox[
   RowBox[{"f", "(", "t", ")"}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"51cd03d0-9977-4063-9cfa-09446b309eaa"],
 ":"
}], "Text",
 CellChangeTimes->{{3.898514995524889*^9, 3.898515028823011*^9}, {
  3.898515080949566*^9, 3.898515103216378*^9}, {3.918031880198248*^9, 
  3.918031904417983*^9}, {3.9196700117604084`*^9, 3.9196700142961464`*^9}},
 CellID->124908793,ExpressionUUID->"c07fedf6-78a0-400c-a5e2-fdd48fb654ff"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"F", "[", "n_", "]"}], "=", 
  RowBox[{"Integrate", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Exp", "[", 
      RowBox[{
       RowBox[{"-", "n"}], "*", "t"}], "]"}], 
     RowBox[{"f", "[", "t", "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "0", ",", "Infinity"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.9180319091945868`*^9, 3.918031910952804*^9}},
 CellID->1552655850,ExpressionUUID->"5bb3e6cb-d1d7-49f9-bc45-14bc34c7c69c"],

Cell[BoxData[
 RowBox[{
  SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], 
  RowBox[{
   RowBox[{
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      RowBox[{"-", "n"}], " ", "t"}]], " ", 
    RowBox[{"f", "[", "t", "]"}]}], 
   RowBox[{"\[DifferentialD]", "t"}]}]}]], "Output",
 CellChangeTimes->{3.8985151085684557`*^9, 3.898515430221341*^9, 
  3.9180319113509007`*^9, 3.9244639482612247`*^9},
 CellID->93601424,ExpressionUUID->"e27ba162-e03d-714f-8fea-9f7a46b5d4d0"]
}, Open  ]],

Cell["Then:", "Text",
 CellChangeTimes->{{3.898515119127014*^9, 3.8985151198807*^9}},
 CellID->932470230,ExpressionUUID->"77362c7c-3117-484c-a0ea-e2c48c71889e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Sum", "[", 
  RowBox[{
   RowBox[{"F", "[", "n", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"n", ",", "1", ",", "Infinity"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.898515431622169*^9, 3.898515431728935*^9}},
 CellID->1411561617,ExpressionUUID->"8914f944-efc5-4fe1-bbfa-0505af5e4420"],

Cell[BoxData[
 RowBox[{
  UnderoverscriptBox["\[Sum]", 
   RowBox[{"n", "=", "1"}], "\[Infinity]"], 
  RowBox[{
   SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], 
   RowBox[{
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", "n"}], " ", "t"}]], " ", 
     RowBox[{"f", "[", "t", "]"}]}], 
    RowBox[{"\[DifferentialD]", "t"}]}]}]}]], "Output",
 CellChangeTimes->{3.89851512342933*^9, 3.898515432062943*^9, 
  3.918031915997629*^9, 3.9244639484289207`*^9},
 CellID->155176710,ExpressionUUID->"2bec931f-d8e6-4d45-bce5-b36f94af2cfc"]
}, Open  ]],

Cell[TextData[{
 "Interchanging the order of integration and summation and summing up the \
geometric series for ",
 Cell[BoxData[
  FormBox[
   RowBox[{"exp", "(", 
    RowBox[{
     RowBox[{"-", "n"}], " ", "t"}], ")"}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"9c0adc28-303c-4796-9978-6e646a96ac45"],
 ", one obtains:"
}], "Text",
 CellID->23437355,ExpressionUUID->"e1a8324e-f369-498f-b99c-9baa677a8be8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"f", "[", "t", "]"}], 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{"Exp", "[", 
       RowBox[{
        RowBox[{"-", "n"}], "*", "t"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"n", ",", "1", ",", "\[Infinity]"}], "}"}]}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "\[Infinity]"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.898515631903843*^9, 3.898515657040976*^9}, {
  3.91803195301204*^9, 3.918031954550571*^9}},
 CellID->410458688,ExpressionUUID->"ac7abe17-59e9-456e-82ed-a058da8d6b26"],

Cell[BoxData[
 RowBox[{
  SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], 
  RowBox[{
   FractionBox[
    RowBox[{"f", "[", "t", "]"}], 
    RowBox[{
     RowBox[{"-", "1"}], "+", 
     SuperscriptBox["\[ExponentialE]", "t"]}]], 
   RowBox[{"\[DifferentialD]", "t"}]}]}]], "Output",
 CellChangeTimes->{3.898515657473505*^9, 3.898515789142015*^9, 
  3.9180319551284533`*^9, 3.9244639485049515`*^9},
 CellID->268314124,ExpressionUUID->"1d271f52-bc01-4e47-8af1-d32126a669f1"]
}, Open  ]],

Cell[TextData[{
 "In conclusion, the infinite series (",
 
 CounterBox["DisplayFormulaNumbered", "series",
  BaseStyle->"Hyperlink"],
 ") is represented as an integral:"
}], "Text",
 CellChangeTimes->{{3.898515811202579*^9, 3.898515823050023*^9}, {
   3.898515854845345*^9, 3.8985158669607897`*^9}, 3.9180319663637457`*^9, 
   3.9470022671714535`*^9},
 CellID->1445474191,ExpressionUUID->"f9370952-e3b1-4264-bde0-30fc1230d406"],

Cell[BoxData[
 FormBox[
  RowBox[{
   SubsuperscriptBox["\[Integral]", "0", 
    RowBox[{"\[VeryThinSpace]", "\[Infinity]"}]], 
   RowBox[{
    FractionBox[
     RowBox[{"f", "(", "t", ")"}], 
     RowBox[{
      RowBox[{"exp", "(", "t", ")"}], " ", "-", "1"}]], 
    RowBox[{"\[DifferentialD]", "t"}]}]}], 
  TraditionalForm]], "DisplayFormulaNumbered",
 CellTags->"formula1",
 CellID->1680306000,ExpressionUUID->"440d5207-a755-42af-8942-1f03865835f3"],

Cell[TextData[{
 "If summation in (",
 
 CounterBox["DisplayFormulaNumbered", "series",
  BaseStyle->"Hyperlink"],
 ") starts from ",
 Cell[BoxData[
  FormBox[
   RowBox[{"n", "\[LongEqual]", "0"}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"0e3bae4a-5217-4a5d-9849-bc3ff6b483a9"],
 ", then formula (",
 
 CounterBox["DisplayFormulaNumbered", "formula1",
  BaseStyle->"Hyperlink"],
 ") is modified as follows:"
}], "Text",
 CellChangeTimes->{{3.89851750105089*^9, 3.898517540546526*^9}, {
  3.9180319954576406`*^9, 3.9180320111295567`*^9}, {3.946637055286789*^9, 
  3.946637055452755*^9}, {3.947002367643896*^9, 3.947002372741354*^9}},
 CellID->1551956893,ExpressionUUID->"52eba7a2-0da7-45da-bacf-7ea1dc84989b"],

Cell[BoxData[
 FormBox[
  RowBox[{
   SubsuperscriptBox["\[Integral]", "0", 
    RowBox[{"\[VeryThinSpace]", "\[Infinity]"}]], 
   RowBox[{
    FractionBox[
     RowBox[{
      RowBox[{"exp", "(", "t", ")"}], 
      RowBox[{"f", "(", "t", ")"}]}], 
     RowBox[{
      RowBox[{"exp", "(", "t", ")"}], " ", "-", "1"}]], 
    RowBox[{"\[DifferentialD]", "t"}]}]}], 
  TraditionalForm]], "DisplayFormulaNumbered",
 CellTags->"formula0",
 CellID->1440052105,ExpressionUUID->"4c197db9-98cc-4128-9ca3-98f389ef97cd"],

Cell["For instance, consider the following infinite series:", "Text",
 CellChangeTimes->{{3.898521366912421*^9, 3.898521399551997*^9}, {
  3.918032025432415*^9, 3.9180320291022797`*^9}, {3.918032186815987*^9, 
  3.918032197787855*^9}},
 CellID->1842916883,ExpressionUUID->"2231b79b-39f4-4000-bbd8-5811c7a522f1"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     FractionBox["1", "3"], "+", 
     FractionBox["1", "15"], "+", 
     FractionBox["1", "35"], "+"}], "..."}], "+", 
   FractionBox["1", 
    RowBox[{
     RowBox[{"4", 
      SuperscriptBox["n", "2"]}], "-", "1"}]], "+"}], 
  "..."}]], "DisplayFormula",
 CellChangeTimes->{{3.898521408086813*^9, 3.898521439124757*^9}, {
  3.931155468588004*^9, 3.931155469222764*^9}, {3.931155553270916*^9, 
  3.931155555501691*^9}, {3.9457690737567673`*^9, 3.94576907375976*^9}},
 CellID->38860744,ExpressionUUID->"b1f06136-a203-4e28-aac8-6efbb27e89db"],

Cell[TextData[{
 "For this series, ",
 Cell[BoxData[
  FormBox[
   RowBox[{"F", "(", "n", ")"}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"48909206-4b13-4be4-a120-20875101dd5c"],
 " is as follows:"
}], "Text",
 CellChangeTimes->{{3.898521446731097*^9, 3.898521458930645*^9}, {
   3.918032210484881*^9, 3.9180322394891853`*^9}, 3.946637060582313*^9},
 CellID->1480695889,ExpressionUUID->"6c49bd36-a086-4660-a734-4c27bec6616b"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", 
   RowBox[{
    RowBox[{"4", 
     SuperscriptBox["n", "2"]}], "-", "1"}]], ";"}]], "Input",
 CellChangeTimes->{{3.8985214611847353`*^9, 3.898521465589242*^9}},
 CellID->809822016,ExpressionUUID->"23bfc829-83da-497e-ac2b-899fcb72196f"],

Cell[TextData[{
 "The corresponding ",
 Cell[BoxData[
  FormBox[
   RowBox[{"f", "(", "t", ")"}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"3375b2ab-bbaa-4885-9586-66c02523a7b6"],
 " can be found by applying the inverse Laplace transform:"
}], "Text",
 CellChangeTimes->{{3.89852147150275*^9, 3.898521498011799*^9}, {
  3.9180322500819693`*^9, 3.918032260471393*^9}, {3.946637066036624*^9, 
  3.946637066621739*^9}},
 CellID->151212169,ExpressionUUID->"40d7550c-dc3f-48ff-8252-28af4017fbae"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"InverseLaplaceTransform", "[", 
  RowBox[{"%", ",", "n", ",", "t"}], "]"}]], "Input",
 CellChangeTimes->{{3.89852149915604*^9, 3.898521504603178*^9}},
 CellID->1732340895,ExpressionUUID->"c16276a1-54fd-4dbe-9cd4-bb03f3360b81"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "4"], " ", 
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{
    RowBox[{"-", "t"}], "/", "2"}]], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", "1"}], "+", 
    SuperscriptBox["\[ExponentialE]", "t"]}], ")"}]}]], "Output",
 CellChangeTimes->{
  3.898521505187549*^9, {3.918032264004839*^9, 3.918032266683321*^9}, 
   3.9244639485590343`*^9},
 CellID->87786696,ExpressionUUID->"497dd003-f64a-8548-ad3a-f447367dbca0"]
}, Open  ]],

Cell[TextData[{
 "Using formula (",
 
 CounterBox["DisplayFormulaNumbered", "formula1",
  BaseStyle->"Hyperlink"],
 "), one obtains:"
}], "Text",
 CellChangeTimes->{{3.898521522111964*^9, 3.898521554010151*^9}, {
   3.918032273311253*^9, 3.918032274871481*^9}, 3.946637071852654*^9, 
   3.947002442582737*^9},
 CellID->933104828,ExpressionUUID->"4ed4b62a-09f5-4854-a691-a67b151fec06"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{"%", "*", 
    FractionBox["1", 
     RowBox[{
      RowBox[{"Exp", "[", "t", "]"}], "-", "1"}]]}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "Infinity"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{3.9180322779304113`*^9},
 CellID->2131900396,ExpressionUUID->"068dec94-b0e7-4f0a-b853-d01dcb4301e9"],

Cell[BoxData[
 FractionBox["1", "2"]], "Output",
 CellChangeTimes->{3.898521543404424*^9, 3.918032279525269*^9, 
  3.9244639486293907`*^9},
 CellID->464110999,ExpressionUUID->"9e6d1874-9747-1043-8bb6-10d9d77099a3"]
}, Open  ]],

Cell[TextData[{
 "One can check this answer directly by employing the built-in function ",
 ButtonBox["Sum",
  BaseStyle->"Link"],
 ":"
}], "Text",
 CellChangeTimes->{{3.898521557077299*^9, 3.898521614158576*^9}, {
  3.918032287685492*^9, 3.9180323314402437`*^9}, {3.946637077422873*^9, 
  3.946637084246327*^9}},
 CellID->498274082,ExpressionUUID->"6c22af57-f016-4260-b919-82269047ce9c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Sum", "[", 
  RowBox[{
   FractionBox["1", 
    RowBox[{
     RowBox[{"4", 
      SuperscriptBox["n", "2"]}], "-", "1"}]], ",", 
   RowBox[{"{", 
    RowBox[{"n", ",", "1", ",", "Infinity"}], "}"}]}], "]"}]], "Input",
 CellID->345089809,ExpressionUUID->"445be1e5-8a78-404b-acbb-9dbeabdf7b2a"],

Cell[BoxData[
 FractionBox["1", "2"]], "Output",
 CellChangeTimes->{3.898521617590829*^9, 3.9180323374080887`*^9, 
  3.924463948651329*^9},
 CellID->90086010,ExpressionUUID->"d51c8949-146b-d24c-879f-d833281d15a9"]
}, Open  ]],

Cell["Next, consider the following alternating series:", "Text",
 CellChangeTimes->{{3.898521826435644*^9, 3.898521883637908*^9}, {
  3.898522629597879*^9, 3.898522631571514*^9}, {3.918032342607885*^9, 
  3.918032347818616*^9}},
 CellID->1121840146,ExpressionUUID->"e0189057-3fee-4653-9e52-0fd03e3f230d"],

Cell[BoxData[
 FormBox[
  RowBox[{
   UnderoverscriptBox["\[Sum]", 
    RowBox[{"n", "=", "0"}], "\[Infinity]"], 
   FractionBox[
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"-", "1"}], ")"}], "n"], 
    RowBox[{"n", "+", "1"}]]}], TraditionalForm]], "DisplayFormula",
 CellChangeTimes->{{3.918032383466428*^9, 3.918032400602009*^9}, {
  3.9311557925860043`*^9, 3.931155793330711*^9}, {3.9457692189234886`*^9, 
  3.9457692189264793`*^9}},
 CellID->1018069972,ExpressionUUID->"e0dba54d-363c-46f4-a512-4352708b7833"],

Cell["\<\
Notice that the two consecutive terms in this series together give:\
\>", "Text",
 CellChangeTimes->{{3.898522082077518*^9, 3.898522168361508*^9}, {
  3.918032411552862*^9, 3.918032419733033*^9}, {3.918032457718155*^9, 
  3.9180324586658792`*^9}},
 CellID->1339419584,ExpressionUUID->"f17e09a7-b19f-41d1-9c16-1a868aa66713"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    RowBox[{"F", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", " ", "n"}], "+", "1"}], ")"}]}], "+", 
    RowBox[{"F", 
     RowBox[{"(", 
      RowBox[{"2", " ", "n"}], ")"}]}]}], " ", "\[LongEqual]", 
   RowBox[{
    FractionBox["1", 
     RowBox[{
      RowBox[{"2", " ", "n"}], "+", "1"}]], "-", 
    FractionBox["1", 
     RowBox[{
      RowBox[{"2", " ", "n"}], "+", "2"}]]}], "\[LongEqual]", 
   FractionBox["1", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", "n"}], "+", "1"}], ")"}], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", "n"}], "+", "2"}], ")"}]}]]}], 
  TraditionalForm]], "DisplayFormula",
 CellChangeTimes->{{3.898522082077518*^9, 3.898522169562265*^9}, {
  3.9180324947609367`*^9, 3.918032510343145*^9}, {3.9311558038821354`*^9, 
  3.931155804721202*^9}, {3.9457692354122715`*^9, 3.9457692399667015`*^9}},
 CellID->959852542,ExpressionUUID->"97115749-5b21-4162-a9ab-c5581533be76"],

Cell["\<\
The inverse Laplace transform for these two consecutive terms is:\
\>", "Text",
 CellChangeTimes->{{3.898522195366289*^9, 3.898522235282531*^9}, {
  3.9180324282574177`*^9, 3.9180324758142138`*^9}, {3.946637091182385*^9, 
  3.946637091869733*^9}},
 CellID->32981371,ExpressionUUID->"e9379c79-adff-47ef-840f-b4566bbaeb6a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"InverseLaplaceTransform", "[", 
  RowBox[{
   FractionBox["1", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", "n"}], "+", "1"}], ")"}], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", "n"}], "+", "2"}], ")"}]}]], ",", "n", ",", "t"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.918032477929908*^9, 3.918032534801331*^9}},
 CellID->1293564370,ExpressionUUID->"e543f641-cb72-4814-8c76-852e49d6d9e8"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], " ", 
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{"-", "t"}]], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", "1"}], "+", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"t", "/", "2"}]]}], ")"}]}]], "Output",
 CellChangeTimes->{3.898522239204377*^9, 3.918032488023287*^9, 
  3.918032535149321*^9, 3.9244639486664886`*^9},
 CellID->390394590,ExpressionUUID->"fc31783d-988f-5443-8d46-51a1daa85542"]
}, Open  ]],

Cell[TextData[{
 "Since the summation starts from ",
 Cell[BoxData[
  FormBox["0", TraditionalForm]], "InlineMath",ExpressionUUID->
  "ced6dfc2-1266-4534-b560-b2bea0338859"],
 ", then one needs to use formula (",
 
 CounterBox["DisplayFormulaNumbered", "formula0",
  BaseStyle->"Hyperlink"],
 "):"
}], "Text",
 CellChangeTimes->{{3.898522263280662*^9, 3.898522295194714*^9}, {
   3.898522342683115*^9, 3.898522364895629*^9}, {3.918032540544146*^9, 
   3.918032553009701*^9}, 3.947002618308365*^9},
 CellID->1760320495,ExpressionUUID->"287906a6-e473-4809-81e2-834ac357ac6b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Inactive", "[", "Integrate", "]"}], "[", 
   RowBox[{
    RowBox[{"%", 
     FractionBox[
      RowBox[{"Exp", "[", "t", "]"}], 
      RowBox[{
       RowBox[{"Exp", "[", "t", "]"}], "-", "1"}]]}], ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "0", ",", "Infinity"}], "}"}]}], "]"}], "//", 
  "Simplify"}]], "Input",
 CellChangeTimes->{3.9180325620509872`*^9},
 CellID->317318152,ExpressionUUID->"cccf3caa-c1cd-48ab-b83c-a12daaacb9ab"],

Cell[BoxData[
 TemplateBox[{
   FractionBox["1", 
    RowBox[{"2", "+", 
      RowBox[{"2", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"t", "/", "2"}]]}]}]], "t", "0", "\[Infinity]"},
  "InactiveIntegrate",
  DisplayFunction->(RowBox[{
     SubsuperscriptBox[
      StyleBox["\[Integral]", "Inactive"], #3, #4], 
     RowBox[{#, 
       RowBox[{
         StyleBox["\[DifferentialD]", "Inactive"], #2}]}]}]& ),
  InterpretationFunction->(RowBox[{
     RowBox[{"Inactive", "[", "Integrate", "]"}], "[", 
     RowBox[{#, ",", 
       RowBox[{"{", 
         RowBox[{#2, ",", #3, ",", #4}], "}"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{3.898522304905376*^9, 3.918032562834897*^9, 
  3.9244639486889706`*^9},
 CellID->480114200,ExpressionUUID->"1ee518a6-a491-f54e-a135-21a1faf25b75"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Activate", "[", "%", "]"}]], "Input",
 CellID->1457561518,ExpressionUUID->"17d26fca-eddc-47f0-ba54-104be8949f06"],

Cell[BoxData[
 RowBox[{"Log", "[", "2", "]"}]], "Output",
 CellChangeTimes->{3.898522315112268*^9, 3.918032565262493*^9, 
  3.9244639490934563`*^9},
 CellID->847976695,ExpressionUUID->"ebac0217-e58c-614e-b914-4bc9103b4233"]
}, Open  ]],

Cell[TextData[{
 "The previous integral might seem difficult, but in fact it becomes simple \
after performing a change of variables: ",
 Cell[BoxData[
  FormBox[
   RowBox[{"u", "\[LongEqual]", 
    RowBox[{"exp", "(", 
     FractionBox["t", "2"], ")"}]}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"a7ea75ad-268c-4e89-8db3-2c13dd0371fa"],
 "."
}], "Text",
 CellID->1384155085,ExpressionUUID->"451edf53-c6d6-4e43-99e3-d01fa6be93ec"],

Cell[TextData[{
 "It is worthwhile to mention another approach for evaluating the previous \
alternating series. First, determine the function whose Laplace transform \
equals ",
 Cell[BoxData[
  FormBox[
   FractionBox["1", 
    RowBox[{"n", "+", "1"}]], TraditionalForm]], "InlineMath",ExpressionUUID->
  "9b9b6021-3d8a-4440-afbc-70f35f100c8f"],
 ":"
}], "Text",
 CellID->1230662344,ExpressionUUID->"8d752cbc-c1e3-4455-9f0b-826de9c28e7b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"InverseLaplaceTransform", "[", 
  RowBox[{
   FractionBox["1", 
    RowBox[{"n", "+", "1"}]], ",", "n", ",", "t"}], "]"}]], "Input",
 CellChangeTimes->{{3.898522713800687*^9, 3.8985227201738367`*^9}},
 CellID->497877582,ExpressionUUID->"39f9405c-28e2-4aff-8ddf-6d69f631c58f"],

Cell[BoxData[
 SuperscriptBox["\[ExponentialE]", 
  RowBox[{"-", "t"}]]], "Output",
 CellChangeTimes->{3.898522720420154*^9, 3.9180326488512697`*^9, 
  3.9244639491084423`*^9},
 CellID->83711075,ExpressionUUID->"04ff1a38-6389-334a-ac47-fd25530caf38"]
}, Open  ]],

Cell["Therefore:", "Text",
 CellChangeTimes->{{3.898522757576016*^9, 3.898522789391868*^9}, {
  3.89852283374065*^9, 3.898522836615206*^9}},
 CellID->2130237171,ExpressionUUID->"faf27de1-7493-40f1-a40c-c459883be583"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox["1", 
    RowBox[{"n", "+", "1"}]], "\[LongEqual]", 
   RowBox[{
    SubsuperscriptBox["\[Integral]", "0", 
     RowBox[{"\[VeryThinSpace]", "\[Infinity]"}]], 
    RowBox[{"exp", 
     RowBox[{"(", 
      RowBox[{"-", "t"}], ")"}], " ", "exp", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "n"}], " ", "t"}], ")"}], 
     RowBox[{"\[DifferentialD]", "t"}]}]}]}], 
  TraditionalForm]], "DisplayFormula",
 CellID->1267967518,ExpressionUUID->"26771bb3-1155-4eb6-a9c7-a11235a4c7b6"],

Cell[TextData[{
 "Plug this into ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    UnderoverscriptBox["\[Sum]", 
     RowBox[{"\[VeryThinSpace]", 
      RowBox[{"n", "=", "0"}]}], "\[Infinity]"], 
    FractionBox[
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"-", "1"}], ")"}], "n"], 
     RowBox[{"n", "+", "1"}]]}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"1cf0bc56-7425-4d56-b5ae-7be352cba0f0"],
 " and interchange the order of summation and integration:"
}], "Text",
 CellID->1181823430,ExpressionUUID->"1cabbc45-e0d1-474b-b213-7522b0ac9c87"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Exp", "[", 
     RowBox[{"-", "t"}], "]"}], 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"-", "1"}], ")"}], "n"], 
       RowBox[{"Exp", "[", 
        RowBox[{
         RowBox[{"-", "n"}], "*", "t"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"n", ",", "0", ",", "\[Infinity]"}], "}"}]}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "\[Infinity]"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.898523024159828*^9, 3.898523096550241*^9}, {
  3.898523133311976*^9, 3.8985231890582848`*^9}, {3.898523362597635*^9, 
  3.898523364386816*^9}},
 CellID->1358262118,ExpressionUUID->"b71248a4-517a-40ca-a429-39739cd023bd"],

Cell[BoxData[
 RowBox[{"Log", "[", "2", "]"}]], "Output",
 CellChangeTimes->{
  3.89852310015197*^9, 3.898523134389632*^9, {3.898523186344801*^9, 
   3.898523190167327*^9}, 3.898523373852297*^9, 3.918032695033177*^9, 
   3.924463949581518*^9},
 CellID->117110715,ExpressionUUID->"88709d19-1fb0-9a41-bf2a-3de1bf69e422"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Summary", "SummarySection",
 CellChangeTimes->{{3.877080161186781*^9, 3.877080166731228*^9}},
 CellID->139280579,ExpressionUUID->"c2e8a4b9-89ed-47f2-b26b-a4d4bb43b040"],

Cell["\<\
Knowing the Laplace transform of a function can lead to the solution of \
integrals that can be expressed in terms of its 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.9180327563093433`*^9, 
   3.918032793392324*^9}, {3.918033442683832*^9, 3.9180334445005007`*^9}, {
   3.9224646107226896`*^9, 3.922464636476596*^9}},
 CellID->8494022,ExpressionUUID->"7fcc8c71-b995-4149-91a7-762a57cec9df"],

Cell[TextData[{
 "The Laplace transforms and the division by ",
 Cell[BoxData[
  FormBox["t", TraditionalForm]], "InlineMath",ExpressionUUID->
  "dcb9d284-f233-4151-a8df-7a3a9052c3a2"],
 " theorem are employed to evaluate various integrals."
}], "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.918032806130876*^9, 
   3.918032842938345*^9}, {3.918032882086999*^9, 3.918032926503681*^9}, {
   3.918033242455599*^9, 3.918033249121584*^9}, {3.9180334546982927`*^9, 
   3.91803345829872*^9}},
 CellID->1578068080,ExpressionUUID->"658df78c-8c48-4406-87da-cc76fa14c48e"],

Cell[TextData[{
 "The infinite series with summand ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"F", "(", "n", ")"}], "\[LongEqual]", 
    RowBox[{
     RowBox[{
      SubscriptBox["\[ScriptCapitalL]", "t"], "[", 
      RowBox[{"f", "(", "t", ")"}], "]"}], 
     RowBox[{"(", "n", ")"}]}]}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"20c3c118-62bf-497a-b3d5-d4deb5db15ba"],
 " can be",
 " represented as an integral ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], 
    RowBox[{
     FractionBox[
      RowBox[{"f", "(", "t", ")"}], 
      RowBox[{
       RowBox[{"exp", "(", "t", ")"}], " ", "-", "1"}]], 
     RowBox[{"\[DifferentialD]", "t"}]}]}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"38c8b44b-de3d-4b33-99b3-022a549e6c45"],
 " for subsequent evaluation."
}], "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.909137043232059*^9, 
   3.909137073980215*^9}, {3.918032974315379*^9, 3.918033055195537*^9}, {
   3.91803315603379*^9, 3.918033187214576*^9}, {3.9180333081915083`*^9, 
   3.918033331920658*^9}, {3.9180335864224463`*^9, 3.918033594852353*^9}, {
   3.926608705768466*^9, 3.926608706437847*^9}, {3.931157125500313*^9, 
   3.9311571256997766`*^9}},
 CellID->1371710812,ExpressionUUID->"b5470f99-a509-48a9-83a1-98759fa07bd7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox["Exercises",
  $Line = 0; Null]], "ExerciseSection",
 CellID->167902031,ExpressionUUID->"34b08694-8f3c-4528-8213-075053df9fd9"],

Cell[TextData[{
 "Evaluate ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], 
    RowBox[{
     RowBox[{
      SuperscriptBox["t", "4"], " ", 
      RowBox[{"exp", "(", 
       RowBox[{"-", "t"}], ")"}], " ", 
      RowBox[{"sin", "(", "t", ")"}]}], 
     RowBox[{"\[DifferentialD]", "t"}]}]}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"ee4b4355-ce4d-384f-b8de-2d688d6a33fb"],
 "."
}], "Exercise",
 CellChangeTimes->{3.918033747714887*^9},
 CellID->565384722,ExpressionUUID->"ac0fd1b6-ca8a-4840-8f43-edb085fc3408"],

Cell[CellGroupData[{

Cell["Solution", "ExerciseSolution",
 CellID->31905076,ExpressionUUID->"b8c4207f-fab2-4190-8274-44b3d8d84fdc"],

Cell[CellGroupData[{

Cell[TextData[{
 "This integral equals the Laplace transform of ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["t", "4"], " ", 
    RowBox[{"sin", "(", "t", ")"}]}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"1694cb74-3e0a-43af-b073-983f0e432cda"],
 " evaluated at ",
 Cell[BoxData[
  FormBox[
   RowBox[{"s", "=", "1"}], TraditionalForm]], "InlineMath",ExpressionUUID->
  "ceed738c-0593-46a3-a553-9c2057a9d682"],
 ", which can be easily evaluated using the multiplication theorem:"
}], "SolutionAnswer",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.894006795598843*^9, 3.894006871715919*^9}, {
   3.8985021398264227`*^9, 3.8985021661925983`*^9}, 3.898503038076569*^9, {
   3.918033655240157*^9, 3.918033673996079*^9}, {3.9311584914340596`*^9, 
   3.9311584917109804`*^9}},
 CellID->1601582163,ExpressionUUID->"b7153db0-49f7-4779-a23a-163d5ece3c6d"],

Cell[BoxData[
 RowBox[{"LaplaceTransform", "[", 
  RowBox[{
   RowBox[{
    SuperscriptBox["t", "4"], 
    RowBox[{"Sin", "[", "t", "]"}]}], ",", "t", ",", "s"}], 
  "]"}]], "ExerciseInput",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.894006874145488*^9, 3.894006880680743*^9}, 
   3.898503038076694*^9},
 CellID->1231382043,ExpressionUUID->"58d5e6aa-f0d0-4c6a-80a1-69fc5678f0f1"],

Cell[BoxData[
 FractionBox[
  RowBox[{"24", " ", 
   RowBox[{"(", 
    RowBox[{"1", "-", 
     RowBox[{"10", " ", 
      SuperscriptBox["s", "2"]}], "+", 
     RowBox[{"5", " ", 
      SuperscriptBox["s", "4"]}]}], ")"}]}], 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"1", "+", 
     SuperscriptBox["s", "2"]}], ")"}], "5"]]], "ExerciseOutput",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.89400688109601*^9, 3.89400690374756*^9}, 
   3.898503038076814*^9, 3.918033676242474*^9, 3.924463949643507*^9},
 CellID->116246343,ExpressionUUID->"cae52480-e283-1544-908f-05ffbb89e0dc"],

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"s", "\[Rule]", "1"}]}]], "ExerciseInput",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.894006899811866*^9, 3.894006901073346*^9}, 
   3.898503038076934*^9},
 CellID->634438017,ExpressionUUID->"0215c966-ce67-4e50-93fb-ae4bcf964386"],

Cell[BoxData[
 RowBox[{"-", "3"}]], "ExerciseOutput",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.894006901252141*^9, 3.8940069050520363`*^9}, 
   3.8985030380770617`*^9, 3.9180336778568277`*^9, 3.92446394965049*^9},
 CellID->61277887,ExpressionUUID->"682c9453-7d17-f94d-b6da-be2272106b69"]
}, Open  ]],

Cell[TextData[{
 "Verify the answer using ",
 ButtonBox["Integrate",
  BaseStyle->"Link"],
 ":"
}], "SolutionAnswer",
 CellChangeTimes->{{3.9180336977812433`*^9, 3.9180337095912046`*^9}, {
  3.918033766116557*^9, 3.918033789819738*^9}},
 CellID->1322841304,ExpressionUUID->"7846a4ba-5f6c-47fd-87c2-2f7ad4239188"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{
    SuperscriptBox["t", "4"], 
    RowBox[{"Exp", "[", 
     RowBox[{"-", "t"}], "]"}], 
    RowBox[{"Sin", "[", "t", "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "\[Infinity]"}], "}"}]}], 
  "]"}]], "ExerciseInput",
 CellChangeTimes->{{3.9180337109730253`*^9, 3.91803372423868*^9}},
 CellID->1849121941,ExpressionUUID->"61340d76-cb21-4265-8a27-0f925a5dfe8d"],

Cell[BoxData[
 RowBox[{"-", "3"}]], "ExerciseOutput",
 CellChangeTimes->{3.918033725141199*^9, 3.924463950178993*^9},
 CellID->153043847,ExpressionUUID->"48d8fb0e-4929-f24e-95f7-4b8ac62656e6"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "Evaluate ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], 
    RowBox[{
     TemplateBox[{"n", "t"},
      "BesselJ"], 
     RowBox[{"\[DifferentialD]", "t"}]}]}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"db522078-c954-427a-bf19-33020325d1c6"],
 "."
}], "Exercise",
 CellChangeTimes->{{3.894006986708764*^9, 3.894007035696262*^9}, 
   3.898503021347715*^9, 3.918030965502492*^9},
 CellID->1009567502,ExpressionUUID->"8fc7b655-11c1-41f6-8bc1-4effa4d3fda5"],

Cell[CellGroupData[{

Cell["Solution", "ExerciseSolution",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellID->2016285494,ExpressionUUID->"eac3a4f1-97a2-418c-bbeb-906237aa419f"],

Cell[TextData[{
 "The integral equals the Laplace transform of the ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["n", "th"], TraditionalForm]], "InlineMath",ExpressionUUID->
  "5f0e7baa-e860-b44d-a1ee-56887bbd7052"],
 "-order BesselJ function at ",
 Cell[BoxData[
  FormBox[
   RowBox[{"s", "=", "0"}], TraditionalForm]], "InlineMath",ExpressionUUID->
  "2aeba89f-5c66-054d-b4bc-28e7b5bfff6d"],
 ". Using the table for Laplace transforms:"
}], "SolutionAnswer",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellID->532711167,ExpressionUUID->"67ea455e-c025-436f-a0ae-8a78b8833c86"],

Cell[BoxData[
 RowBox[{"LaplaceTransform", "[", " ", 
  RowBox[{
   RowBox[{"BesselJ", "[", 
    RowBox[{"n", ",", "t"}], "]"}], ",", "t", ",", "s"}], 
  "]"}]], "ExerciseInput",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.894007174480027*^9, 3.894007186712754*^9}, {
   3.8940072634120913`*^9, 3.894007285074304*^9}, {3.894009513661314*^9, 
   3.894009516985448*^9}, {3.894009632505159*^9, 3.894009641002864*^9}, {
   3.894009758280547*^9, 3.894009766382646*^9}, {3.894009944533031*^9, 
   3.8940099534454107`*^9}, {3.8985023126184673`*^9, 3.898502313824635*^9}, {
   3.898502344500303*^9, 3.898502344628151*^9}, 3.898503021347934*^9},
 CellID->417259426,ExpressionUUID->"f132619a-6164-4741-ac5a-76a14fa0978f"],

Cell[BoxData[
 FractionBox[
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"s", "+", 
     SqrtBox[
      RowBox[{"1", "+", 
       SuperscriptBox["s", "2"]}]]}], ")"}], 
   RowBox[{"-", "n"}]], 
  SqrtBox[
   RowBox[{"1", "+", 
    SuperscriptBox["s", "2"]}]]]], "ExerciseOutput",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.894007182790702*^9, 3.894007187100095*^9}, {
   3.894007282751708*^9, 3.89400728557831*^9}, 3.8940082613063087`*^9, 
   3.894008302306736*^9, 3.894009514193041*^9, 3.894009550258675*^9, {
   3.894009636999711*^9, 3.894009641167766*^9}, {3.894009758662551*^9, 
   3.894009766610651*^9}, {3.8940099502817993`*^9, 3.894009953950802*^9}, 
   3.898502251950597*^9, {3.898502342415997*^9, 3.898502344979582*^9}, 
   3.8985030213480587`*^9, 3.92446395019293*^9},
 CellID->80572824,ExpressionUUID->"782c99c8-0a60-404e-93ce-b81514542b8c"],

Cell[TextData[{
 "Letting ",
 Cell[BoxData[
  FormBox[
   RowBox[{"s", "\[Rule]", 
    SuperscriptBox["0", "+"]}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"97527ad6-ee82-4202-9a94-416987ffe123"],
 ", we find:"
}], "SolutionAnswer",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.894007829950111*^9, 3.894007837522853*^9}, 
   3.894007915030128*^9, {3.894008151412529*^9, 3.894008186797001*^9}, {
   3.894008247870569*^9, 3.8940082499741087`*^9}, 3.898503021348128*^9},
 CellID->2100082567,ExpressionUUID->"e74f332b-7216-4d79-a466-5dfa506580a5"],

Cell[BoxData[
 RowBox[{"Limit", "[", 
  RowBox[{"%", ",", 
   RowBox[{"s", "\[Rule]", "0"}]}], "]"}]], "ExerciseInput",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8940082540590143`*^9, 3.894008267321286*^9}, 
   3.8985030213482237`*^9},
 CellID->46481477,ExpressionUUID->"f20facf6-39c3-43b2-9938-5d27659c2035"],

Cell[BoxData["1"], "ExerciseOutput",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8940082560043983`*^9, 3.894008267874543*^9}, 
   3.894009643135969*^9, {3.894009761543639*^9, 3.894009768548464*^9}, 
   3.894009955433687*^9, 3.898502255501727*^9, 3.898503021348329*^9, 
   3.924463950201906*^9},
 CellID->180050554,ExpressionUUID->"c845cf08-ba82-e04e-8db4-86c213800b51"]
}, Closed]]
}, Open  ]],

Cell[TextData[{
 "Evaluate ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], 
    RowBox[{"t", " ", 
     RowBox[{"exp", "(", 
      RowBox[{"-", 
       SuperscriptBox["t", "2"]}], ")"}], " ", 
     TemplateBox[{"0", 
       RowBox[{"a", " ", "t"}]},
      "BesselJ"], 
     RowBox[{"\[DifferentialD]", "t"}]}]}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"356e8ce7-ff2e-476b-a582-e011ab8051c9"],
 "."
}], "Exercise",
 CellChangeTimes->{{3.894010566833745*^9, 3.894010567918716*^9}, {
   3.89401063944125*^9, 3.8940106636897283`*^9}, 3.898502954509653*^9, 
   3.898503231583715*^9, 3.9180309667106333`*^9},
 CellID->1447849483,ExpressionUUID->"157faf57-b33f-49ed-bbd7-151c51718f9d"],

Cell[CellGroupData[{

Cell["Solution", "ExerciseSolution",
 CellID->2013569560,ExpressionUUID->"c718b877-4f2a-4ed9-8b56-7165e19ea1bf"],

Cell[TextData[{
 "First, we need to bring this integral to the form of the Laplace transform \
integral. For this purpose, we apply a change of variables ",
 Cell[BoxData[
  FormBox[
   RowBox[{"u", "=", 
    FractionBox[
     SuperscriptBox["t", "2"], "2"]}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"8c86fba2-f32c-8646-ac96-b910f8545609"],
 ":"
}], "SolutionAnswer",
 CellChangeTimes->{{3.894010718350595*^9, 3.894010809618478*^9}, {
   3.898502607992833*^9, 3.8985026167441587`*^9}, {3.898502651996724*^9, 
   3.898502676583317*^9}, 3.898502954509695*^9, 3.898503231583849*^9, {
   3.946637173665709*^9, 3.946637187408902*^9}},
 CellID->869056624,ExpressionUUID->"b706abda-3c04-441c-9502-fb3b3a39c32e"],

Cell[BoxData[
 FormBox[
  RowBox[{
   SubsuperscriptBox["\[Integral]", 
    RowBox[{"\[ThinSpace]", "0"}], "\[Infinity]"], 
   RowBox[{"exp", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "2"}], " ", "u"}], ")"}], " ", 
    TemplateBox[{"0", 
      RowBox[{"a", " ", 
        SqrtBox[
         RowBox[{"2", " ", "u"}]]}]},
     "BesselJ"], 
    RowBox[{"\[DifferentialD]", "u"}]}]}], TraditionalForm]], "SolutionAnswer",\

 CellID->1198396321,ExpressionUUID->"b12f5806-68d2-4914-9c57-bd21b19c485d"],

Cell[TextData[{
 "This is the Laplace transform of ",
 Cell[BoxData[
  FormBox[
   TemplateBox[{"0", 
     RowBox[{"a", " ", 
       SqrtBox[
        RowBox[{"2", " ", "u"}]]}]},
    "BesselJ"], TraditionalForm]], "InlineMath",ExpressionUUID->
  "e5b02b47-8ded-4bb8-80dc-c509a4c8e160"],
 " evaluated at ",
 Cell[BoxData[
  FormBox[
   RowBox[{"s", "=", "2"}], TraditionalForm]], "InlineMath",ExpressionUUID->
  "6d71ce4e-5fc5-40cf-a824-462fa562e72d"],
 ":"
}], "SolutionAnswer",
 CellID->197841834,ExpressionUUID->"2bd48409-8ac3-486a-aa0e-d1998b407e07"],

Cell[TextData[Cell[BoxData[
 RowBox[{" ", 
  FormBox[
   RowBox[{
    RowBox[{
     SubscriptBox["\[ScriptCapitalL]", "u"], "[", 
     TemplateBox[{"0", 
       RowBox[{"a", " ", 
         SqrtBox[
          RowBox[{"2", " ", "u"}]]}]},
      "BesselJ"], "]"}], 
    RowBox[{"(", "2", ")"}]}],
   TraditionalForm]}]], "ExerciseNote",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.894010949158616*^9, 3.894010975347673*^9}, {
   3.898502726633821*^9, 3.898502726778283*^9}, 3.898502954509809*^9, 
   3.898503231584085*^9, {3.931157444653014*^9, 3.9311574450435133`*^9}, {
   3.9457693786601887`*^9, 
   3.9457693786637745`*^9}},ExpressionUUID->"82e5bd01-955c-4f0a-b409-\
aecf306f8f8f"]], "SolutionAnswer",
 CellID->279429049,ExpressionUUID->"52e99fce-9791-3547-a38b-51dea74c9c28"],

Cell["Using the table of Laplace transforms, we find:", "SolutionAnswer",
 CellID->529456647,ExpressionUUID->"289929dc-5cfe-4b04-a665-3e47e14db544"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LaplaceTransform", "[", 
  RowBox[{
   RowBox[{"BesselJ", "[", 
    RowBox[{"0", ",", 
     RowBox[{"a", "*", 
      RowBox[{"Sqrt", "[", 
       RowBox[{"2", "u"}], "]"}]}]}], "]"}], ",", "u", ",", "s"}], 
  "]"}]], "ExerciseInput",
 CellID->1553116608,ExpressionUUID->"27fc34db-e330-4f07-b496-9ba74e4fa7b6"],

Cell[BoxData[
 FractionBox[
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{"-", 
    FractionBox[
     SuperscriptBox["a", "2"], 
     RowBox[{"2", " ", "s"}]]}]], "s"]], "ExerciseOutput",
 CellID->164908660,ExpressionUUID->"d3a8771b-fd8c-894d-8dd4-857c8215b2d4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"s", "\[Rule]", "2"}]}]], "ExerciseInput",
 CellID->740317011,ExpressionUUID->"a34cf210-afa3-43c3-a2f7-87e5f55057c4"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], " ", 
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{"-", 
    FractionBox[
     SuperscriptBox["a", "2"], "4"]}]]}]], "ExerciseOutput",
 CellID->400161707,ExpressionUUID->"d0a91f81-4784-cf46-a368-287e19e09f66"]
}, Open  ]],

Cell[TextData[{
 "Checking the answer by directly applying ",
 ButtonBox["Integrate",
  BaseStyle->"Link"],
 ":"
}], "SolutionAnswer",
 CellChangeTimes->{{3.898503065248776*^9, 3.898503080919763*^9}, {
   3.898503231584614*^9, 3.898503247773044*^9}, 3.945769389864149*^9},
 CellID->843745070,ExpressionUUID->"e04fb704-d2c6-40e1-877f-1cfeadf0358f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{"t", "*", 
    RowBox[{"Exp", "[", 
     RowBox[{"-", 
      SuperscriptBox["t", "2"]}], "]"}], 
    RowBox[{"BesselJ", "[", 
     RowBox[{"0", ",", 
      RowBox[{"a", "*", "t"}]}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "\[Infinity]"}], "}"}], ",", 
   RowBox[{"GenerateConditions", "->", "False"}]}], "]"}]], "ExerciseInput",
 CellID->776785162,ExpressionUUID->"1fe5474c-e521-4c37-9616-d8b079cf66f8"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], " ", 
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{"-", 
    FractionBox[
     SuperscriptBox["a", "2"], "4"]}]]}]], "ExerciseOutput",
 CellID->490197938,ExpressionUUID->"7dffcc71-8803-8044-a37b-a01fe80cd711"]
}, Open  ]]
}, Closed]],

Cell[TextData[{
 "Evaluate ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], 
    RowBox[{
     FractionBox[
      RowBox[{
       RowBox[{"exp", "(", 
        RowBox[{
         RowBox[{"-", "2"}], " ", "t"}], ")"}], " ", 
       RowBox[{"sin", "(", 
        RowBox[{"2", "t"}], ")"}]}], "t"], 
     RowBox[{"\[DifferentialD]", "t"}]}]}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"5bcdb15b-36a5-4334-bff6-b056f0199391"],
 "."
}], "Exercise",
 CellChangeTimes->{{3.894014786031493*^9, 3.894014828104953*^9}, {
   3.894014955816197*^9, 3.894014955816237*^9}, 3.918030967809121*^9},
 CellID->545213210,ExpressionUUID->"1d566aca-29d2-4d09-8b19-4964ae9b7542"],

Cell[CellGroupData[{

Cell["Solution", "ExerciseSolution",
 CellID->223606681,ExpressionUUID->"0bcdf4f5-7c81-45ff-9dea-23a3d7f111aa"],

Cell["First, determine the Laplace transform of the numerator:", \
"SolutionAnswer",
 CellChangeTimes->{{3.894014840867997*^9, 3.8940148534431963`*^9}, {
  3.898504932766023*^9, 3.898504935923558*^9}, {3.918033805266117*^9, 
  3.9180338079676228`*^9}},
 CellID->569292635,ExpressionUUID->"c17692c2-7e8f-4b66-808b-ad2c6ce4267e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LaplaceTransform", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Exp", "[", 
     RowBox[{
      RowBox[{"-", "2"}], "t"}], "]"}], 
    RowBox[{"Sin", "[", 
     RowBox[{"2", "t"}], "]"}]}], ",", "t", ",", "s"}], 
  "]"}]], "ExerciseInput",
 CellChangeTimes->{{3.894014854647943*^9, 3.894014861294156*^9}, 
   3.894014948463067*^9},
 CellID->1076284101,ExpressionUUID->"c5fe5c0b-1195-4eb6-8355-7536f1cc8284"],

Cell[BoxData[
 FractionBox["2", 
  RowBox[{"4", "+", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"2", "+", "s"}], ")"}], "2"]}]]], "ExerciseOutput",
 CellChangeTimes->{
  3.89401486153209*^9, {3.894014948713993*^9, 3.8940149595108347`*^9}, 
   3.918033810016563*^9, 3.9244639583631306`*^9},
 CellID->423249265,ExpressionUUID->"3ba901f4-c1d1-8e4c-a353-9322d7ca954b"]
}, Open  ]],

Cell[TextData[{
 "Use formula (",
 
 CounterBox["DisplayFormulaNumbered", "integral-limit",
  BaseStyle->"Hyperlink"],
 ") and integrate the previous expression from 0 to ",
 Cell[BoxData[
  FormBox["\[Infinity]", TraditionalForm]], "InlineMath",ExpressionUUID->
  "a0947b22-6b56-4b70-a1aa-abf19389a149"],
 ":"
}], "SolutionAnswer",
 CellID->853259978,ExpressionUUID->"17bbd746-4010-4d52-b2d3-68e7e4d7d271"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   FractionBox["2", 
    RowBox[{"4", "+", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"2", "+", "s"}], ")"}], "2"]}]], ",", 
   RowBox[{"{", 
    RowBox[{"s", ",", "0", ",", "Infinity"}], "}"}]}], "]"}]], "ExerciseInput",\

 CellChangeTimes->{{3.89401491695032*^9, 3.894014961110526*^9}},
 CellID->1256680906,ExpressionUUID->"40ffe69c-ab91-4e6e-83e2-9a8f27f879f5"],

Cell[BoxData[
 FractionBox["\[Pi]", "4"]], "ExerciseOutput",
 CellChangeTimes->{{3.894014925310164*^9, 3.894014961465522*^9}, 
   3.918033823846394*^9, 3.924463958452219*^9},
 CellID->120041283,ExpressionUUID->"a0a371b9-2438-3344-9c25-359751ec00e9"]
}, Open  ]],

Cell[TextData[{
 "Verify the answer using ",
 ButtonBox["Integrate",
  BaseStyle->"Link"],
 ":"
}], "SolutionAnswer",
 CellChangeTimes->{{3.9180336977812433`*^9, 3.9180337095912046`*^9}, {
  3.918033766116557*^9, 3.918033789819738*^9}},
 CellID->1385393622,ExpressionUUID->"d5e6f99e-931b-4f1d-b668-f79e4d80d2e8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   FractionBox[
    RowBox[{
     RowBox[{"Exp", "[", 
      RowBox[{
       RowBox[{"-", "2"}], "t"}], "]"}], 
     RowBox[{"Sin", "[", 
      RowBox[{"2", "t"}], "]"}]}], "t"], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "\[Infinity]"}], "}"}]}], 
  "]"}]], "ExerciseInput",
 CellChangeTimes->{{3.9180337109730253`*^9, 3.91803372423868*^9}, {
  3.918033835350244*^9, 3.918033845629335*^9}},
 CellID->1292904180,ExpressionUUID->"cbd86b8c-a287-4864-a10c-83f6f1788c22"],

Cell[BoxData[
 FractionBox["\[Pi]", "4"]], "ExerciseOutput",
 CellChangeTimes->{3.918033725141199*^9, 3.918033846155315*^9, 
  3.924463958722809*^9},
 CellID->382046658,ExpressionUUID->"3c8ad6aa-0601-f740-ae9a-eaff2451900b"]
}, Open  ]]
}, Closed]],

Cell[TextData[{
 "Evaluate ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], 
    RowBox[{
     FractionBox[
      RowBox[{
       RowBox[{"cos", "(", 
        RowBox[{"4", " ", "t"}], ")"}], "-", 
       RowBox[{"cos", "(", "t", ")"}]}], "t"], 
     RowBox[{"\[DifferentialD]", "t"}]}]}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"3c5ea949-56d5-41f5-9530-5288afa469cd"],
 "."
}], "Exercise",
 CellChangeTimes->{{3.894015174634064*^9, 3.894015212673738*^9}, {
   3.898507387182242*^9, 3.898507388897619*^9}, 3.9180309690292187`*^9},
 CellID->342616225,ExpressionUUID->"fed0243d-339d-496c-95fb-e64aa946cdac"],

Cell[CellGroupData[{

Cell["Solution", "ExerciseSolution",
 CellID->650147391,ExpressionUUID->"858d0412-01d2-4ee4-ac26-adea2cf1e9ac"],

Cell["\<\
The Laplace transform of the difference of cosine functions in the numerator \
is:\
\>", "SolutionAnswer",
 CellChangeTimes->{{3.894015214813179*^9, 3.8940152664611197`*^9}, {
  3.9180338520820017`*^9, 3.918033864231505*^9}},
 CellID->947235968,ExpressionUUID->"796488fe-dc41-4282-8604-54f6ed0e2174"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LaplaceTransform", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Cos", "[", 
     RowBox[{"4", "t"}], "]"}], "-", 
    RowBox[{"Cos", "[", "t", "]"}]}], ",", "t", ",", "s"}], 
  "]"}]], "ExerciseInput",
 CellChangeTimes->{{3.894015267371956*^9, 3.894015276436635*^9}, 
   3.894015377459175*^9},
 CellID->1930986284,ExpressionUUID->"de1f5f73-3453-4f41-9a13-28dd293f3c0b"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"15", " ", "s"}], 
   RowBox[{"16", "+", 
    RowBox[{"17", " ", 
     SuperscriptBox["s", "2"]}], "+", 
    SuperscriptBox["s", "4"]}]]}]], "ExerciseOutput",
 CellChangeTimes->{
  3.8940152969152713`*^9, {3.894015385242969*^9, 3.894015400523839*^9}, 
   3.918033883848575*^9, 3.9244639701846447`*^9},
 CellID->593879520,ExpressionUUID->"f46bca25-1ee5-6c47-b61e-3e444c49e0c3"]
}, Open  ]],

Cell[TextData[{
 "Integrate it in the ",
 Cell[BoxData[
  FormBox["s", TraditionalForm]], "InlineMath",ExpressionUUID->
  "3b2bd9be-5d0f-456a-8655-707b5e78699d"],
 "-domain:"
}], "SolutionAnswer",
 CellChangeTimes->{{3.894015326745517*^9, 3.894015353073837*^9}, {
  3.918033902205265*^9, 3.91803390894713*^9}},
 CellID->1581412632,ExpressionUUID->"66f81854-3769-4654-aedb-e8d85dc1db7a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{"%", ",", 
   RowBox[{"{", 
    RowBox[{"s", ",", "0", ",", "Infinity"}], "}"}]}], "]"}]], "ExerciseInput",\

 CellChangeTimes->{{3.8940153128572617`*^9, 3.894015321655365*^9}},
 CellID->1236690189,ExpressionUUID->"6b5dfc19-e2f5-4ec0-9515-fce777770586"],

Cell[BoxData[
 RowBox[{"-", 
  RowBox[{"Log", "[", "4", "]"}]}]], "ExerciseOutput",
 CellChangeTimes->{3.894015322077433*^9, 3.894015400762375*^9, 
  3.918033910719626*^9, 3.9244639703337727`*^9},
 CellID->655323497,ExpressionUUID->"4fc62c9c-0d30-8449-8539-1a41527af6f4"]
}, Open  ]],

Cell[TextData[{
 "Verify the answer using ",
 ButtonBox["Integrate",
  BaseStyle->"Link"],
 ":"
}], "SolutionAnswer",
 CellChangeTimes->{{3.9180336977812433`*^9, 3.9180337095912046`*^9}, {
  3.918033766116557*^9, 3.918033789819738*^9}},
 CellID->1346801492,ExpressionUUID->"b3bcae8c-9a9f-4203-8de0-f9e7e4fce765"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   FractionBox[
    RowBox[{
     RowBox[{"Cos", "[", 
      RowBox[{"4", "t"}], "]"}], "-", 
     RowBox[{"Cos", "[", "t", "]"}]}], "t"], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "\[Infinity]"}], "}"}]}], 
  "]"}]], "ExerciseInput",
 CellChangeTimes->{{3.9180337109730253`*^9, 3.91803372423868*^9}, {
   3.918033835350244*^9, 3.918033845629335*^9}, 3.918033924039947*^9},
 CellID->1215036664,ExpressionUUID->"95947e49-0c04-4394-b0ac-643243c9f03b"],

Cell[BoxData[
 RowBox[{"-", 
  RowBox[{"Log", "[", "4", "]"}]}]], "ExerciseOutput",
 CellChangeTimes->{3.918033725141199*^9, 3.918033846155315*^9, 
  3.918033935341259*^9, 3.9244639779087734`*^9},
 CellID->407587437,ExpressionUUID->"a5a3a320-d9b1-8b49-adf2-9f47a42089aa"]
}, Open  ]]
}, Closed]],

Cell[TextData[{
 "Evaluate ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], 
    RowBox[{
     FractionBox[
      RowBox[{
       RowBox[{"exp", "(", 
        RowBox[{"-", "t"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         TemplateBox[{"0", "t"},
          "BesselJ"]}], ")"}]}], "t"], 
     RowBox[{"\[DifferentialD]", "t"}]}]}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"751cc097-7461-4eb1-af40-3dc3990dee04"],
 "."
}], "Exercise",
 CellFrame->{{0, 0}, {0, 0}},
 CellChangeTimes->{{3.894015776261403*^9, 3.894015802285263*^9}, {
   3.894016031009494*^9, 3.894016055612195*^9}, {3.898498418904657*^9, 
   3.898498447196887*^9}, 3.918030970145698*^9},
 CellID->1838713037,ExpressionUUID->"04afeeee-810d-45a5-a21a-b531026f1ece"],

Cell[CellGroupData[{

Cell["Solution", "ExerciseSolution",
 CellID->584780654,ExpressionUUID->"89a29707-847e-49dd-9a40-af3dc7b51f3a"],

Cell[TextData[{
 "First, determine the Laplace transform of ",
 Cell[BoxData[
  FormBox[
   FractionBox[
    RowBox[{"1", "-", 
     TemplateBox[{"0", "t"},
      "BesselJ"]}], "t"], TraditionalForm]], "InlineMath",ExpressionUUID->
  "cfac809d-ff53-4e25-96d4-874bbd08270f"],
 " using the division theorem:"
}], "SolutionAnswer",
 CellFrame->{{0, 0}, {0, 0}},
 CellChangeTimes->{{3.894015816930488*^9, 3.894015859413278*^9}, {
  3.89401607395273*^9, 3.894016129467757*^9}, {3.89849841890473*^9, 
  3.898498470554399*^9}, {3.898505438108376*^9, 3.8985054403990493`*^9}, {
  3.918033978968804*^9, 3.918033987587607*^9}},
 CellID->960332529,ExpressionUUID->"6599440f-3ea3-4477-ac04-90ab3bb23cff"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LaplaceTransform", "[", 
  RowBox[{
   RowBox[{"1", "-", 
    RowBox[{"BesselJ", "[", 
     RowBox[{"0", ",", "t"}], "]"}]}], ",", "t", ",", "u"}], 
  "]"}]], "ExerciseInput",
 CellFrame->{{0, 0}, {0, 0}},
 CellChangeTimes->{{3.8940161550930777`*^9, 3.8940161739753647`*^9}, {
  3.898498418904862*^9, 3.8984984471971083`*^9}},
 CellID->681309017,ExpressionUUID->"42d2a392-d403-4a53-9cab-0c5c79e7847a"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "u"], "-", 
  FractionBox["1", 
   SqrtBox[
    RowBox[{"1", "+", 
     SuperscriptBox["u", "2"]}]]]}]], "ExerciseOutput",
 CellFrame->{{0, 0}, {0, 0}},
 CellChangeTimes->{{3.894016166875063*^9, 3.894016189920849*^9}, {
   3.898498418904978*^9, 3.898498447197226*^9}, 3.898505442240471*^9, 
   3.9180339902580643`*^9, 3.9244639780208645`*^9},
 CellID->400314254,ExpressionUUID->"f7c9f547-b1a5-104d-a0e3-977edb7df58a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{"%", ",", 
   RowBox[{"{", 
    RowBox[{"u", ",", "s", ",", "Infinity"}], "}"}], ",", 
   RowBox[{"Assumptions", "\[Rule]", 
    RowBox[{"s", ">", "0"}]}]}], "]"}]], "ExerciseInput",
 CellFrame->{{0, 0}, {0, 0}},
 CellChangeTimes->{{3.894015860290823*^9, 3.894015866594811*^9}, {
  3.894016135868609*^9, 3.8940161374539623`*^9}, {3.89401617721089*^9, 
  3.894016198383486*^9}, {3.8984984189050403`*^9, 3.898498447197304*^9}},
 CellID->740419339,ExpressionUUID->"9e3b6cfc-0a88-48ed-b382-c3fd741cb2f1"],

Cell[BoxData[
 RowBox[{"Log", "[", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", 
     SqrtBox[
      RowBox[{"1", "+", 
       FractionBox["1", 
        SuperscriptBox["s", "2"]]}]]}], ")"}]}], "]"}]], "ExerciseOutput",
 CellFrame->{{0, 0}, {0, 0}},
 CellChangeTimes->{
  3.89401586683176*^9, 3.894015946340507*^9, {3.89401618633573*^9, 
   3.894016200032054*^9}, {3.898498418905118*^9, 3.898498447197387*^9}, 
   3.8985054449354277`*^9, 3.918033997732148*^9, 3.9244639789361954`*^9},
 CellID->56928875,ExpressionUUID->"d770f023-c4bd-0247-858d-6185681cef9e"]
}, Open  ]],

Cell[TextData[{
 "The integral ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], 
    RowBox[{
     FractionBox[
      RowBox[{
       RowBox[{"exp", "(", 
        RowBox[{"-", "t"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         TemplateBox[{"0", "t"},
          "BesselJ"]}], ")"}]}], "t"], 
     RowBox[{"\[DifferentialD]", "t"}]}]}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"aad1d543-5883-4344-bd06-641644126ece"],
 " is the Laplace transform of ",
 Cell[BoxData[
  FormBox[
   FractionBox[
    RowBox[{"1", "-", 
     TemplateBox[{"0", "t"},
      "BesselJ"]}], "t"], TraditionalForm]], "InlineMath",ExpressionUUID->
  "e124c8bd-49ec-6e47-a3d5-4efe792fe4ea"],
 " evaluated at ",
 Cell[BoxData[
  FormBox[
   RowBox[{"s", "=", "1"}], TraditionalForm]], "InlineMath",ExpressionUUID->
  "08688150-c8e8-ed44-8358-8494ca1870a4"],
 ":"
}], "SolutionAnswer",
 CellFrame->{{0, 0}, {0, 0}},
 CellChangeTimes->{{3.894015878764612*^9, 3.8940158793253927`*^9}, {
  3.894015910183083*^9, 3.894015938307262*^9}, {3.89401621474229*^9, 
  3.894016251694803*^9}, {3.898498418905155*^9, 3.8984984471974487`*^9}, {
  3.918034013768716*^9, 3.918034018782731*^9}},
 CellID->875050204,ExpressionUUID->"1ff4218a-8d26-405b-a36a-73c2c02b4963"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"s", "\[Rule]", "1"}]}]], "ExerciseInput",
 CellFrame->{{0, 0}, {0, 0}},
 CellChangeTimes->{{3.894015985542997*^9, 3.8940160152517557`*^9}, {
   3.894016254438413*^9, 3.894016255733131*^9}, 3.898497509597537*^9, {
   3.898498418905223*^9, 3.898498447197526*^9}},
 CellID->1304985841,ExpressionUUID->"84a6bb35-ffc4-4adc-b415-9c7d5b6c267b"],

Cell[BoxData[
 RowBox[{"Log", "[", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", 
     SqrtBox["2"]}], ")"}]}], "]"}]], "ExerciseOutput",
 CellFrame->{{0, 0}, {0, 0}},
 CellChangeTimes->{{3.894015996597869*^9, 3.894016016467486*^9}, 
   3.894016255978877*^9, {3.8984984189052973`*^9, 3.898498447197605*^9}, 
   3.898505522449876*^9, 3.918034027468717*^9, 3.9244639789720955`*^9},
 CellID->313010878,ExpressionUUID->"f44c793b-0f98-9648-a2cf-eb8998c4096b"]
}, Open  ]],

Cell[TextData[{
 "Verify the answer using ",
 ButtonBox["Integrate",
  BaseStyle->"Link"],
 ":"
}], "SolutionAnswer",
 CellChangeTimes->{{3.9180336977812433`*^9, 3.9180337095912046`*^9}, {
  3.918033766116557*^9, 3.918033789819738*^9}},
 CellID->1292137860,ExpressionUUID->"bafc8f74-5674-4440-9f78-4545b074b0f4"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   FractionBox[
    RowBox[{
     RowBox[{"Exp", "[", 
      RowBox[{"-", "t"}], "]"}], 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       RowBox[{"BesselJ", "[", 
        RowBox[{"0", ",", "t"}], "]"}]}], ")"}]}], "t"], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "\[Infinity]"}], "}"}]}], 
  "]"}]], "ExerciseInput",
 CellChangeTimes->{{3.9180337109730253`*^9, 3.91803372423868*^9}, {
   3.918033835350244*^9, 3.918033845629335*^9}, 3.918033924039947*^9, {
   3.9180340402752113`*^9, 3.9180340479248734`*^9}},
 CellID->1606374556,ExpressionUUID->"e3a64995-e39e-4cc1-a40c-5343de2c3e3e"],

Cell[BoxData[
 RowBox[{"Log", "[", 
  RowBox[{
   FractionBox["1", "2"], "+", 
   FractionBox["1", 
    SqrtBox["2"]]}], "]"}]], "ExerciseOutput",
 CellChangeTimes->{3.918033725141199*^9, 3.918033846155315*^9, 
  3.918033935341259*^9, 3.918034049244997*^9, 3.9244639797832947`*^9},
 CellID->776737824,ExpressionUUID->"52730fe2-10c0-9346-9c0e-fb33d04f432c"]
}, Open  ]]
}, Closed]],

Cell[TextData[{
 "Evaluate ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], 
    RowBox[{
     FractionBox[
      RowBox[{
       SuperscriptBox["sin", "2"], "(", "t", ")"}], 
      SuperscriptBox["t", "2"]], 
     RowBox[{"\[DifferentialD]", "t"}]}]}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"906bc5ed-b7bf-4e46-8217-e54eb1a5ae07"],
 "."
}], "Exercise",
 CellFrame->{{0, 0}, {0, 0}},
 CellChangeTimes->{{3.894015776261403*^9, 3.894015802285263*^9}, {
   3.894016031009494*^9, 3.894016055612195*^9}, {3.898498418904657*^9, 
   3.898498447196887*^9}, {3.898509549587445*^9, 3.898509584593528*^9}, 
   3.918030971293057*^9},
 CellID->1449416295,ExpressionUUID->"1ab4b335-2ef1-4c7a-bea9-7d6acc21d353"],

Cell[CellGroupData[{

Cell["Solution", "ExerciseSolution",
 CellID->457130111,ExpressionUUID->"f8db3190-6673-40ad-973c-5a0b13c3f7b7"],

Cell["Notice that the integrand can be represented as follows:", \
"SolutionAnswer",
 CellFrame->{{0, 0}, {0, 0}},
 CellChangeTimes->{{3.894015816930488*^9, 3.894015859413278*^9}, {
  3.89401607395273*^9, 3.894016129467757*^9}, {3.89849841890473*^9, 
  3.898498470554399*^9}, {3.898505438108376*^9, 3.8985054403990493`*^9}, {
  3.898509593615738*^9, 3.898509634417219*^9}, {3.918034064215748*^9, 
  3.918034070832535*^9}},
 CellID->1432662144,ExpressionUUID->"4a7ea1d7-d390-4a2d-811f-3c9b351ef861"],

Cell[BoxData[
 FormBox[
  FractionBox[
   RowBox[{
    RowBox[{
     SuperscriptBox["sin", "2"], "(", "t", ")"}], "/", "t"}], "t"], 
  TraditionalForm]], "SolutionAnswer",
 CellChangeTimes->{{3.898509636377911*^9, 3.898509686103348*^9}, {
  3.931157516077509*^9, 3.9311575168670044`*^9}, {3.9457694954450264`*^9, 
  3.945769495448017*^9}},
 CellID->1615935935,ExpressionUUID->"4e832bf7-66a8-4f63-869e-ec5a6c92c482"],

Cell[TextData[{
 "First, one needs to determine the Laplace transform of ",
 Cell[BoxData[
  FormBox[
   FractionBox[
    RowBox[{
     SuperscriptBox["sin", "2"], "(", "t", ")"}], "t"], TraditionalForm]], 
  "InlineMath",ExpressionUUID->"1f43ea07-46e6-b24f-bb20-0ea04a752cb8"],
 " and then evaluate the integral employing formula (",
 
 CounterBox["DisplayFormulaNumbered", "integral-limit",
  BaseStyle->"Hyperlink"],
 "). Use the division by ",
 Cell[BoxData[
  FormBox["t", TraditionalForm]], "InlineMath",ExpressionUUID->
  "3b4459ff-0c1c-c948-8054-fa3955424c0f"],
 " theorem to determine the Laplace transform of ",
 Cell[BoxData[
  FormBox[
   FractionBox[
    RowBox[{
     SuperscriptBox["sin", "2"], "(", "t", ")"}], "t"], TraditionalForm]], 
  "InlineMath",ExpressionUUID->"32e1a72b-8f27-c44c-9c68-cd1c92d02e3c"],
 ":"
}], "SolutionAnswer",
 CellID->1813593190,ExpressionUUID->"64d50fd7-491c-4f7a-8a4f-6027271e1555"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{"LaplaceTransform", "[", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sin", "[", "t", "]"}], "2"], ",", "t", ",", "u"}], "]"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"u", ",", "s", ",", "Infinity"}], "}"}], ",", 
   RowBox[{"Assumptions", "->", 
    RowBox[{"s", ">", "0"}]}]}], "]"}]], "ExerciseInput",
 CellFrame->{{0, 0}, {0, 0}},
 CellChangeTimes->{{3.8940161550930777`*^9, 3.8940161739753647`*^9}, {
  3.898498418904862*^9, 3.8984984471971083`*^9}, {3.898509969353695*^9, 
  3.898509974490432*^9}},
 CellID->1166004044,ExpressionUUID->"185f3b18-cea8-4e44-80d6-a1bebd969326"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "4"], " ", 
  RowBox[{"Log", "[", 
   RowBox[{"1", "+", 
    FractionBox["4", 
     SuperscriptBox["s", "2"]]}], "]"}]}]], "ExerciseOutput",
 CellFrame->{{0, 0}, {0, 0}},
 CellChangeTimes->{{3.894016166875063*^9, 3.894016189920849*^9}, {
   3.898498418904978*^9, 3.898498447197226*^9}, 3.898505442240471*^9, 
   3.898509975439014*^9, 3.9180341882028847`*^9, 3.924463980243273*^9},
 CellID->238662019,ExpressionUUID->"69b83278-f490-f448-a0a4-1a3c2b1d4494"]
}, Open  ]],

Cell[TextData[{
 "Employing formula (",
 
 CounterBox["DisplayFormulaNumbered", "integral-limit",
  BaseStyle->"Hyperlink"],
 "), one obtains:"
}], "SolutionAnswer",
 CellID->1026131308,ExpressionUUID->"87464c6e-b5b3-4adc-82b8-c0ebce66b40b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Integrate", "[", 
   RowBox[{
    RowBox[{
     FractionBox["1", "4"], " ", 
     RowBox[{"Log", "[", 
      RowBox[{"1", "+", 
       FractionBox["4", 
        SuperscriptBox["u", "2"]]}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"u", ",", "0", ",", "Infinity"}], "}"}]}], "]"}], 
  " "}]], "ExerciseInput",
 CellFrame->{{0, 0}, {0, 0}},
 CellChangeTimes->{{3.894015860290823*^9, 3.894015866594811*^9}, {
   3.894016135868609*^9, 3.8940161374539623`*^9}, {3.89401617721089*^9, 
   3.894016198383486*^9}, {3.8984984189050403`*^9, 3.898498447197304*^9}, 
   3.898510064547904*^9},
 CellID->1962256932,ExpressionUUID->"8b9a9c5a-e48e-4087-bf65-d5bd7027767f"],

Cell[BoxData[
 FractionBox["\[Pi]", "2"]], "ExerciseOutput",
 CellFrame->{{0, 0}, {0, 0}},
 CellChangeTimes->{
  3.89401586683176*^9, 3.894015946340507*^9, {3.89401618633573*^9, 
   3.894016200032054*^9}, {3.898498418905118*^9, 3.898498447197387*^9}, 
   3.8985054449354277`*^9, 3.898510067667737*^9, 3.918034201691895*^9, 
   3.9244639819684696`*^9},
 CellID->544567170,ExpressionUUID->"e2f5f6fb-c5a1-f545-ab2f-a59aac5e6334"]
}, Open  ]],

Cell[TextData[{
 "Use ",
 ButtonBox["Integrate",
  BaseStyle->"Link"],
 " to verify the answer:"
}], "SolutionAnswer",
 CellFrame->{{0, 0}, {0, 0}},
 CellChangeTimes->{{3.894015878764612*^9, 3.8940158793253927`*^9}, {
  3.894015910183083*^9, 3.894015938307262*^9}, {3.89401621474229*^9, 
  3.894016251694803*^9}, {3.898498418905155*^9, 3.8984984471974487`*^9}, {
  3.898510204863437*^9, 3.8985102307373133`*^9}, {3.9180342093430033`*^9, 
  3.918034227762124*^9}},
 CellID->1296812476,ExpressionUUID->"faf94e05-7d32-468c-ae3f-8f80ebeb7684"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   FractionBox[
    SuperscriptBox[
     RowBox[{"Sin", "[", "t", "]"}], "2"], 
    SuperscriptBox["t", "2"]], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "Infinity"}], "}"}]}], "]"}]], "ExerciseInput",\

 CellFrame->{{0, 0}, {0, 0}},
 CellChangeTimes->{{3.894015985542997*^9, 3.8940160152517557`*^9}, {
   3.894016254438413*^9, 3.894016255733131*^9}, 3.898497509597537*^9, {
   3.898498418905223*^9, 3.898498447197526*^9}, 3.89851023444178*^9},
 CellID->715750729,ExpressionUUID->"4982d9d5-c53b-4343-8a05-2045925806a4"],

Cell[BoxData[
 FractionBox["\[Pi]", "2"]], "ExerciseOutput",
 CellFrame->{{0, 0}, {0, 0}},
 CellChangeTimes->{{3.894015996597869*^9, 3.894016016467486*^9}, 
   3.894016255978877*^9, {3.8984984189052973`*^9, 3.898498447197605*^9}, 
   3.898505522449876*^9, 3.898510234901984*^9, 3.918034230661685*^9, 
   3.9244639820730286`*^9},
 CellID->273778309,ExpressionUUID->"be97913c-8f27-f649-8556-cab8cd9dd488"]
}, Open  ]]
}, Closed]],

Cell[TextData[{
 "Prove that ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     UnderoverscriptBox["\[Sum]", 
      RowBox[{"\[VeryThinSpace]", 
       RowBox[{"n", "=", "1"}]}], 
      RowBox[{"\[VeryThinSpace]", "\[Infinity]"}]], 
     FractionBox["1", 
      RowBox[{
       SuperscriptBox["a", "2"], "+", 
       SuperscriptBox["n", "2"]}]]}], "\[LongEqual]", 
    FractionBox[
     RowBox[{
      RowBox[{"\[Pi]", " ", "a", " ", 
       RowBox[{"coth", "(", 
        RowBox[{"\[Pi]", " ", "a"}], ")"}]}], "-", "1"}], 
     RowBox[{"2", " ", 
      SuperscriptBox["a", "2"]}]]}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"d58f1634-945e-4baf-b5c3-df3db4fd8621"],
 "."
}], "Exercise",
 CellID->135922859,ExpressionUUID->"dba38a5c-2615-4ace-95b3-f869b43f0737"],

Cell[CellGroupData[{

Cell["Solution", "ExerciseSolution",
 CellID->697113179,ExpressionUUID->"5d929940-599d-4cb9-8079-ee405f90ba07"],

Cell[TextData[{
 "First, determine the function whose Laplace transform equals ",
 Cell[BoxData[
  FormBox[
   FractionBox["1", 
    RowBox[{
     SuperscriptBox["a", "2"], "+", 
     SuperscriptBox["n", "2"]}]], TraditionalForm]], "InlineMath",
  ExpressionUUID->"c940b4c2-9b95-4792-9a17-f4180a7ff6d2"],
 ":"
}], "SolutionAnswer",
 CellChangeTimes->{{3.918034289000951*^9, 3.9180342969170113`*^9}, {
  3.9311584559648004`*^9, 3.931158456340164*^9}},
 CellID->1993348867,ExpressionUUID->"dc5ae740-0de4-4b18-8130-296405a97ae3"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"InverseLaplaceTransform", "[", 
  RowBox[{
   FractionBox["1", 
    RowBox[{
     SuperscriptBox["a", "2"], "+", 
     SuperscriptBox["n", "2"]}]], ",", "n", ",", "t"}], 
  "]"}]], "ExerciseInput",
 CellChangeTimes->{{3.898524160274672*^9, 3.898524170123877*^9}},
 CellID->779731103,ExpressionUUID->"9579af81-1764-46ca-804a-32f70bb99877"],

Cell[BoxData[
 FractionBox[
  RowBox[{"Sin", "[", 
   RowBox[{"a", " ", "t"}], "]"}], "a"]], "ExerciseOutput",
 CellChangeTimes->{3.8985241704198103`*^9, 3.918034299848625*^9, 
  3.924463982085972*^9},
 CellID->851857241,ExpressionUUID->"3f67a1be-dea1-7b49-9054-c86d164c6dd6"]
}, Open  ]],

Cell[TextData[{
 "Use formula (",
 
 CounterBox["DisplayFormulaNumbered", "formula1",
  BaseStyle->"Hyperlink"],
 "):"
}], "SolutionAnswer",
 CellID->351110136,ExpressionUUID->"da3741f2-d96b-4897-9da4-77bef3136166"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   FractionBox["%", 
    RowBox[{
     RowBox[{"Exp", "[", "t", "]"}], "-", "1"}]], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "Infinity"}], "}"}], ",", 
   RowBox[{"Assumptions", "->", 
    RowBox[{"a", ">", "0"}]}]}], "]"}]], "ExerciseInput",
 CellChangeTimes->{{3.918034320834283*^9, 3.918034322808173*^9}},
 CellID->503109296,ExpressionUUID->"ae682a76-832a-4f7d-bf7c-4a2af53bf49d"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"-", "1"}], "+", 
   RowBox[{"a", " ", "\[Pi]", " ", 
    RowBox[{"Coth", "[", 
     RowBox[{"a", " ", "\[Pi]"}], "]"}]}]}], 
  RowBox[{"2", " ", 
   SuperscriptBox["a", "2"]}]]], "ExerciseOutput",
 CellChangeTimes->{3.898524202048126*^9, 3.918034325454797*^9, 
  3.924463983372423*^9},
 CellID->197182480,ExpressionUUID->"6bd79c35-9bb5-a546-b495-211669fa7d56"]
}, Open  ]],

Cell[TextData[{
 "Use ",
 ButtonBox["Sum",
  BaseStyle->"Link"],
 " to verify the answer:"
}], "SolutionAnswer",
 CellChangeTimes->{{3.9180343340309277`*^9, 3.9180343772456837`*^9}},
 CellID->1508277207,ExpressionUUID->"6b01c5b9-313e-473c-90fc-2336891eceaf"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Sum", "[", 
  RowBox[{
   FractionBox["1", 
    RowBox[{
     SuperscriptBox["a", "2"], "+", 
     SuperscriptBox["n", "2"]}]], ",", 
   RowBox[{"{", 
    RowBox[{"n", ",", "1", ",", "\[Infinity]"}], "}"}]}], 
  "]"}]], "ExerciseInput",
 CellChangeTimes->{{3.91803433694396*^9, 3.9180343524383307`*^9}},
 CellID->1536594334,ExpressionUUID->"ec2ba11e-0d1a-461a-9a61-2ab4dabcce25"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"-", "1"}], "+", 
   RowBox[{"a", " ", "\[Pi]", " ", 
    RowBox[{"Coth", "[", 
     RowBox[{"a", " ", "\[Pi]"}], "]"}]}]}], 
  RowBox[{"2", " ", 
   SuperscriptBox["a", "2"]}]]], "ExerciseOutput",
 CellChangeTimes->{3.918034353275733*^9, 3.924463983663759*^9},
 CellID->618646142,ExpressionUUID->"73ae8c5e-f581-6f41-8ff6-a52a5f65d09f"]
}, Open  ]]
}, Closed]],

Cell[TextData[{
 "Evaluate ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    UnderoverscriptBox["\[Sum]", 
     RowBox[{"\[VeryThinSpace]", 
      RowBox[{"n", "=", "1"}]}], 
     RowBox[{"\[VeryThinSpace]", "\[Infinity]"}]], 
    FractionBox["1", 
     RowBox[{"n", " ", 
      SuperscriptBox["2", "n"]}]]}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"462ee5d9-87a1-4825-a5f3-6268c87d2c23"],
 "."
}], "Exercise",
 CellID->185238418,ExpressionUUID->"4db4bba3-52e2-4d83-8a9f-ac556ba13107"],

Cell[CellGroupData[{

Cell["Solution", "ExerciseSolution",
 CellID->1539338,ExpressionUUID->"88be35be-c977-4b77-90b3-c20e86e04953"],

Cell[TextData[{
 "Notice that the Laplace transform of ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"f", "(", "t", ")"}], "\[LongEqual]", 
    TemplateBox[{
      RowBox[{
        RowBox[{"t", "-", 
          RowBox[{"log", "(", "2", ")"}]}]}]},
     "HeavisideThetaSeq"]}], TraditionalForm]], "InlineMath",ExpressionUUID->
  "307d4c04-ac8f-4041-9c8e-30050627f365"],
 " equals ",
 Cell[BoxData[
  FormBox[
   FractionBox["1", 
    RowBox[{"n", " ", 
     SuperscriptBox["2", "n"]}]], TraditionalForm]], "InlineMath",
  ExpressionUUID->"92664550-9989-44d5-b304-d5d163729820"],
 ". Indeed:"
}], "SolutionAnswer",
 CellID->36020548,ExpressionUUID->"5065379c-8781-429c-a0aa-b1157623ee61"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LaplaceTransform", "[", 
  RowBox[{
   RowBox[{"HeavisideTheta", "[", 
    RowBox[{"t", "-", 
     RowBox[{"Log", "[", "2", "]"}]}], "]"}], ",", "t", ",", "s"}], 
  "]"}]], "ExerciseInput",
 CellChangeTimes->{{3.918034418949582*^9, 3.9180344370987377`*^9}},
 CellID->1202871004,ExpressionUUID->"426c4108-82c9-4b9d-82d2-f90f615dd225"],

Cell[BoxData[
 FractionBox[
  SuperscriptBox["2", 
   RowBox[{"-", "s"}]], "s"]], "ExerciseOutput",
 CellChangeTimes->{3.918034437250688*^9, 3.918034502780949*^9, 
  3.924463983677803*^9},
 CellID->595661003,ExpressionUUID->"bf4c57fb-b596-e74d-a31b-cb64ed690385"]
}, Open  ]],

Cell[TextData[{
 "Use formula (",
 
 CounterBox["DisplayFormulaNumbered", "formula1",
  BaseStyle->"Hyperlink"],
 "):"
}], "SolutionAnswer",
 CellID->1196246931,ExpressionUUID->"2c788f39-7cef-45c3-8f72-417bae8c6b43"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Inactive", "[", "Integrate", "]"}], "[", 
  RowBox[{
   FractionBox[
    RowBox[{" ", 
     RowBox[{"HeavisideTheta", "[", 
      RowBox[{"t", "-", 
       RowBox[{"Log", "[", "2", "]"}]}], "]"}]}], 
    RowBox[{
     RowBox[{"Exp", "[", "t", "]"}], "-", "1"}]], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "Infinity"}], "}"}]}], "]"}]], "ExerciseInput",\

 CellChangeTimes->{{3.918034510299637*^9, 3.91803451161441*^9}},
 CellID->1552791054,ExpressionUUID->"eb0f61d1-f9a2-4ef9-8b84-ab2bf0d757a4"],

Cell[BoxData[
 TemplateBox[{
   FractionBox[
    RowBox[{"HeavisideTheta", "[", 
      RowBox[{"t", "-", 
        RowBox[{"Log", "[", "2", "]"}]}], "]"}], 
    RowBox[{
      RowBox[{"-", "1"}], "+", 
      SuperscriptBox["\[ExponentialE]", "t"]}]], "t", "0", "\[Infinity]"},
  "InactiveIntegrate",
  DisplayFunction->(RowBox[{
     SubsuperscriptBox[
      StyleBox["\[Integral]", "Inactive"], #3, #4], 
     RowBox[{#, 
       RowBox[{
         StyleBox["\[DifferentialD]", "Inactive"], #2}]}]}]& ),
  InterpretationFunction->(RowBox[{
     RowBox[{"Inactive", "[", "Integrate", "]"}], "[", 
     RowBox[{#, ",", 
       RowBox[{"{", 
         RowBox[{#2, ",", #3, ",", #4}], "}"}]}], "]"}]& )]], "ExerciseOutput",\

 CellChangeTimes->{3.898524608008422*^9, 3.9180345219454117`*^9, 
  3.924463983687523*^9},
 CellID->375685713,ExpressionUUID->"3cc8e1e4-c7c1-3840-92ff-f6704f74d428"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Activate", "[", "%", "]"}]], "ExerciseInput",
 CellID->2141996335,ExpressionUUID->"02b655e8-c7e4-421b-a475-d439a33b480f"],

Cell[BoxData[
 RowBox[{"Log", "[", "2", "]"}]], "ExerciseOutput",
 CellChangeTimes->{3.8985246156138077`*^9, 3.918034524060307*^9, 
  3.9244639840977173`*^9},
 CellID->152225614,ExpressionUUID->"44880775-30a9-ee4e-9cbd-8f25a3b96231"]
}, Open  ]],

Cell[TextData[{
 "The answer can be verified using ",
 ButtonBox["Sum",
  BaseStyle->"Link"],
 ":"
}], "SolutionAnswer",
 CellChangeTimes->{{3.898524627950345*^9, 3.89852464364921*^9}, {
  3.918034542322547*^9, 3.918034542324188*^9}},
 CellID->2029246107,ExpressionUUID->"3b7dd9de-0764-4210-933d-e5cbfd22a015"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Sum", "[", 
  RowBox[{
   FractionBox["1", 
    RowBox[{"n", "*", 
     SuperscriptBox["2", "n"]}]], ",", 
   RowBox[{"{", 
    RowBox[{"n", ",", "1", ",", "\[Infinity]"}], "}"}]}], 
  "]"}]], "ExerciseInput",
 CellChangeTimes->{{3.898524646073014*^9, 3.898524653757137*^9}},
 CellID->1397882949,ExpressionUUID->"5024dfaf-4ba2-4492-b3d2-4f3a982c0f46"],

Cell[BoxData[
 RowBox[{"Log", "[", "2", "]"}]], "ExerciseOutput",
 CellChangeTimes->{3.898524654015078*^9, 3.918034545381434*^9, 
  3.924463984111679*^9},
 CellID->441046824,ExpressionUUID->"d1d01c95-3cbc-394d-aaf8-d2d1a0eb14b5"]
}, Open  ]]
}, Closed]],

Cell["Represent the Riemann zeta function in the integral form.", "Exercise",
 CellChangeTimes->{
  3.918033747714887*^9, {3.919671709886717*^9, 3.9196717166378174`*^9}, {
   3.924273524894084*^9, 3.9242735611243715`*^9}, 3.9244639981941547`*^9, 
   3.9254883772920113`*^9, 3.9311587410149674`*^9, {3.94663732015827*^9, 
   3.9466373204454193`*^9}},
 CellID->984627967,ExpressionUUID->"2ca2f17d-d353-4300-9aac-63991e9557fd"],

Cell[CellGroupData[{

Cell["Solution", "ExerciseSolution",
 CellID->62958094,ExpressionUUID->"40f4a56b-7066-41a8-a678-e141e4bacd45"],

Cell["\<\
Recall that the Riemann zeta function is defined in terms of an infinite \
series:\
\>", "SolutionAnswer",
 CellChangeTimes->{{3.898525411404101*^9, 3.898525455129278*^9}, {
  3.918034553470721*^9, 3.9180345596233687`*^9}, {3.946637317790757*^9, 
  3.9466373181255417`*^9}},
 CellID->31963151,ExpressionUUID->"d27043c0-d21f-414b-93dd-6f8933c2daf8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Sum", "[", 
  RowBox[{
   FractionBox["1", 
    SuperscriptBox["n", "p"]], ",", 
   RowBox[{"{", 
    RowBox[{"n", ",", "1", ",", "Infinity"}], "}"}]}], "]"}]], "ExerciseInput",\

 CellChangeTimes->{3.898525458998638*^9},
 CellID->77104625,ExpressionUUID->"12322a49-9507-481a-8209-d869810a4a7f"],

Cell[BoxData[
 RowBox[{"Zeta", "[", "p", "]"}]], "ExerciseOutput",
 CellChangeTimes->{3.89852545948708*^9, 3.918034561931735*^9, 
  3.924463984141403*^9},
 CellID->85406962,ExpressionUUID->"ef678401-5934-49c3-851c-a3e8a133ea20"]
}, Open  ]],

Cell["The inverse Laplace transform of the summand is:", "SolutionAnswer",
 CellChangeTimes->{{3.898525481831014*^9, 3.89852551904739*^9}, {
  3.898525593883671*^9, 3.898525596229495*^9}, {3.9180346330317383`*^9, 
  3.918034648651042*^9}},
 CellID->10517187,ExpressionUUID->"61e9ca90-926d-49c6-9ec5-48a64c1db74c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"InverseLaplaceTransform", "[", 
  RowBox[{
   FractionBox["1", 
    SuperscriptBox["n", "p"]], ",", "n", ",", "t"}], "]"}]], "ExerciseInput",
 CellChangeTimes->{{3.898525520486693*^9, 3.898525526256422*^9}},
 CellID->208867105,ExpressionUUID->"1b09c786-e429-4ebc-a1ac-82d62e994531"],

Cell[BoxData[
 FractionBox[
  SuperscriptBox["t", 
   RowBox[{
    RowBox[{"-", "1"}], "+", "p"}]], 
  RowBox[{"Gamma", "[", "p", "]"}]]], "ExerciseOutput",
 CellChangeTimes->{3.898525526632947*^9, 3.918034672018921*^9, 
  3.9244639841565456`*^9},
 CellID->2155259,ExpressionUUID->"ee45dc0d-4327-4a22-9c9d-6397dfe0b8c6"]
}, Open  ]],

Cell[TextData[{
 "Therefore, using formula (",
 
 CounterBox["DisplayFormulaNumbered", "formula1",
  BaseStyle->"Hyperlink"],
 "), one can represent the zeta function as follows:"
}], "SolutionAnswer",
 CellID->295023003,ExpressionUUID->"7ccff351-7037-4937-af0b-03436fd010f6"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Inactive", "[", "Integrate", "]"}], "[", 
  RowBox[{
   RowBox[{
    FractionBox[
     SuperscriptBox["t", 
      RowBox[{"p", "-", "1"}]], 
     RowBox[{"Gamma", "[", "p", "]"}]], 
    FractionBox[
     RowBox[{" ", "1"}], 
     RowBox[{
      RowBox[{"Exp", "[", "t", "]"}], "-", "1"}]]}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "Infinity"}], "}"}]}], "]"}]], "ExerciseInput",\

 CellID->783813737,ExpressionUUID->"34296a7c-7d9a-4fdc-aec6-789750d711d7"],

Cell[BoxData[
 TemplateBox[{
   FractionBox[
    SuperscriptBox["t", 
     RowBox[{
       RowBox[{"-", "1"}], "+", "p"}]], 
    RowBox[{
      RowBox[{"(", 
        RowBox[{
          RowBox[{"-", "1"}], "+", 
          SuperscriptBox["\[ExponentialE]", "t"]}], ")"}], " ", 
      RowBox[{"Gamma", "[", "p", "]"}]}]], "t", "0", "\[Infinity]"},
  "InactiveIntegrate",
  DisplayFunction->(RowBox[{
     SubsuperscriptBox[
      StyleBox["\[Integral]", "Inactive"], #3, #4], 
     RowBox[{#, 
       RowBox[{
         StyleBox["\[DifferentialD]", "Inactive"], #2}]}]}]& ),
  InterpretationFunction->(RowBox[{
     RowBox[{"Inactive", "[", "Integrate", "]"}], "[", 
     RowBox[{#, ",", 
       RowBox[{"{", 
         RowBox[{#2, ",", #3, ",", #4}], "}"}]}], "]"}]& )]], "ExerciseOutput",\

 CellChangeTimes->{3.8985256284951057`*^9, 3.918034693581647*^9, 
  3.924463984173311*^9},
 CellID->37934769,ExpressionUUID->"c4db8223-d353-49e4-87fb-1476af51a521"]
}, Open  ]],

Cell[TextData[{
 "It is interesting to note that for ",
 Cell[BoxData[
  FormBox[
   RowBox[{"p", "\[LongEqual]", "4"}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"6da2b609-c29d-4c1b-b198-f7e9d8ada54e"],
 ", this integral form of the zeta function is encountered in the Debye \
theory for specific heat."
}], "SolutionAnswer",
 CellChangeTimes->{{3.898525643323318*^9, 3.898525676633258*^9}, {
   3.898525716709077*^9, 3.89852577661863*^9}, {3.918034723453092*^9, 
   3.9180347840790462`*^9}, 3.931158881111105*^9, {3.946637336453433*^9, 
   3.946637358053974*^9}},
 CellID->9707589,ExpressionUUID->"b0fee06f-00b9-417a-a771-cd28a6cdd807"]
}, Closed]]
}, Open  ]]
}, 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->"96a2ef95-b3cb-448a-8668-4b6987cedf05"]
},
Editable->True,
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowToolbars->{},
CellInsertionPointCell->None,
WindowSize->Automatic,
WindowMargins->Automatic,
WindowFrame->"Normal",
WindowPersistentStyles->{
 WindowFrame, WindowMargins, WindowSize, Magnification},
WindowTitle->"24. Evaluation of Integrals and Sums | 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-23_Fractional-Differential-Equations.nb", ""}, 
             FrontEnd`HistoryData :> {
               EvaluationNotebook[]}]]}, "BannerButtonTemplate"], 
         "23. Fractional Differential Equations"}, "PrettyTooltipTemplate"], 
      "next" -> TemplateBox[{
         TemplateBox[{
           TemplateBox[{}, "BannerRightArrowTemplate"], 
           Function[{}, 
            
            NotebookLocate[{"LaplaceTransform-25_Control-Systems.nb", ""}, 
             FrontEnd`HistoryData :> {
               EvaluationNotebook[]}]]}, "BannerButtonTemplate"], 
         "25. Control Systems"}, "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->"6679354a-b942-418c-b279-8b032d4e4c2d"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "integral1"->{
  Cell[10719, 298, 467, 13, 45, "DisplayFormulaNumbered",ExpressionUUID->"24398470-14c3-4fc4-a4e7-2b6a8fe6e63b",
   CellTags->"integral1",
   CellID->626028343]},
 "integral-limit"->{
  Cell[18891, 544, 631, 18, 48, "DisplayFormulaNumbered",ExpressionUUID->"99682218-49fd-4404-a07f-30d84df1adc4",
   CellTags->"integral-limit",
   CellID->1693371531]},
 "series"->{
  Cell[28438, 822, 507, 11, 56, "DisplayFormulaNumbered",ExpressionUUID->"98f9ddde-e2f8-47f2-be2c-940d0abaa371",
   CellTags->"series",
   CellID->1573845016]},
 "formula1"->{
  Cell[33741, 978, 453, 13, 51, "DisplayFormulaNumbered",ExpressionUUID->"440d5207-a755-42af-8942-1f03865835f3",
   CellTags->"formula1",
   CellID->1680306000]},
 "formula0"->{
  Cell[34920, 1014, 509, 15, 51, "DisplayFormulaNumbered",ExpressionUUID->"4c197db9-98cc-4128-9ca3-98f389ef97cd",
   CellTags->"formula0",
   CellID->1440052105]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"integral1", 268816, 6497},
 {"integral-limit", 269000, 6501},
 {"series", 269182, 6505},
 {"formula1", 269358, 6509},
 {"formula0", 269536, 6513}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[672, 24, 402, 10, 108, "Section",ExpressionUUID->"05c7a800-5550-4f99-a5da-3f4324f2b5b7",
 CounterAssignments->{{"Section", 23}},
 CellID->850251078],
Cell[1077, 36, 2008, 59, 83, "Text",ExpressionUUID->"cbcd4117-5a11-4b81-9cc1-f7d5c5d9cb23",
 CellID->1833128216],
Cell[CellGroupData[{
Cell[3110, 99, 173, 2, 56, "Subsection",ExpressionUUID->"779ddccc-6b7d-4abb-9a5e-e8dd8e942aa6",
 CellID->2114387840],
Cell[3286, 103, 679, 13, 60, "Text",ExpressionUUID->"11106aec-1f2d-4a99-b64b-e02029c5825f",
 CellID->501713442],
Cell[3968, 118, 421, 12, 45, "DisplayFormula",ExpressionUUID->"d9404063-7c71-4848-8aef-21bf2d2234a7",
 CellID->302091432],
Cell[4392, 132, 529, 11, 83, "Text",ExpressionUUID->"0e40f686-3111-4ef2-8002-61880c86730f",
 CellID->865836232],
Cell[4924, 145, 381, 5, 36, "Text",ExpressionUUID->"a57a63ea-492d-438f-95bf-225e488a81e4",
 CellID->531479216],
Cell[5308, 152, 433, 12, 45, "DisplayFormula",ExpressionUUID->"af119a8b-1f27-4d8c-acd8-b1a80079bc9d",
 CellID->122427896],
Cell[5744, 166, 704, 17, 36, "Text",ExpressionUUID->"953c219f-ef22-4ba3-be38-ba0c78418bda",
 CellID->2035518051],
Cell[6451, 185, 523, 11, 32, "DisplayFormula",ExpressionUUID->"15a98dc8-4f11-47ec-b9fd-30902448fd02",
 CellID->1590956800],
Cell[6977, 198, 431, 7, 60, "Text",ExpressionUUID->"8815a2cd-bdb8-492b-9fae-7b7d5a60c938",
 CellID->436194546],
Cell[CellGroupData[{
Cell[7433, 209, 371, 7, 25, "Input",ExpressionUUID->"e6a899c5-732c-481b-b521-1afd16fb6a72",
 CellID->1262683182],
Cell[7807, 218, 478, 13, 63, "Output",ExpressionUUID->"8c9d125b-bede-4d46-8775-8020b6691899",
 CellID->853739471]
}, Open  ]],
Cell[8300, 234, 459, 10, 36, "Text",ExpressionUUID->"91217ae8-6e65-4386-afc5-9a3781c9d827",
 CellID->1532926351],
Cell[CellGroupData[{
Cell[8784, 248, 220, 4, 25, "Input",ExpressionUUID->"bc7660db-4499-4e6d-ac11-22bcd0421c1d",
 CellID->2046276691],
Cell[9007, 254, 212, 4, 54, "Output",ExpressionUUID->"1ab97541-367c-3c4f-9f8e-06d8c81f50bc",
 CellID->68288558]
}, Open  ]],
Cell[9234, 261, 452, 7, 60, "Text",ExpressionUUID->"4c3b7abb-5c28-4342-97b9-3dbef6427aa5",
 CellID->1125151573],
Cell[CellGroupData[{
Cell[9711, 272, 431, 11, 25, "Input",ExpressionUUID->"0e6ceecf-3c69-4e1e-b3cf-cc1af901851a",
 CellID->948433699],
Cell[10145, 285, 214, 4, 54, "Output",ExpressionUUID->"8e070406-b83f-0e40-9aa6-061f6de3f3ba",
 CellID->78486678]
}, Open  ]],
Cell[10374, 292, 342, 4, 36, "Text",ExpressionUUID->"520d211b-c705-4c7b-9a4a-1fb61289184c",
 CellID->411980933],
Cell[10719, 298, 467, 13, 45, "DisplayFormulaNumbered",ExpressionUUID->"24398470-14c3-4fc4-a4e7-2b6a8fe6e63b",
 CellTags->"integral1",
 CellID->626028343],
Cell[11189, 313, 837, 20, 87, "Text",ExpressionUUID->"beb21760-0c3e-49c5-8896-a17560454ee6",
 CellID->394921329],
Cell[12029, 335, 465, 14, 45, "DisplayFormula",ExpressionUUID->"600b3e02-6ba8-4089-b076-b09e67cdc2ba",
 CellID->715744122],
Cell[12497, 351, 683, 18, 37, "Text",ExpressionUUID->"f0973de4-f5ba-4914-ae8c-2dc89166701f",
 CellID->811872758],
Cell[13183, 371, 506, 13, 34, "DisplayFormula",ExpressionUUID->"8c67b604-2b93-4097-9a8a-3f34da081eb5",
 CellID->17126503],
Cell[13692, 386, 304, 4, 36, "Text",ExpressionUUID->"5a99dd33-93f4-4007-aad6-9fecfa33393e",
 CellID->1396980326],
Cell[CellGroupData[{
Cell[14021, 394, 329, 7, 25, "Input",ExpressionUUID->"e4a47919-8457-4d56-a7b9-bfbfb8187a60",
 CellID->2039769272],
Cell[14353, 403, 323, 8, 68, "Output",ExpressionUUID->"243cc51c-5cd4-c746-870e-60882d3d0500",
 CellID->385249072]
}, Open  ]],
Cell[14691, 414, 583, 15, 36, "Text",ExpressionUUID->"25334a6d-6b82-419e-b9ad-1023e059db4e",
 CellID->348326152],
Cell[CellGroupData[{
Cell[15299, 433, 223, 4, 25, "Input",ExpressionUUID->"52fea7f5-0767-454b-94cd-f14fb21c142d",
 CellID->1773458826],
Cell[15525, 439, 247, 6, 61, "Output",ExpressionUUID->"6e9746f2-8fdd-4945-8425-fe35fca209ae",
 CellID->43874566]
}, Open  ]],
Cell[15787, 448, 298, 8, 36, "Text",ExpressionUUID->"e8ffcf9d-00ac-438a-bb5a-949c321a5d64",
 CellID->1097977216],
Cell[CellGroupData[{
Cell[16110, 460, 443, 11, 27, "Input",ExpressionUUID->"dd2ef872-a694-487e-9fe0-c533561033ca",
 CellID->1099598344],
Cell[16556, 473, 223, 5, 61, "Output",ExpressionUUID->"b3f6f544-92ea-dd44-9046-57a80618344c",
 CellID->272300122]
}, Open  ]],
Cell[16794, 481, 656, 17, 60, "Text",ExpressionUUID->"3cdcaa44-cd98-4ab5-b0b6-3bae9b9d644f",
 CellID->96057773],
Cell[17453, 500, 544, 16, 48, "DisplayFormula",ExpressionUUID->"7b51c393-3cc5-4548-9032-47b1eee52685",
 CellID->1083511435],
Cell[18000, 518, 888, 24, 60, "Text",ExpressionUUID->"6a4a276f-e0c3-4ab5-a13e-4e2c87c0ebae",
 CellID->810904586],
Cell[18891, 544, 631, 18, 48, "DisplayFormulaNumbered",ExpressionUUID->"99682218-49fd-4404-a07f-30d84df1adc4",
 CellTags->"integral-limit",
 CellID->1693371531],
Cell[19525, 564, 842, 18, 60, "Text",ExpressionUUID->"6608adaa-1669-43ca-be4b-3f6ab9d62671",
 CellID->1716416184],
Cell[20370, 584, 349, 4, 36, "Text",ExpressionUUID->"39968bb9-f54c-41d2-afd3-247963f33f38",
 CellID->1344621807],
Cell[20722, 590, 356, 10, 48, "DisplayFormula",ExpressionUUID->"8ecace6a-b1c3-49e8-8136-9800af048f3d",
 CellID->63839890],
Cell[21081, 602, 921, 23, 40, "Text",ExpressionUUID->"2efb65e3-913d-4648-8e5c-30160ca68ac3",
 CellID->1469999820],
Cell[CellGroupData[{
Cell[22027, 629, 365, 9, 48, "Input",ExpressionUUID->"79e8bd03-1214-4ac2-8472-74afb6308741",
 CellID->447401471],
Cell[22395, 640, 241, 4, 51, "Output",ExpressionUUID->"df3618c2-bedb-f947-a6ab-91a7fb49a3b1",
 CellID->71424893]
}, Open  ]],
Cell[22651, 647, 543, 17, 39, "Text",ExpressionUUID->"4af6518b-3940-4978-87b4-4889f5879c8c",
 CellID->774814759],
Cell[CellGroupData[{
Cell[23219, 668, 350, 8, 48, "Input",ExpressionUUID->"c27df281-d3b9-433f-90fc-f0be0aa020ff",
 CellID->1555444331],
Cell[23572, 678, 191, 3, 51, "Output",ExpressionUUID->"3db1df6e-51a3-9a49-a8c2-babdc7e9b813",
 CellID->446834947]
}, Open  ]],
Cell[23778, 684, 332, 4, 36, "Text",ExpressionUUID->"1b211258-f52d-4fd0-9d3a-331fcbfebf0a",
 CellID->498811120],
Cell[24113, 690, 523, 16, 48, "DisplayFormula",ExpressionUUID->"ca806980-7978-473c-b57e-a8fd28930a71",
 CellID->973150829],
Cell[24639, 708, 206, 2, 36, "Text",ExpressionUUID->"a4113d72-1002-44ae-8944-97647940e895",
 CellID->1051528454],
Cell[CellGroupData[{
Cell[24870, 714, 432, 12, 25, "Input",ExpressionUUID->"3f47d4b5-cb61-4dbe-8645-a008994382c0",
 CellID->2023074578],
Cell[25305, 728, 305, 8, 54, "Output",ExpressionUUID->"cc01be7e-0360-074f-8a28-0103fafc387c",
 CellID->802413996]
}, Open  ]],
Cell[25625, 739, 304, 7, 36, "Text",ExpressionUUID->"85ca30f0-9062-4f81-9c1f-86d00d35ec5c",
 CellID->848671237],
Cell[CellGroupData[{
Cell[25954, 750, 415, 11, 47, "Input",ExpressionUUID->"4454df4a-a958-497c-9831-304f8d43eae8",
 CellID->627378759],
Cell[26372, 763, 222, 4, 36, "Output",ExpressionUUID->"0825c18c-2c16-714f-8c89-69c082575de3",
 CellID->42527209]
}, Open  ]],
Cell[26609, 770, 342, 8, 36, "Text",ExpressionUUID->"3c2ff97f-0489-4551-aaea-0361efa38432",
 CellID->1249872611],
Cell[CellGroupData[{
Cell[26976, 782, 499, 14, 47, "Input",ExpressionUUID->"8cc7be1a-837a-48b0-ba4b-540626e00484",
 CellID->154407466],
Cell[27478, 798, 242, 4, 36, "Output",ExpressionUUID->"fa951107-7ec6-c84d-8bef-62cf00b7ac70",
 CellID->302721005]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[27769, 808, 167, 2, 56, "Subsection",ExpressionUUID->"f5b6e4be-1772-43fb-b9e5-e91f5746c439",
 CellID->1844367423],
Cell[27939, 812, 496, 8, 36, "Text",ExpressionUUID->"d6e21c95-f11a-4da8-8a75-63ab254663c7",
 CellID->1681031738],
Cell[28438, 822, 507, 11, 56, "DisplayFormulaNumbered",ExpressionUUID->"98f9ddde-e2f8-47f2-be2c-940d0abaa371",
 CellTags->"series",
 CellID->1573845016],
Cell[28948, 835, 709, 16, 36, "Text",ExpressionUUID->"c07fedf6-78a0-400c-a5e2-fdd48fb654ff",
 CellID->124908793],
Cell[CellGroupData[{
Cell[29682, 855, 484, 13, 25, "Input",ExpressionUUID->"5bb3e6cb-d1d7-49f9-bc45-14bc34c7c69c",
 CellID->1552655850],
Cell[30169, 870, 482, 12, 53, "Output",ExpressionUUID->"e27ba162-e03d-714f-8fea-9f7a46b5d4d0",
 CellID->93601424]
}, Open  ]],
Cell[30666, 885, 160, 2, 36, "Text",ExpressionUUID->"77362c7c-3117-484c-a0ea-e2c48c71889e",
 CellID->932470230],
Cell[CellGroupData[{
Cell[30851, 891, 316, 7, 25, "Input",ExpressionUUID->"8914f944-efc5-4fe1-bbfa-0505af5e4420",
 CellID->1411561617],
Cell[31170, 900, 576, 15, 61, "Output",ExpressionUUID->"2bec931f-d8e6-4d45-bce5-b36f94af2cfc",
 CellID->155176710]
}, Open  ]],
Cell[31761, 918, 418, 11, 60, "Text",ExpressionUUID->"e1a8324e-f369-498f-b99c-9baa677a8be8",
 CellID->23437355],
Cell[CellGroupData[{
Cell[32204, 933, 611, 16, 25, "Input",ExpressionUUID->"ac7abe17-59e9-456e-82ed-a058da8d6b26",
 CellID->410458688],
Cell[32818, 951, 478, 12, 56, "Output",ExpressionUUID->"1d271f52-bc01-4e47-8af1-d32126a669f1",
 CellID->268314124]
}, Open  ]],
Cell[33311, 966, 427, 10, 36, "Text",ExpressionUUID->"f9370952-e3b1-4264-bde0-30fc1230d406",
 CellID->1445474191],
Cell[33741, 978, 453, 13, 51, "DisplayFormulaNumbered",ExpressionUUID->"440d5207-a755-42af-8942-1f03865835f3",
 CellTags->"formula1",
 CellID->1680306000],
Cell[34197, 993, 720, 19, 36, "Text",ExpressionUUID->"52eba7a2-0da7-45da-bacf-7ea1dc84989b",
 CellID->1551956893],
Cell[34920, 1014, 509, 15, 51, "DisplayFormulaNumbered",ExpressionUUID->"4c197db9-98cc-4128-9ca3-98f389ef97cd",
 CellTags->"formula0",
 CellID->1440052105],
Cell[35432, 1031, 311, 4, 36, "Text",ExpressionUUID->"2231b79b-39f4-4000-bbd8-5811c7a522f1",
 CellID->1842916883],
Cell[35746, 1037, 602, 16, 50, "DisplayFormula",ExpressionUUID->"b1f06136-a203-4e28-aac8-6efbb27e89db",
 CellID->38860744],
Cell[36351, 1055, 435, 10, 36, "Text",ExpressionUUID->"6c49bd36-a086-4660-a734-4c27bec6616b",
 CellID->1480695889],
Cell[36789, 1067, 279, 7, 48, "Input",ExpressionUUID->"23bfc829-83da-497e-ac2b-899fcb72196f",
 CellID->809822016],
Cell[37071, 1076, 501, 11, 36, "Text",ExpressionUUID->"40d7550c-dc3f-48ff-8252-28af4017fbae",
 CellID->151212169],
Cell[CellGroupData[{
Cell[37597, 1091, 250, 4, 25, "Input",ExpressionUUID->"c16276a1-54fd-4dbe-9cd4-bb03f3360b81",
 CellID->1732340895],
Cell[37850, 1097, 463, 13, 54, "Output",ExpressionUUID->"497dd003-f64a-8548-ad3a-f447367dbca0",
 CellID->87786696]
}, Open  ]],
Cell[38328, 1113, 384, 10, 36, "Text",ExpressionUUID->"4ed4b62a-09f5-4854-a691-a67b151fec06",
 CellID->933104828],
Cell[CellGroupData[{
Cell[38737, 1127, 378, 10, 50, "Input",ExpressionUUID->"068dec94-b0e7-4f0a-b853-d01dcb4301e9",
 CellID->2131900396],
Cell[39118, 1139, 214, 4, 54, "Output",ExpressionUUID->"9e6d1874-9747-1043-8bb6-10d9d77099a3",
 CellID->464110999]
}, Open  ]],
Cell[39347, 1146, 388, 9, 36, "Text",ExpressionUUID->"6c22af57-f016-4260-b919-82269047ce9c",
 CellID->498274082],
Cell[CellGroupData[{
Cell[39760, 1159, 316, 9, 48, "Input",ExpressionUUID->"445be1e5-8a78-404b-acbb-9dbeabdf7b2a",
 CellID->345089809],
Cell[40079, 1170, 213, 4, 54, "Output",ExpressionUUID->"d51c8949-146b-d24c-879f-d833281d15a9",
 CellID->90086010]
}, Open  ]],
Cell[40307, 1177, 304, 4, 36, "Text",ExpressionUUID->"e0189057-3fee-4653-9e52-0fd03e3f230d",
 CellID->1121840146],
Cell[40614, 1183, 523, 13, 56, "DisplayFormula",ExpressionUUID->"e0dba54d-363c-46f4-a512-4352708b7833",
 CellID->1018069972],
Cell[41140, 1198, 333, 6, 36, "Text",ExpressionUUID->"f17e09a7-b19f-41d1-9c16-1a868aa66713",
 CellID->1339419584],
Cell[41476, 1206, 988, 30, 49, "DisplayFormula",ExpressionUUID->"97115749-5b21-4162-a9ab-c5581533be76",
 CellID->959852542],
Cell[42467, 1238, 331, 6, 36, "Text",ExpressionUUID->"e9379c79-adff-47ef-840f-b4566bbaeb6a",
 CellID->32981371],
Cell[CellGroupData[{
Cell[42823, 1248, 448, 13, 50, "Input",ExpressionUUID->"e543f641-cb72-4814-8c76-852e49d6d9e8",
 CellID->1293564370],
Cell[43274, 1263, 459, 12, 54, "Output",ExpressionUUID->"fc31783d-988f-5443-8d46-51a1daa85542",
 CellID->390394590]
}, Open  ]],
Cell[43748, 1278, 573, 14, 36, "Text",ExpressionUUID->"287906a6-e473-4809-81e2-834ac357ac6b",
 CellID->1760320495],
Cell[CellGroupData[{
Cell[44346, 1296, 483, 14, 50, "Input",ExpressionUUID->"cccf3caa-c1cd-48ab-b83c-a12daaacb9ab",
 CellID->317318152],
Cell[44832, 1312, 805, 21, 55, "Output",ExpressionUUID->"1ee518a6-a491-f54e-a135-21a1faf25b75",
 CellID->480114200]
}, Open  ]],
Cell[CellGroupData[{
Cell[45674, 1338, 137, 2, 25, "Input",ExpressionUUID->"17d26fca-eddc-47f0-ba54-104be8949f06",
 CellID->1457561518],
Cell[45814, 1342, 223, 4, 36, "Output",ExpressionUUID->"ebac0217-e58c-614e-b914-4bc9103b4233",
 CellID->847976695]
}, Open  ]],
Cell[46052, 1349, 442, 11, 63, "Text",ExpressionUUID->"451edf53-c6d6-4e43-99e3-d01fa6be93ec",
 CellID->1384155085],
Cell[46497, 1362, 440, 11, 63, "Text",ExpressionUUID->"8d752cbc-c1e3-4455-9f0b-826de9c28e7b",
 CellID->1230662344],
Cell[CellGroupData[{
Cell[46962, 1377, 299, 6, 47, "Input",ExpressionUUID->"39f9405c-28e2-4aff-8ddf-6d69f631c58f",
 CellID->497877582],
Cell[47264, 1385, 250, 5, 37, "Output",ExpressionUUID->"04ff1a38-6389-334a-ac47-fd25530caf38",
 CellID->83711075]
}, Open  ]],
Cell[47529, 1393, 216, 3, 36, "Text",ExpressionUUID->"faf27de1-7493-40f1-a40c-c459883be583",
 CellID->2130237171],
Cell[47748, 1398, 537, 16, 48, "DisplayFormula",ExpressionUUID->"26771bb3-1155-4eb6-a9c7-a11235a4c7b6",
 CellID->1267967518],
Cell[48288, 1416, 563, 16, 39, "Text",ExpressionUUID->"1cabbc45-e0d1-474b-b213-7522b0ac9c87",
 CellID->1181823430],
Cell[CellGroupData[{
Cell[48876, 1436, 795, 22, 25, "Input",ExpressionUUID->"b71248a4-517a-40ca-a429-39739cd023bd",
 CellID->1358262118],
Cell[49674, 1460, 318, 6, 36, "Output",ExpressionUUID->"88709d19-1fb0-9a41-bf2a-3de1bf69e422",
 CellID->117110715]
}, Open  ]],
Cell[CellGroupData[{
Cell[50029, 1471, 174, 2, 69, "SummarySection",ExpressionUUID->"c2e8a4b9-89ed-47f2-b26b-a4d4bb43b040",
 CellID->139280579],
Cell[50206, 1475, 1018, 15, 52, "SummaryList",ExpressionUUID->"7fcc8c71-b995-4149-91a7-762a57cec9df",
 CellID->8494022],
Cell[51227, 1492, 1159, 19, 29, "SummaryList",ExpressionUUID->"658df78c-8c48-4406-87da-cc76fa14c48e",
 CellID->1578068080],
Cell[52389, 1513, 1909, 41, 58, "SummaryList",ExpressionUUID->"b5470f99-a509-48a9-83a1-98759fa07bd7",
 CellID->1371710812]
}, Open  ]],
Cell[CellGroupData[{
Cell[54335, 1559, 160, 3, 65, "ExerciseSection",ExpressionUUID->"34b08694-8f3c-4528-8213-075053df9fd9",
 CellID->167902031],
Cell[54498, 1564, 573, 17, 31, "Exercise",ExpressionUUID->"ac0fd1b6-ca8a-4840-8f43-edb085fc3408",
 CellID->565384722],
Cell[CellGroupData[{
Cell[55096, 1585, 110, 1, 25, "ExerciseSolution",ExpressionUUID->"b8c4207f-fab2-4190-8274-44b3d8d84fdc",
 CellID->31905076],
Cell[CellGroupData[{
Cell[55231, 1590, 903, 20, 43, "SolutionAnswer",ExpressionUUID->"b7153db0-49f7-4779-a23a-163d5ece3c6d",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellID->1601582163],
Cell[56137, 1612, 413, 10, 28, "ExerciseInput",ExpressionUUID->"58d5e6aa-f0d0-4c6a-80a1-69fc5678f0f1",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellID->1231382043],
Cell[56553, 1624, 612, 16, 54, "ExerciseOutput",ExpressionUUID->"cae52480-e283-1544-908f-05ffbb89e0dc",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellID->116246343],
Cell[57168, 1642, 309, 6, 28, "ExerciseInput",ExpressionUUID->"0215c966-ce67-4e50-93fb-ae4bcf964386",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellID->634438017],
Cell[57480, 1650, 323, 5, 31, "ExerciseOutput",ExpressionUUID->"682c9453-7d17-f94d-b6da-be2272106b69",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellID->61277887]
}, Open  ]],
Cell[57818, 1658, 312, 8, 22, "SolutionAnswer",ExpressionUUID->"7846a4ba-5f6c-47fd-87c2-2f7ad4239188",
 CellID->1322841304],
Cell[CellGroupData[{
Cell[58155, 1670, 443, 12, 28, "ExerciseInput",ExpressionUUID->"61340d76-cb21-4265-8a27-0f925a5dfe8d",
 CellID->1849121941],
Cell[58601, 1684, 192, 3, 31, "ExerciseOutput",ExpressionUUID->"48d8fb0e-4929-f24e-95f7-4b8ac62656e6",
 CellID->153043847]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[58842, 1693, 534, 15, 27, "Exercise",ExpressionUUID->"8fc7b655-11c1-41f6-8bc1-4effa4d3fda5",
 CellID->1009567502],
Cell[CellGroupData[{
Cell[59401, 1712, 167, 2, 29, "ExerciseSolution",ExpressionUUID->"eac3a4f1-97a2-418c-bbeb-906237aa419f",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellID->2016285494],
Cell[59571, 1716, 592, 14, 43, "SolutionAnswer",ExpressionUUID->"67ea455e-c025-436f-a0ae-8a78b8833c86",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellID->532711167],
Cell[60166, 1732, 744, 13, 28, "ExerciseInput",ExpressionUUID->"f132619a-6164-4741-ac5a-76a14fa0978f",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellID->417259426],
Cell[60913, 1747, 888, 20, 63, "ExerciseOutput",ExpressionUUID->"782c99c8-0a60-404e-93ce-b81514542b8c",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellID->80572824],
Cell[61804, 1769, 585, 13, 22, "SolutionAnswer",ExpressionUUID->"e74f332b-7216-4d79-a466-5dfa506580a5",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellID->2100082567],
Cell[62392, 1784, 344, 7, 28, "ExerciseInput",ExpressionUUID->"f20facf6-39c3-43b2-9938-5d27659c2035",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellID->46481477],
Cell[62739, 1793, 402, 6, 31, "ExerciseOutput",ExpressionUUID->"c845cf08-ba82-e04e-8db4-86c213800b51",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellID->180050554]
}, Closed]]
}, Open  ]],
Cell[63168, 1803, 741, 20, 31, "Exercise",ExpressionUUID->"157faf57-b33f-49ed-bbd7-151c51718f9d",
 CellID->1447849483],
Cell[CellGroupData[{
Cell[63934, 1827, 112, 1, 25, "ExerciseSolution",ExpressionUUID->"c718b877-4f2a-4ed9-8b56-7165e19ea1bf",
 CellID->2013569560],
Cell[64049, 1830, 716, 15, 49, "SolutionAnswer",ExpressionUUID->"b706abda-3c04-441c-9502-fb3b3a39c32e",
 CellID->869056624],
Cell[64768, 1847, 504, 16, 34, "SolutionAnswer",ExpressionUUID->"b12f5806-68d2-4914-9c57-bd21b19c485d",
 CellID->1198396321],
Cell[65275, 1865, 553, 17, 23, "SolutionAnswer",ExpressionUUID->"2bd48409-8ac3-486a-aa0e-d1998b407e07",
 CellID->197841834],
Cell[65831, 1884, 810, 20, 27, "SolutionAnswer",ExpressionUUID->"52e99fce-9791-3547-a38b-51dea74c9c28",
 CellID->279429049],
Cell[66644, 1906, 148, 1, 22, "SolutionAnswer",ExpressionUUID->"289929dc-5cfe-4b04-a665-3e47e14db544",
 CellID->529456647],
Cell[CellGroupData[{
Cell[66817, 1911, 333, 9, 28, "ExerciseInput",ExpressionUUID->"27fc34db-e330-4f07-b496-9ba74e4fa7b6",
 CellID->1553116608],
Cell[67153, 1922, 264, 7, 58, "ExerciseOutput",ExpressionUUID->"d3a8771b-fd8c-894d-8dd4-857c8215b2d4",
 CellID->164908660]
}, Open  ]],
Cell[CellGroupData[{
Cell[67454, 1934, 162, 3, 28, "ExerciseInput",ExpressionUUID->"a34cf210-afa3-43c3-a2f7-87e5f55057c4",
 CellID->740317011],
Cell[67619, 1939, 261, 7, 47, "ExerciseOutput",ExpressionUUID->"d0a91f81-4784-cf46-a368-287e19e09f66",
 CellID->400161707]
}, Open  ]],
Cell[67895, 1949, 347, 8, 22, "SolutionAnswer",ExpressionUUID->"e04fb704-d2c6-40e1-877f-1cfeadf0358f",
 CellID->843745070],
Cell[CellGroupData[{
Cell[68267, 1961, 492, 13, 28, "ExerciseInput",ExpressionUUID->"1fe5474c-e521-4c37-9616-d8b079cf66f8",
 CellID->776785162],
Cell[68762, 1976, 261, 7, 47, "ExerciseOutput",ExpressionUUID->"7dffcc71-8803-8044-a37b-a01fe80cd711",
 CellID->490197938]
}, Open  ]]
}, Closed]],
Cell[69050, 1987, 713, 20, 29, "Exercise",ExpressionUUID->"1d566aca-29d2-4d09-8b19-4964ae9b7542",
 CellID->545213210],
Cell[CellGroupData[{
Cell[69788, 2011, 111, 1, 25, "ExerciseSolution",ExpressionUUID->"0bcdf4f5-7c81-45ff-9dea-23a3d7f111aa",
 CellID->223606681],
Cell[69902, 2014, 327, 5, 22, "SolutionAnswer",ExpressionUUID->"c17692c2-7e8f-4b66-808b-ad2c6ce4267e",
 CellID->569292635],
Cell[CellGroupData[{
Cell[70254, 2023, 428, 12, 28, "ExerciseInput",ExpressionUUID->"c5fe5c0b-1195-4eb6-8355-7536f1cc8284",
 CellID->1076284101],
Cell[70685, 2037, 372, 9, 48, "ExerciseOutput",ExpressionUUID->"3ba901f4-c1d1-8e4c-a353-9322d7ca954b",
 CellID->423249265]
}, Open  ]],
Cell[71072, 2049, 407, 11, 22, "SolutionAnswer",ExpressionUUID->"17bbd746-4010-4d52-b2d3-68e7e4d7d271",
 CellID->853259978],
Cell[CellGroupData[{
Cell[71504, 2064, 431, 12, 49, "ExerciseInput",ExpressionUUID->"40ffe69c-ab91-4e6e-83e2-9a8f27f879f5",
 CellID->1256680906],
Cell[71938, 2078, 249, 4, 42, "ExerciseOutput",ExpressionUUID->"a0a371b9-2438-3344-9c25-359751ec00e9",
 CellID->120041283]
}, Open  ]],
Cell[72202, 2085, 312, 8, 22, "SolutionAnswer",ExpressionUUID->"d5e6f99e-931b-4f1d-b668-f79e4d80d2e8",
 CellID->1385393622],
Cell[CellGroupData[{
Cell[72539, 2097, 532, 15, 47, "ExerciseInput",ExpressionUUID->"cbd86b8c-a287-4864-a10c-83f6f1788c22",
 CellID->1292904180],
Cell[73074, 2114, 224, 4, 42, "ExerciseOutput",ExpressionUUID->"3c8ad6aa-0601-f740-ae9a-eaff2451900b",
 CellID->382046658]
}, Open  ]]
}, Closed]],
Cell[73325, 2122, 666, 18, 29, "Exercise",ExpressionUUID->"fed0243d-339d-496c-95fb-e64aa946cdac",
 CellID->342616225],
Cell[CellGroupData[{
Cell[74016, 2144, 111, 1, 25, "ExerciseSolution",ExpressionUUID->"858d0412-01d2-4ee4-ac26-adea2cf1e9ac",
 CellID->650147391],
Cell[74130, 2147, 310, 6, 22, "SolutionAnswer",ExpressionUUID->"796488fe-dc41-4282-8604-54f6ed0e2174",
 CellID->947235968],
Cell[CellGroupData[{
Cell[74465, 2157, 390, 10, 28, "ExerciseInput",ExpressionUUID->"de1f5f73-3453-4f41-9a13-28dd293f3c0b",
 CellID->1930986284],
Cell[74858, 2169, 431, 11, 46, "ExerciseOutput",ExpressionUUID->"f46bca25-1ee5-6c47-b61e-3e444c49e0c3",
 CellID->593879520]
}, Open  ]],
Cell[75304, 2183, 386, 9, 22, "SolutionAnswer",ExpressionUUID->"66f81854-3769-4654-aedb-e8d85dc1db7a",
 CellID->1581412632],
Cell[CellGroupData[{
Cell[75715, 2196, 305, 7, 28, "ExerciseInput",ExpressionUUID->"6b5dfc19-e2f5-4ec0-9515-fce777770586",
 CellID->1236690189],
Cell[76023, 2205, 271, 5, 31, "ExerciseOutput",ExpressionUUID->"4fc62c9c-0d30-8449-8539-1a41527af6f4",
 CellID->655323497]
}, Open  ]],
Cell[76309, 2213, 312, 8, 22, "SolutionAnswer",ExpressionUUID->"b3bcae8c-9a9f-4203-8de0-f9e7e4fce765",
 CellID->1346801492],
Cell[CellGroupData[{
Cell[76646, 2225, 515, 13, 46, "ExerciseInput",ExpressionUUID->"95947e49-0c04-4394-b0ac-643243c9f03b",
 CellID->1215036664],
Cell[77164, 2240, 271, 5, 31, "ExerciseOutput",ExpressionUUID->"a5a3a320-d9b1-8b49-adf2-9f47a42089aa",
 CellID->407587437]
}, Open  ]]
}, Closed]],
Cell[77462, 2249, 813, 23, 29, "Exercise",ExpressionUUID->"04afeeee-810d-45a5-a21a-b531026f1ece",
 CellID->1838713037],
Cell[CellGroupData[{
Cell[78300, 2276, 111, 1, 25, "ExerciseSolution",ExpressionUUID->"89a29707-847e-49dd-9a40-af3dc7b51f3a",
 CellID->584780654],
Cell[78414, 2279, 692, 16, 26, "SolutionAnswer",ExpressionUUID->"6599440f-3ea3-4477-ac04-90ab3bb23cff",
 CellID->960332529],
Cell[CellGroupData[{
Cell[79131, 2299, 425, 10, 28, "ExerciseInput",ExpressionUUID->"42d2a392-d403-4a53-9cab-0c5c79e7847a",
 CellID->681309017],
Cell[79559, 2311, 460, 11, 53, "ExerciseOutput",ExpressionUUID->"f7c9f547-b1a5-104d-a0e3-977edb7df58a",
 CellID->400314254]
}, Open  ]],
Cell[CellGroupData[{
Cell[80056, 2327, 552, 11, 28, "ExerciseInput",ExpressionUUID->"9e3b6cfc-0a88-48ed-b382-c3fd741cb2f1",
 CellID->740419339],
Cell[80611, 2340, 596, 15, 53, "ExerciseOutput",ExpressionUUID->"d770f023-c4bd-0247-858d-6185681cef9e",
 CellID->56928875]
}, Open  ]],
Cell[81222, 2358, 1307, 37, 26, "SolutionAnswer",ExpressionUUID->"1ff4218a-8d26-405b-a36a-73c2c02b4963",
 CellID->875050204],
Cell[CellGroupData[{
Cell[82554, 2399, 383, 7, 28, "ExerciseInput",ExpressionUUID->"84a6bb35-ffc4-4adc-b415-9c7d5b6c267b",
 CellID->1304985841],
Cell[82940, 2408, 491, 11, 44, "ExerciseOutput",ExpressionUUID->"f44c793b-0f98-9648-a2cf-eb8998c4096b",
 CellID->313010878]
}, Open  ]],
Cell[83446, 2422, 312, 8, 22, "SolutionAnswer",ExpressionUUID->"bafc8f74-5674-4440-9f78-4545b074b0f4",
 CellID->1292137860],
Cell[CellGroupData[{
Cell[83783, 2434, 652, 17, 46, "ExerciseInput",ExpressionUUID->"e3a64995-e39e-4cc1-a40c-5343de2c3e3e",
 CellID->1606374556],
Cell[84438, 2453, 356, 8, 52, "ExerciseOutput",ExpressionUUID->"52730fe2-10c0-9346-9c0e-fb33d04f432c",
 CellID->776737824]
}, Open  ]]
}, Closed]],
Cell[84821, 2465, 760, 20, 32, "Exercise",ExpressionUUID->"1ab4b335-2ef1-4c7a-bea9-7d6acc21d353",
 CellID->1449416295],
Cell[CellGroupData[{
Cell[85606, 2489, 111, 1, 25, "ExerciseSolution",ExpressionUUID->"f8db3190-6673-40ad-973c-5a0b13c3f7b7",
 CellID->457130111],
Cell[85720, 2492, 498, 8, 22, "SolutionAnswer",ExpressionUUID->"4a7ea1d7-d390-4a2d-811f-3c9b351ef861",
 CellID->1432662144],
Cell[86221, 2502, 415, 10, 40, "SolutionAnswer",ExpressionUUID->"4e832bf7-66a8-4f63-869e-ec5a6c92c482",
 CellID->1615935935],
Cell[86639, 2514, 927, 25, 56, "SolutionAnswer",ExpressionUUID->"64d50fd7-491c-4f7a-8a4f-6027271e1555",
 CellID->1813593190],
Cell[CellGroupData[{
Cell[87591, 2543, 649, 16, 28, "ExerciseInput",ExpressionUUID->"185f3b18-cea8-4e44-80d6-a1bebd969326",
 CellID->1166004044],
Cell[88243, 2561, 498, 11, 46, "ExerciseOutput",ExpressionUUID->"69b83278-f490-f448-a0a4-1a3c2b1d4494",
 CellID->238662019]
}, Open  ]],
Cell[88756, 2575, 241, 7, 22, "SolutionAnswer",ExpressionUUID->"87464c6e-b5b3-4adc-82b8-c0ebce66b40b",
 CellID->1026131308],
Cell[CellGroupData[{
Cell[89022, 2586, 695, 18, 47, "ExerciseInput",ExpressionUUID->"8b9a9c5a-e48e-4087-bf65-d5bd7027767f",
 CellID->1962256932],
Cell[89720, 2606, 426, 8, 42, "ExerciseOutput",ExpressionUUID->"e2f5f6fb-c5a1-f545-ab2f-a59aac5e6334",
 CellID->544567170]
}, Open  ]],
Cell[90161, 2617, 539, 12, 22, "SolutionAnswer",ExpressionUUID->"faf94e05-7d32-468c-ae3f-8f80ebeb7684",
 CellID->1296812476],
Cell[CellGroupData[{
Cell[90725, 2633, 584, 14, 50, "ExerciseInput",ExpressionUUID->"4982d9d5-c53b-4343-8a05-2045925806a4",
 CellID->715750729],
Cell[91312, 2649, 403, 7, 42, "ExerciseOutput",ExpressionUUID->"be97913c-8f27-f649-8556-cab8cd9dd488",
 CellID->273778309]
}, Open  ]]
}, Closed]],
Cell[91742, 2660, 779, 24, 30, "Exercise",ExpressionUUID->"dba38a5c-2615-4ace-95b3-f869b43f0737",
 CellID->135922859],
Cell[CellGroupData[{
Cell[92546, 2688, 111, 1, 25, "ExerciseSolution",ExpressionUUID->"5d929940-599d-4cb9-8079-ee405f90ba07",
 CellID->697113179],
Cell[92660, 2691, 526, 13, 26, "SolutionAnswer",ExpressionUUID->"dc5ae740-0de4-4b18-8130-296405a97ae3",
 CellID->1993348867],
Cell[CellGroupData[{
Cell[93211, 2708, 362, 9, 47, "ExerciseInput",ExpressionUUID->"9579af81-1764-46ca-804a-32f70bb99877",
 CellID->779731103],
Cell[93576, 2719, 276, 6, 45, "ExerciseOutput",ExpressionUUID->"3f67a1be-dea1-7b49-9054-c86d164c6dd6",
 CellID->851857241]
}, Open  ]],
Cell[93867, 2728, 215, 7, 22, "SolutionAnswer",ExpressionUUID->"da3741f2-d96b-4897-9da4-77bef3136166",
 CellID->351110136],
Cell[CellGroupData[{
Cell[94107, 2739, 450, 11, 49, "ExerciseInput",ExpressionUUID->"ae682a76-832a-4f7d-bf7c-4a2af53bf49d",
 CellID->503109296],
Cell[94560, 2752, 411, 11, 47, "ExerciseOutput",ExpressionUUID->"6bd79c35-9bb5-a546-b495-211669fa7d56",
 CellID->197182480]
}, Open  ]],
Cell[94986, 2766, 258, 7, 22, "SolutionAnswer",ExpressionUUID->"6b01c5b9-313e-473c-90fc-2336891eceaf",
 CellID->1508277207],
Cell[CellGroupData[{
Cell[95269, 2777, 403, 11, 47, "ExerciseInput",ExpressionUUID->"ec2ba11e-0d1a-461a-9a61-2ab4dabcce25",
 CellID->1536594334],
Cell[95675, 2790, 386, 10, 47, "ExerciseOutput",ExpressionUUID->"73ae8c5e-f581-6f41-8ff6-a52a5f65d09f",
 CellID->618646142]
}, Open  ]]
}, Closed]],
Cell[96088, 2804, 492, 15, 29, "Exercise",ExpressionUUID->"4db4bba3-52e2-4d83-8a9f-ac556ba13107",
 CellID->185238418],
Cell[CellGroupData[{
Cell[96605, 2823, 109, 1, 25, "ExerciseSolution",ExpressionUUID->"88be35be-c977-4b77-90b3-c20e86e04953",
 CellID->1539338],
Cell[96717, 2826, 692, 21, 26, "SolutionAnswer",ExpressionUUID->"5065379c-8781-429c-a0aa-b1157623ee61",
 CellID->36020548],
Cell[CellGroupData[{
Cell[97434, 2851, 357, 8, 28, "ExerciseInput",ExpressionUUID->"426c4108-82c9-4b9d-82d2-f90f615dd225",
 CellID->1202871004],
Cell[97794, 2861, 263, 6, 46, "ExerciseOutput",ExpressionUUID->"bf4c57fb-b596-e74d-a31b-cb64ed690385",
 CellID->595661003]
}, Open  ]],
Cell[98072, 2870, 216, 7, 22, "SolutionAnswer",ExpressionUUID->"2c788f39-7cef-45c3-8f72-417bae8c6b43",
 CellID->1196246931],
Cell[CellGroupData[{
Cell[98313, 2881, 543, 15, 49, "ExerciseInput",ExpressionUUID->"eb0f61d1-f9a2-4ef9-8b84-ab2bf0d757a4",
 CellID->1552791054],
Cell[98859, 2898, 884, 24, 46, "ExerciseOutput",ExpressionUUID->"3cc8e1e4-c7c1-3840-92ff-f6704f74d428",
 CellID->375685713]
}, Open  ]],
Cell[CellGroupData[{
Cell[99780, 2927, 145, 2, 28, "ExerciseInput",ExpressionUUID->"02b655e8-c7e4-421b-a475-d439a33b480f",
 CellID->2141996335],
Cell[99928, 2931, 233, 4, 31, "ExerciseOutput",ExpressionUUID->"44880775-30a9-ee4e-9cbd-8f25a3b96231",
 CellID->152225614]
}, Open  ]],
Cell[100176, 2938, 310, 8, 22, "SolutionAnswer",ExpressionUUID->"3b7dd9de-0764-4210-933d-e5cbfd22a015",
 CellID->2029246107],
Cell[CellGroupData[{
Cell[100511, 2950, 375, 10, 45, "ExerciseInput",ExpressionUUID->"5024dfaf-4ba2-4492-b3d2-4f3a982c0f46",
 CellID->1397882949],
Cell[100889, 2962, 229, 4, 31, "ExerciseOutput",ExpressionUUID->"d1d01c95-3cbc-394d-aaf8-d2d1a0eb14b5",
 CellID->441046824]
}, Open  ]]
}, Closed]],
Cell[101145, 2970, 424, 6, 25, "Exercise",ExpressionUUID->"2ca2f17d-d353-4300-9aac-63991e9557fd",
 CellID->984627967],
Cell[CellGroupData[{
Cell[101594, 2980, 110, 1, 25, "ExerciseSolution",ExpressionUUID->"40f4a56b-7066-41a8-a678-e141e4bacd45",
 CellID->62958094],
Cell[101707, 2983, 358, 7, 22, "SolutionAnswer",ExpressionUUID->"d27043c0-d21f-414b-93dd-6f8933c2daf8",
 CellID->31963151],
Cell[CellGroupData[{
Cell[102090, 2994, 319, 9, 45, "ExerciseInput",ExpressionUUID->"12322a49-9507-481a-8209-d869810a4a7f",
 CellID->77104625],
Cell[102412, 3005, 228, 4, 31, "ExerciseOutput",ExpressionUUID->"ef678401-5934-49c3-851c-a3e8a133ea20",
 CellID->85406962]
}, Open  ]],
Cell[102655, 3012, 313, 4, 22, "SolutionAnswer",ExpressionUUID->"61e9ca90-926d-49c6-9ec5-48a64c1db74c",
 CellID->10517187],
Cell[CellGroupData[{
Cell[102993, 3020, 306, 6, 45, "ExerciseInput",ExpressionUUID->"1b09c786-e429-4ebc-a1ac-82d62e994531",
 CellID->208867105],
Cell[103302, 3028, 320, 8, 50, "ExerciseOutput",ExpressionUUID->"ee45dc0d-4327-4a22-9c9d-6397dfe0b8c6",
 CellID->2155259]
}, Open  ]],
Cell[103637, 3039, 276, 7, 22, "SolutionAnswer",ExpressionUUID->"7ccff351-7037-4937-af0b-03436fd010f6",
 CellID->295023003],
Cell[CellGroupData[{
Cell[103938, 3050, 506, 16, 51, "ExerciseInput",ExpressionUUID->"34296a7c-7d9a-4fdc-aec6-789750d711d7",
 CellID->783813737],
Cell[104447, 3068, 952, 27, 53, "ExerciseOutput",ExpressionUUID->"c4db8223-d353-49e4-87fb-1476af51a521",
 CellID->37934769]
}, Open  ]],
Cell[105414, 3098, 647, 13, 43, "SolutionAnswer",ExpressionUUID->"b0fee06f-00b9-417a-a771-cd28a6cdd807",
 CellID->9707589]
}, Closed]]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[106112, 3117, 293, 6, 135, "SmallText",ExpressionUUID->"96a2ef95-b3cb-448a-8668-4b6987cedf05",
 CellGroupingRules->"SectionGrouping"]
}
]
*)

(* NotebookSignature UTGJ8XF#zR7D6je#A93I5brM *)
