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

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

(* CreatedBy='Mathematica 11.2' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[      8570,        277]
NotebookOptionsPosition[      6111,        226]
NotebookOutlinePosition[      6490,        243]
CellTagsIndexPosition[      6447,        240]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell["1)", "Text",
 CellChangeTimes->{{3.778620941446583*^9, 
  3.778620943040206*^9}},ExpressionUUID->"da8f9525-6ba1-4783-a976-\
74829f022eac"],

Cell[BoxData[
 RowBox[{
  RowBox[{"g", "[", "x_", "]"}], ":=", 
  RowBox[{
   RowBox[{"1", "/", "5"}], "*", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["x", "2"], "-", "1"}], ")"}], 
   RowBox[{"(", 
    RowBox[{"x", "-", "5"}], ")"}]}]}]], "Input",
 CellChangeTimes->{{3.7786210006620417`*^9, 
  3.7786210182157707`*^9}},ExpressionUUID->"a296b589-5823-40e0-89cc-\
1d8604209bfa"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"g", "[", "x", "]"}], "\[Equal]", "0"}], ",", "x"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.7786210217312393`*^9, 
  3.778621028089896*^9}},ExpressionUUID->"e9fc90ae-3565-4916-aac6-\
7aba9d0f49e4"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"-", "1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", "5"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.778621028627697*^9},ExpressionUUID->"d86e4139-8f6a-49dc-a87a-\
3b443c7ea46c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"g", "[", "0", "]"}]], "Input",
 CellChangeTimes->{{3.778621033092369*^9, 
  3.778621033718376*^9}},ExpressionUUID->"2e83f83a-1c6d-4639-9e2d-\
d41cf46cd4fd"],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{
  3.778621034390822*^9},ExpressionUUID->"8263f4d3-c6b9-4d9b-8e73-\
96e9d4a15a3f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<Tangent`\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.77862192781498*^9, 3.7786219403393717`*^9}, {
  3.7786219818514357`*^9, 3.778622002428046*^9}, {3.778622060049842*^9, 
  3.778622060347612*^9}},ExpressionUUID->"78b63cae-f1db-44e8-a25b-\
597bf27e473d"],

Cell[BoxData[
 TemplateBox[{
  "Needs","nocont",
   "\"Context \\!\\(\\*RowBox[{\\\"\\\\\\\"Tangent`\\\\\\\"\\\"}]\\) was not \
created when Needs was evaluated.\"",2,6,2,33079608131229068009,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.778622061937853*^9},ExpressionUUID->"433e079a-a7c8-4686-b440-\
521fe3d03a00"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"g", "'"}], "[", "4", "]"}]], "Input",
 CellChangeTimes->{{3.77862206377704*^9, 3.778622068331675*^9}, {
  3.778622099794901*^9, 
  3.778622129864553*^9}},ExpressionUUID->"50f1c55f-d00b-441e-abb2-\
ff4cafe2ef9f"],

Cell[BoxData[
 FractionBox["7", "5"]], "Output",
 CellChangeTimes->{
  3.7786221305369167`*^9},ExpressionUUID->"3ab20c2c-3545-472a-a107-\
a8080837072c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 SqrtBox[
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"4", "-", "0"}], ")"}], "2"], "+", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "3"}], "-", "1"}], ")"}], "2"]}]]], "Input",
 CellChangeTimes->{{3.7786222452353497`*^9, 
  3.7786222619718733`*^9}},ExpressionUUID->"1fae3aa6-c2e3-499f-9668-\
1c428615a1c7"],

Cell[BoxData[
 RowBox[{"4", " ", 
  SqrtBox["2"]}]], "Output",
 CellChangeTimes->{
  3.778622263824654*^9},ExpressionUUID->"2375639e-2ec1-4dbe-9cc3-\
8240ea6ab198"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"g", "[", "x", "]"}], "\[Equal]", 
    RowBox[{
     RowBox[{
      RowBox[{"7", "/", "5"}], "*", "x"}], "-", 
     RowBox[{"43", "/", "5"}]}]}], ",", "x"}], "]"}]], "Input",
 CellChangeTimes->{{3.778622305252873*^9, 
  3.778622324892173*^9}},ExpressionUUID->"f7a93dd6-c741-4f6c-a2cb-\
20330d368431"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"-", "3"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", "4"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.778622325640728*^9},ExpressionUUID->"174d4003-237a-42d5-a388-\
27b162595911"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  SubsuperscriptBox["\[Integral]", 
   RowBox[{"-", "3"}], "4"], 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"g", "[", "x", "]"}], "-", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"7", "/", "5"}], "*", "x"}], "-", 
       RowBox[{"43", "/", "5"}]}], ")"}]}], ")"}], 
   RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",
 CellChangeTimes->{{3.7786223761867456`*^9, 
  3.778622398074881*^9}},ExpressionUUID->"30703e1c-cad2-4a6d-aa20-\
7c8c7ee1e584"],

Cell[BoxData[
 FractionBox["2401", "60"]], "Output",
 CellChangeTimes->{
  3.7786223987974253`*^9},ExpressionUUID->"146eb2cc-284c-4456-bef8-\
5a2fd47b8bfd"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", 
  FractionBox["2401", "60"], "]"}]], "Input",
 NumberMarks->False,ExpressionUUID->"0c717f94-c18e-4f12-b38e-f762ea1ea5c0"],

Cell[BoxData["40.016666666666666`"], "Output",
 CellChangeTimes->{
  3.778622413300544*^9},ExpressionUUID->"b70ace51-fb16-4b13-b2e6-\
78d3809ddee9"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.778622004926957*^9, 
  3.778622016329616*^9}},ExpressionUUID->"60ae730e-6d91-4891-a395-\
f77a480ad9fb"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.7786219932773952`*^9, 
  3.778621998957973*^9}},ExpressionUUID->"69106c48-fcf4-4e94-ad67-\
c4bc3d23c5e2"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.778620713066448*^9, 
  3.778620715001545*^9}},ExpressionUUID->"8ad12d67-f0be-425a-8797-\
2c017ff27497"]
},
WindowSize->{Full, Full},
WindowMargins->{{4, Automatic}, {Automatic, 4}},
Magnification->1.5,
FrontEndVersion->"11.2 for Mac OS X x86 (32-bit, 64-bit Kernel) (September \
10, 2017)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 144, 3, 53, "Text",ExpressionUUID->"da8f9525-6ba1-4783-a976-74829f022eac"],
Cell[705, 25, 386, 12, 49, "Input",ExpressionUUID->"a296b589-5823-40e0-89cc-1d8604209bfa"],
Cell[CellGroupData[{
Cell[1116, 41, 273, 8, 46, "Input",ExpressionUUID->"e9fc90ae-3565-4916-aac6-7aba9d0f49e4"],
Cell[1392, 51, 371, 12, 52, "Output",ExpressionUUID->"d86e4139-8f6a-49dc-a87a-3b443c7ea46c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1800, 68, 180, 4, 46, "Input",ExpressionUUID->"2e83f83a-1c6d-4639-9e2d-d41cf46cd4fd"],
Cell[1983, 74, 130, 3, 52, "Output",ExpressionUUID->"8263f4d3-c6b9-4d9b-8e73-96e9d4a15a3f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2150, 82, 297, 5, 46, "Input",ExpressionUUID->"78b63cae-f1db-44e8-a25b-597bf27e473d"],
Cell[2450, 89, 344, 8, 34, "Message",ExpressionUUID->"433e079a-a7c8-4686-b440-521fe3d03a00"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2831, 102, 246, 6, 46, "Input",ExpressionUUID->"50f1c55f-d00b-441e-abb2-ff4cafe2ef9f"],
Cell[3080, 110, 152, 4, 69, "Output",ExpressionUUID->"3ab20c2c-3545-472a-a107-a8080837072c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3269, 119, 365, 12, 57, "Input",ExpressionUUID->"1fae3aa6-c2e3-499f-9668-1c428615a1c7"],
Cell[3637, 133, 164, 5, 52, "Output",ExpressionUUID->"2375639e-2ec1-4dbe-9cc3-8240ea6ab198"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3838, 143, 373, 11, 46, "Input",ExpressionUUID->"f7a93dd6-c741-4f6c-a2cb-20330d368431"],
Cell[4214, 156, 371, 12, 52, "Output",ExpressionUUID->"174d4003-237a-42d5-a388-27b162595911"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4622, 173, 504, 16, 68, "Input",ExpressionUUID->"30703e1c-cad2-4a6d-aa20-7c8c7ee1e584"],
Cell[5129, 191, 156, 4, 69, "Output",ExpressionUUID->"146eb2cc-284c-4456-bef8-5a2fd47b8bfd"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5322, 200, 155, 3, 69, "Input",ExpressionUUID->"0c717f94-c18e-4f12-b38e-f762ea1ea5c0"],
Cell[5480, 205, 148, 3, 86, "Output",ExpressionUUID->"b70ace51-fb16-4b13-b2e6-78d3809ddee9"]
}, Open  ]],
Cell[5643, 211, 152, 3, 46, "Input",ExpressionUUID->"60ae730e-6d91-4891-a395-f77a480ad9fb"],
Cell[5798, 216, 154, 3, 46, "Input",ExpressionUUID->"69106c48-fcf4-4e94-ad67-c4bc3d23c5e2"],
Cell[5955, 221, 152, 3, 46, "Input",ExpressionUUID->"8ad12d67-f0be-425a-8797-2c017ff27497"]
}
]
*)