(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 8.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 157, 7] NotebookDataLength[ 79664, 2504] NotebookOptionsPosition[ 75339, 2365] NotebookOutlinePosition[ 75682, 2380] CellTagsIndexPosition[ 75639, 2377] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ StyleBox[ RowBox[{"Intersection", "[", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", RowBox[{"{", RowBox[{"c", ",", "a", ",", "e", ",", "f"}], "}"}]}], "]"}], FontFamily->"Courier New", FontSize->24]], "Input", CellChangeTimes->{{3.6234699341037445`*^9, 3.6234699569505854`*^9}, 3.623470051445462*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"a", ",", "c"}], "}"}]], "Output", CellChangeTimes->{3.623477128483323*^9, 3.657860803102321*^9, 3.6578711108208885`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ StyleBox[ RowBox[{"Union", "[", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", RowBox[{"{", RowBox[{"c", ",", "a", ",", "e", ",", "f"}], "}"}]}], "]"}], FontSize->24]], "Input", CellChangeTimes->{{3.6234700229578123`*^9, 3.6234700548462677`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f"}], "}"}]], "Output", CellChangeTimes->{3.6234771143652983`*^9, 3.6578608066815257`*^9, 3.657871129679968*^9}] }, Open ]], Cell[BoxData[ StyleBox[ RowBox[{ StyleBox["(*", FontSize->20], StyleBox[ RowBox[{ "\:0421\:0438\:0441\:0442\:0435\:043c\:0438", " ", "\:0443\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:044f"}], FontSize->26, FontColor->RGBColor[0, 0, 1]], StyleBox["*)", FontSize->20]}], FontFamily->"Courier New"]], "Input", CellChangeTimes->{{3.6234701298667994`*^9, 3.623470149242034*^9}}], Cell[CellGroupData[{ Cell[BoxData[ StyleBox[ RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"a", " ", "x"}], "+", "y"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"2", "x"}], "+", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "1"}], ")"}], "y"}]}], "\[Equal]", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}], "]"}], FontFamily->"Courier New", FontSize->24]], "Input", CellChangeTimes->{{3.6234701566052465`*^9, 3.6234702499246106`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", RowBox[{"-", FractionBox["1", RowBox[{ RowBox[{"-", "2"}], "-", "a", "+", SuperscriptBox["a", "2"]}]]}]}], ",", RowBox[{"y", "\[Rule]", FractionBox["a", RowBox[{ RowBox[{"-", "2"}], "-", "a", "+", SuperscriptBox["a", "2"]}]]}]}], "}"}], "}"}]], "Output", CellChangeTimes->{3.6234772712245736`*^9, 3.6578608175541477`*^9, 3.657871238553195*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ StyleBox[ RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"x", "^", "2"}], "+", RowBox[{"y", "^", "2"}]}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{"x", "+", RowBox[{"3", " ", "y"}]}], "\[Equal]", "0"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}], "]"}], FontFamily->"Courier New", FontSize->24]], "Input", CellChangeTimes->{{3.623470359670803*^9, 3.6234703875324526`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", RowBox[{"-", FractionBox["3", SqrtBox["10"]]}]}], ",", RowBox[{"y", "\[Rule]", FractionBox["1", SqrtBox["10"]]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", FractionBox["3", SqrtBox["10"]]}], ",", RowBox[{"y", "\[Rule]", RowBox[{"-", FractionBox["1", SqrtBox["10"]]}]}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.623477392063386*^9, 3.6578608376412964`*^9, 3.657871365659465*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ StyleBox[ RowBox[{ RowBox[{"x", "+", "y"}], " ", "/.", " ", "%"}], FontFamily->"Courier New", FontSize->24]], "Input", CellChangeTimes->{{3.623470533423908*^9, 3.6234705555759478`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", SqrtBox[ FractionBox["2", "5"]]}], ",", SqrtBox[ FractionBox["2", "5"]]}], "}"}]], "Output", CellChangeTimes->{3.6234775036659822`*^9, 3.6578608436736417`*^9, 3.65787143411138*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"Solve", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"x", "+", RowBox[{"2", "y"}], "-", "z"}], "\[Equal]", "7"}], ",", RowBox[{ RowBox[{ RowBox[{"-", "x"}], "+", RowBox[{"3", "y"}], "+", RowBox[{"4", "z"}]}], "\[Equal]", "5"}], ",", RowBox[{ RowBox[{ RowBox[{"2", "x"}], "+", RowBox[{"6", "y"}], "+", RowBox[{"9", "z"}]}], "\[Equal]", "11"}]}], "}"}], "]"}]}]], "Input", CellChangeTimes->{{3.657871454352538*^9, 3.6578715313429413`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", FractionBox["22", "49"]}], ",", RowBox[{"y", "\[Rule]", FractionBox["141", "49"]}], ",", RowBox[{"z", "\[Rule]", RowBox[{"-", FractionBox["39", "49"]}]}]}], "}"}], "}"}]], "Output", CellChangeTimes->{3.65787153569919*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ StyleBox[ RowBox[{"Eliminate", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"a", " ", "x"}], "+", "y"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"2", "x"}], "+", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "1"}], ")"}], "y"}]}], "\[Equal]", "1"}]}], "}"}], ",", "y"}], "]"}], FontFamily->"Courier New", FontSize->24]], "Input", CellChangeTimes->{{3.623470675384158*^9, 3.6234707250088453`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "-", "a", "+", SuperscriptBox["a", "2"]}], ")"}], " ", "x"}], "\[Equal]", RowBox[{"-", "1"}]}]], "Output", CellChangeTimes->{3.6234776657512665`*^9, 3.6578608533361945`*^9, 3.6578716255183277`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ StyleBox[ RowBox[{"Eliminate", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"a", " ", "x"}], "+", "y"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"2", "x"}], "+", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "1"}], ")"}], "y"}]}], "\[Equal]", "1"}]}], "}"}], ",", "x"}], "]"}], FontFamily->"Courier New", FontSize->24]], "Input", CellChangeTimes->{3.6234777263261733`*^9}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "-", "a", "+", SuperscriptBox["a", "2"]}], ")"}], " ", "y"}], "\[Equal]", "a"}]], "Output", CellChangeTimes->{3.623477727589775*^9, 3.657860985449751*^9, 3.657871654878007*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ StyleBox[ RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "\[Equal]", "1"}], ",", RowBox[{"x", "\[Equal]", "a"}]}], "}"}], ",", "x"}], "]"}], FontFamily->"Courier New", FontSize->24]], "Input", CellChangeTimes->{{3.623470838826645*^9, 3.6234708949711437`*^9}}], Cell[BoxData[ RowBox[{"{", "}"}]], "Output", CellChangeTimes->{3.6234778149353285`*^9, 3.6578610090481005`*^9, 3.6578716969974165`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ StyleBox[ RowBox[{"Reduce", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "\[Equal]", "1"}], ",", RowBox[{"x", "\[Equal]", "a"}]}], "}"}], ",", "x"}], "]"}], FontFamily->"Courier New", FontSize->24]], "Input", CellChangeTimes->{{3.623470882647122*^9, 3.62347088707753*^9}, { 3.623471001612931*^9, 3.623471011487748*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"a", "\[Equal]", "1"}], "&&", RowBox[{"x", "\[Equal]", "1"}]}]], "Output", CellChangeTimes->{3.657861045149165*^9, 3.657871722554878*^9}] }, Open ]], Cell[BoxData[ StyleBox[ RowBox[{ RowBox[{"a", "\[Equal]", "1"}], "&&", RowBox[{"x", "\[Equal]", "1"}]}], FontFamily->"Courier New", FontSize->24, FontWeight->"Plain"]], "Input", CellChangeTimes->{3.6234778898466606`*^9}], Cell[CellGroupData[{ Cell[BoxData[ StyleBox[ RowBox[{"Reduce", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"a", " ", "x"}], "+", "b"}], "\[Equal]", "0"}], "}"}], ",", "x"}], "]"}], FontFamily->"Courier New", FontSize->24]], "Input", CellChangeTimes->{{3.623471135882367*^9, 3.623471144665182*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"b", "\[Equal]", "0"}], "&&", RowBox[{"a", "\[Equal]", "0"}]}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{"a", "\[NotEqual]", "0"}], "&&", RowBox[{"x", "\[Equal]", RowBox[{"-", FractionBox["b", "a"]}]}]}], ")"}]}]], "Output", CellChangeTimes->{3.657861048879379*^9, 3.6578717825663104`*^9}] }, Open ]], Cell[BoxData[ StyleBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"b", "\[Equal]", "0"}], "&&", RowBox[{"a", "\[Equal]", "0"}]}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{"a", "\[NotEqual]", "0"}], "&&", RowBox[{"x", "\[Equal]", RowBox[{"-", FractionBox["b", "a"]}]}]}], ")"}]}], FontFamily->"Courier New", FontSize->24, FontWeight->"Plain"]], "Input", CellChangeTimes->{3.623477975537611*^9}], Cell[CellGroupData[{ Cell[BoxData[ StyleBox[ RowBox[{"Reduce", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"a", " ", RowBox[{"x", "^", "2"}]}], "+", "b"}], "\[Equal]", "0"}], "}"}], ",", "x"}], "]"}], FontFamily->"Courier New", FontSize->24]], "Input", CellChangeTimes->{3.623471267452998*^9}], Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"b", "\[Equal]", "0"}], "&&", RowBox[{"a", "\[Equal]", "0"}]}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{"a", "\[NotEqual]", "0"}], "&&", RowBox[{"(", RowBox[{ RowBox[{"x", "\[Equal]", RowBox[{"-", FractionBox[ RowBox[{"\[ImaginaryI]", " ", SqrtBox["b"]}], SqrtBox["a"]]}]}], "||", RowBox[{"x", "\[Equal]", FractionBox[ RowBox[{"\[ImaginaryI]", " ", SqrtBox["b"]}], SqrtBox["a"]]}]}], ")"}]}], ")"}]}]], "Output", CellChangeTimes->{3.657861088800662*^9, 3.657871863383933*^9}] }, Open ]], Cell[BoxData[ StyleBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"b", "\[Equal]", "0"}], "&&", RowBox[{"a", "\[Equal]", "0"}]}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{"a", "\[NotEqual]", "0"}], "&&", RowBox[{"(", RowBox[{ RowBox[{"x", "\[Equal]", RowBox[{"-", FractionBox[ RowBox[{"\[ImaginaryI]", " ", SqrtBox["b"]}], SqrtBox["a"]]}]}], "||", RowBox[{"x", "\[Equal]", FractionBox[ RowBox[{"\[ImaginaryI]", " ", SqrtBox["b"]}], SqrtBox["a"]]}]}], ")"}]}], ")"}]}], FontFamily->"Courier New", FontSize->24, FontWeight->"Plain"]], "Input", CellChangeTimes->{3.623478036096917*^9}], Cell[CellGroupData[{ Cell[BoxData[ StyleBox[ RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"a", " ", "x"}], "+", RowBox[{"b", " ", "y"}]}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{"x", "-", "y"}], "\[Equal]", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}], "]"}], FontFamily->"Courier New", FontSize->24]], "Input", CellChangeTimes->{{3.623471442906506*^9, 3.6234715175838375`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"-", "1"}], "-", RowBox[{"2", " ", "b"}]}], RowBox[{"a", "+", "b"}]]}]}], ",", RowBox[{"y", "\[Rule]", RowBox[{ RowBox[{"-", "2"}], "-", FractionBox[ RowBox[{ RowBox[{"-", "1"}], "-", RowBox[{"2", " ", "b"}]}], RowBox[{"a", "+", "b"}]]}]}]}], "}"}], "}"}]], "Output", CellChangeTimes->{3.657871953663097*^9}] }, Open ]], Cell[BoxData[ StyleBox[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"-", "1"}], "-", RowBox[{"2", " ", "b"}]}], RowBox[{"a", "+", "b"}]]}]}], ",", RowBox[{"y", "\[Rule]", RowBox[{ RowBox[{"-", "2"}], "-", FractionBox[ RowBox[{ RowBox[{"-", "1"}], "-", RowBox[{"2", " ", "b"}]}], RowBox[{"a", "+", "b"}]]}]}]}], "}"}], "}"}], FontFamily->"Courier New", FontSize->24, FontWeight->"Plain"]], "Input", CellChangeTimes->{3.6234781544387255`*^9}], Cell[CellGroupData[{ Cell[BoxData[ StyleBox[ RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"x", "^", "2"}], "+", RowBox[{"y", "^", "2"}]}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{"x", "+", " ", "y"}], "\[Equal]", "a"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}], "]"}], FontFamily->"Courier New", FontSize->24]], "Input", CellChangeTimes->{{3.623471574680938*^9, 3.623471597753378*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"a", "-", SqrtBox[ RowBox[{"2", "-", SuperscriptBox["a", "2"]}]]}], ")"}]}]}], ",", RowBox[{"y", "\[Rule]", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"a", "+", SqrtBox[ RowBox[{"2", "-", SuperscriptBox["a", "2"]}]]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"a", "+", SqrtBox[ RowBox[{"2", "-", SuperscriptBox["a", "2"]}]]}], ")"}]}]}], ",", RowBox[{"y", "\[Rule]", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"a", "-", SqrtBox[ RowBox[{"2", "-", SuperscriptBox["a", "2"]}]]}], ")"}]}]}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.623478222486045*^9, 3.6234784451452355`*^9, 3.657861116140226*^9, 3.6578719888571095`*^9}] }, Open ]], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", StyleBox[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"a", "-", SqrtBox[ RowBox[{"2", "-", SuperscriptBox["a", "2"]}]]}], ")"}]}]}], ",", RowBox[{"y", "\[Rule]", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"a", "+", SqrtBox[ RowBox[{"2", "-", SuperscriptBox["a", "2"]}]]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"a", "+", SqrtBox[ RowBox[{"2", "-", SuperscriptBox["a", "2"]}]]}], ")"}]}]}], ",", RowBox[{"y", "\[Rule]", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"a", "-", SqrtBox[ RowBox[{"2", "-", SuperscriptBox["a", "2"]}]]}], ")"}]}]}]}], "}"}]}], "}"}], FontFamily->"Courier New", FontSize->20]}]], "Input", CellChangeTimes->{{3.6578720086952443`*^9, 3.657872014229561*^9}}], Cell[CellGroupData[{ Cell[BoxData[ StyleBox[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"x", "^", "3"}], "+", RowBox[{"y", "^", "3"}]}], " ", "/.", "%"}], "/.", RowBox[{"a", "\[Rule]", RowBox[{"7", "/", "10"}]}]}], FontFamily->"Courier New", FontSize->24]], "Input", CellChangeTimes->{{3.623471644865461*^9, 3.623471698357955*^9}, { 3.623478371715907*^9, 3.6234783753507133`*^9}, {3.6234784108251753`*^9, 3.623478449029642*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ FractionBox["1", "8"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox["7", "10"], "-", FractionBox[ SqrtBox["151"], "10"]}], ")"}], "3"]}], "+", RowBox[{ FractionBox["1", "8"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox["7", "10"], "+", FractionBox[ SqrtBox["151"], "10"]}], ")"}], "3"]}]}], ",", RowBox[{ RowBox[{ FractionBox["1", "8"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox["7", "10"], "-", FractionBox[ SqrtBox["151"], "10"]}], ")"}], "3"]}], "+", RowBox[{ FractionBox["1", "8"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox["7", "10"], "+", FractionBox[ SqrtBox["151"], "10"]}], ")"}], "3"]}]}]}], "}"}]], "Output", CellChangeTimes->{ 3.6234783275210295`*^9, 3.6234783771603165`*^9, {3.623478415723584*^9, 3.6234784501684446`*^9}, 3.657872139112704*^9}] }, Open ]], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", StyleBox[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"a", "-", SqrtBox[ RowBox[{"2", "-", SuperscriptBox["a", "2"]}]]}], ")"}]}]}], ",", RowBox[{"y", "\[Rule]", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"a", "+", SqrtBox[ RowBox[{"2", "-", SuperscriptBox["a", "2"]}]]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"a", "+", SqrtBox[ RowBox[{"2", "-", SuperscriptBox["a", "2"]}]]}], ")"}]}]}], ",", RowBox[{"y", "\[Rule]", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"a", "-", SqrtBox[ RowBox[{"2", "-", SuperscriptBox["a", "2"]}]]}], ")"}]}]}]}], "}"}]}], "}"}], FontFamily->"Courier New", FontSize->20]}]], "Input", CellChangeTimes->{{3.657872149834317*^9, 3.657872161089961*^9}}], Cell[CellGroupData[{ Cell[BoxData[ StyleBox[ RowBox[{"%%%", "/.", RowBox[{"{", RowBox[{ RowBox[{"a", "\[Rule]", "1"}], ",", RowBox[{"b", "\[Rule]", RowBox[{"-", "2"}]}]}], "}"}]}], FontFamily->"Courier New", FontSize->24]], "Input", CellChangeTimes->{{3.623471811879354*^9, 3.6234718571350336`*^9}, { 3.6234784813684993`*^9, 3.623478506188143*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", "3"}], ",", RowBox[{"y", "\[Rule]", "1"}]}], "}"}], "}"}]], "Output", CellChangeTimes->{3.657861232791898*^9, 3.6578722314749866`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", StyleBox[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"x", "^", "3"}], "-", RowBox[{"7", "x"}], "+", "3"}], "\[Equal]", "0"}], "]"}], FontFamily->"Courier New", FontSize->20]}]], "Input", CellChangeTimes->{{3.657872250105052*^9, 3.657872296498706*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x", "\[Rule]", RowBox[{ FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "27"}], "+", RowBox[{"\[ImaginaryI]", " ", SqrtBox["3387"]}]}], ")"}]}], ")"}], RowBox[{"1", "/", "3"}]], SuperscriptBox["3", RowBox[{"2", "/", "3"}]]], "+", FractionBox["7", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox["3", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "27"}], "+", RowBox[{"\[ImaginaryI]", " ", SqrtBox["3387"]}]}], ")"}]}], ")"}], RowBox[{"1", "/", "3"}]]]}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", "\[Rule]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "+", RowBox[{"\[ImaginaryI]", " ", SqrtBox["3"]}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "27"}], "+", RowBox[{"\[ImaginaryI]", " ", SqrtBox["3387"]}]}], ")"}]}], ")"}], RowBox[{"1", "/", "3"}]]}], RowBox[{"2", " ", SuperscriptBox["3", RowBox[{"2", "/", "3"}]]}]]}], "-", FractionBox[ RowBox[{"7", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[ImaginaryI]", " ", SqrtBox["3"]}]}], ")"}]}], RowBox[{ SuperscriptBox["2", RowBox[{"2", "/", "3"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"3", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "27"}], "+", RowBox[{"\[ImaginaryI]", " ", SqrtBox["3387"]}]}], ")"}]}], ")"}], RowBox[{"1", "/", "3"}]]}]]}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", "\[Rule]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[ImaginaryI]", " ", SqrtBox["3"]}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "27"}], "+", RowBox[{"\[ImaginaryI]", " ", SqrtBox["3387"]}]}], ")"}]}], ")"}], RowBox[{"1", "/", "3"}]]}], RowBox[{"2", " ", SuperscriptBox["3", RowBox[{"2", "/", "3"}]]}]]}], "-", FractionBox[ RowBox[{"7", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"\[ImaginaryI]", " ", SqrtBox["3"]}]}], ")"}]}], RowBox[{ SuperscriptBox["2", RowBox[{"2", "/", "3"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"3", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "27"}], "+", RowBox[{"\[ImaginaryI]", " ", SqrtBox["3387"]}]}], ")"}]}], ")"}], RowBox[{"1", "/", "3"}]]}]]}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.657872311743578*^9}] }, Open ]], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"N", "[", "%", "]"}]}]], "Input", CellChangeTimes->{{3.657872378349387*^9, 3.657872393591259*^9}}], Cell[BoxData[ StyleBox[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x", "\[Rule]", RowBox[{"2.3976615408922592`", "\[VeryThinSpace]", "+", RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", "\[Rule]", RowBox[{"0.44080771150488274`", "\[VeryThinSpace]", "+", RowBox[{"4.440892098500626`*^-16", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", "\[Rule]", RowBox[{ RowBox[{"-", "2.838469252397142`"}], "+", RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], "}"}]}], "}"}], FontFamily->"Courier New", FontSize->20, FontWeight->"Plain"]], "Input", CellChangeTimes->{3.6578724117903*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", StyleBox[ RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"x", "^", "3"}], "-", RowBox[{"7", "x"}], "+", "3"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "3"}], ",", "2.5"}], "}"}]}], "]"}], FontFamily->"Courier New", FontSize->20]}]], "Input", CellChangeTimes->{{3.6578725541894445`*^9, 3.657872587797367*^9}, { 3.6578726269016037`*^9, 3.6578726291087303`*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwl2Xk4VN//APBhbFnHFtnNTKgku1KcQ0hIJRWVUBISLZJUspRKyBpJUiRF pVIqdE62LOVDKEqUhFS2GebOWOZ3v8/vr/u8njv3nvOc93afZ7T3hbodEKRQ KG8FKJT/XY84j0/w+aIY/3rycYG8nq3MTroyJ4q1GgfPsF+L4oQVtsuVuKKY JhU/LxQuigskMvcbTIniifKbx8L/iuBPLZaf9gyK4pQ1wyjnizC2comvfNVI mke78KuSisU3qccfTxXF+fw9O9qZfFTg6qw6TBfF0UPLG03WjKFt9JEtZiYi OH81y1NncAIs7pTsO7BNGIsB052/q4ShjDhnG++kEC4/vkYttZAGL9DoXdOX qXjfCbHi5WqLofR058OOEkHMcyicdTunAgdq/d7SigUxDg+16UtRgS/S2J2b CgXxnZXVul53VOBeQ4W5d7mCWKvgS79ZvQp8fGibU1WSIFb+MLN+m7gq3DLQ PlQYKogjNM6KwzRVmPpfq2a4iSCOrFkkyspWgwoPGlOVKwWwz6H9R5xiNSA3 edb0YIUA9khPq01K0YB9xw26nz8TwC8eZtbW52nAYqsMjW2lAnjf1KUO+UoN uK7duyTppgA+47juhB5LA+4nZuoEowWwcUpOm5mvJnzqsJT4ayeAwwNKX0So aMEtP2P2vm2lYLMlsxYvv2nBh8NyVza3UPDxnSk8xZ9aUPxvQcW3dxQ8N3Fe NnREC9az62k8TMGaS32hPEsLWoqI1xo/o+Ax1ZdVDDFtyFyWpluYRcHpmWEi /kbakBNyZyLeh4JPOzanhUdrQ/fjJuqKXhRs3RxSBS9ow6cn6zYWeFLwSy0V T5EEbRgcPXQHuVGw4Npd43Hp2vBH6vLthB0FMx67PXAs0oYt5U9fBS6j4EvD Lw25zdrQavqC8PVBPtqjN28yT6PDM0KCWVrf+EgsWfZ5miIdvpaP0ivu4iPY FEFhqNChuXG4c0UDH7FP0mdNGHRoGOqf2lXMR98rFe8omdEh/beDutxhPqIv Umgc2kmHYt9Eza5ML6B1CkYCD6/TocPfuAa5sQX0Uv3o8rybdHhhlr8zZ2gB tb5aYp9wmw4FVYjI+58XUKDvxW3b7tPh7I4R/O7VAqo5LsopfkmHY22NLkJR C8i3zTho/yc67Ky77HdWZAG51HGS1KUZkCpfI3aeP48KCyJZ5rIMaOzLK00g 5lG3V4WciwIDpswHTWeNzqOGuZ2xgSoM6GLuEv+0dR7tUVlke1SHAWvvSRcP X5tHp2PqtJ9bMeDThPQ/W3XnUePBwzsVAxnwR3fLVQ+teSRtKvfj3iEGpOkK mXovmUe1D6zszEMYMKQ27EywxDwKMaLfcDjOgMvntktdHJ9Dh3vYRWZnGfD2 YeVVVRVzSNxml6JrCrmfLTeP6TjOIcXPUzahzxjwe7Oq+RabOeQmPZka9pwB jexzuKcs5xBd6AA1vIIBP67Jiv6gP4fyfga7Hq5kQEVGanKY7BxiR5rcWlnL gDnT5x/UfJlFN93c56fbGXA0lBryt2MW0UTFuqo7GHDtaIzR4g+zKH+X/reY Lgbs7Yt6GYhmkXnWhdiFbgbUbIxooBXOIv3QJ2ub+xmwMCd4YO/hWYR/FK0p /cuAbIU/dy/5zyKe6ptLFmMMaH81MPCp9yz61AWV0DgDDsX5Twi7zaLC6A0z NVMMuOywz0Kp+SwKq0z5dJNgwEfAXWWWz0P+Ui2T+VQmXHj18RuTy0OsLta9 CSEm3Gy69bbrFA89WogtXSfChBN6rnp3BnmoTS+9sEmMCU3kHM03NvFQ+ciT oAopJnw5uNYtK42HIvbe1vq5mAkTDyi46l/hoTS3W1dllJnQd+jvxrdxPDRS s7TCYgkTio/ctPkTxkPjpRmmp1WZcM8fviHYyUMDL8LF/9NkQsPgbv3OzTzk c9PUu0eLCYX/lekFOvKQ7zLJ8H5tJnw05quVvoaHchraxvoYTCgwVSszrMpD u3T0DUp0mfDTsVyJMwo8FLXR5Hm6HhM+YIWJykrx0LG1v0QjljGh+/RSvuUC Fx3UklM0XcGERcTFseTvXCTKl5g4ZcCEkad8Rhk9XKR6/9c0XEWeB2/10Mt2 LrJznm2jGjIhMfv720ANF8VIFkicNWJCJ77zB/O7XKSS7lNuZcqEGtHMppab XOQjfe3CT9IsynydzzUuEinJNrtgxoS5go+qEi5ykcK3D+ZV5kx4JC7+pWY0 F7VV+SVstWBCeyHv8vIILkp2S307QHpMmFbaF8hFr03D+onVTFgTP3Lv+D4u imxJbjy7hgmzRN8WiO3mooFS0ZwF0nDRsRvGLlzkOtjLY1kyYZpkZ0K8ARcp mad2PVzHhP5JpfGqulyUaazCkLNiwrXSF2LLNLlIqCBt3zHSgzLmkV9oXLQr TKVKx5qMb4p0eOgiLkrVTO6OJJ0kO3xUSJCLvDpe/WkmbS6fHWjAItCu3wKz ewEZ34wjB2r/EOhbZiz3Dul+hY2+HoMEyu6PYw2QLs/U9vrXS6CKPxajGpAJ Ly3mecR2Ecinv61vB2mvrI/uSq0EetMf/TGBtLFyyZbSBgLNykY2vCYtcj3O xQYRyPrGWOUQ6a9L9jh+qiDQk3xaubQNE+b3TOwYLSNQ/MmIg4ak/a9fOLBw n0DrTzwscCW9wlMlTK6AQBs3FwcGkp5Qfhyrk0sg7mvf19Gkn3evT7XMJNCz wx+vZZCOzO6+5ZpMoB41Fr+QNPA4/GjfRQI1n62aeUJaSFmwOjyaQKP2umcq STd9vtaScIpAmcv1U9+STs5a8SXvGIFW/ag1ryO9bSceeXqIQMqaw4drSSsr bec0+BGo7HqyBSL97dNv4a9eBPIUeZZRQfrOtSiF8R0EClPZFF9KOmCHPIO6 hTyvK9ul8kivXFxspLSRQFHS9csTSU91rYMrbAlk6JnRH076ZWa7K1hLoE9a Vfp7SZ/d7u+1zZRAbSpm8rakbRVnDx1cSaDoOU46nbRo19XI0zoEcjg9/5hP nu/7DOblq5oEOu9iHdBDeoeCa1GFLIGGKt2fxJJW7RwobxEnUGudqp0b6e/p J2v7qQR6NE05+b/4Bsnf/i46w0E/CsXelpLxX9VhNq46zkHsJLUvIaTZac3z q0Y46HyYUdZK0ufk2CoeXzgoV8ZG4DaZX3YfLy0L7uCgEYOVZdtJi6epr45+ z0HG2vMioqQzZDdsL37DQU7uK8q8yfz1bP+6v6qCg7r5kUKipDVSjxxrK+Og 0W2pQiVk/hfTcq4SdzhIqYUt8XstEx5uM8iTzOWgaQ8TxTjSxim1pVqZHNTj p9q6hHSVzL8mx4scZPq+2c2KrKd2aSh0/RAHtT3+UrOHrMdrrZ1yD/046IjQ db9esl73JAdqv/XiINXYhmoP0kNS6da/N3OQcuvWnA1kvfMkhyLWmHKQ9Tkv pQUTJmRIJP7rmZtBX3jDvFay/wS3R5p6Ts+gV/6jayVIv8gKPN39bwZVhRQ8 W7+SCR2ZGxZ97ptBdr76LvfJ/hVsJbi0E88gQxNgt4Hsd+WhEXtaz8+g8fz0 A/+R/XPe7GDBprMzyC/8dNH/+qvD3PbR9ydm0DGtIaP3GkzYfckkosV/BoVR LFa+VmPCudtj6Y2OM+i7W3B3INm/7Tr9WmokZ1Dnzi2Ll8iQ9Z+zTc5WmFxf 40d6H9n/P/nYer6dn0Z1kzg0X5LMz3+aw2hsGkm1+mxYIk7OA5GvgtVt0yjt TUN2PzlfOldvtazImEZ/Mnf0IC4DHrhpdb9Ejbzf3hf5+TsDtl09JuOqOI0e /VERNiHnn2XsvRMTUtOoWy/S7Mo3ct4flLU147PRt69bkoy+MOBrw19f3vxg I7d2Hcsd5Hyl1SVKfixiI3vvp8mUegasGv0aShiy0ZiRyfYfdxlQ9xvtU84y NnprHD3SUcCAaf/Zr7Ois1HHR/8NtbcZ8GD5Y7FYeTZajR8HZ99kQLmouNsS Myz0ao5zQi2TAQNkV3RoVLLQd99blxPjGFBhdaS5vT0LhYiaDSvsZcDQwEOP /a1Z6GflhxMfdjNgc84evUsWLJR23Gt3nCcDxsxbq7QsYyGn7Qarht0ZcKyG urBFmoUa3+grXHVmwKZNSfV7Pk8hJ5ltxT6rGTBqf757WOAUKm6by5OlMeBI csOxgqRJpKkbxeqvoMN3DbJMw/hJlKpw6vSLcjosWtjTVRU1iYR4g8sSntDh gRCWxafQSfTSa2RBr4QOBzZpzYu5TaIar4QSuzw67JWMvBiyeBJR/t7WmI6j w/8SVuauuTWBBPPch2030WGw1LIrt3zHkRw43tv1WRtuOzGYHDP8B1WHv6hp +qEFDTQLEJ8+gjIMxyRMDmrCgZ6T6VJHBpGY9m8b+89q8LtkcH3h3HfUejte /Od6FVhEfedYdvYLWn7yWdxeVyWo3ceuWRbTgdyjmObxhxRgTvlNkQubm5BD SMz6yBhZmBBYHe46VI58ulb8XJ8qCU03y1de8rgBWBuHY4xjRCCKXvyi+1gN WNBBA/XDfKC6fM2gYU4b0Gs0ti1ZwwK2DL0nA6c/g+85rw/aNPSBc9k05p6p PiAWR7283K8dpUt7Hf7BHgD52zOeLpUYQzL4xlJh7yFAK2i2lSHn0rVVn8sS 5UeBn944VcBVAHfosL4lXPoH5EyOJHH9hHHxZdaBS1n/gNOG5x25J4Rx1F/W vwtF/8Ae3717zOOFsd5T9nx03T8g/ltT2+WeMD5jNaN+kjIGUhQsxgR+C2Om O9drf8QYUHMJtk8LEsHhMfxvawPGQWHlXS+GvyiWGhMOnSmYAH9TJgamrBbh +O8btWYeTIAXZk+E5ZwXYUpHUvv0kwlg+596lq7HIsyuUDSdRhNAiD8ybXZs Ee6NWcplfZ0ADjrNxv13F+FSRfu4SflJYLmudamPhDh2sTqf9TduEnxpSmvn t4rjhlWNjn8TJkFZnZ7Ary/iGNIleX9SJ0HDva8aeEgcm4pm7PlzaxKo2Mcr eCyIY7X2Au3Ryklw5snRCOmVEvivX23JMGsSFHMr8lIvSeDEREE8sH8KRF2p sO+ykMSDbhQ3FDQFaiqfbFlrK4nXLVn4eePoFFCO2Wuc5SKJ/93lim4/NwXy tUuCDH0lsSua2PwuZwoUKdHsRy5LYtmpvv6S9ilyf9StQT2S+NrOSn4YYIH3 VwLtbx6RwmPqr1K3OrBA3wZ224tTUthh8AXDYBMLmG6SfF0fK4U5R55uGN5F OgFl1mZIYY+E+1c9w1lAbYXxIvBSCqtUZ2laP2SB19O2KUbzUvgWPQyIqrLB FqXRvNEoaRw2oHQ9gs4GDjI7f2y+KI0d71RO/V7GBg+En8oWX5XGE9rUover 2WDucJ+eUb40ttVOk0zbwQZ1Dxvv38XS+JdmWY9aGhu8nMqrlOdL49f920yS r7NB/if69bsiMjj5FieRn88G2a8clJZLy2BzTQAHHrPBxJzKgLi6DL6k0Vp0 7wMbuPNKl6+wlMEr1P8eN140Dcq6jTcNHJXBlG9XPxTQpkHG038TNyJkcGeu ia6i8jQwTuQNbzgng8+onf7C0ZkGpW9eVIUnyuBWVXGbartp8Pf2kVOrimTw URU9acfoaaAfVCS86LMMrlDyK/biTANF5llndSUazsl2Ht+8MA0kVpzYfWQJ DUctMTEn5wHoV083qValYQdVwTod+RkQ9PSAqZ0WDX/SyO8fN5gBH4UDbESX 0TB7ae/iWP8ZEPGe3ea9hoa7i2q9wg7PAH3GrZOua2m4Srek0D9sBjTKUd+Z W9Fw3LJIY+fYGSBUrObBhjQst1LZVSFvBoAl1yUZjjRsaOp+oahrBuxLahbZ tJ2GFZ6vfZ/dOwOOC+3b1LWDhgkzhvyVnzMg/K2D+k4PGkYWU/mhkzMgm1Db umE3DbuuTalaLcUBKs0L7T0+NGxcdZK6QoEDMvsF9Q320fBiK28ndVUOuCCb xz+9n4b7rA26BZZxgOyLNxJC/jR82PY9q9mOAwqPlETXB9HwltpnltXOHPCw O+jIr0M0bGp3I+axGwc8N5FoXgim4Tn7IJkMHw4gHso/Uw+l4cSNYiu8znCA Bd1hqeRxGj7SPH50cxx5P0VmJYe0u/PnlzYJHLCuiXr1axgNq24qctDJ5oBL MameKeE0/GCL3b7xZxxAi7b7eP8UDYu3tB8Jr+QA6ZefPUIiaTjI3vvcfA25 /n3bheWnaXi5ZWSuxEdyv+H5NxLP0HBCuWhJWg8H2JSlJxudpeFRg8xXS35w gL6P97VW0vcZZZ90Jzgguz/6y0QUDYvlWf16xOGAQ1KfZcPP0XCAcgvLjM8B piEi7izSjWkegtUiBFA3upoXEE3DelJDNDtpArhemBzrIn3p4nHNFkUCTF1/ aLs2hoZHBAQM3NQJYJy3PiubtOOZ5HU9TAKsfmsy+o908Yyqs48+AQyMF1av jSXXP3rfc9iEAOu0GDHRpAP+mAeErCVA4ms6ribdeKAufNqWABsNz7KmSOt9 33rhjBMBbpQ9VdaKI9ff1Z9OdSPAw6D1K+1Jj3QG30nwJEBx0mODfaQdN/PK ZH0JUO54UuUk6XtNF1F2AAHmmlXG4kiL2Cm2ah4hwIP1KvcukfZ/c6e36CQB hn9M214g3bDa8M/KcwTo7VyJTpHWeVbNLY8nwHNn2yX+pONXOoutSybA9RPP XJ1ID93rXlybSYBnMQJeOqQd6P5LnW4SQP9WqQ2P3H9RLsukvZD0vCmvnrSI UoytRykBvjernL9M2j9Vemv/MwKEWvT12pFukMj19q8kgNAxvgBBnp9O/LKQ fzUEeHd/YeIO6XhKxZmwZgIMSu25Z096KNLuymw7AWI+ZNG/k/G5G+pdvOgH AUZVS7zmyHgKjf59kTJCAPFFccpRpP38IuuVJgiwRdoymUPmA9Mzc2ApnwDz 6g757WS+nO+gT5aKcMGL+BsWxqQHN5XxTaS5wLqu7VwCmW+Fti1qtupc4Bv5 VZlO5qNQtceKJiYXuG594udL5qufxdCaLfpc8PTVwZ3ZZD4z9QV27l3LBVGz 4br/TpLvL0o+8MuWC9aYtPHFSQ9qqYUFO3EB7ZX4CS2yHgoVLVIjPcn1DzH1 jcl6EUqpuyXgywVfZqiBBmQ9+Ym7PboUwAUosX41/Rj5fn5wy7WTXBCWOR4/ QdZjwcgd4WeZXLBk/WCWLlm/A+aj7MU3uWCyV91oKJCGtS4YDUYWckGJ+O+s 3AAaztXGNbbPuOCq3Zu6iQM0nLHr27mPbVxQunSFpznZTz4WM0PNu7lA0+2l 2rO9NEzjHNqb088Fizz+5Oh60XBSOm/dvjEukJT/UM3xJOPzXok3KcEDO9Y4 7DbdRsN1Kt6/t8vzgPjSpichW2lYMLCo+5UKDzSsEinL30zD54TNKmKW8YB+ /eqcP840HGHtFia7gQdMfzr8VLOj4cCyxDHDWB7Ye8na/I8xWU8LHd8yLvNA RET63zxDMv4uqh+IFB6ol2thOhnQ8L7f90vwLR5oCgiWvUj26130dwFbqnlg Msn6eo4mDbtkCPwMJXhAyNNjq4442T8GHD928HlAgSImvlWUrD/DlLcWorMg urdG47gQDdt/0MjnK86CkLLGu5bzMthaZJ3XVZNZEHTTcoP8Lxm8KiL886OQ WWBdbPXg3BNyPl0UKE8/MQtWJy1WNimRwc3XElMizsyCKeO3lp8LZbD/8zsb bRNmQeL4qquTWTI4d6q1suvuLAgInxALOSuDxQ7r5s/1zoLFgiM/Y+1l8IBv d4CT8xwwdqHuFGiWxoZH99uvcpsDyyVujNW+lcZno8e0FTznQIOgDg5/JY2V bwl9/eY/B/42vxJ4WCyNN/cabjoaOwew6I703fHSuGrHZaPsV3NA8rRzRrW1 NL7mbMn7pTsPmHFn9CMLpLCP+6E871XzIKj1v497s6Xwcq9c2x7zebCP9WqP YZIUrg5ZSHhvPw8Eg9+I5oRL4cHUGtVn++fBsbhTRhcdpbBRt5NV9K150Ht3 /ZW6EUn83m93tIrSAhBMiVW4r0J+7xxOZGZoLIAXuzqeaElJYp/w6kYpnQWw WFL52nm+BGZd1JQVMFsAUXUjmrKDElil5OftYbcFYMfJfryuVAIHTB6qLU9e AIUIhfeslsDUqDMim0X4oOFpjI/oenHcu2Eya6MUHwiJwmwZU3H8QtZ/mZ0C H/QdWlgsslQcB9zd7LKGzgcqLxN7qkXE8fv39DSGNR8kXw2gejQtwhmqTerE CT4o/zF02IT8PtV5pWh2+xcf6GxyrgqyEcNLIz8/ObWPAs/LqxvNzQhjStNY 0K8DFEiRSbPo+SmMe5VEmFsDKVBoqhoWtgnjjOem1/SOUKDadQsXoQfCWHAy NfLzWQpkZub1/dktjL8fdFlvdp0CYUpu8fYqIZy7/W3nxH8U6DG1L/FUKBXL GZVwDloJQHff4EOGeRRceiZTQcNGAK5uZ609dJ6CHRrPGXXaCUAserLuahAF n/J2PwRdBKCpsv1opjkFf0+a71PeLQD1hm8I69/go0ejmxuaIgRgACEaXDM2 j5wK2RkrygVghN4SI6EwHopVsjYeXy4IaY87OmvYU6hwfXP9AQNBmOIWdIXy egrVh+7w7DUShDhey1vx3BQSawyJblotCPXu1lnXiU2h5IhbrQUOgpDS80XI XGUSXe+hHPLYRz6vcaSiPmgMld2oLXh7nXQmz3vH9SHUr7lRMUOMCqHF2Yty o+9Q8suKuqOSVEjp4qd/PFeP1m3VCdtMo0JsYXRtWL4WZcdSO8SVqTD6z5CN RkgVcvtVnRKjS/5+aNx9xd3bqO6BsWSoA2mpn2seCSNQbKZGdTpPhVq0vUnj m3vBjtaEp7qXyOeXSdIV8r8BoYNcX+FE8r75tSL5yT7gm/0J43QqTHFyWvyx +TtQmU2JsiigwvziFvbFsJ8gEQvzmDVUuEXadVFu7wiw9Ay7L9hAhW0zGbyr V36DkckBj+9N5POPwt9MWY4CewauuNFO7uftcwXhG3/AwoXIE3I/qHDiV5un t88YKNX4zZwYJO9X51q/lxsHuyp2dn4YocLvHzwLiuvHQcWIqcnlCSr0CLyv 7XFtAvjHFAz4s6mw2HCq8/DEBFBQkUuzI6jQZ9Xl45VOk6DmabQNfY4KI96v F7O5Own+//8/KjwSwrm5wJ8E/wc3JqSW "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, ImageSize->{598., Automatic}, PlotRange->{{-3, 2.5}, {-4.128450976350829, 10.128450118456923`}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{{3.6578726022481937`*^9, 3.6578726299217763`*^9}}] }, Open ]], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", StyleBox[ RowBox[{ StyleBox[ RowBox[{"N", "Solve"}]], "[", RowBox[{ RowBox[{ RowBox[{"x", "^", "3"}], "-", RowBox[{"7", "x"}], "+", "3"}], "\[Equal]", "0"}], "]"}], FontFamily->"Courier New", FontSize->20]}]], "Input", CellChangeTimes->{{3.6578726743203163`*^9, 3.6578727044180374`*^9}}], Cell[BoxData[ StyleBox[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x", "\[Rule]", RowBox[{"-", "2.8384692523971418`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", "\[Rule]", "0.44080771150488296`"}], "}"}], ",", RowBox[{"{", RowBox[{"x", "\[Rule]", "2.397661540892259`"}], "}"}]}], "}"}], FontFamily->"Courier New", FontSize->20, FontWeight->"Plain"]], "Input", CellChangeTimes->{3.6578727479445267`*^9}], Cell[CellGroupData[{ Cell[BoxData[ StyleBox[ RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"x", "^", "3"}], "+", RowBox[{"y", "^", "3"}]}], "\[Equal]", RowBox[{"x", " ", "y"}]}], ",", RowBox[{ RowBox[{"x", "+", " ", "y", "+", RowBox[{"x", " ", "y"}]}], "\[Equal]", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}], "]"}], FontFamily->"Courier New", FontSize->24]], "Input", CellChangeTimes->{{3.6234733633684797`*^9, 3.6234733651624823`*^9}, { 3.6234733972517385`*^9, 3.6234734299181967`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"1", "-", RowBox[{"4", " ", "#1"}], "+", RowBox[{"2", " ", SuperscriptBox["#1", "2"]}], "+", SuperscriptBox["#1", "3"], "+", RowBox[{"4", " ", SuperscriptBox["#1", "4"]}], "+", RowBox[{"3", " ", SuperscriptBox["#1", "5"]}], "+", SuperscriptBox["#1", "6"]}], "&"}], ",", "1"}], "]"}]}], ",", RowBox[{"y", "\[Rule]", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{"3", "-", RowBox[{"3", " ", RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"1", "-", RowBox[{"4", " ", "#1"}], "+", RowBox[{"2", " ", SuperscriptBox["#1", "2"]}], "+", SuperscriptBox["#1", "3"], "+", RowBox[{"4", " ", SuperscriptBox["#1", "4"]}], "+", RowBox[{"3", " ", SuperscriptBox["#1", "5"]}], "+", SuperscriptBox["#1", "6"]}], "&"}], ",", "1"}], "]"}]}], "+", SuperscriptBox[ RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"1", "-", RowBox[{"4", " ", "#1"}], "+", RowBox[{"2", " ", SuperscriptBox["#1", "2"]}], "+", SuperscriptBox["#1", "3"], "+", RowBox[{"4", " ", SuperscriptBox["#1", "4"]}], "+", RowBox[{"3", " ", SuperscriptBox["#1", "5"]}], "+", SuperscriptBox["#1", "6"]}], "&"}], ",", "1"}], "]"}], "2"], "-", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"1", "-", RowBox[{"4", " ", "#1"}], "+", RowBox[{"2", " ", SuperscriptBox["#1", "2"]}], "+", SuperscriptBox["#1", "3"], "+", RowBox[{"4", " ", SuperscriptBox["#1", "4"]}], "+", RowBox[{"3", " ", SuperscriptBox["#1", "5"]}], "+", SuperscriptBox["#1", "6"]}], "&"}], ",", "1"}], "]"}], "3"]}], "-", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"1", "-", RowBox[{"4", " ", "#1"}], "+", RowBox[{"2", " ", SuperscriptBox["#1", "2"]}], "+", SuperscriptBox["#1", "3"], "+", RowBox[{"4", " ", SuperscriptBox["#1", "4"]}], "+", RowBox[{"3", " ", SuperscriptBox["#1", "5"]}], "+", SuperscriptBox["#1", "6"]}], "&"}], ",", "1"}], "]"}], "4"]}], "-", SuperscriptBox[ RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"1", "-", RowBox[{"4", " ", "#1"}], "+", RowBox[{"2", " ", SuperscriptBox["#1", "2"]}], "+", SuperscriptBox["#1", "3"], "+", RowBox[{"4", " ", SuperscriptBox["#1", "4"]}], "+", RowBox[{"3", " ", SuperscriptBox["#1", "5"]}], "+", SuperscriptBox["#1", "6"]}], "&"}], ",", "1"}], "]"}], "5"]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"1", "-", RowBox[{"4", " ", "#1"}], "+", RowBox[{"2", " ", SuperscriptBox["#1", "2"]}], "+", SuperscriptBox["#1", "3"], "+", RowBox[{"4", " ", SuperscriptBox["#1", "4"]}], "+", RowBox[{"3", " ", SuperscriptBox["#1", "5"]}], "+", SuperscriptBox["#1", "6"]}], "&"}], ",", "2"}], "]"}]}], ",", RowBox[{"y", "\[Rule]", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{"3", "-", RowBox[{"3", " ", RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"1", "-", RowBox[{"4", " ", "#1"}], "+", RowBox[{"2", " ", SuperscriptBox["#1", "2"]}], "+", SuperscriptBox["#1", "3"], "+", RowBox[{"4", " ", SuperscriptBox["#1", "4"]}], "+", RowBox[{"3", " ", SuperscriptBox["#1", "5"]}], "+", SuperscriptBox["#1", "6"]}], "&"}], ",", "2"}], "]"}]}], "+", SuperscriptBox[ RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"1", "-", RowBox[{"4", " ", "#1"}], "+", RowBox[{"2", " ", SuperscriptBox["#1", "2"]}], "+", SuperscriptBox["#1", "3"], "+", RowBox[{"4", " ", SuperscriptBox["#1", "4"]}], "+", RowBox[{"3", " ", SuperscriptBox["#1", "5"]}], "+", SuperscriptBox["#1", "6"]}], "&"}], ",", "2"}], "]"}], "2"], "-", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"1", "-", RowBox[{"4", " ", "#1"}], "+", RowBox[{"2", " ", SuperscriptBox["#1", "2"]}], "+", SuperscriptBox["#1", "3"], "+", RowBox[{"4", " ", SuperscriptBox["#1", "4"]}], "+", RowBox[{"3", " ", SuperscriptBox["#1", "5"]}], "+", SuperscriptBox["#1", "6"]}], "&"}], ",", "2"}], "]"}], "3"]}], "-", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"1", "-", RowBox[{"4", " ", "#1"}], "+", RowBox[{"2", " ", SuperscriptBox["#1", "2"]}], "+", SuperscriptBox["#1", "3"], "+", RowBox[{"4", " ", SuperscriptBox["#1", "4"]}], "+", RowBox[{"3", " ", SuperscriptBox["#1", "5"]}], "+", SuperscriptBox["#1", "6"]}], "&"}], ",", "2"}], "]"}], "4"]}], "-", SuperscriptBox[ RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"1", "-", RowBox[{"4", " ", "#1"}], "+", RowBox[{"2", " ", SuperscriptBox["#1", "2"]}], "+", SuperscriptBox["#1", "3"], "+", RowBox[{"4", " ", SuperscriptBox["#1", "4"]}], "+", RowBox[{"3", " ", SuperscriptBox["#1", "5"]}], "+", SuperscriptBox["#1", "6"]}], "&"}], ",", "2"}], "]"}], "5"]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"1", "-", RowBox[{"4", " ", "#1"}], "+", RowBox[{"2", " ", SuperscriptBox["#1", "2"]}], "+", SuperscriptBox["#1", "3"], "+", RowBox[{"4", " ", SuperscriptBox["#1", "4"]}], "+", RowBox[{"3", " ", SuperscriptBox["#1", "5"]}], "+", SuperscriptBox["#1", "6"]}], "&"}], ",", "3"}], "]"}]}], ",", RowBox[{"y", "\[Rule]", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{"3", "-", RowBox[{"3", " ", RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"1", "-", RowBox[{"4", " ", "#1"}], "+", RowBox[{"2", " ", SuperscriptBox["#1", "2"]}], "+", SuperscriptBox["#1", "3"], "+", RowBox[{"4", " ", SuperscriptBox["#1", "4"]}], "+", RowBox[{"3", " ", SuperscriptBox["#1", "5"]}], "+", SuperscriptBox["#1", "6"]}], "&"}], ",", "3"}], "]"}]}], "+", SuperscriptBox[ RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"1", "-", RowBox[{"4", " ", "#1"}], "+", RowBox[{"2", " ", SuperscriptBox["#1", "2"]}], "+", SuperscriptBox["#1", "3"], "+", RowBox[{"4", " ", SuperscriptBox["#1", "4"]}], "+", RowBox[{"3", " ", SuperscriptBox["#1", "5"]}], "+", SuperscriptBox["#1", "6"]}], "&"}], ",", "3"}], "]"}], "2"], "-", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"1", "-", RowBox[{"4", " ", "#1"}], "+", RowBox[{"2", " ", SuperscriptBox["#1", "2"]}], "+", SuperscriptBox["#1", "3"], "+", RowBox[{"4", " ", SuperscriptBox["#1", "4"]}], "+", RowBox[{"3", " ", SuperscriptBox["#1", "5"]}], "+", SuperscriptBox["#1", "6"]}], "&"}], ",", "3"}], "]"}], "3"]}], "-", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"1", "-", RowBox[{"4", " ", "#1"}], "+", RowBox[{"2", " ", SuperscriptBox["#1", "2"]}], "+", SuperscriptBox["#1", "3"], "+", RowBox[{"4", " ", SuperscriptBox["#1", "4"]}], "+", RowBox[{"3", " ", SuperscriptBox["#1", "5"]}], "+", SuperscriptBox["#1", "6"]}], "&"}], ",", "3"}], "]"}], "4"]}], "-", SuperscriptBox[ RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"1", "-", RowBox[{"4", " ", "#1"}], "+", RowBox[{"2", " ", SuperscriptBox["#1", "2"]}], "+", SuperscriptBox["#1", "3"], "+", RowBox[{"4", " ", SuperscriptBox["#1", "4"]}], "+", RowBox[{"3", " ", SuperscriptBox["#1", "5"]}], "+", SuperscriptBox["#1", "6"]}], "&"}], ",", "3"}], "]"}], "5"]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"1", "-", RowBox[{"4", " ", "#1"}], "+", RowBox[{"2", " ", SuperscriptBox["#1", "2"]}], "+", SuperscriptBox["#1", "3"], "+", RowBox[{"4", " ", SuperscriptBox["#1", "4"]}], "+", RowBox[{"3", " ", SuperscriptBox["#1", "5"]}], "+", SuperscriptBox["#1", "6"]}], "&"}], ",", "4"}], "]"}]}], ",", RowBox[{"y", "\[Rule]", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{"3", "-", RowBox[{"3", " ", RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"1", "-", RowBox[{"4", " ", "#1"}], "+", RowBox[{"2", " ", SuperscriptBox["#1", "2"]}], "+", SuperscriptBox["#1", "3"], "+", RowBox[{"4", " ", SuperscriptBox["#1", "4"]}], "+", RowBox[{"3", " ", SuperscriptBox["#1", "5"]}], "+", SuperscriptBox["#1", "6"]}], "&"}], ",", "4"}], "]"}]}], "+", SuperscriptBox[ RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"1", "-", RowBox[{"4", " ", "#1"}], "+", RowBox[{"2", " ", SuperscriptBox["#1", "2"]}], "+", SuperscriptBox["#1", "3"], "+", RowBox[{"4", " ", SuperscriptBox["#1", "4"]}], "+", RowBox[{"3", " ", SuperscriptBox["#1", "5"]}], "+", SuperscriptBox["#1", "6"]}], "&"}], ",", "4"}], "]"}], "2"], "-", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"1", "-", RowBox[{"4", " ", "#1"}], "+", RowBox[{"2", " ", SuperscriptBox["#1", "2"]}], "+", SuperscriptBox["#1", "3"], "+", RowBox[{"4", " ", SuperscriptBox["#1", "4"]}], "+", RowBox[{"3", " ", SuperscriptBox["#1", "5"]}], "+", SuperscriptBox["#1", "6"]}], "&"}], ",", "4"}], "]"}], "3"]}], "-", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"1", "-", RowBox[{"4", " ", "#1"}], "+", RowBox[{"2", " ", SuperscriptBox["#1", "2"]}], "+", SuperscriptBox["#1", "3"], "+", RowBox[{"4", " ", SuperscriptBox["#1", "4"]}], "+", RowBox[{"3", " ", SuperscriptBox["#1", "5"]}], "+", SuperscriptBox["#1", "6"]}], "&"}], ",", "4"}], "]"}], "4"]}], "-", SuperscriptBox[ RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"1", "-", RowBox[{"4", " ", "#1"}], "+", RowBox[{"2", " ", SuperscriptBox["#1", "2"]}], "+", SuperscriptBox["#1", "3"], "+", RowBox[{"4", " ", SuperscriptBox["#1", "4"]}], "+", RowBox[{"3", " ", SuperscriptBox["#1", "5"]}], "+", SuperscriptBox["#1", "6"]}], "&"}], ",", "4"}], "]"}], "5"]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"1", "-", RowBox[{"4", " ", "#1"}], "+", RowBox[{"2", " ", SuperscriptBox["#1", "2"]}], "+", SuperscriptBox["#1", "3"], "+", RowBox[{"4", " ", SuperscriptBox["#1", "4"]}], "+", RowBox[{"3", " ", SuperscriptBox["#1", "5"]}], "+", SuperscriptBox["#1", "6"]}], "&"}], ",", "5"}], "]"}]}], ",", RowBox[{"y", "\[Rule]", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{"3", "-", RowBox[{"3", " ", RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"1", "-", RowBox[{"4", " ", "#1"}], "+", RowBox[{"2", " ", SuperscriptBox["#1", "2"]}], "+", SuperscriptBox["#1", "3"], "+", RowBox[{"4", " ", SuperscriptBox["#1", "4"]}], "+", RowBox[{"3", " ", SuperscriptBox["#1", "5"]}], "+", SuperscriptBox["#1", "6"]}], "&"}], ",", "5"}], "]"}]}], "+", SuperscriptBox[ RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"1", "-", RowBox[{"4", " ", "#1"}], "+", RowBox[{"2", " ", SuperscriptBox["#1", "2"]}], "+", SuperscriptBox["#1", "3"], "+", RowBox[{"4", " ", SuperscriptBox["#1", "4"]}], "+", RowBox[{"3", " ", SuperscriptBox["#1", "5"]}], "+", SuperscriptBox["#1", "6"]}], "&"}], ",", "5"}], "]"}], "2"], "-", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"1", "-", RowBox[{"4", " ", "#1"}], "+", RowBox[{"2", " ", SuperscriptBox["#1", "2"]}], "+", SuperscriptBox["#1", "3"], "+", RowBox[{"4", " ", SuperscriptBox["#1", "4"]}], "+", RowBox[{"3", " ", SuperscriptBox["#1", "5"]}], "+", SuperscriptBox["#1", "6"]}], "&"}], ",", "5"}], "]"}], "3"]}], "-", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"1", "-", RowBox[{"4", " ", "#1"}], "+", RowBox[{"2", " ", SuperscriptBox["#1", "2"]}], "+", SuperscriptBox["#1", "3"], "+", RowBox[{"4", " ", SuperscriptBox["#1", "4"]}], "+", RowBox[{"3", " ", SuperscriptBox["#1", "5"]}], "+", SuperscriptBox["#1", "6"]}], "&"}], ",", "5"}], "]"}], "4"]}], "-", SuperscriptBox[ RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"1", "-", RowBox[{"4", " ", "#1"}], "+", RowBox[{"2", " ", SuperscriptBox["#1", "2"]}], "+", SuperscriptBox["#1", "3"], "+", RowBox[{"4", " ", SuperscriptBox["#1", "4"]}], "+", RowBox[{"3", " ", SuperscriptBox["#1", "5"]}], "+", SuperscriptBox["#1", "6"]}], "&"}], ",", "5"}], "]"}], "5"]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"1", "-", RowBox[{"4", " ", "#1"}], "+", RowBox[{"2", " ", SuperscriptBox["#1", "2"]}], "+", SuperscriptBox["#1", "3"], "+", RowBox[{"4", " ", SuperscriptBox["#1", "4"]}], "+", RowBox[{"3", " ", SuperscriptBox["#1", "5"]}], "+", SuperscriptBox["#1", "6"]}], "&"}], ",", "6"}], "]"}]}], ",", RowBox[{"y", "\[Rule]", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{"3", "-", RowBox[{"3", " ", RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"1", "-", RowBox[{"4", " ", "#1"}], "+", RowBox[{"2", " ", SuperscriptBox["#1", "2"]}], "+", SuperscriptBox["#1", "3"], "+", RowBox[{"4", " ", SuperscriptBox["#1", "4"]}], "+", RowBox[{"3", " ", SuperscriptBox["#1", "5"]}], "+", SuperscriptBox["#1", "6"]}], "&"}], ",", "6"}], "]"}]}], "+", SuperscriptBox[ RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"1", "-", RowBox[{"4", " ", "#1"}], "+", RowBox[{"2", " ", SuperscriptBox["#1", "2"]}], "+", SuperscriptBox["#1", "3"], "+", RowBox[{"4", " ", SuperscriptBox["#1", "4"]}], "+", RowBox[{"3", " ", SuperscriptBox["#1", "5"]}], "+", SuperscriptBox["#1", "6"]}], "&"}], ",", "6"}], "]"}], "2"], "-", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"1", "-", RowBox[{"4", " ", "#1"}], "+", RowBox[{"2", " ", SuperscriptBox["#1", "2"]}], "+", SuperscriptBox["#1", "3"], "+", RowBox[{"4", " ", SuperscriptBox["#1", "4"]}], "+", RowBox[{"3", " ", SuperscriptBox["#1", "5"]}], "+", SuperscriptBox["#1", "6"]}], "&"}], ",", "6"}], "]"}], "3"]}], "-", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"1", "-", RowBox[{"4", " ", "#1"}], "+", RowBox[{"2", " ", SuperscriptBox["#1", "2"]}], "+", SuperscriptBox["#1", "3"], "+", RowBox[{"4", " ", SuperscriptBox["#1", "4"]}], "+", RowBox[{"3", " ", SuperscriptBox["#1", "5"]}], "+", SuperscriptBox["#1", "6"]}], "&"}], ",", "6"}], "]"}], "4"]}], "-", SuperscriptBox[ RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"1", "-", RowBox[{"4", " ", "#1"}], "+", RowBox[{"2", " ", SuperscriptBox["#1", "2"]}], "+", SuperscriptBox["#1", "3"], "+", RowBox[{"4", " ", SuperscriptBox["#1", "4"]}], "+", RowBox[{"3", " ", SuperscriptBox["#1", "5"]}], "+", SuperscriptBox["#1", "6"]}], "&"}], ",", "6"}], "]"}], "5"]}], ")"}]}]}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.657861264603718*^9, 3.6578613683546515`*^9, 3.6578727709718437`*^9}] }, Open ]], Cell[BoxData[ StyleBox[ RowBox[{"N", "[", "%", "]"}], FontFamily->"Courier New", FontSize->24]], "Input", CellChangeTimes->{{3.623473503519126*^9, 3.623473520835156*^9}}], Cell[BoxData[ StyleBox[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", "0.32638236713558594`"}], ",", RowBox[{"y", "\[Rule]", "0.5078608171783358`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", "0.5078608171783358`"}], ",", RowBox[{"y", "\[Rule]", "0.326382367135586`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", RowBox[{ RowBox[{"-", "1.745431807680516`"}], "-", RowBox[{"1.20180340326451`", " ", "\[ImaginaryI]"}]}]}], ",", RowBox[{"y", "\[Rule]", RowBox[{ RowBox[{"-", "1.7454318076805162`"}], "+", RowBox[{"1.201803403264509`", " ", "\[ImaginaryI]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", RowBox[{ RowBox[{"-", "1.745431807680516`"}], "+", RowBox[{"1.20180340326451`", " ", "\[ImaginaryI]"}]}]}], ",", RowBox[{"y", "\[Rule]", RowBox[{ RowBox[{"-", "1.7454318076805162`"}], "-", RowBox[{"1.201803403264509`", " ", "\[ImaginaryI]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", RowBox[{ RowBox[{"-", "0.1716897844764448`"}], "-", RowBox[{"1.1462557248970762`", " ", "\[ImaginaryI]"}]}]}], ",", RowBox[{"y", "\[Rule]", RowBox[{ RowBox[{"-", "0.17168978447644512`"}], "+", RowBox[{"1.1462557248970762`", " ", "\[ImaginaryI]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", RowBox[{ RowBox[{"-", "0.1716897844764448`"}], "+", RowBox[{"1.1462557248970762`", " ", "\[ImaginaryI]"}]}]}], ",", RowBox[{"y", "\[Rule]", RowBox[{ RowBox[{"-", "0.17168978447644512`"}], "-", RowBox[{"1.1462557248970762`", " ", "\[ImaginaryI]"}]}]}]}], "}"}]}], "}"}], FontSize->18]], "Input", CellChangeTimes->{3.657872941172579*^9}], Cell[CellGroupData[{ Cell[BoxData[ StyleBox[ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"2", " ", RowBox[{"a", "[", "i", "]"}]}], "+", RowBox[{"a", "[", RowBox[{"i", "-", "1"}], "]"}]}], "\[Equal]", StyleBox[ RowBox[{"a", "[", RowBox[{"i", "+", "1"}], "]"}], FontFamily->"Courier New"]}], StyleBox[",", FontFamily->"Courier New"], StyleBox[ RowBox[{"{", RowBox[{"i", ",", "3"}], "}"}], FontFamily->"Courier New"]}], StyleBox["]", FontFamily->"Courier New"]}], FontSize->24]], "Input", CellChangeTimes->{{3.623473795754439*^9, 3.6234739001186223`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"a", "[", "0", "]"}], "+", RowBox[{"2", " ", RowBox[{"a", "[", "1", "]"}]}]}], "\[Equal]", RowBox[{"a", "[", "2", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"a", "[", "1", "]"}], "+", RowBox[{"2", " ", RowBox[{"a", "[", "2", "]"}]}]}], "\[Equal]", RowBox[{"a", "[", "3", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"a", "[", "2", "]"}], "+", RowBox[{"2", " ", RowBox[{"a", "[", "3", "]"}]}]}], "\[Equal]", RowBox[{"a", "[", "4", "]"}]}]}], "}"}]], "Output", CellChangeTimes->{3.657872999560919*^9}] }, Open ]], Cell[BoxData[ StyleBox[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"a", "[", "0", "]"}], "+", RowBox[{"2", " ", RowBox[{"a", "[", "1", "]"}]}]}], "\[Equal]", RowBox[{"a", "[", "2", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"a", "[", "1", "]"}], "+", RowBox[{"2", " ", RowBox[{"a", "[", "2", "]"}]}]}], "\[Equal]", RowBox[{"a", "[", "3", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"a", "[", "2", "]"}], "+", RowBox[{"2", " ", RowBox[{"a", "[", "3", "]"}]}]}], "\[Equal]", RowBox[{"a", "[", "4", "]"}]}]}], "}"}], FontFamily->"Courier New", FontSize->24, FontWeight->"Plain"]], "Input", CellChangeTimes->{3.623478826690706*^9}], Cell[BoxData[ StyleBox[ RowBox[{"Solve", "[", RowBox[{"%", ",", RowBox[{"{", RowBox[{ RowBox[{"a", "[", "1", "]"}], ",", RowBox[{"a", "[", "2", "]"}], ",", RowBox[{"a", "[", "3", "]"}]}], "}"}]}], "]"}], FontFamily->"Courier New", FontSize->24]], "Input", CellChangeTimes->{{3.6234739602099276`*^9, 3.6234739810359645`*^9}, { 3.6234740482252827`*^9, 3.623474085041347*^9}}], Cell[BoxData[ StyleBox[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"a", "[", "1", "]"}], "\[Rule]", RowBox[{ FractionBox["1", "12"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "5"}], " ", RowBox[{"a", "[", "0", "]"}]}], "+", RowBox[{"a", "[", "4", "]"}]}], ")"}]}]}], ",", RowBox[{ RowBox[{"a", "[", "2", "]"}], "\[Rule]", RowBox[{ FractionBox[ RowBox[{"a", "[", "0", "]"}], "6"], "+", FractionBox[ RowBox[{"a", "[", "4", "]"}], "6"]}]}], ",", RowBox[{ RowBox[{"a", "[", "3", "]"}], "\[Rule]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"a", "[", "0", "]"}], "12"]}], "+", FractionBox[ RowBox[{"5", " ", RowBox[{"a", "[", "4", "]"}]}], "12"]}]}]}], "}"}], "}"}], FontSize->18]], "Input", CellChangeTimes->{3.6578730491947575`*^9}], Cell[BoxData[ StyleBox[ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"2", StyleBox[ SubscriptBox["a", "i"], FontFamily->"Courier New"]}], "+", StyleBox[ SubscriptBox["a", RowBox[{"i", "-", "1"}]], FontFamily->"Courier New"]}], "\[Equal]", StyleBox[ SubscriptBox["a", RowBox[{"i", "+", "1"}]], FontFamily->"Courier New"]}], StyleBox[",", FontFamily->"Courier New"], StyleBox[ RowBox[{"{", RowBox[{"i", ",", "3"}], "}"}], FontFamily->"Courier New"]}], StyleBox["]", FontFamily->"Courier New"]}], FontSize->24]], "Input", CellChangeTimes->{{3.623474168892494*^9, 3.6234742301382017`*^9}}], Cell[BoxData[ StyleBox[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["a", "0"], "+", RowBox[{"2", " ", SubscriptBox["a", "1"]}]}], "\[Equal]", SubscriptBox["a", "2"]}], ",", RowBox[{ RowBox[{ SubscriptBox["a", "1"], "+", RowBox[{"2", " ", SubscriptBox["a", "2"]}]}], "\[Equal]", SubscriptBox["a", "3"]}], ",", RowBox[{ RowBox[{ SubscriptBox["a", "2"], "+", RowBox[{"2", " ", SubscriptBox["a", "3"]}]}], "\[Equal]", SubscriptBox["a", "4"]}]}], "}"}], FontFamily->"Courier New", FontSize->24, FontWeight->"Plain"]], "Input", CellChangeTimes->{3.6234789511945243`*^9}], Cell[BoxData[ StyleBox[ RowBox[{"Solve", "[", RowBox[{"%", ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"], ",", SubscriptBox["a", "3"]}], "}"}]}], "]"}], FontFamily->"Courier New", FontSize->24]], "Input", CellChangeTimes->{{3.6234741929321365`*^9, 3.6234741943361387`*^9}, { 3.623474244583827*^9, 3.623474281041091*^9}}], Cell[BoxData[ StyleBox[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["a", "1"], "\[Rule]", RowBox[{ FractionBox["1", "12"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "5"}], " ", SubscriptBox["a", "0"]}], "+", SubscriptBox["a", "4"]}], ")"}]}]}], ",", RowBox[{ SubscriptBox["a", "2"], "\[Rule]", RowBox[{ FractionBox[ SubscriptBox["a", "0"], "6"], "+", FractionBox[ SubscriptBox["a", "4"], "6"]}]}], ",", RowBox[{ SubscriptBox["a", "3"], "\[Rule]", RowBox[{ RowBox[{"-", FractionBox[ SubscriptBox["a", "0"], "12"]}], "+", FractionBox[ RowBox[{"5", " ", SubscriptBox["a", "4"]}], "12"]}]}]}], "}"}], "}"}], FontSize->18]], "Input", CellChangeTimes->{3.6578731210168657`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"A", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", RowBox[{"-", "5"}]}], "}"}]}], "}"}]}], FontFamily->"Courier New", FontSize->24], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.6578731629702654`*^9, 3.657873176831058*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", RowBox[{"-", "5"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.6578731781681347`*^9}] }, Open ]], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", StyleBox[ RowBox[{"MatrixForm", "[", "%", "]"}], FontSize->18]}]], "Input", CellChangeTimes->{{3.6578731813883185`*^9, 3.657873194330059*^9}}], Cell[BoxData[ StyleBox[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"3", "1"}, {"2", RowBox[{"-", "5"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], FontSize->18]], "Input", CellChangeTimes->{3.657873225604848*^9}], Cell[BoxData[{ StyleBox[ RowBox[{ RowBox[{"A", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", RowBox[{"-", "5"}]}], "}"}]}], "}"}]}], ";"}], FontFamily->"Courier New", FontSize->24], "\[IndentingNewLine]", StyleBox[ RowBox[{ RowBox[{"A", ".", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}], "\[Equal]", RowBox[{"{", RowBox[{"7", ",", "8"}], "}"}]}], FontFamily->"Courier New", FontSize->24]}], "Input", CellChangeTimes->{{3.6234743986808977`*^9, 3.6234744462453814`*^9}, { 3.6234745022026796`*^9, 3.6234745299551287`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ StyleBox[ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"3", " ", "x"}], "+", "y"}], ",", RowBox[{ RowBox[{"2", " ", "x"}], "-", RowBox[{"5", " ", "y"}]}]}], "}"}], "\[Equal]", RowBox[{"{", RowBox[{"7", ",", "8"}], "}"}]}], FontFamily->"Courier New", FontSize->24, FontWeight->"Plain"]], "Input", CellChangeTimes->{3.623479291182522*^9}], Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"3", " ", "x"}], "+", "y"}], ",", RowBox[{ RowBox[{"2", " ", "x"}], "-", RowBox[{"5", " ", "y"}]}]}], "}"}], "\[Equal]", RowBox[{"{", RowBox[{"7", ",", "8"}], "}"}]}]], "Output", CellChangeTimes->{3.6578732714544697`*^9}] }, Open ]], Cell[BoxData[ StyleBox[ RowBox[{"Solve", "[", RowBox[{"%", ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}], "]"}], FontFamily->"Courier New", FontSize->24]], "Input", CellChangeTimes->{{3.623474591778037*^9, 3.623474596395645*^9}}], Cell[BoxData[ StyleBox[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", FractionBox["43", "17"]}], ",", RowBox[{"y", "\[Rule]", RowBox[{"-", FractionBox["10", "17"]}]}]}], "}"}], "}"}], FontSize->18]], "Input", CellChangeTimes->{3.657873293285719*^9}], Cell[BoxData[ StyleBox[ RowBox[{"LogicalExpand", "[", "%%", "]"}], FontSize->24]], "Input", CellChangeTimes->{{3.6234747429891024`*^9, 3.6234747770439625`*^9}}], Cell[BoxData[ StyleBox[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"2", " ", "x"}], "-", RowBox[{"5", " ", "y"}]}], "\[Equal]", "8"}], "&&", RowBox[{ RowBox[{ RowBox[{"3", " ", "x"}], "+", "y"}], "\[Equal]", "7"}]}], FontFamily->"Courier New", FontSize->24, FontWeight->"Plain"]], "Input", CellChangeTimes->{3.6234794581496153`*^9}], Cell[BoxData[ StyleBox[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"ArcSin", "[", "x", "]"}], "\[Equal]", "a"}], ",", "x"}], "]"}], FontFamily->"Courier New", FontSize->24]], "Input", CellChangeTimes->{{3.623475088186509*^9, 3.6234751333797884`*^9}}], Cell[BoxData[ StyleBox[ RowBox[{"{", RowBox[{"{", RowBox[{"x", "\[Rule]", RowBox[{"Sin", "[", "a", "]"}]}], "}"}], "}"}], FontSize->24]], "Input", CellChangeTimes->{3.6578733828178396`*^9}], Cell[BoxData[ StyleBox[ RowBox[{"{", RowBox[{"{", RowBox[{"x", "\[Rule]", RowBox[{"Sin", "[", "a", "]"}]}], "}"}], "}"}], FontFamily->"Courier New", FontSize->24, FontWeight->"Plain"]], "Input", CellChangeTimes->{3.6234795651502028`*^9}], Cell[CellGroupData[{ Cell[BoxData[ StyleBox[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"Sin", "[", "x", "]"}], "\[Equal]", "a"}], ",", "x"}], "]"}], FontFamily->"Courier New", FontSize->24]], "Input", CellChangeTimes->{{3.623475187856084*^9, 3.6234751881836843`*^9}}], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"Solve", "::", "ifun"}], "MessageName"], RowBox[{ ":", " "}], "\<\"Inverse functions are being used by \ \[NoBreak]\\!\\(Solve\\)\[NoBreak], so some solutions may not be found; use \ Reduce for complete solution information. \\!\\(\\*ButtonBox[\\\"\ \[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \ ButtonData:>\\\"paclet:ref/message/Solve/ifun\\\", ButtonNote -> \ \\\"Solve::ifun\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{3.6234796127458863`*^9, 3.657873403688033*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"x", "\[Rule]", RowBox[{"ArcSin", "[", "a", "]"}]}], "}"}], "}"}]], "Output", CellChangeTimes->{3.6234796128082867`*^9, 3.6578734036910334`*^9}] }, Open ]], Cell[BoxData[ StyleBox[ RowBox[{"Reduce", "[", RowBox[{ RowBox[{ RowBox[{"Sin", "[", "x", "]"}], "\[Equal]", "a"}], ",", "x"}], "]"}], FontFamily->"Courier New", FontSize->24]], "Input", CellChangeTimes->{{3.623479737733306*^9, 3.62347973999531*^9}}], Cell[BoxData[ StyleBox[ RowBox[{ RowBox[{ RowBox[{"C", "[", "1", "]"}], "\[Element]", "Integers"}], "&&", RowBox[{"(", RowBox[{ RowBox[{"x", "\[Equal]", RowBox[{"\[Pi]", "-", RowBox[{"ArcSin", "[", "a", "]"}], "+", RowBox[{"2", " ", "\[Pi]", " ", RowBox[{"C", "[", "1", "]"}]}]}]}], "||", RowBox[{"x", "\[Equal]", RowBox[{ RowBox[{"ArcSin", "[", "a", "]"}], "+", RowBox[{"2", " ", "\[Pi]", " ", RowBox[{"C", "[", "1", "]"}]}]}]}]}], ")"}]}], FontSize->24]], "Input", CellChangeTimes->{3.657873451232753*^9}], Cell[BoxData[ StyleBox[ RowBox[{"Reduce", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"x", "^", "2"}], "-", RowBox[{"7", RowBox[{"y", "^", "2"}]}]}], "\[Equal]", "1"}], "&&", RowBox[{"x", ">", "0"}], "&&", RowBox[{"y", ">", "0"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", "Integers"}], "]"}], FontSize->24]], "Input", CellChangeTimes->{{3.6578735066829243`*^9, 3.657873617343254*^9}, 3.6578737799505544`*^9}], Cell[BoxData[ StyleBox[ RowBox[{ RowBox[{ RowBox[{"C", "[", "1", "]"}], "\[Element]", "Integers"}], "&&", RowBox[{ RowBox[{"C", "[", "1", "]"}], "\[GreaterEqual]", "1"}], "&&", RowBox[{"x", "\[Equal]", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"8", "-", RowBox[{"3", " ", SqrtBox["7"]}]}], ")"}], RowBox[{"C", "[", "1", "]"}]], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"8", "+", RowBox[{"3", " ", SqrtBox["7"]}]}], ")"}], RowBox[{"C", "[", "1", "]"}]]}], ")"}]}]}], "&&", RowBox[{"y", "\[Equal]", RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"8", "-", RowBox[{"3", " ", SqrtBox["7"]}]}], ")"}], RowBox[{"C", "[", "1", "]"}]], "-", SuperscriptBox[ RowBox[{"(", RowBox[{"8", "+", RowBox[{"3", " ", SqrtBox["7"]}]}], ")"}], RowBox[{"C", "[", "1", "]"}]]}], RowBox[{"2", " ", SqrtBox["7"]}]]}]}]}], FontSize->24]], "Input", CellChangeTimes->{3.6578737941513667`*^9}] }, WindowSize->{1264, 633}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, FrontEndVersion->"8.0 for Microsoft Windows (64-bit) (November 7, 2010)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[579, 22, 385, 11, 42, "Input"], Cell[967, 35, 164, 4, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1168, 44, 323, 9, 42, "Input"], Cell[1494, 55, 209, 5, 30, "Output"] }, Open ]], Cell[1718, 63, 421, 14, 37, "Input"], Cell[CellGroupData[{ Cell[2164, 81, 579, 20, 42, "Input"], Cell[2746, 103, 503, 16, 47, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3286, 124, 521, 17, 42, "Input"], Cell[3810, 143, 610, 22, 50, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4457, 170, 210, 6, 42, "Input"], Cell[4670, 178, 258, 9, 54, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4965, 192, 593, 18, 52, "Input"], Cell[5561, 212, 342, 11, 47, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[5940, 228, 530, 18, 42, "Input"], Cell[6473, 248, 300, 9, 33, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6810, 262, 506, 18, 42, "Input"], Cell[7319, 282, 279, 9, 33, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[7635, 296, 327, 10, 42, "Input"], Cell[7965, 308, 140, 3, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8142, 316, 374, 11, 42, "Input"], Cell[8519, 329, 175, 4, 30, "Output"] }, Open ]], Cell[8709, 336, 237, 8, 42, "Input"], Cell[CellGroupData[{ Cell[8971, 348, 325, 11, 42, "Input"], Cell[9299, 361, 390, 12, 47, "Output"] }, Open ]], Cell[9704, 376, 456, 16, 64, "Input"], Cell[CellGroupData[{ Cell[10185, 396, 330, 12, 42, "Input"], Cell[10518, 410, 665, 22, 56, "Output"] }, Open ]], Cell[11198, 435, 743, 26, 80, "Input"], Cell[CellGroupData[{ Cell[11966, 465, 492, 16, 42, "Input"], Cell[12461, 483, 538, 19, 47, "Output"] }, Open ]], Cell[13014, 505, 637, 23, 64, "Input"], Cell[CellGroupData[{ Cell[13676, 532, 495, 16, 42, "Input"], Cell[14174, 550, 1189, 41, 46, "Output"] }, Open ]], Cell[15378, 594, 1309, 43, 89, "Input"], Cell[CellGroupData[{ Cell[16712, 641, 439, 13, 42, "Input"], Cell[17154, 656, 1098, 39, 55, "Output"] }, Open ]], Cell[18267, 698, 1307, 43, 89, "Input"], Cell[CellGroupData[{ Cell[19599, 745, 364, 11, 42, "Input"], Cell[19966, 758, 225, 6, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[20228, 769, 338, 10, 54, "Input"], Cell[20569, 781, 3448, 112, 131, "Output"] }, Open ]], Cell[24032, 896, 156, 3, 52, "Input"], Cell[24191, 901, 724, 21, 66, InheritFromParent], Cell[CellGroupData[{ Cell[24940, 926, 473, 14, 54, "Input"], Cell[25416, 942, 9772, 166, 385, "Output"] }, Open ]], Cell[35203, 1111, 378, 12, 54, "Input"], Cell[35584, 1125, 455, 14, 37, InheritFromParent], Cell[CellGroupData[{ Cell[36064, 1143, 619, 19, 42, "Input"], Cell[36686, 1164, 21590, 586, 409, "Output"] }, Open ]], Cell[58291, 1753, 178, 5, 42, "Input"], Cell[58472, 1760, 2003, 57, 145, InheritFromParent], Cell[CellGroupData[{ Cell[60500, 1821, 658, 23, 42, "Input"], Cell[61161, 1846, 650, 21, 30, "Output"] }, Open ]], Cell[61826, 1870, 749, 25, 42, "Input"], Cell[62578, 1897, 418, 12, 42, "Input"], Cell[62999, 1911, 962, 32, 60, InheritFromParent], Cell[63964, 1945, 742, 27, 42, "Input"], Cell[64709, 1974, 697, 25, 42, "Input"], Cell[65409, 2001, 398, 12, 42, "Input"], Cell[65810, 2015, 908, 32, 60, InheritFromParent], Cell[CellGroupData[{ Cell[66743, 2051, 399, 13, 58, "Input"], Cell[67145, 2066, 236, 8, 30, "Output"] }, Open ]], Cell[67396, 2077, 198, 5, 52, "Input"], Cell[67597, 2084, 694, 21, 68, InheritFromParent], Cell[68294, 2107, 675, 23, 62, "Input"], Cell[CellGroupData[{ Cell[68994, 2134, 410, 15, 42, "Input"], Cell[69407, 2151, 323, 11, 30, "Output"] }, Open ]], Cell[69745, 2165, 257, 8, 42, "Input"], Cell[70005, 2175, 310, 11, 60, InheritFromParent], Cell[70318, 2188, 166, 4, 42, "Input"], Cell[70487, 2194, 365, 13, 42, "Input"], Cell[70855, 2209, 276, 8, 42, "Input"], Cell[71134, 2219, 210, 7, 42, InheritFromParent], Cell[71347, 2228, 262, 9, 42, "Input"], Cell[CellGroupData[{ Cell[71634, 2241, 273, 8, 42, "Input"], Cell[71910, 2251, 555, 11, 21, "Message"], Cell[72468, 2264, 206, 5, 30, "Output"] }, Open ]], Cell[72689, 2272, 271, 8, 42, "Input"], Cell[72963, 2282, 603, 18, 42, InheritFromParent], Cell[73569, 2302, 505, 16, 42, "Input"], Cell[74077, 2320, 1258, 43, 177, InheritFromParent] } ] *) (* End of internal cache information *)