RowBox[{"(",
RowBox[{
RowBox[{"(",
RowBox[{"3", "*", "65"}], ")"}], "/",
RowBox[{"(",
RowBox[{"2", "+",
RowBox[{"2", "*", "5"}]}], ")"}]}], " ", ")"}], "-", "23"}], " ", "//",
" ", "N"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"5", "-",
RowBox[{
RowBox[{"(",
RowBox[{"2", "^",
RowBox[{"(",
RowBox[{"3", "/", "4"}], ")"}]}], ")"}], "/",
RowBox[{"(", "20", ")"}]}]}], " ", "//", " ", "N"}],
"\[IndentingNewLine]",
RowBox[{"Sqrt", "[",
RowBox[{"Sqrt", "[",
RowBox[{
RowBox[{"(",
RowBox[{"896", "^",
RowBox[{"(", "1.4", ")"}]}], ")"}], "^",
RowBox[{"(",
RowBox[{"1", "/", "3"}], ")"}]}], "]"}], "]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"E", "^",
RowBox[{"(",
RowBox[{"6", "-",
RowBox[{"Sqrt", "[", "23", "]"}]}], ")"}]}], " ", "//", " ",
"N"}]}]}]], "Input",
CellChangeTimes->{{3.777221106108364*^9, 3.777221264646052*^9}, {
3.777221332321021*^9, 3.7772213377655954`*^9}, {3.7772215134571943`*^9,
3.777221520914137*^9}, {3.777223185730364*^9, 3.7772232261359177`*^9}}],

Cell[BoxData[
RowBox[{"-", "17.75`"}]], "Output",
CellChangeTimes->{
3.777221267641348*^9, {3.7772215157192373`*^9, 3.7772215216785517`*^9},
3.7772231893341026`*^9, {3.7772232201452875`*^9, 3.7772232271499567`*^9}}],

Cell[BoxData["4.915910358474629`"], "Output",
CellChangeTimes->{
3.777221267641348*^9, {3.7772215157192373`*^9, 3.7772215216785517`*^9},
3.7772231893341026`*^9, {3.7772232201452875`*^9, 3.777223227165558*^9}}],

Cell[BoxData["2.2102221883265543`"], "Output",
CellChangeTimes->{
3.777221267641348*^9, {3.7772215157192373`*^9, 3.7772215216785517`*^9},
3.7772231893341026`*^9, {3.7772232201452875`*^9, 3.777223227165558*^9}}],

Cell[BoxData["3.333985638354767`"], "Output",
CellChangeTimes->{
3.777221267641348*^9, {3.7772215157192373`*^9, 3.7772215216785517`*^9},
3.7772231893341026`*^9, {3.7772232201452875`*^9, 3.777223227165558*^9}}]
}, Open ]],

Cell[CellGroupData[{

Cell[BoxData[
RowBox[{
RowBox[{"(*", " ", "2.02", " ", "*)"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Expand", "[",
RowBox[{
RowBox[{"(",
RowBox[{"2", "-",
RowBox[{"3", "x"}]}], ")"}],
RowBox[{"(",
RowBox[{"4", "-",
RowBox[{"Sqrt", "[",
RowBox[{"x", "^", "3"}], "]"}]}], ")"}],
RowBox[{"(",
RowBox[{"4", "-",
RowBox[{"2", "^",
RowBox[{"(", "3.5", ")"}]}]}], ")"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"Expand", "[",
RowBox[{
RowBox[{"(",
RowBox[{"E", "^",
RowBox[{"(",
RowBox[{"2", "-",
RowBox[{"3", "x"}]}], ")"}]}], ")"}],
RowBox[{"(",
RowBox[{"x", "-", "1"}], ")"}], "5"}], "]"}]}]}]], "Input"],

Cell[BoxData[
RowBox[{
RowBox[{"-", "58.50966799187809`"}], "+",
RowBox[{"87.76450198781714`", " ", "x"}], "+",
RowBox[{"14.627416997969522`", " ",
SqrtBox[
SuperscriptBox["x", "3"]]}], "-",
RowBox[{"21.941125496954285`", " ", "x", " ",
SqrtBox[
SuperscriptBox["x", "3"]]}]}]], "Output",
CellChangeTimes->{3.7772233063794055`*^9}],

Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"-", "5"}], " ",
SuperscriptBox["\[ExponentialE]",
RowBox[{"2", "-",
RowBox[{"3", " ", "x"}]}]]}], "+",
RowBox[{"5", " ",
SuperscriptBox["\[ExponentialE]",
RowBox[{"2", "-",
RowBox[{"3", " ", "x"}]}]], " ", "x"}]}]], "Output",
CellChangeTimes->{3.777223306395006*^9}]
}, Open ]],

Cell[CellGroupData[{

Cell[BoxData[
RowBox[{
RowBox[{"(*", " ", "2.03", " ", "*)"}], "\n",
RowBox[{
RowBox[{"Factor", "[",
RowBox[{
RowBox[{"x", "^", "4"}], "-",
RowBox[{"12",
RowBox[{"x", "^", "3"}]}], "+",
RowBox[{"49",
RowBox[{"x", "^", "2"}]}], "-",
RowBox[{"78", "x"}], "+", "40"}], "]"}], "\[IndentingNewLine]",
RowBox[{"Factor", "[",
RowBox[{
RowBox[{"x", "^", "4"}], "-",
RowBox[{
RowBox[{"(", "7.6", ")"}],
RowBox[{"x", "^", "3"}]}], "+",
RowBox[{
RowBox[{"(", "16.25", ")"}],
RowBox[{"x", "^", "2"}]}], "-",
RowBox[{
RowBox[{"(", "7.55", ")"}], "x"}], "+",
RowBox[{"(", "0.6", ")"}]}], "]"}], " "}]}]], "Input"],

Cell[BoxData[
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "5"}], "+", "x"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "4"}], "+", "x"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "2"}], "+", "x"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+", "x"}], ")"}]}]], "Output",
CellChangeTimes->{3.777223313150066*^9}],

Cell[BoxData[
RowBox[{"1.`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "3.9999999999999982`"}], "+", "x"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "3.0000000000000013`"}], "+", "x"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.49999999999999994`"}], "+", "x"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.1`"}], "+", "x"}], ")"}]}]], "Output",
CellChangeTimes->{3.7772233131812673`*^9}]
}, Open ]],

Cell[CellGroupData[{

Cell[BoxData[
RowBox[{
RowBox[{"(*", " ", "2.04", " ", "*)"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r1", " ", "=", " ",
RowBox[{"Together", "[",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"2", "-", "x"}], ")"}], "/",
RowBox[{"(", "x", ")"}]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{"5", "x"}], ")"}], "/",
RowBox[{"(", "4", ")"}]}], "-",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"x", "^", "2"}], "-", "1"}], ")"}], "/",
RowBox[{"(",
RowBox[{"x", "-", "2"}], ")"}]}]}], "]"}]}], "\[IndentingNewLine]",
RowBox[{"r2", " ", "=", " ",
RowBox[{"Together", "[",
RowBox[{
RowBox[{
RowBox[{"(", "2", ")"}], "/",