CSS Lab 01 Solution.nb

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

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

(* CreatedBy='Mathematica 12.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     58994,       1406]
NotebookOptionsPosition[     47301,       1233]
NotebookOutlinePosition[     47675,       1249]
CellTagsIndexPosition[     47632,       1246]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{"Exercise01", "\[IndentingNewLine]", "Solution", "\
\[IndentingNewLine]", 
 RowBox[{"Expand", "[", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["x", "3"], "+", 
      RowBox[{"3", "x"}], "-", "1"}], ")"}], "3"], 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["x", "2"], "-", "2"}], ")"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.9065262127840214`*^9, 3.9065263135775023`*^9}, {
  3.906531868116439*^9, 3.9065319294351697`*^9}, {3.906532907297901*^9, 
  3.906532907688495*^9}, {3.906532967500321*^9, 3.906532978828291*^9}, {
  3.9065352435184793`*^9, 3.9065352586898785`*^9}},
 CellLabel->
  "In[336]:=",ExpressionUUID->"4823287f-5da9-4d67-922a-1110f8aa7c03"],

Cell[BoxData["Exercise01"], "Output",
 CellChangeTimes->{
  3.906526314405594*^9, {3.906531923841572*^9, 3.9065319329349937`*^9}, {
   3.9065329723908405`*^9, 3.9065329816719513`*^9}, {3.9065352515337954`*^9, 
   3.9065352603303995`*^9}},
 CellLabel->
  "Out[336]=",ExpressionUUID->"500c5f51-ddfe-49bf-a202-79fe95f2c4d6"],

Cell[BoxData["Solution"], "Output",
 CellChangeTimes->{
  3.906526314405594*^9, {3.906531923841572*^9, 3.9065319329349937`*^9}, {
   3.9065329723908405`*^9, 3.9065329816719513`*^9}, {3.9065352515337954`*^9, 
   3.9065352603303995`*^9}},
 CellLabel->
  "Out[337]=",ExpressionUUID->"79421a44-ea38-43dc-937e-8222f0a6d505"],

Cell[BoxData[
 RowBox[{"2", "-", 
  RowBox[{"18", " ", "x"}], "+", 
  RowBox[{"53", " ", 
   SuperscriptBox["x", "2"]}], "-", 
  RowBox[{"51", " ", 
   SuperscriptBox["x", "3"]}], "+", 
  RowBox[{"9", " ", 
   SuperscriptBox["x", "4"]}], "-", 
  RowBox[{"24", " ", 
   SuperscriptBox["x", "5"]}], "-", 
  RowBox[{"12", " ", 
   SuperscriptBox["x", "6"]}], "+", 
  RowBox[{"9", " ", 
   SuperscriptBox["x", "7"]}], "-", 
  RowBox[{"3", " ", 
   SuperscriptBox["x", "8"]}], "+", 
  RowBox[{"7", " ", 
   SuperscriptBox["x", "9"]}], "+", 
  SuperscriptBox["x", "11"]}]], "Output",
 CellChangeTimes->{
  3.906526314405594*^9, {3.906531923841572*^9, 3.9065319329349937`*^9}, {
   3.9065329723908405`*^9, 3.9065329816719513`*^9}, {3.9065352515337954`*^9, 
   3.9065352603303995`*^9}},
 CellLabel->
  "Out[338]=",ExpressionUUID->"3338f8af-4bc4-418c-b950-16ed27e94747"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{"Exercise02", "\[IndentingNewLine]", "Solution", "\
\[IndentingNewLine]", 
 RowBox[{"Factor", "[", 
  RowBox[{
   SuperscriptBox["x", "8"], "-", "1"}], "]"}]}], "Input",
 CellChangeTimes->{{3.9065263181710587`*^9, 3.9065263505776367`*^9}, {
  3.9065319424971523`*^9, 3.906531950340665*^9}, {3.906532910016595*^9, 
  3.906532910266611*^9}},
 CellLabel->
  "In[339]:=",ExpressionUUID->"48db855e-8393-43b8-8a98-7cd155a952cc"],

Cell[BoxData["Exercise02"], "Output",
 CellChangeTimes->{3.906526351265108*^9, 3.906531952121798*^9, 
  3.906532983265676*^9, 3.906535262799073*^9},
 CellLabel->
  "Out[339]=",ExpressionUUID->"5db63bd6-8284-4d1d-a589-cebcb967c38d"],

Cell[BoxData["Solution"], "Output",
 CellChangeTimes->{3.906526351265108*^9, 3.906531952121798*^9, 
  3.906532983265676*^9, 3.906535262799073*^9},
 CellLabel->
  "Out[340]=",ExpressionUUID->"57fd5cbe-7e9d-436c-b879-bc1247862411"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", "1"}], "+", "x"}], ")"}], " ", 
  RowBox[{"(", 
   RowBox[{"1", "+", "x"}], ")"}], " ", 
  RowBox[{"(", 
   RowBox[{"1", "+", 
    SuperscriptBox["x", "2"]}], ")"}], " ", 
  RowBox[{"(", 
   RowBox[{"1", "+", 
    SuperscriptBox["x", "4"]}], ")"}]}]], "Output",
 CellChangeTimes->{3.906526351265108*^9, 3.906531952121798*^9, 
  3.906532983265676*^9, 3.9065352628146973`*^9},
 CellLabel->
  "Out[341]=",ExpressionUUID->"179afe2b-072f-4c0c-bfe0-8310ec713e65"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{"Exercise03a", "\[IndentingNewLine]", "Simplification", "\
\[IndentingNewLine]", 
 RowBox[{"Simplify", "[", 
  RowBox[{
   RowBox[{"2", " ", 
    SuperscriptBox[
     RowBox[{"Cos", "[", "x", "]"}], "2"]}], "-", 
   RowBox[{"Cos", "[", 
    RowBox[{"2", " ", "x"}], "]"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.9065263574211173`*^9, 3.90652640904393*^9}, {
  3.906531963199569*^9, 3.906531972761676*^9}, {3.9065329136572065`*^9, 
  3.9065329138759594`*^9}},
 CellLabel->
  "In[342]:=",ExpressionUUID->"18278af3-18ab-4e79-a7da-1c60a12622e3"],

Cell[BoxData["Exercise03a"], "Output",
 CellChangeTimes->{3.9065264099078226`*^9, 3.9065319836050262`*^9, 
  3.906532988499967*^9, 3.906535265173999*^9},
 CellLabel->
  "Out[342]=",ExpressionUUID->"6536b82b-7491-41d1-b871-bb33b6eadcf8"],

Cell[BoxData["Simplification"], "Output",
 CellChangeTimes->{3.9065264099078226`*^9, 3.9065319836050262`*^9, 
  3.906532988499967*^9, 3.906535265189624*^9},
 CellLabel->
  "Out[343]=",ExpressionUUID->"571026b1-0bac-47e4-9ee2-8e1282d972b3"],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{3.9065264099078226`*^9, 3.9065319836050262`*^9, 
  3.906532988499967*^9, 3.906535265189624*^9},
 CellLabel->
  "Out[344]=",ExpressionUUID->"18544b71-ac7c-4b44-905a-bf4074039d8f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{"Exercise03b", "\[IndentingNewLine]", "Simplification", "\
\[IndentingNewLine]", 
 RowBox[{"Simplify", "[", 
  FractionBox[
   RowBox[{
    SuperscriptBox["\[ExponentialE]", "x"], "+", "x"}], 
   RowBox[{
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"2", " ", "x"}]], "+", 
    RowBox[{"2", " ", "x", " ", 
     SuperscriptBox["\[ExponentialE]", "x"]}], "+", 
    SuperscriptBox["x", "2"]}]], "]"}]}], "Input",
 CellChangeTimes->{{3.906526412595229*^9, 3.9065265053346834`*^9}, {
   3.9065319869330845`*^9, 3.9065319892923546`*^9}, {3.9065329155477953`*^9, 
   3.9065329157666073`*^9}, {3.90653414635404*^9, 3.9065341479165573`*^9}, 
   3.9065352835016108`*^9},
 CellLabel->
  "In[348]:=",ExpressionUUID->"814fcbad-fa4d-48f5-8b1c-2299ddd3ad51"],

Cell[BoxData["Exercise03b"], "Output",
 CellChangeTimes->{
  3.9065265071158495`*^9, 3.9065319911047516`*^9, 3.906532990343685*^9, 
   3.9065341543538265`*^9, {3.9065352688457603`*^9, 3.9065352854702396`*^9}},
 CellLabel->
  "Out[348]=",ExpressionUUID->"9150cf9f-6c3a-4c75-82dc-0960618ba28c"],

Cell[BoxData["Simplification"], "Output",
 CellChangeTimes->{
  3.9065265071158495`*^9, 3.9065319911047516`*^9, 3.906532990343685*^9, 
   3.9065341543538265`*^9, {3.9065352688457603`*^9, 3.9065352854702396`*^9}},
 CellLabel->
  "Out[349]=",ExpressionUUID->"60330a33-23a0-4d27-8bf6-a892f2ec1bd8"],

Cell[BoxData[
 FractionBox["1", 
  RowBox[{
   SuperscriptBox["\[ExponentialE]", "x"], "+", "x"}]]], "Output",
 CellChangeTimes->{
  3.9065265071158495`*^9, 3.9065319911047516`*^9, 3.906532990343685*^9, 
   3.9065341543538265`*^9, {3.9065352688457603`*^9, 3.9065352854858646`*^9}},
 CellLabel->
  "Out[350]=",ExpressionUUID->"9efee4ee-c584-4b5d-bfff-33638879124d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{"Exercise03c", "\[IndentingNewLine]", "Simplification", "\
\[IndentingNewLine]", 
 RowBox[{"Simplify", "[", 
  FractionBox[
   RowBox[{
    SqrtBox["x"], "-", "y"}], 
   RowBox[{"x", "-", 
    SuperscriptBox["y", "2"]}]], "]"}]}], "Input",
 CellChangeTimes->{{3.906526511256305*^9, 3.9065265506921477`*^9}, {
  3.9065319972451553`*^9, 3.906531998104499*^9}, {3.9065329188446364`*^9, 
  3.9065329190477514`*^9}, {3.9065352296595197`*^9, 3.9065352354561634`*^9}, {
  3.9065352915482264`*^9, 3.9065352979386473`*^9}},
 CellLabel->
  "In[357]:=",ExpressionUUID->"90239c7f-ee30-428a-85d9-8274de875074"],

Cell[BoxData["Exercise03c"], "Output",
 CellChangeTimes->{
  3.9065265513483515`*^9, 3.9065319992294536`*^9, 3.9065329921561565`*^9, {
   3.906535231456284*^9, 3.9065352386748133`*^9}, {3.9065352884545207`*^9, 
   3.90653530065726*^9}},
 CellLabel->
  "Out[357]=",ExpressionUUID->"b227394c-a0af-4b4b-94a8-c8d1162099ae"],

Cell[BoxData["Simplification"], "Output",
 CellChangeTimes->{
  3.9065265513483515`*^9, 3.9065319992294536`*^9, 3.9065329921561565`*^9, {
   3.906535231456284*^9, 3.9065352386748133`*^9}, {3.9065352884545207`*^9, 
   3.90653530065726*^9}},
 CellLabel->
  "Out[358]=",ExpressionUUID->"de714334-6bfa-4d5c-b9eb-d1e573656371"],

Cell[BoxData[
 FractionBox["1", 
  RowBox[{
   SqrtBox["x"], "+", "y"}]]], "Output",
 CellChangeTimes->{
  3.9065265513483515`*^9, 3.9065319992294536`*^9, 3.9065329921561565`*^9, {
   3.906535231456284*^9, 3.9065352386748133`*^9}, {3.9065352884545207`*^9, 
   3.90653530065726*^9}},
 CellLabel->
  "Out[359]=",ExpressionUUID->"e6428782-45eb-4be9-a10d-f50f1af03059"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{"Exercise03d", "\[IndentingNewLine]", "Simplification", "\
\[IndentingNewLine]", 
 RowBox[{"Simplify", "[", 
  RowBox[{
   RowBox[{"4", " ", 
    SuperscriptBox[
     RowBox[{"Sin", "[", "x", "]"}], "3"]}], "+", 
   RowBox[{"Sin", "[", 
    RowBox[{"3", " ", "x"}], "]"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.906526555106536*^9, 3.906526590230028*^9}, {
  3.90653200285435*^9, 3.9065320043543253`*^9}, {3.9065329218446393`*^9, 
  3.9065329220165033`*^9}, {3.906535305782157*^9, 3.9065353112194743`*^9}},
 CellLabel->
  "In[366]:=",ExpressionUUID->"926133e9-5f5d-4501-8f87-6a0a6bdb7e0c"],

Cell[BoxData["Exercise03d"], "Output",
 CellChangeTimes->{
  3.906526590933144*^9, 3.906532004932371*^9, 3.906532993781129*^9, {
   3.9065353032821755`*^9, 3.9065353122037663`*^9}},
 CellLabel->
  "Out[366]=",ExpressionUUID->"7f7a7899-a356-493c-9928-0ed465609ec2"],

Cell[BoxData["Simplification"], "Output",
 CellChangeTimes->{
  3.906526590933144*^9, 3.906532004932371*^9, 3.906532993781129*^9, {
   3.9065353032821755`*^9, 3.9065353122037663`*^9}},
 CellLabel->
  "Out[367]=",ExpressionUUID->"863be652-c17d-42c5-8765-ed2c09334854"],

Cell[BoxData[
 RowBox[{"3", " ", 
  RowBox[{"Sin", "[", "x", "]"}]}]], "Output",
 CellChangeTimes->{
  3.906526590933144*^9, 3.906532004932371*^9, 3.906532993781129*^9, {
   3.9065353032821755`*^9, 3.9065353122037663`*^9}},
 CellLabel->
  "Out[368]=",ExpressionUUID->"35d5f8b9-0318-4f4c-8cd7-826fc83ce3cb"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{"Exercise03e", "\[IndentingNewLine]", "Simplification", "\
\[IndentingNewLine]", 
 RowBox[{"Simplify", "[", 
  RowBox[{
   FractionBox[
    RowBox[{
     RowBox[{"3", " ", 
      SuperscriptBox["x", "2"]}], "+", "1"}], 
    RowBox[{
     SuperscriptBox["x", "3"], "-", "1"}]], "+", 
   FractionBox[
    RowBox[{
     RowBox[{"2", " ", "x"}], "-", "1"}], 
    RowBox[{
     SuperscriptBox["x", "2"], "-", "1"}]]}], "]"}]}], "Input",
 CellChangeTimes->{{3.906526598479702*^9, 3.9065266463213983`*^9}, {
  3.9065266903088713`*^9, 3.906526712062293*^9}, {3.906532007635397*^9, 
  3.9065320088541007`*^9}, {3.906532924219581*^9, 3.906532924422683*^9}},
 CellLabel->
  "In[369]:=",ExpressionUUID->"20bd5c65-ad16-4b3f-8e05-5e6e7967a82c"],

Cell[BoxData["Exercise03e"], "Output",
 CellChangeTimes->{3.9065267126873693`*^9, 3.906532009525952*^9, 
  3.906532995374853*^9, 3.9065353157036543`*^9},
 CellLabel->
  "Out[369]=",ExpressionUUID->"0ec34129-6873-4d7f-84e3-ea85c9bb040b"],

Cell[BoxData["Simplification"], "Output",
 CellChangeTimes->{3.9065267126873693`*^9, 3.906532009525952*^9, 
  3.906532995374853*^9, 3.906535315719279*^9},
 CellLabel->
  "Out[370]=",ExpressionUUID->"9225899f-7346-457c-b073-2b3a96daa8a1"],

Cell[BoxData[
 FractionBox[
  RowBox[{"x", " ", 
   RowBox[{"(", 
    RowBox[{"2", "+", 
     RowBox[{"4", " ", "x"}], "+", 
     RowBox[{"5", " ", 
      SuperscriptBox["x", "2"]}]}], ")"}]}], 
  RowBox[{
   RowBox[{"-", "1"}], "-", "x", "+", 
   SuperscriptBox["x", "3"], "+", 
   SuperscriptBox["x", "4"]}]]], "Output",
 CellChangeTimes->{3.9065267126873693`*^9, 3.906532009525952*^9, 
  3.906532995374853*^9, 3.906535315719279*^9},
 CellLabel->
  "Out[371]=",ExpressionUUID->"16a9cc91-f353-4ff5-8115-8c8ebccd0e60"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{"Exercise03f", "\[IndentingNewLine]", "Simplification", "\
\[IndentingNewLine]", 
 RowBox[{"Simplify", "[", 
  RowBox[{
   RowBox[{"2", " ", 
    RowBox[{"Binomial", "[", 
     RowBox[{"n", ",", "2"}], "]"}]}], "+", 
   SuperscriptBox["n", "2"]}], "]"}]}], "Input",
 CellChangeTimes->{{3.9065267182504973`*^9, 3.906526754940697*^9}, {
  3.906531140214381*^9, 3.906531161261427*^9}, {3.9065320118227997`*^9, 
  3.9065320126977615`*^9}, {3.906532926703923*^9, 3.906532926891464*^9}},
 CellLabel->
  "In[372]:=",ExpressionUUID->"aa62fd96-bea5-41de-ba93-d545089f0356"],

Cell[BoxData["Exercise03f"], "Output",
 CellChangeTimes->{3.9065267558001094`*^9, 3.9065311658864036`*^9, 
  3.9065320134476833`*^9, 3.9065329971560535`*^9, 3.906535318031725*^9},
 CellLabel->
  "Out[372]=",ExpressionUUID->"0f64df84-2cfb-45b0-8ab0-bfcea25654e7"],

Cell[BoxData["Simplification"], "Output",
 CellChangeTimes->{3.9065267558001094`*^9, 3.9065311658864036`*^9, 
  3.9065320134476833`*^9, 3.9065329971560535`*^9, 3.906535318047329*^9},
 CellLabel->
  "Out[373]=",ExpressionUUID->"1612883d-6ef4-4528-8624-94f3c4d45ea6"],

Cell[BoxData[
 RowBox[{"n", " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", "1"}], "+", 
    RowBox[{"2", " ", "n"}]}], ")"}]}]], "Output",
 CellChangeTimes->{3.9065267558001094`*^9, 3.9065311658864036`*^9, 
  3.9065320134476833`*^9, 3.9065329971560535`*^9, 3.906535318047329*^9},
 CellLabel->
  "Out[374]=",ExpressionUUID->"ce946a50-9e1e-4417-beda-a7512c8b8897"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{"Exercise04", "\[IndentingNewLine]", 
 RowBox[{"Verifying", " ", "equality"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Simplify", "[", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"a", " ", "d"}], "-", 
      RowBox[{"b", " ", "c"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"p", " ", "s"}], "-", 
      RowBox[{"r", " ", "q"}]}], ")"}]}], "]"}], "\[Equal]", 
  RowBox[{"Simplify", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"a", " ", "p"}], "+", 
       RowBox[{"b", " ", "r"}]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"c", " ", "q"}], "+", 
       RowBox[{"d", " ", "s"}]}], ")"}]}], "-", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"a", " ", "q"}], "+", 
       RowBox[{"b", " ", "s"}]}], ")"}], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"c", " ", "p"}], "+", 
       RowBox[{"d", " ", "r"}]}], ")"}]}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.906526774878854*^9, 3.9065267801914306`*^9}, {
  3.9065268489483356`*^9, 3.9065269492107916`*^9}, {3.906532019525646*^9, 
  3.906532049821391*^9}, {3.906532929047682*^9, 3.9065329354225984`*^9}},
 CellLabel->
  "In[375]:=",ExpressionUUID->"0564d121-f8d1-427a-aa7a-7b75011be404"],

Cell[BoxData["Exercise04"], "Output",
 CellChangeTimes->{3.9065269505857177`*^9, 3.9065320514150333`*^9, 
  3.906532999999773*^9, 3.90653532176598*^9},
 CellLabel->
  "Out[375]=",ExpressionUUID->"130d38d6-962c-4e55-8917-763b7db3c00a"],

Cell[BoxData[
 RowBox[{"equality", " ", "Verifying"}]], "Output",
 CellChangeTimes->{3.9065269505857177`*^9, 3.9065320514150333`*^9, 
  3.906532999999773*^9, 3.906535321781584*^9},
 CellLabel->
  "Out[376]=",ExpressionUUID->"4ef84b0f-3d41-4015-a485-140a01f45fd1"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.9065269505857177`*^9, 3.9065320514150333`*^9, 
  3.906532999999773*^9, 3.906535321781584*^9},
 CellLabel->
  "Out[377]=",ExpressionUUID->"02efefa7-c34e-4b29-a44f-a195e86eb008"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{"Exercise05a", "\[IndentingNewLine]", "CheckingIdentity", "\
\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Simplify", "[", 
   RowBox[{
    RowBox[{"Tan", "[", "x", "]"}], "+", 
    RowBox[{"Tan", "[", "y", "]"}]}], "]"}], "\[Equal]", 
  RowBox[{"Simplify", "[", 
   FractionBox[
    RowBox[{"Sin", "[", 
     RowBox[{"x", "+", "y"}], "]"}], 
    RowBox[{
     RowBox[{"Cos", "[", "x", "]"}], " ", 
     RowBox[{"Cos", "[", "y", "]"}]}]], "]"}]}]}], "Input",
 CellChangeTimes->{{3.9065269550543194`*^9, 3.9065270502380366`*^9}, {
  3.906532056821089*^9, 3.906532070133147*^9}, {3.9065329380475593`*^9, 
  3.9065329383288374`*^9}},
 CellLabel->
  "In[378]:=",ExpressionUUID->"a4278831-05f1-4441-940c-df10a155d684"],

Cell[BoxData["Exercise05a"], "Output",
 CellChangeTimes->{3.9065270512536016`*^9, 3.906532081179555*^9, 
  3.9065330019684935`*^9, 3.9065353252658467`*^9},
 CellLabel->
  "Out[378]=",ExpressionUUID->"d01a7718-f517-4192-bf5e-309c0a9e7f79"],

Cell[BoxData["CheckingIdentity"], "Output",
 CellChangeTimes->{3.9065270512536016`*^9, 3.906532081179555*^9, 
  3.9065330019684935`*^9, 3.9065353252658467`*^9},
 CellLabel->
  "Out[379]=",ExpressionUUID->"b40a2eaa-5ae7-40e3-aff9-58e0e5ed8285"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.9065270512536016`*^9, 3.906532081179555*^9, 
  3.9065330019684935`*^9, 3.9065353252658467`*^9},
 CellLabel->
  "Out[380]=",ExpressionUUID->"df82ee65-5d94-40a1-8abc-81099696f7cd"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{"Exercise05b", "\[IndentingNewLine]", "CheckingIdentity", "\
\[IndentingNewLine]", 
 RowBox[{"Simplify", "[", 
  RowBox[{"2", 
   FractionBox[
    RowBox[{"Tanh", "[", "x", "]"}], 
    RowBox[{
     RowBox[{"-", 
      SuperscriptBox[
       RowBox[{"Tanh", "[", "x", "]"}], "2"]}], "+", "1"}]]}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.906527054847226*^9, 3.906527087330241*^9}, {
  3.906527133453828*^9, 3.9065271853110666`*^9}, {3.9065320845544786`*^9, 
  3.906532084866953*^9}, {3.9065329402038083`*^9, 3.906532940422551*^9}},
 CellLabel->
  "In[381]:=",ExpressionUUID->"1c938fd3-019a-4da9-a252-ed151959a04c"],

Cell[BoxData["Exercise05b"], "Output",
 CellChangeTimes->{3.906527186326646*^9, 3.906532086757474*^9, 
  3.9065330042965546`*^9, 3.9065353280938807`*^9},
 CellLabel->
  "Out[381]=",ExpressionUUID->"23ad9d8e-7202-4f48-ac5b-7cc55af7da39"],

Cell[BoxData["CheckingIdentity"], "Output",
 CellChangeTimes->{3.906527186326646*^9, 3.906532086757474*^9, 
  3.9065330042965546`*^9, 3.9065353281095047`*^9},
 CellLabel->
  "Out[382]=",ExpressionUUID->"c9f7f22b-f2be-415d-91ac-ac683eb05ecd"],

Cell[BoxData[
 RowBox[{"Sinh", "[", 
  RowBox[{"2", " ", "x"}], "]"}]], "Output",
 CellChangeTimes->{3.906527186326646*^9, 3.906532086757474*^9, 
  3.9065330042965546`*^9, 3.9065353281095047`*^9},
 CellLabel->
  "Out[383]=",ExpressionUUID->"d8496a4b-8126-4a76-a063-317a7f691b64"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{"Exercise05c", "\[IndentingNewLine]", "CheckingIdentity", "\
\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"FullSimplify", "[", 
   RowBox[{
    RowBox[{"ArcSin", "[", "x", "]"}], "+", 
    RowBox[{"ArcCos", "[", "x", "]"}]}], "]"}], "\[Equal]", 
  FractionBox["\[Pi]", "2"]}]}], "Input",
 CellChangeTimes->{{3.9065271896077614`*^9, 3.9065273068953185`*^9}, {
  3.9065283850722837`*^9, 3.906528393650113*^9}, {3.9065320901792707`*^9, 
  3.906532091241686*^9}, {3.906532942906889*^9, 3.9065329432506447`*^9}},
 CellLabel->
  "In[384]:=",ExpressionUUID->"d1568e87-e06a-4c2a-b69d-717551d4fd08"],

Cell[BoxData["Exercise05c"], "Output",
 CellChangeTimes->{{3.906527290462935*^9, 3.9065273089577513`*^9}, 
   3.906528395681242*^9, 3.9065320918979073`*^9, 3.9065330074996443`*^9, 
   3.9065353325312376`*^9},
 CellLabel->
  "Out[384]=",ExpressionUUID->"130dfc7a-39eb-4085-a047-e8ea51204e84"],

Cell[BoxData["CheckingIdentity"], "Output",
 CellChangeTimes->{{3.906527290462935*^9, 3.9065273089577513`*^9}, 
   3.906528395681242*^9, 3.9065320918979073`*^9, 3.9065330074996443`*^9, 
   3.9065353325312376`*^9},
 CellLabel->
  "Out[385]=",ExpressionUUID->"90fb8975-1a91-437e-8aeb-5eecd3855b0f"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{{3.906527290462935*^9, 3.9065273089577513`*^9}, 
   3.906528395681242*^9, 3.9065320918979073`*^9, 3.9065330074996443`*^9, 
   3.9065353325312376`*^9},
 CellLabel->
  "Out[386]=",ExpressionUUID->"e7b7e157-1be6-4de1-b0dc-38f7a96a0c5a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{"Exercise05d", "\[IndentingNewLine]", "CheckingIdentity", "\
\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Simplify", "[", 
   RowBox[{
    UnderoverscriptBox["\[Sum]", 
     RowBox[{"i", "=", "1"}], "n"], 
    SuperscriptBox["i", "3"]}], "]"}], "\[Equal]", 
  RowBox[{"Simplify", "[", 
   SuperscriptBox[
    RowBox[{"Binomial", "[", 
     RowBox[{
      RowBox[{"n", "+", "1"}], ",", "2"}], "]"}], "2"], "]"}]}]}], "Input",
 CellChangeTimes->{{3.906528430492426*^9, 3.9065284443981314`*^9}, {
  3.9065284909431725`*^9, 3.906528542972302*^9}, {3.906532095866558*^9, 
  3.90653209677273*^9}, {3.906532945281846*^9, 3.906532945563113*^9}},
 CellLabel->
  "In[387]:=",ExpressionUUID->"72da239b-48e4-4b27-a619-e66324cd9c8c"],

Cell[BoxData["Exercise05d"], "Output",
 CellChangeTimes->{3.906528543675367*^9, 3.9065320979758067`*^9, 
  3.906533009187115*^9, 3.9065353347499156`*^9},
 CellLabel->
  "Out[387]=",ExpressionUUID->"662da6c5-e187-4e9c-b910-77b1b2648aae"],

Cell[BoxData["CheckingIdentity"], "Output",
 CellChangeTimes->{3.906528543675367*^9, 3.9065320979758067`*^9, 
  3.906533009187115*^9, 3.90653533476554*^9},
 CellLabel->
  "Out[388]=",ExpressionUUID->"5cafd1ca-ba7c-416d-89f3-5ebbe477d93d"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.906528543675367*^9, 3.9065320979758067`*^9, 
  3.906533009187115*^9, 3.90653533476554*^9},
 CellLabel->
  "Out[389]=",ExpressionUUID->"7996df23-b186-471a-97a4-b5e034888601"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{"Exercis06", "\[IndentingNewLine]", "CalculatingTheValue", "\
\[IndentingNewLine]", "ClearingAnyValueIfAssignedToX", "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", "x", 
  "]"}], "\[IndentingNewLine]", "SolvingTheGivenExpression", "\
\[IndentingNewLine]", 
 RowBox[{"N", "[", 
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Tan", "[", "x", "]"}], "==", 
     FractionBox["1", "3"]}], ",", "x"}], "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.9065295185462856`*^9, 3.90652952539001*^9}, {
   3.906529568296028*^9, 3.9065295749990983`*^9}, {3.9065298031001196`*^9, 
   3.9065298816923127`*^9}, {3.9065299972773714`*^9, 
   3.9065299977461195`*^9}, {3.90653003863813*^9, 3.906530065795034*^9}, {
   3.9065301167343273`*^9, 3.9065301618595953`*^9}, 3.906530436855988*^9, {
   3.906530719316312*^9, 3.9065307737519455`*^9}, {3.906531474651298*^9, 
   3.9065315406182756`*^9}, {3.906531590750682*^9, 3.906531623687152*^9}, {
   3.906532107006769*^9, 3.906532244798482*^9}, {3.906532947766221*^9, 
   3.906532948016157*^9}},
 CellLabel->
  "In[390]:=",ExpressionUUID->"aac4886b-88ed-4b21-83f9-13d3a45de3cd"],

Cell[BoxData["Exercis06"], "Output",
 CellChangeTimes->{{3.9065298206932273`*^9, 3.906529859863684*^9}, {
   3.9065301482032824`*^9, 3.90653016429709*^9}, 3.9065304381684465`*^9, {
   3.906530728034735*^9, 3.9065307753768587`*^9}, {3.906531479869911*^9, 
   3.90653148693223*^9}, {3.9065315282436213`*^9, 3.906531541508875*^9}, {
   3.906531598437915*^9, 3.9065316276088943`*^9}, 3.9065321324432716`*^9, 
   3.9065322386580353`*^9, 3.90653227663195*^9, 3.9065330115151963`*^9, 
   3.9065353391872716`*^9},
 CellLabel->
  "Out[390]=",ExpressionUUID->"7f5b6bed-3d89-4cb1-b344-dfd021d71319"],

Cell[BoxData["CalculatingTheValue"], "Output",
 CellChangeTimes->{{3.9065298206932273`*^9, 3.906529859863684*^9}, {
   3.9065301482032824`*^9, 3.90653016429709*^9}, 3.9065304381684465`*^9, {
   3.906530728034735*^9, 3.9065307753768587`*^9}, {3.906531479869911*^9, 
   3.90653148693223*^9}, {3.9065315282436213`*^9, 3.906531541508875*^9}, {
   3.906531598437915*^9, 3.9065316276088943`*^9}, 3.9065321324432716`*^9, 
   3.9065322386580353`*^9, 3.90653227663195*^9, 3.9065330115151963`*^9, 
   3.906535339202896*^9},
 CellLabel->
  "Out[391]=",ExpressionUUID->"d1c9416c-5cbb-477a-8917-acb17723ce6d"],

Cell[BoxData["ClearingAnyValueIfAssignedToX"], "Output",
 CellChangeTimes->{{3.9065298206932273`*^9, 3.906529859863684*^9}, {
   3.9065301482032824`*^9, 3.90653016429709*^9}, 3.9065304381684465`*^9, {
   3.906530728034735*^9, 3.9065307753768587`*^9}, {3.906531479869911*^9, 
   3.90653148693223*^9}, {3.9065315282436213`*^9, 3.906531541508875*^9}, {
   3.906531598437915*^9, 3.9065316276088943`*^9}, 3.9065321324432716`*^9, 
   3.9065322386580353`*^9, 3.90653227663195*^9, 3.9065330115151963`*^9, 
   3.906535339202896*^9},
 CellLabel->
  "Out[392]=",ExpressionUUID->"fead5529-a0c3-4d94-8bf1-757570de6a53"],

Cell[BoxData["SolvingTheGivenExpression"], "Output",
 CellChangeTimes->{{3.9065298206932273`*^9, 3.906529859863684*^9}, {
   3.9065301482032824`*^9, 3.90653016429709*^9}, 3.9065304381684465`*^9, {
   3.906530728034735*^9, 3.9065307753768587`*^9}, {3.906531479869911*^9, 
   3.90653148693223*^9}, {3.9065315282436213`*^9, 3.906531541508875*^9}, {
   3.906531598437915*^9, 3.9065316276088943`*^9}, 3.9065321324432716`*^9, 
   3.9065322386580353`*^9, 3.90653227663195*^9, 3.9065330115151963`*^9, 
   3.906535339202896*^9},
 CellLabel->
  "Out[394]=",ExpressionUUID->"8411bf48-cd50-4d37-84b4-e6af10549ed4"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"x", "\[Rule]", 
    RowBox[{"ConditionalExpression", "[", 
     RowBox[{
      RowBox[{"0.3217505543966422`", "\[VeryThinSpace]", "+", 
       RowBox[{"3.141592653589793`", " ", 
        TemplateBox[{"1"},
         "C"]}]}], ",", 
      RowBox[{
       TemplateBox[{"1"},
        "C"], "\[Element]", 
       TemplateBox[{},
        "Integers"]}]}], "]"}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{{3.9065298206932273`*^9, 3.906529859863684*^9}, {
   3.9065301482032824`*^9, 3.90653016429709*^9}, 3.9065304381684465`*^9, {
   3.906530728034735*^9, 3.9065307753768587`*^9}, {3.906531479869911*^9, 
   3.90653148693223*^9}, {3.9065315282436213`*^9, 3.906531541508875*^9}, {
   3.906531598437915*^9, 3.9065316276088943`*^9}, 3.9065321324432716`*^9, 
   3.9065322386580353`*^9, 3.90653227663195*^9, 3.9065330115151963`*^9, 
   3.906535339202896*^9},
 CellLabel->
  "Out[395]=",ExpressionUUID->"bd4492ba-e32c-45bf-ae27-fd6feb89dc06"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{"AssigningTheValueWithX", "\[IndentingNewLine]", 
 RowBox[{"x", "=", 
  "0.3217505543966422"}], "\[IndentingNewLine]", \
"CalculatingTheRequiredValue", "\[IndentingNewLine]", 
 RowBox[{"Simplify", "[", 
  FractionBox[
   RowBox[{
    SuperscriptBox[
     RowBox[{"Cot", "[", "x", "]"}], "2"], "-", "2"}], 
   RowBox[{
    RowBox[{"Sin", "[", "x", "]"}], "-", 
    RowBox[{"2", " ", 
     RowBox[{"Cos", "[", "x", "]"}]}]}]], "]"}]}], "Input",
 CellChangeTimes->{{3.9065322869909835`*^9, 3.9065323255363803`*^9}},
 CellLabel->
  "In[396]:=",ExpressionUUID->"1bc18d7d-6339-41a0-a6e1-000da4af6df4"],

Cell[BoxData["AssigningTheValueWithX"], "Output",
 CellChangeTimes->{3.9065323269581895`*^9, 3.9065330142027416`*^9, 
  3.906535342999648*^9},
 CellLabel->
  "Out[396]=",ExpressionUUID->"985a08f9-d0f7-48f0-a58a-31efbdf2912f"],

Cell[BoxData["0.3217505543966422`"], "Output",
 CellChangeTimes->{3.9065323269581895`*^9, 3.9065330142027416`*^9, 
  3.906535343015272*^9},
 CellLabel->
  "Out[397]=",ExpressionUUID->"b85c1571-5c67-4f97-8fe4-8b53d0c597e4"],

Cell[BoxData["CalculatingTheRequiredValue"], "Output",
 CellChangeTimes->{3.9065323269581895`*^9, 3.9065330142027416`*^9, 
  3.906535343015272*^9},
 CellLabel->
  "Out[398]=",ExpressionUUID->"8c8f59bc-7617-458e-b7b8-eaf726eb1fda"],

Cell[BoxData[
 RowBox[{"-", "4.427188724235731`"}]], "Output",
 CellChangeTimes->{3.9065323269581895`*^9, 3.9065330142027416`*^9, 
  3.906535343015272*^9},
 CellLabel->
  "Out[399]=",ExpressionUUID->"9c75d1d7-5bd7-42fa-b22a-c6fb22af9390"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{"Exercise07", "\[IndentingNewLine]", "ProofOfTheEquation", "\
\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Simplify", "[", 
   RowBox[{"N", "[", 
    SqrtBox[
     RowBox[{
      RowBox[{"2", 
       SqrtBox["19549"]}], "+", "286"}]], "]"}], "]"}], "\[Equal]", 
  RowBox[{"Simplify", "[", 
   RowBox[{"N", "[", 
    RowBox[{
     SqrtBox["173"], "+", 
     SqrtBox["113"]}], "]"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.906527341675147*^9, 3.9065274362961726`*^9}, {
  3.906528454788322*^9, 3.9065284621943045`*^9}, {3.906528688215933*^9, 
  3.9065287006998177`*^9}, {3.906528781598692*^9, 3.9065288182690415`*^9}, {
  3.906532335145405*^9, 3.906532378237531*^9}, {3.9065329531099014`*^9, 
  3.906532953313018*^9}},
 CellLabel->
  "In[400]:=",ExpressionUUID->"95f92451-2fca-4512-ae03-c9256a669a94"],

Cell[BoxData["Exercise07"], "Output",
 CellChangeTimes->{
  3.9065274403428965`*^9, 3.9065284647879143`*^9, {3.9065286932938395`*^9, 
   3.906528702684081*^9}, 3.9065288190189962`*^9, 3.906532379862434*^9, 
   3.906533016343234*^9, 3.906535345437069*^9},
 CellLabel->
  "Out[400]=",ExpressionUUID->"3496cd80-1f16-4f15-900f-f9613a75e13f"],

Cell[BoxData["ProofOfTheEquation"], "Output",
 CellChangeTimes->{
  3.9065274403428965`*^9, 3.9065284647879143`*^9, {3.9065286932938395`*^9, 
   3.906528702684081*^9}, 3.9065288190189962`*^9, 3.906532379862434*^9, 
   3.906533016343234*^9, 3.906535345437069*^9},
 CellLabel->
  "Out[401]=",ExpressionUUID->"7d1116e3-faf4-444d-a694-c6a2dbc45315"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.9065274403428965`*^9, 3.9065284647879143`*^9, {3.9065286932938395`*^9, 
   3.906528702684081*^9}, 3.9065288190189962`*^9, 3.906532379862434*^9, 
   3.906533016343234*^9, 3.906535345437069*^9},
 CellLabel->
  "Out[402]=",ExpressionUUID->"c9b06ce5-5596-4c1b-964d-faf7d58762e6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{"Exercise08", "\[IndentingNewLine]", 
 RowBox[{"ApproximateValue", "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"N", "[", 
  SuperscriptBox["\[Pi]", 
   SuperscriptBox["\[Pi]", "\[Pi]"]], "]"}]}], "Input",
 CellChangeTimes->{{3.9065274684042253`*^9, 3.9065274735758877`*^9}, 
   3.90652752162076*^9, {3.9065276045544205`*^9, 3.9065276125696945`*^9}, {
   3.9065276431934137`*^9, 3.9065276530836267`*^9}, {3.9065289558210893`*^9, 
   3.906528959102518*^9}, {3.906532390971385*^9, 3.9065324363640585`*^9}, {
   3.906532955234863*^9, 3.906532955453619*^9}},
 CellLabel->
  "In[403]:=",ExpressionUUID->"f3eb0572-35b9-4af6-a76b-7a5cc27fa873"],

Cell[BoxData["Exercise08"], "Output",
 CellChangeTimes->{3.906527654239829*^9, 3.9065289607119284`*^9, 
  3.9065324374891853`*^9, 3.906533018374445*^9, 3.90653534724951*^9},
 CellLabel->
  "Out[403]=",ExpressionUUID->"93788b91-0cac-4b1f-9cf6-9845b21a3459"],

Cell[BoxData["ApproximateValue"], "Output",
 CellChangeTimes->{3.906527654239829*^9, 3.9065289607119284`*^9, 
  3.9065324374891853`*^9, 3.906533018374445*^9, 3.90653534724951*^9},
 CellLabel->
  "Out[404]=",ExpressionUUID->"b95fd19f-a585-4332-9f35-188bcd291512"],

Cell[BoxData["1.3401641830063398`*^18"], "Output",
 CellChangeTimes->{3.906527654239829*^9, 3.9065289607119284`*^9, 
  3.9065324374891853`*^9, 3.906533018374445*^9, 3.906535347265134*^9},
 CellLabel->
  "Out[405]=",ExpressionUUID->"1561cd61-2a99-425e-a258-1df33cfcfc28"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{"Exercise09", "\[IndentingNewLine]", "FindingTheSmaller", "\
\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"N", "[", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"-", 
     RowBox[{"Cos", "[", "3", "]"}]}]], "]"}], "<", 
  RowBox[{"N", "[", 
   RowBox[{
    RowBox[{"Log", "[", 
     RowBox[{"3", ",", 
      RowBox[{"8", " ", "\[Pi]"}]}], "]"}], "+", "0.7"}], 
   "]"}]}], "\[IndentingNewLine]", "TheSmallerIs", "\[IndentingNewLine]", 
 RowBox[{"N", "[", 
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{"-", 
    RowBox[{"Cos", "[", "3", "]"}]}]], "]"}]}], "Input",
 CellChangeTimes->{{3.9065276570366063`*^9, 3.9065276705360265`*^9}, {
  3.9065277136436234`*^9, 3.906527776562855*^9}, {3.9065289804472113`*^9, 
  3.9065290026042247`*^9}, {3.906529049323704*^9, 3.9065290944174757`*^9}, {
  3.9065324450996284`*^9, 3.906532497449681*^9}, {3.9065329574379745`*^9, 
  3.9065329576567087`*^9}},
 CellLabel->
  "In[406]:=",ExpressionUUID->"3a578a25-9f0e-4783-8ba1-38557924bc26"],

Cell[BoxData["Exercise09"], "Output",
 CellChangeTimes->{
  3.906527777203453*^9, {3.9065289870412087`*^9, 3.9065290040729856`*^9}, {
   3.906529063214386*^9, 3.906529096542406*^9}, {3.9065324842138357`*^9, 
   3.90653249834036*^9}, 3.906533020608779*^9, 3.906535349171322*^9},
 CellLabel->
  "Out[406]=",ExpressionUUID->"db9a8b64-b43b-4c8c-86df-f56fac4bfc93"],

Cell[BoxData["FindingTheSmaller"], "Output",
 CellChangeTimes->{
  3.906527777203453*^9, {3.9065289870412087`*^9, 3.9065290040729856`*^9}, {
   3.906529063214386*^9, 3.906529096542406*^9}, {3.9065324842138357`*^9, 
   3.90653249834036*^9}, 3.906533020608779*^9, 3.9065353491869464`*^9},
 CellLabel->
  "Out[407]=",ExpressionUUID->"43b7d59e-a18a-4c4c-806a-af196a273e16"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.906527777203453*^9, {3.9065289870412087`*^9, 3.9065290040729856`*^9}, {
   3.906529063214386*^9, 3.906529096542406*^9}, {3.9065324842138357`*^9, 
   3.90653249834036*^9}, 3.906533020608779*^9, 3.9065353491869464`*^9},
 CellLabel->
  "Out[408]=",ExpressionUUID->"f82f9edf-75dd-4bb2-85ef-186da35e47a5"],

Cell[BoxData["TheSmallerIs"], "Output",
 CellChangeTimes->{
  3.906527777203453*^9, {3.9065289870412087`*^9, 3.9065290040729856`*^9}, {
   3.906529063214386*^9, 3.906529096542406*^9}, {3.9065324842138357`*^9, 
   3.90653249834036*^9}, 3.906533020608779*^9, 3.906535349202571*^9},
 CellLabel->
  "Out[409]=",ExpressionUUID->"2da14fa5-a7e7-4df4-bbef-56308242cce4"],

Cell[BoxData["2.6912142790174807`"], "Output",
 CellChangeTimes->{
  3.906527777203453*^9, {3.9065289870412087`*^9, 3.9065290040729856`*^9}, {
   3.906529063214386*^9, 3.906529096542406*^9}, {3.9065324842138357`*^9, 
   3.90653249834036*^9}, 3.906533020608779*^9, 3.906535349202571*^9},
 CellLabel->
  "Out[410]=",ExpressionUUID->"7074d4e4-e552-413b-995e-92e8da16e6a5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{"Exercise10a", "\[IndentingNewLine]", \
"CalculatingTheApproximateValueUpTo20Decimals", "\[IndentingNewLine]", 
 RowBox[{"N", "[", 
  RowBox[{
   RowBox[{
    SuperscriptBox["\[Pi]", "\[ExponentialE]"], "+", 
    SuperscriptBox["\[ExponentialE]", "\[Pi]"]}], ",", "20"}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.906527810599434*^9, 3.906527940870143*^9}, {
  3.9065325043722425`*^9, 3.906532569987198*^9}},
 CellLabel->
  "In[411]:=",ExpressionUUID->"6dd65835-3c28-4e9f-95fb-a3070183dfec"],

Cell[BoxData["Exercise10a"], "Output",
 CellChangeTimes->{3.9065279429014673`*^9, 3.9065325752375245`*^9, 
  3.9065353528743258`*^9},
 CellLabel->
  "Out[411]=",ExpressionUUID->"0deb7b7c-5fa5-46de-a0a9-e6f4e2a5ebbf"],

Cell[BoxData["CalculatingTheApproximateValueUpTo20Decimals"], "Output",
 CellChangeTimes->{3.9065279429014673`*^9, 3.9065325752375245`*^9, 
  3.9065353528743258`*^9},
 CellLabel->
  "Out[412]=",ExpressionUUID->"ef2fc4e7-e4f6-4c82-85ee-15998cd21c32"],

Cell[BoxData["45.59985035114031447915623850629425409407`20."], "Output",
 CellChangeTimes->{3.9065279429014673`*^9, 3.9065325752375245`*^9, 
  3.9065353528743258`*^9},
 CellLabel->
  "Out[413]=",ExpressionUUID->"3b0ceaed-e942-4a74-8787-fb72e3cfe30d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{"Exercise10b", "\[IndentingNewLine]", \
"CalculatingTheApproximateValueUpTo20Decimals", "\[IndentingNewLine]", 
 RowBox[{"N", "[", 
  RowBox[{
   RowBox[{"Sin", "[", 
    FractionBox[
     RowBox[{"Log", "[", 
      RowBox[{"Abs", "[", 
       RowBox[{"Cos", "[", 
        RowBox[{"\[ExponentialE]", " ", "\[Pi]"}], "]"}], "]"}], "]"}], 
     RowBox[{"Cos", "[", 
      RowBox[{"Abs", "[", 
       RowBox[{"Log", "[", 
        RowBox[{"\[ExponentialE]", " ", "\[Pi]"}], "]"}], "]"}], "]"}]], 
    "]"}], ",", "20"}], "]"}]}], "Input",
 CellChangeTimes->{{3.906527946370431*^9, 3.906527987887474*^9}, {
  3.9065281015126123`*^9, 3.906528131387039*^9}, {3.90652858128325*^9, 
  3.90652862395339*^9}, {3.9065296777760057`*^9, 3.9065296899318666`*^9}, {
  3.90652973544613*^9, 3.9065297385241613`*^9}, {3.906529780413395*^9, 
  3.9065297823664527`*^9}, {3.90653256364297*^9, 3.90653256670568*^9}},
 CellLabel->
  "In[414]:=",ExpressionUUID->"ccae6722-15fd-4eed-af1c-94f701c8be66"],

Cell[BoxData["Exercise10b"], "Output",
 CellChangeTimes->{{3.9065286016886435`*^9, 3.9065286249377117`*^9}, 
   3.9065296915880833`*^9, 3.906529740242846*^9, 3.9065297830382743`*^9, 
   3.906532580394117*^9, 3.906535354796138*^9},
 CellLabel->
  "Out[414]=",ExpressionUUID->"e4ce91fa-bdc4-4e88-9d34-d5ec66239cc7"],

Cell[BoxData["CalculatingTheApproximateValueUpTo20Decimals"], "Output",
 CellChangeTimes->{{3.9065286016886435`*^9, 3.9065286249377117`*^9}, 
   3.9065296915880833`*^9, 3.906529740242846*^9, 3.9065297830382743`*^9, 
   3.906532580394117*^9, 3.906535354796138*^9},
 CellLabel->
  "Out[415]=",ExpressionUUID->"90b199af-9a7e-44c9-99ea-c2f7fd880085"],

Cell[BoxData["0.7456403455020031269540785899241846458`20."], "Output",
 CellChangeTimes->{{3.9065286016886435`*^9, 3.9065286249377117`*^9}, 
   3.9065296915880833`*^9, 3.906529740242846*^9, 3.9065297830382743`*^9, 
   3.906532580394117*^9, 3.906535354796138*^9},
 CellLabel->
  "Out[416]=",ExpressionUUID->"157a0ab6-c6f7-4ca5-8b5e-a140be0ec12f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{"Exercise11", "\[IndentingNewLine]", 
 RowBox[{"TheNumberOfDigitsFor23", "!"}], "\[IndentingNewLine]", 
 RowBox[{"IntegerLength", "[", 
  RowBox[{"Factorial", "[", "23", "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.9065287288719516`*^9, 3.9065287533553348`*^9}, {
  3.9065288509596314`*^9, 3.906528858585941*^9}, {3.9065325900509896`*^9, 
  3.9065326078489323`*^9}},
 CellLabel->
  "In[417]:=",ExpressionUUID->"e88110cc-f3fc-4b2f-8de9-d5fbd27502e8"],

Cell[BoxData["Exercise11"], "Output",
 CellChangeTimes->{3.906528754152145*^9, 3.906528860101779*^9, 
  3.90653261025528*^9, 3.906535357952285*^9},
 CellLabel->
  "Out[417]=",ExpressionUUID->"52515c9a-8505-4caa-be03-5b706c260703"],

Cell[BoxData[
 RowBox[{"TheNumberOfDigitsFor23", "!"}]], "Output",
 CellChangeTimes->{3.906528754152145*^9, 3.906528860101779*^9, 
  3.90653261025528*^9, 3.906535357952285*^9},
 CellLabel->
  "Out[418]=",ExpressionUUID->"cba58c25-2099-4718-bb06-3419392a4bfd"],

Cell[BoxData["23"], "Output",
 CellChangeTimes->{3.906528754152145*^9, 3.906528860101779*^9, 
  3.90653261025528*^9, 3.906535357952285*^9},
 CellLabel->
  "Out[419]=",ExpressionUUID->"3df40f24-66a1-40db-a9c0-5f1594727da9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{"Exercise12", "\[IndentingNewLine]", "AssigningTheValueWithX", \
"\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"x", "=", "1"}], 
  ";"}], "\[IndentingNewLine]", "SummationOfAllCoefficients", "\
\[IndentingNewLine]", 
 RowBox[{"Simplify", "[", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["x", "2"], "-", 
      RowBox[{"5", " ", "x"}], "+", "2"}], ")"}], "2009"], "-", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"4", " ", 
       SuperscriptBox["x", "3"]}], "-", 
      RowBox[{"7", " ", 
       SuperscriptBox["x", "2"]}], "+", "x", "-", "1"}], ")"}], "2001"]}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.906528867696698*^9, 3.9065288715566964`*^9}, {
  3.9065291215444236`*^9, 3.9065291454659233`*^9}, {3.906529179012107*^9, 
  3.906529201558431*^9}, {3.9065302004064713`*^9, 3.9065302196720295`*^9}, {
  3.9065302895619507`*^9, 3.9065303073429317`*^9}, {3.9065303526078253`*^9, 
  3.906530356014099*^9}, {3.906530493979517*^9, 3.906530504729223*^9}, {
  3.906532616958763*^9, 3.906532653397974*^9}},
 CellLabel->
  "In[420]:=",ExpressionUUID->"57ea5279-d7bc-4463-a6f3-6c8317fc8679"],

Cell[BoxData["Exercise12"], "Output",
 CellChangeTimes->{3.906529204573924*^9, 3.9065302055158153`*^9, 
  3.9065303572639666`*^9, 3.90653050608855*^9, 3.9065326565699415`*^9, 
  3.906535359999093*^9},
 CellLabel->
  "Out[420]=",ExpressionUUID->"dc0c3b4a-16e5-44de-bf29-48a824f24c86"],

Cell[BoxData["AssigningTheValueWithX"], "Output",
 CellChangeTimes->{3.906529204573924*^9, 3.9065302055158153`*^9, 
  3.9065303572639666`*^9, 3.90653050608855*^9, 3.9065326565699415`*^9, 
  3.906535359999093*^9},
 CellLabel->
  "Out[421]=",ExpressionUUID->"a2250070-a73e-4e90-ade5-ea8eb0c3b0f6"],

Cell[BoxData["SummationOfAllCoefficients"], "Output",
 CellChangeTimes->{3.906529204573924*^9, 3.9065302055158153`*^9, 
  3.9065303572639666`*^9, 3.90653050608855*^9, 3.9065326565699415`*^9, 
  3.906535359999093*^9},
 CellLabel->
  "Out[423]=",ExpressionUUID->"c3a8552f-bacc-43bf-9f8d-4e1fa147455a"],

Cell[BoxData[\
"52436137551679548289799238574939817115871874623055655534356640354320587986818\
264678744594095940433332268268520884358297663141053076265259425432426062809154\
456187371402699315381445888854349615705579574280445132721782326706435015019434\
418074567771057162078164522944138709381056530774757182339559319937495710311343\
089878859392196210068839259888577927351804671209893455906325952734117685888565\
117596973310717260044990783200425151503072000129868259815814159947575374775133\
372124785904450212869642659104548075771891025793049117209223184092234251667582\
459384649749482759072062011635848415447793464767254870172443711287428000310763\
057640590582130778720478034030920952905726392314158494279815174539350911769838\
460361804198336568076082046355212568314749656472970570275566722742768429283509\
677062143250659890372739936184256805656706425400262254190699010314135196960533\
632257328926188992452853232899407386716688960976113179404724428739749875390376\
48782813374028279491"], "Output",
 CellChangeTimes->{3.906529204573924*^9, 3.9065302055158153`*^9, 
  3.9065303572639666`*^9, 3.90653050608855*^9, 3.9065326565699415`*^9, 
  3.906535359999093*^9},
 CellLabel->
  "Out[424]=",ExpressionUUID->"424a506a-b703-4850-a2f9-1e89cd723cc1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{"Exercise13", "\[IndentingNewLine]", "CheckingPrimeOrNot", "\
\[IndentingNewLine]", 
 RowBox[{"PrimeQ", "[", "1234567", 
  "]"}], "\[IndentingNewLine]", "FindingTheDecomposition", "\
\[IndentingNewLine]", 
 RowBox[{"FactorInteger", "[", "1234567", 
  "]"}], "\[IndentingNewLine]", "SmallestPrimeNumberGreaterThan1234567", "\
\[IndentingNewLine]", 
 RowBox[{"NextPrime", "[", "1234567", "]"}]}], "Input",
 CellChangeTimes->{{3.9065292069020452`*^9, 3.906529213558113*^9}, {
  3.9065292617761297`*^9, 3.906529345296425*^9}, {3.906532664456848*^9, 
  3.9065327323337374`*^9}},
 CellLabel->
  "In[425]:=",ExpressionUUID->"2a35244d-16dd-423f-a626-c835653cceaa"],

Cell[BoxData["Exercise13"], "Output",
 CellChangeTimes->{3.9065293463589053`*^9, 3.906532733786857*^9, 
  3.9065353634989777`*^9},
 CellLabel->
  "Out[425]=",ExpressionUUID->"44f0a67f-2dfc-4493-b5d6-912575653572"],

Cell[BoxData["CheckingPrimeOrNot"], "Output",
 CellChangeTimes->{3.9065293463589053`*^9, 3.906532733786857*^9, 
  3.9065353635146027`*^9},
 CellLabel->
  "Out[426]=",ExpressionUUID->"a028827e-25b8-4770-9cf6-9cdd39906067"],

Cell[BoxData["False"], "Output",
 CellChangeTimes->{3.9065293463589053`*^9, 3.906532733786857*^9, 
  3.9065353635146027`*^9},
 CellLabel->
  "Out[427]=",ExpressionUUID->"8eb47a9b-afeb-4dee-a82f-bb53fd7fdfa0"],

Cell[BoxData["FindingTheDecomposition"], "Output",
 CellChangeTimes->{3.9065293463589053`*^9, 3.906532733786857*^9, 
  3.9065353635146027`*^9},
 CellLabel->
  "Out[428]=",ExpressionUUID->"9511c44b-e4d5-4fe2-ba1c-f21a679741b1"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"127", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"9721", ",", "1"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.9065293463589053`*^9, 3.906532733786857*^9, 
  3.9065353635146027`*^9},
 CellLabel->
  "Out[429]=",ExpressionUUID->"946a7a31-a9da-4d21-ba7e-fe0fb6e87753"],

Cell[BoxData["SmallestPrimeNumberGreaterThan1234567"], "Output",
 CellChangeTimes->{3.9065293463589053`*^9, 3.906532733786857*^9, 
  3.9065353635302267`*^9},
 CellLabel->
  "Out[430]=",ExpressionUUID->"5a7437d5-ea02-460e-8e7d-a62ab758a5f0"],

Cell[BoxData["1234577"], "Output",
 CellChangeTimes->{3.9065293463589053`*^9, 3.906532733786857*^9, 
  3.9065353635302267`*^9},
 CellLabel->
  "Out[431]=",ExpressionUUID->"34599489-f040-490c-bcde-5813bc69aa77"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{"Exercise14", "\[IndentingNewLine]", \
"FindingGreatestCommonDivisor", "\[IndentingNewLine]", 
 RowBox[{"GCD", "[", 
  RowBox[{"356", ",", "32"}], 
  "]"}], "\[IndentingNewLine]", "FindingGreatestCommonMultiple", "\
\[IndentingNewLine]", 
 RowBox[{"LCM", "[", 
  RowBox[{"356", ",", "32"}], 
  "]"}], "\[IndentingNewLine]", "FindingTheRemainderOfDivision", "\
\[IndentingNewLine]", 
 RowBox[{"Mod", "[", 
  RowBox[{"356", ",", "32"}], 
  "]"}], "\[IndentingNewLine]", "FindingTheIntegerQuotientOfTheNumbers", "\
\[IndentingNewLine]", 
 RowBox[{"Quotient", "[", 
  RowBox[{"356", ",", "32"}], "]"}]}], "Input",
 CellChangeTimes->{{3.906529351374381*^9, 3.906529412177864*^9}, {
  3.906529445003934*^9, 3.906529453535446*^9}, {3.90653274870905*^9, 
  3.906532832319091*^9}},
 CellLabel->
  "In[432]:=",ExpressionUUID->"d3f0984c-f01e-4b1a-ae92-1adc3041488c"],

Cell[BoxData["Exercise14"], "Output",
 CellChangeTimes->{3.9065294544885674`*^9, 3.906532833522212*^9, 
  3.9065353659363985`*^9},
 CellLabel->
  "Out[432]=",ExpressionUUID->"5bd5f226-2336-4fac-80f9-abeee0bba3b5"],

Cell[BoxData["FindingGreatestCommonDivisor"], "Output",
 CellChangeTimes->{3.9065294544885674`*^9, 3.906532833522212*^9, 
  3.9065353659520226`*^9},
 CellLabel->
  "Out[433]=",ExpressionUUID->"8b38b991-88e7-461b-a1e0-2ac819948e2c"],

Cell[BoxData["4"], "Output",
 CellChangeTimes->{3.9065294544885674`*^9, 3.906532833522212*^9, 
  3.9065353659520226`*^9},
 CellLabel->
  "Out[434]=",ExpressionUUID->"c90f7d1e-6cfb-43e7-8bfd-f499d1112bfc"],

Cell[BoxData["FindingGreatestCommonMultiple"], "Output",
 CellChangeTimes->{3.9065294544885674`*^9, 3.906532833522212*^9, 
  3.9065353659520226`*^9},
 CellLabel->
  "Out[435]=",ExpressionUUID->"df2ebcde-90d8-4494-8981-b5e6f6fcaaf1"],

Cell[BoxData["2848"], "Output",
 CellChangeTimes->{3.9065294544885674`*^9, 3.906532833522212*^9, 
  3.9065353659520226`*^9},
 CellLabel->
  "Out[436]=",ExpressionUUID->"51a0e7ae-3e8f-4bec-a5ab-8ed8777f61cc"],

Cell[BoxData["FindingTheRemainderOfDivision"], "Output",
 CellChangeTimes->{3.9065294544885674`*^9, 3.906532833522212*^9, 
  3.9065353659676466`*^9},
 CellLabel->
  "Out[437]=",ExpressionUUID->"3395b8dd-2ded-4bbb-adee-48aa869905ef"],

Cell[BoxData["4"], "Output",
 CellChangeTimes->{3.9065294544885674`*^9, 3.906532833522212*^9, 
  3.9065353659676466`*^9},
 CellLabel->
  "Out[438]=",ExpressionUUID->"76d364d4-a4c9-427c-a564-d8ef374a019b"],

Cell[BoxData["FindingTheIntegerQuotientOfTheNumbers"], "Output",
 CellChangeTimes->{3.9065294544885674`*^9, 3.906532833522212*^9, 
  3.9065353659676466`*^9},
 CellLabel->
  "Out[439]=",ExpressionUUID->"ceab6c5a-320e-46be-b52c-032769ebc06d"],

Cell[BoxData["11"], "Output",
 CellChangeTimes->{3.9065294544885674`*^9, 3.906532833522212*^9, 
  3.906535365983271*^9},
 CellLabel->
  "Out[440]=",ExpressionUUID->"c773bc22-0e2c-42fa-95c8-cb1fc3c2f5cb"]
}, Open  ]]
},
WindowSize->{1920, 1117},
WindowMargins->{{-8, Automatic}, {Automatic, -8}},
Magnification:>1.5 Inherited,
FrontEndVersion->"12.0 for Microsoft Windows (64-bit) (April 8, 2019)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 717, 17, 129, "Input",ExpressionUUID->"4823287f-5da9-4d67-922a-1110f8aa7c03"],
Cell[1300, 41, 321, 6, 49, "Output",ExpressionUUID->"500c5f51-ddfe-49bf-a202-79fe95f2c4d6"],
Cell[1624, 49, 319, 6, 49, "Output",ExpressionUUID->"79421a44-ea38-43dc-937e-8222f0a6d505"],
Cell[1946, 57, 861, 25, 49, "Output",ExpressionUUID->"3338f8af-4bc4-418c-b950-16ed27e94747"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2844, 87, 436, 9, 129, "Input",ExpressionUUID->"48db855e-8393-43b8-8a98-7cd155a952cc"],
Cell[3283, 98, 231, 4, 49, "Output",ExpressionUUID->"5db63bd6-8284-4d1d-a589-cebcb967c38d"],
Cell[3517, 104, 229, 4, 49, "Output",ExpressionUUID->"57fd5cbe-7e9d-436c-b879-bc1247862411"],
Cell[3749, 110, 526, 16, 54, "Output",ExpressionUUID->"179afe2b-072f-4c0c-bfe0-8310ec713e65"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4312, 131, 558, 13, 129, "Input",ExpressionUUID->"18278af3-18ab-4e79-a7da-1c60a12622e3"],
Cell[4873, 146, 236, 4, 49, "Output",ExpressionUUID->"6536b82b-7491-41d1-b871-bb33b6eadcf8"],
Cell[5112, 152, 239, 4, 49, "Output",ExpressionUUID->"571026b1-0bac-47e4-9ee2-8e1282d972b3"],
Cell[5354, 158, 226, 4, 49, "Output",ExpressionUUID->"18544b71-ac7c-4b44-905a-bf4074039d8f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5617, 167, 765, 17, 157, "Input",ExpressionUUID->"814fcbad-fa4d-48f5-8b1c-2299ddd3ad51"],
Cell[6385, 186, 292, 5, 49, "Output",ExpressionUUID->"9150cf9f-6c3a-4c75-82dc-0960618ba28c"],
Cell[6680, 193, 295, 5, 49, "Output",ExpressionUUID->"60330a33-23a0-4d27-8bf6-a892f2ec1bd8"],
Cell[6978, 200, 364, 8, 70, "Output",ExpressionUUID->"9efee4ee-c584-4b5d-bfff-33638879124d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7379, 213, 611, 13, 170, "Input",ExpressionUUID->"90239c7f-ee30-428a-85d9-8274de875074"],
Cell[7993, 228, 319, 6, 49, "Output",ExpressionUUID->"b227394c-a0af-4b4b-94a8-c8d1162099ae"],
Cell[8315, 236, 322, 6, 49, "Output",ExpressionUUID->"de714334-6bfa-4d5c-b9eb-d1e573656371"],
Cell[8640, 244, 365, 9, 78, "Output",ExpressionUUID->"e6428782-45eb-4be9-a10d-f50f1af03059"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9042, 258, 606, 13, 129, "Input",ExpressionUUID->"926133e9-5f5d-4501-8f87-6a0a6bdb7e0c"],
Cell[9651, 273, 264, 5, 49, "Output",ExpressionUUID->"7f7a7899-a356-493c-9928-0ed465609ec2"],
Cell[9918, 280, 267, 5, 49, "Output",ExpressionUUID->"863be652-c17d-42c5-8765-ed2c09334854"],
Cell[10188, 287, 306, 7, 49, "Output",ExpressionUUID->"35d5f8b9-0318-4f4c-8cd7-826fc83ce3cb"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10531, 299, 744, 19, 158, "Input",ExpressionUUID->"20bd5c65-ad16-4b3f-8e05-5e6e7967a82c"],
Cell[11278, 320, 236, 4, 49, "Output",ExpressionUUID->"0ec34129-6873-4d7f-84e3-ea85c9bb040b"],
Cell[11517, 326, 237, 4, 49, "Output",ExpressionUUID->"9225899f-7346-457c-b073-2b3a96daa8a1"],
Cell[11757, 332, 518, 15, 78, "Output",ExpressionUUID->"16a9cc91-f353-4ff5-8115-8c8ebccd0e60"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12312, 352, 578, 12, 129, "Input",ExpressionUUID->"aa62fd96-bea5-41de-ba93-d545089f0356"],
Cell[12893, 366, 262, 4, 49, "Output",ExpressionUUID->"0f64df84-2cfb-45b0-8ab0-bfcea25654e7"],
Cell[13158, 372, 265, 4, 49, "Output",ExpressionUUID->"1612883d-6ef4-4528-8624-94f3c4d45ea6"],
Cell[13426, 378, 366, 9, 49, "Output",ExpressionUUID->"ce946a50-9e1e-4417-beda-a7512c8b8897"]
}, Open  ]],
Cell[CellGroupData[{
Cell[13829, 392, 1270, 37, 124, "Input",ExpressionUUID->"0564d121-f8d1-427a-aa7a-7b75011be404"],
Cell[15102, 431, 234, 4, 49, "Output",ExpressionUUID->"130d38d6-962c-4e55-8917-763b7db3c00a"],
Cell[15339, 437, 263, 5, 49, "Output",ExpressionUUID->"4ef84b0f-3d41-4015-a485-140a01f45fd1"],
Cell[15605, 444, 229, 4, 49, "Output",ExpressionUUID->"02efefa7-c34e-4b29-a44f-a195e86eb008"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15871, 453, 725, 18, 157, "Input",ExpressionUUID->"a4278831-05f1-4441-940c-df10a155d684"],
Cell[16599, 473, 238, 4, 49, "Output",ExpressionUUID->"d01a7718-f517-4192-bf5e-309c0a9e7f79"],
Cell[16840, 479, 243, 4, 49, "Output",ExpressionUUID->"b40a2eaa-5ae7-40e3-aff9-58e0e5ed8285"],
Cell[17086, 485, 231, 4, 49, "Output",ExpressionUUID->"df82ee65-5d94-40a1-8abc-81099696f7cd"]
}, Open  ]],
Cell[CellGroupData[{
Cell[17354, 494, 631, 15, 159, "Input",ExpressionUUID->"1c938fd3-019a-4da9-a252-ed151959a04c"],
Cell[17988, 511, 236, 4, 49, "Output",ExpressionUUID->"23ad9d8e-7202-4f48-ac5b-7cc55af7da39"],
Cell[18227, 517, 241, 4, 49, "Output",ExpressionUUID->"c9f7f22b-f2be-415d-91ac-ac683eb05ecd"],
Cell[18471, 523, 279, 6, 49, "Output",ExpressionUUID->"d8496a4b-8126-4a76-a063-317a7f691b64"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18787, 534, 602, 12, 147, "Input",ExpressionUUID->"d1568e87-e06a-4c2a-b69d-717551d4fd08"],
Cell[19392, 548, 291, 5, 49, "Output",ExpressionUUID->"130dfc7a-39eb-4085-a047-e8ea51204e84"],
Cell[19686, 555, 296, 5, 49, "Output",ExpressionUUID->"90fb8975-1a91-437e-8aeb-5eecd3855b0f"],
Cell[19985, 562, 284, 5, 49, "Output",ExpressionUUID->"e7b7e157-1be6-4de1-b0dc-38f7a96a0c5a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20306, 572, 733, 17, 166, "Input",ExpressionUUID->"72da239b-48e4-4b27-a619-e66324cd9c8c"],
Cell[21042, 591, 236, 4, 49, "Output",ExpressionUUID->"662da6c5-e187-4e9c-b910-77b1b2648aae"],
Cell[21281, 597, 238, 4, 49, "Output",ExpressionUUID->"5cafd1ca-ba7c-416d-89f3-5ebbe477d93d"],
Cell[21522, 603, 226, 4, 49, "Output",ExpressionUUID->"7996df23-b186-471a-97a4-b5e034888601"]
}, Open  ]],
Cell[CellGroupData[{
Cell[21785, 612, 1132, 21, 264, "Input",ExpressionUUID->"aac4886b-88ed-4b21-83f9-13d3a45de3cd"],
Cell[22920, 635, 588, 9, 49, "Output",ExpressionUUID->"7f5b6bed-3d89-4cb1-b344-dfd021d71319"],
Cell[23511, 646, 596, 9, 49, "Output",ExpressionUUID->"d1c9416c-5cbb-477a-8917-acb17723ce6d"],
Cell[24110, 657, 606, 9, 49, "Output",ExpressionUUID->"fead5529-a0c3-4d94-8bf1-757570de6a53"],
Cell[24719, 668, 602, 9, 49, "Output",ExpressionUUID->"8411bf48-cd50-4d37-84b4-e6af10549ed4"],
Cell[25324, 679, 989, 23, 49, "Output",ExpressionUUID->"bd4492ba-e32c-45bf-ae27-fd6feb89dc06"]
}, Open  ]],
Cell[CellGroupData[{
Cell[26350, 707, 609, 15, 190, "Input",ExpressionUUID->"1bc18d7d-6339-41a0-a6e1-000da4af6df4"],
Cell[26962, 724, 225, 4, 49, "Output",ExpressionUUID->"985a08f9-d0f7-48f0-a58a-31efbdf2912f"],
Cell[27190, 730, 222, 4, 49, "Output",ExpressionUUID->"b85c1571-5c67-4f97-8fe4-8b53d0c597e4"],
Cell[27415, 736, 230, 4, 49, "Output",ExpressionUUID->"8c8f59bc-7617-458e-b7b8-eaf726eb1fda"],
Cell[27648, 742, 238, 5, 49, "Output",ExpressionUUID->"9c75d1d7-5bd7-42fa-b22a-c6fb22af9390"]
}, Open  ]],
Cell[CellGroupData[{
Cell[27923, 752, 815, 20, 151, "Input",ExpressionUUID->"95f92451-2fca-4512-ae03-c9256a669a94"],
Cell[28741, 774, 337, 6, 49, "Output",ExpressionUUID->"3496cd80-1f16-4f15-900f-f9613a75e13f"],
Cell[29081, 782, 345, 6, 49, "Output",ExpressionUUID->"7d1116e3-faf4-444d-a694-c6a2dbc45315"],
Cell[29429, 790, 331, 6, 49, "Output",ExpressionUUID->"c9b06ce5-5596-4c1b-964d-faf7d58762e6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[29797, 801, 664, 11, 167, "Input",ExpressionUUID->"f3eb0572-35b9-4af6-a76b-7a5cc27fa873"],
Cell[30464, 814, 256, 4, 49, "Output",ExpressionUUID->"93788b91-0cac-4b1f-9cf6-9845b21a3459"],
Cell[30723, 820, 262, 4, 49, "Output",ExpressionUUID->"b95fd19f-a585-4332-9f35-188bcd291512"],
Cell[30988, 826, 270, 4, 49, "Output",ExpressionUUID->"1561cd61-2a99-425e-a258-1df33cfcfc28"]
}, Open  ]],
Cell[CellGroupData[{
Cell[31295, 835, 993, 23, 220, "Input",ExpressionUUID->"3a578a25-9f0e-4783-8ba1-38557924bc26"],
Cell[32291, 860, 360, 6, 49, "Output",ExpressionUUID->"db9a8b64-b43b-4c8c-86df-f56fac4bfc93"],
Cell[32654, 868, 369, 6, 49, "Output",ExpressionUUID->"43b7d59e-a18a-4c4c-806a-af196a273e16"],
Cell[33026, 876, 356, 6, 49, "Output",ExpressionUUID->"f82f9edf-75dd-4bb2-85ef-186da35e47a5"],
Cell[33385, 884, 362, 6, 49, "Output",ExpressionUUID->"2da14fa5-a7e7-4df4-bbef-56308242cce4"],
Cell[33750, 892, 369, 6, 49, "Output",ExpressionUUID->"7074d4e4-e552-413b-995e-92e8da16e6a5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[34156, 903, 506, 11, 124, "Input",ExpressionUUID->"6dd65835-3c28-4e9f-95fb-a3070183dfec"],
Cell[34665, 916, 216, 4, 49, "Output",ExpressionUUID->"0deb7b7c-5fa5-46de-a0a9-e6f4e2a5ebbf"],
Cell[34884, 922, 249, 4, 49, "Output",ExpressionUUID->"ef2fc4e7-e4f6-4c82-85ee-15998cd21c32"],
Cell[35136, 928, 250, 4, 49, "Output",ExpressionUUID->"3b0ceaed-e942-4a74-8787-fb72e3cfe30d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[35423, 937, 990, 21, 157, "Input",ExpressionUUID->"ccae6722-15fd-4eed-af1c-94f701c8be66"],
Cell[36416, 960, 313, 5, 49, "Output",ExpressionUUID->"e4ce91fa-bdc4-4e88-9d34-d5ec66239cc7"],
Cell[36732, 967, 346, 5, 49, "Output",ExpressionUUID->"90b199af-9a7e-44c9-99ea-c2f7fd880085"],
Cell[37081, 974, 345, 5, 49, "Output",ExpressionUUID->"157a0ab6-c6f7-4ca5-8b5e-a140be0ec12f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[37463, 984, 465, 8, 124, "Input",ExpressionUUID->"e88110cc-f3fc-4b2f-8de9-d5fbd27502e8"],
Cell[37931, 994, 230, 4, 49, "Output",ExpressionUUID->"52515c9a-8505-4caa-be03-5b706c260703"],
Cell[38164, 1000, 259, 5, 49, "Output",ExpressionUUID->"cba58c25-2099-4718-bb06-3419392a4bfd"],
Cell[38426, 1007, 222, 4, 49, "Output",ExpressionUUID->"3df40f24-66a1-40db-a9c0-5f1594727da9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[38685, 1016, 1160, 28, 187, "Input",ExpressionUUID->"57ea5279-d7bc-4463-a6f3-6c8317fc8679"],
Cell[39848, 1046, 283, 5, 49, "Output",ExpressionUUID->"dc0c3b4a-16e5-44de-bf29-48a824f24c86"],
Cell[40134, 1053, 295, 5, 49, "Output",ExpressionUUID->"a2250070-a73e-4e90-ade5-ea8eb0c3b0f6"],
Cell[40432, 1060, 299, 5, 49, "Output",ExpressionUUID->"c3a8552f-bacc-43bf-9f8d-4e1fa147455a"],
Cell[40734, 1067, 1254, 18, 224, "Output",ExpressionUUID->"424a506a-b703-4850-a2f9-1e89cd723cc1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[42025, 1090, 670, 13, 290, "Input",ExpressionUUID->"2a35244d-16dd-423f-a626-c835653cceaa"],
Cell[42698, 1105, 213, 4, 49, "Output",ExpressionUUID->"44f0a67f-2dfc-4493-b5d6-912575653572"],
Cell[42914, 1111, 221, 4, 49, "Output",ExpressionUUID->"a028827e-25b8-4770-9cf6-9cdd39906067"],
Cell[43138, 1117, 208, 4, 49, "Output",ExpressionUUID->"8eb47a9b-afeb-4dee-a82f-bb53fd7fdfa0"],
Cell[43349, 1123, 226, 4, 49, "Output",ExpressionUUID->"9511c44b-e4d5-4fe2-ba1c-f21a679741b1"],
Cell[43578, 1129, 352, 10, 49, "Output",ExpressionUUID->"946a7a31-a9da-4d21-ba7e-fe0fb6e87753"],
Cell[43933, 1141, 240, 4, 49, "Output",ExpressionUUID->"5a7437d5-ea02-460e-8e7d-a62ab758a5f0"],
Cell[44176, 1147, 210, 4, 49, "Output",ExpressionUUID->"34599489-f040-490c-bcde-5813bc69aa77"]
}, Open  ]],
Cell[CellGroupData[{
Cell[44423, 1156, 869, 20, 373, "Input",ExpressionUUID->"d3f0984c-f01e-4b1a-ae92-1adc3041488c"],
Cell[45295, 1178, 213, 4, 49, "Output",ExpressionUUID->"5bd5f226-2336-4fac-80f9-abeee0bba3b5"],
Cell[45511, 1184, 231, 4, 49, "Output",ExpressionUUID->"8b38b991-88e7-461b-a1e0-2ac819948e2c"],
Cell[45745, 1190, 204, 4, 49, "Output",ExpressionUUID->"c90f7d1e-6cfb-43e7-8bfd-f499d1112bfc"],
Cell[45952, 1196, 232, 4, 49, "Output",ExpressionUUID->"df2ebcde-90d8-4494-8981-b5e6f6fcaaf1"],
Cell[46187, 1202, 207, 4, 49, "Output",ExpressionUUID->"51a0e7ae-3e8f-4bec-a5ab-8ed8777f61cc"],
Cell[46397, 1208, 232, 4, 49, "Output",ExpressionUUID->"3395b8dd-2ded-4bbb-adee-48aa869905ef"],
Cell[46632, 1214, 204, 4, 49, "Output",ExpressionUUID->"76d364d4-a4c9-427c-a564-d8ef374a019b"],
Cell[46839, 1220, 240, 4, 49, "Output",ExpressionUUID->"ceab6c5a-320e-46be-b52c-032769ebc06d"],
Cell[47082, 1226, 203, 4, 49, "Output",ExpressionUUID->"c773bc22-0e2c-42fa-95c8-cb1fc3c2f5cb"]
}, Open  ]]
}
]
*)