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

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

(* CreatedBy='Wolfram 14.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       154,          7]
NotebookDataLength[    354054,       8074]
NotebookOptionsPosition[    175936,       4364]
NotebookOutlinePosition[    339300,       7756]
CellTagsIndexPosition[    339092,       7747]
WindowTitle->Laplace Transforms in a Nutshell | Laplace Transforms in Theory \
and Practice
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Laplace Transforms in a Nutshell", "Section",
 CellID->1582821380,ExpressionUUID->"41c882da-be82-4411-9fb3-7ac7d1336bc8"],

Cell["\<\
This book has presented an introduction to Laplace transforms. The student \
has been exposed to the main properties of Laplace transforms and inverse \
Laplace transforms, along with methods for calculating both for simple, \
special, piecewise and rational functions, numerical methods and complex \
inversion. An introduction to applications of Laplace transforms was also \
presented, including classical examples of ODEs and PDEs.\
\>", "Text",
 CellChangeTimes->{
  3.95493730036129*^9, {3.9549384997595367`*^9, 3.9549385005965385`*^9}},
 CellID->273094503,ExpressionUUID->"ba3d5a64-82ae-8f4a-9f90-9a2ffcf0bbb3"],

Cell["\<\
This section will briefly summarize the main points of the theory presented \
in this course.\
\>", "Text",
 CellChangeTimes->{{3.9549385158615513`*^9, 3.9549385174769955`*^9}, 
   3.9549442298726273`*^9},
 CellID->644684187,ExpressionUUID->"ce99f3c9-c7d8-094d-8cd1-871dde7dd756"],

Cell[CellGroupData[{

Cell["Historical Overview", "Subsection",
 CellID->1743943814,ExpressionUUID->"1f81ff22-e3df-4399-941e-dd66a7646b0c"],

Cell["\<\
The Laplace transform is named after French scholar Pierre-Simon Laplace, who \
employed a similar transform in his investigations of probability theory \
(1814), but many other mathematicians contributed to its study. Earlier, \
Leonhard Euler studied functions defined by integrals as solutions to \
differential equations, and Joseph-Louis Lagrange studied similar integrals \
to integrate probability density functions. After Laplace, Oliver Heaviside \
came up with the same concept to solve differential equations for electrical \
systems.\
\>", "Text",
 CellID->55708366,ExpressionUUID->"18227b5d-cfb2-7c47-888e-40e8cf01e2d2"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Integral Definition", "Subsection",
 CellID->1003959553,ExpressionUUID->"129225d2-05a4-44df-82c9-65535abd3820"],

Cell[TextData[{
 "The ",
 StyleBox["Laplace transform",
  FontSlant->"Italic"],
 " of a function ",
 Cell[BoxData[
  FormBox[
   RowBox[{"f", "(", "t", ")"}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"a843bf03-bae7-9c4a-b2dc-f6f3c63a850d"],
 " is defined as:"
}], "Text",
 CellID->197421566,ExpressionUUID->"ba113259-6af4-684a-b14d-6e5c83334565"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"F", "(", "s", ")"}], "\[LongEqual]", 
   RowBox[{
    RowBox[{
     SubscriptBox["\[ScriptCapitalL]", "t"], "[", 
     RowBox[{"f", "(", "t", ")"}], "]"}], 
    RowBox[{"(", "s", ")"}]}], "\[LongEqual]", 
   RowBox[{
    SubsuperscriptBox["\[Integral]", "0", 
     RowBox[{"\[VeryThinSpace]", "\[Infinity]"}]], 
    RowBox[{
     RowBox[{"exp", "(", 
      RowBox[{
       RowBox[{"-", "s"}], " ", "t"}], ")"}], 
     RowBox[{"f", "(", "t", ")"}], " ", 
     RowBox[{"\[DifferentialD]", "t"}]}]}]}], 
  TraditionalForm]], "DisplayFormulaNumbered",
 CellID->390909247,ExpressionUUID->"b4e8f9b7-b82a-114e-be67-5cb3ae3ce628"],

Cell[TextData[{
 StyleBox["where ",
  Deletable->True],
 Cell[BoxData[
  FormBox["s", TraditionalForm]], "InlineMath",ExpressionUUID->
  "5909d8de-8313-9242-ad94-6bec5c2b818c"],
 StyleBox[" is, in general, a complex-valued parameter.",
  Deletable->True]
}], "Text",
 CellChangeTimes->{{3.898830874603347*^9, 3.89883090412288*^9}, {
  3.898830936822209*^9, 3.898831039733544*^9}, {3.898831094902708*^9, 
  3.898831105748009*^9}, {3.898831171930524*^9, 3.898831202851024*^9}, {
  3.89883134528918*^9, 3.898831345290288*^9}, {3.915431691332415*^9, 
  3.915431696359202*^9}, {3.9194180537119274`*^9, 3.919418088518623*^9}, {
  3.9442106215848885`*^9, 3.944210626195261*^9}},
 CellID->1078779093,ExpressionUUID->"718e998a-6ae6-c640-956d-7062f910d495"],

Cell[TextData[{
 "T",
 StyleBox["he ",
  Deletable->True],
 StyleBox["region of convergence",
  Deletable->True,
  FontSlant->"Italic"],
 StyleBox[" (or simply ROC) of the Laplace transform is a half-plane of the \
form ",
  Deletable->True],
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"Re", "(", "s", ")"}], ">", "a"}], TraditionalForm]], 
  "InlineMath",ExpressionUUID->"d20a8937-c408-b640-9734-c88425bedb5e"],
 StyleBox[".",
  Deletable->True]
}], "Text",
 CellChangeTimes->{{3.944210687266201*^9, 3.9442106925301857`*^9}},
 CellID->152243205,ExpressionUUID->"6cc1e126-a8ab-ed40-afaf-b03f6096733b"],

Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJztnXt4nNV9oE251AGSAklMsgu72ybNsoE0T3Z5tmnLs6Xk2exCCmmgybNJ
mzwNtsHGYFhjoOZibo6xDI3BdrgYkhLumIC3wdyaQICCr/JVEpJvGhmBR5Y9
Iw22NJYlfb+d7zYXzxyPsX/SnCO9r/MiGRwe/3N4/X1zzvn94aVXX3zZ740Z
M+basbm/XPzjG/5q2rQfz7jkpNxPvjv12smXT5044fyp0ydePnHa1y89Ovc3
x+R+7TtHjRlzTO5bAYBDwvO8IkUGvUEZHPQQ0UIHBgfzX/01CwB6xC3MfRfY
kc7Ke9sziGibbb7d0deMfNSzv9b/+QAYkcRNTKZ7pSm39hDRLhvbfLuDr/7P
6SHAUBA/H4okU73RmkNEW23KmaGHAENKMp2t+Z+DEfEg8nwIMCzQQ0TLpYcA
wwI9RLRceggwLNBDRMulhwDDAj1EtFx6CDAs0ENEy6WHAMMCPUS0XHoIMCzQ
Q0TLpYcAwwI9RLRceggwLNBDRMulhwDDAj1EtFx6CDAs0ENEy6WHAMMCPUS0
XHoIMCzQQ0TLpYcAwwI9RLRcegiHSTz/PZx3W/r3oBx6iGi59BCOEPp3aNBD
RMulh6DA+++/L3v37g2+5xmxMvQQ0XLpIRwBfvf6+vrkoosuknvvvVcGBwdr
/VuyFnqIaLn0EA6D4s8O3333XfnkJz8pX/rSl6Srq6vWvzWL8IIfH+7ulR/N
XiVXL1gv8xZvkVUtKWls6w6s+fpHxIL0EI6AbDYrF1xwgYwZMybwnnvu4Rnx
ANo7e+WiG5fJhLlrZc7Tm+ghoq3SQzgC3njjDRk7dmy+h6eeeqrs3r2bzw+L
8Ht4YdDDNVL3VKGH8dpDREukh3CYDAwMyGWXXZZvYez06dN5RiyivbOHHiK6
ID2Ew2T58uVy0kknlfVw3Lhxkkqlav3bs4bwfenyoIdzox4G644eItolPYRD
JH4H6n/t7++XSZMmlbWw+Bmx0nn90Qg9RHREegiHSHHXmpqa5KyzzpLTTz89
8Pjjj5dPf/rTwfennXaanH322cFeG3pIDxGdkR7Cx8Tv2549eySRSOS9+OKL
ZeHChcH3ra2twVf/XCLQQ0RnpIegwI9+9CNZvHhxrX8bVkIPER2RHoIC9NAM
PUR0RHoICtBDM/QQ0RHpIShAD80U97COHiLaKz0EBeihGf88/rej+9rqnmqR
Vc0paUxwHh/ROukhKEAPTXjSt39AEjv2yvotXbL8vd2ysdW/uzTD/aWItkkP
QQF6WI53gMlUNvdcmAmeDbnPG9FC6SEoQA8rE7fQx+9hU/BcGFrztY+IpdJD
UIAeVod5wIiWSw9BAXpYHXqIaLn0EBSgh9Whh4iWSw9BAXpYHXqIaLn0EBSg
h9Whh4iWSw9BAXpYHXqIaLn0EBSgh9Whh4iWSw9BAXpowpMdu3tl/Ny1Mv2B
jTL/+a2yuiUdnsXnDCKiXdJDUIAeluPPTfb17y8tuc/bv7+U+9oQ7ZMeggL0
0Eww32JG+XwLeohomfQQFKCHZirNe+L5ENFC6SEoQA/NMA8Y0RHpIShAD83Q
Q0RHpIegAD00Qw8RHZEeggL00Aw9RHREeggK0EMz9BDREekhKEAPzdBDREek
h6AAPTRDDxEdkR6CAvSwMp6EPbww18Px0fnDldxPg2in9BAUoIeVCXvYE/Qw
Po+/8j16iGil9BAUoIflxPeX7t/fL+/v2C1NrengXWlDa66DiVwPE/QQ0Srp
IShAD8uJexiY+5FM9wYNzMvzIaJd0kNQgB5Wxn9fGvZQwh5G70lja77+EbEg
PQQF6GF1mAeMaLn0EBSgh9Whh4iWSw9BAXpYHXqIaLn0EBSgh9VJpnpLPjts
5Dw+ol3SQ1CAHpqJ95iW9DBBDxGtkx6CAvTQTNzDjlQ23FMan8Wnh4h2SQ9B
AXpYAc9voUh//4B07uqSLe3dsnZzWhqC84fcT4NonfQQFKCHFYh6+MGuXvnB
HSvkqvvWybzFm4M7aughooXSQ1CAHpphvgWiI9JDUIAemqGHiI5ID0EBemiG
HiI6Ij0EBeihGXqI6Ij0EBSgh2boIaIj0kNQgB6aoYeIjkgPQQF6aIYeIjoi
PQQF6KEZeojoiPQQFKCHZughoiPSQ1CAHpqhh4iOSA9BAXpYGf8e7/bOnlwP
lx3Qw27ua0O0TXoICtDDyvg9/CD3fPi921bKFfPWyz3PbpZVzalo3hM9RLRK
eggK0EMDnsjgoCe9+wZk+84e2bCtK5pvQQ8RrZMeggL00Ezp/MNMYSYwPUS0
S3oICtDDaniSTOd6uJ0eIlorPQQF6GF1/B7WfL0joll6CArQw+rQQ0TLpYeg
AD2sDj1EtFx6CArQw8r4+2j8Pab+12TJfpoMnx8i2iY9BAXoYWXiHvqU9JDz
Foj2SQ9BAXpYCS9/1qLwfNhd1EML1j8iFqSHoAA9LCfu4P7+QdmxOxustVUt
aWloDXvI/aWIlkkPQQF6WI4X+eGuXvn7Watl6vz1cu/iLcH9pY3c541on/QQ
FKCHZphvgeiI9BAUoIdm6CGiI9JDUIAemqGHiI5ID0EBemiGHiI6Ij0EBeih
GXqI6Ij0EBSgh2boIaIj0kNQgB6aoYeIjkgPQQF6aIYeIjoiPQQF6KEZeojo
iPQQFKCHZughoiPSQ1CAHprxe3jhjGVBD+ueaonua+M+b0TrpIegAD0sJ77P
27+/9Hu3rZQr5q2Xu5/ZRA8RbZUeggL0sALBhd6e9A8MSmbvftm6Y4+s3ZKW
hkQX93kj2ig9BAXooRkvmoPYUTz/MJgLbMH6R8SC9BAUoIcHJ54H3NTWnd9L
43ex5usfEQvSQ1CAHlYnmc7Wfr0joll6CArQw+rQQ0TLpYegAD2sDj1EtFx6
CArQw8rEZy58kqneaB9NtzQmutlfimib9BAUoIflhMct/B4OBj/3nw8bE5mg
hY1t9BDROukhKEAPy/Eig++D/aW9UQsz+XMXNV//iFiQHoIC9LCc+Pmwr39Q
Ejv2yMatXbLivZQ0tHZzPw2ijdJDUIAeVsbv4Qe7euUHd66Sqfetl3sXb47u
a+M8PqJ10kNQgB6aYb4FoiPSQ1CAHpqhh4iOSA9BAXpohh4iOiI9BAXooRl6
iOiI9BAUoIdm6CGiI9JDUIAemqGHiI5ID0EBemiGHiI6Ij0EBeihGXqI6Ij0
EBSgh2boIaIj0kNQgB6aoYeIjkgPQQF6aKZSDxvpIaJ90kNQgB5Wxr/TO5nK
yuSfrpUbFzXJA0taZfWmdH7GRc3XPyIWpIegAD00MzjoyZ6efkkk98q6rWlp
iGc+JegholXSQ1CAHlYnP/+waAZizdc/Ihakh6AAPaxO0MPoc0N6iGih9BAU
oIfVSaaztV/viGiWHoIC9LA69BDRcukhKEAPq0MPES2XHoIC9LA6QQ/b4r00
oTVf/4hYkB6CAvTQgBfq5X6U7i/tZj8Nom3SQ1CAHlbG81uY+4tvuL+0u0gL
1j8iFqSHoAA9NJDrYLavX+o3peXtDZ3yu/WdsmFbN+9LEW2UHoIC9NCAV3x/
ab3U+feXNqfoIaKN0kNQgB6aYb4FoiPSQ1CAHpqhh4iOSA9BAXpohh4iOiI9
BAXooRl6iOiI9BAUoIdm6CGiI9JDUIAemqGHiI5ID0EBemiGHiI6Ij0EBeih
GXqI6Ij0EBSgh2boIaIj0kNQgB6aoYeIjkgPQQF6aKa4h/F9bU3BfW3Mt0C0
SnoICtDDyvhzLXZ2ZWXGogaZ9XizPPxiq9S3pKUxQQ8RrZMeggL0sJxo9KEM
5pq4r29A3t/ZIxu2dklDK/MPEa2UHoIC9LAcfwZwPPtQpDD/sCmabeHPBa75
+kfEgvQQFKCH5ZT2UKIeZvKfHfJ8iGiZ9BAUoIfVSaaztV/viGiWHoIC9LA6
9BDRcukhKEAPq0MPES2XHoIC9LAy8eeHvkEP4700fH6IaJ/0EBSghxWIDlx4
0U87cj0MO0gPEa2UHoIC9LACXtHzoYTvS+MO0kNEC6WHoAA9NLNv/4C0bP9I
Vrek5d8adsnG1i5pSnRzfymibdJDUIAemvHvL73klhUy6Z61cvfT0X3e9BDR
PukhKEAPzTDfAtER6SEoQA/N0ENER6SHoAA9NEMPER2RHoIC9NAMPUR0RHoI
CtBDM/QQ0RHpIShAD83QQ0RHpIegAD00Qw8RHZEeggL00Aw9RHREeggK0EMz
9BDREekhKEAPzdBDREekh6AAPTRT3MM6v4fNqWDGBT1EtEx6CArQQxOedKR7
ZdqCernj0UZZ9GKr1G9KM98C0UbpIShAD014Mjg4IHt7s7K9Y49s2NYlDQnm
PSFaKT0EBehhZYKRwF44FDiZYh4wotXSQ1CAHlYm7GH4jT8PuCloYWjN1z4i
lkoPQQF6WJ2gh7Ve74holh6CAvSwOvQQ0XLpIShAD6tDDxEtlx6CAvSwHM//
4RXsSGfz+2jifTU1X/+IWJAeggL0sBJesJkm7mEy7mEikh4i2iU9BAXooZng
vIWE5y3ie9o4b4FoofQQFKCH5cTPhXt6+uTVd7fKKys+kNdWd8j6bZzHR7RS
eggK0MPK+E+GpfeXtsjKFu4vRbRSeggK0EMzzLdAdER6CArQQzP0ENER6SEo
QA/N0ENER6SHoAA9NEMPER2RHoIC9NAMPUR0RHoICtBDM/QQ0RHpIShAD83Q
Q0RHpIegAD00Qw8RHZEeggL00Aw9RHREeggK0EMz9BDREekhKEAPzRx4X9sq
7mtDtFN6CArQw8r493mnMn1yzzObZcHzW+WJf22TNZvT0pjIcJ83om3SQ1CA
Hhrwwr8E8w9TRfMPmW+BaJ/0EBSghwZKetgb9TCTnwlc8/WPiAXpIShAD8vx
ImPiHjZFPeTzQ0TLpIegAD2sTjKdrf16R0Sz9BAUoIfVoYeIlksPQQF6WB16
iGi59BAUoIeVCT9D9IKv4f7S6JxF8NWC9Y+IBekhKEAPy/H3lAaKVO5hwoL1
j4gF6SEoQA8PRrjLNH/eIpbzFoh2SQ9BAXpYGb+Ee7P98vqaTnllRVJeW90h
67d1cR4f0UbpIShADyvj97D0/tJN0f2lnD9EtE56CArQQzPMt0B0RHoICtBD
M/QQ0RHpIShAD83QQ0RHpIegAD00Qw8RHZEeggL00Aw9RHREeggK0EMz9BDR
EekhKEAPzdBDREekh6AAPTRDDxEdkR6CAvTQDD1EdER6CArQQzP0ENER6SEo
QA/NBD2csazkvjZ6iGih9BAUoIdmOrv2yc0PN8lPHm+WR5a2Sv2mdDDrifmH
iJZJD0EBeliZYPahFxrMe0qEc56Yb4FoofQQFKCHlQlnAcfzD7NFPcww/xDR
NukhKEAPK1Paw+J5wBmeDxFtkx6CAvSwOsl0tvbrHRHN0kNQgB5Whx4iWi49
BAXoYXXoIaLl0kNQYKT30PO8j///iQy/93I97M1/bhh+tWD9I2JBeggKjLQe
+v07sIHxzz9eG6P/j9/DVG+w3or3mNZ8/SNiQXoICoy0HnZ2dsqSJUtk1qxZ
Mm3aNLnuuutk/vz5snLlSunv7z+kf0d49tDLf19y3iLQgvWPiAXpISgwknq4
fPly+drXviZjxowp8/jjj5d58+bJ4ODgIf27/B76a+uFtz+Q59/6QF5clpR1
W7vCs4c8HyLaJT0EBUZSD/3nwbFjx8o3v/lNufPOO2XRokXBc+KZZ54ZNPGU
U06R+vr6Q/73cZ83oiPSQ1BgJPXwzTfflF/96ldl70WXLVsWdNJvov/u9FCh
h4iOSA9BgZHUQ5/iPTPx3pquri756le/GvRw5syZFffcVIIeIjoiPQQFRmIP
BwYGpKWlRV599VV5/vnn5cknn8y/M73pppsOeZ8pPUR0RHoICoy0Hv7yl7+U
c889V8aNGyfHHHNM2b4av4eHCj1EdER6CAqMlB76z3z+Z4P+PlK/e/4+0xtu
uEHuuusumT17tnzxi1+kh4gjVXoICoyUHn700Ufy5S9/OWjelClTgp/7+J3s
7e2V8847jx4ijlTpISgwUnrY0NAgJ598ctC81tbW/N/3e7h3714555xz6CHi
SJUeggIjpYfbt2+Xz33uc0HzFixYEOyp8c/e79mzR6ZOnVry+SH7aRBHmPQQ
FBgpPfQb9/3vfz9o3gknnCCXXHKJjB8/Xr7yla/IUUcdJccdd1xJDzlvgTiC
pIegwEjpoU97e7tccMEFcuKJJ8qxxx4bNNB/hzp58uTgHlO/k3fccQfPh4gj
TXoICoykHsafFa5YsUJefPFFeemll6S5uTl4b9rR0RHcb5pMJg/p+dD/pxV7
mGDeE6J10kNQYCT1UBM/lx2prFyzYIPM/EWTPPjrVqnflJbG1u5gDmLN1z8i
FqSHoAA9NBAOfQr05x+Gcw/DWU/0ENEy6SEoQA/L8SSeBhz+LOhhW9TDNnqI
aJ30EBSgh+WU9lCCHja1ZaIW8vkhonXSQ1CAHlYnmc7Wfr0joll6CArQw+rQ
Q0TLpYegAD2sDj1EtFx6CAqM9h6WnUP0Cp8d9vX1S2NLQv7fb9fKc7/ZKK8u
2yKrm3cG6y7YUxOdzS/eX8Nni4g1kB6CAqO1h3EH47P5sfv6+mTJy2/J3146
Q/74638n4878G/nG92+SK299VK687TGZevtjcvO8F+T+p9+W+k27pCHRFZ3D
6M5/5f4axGGWHoICo7mHxffU+HfYNG9OyDe/N01OPes78tkzLpBPnXa2/P4f
/Af5s/MukYn/9y6ZOK1OLpv+U5lyy8NBH6+vWyzPvrJeNrZ2hT30W5jI0EPE
4ZYeggKjtYfF+E186vl/lT/+sx/IZ874lhx/yhfk944ZK8d+4mT50rlT5TtX
3C/T5jwvE6+ZJZdeOTPnrTLhmtlyxc2L5Krc8+L8x96Q9VtS+WdEeog4zNJD
UGC09rD4jOEb/7ZGvvCnP5BTvnCeHP37n8rPhvrESafJX175qky4e43MfGSt
XJZ7Phwf9HBm+PWq22TSDQuDJi584i3ZsC0dNdGC/z4gjhDjuzDeWLlFXl+x
KbfOUkX3YxR9TrGdHsKRMbp76Emqq1v++/++XD7zn8+Xo489Id/CQg9fC3p4
a66Hl0+bKxNyz4aX5vW7eKtM+seFcvUdj8uS1xvpIaKycfOeXfquTL72JzJn
wRPym+XNpV0MethND+GIGLU9jB4Ob5nzkJx65rfluBM/V9LC6j2cmXd87jnx
ipsfllvmvSD1zZ3c54aoaNy8Z158N3gv43vF9Nly132Py2+LnhfpIRwpo7eH
nuztycpfXHSlnPQf/zzXv6M+Rg9nFnlrsD4nXlsn19z5pLz8zmZpooeIKha/
Ew17mFtvU2YG69D/3u/iT+77ZdDFja3pQ+7h/fffL+eccw5iiePGjZMzzjij
5r+PWvj1/3G+fP5PLpaxJ/+nshYerIfxn1HHR+9L/fV56dTbZcrMX8gNc56Q
mXctQkQVH8p77c0/DdbbhCLHR38+nZzr4tyfPSWdqT2H1EN/dnh9fT1iid/6
1rdkzpw5Nf991MKbZ82XcWf9jRx7wmc/Zg8rrMngnekiufGfnpPfLG+RN1Zt
RsQj9PWVm/I+/OQrJWtvfPRn0wlX3ya33f1zefWdJklnsof8fgggJj57N1rf
l/rMe+Dp4Lz9MWNPOqIexp8pTr7pIbnl3iWyfmuq5u+ZEEeCxTPWnl26LPx8
Ykp05mnq7XLb3EfklbcbwjXXduifHxb3kDYCPRR59JmXgx4ee+KRPx+Oj54P
b1/wL+H5/AP3gyPiYRr20P/80H83OvGq8HnwlbcbZUOugw3xuV/208ARMlp7
6P+J8K3l6+X0//o9+cQpX/hYPYz30MTva4J9NVPvkCm3PioPPP22cN4CUcfi
Li5+aXmug4/Iy29vDPbOHNhL/9fTQzgSRnMP+/b3y19+Z6qc8kfnypijjv6Y
Pby15Gz+5dffG+wv/c3Kbfm1iYhHbty9hgrvXfK/jvtpQIFR20P/fXHux30P
Pyef/8rFuWfEPzysHgaf50+9U6bM/GeZdf9Lsm7LbnqIqGi196nBr6OHoMCo
7mHOvv375a//foaM+/K3y/aZBj2cUnxf29z8/u6Ss/g3PSTTfvKUvL4yUf7n
VkQ8bA/l88Xg19JDUGDU9lCi2Ra5/723KSF/ev4k+cwZfy1j/+D0/Nn8444/
Rf7L//xHuWTqL2T63S8Gd3hfetXM0GCf96xcCx+Uq+94Qp5cukaaohkX9BBx
mKWHoMBo7aFI8bwnT+o3NMv/+j/T5bO558RP/fv/JsflnhWPOvrYoItn//k3
Cs+FuRaOv/pOuWz6PcH5+2tnPy1PLK0vmflEDxGHWXoICozWHpbMPww+SxTZ
uSstM+f+XL5+/mT5d3/yHTnlj/5KPvn5r8pfnP8Pcvl182TSDffJpBn3Bx30
34/e/chr8tryrUXvbrroIWItpIegwGjtYX7CRdTCvLmf7+xMyW/fXiMTps2V
b/ztNfIP0+6Tmfcukdvm/4vMfvAleezXq+XNNdtL9nw3tWUq73tDxKGXHoIC
o7eHB8ELu9g/MCDdmT2y5f2UrG7plLWbd0V36Vuw/hGxID0EBehhZYrvcEqm
es3nnhCx9tJDUIAeVqa0h1lpTGTynw3SQ0TLpIegAD00E57Yj58PMyWfE9Z8
/SNiQXoICtBDMyU9zJ+lCJ8Ta77+EbEgPQQF6OFBCI/rH9BD3pciWic9BAXo
oZnuPX3y6Cvb5dFX2+S5N9tl7ZZ0+Dki+0sR7ZIeggL00Ex7Z69cNGOZTJi7
Ruqe2iSrWlLhuqOHiHZJD0EBemgm6OGNy4MezqWHiPZKD0EBemiGHiI6Ij0E
BeihGXqI6Ij0EBSgh2boIaIj0kNQgB6aoYeIjkgPQQF6aIYeIjoiPQQF6KEZ
eojoiPQQFKCHZughoiPSQ1CAHpqhh4iOSA9BAXpohh4iOiI9BAXoYWX8e7yL
exjf1xbPfKr5+kfEgvQQFKCHlQgnPaU/6pOHfp2QR5a2yrO/i+7zZr4Fon3S
Q1CAHlbCKzKeB1yY9cT8Q0TLpIegAD0sx/O8UAmfFMMeZvLvSv2ZTzVf/4hY
kB6CAvSwMnELw3nA2WjuYdRDPj9EtEt6CArQw+ok09nar3dENEsPQQF6WB16
iGi59BAUoIfVoYeIlksPQQF6eBA8L7CwnybD54eINkoPQQF6WE5+f2lk4bxF
hvMWiDZKD0EBelhOSQ8HPdnh9zDRHe4xTXAeH9E66SEoQA8r45+06Ozqldsf
WSXznm2Wx15rkzWb0+GzIe9LEe2SHoIC9LAyfg/bO3vkohuXRfeXtkT3l2bo
IaJt0kNQgB6aYb4FoiPSQ1CAHpqhh4iOSA9BAXpohh4iOiI9BAXooRl6iOiI
9BAUoIdm6CGiI9JDUIAemqGHiI5ID0EBemiGHiI6Ij0EBeihGXqI6Ij0EBSg
h2boIaIj0kNQgB6aoYeIjkgPQQF6WBlPSntYl+vhSu5rQ7RTeggK0MPK+D1M
ZbKycPF6+fnSrfLsm+2ydktXNPeJ+RaIVkkPQQF6WJ1kKpt/T0oPES2UHoIC
9LASB8wDTmfzHQznH1qw/hGxID0EBehhOV7UQ/+lqf+1o7iHbfQQ0TrpIShA
D6vjPx/WfL0joll6CArQw+rQQ0TLpYegAD2sDj1EtFx6CArQw4PhBcb7aTh3
iGip9BAUoIcHo7SHhf2lnLdAtEp6CArQw3LyZy2i75OpnqIeZughom3SQ1CA
HpbjRe5M75MbH26S2Y83y89fSsiazWmeDxFtlB6CAvTQTHtnj1w0Y1n+/lLu
80a0VHoICtBDM8y3QHREeggK0EMz9BDREekhKEAPzdBDREekh6AAPTRDDxEd
kR6CAvTQDD1EdER6CArQQzP0ENER6SEoQA/N0ENER6SHoAA9NEMPER2RHoIC
9NAMPUR0RHoICtBDM/QQ0RHpIShAD81U6mF4f6kF6x8RC9JDUIAeVsa/z3tP
7355dWWHLF2WlJdX7JB1W7voIaKN0kNQgB4a8ApfSuYftjHfAtE66SEoQA8N
RDMQfTqCHmYieT5EtE56CArQwwp4RTOB/XnAuR42FfWQ/TSIlkkPQQF6WJ2g
h7Ve74holh6CAvSwOvQQ0XLpIShAD6tDDxEtlx6CAvSwGoXPD/OfG/L5IaJd
0kNQgB4eHH8/TUcqmz93GFvz9Y+IBekhKEAPTXjhD08kGfcw0c3+UkQbpYeg
AD2sjH/ycGc6K9c/2CCzHntPHl6akPr8fW2cx0e0SnoICtDDyvg9fL+zJ39/
aZ1/f2lzqnAGsdbrHxEL0kNQgB6aYb4FoiPSQ1CAHpqhh4iOSA9BAXpohh4i
OiI9BAXooRl6iOiI9BAUoIdm6CGiI9JDUIAemqGHiI5ID0EBemiGHiI6Ij0E
BeihGXqI6Ij0EBSgh2boIaIj0kNQgB6aoYeIjkgPQQF6aIYeIjoiPQQF6KEB
z5PM3v3yzBvt8szr78uSdz6UdVu7mPeEaKP0EBSghwb8C709L5h/mEz1RnOe
wtkW9BDRMukhKEAPDXih/gzEoIdF8w+Zb4FomfQQFKCH1Umms9GzYYb3pYg2
Sg9BAXpYnaCHtV7viGiWHoIC9LA69BDRcukhKEAPq0MPES2XHoIC9LAcL9pX
Gm6qCXuY31ca7TOt+fpHxIL0EBSgh+XEPQybmOthKlvYV5qgh4jWSQ9BAXpo
IJfCwUFP9vX1S3vnXtnY2l1y5qLm6x8RC9JDUIAeGsg9G364q1f+btYqmTp/
vcx7brOsbklx/hDRRukhKEAPK+EFPQzvL10W3F9aF91fGj4fWrD+EbEgPQQF
6KEZ7vNGdER6CArQQzP0ENER6SEoQA/N0ENER6SHoAA9NEMPER2RHoIC9NAM
PUR0RHoICtBDM/QQ0RHpIShAD83QQ0RHpIegAD00Qw8RHZEeggL00Aw9RHRE
eggK0EMz9BDREekhKEAPzdBDREekh6AAPayMP+upd1+/rGjaJW+t65Tf5dy4
raswB7HW6x8RC9JDUIAeVsOTZKo3P9eC+RaIFkoPQQF6WI4/BTg/Ezj3fUc8
DziabUEPES2THoIC9LAyxT0Mng8Tmfy7UnqIaJn0EBSgh9VJprO1X++IaJYe
ggL0sDr0ENFy6SEoQA+rQw8RLZceggL08GAEO2skmcrmzx02RtZ8/SNiQXoI
CtDDgxH2sCPVK00Jf811B1/pIaJl0kNQgB5WJt5f6hPuL+W8BaK10kNQgB6a
CM/hT/qndXLDQw2ycMlWWb0pRQ8RbZQeggL0sJz4PH57Z0/+/tK6p1ry95fy
vhTRMukhKEAPzXCfN6Ij0kNQgB6aoYeIjkgPQQF6aIYeIjoiPQQF6KEZeojo
iPQQFKCHZughoiPSQ1CAHpqhh4iOSA9BAXpohh4iOiI9BAXooRl6iOiI9BAU
oIdm6CGiI9JDUIAemqGHiI5ID0EBemiGHiI6Ij0EBehhOf5YC//+0mxfv2zY
2i3LGnfL2xt2yYZt/oyLDD1EtE16CArQwwpEs55ig3lPbd2h0cynmq9/RCxI
D0EBeliZYPZhOP4w18NsoYeRNV//iFiQHoIC9LAy5T3MRC1k/iGiddJDUIAe
VieZztZ+vSOiWXoICtDD6tBDRMulh6AAPawOPUS0XHoICtDDanhBDxu3Z/js
ENFW6SEoQA/NxOctOor303DeAtE+6SEoQA8NlJw/zAbrLe4h5/ERLZMeggL0
sJzi58JpP9sot/7ze/Lgr1ulflMqej7knSmiVdJDUIAelhP3sL2zRy66cVlw
f2mdf39pMz1EtFJ6CArQQzPc543oiPQQFKCHZughoiPSQ1CAHpqhh4iOSA9B
AXpohh4iOiI9BAXooRl6iOiI9BAUoIdm6CGiI9JDUIAemqGHiI5ID0EBemiG
HiI6Ij0EBeihGXqI6Ij0EBSgh2boIaIj0kNQgB6aoYeIjkgPQQF6WAEvvMN0
X1+fNGxOyqr3OuWdjbtk4zZ/vkWGeU+ItkkPQQF6WBmvZN5Tb9G8J2YCI1on
PQQF6GFlDuxh0ELmASPaKT0EBejhwSnrYfSMWPP1j4gF6SEoQA+rk0xna7/e
EdEsPQQF6GF16CGi5dJDUIAeVoceIlouPQQF6GFlvKKvQQ/bwnMWjW3sL0W0
TnoICtDDcuJ9pcH3Eu2nifaVBuctEvQQ0SrpIShADw3kcjjQPyBd3Xtk24cZ
WbclLQ1+B/29pfQQ0S7pIShADw3kerhjd49MqFsp1z+wURa+sFVWt6SiMxcW
rH9ELEgPQQF6WBn/bWl4f+my4P7SuqdaZFVzKjx7SA8R7ZIeggL00Az3eSM6
Ij0EBeihGXqI6Ij0EBSgh2boIaIj0kNQgB6aoYeIjkgPQQF6aIYeIjoiPQQF
6KEZeojoiPQQFKCHZughoiPSQ1CAHpop7mFd1EPuL0W0UHoICtBDMwf2cGVz
Kj8TuObrHxEL0kNQgB6WE9/nXXY/TfS+lB4iWiY9BAXooQlPPtjVI9+9dYVM
nrdO7nl2s6xqToct5PNDRLukh6AAPTTTPzAoO9P7pDm3zlZvCudb8GyIaKH0
EBSgh9UJ5gHXer0joll6CArQw+rQQ0TLpYegAD2sDj1EtFx6CArQw+rQQ0TL
pYegAD2sDj1EtFx6CArQw+rQQ0TLpYegAD2sjBfpk0xlo3P4oTVf+4hYKj0E
BehhOd4B+j1sTORaGJ0/5AwiomXSQ1CAHprwgvP4u7v3yeb2PbJmc3wen/va
EK2THoIC9NDMjt29MvHutXLdAw2y4IUtsrolHTwjcl8bomXSQ1CAHppp7+wp
us87nvdEDxGtkx6CAvTQDPOAER2RHoIC9NAMPUR0RHoICtBDM/QQ0RHpIShA
D83QQ0RHpIegAD00Qw8RHZEeggL00Aw9RHREeggK0EMz9BDREekhKEAPzfjn
Dy/k/CGi/dJDUIAemvGfDy+cQQ8RrZceggL00Ez4vtTv4VqZ83Shh9xfimiZ
9BAUoIeV8IIfH3T2yHdnLpfJP10ndz+T62EzPUS0UnoIh4HneYExP/zhD0t6
WPzPRi9hD/f3D+aa2CsNrd2yMtfCBuY9IdopPYQjIO5i3MO4g/SwnGQ6W/v1
johm6SEcBnEHY6+55hpZunQpHTwI9BDRcukhHAbFLfTZt2+f9Pf3l/wzKIUe
IlouPQRl6GFl6CGi5dJDgGGBHiJaLj0EGBboIaLl0kOAIcOL9Al6GK23xrbQ
mq9/RCxIDwGGhPyeIwmb6PcwPnfYmAit+fpHxIL0EGBIiHvYPzAoHamsNOfW
2epNac7jI9oqPQQYMvznwh27euXHc+pl+s82yvznt+aamAqfD3lfimiX9BBg
yPB7GNznPWN5Yb5FMz1EtFJ6CDCkMA8Y0RHpIcCQQg8RHZEeAgwp9BDREekh
wJBCDxEdkR4CDCn0ENER6SHAkEIPER2RHgIMKfQQ0RHpIcCQUqmHjfQQ0T7p
IcCQ4vfwwuLz+H4PExl6iGib9BBgCPFK76d5utBD7i9FtEx6CDCEeLJjd69M
qFsj1z+wURa+EN1f2kYPEa2THgIMKf58i86ufbKp/SNZszmcb1HzdY+I5dJD
gGEhmAdc6/WOiGbpIcCwQA8RLZceAgwL9BDRcukhwLBADxEtlx4CDAv0ENFy
6SHAsEAPES2XHgIMC/QQ0XLpIcCwQA8RLZceAgwL9BDRcukhwLBADxEtlx4C
DAv0ENFii+4UpocAQws9RLTUaB4pPQQYHoIetmUQ0XLpIcDQ4HleID1EtNf8
DLY2eggw1PRkB6Troz5EtNJ9kX2yf/9grf9zAQAA4Az/H4xA7zI=
    "], {{0, 512.}, {452., 0}}, {0, 255},
    ColorFunction->RGBColor],
   BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
   Selectable->False],
  DefaultBaseStyle->"ImageGraphics",
  ImageSize->{222.1484375, Automatic},
  ImageSizeRaw->{452., 512.},
  PlotRange->{{0, 452.}, {0, 512.}}]], "Input",
 CellID->51696998,ExpressionUUID->"43497570-42ad-4229-ab73-d990c1f30004"],

Cell[TextData[{
 "A function ",
 Cell[BoxData[
  FormBox[
   RowBox[{"f", "(", "t", ")"}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"08c554de-5175-ce47-90ca-418b6df9e084"],
 " has ",
 StyleBox["exponential order ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox["a", TraditionalForm]], "InlineMath",
  FontSlant->"Italic",ExpressionUUID->"b5c7ee9c-8ad7-284b-ab07-eb5bf8cd7350"],
 ", if there exist constants ",
 Cell[BoxData[
  FormBox[
   RowBox[{"A", ">", "0"}], TraditionalForm]], "InlineMath",ExpressionUUID->
  "f1843151-41d7-d543-a4c3-f2dd7e308ee8"],
 " ",
 StyleBox["and ",
  Deletable->True],
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "0"], TraditionalForm]],ExpressionUUID->
  "5101bc17-c987-420a-9269-0ef8d6a50395"],
 StyleBox[" such that ",
  Deletable->True],
 Cell[BoxData[
  FormBox[
   RowBox[{
    TemplateBox[{
      RowBox[{"f", "(", "t", ")"}]},
     "Abs"], "\[LessEqual]", 
    RowBox[{"A", " ", 
     RowBox[{"exp", "(", 
      RowBox[{"a", "*", "t"}], ")"}]}]}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"c4300f5c-362d-5347-8ba3-a58c8ba777fc"],
 StyleBox[" for ",
  Deletable->True],
 Cell[BoxData[
  FormBox[
   RowBox[{"t", "\[GreaterEqual]", 
    SubscriptBox["t", "0"], ">", "0"}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"0e6f921a-2170-3443-b8bc-2f22c7d735ca"],
 "."
}], "Text",
 CellID->1947173437,ExpressionUUID->"d6b6b321-d905-334b-83b7-e029c09c1946"],

Cell[TextData[{
 "If a function ",
 Cell[BoxData[
  FormBox[
   RowBox[{"f", "(", "t", ")"}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"20d37855-a43f-5949-890f-740c2e4113b8"],
 " is piecewise continuous on ",
 Cell[BoxData[
  FormBox[
   RowBox[{"[", 
    RowBox[{"0", ",", 
     RowBox[{"+", "\[Infinity]"}]}], "]"}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"8371e35b-1135-1742-b473-eebfca748411"],
 " and has exponential order ",
 Cell[BoxData[
  FormBox["a", TraditionalForm]], "InlineMath",ExpressionUUID->
  "f6675865-5eb6-a148-9162-c0e1476eb1a1"],
 StyleBox[", then the Laplace transform of ",
  Deletable->True],
 Cell[BoxData[
  FormBox[
   RowBox[{"f", "(", "t", ")"}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"9620437a-1287-184c-a85c-6e9c72ef055f"],
 StyleBox[" exists for ",
  Deletable->True],
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"Re", "(", "s", ")"}], ">", "a"}], TraditionalForm]], 
  "InlineMath",ExpressionUUID->"6f96c93e-75dc-de44-894e-8fb441b69766"],
 "."
}], "Text",
 CellID->1745266758,ExpressionUUID->"7f06b260-f0d1-b447-adc5-6ac6466c13d3"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Formal Properties of the Laplace Transform", "Subsection",
 CellID->1128215511,ExpressionUUID->"f0cf4f90-d1f1-4206-aba2-2b417d53ce32"],

Cell[CellGroupData[{

Cell["Linearity Property", "Subsubsection",
 CellID->1491618635,ExpressionUUID->"2b84b029-8398-4f88-bede-5ec0257043be"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"LaplaceTransform", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"a", " ", 
      RowBox[{"f", "[", "t", "]"}]}], "+", 
     RowBox[{"b", " ", 
      RowBox[{"g", "[", "t", "]"}]}], "+", 
     RowBox[{"c", " ", 
      RowBox[{"h", "[", "t", "]"}]}]}], ",", "t", ",", "s"}], "]"}], 
  " "}]], "Input",
 CellID->208347577,ExpressionUUID->"1bedf8e5-5305-bd49-8b42-73315064b3c4"],

Cell[BoxData[
 RowBox[{
  RowBox[{"a", " ", 
   RowBox[{"LaplaceTransform", "[", 
    RowBox[{
     RowBox[{"f", "[", "t", "]"}], ",", "t", ",", "s"}], "]"}]}], "+", 
  RowBox[{"b", " ", 
   RowBox[{"LaplaceTransform", "[", 
    RowBox[{
     RowBox[{"g", "[", "t", "]"}], ",", "t", ",", "s"}], "]"}]}], "+", 
  RowBox[{"c", " ", 
   RowBox[{"LaplaceTransform", "[", 
    RowBox[{
     RowBox[{"h", "[", "t", "]"}], ",", "t", ",", "s"}], "]"}]}]}]], "Output",
 CellChangeTimes->{3.9442109690462494`*^9},
 CellID->220714115,ExpressionUUID->"e86e54b5-a772-d947-932a-4bde8acf7183"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Scaling Property", "Subsubsection",
 CellID->625541942,ExpressionUUID->"43597b96-0781-4543-af72-ab48da671249"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"LaplaceTransform", "[", 
   RowBox[{
    RowBox[{"f", "[", 
     RowBox[{"a", "*", "t"}], "]"}], ",", "t", ",", "s"}], "]"}], 
  " "}]], "Input",
 CellID->452785952,ExpressionUUID->"cb042907-4dc6-4043-aaf1-0161b2d363ad"],

Cell[BoxData[
 FractionBox[
  RowBox[{"LaplaceTransform", "[", 
   RowBox[{
    RowBox[{"f", "[", "t", "]"}], ",", "t", ",", 
    FractionBox["s", "a"]}], "]"}], "a"]], "Output",
 CellChangeTimes->{3.9442110131334324`*^9},
 CellID->589109881,ExpressionUUID->"6937e1d6-9d65-bb41-8186-999c394f9554"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["First Translation Property", "Subsubsection",
 CellID->1934140842,ExpressionUUID->"57183fc6-64f1-4045-8b3b-065de2d33946"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LaplaceTransform", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Exp", "[", 
     RowBox[{"a", "*", "t"}], "]"}], 
    RowBox[{"f", "[", "t", "]"}]}], ",", "t", ",", "s"}], "]"}]], "Input",
 CellID->320632026,ExpressionUUID->"09f3dd6c-aeac-8b4e-9336-12c1758b823c"],

Cell[BoxData[
 RowBox[{"LaplaceTransform", "[", 
  RowBox[{
   RowBox[{"f", "[", "t", "]"}], ",", "t", ",", 
   RowBox[{
    RowBox[{"-", "a"}], "+", "s"}]}], "]"}]], "Output",
 CellChangeTimes->{3.9442110341572227`*^9},
 CellID->77774038,ExpressionUUID->"dc83c7d7-d1ef-374e-8f44-66bc882e09ae"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Second Translation Property", "Subsubsection",
 CellID->731000619,ExpressionUUID->"1209ee9a-f22a-4af0-9434-08f46b914c6d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"LaplaceTransform", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"UnitStep", "[", 
      RowBox[{"t", "-", "a"}], "]"}], 
     RowBox[{"f", "[", 
      RowBox[{"t", "-", "a"}], "]"}]}], " ", ",", "t", ",", "s", ",", 
    RowBox[{"Assumptions", "->", 
     RowBox[{"a", ">", "0"}]}]}], "]"}], "  "}]], "Input",
 CellID->738173189,ExpressionUUID->"472e5588-3bbe-7c4b-8672-598ae11a2e3a"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{
    RowBox[{"-", "a"}], " ", "s"}]], " ", 
  RowBox[{"LaplaceTransform", "[", 
   RowBox[{
    RowBox[{"f", "[", "t", "]"}], ",", "t", ",", "s"}], "]"}]}]], "Output",
 CellChangeTimes->{3.944211089796135*^9},
 CellID->534361604,ExpressionUUID->"b77f3480-690a-0944-af14-4ee3c13b4f68"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Multiplication by ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["t", "n"], TraditionalForm]], "InlineMath",ExpressionUUID->
  "b41dc922-a086-41f9-abb8-4697179998d7"],
 " Theorem"
}], "Subsubsection",
 CellID->126658827,ExpressionUUID->"5b1dda8b-6e7d-fb4b-91c7-38d04d2bf5c9"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    RowBox[{
     SubscriptBox["\[ScriptCapitalL]", "t"], "[", 
     RowBox[{
      SuperscriptBox["t", "n"], "f", 
      RowBox[{"(", "t", ")"}]}], "]"}], 
    RowBox[{"(", "s", ")"}]}], "\[LongEqual]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"-", "1"}], ")"}], "n"], " ", 
    FractionBox[
     RowBox[{
      SuperscriptBox["\[PartialD]", "n"], 
      RowBox[{"F", "(", "s", ")"}]}], 
     RowBox[{"\[PartialD]", 
      SuperscriptBox["s", "n"]}],
     MultilineFunction->None]}]}], TraditionalForm]], "DisplayFormula",
 CellID->880496898,ExpressionUUID->"603f7f4a-d7bc-c140-a3b4-fdfd66a1d9cd"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Derivative Theorem", "Subsubsection",
 CellID->62272640,ExpressionUUID->"3bbc0fc0-47cb-9a44-853f-d1032fae270f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LaplaceTransform", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"f", "'"}], "[", "t", "]"}], ",", "t", ",", "s"}], "]"}]], "Input",
 CellID->41598704,ExpressionUUID->"380b739b-52e7-d24a-9185-e941712666f2"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   RowBox[{"f", "[", "0", "]"}]}], "+", 
  RowBox[{"s", " ", 
   RowBox[{"LaplaceTransform", "[", 
    RowBox[{
     RowBox[{"f", "[", "t", "]"}], ",", "t", ",", "s"}], "]"}]}]}]], "Output",
 CellChangeTimes->{3.944211162972128*^9},
 CellID->608012830,ExpressionUUID->"a8eca39b-6bd5-674a-8b86-953b93e343e4"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Convolution Theorem", "Subsubsection",
 CellID->41112510,ExpressionUUID->"beeae74e-aae1-d743-8fa1-314b445e535d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LaplaceTransform", "[", 
  RowBox[{
   RowBox[{"UnilateralConvolve", "[", 
    RowBox[{
     RowBox[{"f", "[", "\[Tau]", "]"}], ",", 
     RowBox[{"g", "[", "\[Tau]", "]"}], ",", "\[Tau]", ",", "t"}], "]"}], ",",
    "t", ",", "s"}], "]"}]], "Input",
 CellID->355816256,ExpressionUUID->"d23ff852-e49c-7644-a7f3-bab9631fa01b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"LaplaceTransform", "[", 
   RowBox[{
    RowBox[{"f", "[", "t", "]"}], ",", "t", ",", "s"}], "]"}], " ", 
  RowBox[{"LaplaceTransform", "[", 
   RowBox[{
    RowBox[{"g", "[", "t", "]"}], ",", "t", ",", "s"}], "]"}]}]], "Output",
 CellChangeTimes->{3.9442112038266983`*^9},
 CellID->648539099,ExpressionUUID->"b7d89fa8-c765-4644-9427-a7ea862c4ffb"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Laplace Transform for Simple Functions", "Subsection",
 CellChangeTimes->{
  3.944210894999962*^9, 3.9442109320342503`*^9, {3.944291047779544*^9, 
   3.944291063237255*^9}},
 CellID->156863949,ExpressionUUID->"3b80395c-1616-1d47-9717-0cc49d99f8a9"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"fslist", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"1", ",", 
     SuperscriptBox["t", "n"], ",", 
     RowBox[{"Exp", "[", 
      RowBox[{"a", " ", "t"}], "]"}], ",", 
     RowBox[{"Sin", "[", 
      RowBox[{"a", " ", "t"}], "]"}], ",", 
     RowBox[{"Cos", "[", 
      RowBox[{"a", " ", "t"}], "]"}], ",", 
     RowBox[{"t", " ", 
      RowBox[{"Sin", "[", 
       RowBox[{"a", " ", "t"}], "]"}]}], ",", " ", 
     RowBox[{"Sinh", "[", 
      RowBox[{"a", " ", "t"}], "]"}], ",", " ", 
     InterpretationBox[
      DynamicModuleBox[{Typeset`open = False}, 
       TemplateBox[{"Expression", "SequenceIcon", 
         GridBox[{{
            RowBox[{
              TagBox["\"Head: \"", "IconizedLabel"], "\[InvisibleSpace]", 
              TagBox["Sequence", "IconizedItem"]}]}, {
            RowBox[{
              TagBox["\"Length: \"", "IconizedLabel"], "\[InvisibleSpace]", 
              TagBox["7", "IconizedItem"]}]}, {
            RowBox[{
              TagBox["\"Byte count: \"", "IconizedLabel"], 
              "\[InvisibleSpace]", 
              TagBox["1328", "IconizedItem"]}]}}, 
          GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> 
          "Column", 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
         Dynamic[Typeset`open]},
        "IconizedObject"]],
      Sequence[
       Cosh[$CellContext`a $CellContext`t], 
       Log[$CellContext`t], (2/Sqrt[Pi]) Exp[-$CellContext`t^2], 
       Exp[-Sqrt[$CellContext`t]], 
       Sin[$CellContext`t^2], 
       Sin[
        Sqrt[$CellContext`t]], Sqrt[$CellContext`t] 
       Cos[$CellContext`a Sqrt[$CellContext`t]]],
      SelectWithContents->True,
      Selectable->False]}], "}"}]}], ";", " ", 
  RowBox[{
   RowBox[{"Grid", "[", 
    InterpretationBox[
     DynamicModuleBox[{Typeset`open = False}, 
      TemplateBox[{"Expression", "SequenceIcon", 
        GridBox[{{
           RowBox[{
             TagBox["\"Head: \"", "IconizedLabel"], "\[InvisibleSpace]", 
             TagBox["Sequence", "IconizedItem"]}]}, {
           RowBox[{
             TagBox["\"Length: \"", "IconizedLabel"], "\[InvisibleSpace]", 
             TagBox["6", "IconizedItem"]}]}, {
           RowBox[{
             TagBox["\"Byte count: \"", "IconizedLabel"], "\[InvisibleSpace]", 
             TagBox["2512", "IconizedItem"]}]}}, 
         GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> 
         "Column", 
         GridBoxItemSize -> {
          "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
        Dynamic[Typeset`open]},
       "IconizedObject"]],
     Sequence[
      Join[{{
         $CellContext`f[$CellContext`t], 
         LaplaceTransform[
          $CellContext`f[$CellContext`t], $CellContext`t, $CellContext`s]}}, 
       Transpose[{$CellContext`fslist, 
         Map[Assuming[{$CellContext`a > 0, $CellContext`s > 0}, 
           Simplify[
            
            LaplaceTransform[#, $CellContext`t, $CellContext`s]]]& , \
$CellContext`fslist]}]], Background -> {None, {{None, 
          GrayLevel[0.9]}}, {{1, 1} -> Hue[0.6, 0.4, 1], {1, 2} -> 
         Hue[0.6, 0.4, 1]}}, 
      BaseStyle -> {FontFamily -> Times, FontSize -> 12}, Dividers -> All, 
      FrameStyle -> Hue[0.6, 0.4, 0.8], Spacings -> {2, 1}],
     SelectWithContents->True,
     Selectable->False], "]"}], "//", "TraditionalForm"}]}]], "Input",
 CellChangeTimes->{{3.944291778393381*^9, 3.9442917831018877`*^9}, 
   3.9442920947406335`*^9, {3.954937451714699*^9, 3.954937466834608*^9}},
 CellID->1909483598,ExpressionUUID->"2c623f5f-52a6-2b4b-836b-3ecd67ecc342"],

Cell[BoxData[
 FormBox[
  TagBox[GridBox[{
     {
      RowBox[{"f", "(", "t", ")"}], 
      RowBox[{
       RowBox[{
        SubscriptBox["\[ScriptCapitalL]", "t"], "[", 
        RowBox[{"f", "(", "t", ")"}], "]"}], 
       RowBox[{"(", "s", ")"}]}]},
     {"1", 
      FractionBox["1", "s"]},
     {
      SuperscriptBox["t", "n"], 
      RowBox[{
       SuperscriptBox["s", 
        RowBox[{
         RowBox[{"-", "n"}], "-", "1"}]], " ", 
       TemplateBox[{
         RowBox[{"n", "+", "1"}]},
        "Gamma"]}]},
     {
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"a", " ", "t"}]], 
      FractionBox["1", 
       RowBox[{"s", "-", "a"}]]},
     {
      RowBox[{"sin", "(", 
       RowBox[{"a", " ", "t"}], ")"}], 
      FractionBox["a", 
       RowBox[{
        SuperscriptBox["a", "2"], "+", 
        SuperscriptBox["s", "2"]}]]},
     {
      RowBox[{"cos", "(", 
       RowBox[{"a", " ", "t"}], ")"}], 
      FractionBox["s", 
       RowBox[{
        SuperscriptBox["a", "2"], "+", 
        SuperscriptBox["s", "2"]}]]},
     {
      RowBox[{"t", " ", 
       RowBox[{"sin", "(", 
        RowBox[{"a", " ", "t"}], ")"}]}], 
      FractionBox[
       RowBox[{"2", " ", "a", " ", "s"}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["a", "2"], "+", 
          SuperscriptBox["s", "2"]}], ")"}], "2"]]},
     {
      RowBox[{"sinh", "(", 
       RowBox[{"a", " ", "t"}], ")"}], 
      RowBox[{"-", 
       FractionBox["a", 
        RowBox[{
         SuperscriptBox["a", "2"], "-", 
         SuperscriptBox["s", "2"]}]]}]},
     {
      RowBox[{"cosh", "(", 
       RowBox[{"a", " ", "t"}], ")"}], 
      FractionBox["s", 
       RowBox[{
        SuperscriptBox["s", "2"], "-", 
        SuperscriptBox["a", "2"]}]]},
     {
      RowBox[{"log", "(", "t", ")"}], 
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         RowBox[{"log", "(", "s", ")"}], "+", 
         TagBox["\[DoubledGamma]",
          Function[{}, EulerGamma]]}], "s"]}]},
     {
      FractionBox[
       RowBox[{"2", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"-", 
          SuperscriptBox["t", "2"]}]]}], 
       SqrtBox["\[Pi]"]], 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        FractionBox[
         SuperscriptBox["s", "2"], "4"]], " ", 
       RowBox[{"erfc", "(", 
        FractionBox["s", "2"], ")"}]}]},
     {
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"-", 
        SqrtBox["t"]}]], 
      RowBox[{
       FractionBox["1", "s"], "-", 
       FractionBox[
        RowBox[{
         SqrtBox["\[Pi]"], " ", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           FractionBox["1", "4"], "/", "s"}]], " ", 
         RowBox[{"erfc", "(", 
          FractionBox["1", 
           RowBox[{"2", " ", 
            SqrtBox["s"]}]], ")"}]}], 
        RowBox[{"2", " ", 
         SuperscriptBox["s", 
          RowBox[{"3", "/", "2"}]]}]]}]},
     {
      RowBox[{"sin", "(", 
       SuperscriptBox["t", "2"], ")"}], 
      RowBox[{
       FractionBox["1", "2"], " ", 
       SqrtBox[
        FractionBox["\[Pi]", "2"]], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{"2", " ", 
             TemplateBox[{
               FractionBox["s", 
                SqrtBox[
                 RowBox[{"2", " ", "\[Pi]"}]]]},
              "FresnelC"]}]}], ")"}], " ", 
          RowBox[{"cos", "(", 
           FractionBox[
            SuperscriptBox["s", "2"], "4"], ")"}]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{"2", " ", 
             TemplateBox[{
               FractionBox["s", 
                SqrtBox[
                 RowBox[{"2", " ", "\[Pi]"}]]]},
              "FresnelS"]}]}], ")"}], " ", 
          RowBox[{"sin", "(", 
           FractionBox[
            SuperscriptBox["s", "2"], "4"], ")"}]}]}], ")"}]}]},
     {
      RowBox[{"sin", "(", 
       SqrtBox["t"], ")"}], 
      FractionBox[
       RowBox[{
        SqrtBox["\[Pi]"], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["1", "4"]}], "/", "s"}]]}], 
       RowBox[{"2", " ", 
        SuperscriptBox["s", 
         RowBox[{"3", "/", "2"}]]}]]},
     {
      RowBox[{
       SqrtBox["t"], " ", 
       RowBox[{"cos", "(", 
        RowBox[{"a", " ", 
         SqrtBox["t"]}], ")"}]}], 
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         SqrtBox["\[Pi]"], " ", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"-", 
           FractionBox[
            SuperscriptBox["a", "2"], 
            RowBox[{"4", " ", "s"}]]}]], " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["a", "2"], "-", 
           RowBox[{"2", " ", "s"}]}], ")"}]}], 
        RowBox[{"4", " ", 
         SuperscriptBox["s", 
          RowBox[{"5", "/", "2"}]]}]]}]}
    },
    AutoDelete->False,
    BaseStyle->{FontFamily -> Times, FontSize -> 12},
    FrameStyle->Hue[0.6, 0.4, 0.8],
    GridBoxBackground->{"Columns" -> {{None}}, "Rows" -> {{None, 
         GrayLevel[0.9]}}, 
      "ItemsIndexed" -> {{1, 1} -> Hue[0.6, 0.4, 1], {1, 2} -> 
        Hue[0.6, 0.4, 1]}},
    GridBoxDividers->{"Columns" -> {{True}}, "Rows" -> {{True}}},
    GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
    GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {{1}}}],
   "Grid"], TraditionalForm]], "Output",
 CellChangeTimes->{3.9442917635113106`*^9, 3.9442918181464453`*^9, 
  3.944292111111294*^9},
 CellID->504999809,ExpressionUUID->"654f5e39-91df-c849-bf4c-dc1fa04ddff8"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Laplace Transform for Special Functions", "Subsection",
 CellChangeTimes->{
  3.944210894999962*^9, 3.9442109320342503`*^9, {3.944291047779544*^9, 
   3.944291063237255*^9}, {3.9442918551588182`*^9, 3.944291856156967*^9}},
 CellID->463171287,ExpressionUUID->"83c89495-1601-664d-b30d-8a9baa597c19"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"flist", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      FractionBox["1", 
       RowBox[{"Sqrt", "[", "a", "]"}]], 
      RowBox[{"Erf", "[", 
       RowBox[{"Sqrt", "[", 
        RowBox[{"a", " ", "t"}], "]"}], "]"}]}], " ", ",", 
     RowBox[{"Erf", "[", "t", "]"}], ",", 
     RowBox[{"BesselJ", "[", 
      RowBox[{"n", ",", "t"}], "]"}], ",", 
     RowBox[{"BesselI", "[", 
      RowBox[{"n", ",", "t"}], "]"}], ",", 
     InterpretationBox[
      DynamicModuleBox[{Typeset`open = False}, 
       TemplateBox[{"Expression", "SequenceIcon", 
         GridBox[{{
            RowBox[{
              TagBox["\"Head: \"", "IconizedLabel"], "\[InvisibleSpace]", 
              TagBox["Sequence", "IconizedItem"]}]}, {
            RowBox[{
              TagBox["\"Length: \"", "IconizedLabel"], "\[InvisibleSpace]", 
              TagBox["4", "IconizedItem"]}]}, {
            RowBox[{
              TagBox["\"Byte count: \"", "IconizedLabel"], 
              "\[InvisibleSpace]", 
              TagBox["1184", "IconizedItem"]}]}}, 
          GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> 
          "Column", 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
         Dynamic[Typeset`open]},
        "IconizedObject"]],
      Sequence[
       SinIntegral[$CellContext`t], 
       CosIntegral[$CellContext`t], $CellContext`t^2 
       HypergeometricPFQ[{1, 1}, {3/2, 2}, -($CellContext`t^2/2)], 
       LaguerreL[3/2, $CellContext`t]],
      SelectWithContents->True,
      Selectable->False]}], "}"}]}], ";", 
  RowBox[{
   RowBox[{"Grid", "[", 
    InterpretationBox[
     DynamicModuleBox[{Typeset`open = False}, 
      TemplateBox[{"Expression", "SequenceIcon", 
        GridBox[{{
           RowBox[{
             TagBox["\"Head: \"", "IconizedLabel"], "\[InvisibleSpace]", 
             TagBox["Sequence", "IconizedItem"]}]}, {
           RowBox[{
             TagBox["\"Length: \"", "IconizedLabel"], "\[InvisibleSpace]", 
             TagBox["6", "IconizedItem"]}]}, {
           RowBox[{
             TagBox["\"Byte count: \"", "IconizedLabel"], "\[InvisibleSpace]", 
             TagBox["2512", "IconizedItem"]}]}}, 
         GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> 
         "Column", 
         GridBoxItemSize -> {
          "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
        Dynamic[Typeset`open]},
       "IconizedObject"]],
     Sequence[
      Join[{{
         $CellContext`f[$CellContext`t], 
         LaplaceTransform[
          $CellContext`f[$CellContext`t], $CellContext`t, $CellContext`s]}}, 
       Transpose[{$CellContext`flist, 
         Map[Assuming[{$CellContext`a > 0, $CellContext`s > 0}, 
           Simplify[
            
            LaplaceTransform[#, $CellContext`t, $CellContext`s]]]& , \
$CellContext`flist]}]], Background -> {None, {{None, 
          GrayLevel[0.9]}}, {{1, 1} -> Hue[0.6, 0.4, 1], {1, 2} -> 
         Hue[0.6, 0.4, 1]}}, 
      BaseStyle -> {FontFamily -> Times, FontSize -> 12}, Dividers -> All, 
      FrameStyle -> Hue[0.6, 0.4, 0.8], Spacings -> {2, 1}],
     SelectWithContents->True,
     Selectable->False], "]"}], "//", "TraditionalForm"}]}]], "Input",
 CellChangeTimes->{{3.944291778393381*^9, 3.9442917831018877`*^9}, {
   3.9442920181847258`*^9, 3.9442920229131093`*^9}, 3.9442921172934985`*^9, 
   3.954937496198498*^9, {3.9549393700133953`*^9, 3.9549394555622025`*^9}, {
   3.9549395025208836`*^9, 3.9549395094402313`*^9}, 3.9549396159515343`*^9},
 CellID->43322796,ExpressionUUID->"61274ea5-2dc4-424e-9c73-849790c59903"],

Cell[BoxData[
 FormBox[
  TagBox[GridBox[{
     {
      RowBox[{"f", "(", "t", ")"}], 
      RowBox[{
       RowBox[{
        SubscriptBox["\[ScriptCapitalL]", "t"], "[", 
        RowBox[{"f", "(", "t", ")"}], "]"}], 
       RowBox[{"(", "s", ")"}]}]},
     {
      FractionBox[
       RowBox[{"erf", "(", 
        SqrtBox[
         RowBox[{"a", " ", "t"}]], ")"}], 
       SqrtBox["a"]], 
      FractionBox["1", 
       RowBox[{"s", " ", 
        SqrtBox[
         RowBox[{"a", "+", "s"}]]}]]},
     {
      RowBox[{"erf", "(", "t", ")"}], 
      FractionBox[
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         FractionBox[
          SuperscriptBox["s", "2"], "4"]], " ", 
        RowBox[{"erfc", "(", 
         FractionBox["s", "2"], ")"}]}], "s"]},
     {
      TemplateBox[{"n", "t"},
       "BesselJ"], 
      FractionBox[
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          SqrtBox[
           RowBox[{
            SuperscriptBox["s", "2"], "+", "1"}]], "+", "s"}], ")"}], 
        RowBox[{"-", "n"}]], 
       SqrtBox[
        RowBox[{
         SuperscriptBox["s", "2"], "+", "1"}]]]},
     {
      TemplateBox[{"n", "t"},
       "BesselI"], 
      FractionBox[
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          SqrtBox[
           RowBox[{
            SuperscriptBox["s", "2"], "-", "1"}]], "+", "s"}], ")"}], 
        RowBox[{"-", "n"}]], 
       SqrtBox[
        RowBox[{
         SuperscriptBox["s", "2"], "-", "1"}]]]},
     {
      TemplateBox[{"t"},
       "SinIntegral"], 
      FractionBox[
       RowBox[{
        SuperscriptBox["cot", 
         RowBox[{"-", "1"}]], "(", "s", ")"}], "s"]},
     {
      TemplateBox[{"t"},
       "CosIntegral"], 
      RowBox[{"-", 
       FractionBox[
        RowBox[{"log", "(", 
         RowBox[{
          SuperscriptBox["s", "2"], "+", "1"}], ")"}], 
        RowBox[{"2", " ", "s"}]]}]},
     {
      RowBox[{
       SuperscriptBox["t", "2"], " ", 
       TagBox[
        TagBox[
         RowBox[{
          RowBox[{
           SubscriptBox["\[InvisiblePrefixScriptBase]", "2"], 
           SubscriptBox["F", "2"]}], "\[InvisibleApplication]", 
          RowBox[{"(", 
           RowBox[{
            TagBox[
             TagBox[
              RowBox[{
               TagBox["1",
                HypergeometricPFQ,
                Editable->True,
                Selectable->True], ",", 
               TagBox["1",
                HypergeometricPFQ,
                Editable->True,
                Selectable->True]}],
              InterpretTemplate[{
                SlotSequence[1]}& ]],
             HypergeometricPFQ,
             Editable->False,
             Selectable->False], ";", 
            TagBox[
             TagBox[
              RowBox[{
               TagBox[
                FractionBox["3", "2"],
                HypergeometricPFQ,
                Editable->True,
                Selectable->True], ",", 
               TagBox["2",
                HypergeometricPFQ,
                Editable->True,
                Selectable->True]}],
              InterpretTemplate[{
                SlotSequence[1]}& ]],
             HypergeometricPFQ,
             Editable->False,
             Selectable->False], ";", 
            TagBox[
             RowBox[{"-", 
              FractionBox[
               SuperscriptBox["t", "2"], "2"]}],
             HypergeometricPFQ,
             Editable->True,
             Selectable->True]}], ")"}]}],
         InterpretTemplate[HypergeometricPFQ[#, #2, #3]& ],
         Editable->False,
         Selectable->False],
        HypergeometricPFQ]}], 
      FractionBox[
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         FractionBox[
          SuperscriptBox["s", "2"], "2"]], " ", 
        TemplateBox[{"0", 
          FractionBox[
           SuperscriptBox["s", "2"], "2"]},
         "Gamma2"]}], "s"]},
     {
      TemplateBox[{
        FractionBox["3", "2"], "t"},
       "LaguerreL"], 
      FractionBox[
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"s", "-", "1"}], ")"}], 
        RowBox[{"3", "/", "2"}]], 
       SuperscriptBox["s", 
        RowBox[{"5", "/", "2"}]]]}
    },
    AutoDelete->False,
    BaseStyle->{FontFamily -> Times, FontSize -> 12},
    FrameStyle->Hue[0.6, 0.4, 0.8],
    GridBoxBackground->{"Columns" -> {{None}}, "Rows" -> {{None, 
         GrayLevel[0.9]}}, 
      "ItemsIndexed" -> {{1, 1} -> Hue[0.6, 0.4, 1], {1, 2} -> 
        Hue[0.6, 0.4, 1]}},
    GridBoxDividers->{"Columns" -> {{True}}, "Rows" -> {{True}}},
    GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
    GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {{1}}}],
   "Grid"], TraditionalForm]], "Output",
 CellChangeTimes->{3.944292038292574*^9, 3.944292156442787*^9, 
  3.954939560941374*^9, 3.9549396355225983`*^9},
 CellID->757674147,ExpressionUUID->"5427ac58-d47f-3f42-bbd4-0f28baf0a7ab"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Laplace Transform for Piecewise Continuous Functions and Distributions\
\>", "Subsection",
 CellChangeTimes->{
  3.944210894999962*^9, 3.9442109320342503`*^9, {3.944291047779544*^9, 
   3.944291063237255*^9}, {3.9442918551588182`*^9, 3.944291856156967*^9}, {
   3.944292372723883*^9, 3.9442923840382967`*^9}},
 CellID->343752827,ExpressionUUID->"80f076ba-c175-7d4f-90e2-afdfe091027f"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"fpdlist", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"UnitStep", "[", 
      RowBox[{"t", "-", "1"}], "]"}], ",", 
     RowBox[{"DiracDelta", "[", 
      RowBox[{"t", "-", "a"}], "]"}], ",", 
     RowBox[{"UnitTriangle", "[", 
      RowBox[{"t", "-", "2"}], "]"}], ",", 
     InterpretationBox[
      DynamicModuleBox[{Typeset`open = False}, 
       TemplateBox[{"Expression", "SequenceIcon", 
         GridBox[{{
            RowBox[{
              TagBox["\"Head: \"", "IconizedLabel"], "\[InvisibleSpace]", 
              TagBox["Sequence", "IconizedItem"]}]}, {
            RowBox[{
              TagBox["\"Length: \"", "IconizedLabel"], "\[InvisibleSpace]", 
              TagBox["9", "IconizedItem"]}]}, {
            RowBox[{
              TagBox["\"Byte count: \"", "IconizedLabel"], 
              "\[InvisibleSpace]", 
              TagBox["2048", "IconizedItem"]}]}}, 
          GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> 
          "Column", 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
         Dynamic[Typeset`open]},
        "IconizedObject"]],
      Sequence[
       Piecewise[{{
          Cos[5 $CellContext`t], $CellContext`t < Pi}, {
         10 Exp[-$CellContext`t], $CellContext`t > Pi}}], 
       Piecewise[{{
         1, $CellContext`t < 4}, {$CellContext`t^2, $CellContext`t > 4}}], 
       Floor[$CellContext`t], 
       UnitBox[$CellContext`t - 1], 
       HeavisideLambda[$CellContext`t], 
       Derivative[1][DiracDelta][$CellContext`t], 
       HeavisideTheta[$CellContext`t - 1], 
       HeavisidePi[$CellContext`t - 2], 
       Derivative[1][HeavisidePi][$CellContext`t - 1]],
      SelectWithContents->True,
      Selectable->False]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Grid", "[", 
   InterpretationBox[
    DynamicModuleBox[{Typeset`open = False}, 
     TemplateBox[{"Expression", "SequenceIcon", 
       GridBox[{{
          RowBox[{
            TagBox["\"Head: \"", "IconizedLabel"], "\[InvisibleSpace]", 
            TagBox["Sequence", "IconizedItem"]}]}, {
          RowBox[{
            TagBox["\"Length: \"", "IconizedLabel"], "\[InvisibleSpace]", 
            TagBox["6", "IconizedItem"]}]}, {
          RowBox[{
            TagBox["\"Byte count: \"", "IconizedLabel"], "\[InvisibleSpace]", 
            TagBox["2512", "IconizedItem"]}]}}, 
        GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> 
        "Column", 
        GridBoxItemSize -> {
         "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
       Dynamic[Typeset`open]},
      "IconizedObject"]],
    Sequence[
     Join[{{
        $CellContext`f[$CellContext`t], 
        LaplaceTransform[
         $CellContext`f[$CellContext`t], $CellContext`t, $CellContext`s]}}, 
      Transpose[{$CellContext`fpdlist, 
        Map[Assuming[{$CellContext`a > 0, $CellContext`s > 0}, 
          Simplify[
           
           LaplaceTransform[#, $CellContext`t, $CellContext`s]]]& , \
$CellContext`fpdlist]}]], Background -> {None, {{None, 
         GrayLevel[0.9]}}, {{1, 1} -> Hue[0.6, 0.4, 1], {1, 2} -> 
        Hue[0.6, 0.4, 1]}}, 
     BaseStyle -> {FontFamily -> Times, FontSize -> 12}, Dividers -> All, 
     FrameStyle -> Hue[0.6, 0.4, 0.8], Spacings -> {2, 1}],
    SelectWithContents->True,
    Selectable->False], "]"}], "//", "TraditionalForm"}]}], "Input",
 CellChangeTimes->{{3.944291127127084*^9, 3.9442911787023463`*^9}, 
   3.944291709922058*^9, {3.944292155083664*^9, 3.9442921718188763`*^9}, {
   3.944292213762116*^9, 3.9442922544212265`*^9}, {3.9442923109200397`*^9, 
   3.9442923316141353`*^9}, 3.944292399645687*^9, {3.954937543259716*^9, 
   3.954937554173811*^9}},
 CellID->404575692,ExpressionUUID->"662a6f03-995e-0e42-9887-8a7e0e3e3600"],

Cell[BoxData[
 FormBox[
  TagBox[GridBox[{
     {
      RowBox[{"f", "(", "t", ")"}], 
      RowBox[{
       RowBox[{
        SubscriptBox["\[ScriptCapitalL]", "t"], "[", 
        RowBox[{"f", "(", "t", ")"}], "]"}], 
       RowBox[{"(", "s", ")"}]}]},
     {
      TemplateBox[{
        RowBox[{
          RowBox[{"t", "-", "1"}]}]},
       "UnitStepSeq"], 
      FractionBox[
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"-", "s"}]], "s"]},
     {
      TemplateBox[{
        RowBox[{
          RowBox[{"t", "-", "a"}]}]},
       "DiracDeltaSeq"], 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"-", "a"}], " ", "s"}]]},
     {
      TemplateBox[{
        RowBox[{
          RowBox[{"2", "-", "t"}]}]},
       "UnitTriangleSeq"], 
      FractionBox[
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "3"}], " ", "s"}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["\[ExponentialE]", "s"], "-", "1"}], ")"}], "2"]}], 
       SuperscriptBox["s", "2"]]},
     {
      TagBox[GridBox[{
         {"\[Piecewise]", GridBox[{
            {
             RowBox[{"cos", "(", 
              RowBox[{"5", " ", "t"}], ")"}], 
             RowBox[{"t", "<", "\[Pi]"}]},
            {
             RowBox[{"10", " ", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"-", "t"}]]}], 
             RowBox[{"t", ">", "\[Pi]"}]}
           },
           AllowedDimensions->{2, Automatic},
           Editable->True,
           GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
           GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.84]}, 
               Offset[0.27999999999999997`]}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}},
           Selectable->True]}
        },
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.35]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}],
       "Piecewise",
       DeleteWithContents->True,
       Editable->False,
       SelectWithContents->True,
       Selectable->False,
       StripWrapperBoxes->True], 
      RowBox[{
       FractionBox[
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", "\[Pi]"}], " ", "s"}]], " ", "s"}], 
        RowBox[{
         SuperscriptBox["s", "2"], "+", "25"}]], "+", 
       FractionBox["s", 
        RowBox[{
         SuperscriptBox["s", "2"], "+", "25"}]], "+", 
       FractionBox[
        RowBox[{"10", " ", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", "\[Pi]"}], " ", 
           RowBox[{"(", 
            RowBox[{"s", "+", "1"}], ")"}]}]]}], 
        RowBox[{"s", "+", "1"}]]}]},
     {
      TagBox[GridBox[{
         {"\[Piecewise]", GridBox[{
            {"1", 
             RowBox[{"t", "<", "4"}]},
            {
             SuperscriptBox["t", "2"], 
             RowBox[{"t", ">", "4"}]}
           },
           AllowedDimensions->{2, Automatic},
           Editable->True,
           GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
           GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.84]}, 
               Offset[0.27999999999999997`]}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}},
           Selectable->True]}
        },
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.35]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}],
       "Piecewise",
       DeleteWithContents->True,
       Editable->False,
       SelectWithContents->True,
       Selectable->False,
       StripWrapperBoxes->True], 
      FractionBox[
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "4"}], " ", "s"}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"4", " ", "s"}]], "+", "15"}], ")"}], " ", 
           SuperscriptBox["s", "2"]}], "+", 
          RowBox[{"8", " ", "s"}], "+", "2"}], ")"}]}], 
       SuperscriptBox["s", "3"]]},
     {
      TemplateBox[{"t"},
       "Floor"], 
      FractionBox["1", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["\[ExponentialE]", "s"], "-", "1"}], ")"}], " ", 
        "s"}]]},
     {
      TemplateBox[{
        RowBox[{
          RowBox[{"1", "-", "t"}]}]},
       "UnitBoxSeq"], 
      FractionBox[
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "3"}], " ", "s"}], "/", "2"}]], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["\[ExponentialE]", "s"], "-", "1"}], ")"}]}], "s"]},
     {
      TemplateBox[{
        RowBox[{"t"}]},
       "HeavisideLambdaSeq"], 
      FractionBox[
       RowBox[{"s", "+", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"-", "s"}]], "-", "1"}], 
       SuperscriptBox["s", "2"]]},
     {
      RowBox[{
       SuperscriptBox[
        InterpretationBox["\[Delta]",
         DiracDelta,
         Editable->False,
         Selectable->False], "\[Prime]",
        MultilineFunction->None], "(", "t", ")"}], "s"},
     {
      TemplateBox[{
        RowBox[{
          RowBox[{"t", "-", "1"}]}]},
       "HeavisideThetaSeq"], 
      FractionBox[
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"-", "s"}]], "s"]},
     {
      TemplateBox[{
        RowBox[{
          RowBox[{"2", "-", "t"}]}]},
       "HeavisidePiSeq"], 
      FractionBox[
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "5"}], " ", "s"}], "/", "2"}]], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["\[ExponentialE]", "s"], "-", "1"}], ")"}]}], "s"]},
     {
      RowBox[{
       RowBox[{"2", " ", 
        TemplateBox[{
          RowBox[{
            RowBox[{
              RowBox[{"2", " ", 
                RowBox[{"(", 
                  RowBox[{"t", "-", "1"}], ")"}]}], "+", "1"}]}]},
         "DiracDeltaSeq"]}], "-", 
       RowBox[{"2", " ", 
        TemplateBox[{
          RowBox[{
            RowBox[{
              RowBox[{"2", " ", 
                RowBox[{"(", 
                  RowBox[{"t", "-", "1"}], ")"}]}], "-", "1"}]}]},
         "DiracDeltaSeq"]}]}], 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "3"}], " ", "s"}], "/", "2"}]], " ", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["\[ExponentialE]", "s"], "-", "1"}], ")"}]}]}
    },
    AutoDelete->False,
    BaseStyle->{FontFamily -> Times, FontSize -> 12},
    FrameStyle->Hue[0.6, 0.4, 0.8],
    GridBoxBackground->{"Columns" -> {{None}}, "Rows" -> {{None, 
         GrayLevel[0.9]}}, 
      "ItemsIndexed" -> {{1, 1} -> Hue[0.6, 0.4, 1], {1, 2} -> 
        Hue[0.6, 0.4, 1]}},
    GridBoxDividers->{"Columns" -> {{True}}, "Rows" -> {{True}}},
    GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
    GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {{1}}}],
   "Grid"], TraditionalForm]], "Output",
 CellChangeTimes->{3.9442923907104573`*^9, 3.9442924447608747`*^9},
 CellID->16853296,ExpressionUUID->"947010f6-50de-9b43-97d0-36197683fd39"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Laplace Transform for Periodic Functions", "Subsection",
 CellChangeTimes->{
  3.944210894999962*^9, 3.9442109320342503`*^9, {3.944291047779544*^9, 
   3.944291063237255*^9}, {3.9442918551588182`*^9, 3.944291856156967*^9}, {
   3.944292372723883*^9, 3.9442923840382967`*^9}, {3.954938633717165*^9, 
   3.954938644495346*^9}},
 CellID->12650102,ExpressionUUID->"2a62fd1e-e25b-c247-86c4-9682034a7bf6"],

Cell[TextData[{
 "The Laplace transform of the period ",
 Cell[BoxData[
  FormBox["T", TraditionalForm]], "InlineMath",ExpressionUUID->
  "1b80f80f-bc79-a44e-a452-558ba91c338e"],
 " function",
 Cell[BoxData[
  FormBox[
   RowBox[{" ", 
    RowBox[{"f", "(", "t", ")"}]}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"0811ea7b-80a3-e743-ad54-e228c0fd3069"],
 " is ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     SubscriptBox["F", "1"], "(", "s", ")"}], "*", 
    FractionBox[
     SuperscriptBox["e", 
      RowBox[{"s", " ", "T"}]], 
     RowBox[{
      SuperscriptBox["e", 
       RowBox[{"s", " ", "T"}]], "-", "1"}]]}], TraditionalForm]], 
  "InlineMath",ExpressionUUID->"384bb3c5-673b-2b40-b5a1-1f9b6693a825"],
 ", with:"
}], "Text",
 CellID->1999697248,ExpressionUUID->"595b00d0-b709-1c4b-ad91-6d6dc11482bc"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    SubscriptBox["F", "1"], 
    RowBox[{"(", "s", ")"}]}], "\[LongEqual]", 
   RowBox[{
    SubsuperscriptBox["\[Integral]", "0", "T"], 
    RowBox[{"f", 
     RowBox[{"(", "t", ")"}], " ", 
     SuperscriptBox["e", 
      RowBox[{
       RowBox[{"-", "s"}], " ", "t"}]], 
     RowBox[{"\[DifferentialD]", "t"}]}]}]}], 
  TraditionalForm]], "DisplayFormulaNumbered",
 CellChangeTimes->{{3.880684719189197*^9, 3.8806847823413353`*^9}, {
   3.880684816029166*^9, 3.880684894521698*^9}, {3.8806849313802433`*^9, 
   3.8806849337561703`*^9}, {3.880684991966292*^9, 3.880684993909107*^9}, {
   3.8806850635927143`*^9, 3.880685094496882*^9}, {3.8806851383671207`*^9, 
   3.880685247520236*^9}, {3.880685278002532*^9, 3.880685281346251*^9}, {
   3.8806853169351463`*^9, 3.880685373458425*^9}, {3.880685438023315*^9, 
   3.8806854711949863`*^9}, {3.88068550747544*^9, 3.880685558882983*^9}, {
   3.880686361021059*^9, 3.880686398505927*^9}, {3.880686482087763*^9, 
   3.880686494743299*^9}, {3.880686529582061*^9, 3.880686539365699*^9}, 
   3.880686580885959*^9, {3.880686771444587*^9, 3.880686996810794*^9}, {
   3.880688015524392*^9, 3.880688019196464*^9}, {3.880688366190011*^9, 
   3.880688375833396*^9}, {3.881316861889119*^9, 3.881317004934303*^9}, {
   3.881317353446586*^9, 3.881317355692479*^9}, {3.8813174622547083`*^9, 
   3.881317466122601*^9}, {3.91604625766652*^9, 3.9160462727498198`*^9}, {
   3.916048193853053*^9, 3.916048205184654*^9}, {3.9455188475749874`*^9, 
   3.9455188619293575`*^9}},
 CellTags->"F1",
 CellID->4891831,ExpressionUUID->"7d55cb3e-9d5f-d942-9baa-37eef681b6a2"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"fplist", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"SquareWave", "[", "t", "]"}], ",", 
     RowBox[{"Abs", "[", 
      RowBox[{"Sin", "[", "t", "]"}], "]"}], ",", 
     InterpretationBox[
      DynamicModuleBox[{Typeset`open = False}, 
       TemplateBox[{"Expression", "SequenceIcon", 
         GridBox[{{
            RowBox[{
              TagBox["\"Head: \"", "IconizedLabel"], "\[InvisibleSpace]", 
              TagBox["Sequence", "IconizedItem"]}]}, {
            RowBox[{
              TagBox["\"Length: \"", "IconizedLabel"], "\[InvisibleSpace]", 
              TagBox["5", "IconizedItem"]}]}, {
            RowBox[{
              TagBox["\"Byte count: \"", "IconizedLabel"], 
              "\[InvisibleSpace]", 
              TagBox["2112", "IconizedItem"]}]}}, 
          GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> 
          "Column", 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
         Dynamic[Typeset`open]},
        "IconizedObject"]],
      Sequence[(TriangleWave[$CellContext`t - 1/4] + 1)/2, 
       SawtoothWave[$CellContext`t], ($CellContext`t - 2 
        Floor[$CellContext`t/2])^2, 
       Piecewise[{{
          Sin[$CellContext`t], 0 < Mod[$CellContext`t/Pi, 2] < 1}}], 
       Piecewise[{{$CellContext`t - Floor[$CellContext`t], 
          Mod[$CellContext`t, 2] < 1}}]],
      SelectWithContents->True,
      Selectable->False]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Grid", "[", 
   InterpretationBox[
    DynamicModuleBox[{Typeset`open = False}, 
     TemplateBox[{"Expression", "SequenceIcon", 
       GridBox[{{
          RowBox[{
            TagBox["\"Head: \"", "IconizedLabel"], "\[InvisibleSpace]", 
            TagBox["Sequence", "IconizedItem"]}]}, {
          RowBox[{
            TagBox["\"Length: \"", "IconizedLabel"], "\[InvisibleSpace]", 
            TagBox["6", "IconizedItem"]}]}, {
          RowBox[{
            TagBox["\"Byte count: \"", "IconizedLabel"], "\[InvisibleSpace]", 
            TagBox["2512", "IconizedItem"]}]}}, 
        GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> 
        "Column", 
        GridBoxItemSize -> {
         "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
       Dynamic[Typeset`open]},
      "IconizedObject"]],
    Sequence[
     Join[{{
        $CellContext`f[$CellContext`t], 
        LaplaceTransform[
         $CellContext`f[$CellContext`t], $CellContext`t, $CellContext`s]}}, 
      Transpose[{$CellContext`fplist, 
        Map[Assuming[{$CellContext`a > 0, $CellContext`s > 0}, 
          Simplify[
           
           LaplaceTransform[#, $CellContext`t, $CellContext`s]]]& , \
$CellContext`fplist]}]], Background -> {None, {{None, 
         GrayLevel[0.9]}}, {{1, 1} -> Hue[0.6, 0.4, 1], {1, 2} -> 
        Hue[0.6, 0.4, 1]}}, 
     BaseStyle -> {FontFamily -> Times, FontSize -> 12}, Dividers -> All, 
     FrameStyle -> Hue[0.6, 0.4, 0.8], Spacings -> {2, 1}],
    SelectWithContents->True,
    Selectable->False], "]"}], "//", "TraditionalForm"}]}], "Input",
 CellChangeTimes->{{3.944291127127084*^9, 3.9442911787023463`*^9}, 
   3.944291709922058*^9, {3.944292155083664*^9, 3.9442921718188763`*^9}, {
   3.944292213762116*^9, 3.9442922544212265`*^9}, {3.9442923109200397`*^9, 
   3.9442923316141353`*^9}, 3.944292399645687*^9, {3.954937543259716*^9, 
   3.954937554173811*^9}, {3.9549388523622932`*^9, 3.954938882912201*^9}, {
   3.9549389195142136`*^9, 3.954938963810131*^9}, {3.9549390041815243`*^9, 
   3.9549391864970856`*^9}},
 CellID->345414903,ExpressionUUID->"5057125b-c9c4-bd4c-8b8c-a3f95c0081f1"],

Cell[BoxData[
 FormBox[
  TagBox[GridBox[{
     {
      RowBox[{"f", "(", "t", ")"}], 
      RowBox[{
       RowBox[{
        SubscriptBox["\[ScriptCapitalL]", "t"], "[", 
        RowBox[{"f", "(", "t", ")"}], "]"}], 
       RowBox[{"(", "s", ")"}]}]},
     {
      RowBox[{"SquareWave", "[", "t", "]"}], 
      FractionBox[
       RowBox[{"tanh", "(", 
        FractionBox["s", "4"], ")"}], "s"]},
     {
      TemplateBox[{
        RowBox[{"sin", "(", "t", ")"}]},
       "Abs"], 
      FractionBox[
       RowBox[{"coth", "(", 
        FractionBox[
         RowBox[{"\[Pi]", " ", "s"}], "2"], ")"}], 
       RowBox[{
        SuperscriptBox["s", "2"], "+", "1"}]]},
     {
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"TriangleWave", "[", 
          RowBox[{"t", "+", 
           FractionBox["3", "4"]}], "]"}], "+", "1"}], ")"}]}], 
      FractionBox[
       RowBox[{"2", " ", 
        RowBox[{"tanh", "(", 
         FractionBox["s", "4"], ")"}]}], 
       SuperscriptBox["s", "2"]]},
     {
      RowBox[{"SawtoothWave", "[", "t", "]"}], 
      FractionBox[
       RowBox[{"s", "+", 
        RowBox[{"s", " ", 
         RowBox[{"(", 
          RowBox[{"-", 
           RowBox[{"coth", "(", 
            FractionBox["s", "2"], ")"}]}], ")"}]}], "+", "2"}], 
       RowBox[{"2", " ", 
        SuperscriptBox["s", "2"]}]]},
     {
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"t", "-", 
         RowBox[{"2", " ", 
          TemplateBox[{
            FractionBox["t", "2"]},
           "Floor"]}]}], ")"}], "2"], 
      FractionBox[
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          FractionBox[
           RowBox[{"2", " ", "s", " ", 
            RowBox[{"(", 
             RowBox[{"s", "+", "1"}], ")"}]}], 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", "s"}]], "-", "1"}]]}], ")"}]}], 
       SuperscriptBox["s", "3"]]},
     {
      TagBox[GridBox[{
         {"\[Piecewise]", GridBox[{
            {
             RowBox[{"sin", "(", "t", ")"}], 
             RowBox[{"0", "<", 
              TemplateBox[{
                FractionBox["t", "\[Pi]"], "2"},
               "Mod"], "<", "1"}]},
            {"0", 
             TagBox["True",
              "PiecewiseDefault",
              AutoDelete->True]}
           },
           AllowedDimensions->{2, Automatic},
           Editable->True,
           GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
           GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.84]}, 
               Offset[0.27999999999999997`]}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}},
           Selectable->True]}
        },
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.35]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}],
       "Piecewise",
       DeleteWithContents->True,
       Editable->False,
       SelectWithContents->True,
       Selectable->False,
       StripWrapperBoxes->True], 
      FractionBox["1", 
       RowBox[{
        SuperscriptBox["s", "2"], "-", 
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", "\[Pi]"}], " ", "s"}]], " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["s", "2"], "+", "1"}], ")"}]}], "+", "1"}]]},
     {
      TagBox[GridBox[{
         {"\[Piecewise]", GridBox[{
            {
             RowBox[{"t", "-", 
              TemplateBox[{"t"},
               "Floor"]}], 
             RowBox[{
              TemplateBox[{"t", "2"},
               "Mod"], "<", "1"}]},
            {"0", 
             TagBox["True",
              "PiecewiseDefault",
              AutoDelete->True]}
           },
           AllowedDimensions->{2, Automatic},
           Editable->True,
           GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
           GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.84]}, 
               Offset[0.27999999999999997`]}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}},
           Selectable->True]}
        },
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.35]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}],
       "Piecewise",
       DeleteWithContents->True,
       Editable->False,
       SelectWithContents->True,
       Selectable->False,
       StripWrapperBoxes->True], 
      FractionBox[
       RowBox[{
        SuperscriptBox["\[ExponentialE]", "s"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "s"}], "+", 
          SuperscriptBox["\[ExponentialE]", "s"], "-", "1"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"coth", "(", "s", ")"}], "-", "1"}], ")"}]}], 
       RowBox[{"2", " ", 
        SuperscriptBox["s", "2"]}]]}
    },
    AutoDelete->False,
    BaseStyle->{FontFamily -> Times, FontSize -> 12},
    FrameStyle->Hue[0.6, 0.4, 0.8],
    GridBoxBackground->{"Columns" -> {{None}}, "Rows" -> {{None, 
         GrayLevel[0.9]}}, 
      "ItemsIndexed" -> {{1, 1} -> Hue[0.6, 0.4, 1], {1, 2} -> 
        Hue[0.6, 0.4, 1]}},
    GridBoxDividers->{"Columns" -> {{True}}, "Rows" -> {{True}}},
    GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
    GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {{1}}}],
   "Grid"], TraditionalForm]], "Output",
 CellChangeTimes->{3.9442923907104573`*^9, 3.9442924447608747`*^9, 
  3.9549391324200153`*^9, 3.9549391898124733`*^9},
 CellID->116494393,ExpressionUUID->"3c0c2078-c6b6-8648-afe5-081a15a2d5e5"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Inverse Laplace Transform", "Subsection",
 CellChangeTimes->{
  3.944210894999962*^9, 3.9442109320342503`*^9, {3.944291047779544*^9, 
   3.944291063237255*^9}, {3.9442918551588182`*^9, 3.944291856156967*^9}, {
   3.944292372723883*^9, 3.9442923840382967`*^9}, {3.9442925960839443`*^9, 
   3.9442926042389402`*^9}},
 CellID->221227066,ExpressionUUID->"ffd265e2-0f0f-3643-964f-b3a98f3ebfcd"],

Cell[TextData[{
 StyleBox["Suppose ",
  Deletable->True],
 Cell[BoxData[
  FormBox[
   RowBox[{"F", "(", "s", ")"}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"b14671fe-85a8-8144-8c83-b4c9a36cfcaf"],
 StyleBox[" is the Laplace transform of the function ",
  Deletable->True],
 Cell[BoxData[
  FormBox[
   RowBox[{"f", "(", "t", ")"}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"fa7ead6a-0368-db4d-9f2a-0f1c7661df80"],
 StyleBox["; then ",
  Deletable->True],
 Cell[BoxData[
  FormBox[
   RowBox[{"f", "(", "t", ")"}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"61408425-6634-e74a-9264-abfd690e12ea"],
 StyleBox[" is referred to as the ",
  Deletable->True],
 StyleBox["inverse Laplace transform",
  Deletable->True,
  FontSlant->"Italic"],
 StyleBox[" of the function ",
  Deletable->True],
 Cell[BoxData[
  FormBox[
   RowBox[{"F", "(", "s", ")"}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"7a2f521e-23a2-f242-aa7a-4369108a6f7f"],
 StyleBox[". ",
  Deletable->True]
}], "Text",
 CellChangeTimes->{{3.9442926823329906`*^9, 3.9442926923119674`*^9}, {
  3.944292763817692*^9, 3.944292766179465*^9}},
 CellID->603521634,ExpressionUUID->"829d820d-5e25-9e45-9f9d-fb96d53ba74a"],

Cell["\<\
The complex inversion formula, or the Fourier\[Dash]Mellin\[Dash]Bromwich \
(FMB) integral, states that:\
\>", "Text",
 CellID->660201534,ExpressionUUID->"5674f967-74f3-3a49-8f67-d759f89be985"],

Cell[TextData[{
 StyleBox["If the function ",
  Deletable->True],
 Cell[BoxData[
  FormBox[
   RowBox[{"F", "(", "s", ")"}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"21cf15a7-d6b4-ad4b-b825-7fc314b0a46b"],
 StyleBox[" is analytic in the right half-plane ",
  Deletable->True],
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"Re", "(", "s", ")"}], ">", "a"}], TraditionalForm]], 
  "InlineMath",ExpressionUUID->"b4db4905-546a-084b-903a-37bb26432793"],
 StyleBox[", then:",
  Deletable->True]
}], "Text",
 CellID->1108862,ExpressionUUID->"f1d287a7-2bef-6b48-85fc-a10ce4785e83"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"f", "(", "t", ")"}], "\[LongEqual]", 
   RowBox[{
    FractionBox["1", 
     RowBox[{"2", " ", "\[Pi]", " ", "\[ImaginaryI]", " "}]], 
    RowBox[{
     SubsuperscriptBox["\[Integral]", 
      RowBox[{"c", "-", 
       RowBox[{"\[ImaginaryI]", " ", "\[Infinity]"}]}], 
      RowBox[{"\[ThinSpace]", 
       RowBox[{"c", "+", 
        RowBox[{"\[ImaginaryI]", " ", "\[Infinity]"}]}]}]], 
     RowBox[{
      RowBox[{"exp", "(", 
       RowBox[{"t", "*", "s"}], ")"}], 
      RowBox[{"F", "(", "s", ")"}], " ", 
      RowBox[{"\[DifferentialD]", "s", " "}]}]}]}]}], 
  TraditionalForm]], "DisplayFormulaNumbered",
 CellID->398634198,ExpressionUUID->"4dbfc4a7-1020-aa49-9090-6650c48709f2"],

Cell["\<\
The vertical line along which the integration is performed is known as the \
Bromwich line.\
\>", "Text",
 CellID->9322346,ExpressionUUID->"9e0b43fc-fe53-1048-a897-40be2afce1c5"],

Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJzsnQdgZFd1/m1s0wzEf4caEgwBk5gaQichNFMSIPQSAyEUk5CAjQ0hBBKa
QyDYYHvXW9U16r333utqVVe99y6tVl1z/u/cmff05mkkzZOmvDfz/ey7KjOS
3p1yvnvuueecV3z9wU9/62k33XTT958p/fPpr/3H+x5++Gv/+Zk7pC8+98D3
v/3PD9z/zb994Af3//P9D7/j67dI33y/dN/zN990063S5wQAAMDnWHlYrftf
S5/LAwAAANCN1aYlc7OztDA/r+gJVAUAAIBeWDu2traotaWFLGHhNDU1ta8r
8FcAAAAcg1YpVpaXKS05mXKzs+n66nXbfbAPBgAA4Bi0e1t7u7s0MjxMYcFB
1NHeDg0BAADgElq/gz+/fv06VZZXUFpKCk3b972gKwAAAFxBqxnz8/N0+fx5
aqivp42NDcRSAAAAuIRV83F3d5c6O9opLiaaerq7xddW9f3gswAAADgEoRGq
jysrK5SemkIF+Xm0vLzk68sDAABgMoTfYc9JmRifoOSEeGqoq6O9vT3l+zjz
BQAAwFVYK1hDmhsbKDIsjKanp53G76ErAAAAnGIlh/j72tqa0JP8nBzoBgAA
AH3Yg++sHzs7OzQ8PEShl4Oou6tL+CxQFQAAAHqQz3RxLRbOR0lNTqKlpSX4
KQAAAE7EnqQfU5OTlJGaSuVlZbbzw9AUAAAAx6COscufb29vU011NcVEWWho
cNC2H0aIxQMAAHANtbYsLy9TeWkJZaSlOeTNAwAAAHrgWPzI8BDFx8RQR1sb
7Ug+i/b8MAAAAHAk9uA8n/fKy8mhhNhY4a9o98XkzwEAAIAjsdpqsSTFx1NF
eRmtrq4emtMIXQEAAHAUrBNNDQ0UFRFOAwP9tpwUaAcAAACdyDkpZSUlFBcV
TdvS5+L7Gk2BxgAAANDWfVTqD6tuHxsdpZCgIKqqLJe+3tvf97I6/g4AAADA
qa6IWiy22Hzb1Ra6fOECzc/Now4LAACAY3FWS3hP8kn4jFdyYiKVFhUrsXkA
AADgOLR6wbVYWpqbKfTyZRro6xe1WNQ1igEAAIDDkPs4yly/fp1KigopJSmR
JsbHse8FAADAJZS8RfvXIm9+ZFjsezXV19PO9o5yP/gpAAAAjkOdD8/1Ipsa
Gyj44kWanJxwuB0AAABwFdaOhfl5ys/NpcL8PLq+uupwG3wVAAAAeuCcFD4/
3NPd7bRPCnQFAACAK/C+V05mJqUkJND83JyvLwcAAICJ4X2vqPBwaqivE/oC
fwQAAMBJ4PNeXZ2dFBoUTH09PQfqsAAAAABatLF2+XPOm8/NzqLM9HTa2tx0
uD8AAADgDGcawT7K9NQUBV24QFeam6AjAAAAXMah9680uMd8U2MjxcfG0sT4
hL0OC7a9AAAAuIZaV3jfK8YSRXU1NbSxvuHDqwIAAGAW1H6HHEfhfa8rzc2i
FktbWyvyTwAAALiMXC9SHttb25STlUVZ6ekOOSnQFQAAAK4ia8r87BzFWCxU
U1Vtq2kPAAAAnIDNzU1qamigmKhI4aPIfVIY9VljAAAAQIuVHHWCc+Vjo6LE
vtf6+o19/dDICHQFAACAM2R1YJ0YGR4mS3gEdXZ0Yt8LAADAieF9r6yMDMpI
S6PZ2ZkDefUAAADAUajPfM1MT4s6LLlZWSLn0UFHrOQ/CY/+Mg8AADAgLB07
OzvU3tpGMZEWGhwYtH/fj42v5twBAAAA98B29caNG5SVkU6xURYRpw8EDutT
ib0+AADQjzpvnve9WE9arjSLuEqg7A+pY0arKyvKnh90BQAA9GIrDLm7s0sV
ZeUUFRFJc3NzAdcjRZ7v0OAghQWH0OzsrK8vCQAATAnb09mZGcpIS6e8nFza
2try9SV5DfUZat7vKy4ooMzUNBobHfXpdQEAgFlhu3q1pYVSEpKova1N7IMF
4p7PwEA/RUVGUk1VlcjLCbxHAAAATg/HDyrLyyk6MoKWF5fs22GBtffFXOvq
opCgS+IjYikAAHASrDQ5OUFxUdHU0txk6w/sp2dsD/RGVt22srJCGamplJOZ
QdevX9fM3b8eBwAAcDfqc03cF/jCU2fFuS9/0xEth+nK0uIinX3icert7bHt
e8FPAQAA17Hvb/GZ4YzUNNErZXV11e9tqXZ+8jnq2upqCg8NpfHxMQe99eOH
AgAA3ArbzP7ePgoJCqKea91+ryfO4PkuLixQbHSUpCtVtLO946g5hJ0vAADQ
YnUytre2qLqqiqIj93NSvKortkJj9r9ntf1n/1w4CG68DrU22P+S+Jx9lO5r
14SP0tzU5La/BwAAgYSoFzkzQ2nJSZSfm+u7WixWx9iOXM/SUf088GftesXx
+IK8PEpOTKC1tTXltkDz1wAA4KSwvdzZ3aHe7m4KvnSJxsfGHG7ztk3lvzQ2
vUJVbXNiNHYvSNe357E9J/UcuY8l+2nV9pwU7X0AAAAcgVWua7UqcuYL8nJp
YWFBE5f2fn9g/ksxuR30gYcqxfjSI410Y2OHrJ5zVUReTn1tLVnCwhx0VVwP
NAUAlzisBis4iL8+LjyviYkJCr54iVqam0WNe/Vt2nNR3sSmK1X0gYclXfmf
JklXdt2mKcpumn2OW1ublBwfT9WVFcqZN4f7Q1cAcAlt7z68bw7n4GNj1sdq
/znf2d6m+rpaSklKpPHRMRGnNhIxuZ2SplSJoeiKm1DrSl9PNyVJmsKxedZV
vA8A0I9aR7hfRm9vL3RFN+Z+rLjmblJCAlWWl4kYNWO059+TusLwa7+ksJBy
s7NoYX5e+b7RHgcAzMbVq1fpM5/5jDjzAm05HLUWb25t0+raOl2Xxo31TVM9
ZuyTDA0MUFREBLW2tDjU5TUantQVzklJTU4SfZLVdZjxHgDgdLCWsKY8+9nP
prKyMl9fjqFR60pI1iB94ie1YvzHxQ7a2HTvOvo0OIu1y4P3eLiee3xsDC0u
LjrUJzGiLT2NrjhU7NI8Bq1XWygyPJQGJX3V7v1BVwA4GfL7JiMjg26++Wa6
6aab6F3vehctLy/7+MrMwYW0Abr3+9ViPHimzVC6okWOIXBdqzO//z011NXa
atqT8W3oaf0V7Zk2zsXJy8mmbOl1v76+rsq1BACcFrnm0+c+9zmhKfKIiorC
+8wFjK4rar3g/Iu+3h4KvXyZRkaGbbeTOaJD7tIV1tHJiQkKuXxJ0tU6W06K
1fE+AIDTwe+jgoICuu222xx05d3vfreoAQ6Oxui6IpBMJa8d4qJjKCMtjdY3
1n19RbpxR3yFNaW6qlp6HKJpenrqwO3QFQBOjvq9w3HK+++/30FTePCeWHZ2
Nt5nx2B0XWFbOtg/QAmxMeLsrFmfTz26ou6QImsFx+azszJFfJ41FgDgGfj9
lpqaSs985jMP6AqPj370o0o9JOAcI+mKst62581zznhpcYnwU6anpvZ7OZqQ
k/orHEfh3sjso/T24Aw9AJ6G45Xvfe97nWqK7LNYLBa8D4/AqLrCZ7wy09Io
Nyvblt/ns6tyD3p1ReTNS35JRWkpRYaFiXo0pn8QADABnAP5pje9iV772tfS
a17zGnrlK19Jt99+O91zzz3iezy+8pWvYN/gCHyvK47GkjWkq7NT+Cj9fb1K
LRazrw2O1BWrdb9cvtW29zc2OkoJsbHU2FAvvX437PeDtADgKeR1Lfsr3E+D
B+dcl0prO47XDw0NKd/ndZ7RanoYCV/rilVVi4X1Pyk+TvJTUp3WtTIzx+uK
TVtYRyvKyoSPMjU5aT9H7T+PAwBGxVmeHA/Ot//ABz6g1PLQ3gccxCi6wuuC
+JgYqqupEXEVf3vOjtsH48eB10npKalUVJBvy/X00bUCEKhoNQW6cjJ8rSu8
Hi8vKRU9pybGx8X3/DHH7yhd4bm2t7aRJTycent6aGd316GWJADAuxynK+Bo
zgtdsdm7B860elVXlpaWRB/D1ORkJTbvr1ZUqytrGzbt4L2/2uoase+1ghoR
ABgO6IprqLX4fFq/rd/Uw5VCV9Y33V9b3VnvE85JCb50UZyhFTEEP/cpnenK
5OSk5KOEUUlRkcib9+f5A2BWoCuuIe8z8biY3kcf/kGFGA891SLpyrbH7Jtc
K7G6okJan4eLeIL8/UDSlfseaaCOrl564neP0cqSzUfx57kDYGagK66h7N1L
/41PzdHVjgExegfHHXqguxP2SWZnZik2KkrUtRK1EtW21J83wchRVz7+78WU
mZkraqP6u54CYHagK8ZBsZX2fIyG2jqKCLXVc3dqR/1MVxQfzP71vq5U0n2/
bBD97dX3AwAYE+iKcZBt5fXVVSoqLKCs9PSA6V3g0G+ebLVYzsfV2vvbV9GX
Hml0e79IAIBngK4YB95P6752jZITEqipvsFj+2tGRfZAuKZ9Rloq/ezJLJuu
PCT5K9AVAEwDdMUYcF5je2srhQZdpoWFeU1cPjD2fNhHGejvF+eHB/r79vfB
oCsAmAroig+wS4XQjT2rqD3CtViKCwvF86DNXfUnXTmYm0tiejxvzplPSUik
udlZcZtDfAW6AoBpgK74AJVUdLZ3SD5KEI2Pjys5Kf6Kdm5yHebpqWmyRERQ
e1ur8FnEbeSevl4AAO8DXfENXCOSa9qnp6Y65IwHmq401tdLvloCDfQPHLg/
dAUAcwJd8T6cMx4eEkJtrVdpZ3vH4dysP5+hVc+L+11bwsKosKBAxJa0tzPQ
FQDMCXTFNazWvf2+jCRvY1mVeu2uwOe7Ghrq6dL5czQ7PaP8Ptvv9z9dcdBL
1dejI6MiNt/e3u7Qj8HsuuIvzxsApwW64iIqk9E/fp2q2uakMUutvfO0s3O8
vePHl2tFFst1rVS/1t+tkbr3T1lxsfBTuNf1cRoKXQHAnEBXXENtMmx1Jyvo
Xq47+aSt7uSRP0usK2s0MzOjfB1IsE/CMaTI8HCqq63Z9/v8TFcAADagK66h
tn5cJ59zKu59SK5nrM/eKb6KH+15yVjlf+zT4pqZnJdjiQij3u5uxVdzZdZm
0BX5OdyQfDE+gyCfZwMgkIGu6MfXfb2MjC2OYrO3q6srlJKYSPm5uWLfSy9m
0ZXlpSW6fP48NTc2QlcAIOjKSYCuHIOkK9zHMjE+jirLy0UfrpN4ZUbVFcXP
lP6/2nKFkhPiqaury+98TwBOCnRFP9CVw9na2qLSoiLKSE0VuZ6n2eszsq5w
vCgvJ4dypcE9PO03QFsAIOjKSYCu2ND2FltcXBR6UpSfT1uSj+JwX9J/XsFI
uiLPkc8gjI6MUERICNXX1trOSe8HzKArABB05SRAV2zImsKxeM5F4RjDQF8/
be+4py+zEXRFrZ03btygxoYGSoiLo+np6YCrNw2Aq0BX9BOounJgT0v6dHdn
l4qLCik1JVl5DbmrR7KvdMXZtXNPnNgoC5UWF4n6AIHQBxqAkwJd0Q90hYSm
zEzPiB7J1ZWVIq6izq13R8KnEXSF97na29opOtJC17q6bOekoScAHAl0RT+B
qisynJNSUlhIcdHRosa/Q60WN/4dX++DsYZkpKVTblYWLczPi+9ptRX6AsBB
oCv6CRhdUQmFEmNYu0FFBYWUmpQkajJ7Eq/qiqonDsO1EZIS4qmwIB/aAYBO
oCv6CRhdIcdzUD3d3RQr+Sit0mvGG/jCX+G8xva2NooIDZW0ZRqaAsAJgK7o
J2B0xb5+39zYpKaGBooMCxU+irdi1t7UFZ7JjfV1UR8gOiJCOT8MXQFAP9AV
15C3hER/3MIR+tpvmqTRTP9r6aaNrV23xhV8iTpGwnOdn5uluKhoKikqohs3
9NdiOQ3e0hWOF42Pj0m+WJTki7VImmL/O/7ypALgZaArrqE2MVwXf3t7R+Rp
+GMOg+yLcI9kS0Q4DQ8P++Q6PKkr8hx536u0uJjSU5Jpbm5OuQ0AcHKgK65h
Ve2JqPeBlDO1fgJPhfMzCvLyJVubSgsLCw7z9iae0hXZJ+O+nTxHrsciapj5
aJ4A+BvQFdew2v8Tn2t1xY/gHA2uF9lQX++x88Ou4ildYR/zSnMTpSYlKzkp
aqArAJwO6IpraOMO/mJ7lFosOzvU0nyFoiIiRZ9gdY9kX3EaXdE+P3JsjGux
8L5XYlycyKG3rQ2sR/4sAEAf0JXARO1zLS0uUnJCAhUVFopeweq8P19yWn/F
wa+UxtjYGMVERko+Sqeoiwn9AMAzQFcCC60t5dq8F86epcmJif1ejgaxt+7Q
FfljdVUlXTx3jqanpsQZYn/yOQEwGtCVwEK2pXy2Ni87hxJjbbV5tWt7I+AO
XdlY36DYqGgqKihQYvNGmycA/gZ0xTXkeIMcq/dtRFs/alvKNb0iwkKo5cqV
g3EIA9lbvbqizjHi0dHWRmEhwdTf1+cwJyPNEQB/BLriKmpdkbXFBPZJJX22
2rxtoidVR3u7Ty/LFU7qr3CMqK62huJioml2Zsb4zxEAfgZ0RS92RZH1xQQ2
i69xcWGB8nNzKS01VTzXZjgjrVdXWDfZF0uMT6CK8jKR8wjfBADvA13RB1uo
yrY5eiKpT4y44jHa2t4lI+2HafuHcKw6+NIlkT9vJjvrqq7wfLa2NqlNei1z
z0rOdxTfJ3s+qxevGQAAXTkJRq87qe6by7kaXItlxh6bN5ORdaYr2rg7D66/
wrmchfl5wi8DAPgW6Ip+jKgrzvrmRkdGUn1dnfTcrplOU5jjdGVvd5eGh4bI
Eh5Bfb29yr4XAMC3QFf0Y0RdkeEclLbWVmn9Hk/t0kd1vXcz7YExh+2DybX7
y0qKKS0lxbbvJddvM8/0APBboCv6MaqucN58Rloa5WZnKb0czaQjWg7zVwYH
BsRZr/raWqXfvIJ5pwuA3wBd0Y+vdeWA7yF9mJ2docS4WCovK/Wb2v2OutIo
6cqOyEUJvXyZent6fH15AIBDgK7ox0i6wjEFjqFwLGXKXqNEvo/ZUevK539W
Q0nJaZSalCTy5hmz7esBEChAV/RjFF3Z3t6i+JhoKswvEHVZ/M3CqnXlkz8q
pZ6ewYP7XgAAwwFd0Y8vdUWcg5J8kqHBAbp07hy1Ss+fLV5t/DxHV1DXiozO
6ZA0pVKM+x5poLX1Hds8oSsAGBroin58qSvc/7goP5/SkpNpeXnZa3/XG6g1
hc8gPHIul+59SNIVaXiyvz0AwL1AV/TjK13hWlcpSYmUkZ6qqX/pP7Avdq2z
S+Ry/uJsltCUex+ukvyVRugKACYBuqIfb+sKx+YbGxooNspC4+NjDpriT7rC
/ldRfgGlp6aI16M6vgJdAcA8QFdcwx7CEP+cZ12x27sHnmyjdTfoymExgxtr
a1SYn09J8fF0fdX8z5GzefL35ufnKDY6mqoqKpT+Yg7njKErAJgG6IrrWO05
3awrsr174Eyr23RFbXNFbH5gUPTN7Wjv8JvzXtp58rwa6uooTtIUrkWs+GDW
0/f1AgD4BuiKa6hr4rcNLFN61SRlVE1RVds87ezu0Wl2pBzqKJKtFktJURGl
JiXTwty8kpNidrT5nFtbWxQZFkq11dW0Zn/9QVcAMD/QFdfQ9lqRv7Z973SR
DrW95Xq8SfEJYu9rZWVF8ZH84Wytep79vX3CR2msr1f2vdS9HhnoCgDmBLri
Op6y7fxb2Sdpu9pK8XGxNDQ46OCj+JOubG9tU35eLmWmpYk4vfYMgpl1xfzP
EADuAbriO9R9Utg/iQgNFb1E/Mk+qX2UBckXi4+Jpaz0dFGL5TitNI2uyGXa
/ED7AXAH0BXfIK/Nx8fG6OK5c1RXW+s3sXktfE6aa/azbg72D7gcLzKLrqi1
099yVQE4CdAV76He6+GYQmuLrW/uysoy7fnZWle2sxybz87IpMy0VNrY3NDV
I8W4uuI4AZ7T+vq6iIsV5OX56JoAMA7QFe+g9DiU1urLy0sUY4mkksIiWltb
M7WPciD2Y//UVsOsn4IvXaSW5mbaknwWvZhBV3h9MDk5QWFBl6mlpUX4nAAE
OtAV78H2t7mxkS5JPsrggC02b/acee3ZYf7ItrWupoYSYmNpanLqxL/buLpi
P4MgzTM3K5vio6NscTE/qf0JwGmBrngH3g/iXPKkhASamZkW31P2hExujNSa
sri4KM56ZXJsfkMVmz/BPI2sK/OSjuRlZ1NRQb7io6APMgA2oCuu47AuJyd7
QEfAeSnNjU0H90lMrCvqufN+EO93cU7KQH+/0/vqPS/lS1050JPTDj9/HBdj
X6y/t9fJD3rpAgEwMNAVF1HlJ15fW6fZ+WUxlpavB8461a6BWpvLZ4Z53yvo
4kVau77mtvO2RtMVrs9WLfmcsVHRtH5j3eF+AIB9oCuuofTOkoYlr5++/ItK
aVTRL0JbbfWMA8i0qPe9JsbHKS4mhmprqsVenzvtrK91RYbjYGOjo5SUEE9N
jQ1unycA/gZ0xTXU69fzaf32PoZcz7jV632IfY2ssbyvFxcdRdPT0441bg7Z
Q9KLEXRlb3eXqisrKSI0RMRU1LdDVwBwDnTFRaz7cVnWFa6Tf69dV9xRz9jI
7IeAbP+urV2ntJQUysnMpBWuxaK9vx/4Kzwp3tNLS0qm3Oxs0b/ywF2gKwA4
BbqiH1/2IfYFSg0ve73IWIuFOtrbPZ6r4U1dsfkf+9uZbdL7IiYygrq6usSZ
BACA60BX9BNIuiLv93AtluqqSgq6fJnmZme9sg/kbV1htre2qL62liLCwkRP
NeSkAKAf6Ip+AkVXZB9lYmKCUpOSqKK8jHb3dr22/+NdXSGamZ6myNBQKszP
s9XuV3riQFkA0AN0RT+BoCtyzZnBgX566oknaGhwwOuxaq/oitWWe9Pb0y3O
SYuelap01f3+OgAAV4Gu6MffdYWtKNdR5BolOVmZtLq66pP9IE/rishFWr1O
acnJlJ+TQ8tLy8r3AQAnB7qiH3/VFfm82+joKAVfuky93T0irqKuMeBNPKkr
PKee7m4KkebZ1dVJO5qelQCAkwNd0Y+/6grvB3HMOi4mWvSs1NpXf9EVzmts
aqin9JQUGhoaPDAxqAoApwO6oh9/0RV1jbPZmRnKykinspIS2tjYMMSa3R26
sh97t30+NTVFqcnJVFRYuD9P6AoAbgW6oh+z64ra1rKP0tfbS6GXL4sa/qJ2
v0FyyU+jK9qr51wbrofJ572Gh4Zs9zHIPAHwN6Ar+jG7rshwzJpr96ckJdH8
3LyhNIU5rb8iz+LGjTUqKS6ixPgE1GIBwAtAV/RjZl2Rbenc3CxFhodSU729
jiIZz866Yx+Mc1KCLl2gzo4OcQbBzH0JADAL0BXXUOfITcysUEvXBF2RRvfg
jL3Oh7GNlawXfK211dVkiYig/v5+4aOI2315cYegR1ec6WJ9bQ0lJyRQf1+f
F64WACADXXENba9dM55HZb8kOT6eigsLaWVlRalLbFROqivLS0sUFhxMhfn5
tti89y4ZAEDQFVc5UAd+zz214L2BrU/KGIUFBVFDXZ3ioxgdvftgPM/pqSmy
hIeJfS9f5d0AEOhAV/wPtR3l9Xp1ZRWFhgSJz+U7mEETtbqytrHj9Jr5e2tr
a1RSVETREeHSa3nVFPMDwF+BrvgHDvt09u+t37hBEaGhlJ2VYUobe5SuqD/y
Ga9L585RZXmZKfcnAfA3oCv+gTonZXtnh3p7eyg0OIgGBgYc40ImsrmOutJ4
QFc2NzfpWlcXxUVH08jwsPJ9AIBvga74B7JmsK3NSk+n/NxcWl5ecohn+42u
cC/HtTWKj4mh0uJiuiH5ZTJmmh8A/gp0RQcqk6XtL+gr1FoxKPkmqclJVFFW
Rjucq0HOz9+aBWdxe55HV2cnJSUkUl1t7YFzeuIjoWcKAL4EuuIaNvvF56gc
95R8ab3ka+AaJdXVVaLnPNcoMct5r+PQ+ivLqxtUXFhAGWmpotcYAMCYQFdc
Y38NrNlT8mH+Nv/9paVFykhPp/TUNFvevLYGsQn9FBm1rnz+pzVkiYw92MvR
hPt7APg70BXXkPe9mJHpG9TYvShG98gq7e5536axT9LX00OWiHDpY6/QFPk6
1ZjZ3qp15dM/rqDR8WmlH4yZ5wWAvwNdcQ31uvhSxgD97Q9rxHj4nPfqg8n7
bqwpRfn5FG2JlPyVpUNzOsxoe9V7izZdqRTjS480Hshfgb8CgDGBrujHV3Un
5VyNuJgokTfPcRV/s6eyrkxOjNNPHkt10BWP9LcHALgd6Ip+vK0r8nq8rraG
EuPiRK6Gv63T5TAVx06KC4soOTGRzkZX0QceqhQDugKAeYCu6MfbusLPDedp
xEZFiVwNf9ESNTynhYUFsb+XmZYm5ulwHuwR9/a3BwB4DuiKfjyhK1bVJ/Ln
HEcZ7O+nuOgYam9ttffd8n3OzGlwiI/Yv2Yfpbe7h6IjLdTR3k7ygwBdAcCc
QFf04xFd0exrbW9vUU11FV089xTNzc4ptSL9CZ4N+yVct98SHr5fF9N+ozv6
egEAvA90RT+e1BX2SRYXFsReUFFhAa1Jz4s/xVFkeJ4L8/PinPSVpiZRl0UL
dAUAcwJd0Y+ndIVtbXtbO0WEhlFvT4/f5v/xvJoaGikyLIwmxscPnRd0BQBz
Al3Rz2l1RZ2iL9tUfvxzs7NFjZK52Vm/6MOurdvFsC+Wk5kpjSzlDILZdUW5
dpM/XwC4C+iKftytK50d7RQfE011NTWiHrG/oNWVa52dlBAbS82NjcJnOc4O
m0VXZNjfXFle9vVlAOBzoCv6ccc+mLxGv9LUTJcvXKDxsTG/Xe6yVjZJWhIV
EUHzc/Mu7+eZRlestrPgRQUFomclAIEOdEU/p/ZXOG9+fl7kzbMdks9B+Vuv
Q7k+QGJ8PFVVVop5OvSDOUZJzaIr4+NjFBYcQl2dXaJ+GQCBDnRFDzY7eF7S
FZu9q6QHzrS6pCvK3pdkTyfHx+mJ3z1KU5OTtMs5Ker7mUxXjoqP8L7Xk7//
neSLjR+o3e9KjxSj6op6vqUlxXTh7FPiPJu/nKsA4LRAV/RgU4eIvBFRV+Q+
afwivIs2t3bIWbDgwFkuybbm5eRSQkysOGNr9jNe2muXv+bYSUlxMaWnpoo6
/rZ+AvahAyPryubmBiXGxYo6CLzPZ/bnEgB3Al3Rh6P9UKLvx953amqKLGFh
dKX5yoHzw2bFma5wnOjShfPUIs3zsPu5ipF0Rf18tbW2UnhICA0PDR64HQAA
XdGLY19f+Xzp0faks7ODwoKDRa0Sf8pHUZ9p49rKnN8YERpK09PTB/b2zKYr
zo55X19dFT2eY6KiRL7qgZ8x8XMJgDuBrniemZkZh70Ss6OcH7Z/Pjc3R9kZ
GZSZnu7Wc9K+0hVZU+SlA8+R+zsnJyRSRXmZqLEDADgc6IrncbZf5A9wLH5o
aJBCgi5Tz7Vut8/L17rC7GxvU3trG4WHhNIM+2F+8twB4EmgK55BrSWHfW42
lHPQ0v98/qmspIRys7NodnZW0hj3z8un+2DSXLgXZ3pqClWWl9Py8rL9uUNa
PQDHAV3xDM70w4wxFat28DnpiUkKvniRaqqqaGtri+Qej46xp9PjVV1xCKhY
qauzgy6fP0/XurpstQGUW44/Hw1AoANdAUehaIb9/PDVlisiztDX20t7u3vH
/vxp8KauyH7Y9ta2ODucmpwk6rRBQQDQD3QFuMLi4qKwtYX5ebSysqLYYU/i
bX9lbGSU4mPjqKK8nHa2d0znWwJgFKAr4Cg4Nj82NkaJ8XFUW119IG/ek3hL
V3Z3dyT/q4eiwiOkj332vpxWv6gpDYAvgK64hjrGoHzPH9eyKj+E7WtNVSXF
REbS7MwMWfe8e/bAXbpylDzcuLFGmRlpojYA56coc3P2hAMAXAK64hrq2HRe
wxQ9EtEtRljuMG1te28N724Oq8XCvVGCL1ygivJSsZ73BW7TFaXOpePZifHx
cbpw9ix1tnd41Q8DwN+BrriG2v6KupMPVdrqTj7J9Yyd1wczE/Lc2L5yDiDX
YuGelb70yTylK3z+oKG+XvSC4T0+f80vAsBXQFdc44CuSJrC2vLgk61+oytc
4z0tOUXkbPCekHZK3ra37o6v8PUvLy9RZFgolZeWKP0JAADuBbriGmqbyrpy
r93ePXhG1hVzIa/fGRGbHx2jpIQEkZNii1vTQV3x8jWeRle0Pgj7KNe6Oiku
Opp6uq+ZfBUAgLGBrujHHf0ifY2sK5yvwVoSHRFBoyMj+7cZYC/oVP6KqrbX
jbU1ysvOEvtefEYaAOBZoCv6MbWuWPd1g21sYX4+ZaVniD0wda0ZI+COfTDu
VxkfEy3OSMNJAcA7QFf0Y2ZdkePWA/39FBUZQV0dHZKm7BjS5J5GV7i+THNT
E0VbLKJPsFG0EoBAALqiH7Pqihybz8nMELEUjmHbHBhfX5lzjtKVo85w8Ws5
IjSESooKaX1jA5oCgJeBrujHjLoizkItLVNKYgKVl5aK/BSj46quqD8X5w/i
4iRfpVFoKADA+0BX9GNGXamtqha1WIaGhsR5rz0TVOU9bh9MrSvcT4xr9mem
pdH8/DztGSxWBEAgAV3Rj5l0hfNQuH9IXEyMEptX+qgYnGN1hWzzmJqcIktE
BBUVFDjWtFf6Whp/rgD4E9AV15H3W/bz7avoAUlX1n2pK5o8E/We0OjoKIVc
vkx1NTXC3mr3joyOVlfW1neUuYoz0pJOtly5QpFhYaJ+mbYWC3QFAN8AXXER
q0ZXRL69pCtPXvWprqjrXalrsTQ1NFCopCn8vJpJS9Q40xV5nnzeKyUxSRqJ
DmekAQC+B7riGqLErf3olKIrwl9p9a2/olyfVejJ0uISJSckUHVlJa1dXzO1
vXW2D8ZzHBwYIEt4GHV1dPr6EgEAToCuuIZ6u6lndJXyGqYpv2GGajsXaEf0
TfS+/bYq/9h8lEbJR+F9L+7luGuvxWJ+Xam060ojra5tUV5OjjgnPTc36/Q8
GADA90BXzIesJ/LH9fV1qiyvoJSkJFpYWPDtxbkRWVe4Fttn/7uKkhLTKCsj
01Tnh7X7lNA/EAhAV8yHbJ/YR+G8ed73qqqooJ0d89W/PIqYvE4Rw2Jd+fRP
Kqi3b9ihXqYZgK6AQAS6Yk54zc79UYIvXRJ92f3RXkXltCt9br70SKNyzths
M+Xcmt2dHegKCBigK8bE2ZlgOcazurpCWRnplJOVJX2+6ruLPC2H1OHnM9F8
RvqRp3L24yt2XVH37TQMqgtSXxv7kyPDw5I/mUhLi4sGu2gAPAd0xZgcpivs
o1w89xQNDvSbv3euNu+GbLa4pqqa4mNi6FxMjaQpFXSvxl8xHKoz6LKu7Ena
WFpULHJrJicmzf9cAaAD6IrxcLZXwt8rLiqk1ORkw/VJcQc8D65pz7VmSoqL
hB8mnzO+96FqSVcajKsr5Picra6sUHpKMpUUFYneLwAEGtAVY8P2ak6ytxGh
oVRXW0ObW1vK922f+PDi3ATPpbe7m6IjI+laZ6etXyU55q/cZ2R/hfY1vrWl
hWKiLNTV1an4KP6k/wC4AnTFVaxOPve8rei+do1CLl2i4SHznYVyhtbGsu3l
dX1EaBgtLy/v34+0eZEG1hWrrd9LQ10dWcIjaGF+3uEVAl0BgQZ0xTWs8n/K
eVHHPfVT/37NOVTu5ZielirqRW6sb/jFOVW1jeUxOTlJ4cHB1NLUTNa9g/Ny
R79ITyLmIV337MwsRUs+Cp/1NvPzA4C7gK64htoebm3vitot65s7tLm1I2qy
n9aeyDaX1+8cZwgNDqL21tYDf9sf7Nbe7p44f/CbX/1Kmuv8ofMyuq7w2WGu
e3nuzBmam52zzcH8Tw8Apwa64ipWZcQVjdL9v71C3/xtM/3a0kmbmztusSec
k1JfV0dx0dE0PuafvXPX1tbE+eisjAzRW2x/jubRFb5mrr3G8ygqLFRqHPiL
7gNwWqArrrKfmXA+rd/Wf+XhanrwSXv/lVOak8XFRYqKiKCqygra2NgwpY1y
6lOpPuWz0eEhIdTV2Um7u3uah8w4unKgxzE5+pOD/f0UdOECdbS30w73Hzjk
5wAIVKAr+nFnXy+2Q02NjZQQF0eNDY1ib8WsHNYbmPPNub5yUnw8TU5MuGx/
fe2vaPNRuQ4bzyM5MYGmJicd8lYAAPtAV/TjLl1hO5WTmUl52dmivj1jZjvl
sMa3z2NmeprSU1OorKSU1m/ccLjtOIykK6yH3OuluLBQ6KTxkv4BMA7QFf24
Q1fGxkZFLnZdTbVfmSdZM7gWy7WuLgoNuixi9A4xbRcn7GtdYXgefX294rnq
7+vzuzMUAHgC6Ip+TqIrsh1av7FOVxobKcZioampKYd+7GZHnuPS0hKVl5ZQ
VmaG+FzkOZ7ADntbV7R7eOxPFuTlUmZGhkNujfo+AICDQFf0c1JdYTvFOeW8
lyKfhTK7aXK0xUQL83N04exZam5sUvqknNT++lJXZmam6fHHHrXF5u0xL2gJ
AK4BXdHPSXSFz0AlxsVSd1eXff2+39fYzMj7W/yR8825F8z4+Ljio5wGX+yD
8RW3Xm2h+JhoGhkeOVCLBboCwPFAV/SjV1fYN6mvq7fV91DZYcbMdkquQbC8
tExxUdFUU10lfDJtDMIM/gpfI9eItISHifqewtfS1luGtgDgEtAV/ejVFcUW
aeyU+qPZkOc0ODAgYtpXmpvcbnc9qStW9dizzSM8OIQ6OzqOvH6zPl8AeBPo
in7cmb9iRuRcjoryMkqKjxN14T1hbz2lK+q6bmuSL1leVirOUcwr/iS0A4DT
AF3RTyDrCtvdudlZCgsKpsL8fHGezVN7Qx71V/jc2uICxcfGUFVlpTIP9R4l
AOBkQFdcQ72Pxboi27sHzrT6sa44Jv9xLXiu289r+6HBQY/3QDytruz7JY77
cxw74T4piXFxNDw4pJz1NvveJABGAbriGuq17HlFVyrpgSdbRW1j/7RFNl2x
1Vm8TqnJSZSXm02rqyte+eue0BV+ncdGR1F2ZqaYE+LwALgf6IprqPfk+8dX
qap1Roy2/kXaFet2/7JN8nzZJ+F8+cT4WKqvrbXVL/PSVN25D8ZzGRkeopTE
BHEeGjkpAHgO6IrrOJwhIvecpTUye7u7VF5aKvyUsdFRr9dZdJe/wvtehXl5
lJ6crNS9VN/uj88dAL4EuuI66hiLrW66/RM/LEK4vLREaSkpoiYmx1XUeGu2
J9IVzVluPuNVIGlKZnq68FEc1wYAAE8AXQFqeN+L60UGX7okeosJW+yj9fyJ
dcV+VJjnER4aQt3XuvyqDhsARge6AtR7QalJSRRriVLVL/PdPpEeXVFf6872
jvC10qXB/Sm11499LwA8C3QFMIsLCyJvvrmpUex7yf0RfclJdIV7AlsiwkU/
Z7nvprP7AgA8B3QlsJD1Qt0npaqiguKio2lqUhXTVv7xHcfpinoevH9XWV5O
UeHhNDE+5tTXQoweAO8AXQlcFhcXqaggn1KTkg9d2/sSV3VFnDFITqasjPQD
ZwwAAN4HuhJ48Nq+p6eH4mNiqOXKFY/WYjkNR+qK/fxwW2srRUdaaGR42Of+
FQDABnQlsGC/pLqqiiLDw8Vzrs73NBpH6Qr3mOd9r5BLl0RsXgbnhwHwPdAV
/cwubVLv2HXqGVul0Zkb9jpZxrBmh/kd/L3Z2VlKSkigupoaB00xKs50ha93
enqa4mKiqb62TulJCQAwDtAV15Ht8Hl13Ul7fTCj4KwGAP/b0txMIZcv0fDQ
kMfrRboLZ7rC57y4l/PU1JRRpBwAoAG64hpqW8268v6HK+11J41bJ99WZ3GV
SgoLKTc7y/YcW/dvM7Kvwqh15XP/XU2JiamUmZam5NbIGH0eAAQa0BV9KP7K
Q3ZdOdNmKH9FQTK1XC+S+8031tcfqIllBtS68ukfV1Bjc6tjLRYTzQWAQAK6
oh/H/iu+9Vcc4tT28mV81ra15SqFBAXRzPS04/1NYIvl64vJ7bA9zg/xPlgj
rW3sHPBTjD4XxvhXCIB7ga7ox0j9Ih3zHIkWFuYpNTmZyktKaP3GDZ9d14mx
10yempyk3wYVCb/wXo6vPNLo1n6RvsAsOgjAaYGu6MdIusLI9op7OT7+2GM0
0N8vYvNmtGF8zT1d1+jcmSfpycgKpX/afSbUlQPnJ0z4fABwEqAr+jGSrog6
izs7VF5aQgnx8TQ3O+fzepEnga91Y32DcrKyKDebe1Ku2uMrlabWFe5bE2OJ
EjUBAAgUoCv68bWuqHVjYnycQoMuiV6Ocg9Es8HzGBocJEt4GF3r6lTm4c5+
kZ7E2dk0jnGxPvK5ibm5Oaf3BcBfga7ox5e6IufGcz4g1x7mXI7BgQHlNqOj
3RdiDWmorxf5/6PDIw73NYuuqOH9x+mpKUpNSaGi/Hyl7wv2wkAgAV3Rj691
ZWVlhTLT0w7tL2IW5ufmxTyKiwqd1os0m66wpnD+aVREJHV2dNjXANATEHhA
V1xDbRXOe/GcsbZn7ujICIWHBFN7a6tp+rRrr5PX8P19fXTx3FPU0dbmtEYA
Y2RdUT/SfM3r6+tUWlxEifFxSr0yIz8nAHgS6IpriJWnszouZ1q9oitst7jO
IvdznJqcMmytSAdUuf3yR47HV1WUS/Y3XvTgOsr2Gl1XeLBGcmw+IjRUaP3W
Jur0AwBdcQ2b/dvT5NvbdMUj+fbW/Q9LS0t06fx5aqirFXV8je6fqFFf58zM
jIjNNzXU2/a9rI7302JoXbHPq6igQMxpbnbWFM8HAN4AuuIiSgNFK6VWjtOD
T7XS96TxRGI/bW55zt51dXaKM0XXuroc+qSYwYbJ17mzvU01VVViHn29fU7r
XppJV/hK+f2SlZ5G5WWltLK8rH55ABDwQFdcQ20utnf2aF3Sko2tHdrc3rXb
RDcaFKvNbmWmp1NeTrbwV8yiJzb7KpLmxbWurV2n9JRkKi4ssNlfq3PzazRd
cVpPzWrb92q92kIJMbEiNi9rpLqWDgCBDnTFWLCd4th8Unw81dfU0t6uOWra
y6h1ZXRkWPSbv9LUpJy31YPRdIXj8TXV1RQbHSXO5AEAnANdMQZsuzgnpaG+
jqIiImhsbMx0tVjkGmWbW1tUUV5GsVEWYX9POg+j7IPJvcTiY2OpsqLC6Zlo
AMA+0BXfw3aLe4okxsVRYX6eYfvNHwdfL9vcC2fPinj2aeNBvtYV+Ux0m/Qe
ufDUOZqfn9v3Ywg5KQAcBnTF8xxlV2379Vcp+PJl6mhvP9F+kbfQzkOJk0j/
8H4d17u8fOGi2MezyoEUOrn99aauKPqn+npjY4PSklOE1sv1vaArABwPdMXz
OMv743+5hklKUpK0ts+nxcVFUxwnctb/hM8+c15Nbk62W19HvvBXZL3o7+2j
85LfxVpvlr7NABgF6Irn0fY3lOvc8lq4tKRk/34mOPOl1ZXBwQFRT6a8tFSJ
o7hrHr7wV1gjuRZLbFS0qDNj9OcDACMCXfEewm5tbFJjfQMlxMbS9PTUgXqE
ZrBhck5KbXU1JcTF7u97qW53xzy8rStTU1OS1idTYX7+AY0EALgOdEUfjn3V
lQDC8T8jDa5hkpmaJuLzZj5TxPk06WmplJ2ZSVvS+t5TeFpXlLzNnR0akvyu
4EuXiOv1Q0cAOB3QFT1o93iUKO+RP8V2q7+vn+JjYkQuHX9tRtvF56C5XmRs
dDR1d3d7XBs9qSvyc3hd0vqS4iLKkTRyYX5euQ0AcHKgKzqwOSuUUzdFPw/r
EiM0Z5i2tnfpKG3hM8S11TVO6yyaYZ9FXtNz7n98TCzNS/Z3zwvX7WldGR8b
p6ALF6m9tc20Wg+AEYGuuIqV5CIktnrGtv64rtQz1sayndYIMTDcp4prsdTV
1Ii4Nh1Si8XdeEpX+Cx3Y0M9JcYnUG9Pj+nqrgFgdKAr+rlwwv4rjrEZ4+qK
fF1sb2uqKyk1OVn0pPT2tbpDV9R5KfyRz3PHRcdQaXGxrScaHdR9AMDpgK7o
x9f97T2K1Z7/v3aDSgoLRU2Z9RvrPrmU0+qKVi/GRkbIEh4uakM76AikBAC3
Al3Rjz/rilXUi+SelCF0rbPLIf/fTP6K2vfg8wUF+XlCUxYW5g3vLwJgdqAr
+vEHXXGWq8kaUlFeSo8/9pjT14OZdEX2u7g2f2RYuIgNQUcA8A7QFf34ja7Y
7SznAK6urFByYiIVFhSKnsdGsL+n0ZWdnW262tIiaUqYOBsNAPAe0BX9mFlX
tGecWVO47iXb376+3v0+VSbTFbVOcjye40LFBQXic8RPAPAu0BX9+IuucG+U
Qsn2cs1Izq3R3s/X2qJLV+waOTIyQunJyVRfWyvyOAEA3ge6oh8z6YrVerDM
jByb556U1ZW2PlVGrKV8lK7I57jk675xY40qSkspKSGBJscnHH6P0eYFgL8D
XdGP+XTFMTbf0txEkaGhND425uvLOxKtrqxt7Dic5RJ9X6SPMzMzFBcdTcVF
hSJvHgDgW6Ar+jGTrihlAvastLiwIOr1lpWU2PqzG3wh70xXFKx8fnhb1FuL
tlhodHjYtu9l8DkBEAhAV/RjKl0hm6kdkezu448+SoP9/fs5KQa3wUftg3Ev
x4zUVMrJyrK9dlVz8XVcCIBAB7qiH64Pdq9k6+4VdVxaaX3TyHsvViqzxx1m
pqdNZXOd6QpfP9eyj7ZEUnNTk6KR2nNuAADfAV1xEVUz97aBJUosHaOksjEq
bp6l7R3j9all28o6YgkLp9qaGtre2jadvXXUlUZJV3aoKD9f1MAcHx83xJk1
AMBBoCuu4VBr6kAfFt+jvhZew3PcISwohEaGhgx3ra6i1pXP/bSGkhLTKDU5
ifb2dlGLBQADA13RgapOobpGrlHga+GelHm5OWLfS35OlWs04mHiI1Dryqd+
XE59/SP7j7v9PkZ6/AEANqArOrDun2+1f+kbM63NR5EG5wROTkxQaHAwtbe1
Od5uEttr1eh2dE6H0ufmS4/sx1e0PwMAMBbQFfOh3fvhs1EN9fXCR+F8c9YY
M+4PqeuVzc3N0a8uFNh1pYLue6TR7f3tAQCeAbpiPtSasby0JHIcOSeF+x2b
uUeV0JTdXVF7OC46is5EVdl05SH2V6ArAJgF6Ir5kNf0fb09Is+RY/TaOLYZ
dYV7Oebl5FBmehqtSa/HmNwOW3wFugKAqYCumAh73IFtbkFuLmWlp0u2eOH4
nzMITrWPbLVYuru6KCUxia40N9Pujq1ei6f623sCM+o4AJ4CumJ81HZ4Zmaa
EmJjqaK0zLS2TH0+jWte1lZXkSU0jBbmFxzuYyZdkWE/UunbbL6nBgC3AF0x
PmxjuZ4i96mKjowUtYj3Gz76+ur0I+vK/NwcxcfEiLx5OTakxmy6whpZXFhA
VRWVtm9YcV4NBCbQFePDvamiIyJELayN9Q1fX45baG25Sk898QQNDQ4p59cc
sJpHV/jS+fwE119ru9pCO9tGrusDgOcJVF050R6S/e5xxaP0zUeb6RvS+HVU
N21s7brVb1DHHiYmJsgSHiGt6ZvFetjs8ByyMzNFbIh7Hx96xsBAuqI9C6G9
1o62VooKDxd1y6xW49X0AcDbQFf03Z/H+bR+xd498CTXnTydrjjL9eOa79mZ
GZQYFyv2i0x7zku1V8d2NyI0jFp5TW+PzR81HyPqivI9aWxublJcdAzlZmeJ
z0333ADgIQJVV9Ro7YYz++CoKwPi7OsHHuJ6xu6tk8+/f3Z2llKSEqmooOBA
nyoz2S75WtlHablyRcSGRoaGD9S0N4OuaL8eGx0VNT25toFys0njXQC4m0DW
FfYJJicnqaamhrKysigvL4/a29tpaWnJNV1R+SsntfXqn+N6kW1XW8Wavrvr
2iE/QMa1XXIPMflL657ISUlPTaX83BxamJ+nhYUFWl5aFjGI4x4zX+uKep1h
+4RofX2dKspKKTw0VLx2DkiKUZ8bALxIIOoK24nBwUH6xje+QbfffjvddNNN
DuPuu++m+vr6Q9fSp+3rpa2DxazfuEElxUUUHxsjzkaZEpWusJ810N9LF86e
oULJ7/rhD39Ib3zjG+nOO++kl7/85fTVr35VaPhRMSOj6Ir8+dLiEqUkJlJx
YaFYk5hyXxIALxCIusJr5je/+c1CQ57znOfQy172Mnr1q19Nd911Fz396U8X
33/BC15Aw8PDHtEVGbleJJ+J4j2Vq1euiH16syLnON5YW6PqykpKTIinSxcv
0h//8R+Lx/RpT3saPfvZz6Zbb71VfP3MZz6TnnzyyUN/n691hZFjXV2dHRRj
sdBAX9+B2BB0BQBHAlFXOH7xhje8gb75zW+KPbCpqSlxlnd6epp++tOfCvvH
du/+++/3qK4wRXn5IpbC16TUSjapmeLrn5ufo4iQEGqU/L2cnBx67nOfKx7L
5z//+fTEE09QRUUFZWdn09///d/TzTffTO973/uUn9XiS12Rr4d9x7iYGEpN
SaaV5WXoCAAuEEi6ItsEjmP0SetOrgOstREcW3n961+v7Id5UlemJT3jPLob
N9aU6zOTrijxB7Lte9XX1VJifDwNDg6Ir7/1rW+Jx/GOO+6gjIwM4ZvJP8ev
t7Nnz9K5c+cO/f3e1hXt2Q3uO8C1Zaorq5TzXgCA4wkkXWGc5SJo16Bf//rX
lT0yZ7hDV2R9M5OtOuxx4zyU1ORkys3KprXra+J73Cf4xS9+sXgcP/KRj5xo
f89XusKayDEUjqVMSPMAAOgjkHWFY8a9vb1UKNmQRMmGWCwWCg8Ppw9+8IPC
Hj7rWc/ymL9ixv2Ug5pC4rwtxx2uNDU5rPUbGhqUcxCPPfbYif6eL/bB2F9l
H5J72WjPeAMAXCPQdEWmra2NPvzhD4t9f44f816/9lyYp3RFu99iJuTey+x/
cB0sPr82Pz9/wO8rKipSHkc+w30SvK0rgwODFB1pofa2ViU2DwDQTyDqCp/z
+rM/+zPljNKHPvQheuqpp0QMoKCggD75yU8quqKginsIXZFsHQ9350UaGWXf
a3WVgi5ckHSlQpyVckZubq6iK/z5SfCkrqjDWKwhOZmZFBcVJc5vqONGAAD9
BIquqGP23/nOd4S949yVC5J91MZkH3zwwQO6YrXKv2NPlW9fKelKq01XAsAI
8fwH+vvIEh5GPd3dShxeex8efO5L1hWOzTtb+3uzjsuBPFf7WFleEXpSVVkh
znEAAE5PoOkKa8jf/u3fCnvHeXpaW8K2ks8fH9AV+T/pd1xMH6AP/qCSPvj9
KvreWf/2V+Qccs4zT05MoIy0NCU2f+jPSLf19/eLXBV+HNkf5FiWtk7OcTkg
7vZX1H+Hn+famhoKDQmmkUPylAAAJyNQdEWG920+9alPCXv3kpe8hBobGxWb
wprDZ1+f8YxnONGVfUZn1qmxe1GMrpEV2t2z+qW/wjq6J/ln3O8lNTlJWtNX
7ufUO5mvWjd4P4lfV3KOKecJqc8Zs56npKSImL636oPJunJ9dZWKCwqETmr7
vpjxPAUARiPQdIVtRlRUlJKv9yd/8if0P//zPyLv+xOf+ISIt9x2220H4vZH
WhoT5Zwch+I/kE2D62qrKdpiIa5FrNyHXJtuZGSkklvPZ475cWYtCQ4OVvIi
3/SmNx3686fVFa0vxLp2ratLmk8kNTU2OPWVoCsAnJ5A0xWG7cvPfvYzRVvk
wTbwta99Lf3oRz8S+sLxFyag7Iw9jrQmvR4y09JFzUi5FpZe7WRf4Hvf+544
b6c9ayfXcfnJT35y6M+7w1+Rnzveh+ts7xC1AFZWlg/cDgBwH4GoKwzvw1RV
VdHvf/97+qd/+if613/9V4qPjxf1VLiuy8WLFyk5OdnXl+lV5JzA/v4+iooI
F+du1ee9TmKC+XHmx/G9732vqMH2p3/6p3TPPffQZz/7WSouLhZxm8Nw1z7Y
8vIyJcUnUEVpGa2Jfa8T/RoAgIsEqq4w2v0P9eeBWFeQNSUlMYHiYqJFfXvt
/E/zKLA+cZ4Lazb/bnWsxVPxFf69nK8ZdOkiTXFNe+t+DWmz5g8BYAYCWVfU
HGZf1PGGw+IKtu/Lt+6dbGHvJQ5opd3OzszMUJrkV3Bs3ig1lfXpitXh+WEd
475oGampog7boT9l4OcKALMCXXENW575nhj7B6Kcn5slMraPo9YV9lG4pj3X
wuKzwUby0fT6K/IzMjw0RAkxMdRY30A7cmwIAOA1oCt6sNlbjgn0DwxTS/s1
arx6jVo7rtHI6Li0zt8yjQ3j61xZWaGy0hKKj40TOfTq24wwD726wrH51par
ZAkPp1nJ/zLKPAAINKArrrG+sUGl1Vfo339xgd70gW/Sq95+H73iLV+gu6Tx
ird+ke5+5330pnvvp/87E0Otnb1KH0Sj2jbOSYmKjBB95x3Oe1mNc816dGVm
eoZSkpLE+TV+Lct7lwAA7wNdOQK7ne3qGaa/+9IP6Y/e+Bl64Ws/Sc+/52P0
vD9+K93+wtfQs5//Krr9Ra+lO172TnrRaz8ljU/Sn/zl5+nL3/4fmp1fVnL0
jZLgsre7S6VFxRQaFCTq2xtp30uLM13ZjwvtJ2eOj43R+TNnqa+3V5wHkGst
G29GAAQG0JXD2d3do/DYHHrVO75EL3jN39PzXvpmuu1Zd9KznvdH9LwX3UPP
e/E9dPudd9FN9lrINz/tNnr67S+i//en7xH689cf/zblldRJtk623XwGyvsa
I+vG+sa68FHKSkrEvpdR9URGqytrG/s1huWaPPk5OaLfpno+Rp4TAIEAdMU5
rAUh0VnCR7nzlR+g225/vpLPd/d7viPZukph797yhfP0tFu1eX830zOe+xJ6
/p//Hb3ybf9AGflVZN3znc3jv9nR3kaXL5yn4aFB5XtGt8GH6QoP9lEiQ0NF
TXv1nqP6Izg5Znh9BBLH1ePT8zy563cddT9P64pZX5uVtS1iT+sP7/4Q3fJ0
x7z8V7/nu4quvNmprtjGM573UqEt7/rov9LYxIzSu8RT55C1eRnyGYNyyT+J
ioigG2trh97fiDjbB+N61FeamyW/K5L6+/r2Y0IEXXEnntAVo7/ejISz+kKu
3teV3+2O36W9n/pnoSv7yNl/S8srdO9nH6YXvObjdMsz7zigF3e/97tKX6+j
dEXWlhe+5u/ph7+8QGtr66QUbvTE9Wt0hfvMx0VHU0V5uWmeAzVaXZmYmqfs
jAzKycqSfBRj5NgYgbm5OVG7QH2mT+Y07z8zvXd9ia8fJ1//fTXytWh1xR3X
Z5Q5npT80jp6yRs+Tc99yRudaoUeXbnp5lvpjpe/i14s/b6SyiavXD+f77rW
1UkhQZdpbnbWtM+HWlc+85MKOvPkU9TSfMVQ7yMj0NraKmrZffrTnxbvZ7n3
w0l9DvYJe3p6xOA+3fLok/xDHpznxGNgYEAZg4ODYgwNDR0Y3EdvZGREjNHR
UTHGxsaUMT4+LsbExIQYk5OTyuD6DDymp6eVwTm8PLjmkjxYW3lwTQd5LCws
iMH1HXhwj2l5cG0fHnzWXh6syzzYFsqD63Lz4Fp3PNj/lwc/zjw4zicP3pPl
we9BeXCOGA9+XOXB50v2z5ic7rVsxPeDWleOu76T+Edm2puQ5//wz87RC+75
ON38tFtPryvSePpzX0wvfO0n6DdnLB6//hXpvZKRlkoFeXnivWLmfXK1rnz+
Z7U0PjlLttxUc87HU/B7WK7t+Yd/+If08Y9/XNS+Y9t3kseKbfHdd99Nr3rV
q8R45StfKeq68XjFK15BL3/5y5Vx11130cte9jIxuDa4s8G38f14qH+WfxcP
+Xfz4L8lD/nv87XIg2vMyYN7vvL48z//c2Vw7Tl5vOY1rxGDa8nK43Wve50Y
r3/965Xxhje8QRnck4nHX/zFXyiDa27L4y//8i/FePOb36yMt7zlLcp461vf
Ksbb3vY2Zbz97W9Xxjve8Q5lvPOd7xTjXe9614Hx13/91/S+972P3v/+99O9
994rehh95CMfEb2j/u7v/o4++tGPiueZa7Bz3w9eU3DNvc997nP0+c9/nr74
xS/SfffdR1/+8pfpK1/5Cn31q18VdRC//vWv0ze+8Q26//776Z//+Z/pX/7l
X+jb3/42/du//Zvod/jAAw+IWrEPP/wwff/736d///d/px/+8IeiFu9//ud/
ijqx//3f/00//elP6ec//zn94he/oEceeUTUKv/f//1f+vWvf03/93//Rw89
9JB47vjrxx9/XNSL5x4k3Jf3/Pnzop8i12C8fPmyqG8eGhpKYWFhFBERIeqg
c8356OhoiomJobi4OEpISKCkpCRRa5BroqelpYn+vpmZmaLPuTy4N22eZPvy
8/NF79/CwkLRE539+ZKSEiotLaWysjIqLy8XvQd58HulurpajNraWjHq6uqo
vr6eGhoaRC+VpqYmam5upitXrlBLS4t4z/F6jvvZt7e3U0dHB3V2dlJXVxdd
u3ZNDO3a7HXv+Se64xV/c6hO6NWVp932bHr+qz9M//TAr5X1kLwGktc98lpH
Xt/Iaxo9dqHnWjcFXbxE/X394ufNoCmHXRt/Nyq7XYljqc8Z+zI3xYiPp1pX
5MG1uv/mb/5GvGf0Xi+//uT3Br9PePB7ht87PPh9xO8nHvze4sHXwO83Z4Pf
k/z+5PcpD37P8nuXe/Lw4PczX2dlZaV4n/N7nt/7PNgO8GCbwLaBbQTbCh5s
N9h+sB1he5KTk0PZ2dliyHaG7Q7bn/T0dDHYHqWmpgrbxDaKbVViYqIYbLu4
9izbMR6xsbHCrvFgG8e2zmKxCLvHg21geHi4sIdsF3mEhIQIOxkUFCQG281L
ly4JG8q2lG0qD+6hyjaWbS2PM2fOOAy2w1wT93e/+53oUcTj0Ucfpd/+9rfC
bvP4zW9+Iwbbbrbpv/rVr4R9ZzvP45e//KWw+2z/uX47awEP1oX/+q//Ehrx
4x//WAzWDNaO//iP/xCDtYQ15Qc/+IEYrDGsNawXPFh7uK8uj+9+97tCk3iw
PnENX9a2l770pULDWL++9a1vicF6xn0T+fs8WOe+9rWvCc1j7fvHf/xHoYM8
WBO/9KUvicEa+Q//8A9CL3l84QtfEH+DdZQHayqPz3zmM2KwzvJgzeXBveV5
sA5zjw55sDbL42Mf+5jQax6s3TxYx3mwpvP48Ic/LAbrPI8PfvCDymD958F+
Gg9eE/Dg9cG73v1+evHrPkF/8Cdvd5uu3HzLM+jOV91Ld73xo/TWt71dWduo
1zzyOojXROq1Eg/1Gkq9XpJ/D699vvG1r9PnpMfxHmnNJq+FeN3zV3/1V2Lt
8+53v1vYGR7vec97xOAaw/KaSH4s+HHhx4gfM/kxVK+T5LUSPwf8XMjPDz9f
/LzJayce/PzKayh5HcWvB35d8GuEB79e+HUjr6v4dcWvr0ek98O3/ytU6Mq9
D1XRhx7Mpa9941/Ea5Ffl/z65Ncpv2bV6y5+TfNrW15/8eDXPa/D+D3A7wf5
vSGvyfh9w+8heW0mv7fkNRq/7/g9yIPfj/J6jd+rPOR1G7+P5fc0v7/5fS6v
4XiwDWB7wLaBbQQPthdsO3iwHeG1nby+48E2Rl7nsS3ioV7v8eDrkfvcaMed
d94pHjO2x3oxooZ6g9PGpNzxt7XDE3jyd2v3wTyNPBdei6v3G3mNpN6TlPcp
5X1LeS9T3tuU9zvl/U8e8p6ovE8q75vKe6ny3qq83yrvv8r7sbw/W9fYSi9/
yxfpD/74re7TlafdJs4q3/uZ71GX5FPI+87ynrR6n5r3reV9bPXeNo/u7u4D
a8hiyV788mc/p5KiYtGzSl47yutH9tvYf+M1I/tzPA5bO8rrRu3aUV4/yuvG
k6wded2oXjvyulFeO/K6UV478prwgX/7DqVKX//8TKbNX5F05ZM/KqMIS5yy
blSvHeV1o7O1o3r9qF47qteP6rWjer34xBNPiMF2Xl47yutHZ2tHWT+0a0fW
m+PWjur1o3rtyDrHQ7tuVK8dWZdvueWWQ19/vBfF13iSeqLutpPANcz8eGnj
9r7KrTDC4ydfx8LiCr36nV+mO+56p/v2waTb77z7Q/TV7/6v285FsC739nRT
eGiIQ392ozyeepCveWJ8XPSm5DqYPD9bfEXeB2s8dR9iM+LK88rrh6c//ekH
Xnd33HGH8Ad5vaL3HKq74qLQlcDEF/6K9mujnJGXf/YfJft/56s/5DZdufVZ
/4+ef8/H6Se/vkTuyLXn5yonM4PiY2NMkTd/HOyv1lZXiZwU9ifluQhdech9
/e39Dfl51+rKC1/4QuHX8Jkp3gcw82sDmBPk26uwp5ak5lTQS17/KXrGc//I
Lbry3Jf+Jb3odZ+Sfm8ZnSTiLP8E24f5uTm68NRZ6u6+Zjp7oV238r+853n5
/HnKzco6cE7BXf0i/RX5seK9TtaVZz3rWWJvjd/L8mMJgC+ArjjCb8XJqVl6
1Tvuo+f/2Ufo5lufcSpd4Vx9zrn/0Be+TwtLqyd6r/NP8LqzrraGkhMSaGJ8
zJQ2Q60re3u7oqZy8KVLInbkbL8EuuIaHJPjmI/cPwcAXwNdUbNfEzI4OkvU
jvyDu95BN918y4l05ZanP0fE6+9+55eppa1HZTP1vfc57ysiJIRKi4sM08vx
pAiNlHwUzrHJSE+j5eWV/dugKyfC7PugwP+ArqjZt/lcy+VrD/5GaMtzXvx6
uuW22/fP17z5C/S2L4fR274SRq/58E/oabccjJne8ozn0h+8/K/opX/xWfr5
b4OV2oh66hnzXgafC0uIjaXO9na35ed6C7lHgDrnhH2U9JRkKikqUnJslPv7
ia746vwLAEYBuuIcfp9ubGzSv/3ocaENd77q/fTMO14macjBfTFHH+V2evbz
X01/+OoP06vf9RX69RMR4ly03r/N56PzcnNFr6qlxUVTnqtRX+/u7g41NTZS
YlwsDbp4PsmUuiLXwTTZcwWAO4GuOEeuj8t9In/22xC6593/KHyXO1/1Abr9
hffQrc+6k2595vMkv+Q5dOsznifq6D9X8ms4JvOi132S3vKh+ykps1RXuxX5
/DDH5pMSEqiyvEys6eXbzIZsV1dXVyg3O0vsfcm1RUgeR2BGXdnX0V1Rm43j
YgAEGtCVI7DbCLYNPf0j9F+/Caa/+cR3RN9h7vP1gj//mIjJv+Cej9GLXvsJ
yT/5Mr3/0w/QZUsmjYxNOez/HP1nbPfgv8N1FWMsFpFzwBpjZng+Q4ODFBsV
Rd1dXWIvUFnD+6muMNyHs6qigjLT06ErICCBrhyF4z4Gr0EXFpepq2eIsotq
KSgqi37zVLT0MZvKa69S//C4iMsIk0l0tK5o7nN9dZVioixUXFhI6zdueGl+
7sU2H9snrIkVZaUUbYkQeRTKuVer676XUXVFmzcoz4tZXlqi4IsXqaGuljY3
zH3GAoCTAl05IVbtl/oyU9T7722trRQRGkbNjU20s23e9a2sK/Nz85QYH0+V
FeWi9/FJ4wxG1xXtvJqbmig+Nlby0VS+pvm2LwE4NdAV13GwI1Y6YFdOoitZ
GZmULY1Ze58UV/bNjIR23c6x+ZTERHGO7bSxa6PqCqOe24rko3JeUUVZmVL/
YP+OvrtGAHwFdMV1DuiIRmdUN7j0+/p6eqm0uNh23tbJ7zcD8vVyDVDuSxkR
Gnqgl4+/+isM96WyRERQfV2dw34YAIEMdMU1FC9C3uzR7IU4rlFdMy5m0xFn
8+SvJycnKDwkhFquXHHIsfEnXbFqzg7zGQSuj2mJCHc4Bw4AgK64itV+YNiM
eSSegv2sBmmd/vhjj4o+le5+TIyiK9rnnHUkMjSM8nNzHPqnAQBsQFdcQ66U
aMtN2KOdnV3a3tkVnweKTVHb1htra+IcLfc7Fvteuk8uHI/RdIVrZPb39ZEl
PFzEj8xW/wAAbwFdcY39CrxWyq2bpJ8Gt0qjjYIz+mlry7xnuPTAs2dbyv3D
uO9LX2+PR3NsfKcrjucnRH7s+jplcB+ylCRxlphUt0FXAHAEuqKfC2kDSt3J
B8+00camMeLJnsOeNy+9RirKSyk5MVGcJfZ0jNoIurInfRwaGqL0lFSqqqyw
9TPx0lUAYFagK/oJFF3ZL0FjpdHRUZGTUlZSrKqh6Vl8uQ8m12KpqaqmJGne
rtY0AwBAV05CoOgKw/tcXEvZEhYuahHrr/J/cnypK6srq5SbmUVpySkOefPe
nD8AZgW6oh+/1xX7unx5eZlyMjOpMD9fnPcSN9H+mWtP21ev6op9MqI3QW+v
yMNhH4Vj9drzYHBbADga6Ip+/FFXtHkpk+Pj9Lvf/IZ6rnX7rHaiJ3XlYC6O
TVoyUlMpKjJS1I50ej8AwLFAV/Tjb7qitZ111dWiLsnkxIRPbao3dWVpaZHi
YqKoVpr7xvq6g38CANAHdEU//qYrDNvP+fl5cX64uqrKsaa9j/D0PhjPjfe9
6mprRS3/0ZHhA/UCUJsFAP1AV/TjD7qirnHJtrS3p4ciQkJFbMEoNQU8rSvc
k5PPtyXGxSm9CdRxeegKACcDuqIfs+uKrCf8cW1tjUoKCykhLlbYWeV2A+wB
uVtX1PXKOCclLjpK1F9G7y0A3At0RT/+oCvso8xMz4hzT2xblZrK5J+6Is9n
c2uLGurrKFzyzZaWlgwxTwD8DeiKfsyuK5ubm9TWclXyUeLFul3p5aiprelr
3Kore7Z6kalJyVRRXiHOUKvzPgEA7gO64jry/tF51hXJ1t37cDU9cKaV1g2k
K4dpgvz969dXKcZisdWLXFvT/Iyxsv706Ip6j0v9Ue6/1tHWSkEXL1J/X7+t
ppmVoCsAeAjoiuvIPTjOSbrygYcqhb174Elj6cph8Hqda/EmJcTT1ZYWU8QU
TuOvyJrB/cYqy8spNTkJfVIA8BLQFdeQ88zZJtVeHabgpAYKkkZGaRdtb+8a
esnLtXiLCwooKyODFubnTWNbT+qvyH7l0NCgpCfJVF1Z5aUrBgAw0BU9qM7f
kjHO4h7H3Oys5KMkUH5urvjayNeq5ST+itzLsaujQ+x7TU1MmmrOAPgD0BV9
KOtix+/64lIcr0CjcRxDaG9rpciwcBoZHKK93V3lfmbhKF05bB58xov9svyc
XFGLxUzzBcBfgK6YH20eI+97JcbGilpX66Imif1+ZAQFdB09usJfc/zo3JNP
Uk93txKbF7d586IBANAVP0AdW5ibmxW1WJobG8V5Yk1pRVPZ2OP2weQ4Cu97
5WZlUmJ8HE1PTavOTdvv5+XrBiDQga6YD63N5MF5jcWFRRQdaaHZ2Vml/oiZ
t4EO1RXZD5EmNzszQ5HhoSLXUdQ0I9QgBsDXQFfMh3bfa25ujrLS08WafWd7
29eX5za0urK2saPoBp+T5vPSkZJvNtDf7+tLBQCogK6YEVtvKfZRWq5cEbVY
2tvazLfRdQxOdUWa+MLCPGVnZlB2RqZ4DPxpzgD4A9AVc7KxviF6hXB9d64d
6Y/bPs72waYmJ+nsE4/TleZm7HUBYFCgK/rwaQ15e60V7rcVHRlJjfX1tLGx
ocSvzYyzx3NfVyrpi7+op+LiCkpOiBcxFQCAcYGuuMbBHufe1RebpFiprKRE
xKmnp6ZMryVqnD2Wal355I9Kqa6+SdLRdR9eJQDAFaArrrHf48lKaZUT9NC5
Nnr4XDudSe6nzS3P1AdT21iuc5WXk0MFublKnxR/x6YrtjpsX3qkkW7Y4yvY
/wLA2EBXXGS/OQmdT+u327tKj9Yzlu1nR1sbJcXHUevVlgO5Gf6Cg15IH/j1
+NvgIqW+532SrshxewCAsYGuuIhy1squKw9V2XWlTdIVz9QG5lx5zm/kWMrS
0qLTHHN/QL0Hxro5PjZGkWFh9J+Ppihxe7WumGHeZrlOADwBdEU/HunrpTFB
3MsxOT6eSouLxB6Y32Ld10fWUc5v5DNuHJuPym5XnQdrdHt/e09hhnqkAHgS
6Ip+PKEralvU1dlJoUHBND4+ZsvPUN3HX2FNiY2OFnWXxRk30p4zNoeuaDXF
f58xAA4HuqIfT+nK9tYW5WVnUXZmplKLxaFmix/qCvcb6+3upvDgYLp2rcse
P7Kdf3NnH2Jv4XBOcA8+CwhMoCv6Ob2uyF3CSKlLMjgwQBfOnqXm5ibho/jn
Popsc226sbe3S+mpKZSTmSVy6LWYRVe0Zw72pM/7enuE/8W1PwEINKAr+jmt
rqj1ZHtnh6qrqijWEiXyHf1TT/aRdWV6eprSUpIpPy+PdnadP35m0RVGXVu5
qrKS4mKiRY4RAIEIdEU/7toHm5mZocz0dKooKxNfB0K8l+0un5uOi46hycmj
ezmaSVeYaWk+qclJ0jqhUtTFBCBQga7o57S6wjaHe1D9/re/pcHBQYf+U/6r
KLbcTq67HBURIfTlOMyiK+L57O2jJx57lEaGR/Zv8PcnFIBDgK7o5zS6srq6
QiVFRZSZlkYLCwtKnxTG9CbokAlwvGh0ZITiY2Lp6pUW2naxlr9hdcW671ty
7YPC/DzKzsgQPZAdHgPoCghQoCv6OamujI+NkyU8QvQN4TXufm0YD1+wl3C2
j8caUlVRQWnJyTQzPa1rj8+ouiLPcWx0hMKCg6i9rZV2ds2TswmAp4Gu6Ock
usL2pramhkaGhx36BvuTHdLOh3MbU5ISqbiwQOSn6MWIusLz4/yaakkrE+Ji
aWxs1KFHpT89nwCcFOiKfk7qr8i1vXxaa9+DyHPheba1XKXE+Hjq7uqynZsm
/W6ZEXVlcXGRkqR5VUq6gvcMAM6BrriGsiaVPk7Or9PV/iUxekdXJbu55+vL
8ylq/2tD8ku49kyMxULLy8un+r1G0BX5XDRrZU93N4UFBVFnR4f4GgDgHOiK
i1gdv9DmwgUqan9ramqKIsPDqa21VZz3Oq0vZhRd4X6cfNaCzxCvrqz4bU1p
ANwFdMVFrI576LAqNuTH40pTEz3+6KP79Wfc8Lt9rSs8j+urq3T28Seorrra
oQ4CdAWAw4GuuM5huuLvNuaw+Ym1vPS6SYyLE/3GNuWeyFalosCp/q73dGW/
ro582awh7a1tFHL5Mo2NjtobdgIAXAG6Ao7Dofal6nvXOjspIiyEert7PLI3
5Atdkfe9YqMsVFZa6t89CgDwENAVcBiH7ffwOdua6mpKTkgQMRVP7Q35Yh+M
6yCkJiVRQ10t9jsBOCHQFeAKsm5MTU5SRloaVVVU0ubGpkfjDd7UFa47zPmb
KZKmzMxMQ08AOAXQFddR1yGW17LuiSQYB6vqo3pOnDff0d5GQRcv0vDQsMPj
QOSZGJMndOXAcyd9Pjc7S3HR0VTItZW19SL95YkFwItAV1xHsUcOeY22nXl/
MT9aXeE5zs/PU1FhAeXl5Ii8QG+dU/C0rrCPcq2ri2KiomigfwA1iAFwE9AV
19HWX3HYA/IXYVHB85qYGBc+StvV/ZwUb521daeuaK+VNSU9JcVWL1LSSvk+
OEMMwOmBrriG2uYMT61RVfu8GK39S7Qj8u39wxbJNlWuF8m5gOPj4wdsrhl1
RXn+hoZFbL6psdFpbWXoCgCnA7riGmq7dDF9gD70gyppVNP3zrbR+ibvn5jU
FmkCKTw/Xr/HREaKfmPr6wfP2XprTe8uXZGnyH0py0pLKE3yU4aHhpTbnP4A
AODEQFf0465+kYbAQVes1N/fTxGhoSLu4Gv76jZdkTSQa5UV5OaI/px8ThoA
4DmgK/rxK12xw/GG0uJiSkqIFzXtjbAXdBpdUcfn2TcJunCRhgYGUS8SAC8A
XdGPP+kK297FxQV64ve/o3o5F9AgsevT6grXYinIyaULT531294EABgR6Ip+
zKwr6nr/HLPu6uyg6MhIUQPLaPb2KF1xphHy3NgnWZK0MtoSSXU1tcIXc8RY
8wTA34Cu6MdMuuJsfc5fra6sijosnAsox+bNqCvaz9lHaayvp8iwMBodHYF/
AoAPgK7ox0y6ooXX8r09PRQfEyvsL2NUu3ucrqg/F+fYlhapsCCf0lNTHWLz
Rp0fAP4KdEU/ZtUVrmNfVlJKyYmJNDE+rpwFU9b9ZKwdouPiK7KesI/S2tJC
8bExDjkp0BMAfAN0RT9G1pXDtGFubo5SEhMo31kNrGN+1lccpivqWjrsl9TX
1pIlLIxmphzrRUJXAPAN0BX9mElXWEO6OjokuxsuahHzWt4s9larK2sbO8q1
834e1wFIjk+g6soqW2xe1RbaHDMEwD+BrujHyLqihut5xURZKDUpWfSqEvUx
TRTHduavyNff3tZGQZcu0czMjNgHUwNdAcC3QFf0YwZdmRgbp7iYaNGfar9e
JJnK4B7UlR2x75WWnEKZ6Wm0uLBgGo0EIJCArrjGft1iK51nXXmoiu6V7N0D
Z1ppXdIV31k3ew9d26WJfS+uaZ+anEwTExOmrrfsqCuN1HWtj6IjIqmzo+OA
jwIAMA7QFb1YKfr/t3eev21l6R3+4zLIpwUSIECAzAIpH5MPTrzIIlkgSNlB
ssEmu1l7RrKtLpFiUe9Us2T1Llm9Ud3qXaIoSqL45r6HvOQlRdm8YrmFv8dz
x7JEe841Nee555y3dGzRX/7XOP3Vbyboh9JFsV7RatpW1is5Pz+ndpeL6mtr
yOu9NdSeVzyUXvmTf+qit29+ogNF32MAgD6BVxIj0us8ckbBZ8ePgUdN5zh5
HO6VVSorKaHZmdmM1rJPFzzuctdc2Cvf/zBGHu8DarEAYADgFbWENpy0+69H
ejqG4mw72trJWlom6kXGe73R4DHzPldx/VTIK330c8krynN7Y94ZANkBvKJ/
ntQsoWCcLeek2CxWGh0eoZubp31S9E7cGjPSr/l7sbmhkf7xN5VPvAIA0D/w
irGQ973YJUUFBcG8eQMTW2f48PBAWnuV0uz0tLRemRRO+aPXveLcHl4BwBjA
K8ZC9KdqbaWGujqxRomdl4147sBj5nxNrldWYbfR8tKS2Gq08fnK6z7hlu+x
XgHAMMAr+iX2LIVr2lfY7TQqzb/x/GFEr/B4jw6PqKmhgTra24M9xSh435F4
MON6RY7xxokQyCbgFX0i5zHyz1yjZGpygsqKiulSWq8YzR1RKOpcMttbW1Rc
UEATY2NPXpqqPsRaAq+AbARe0SmhSej05IScdgcN9PeT98ZryDWJjHLt5b25
EXW9HDabiD+Ihxm8cnV1RUMDg2L/EoBsAV7RL3x2nfv2Le3t7gb7sgeMudcl
E6xDTOJ7jdcon6cmxVrsufsxoleU78+XnR16n5MjrTUnUR8AZBXwSoKEJsVA
zG5GOmZ4UYulvZ2a6uvp9PQkMu/KE7PRdlTk4UtjHxsdEfFeS0uLFHj8ek6p
kb0yIz0T2K1W2traFM8EBnzXAHgx8EpiROqlBKhjdIv+q3hMXKVNC3R353/R
pBFv7bGzvUNF+Xk0MT4unnGNvD6R4eHf3d9RXU0VtblcYm8okfsynFek2+Hz
L+5J0OpqDccgAJBtwCuJEZB/SHNhTt1aMK9Cul69mX5RPePYPrr30hpleuoz
5b3/QEeHh4aOG1YSzEk5JGtJKQ0PDKiKiTaKV+ScovW1NbKUlND87Kxp3j8A
XgK8op5c4ZVQPeM3ydXJ53lne3ubGuvqRP13uRaLGeYlvpeh/gGyWcro4vxc
dVyUUbzCtXS4D2dJYQFdXV6Jz5nh/QPgpcAr6lF65e9f6BX5GZfjbHN//JEW
FxeDn495ja7npTiSkMfM30/cT4zPiLj/i/xaNXejN6/Evh/8EcfrcU7Rp66u
J2vQSK1SALILeEU9yfb14vmGc+U72tqooa6WLi8v0zTS9BO7r8UxB6srK2I/
aGlhIbr/i8pJVrdekf7h+gAz05/JabeRe3U1GK8HABDAK+pJ1it7e3tUnF9A
S4sLil6OxnyyVY6bnVJfW0stTU10enoa/vpL701vXpHhns7c37m91YX/bwCI
A7yinqS9srtL62vrFHgMaFlyP2mUzuC+x3VV1dTV2Ul3vruor5vJK9tb21RX
U03DQ4NizRIM/TbwmwhAGoBX1GOE/vbpIN5WFs+tQwMDVFNZIc6KUonWXlH6
gs/m+QylrqZG1JCOPQcDAESAV9ST9V4JfSD6pNQ3kNNmI58076YaPXiFr5Pj
Y2ppbKK2lhbhUQDA14FX1JOtXpHhfM2N9XVxZj07MxPcD0rDGZHWXvE/PtLi
wgJZSoppaWFRnB8BAL4NvKKebPYKO4X3g7hGCdeYkeOgzOYVdmVnWxtVVzjJ
47mOqc2GfS8Avga8oh7hldfSfCddr0zmlXhn7fKvj4+OqLyslPp6esR5Q5zf
ndKxpNsr8Xog83VxfkZFBfmihrTv7i70xfCrCF4B4OvAK4kh13DhS+RFhr0y
TV6fefZHlE5ROobrKNosVlGrJFPn1OnySrz8RpGnKl1dnR+prLiY9vf2kNcI
wAuBVxIl8pwq59vzZUavKD/mWiwcO8xOOedaLIqvpXvOzcQ+mLI+QFdnBzXU
1pLv9vna/QCAbwOvJEqkEEnP5Bf6g31SuibI2b5Md/fm8IpyffLof6TNjQ0R
6/V5cjL+nlGax5NKrzx3/sPnRVwfgPf35uZmI28zvALAi4FXgIw89/KZ9fTn
Kfrp7Vs6OjrSbDzp8or8MZ8RjY2OirMUzqE3ct0DAPQEvJLdxO57nZ+diVqR
3FdM6++JVHkl9qSdY9g4BqHa6RSxbVyrTbwOTgEgJcArIEiAVpaWqLSoKKNn
818jHecrvO81NTFBJYWFtLO9FXcdAwBIDngF8H5Qu8tFtdVVdHhwEP68mh5c
6SAZr8Qbr8/no45WFzU11NPB/n7c3wOvAJA88EoWI02h+/t7IvdveHBIzLt6
IlmvKK9laS3GMQjjY6OoxQJAmoFXshPeD5qbnRU9Drc2N3X5nJ7cPljwftgh
nz9PUUlBgYhB0ON9AmA24JXsQpzNn59TY30dtTQ3k/fmJjLX6iyVPCmvSPdx
dnZGjvJy0Q+G12Jy/iPcAkB6gVdeSLhOVICM0kRF1OY9OaYf//AH+jw1JdYs
eu7DnohXwmfuFFEif45r2efl5oocHL5PuQeyXu8VADMBrySGso5LIKD9mfZz
xBsP/5rn1v7eXrKVlQq36GnMz/Etr0S9B6Ffc//N9tY2qq+pFrHERrhPAMwG
vJI44bzBh0fy3fvJd+eXPvbTY0DHvc2lafX87JzyP3ygyfFxUZfFKKjyinRt
rm9QYV7wPrmmvc629QDIGuCVxAk9FVNF1w793f9N0d/+fop+51wVftHj/MW1
WBbn5qncUib6pMSi93n3a15R+oTP5tkllQ47rSwvRd0Y1isAZB54RT3vQnUn
v/tFsE4+153Uw+ylnGtvPB7qbGunqsoKurq8jDu/Gs0rntuHqBxGzps/Oz0l
V1OTqA/AtVhigVcAyDzwinr02tdLnmu5xntRfj4N9PWJXxt1bo32ypjwigyf
F6253fQhN5fmZmd0d84FQDYDr6hHb16RZ1POm5+dnianzU7bW1vheK/w6ww2
98bbB+PxX11d0tDAANVVV8fNSTHafQJgNuAV9ejRK9dX11ThcIh6LHIdRflr
4mcDzrOx65Ubab3COSl5797R6Miw8GhsTJ4R7xMAswGvqEcvXgnue/lpfm6W
Kp2OcE7Kc681GjbXnOSUPuGVv/j1CPX3D1OV00nu1dVn12FGvE8AzAa8oh6t
vSLPnBwH1dLYJF0NtL+/b7r9n4hX+uhPf9VNLS0ddCliEAyTigpAVgKvqEcP
Xjk9OaWqikrqaG2jB785czVsrfMhr/TS9z+Mksf7EMqBDBA6zwOgX+AV9Wjt
Fc5FKcwvELXeOd7LjHBe43vnSOh8pS90vuI31XoMALMCr6gn3V55bj+LHWK3
lovruXMUoxEvlstz7RHxw7/8jTO8DyZ7BQCgf+AV9WTKK/Kcyz7heFrOSeE4
YjOdoyjP29mVG+vrVFpUSCvLy1TeMhs+t09Vv0gAQPqBV9STSa/wXMtnKFUV
TlFH0ZT1SQLB3JvmxkZqqK8Lfy+Kc/vXfYo4Y3gFACMArySGch7PFV7pF1c6
z1cODg5E7xCO+eI6vRQwds6fsk69Mq9ma3NL8maFqLdMis+L/JXX8j7YKLwC
gEGAVxIjoOi3kte4Tj/750H62a8G6Zfv5lLiFWU8F+97zc/OUqXDKXJTzHI2
H1vXns/mh4eGRH9gt9v95PXJ9YsEAGgFvJIgwYdtMSfunXhpfuNKXBv7nuC8
n+QaQu7rwnXsP3Z0UIXdTldXV6aKplWutS4uLqi1xUV1NbXP9puHVwAwJvBK
YsTr5SWvYVKRTcFu4h6HNquVpqc+C78oOlKag0CwXqR71U2lxcXkXlkJ7u89
A7wCgDGBVxIj+mwgEsMU2R9T+4dR5M+QnDI+NkpFefm0vb0drEGseJlZvPIg
rUsa6+rEvtfp6ek3z4mM7BUzvW8AqAVe0QDF2odzNZy2cmpztUgfXxv2TP6r
SLd0dHhENVWV1NfTE1yLJXCfRvOKcp/vXlqHjQwPR9UABSBbgFe0geef6elp
speXi/65sTXtzYAcJz3YPyDivdbX1lTdo1G9wmtOro85PjZmmvxVANQAr2Qe
ztUY6O+jgrwPdHJyYvj44ee48dyI9QnHtXEMgkyi92oUryhzO1eXV6jw/Qda
mJ8Lfk7LgQGgEfBK5uE67xxfy3G2RvdJbL16+eednR2yW600NjISPi+Sv2YG
r8SefbE3W5tbqMLuiNrnM+47C8DLgVe0w8g+kYn1CruS12L579+JXmPJoFev
KJ3yKN3z4eEhfcj5idbX1k3xngKQLPCKdhh9raKE7+NaemavrnBSf8+n8L5X
MveoV6/I+5YcIz3Q20clRYWitrSZ3k8AkgFeyTxm62/I9zA/N0fvc3JEvch4
eT4vmXP16hW+j4uLcxEv/amrS5yXmfWMDICXAK8kRmRufKQvR9c0tXREk9K1
vHlOfr+6OiuGn38UG0EcR9srrU8qnU66uryMvEThTaN65UkNfwrV2JEcyuuy
qcnJqBo7hn5PAUgh8EpiKOfG3Do3fRfqC/Lq7Qx5NepvrxXy38O6201VTofk
lZ60xNNq7RWZQOhfZ2dn1NHWRk11dVEOBQBEA68kilyzJVjPWJ7vXr2dzni/
SM0IrVG4ntfC/DyVFRXR3u5u5Mspfl7X0iuxe5VHh4dks1qos71D3H/segwA
EAFeSZRIHbCgV+T1SsgrWTC18PR5KT2ntzQ2itqYoi5mEvtc30IPXmGHjI4M
k8NqpS9fdoIx03AJAF8FXkmUSLZCNq1XwnNogPNuVuinN3+gNbc7XB8gXU5h
Mu2V2DUIx0zbLBb61N1FNx5PNjw6AJAS4BX1pLtfpN549D/SQF8/1VZV0Zed
nbS6REkmvRJ7P9tbW1RUkCfO5uX8VQBAYsAr6skWr/BcenJ8TGUlxZJXep/t
k5IutPAKO6SzvZ3qa2ro/Pw8qo41ACAx4BX1mNYrytr90rW8vEz579/T1uam
JvNqRvfBpNvjWm12q4Xqaqqj9vmwAQaAOuAV9ZjJK1FzZyCSN9/uaqVyaxl5
+FxBo2f1THhF7ofM+10c38a91eARAJIDXlGPKb0S+vjw4JCK8gtoamIyY+co
z5EJr3CufHuri6ocDvLeeFP+5wOQjcAr6jGTV2S41hXXWOY+KTuKs3ktSadX
eJ9rY32dyi1lNDE+nvGzIwDMDLySGJGsyEBUnLHxvBJdlyx4Nn9CltIS6v7Y
GanxroO9oGS98pwXOQdleGCAaiqraG9vL1iLRflSHdw7AEYGXkmMSFZkgHLC
XumTvML5Kw9aD08FEZ/wM/vqygpVOSvo89Sk7nobpsoryrXX2ekpNTc2UmuL
S3zPa70mA8CMwCuJEim2KNYrr/vE9eqN7BVjzU/8fre5WqmhtoZOpbmW0cPe
l5JUeEW+H3bm3OwM1VZX0fLSUtpzOgHIZuCVxBFzkPTD4lqm7//1I/38X7vo
3/PHDbVeCYT6UDXU1lL3x4/0GFqj6DFPIxmvKO/Fx32f+/pEzLTISVHs8+np
fgEwC/BKYkTmqQB5bm7p+OySTqTr4tIjegbqjXjzJT+zT0vvt6WkhNzuVfIr
+gM/93u0JFmvMFwfoNLhoKGBAcn/vrBTsFYBIH3AK+ZEOV/yRxxP67CVU1uL
i269t4aYT1/slUCwRubs9LTk0GLa39tL70ABAFHAK+YiNh+FL55XiwsKaGJi
PJxHbgTUekVei3CvsSqnkxrr6kWOp8GOvgAwPPCKuYj1SkNtHVXa7XRwcBDe
/4l9nV5R4xX5fjgnpay4iGZmZiL1IvV9mwCYDnjFJMTU9jo/O6O6mhrqaGsP
9gwJvUbpFb0TzytR5yLyLUg/+3y3NDw4SKVFxZJD94Of1P8tAmBK4BUTEGkN
I/a5JiYmKP/9O1pdXdV0WMkS6xXP7cOT9Rg7k3tWOsut1NPdrbscHACyEXjF
HPAcy7nyfT29ohYL12Ux+uP6c15h5F6OK8vL9C4nR9TzR4wXAPoAXjE+8jO7
o9xG42NjQaco4qKNSrRXxoRXGL4v7oHc3NQoeiKfnZ2Ft73gFQC0B15JjNjy
UQENcyCU86ff/yDqelXYbHR8dBT8etS4jDvHxnrlJrReWXOv0fvcXFpaXAjW
9mICUduBAAANgVcSJMYj0efH2niFe6O0NHGtq2a6iMkjNwNP9sG8DzQ40E8V
DofkFnfUewIA0A/wSmKICi6hOazn8xH9VL1KP9W4qaprk+7vM1PHRf7vc37/
9NSUyCOfn5sLxnuZsLeh0it/9i99VG61U19PD93KNZfJGHFtAGQb8EpiKNcm
4bqT0nz36u0MeTNUJ18+mx+SntktpaXkufY8HZ+JUHrlT3/1iZaX14M1cwLw
CQB6Bl5RS3T/lVdp6L8Sm7soz6BHh4dkLSsT9SJ9t76U/jc1R9EHWb7n8uZ5
0Ysgcr7if5KHoxfCqTTK+jkmdD0AiQCvqCfd/SLl8xOSf5b+WZibpbycHDrY
34+cVZuJ0FownNd5fkb/9qYp6JXX/fT9D2Np6UOcKsJxFA9+Oj0+0Xo4AGgK
vKKeTHhFfn6/vfVSTWUldXa0i3haI9VhUQvfjcjrHBsjm9VKvyvuDq1X+nTv
FYb/Hyr88J7mZ+fCnzPbewRAIsAr6kmnV+S+lDwfzc5MU2Hee2mtMhesaW+C
s+rnfRgQuY1cw7+nq4t8Ph/ZXHNhr6S6v/1LiDdu/gyvH3s+dYs9Su7pHLsX
BkC2Aa+oJ11eCS5RAnT/cC+e2a2lpaJ/iJl4LlZ7a2uTKuw2GhkaCtdcTrZf
ZDrGHMvx0TG5mhpF/eRH8RoNBgiAzoBX1JNyryjOrLlmYnVlBbW1top6vGZF
nqc5ZvhTd7fkFIeolRkIzc38V6Inr8SOm9coiwsLZLeW09TERDjW20xx3gC8
FHhFPenwCjtkZ3ubPuTm0Mb6Wky+vPkmK763i4sLslksIicl3npAj15hbkN9
jdkp11fX4deY8cwLgJcAr6gnlV4Rta4uL6m7s5OqK5x0enoa9TUzwvUi52Zn
Ra8xrhsZzuukaINq6ZVYR4RrJ+/tksNuo8nxcdE/LN7rAMh24BX1pNIru192
qSg/n6Y/T5qyxnts/JrHc0MtTU3U0d4makd+Db14JViHzU/9vb1UVlRIW1tb
4VhvrFEAeAq8op5kvSI/l29vb1NNVTXt7OyYd35SnB1tbW5Ka7JKGhwYCJ8d
fe2+9eAV4ULp/412l4taXc10eXERXYPUjO8ZAEkCr6gnJV6R5iPeR+F42id1
LM2E6OXoo862NqqVHLq3t/dkLaBnryzMz5HTbhf7Xv5H860nAUgH8Ip63inq
uLx0HyzefGo2r/Cd8Nm8q7mJ2ltdov5yQEUNYq28wmPjHjbTn6fIUhzsa2z2
9wqAVAKvJEZA8UHXxD79zrEsXUvk6Nymu/tHE0ZsvRw5V5DjcIsLC8m9uvqi
2jNaeeXi/Izs5Vb62NFhir6bAGQaeCUxApFmXoo9K7k+vRkjgV9AIBI3xXOy
o7xcxH69dI8vU16JjI9oYX6efvy/34u4r4AZ67ABkAHglQSR58WoOdIcfRlT
Bf89cJx0Yd4HETsV6xQ9e4XjCFwtLnI1NdHR0aF5z7sAyADwinoSPXc2M1F/
BxSsFzk8MEjW0rKoeTkZUu2VeHkm/DPXysl//54mJybCNWSy8T0FIFXAK0At
sc/yfB7PZ/MVDnswDjdFz/rpWq/Ie173d3eh2skW2tnZhksASBHwCkiUWF/w
OQr3QeY6AVOTkymfl9OxXpHHyGuq+toaam5sEHVZ5K8DAJIHXgFqCNeLlObi
0eFhslutdHZ6+nSPKQVHTulYr/A+F+ejWkqKaXFhPvr8J/khAwAIXgFfJzzf
xpxHyPUiObeTKM7ZhQ68ErsXx72be7q7qaa6io6Pjp6ckcErAKQGeAV8DaVX
eN9raXGRLKUlovZyuuuZJeOV2Di04+MjUSt6YnxcxKkBANIHvAK+RbBepEfU
yGpqaBDP+pkgFftgci2WKoeTlhYWTFnbEwC9Aa+A5+BtomDe/DzZLRaanpqM
xOFS+veMkvWK1+ulSqdT1JAJ17Qn7HUBkG7gFZVIk5Lj4zb9zX+P01//Zpx+
KFuk2zsTPgOHnDI7M00lBQW0ublBmZ6R1XhFeVbC8BkQ79dNTU5E1ZCBVwBI
P/BKokT26nMVdSdfvZkmr89vuhjVs7MzqqupppamRrp/eNDk/l6yXuHayUMD
g1RSWEj7+/vIcQRAA+CVRFF6xS3NdX1RXjEL/Gx/eHBAb/73f2j3y5fw3pEW
qF2vXF9fkaPcRp+6usL7dQCAzAOvqINnquB6pU9cr96koL99hnnuGZ7jpNpc
LaKW71EoDlfL3jDxvCLvYylHwg7hsx/OpeG+xqJnGJQCgGbAK+pJZR/iTPPE
FeKTJGK8rGVlNDYyqpuYqWivjEleeQjHPMva4Di1mqpK6unqpquLSy2HCwAI
Aa+ox8hekZG9Ip71pe8BS0kJLS4uPvm6lsTzigyPbXN9g6orK0R+ptKFOJsH
QFvgFfUY3SuyM44Oj6i1uZmam5ro1qu/Gllx98FCvRy5Dn+N5BQ+C4odMbwC
gLbAK+oxg1fkWiyjI8PBZ/1A5Gt64el6xS/qJVdXVFCV00kPyJsHQJfAK+ox
olfkNQrXyOrv6RHz8vHRsdbD+ipKr/zFr0dodm6JSouKaHlpSTdnQACAp8Ar
6jGiVxh+j4sLCmhqYoJuvV6th/NNlF752S87qbamgS7OzwlZ8wDoG3hFPUby
ihw/NfN5mmxlFpqZnjZMbkfUeuU/RujKcxeJBzPA+AHIVuAVdUTyV/olr/TT
q7fTmnvla32Rfb5bqqupEXkpXC+LbyBcxl7juTmqtn6cX+dVjoXzhJTn9vAK
APoGXkmMSN5EIJwX+d0v9O2Vo8NDKisukpziiqqRpRfieiUQrBfZWFdPv/hP
R3C98rqPvv9hLGV9iAEA6QVeSQzlc/K7+jX643/sk64B+ocfZ4L1wXQyPubO
56PJ8XFRI2v3y66un++VY/NL7ltdXaWSgkJac7upvGUOXgHAgMAriSHPyjwH
nlzc0frujbj2Tm7pUSdzNo+N68FzHG57a6uoy6Jnpyjx+x9osL+Pct++Jc+1
R/x9y+cr373up5/DKwAYBnglMZReid2/0RJ5LFwTa3F+ngrz8mh+bi4ch6s3
r4TreynWf+dnZ1TpcFBvzyeR8yi/LuiVYH1PeAUA4wCvGBPlvMzrko8dHaKu
PZ+pGAF57J8nJ6kkv4C2traivsakol8kACDzwCvGRJ6XD/b3JZ/UUkdbm+g9
Eu91ekIet0f6futs7xD5mddXV0++zsArABgTeMWY3N/d0dDggDQvO5486+s1
FlceE5/Jc22vkaFhsX8XiPMavuAVAIwJvGIcZE/ceL3U1fmRysvKgjkpMa/R
q1fufHc0NjoizoAODw+e7RkGrwBgbOAVYyDPtZsbG5JPLCJ/Xo730jPyOf3x
8TE11ddTb08PXV1dJeQ9eAUAYwKvGAOeg/t6eslpK6fz83PtA9EShFckqysr
lJeTQ6vLy+R/8CdciwVeAcCYwCv65+LigmxWC3W0tYp9r+dqtugNjiPo7uyk
lqYGOpHWK9Fj/XbtSHgFAGMCr6gjtmZK2v780B+9OL9AltJSWlt106PO60Uq
R/blyw7ZreU0OTERzklRC7wCgDGBVxIjOJ8H5/zdg1OaXdwS19rWAfkf/ZSq
jSnZK7e3t9T98SMV5edHnUfo2SsM1yGbnZkR43a7V5P6a4FXADAm8EpiKNco
uXXuYB74676U150MPAZo3e2mSqeDxkZHn+b368grUWOTfuI8lJamRmpuaBB7
YLHxw2qBVwAwJvCKGgIhr6zRd7/olbySfD1jpa84l4NrsOTlvqPtre24r9WL
V5TrJ16j7GzvUM6btzQ1OZmyvlvwCgDGBF5RT0r6ein6yfPFfdsb6uqos6Nd
1I7UM0q/8X7duLSucpRb6fjwMKXeg1cAMCbwinpS2S+S5+EJUdO+iDbW18Wa
Re/IXjk9ORG5NH29vcF9r5j9umQdA68AYEzgFfWkyivskI+dHVRbVSn2kSLF
flM63JQhu4LHzXFeXI+f9+14Hyx22PAKANkLvKKeZL3C5w9bm5tUVeGkwYH+
YI0sRWyxrlAIg8fNe3StzS3U3NhIp6cnob7GgaiaLKnaC4NXADAm8Ip6kvXK
zs626A98GDqP0KNOwoS8IuKrv+yQ026joYGBjOzXwSsAGBN4RT3JesXrvaEb
j0c3sV3fgvMaR4aHyVFeTgf7BxnLz4RXADAm8Ip6UnW+oqe44edgp3COY7vL
9eRsPt0LLXgFAGMCr6gn1fFgemVne5sKC/JpeWlJ9DWWz4AylfsPrwBgTOAV
9aTSK3pCGe/VWFdPdbU1dH52rtl44BUAjAm8oh4ze2Vvb09ySh21t7Y+qbGZ
6bUVvAKAMYFX1GNGr/A+F9dgsZSU0Prami5qksErABgTeEUNAfGj1LVBf/5v
g9I1RP+SP2sor8TrU+yR3ntXcxPVVlWLs/l4v0cL4BUAjAm8op4br49OTi+l
64LOL65FvrnhCATz/TmXxl5upenpz3GdoiXwCgDGBF5JjEDUR4pcRr3myX8F
Xn/4Jad0dXSQw8Y5Kfu6jEuDVwAwJvBKYii9In4EQkoxSL+tMNIwj4+OqbWl
hXq6ush3e6tbL8IrABiTy8tLGhwcjNSoAqrQu1eUY+P9Oq6dXFtVRQvz8+Gv
6xV4BQDjoec5BSRH7Hvr9XppsK+fLMUloq+xEYBXADAW8frb6vm5G6hD+T7u
7u6SzWKhSWmtwnVZjPIewysAGIvnHAK3mIvhoUH6/W9/S2enJ9ExxqT/9xpe
AcAc6H2u0RblvByI1MsiDY++FXXslbnx9/f3VFtdRU2NDSImQ8u8+ZcCrwAA
zExAji2O9QrpY65WjmVxfp4KP3wQZ/NajysZ4BUAgJmRvRKdrx4da6zJuBTj
8d7cUF9vD9mtVjo+PtZkPKkEXgEAmB15/h6eP6FS1yaVtW6Sa2SfHh4yn28f
W49lf29P9JvvbG8jH5/NZ3xEqSfolT7hle9/GINXAACmRQ91J2WfcL1I3u8q
KSygjfX1jI8jXbAXw155La1XFF7Rw74jAACkEr14hXNaXU1Nopfj6cmJqeZb
vo/IeqUvvA8W0DZKAgAA0oIevPJle4dy3r4RaxVRKyHjI0gvQa/MRc5XpPWK
51auCWG2uwUAZDvp9sq31hwjQ8NUW11NmxsbkTiwlI5AB0g3NLG4Tz/VuMXF
51l3937z3ScAAJB2Xjk5OaEKu50+feR6kT7MsQAAYBIy4RWlW7hepHt1lUqL
imhleTlqjWKW8xQAAMhmMnG+EslJ8VJ350eqdDro5Pgkbk03AAAAxiYdXoly
RCjX8vT0lIoLCmhqcoL8/kfNczABAACkh3R7xf/gp+nJKbJZreR2u43Z5xgA
AEDCpNorSqdcX12RtbSU2lpb6drjwfoEAACygHSsV3hNsr21RTVVlTQ1MQGX
AACAyVFm4+WyV0L5eq/evMwrytpe19dX1POpm5zl5XRyYvx6kQAAABJDjuvN
kbzCNau4vsjfv5kmL3tFxfJCWReZz+YtxcXU3tqarmEDAADQKbILOscP6be2
FfqtfYVsHdt096BuvcJe8fl8tDA3T5bSUtra2MQ5CgAAZCHhuT+mRn0goC5e
y+u9ETXtuzo6yOO5jvqzAAAAZBNyI6+YzybgA9kbqysrIn54ZGhI1LiHUwAA
ALwE9kb3xy6qr62l3d1duAQAAEBSsEPW3G66C/VyhFcAAAC8lKizGIpso8Et
QI/8P/N5qxI=
    "], {{0, 578.}, {406., 0}}, {0, 255},
    ColorFunction->RGBColor],
   BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
   Selectable->False],
  DefaultBaseStyle->"ImageGraphics",
  ImageSize->{205.79296875, Automatic},
  ImageSizeRaw->{406., 578.},
  PlotRange->{{0, 406.}, {0, 578.}}]], "Input",
 CellID->251602011,ExpressionUUID->"9fa72748-fde7-4d71-bceb-430524c62960"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Formal Properties of the Inverse Laplace Transform", "Subsection",
 CellChangeTimes->{
  3.944210894999962*^9, 3.9442109320342503`*^9, {3.944293202763584*^9, 
   3.944293209112833*^9}, {3.9442932546311116`*^9, 3.944293256095413*^9}},
 CellID->160623248,ExpressionUUID->"8eea38d3-0333-ec44-8c8b-dfb4ddbab49d"],

Cell[CellGroupData[{

Cell["Linearity Property", "Subsubsection",
 CellID->362700404,ExpressionUUID->"91bb37f6-65f0-064b-aebf-b5034ebdae50"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"InverseLaplaceTransform", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"a", " ", 
     RowBox[{"F", "[", "s", "]"}]}], " ", "+", " ", 
    RowBox[{"b", " ", 
     RowBox[{"G", "[", "s", "]"}]}], " ", "+", " ", 
    RowBox[{"c", " ", 
     RowBox[{"H", "[", "s", "]"}]}]}], ",", " ", "s", ",", " ", "t"}], 
  "]"}]], "Input",
 CellID->498916351,ExpressionUUID->"6ef13c0c-ec9e-cf4f-bd71-b0ca5d4e4b6b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"a", " ", 
   RowBox[{"InverseLaplaceTransform", "[", 
    RowBox[{
     RowBox[{"F", "[", "s", "]"}], ",", "s", ",", "t"}], "]"}]}], "+", 
  RowBox[{"b", " ", 
   RowBox[{"InverseLaplaceTransform", "[", 
    RowBox[{
     RowBox[{"G", "[", "s", "]"}], ",", "s", ",", "t"}], "]"}]}], "+", 
  RowBox[{"c", " ", 
   RowBox[{"InverseLaplaceTransform", "[", 
    RowBox[{
     RowBox[{"H", "[", "s", "]"}], ",", "s", ",", "t"}], "]"}]}]}]], "Output",
 CellID->456066059,ExpressionUUID->"94875de1-8433-604d-8caf-5378cd1b00c2"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Scaling Property", "Subsubsection",
 CellID->175972804,ExpressionUUID->"79a2cb50-83e0-4f48-a8d9-a251ed4c4ce8"],

Cell[TextData[Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    RowBox[{
     SubsuperscriptBox["\[ScriptCapitalL]", "s", 
      RowBox[{"-", "1"}]], "[", 
     RowBox[{"F", "(", 
      RowBox[{"a", " ", "s"}], ")"}], "]"}], 
    RowBox[{"(", "t", ")"}]}], "\[LongEqual]", 
   RowBox[{
    FractionBox["1", "a"], 
    RowBox[{
     SubsuperscriptBox["\[ScriptCapitalL]", "s", 
      RowBox[{"-", "1"}]], "[", 
     RowBox[{"F", "(", "s", ")"}], "]"}], 
    RowBox[{"(", 
     FractionBox["t", "a"], ")"}]}]}], 
  TraditionalForm]], \
"InlineMath",ExpressionUUID->"7e5d84b1-3b66-4d7e-86df-684cc931d234"]], \
"DisplayFormula",
 CellID->99839077,ExpressionUUID->"b3414e84-95f5-014f-8ddc-60dff0be0a0f"]
}, Open  ]],

Cell[CellGroupData[{

Cell["First Translation Property", "Subsubsection",
 CellID->951366533,ExpressionUUID->"9ab94a41-2afe-1f41-9464-013e5cf99017"],

Cell[TextData[Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    RowBox[{
     SubsuperscriptBox["\[ScriptCapitalL]", "s", 
      RowBox[{"-", "1"}]], "[", 
     RowBox[{"F", "(", 
      RowBox[{"s", "-", "a"}], ")"}], "]"}], 
    RowBox[{"(", "t", ")"}]}], "\[LongEqual]", 
   RowBox[{
    RowBox[{"exp", "(", 
     RowBox[{"a", " ", "t"}], ")"}], " ", 
    RowBox[{
     SubsuperscriptBox["\[ScriptCapitalL]", "s", 
      RowBox[{"-", "1"}]], "[", 
     RowBox[{"F", "(", "s", ")"}], "]"}], 
    RowBox[{"(", "t", ")"}]}]}], 
  TraditionalForm]], \
"InlineMath",ExpressionUUID->"a4fae77f-4d81-40c2-bdea-33caf6cdd2f8"]], \
"DisplayFormula",
 CellID->412231080,ExpressionUUID->"d8b0af76-6dfc-c64b-965a-4b71b59a6a13"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Second Translation Property", "Subsubsection",
 CellID->66033101,ExpressionUUID->"290742a7-705d-914c-af2c-7a97ed2cd81f"],

Cell[TextData[Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    RowBox[{
     SubsuperscriptBox["\[ScriptCapitalL]", "s", 
      RowBox[{"-", "1"}]], "[", 
     RowBox[{
      RowBox[{"exp", "(", 
       RowBox[{
        RowBox[{"-", "a"}], " ", "s"}], ")"}], 
      RowBox[{"F", "(", "s", ")"}]}], " ", "]"}], 
    RowBox[{"(", "t", ")"}]}], "\[LongEqual]", 
   RowBox[{
    TemplateBox[{
      RowBox[{
        RowBox[{"t", "-", "a"}]}]},
     "UnitStepSeq"], " ", 
    RowBox[{
     SubsuperscriptBox["\[ScriptCapitalL]", "s", 
      RowBox[{"-", "1"}]], "[", 
     RowBox[{"F", "(", "s", ")"}], "]"}], 
    RowBox[{"(", 
     RowBox[{"t", "-", "a"}], ")"}]}]}], 
  TraditionalForm]], \
"InlineMath",ExpressionUUID->"f9b0fa21-c9cd-419c-b97f-d25615d56b4f"]], \
"DisplayFormula",
 CellID->478975253,ExpressionUUID->"9d58b36b-faeb-7745-a2a1-3498504e293e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Multiplication by ",
 Cell[BoxData[
  FormBox["s", TraditionalForm]], "InlineMath",ExpressionUUID->
  "17a0c713-a9ba-7e4d-9d98-6a1974a3497c"],
 " Theorem"
}], "Subsubsection",
 CellID->36288918,ExpressionUUID->"9f2a4e7e-4084-1245-9602-e6a398d68d68"],

Cell[TextData[Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    RowBox[{
     SubsuperscriptBox["\[ScriptCapitalL]", "s", 
      RowBox[{"-", "1"}]], "[", 
     RowBox[{"s", " ", 
      RowBox[{"F", "(", "s", ")"}]}], "]"}], 
    RowBox[{"(", "t", ")"}]}], "\[LongEqual]", 
   RowBox[{
    RowBox[{
     RowBox[{
      SubscriptBox["\[PartialD]", "t"], 
      RowBox[{
       SubsuperscriptBox["\[ScriptCapitalL]", "s", 
        RowBox[{"-", "1"}]], "[", 
       RowBox[{"F", "(", "s", ")"}], "]"}]}], 
     RowBox[{"(", "t", ")"}]}], "+", 
    RowBox[{
     RowBox[{
      SubsuperscriptBox["\[ScriptCapitalL]", "s", 
       RowBox[{"-", "1"}]], "[", 
      RowBox[{"F", "(", "s", ")"}], "]"}], 
     RowBox[{"(", "0", ")"}], "*", 
     TemplateBox[{
       RowBox[{"t"}]},
      "DiracDeltaSeq"]}]}]}], 
  TraditionalForm]], \
"InlineMath",ExpressionUUID->"663dd3a3-321f-4780-bf5a-ab5b70d3e0ba"]], \
"DisplayFormula",
 CellID->101899312,ExpressionUUID->"a8f9c88a-3d42-e047-a3b6-c2da3d2b428f"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Derivative Theorem", "Subsubsection",
 CellID->257203149,ExpressionUUID->"82e5c19b-6dbf-8649-a793-c5242c680144"],

Cell[TextData[Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    RowBox[{
     SubsuperscriptBox["\[ScriptCapitalL]", "s", 
      RowBox[{"-", "1"}]], "[", 
     FractionBox[
      RowBox[{
       SuperscriptBox["\[PartialD]", "n"], 
       RowBox[{"F", "(", "s", ")"}]}], 
      RowBox[{"\[PartialD]", 
       SuperscriptBox["s", "n"]}],
      MultilineFunction->None], "]"}], 
    RowBox[{"(", "t", ")"}]}], "\[LongEqual]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"-", "1"}], ")"}], "n"], " ", 
    SuperscriptBox["t", "n"], " ", 
    RowBox[{
     SubsuperscriptBox["\[ScriptCapitalL]", "s", 
      RowBox[{"-", "1"}]], "[", 
     RowBox[{"F", "(", "s", ")"}], "]"}], 
    RowBox[{"(", "t", ")"}]}]}], 
  TraditionalForm]], \
"InlineMath",ExpressionUUID->"79d297c3-4cb1-403a-a383-c7e6fa3378aa"]], \
"DisplayFormula",
 CellID->791261539,ExpressionUUID->"b46e6f78-350a-6140-b124-2ff550c23dcc"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Convolution Theorem", "Subsubsection",
 CellID->116233304,ExpressionUUID->"26cffd84-6159-bd47-9743-50fffc295fa6"],

Cell[TextData[Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    RowBox[{
     SubsuperscriptBox["\[ScriptCapitalL]", "s", 
      RowBox[{"-", "1"}]], "[", 
     RowBox[{
      RowBox[{"F", "(", "s", ")"}], " ", 
      RowBox[{"G", "(", "s", ")"}]}], "]"}], 
    RowBox[{"(", "t", ")"}]}], "\[LongEqual]", 
   RowBox[{"UnilateralConvolve", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       SubsuperscriptBox["\[ScriptCapitalL]", "s", 
        RowBox[{"-", "1"}]], "[", 
       RowBox[{"F", "(", "s", ")"}], "]"}], 
      RowBox[{"(", "\[Tau]", ")"}]}], ",", 
     RowBox[{
      RowBox[{
       SubsuperscriptBox["\[ScriptCapitalL]", "s", 
        RowBox[{"-", "1"}]], "[", 
       RowBox[{"G", "(", "s", ")"}], "]"}], 
      RowBox[{"(", "\[Tau]", ")"}]}], ",", "\[Tau]", ",", "t"}], "]"}]}], 
  TraditionalForm]], \
"InlineMath",ExpressionUUID->"822144cb-fcb4-4d45-aefd-1f580ce229a7"]], \
"DisplayFormula",
 CellID->590721911,ExpressionUUID->"a91d9895-67dd-1e41-b671-33ae18e12c9d"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Complex Inversion", "Subsection",
 CellID->36342766,ExpressionUUID->"1ff8ed38-0b11-6941-a776-0fe6a5d0cd11"],

Cell[TextData[{
 "To evaluate the integral in (",
 
 CounterBox["DisplayFormulaNumbered", "F1",
  BaseStyle->"Hyperlink"],
 "), close the contour to the left where ",
 Cell[BoxData[
  FormBox[
   RowBox[{"F", "(", "s", ")"}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"5d542c0d-7909-d146-9b08-7c08dd454e48"],
 " is not always analytic. It can have poles, essential singularities and \
branch cuts. The contour should be chosen such that all isolated \
singularities lie inside the contour. It also needs to avoid crossing branch \
cuts. Then use Cauchy\[CloseCurlyQuote]s residue theorem to evaluate the \
contour integral."
}], "Text",
 CellID->21344550,ExpressionUUID->"5e60070c-c567-3843-ad66-708ec2232dd7"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Series and Asymptotic Expansions", "Subsection",
 CellChangeTimes->{3.652728456208679*^9, 3.652728527108994*^9, 
  3.9549399218765793`*^9},
 CellID->7180419,ExpressionUUID->"7728aeba-aec6-ee4f-a108-f5b876ab6e34"],

Cell[TextData[{
 StyleBox["Theorem",
  FontWeight->"Bold"],
 ": If the series ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"F", "(", "s", ")"}], "\[LongEqual]", 
    RowBox[{
     UnderoverscriptBox["\[Sum]", 
      RowBox[{"\[VeryThinSpace]", 
       RowBox[{"n", "=", "0"}]}], 
      RowBox[{"\[VeryThinSpace]", "\[Infinity]"}]], 
     FractionBox[
      SubscriptBox["a", "n"], 
      SuperscriptBox["s", 
       RowBox[{"\[Nu]", "+", "n", "+", "1"}]]]}]}], TraditionalForm]], 
  "InlineMath",ExpressionUUID->"46425bdf-4e41-7d41-94b0-5566883c685c"],
 ", where ",
 Cell[BoxData[
  FormBox[
   RowBox[{"\[Nu]", ">", 
    RowBox[{"-", "1"}]}], TraditionalForm]], "InlineMath",ExpressionUUID->
  "1b837ea2-95c1-e94b-bf1b-35056045e24c"],
 ", converges for ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    TemplateBox[{"s"},
     "Abs"], ">", "R"}], TraditionalForm]], "InlineMath",ExpressionUUID->
  "1a787fde-f683-6242-97c9-8f39fda72a7f"],
 ", then the inverse Laplace transform of ",
 Cell[BoxData[
  FormBox[
   RowBox[{"F", "(", "s", ")"}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"61476b3c-68f1-a44b-ada2-d21df985c4bc"],
 " is given by ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"f", "(", "t", ")"}], "\[LongEqual]", 
    RowBox[{
     RowBox[{
      SubsuperscriptBox["\[ScriptCapitalL]", "s", 
       RowBox[{"-", "1"}]], "[", 
      RowBox[{"F", "(", "s", ")"}], "]"}], 
     RowBox[{"(", "t", ")"}]}], "\[LongEqual]", 
    RowBox[{
     UnderoverscriptBox["\[Sum]", 
      RowBox[{"\[VeryThinSpace]", 
       RowBox[{"n", "=", "0"}]}], 
      RowBox[{"\[VeryThinSpace]", "\[Infinity]"}]], 
     FractionBox[
      RowBox[{
       SubscriptBox["a", "n"], " ", 
       SuperscriptBox["t", 
        RowBox[{"\[Nu]", "+", "n"}]]}], 
      TemplateBox[{
        RowBox[{"n", "+", "\[Nu]", "+", "1"}]},
       "Gamma"]]}]}], TraditionalForm]], "InlineMath",ExpressionUUID->
  "2531bda8-76fa-9143-ba40-d2be2593ecd2"],
 ", which converges for any ",
 Cell[BoxData[
  FormBox[
   RowBox[{"t", ">", "0"}], TraditionalForm]], "InlineMath",ExpressionUUID->
  "9120a4e2-5ce2-4346-9a22-a3959d26d7a7"],
 ". "
}], "Text",
 CellID->695544438,ExpressionUUID->"f467cb23-ed0a-7045-8504-1455e85af836"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Faslist", " ", "=", " ", 
    RowBox[{"{", 
     RowBox[{
      FractionBox["1", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["s", "2"], "+", 
          SuperscriptBox["a", "2"]}], ")"}], "2"]], ",", " ", 
      RowBox[{"s", "*", 
       RowBox[{"Log", "[", 
        FractionBox[
         RowBox[{
          SuperscriptBox["s", "2"], "+", 
          SuperscriptBox["a", "2"]}], 
         RowBox[{
          SuperscriptBox["s", "2"], "-", 
          SuperscriptBox["a", "2"]}]], "]"}]}], ",", 
      FractionBox["1", 
       RowBox[{
        RowBox[{"Sqrt", "[", "s", "]"}], 
        RowBox[{"(", 
         RowBox[{"s", "-", "1"}], ")"}]}]], ",", 
      InterpretationBox[
       DynamicModuleBox[{Typeset`open = False}, 
        TemplateBox[{"Expression", "SequenceIcon", 
          GridBox[{{
             RowBox[{
               TagBox["\"Head: \"", "IconizedLabel"], "\[InvisibleSpace]", 
               TagBox["Sequence", "IconizedItem"]}]}, {
             RowBox[{
               TagBox["\"Length: \"", "IconizedLabel"], "\[InvisibleSpace]", 
               TagBox["3", "IconizedItem"]}]}, {
             RowBox[{
               TagBox["\"Byte count: \"", "IconizedLabel"], 
               "\[InvisibleSpace]", 
               TagBox["1040", "IconizedItem"]}]}}, 
           GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> 
           "Column", 
           GridBoxItemSize -> {
            "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
          Dynamic[Typeset`open]},
         "IconizedObject"]],
       Sequence[
        ArcSinh[
         Sqrt[$CellContext`a/$CellContext`s]], 
        Exp[(-1)/$CellContext`s]/$CellContext`s, 1/($CellContext`s^(3/2) - 1)],
       SelectWithContents->True,
       Selectable->False]}], "}"}]}], ";"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Grid", "[", 
   InterpretationBox[
    DynamicModuleBox[{Typeset`open = False}, 
     TemplateBox[{"Expression", "SequenceIcon", 
       GridBox[{{
          RowBox[{
            TagBox["\"Head: \"", "IconizedLabel"], "\[InvisibleSpace]", 
            TagBox["Sequence", "IconizedItem"]}]}, {
          RowBox[{
            TagBox["\"Length: \"", "IconizedLabel"], "\[InvisibleSpace]", 
            TagBox["6", "IconizedItem"]}]}, {
          RowBox[{
            TagBox["\"Byte count: \"", "IconizedLabel"], "\[InvisibleSpace]", 
            TagBox["2432", "IconizedItem"]}]}}, 
        GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> 
        "Column", 
        GridBoxItemSize -> {
         "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
       Dynamic[Typeset`open]},
      "IconizedObject"]],
    Sequence[
     Join[{{
        $CellContext`F[$CellContext`s], 
        InverseLaplaceTransform[
         $CellContext`F[$CellContext`s], $CellContext`s, $CellContext`t]}}, 
      Transpose[{$CellContext`Faslist, 
        Map[Assuming[{$CellContext`a > 0}, 
          FullSimplify[
           
           InverseLaplaceTransform[#, $CellContext`s, $CellContext`t]]]& , \
$CellContext`Faslist]}]], Background -> {None, {{None, 
         GrayLevel[0.9]}}, {{1, 1} -> Hue[0.6, 0.4, 1], {1, 2} -> 
        Hue[0.6, 0.4, 1]}}, 
     BaseStyle -> {FontFamily -> Times, FontSize -> 12}, Dividers -> All, 
     FrameStyle -> Hue[0.6, 0.4, 0.8], Spacings -> {2, 1}],
    SelectWithContents->True,
    Selectable->False], "]"}], "//", "TraditionalForm"}]}], "Input",
 CellChangeTimes->{{3.944292989595684*^9, 3.9442929901481886`*^9}, {
   3.944293025696291*^9, 3.944293026786984*^9}, 3.944293060638762*^9, 
   3.944293151510373*^9, {3.944293189958267*^9, 3.9442931906161222`*^9}, {
   3.9549376472945137`*^9, 3.9549376570605946`*^9}, {3.954940151563217*^9, 
   3.9549401906451187`*^9}, {3.9549404322828236`*^9, 
   3.9549404434821434`*^9}, {3.954940605882164*^9, 3.9549406065484715`*^9}, {
   3.9549406463394146`*^9, 3.954940646913416*^9}, {3.954940686875847*^9, 
   3.9549406873397465`*^9}, {3.954940758144804*^9, 3.954940802155985*^9}},
 CellID->353007756,ExpressionUUID->"2d3293fa-dc84-9f4f-ad69-8e829721873b"],

Cell[BoxData[
 FormBox[
  TagBox[GridBox[{
     {
      RowBox[{"F", "(", "s", ")"}], 
      RowBox[{
       RowBox[{
        SubsuperscriptBox["\[ScriptCapitalL]", "s", 
         RowBox[{"-", "1"}]], "[", 
        RowBox[{"F", "(", "s", ")"}], "]"}], 
       RowBox[{"(", "t", ")"}]}]},
     {
      FractionBox["1", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["a", "2"], "+", 
          SuperscriptBox["s", "2"]}], ")"}], "2"]], 
      FractionBox[
       RowBox[{
        RowBox[{"sin", "(", 
         RowBox[{"a", " ", "t"}], ")"}], "-", 
        RowBox[{"a", " ", "t", " ", 
         RowBox[{"cos", "(", 
          RowBox[{"a", " ", "t"}], ")"}]}]}], 
       RowBox[{"2", " ", 
        SuperscriptBox["a", "3"]}]]},
     {
      RowBox[{"s", " ", 
       RowBox[{"log", "(", 
        FractionBox[
         RowBox[{
          SuperscriptBox["a", "2"], "+", 
          SuperscriptBox["s", "2"]}], 
         RowBox[{
          SuperscriptBox["s", "2"], "-", 
          SuperscriptBox["a", "2"]}]], ")"}]}], 
      FractionBox[
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"a", " ", "t", " ", 
           RowBox[{"sin", "(", 
            RowBox[{"a", " ", "t"}], ")"}]}], "+", 
          RowBox[{"cos", "(", 
           RowBox[{"a", " ", "t"}], ")"}], "+", 
          RowBox[{"a", " ", "t", " ", 
           RowBox[{"sinh", "(", 
            RowBox[{"a", " ", "t"}], ")"}]}], "-", 
          RowBox[{"cosh", "(", 
           RowBox[{"a", " ", "t"}], ")"}]}], ")"}]}], 
       SuperscriptBox["t", "2"]]},
     {
      FractionBox["1", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"s", "-", "1"}], ")"}], " ", 
        SqrtBox["s"]}]], 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", "t"], " ", 
       RowBox[{"erf", "(", 
        SqrtBox["t"], ")"}]}]},
     {
      RowBox[{
       SuperscriptBox["sinh", 
        RowBox[{"-", "1"}]], "(", 
       SqrtBox[
        FractionBox["a", "s"]], ")"}], 
      FractionBox[
       RowBox[{"erf", "(", 
        SqrtBox[
         RowBox[{"a", " ", "t"}]], ")"}], 
       RowBox[{"2", " ", "t"}]]},
     {
      FractionBox[
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", "1"}], "/", "s"}]], "s"], 
      TemplateBox[{"1", 
        RowBox[{"-", "t"}]},
       "Hypergeometric0F1Regularized"]},
     {
      FractionBox["1", 
       RowBox[{
        SuperscriptBox["s", 
         RowBox[{"3", "/", "2"}]], "-", "1"}]], 
      RowBox[{
       SqrtBox["t"], " ", 
       TemplateBox[{
         FractionBox["3", "2"], 
         FractionBox["3", "2"], 
         SuperscriptBox["t", 
          RowBox[{"3", "/", "2"}]]},
        "MittagLefflerE2"]}]}
    },
    AutoDelete->False,
    BaseStyle->{FontFamily -> Times, FontSize -> 12},
    FrameStyle->Hue[0.6, 0.4, 0.8],
    GridBoxBackground->{"Columns" -> {{None}}, "Rows" -> {{None, 
         GrayLevel[0.9]}}, 
      "ItemsIndexed" -> {{1, 1} -> Hue[0.6, 0.4, 1], {1, 2} -> 
        Hue[0.6, 0.4, 1]}},
    GridBoxDividers->{"Columns" -> {{True}}, "Rows" -> {{True}}},
    GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
    GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {{1}}}],
   "Grid"], TraditionalForm]], "Output",
 CellChangeTimes->{3.9549408112457447`*^9},
 CellID->94413287,ExpressionUUID->"04138f54-91f2-4047-a8eb-f9d5f93ca875"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Multivariate Transforms", "Subsection",
 CellChangeTimes->{3.652728456208679*^9, 3.652728527108994*^9, 
  3.9549399218765793`*^9, 3.9549408927670803`*^9},
 CellID->685208874,ExpressionUUID->"13fce2fa-59b0-d64f-a539-bb4023a08f13"],

Cell[TextData[{
 "The bivariate Laplace transform of a function ",
 Cell[BoxData[
  FormBox[
   RowBox[{"f", "(", 
    RowBox[{"x", ",", "y"}], ")"}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"c3f5b6d2-7b52-6f41-a48f-b51087080b2e"],
 " is defined as follows:"
}], "Text",
 CellChangeTimes->{{3.9106104327062187`*^9, 3.9106104460052*^9}, {
  3.910610547403452*^9, 3.910610565773028*^9}},
 CellID->1640621672,ExpressionUUID->"b1c94c8c-2da0-dd46-997f-6c1b63114387"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"F", 
    RowBox[{"(", 
     RowBox[{"p", ",", "q"}], ")"}]}], "\[LongEqual]", 
   RowBox[{
    RowBox[{
     SubscriptBox["\[ScriptCapitalL]", 
      RowBox[{"x", ",", "y"}]], "[", 
     RowBox[{"f", 
      RowBox[{"(", 
       RowBox[{"x", ",", "y"}], ")"}]}], "]"}], 
    RowBox[{"(", 
     RowBox[{"p", ",", "q"}], ")"}]}], "\[LongEqual]", 
   RowBox[{
    SubsuperscriptBox["\[Integral]", "0", 
     RowBox[{"\[VeryThinSpace]", "\[Infinity]"}]], 
    RowBox[{
     SubsuperscriptBox["\[Integral]", "0", 
      RowBox[{"\[VeryThinSpace]", "\[Infinity]"}]], 
     RowBox[{
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "p"}], " ", "x"}], "-", 
        RowBox[{"q", " ", "y"}]}]], 
      RowBox[{"f", "(", 
       RowBox[{"x", ",", "y"}], ")"}], " ", 
      RowBox[{"\[DifferentialD]", "x"}], 
      RowBox[{"\[DifferentialD]", "y"}]}]}]}]}], 
  TraditionalForm]], "DisplayFormulaNumbered",
 CellTags->"multivariate-definition",
 CellID->167801706,ExpressionUUID->"034b4b09-4105-d446-903a-6be9155aca87"],

Cell["The inverse transform is:", "Text",
 CellChangeTimes->{{3.910881571556139*^9, 3.910881598276021*^9}, {
  3.910881630073399*^9, 3.910881705502491*^9}, {3.910881737500885*^9, 
  3.9108817389256167`*^9}, {3.910881883493351*^9, 3.910881885067577*^9}, {
  3.917266956422778*^9, 3.9172670096145573`*^9}, {3.9549412087759247`*^9, 
  3.954941217436676*^9}, {3.954941286783472*^9, 3.9549412872613945`*^9}},
 CellID->147413893,ExpressionUUID->"04744635-20db-274d-8bd0-93256afad417"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"f", 
    RowBox[{"(", 
     RowBox[{"x", ",", "y"}], ")"}]}], "\[LongEqual]", 
   RowBox[{
    RowBox[{
     SubsuperscriptBox["\[ScriptCapitalL]", 
      RowBox[{"p", ",", "q"}], 
      RowBox[{"-", "1"}]], "[", 
     RowBox[{"F", 
      RowBox[{"(", 
       RowBox[{"p", ",", "q"}], ")"}]}], "]"}], 
    RowBox[{"(", 
     RowBox[{"x", ",", "y"}], ")"}]}], "\[LongEqual]", 
   RowBox[{
    RowBox[{
     SubsuperscriptBox["\[ScriptCapitalL]", "q", 
      RowBox[{"-", "1"}]], "[", 
     RowBox[{
      RowBox[{
       SubsuperscriptBox["\[ScriptCapitalL]", "p", 
        RowBox[{"-", "1"}]], "[", 
       RowBox[{"F", 
        RowBox[{"(", 
         RowBox[{"p", ",", "q"}], ")"}]}], "]"}], 
      RowBox[{"(", "x", ")"}]}], "]"}], 
    RowBox[{"(", "y", ")"}]}]}], TraditionalForm]], "DisplayFormulaNumbered",
 CellChangeTimes->{{3.91088190401266*^9, 3.910881961832605*^9}, {
  3.917267007031329*^9, 3.917267007031392*^9}, {3.9306708962274265`*^9, 
  3.930670896849953*^9}, {3.945761798502781*^9, 3.9457618014619465`*^9}},
 CellTags->"double-inverse",
 CellID->388391339,ExpressionUUID->"7431ac82-7f28-8644-9a13-784ece866782"],

Cell["\<\
The univariate inverse Laplace transforms can be applied in any order:\
\>", "Text",
 CellChangeTimes->{{3.9108825454789057`*^9, 3.910882579381172*^9}, {
  3.910882696435492*^9, 3.9108827095116034`*^9}, {3.910882740799789*^9, 
  3.9108827411762857`*^9}, {3.917267021051928*^9, 3.9172670213617*^9}, {
  3.95494123796739*^9, 3.954941271449959*^9}},
 CellID->1754147363,ExpressionUUID->"d7fb3777-2a94-6f43-b374-736f5c299696"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"f", 
    RowBox[{"(", 
     RowBox[{"x", ",", "y"}], ")"}]}], "\[LongEqual]", 
   RowBox[{
    RowBox[{
     SubsuperscriptBox["\[ScriptCapitalL]", "p", 
      RowBox[{"-", "1"}]], "[", 
     RowBox[{
      RowBox[{
       SubsuperscriptBox["\[ScriptCapitalL]", "q", 
        RowBox[{"-", "1"}]], "[", 
       RowBox[{"F", 
        RowBox[{"(", 
         RowBox[{"p", ",", "q"}], ")"}]}], "]"}], 
      RowBox[{"(", "y", ")"}]}], "]"}], 
    RowBox[{"(", "x", ")"}]}]}], TraditionalForm]], "DisplayFormulaNumbered",
 CellChangeTimes->{{3.910882744525689*^9, 3.91088275679659*^9}, {
  3.930670905860481*^9, 3.9306709064474163`*^9}, {3.9457618137885113`*^9, 
  3.9457618170053673`*^9}},
 CellTags->"double-inverse2",
 CellID->1612391923,ExpressionUUID->"e46d467b-6682-0a49-83e7-76cad4f11f09"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Fmlist", " ", "=", " ", 
    RowBox[{"{", 
     RowBox[{
      FractionBox["1", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"p", "-", "1"}], ")"}], 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["q", "2"], "+", "1"}], ")"}]}]], ",", " ", 
      FractionBox["1", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"p", "+", "q", "-", "b"}], ")"}], "p"}]], ",", 
      FractionBox["1", 
       RowBox[{
        RowBox[{"p", "*", "q"}], "+", "a"}]], ",", 
      FractionBox[
       RowBox[{"Exp", "[", 
        RowBox[{"-", 
         FractionBox["1", "s"]}], "]"}], "s"], ",", 
      FractionBox["1", 
       RowBox[{
        SuperscriptBox["s", 
         RowBox[{"3", "/", "2"}]], "-", "1"}]]}], "}"}]}], ";"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Grid", "[", 
   InterpretationBox[
    DynamicModuleBox[{Typeset`open = False}, 
     TemplateBox[{"Expression", "SequenceIcon", 
       GridBox[{{
          RowBox[{
            TagBox["\"Head: \"", "IconizedLabel"], "\[InvisibleSpace]", 
            TagBox["Sequence", "IconizedItem"]}]}, {
          RowBox[{
            TagBox["\"Length: \"", "IconizedLabel"], "\[InvisibleSpace]", 
            TagBox["6", "IconizedItem"]}]}, {
          RowBox[{
            TagBox["\"Byte count: \"", "IconizedLabel"], "\[InvisibleSpace]", 
            TagBox["2672", "IconizedItem"]}]}}, 
        GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> 
        "Column", 
        GridBoxItemSize -> {
         "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
       Dynamic[Typeset`open]},
      "IconizedObject"]],
    Sequence[
     Join[{{
        $CellContext`F[$CellContext`p, $CellContext`q], 
        InverseLaplaceTransform[
         $CellContext`F[$CellContext`p, $CellContext`q], {$CellContext`p, \
$CellContext`q}, {$CellContext`x, $CellContext`y}]}}, 
      Transpose[{$CellContext`Fmlist, 
        Map[Assuming[{$CellContext`a > 0}, 
          FullSimplify[
           
           InverseLaplaceTransform[#, {$CellContext`p, $CellContext`q}, \
{$CellContext`x, $CellContext`y}]]]& , $CellContext`Fmlist]}]], 
     Background -> {None, {{None, 
         GrayLevel[0.9]}}, {{1, 1} -> Hue[0.6, 0.4, 1], {1, 2} -> 
        Hue[0.6, 0.4, 1]}}, 
     BaseStyle -> {FontFamily -> Times, FontSize -> 12}, Dividers -> All, 
     FrameStyle -> Hue[0.6, 0.4, 0.8], Spacings -> {2, 1}],
    SelectWithContents->True,
    Selectable->False], "]"}], "//", "TraditionalForm"}]}], "Input",
 CellChangeTimes->{{3.944292989595684*^9, 3.9442929901481886`*^9}, {
   3.944293025696291*^9, 3.944293026786984*^9}, 3.944293060638762*^9, 
   3.944293151510373*^9, {3.944293189958267*^9, 3.9442931906161222`*^9}, {
   3.9549376472945137`*^9, 3.9549376570605946`*^9}, {3.954940151563217*^9, 
   3.9549401906451187`*^9}, {3.9549404322828236`*^9, 
   3.9549404434821434`*^9}, {3.954940605882164*^9, 3.9549406065484715`*^9}, {
   3.9549406463394146`*^9, 3.954940646913416*^9}, {3.954940686875847*^9, 
   3.9549406873397465`*^9}, {3.954940758144804*^9, 3.954940802155985*^9}, {
   3.954940954082033*^9, 3.9549410212826824`*^9}, 3.9549413544861336`*^9, {
   3.9549414149088573`*^9, 3.9549415060605583`*^9}, 3.9549415930044365`*^9, 
   3.9549416478061333`*^9, 3.954942031026409*^9},
 CellID->529666229,ExpressionUUID->"03b4890f-49d3-5947-80e5-028e0057f46e"],

Cell[BoxData[
 FormBox[
  TagBox[GridBox[{
     {
      RowBox[{"F", "(", 
       RowBox[{"p", ",", "q"}], ")"}], 
      RowBox[{
       RowBox[{
        SubsuperscriptBox["\[ScriptCapitalL]", 
         RowBox[{"p", ",", "q"}], 
         RowBox[{"-", "1"}]], "[", 
        RowBox[{"F", "(", 
         RowBox[{"p", ",", "q"}], ")"}], "]"}], 
       RowBox[{"(", 
        RowBox[{"x", ",", "y"}], ")"}]}]},
     {
      FractionBox["1", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"p", "-", "1"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["q", "2"], "+", "1"}], ")"}]}]], 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", "x"], " ", 
       RowBox[{"sin", "(", "y", ")"}]}]},
     {
      FractionBox["1", 
       RowBox[{"p", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "b"}], "+", "p", "+", "q"}], ")"}]}]], 
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"b", " ", "y"}]]}], " ", 
       RowBox[{"(", 
        RowBox[{
         TemplateBox[{
           RowBox[{
             RowBox[{"y", "-", "x"}]}]},
          "HeavisideThetaSeq"], "-", "1"}], ")"}]}]},
     {
      FractionBox["1", 
       RowBox[{"a", "+", 
        RowBox[{"p", " ", "q"}]}]], 
      TemplateBox[{"1", 
        RowBox[{
          RowBox[{"-", "a"}], " ", "x", " ", "y"}]},
       "Hypergeometric0F1Regularized"]},
     {
      FractionBox[
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", "1"}], "/", "s"}]], "s"], 
      FractionBox[
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "1"}], "/", "s"}]], " ", 
        TemplateBox[{
          RowBox[{"x"}]},
         "DiracDeltaSeq"], " ", 
        TemplateBox[{
          RowBox[{"y"}]},
         "DiracDeltaSeq"]}], "s"]},
     {
      FractionBox["1", 
       RowBox[{
        SuperscriptBox["s", 
         RowBox[{"3", "/", "2"}]], "-", "1"}]], 
      FractionBox[
       RowBox[{
        TemplateBox[{
          RowBox[{"x"}]},
         "DiracDeltaSeq"], " ", 
        TemplateBox[{
          RowBox[{"y"}]},
         "DiracDeltaSeq"]}], 
       RowBox[{
        SuperscriptBox["s", 
         RowBox[{"3", "/", "2"}]], "-", "1"}]]}
    },
    AutoDelete->False,
    BaseStyle->{FontFamily -> Times, FontSize -> 12},
    FrameStyle->Hue[0.6, 0.4, 0.8],
    GridBoxBackground->{"Columns" -> {{None}}, "Rows" -> {{None, 
         GrayLevel[0.9]}}, 
      "ItemsIndexed" -> {{1, 1} -> Hue[0.6, 0.4, 1], {1, 2} -> 
        Hue[0.6, 0.4, 1]}},
    GridBoxDividers->{"Columns" -> {{True}}, "Rows" -> {{True}}},
    GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
    GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {{1}}}],
   "Grid"], TraditionalForm]], "Output",
 CellChangeTimes->{3.9549408112457447`*^9, 3.9549419009084816`*^9, 
  3.954942034665001*^9},
 CellID->93804763,ExpressionUUID->"9dc5428e-1573-7b49-8472-2c37362e06eb"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Numerical Inversion", "Subsection",
 CellID->110022934,ExpressionUUID->"2cc45a62-768a-ff4a-96b0-a566abe1aed3"],

Cell["\<\
Numerical methods can prove useful for functions for which obtaining an \
analytic inversion is either impossible or too challenging. Specific \
methods/algorithms for evaluating such integrals have been developed, and a \
few of them were presented in this book: Stehfest, Weeks, Papoulis, Durbin, \
DurbinFFT, Crump, Talbot, Piessens.\
\>", "Text",
 CellID->51297785,ExpressionUUID->"b0a65a53-9d65-f441-a74b-342c3d3a53dd"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Inverse Laplace Transform for Some Functions", "Subsection",
 CellChangeTimes->{
  3.944210894999962*^9, 3.9442109320342503`*^9, {3.944291047779544*^9, 
   3.944291063237255*^9}, {3.9442918551588182`*^9, 3.944291856156967*^9}, {
   3.944292372723883*^9, 3.9442923840382967`*^9}, {3.944292871670517*^9, 
   3.9442928788223763`*^9}, {3.9442932251909475`*^9, 3.9442932275968304`*^9}},
 CellID->170824177,ExpressionUUID->"96f5a754-5cbc-7848-8650-12bf971eeff7"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Flist", " ", "=", " ", 
    RowBox[{"{", 
     RowBox[{"1", ",", " ", 
      RowBox[{"1", "/", 
       RowBox[{"(", 
        RowBox[{"s", " ", "-", " ", "a"}], ")"}]}], ",", " ", 
      RowBox[{"1", "/", 
       RowBox[{"s", "^", "2"}]}], ",", " ", 
      RowBox[{"a", "/", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"a", "^", "2"}], " ", "+", " ", 
         RowBox[{"s", "^", "2"}]}], ")"}]}], ",", " ", 
      RowBox[{"s", "/", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"a", "^", "2"}], " ", "+", " ", 
         RowBox[{"s", "^", "2"}]}], ")"}]}], ",", " ", 
      InterpretationBox[
       DynamicModuleBox[{Typeset`open = False}, 
        TemplateBox[{"Expression", "SequenceIcon", 
          GridBox[{{
             RowBox[{
               TagBox["\"Head: \"", "IconizedLabel"], "\[InvisibleSpace]", 
               TagBox["Sequence", "IconizedItem"]}]}, {
             RowBox[{
               TagBox["\"Length: \"", "IconizedLabel"], "\[InvisibleSpace]", 
               TagBox["11", "IconizedItem"]}]}, {
             RowBox[{
               TagBox["\"Byte count: \"", "IconizedLabel"], 
               "\[InvisibleSpace]", 
               TagBox["3704", "IconizedItem"]}]}}, 
           GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> 
           "Column", 
           GridBoxItemSize -> {
            "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
          Dynamic[Typeset`open]},
         "IconizedObject"]],
       Sequence[$CellContext`s/($CellContext`s^2 - $CellContext`a^2)^2, 1/
        Sqrt[$CellContext`s + $CellContext`a], 1/($CellContext`s 
        Sqrt[$CellContext`s]), 1/($CellContext`s 
        Sqrt[$CellContext`s + $CellContext`a]), 1/
        Sqrt[$CellContext`s^2 + $CellContext`a^2], 
        Exp[(-$CellContext`a)/$CellContext`s]/Sqrt[$CellContext`s], 
        Exp[(-$CellContext`a) Sqrt[$CellContext`s]]/Sqrt[$CellContext`s], 
        Exp[(-$CellContext`a) Sqrt[$CellContext`s]]/$CellContext`s, 
        Log[$CellContext`s]/$CellContext`s, 
        Log[($CellContext`s + $CellContext`a)/($CellContext`s + \
$CellContext`b)], 1/$CellContext`s^($CellContext`n + 1)],
       SelectWithContents->True,
       Selectable->False]}], "}"}]}], ";"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Grid", "[", 
   InterpretationBox[
    DynamicModuleBox[{Typeset`open = False}, 
     TemplateBox[{"Expression", "SequenceIcon", 
       GridBox[{{
          RowBox[{
            TagBox["\"Head: \"", "IconizedLabel"], "\[InvisibleSpace]", 
            TagBox["Sequence", "IconizedItem"]}]}, {
          RowBox[{
            TagBox["\"Length: \"", "IconizedLabel"], "\[InvisibleSpace]", 
            TagBox["6", "IconizedItem"]}]}, {
          RowBox[{
            TagBox["\"Byte count: \"", "IconizedLabel"], "\[InvisibleSpace]", 
            TagBox["2432", "IconizedItem"]}]}}, 
        GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> 
        "Column", 
        GridBoxItemSize -> {
         "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
       Dynamic[Typeset`open]},
      "IconizedObject"]],
    Sequence[
     Join[{{
        $CellContext`F[$CellContext`s], 
        InverseLaplaceTransform[
         $CellContext`F[$CellContext`s], $CellContext`s, $CellContext`t]}}, 
      Transpose[{$CellContext`Flist, 
        Map[Assuming[{$CellContext`a > 0}, 
          FullSimplify[
           
           InverseLaplaceTransform[#, $CellContext`s, $CellContext`t]]]& , \
$CellContext`Flist]}]], Background -> {None, {{None, 
         GrayLevel[0.9]}}, {{1, 1} -> Hue[0.6, 0.4, 1], {1, 2} -> 
        Hue[0.6, 0.4, 1]}}, 
     BaseStyle -> {FontFamily -> Times, FontSize -> 12}, Dividers -> All, 
     FrameStyle -> Hue[0.6, 0.4, 0.8], Spacings -> {2, 1}],
    SelectWithContents->True,
    Selectable->False], "]"}], "//", "TraditionalForm"}]}], "Input",
 CellChangeTimes->{{3.944292989595684*^9, 3.9442929901481886`*^9}, {
   3.944293025696291*^9, 3.944293026786984*^9}, 3.944293060638762*^9, 
   3.944293151510373*^9, {3.944293189958267*^9, 3.9442931906161222`*^9}, {
   3.9549376472945137`*^9, 3.9549376570605946`*^9}},
 CellID->805333410,ExpressionUUID->"091f841d-3a38-1145-a9de-751a70b8f949"],

Cell[BoxData[
 FormBox[
  TagBox[GridBox[{
     {
      RowBox[{"F", "(", "s", ")"}], 
      RowBox[{
       RowBox[{
        SubsuperscriptBox["\[ScriptCapitalL]", "s", 
         RowBox[{"-", "1"}]], "[", 
        RowBox[{"F", "(", "s", ")"}], "]"}], 
       RowBox[{"(", "t", ")"}]}]},
     {"1", 
      TemplateBox[{
        RowBox[{"t"}]},
       "DiracDeltaSeq"]},
     {
      FractionBox["1", 
       RowBox[{"s", "-", "a"}]], 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"a", " ", "t"}]]},
     {
      FractionBox["1", 
       SuperscriptBox["s", "2"]], "t"},
     {
      FractionBox["a", 
       RowBox[{
        SuperscriptBox["a", "2"], "+", 
        SuperscriptBox["s", "2"]}]], 
      RowBox[{"sin", "(", 
       RowBox[{"a", " ", "t"}], ")"}]},
     {
      FractionBox["s", 
       RowBox[{
        SuperscriptBox["a", "2"], "+", 
        SuperscriptBox["s", "2"]}]], 
      RowBox[{"cos", "(", 
       RowBox[{"a", " ", "t"}], ")"}]},
     {
      FractionBox["s", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["s", "2"], "-", 
          SuperscriptBox["a", "2"]}], ")"}], "2"]], 
      FractionBox[
       RowBox[{"t", " ", 
        RowBox[{"sinh", "(", 
         RowBox[{"a", " ", "t"}], ")"}]}], 
       RowBox[{"2", " ", "a"}]]},
     {
      FractionBox["1", 
       SqrtBox[
        RowBox[{"a", "+", "s"}]]], 
      FractionBox[
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", "a"}], " ", "t"}]], 
       RowBox[{
        SqrtBox["\[Pi]"], " ", 
        SqrtBox["t"]}]]},
     {
      FractionBox["1", 
       SuperscriptBox["s", 
        RowBox[{"3", "/", "2"}]]], 
      FractionBox[
       RowBox[{"2", " ", 
        SqrtBox["t"]}], 
       SqrtBox["\[Pi]"]]},
     {
      FractionBox["1", 
       RowBox[{"s", " ", 
        SqrtBox[
         RowBox[{"a", "+", "s"}]]}]], 
      FractionBox[
       RowBox[{"erf", "(", 
        SqrtBox[
         RowBox[{"a", " ", "t"}]], ")"}], 
       SqrtBox["a"]]},
     {
      FractionBox["1", 
       SqrtBox[
        RowBox[{
         SuperscriptBox["a", "2"], "+", 
         SuperscriptBox["s", "2"]}]]], 
      TemplateBox[{"0", 
        RowBox[{"a", " ", "t"}]},
       "BesselJ"]},
     {
      FractionBox[
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"-", 
         FractionBox["a", "s"]}]], 
       SqrtBox["s"]], 
      FractionBox[
       RowBox[{"cos", "(", 
        RowBox[{"2", " ", 
         SqrtBox[
          RowBox[{"a", " ", "t"}]]}], ")"}], 
       RowBox[{
        SqrtBox["\[Pi]"], " ", 
        SqrtBox["t"]}]]},
     {
      FractionBox[
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", "a"}], " ", 
         SqrtBox["s"]}]], 
       SqrtBox["s"]], 
      FractionBox[
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"-", 
         FractionBox[
          SuperscriptBox["a", "2"], 
          RowBox[{"4", " ", "t"}]]}]], 
       RowBox[{
        SqrtBox["\[Pi]"], " ", 
        SqrtBox["t"]}]]},
     {
      FractionBox[
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", "a"}], " ", 
         SqrtBox["s"]}]], "s"], 
      RowBox[{"erfc", "(", 
       FractionBox["a", 
        RowBox[{"2", " ", 
         SqrtBox["t"]}]], ")"}]},
     {
      FractionBox[
       RowBox[{"log", "(", "s", ")"}], "s"], 
      RowBox[{
       RowBox[{"-", 
        RowBox[{"log", "(", "t", ")"}]}], "-", 
       TagBox["\[DoubledGamma]",
        Function[{}, EulerGamma]]}]},
     {
      RowBox[{"log", "(", 
       FractionBox[
        RowBox[{"a", "+", "s"}], 
        RowBox[{"b", "+", "s"}]], ")"}], 
      FractionBox[
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "b"}], " ", "t"}]], "-", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "a"}], " ", "t"}]]}], "t"]},
     {
      SuperscriptBox["s", 
       RowBox[{
        RowBox[{"-", "n"}], "-", "1"}]], 
      FractionBox[
       SuperscriptBox["t", "n"], 
       TemplateBox[{
         RowBox[{"n", "+", "1"}]},
        "Gamma"]]}
    },
    AutoDelete->False,
    BaseStyle->{FontFamily -> Times, FontSize -> 12},
    FrameStyle->Hue[0.6, 0.4, 0.8],
    GridBoxBackground->{"Columns" -> {{None}}, "Rows" -> {{None, 
         GrayLevel[0.9]}}, 
      "ItemsIndexed" -> {{1, 1} -> Hue[0.6, 0.4, 1], {1, 2} -> 
        Hue[0.6, 0.4, 1]}},
    GridBoxDividers->{"Columns" -> {{True}}, "Rows" -> {{True}}},
    GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
    GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {{1}}}],
   "Grid"], TraditionalForm]], "Output",
 CellChangeTimes->{3.9442931962358675`*^9},
 CellID->180763565,ExpressionUUID->"61cfff24-b527-3640-b0fe-3f33d886c08a"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Differential Equations", "Subsection",
 CellID->567187986,ExpressionUUID->"e0be6ea2-6317-9a42-9e7e-1b1bab045ba7"],

Cell[TextData[{
 "The Laplace transform method is handy for differential equations with \
initial and boundary conditions. It is also useful for solving systems of \
ODEs. The idea is to map this equation from the time domain to the ",
 Cell[BoxData[
  FormBox["s", TraditionalForm]], "InlineMath",ExpressionUUID->
  "87d2cafc-5b8b-e341-8203-cc04207d8f8d"],
 "-domain (or the complex frequency domain), solve it there and then to use \
the inverse Laplace transform on that solution to return to the time domain. \
The linear differential equation is reduced to a linear algebraic equation, \
which is much easier to solve. In the case of PDEs, the Laplace transform \
reduces the PDE to an ODE in the ",
 Cell[BoxData[
  FormBox["s", TraditionalForm]], "InlineMath",ExpressionUUID->
  "97b8db0b-70de-134d-b0c0-ddb8350f25c7"],
 "-domain."
}], "Text",
 CellID->48997134,ExpressionUUID->"40fd8f39-f3b8-9a49-ad98-64b4e1eb230c"],

Cell[TextData[{
 "The fractional Caputo derivative of order ",
 Cell[BoxData[
  FormBox["\[Alpha]", TraditionalForm]], "InlineMath",ExpressionUUID->
  "7c985dc9-572c-4a43-83a8-4e2c8c339f80"],
 " of function ",
 Cell[BoxData[
  FormBox[
   RowBox[{"f", "(", "t", ")"}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"4c8208da-5d74-7e4c-be44-0ea6482db276"],
 " is defined as follows:"
}], "Text",
 CellChangeTimes->{{3.909730760202701*^9, 3.909730768493644*^9}, {
   3.909732049629878*^9, 3.909732051106619*^9}, {3.909732086247621*^9, 
   3.9097321540847607`*^9}, {3.9196353092249737`*^9, 3.919635312416769*^9}, 
   3.919635403312788*^9},
 CellID->1048435855,ExpressionUUID->"6f425d1e-36fd-ca4b-afb4-42362e071e5e"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      SuperscriptBox["\[InvisiblePrefixScriptBase]", "C"], 
      RowBox[{
       SubscriptBox["\[InvisiblePrefixScriptBase]", "0"], 
       SubsuperscriptBox["D", "t", "\[Alpha]"]}]}], 
     RowBox[{"f", "(", "t", ")"}]}], "=", 
    RowBox[{
     FractionBox["1", 
      RowBox[{"\[CapitalGamma]", "(", 
       RowBox[{"n", "-", "\[Alpha]"}], ")"}]], 
     RowBox[{
      SubsuperscriptBox["\[Integral]", "0", 
       RowBox[{"\[VeryThinSpace]", "t"}]], 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"t", "-", "\[Tau]"}], ")"}], 
        RowBox[{"n", "-", "\[Alpha]", "-", "1"}]], 
       RowBox[{
        SuperscriptBox["f", 
         RowBox[{"(", "n", ")"}]], "(", "\[Tau]", ")"}], 
       RowBox[{"\[DifferentialD]", "\[Tau]"}]}]}]}]}], ",", 
   RowBox[{
    RowBox[{"where", " ", "n"}], "=", 
    RowBox[{"max", "(", 
     RowBox[{"0", ",", 
      TemplateBox[{"\[Alpha]"},
       "Ceiling"]}], ")"}]}]}], TraditionalForm]], "DisplayFormulaNumbered",
 CellID->785713625,ExpressionUUID->"4245f8e7-0f44-8543-8527-699485ee356c"],

Cell[TextData[{
 "For fractional differential equations, the following property of the \
Laplace transform for fractional derivatives of order ",
 Cell[BoxData[
  FormBox[
   RowBox[{"p", ">", "0"}], TraditionalForm]], "InlineMath",ExpressionUUID->
  "d9970490-19de-5943-860f-a07a40d53e7f"],
 " is crucial: "
}], "Text",
 CellID->592513603,ExpressionUUID->"732ccc58-02e8-254f-83b6-ef7f3dd69c72"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    RowBox[{
     SubscriptBox["\[ScriptCapitalL]", "t"], "[", 
     RowBox[{"CaputoD", "[", 
      RowBox[{
       RowBox[{"f", "(", "t", ")"}], ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", "p"}], "}"}]}], "]"}], "]"}], 
    RowBox[{"(", "s", ")"}]}], "\[LongEqual]", " ", 
   RowBox[{
    RowBox[{
     SuperscriptBox["s", "p"], 
     RowBox[{"F", "(", "s", ")"}]}], "-", 
    RowBox[{
     UnderoverscriptBox["\[Sum]", 
      RowBox[{"k", "=", "0"}], 
      RowBox[{"n", "-", "1"}]], 
     RowBox[{
      RowBox[{
       SuperscriptBox["f", 
        TagBox[
         RowBox[{"(", "k", ")"}],
         Derivative],
        MultilineFunction->None], "(", "0", ")"}], " ", 
      SuperscriptBox["s", 
       RowBox[{"p", "-", "k", "-", "1"}]], " "}]}]}]}], 
  TraditionalForm]], "DisplayFormulaNumbered",
 CellID->15373491,ExpressionUUID->"96530ff2-7a0b-274f-b67c-88458d0b8c43"],

Cell[TextData[{
 "The same approach used to solve typical differential equations with the \
Laplace transform can be used for fractional ",
 ButtonBox["CaputoD",
  BaseStyle->"Link"],
 " differential equations."
}], "Text",
 CellID->8776292,ExpressionUUID->"2bf7a79e-3b90-b249-892f-2dc584074843"]
}, Open  ]],

Cell[CellGroupData[{

Cell[" Integrals and Sums", "Subsection",
 CellID->146914245,ExpressionUUID->"81c8efe7-924c-254d-9d97-e7f2a63939bd"],

Cell["\<\
By recognizing integrals as Laplace transforms of certain functions evaluated \
at specific values, one can solve them directly without integrating. Also, by \
expressing summands of infinite series as inverse Laplace transforms of known \
functions, the sum of the series can be obtained by solving integrals.\
\>", "Text",
 CellID->321731574,ExpressionUUID->"4a48994e-73eb-854f-9d5c-227220114cd1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[" Control Systems", "Subsection",
 CellChangeTimes->{3.652728456208679*^9, 3.652728527108994*^9, 
  3.9549418756961403`*^9},
 CellID->439105724,ExpressionUUID->"fd240483-263a-d147-b81b-3621aa0e204a"],

Cell["\<\
The equations that govern the dynamics of the state-space model are:\
\>", "Text",
 CellFrame->{{0, 0}, {0, 0}},
 CellChangeTimes->{{3.892784616261458*^9, 3.892784668958696*^9}, {
  3.892784875561351*^9, 3.892784878665944*^9}, {3.892784938995453*^9, 
  3.892785227985512*^9}, {3.892785366683959*^9, 3.892785426209151*^9}, {
  3.892785468969671*^9, 3.892785505020878*^9}, {3.892785615959023*^9, 
  3.892785737673695*^9}, {3.89278624805631*^9, 3.892786252158908*^9}, {
  3.892807205122053*^9, 3.892807215465891*^9}, {3.897893259312259*^9, 
  3.897893261455891*^9}},
 CellID->1774345552,ExpressionUUID->"c5716095-7ff1-a644-948a-bbbedbdab4a9"],

Cell[BoxData[{
 FormBox[
  RowBox[{
   RowBox[{
    SuperscriptBox["x", "\[Prime]",
     MultilineFunction->None], 
    RowBox[{"(", "t", ")"}]}], "=", 
   RowBox[{
    RowBox[{"a", " ", "x", 
     RowBox[{"(", "t", ")"}]}], "+", 
    RowBox[{"b", " ", 
     RowBox[{"u", "(", "t", ")"}]}]}]}], TraditionalForm], "\[IndentingNewLine]", 
 FormBox[
  RowBox[{
   RowBox[{"y", "(", "t", ")"}], "=", 
   RowBox[{
    RowBox[{"c", " ", 
     RowBox[{"x", "(", "t", ")"}]}], "+", 
    RowBox[{"d", " ", 
     RowBox[{"u", "(", "t", ")"}]}]}]}], 
  TraditionalForm]}], "DisplayFormulaNumbered",
 CellFrame->{{0, 0}, {0, 0}},
 CellChangeTimes->{{3.892784616261458*^9, 3.892784668958696*^9}, {
  3.892784875561351*^9, 3.892784878665944*^9}, {3.892784938995453*^9, 
  3.892785227985512*^9}, {3.892785366683959*^9, 3.892785426209151*^9}, {
  3.892785468969671*^9, 3.892785505020878*^9}, {3.892785615959023*^9, 
  3.892785737673695*^9}, {3.89278624805631*^9, 3.892786252158908*^9}, {
  3.892807205122053*^9, 3.892807215465891*^9}, {3.897893259312259*^9, 
  3.897893274634995*^9}, {3.931106879018292*^9, 3.931106879695223*^9}, {
  3.945769638907196*^9, 3.9457696674642487`*^9}},
 CellTags->"model",
 CellID->329002664,ExpressionUUID->"fb2ab05f-9752-5645-a48b-14b7c3008f3d"],

Cell["Apply the Laplace transform on the Integrator equation:", "Text",
 CellID->1336997440,ExpressionUUID->"58736950-1267-7a49-b73b-89224a909bcc"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"LaplaceTransform", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"x", "'"}], "[", "t", "]"}], "\[Equal]", 
     RowBox[{"u", "[", "t", "]"}]}], ",", "t", ",", "s"}], "]"}], "/.", 
  RowBox[{
   RowBox[{"x", "[", "0", "]"}], "\[Rule]", "0", " "}]}]], "Input",
 CellChangeTimes->{{3.892793291206571*^9, 3.89279329964018*^9}, {
  3.892793370682535*^9, 3.892793378855574*^9}, {3.892794040311475*^9, 
  3.892794048896408*^9}, {3.8927950556450233`*^9, 3.892795055810933*^9}, {
  3.897895287729704*^9, 3.897895290701109*^9}, {3.918036722931961*^9, 
  3.9180367241734953`*^9}},
 CellID->183618446,ExpressionUUID->"980948b6-559b-5f45-9506-fc7faff96978"],

Cell[BoxData[
 RowBox[{
  RowBox[{"s", " ", 
   RowBox[{"LaplaceTransform", "[", 
    RowBox[{
     RowBox[{"x", "[", "t", "]"}], ",", "t", ",", "s"}], "]"}]}], "\[Equal]", 
  RowBox[{"LaplaceTransform", "[", 
   RowBox[{
    RowBox[{"u", "[", "t", "]"}], ",", "t", ",", "s"}], "]"}]}]], "Output",
 CellChangeTimes->{3.8927933006412067`*^9, 3.8927933794040737`*^9, 
  3.892794044445447*^9, 3.918036724845319*^9, 3.918036862072266*^9, 
  3.9244641373109226`*^9},
 CellID->298775560,ExpressionUUID->"2a875751-6dde-7e46-b310-2a7b09ddddfd"]
}, Open  ]],

Cell[TextData[{
 "The Integrator transfer function is then ",
 Cell[BoxData[
  FormBox[
   FractionBox["1", "s"], TraditionalForm]], "InlineMath",ExpressionUUID->
  "373d2908-afde-8441-92f4-050d534d3af0"],
 ":"
}], "Text",
 CellID->1325004583,ExpressionUUID->"1c0275bc-fbde-134c-a849-e87d9676e848"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TransferFunctionModel", "[", 
  RowBox[{
   TemplateBox[{"0", "1", "1", "0", 
     InterpretationBox["\[InvisibleSpace]", None], {
     StateSpaceModel, {False, False, {False, False}}, {
      WordPressClient`Private`stname1}, {{Control`CommonDump`$DUMMY$}, {
       Control`CommonDump`$DUMMY$}, {Control`CommonDump`$DUMMY$}}, Identity, 
      Automatic, 1, 1, 1, 1, {}, {False, False}, False, Automatic, None, 
      Automatic}, {}},
    "StateSpaceModelFull",
    BaseStyle->{NumberMarks -> False},
    DisplayFunction->(TagBox[
      SubsuperscriptBox[
       RowBox[{"(", 
         GridBox[{{#, #2}, {#3, #4}}, AllowedDimensions -> {2, 2}, 
          GridBoxDividers -> {"Rows" -> {False, 
              Directive[
               GrayLevel[0], 
               GrayLevel[0.6]], {False}, False}, "Columns" -> {False, 
              Directive[
               GrayLevel[0], 
               GrayLevel[0.6]], {False}, False}}, DefaultBaseStyle -> 
          "SystemsModelGrid00"], ")"}], #5, 
       ButtonBox[
        GraphicsBox[{
          RectangleBox[{0, 0}, DefaultBaseStyle -> "SystemsModelSuperscript"], 
          InsetBox[
           StyleBox[
           "\[ScriptCapitalS]", DefaultBaseStyle -> 
            "SystemsModelSuperscript"], {0.5, 0.5}]}, ImageSize -> 20], 
        ButtonFunction :> Control`Typesetting`SystemsModelTypesetToggle[
          ButtonNotebook[], FE`CMObj], Evaluator -> Automatic, Appearance -> 
        None], MultilineFunction -> None], 
      EventHandlerTag[{"MouseEntered" :> {FE`CMObj = MathLink`CallFrontEnd[
            FrontEnd`Value[
             FEPrivate`Self[]]]}, PassEventsDown -> True, PassEventsUp -> 
        True}]]& ),
    InterpretationFunction->(RowBox[{"StateSpaceModel", "[", 
       RowBox[{"{", 
         RowBox[{"{", 
           RowBox[{"{", 
             TemplateSlotSequence[{1, 1}, ","], "}"}], "}"}], ",", 
         RowBox[{"{", 
           RowBox[{"{", 
             TemplateSlotSequence[{2, 2}, ","], "}"}], "}"}], ",", 
         RowBox[{"{", 
           RowBox[{"{", 
             TemplateSlotSequence[{3, 3}, ","], "}"}], "}"}], ",", 
         RowBox[{"{", 
           RowBox[{"{", 
             TemplateSlotSequence[{4, 4}, ","], "}"}], "}"}], "}"}], ",", 
       "SamplingPeriod", "->", 
       RowBox[{#5}], ",", "SystemsModelLabels", "->", "None", "]"}]& ),
    Tooltip->StateSpaceModel], ",", "s"}], "]"}]], "Input",
 CellChangeTimes->{{3.892794689876821*^9, 3.892794704236526*^9}},
 CellID->1209690039,ExpressionUUID->"cbe17031-213f-4d47-b537-850fc918908f"],

Cell[BoxData[
 InterpretationBox[
  TemplateBox[{
    FractionBox["1", "s"], 
    InterpretationBox["\[InvisibleSpace]", None], {
    TransferFunctionModel, {
     False, False, {False, False}}, $Failed, {{Control`CommonDump`$DUMMY$}, {
      Control`CommonDump`$DUMMY$}}, InterpretationBox[#, 
      TransferFunctionModel[{{{-1}}, -$CellContext`s}, $CellContext`s], 
      AutoDelete -> True, Editable -> True, BaseStyle -> 
      "TransferFunctionModelMinimal"]& , $CellContext`s, 1, 1, 
     Control`CountStates[
      TransferFunctionModel[{{{-1}}, -$CellContext`s}, $CellContext`s]], 
     1, {}, {False, False}, False, Automatic, None, Automatic}, {}},
   "TransferFunctionModelFull",
   BaseStyle->{NumberMarks -> False},
   DisplayFunction->(TagBox[
     SubsuperscriptBox[
      RowBox[{"(", 
        GridBox[{{#}}, AllowedDimensions -> {1, 1}, 
         GridBoxDividers -> {
          "Rows" -> {False, {False}, False}, 
           "Columns" -> {False, {False}, False}}, DefaultBaseStyle -> 
         "SystemsModelGrid00"], ")"}], #2, 
      ButtonBox[
       GraphicsBox[{
         RectangleBox[{0, 0}, DefaultBaseStyle -> "SystemsModelSuperscript"], 
         InsetBox[
          StyleBox[
          "\[ScriptCapitalT]", DefaultBaseStyle -> 
           "SystemsModelSuperscript"], {0.5, 0.5}]}, ImageSize -> 20], 
       ButtonFunction :> Control`Typesetting`SystemsModelTypesetToggle[
         ButtonNotebook[], FE`CMObj], Evaluator -> Automatic, Appearance -> 
       None], MultilineFunction -> None], 
     EventHandlerTag[{"MouseEntered" :> {FE`CMObj = MathLink`CallFrontEnd[
           FrontEnd`Value[
            FEPrivate`Self[]]]}, PassEventsDown -> True, PassEventsUp -> 
       True}]]& ),
   InterpretationFunction->(
    RowBox[{"TransferFunctionModel", "[", "Unevaluated", "[", 
      RowBox[{"{", 
        RowBox[{"{", 
          TemplateSlotSequence[{1, 1}, ","], "}"}], "}"}], "]", ",", "s", ",",
       "SamplingPeriod", "->", 
      RowBox[{#2}], ",", "SystemsModelLabels", "->", "None", "]"}]& ),
   Tooltip->TransferFunctionModel],
  TransferFunctionModel[{{{-1}}, -$CellContext`s}, $CellContext`s],
  AutoDelete->True,
  BaseStyle->"TransferFunctionModelMinimal",
  Editable->True]], "Output",
 CellChangeTimes->{3.892794704656483*^9, 3.9180369300529222`*^9, 
  3.924464137515587*^9},
 CellID->183504141,ExpressionUUID->"ddd936db-ab85-c54c-9d50-e645cd114269"]
}, 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->"b658c2d8-94d9-4858-a31b-3e4d68f14c78"]
},
Editable->True,
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowToolbars->{},
CellInsertionPointCell->None,
WindowSize->Automatic,
WindowMargins->Automatic,
WindowFrame->"Normal",
WindowPersistentStyles->{
 WindowFrame, WindowMargins, WindowSize, Magnification},
WindowTitle->"Laplace Transforms in a Nutshell | 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-25_Control-Systems.nb", ""}, 
             FrontEnd`HistoryData :> {
               EvaluationNotebook[]}]]}, "BannerButtonTemplate"], 
         "25. Control Systems"}, "PrettyTooltipTemplate"], "next" -> 
      TemplateBox[{
         TemplateBox[{
           TemplateBox[{}, "BannerRightArrowTemplate"], 
           Function[{}, 
            
            NotebookLocate[{"LaplaceTransform-27_Sample-Exam.nb", ""}, 
             FrontEnd`HistoryData :> {
               EvaluationNotebook[]}]]}, "BannerButtonTemplate"], 
         "Sample Exam"}, "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->"74f897ed-6e3c-4fc1-a5c0-783a1242dd98"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "F1"->{
  Cell[61042, 1647, 1638, 32, 47, "DisplayFormulaNumbered",ExpressionUUID->"7d55cb3e-9d5f-d942-9baa-37eef681b6a2",
   CellTags->"F1",
   CellID->4891831]},
 "multivariate-definition"->{
  Cell[140972, 3401, 1101, 33, 45, "DisplayFormulaNumbered",ExpressionUUID->"034b4b09-4105-d446-903a-6be9155aca87",
   CellTags->"multivariate-definition",
   CellID->167801706]},
 "double-inverse"->{
  Cell[142557, 3444, 1176, 33, 34, "DisplayFormulaNumbered",ExpressionUUID->"7431ac82-7f28-8644-9a13-784ece866782",
   CellTags->"double-inverse",
   CellID->388391339]},
 "double-inverse2"->{
  Cell[144171, 3488, 837, 23, 34, "DisplayFormulaNumbered",ExpressionUUID->"e46d467b-6682-0a49-83e7-76cad4f11f09",
   CellTags->"double-inverse2",
   CellID->1612391923]},
 "model"->{
  Cell[167645, 4159, 1260, 31, 55, "DisplayFormulaNumbered",ExpressionUUID->"fb2ab05f-9752-5645-a48b-14b7c3008f3d",
   CellTags->"model",
   CellID->329002664]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"F1", 338143, 7724},
 {"multivariate-definition", 338329, 7728},
 {"double-inverse", 338530, 7732},
 {"double-inverse2", 338723, 7736},
 {"model", 338907, 7740}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[668, 24, 127, 1, 108, "Section",ExpressionUUID->"41c882da-be82-4411-9fb3-7ac7d1336bc8",
 CellID->1582821380],
Cell[798, 27, 628, 10, 130, "Text",ExpressionUUID->"ba3d5a64-82ae-8f4a-9f90-9a2ffcf0bbb3",
 CellID->273094503],
Cell[1429, 39, 290, 6, 36, "Text",ExpressionUUID->"ce99f3c9-c7d8-094d-8cd1-871dde7dd756",
 CellID->644684187],
Cell[CellGroupData[{
Cell[1744, 49, 117, 1, 56, "Subsection",ExpressionUUID->"1f81ff22-e3df-4399-941e-dd66a7646b0c",
 CellID->1743943814],
Cell[1864, 52, 643, 10, 154, "Text",ExpressionUUID->"18227b5d-cfb2-7c47-888e-40e8cf01e2d2",
 CellID->55708366]
}, Open  ]],
Cell[CellGroupData[{
Cell[2544, 67, 117, 1, 56, "Subsection",ExpressionUUID->"129225d2-05a4-44df-82c9-65535abd3820",
 CellID->1003959553],
Cell[2664, 70, 356, 11, 36, "Text",ExpressionUUID->"ba113259-6af4-684a-b14d-6e5c83334565",
 CellID->197421566],
Cell[3023, 83, 669, 19, 45, "DisplayFormulaNumbered",ExpressionUUID->"b4e8f9b7-b82a-114e-be67-5cb3ae3ce628",
 CellID->390909247],
Cell[3695, 104, 747, 15, 36, "Text",ExpressionUUID->"718e998a-6ae6-c640-956d-7062f910d495",
 CellID->1078779093],
Cell[4445, 121, 608, 19, 60, "Text",ExpressionUUID->"6cc1e126-a8ab-ed40-afaf-b03f6096733b",
 CellID->152243205],
Cell[5056, 142, 14482, 241, 261, "Input",ExpressionUUID->"43497570-42ad-4229-ab73-d990c1f30004",
 CellID->51696998],
Cell[19541, 385, 1420, 45, 60, "Text",ExpressionUUID->"d6b6b321-d905-334b-83b7-e029c09c1946",
 CellID->1947173437],
Cell[20964, 432, 1107, 32, 60, "Text",ExpressionUUID->"7f06b260-f0d1-b447-adc5-6ac6466c13d3",
 CellID->1745266758]
}, Open  ]],
Cell[CellGroupData[{
Cell[22108, 469, 140, 1, 56, "Subsection",ExpressionUUID->"f0cf4f90-d1f1-4206-aba2-2b417d53ce32",
 CellID->1128215511],
Cell[CellGroupData[{
Cell[22273, 474, 119, 1, 54, "Subsubsection",ExpressionUUID->"2b84b029-8398-4f88-bede-5ec0257043be",
 CellID->1491618635],
Cell[CellGroupData[{
Cell[22417, 479, 408, 12, 28, "Input",ExpressionUUID->"1bedf8e5-5305-bd49-8b42-73315064b3c4",
 CellID->208347577],
Cell[22828, 493, 578, 15, 39, "Output",ExpressionUUID->"e86e54b5-a772-d947-932a-4bde8acf7183",
 CellID->220714115]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[23455, 514, 116, 1, 54, "Subsubsection",ExpressionUUID->"43597b96-0781-4543-af72-ab48da671249",
 CellID->625541942],
Cell[CellGroupData[{
Cell[23596, 519, 255, 7, 28, "Input",ExpressionUUID->"cb042907-4dc6-4043-aaf1-0161b2d363ad",
 CellID->452785952],
Cell[23854, 528, 297, 7, 60, "Output",ExpressionUUID->"6937e1d6-9d65-bb41-8186-999c394f9554",
 CellID->589109881]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[24200, 541, 127, 1, 54, "Subsubsection",ExpressionUUID->"57183fc6-64f1-4045-8b3b-065de2d33946",
 CellID->1934140842],
Cell[CellGroupData[{
Cell[24352, 546, 284, 7, 28, "Input",ExpressionUUID->"09f3dd6c-aeac-8b4e-9336-12c1758b823c",
 CellID->320632026],
Cell[24639, 555, 294, 7, 39, "Output",ExpressionUUID->"dc83c7d7-d1ef-374e-8f44-66bc882e09ae",
 CellID->77774038]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[24982, 568, 127, 1, 54, "Subsubsection",ExpressionUUID->"1209ee9a-f22a-4af0-9434-08f46b914c6d",
 CellID->731000619],
Cell[CellGroupData[{
Cell[25134, 573, 417, 11, 28, "Input",ExpressionUUID->"472e5588-3bbe-7c4b-8672-598ae11a2e3a",
 CellID->738173189],
Cell[25554, 586, 356, 9, 39, "Output",ExpressionUUID->"b77f3480-690a-0944-af14-4ee3c13b4f68",
 CellID->534361604]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[25959, 601, 293, 8, 54, "Subsubsection",ExpressionUUID->"5b1dda8b-6e7d-fb4b-91c7-38d04d2bf5c9",
 CellID->126658827],
Cell[26255, 611, 670, 21, 47, "DisplayFormula",ExpressionUUID->"603f7f4a-d7bc-c140-a3b4-fdfd66a1d9cd",
 CellID->880496898]
}, Open  ]],
Cell[CellGroupData[{
Cell[26962, 637, 117, 1, 54, "Subsubsection",ExpressionUUID->"3bbc0fc0-47cb-9a44-853f-d1032fae270f",
 CellID->62272640],
Cell[CellGroupData[{
Cell[27104, 642, 225, 5, 28, "Input",ExpressionUUID->"380b739b-52e7-d24a-9185-e941712666f2",
 CellID->41598704],
Cell[27332, 649, 347, 9, 39, "Output",ExpressionUUID->"a8eca39b-6bd5-674a-8b86-953b93e343e4",
 CellID->608012830]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[27728, 664, 118, 1, 54, "Subsubsection",ExpressionUUID->"beeae74e-aae1-d743-8fa1-314b445e535d",
 CellID->41112510],
Cell[CellGroupData[{
Cell[27871, 669, 349, 8, 28, "Input",ExpressionUUID->"d23ff852-e49c-7644-a7f3-bab9631fa01b",
 CellID->355816256],
Cell[28223, 679, 383, 9, 39, "Output",ExpressionUUID->"b7d89fa8-c765-4644-9427-a7ea862c4ffb",
 CellID->648539099]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[28667, 695, 254, 4, 56, "Subsection",ExpressionUUID->"3b80395c-1616-1d47-9717-0cc49d99f8a9",
 CellID->156863949],
Cell[CellGroupData[{
Cell[28946, 703, 3640, 87, 55, "Input",ExpressionUUID->"2c623f5f-52a6-2b4b-836b-3ecd67ecc342",
 CellID->1909483598],
Cell[32589, 792, 5688, 188, 548, "Output",ExpressionUUID->"654f5e39-91df-c849-bf4c-dc1fa04ddff8",
 CellID->504999809]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[38326, 986, 303, 4, 56, "Subsection",ExpressionUUID->"83c89495-1601-664d-b30d-8a9baa597c19",
 CellID->463171287],
Cell[CellGroupData[{
Cell[38654, 994, 3635, 85, 77, "Input",ExpressionUUID->"61274ea5-2dc4-424e-9c73-849790c59903",
 CellID->43322796],
Cell[42292, 1081, 4919, 162, 386, "Output",ExpressionUUID->"5427ac58-d47f-3f42-bbd4-0f28baf0a7ab",
 CellID->757674147]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[47260, 1249, 394, 7, 56, "Subsection",ExpressionUUID->"80f076ba-c175-7d4f-90e2-afdfe091027f",
 CellID->343752827],
Cell[CellGroupData[{
Cell[47679, 1260, 3828, 89, 55, "Input",ExpressionUUID->"662a6f03-995e-0e42-9887-8a7e0e3e3600",
 CellID->404575692],
Cell[51510, 1351, 8241, 254, 440, "Output",ExpressionUUID->"947010f6-50de-9b43-97d0-36197683fd39",
 CellID->16853296]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[59800, 1611, 405, 6, 56, "Subsection",ExpressionUUID->"2a62fd1e-e25b-c247-86c4-9682034a7bf6",
 CellID->12650102],
Cell[60208, 1619, 831, 26, 41, "Text",ExpressionUUID->"595b00d0-b709-1c4b-ad91-6d6dc11482bc",
 CellID->1999697248],
Cell[61042, 1647, 1638, 32, 47, "DisplayFormulaNumbered",ExpressionUUID->"7d55cb3e-9d5f-d942-9baa-37eef681b6a2",
 CellTags->"F1",
 CellID->4891831],
Cell[CellGroupData[{
Cell[62705, 1683, 3673, 82, 55, "Input",ExpressionUUID->"5057125b-c9c4-bd4c-8b8c-a3f95c0081f1",
 CellID->345414903],
Cell[66381, 1767, 6483, 190, 332, "Output",ExpressionUUID->"3c0c2078-c6b6-8648-afe5-081a15a2d5e5",
 CellID->116494393]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[72913, 1963, 395, 6, 56, "Subsection",ExpressionUUID->"ffd265e2-0f0f-3643-964f-b3a98f3ebfcd",
 CellID->221227066],
Cell[73311, 1971, 1209, 35, 60, "Text",ExpressionUUID->"829d820d-5e25-9e45-9f9d-fb96d53ba74a",
 CellID->603521634],
Cell[74523, 2008, 203, 4, 36, "Text",ExpressionUUID->"5674f967-74f3-3a49-8f67-d759f89be985",
 CellID->660201534],
Cell[74729, 2014, 589, 17, 36, "Text",ExpressionUUID->"f1d287a7-2bef-6b48-85fc-a10ce4785e83",
 CellID->1108862],
Cell[75321, 2033, 733, 20, 48, "DisplayFormulaNumbered",ExpressionUUID->"4dbfc4a7-1020-aa49-9090-6650c48709f2",
 CellID->398634198],
Cell[76057, 2055, 188, 4, 36, "Text",ExpressionUUID->"9e0b43fc-fe53-1048-a897-40be2afce1c5",
 CellID->9322346],
Cell[76248, 2061, 45249, 746, 302, "Input",ExpressionUUID->"9fa72748-fde7-4d71-bceb-430524c62960",
 CellID->251602011]
}, Open  ]],
Cell[CellGroupData[{
Cell[121534, 2812, 314, 4, 56, "Subsection",ExpressionUUID->"8eea38d3-0333-ec44-8c8b-dfb4ddbab49d",
 CellID->160623248],
Cell[CellGroupData[{
Cell[121873, 2820, 118, 1, 54, "Subsubsection",ExpressionUUID->"91bb37f6-65f0-064b-aebf-b5034ebdae50",
 CellID->362700404],
Cell[CellGroupData[{
Cell[122016, 2825, 419, 11, 28, "Input",ExpressionUUID->"6ef13c0c-ec9e-cf4f-bd71-b0ca5d4e4b6b",
 CellID->498916351],
Cell[122438, 2838, 555, 14, 63, "Output",ExpressionUUID->"94875de1-8433-604d-8caf-5378cd1b00c2",
 CellID->456066059]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[123042, 2858, 116, 1, 54, "Subsubsection",ExpressionUUID->"79a2cb50-83e0-4f48-a8d9-a251ed4c4ce8",
 CellID->175972804],
Cell[123161, 2861, 699, 21, 35, "DisplayFormula",ExpressionUUID->"b3414e84-95f5-014f-8ddc-60dff0be0a0f",
 CellID->99839077]
}, Open  ]],
Cell[CellGroupData[{
Cell[123897, 2887, 126, 1, 54, "Subsubsection",ExpressionUUID->"9ab94a41-2afe-1f41-9464-013e5cf99017",
 CellID->951366533],
Cell[124026, 2890, 716, 21, 32, "DisplayFormula",ExpressionUUID->"d8b0af76-6dfc-c64b-965a-4b71b59a6a13",
 CellID->412231080]
}, Open  ]],
Cell[CellGroupData[{
Cell[124779, 2916, 126, 1, 54, "Subsubsection",ExpressionUUID->"290742a7-705d-914c-af2c-7a97ed2cd81f",
 CellID->66033101],
Cell[124908, 2919, 856, 27, 32, "DisplayFormula",ExpressionUUID->"9d58b36b-faeb-7745-a2a1-3498504e293e",
 CellID->478975253]
}, Open  ]],
Cell[CellGroupData[{
Cell[125801, 2951, 267, 7, 54, "Subsubsection",ExpressionUUID->"9f2a4e7e-4084-1245-9602-e6a398d68d68",
 CellID->36288918],
Cell[126071, 2960, 995, 31, 32, "DisplayFormula",ExpressionUUID->"a8f9c88a-3d42-e047-a3b6-c2da3d2b428f",
 CellID->101899312]
}, Open  ]],
Cell[CellGroupData[{
Cell[127103, 2996, 118, 1, 54, "Subsubsection",ExpressionUUID->"82e5c19b-6dbf-8649-a793-c5242c680144",
 CellID->257203149],
Cell[127224, 2999, 920, 28, 35, "DisplayFormula",ExpressionUUID->"b46e6f78-350a-6140-b124-2ff550c23dcc",
 CellID->791261539]
}, Open  ]],
Cell[CellGroupData[{
Cell[128181, 3032, 119, 1, 54, "Subsubsection",ExpressionUUID->"26cffd84-6159-bd47-9743-50fffc295fa6",
 CellID->116233304],
Cell[128303, 3035, 988, 28, 32, "DisplayFormula",ExpressionUUID->"a91d9895-67dd-1e41-b671-33ae18e12c9d",
 CellID->590721911]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[129340, 3069, 113, 1, 56, "Subsection",ExpressionUUID->"1ff8ed38-0b11-6941-a776-0fe6a5d0cd11",
 CellID->36342766],
Cell[129456, 3072, 719, 16, 107, "Text",ExpressionUUID->"5e60070c-c567-3843-ad66-708ec2232dd7",
 CellID->21344550]
}, Open  ]],
Cell[CellGroupData[{
Cell[130212, 3093, 218, 3, 56, "Subsection",ExpressionUUID->"7728aeba-aec6-ee4f-a108-f5b876ab6e34",
 CellID->7180419],
Cell[130433, 3098, 2212, 68, 91, "Text",ExpressionUUID->"f467cb23-ed0a-7045-8504-1455e85af836",
 CellID->695544438],
Cell[CellGroupData[{
Cell[132670, 3170, 4146, 98, 82, "Input",ExpressionUUID->"2d3293fa-dc84-9f4f-ad69-8e829721873b",
 CellID->353007756],
Cell[136819, 3270, 3391, 107, 261, "Output",ExpressionUUID->"04138f54-91f2-4047-a8eb-f9d5f93ca875",
 CellID->94413287]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[140259, 3383, 235, 3, 56, "Subsection",ExpressionUUID->"13fce2fa-59b0-d64f-a539-bb4023a08f13",
 CellID->685208874],
Cell[140497, 3388, 472, 11, 36, "Text",ExpressionUUID->"b1c94c8c-2da0-dd46-997f-6c1b63114387",
 CellID->1640621672],
Cell[140972, 3401, 1101, 33, 45, "DisplayFormulaNumbered",ExpressionUUID->"034b4b09-4105-d446-903a-6be9155aca87",
 CellTags->"multivariate-definition",
 CellID->167801706],
Cell[142076, 3436, 478, 6, 36, "Text",ExpressionUUID->"04744635-20db-274d-8bd0-93256afad417",
 CellID->147413893],
Cell[142557, 3444, 1176, 33, 34, "DisplayFormulaNumbered",ExpressionUUID->"7431ac82-7f28-8644-9a13-784ece866782",
 CellTags->"double-inverse",
 CellID->388391339],
Cell[143736, 3479, 432, 7, 36, "Text",ExpressionUUID->"d7fb3777-2a94-6f43-b374-736f5c299696",
 CellID->1754147363],
Cell[144171, 3488, 837, 23, 34, "DisplayFormulaNumbered",ExpressionUUID->"e46d467b-6682-0a49-83e7-76cad4f11f09",
 CellTags->"double-inverse2",
 CellID->1612391923],
Cell[CellGroupData[{
Cell[145033, 3515, 3391, 79, 90, "Input",ExpressionUUID->"03b4890f-49d3-5947-80e5-028e0057f46e",
 CellID->529666229],
Cell[148427, 3596, 2990, 96, 220, "Output",ExpressionUUID->"9dc5428e-1573-7b49-8472-2c37362e06eb",
 CellID->93804763]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[151466, 3698, 116, 1, 56, "Subsection",ExpressionUUID->"2cc45a62-768a-ff4a-96b0-a566abe1aed3",
 CellID->110022934],
Cell[151585, 3701, 434, 7, 107, "Text",ExpressionUUID->"b0a65a53-9d65-f441-a74b-342c3d3a53dd",
 CellID->51297785]
}, Open  ]],
Cell[CellGroupData[{
Cell[152056, 3713, 462, 6, 56, "Subsection",ExpressionUUID->"96f5a754-5cbc-7848-8650-12bf971eeff7",
 CellID->170824177],
Cell[CellGroupData[{
Cell[152543, 3723, 4250, 96, 55, "Input",ExpressionUUID->"091f841d-3a38-1145-a9de-751a70b8f949",
 CellID->805333410],
Cell[156796, 3821, 4801, 170, 605, "Output",ExpressionUUID->"61cfff24-b527-3640-b0fe-3f33d886c08a",
 CellID->180763565]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[161646, 3997, 119, 1, 56, "Subsection",ExpressionUUID->"e0be6ea2-6317-9a42-9e7e-1b1bab045ba7",
 CellID->567187986],
Cell[161768, 4000, 924, 17, 154, "Text",ExpressionUUID->"40fd8f39-f3b8-9a49-ad98-64b4e1eb230c",
 CellID->48997134],
Cell[162695, 4019, 717, 16, 36, "Text",ExpressionUUID->"6f425d1e-36fd-ca4b-afb4-42362e071e5e",
 CellID->1048435855],
Cell[163415, 4037, 1136, 33, 49, "DisplayFormulaNumbered",ExpressionUUID->"4245f8e7-0f44-8543-8527-699485ee356c",
 CellID->785713625],
Cell[164554, 4072, 395, 9, 60, "Text",ExpressionUUID->"732ccc58-02e8-254f-83b6-ef7f3dd69c72",
 CellID->592513603],
Cell[164952, 4083, 933, 30, 59, "DisplayFormulaNumbered",ExpressionUUID->"96530ff2-7a0b-274f-b67c-88458d0b8c43",
 CellID->15373491],
Cell[165888, 4115, 296, 7, 60, "Text",ExpressionUUID->"2bf7a79e-3b90-b249-892f-2dc584074843",
 CellID->8776292]
}, Open  ]],
Cell[CellGroupData[{
Cell[166221, 4127, 116, 1, 56, "Subsection",ExpressionUUID->"81c8efe7-924c-254d-9d97-e7f2a63939bd",
 CellID->146914245],
Cell[166340, 4130, 409, 6, 107, "Text",ExpressionUUID->"4a48994e-73eb-854f-9d5c-227220114cd1",
 CellID->321731574]
}, Open  ]],
Cell[CellGroupData[{
Cell[166786, 4141, 204, 3, 56, "Subsection",ExpressionUUID->"fd240483-263a-d147-b81b-3621aa0e204a",
 CellID->439105724],
Cell[166993, 4146, 649, 11, 36, "Text",ExpressionUUID->"c5716095-7ff1-a644-948a-bbbedbdab4a9",
 CellID->1774345552],
Cell[167645, 4159, 1260, 31, 55, "DisplayFormulaNumbered",ExpressionUUID->"fb2ab05f-9752-5645-a48b-14b7c3008f3d",
 CellTags->"model",
 CellID->329002664],
Cell[168908, 4192, 147, 1, 36, "Text",ExpressionUUID->"58736950-1267-7a49-b73b-89224a909bcc",
 CellID->1336997440],
Cell[CellGroupData[{
Cell[169080, 4197, 692, 15, 28, "Input",ExpressionUUID->"980948b6-559b-5f45-9506-fc7faff96978",
 CellID->183618446],
Cell[169775, 4214, 536, 12, 39, "Output",ExpressionUUID->"2a875751-6dde-7e46-b310-2a7b09ddddfd",
 CellID->298775560]
}, Open  ]],
Cell[170326, 4229, 298, 8, 39, "Text",ExpressionUUID->"1c0275bc-fbde-134c-a849-e87d9676e848",
 CellID->1325004583],
Cell[CellGroupData[{
Cell[170649, 4241, 2555, 56, 49, "Input",ExpressionUUID->"cbe17031-213f-4d47-b537-850fc918908f",
 CellID->1209690039],
Cell[173207, 4299, 2393, 52, 59, "Output",ExpressionUUID->"ddd936db-ab85-c54c-9d50-e645cd114269",
 CellID->183504141]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[175639, 4356, 293, 6, 135, "SmallText",ExpressionUUID->"b658c2d8-94d9-4858-a31b-3e4d68f14c78",
 CellGroupingRules->"SectionGrouping"]
}
]
*)

(* NotebookSignature 9QGf4r08Ec6z4kuBKKQ7qqnE *)
