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

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

(* CreatedBy='Mathematica 11.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     12755,        286]
NotebookOptionsPosition[      7246,        226]
NotebookOutlinePosition[      7608,        241]
CellTagsIndexPosition[      7565,        238]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[StyleData[StyleDefinitions -> FrontEnd`FileName[{"Book"}, "Textbook.nb", 
  CharacterEncoding -> "UTF-8"]],ExpressionUUID->"7b050aa8-afd4-4253-974d-\
b34d40d25bad"],

Cell[StyleData["Title"],
 FontSize->28,ExpressionUUID->"8630dcc2-6f5b-4b3e-9b40-a8117bd61b2b"],

Cell[StyleData["Subtitle"],ExpressionUUID->"a237a6cf-5582-4520-b7d2-c803061b9d33"],

Cell[StyleData["Author"],
 FontSize->16,
 FontColor->GrayLevel[
  0.25098],ExpressionUUID->"e8902eae-2305-44f1-9aaa-df0c5e971c7a"],

Cell[StyleData["Institution"],
 FontFamily->"Helvetica",
 FontSize->14,
 FontWeight->"Plain",
 FontColor->GrayLevel[
  0.25098],ExpressionUUID->"167f523d-ef81-4664-959a-42003a1b05ed"],

Cell[StyleData["Department"],
 FontFamily->"Helvetica",
 FontSize->14,
 FontColor->GrayLevel[
  0.25098],ExpressionUUID->"6f1fa21a-cb2f-4bc8-88ad-bd22ade4ea2f"],

Cell[StyleData["BookChapterTitle"],
 FontSize->20,
 FontColor->GrayLevel[
  0.25098],ExpressionUUID->"fc84cfa9-9cad-4521-ac47-b55f5857889e"],

Cell[StyleData["BookChapterNumber"],
 CellFrameColor->GrayLevel[0.25098],
 FontSize->48,
 Background->RGBColor[
  0, 0.501961, 
   0.752941],ExpressionUUID->"f3433b7f-a42a-4c9f-b033-ea4b5a030e7f"],

Cell[StyleData["Text"],
 LineSpacing->{1, 1, 
  2},ExpressionUUID->"32ef38c1-8a49-4a2f-9908-ebbcb28360f3"],

Cell[StyleData["Section"],
 CellFrameColor->RGBColor[0.501961, 0, 0],
 FontSize->14,
 FontColor->GrayLevel[
  0.25098],ExpressionUUID->"e44b6de5-2a27-4224-93c0-6faff0c0ccda"],

Cell[StyleData["Subsection"],
 FontSize->14,
 FontColor->GrayLevel[
  0.25098],ExpressionUUID->"1346e774-cf02-4892-83b3-c2d0c244985d"],

Cell[StyleData["Subsubsection"],
 FontSize->12,
 FontColor->GrayLevel[
  0.25098],ExpressionUUID->"7d811c18-5744-45c0-b17b-6080fb066a59"],

Cell[StyleData["Subsubsubsection"],
 FontSize->11,
 FontColor->GrayLevel[
  0.25098],ExpressionUUID->"c971c0ff-a478-418c-b942-05bb63ad5840"],

Cell[StyleData["AcknowledgmentsSection"],
 FontSize->20,
 FontColor->GrayLevel[
  0.25098],ExpressionUUID->"b1c9b092-ab31-455a-aa5e-1d26aedce254"],

Cell[StyleData["AppendixSection"],
 FontSize->20,
 FontColor->GrayLevel[
  0.25098],ExpressionUUID->"f6d8bb53-7ce5-474a-b51c-c36672d05a8c"],

Cell[StyleData["EndnoteSection"],
 FontSize->20,
 FontColor->GrayLevel[
  0.25098],ExpressionUUID->"57f822bf-5eb2-48d3-b2d1-e3a2d31a189c"],

Cell[StyleData["ReferenceSection"],
 FontSize->20,
 FontColor->GrayLevel[
  0.25098],ExpressionUUID->"340a20c4-4bf4-4509-b6b7-5bb8e5528ae6"],

Cell[StyleData["ExerciseSection"],
 FontSize->20,
 FontColor->GrayLevel[
  0.25098],ExpressionUUID->"9eefc8ed-abbb-4b6f-a435-c8d01f16e1d2"],

Cell[StyleData["Program"],
 FontSize->11,ExpressionUUID->"8e9a56f8-6a2f-436e-b9ad-e0bfd4a2fa9e"],

Cell[StyleData["Input"],
 CellMargins->{{62, 10}, {5, 10}},
 FontSize->10,ExpressionUUID->"2be52b8a-70d4-4517-88dd-3e25d24caffb"],

Cell[StyleData["Output"],
 CellMargins->{{62, 10}, {10, 5}},
 FontSize->10,ExpressionUUID->"607928a8-e403-481f-8396-2baf5347ed89"],

Cell[StyleData["Code"],
 CellMargins->{{62, 10}, {10, 10}},
 FontSize->10,ExpressionUUID->"ea71c062-3405-4c03-89b0-f5b6098567af"],

Cell[StyleData["PrintUsage"],
 MenuSortingValue->10000,
 FontSize->10,ExpressionUUID->"ab330589-e7b8-43fd-90bd-3fa2593cbdda"],

Cell[StyleData["Print"],
 CellMargins->{{62, Inherited}, {Inherited, Inherited}},
 MenuSortingValue->10000,
 FontSize->10,ExpressionUUID->"3a876ee3-c215-44b1-91a7-89f00e9489a4"],

Cell[StyleData["Echo"],
 CellMargins->{{62, Inherited}, {Inherited, Inherited}},
 MenuSortingValue->10000,
 FontSize->10,ExpressionUUID->"00e3d0b9-166a-48ce-9fd6-46293a00d951"],

Cell[StyleData["Item1"],
 CellDingbat->Cell[
   TextData["\[FilledSmallSquare]"], CellSize -> {30, Inherited}, 
   TextAlignment -> Right, 
   GrayLevel[0.25098]],ExpressionUUID->"13dc66b8-0eba-4a14-be8d-4edf109b6eb5"],

Cell[StyleData["Item2"],
 CellDingbat->Cell[
   TextData["\[EmptySmallSquare]"], CellSize -> {32, Inherited}, 
   TextAlignment -> Right, 
   GrayLevel[0.25098]],ExpressionUUID->"9e59c145-d91a-4ddb-b533-c3f85825c08b"],

Cell[StyleData["Item3"],
 CellDingbat->Cell[
   TextData["\[EmptySmallCircle]"], CellSize -> {32, Inherited}, 
   TextAlignment -> Right, 
   GrayLevel[0.25098]],ExpressionUUID->"b2d55ba0-5b44-4c36-b59f-bb7f4ad06082"],

Cell[StyleData["Item1Numbered"],
 CellDingbat->Cell[
   TextData[{
     CounterBox["Item1Numbered"], "."}], CellSize -> {33, Inherited}, 
   TextAlignment -> Right, FontWeight -> "Bold", 
   GrayLevel[0.25098]],ExpressionUUID->"99439bd3-75e1-4d12-b3d8-9da3e6b7a4e9"],

Cell[StyleData["Item2Numbered"],
 CellDingbat->Cell[
   TextData[{
     CounterBox["Item2Numbered", CounterFunction :> (Part[
        CharacterRange["a", "z"], #]& )], "."}], CellSize -> {32, Inherited}, 
   TextAlignment -> Right, FontWeight -> "Bold", 
   GrayLevel[0.25098]],ExpressionUUID->"95302fb2-59ac-4585-839e-3deddacbb2ba"],

Cell[StyleData["Item3Numbered"],
 CellDingbat->Cell[
   TextData[{
     CounterBox["Item3Numbered", CounterFunction :> RomanNumeral], "."}], 
   CellSize -> {32, Inherited}, TextAlignment -> Right, FontWeight -> "Bold", 
   GrayLevel[0.25098]],ExpressionUUID->"14fcf199-89b9-4cfa-a3b6-b32322fcfe16"],

Cell[StyleData["Acknowledgments"],
 LineSpacing->{1, 1, 
  2},ExpressionUUID->"b8fbdd5c-b331-4f4c-af4b-e00b77a6db04"],

Cell[StyleData["MSG"],
 MenuSortingValue->10000,
 FontSize->9,ExpressionUUID->"f424455f-3942-453c-a444-b398e4c29aa6"],

Cell[StyleData["Endnote"],
 LineSpacing->{1, 3},ExpressionUUID->"1efb6cdb-23e4-46d9-afe6-2796ec16d288"],

Cell[StyleData["Reference"],
 CellFrame->{{False, False}, {True, False}},
 CellFrameColor->GrayLevel[0.25098],
 CellFrameLabels->{{None, Inherited}, {Inherited, Inherited}},
 TextJustification->0.,ExpressionUUID->"5de3af51-f413-4b48-93aa-e671a6fd9266"],

Cell[StyleData["CellLabel"],
 MenuSortingValue->10000,
 FontSize->8,ExpressionUUID->"9c8b582b-54b0-41e7-a080-a030b797dce8"],

Cell[StyleData["Hyperlink"],
 MenuSortingValue->10000,
 FontFamily->"Source Sans Pro",
 FontSize->11,
 FontVariations->{"Underline"->False},
 FontColor->Hue[
  0.57, 0.6, 0.575],ExpressionUUID->"239c80a6-e75e-4091-add6-8452352beb91"],

Cell[StyleData["Link"],
 MenuSortingValue->10000,
 FontFamily->"Source Sans Pro",
 FontSize->11,
 FontColor->Hue[
  0.57, 0.6, 0.575],ExpressionUUID->"4397e9b7-743f-47cd-b3a9-16793cd212e2"],

Cell[StyleData["Item1Paragraph"],
 CellMargins->{{43, 12}, {1, 
  2}},ExpressionUUID->"708abd11-080f-44ed-bc90-78b20e8db088"],

Cell[StyleData["Equation"],
 CellMargins->{{43, 10}, {7, 
  7}},ExpressionUUID->"0740dd15-c761-48a8-9161-d89caf0a6df1"],

Cell[StyleData["EquationNumbered"],
 CellMargins->{{43, 12}, {7, 
  7}},ExpressionUUID->"b7dff8bc-dad1-4504-a84e-621d240bf594"]
},
WindowSize->{769, 866},
WindowMargins->{{Automatic, 519}, {7, Automatic}},
FrontEndVersion->"11.3 for Microsoft Windows (64-bit) (March 6, 2018)",
StyleDefinitions->"PrivateStylesheetFormatting.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 169, 2, 40, 112, 1, "StyleData", "StyleDefinitions", "",ExpressionUUID->"7b050aa8-afd4-4253-974d-b34d40d25bad"],
Cell[730, 24, 94, 1, 90, 24, 0, "StyleData", "Title", "All",ExpressionUUID->"8630dcc2-6f5b-4b3e-9b40-a8117bd61b2b"],
Cell[827, 27, 82, 0, 84, 27, 0, "StyleData", "Subtitle", "All",ExpressionUUID->"a237a6cf-5582-4520-b7d2-c803061b9d33"],
Cell[912, 29, 130, 3, 60, 25, 0, "StyleData", "Author", "All",ExpressionUUID->"e8902eae-2305-44f1-9aaa-df0c5e971c7a"],
Cell[1045, 34, 183, 5, 33, 30, 0, "StyleData", "Institution", "All",ExpressionUUID->"167f523d-ef81-4664-959a-42003a1b05ed"],
Cell[1231, 41, 160, 4, 33, 29, 0, "StyleData", "Department", "All",ExpressionUUID->"6f1fa21a-cb2f-4bc8-88ad-bd22ade4ea2f"],
Cell[1394, 47, 140, 3, 139, 35, 0, "StyleData", "BookChapterTitle", "All",ExpressionUUID->"fc84cfa9-9cad-4521-ac47-b55f5857889e"],
Cell[1537, 52, 196, 5, 159, 36, 0, "StyleData", "BookChapterNumber", "All",ExpressionUUID->"f3433b7f-a42a-4c9f-b033-ea4b5a030e7f"],
Cell[1736, 59, 106, 2, 40, 23, 0, "StyleData", "Text", "All",ExpressionUUID->"32ef38c1-8a49-4a2f-9908-ebbcb28360f3"],
Cell[1845, 63, 174, 4, 71, 26, 0, "StyleData", "Section", "All",ExpressionUUID->"e44b6de5-2a27-4224-93c0-6faff0c0ccda"],
Cell[2022, 69, 134, 3, 45, 29, 0, "StyleData", "Subsection", "All",ExpressionUUID->"1346e774-cf02-4892-83b3-c2d0c244985d"],
Cell[2159, 74, 137, 3, 38, 32, 0, "StyleData", "Subsubsection", "All",ExpressionUUID->"7d811c18-5744-45c0-b17b-6080fb066a59"],
Cell[2299, 79, 140, 3, 34, 35, 0, "StyleData", "Subsubsubsection", "All",ExpressionUUID->"c971c0ff-a478-418c-b942-05bb63ad5840"],
Cell[2442, 84, 146, 3, 143, 41, 0, "StyleData", "AcknowledgmentsSection", "All",ExpressionUUID->"b1c9b092-ab31-455a-aa5e-1d26aedce254"],
Cell[2591, 89, 139, 3, 139, 34, 0, "StyleData", "AppendixSection", "All",ExpressionUUID->"f6d8bb53-7ce5-474a-b51c-c36672d05a8c"],
Cell[2733, 94, 138, 3, 143, 33, 0, "StyleData", "EndnoteSection", "All",ExpressionUUID->"57f822bf-5eb2-48d3-b2d1-e3a2d31a189c"],
Cell[2874, 99, 140, 3, 143, 35, 0, "StyleData", "ReferenceSection", "All",ExpressionUUID->"340a20c4-4bf4-4509-b6b7-5bb8e5528ae6"],
Cell[3017, 104, 139, 3, 143, 34, 0, "StyleData", "ExerciseSection", "All",ExpressionUUID->"9eefc8ed-abbb-4b6f-a435-c8d01f16e1d2"],
Cell[3159, 109, 96, 1, 54, 26, 0, "StyleData", "Program", "All",ExpressionUUID->"8e9a56f8-6a2f-436e-b9ad-e0bfd4a2fa9e"],
Cell[3258, 112, 129, 2, 44, 24, 0, "StyleData", "Input", "All",ExpressionUUID->"2be52b8a-70d4-4517-88dd-3e25d24caffb"],
Cell[3390, 116, 130, 2, 44, 25, 0, "StyleData", "Output", "All",ExpressionUUID->"607928a8-e403-481f-8396-2baf5347ed89"],
Cell[3523, 120, 129, 2, 65, 23, 0, "StyleData", "Code", "All",ExpressionUUID->"ea71c062-3405-4c03-89b0-f5b6098567af"],
Cell[3655, 124, 125, 2, 57, 29, 0, "StyleData", "PrintUsage", "All",ExpressionUUID->"ab330589-e7b8-43fd-90bd-3fa2593cbdda",
 MenuSortingValue->10000],
Cell[3783, 128, 177, 3, 37, 24, 0, "StyleData", "Print", "All",ExpressionUUID->"3a876ee3-c215-44b1-91a7-89f00e9489a4",
 MenuSortingValue->10000],
Cell[3963, 133, 176, 3, 37, 23, 0, "StyleData", "Echo", "All",ExpressionUUID->"00e3d0b9-166a-48ce-9fd6-46293a00d951",
 MenuSortingValue->10000],
Cell[4142, 138, 218, 4, 36, 24, 0, "StyleData", "Item1", "All",ExpressionUUID->"13dc66b8-0eba-4a14-be8d-4edf109b6eb5"],
Cell[4363, 144, 217, 4, 35, 24, 0, "StyleData", "Item2", "All",ExpressionUUID->"9e59c145-d91a-4ddb-b533-c3f85825c08b"],
Cell[4583, 150, 217, 4, 35, 24, 0, "StyleData", "Item3", "All",ExpressionUUID->"b2d55ba0-5b44-4c36-b59f-bb7f4ad06082"],
Cell[4803, 156, 266, 5, 36, 32, 0, "StyleData", "Item1Numbered", "All",ExpressionUUID->"99439bd3-75e1-4d12-b3d8-9da3e6b7a4e9"],
Cell[5072, 163, 333, 6, 35, 32, 0, "StyleData", "Item2Numbered", "All",ExpressionUUID->"95302fb2-59ac-4585-839e-3deddacbb2ba"],
Cell[5408, 171, 299, 5, 35, 32, 0, "StyleData", "Item3Numbered", "All",ExpressionUUID->"14fcf199-89b9-4cfa-a3b6-b32322fcfe16"],
Cell[5710, 178, 117, 2, 40, 34, 0, "StyleData", "Acknowledgments", "All",ExpressionUUID->"b8fbdd5c-b331-4f4c-af4b-e00b77a6db04"],
Cell[5830, 182, 117, 2, 37, 22, 0, "StyleData", "MSG", "All",ExpressionUUID->"f424455f-3942-453c-a444-b398e4c29aa6",
 MenuSortingValue->10000],
Cell[5950, 186, 103, 1, 36, 26, 0, "StyleData", "Endnote", "All",ExpressionUUID->"1efb6cdb-23e4-46d9-afe6-2796ec16d288"],
Cell[6056, 189, 252, 4, 45, 28, 0, "StyleData", "Reference", "All",ExpressionUUID->"5de3af51-f413-4b48-93aa-e671a6fd9266"],
Cell[6311, 195, 123, 2, 35, 28, 0, "StyleData", "CellLabel", "All",ExpressionUUID->"9c8b582b-54b0-41e7-a080-a030b797dce8",
 MenuSortingValue->10000],
Cell[6437, 199, 233, 6, 39, 28, 0, "StyleData", "Hyperlink", "All",ExpressionUUID->"239c80a6-e75e-4091-add6-8452352beb91",
 MenuSortingValue->10000],
Cell[6673, 207, 189, 5, 39, 23, 0, "StyleData", "Link", "All",ExpressionUUID->"4397e9b7-743f-47cd-b3a9-16793cd212e2",
 MenuSortingValue->10000],
Cell[6865, 214, 125, 2, 35, 33, 0, "StyleData", "Item1Paragraph", "All",ExpressionUUID->"708abd11-080f-44ed-bc90-78b20e8db088"],
Cell[6993, 218, 119, 2, 46, 27, 0, "StyleData", "Equation", "All",ExpressionUUID->"0740dd15-c761-48a8-9161-d89caf0a6df1"],
Cell[7115, 222, 127, 2, 46, 35, 0, "StyleData", "EquationNumbered", "All",ExpressionUUID->"b7dff8bc-dad1-4504-a84e-621d240bf594"]
}
]
*)