"\[IndentingNewLine]",
RowBox[{
RowBox[{"Solve", "[",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"x", "^", "2"}], "-",
RowBox[{"2", "x"}], "+", "8"}], ")"}], "/",
RowBox[{"(",
RowBox[{
RowBox[{"x", "^", "2"}], "-",
RowBox[{"3", "x"}]}], ")"}]}], "\[Equal]", "2"}], "]"}], " ", "//",
"N"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Solve", "[",
RowBox[{
RowBox[{
RowBox[{"x", "^", "4"}], "-",
RowBox[{"2",
RowBox[{"x", "^", "2"}]}], "-",
RowBox[{"6", "x"}], "+", "4"}], "\[Equal]", "0"}], "]"}], " ", "//",
"N"}]}]}]], "Input"],

Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"x", "\[Rule]",
RowBox[{"-", "1.1925824035672519`"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"x", "\[Rule]", "4.192582403567252`"}], "}"}]}], "}"}]], "Output",
CellChangeTimes->{3.777223336457362*^9}],

Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"x", "\[Rule]",
RowBox[{"-", "1.4270164261051852`"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"x", "\[Rule]",
RowBox[{"-", "0.18414092603162355`"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"x", "\[Rule]", "7.611157352136809`"}], "}"}]}], "}"}]], "Output",
CellChangeTimes->{3.777223336457362*^9}],

Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"x", "\[Rule]",
RowBox[{"-", "1.4641016151377544`"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"x", "\[Rule]", "5.464101615137754`"}], "}"}]}], "}"}]], "Output",
CellChangeTimes->{3.7772233364729633`*^9}],

Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"x", "\[Rule]", "2.`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"x", "\[Rule]", "0.5747430738870214`"}], "}"}], ",",
RowBox[{"{",
RowBox[{"x", "\[Rule]",
RowBox[{
RowBox[{"-", "1.2873715369435108`"}], "+",
RowBox[{"1.349996398003657`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"x", "\[Rule]",
RowBox[{
RowBox[{"-", "1.2873715369435108`"}], "-",
RowBox[{"1.349996398003657`", " ", "\[ImaginaryI]"}]}]}], "}"}]}],
"}"}]], "Output",
CellChangeTimes->{3.7772233364729633`*^9}]
}, Open ]],

Cell[CellGroupData[{

Cell[BoxData[
RowBox[{
RowBox[{"(*", " ", "2.12", " ", "*)"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Solve", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"7", "x"}], "-",
RowBox[{"12", "y"}]}], "\[Equal]", "9"}], ",",
RowBox[{
RowBox[{
RowBox[{"5", "x"}], "-",
RowBox[{"4", "y"}]}], "\[Equal]", "7"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"x", ",", "y"}], "}"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"Solve", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{"x", "+",
RowBox[{"4", "y"}], "+",
RowBox[{"3", "z"}]}], "\[Equal]", "1"}], ",",
RowBox[{
RowBox[{
RowBox[{"2", "x"}], "+",
RowBox[{"5", "y"}], "+",
RowBox[{"4", "z"}]}], "\[Equal]", "4"}], ",",
RowBox[{
RowBox[{"x", "-",
RowBox[{"3", "y"}], "-",
RowBox[{"2", "z"}]}], "\[Equal]", "5"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], "]"}],
"\[IndentingNewLine]",
RowBox[{"Solve", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{"x", "+", "y", "+",
RowBox[{"2", "z"}]}], "\[Equal]", "4"}], ",",
RowBox[{
RowBox[{
RowBox[{"2", "x"}], "+",
RowBox[{"5", "y"}], "-",
RowBox[{"2", "z"}]}], "\[Equal]", "3"}], ",",
RowBox[{
RowBox[{"x", "+",
RowBox[{"7", "y"}], "-",
RowBox[{"7", "z"}]}], "\[Equal]", "5"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], "]"}],
"\[IndentingNewLine]",
RowBox[{"Solve", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"5", "x1"}], "+",
RowBox[{"2", "x2"}], "-",
RowBox[{"3", "x3"}], "+",
RowBox[{"5", "x4"}]}], "\[Equal]", "5"}], ",",
RowBox[{
RowBox[{
RowBox[{"2", "x1"}], "-", "x3", "+",
RowBox[{"3", "x4"}]}], "\[Equal]", "6"}], ",",
RowBox[{
RowBox[{
RowBox[{"7", "x2"}], "+",
RowBox[{"2", "x3"}], "-",
RowBox[{"5", "x4"}]}], "\[Equal]", "4"}], ",",
RowBox[{
RowBox[{
RowBox[{"-", "x1"}], "-",
RowBox[{"4", "x2"}]}], "\[Equal]", "0"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"x1", ",", "x2", ",", "x3", ",", "x4"}], "}"}]}],
"]"}]}]}]], "Input"],

Cell[BoxData[
RowBox[{"{",
RowBox[{"{",
RowBox[{
RowBox[{"x", "\[Rule]",
FractionBox["3", "2"]}], ",",
RowBox[{"y", "\[Rule]",
FractionBox["1", "8"]}]}], "}"}], "}"}]], "Output",
CellChangeTimes->{3.7772233426352*^9}],

Cell[BoxData[
RowBox[{"{",
RowBox[{"{",
RowBox[{
RowBox[{"x", "\[Rule]", "3"}], ",",
RowBox[{"y", "\[Rule]",
RowBox[{"-", "2"}]}], ",",
RowBox[{"z", "\[Rule]", "2"}]}], "}"}], "}"}]], "Output",
CellChangeTimes->{3.7772233426508007`*^9}],

Cell[BoxData[
RowBox[{"{",
RowBox[{"{",
RowBox[{
RowBox[{"x", "\[Rule]",
RowBox[{"-", "9"}]}], ",",
RowBox[{"y", "\[Rule]",
FractionBox["17", "3"]}], ",",
RowBox[{"z", "\[Rule]",
FractionBox["11", "3"]}]}], "}"}], "}"}]], "Output",
CellChangeTimes->{3.7772233426508007`*^9}],

Cell[BoxData[
RowBox[{"{",
RowBox[{"{",
RowBox[{
RowBox[{"x1", "\[Rule]",
FractionBox["34", "5"]}], ",",
RowBox[{"x2", "\[Rule]",
RowBox[{"-",
FractionBox["17", "10"]}]}], ",",
RowBox[{"x3", "\[Rule]",
FractionBox["97", "10"]}], ",",