(* 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[     13126,        379]
NotebookOptionsPosition[     10127,        320]
NotebookOutlinePosition[     10479,        336]
CellTagsIndexPosition[     10436,        333]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"p", "[", "x_", "]"}], ":=", 
  RowBox[{
   RowBox[{"2", " ", "x"}], "+", "4"}]}]], "Input",
 CellChangeTimes->{{3.747774035439188*^9, 3.747774088405567*^9}},
 CellLabel->"In[5]:=",ExpressionUUID->"7e255d0f-f248-4e02-9c7e-39ab38e121cd"],

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubsuperscriptBox["\[Integral]", "3", "u"], 
      RowBox[{
       RowBox[{"p", "[", "x", "]"}], 
       RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], "\[Equal]", "1"}], ",", 
   "u"}], "]"}]], "Input",
 CellChangeTimes->{{3.747774098958907*^9, 3.747774154859078*^9}},
 CellLabel->"In[6]:=",ExpressionUUID->"efa70f1f-ee70-43ee-90bc-424c7418d0c4"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"u", "\[Rule]", 
     RowBox[{
      RowBox[{"-", "2"}], "-", 
      SqrtBox["26"]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"u", "\[Rule]", 
     RowBox[{
      RowBox[{"-", "2"}], "+", 
      SqrtBox["26"]}]}], "}"}]}], "}"}]], "Input",
 CellChangeTimes->{{3.7477742680952177`*^9, 3.7477742734388857`*^9}},
 CellLabel->"In[7]:=",ExpressionUUID->"296a1382-6ce0-4f85-8369-a2c69bb96b23"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"u", "\[Rule]", 
     RowBox[{
      RowBox[{"-", "2"}], "-", 
      SqrtBox["26"]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"u", "\[Rule]", 
     RowBox[{
      RowBox[{"-", "2"}], "+", 
      SqrtBox["26"]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.7477742748190403`*^9},
 CellLabel->"Out[7]=",ExpressionUUID->"c773b026-a851-4eb2-a03c-11ddd0406cb2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"p", "[", 
   RowBox[{
    RowBox[{"-", "2"}], "+", 
    SqrtBox["26"]}], "]"}], "//", "N"}]], "Input",
 CellChangeTimes->{{3.7477742803066397`*^9, 3.7477743253989153`*^9}, {
  3.7477743876586437`*^9, 3.747774400482526*^9}},
 CellLabel->"In[11]:=",ExpressionUUID->"ed03430d-0ece-4323-a560-93aad8b2de2a"],

Cell[BoxData["10.198039027185569`"], "Output",
 CellChangeTimes->{{3.747774314341345*^9, 3.747774326663986*^9}, {
  3.747774393084302*^9, 3.747774401527054*^9}},
 CellLabel->"Out[11]=",ExpressionUUID->"2af5058c-1c93-4697-a968-27132cc69991"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"c", "[", "x_", "]"}], ":=", 
  RowBox[{
   SuperscriptBox["x", "2"], "+", 
   RowBox[{"5", " ", "x"}], "+", "6"}]}]], "Input",
 CellChangeTimes->{{3.7477744192607393`*^9, 3.747774433190805*^9}},
 CellLabel->"In[12]:=",ExpressionUUID->"ef9148d9-a3b8-49c6-93b3-5a46126b18f8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       SubsuperscriptBox["\[Integral]", "1", "a"], 
       RowBox[{
        RowBox[{"c", "[", "x", "]"}], 
        RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], "\[Equal]", "1"}], ",", 
    " ", "a", ",", " ", "Reals"}], "]"}], "//", "N"}]], "Input",
 CellChangeTimes->{{3.747774441404703*^9, 3.747774506030933*^9}},
 CellLabel->"In[15]:=",ExpressionUUID->"41730ed3-7de4-4ba3-9082-0ee6c91fa926"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"a", "\[Rule]", "1.0813864313564727`"}], "}"}], "}"}]], "Output",
 CellChangeTimes->{{3.747774488746347*^9, 3.7477745067184687`*^9}},
 CellLabel->"Out[15]=",ExpressionUUID->"c644cf90-0b04-47ff-98c2-fa0814c3da49"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"d", "[", "x_", "]"}], ":=", 
  SuperscriptBox["\[ExponentialE]", "x"]}]], "Input",
 CellChangeTimes->{{3.747774529529387*^9, 3.7477745498420677`*^9}, {
  3.747774623945096*^9, 3.7477746295128317`*^9}},
 CellLabel->"In[16]:=",ExpressionUUID->"af1e8000-8553-4a6f-8788-14e44cd1d2a2"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       SubsuperscriptBox["\[Integral]", "0", "v"], 
       RowBox[{
        RowBox[{"d", "[", "x", "]"}], 
        RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], "\[Equal]", "1"}], ",", 
    "v", ",", " ", "Reals"}], "]"}], "//", "N"}]], "Input",
 CellChangeTimes->{{3.7477746323734913`*^9, 3.747774679710537*^9}},
 CellLabel->"In[18]:=",ExpressionUUID->"2626207d-d5b3-41e4-b753-2365354574ea"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"v", "\[Rule]", "0.6931471805599453`"}], "}"}], "}"}]], "Output",
 CellChangeTimes->{{3.7477746756143637`*^9, 3.74777468058195*^9}},
 CellLabel->"Out[18]=",ExpressionUUID->"96fb2f2f-bad0-40cc-be1f-74718610bcc0"]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "Subsubsection",
 CellChangeTimes->{{3.74777491209409*^9, 
  3.747774924337739*^9}},ExpressionUUID->"064c6e5d-f4d1-4e3b-886e-\
21dccfd9a27b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{"1", "\[Equal]", 
     RowBox[{
      FractionBox[
       SuperscriptBox["u", "3"], "3"], "+", 
      FractionBox[
       SuperscriptBox["u", "2"], "1"], "+", 
      RowBox[{"6", "u"}], "-", 
      FractionBox["1", "3"], "-", "7"}]}], ",", "u", ",", "Reals"}], "]"}], "//",
   "N"}]], "Input",
 CellChangeTimes->{{3.747774951406569*^9, 3.747775031394977*^9}},
 CellLabel->"In[21]:=",ExpressionUUID->"226ab646-44da-4378-81ae-12d63e773215"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"u", "\[Rule]", "1.108450213888772`"}], "}"}], "}"}]], "Output",
 CellChangeTimes->{{3.74777501553937*^9, 3.7477750322589493`*^9}},
 CellLabel->"Out[21]=",ExpressionUUID->"59394093-be29-49ef-89ff-d0d81a758f74"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"t", "[", "m_", "]"}], ":=", 
  RowBox[{
   SuperscriptBox["m", "2"], "+", 
   RowBox[{"4", "m"}], "-", "21.5"}]}]], "Input",
 CellChangeTimes->{{3.747774929055098*^9, 3.747774931112659*^9}, {
  3.7477750729176598`*^9, 3.7477750883557787`*^9}},
 CellLabel->"In[22]:=",ExpressionUUID->"b3109af1-9bc6-4e8b-9a1c-007406b56b52"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"t", "[", "m", "]"}], "\[Equal]", "0"}], ",", "m"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.747775092882636*^9, 3.747775125349675*^9}},
 CellLabel->"In[23]:=",ExpressionUUID->"a4f6bdf1-9069-4d6b-b4ee-0df73f138662"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"m", "\[Rule]", 
     RowBox[{"-", "7.049752469181039`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"m", "\[Rule]", "3.049752469181039`"}], "}"}]}], "}"}]], "Output",\

 CellChangeTimes->{3.747775126094249*^9},
 CellLabel->"Out[23]=",ExpressionUUID->"996818ef-f665-4159-b176-6c3afda0bdb5"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.747774067785063*^9, 
  3.747774067795959*^9}},ExpressionUUID->"0fb2cec2-fb75-4bdd-998c-\
4b4390315361"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{"0", "==", 
     RowBox[{
      SuperscriptBox["\[ExponentialE]", "u"], "-", "2"}]}], ",", "u", ",", 
    "Reals"}], "]"}], "//", "N"}]], "Input",
 CellChangeTimes->{{3.747775181787324*^9, 3.747775246213848*^9}},
 CellLabel->"In[24]:=",ExpressionUUID->"e33dbe55-9eea-4688-92e3-6ccf5567a32d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"u", "\[Rule]", "0.6931471805599453`"}], "}"}], "}"}]], "Output",
 CellChangeTimes->{3.747775247204506*^9},
 CellLabel->"Out[24]=",ExpressionUUID->"31077546-1201-4ee0-9123-da9a7ff002a2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       SubsuperscriptBox["\[Integral]", "1", "m"], 
       RowBox[{
        RowBox[{"c", "[", "x", "]"}], 
        RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], "\[Equal]", "0.5"}], 
    ",", "m", ",", " ", "Reals"}], "]"}], "//", "N"}]], "Input",
 CellChangeTimes->{{3.747775380162867*^9, 3.7477753884238567`*^9}, {
  3.747775524277019*^9, 3.74777556134368*^9}},
 CellLabel->"In[26]:=",ExpressionUUID->"b5295159-6311-4970-a5b6-4441d2ea0e11"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"m", "\[Rule]", "1.0411703538052928`"}], "}"}], "}"}]], "Output",
 CellChangeTimes->{{3.747775556787182*^9, 3.7477755619153633`*^9}},
 CellLabel->"Out[26]=",ExpressionUUID->"cc4731b3-2586-4c8c-8b59-a58311972ae6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       SubsuperscriptBox["\[Integral]", "0", "d"], 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", "x"], 
        RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], "\[Equal]", "0.5"}], 
    ",", "d", ",", "Reals"}], "]"}], "//", "N"}]], "Input",
 CellChangeTimes->{{3.747775671082889*^9, 3.747775714134512*^9}, {
  3.7477757632182817`*^9, 3.7477758113340816`*^9}},
 CellLabel->"In[28]:=",ExpressionUUID->"8438c30b-bda7-4049-9321-bdc1e499bc89"],

Cell[BoxData[
 TemplateBox[{
  "Solve","ratnz",
   "\"Solve was unable to solve the system with inexact coefficients. The \
answer was obtained by solving a corresponding exact system and numericizing \
the result.\"",2,28,3,32877451132765982332,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{{3.747775784761631*^9, 3.747775813030443*^9}},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"cbe149b7-9527-4698-a8d3-1b0fac99901d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"d", "\[Rule]", "0.4054651081081644`"}], "}"}], "}"}]], "Output",
 CellChangeTimes->{{3.747775784768855*^9, 3.747775813055091*^9}},
 CellLabel->"Out[28]=",ExpressionUUID->"336cc8f6-fcc7-40ea-aa02-e9fb3b6f5dd5"]
}, Open  ]]
}, Open  ]]
},
WindowSize->{808, 691},
WindowMargins->{{4, Automatic}, {Automatic, 4}},
FrontEndVersion->"11.3 for Mac OS X x86 (32-bit, 64-bit Kernel) (March 5, \
2018)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 270, 6, 30, "Input",ExpressionUUID->"7e255d0f-f248-4e02-9c7e-39ab38e121cd"],
Cell[831, 28, 445, 12, 45, "Input",ExpressionUUID->"efa70f1f-ee70-43ee-90bc-424c7418d0c4"],
Cell[CellGroupData[{
Cell[1301, 44, 460, 14, 38, InheritFromParent,ExpressionUUID->"296a1382-6ce0-4f85-8369-a2c69bb96b23"],
Cell[1764, 60, 435, 14, 39, "Output",ExpressionUUID->"c773b026-a851-4eb2-a03c-11ddd0406cb2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2236, 79, 337, 8, 38, "Input",ExpressionUUID->"ed03430d-0ece-4323-a560-93aad8b2de2a"],
Cell[2576, 89, 240, 3, 34, "Output",ExpressionUUID->"2af5058c-1c93-4697-a968-27132cc69991"]
}, Open  ]],
Cell[2831, 95, 308, 7, 30, "Input",ExpressionUUID->"ef9148d9-a3b8-49c6-93b3-5a46126b18f8"],
Cell[CellGroupData[{
Cell[3164, 106, 503, 13, 45, "Input",ExpressionUUID->"41730ed3-7de4-4ba3-9082-0ee6c91fa926"],
Cell[3670, 121, 268, 5, 34, "Output",ExpressionUUID->"c644cf90-0b04-47ff-98c2-fa0814c3da49"]
}, Open  ]],
Cell[3953, 129, 315, 6, 30, "Input",ExpressionUUID->"af1e8000-8553-4a6f-8788-14e44cd1d2a2"],
Cell[CellGroupData[{
Cell[4293, 139, 500, 13, 45, "Input",ExpressionUUID->"2626207d-d5b3-41e4-b753-2365354574ea"],
Cell[4796, 154, 267, 5, 34, "Output",ExpressionUUID->"96fb2f2f-bad0-40cc-be1f-74718610bcc0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5100, 164, 150, 3, 45, "Subsubsection",ExpressionUUID->"064c6e5d-f4d1-4e3b-886e-21dccfd9a27b"],
Cell[CellGroupData[{
Cell[5275, 171, 511, 14, 51, "Input",ExpressionUUID->"226ab646-44da-4378-81ae-12d63e773215"],
Cell[5789, 187, 266, 5, 34, "Output",ExpressionUUID->"59394093-be29-49ef-89ff-d0d81a758f74"]
}, Open  ]],
Cell[6070, 195, 357, 8, 30, "Input",ExpressionUUID->"b3109af1-9bc6-4e8b-9a1c-007406b56b52"],
Cell[CellGroupData[{
Cell[6452, 207, 290, 7, 30, "Input",ExpressionUUID->"a4f6bdf1-9069-4d6b-b4ee-0df73f138662"],
Cell[6745, 216, 361, 10, 34, "Output",ExpressionUUID->"996818ef-f665-4159-b176-6c3afda0bdb5"]
}, Open  ]],
Cell[7121, 229, 152, 3, 30, InheritFromParent,ExpressionUUID->"0fb2cec2-fb75-4bdd-998c-4b4390315361"],
Cell[CellGroupData[{
Cell[7298, 236, 364, 9, 33, "Input",ExpressionUUID->"e33dbe55-9eea-4688-92e3-6ccf5567a32d"],
Cell[7665, 247, 242, 5, 34, "Output",ExpressionUUID->"31077546-1201-4ee0-9123-da9a7ff002a2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7944, 257, 550, 14, 45, "Input",ExpressionUUID->"b5295159-6311-4970-a5b6-4441d2ea0e11"],
Cell[8497, 273, 268, 5, 34, "Output",ExpressionUUID->"cc4731b3-2586-4c8c-8b59-a58311972ae6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8802, 283, 558, 14, 46, "Input",ExpressionUUID->"8438c30b-bda7-4049-9321-bdc1e499bc89"],
Cell[9363, 299, 467, 10, 42, "Message",ExpressionUUID->"cbe149b7-9527-4698-a8d3-1b0fac99901d"],
Cell[9833, 311, 266, 5, 34, "Output",ExpressionUUID->"336cc8f6-fcc7-40ea-aa02-e9fb3b6f5dd5"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)