RowBox[{"(",
RowBox[{"Sqrt", "[",
RowBox[{"9", "-", "x"}], "]"}], ")"}]}], "+",
RowBox[{"x",
RowBox[{
RowBox[{"(",
RowBox[{"2", "-", "x"}], ")"}], "/",
RowBox[{"(",
RowBox[{"x", "-", "3"}], ")"}]}]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"x", "^", "2"}], "-",
RowBox[{"2", "x"}], "+", "1"}], ")"}], "/",
RowBox[{"(",
RowBox[{"x", "-", "1"}], ")"}]}]}], "]"}]}], "\[IndentingNewLine]",
RowBox[{"r3", " ", "=", " ",
RowBox[{"Together", "[",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"y", "-", "3"}], ")"}], "/",
RowBox[{"(",
RowBox[{"y", "^", "2"}], ")"}]}], "+",
RowBox[{"(",
RowBox[{"35", "y"}], ")"}], "-",
RowBox[{"Sqrt", "[",
RowBox[{
RowBox[{"(",
RowBox[{"2", "y"}], ")"}], "/",
RowBox[{"(",
RowBox[{"y", "-", "1"}], ")"}]}], "]"}]}], "]"}]}],
"\n"}]}]], "Input"],

Cell[BoxData[
FractionBox[
RowBox[{
RowBox[{"-", "16"}], "+",
RowBox[{"20", " ", "x"}], "-",
RowBox[{"14", " ",
SuperscriptBox["x", "2"]}], "+",
SuperscriptBox["x", "3"]}],
RowBox[{"4", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "2"}], "+", "x"}], ")"}], " ", "x"}]]], "Output",
CellChangeTimes->{3.777223319078294*^9}],

Cell[BoxData[
FractionBox[
RowBox[{
RowBox[{"-", "6"}], "+",
RowBox[{"3", " ",
SqrtBox[
RowBox[{"9", "-", "x"}]]}], "+",
RowBox[{"2", " ", "x"}], "-",
RowBox[{"2", " ",
SqrtBox[
RowBox[{"9", "-", "x"}]], " ", "x"}]}],
RowBox[{
SqrtBox[
RowBox[{"9", "-", "x"}]], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "3"}], "+", "x"}], ")"}]}]]], "Output",
CellChangeTimes->{3.777223319078294*^9}],

Cell[BoxData[
FractionBox[
RowBox[{
RowBox[{"-", "3"}], "+", "y", "+",
RowBox[{"35", " ",
SuperscriptBox["y", "3"]}], "-",
RowBox[{
SqrtBox["2"], " ",
SuperscriptBox["y", "2"], " ",
SqrtBox[
FractionBox["y",
RowBox[{
RowBox[{"-", "1"}], "+", "y"}]]]}]}],
SuperscriptBox["y", "2"]]], "Output",
CellChangeTimes->{3.777223319078294*^9}]
}, Open ]],

Cell[CellGroupData[{

Cell[BoxData[
RowBox[{
RowBox[{"(*", " ", "2.05", " ", "*)"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Apart", "[", "r1", "]"}], "\[IndentingNewLine]",
RowBox[{"Apart", "[", "r2", "]"}], "\[IndentingNewLine]",
RowBox[{"Apart", "[", "r3", "]"}]}]}]], "Input"],

Cell[BoxData[
RowBox[{
RowBox[{"-", "3"}], "-",
FractionBox["3",
RowBox[{
RowBox[{"-", "2"}], "+", "x"}]], "+",
FractionBox["2", "x"], "+",
FractionBox["x", "4"]}]], "Output",
CellChangeTimes->{3.777223324148489*^9}],

Cell[BoxData[
RowBox[{
RowBox[{"-", "2"}], "-",
FractionBox[
RowBox[{"2", " ",
SqrtBox[
RowBox[{"9", "-", "x"}]]}],
RowBox[{
RowBox[{"-", "9"}], "+", "x"}]], "-",
FractionBox["3",
RowBox[{
RowBox[{"-", "3"}], "+", "x"}]]}]], "Output",
CellChangeTimes->{3.777223324148489*^9}],

Cell[BoxData[
RowBox[{
RowBox[{"-",
FractionBox["3",
SuperscriptBox["y", "2"]]}], "+",
FractionBox["1", "y"], "+",
RowBox[{"35", " ", "y"}], "-",
RowBox[{
SqrtBox["2"], " ",
SqrtBox[
FractionBox["y",
RowBox[{
RowBox[{"-", "1"}], "+", "y"}]]]}]}]], "Output",
CellChangeTimes->{3.777223324148489*^9}]
}, Open ]],

Cell[CellGroupData[{

Cell[BoxData[
RowBox[{
RowBox[{"(*", " ", "2.06", " ", "*)"}], "\n",
RowBox[{
RowBox[{"Simplify", "[",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"x", "^", "2"}], "-",
RowBox[{"4", "x"}], "+", "4"}], ")"}], "/",
RowBox[{"(",
RowBox[{"x", "-", "2"}], ")"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"Simplify", "[",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"Sin", "[",
RowBox[{"Pi", "/", "2"}], "]"}],
RowBox[{"(",
RowBox[{
RowBox[{"2",
RowBox[{"x", "^", "4"}]}], "-",
RowBox[{"4",
RowBox[{"x", "^", "3"}]}], "+",
RowBox[{"x", "^", "2"}], "+",
RowBox[{"2", "x"}], "-", "1"}], ")"}]}], ")"}], "/",
RowBox[{"(",
RowBox[{
RowBox[{"x", "^", "2"}], "-",
RowBox[{"2", "x"}], "+", "1"}], ")"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"Simplify", "[",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"5", "x"}], "-", "2"}], ")"}],
RowBox[{"(",
RowBox[{"3", "-",
RowBox[{"2", "I"}]}], ")"}]}], ")"}], "/",
RowBox[{"(",
RowBox[{"4", "I"}], ")"}]}], "]"}]}]}]], "Input"],

Cell[BoxData[
RowBox[{
RowBox[{"-", "2"}], "+", "x"}]], "Output",
CellChangeTimes->{3.777223330544735*^9}],

Cell[BoxData[
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"2", " ",
SuperscriptBox["x", "2"]}]}]], "Output",
CellChangeTimes->{3.777223330544735*^9}],

Cell[BoxData[
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-",
FractionBox["1", "2"]}], "-",
FractionBox[
RowBox[{"3", " ", "\[ImaginaryI]"}], "4"]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "2"}], "+",
RowBox[{"5", " ", "x"}]}], ")"}]}]], "Output",
CellChangeTimes->{3.777223330544735*^9}]
}, Open ]],

Cell[CellGroupData[{

Cell[BoxData[
RowBox[{
RowBox[{"(*", " ", "2.11", " ", "*)"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"Solve", "[",
RowBox[{
RowBox[{
RowBox[{"x", "^", "2"}], "-",
RowBox[{"3", "x"}], "-", "5"}], "\[Equal]", "0"}], "]"}], " ", "//",
" ", "N"}], "\[IndentingNewLine]",
RowBox[{"NSolve", "[",
RowBox[{
RowBox[{
RowBox[{"x", "^", "3"}], "-",
RowBox[{"6",
RowBox[{"x", "^", "2"}]}], "-",
RowBox[{"12", "x"}], "+", "3"}], "\[Equal]", "5"}], "]"}], " ",