(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    128292,       3822]
NotebookOptionsPosition[    117199,       3442]
NotebookOutlinePosition[    117833,       3469]
CellTagsIndexPosition[    117737,       3463]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[TextData[{
 StyleBox["M",
  FontSize->12],
 StyleBox["athematica",
  FontSize->12,
  FontSlant->"Italic"],
 StyleBox["l and visualizaton packages: ",
  FontSize->12],
 StyleBox["Mathematica",
  FontSize->12,
  FontSlant->"Italic"]
}], "MainTitle",
 CellMargins->{{24.375, 31.375}, {4., 4.}},
 CellChangeTimes->{{3.3991807872930174`*^9, 3.3991809225074463`*^9}, {
   3.3992213137786493`*^9, 3.3992213656832848`*^9}, {3.399307715630843*^9, 
   3.399307715630843*^9}, {3.4063082555888815`*^9, 3.406308278361627*^9}, {
   3.4063083791665773`*^9, 3.4063083851952467`*^9}, {3.4063084779586334`*^9, 
   3.4063084969859934`*^9}, {3.406308528010605*^9, 3.406308549841997*^9}, {
   3.4063086072144947`*^9, 3.4063086153061295`*^9}, {3.4063086512478113`*^9, 
   3.406308683844683*^9}, {3.406308715990907*^9, 3.4063088223238063`*^9}, {
   3.4063088667677135`*^9, 3.4063092195950546`*^9}, {3.406309421555459*^9, 
   3.406309470836322*^9}, {3.406309518414736*^9, 3.4063095560588655`*^9}, {
   3.4063156648929377`*^9, 3.406315673835797*^9}, 3.406315844120654*^9, {
   3.494181972140625*^9, 3.494181972625*^9}, {3.562090305313267*^9, 
   3.5620903203204937`*^9}, {3.562091373483588*^9, 3.5620913744351892`*^9}, {
   3.5779411547671924`*^9, 3.577941155907194*^9}},
 TextAlignment->Center,
 TextJustification->0.],

Cell["Solving Equations and Inequalities", "Subtitle",
 CellChangeTimes->{{3.413043351389821*^9, 3.4130433556158977`*^9}, {
  3.5994118592464848`*^9, 3.5994118648864927`*^9}},
 CellTags->"1.4.5"],

Cell[TextData[{
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " Tutorials"
}], "Th-Env",
 CellChangeTimes->{{3.599410638913776*^9, 3.599410646203786*^9}, {
  3.5994857367000623`*^9, 3.599485739680066*^9}}],

Cell[CellGroupData[{

Cell[TextData[ButtonBox["Polynomial Equations",
 BaseStyle->"Link",
 ButtonData->"paclet:guide/PolynomialEquations"]], "Item",
 CellChangeTimes->{{3.599137982846159*^9, 3.5991380038761883`*^9}}],

Cell[TextData[ButtonBox["Manipulating Equations and Inequalities",
 BaseStyle->"Link",
 ButtonData->
  "paclet:tutorial/ManipulatingEquationsAndInequalitiesOverview"]], "Item",
 CellID->6804882],

Cell[TextData[ButtonBox["The Representation of Solution Sets",
 BaseStyle->"Hyperlink",
 ButtonData->{
  "paclet:tutorial/TheRepresentationOfSolutionSets", None}]], "Item",
 CellChangeTimes->{{3.599120652350806*^9, 3.5991207032108774`*^9}}],

Cell[TextData[{
 ButtonBox["Using Assumptions",
  BaseStyle->"Link",
  ButtonData->"paclet:tutorial/UsingAssumptions"],
 " "
}], "Item",
 CellChangeTimes->{{3.5998456554022894`*^9, 3.5998456956123457`*^9}}],

Cell[TextData[ButtonBox["Assumptions and Domains",
 BaseStyle->"Link",
 ButtonData->"paclet:guide/AssumptionsAndDomains"]], "Item",
 CellChangeTimes->{{3.5998456554022894`*^9, 3.5998457437824135`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Equations", "MainSection",
 CellChangeTimes->{{3.413043362395646*^9, 3.4130433672426157`*^9}}],

Cell[TextData[{
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " is able to solve equations, systems of equations either formally or \
numerically. First of all, it is necessary to write equations:"
}], "Text",
 CellChangeTimes->{{3.4130432311869774`*^9, 3.413043334395384*^9}}],

Cell[TextData[{
 StyleBox["left-hand-side ",
  FontWeight->"Bold"],
 StyleBox["==",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[" right-hand-side",
  FontWeight->"Bold"]
}], "1ColumnBox",
 CellMargins->{{101, 237}, {Inherited, Inherited}},
 CellChangeTimes->{3.5628667520688224`*^9},
 TextAlignment->Center,
 TextJustification->0],

Cell["\<\
The left - and right - hand - sides are separated by  \"==\". Remember:\
\>", "Text",
 CellChangeTimes->{{3.4130433968251534`*^9, 3.4130434296223135`*^9}, {
  3.4130434689588766`*^9, 3.413043495927656*^9}}],

Cell[TextData[StyleBox["\t=\tSet\n\t==\tEquation\n\t===\ttest the equality",
 FontWeight->"Bold",
 FontColor->GrayLevel[0]]], "1ColumnBox",
 CellMargins->{{101, 237}, {Inherited, Inherited}},
 CellChangeTimes->{{3.5628667520688224`*^9, 3.562866828165756*^9}}],

Cell["\<\
Forgetting it in an equation can result in unexpected and sometimes \
misterious errors!\
\>", "Text",
 CellChangeTimes->{{3.4130436030717216`*^9, 3.4130436610751266`*^9}}],

Cell[CellGroupData[{

Cell["Special cases", "Section",
 CellChangeTimes->{{3.41304391387864*^9, 3.413043916692686*^9}}],

Cell[CellGroupData[{

Cell["Single Equations", "Subsection"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{"a", ",", "b", ",", "c", ",", "x"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"eqn1", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"a", " ", 
     RowBox[{"x", "^", "2"}]}], "+", 
    RowBox[{"b", " ", "x"}], "+", "c"}], "==", "1"}]}]}], "Input",
 CellChangeTimes->{{3.36084073291042*^9, 3.36084074076171*^9}, 
   3.36262731677806*^9, 3.4130439388245106`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"c", "+", 
   RowBox[{"b", " ", "x"}], "+", 
   RowBox[{"a", " ", 
    SuperscriptBox["x", "2"]}]}], "\[Equal]", "1"}]], "Output",
 CellChangeTimes->{{3.36068846318321*^9, 3.3606884921749*^9}, {
   3.36084068944793*^9, 3.36084070659258*^9}, 3.36084074149276*^9, {
   3.36262730188664*^9, 3.36262731772943*^9}, 3.399187507265864*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Systems (list) of equations", "Subsection",
 CellChangeTimes->{{3.413043965572973*^9, 3.413043974996523*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"eqnlist", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"2", " ", 
        SuperscriptBox["x", "2"]}], "+", "y"}], "==", "1"}], ",", 
     RowBox[{
      RowBox[{"x", "+", 
       RowBox[{"2", "y"}]}], "==", "2"}]}], "}"}]}], ";"}]], "Input"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Vectorial equations", "Subsection",
 CellChangeTimes->{{3.413043965572973*^9, 3.413043974996523*^9}, {
  3.4130441552056513`*^9, 3.413044158300101*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fvec", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      SuperscriptBox["x", "2"], "+", "y"}], ",", 
     RowBox[{"x", "-", 
      RowBox[{"4", " ", "y"}]}]}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"val", "=", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1"}], "}"}]}], ";"}]}], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fvec", "==", "val"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     SuperscriptBox["x", "2"], "+", "y"}], ",", 
    RowBox[{"x", "-", 
     RowBox[{"4", " ", "y"}]}]}], "}"}], "\[Equal]", 
  RowBox[{"{", 
   RowBox[{"1", ",", "1"}], "}"}]}]], "Output",
 CellChangeTimes->{
  3.36068852598351*^9, {3.36084076350441*^9, 3.36084076701947*^9}, 
   3.3991875315908413`*^9, 3.413044856053421*^9}]
}, Open  ]],

Cell["\<\
 Sometimes it is useful to convert the vectorial equation to a system. Now, \
accept the following statement without explanation (later, when learning the \
list programming, we consider it):\
\>", "Text",
 CellChangeTimes->{{3.41304477311416*^9, 3.4130448403207984`*^9}, {
  3.413044872336835*^9, 3.413044937871069*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Thread", "[", 
  RowBox[{"fvec", "==", "val"}], "]"}]], "Input",
 CellChangeTimes->{{3.413044843785781*^9, 3.4130448620420322`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["x", "2"], "+", "y"}], "\[Equal]", "1"}], ",", 
   RowBox[{
    RowBox[{"x", "-", 
     RowBox[{"4", " ", "y"}]}], "\[Equal]", "1"}]}], "}"}]], "Output",
 CellChangeTimes->{3.4130448625427523`*^9}]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Eliminating a variable", "MainSection",
 CellChangeTimes->{{3.599412707928673*^9, 3.5994127208786907`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Eliminate", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Equal]", 
      RowBox[{"2", "+", "y"}]}], ",", 
     RowBox[{"y", "\[Equal]", "z"}]}], "}"}], ",", "y"}], "]"}]], "Input",
 CellID->368399657],

Cell[BoxData[
 RowBox[{
  RowBox[{"2", "+", "z"}], "\[Equal]", "x"}]], "Output",
 CellChangeTimes->{3.5994127299787035`*^9},
 ImageSize->{56, 15},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Eliminate", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"x", "^", "2"}], "+", 
      RowBox[{"y", "^", "2"}], "+", 
      RowBox[{"z", "^", "2"}]}], "\[Equal]", "1"}], "&&", 
    RowBox[{
     RowBox[{"x", "-", "y", "+", "z"}], "\[Equal]", "2"}], "&&", 
    RowBox[{
     RowBox[{
      RowBox[{"x", "^", "3"}], "-", 
      RowBox[{"y", "^", "2"}]}], "\[Equal]", 
     RowBox[{"z", "+", "1"}]}]}], ",", "z"}], "]"}]], "Input",
 CellID->903256584],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", "18"}], " ", "x"}], "+", 
    RowBox[{"4", " ", 
     SuperscriptBox["x", "2"]}], "-", 
    RowBox[{"28", " ", 
     SuperscriptBox["x", "3"]}], "+", 
    RowBox[{"8", " ", 
     SuperscriptBox["x", "4"]}], "+", 
    RowBox[{"4", " ", 
     SuperscriptBox["x", "5"]}], "+", 
    RowBox[{"4", " ", 
     SuperscriptBox["x", "6"]}]}], "\[Equal]", 
   RowBox[{"-", "27"}]}], "&&", 
  RowBox[{"y", "\[Equal]", 
   RowBox[{
    RowBox[{"-", "12"}], "-", 
    RowBox[{"2", " ", "x"}], "-", 
    RowBox[{"5", " ", 
     SuperscriptBox["x", "2"]}], "+", 
    RowBox[{"8", " ", 
     SuperscriptBox["x", "3"]}], "+", 
    RowBox[{"4", " ", 
     SuperscriptBox["x", "4"]}], "+", 
    RowBox[{"2", " ", 
     SuperscriptBox["x", "5"]}]}]}]}]], "Output",
 CellChangeTimes->{3.5994127490887303`*^9},
 ImageSize->{504, 15},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Eliminate", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"x", "^", "2"}], "+", 
      RowBox[{"y", "^", "2"}], "+", 
      RowBox[{"z", "^", "2"}]}], "\[Equal]", "1"}], "&&", 
    RowBox[{
     RowBox[{"x", "-", "y", "+", "z"}], "\[Equal]", "2"}], "&&", 
    RowBox[{
     RowBox[{
      RowBox[{"x", "^", "3"}], "-", 
      RowBox[{"y", "^", "2"}]}], "\[Equal]", 
     RowBox[{"z", "+", "1"}]}]}], ",", 
   RowBox[{"{", 
    RowBox[{"y", ",", "z"}], "}"}]}], "]"}]], "Input",
 CellID->157418400],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"-", "18"}], " ", "x"}], "+", 
   RowBox[{"4", " ", 
    SuperscriptBox["x", "2"]}], "-", 
   RowBox[{"28", " ", 
    SuperscriptBox["x", "3"]}], "+", 
   RowBox[{"8", " ", 
    SuperscriptBox["x", "4"]}], "+", 
   RowBox[{"4", " ", 
    SuperscriptBox["x", "5"]}], "+", 
   RowBox[{"4", " ", 
    SuperscriptBox["x", "6"]}]}], "\[Equal]", 
  RowBox[{"-", "27"}]}]], "Output",
 ImageSize->{263, 15},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellID->150236073]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Eliminate", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Sin", "[", 
      RowBox[{"x", "+", "y"}], "]"}], "\[Equal]", "1"}], "&&", 
    RowBox[{
     RowBox[{"Cos", "[", 
      RowBox[{"x", "-", "y"}], "]"}], "\[Equal]", "2"}]}], ",", "y"}], 
  "]"}]], "Input",
 CellID->85310987],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Eliminate", "::", "ifun"}], "MessageName"], ":", 
  " ", "\<\"Inverse functions are being used by \[NoBreak]\\!\\(Eliminate\\)\
\[NoBreak], so some solutions may not be found; use Reduce for complete \
solution information. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/Eliminate/ifun\\\", ButtonNote -> \
\\\"Eliminate::ifun\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.5994127812087755`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"2", " ", "x"}], "-", 
    RowBox[{"ArcCos", "[", "2", "]"}]}], "\[Equal]", 
   FractionBox["\[Pi]", "2"]}], "||", 
  RowBox[{
   RowBox[{
    RowBox[{"2", " ", "x"}], "+", 
    RowBox[{"ArcCos", "[", "2", "]"}]}], "\[Equal]", 
   RowBox[{"-", 
    FractionBox["\[Pi]", "2"]}]}]}]], "Output",
 CellChangeTimes->{3.5994127812087755`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"inp", "=", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"x", "^", "2"}], "+", 
      RowBox[{"y", "^", "2"}], "+", 
      RowBox[{"z", "^", "2"}]}], "\[Equal]", "1"}], "&&", 
    RowBox[{
     RowBox[{"x", "-", "y", "+", "z"}], "\[Equal]", "2"}], "&&", 
    RowBox[{
     RowBox[{
      RowBox[{"x", "^", "3"}], "-", 
      RowBox[{"y", "^", "2"}]}], "\[Equal]", 
     RowBox[{"z", "+", "1"}]}]}]}], ";"}], "\n", 
 RowBox[{"out", "=", 
  RowBox[{"Eliminate", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"x", "^", "2"}], "+", 
       RowBox[{"y", "^", "2"}], "+", 
       RowBox[{"z", "^", "2"}]}], "\[Equal]", "1"}], "&&", 
     RowBox[{
      RowBox[{"x", "-", "y", "+", "z"}], "\[Equal]", "2"}], "&&", 
     RowBox[{
      RowBox[{
       RowBox[{"x", "^", "3"}], "-", 
       RowBox[{"y", "^", "2"}]}], "\[Equal]", 
      RowBox[{"z", "+", "1"}]}]}], ",", "z"}], "]"}]}]}], "Input",
 CellID->893844131],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", "18"}], " ", "x"}], "+", 
    RowBox[{"4", " ", 
     SuperscriptBox["x", "2"]}], "-", 
    RowBox[{"28", " ", 
     SuperscriptBox["x", "3"]}], "+", 
    RowBox[{"8", " ", 
     SuperscriptBox["x", "4"]}], "+", 
    RowBox[{"4", " ", 
     SuperscriptBox["x", "5"]}], "+", 
    RowBox[{"4", " ", 
     SuperscriptBox["x", "6"]}]}], "\[Equal]", 
   RowBox[{"-", "27"}]}], "&&", 
  RowBox[{"y", "\[Equal]", 
   RowBox[{
    RowBox[{"-", "12"}], "-", 
    RowBox[{"2", " ", "x"}], "-", 
    RowBox[{"5", " ", 
     SuperscriptBox["x", "2"]}], "+", 
    RowBox[{"8", " ", 
     SuperscriptBox["x", "3"]}], "+", 
    RowBox[{"4", " ", 
     SuperscriptBox["x", "4"]}], "+", 
    RowBox[{"2", " ", 
     SuperscriptBox["x", "5"]}]}]}]}]], "Output",
 ImageSize->{504, 15},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellID->802223497]
}, Open  ]],

Cell[TextData[{
 "Use ",
 Cell[BoxData["Resolve"], "InlineFormula"],
 " to check this property:"
}], "ExampleText",
 CellChangeTimes->{{3.5994128855389214`*^9, 3.599412887958925*^9}},
 CellID->128224251],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Resolve", "[", 
  RowBox[{"ForAll", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"x", ",", "y", ",", "z"}], "}"}], ",", 
    RowBox[{"Implies", "[", 
     RowBox[{"inp", ",", "out"}], "]"}]}], "]"}], "]"}]], "Input",
 CellID->404930390],

Cell[BoxData["True"], "Output",
 ImageSize->{32, 15},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellID->53858810]
}, Open  ]],

Cell[CellGroupData[{

Cell["Options of eliminate", "Section",
 CellChangeTimes->{{3.599412707928673*^9, 3.5994127208786907`*^9}, {
  3.5994859621503778`*^9, 3.5994859699403887`*^9}}],

Cell["\<\
The options are either technical or interested is specific areas. Their \
meainig is quite obvious. See the Documentation Center.\
\>", "Text",
 CellChangeTimes->{{3.5994860646605215`*^9, 3.5994861675506654`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Options", "[", "Eliminate", "]"}], "//", "TableForm"}]], "Input",
 CellChangeTimes->{{3.5994859741403947`*^9, 3.5994859901904173`*^9}}],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"InverseFunctions", "\[Rule]", "Automatic"}]},
     {
      RowBox[{"MakeRules", "\[Rule]", "False"}]},
     {
      RowBox[{"Method", "\[Rule]", "1"}]},
     {
      RowBox[{"Mode", "\[Rule]", "Generic"}]},
     {
      RowBox[{"Sort", "\[Rule]", "True"}]},
     {
      RowBox[{"VerifySolutions", "\[Rule]", "Automatic"}]},
     {
      RowBox[{"WorkingPrecision", "\[Rule]", "\[Infinity]"}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.599485983110407*^9, 3.5994859910304184`*^9}}]
}, Open  ]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Formal solution: Solve", "MainSection",
 CellChangeTimes->{{3.413044288266984*^9, 3.4130442930138097`*^9}}],

Cell[TextData[{
 "The Solve statement ",
 "attempts to solve an equation or set of equations formally for the \
variables ",
 Cell[BoxData[
  StyleBox["vars", "TI"]], "InlineFormula"],
 ". "
}], "Text",
 CellChangeTimes->{{3.4130442390261793`*^9, 3.4130442733455276`*^9}}],

Cell[TextData[{
 StyleBox["\t",
  FontWeight->"Bold",
  FontColor->GrayLevel[0]],
 StyleBox[Cell[BoxData[GridBox[{
    {
     RowBox[{
      ButtonBox["Solve",
       BaseStyle->"RefGuideLink"], "[", 
      RowBox[{"eqn", ",", "var"}], "]"}]},
    {
     RowBox[{"Solve", "[", 
      RowBox[{"eqns", ",", " ", "varist"}], "]"}]}
   }]], "TextBox"], "TextBox"]
}], "1ColumnBox",
 CellMargins->{{101, 237}, {Inherited, Inherited}},
 CellChangeTimes->{{3.5628667520688224`*^9, 3.562866828165756*^9}, 
   3.5628668672906246`*^9}],

Cell[CellGroupData[{

Cell["Basic example", "Section",
 CellChangeTimes->{{3.4130444622571697`*^9, 3.413044463969632*^9}, {
  3.413044517096024*^9, 3.4130445224437137`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{"eqn1", ",", "x"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     FractionBox[
      RowBox[{
       RowBox[{"-", "b"}], "-", 
       SqrtBox[
        RowBox[{
         RowBox[{"4", " ", "a"}], "+", 
         SuperscriptBox["b", "2"], "-", 
         RowBox[{"4", " ", "a", " ", "c"}]}]]}], 
      RowBox[{"2", " ", "a"}]]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     FractionBox[
      RowBox[{
       RowBox[{"-", "b"}], "+", 
       SqrtBox[
        RowBox[{
         RowBox[{"4", " ", "a"}], "+", 
         SuperscriptBox["b", "2"], "-", 
         RowBox[{"4", " ", "a", " ", "c"}]}]]}], 
      RowBox[{"2", " ", "a"}]]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.36068849805335*^9, {3.36084070075418*^9, 3.36084070881578*^9}, 
   3.36084074405645*^9, 3.36262732702279*^9, 3.3991875094790463`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{"eqn1", ",", "a"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"a", "\[Rule]", 
    FractionBox[
     RowBox[{"1", "-", "c", "-", 
      RowBox[{"b", " ", "x"}]}], 
     SuperscriptBox["x", "2"]]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{3.36068850046682*^9, 3.3608407459692*^9, 
  3.36262732895557*^9, 3.399187512002675*^9}]
}, Open  ]],

Cell[TextData[StyleBox["Unusual and Great:\nThe result of Solve and all \
thsolvers (!!!) is given as a list of transformation rules.",
 FontWeight->"Bold"]], "Text-Framed",
 CellMargins->{{69, 63}, {2, 2}},
 CellChangeTimes->{{3.413044406026314*^9, 3.4130444441911917`*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["Application of the rule-formed results", "Section",
 CellChangeTimes->{{3.4130445414410305`*^9, 3.4130445610291967`*^9}, {
  3.4130447197974944`*^9, 3.4130447218804893`*^9}}],

Cell[TextData[{
 "Find the extremal values of the given third order function. We can do it \
very simply. First find the roots of the equation ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"f", "'"}], 
     RowBox[{"(", "x", ")"}]}], "==", "0"}], TraditionalForm]]],
 ", and the subtitute the roots into ",
 Cell[BoxData[
  FormBox[
   RowBox[{"f", "(", "x", ")"}], TraditionalForm]]],
 "."
}], "Text",
 CellChangeTimes->{{3.4130445655557055`*^9, 3.4130446659300365`*^9}}],

Cell[BoxData[{
 RowBox[{"Clear", "[", "f", "]"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "x_", "]"}], ":=", 
   RowBox[{
    SuperscriptBox["x", "3"], "-", 
    RowBox[{"3", " ", 
     SuperscriptBox["x", "2"]}], "-", 
    RowBox[{"2", " ", "x"}], "-", "1"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.4130446148265533`*^9, 3.4130446217865615`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"extrval", "=", 
  RowBox[{"Simplify", "[", 
   RowBox[{
    RowBox[{"f2", "[", "x", "]"}], "/.", "\[InvisibleSpace]", 
    RowBox[{"Solve", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        SuperscriptBox["f", "\[Prime]",
         MultilineFunction->None], "[", "x", "]"}], "\[Equal]", "0"}], ",", 
      "x"}], "]"}]}], "]"}]}]], "Input",
 CellChangeTimes->{3.4130447041349726`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    FractionBox["5", "9"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "9"}], "+", 
      RowBox[{"2", " ", 
       SqrtBox["15"]}]}], ")"}]}], ",", 
   RowBox[{
    RowBox[{"-", 
     FractionBox["5", "9"]}], " ", 
    RowBox[{"(", 
     RowBox[{"9", "+", 
      RowBox[{"2", " ", 
       SqrtBox["15"]}]}], ")"}]}]}], "}"}]], "Output",
 CellChangeTimes->{3.36068851126235*^9, 3.36084075615384*^9, 
  3.36262733725751*^9, 3.399187520374714*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Example for sets of Equations", "Section",
 CellChangeTimes->{{3.4130449824251347`*^9, 3.413044986100419*^9}},
 CellTags->"i:124"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"eqnlist", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"2", " ", 
        SuperscriptBox["x", "2"]}], "+", "y"}], "==", "1"}], ",", 
     RowBox[{
      RowBox[{"x", "+", 
       RowBox[{"2", "y"}]}], "==", "2"}]}], "}"}]}], ";"}], "\n", 
 RowBox[{"Simplify", "[", 
  RowBox[{"Solve", "[", 
   RowBox[{"eqnlist", ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "y"}], "}"}]}], "]"}], "]"}]}], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"y", "\[Rule]", 
      FractionBox["7", "8"]}], ",", 
     RowBox[{"x", "\[Rule]", 
      FractionBox["1", "4"]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"y", "\[Rule]", "1"}], ",", 
     RowBox[{"x", "\[Rule]", "0"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.36068851663006*^9, 3.3608407581367*^9, 
  3.36262733926039*^9, 3.399187522397622*^9, 3.413044731173853*^9, 
  3.4130449913679934`*^9}]
}, Open  ]],

Cell["You can also try to eliminate one of the variables :", "Text",
 CellChangeTimes->{{3.41304499952973*^9, 3.413045018146499*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  StyleBox["Eliminate",
   FontColor->RGBColor[1, 0, 0]], "[", 
  RowBox[{"eqnlist", ",", "x"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"-", "15"}], " ", "y"}], "+", 
   RowBox[{"8", " ", 
    SuperscriptBox["y", "2"]}]}], "\[Equal]", 
  RowBox[{"-", "7"}]}]], "Output",
 CellChangeTimes->{3.36068851873309*^9, 3.36084076015961*^9, 
  3.3626273409428*^9, 3.399187524740992*^9, 3.4130447331667185`*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Solve a vectorial equation", "Section",
 CellChangeTimes->{{3.413045048560232*^9, 3.4130450628107233`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fvec", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"x", "^", "2"}], "+", "y"}], ",", 
     RowBox[{"x", "-", 
      RowBox[{"4", "y"}]}]}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"val", "=", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1"}], "}"}]}], ";"}]}], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fvec", "==", "val"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     SuperscriptBox["x", "2"], "+", "y"}], ",", 
    RowBox[{"x", "-", 
     RowBox[{"4", " ", "y"}]}]}], "}"}], "\[Equal]", 
  RowBox[{"{", 
   RowBox[{"1", ",", "1"}], "}"}]}]], "Output",
 CellChangeTimes->{
  3.36068852598351*^9, {3.36084076350441*^9, 3.36084076701947*^9}, 
   3.3991875315908413`*^9, 3.41304507020135*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{"fvec", "==", "val"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "y"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"y", "\[Rule]", 
      RowBox[{"-", 
       FractionBox["9", "16"]}]}], ",", 
     RowBox[{"x", "\[Rule]", 
      RowBox[{"-", 
       FractionBox["5", "4"]}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"y", "\[Rule]", "0"}], ",", 
     RowBox[{"x", "\[Rule]", "1"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.36068852835693*^9, 3.36084076919259*^9, 
  3.3991875335436497`*^9, 3.413045073275771*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Eliminate", "[", 
  RowBox[{
   RowBox[{"fvec", "==", "val"}], ",", "y"}], "]"}]], "Input",
 CellChangeTimes->{{3.413045154482541*^9, 3.413045172919051*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"x", "+", 
   RowBox[{"4", " ", 
    SuperscriptBox["x", "2"]}]}], "\[Equal]", "5"}]], "Output",
 CellChangeTimes->{3.413045173419771*^9}]
}, Open  ]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Reduce and inequalities", "MainSection",
 CellChangeTimes->{{3.399188027243555*^9, 3.399188035245061*^9}, {
  3.562867109886651*^9, 3.5628671372334986`*^9}}],

Cell[TextData[{
 "A basic difference between ",
 Cell[BoxData["Reduce"], "InlineFormula"],
 " and ",
 Cell[BoxData["Solve"], "InlineFormula"],
 " is that ",
 Cell[BoxData["Reduce"], "InlineFormula"],
 " gives ",
 StyleBox["all",
  FontSlant->"Italic"],
 " the possible solutions to a set of equations, while ",
 Cell[BoxData["Solve"], "InlineFormula"],
 " gives only the ",
 StyleBox["generic",
  FontSlant->"Italic"],
 " ones. ",
 StyleBox["Solutions are considered \"generic\" if they involve conditions \
only on the variables that you explicitly solve for, and not on other \
parameters in the equations",
  FontColor->RGBColor[1, 0, 0]],
 ". ",
 Cell[BoxData["Reduce"], "InlineFormula"],
 " and ",
 Cell[BoxData["Solve"], "InlineFormula"],
 " also differ in that ",
 Cell[BoxData["Reduce"], "InlineFormula"],
 " always returns combinations of equations, while ",
 Cell[BoxData["Solve"], "InlineFormula"],
 " gives results in the form of transformation rules. "
}], "Text",
 CellChangeTimes->{{3.599120029527934*^9, 3.5991200699079905`*^9}},
 TextJustification->1.,
 CellID->23700],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"a", " ", "x"}], "+", "b"}], "==", "0"}], ",", "x"}], 
  "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"x", "\[Rule]", 
    RowBox[{"-", 
     FractionBox["b", "a"]}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{
  3.599120260079257*^9, {3.6005839203500385`*^9, 3.6005839352792645`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Reduce", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"a", " ", "x"}], "+", "b"}], "==", "0"}], ",", "x"}], 
  "]"}]], "Input"],

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.5991202619292593`*^9, {3.6005839234388437`*^9, 3.6005839377128687`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"a", " ", 
      RowBox[{"x", "^", "2"}]}], "+", 
     RowBox[{"b", " ", "x"}], "+", "c"}], "==", "0"}], ",", "x"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.5991203039493184`*^9, 3.59912030495932*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     FractionBox[
      RowBox[{
       RowBox[{"-", "b"}], "-", 
       SqrtBox[
        RowBox[{
         SuperscriptBox["b", "2"], "-", 
         RowBox[{"4", " ", "a", " ", "c"}]}]]}], 
      RowBox[{"2", " ", "a"}]]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     FractionBox[
      RowBox[{
       RowBox[{"-", "b"}], "+", 
       SqrtBox[
        RowBox[{
         SuperscriptBox["b", "2"], "-", 
         RowBox[{"4", " ", "a", " ", "c"}]}]]}], 
      RowBox[{"2", " ", "a"}]]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.599120305919321*^9, 3.6005839716429286`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Reduce", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"a", " ", 
      RowBox[{"x", "^", "2"}]}], "+", 
     RowBox[{"b", " ", "x"}], "+", "c"}], "==", "0"}], ",", "x"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.5991202866692944`*^9, 3.599120296019307*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"a", "\[NotEqual]", "0"}], "&&", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"x", "\[Equal]", 
       FractionBox[
        RowBox[{
         RowBox[{"-", "b"}], "-", 
         SqrtBox[
          RowBox[{
           SuperscriptBox["b", "2"], "-", 
           RowBox[{"4", " ", "a", " ", "c"}]}]]}], 
        RowBox[{"2", " ", "a"}]]}], "||", 
      RowBox[{"x", "\[Equal]", 
       FractionBox[
        RowBox[{
         RowBox[{"-", "b"}], "+", 
         SqrtBox[
          RowBox[{
           SuperscriptBox["b", "2"], "-", 
           RowBox[{"4", " ", "a", " ", "c"}]}]]}], 
        RowBox[{"2", " ", "a"}]]}]}], ")"}]}], ")"}], "||", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"a", "\[Equal]", "0"}], "&&", 
    RowBox[{"b", "\[NotEqual]", "0"}], "&&", 
    RowBox[{"x", "\[Equal]", 
     RowBox[{"-", 
      FractionBox["c", "b"]}]}]}], ")"}], "||", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"c", "\[Equal]", "0"}], "&&", 
    RowBox[{"b", "\[Equal]", "0"}], "&&", 
    RowBox[{"a", "\[Equal]", "0"}]}], ")"}]}]], "Output",
 CellChangeTimes->{3.5991202989593115`*^9, 3.600583978725341*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RootIntervals", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"x", "-", "10"}], ",", 
    RowBox[{"x", "-", "20"}], ",", 
    RowBox[{"x", "-", "10"}], ",", 
    RowBox[{"x", "-", "30"}]}], "}"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", "11"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"11", ",", "21"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"21", ",", "31"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "3"}], "}"}], ",", 
     RowBox[{"{", "2", "}"}], ",", 
     RowBox[{"{", "4", "}"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.5991935758696966`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{"Reduce", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"x", "^", "2"}], " ", "-", " ", "x"}], " ", ">", " ", "0"}], 
    ",", " ", "x"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.399187956291531*^9, 3.3991879585748143`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"x", "<", "0"}], "||", 
  RowBox[{"x", ">", "1"}]}]], "Output",
 CellChangeTimes->{3.399187961338789*^9, 3.6005840201590137`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Conversion to rules of the solutions given by Reduce !", "Subsection",
 CellChangeTimes->{{3.599412167126916*^9, 3.599412186066942*^9}, {
  3.5994122291670027`*^9, 3.599412258767044*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Reduce", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"x", "^", "2"}], " ", "-", " ", "x"}], " ", "==", " ", "0"}], 
   ",", " ", "x"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"x", "\[Equal]", "0"}], "||", 
  RowBox[{"x", "\[Equal]", "1"}]}]], "Output",
 CellChangeTimes->{3.600584068222698*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ToRules", "[", 
  RowBox[{"Reduce", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"x", "^", "2"}], " ", "-", " ", "x"}], " ", "==", " ", "0"}], 
    ",", " ", "x"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.59941219866696*^9, 3.599412218736988*^9}, {
  3.599412263857051*^9, 3.5994122640070515`*^9}}],

Cell[BoxData[
 RowBox[{"Sequence", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", "1"}], "}"}]}], "]"}]], "Output",
 CellChangeTimes->{{3.5994122056369696`*^9, 3.59941222057699*^9}, 
   3.599412265967054*^9}]
}, Open  ]]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Solve, NSolve, Reduce: using domains", "MainSection",
 CellChangeTimes->{{3.413044288266984*^9, 3.4130442930138097`*^9}, {
   3.5994862127307286`*^9, 3.5994862179207363`*^9}, 3.5994862797308226`*^9, {
   3.599487887204073*^9, 3.599487891184078*^9}, {3.6630136490693207`*^9, 
   3.663013653319525*^9}}],

Cell[TextData[{
 "The Solve statement ",
 "attempts to solve an equation or set of equations formally for the \
variables ",
 Cell[BoxData[
  StyleBox["vars", "TI"]], "InlineFormula"],
 ". "
}], "Text",
 CellChangeTimes->{{3.4130442390261793`*^9, 3.4130442733455276`*^9}}],

Cell[TextData[{
 StyleBox["\t",
  FontWeight->"Bold",
  FontColor->GrayLevel[0]],
 StyleBox[Cell[BoxData[
  RowBox[{
   ButtonBox["Solve",
    BaseStyle->"RefGuideLink"], "[", 
   RowBox[{"eqns", ",", "vars", ",", "opt"}], "]"}]], "TextBox"], "TextBox"]
}], "1ColumnBox",
 CellMargins->{{101, 237}, {Inherited, Inherited}},
 CellChangeTimes->{{3.5628667520688224`*^9, 3.562866828165756*^9}, 
   3.5628668672906246`*^9, {3.5994867933725414`*^9, 3.5994868133325696`*^9}, {
   3.599487639163726*^9, 3.599487639163726*^9}}],

Cell[TextData[{
 StyleBox["\t",
  FontWeight->"Bold",
  FontColor->GrayLevel[0]],
 StyleBox[Cell[BoxData[
  RowBox[{
   ButtonBox["NSolve",
    BaseStyle->"RefGuideLink"], "[", 
   RowBox[{"eqns", ",", "vars", ",", " ", "opt"}], "]"}]], "TextBox"], 
  "TextBox"]
}], "1ColumnBox",
 CellMargins->{{101, 237}, {Inherited, Inherited}},
 CellChangeTimes->{{3.5628667520688224`*^9, 3.562866828165756*^9}, 
   3.5628668672906246`*^9, {3.5994863092518635`*^9, 3.5994863200618787`*^9}, {
   3.599486761812497*^9, 3.599486761812497*^9}, {3.599486824732586*^9, 
   3.5994868319525957`*^9}, {3.5994875734136333`*^9, 3.599487575783637*^9}, {
   3.59948764188373*^9, 3.5994876418937297`*^9}}],

Cell[TextData[Cell[BoxData[
 FormBox[GridBox[{
    {
     StyleBox[
      RowBox[{"Reduce", "[", 
       RowBox[{"expr", ",", "vars", ",", "opt"}], "]"}],
      FontFamily->"Courier New"]},
    {
     StyleBox[
      RowBox[{"Reduce", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"expr1", ",", "expr2", ",", "..."}], "}"}], ",", " ", "vars",
         ",", " ", "\[IndentingNewLine]", "opt"}], "]"}],
      FontFamily->"Courier New"]}
   }], TraditionalForm]],
 CellMargins->{{7, 0}, {4, 4}}]], "1ColumnBox",
 CellMargins->{{101, 237}, {Inherited, Inherited}},
 CellChangeTimes->{{3.5628667520688224`*^9, 3.562866828165756*^9}, 
   3.5628668672906246`*^9, {3.5994863092518635`*^9, 3.5994863200618787`*^9}, {
   3.5994867776725197`*^9, 3.5994868174425755`*^9}, {3.599487463093479*^9, 
   3.599487490243517*^9}, {3.5994876534437456`*^9, 3.5994876701037693`*^9}, {
   3.5994877064238195`*^9, 3.599487774583915*^9}}],

Cell[CellGroupData[{

Cell["Extensions of Solve, NSolve: Use domain", "Section",
 CellChangeTimes->{{3.599486285881831*^9, 3.5994863245418854`*^9}, {
  3.599486722342442*^9, 3.5994867247324457`*^9}}],

Cell["One can specify the Domain for the solving process!", "Text",
 CellChangeTimes->{{3.599486347631918*^9, 3.599486376441958*^9}}],

Cell[TextData[{
 StyleBox["\t",
  FontWeight->"Bold",
  FontColor->GrayLevel[0]],
 StyleBox[Cell[BoxData[
  RowBox[{
   ButtonBox["Solve",
    BaseStyle->"RefGuideLink"], "[", 
   RowBox[{"eqn", ",", "vars", ",", "Domain", ",", "opt"}], "]"}]], 
  "TextBox"], "TextBox"]
}], "1ColumnBox",
 CellMargins->{{101, 237}, {Inherited, Inherited}},
 CellChangeTimes->{{3.5628667520688224`*^9, 3.562866828165756*^9}, 
   3.5628668672906246`*^9, {3.5994863092518635`*^9, 3.5994863200618787`*^9}, {
   3.5994867776725197`*^9, 3.5994868174425755`*^9}}],

Cell[TextData[{
 StyleBox["\t",
  FontWeight->"Bold",
  FontColor->GrayLevel[0]],
 StyleBox[Cell[BoxData[
  RowBox[{
   ButtonBox["NSolve",
    BaseStyle->"RefGuideLink"], "[", 
   RowBox[{"eqn", ",", "vars", ",", "Real", ",", "opt"}], "]"}]], "TextBox"], 
  "TextBox"]
}], "1ColumnBox",
 CellMargins->{{101, 237}, {Inherited, Inherited}},
 CellChangeTimes->{{3.5628667520688224`*^9, 3.562866828165756*^9}, 
   3.5628668672906246`*^9, {3.5994863092518635`*^9, 3.5994863200618787`*^9}, {
   3.599486761812497*^9, 3.599486761812497*^9}, {3.599486824732586*^9, 
   3.5994868319525957`*^9}, {3.599487578743641*^9, 3.5994875796636424`*^9}}],

Cell[TextData[{
 StyleBox["\t",
  FontWeight->"Bold",
  FontColor->GrayLevel[0]],
 StyleBox[Cell[BoxData[
  RowBox[{"Reduce", "[", 
   RowBox[{"expr", ",", "vars", ",", "Domain", ",", "opt"}], "]"}]], 
  "TextBox"], "TextBox"]
}], "1ColumnBox",
 CellMargins->{{101, 237}, {Inherited, Inherited}},
 CellChangeTimes->{{3.5628667520688224`*^9, 3.562866828165756*^9}, 
   3.5628668672906246`*^9, {3.5994863092518635`*^9, 3.5994863200618787`*^9}, {
   3.5994867776725197`*^9, 3.5994868174425755`*^9}, {3.599487463093479*^9, 
   3.599487500953532*^9}}],

Cell["The possible domain specifications:", "Text",
 CellChangeTimes->{{3.599486402201994*^9, 3.59948643515204*^9}}],

Cell[TextData[{
 StyleBox["\t",
  FontWeight->"Bold",
  FontColor->GrayLevel[0]],
 StyleBox[Cell[BoxData[GridBox[{
    {
     RowBox[{"Named", " ", "Domain"}]},
    {GridBox[{
       {
        RowBox[{
         ButtonBox["ForAll",
          BaseStyle->"Link",
          ButtonData->"paclet:ref/ForAll"], "[", 
         RowBox[{
          StyleBox["x", "TI"], ",", 
          StyleBox["cond", "TI"], ",", 
          StyleBox["expr", "TI"]}], "]"}]},
       {
        RowBox[{
         ButtonBox["Exists",
          BaseStyle->"Link",
          ButtonData->"paclet:ref/Exists"], "[", 
         RowBox[{
          StyleBox["x", "TI"], ",", 
          StyleBox["cond", "TI"], ",", 
          StyleBox["expr", "TI"]}], "]"}]}
      },
      GridBoxAlignment->{
       "Columns" -> {Left, {Left}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}]}
   }]], "TextBox"], "TextBox"]
}], "1ColumnBox",
 CellMargins->{{101, 237}, {Inherited, Inherited}},
 CellChangeTimes->{{3.5628667520688224`*^9, 3.562866828165756*^9}, 
   3.5628668672906246`*^9, {3.5994863092518635`*^9, 3.5994863200618787`*^9}, {
   3.599486438632045*^9, 3.599486464372081*^9}}],

Cell[CellGroupData[{

Cell["Frequently used Named Domains:", "Subsection",
 CellChangeTimes->{{3.5994865579222116`*^9, 3.5994865859022512`*^9}}],

Cell[CellGroupData[{

Cell["Integers", "Item",
 CellChangeTimes->{{3.5990528982675295`*^9, 3.5990529000575314`*^9}, 
   3.599486639402326*^9}],

Cell["Reals", "Item",
 CellChangeTimes->{{3.5990529046275377`*^9, 3.5990529054675393`*^9}, 
   3.599486639402326*^9}],

Cell["Complexes", "Item",
 CellChangeTimes->{{3.5990529085775433`*^9, 3.599052914517552*^9}, 
   3.599486639402326*^9}],

Cell["Algebraics", "Item",
 CellChangeTimes->{{3.599052958077613*^9, 3.5990529677776265`*^9}, 
   3.599486639412326*^9}],

Cell["Primes", "Item",
 CellChangeTimes->{{3.599052958077613*^9, 3.5990529677776265`*^9}, 
   3.599486639412326*^9}],

Cell["Rationals", "Item",
 CellChangeTimes->{{3.599052971747632*^9, 3.5990529734876347`*^9}, 
   3.599486639412326*^9}],

Cell["Booleans", "Item",
 CellChangeTimes->{{3.5990529769476395`*^9, 3.5990529797476435`*^9}, 
   3.599486639412326*^9}],

Cell["Polynomials", "Item",
 CellChangeTimes->{{3.599113151334305*^9, 3.5991131538343077`*^9}, 
   3.599486639412326*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Examples", "Subsection",
 CellChangeTimes->{{3.5994866592123537`*^9, 3.5994866690123672`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"x", "^", "3"}], "-", 
       RowBox[{"3", 
        RowBox[{"x", "^", "2"}]}], "+", "1"}], ")"}], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"x", "^", "2"}], "+", "1"}], ")"}]}], "\[Equal]", "0"}], ",", 
   RowBox[{"{", "x", "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5994872427731705`*^9, 3.5994872435331717`*^9}, {
   3.599487957484171*^9, 3.5994879823742065`*^9}, {3.5994880417942896`*^9, 
   3.59948806355432*^9}, 3.599488210214525*^9},
 CellID->294372793],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"-", "\[ImaginaryI]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", "\[ImaginaryI]"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"1", "+", 
      FractionBox["1", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          FractionBox["1", "2"], " ", 
          RowBox[{"(", 
           RowBox[{"1", "+", 
            RowBox[{"\[ImaginaryI]", " ", 
             SqrtBox["3"]}]}], ")"}]}], ")"}], 
        RowBox[{"1", "/", "3"}]]], "+", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "2"], " ", 
         RowBox[{"(", 
          RowBox[{"1", "+", 
           RowBox[{"\[ImaginaryI]", " ", 
            SqrtBox["3"]}]}], ")"}]}], ")"}], 
       RowBox[{"1", "/", "3"}]]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"1", "-", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"\[ImaginaryI]", " ", 
          SqrtBox["3"]}]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          FractionBox["1", "2"], " ", 
          RowBox[{"(", 
           RowBox[{"1", "+", 
            RowBox[{"\[ImaginaryI]", " ", 
             SqrtBox["3"]}]}], ")"}]}], ")"}], 
        RowBox[{"1", "/", "3"}]]}], "-", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "2"], " ", 
         RowBox[{"(", 
          RowBox[{"1", "+", 
           RowBox[{"\[ImaginaryI]", " ", 
            SqrtBox["3"]}]}], ")"}]}], ")"}], 
       RowBox[{"2", "/", "3"}]]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"1", "-", 
      FractionBox[
       RowBox[{"1", "-", 
        RowBox[{"\[ImaginaryI]", " ", 
         SqrtBox["3"]}]}], 
       RowBox[{
        SuperscriptBox["2", 
         RowBox[{"2", "/", "3"}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "+", 
           RowBox[{"\[ImaginaryI]", " ", 
            SqrtBox["3"]}]}], ")"}], 
         RowBox[{"1", "/", "3"}]]}]], "-", 
      FractionBox[
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           SqrtBox["3"]}]}], ")"}], 
        RowBox[{"4", "/", "3"}]], 
       RowBox[{"2", " ", 
        SuperscriptBox["2", 
         RowBox[{"1", "/", "3"}]]}]]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.5994879834242077`*^9, {3.5994880428742905`*^9, 3.5994880654743223`*^9}, 
   3.5994882112545266`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"x", "^", "3"}], "-", 
     RowBox[{"3", 
      RowBox[{"x", "^", "2"}]}], "+", "1"}], "\[Equal]", "0"}], ",", 
   RowBox[{"{", "x", "}"}], ",", 
   RowBox[{"ForAll", "[", 
    RowBox[{"x", ",", 
     RowBox[{"Element", "[", 
      RowBox[{"x", ",", "Reals"}], "]"}], ",", 
     RowBox[{"x", ">", "0"}]}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5994872427731705`*^9, 3.5994872435331717`*^9}, {
   3.599487957484171*^9, 3.5994879823742065`*^9}, {3.599488033534278*^9, 
   3.5994880348142796`*^9}, 3.59948807083433*^9, {3.5994881287344112`*^9, 
   3.599488144024432*^9}, 3.59948821365453*^9, {3.599488655716149*^9, 
   3.5994886917761993`*^9}},
 CellID->134382497],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Solve", "::", "bdomv"}], "MessageName"], ":", 
  " ", "\<\"Warning: \[NoBreak]\\!\\(\\(\[ForAll]\\_\\(x, \\(\\(x \[Element] \
Reals\\)\\)\\)\\) \\(\\(x > 0\\)\\)\\)\[NoBreak] is not a valid domain \
specification. Mathematica is assuming it is a variable to eliminate. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/Solve\\\", ButtonNote -> \
\\\"Solve::bdomv\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.599488145254434*^9, 3.5994882181745367`*^9, 
  3.5994886932462015`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Solve", "::", "ivar"}], "MessageName"], ":", 
  " ", "\<\"\[NoBreak]\\!\\(\\(\[ForAll]\\_\\(x, \\(\\(x \[Element] \
Reals\\)\\)\\)\\) \\(\\(x > 0\\)\\)\\)\[NoBreak] is not a valid variable. \\!\
\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/ivar\\\", \
ButtonNote -> \\\"Solve::ivar\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.599488145254434*^9, 3.5994882181745367`*^9, 
  3.5994886932862015`*^9}],

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"1", "-", 
     RowBox[{"3", " ", 
      SuperscriptBox["x", "2"]}], "+", 
     SuperscriptBox["x", "3"]}], "\[Equal]", "0"}], ",", 
   RowBox[{"{", "x", "}"}], ",", 
   RowBox[{
    SubscriptBox["\[ForAll]", 
     RowBox[{"x", ",", 
      RowBox[{"x", "\[Element]", "Reals"}]}]], 
    RowBox[{"x", ">", "0"}]}]}], "]"}]], "Output",
 CellChangeTimes->{3.5994880354742804`*^9, 3.599488072934333*^9, 
  3.5994881453844347`*^9, 3.5994882182145367`*^9, 3.5994886932962017`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"x", "^", "3"}], "+", 
     RowBox[{"a", " ", "x"}], "+", 
     RowBox[{"a", "^", "2"}]}], "\[Equal]", "0"}], ",", "x"}], "]"}]], "Input",
 CellChangeTimes->{{3.5994884858559113`*^9, 3.5994884862259116`*^9}},
 CellID->1386834456],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox["2", "3"], ")"}], 
          RowBox[{"1", "/", "3"}]], " ", "a"}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "9"}], " ", 
            SuperscriptBox["a", "2"]}], "+", 
           RowBox[{
            SqrtBox["3"], " ", 
            SqrtBox[
             RowBox[{
              RowBox[{"4", " ", 
               SuperscriptBox["a", "3"]}], "+", 
              RowBox[{"27", " ", 
               SuperscriptBox["a", "4"]}]}]]}]}], ")"}], 
         RowBox[{"1", "/", "3"}]]]}], "+", 
      FractionBox[
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "9"}], " ", 
           SuperscriptBox["a", "2"]}], "+", 
          RowBox[{
           SqrtBox["3"], " ", 
           SqrtBox[
            RowBox[{
             RowBox[{"4", " ", 
              SuperscriptBox["a", "3"]}], "+", 
             RowBox[{"27", " ", 
              SuperscriptBox["a", "4"]}]}]]}]}], ")"}], 
        RowBox[{"1", "/", "3"}]], 
       RowBox[{
        SuperscriptBox["2", 
         RowBox[{"1", "/", "3"}]], " ", 
        SuperscriptBox["3", 
         RowBox[{"2", "/", "3"}]]}]]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           SqrtBox["3"]}]}], ")"}], " ", "a"}], 
       RowBox[{
        SuperscriptBox["2", 
         RowBox[{"2", "/", "3"}]], " ", 
        SuperscriptBox["3", 
         RowBox[{"1", "/", "3"}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "9"}], " ", 
            SuperscriptBox["a", "2"]}], "+", 
           RowBox[{
            SqrtBox["3"], " ", 
            SqrtBox[
             RowBox[{
              RowBox[{"4", " ", 
               SuperscriptBox["a", "3"]}], "+", 
              RowBox[{"27", " ", 
               SuperscriptBox["a", "4"]}]}]]}]}], ")"}], 
         RowBox[{"1", "/", "3"}]]}]], "-", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"\[ImaginaryI]", " ", 
           SqrtBox["3"]}]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "9"}], " ", 
            SuperscriptBox["a", "2"]}], "+", 
           RowBox[{
            SqrtBox["3"], " ", 
            SqrtBox[
             RowBox[{
              RowBox[{"4", " ", 
               SuperscriptBox["a", "3"]}], "+", 
              RowBox[{"27", " ", 
               SuperscriptBox["a", "4"]}]}]]}]}], ")"}], 
         RowBox[{"1", "/", "3"}]]}], 
       RowBox[{"2", " ", 
        SuperscriptBox["2", 
         RowBox[{"1", "/", "3"}]], " ", 
        SuperscriptBox["3", 
         RowBox[{"2", "/", "3"}]]}]]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"\[ImaginaryI]", " ", 
           SqrtBox["3"]}]}], ")"}], " ", "a"}], 
       RowBox[{
        SuperscriptBox["2", 
         RowBox[{"2", "/", "3"}]], " ", 
        SuperscriptBox["3", 
         RowBox[{"1", "/", "3"}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "9"}], " ", 
            SuperscriptBox["a", "2"]}], "+", 
           RowBox[{
            SqrtBox["3"], " ", 
            SqrtBox[
             RowBox[{
              RowBox[{"4", " ", 
               SuperscriptBox["a", "3"]}], "+", 
              RowBox[{"27", " ", 
               SuperscriptBox["a", "4"]}]}]]}]}], ")"}], 
         RowBox[{"1", "/", "3"}]]}]], "-", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           SqrtBox["3"]}]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "9"}], " ", 
            SuperscriptBox["a", "2"]}], "+", 
           RowBox[{
            SqrtBox["3"], " ", 
            SqrtBox[
             RowBox[{
              RowBox[{"4", " ", 
               SuperscriptBox["a", "3"]}], "+", 
              RowBox[{"27", " ", 
               SuperscriptBox["a", "4"]}]}]]}]}], ")"}], 
         RowBox[{"1", "/", "3"}]]}], 
       RowBox[{"2", " ", 
        SuperscriptBox["2", 
         RowBox[{"1", "/", "3"}]], " ", 
        SuperscriptBox["3", 
         RowBox[{"2", "/", "3"}]]}]]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.599488483085907*^9, 3.599488487215913*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"x", "^", "3"}], "+", 
     RowBox[{"a", " ", "x"}], "+", 
     RowBox[{"a", "^", "2"}]}], "\[Equal]", "0"}], ",", "x", ",", "Reals"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.5994884858559113`*^9, 3.599488541255989*^9}},
 CellID->1005063525],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"ConditionalExpression", "[", 
      RowBox[{
       RowBox[{"Root", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           SuperscriptBox["a", "2"], "+", 
           RowBox[{"a", " ", "#1"}], "+", 
           SuperscriptBox["#1", "3"]}], "&"}], ",", "1"}], "]"}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"-", 
          FractionBox["4", "27"]}], "<", "a", "<", "0"}], "||", 
        RowBox[{"a", ">", "0"}], "||", 
        RowBox[{"a", "<", 
         RowBox[{"-", 
          FractionBox["4", "27"]}]}]}]}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"ConditionalExpression", "[", 
      RowBox[{
       RowBox[{"Root", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           SuperscriptBox["a", "2"], "+", 
           RowBox[{"a", " ", "#1"}], "+", 
           SuperscriptBox["#1", "3"]}], "&"}], ",", "2"}], "]"}], ",", 
       RowBox[{
        RowBox[{"-", 
         FractionBox["4", "27"]}], "<", "a", "<", "0"}]}], "]"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"ConditionalExpression", "[", 
      RowBox[{
       RowBox[{"Root", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           SuperscriptBox["a", "2"], "+", 
           RowBox[{"a", " ", "#1"}], "+", 
           SuperscriptBox["#1", "3"]}], "&"}], ",", "3"}], "]"}], ",", 
       RowBox[{
        RowBox[{"-", 
         FractionBox["4", "27"]}], "<", "a", "<", "0"}]}], "]"}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.5994885139459505`*^9, 3.59948854208599*^9}, 
   3.600276213058261*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Cos", "[", "x", "]"}], "\[Equal]", "x"}], ",", "x"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.5994866713923707`*^9, 3.599486683172387*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Solve", "::", "nsmet"}], "MessageName"], ":", 
  " ", "\<\"This system cannot be solved with the methods available to Solve. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/Solve\\\", ButtonNote -> \
\\\"Solve::nsmet\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.599486685632391*^9}],

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Cos", "[", "x", "]"}], "\[Equal]", "x"}], ",", "x"}], 
  "]"}]], "Output",
 CellChangeTimes->{3.599486685632391*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Cos", "[", "x", "]"}], "\[Equal]", "x"}], ",", "x", ",", 
   "Reals"}], "]"}]], "Input",
 CellChangeTimes->{{3.5994866713923707`*^9, 3.5994867155024323`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"x", "\[Rule]", 
    RowBox[{"Root", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"-", 
          RowBox[{"Cos", "[", "#1", "]"}]}], "+", "#1"}], "&"}], ",", 
       "0.739085133215160641657159800497972773200438659430728999286`20.\
60205998922722"}], "}"}], "]"}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{{3.5994866970024066`*^9, 3.599486704462417*^9}, 
   3.5994868513826227`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"x", "^", "2"}], "+", 
     RowBox[{"y", "^", "2"}]}], "==", "10"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "y"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5994868612126365`*^9, 3.5994869653427825`*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Solve", "::", "svars"}], "MessageName"], ":", 
  " ", "\<\"Equations may not give solutions for all \\\"solve\\\" variables. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/Solve/svars\\\", \
ButtonNote -> \\\"Solve::svars\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.599486927112729*^9, 3.5994869368727427`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"y", "\[Rule]", 
     RowBox[{"-", 
      SqrtBox[
       RowBox[{"10", "-", 
        SuperscriptBox["x", "2"]}]]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"y", "\[Rule]", 
     SqrtBox[
      RowBox[{"10", "-", 
       SuperscriptBox["x", "2"]}]]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.599486927112729*^9, 3.5994869368827424`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"x", "^", "2"}], "+", 
     RowBox[{"y", "^", "2"}]}], "==", "10"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "y"}], "}"}], ",", "Integers"}], "]"}]], "Input",
 CellChangeTimes->{{3.5994868612126365`*^9, 3.599486903172695*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", 
      RowBox[{"-", "3"}]}], ",", 
     RowBox[{"y", "\[Rule]", 
      RowBox[{"-", "1"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", 
      RowBox[{"-", "3"}]}], ",", 
     RowBox[{"y", "\[Rule]", "1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", 
      RowBox[{"-", "1"}]}], ",", 
     RowBox[{"y", "\[Rule]", 
      RowBox[{"-", "3"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", 
      RowBox[{"-", "1"}]}], ",", 
     RowBox[{"y", "\[Rule]", "3"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", "1"}], ",", 
     RowBox[{"y", "\[Rule]", 
      RowBox[{"-", "3"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", "1"}], ",", 
     RowBox[{"y", "\[Rule]", "3"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", "3"}], ",", 
     RowBox[{"y", "\[Rule]", 
      RowBox[{"-", "1"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", "3"}], ",", 
     RowBox[{"y", "\[Rule]", "1"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.599486898542689*^9, 3.599486904412697*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NSolve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Cos", "[", "x", "]"}], "\[Equal]", "x"}], ",", "x", ",", 
   "Reals"}], "]"}]], "Input",
 CellChangeTimes->{3.5994868475726175`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"x", "\[Rule]", "0.7390851332151607`"}], "}"}], "}"}]], "Output",
 CellChangeTimes->{3.59948684937262*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"x", "^", "2"}], "+", 
     RowBox[{"y", "^", "2"}]}], "\[Equal]", 
    RowBox[{"z", "^", "2"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "y", ",", "z"}], "}"}], ",", "Integers"}], 
  "]"}]], "Input",
 CellID->242404353],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", 
      RowBox[{"ConditionalExpression", "[", 
       RowBox[{
        RowBox[{"2", " ", 
         RowBox[{"C", "[", "1", "]"}], " ", 
         RowBox[{"C", "[", "2", "]"}], " ", 
         RowBox[{"C", "[", "3", "]"}]}], ",", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"C", "[", "1", "]"}], "|", 
            RowBox[{"C", "[", "2", "]"}], "|", 
            RowBox[{"C", "[", "3", "]"}]}], ")"}], "\[Element]", "Integers"}],
          "&&", 
         RowBox[{
          RowBox[{"C", "[", "3", "]"}], "\[GreaterEqual]", "0"}]}]}], "]"}]}],
      ",", 
     RowBox[{"y", "\[Rule]", 
      RowBox[{"ConditionalExpression", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"C", "[", "1", "]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"C", "[", "2", "]"}], "2"], "-", 
           SuperscriptBox[
            RowBox[{"C", "[", "3", "]"}], "2"]}], ")"}]}], ",", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"C", "[", "1", "]"}], "|", 
            RowBox[{"C", "[", "2", "]"}], "|", 
            RowBox[{"C", "[", "3", "]"}]}], ")"}], "\[Element]", "Integers"}],
          "&&", 
         RowBox[{
          RowBox[{"C", "[", "3", "]"}], "\[GreaterEqual]", "0"}]}]}], "]"}]}],
      ",", 
     RowBox[{"z", "\[Rule]", 
      RowBox[{"ConditionalExpression", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"C", "[", "1", "]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"C", "[", "2", "]"}], "2"], "+", 
           SuperscriptBox[
            RowBox[{"C", "[", "3", "]"}], "2"]}], ")"}]}], ",", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"C", "[", "1", "]"}], "|", 
            RowBox[{"C", "[", "2", "]"}], "|", 
            RowBox[{"C", "[", "3", "]"}]}], ")"}], "\[Element]", "Integers"}],
          "&&", 
         RowBox[{
          RowBox[{"C", "[", "3", "]"}], "\[GreaterEqual]", "0"}]}]}], 
       "]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "\[Rule]", 
      RowBox[{"ConditionalExpression", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"C", "[", "1", "]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"C", "[", "2", "]"}], "2"], "-", 
           SuperscriptBox[
            RowBox[{"C", "[", "3", "]"}], "2"]}], ")"}]}], ",", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"C", "[", "1", "]"}], "|", 
            RowBox[{"C", "[", "2", "]"}], "|", 
            RowBox[{"C", "[", "3", "]"}]}], ")"}], "\[Element]", "Integers"}],
          "&&", 
         RowBox[{
          RowBox[{"C", "[", "3", "]"}], "\[GreaterEqual]", "0"}]}]}], "]"}]}],
      ",", 
     RowBox[{"y", "\[Rule]", 
      RowBox[{"ConditionalExpression", "[", 
       RowBox[{
        RowBox[{"2", " ", 
         RowBox[{"C", "[", "1", "]"}], " ", 
         RowBox[{"C", "[", "2", "]"}], " ", 
         RowBox[{"C", "[", "3", "]"}]}], ",", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"C", "[", "1", "]"}], "|", 
            RowBox[{"C", "[", "2", "]"}], "|", 
            RowBox[{"C", "[", "3", "]"}]}], ")"}], "\[Element]", "Integers"}],
          "&&", 
         RowBox[{
          RowBox[{"C", "[", "3", "]"}], "\[GreaterEqual]", "0"}]}]}], "]"}]}],
      ",", 
     RowBox[{"z", "\[Rule]", 
      RowBox[{"ConditionalExpression", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"C", "[", "1", "]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"C", "[", "2", "]"}], "2"], "+", 
           SuperscriptBox[
            RowBox[{"C", "[", "3", "]"}], "2"]}], ")"}]}], ",", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"C", "[", "1", "]"}], "|", 
            RowBox[{"C", "[", "2", "]"}], "|", 
            RowBox[{"C", "[", "3", "]"}]}], ")"}], "\[Element]", "Integers"}],
          "&&", 
         RowBox[{
          RowBox[{"C", "[", "3", "]"}], "\[GreaterEqual]", "0"}]}]}], 
       "]"}]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.599488809516364*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"x", "^", "4"}], "+", 
      RowBox[{"y", "^", "4"}], "+", 
      RowBox[{"z", "^", "4"}]}], "\[LessEqual]", "500"}], "&&", 
    RowBox[{
     RowBox[{"x", "+", 
      RowBox[{"y", "^", "2"}], "+", 
      RowBox[{"z", "^", "3"}]}], "\[Equal]", "32"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "y", ",", "z"}], "}"}], ",", "Integers"}], 
  "]"}]], "Input",
 CellID->572071652],

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

Cell["Exercise", "Th-Env",
 CellChangeTimes->{{3.5994889098065042`*^9, 3.5994889410465484`*^9}}],

Cell["Let' s visualize the solutions", "Text",
 CellChangeTimes->{{3.599488844066413*^9, 3.599488852336424*^9}, {
  3.5994888952564845`*^9, 3.5994889014164925`*^9}}]
}, Closed]]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Numerical solution of polinomial equations", "MainSection",
 CellChangeTimes->{{3.413045088487645*^9, 3.4130450973904467`*^9}, {
   3.413045132651149*^9, 3.4130451432463837`*^9}, 3.562867053289751*^9}],

Cell[TextData[StyleBox["\tNSolve[eqn,var]\n\tNSolve[eqns, vars]",
 FontFamily->"Courier New",
 FontWeight->"Bold"]], "1ColumnBox",
 CellMargins->{{101, 237}, {Inherited, Inherited}},
 CellChangeTimes->{{3.5628667520688224`*^9, 3.562866828165756*^9}, 
   3.5628668672906246`*^9, {3.562866915151509*^9, 3.5628669219531207`*^9}}],

Cell["\<\
gives a list of numerical approximations to the roots of a polynomial \
equation. \
\>", "Text"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "f", "]"}], "\n", 
 RowBox[{
  RowBox[{"eqn", "=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      SuperscriptBox["x", "7"], "-", 
      SuperscriptBox["x", "6"], "+", 
      SuperscriptBox["x", "3"], "-", 
      RowBox[{"3", " ", 
       SuperscriptBox["x", "2"]}], "-", 
      RowBox[{"2", " ", "x"}], "-", "1"}], "\[Equal]", "0"}], ")"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.4130446148265533`*^9, 3.4130446217865615`*^9}, {
  3.4130454597214527`*^9, 3.4130454775370703`*^9}, {3.4130455116361027`*^9, 
  3.413045514400077*^9}}],

Cell["Solve cannot work :", "Text",
 CellChangeTimes->{{3.4130455242141886`*^9, 3.4130455339682145`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{"eqn", ",", "x"}], "]"}]], "Input",
 CellChangeTimes->{{3.413045496784747*^9, 3.413045518536024*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"Root", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"-", "1"}], "-", 
         RowBox[{"2", " ", "#1"}], "-", 
         RowBox[{"3", " ", 
          SuperscriptBox["#1", "2"]}], "+", 
         SuperscriptBox["#1", "3"], "-", 
         SuperscriptBox["#1", "6"], "+", 
         SuperscriptBox["#1", "7"]}], "&"}], ",", "1"}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"Root", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"-", "1"}], "-", 
         RowBox[{"2", " ", "#1"}], "-", 
         RowBox[{"3", " ", 
          SuperscriptBox["#1", "2"]}], "+", 
         SuperscriptBox["#1", "3"], "-", 
         SuperscriptBox["#1", "6"], "+", 
         SuperscriptBox["#1", "7"]}], "&"}], ",", "2"}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"Root", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"-", "1"}], "-", 
         RowBox[{"2", " ", "#1"}], "-", 
         RowBox[{"3", " ", 
          SuperscriptBox["#1", "2"]}], "+", 
         SuperscriptBox["#1", "3"], "-", 
         SuperscriptBox["#1", "6"], "+", 
         SuperscriptBox["#1", "7"]}], "&"}], ",", "3"}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"Root", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"-", "1"}], "-", 
         RowBox[{"2", " ", "#1"}], "-", 
         RowBox[{"3", " ", 
          SuperscriptBox["#1", "2"]}], "+", 
         SuperscriptBox["#1", "3"], "-", 
         SuperscriptBox["#1", "6"], "+", 
         SuperscriptBox["#1", "7"]}], "&"}], ",", "4"}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"Root", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"-", "1"}], "-", 
         RowBox[{"2", " ", "#1"}], "-", 
         RowBox[{"3", " ", 
          SuperscriptBox["#1", "2"]}], "+", 
         SuperscriptBox["#1", "3"], "-", 
         SuperscriptBox["#1", "6"], "+", 
         SuperscriptBox["#1", "7"]}], "&"}], ",", "5"}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"Root", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"-", "1"}], "-", 
         RowBox[{"2", " ", "#1"}], "-", 
         RowBox[{"3", " ", 
          SuperscriptBox["#1", "2"]}], "+", 
         SuperscriptBox["#1", "3"], "-", 
         SuperscriptBox["#1", "6"], "+", 
         SuperscriptBox["#1", "7"]}], "&"}], ",", "6"}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"Root", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"-", "1"}], "-", 
         RowBox[{"2", " ", "#1"}], "-", 
         RowBox[{"3", " ", 
          SuperscriptBox["#1", "2"]}], "+", 
         SuperscriptBox["#1", "3"], "-", 
         SuperscriptBox["#1", "6"], "+", 
         SuperscriptBox["#1", "7"]}], "&"}], ",", "7"}], "]"}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.413045503814856*^9, 3.413045519136888*^9}}]
}, Open  ]],

Cell["NSolve can do it :", "Text",
 CellChangeTimes->{{3.4130455242141886`*^9, 3.4130455598053665`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NSolve", "[", 
  RowBox[{"eqn", ",", "x"}], "]"}]], "Input",
 CellChangeTimes->{{3.413045496784747*^9, 3.4130455464661856`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{
      RowBox[{"-", "0.7634657960520824`"}], "-", 
      RowBox[{"0.784189452271216`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{
      RowBox[{"-", "0.7634657960520824`"}], "+", 
      RowBox[{"0.784189452271216`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{
      RowBox[{"-", "0.31802058992517585`"}], "-", 
      RowBox[{"0.42958769048757534`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{
      RowBox[{"-", "0.31802058992517585`"}], "+", 
      RowBox[{"0.42958769048757534`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"0.807039658701739`", "\[InvisibleSpace]", "-", 
      RowBox[{"1.111470608688715`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"0.807039658701739`", "\[InvisibleSpace]", "+", 
      RowBox[{"1.111470608688715`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", "1.5488934545510384`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.413045503814856*^9, 3.413045547327424*^9}}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Approximation of solutions of general equations: FindRoot", \
"MainSection",
 CellChangeTimes->{{3.4130456125912685`*^9, 3.413045638338291*^9}}],

Cell["\<\
FindRoot approximates a root of the equation from initial values. Derivative \
is used (Newton iteration in 1D) in the iteration if one initial value used, \
and the derivative is avoided with two initial values (secant method in 1D).\
\>", "Text",
 CellChangeTimes->{{3.4130456738393393`*^9, 3.413045833809365*^9}}],

Cell[TextData[Cell[BoxData[GridBox[{
   {
    RowBox[{
     RowBox[{
      ButtonBox["FindRoot",
       BaseStyle->"RefGuideLink"], "[", 
      RowBox[{"eqn", ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "xinit"}], "}"}]}], "]"}], " ", 
     StyleBox["Newton",
      FontFamily->"Times New Roman"], 
     StyleBox[" ",
      FontFamily->"Times New Roman"], 
     StyleBox["method",
      FontFamily->"Times New Roman"]}]},
   {
    RowBox[{
     RowBox[{
      RowBox[{"FindRoot", "[", 
       RowBox[{"eqn", ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "x1", ",", "x2"}], "}"}]}], "]"}], "     ", 
      StyleBox["Secant",
       FontFamily->"Times New Roman"], 
      StyleBox[" ",
       FontFamily->"Times New Roman"], 
      StyleBox["method",
       FontFamily->"Times New Roman"]}], 
     StyleBox["\[IndentingNewLine]",
      FontFamily->"Times New Roman"], 
     RowBox[{
      StyleBox["FindRoot", "MR"], 
      StyleBox["[", "MR"], 
      RowBox[{
       RowBox[{
        StyleBox["{", "MR"], 
        RowBox[{
         FormBox[
          SubscriptBox[
           StyleBox["eqn", "TI"], "1"],
          TraditionalForm], 
         StyleBox[",", "MR"], " ", 
         FormBox[
          SubscriptBox[
           StyleBox["eqn", "TI"], "2"],
          TraditionalForm], 
         StyleBox[",", "MR"], " ", "\[Ellipsis]"}], " ", 
        StyleBox["}", "MR"]}], 
       StyleBox[",", "MR"], " ", 
       RowBox[{
        StyleBox["{", "MR"], 
        RowBox[{
         RowBox[{
          StyleBox["{", "MR"], 
          RowBox[{
           StyleBox["x", "TI"], 
           StyleBox[",", "MR"], " ", 
           FormBox[
            SubscriptBox[
             StyleBox["x", "TI"], "0"],
            TraditionalForm]}], 
          StyleBox["}", "MR"]}], 
         StyleBox[",", "MR"], " ", 
         RowBox[{
          StyleBox["{", "MR"], 
          RowBox[{
           StyleBox["y", "TI"], 
           StyleBox[",", "MR"], " ", 
           FormBox[
            SubscriptBox[
             StyleBox["y", "TI"], "0"],
            TraditionalForm]}], 
          StyleBox["}", "MR"]}], 
         StyleBox[",", "MR"], " ", "\[Ellipsis]"}], " ", 
        StyleBox["}", "MR"]}]}], 
      StyleBox["]", "MR"]}], 
     StyleBox["\[IndentingNewLine]", "MR"], 
     RowBox[{
      StyleBox["FindRoot", "MR"], 
      StyleBox["[", "MR"], 
      RowBox[{
       RowBox[{
        StyleBox["lhs", "TI"], 
        StyleBox["==", "MR"], 
        StyleBox["rhs", "TI"]}], 
       StyleBox[",", "MR"], " ", 
       RowBox[{
        StyleBox["{", "MR"], 
        RowBox[{
         StyleBox["x", "TI"], 
         StyleBox[",", "MR"], " ", 
         FormBox[
          SubscriptBox[
           StyleBox["x", "TI"], 
           StyleBox["start", "TI"]],
          TraditionalForm], 
         StyleBox[",", "MR"], " ", 
         FormBox[
          SubscriptBox[
           StyleBox["x", "TI"], 
           StyleBox["min", "TI"]],
          TraditionalForm], 
         StyleBox[",", "MR"], " ", 
         FormBox[
          SubscriptBox[
           StyleBox["x", "TI"], 
           StyleBox["max", "TI"]],
          TraditionalForm]}], 
        StyleBox["}", "MR"]}]}], 
      StyleBox["]", "MR"]}], 
     StyleBox["\[IndentingNewLine]", "MR"], 
     StyleBox[
      RowBox[{"Options", "[", "FindRoot", "]"}], "MR"]}]}
  }]],
 TextJustification->0.]], "1ColumnBox",
 CellMargins->{{101., 125.5}, {0., 8.}},
 CellChangeTimes->{{3.5628667520688224`*^9, 3.562866828165756*^9}, {
  3.562866957801984*^9, 3.5628669668967996`*^9}}],

Cell[CellGroupData[{

Cell["Important", "Section",
 CellChangeTimes->{{3.413045981651952*^9, 3.413045984395898*^9}}],

Cell["\<\
To find the initial value is important. Plot lhs and rhs. The intersection \
points can be read from the graph. \
\>", "Text",
 CellChangeTimes->{{3.413045977996696*^9, 3.4130460031428547`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Example", "Section",
 CellChangeTimes->{{3.413047045531736*^9, 3.4130470470138674`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"f1", "[", "x_", "]"}], ":=", 
   SuperscriptBox["\[ExponentialE]", "x"]}], ";", 
  RowBox[{
   RowBox[{"f2", "[", "x_", "]"}], ":=", 
   RowBox[{"4", " ", 
    RowBox[{"Sin", "[", "x", "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{3.413046044332082*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"f1", "[", "x", "]"}], "\[Equal]", 
    RowBox[{"f2", "[", "x", "]"}]}], ",", "x"}], "]"}]], "Input",
 CellChangeTimes->{3.413046044332082*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Solve", "::", "\<\"tdep\"\>"}], ":", 
  " ", "\<\"The equations appear to involve the variables to be solved for in \
an essentially non-algebraic way. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/Solve/tdep\\\", \
ButtonNote -> \\\"Solve::tdep\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.413046035569482*^9, 3.413046048508086*^9}}],

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    SuperscriptBox["\[ExponentialE]", "x"], "\[Equal]", 
    RowBox[{"4", " ", 
     RowBox[{"Sin", "[", "x", "]"}]}]}], ",", "x"}], "]"}]], "Output",
 CellChangeTimes->{{3.413046035629568*^9, 3.413046048578187*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"f1", "[", "x", "]"}], ",", " ", 
     RowBox[{"f2", "[", "x", "]"}]}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", " ", "0", ",", " ", 
     RowBox[{"\[Pi]", "/", "2"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{
  3.36068855146015*^9, {3.413046094233837*^9, 3.413046094694499*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVx38803kcwPH9ELN0aLhc+bGUFI+HpEu7jfcnV34+olxXj0qHobR+2OKs
NOmnHJHWr50ual1+XNcPxHTXao/b7cLtEMqvSPIzN75jrW2i+9wfr8fr8WRy
k6MSKSQSKQL3/6lP6Y1vv4wLGNUW0kgkApaOPmE7XwRoqbTabCQTYHrgndAp
jgRNXGv7JJWAQbskQ404Bo5uPHZjyIKArqDTf9wWJ0NkP9PluTUBL2LEy66L
M2EqPqajwoWAqP2OXRLxeWh/1ceXAgEXJqOrroiLgT+SO77uOAFsVRg9MOUB
vL43xuyw1gI/PSKuil8LkquRlzcXauFAbWI+xU0BlgV7+FvdJ6FtJNSylPsn
rJk79/VS5STkeOtJNdvrQKDsLvp6xxQIPOsuK26rwf9R3C97qDowxe+713Ow
GdqaDrQx7uuAK9+6qWB3C0QJKaqELe8hXtumUGS3AfFs7fZj8/RwbqUsuSTr
JRxf0mGue6oHikLmdzq9A2YdlCdiUz+A7YrwxteSLtivofoKAwwQUhx4ixC/
gk7eQ85yshE+n1AHZcp6oYNF/31htxEKn/1Gpu7tg380mzJDa03AcVr3yTXh
DUSfIgX45U2DZ5/NQEZqP0BpyJ2yox/hbtn8pOpDbyGlVKY+GjcDot5drZ5Z
A5A2Y+9RxZ0FAWdteNGlQbBIbO6s3/MJTMXruWMFQ+BS9zjnhg8JNfMLY4XS
YUjOkdsnPiEhVvDi2Z6bI5AV+rxncRAZ1W9glaGfRmGsfDCY20RGtyt+ZPXf
eQcZa06FOO6lIHs3L9535WMgMXmE+81QUAuZdtLx8b/gyc70odyiompaSklz
vQZyUbBjULgZ8rK34XFV4+BEbCsI05ihiXy9ne/LCci7IrKsls5BbmfPeifz
CHAtiy+RbDZH/Tu6uwKHCZBVPkrbTbFAIYOtxuqDWsi/4zUhqLNAhw8lJjlo
tKBafX8b6ywNRdRcC3NIm4RjD0Uh6mhLNP6RJ6LqJ2GkbxmtbgUd3Ww/8fBg
yhRYndqgtp2mI1OSf+yR6SmQByy32jIwFznNXNgpSNeBYTajnqmyQkPBuQ00
s/ewN1vfIlfMQ0p3NTjnvofVGVJXV8VniEcrMWNa6mFb2jq9bY01kt1Y4q+8
oIds9bh7bYINamRzVFG2HyCwiet8ZNQGGXjXvonN/wANeUMbK5JtUd2m4m/n
ORhghd05J3Pz+YjL4pSWXjLAUtHu9J4r85G0I2P/GycjeFl5PPu0loG8skyt
Wuy8kiwRg8VANb5CNsXZCM3fG32WYf+dz6e7YUdWLbwega1bH1+WgC38NSr1
OnZQRcjAMHZOeY47+ysGevcDI3rcxQhNMW6FaWwGSvUrUM5iS57QonKwZwes
PK1djdC9hUIvwmYgc5M3tqvHqnQVNkdvuCrAHt53eqcdh4Hyub2tOuyL6VPM
SuwFNjvZc5hGKNuxqFuFLZW3S+2xT6Rsv9SJLVvwXLAG+2WkjQXZn4H6GpXW
h7HDqvmaSGyeCAmzsRt2sUvjsXXL5b0S7Gr4Ik6ITTtTc/cRtvMDuxdF2OJV
vvYN2KqAlecrsRf13Rd1YXtaxIb+hV2S5zXwDptr+TO1C9uHXR4+jX1yw0e5
Bvs/SPRFSw==
     "]]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJwd0mk0llsbB/AM5Um4lRTKLBRyCuFQ184sDchQQkWGI/OQTpHqJKUSKjQQ
ylCGyFgkHXEUeWXKPEuRMe7nfjzh3Xcf9rrW77/X2h+u/Zd28rF04VyxYkU1
PvTkesvbMKRxcg/n73lpz5bvFToSdwDygpCCxJ3jsJCneqoj9hBcYWuu64j1
gZH17lRx7HGw9b+VVxQbBp1GV/5Nw/maAzJPkmNvQ+vxWIVEnN/RlHh+LfYx
WHqKdibgXEP5wbBR7AuImbUviMN5X19y/8GYt6BTvY9XLyAPcjNr9ex9G8H3
3MGTBb6l0GlnYq/m1g5epS5RnLKVkCKTckFIpB9avpmuznB6Dw3CZHzS/mGI
VCVXFB+thfuqL2tV1L+Bn1Ltvcq0erC2uKib6/4DFpxP5/Z4N8J6H97Gj2ga
nN7YmEe7NkGBgrzY1JZZcJ5pqay81gJ9hdcurFKdg5t/lPikX20DPcEzRy0F
SeCsLNG8cq4dPFInKr8MMmHtNrOGvoROCBENrIxpY4HJY70n07HdsCyhUmWV
yoaNU/VGYSW98MM0w5W4tQgP/nvNwfVXPwynTwnGui6DrvjeZalTA8Ansslb
5eYKpNQvOBwaOAhL2Y++fffnQDmZ69yL/IdAX7mmo9mQE4X0OjQrXR0Guymh
caMtXMhPV8ss6e4I7HM7WWPA5kILjw2cxqO/gu2+M2cH3nCjRt8HJ4JTR4Ej
9ZKx6o2VSNtYZqkn5RuM/fL4YGm4Cn0w1M5Ej76DOIfIBy9yFUrLv689mDUG
db+K24/k8SBhWWUPx2fjcNnEbqjVloGaOBiXRct/gEjI1aSkVatRESMgvfHD
BHiqtN5Sz1qNlIUFPZyqJyGu0lj1wB5eNBVFrldrm4JSS4OBjDZeJBsRoerj
MQ3zl2SnVziuQYN2XZ16o9PgFih+Qbx7DTIZaWYVec9AhRn/qTMOfOisv4v7
hokZuGY7Qf1q4EMHix/u23BmFtaIMW5L6vGjyV8eIVzkLMg37di9Lp0fpXy5
VOgd8BPklPKz+1YIoAX33Sf+Zv8EWRFKRPuYABJfjDnmd24ONv8oeNGYIYC+
Gt/4yOCeB3Yjz+D+WQFUJV8PEjfmgdGjfr1sJ4E8GOnc0qtJ6PbJ5uN0I1Ad
57Vb+mtIuLozj9GCrbz41wZXfhJOcEQHpbkTaGpGRTFrLQkS3S0pRh4ECuwq
MtMQI+Hz2zUGl70IFJpbHWuqRMJebyqrN4BA0VYjUv4HSLCqezqtdJFAJcly
u6tiSDCxd725MZ5AcssG59/dISE/t0jkNXa0g8urt/dI2PbxHwX7BAK5i6Vr
lN8nQfRQbH3SfQKJ3VXYXpRCQnjKTnWJRwQKidgmmZFPgoKlbfDKFALpef/B
ceMzCRfDD5YHPSdQbr05XG8m4empN3cYWQTapOQXGtFKgpud48QD7LnRfNY/
HSRsP6OiUJFNoLSTarMhAySMWL4rXMolEMN615D3DAlHt33ScC8gUIOObrXl
Wib8qWpS2V1GoMjSILaREBOqnBWMHcoJZKzxYoeOMBNsbbuterArt8skyYoy
oaXjLXf3GwIVSDOC56SY0GigVdz8lkAJPC2KcX8wIdp1v2N2FYGcm0/f7DjE
hNOuB4s56wgkZZ727ycLJpw3tF4fiN1d30u9O8yEHGOKGsa2qbFweW7LBE32
GpvqegKZvNLcc/44E/w8dY5fbCDQ9sdc05t9mCDXui+77zOBKI+Hh09EMWGq
hl9ev51At8894QmLZgLvwHxaDrZ8ZFZZYiwTXrRXxG3sIJD1szLZrjgmZMyO
f/yO/XK066f1YyZE2IeFRnQRyPPU5rtmefi9ZObqzF4C9TsktuxqYkJ57obC
0GECBXulXbNuYUJacd7+NmyB0BzdwDYmBDHnrLePEGj3ozdP8zuZUMwMet2N
/aCzJ1B5iAkaZqp1O0cJZGUrISwzxwRug528778TqNb8sTX/BgomWu/NnZvE
/X0/UsEjQoHyL5uxcmx+LWVFTjEK3ORknZewLSVfLZDiFEyeb+8JmyJQ10TT
4/4tFIy9esgMmSbQZOSqsQINCiiz3LLjs7h/S/sP52pScC8ja+A+tpr/nfJM
bQo0Rp9GNmOfPSp1O3E3BT23IlwMfxKIU/FP9QhDCi7rz++RnSOQcLXXBTtr
CnjGi8P+mydQqVbhqJUtBYozfK0sbLvsBfNDRym4mm6Ro0QSKOlOhKyBAwV5
659+vYWt6JRSq+JCQY30kZD9TALpLres4wiiwMbBXu0lRaBe/00h7DMU/Nxo
VNKNfenryZH5sxT47hKqWMUiUM2nyZKxEAqkCWuro9iHHjEcWq5QsD7L5QmF
7aStm5Fxl4KwfPU6STaB+sAiqj6Ogm0BD04YYtsbuQbNJFDguZ1y8sC2ORyt
r5NIQfV4Qu5L7H1ew30NaRQI3nQ4qfuLQP8FsGp+ZlCwd52fowO2wTmBXJHn
FDREBteGYu+J0ApxyqUgiuPYUDn2zpSbImQxBUHHPdXVFwn0IiNlWewVBb1v
ee6bYyvnFn+FMgq8CmM8PLHly/oLr7+lQMDBxyoVW6xV3UK8loIqawN9niUC
xXeZaul9pMBg0oiQxF4/6CjpVk9BmYu6yS5sgalrE3mNFMiZNqxwxuZc3XPd
oIOCmc7Zm0XYYcSs719dFJRa7K2sxf4lzHMkqoeCww+DT3RhkzI75NsH8D4P
Pxhdwg7YasS/OETBsvjVBmKZQNOqx+akv1KwMuiIjBT2mG74v6fHKBhPfCEI
2G76D55F/6AgfkAt6wD2sOmL6KJJCrjvJb48ht1r0+G4PEtBrZkU4wz2MYdJ
Q7l5CvjbtGwuY7c7c6mYMimY6tFYG4Xd5KvCjmVTcD6m+9MT7EPBeoMli7if
HeH/y8GuD7X90L2M+9S2bk8JtukVzzwOThbccvxHtBK7JvJSvDw3CzaafDlZ
i60fE3fBbBULNL0ENjZiV8ZnufgyWBD2XFH7C/bupMr993hZINe3pbYH+/XT
VrXXfCxY+rHy/RC2ZtaYWJ8ACyJLa5W/YxfmL3Nwr2XBuKI35yT2jtL13xWF
WDCqQBrMYudWbG08IMyCbykn5uaxlar3lPhvZMFieI4gCzuz7nBSvCgL2qu7
77OxtzS5h5dvYkGT9eTtRezU9lDPAXEWfFUenF3CVr660DyDran1J5t2sVqw
DqcEC+yTfbmWseuifHllsWUizgrRnjNwzjyFHZ87t4P2hdk+Igg7PBm0aTOS
7YPDsY2m3BFtcba1UTq2/hObg7SN8k2GR7HlXJLcaTc6VptR2Nm7u71p2/Hp
FTAkWcAIoAJp+7jpXN6KrT1Xd5F2gvh2qdPYYeZ9cbRl6p5HnMdOJgQf0c4+
qzB1A/uekmQK7XfNUhXZ2OTf7c9pj10Xsp/EfuRbUk47UDO6agnbekNXJe2l
YT4lQooF/SI972kLoVULqti+6iH1tJMmLp9E2IEHRBtpKz5crjXHNqu620xb
l6Ti/bD9quU7adc8CVq+hF1psbuHtrnFrGss9uCfO/tpu2SPaxRgJ8qWjNCe
PuqeWIWtKWv8jfY5nhHuFuynYUVjtKOcepvnsOcPqkzRFhE8prNSmgWd73bN
0E598yVVGDsmRuInbeXTVrzy2Jsqhudol4h89tuFfdb4Oklbr+ZAhxF2hgof
Rbs+4COyxX7m68WibSNtnOmGfUEwZ4F2f0MVcRZ7C38d+3cftr7pTcAe35y6
+Pv/w4tzXmGzH+N6YW/ufxHSiW0Th9dN91nnmRmbvl9e/u3/A/NGG+A=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->
   NCache[{{0, Rational[1, 2] Pi}, {0., 4.810477226755554}}, {{
     0, 1.5707963267948966`}, {0., 4.810477226755554}}],
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.4130460704396224`*^9, 3.413046095315392*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"xinit", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"0.37", ",", " ", "4."}], "}"}]}], ";"}], "\n", 
 RowBox[{"FindRoot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"f1", "[", "x", "]"}], " ", "==", " ", 
    RowBox[{"f2", "[", "x", "]"}]}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", " ", 
     RowBox[{"xinit", "[", 
      RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "\n", 
 RowBox[{"FindRoot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"f1", "[", "x", "]"}], " ", "==", " ", 
    RowBox[{"f2", "[", "x", "]"}]}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", " ", 
     RowBox[{"xinit", "[", 
      RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "]"}]}], "Input"],

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

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"x", "\[Rule]", "1.3649584337330967`"}], "}"}]], "Output",
 CellChangeTimes->{3.413046112269771*^9}]
}, Open  ]],

Cell["A compact statement", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"FindRoot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"f1", "[", "x", "]"}], " ", "==", " ", 
      RowBox[{"f2", "[", "x", "]"}]}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"x", ",", " ", 
       RowBox[{"xinit", "[", 
        RowBox[{"[", "i", "]"}], "]"}]}], "}"}]}], "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"i", ",", " ", "1", ",", " ", 
     RowBox[{"Length", "[", "xinit", "]"}]}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", "0.3705580959698246`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", "1.3649584337330967`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.4130461584061117`*^9}]
}, Open  ]],

Cell["\<\
Or a nicer, loopless way (accept until the list programming chapters):\
\>", "Text",
 CellChangeTimes->{{3.4130461735078273`*^9, 3.4130461878584623`*^9}, {
  3.4130462205254354`*^9, 3.41304625073888*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Map", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"FindRoot", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"f1", "[", "x", "]"}], " ", "==", " ", 
       RowBox[{"f2", "[", "x", "]"}]}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"x", ",", " ", "#"}], "}"}]}], "]"}], " ", "&"}], ",", " ", 
   "xinit"}], "]"}]], "Input",
 FontColor->RGBColor[1, 0, 0]],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", "0.3705580959698246`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", "1.3649584337330967`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.4130462135253696`*^9, 3.413046253663085*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["The importance of initial values", "MainSection",
 CellChangeTimes->{{3.4130462729307904`*^9, 3.41304628228424*^9}}],

Cell["\<\
In this example we illustrate the importance of the choice of initial values. \
Use one initial value, close to the first maximum point of the function. As \
now the Newton iteration is used in FindRoot (see the iterative methods in \
this material), the zero position of the tangent line approximates the \
theoretical one. If the slope of the tangent line is small, it can be very \
far from the firs zero position of the function.\
\>", "Text",
 CellChangeTimes->{{3.413046284677682*^9, 3.413046313749485*^9}, {
  3.41304639719948*^9, 3.4130465824258223`*^9}, {3.4130470186731153`*^9, 
  3.4130470210966*^9}, {3.414259473821536*^9, 3.4142594740318384`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", "x_", "]"}], ":=", 
  RowBox[{"Sin", "[", 
   SuperscriptBox["x", "2"], "]"}]}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"f", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "1"}], ",", "5"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwUmHk8lN8Xx43dYIyZigqJLCmRIhXOzZJW1FcolCSR0kKSLSFJ1kJFC5Ky
hIgouVRkD1H27OvMPPYl229+f83rvJ4795zPOfc+83nPRtsrx89zcnBwqHBz
cPz/M/iLbtHKCoErDFYMTZkjYMRwesIYI3DWeWKB1DECouujr7d0Ezg/2OH1
y+oReOI+KJ/zjcDcERNP0tJGIHlHSLj9PQKvk7beI+g4AiUpTTY1FAJPKOan
07qHYS7agStOkoXTWfWJAT+G4IJz2AGNvQx85oaBu9/NAfDxkS0ykBvCMs8f
RcujbjiFjLVfm/bhGY/E2L2yLXBe86VVpkEflqsu0DvK0QJXVQnPAo0+7CKz
duhKRzMESod/qhHvw0P0mPihx82Qw/Fz10x7L+ahJe5IE24GoRIjNcPzvbgg
pF0xfPE3FO0zUhi+0YMrW+6XPR5qBFm9o6LKj7uwgsiFu2IrdZBmcyhqIrAL
y5bvLs/urIMdPoZi+W5d+OB1jy2ORXWgV7BPUs+sC3Pej0xX8KmDcyoam0+u
7sLR4sFzbUs/wXCXjh9Z4S8e8qzSsROshQND3d2fNnTgB8cE7bWPVYKFbPug
wUo7zo4/9Oi+WCU4nP7NrOtsxzPnd+dQOysgqLFyfuB5O3aUiNevc6qA8uIc
UbpEO35Mlh8RCy6Hg0/v7nMSb8O/ZRIGuuvL4NChzQnrRVvwvc7FFVr4Nxja
c1WhfqIZ83RsHDG0+QaBWz6+C2xsxhzbjndlb/8G34QMPo0/bsbUSV7VLU1f
Qeunza8fUs1Ywa+Y/EbqK2wzfcLjuvUPjp496Nj8uRhop/kuVhs24a/y99b+
0ymELCOjsTubm3DzUNYRCeIzGEG02y7BJtySsaP03cvP8EBa1j+xthHbavv/
kuL8DNy9Os/cTzRiHLPx6t7qApi54Fa76dwvLLHBeOnyjY/Qcq1fzdunHnOF
6M7KSuTAtXeBvinW9dhSMKe0rjEbBIYVapu06nHh43hXzrBs2G1z0XHbQh3e
ZaeUOkXKhqdGxMu/N+uwTAKzc/VYFuSYTawN6KnFNxckPqRVvoO+mp257fG1
+NC8wWD6kXewyuCmifqZWhyw0/xIwc90cN2xGDjQVoOvbbk2M9mcBjupvFMH
mqpxRH1Q/sRsCnyoWFsrXF6J+3Mfzco6JEMfsnK0D6zEgod06F3/XsOq/Bfc
WL8Sb8tmmr8New2uybJ7r5ZUYAl8I8S6IAnU/ZXfNnwqx0LNuX8t17+CPK19
fo/flWHGiobwe9F4GMjxlxxzKsMKOVanHS++hDVbyvIPKJXhqGrXLcE5L8Bt
7WFiPrkUt7vwxokfeQ4aM6ZWVvHf8dD9vIMXY2LhY6aDxsZHX3HW+4w9o+HR
MHNoziz9+FesmXom12ghCnYO3Lu5i/YVO/RJzec7REG2xJv8o5EleJZ1bz7h
4CPIuN+/xyO8GJsc9n9eJhsJzE03LHmMi/GVRUeZsy8jYGsxt1cEpRjftDNP
4pSMgONMQ4+j6zG+/8vCIVcrDA7++O6TLPYFz/Z9FMXXg6FsqRcXxhTigG/f
5+2C74P+Ti7Sr9WFuEwwTXZtchCghH3+K/TP+KUE78n04UDQ8Cy6Z0EtwKF9
k/M+Cf7w4X1HuXN4Pg7linz1uMUP1IYWBe5S8vEJa4miotV+oHxib8h7oY94
rCHRXDPWFzap5EeQBXKxhPZzWs4bT0g8/6deOugDbj/49Hi1hQdIP5uh7eL7
gI0iVmVw0m7BegH16HM8OfjVp9mqsmdu8ARMf98KyMbq/KmPTZ1vwBo3F7EI
rmxs13krcsXQFWi9758Wkt7jQzMWUu/o1yFibX1rg28WZhpI5GfyXIN18V27
GlYysblb27qXK1dA1MNaa8viO2x4+cJIjfglWFY2N+iYSsHODg2jw8Ln4V9s
9A+Bybf42dM9J765nINpvsaDGuNvsBHzvemf4bPA6DYxCme+xhc1jbVPC5+G
QaPwus+jSbh565+W/lOW0PO55vjQ8Cs8sDn1fU+5BbREHzLfN5CAxaNdJLV4
TaGR837L5b54bHfyde6TpmMQ/zfs487Sl7jAxky2KdgYYgoEC0NLnuMvtZXn
z6UdhtBHQcUDX+Lw9GfWznahAxBwmacUPj3FM4vPH0KmPngY+lU8yXuMfa+b
+4Y+3AfXNq7UjGdH4zuCUcsPLmuDw4Jnw6HMR1jEtES6YZcm6G773na4NhJ3
42xqad0O0PgqXvm0NRxfMkzSP5OrAsMKKe1x4iG4IMM9XTZNEZ6F7iaemwVh
lZP45B8/GTCerCDFRwXggXbx2Cn3dcB58tSqxAZfPLXVU3htlihc9G46emCj
B95/T05C04wH6g7MXD/y/DquJGyuzryZ1rmkuE01Qc0ePy3Q9Wir6tTpWiwa
fp16BKsta59RzUjRGXuzh6l5wxhSEo9+qGJk6KjShccN+u3h39ZVHalnu3TU
is7/ejFzHQ7GpuYW3ZrRqZ7Qz4j18ABeuWtrRYd5IIf+UP/wii/89+T6/G0K
DTgySGoHSwJAbsvpyROMdXD0wLUNhv5BsPEhjzbPDxmI7ekSMjAIgUiWVVnt
vCK46ih6J3BFgB1/eKUenyrECna5xPdFgq/OzsbHnDuhuPnxxZelj8D7l8/t
XmdNGHxtfPZFcjSk/Imqkj+iDTsRNnrm8BTs376SrtyqD6eEbxrEHYyD/4gf
O/7qG8Kd1m1asUrPwaOHSb8afQgu7Pm56ohbPEjkPo/lHDOBf9JbIqrsE4B1
6FABN/M4hPHdEzxsngjdb1580uc9AR8adTgPaSbBd5NdZ3xCT4Lh51jvCsXX
UFr9Z/nmgiW0JszMHVibDDwaVbcy754G0pUMwvDfG3grFbTgNHsWok6QnX6M
vAWVoZhbffbnQFHLfmB/Wwo4adD/evbZgZGAVIdBYRrEBNaY85EdoJu4ZVGa
ng4uM0r2C+8dwfV30y/95+9gIXrLcYqDE8S9Cq3U88mE91grL2LZGaZeLLdJ
x7+HNQUcCf4XXUDnYfpTG/Fs6L16ZnjOzRXu3T1lHh+RDSIrlHDv4Buw7lJe
w4Y7ObD//dv+D2U3Yd9u5wop21y4Oqdn0fbIC4K3Stw73ZoLTSKqclXN3tC4
oVL/xfE8mPvcua1y021w4JUvltT7CCGuW8b/DflC2K+OPIlNBSC7vy3kTrE/
jMXKmN9JLgAzbb+mG+EB8J/thdl+xU+A6/bejrC9C+LjY7sylT/Do4kNfzVX
34MECnfBvl1foD3tseSJ9GDg/n3gZHLBF/isN/LF89kDsH8eOk/WKgKOwN1B
5REhoLRVbE8jwiAY/uhm490waN0Ubb3jdTE8Dtxn0WoSCQ+CPr47P1AMtQ89
K+62RIIWo2XpsUIJrPxSlte3ewgvc6ReLKaUgMG7nUHztx+Bne7bztKMr9CR
9Grz/rpoYJ35fMYi/zsY+ga+PtMYCy+/dWQGz3+HgiuElIZPHJgocHB82VMK
dxbnp6WUnkEOSz9+45dSOHGbM0Qh6Dm4e9d2jZSUQVz5gMv9bfHAGdd91ruq
HF45EvEy6q9g9W8+u8TOamA8usZXwZ8KqbURObfX10BO0dfOYbdU0Pmxlsva
ogbOkUrej/WngkP+lkSxhhroTaOuySpLg8JY466Q0lr40V9kOvXwHbzPPJyx
16wOkvUyP+qmZYGF6yMlee0GcDPP2578/QMkjpk3RFk2wA8PP0Veci4wL0l4
cHk0gJKjLOuPcS74nX9d0ZXXABxiBu/r2nMh3eyjQ5zqL+gt0HuyejEPVjTb
kqmbGiFh2yfRLuMCSF6SkV0g/4Y0uZpS0pEiGB5EQXWKv0E1ytf0z/Mi2Npw
mvl6/284YWqvID5WBNnJsR9N/H5D0xZ+vbZoDEXGtCPJ87/h79WoK2ouxfAn
gXTj2NAfOM+IdcuvKQH+/V1lb0pboLGxz/Rk6ne4GPb8oqlvB6xqkQg5sVwJ
Ocpn+XPiO6DY1VW8UrMKFqs3JYuWdIDZt6IUd5cqCBdM764ldQKPv5GF/3AV
fAj6ZHHQvxOsWbJ7DjdXw4rfn/06gX+h6XDY8cDiWqj8HCS6qqwLCnx8DYys
6+F01lfmUlUPqHUHTSW+boKSwZfP7jwcgHXNii39DzphBO+w2Zo6AtrPMn4O
3eoDwzKWo86nEdgr/yDZK6wPkqpTXEwqR6B0f7gd5VUfnG7ZcM91ZAQGp+mT
StV90DAhmFGoNApTZx8260n1Q4Fc38KRtFEQ0shb+FnSD0EPoh5fTmfAiz8V
tzbwDIKC+XRtRgYL6Cc1yUbXh6GQM/hJ2hcWNJQ6aOX6D8PxDCnbt9Us2KiS
rUONHgYfngPTCSMs2FM4Rkr4OAy/c2LXR8sTsLdN76Xi4jAEUJGD5wsCODiX
nrz1G4Fxu1KOTYZjkDfIQ1UIGIXCT+HnE43GYEzAzS3z0SgEUk9VSpuNQcnW
gBa5V6MgUch6JHl+DOY7V+rbSkbhAF1cQcx/DPTKtZUvLI9CfMnFo2Q8Bsvn
zVTqXBhgLEWNHdMYh/fDc6+CjZhg1c11VBTG4YZsnmSQFRMckmZXthuOw47a
AxMOF5ngq/T3vIv5ODTLxyf8usuEbI2M7TM3x8FVkqPK4DMT1hgfqVjIHwd3
45d3baVZIENDXhIl4+B8J17XbSsLVJp2qGhXjMPK/bXyjposOGC5PtqnZRyW
a/1MRo1Z4HFhxIb0bxzaV7YWn/RmQeftoDnevRNQpnHE8FU9C0Z0vdIU9CYg
V53j2v02FszyXD194PAEjG9J9TzUzwJqiPn3+5YTcH3L6Y1WcyzQfSIfIeQ1
AYcENLbmSRBgZLlOTzlgAvQG09uc5AiwlKLMHA2ZAAOrqf3/lAlwTZq2DH82
ASLD7jrxOgQkZ31XoH2ZgJlbtO0CpwnIdslvVSudAPPH+Tre5wnAGumh/9VM
ACu4pffHJQKaCx9NRnVMgIMpufevBwHkClsstjwBrw55aNOjCVgTYnZdk3cS
Ti5xhe+MI0DW+JDcScokHHe+ZaaUQIBW0/YHsVKTUPfl9a6H6QQ4d3OYS8Ik
TE1sbztcQoDYzW7HnP2TQOu6w/WplIBioa9eB40mQTb6+EWOSgJomv6JN6wn
YbZafu3qBgI+15zLFTw/CSeW90z1NBFgd06/POHSJLyfm9gR1EJAXhgPq8Zz
EnRqb/FbdBFwZtMAh53/JJDkN2z36yWA/1MZ/V/wJLiy1gz4DRDw3viNfMTD
SXg6EjF+cpiAU/33dsvHTkJvTYskH4MALk+HI4UJk6AgbqUezCIgnXrwzPGU
SWifiOfsHSNgaS/5rk/+JFgHqQ+vmmb3t37k8ariSVjCmk+YM+z5XKhKTf0x
CY4GFxTj5giYXUz7gn6y9X0cs5P8R0D8w5C6378n4cJbxbWuCwQcVLzce6lz
Ep7fu0d9uUjAxJejM5wDkyAUmLbmxRIBcf9tE3jKnIQ/vidnry4ToD9MkVCZ
noTDo94+YisEMH2IbaWLk3Dpk7J7JDuOWVW3z5J7CmqOvcnqZMeQmmU6LjgF
b679N7XMjocg8sI9+hToyZeJTLDjyKZrHpLrp+BRPv75kR3vcToemiMzBWvj
lUkm7LiXY0f8QaUpoLhtufaJnT8khp7zd/sU4GEu5gy7PvWtU6U3dk+BSt52
XR523FnS2Cy4bwqmntjo9LP13TPPHU04MAUGh5wzY9j6VZnRy7tMpsDYzenc
2nkCWvzcRGvNp+D9x2eKl2cJ8BM332R3Zgq0HnnWRLL7uyVj165/9lPQ6vpR
+t4kAY164ocinKcg853G+JFxArxb5qzk3abA3kWM0suel/yVliuF3lOQ3pW1
/yB7nj+5P/kdvzsFf2YeXbzNnrd7bGz0UMgUFMWHHLzLPg8bVT3f+kRNwbu8
xJxT7PNSWWr5edWzKQjiWn9r5S8B68clulHaFJw85mWR10zA98Clyd/ZbL29
iqvKGwm4JNHJe/nTFPT8LXZ+W0dAkeHLrU8rpoC5k2zY+IOACx23QaV+Ci5T
Ihw2fCOA6mJzvLR5CkSvpl/VLCLA9sVG9/HBKdj2z/j2rxwCBHdyPrhHTIG1
XueWExkEm4d7nkvOTsHTW3TBpLcE8E6/+naQdxpyBTKy3j4jIPWwvEjipmmw
3UZpPOBHQJSR6tXWrdNQ+W5KOJp9f28f21NPU5+GitXzfEnXCTA1N3rkbzAN
16zPOwjYErBs6yZ23n4aQj9PKjK02efjvK/7c+dp2LyuOePATgJ+OQS3NLlN
gzj7mtsrEfDW+UXc/nvToDhha9a3moDjHmUbFN9Og0LNxqz+YRZoedf52mRN
wwI9hLa/kwUKvq3dT/KnYTezXNK+gQWLd1mvBCqmQeSShmdfAQuSI9cojg5P
w/miTfeb7rLg31t71YwtM6BnvRBnJ8qCvrSrkQM7ZiDU+UV+GokFPzM8JqS0
ZqAmSHw6c5wJSR/CPoQfmYH1F9z2EXVMMCrO07x2eQYqP6jeMghhQuIf3n07
M2dg6WKRtvoMA0JaqYmXPs4AY1H7NPQw4GbHOq7XeAYcb6kVc9cy4EjvttLV
dTMQDDMjxUkMmGGZHZwdm4HCZHxr0YgBB3nfHPukNgs9Yr3iV2NGIduOz7Z6
zyz4OJn0xfiMwrpvF6536s6C6YYXZzzsR4FxW/ER53+zUGS7G91UH4Ww+ZTG
Qy6z0J2lXm9YNwKNjHTztpxZiDp5wwDND4PWYWEH5udZ+FLZdEmlYxhep1x2
X/k2C47H5WhtxcPgZr/tqWzjLBzY9GL4wr1hWNuV2eo0NQuiOZsDLUSH4fSv
bOvFnXNA90u9+kJ8CMq2050p2nOgbPMq4+TcIKhEuPhIG8zB8vtJ+YY/g8Bx
dOdL/RNzMLklW3whehBeleV2hdyYg+hLD26piAzCUEH+Ocm8Ocg6T762e7of
rscXOersmgep+2fjSiN64Wa9YGupzjwUKZmXr3fqBS/Ok4eO7p8HJfXtXXsN
eiHQblLJ6sQ8fNuueq91rgfiFBUZt1zmISzze2+MdQ98z4p0zs2ch88PLB01
JbthdYmdy1bFf2BPebnWkdkO+d1k73VrF+C1TRSjTb8elm/f2au/cQEsst7d
UmutAwOpufnLmxeAbjN7ReNKHTSc6ncr2b0Ah8aHGqJVfwLzF77qcGoBOIZP
Vd2vqQKZMle7vLgFiOX4kDA/+h1CUzsPH5dahPG1IhGnVdPA1iV7XbDsEpj2
koRljpRhg77VuzdvWQIG3+6MavkfWPHELfNytSWwzr8Ze5FUjlkaKIpXdwm4
p1U33sirwJ7/aoT9bZbAX/b5zxsbanDUnWEOr+dLICdpbHlsuh6XhUsPXhZb
hib53hmvt804hSOAR3jDMvQ7S8JOWgsOuTYomy6/DPfq3sTmerbg4/9l2Iyo
L0NL0jd9qlEr/rtGq9XedBme8ufvnSfa8Nxz85ozkctwe3W6sbrCX7w5PSzn
mOAKwCfqA+70HhzsfuBOJW0F8imd4VxtPZihz2mst24Froi01f8U6MUZHTdG
dm5eASTePlZt34t3ilhvFDdcgbWxJ2v1pPqwzvUt4Z1+K+DUr+h9w68fv9Tp
tzIPXgHbZfmukXf9mEPwpVJd5AokZ28kb2zpx99e0cpK4lfg6ov+mOptA/hA
0/xiUtEKmB8/9Zv8ZwAf1yy/6PRvBQRicl+6rRvCpzj3SUxwcKBi1Xm/uH1D
OHhI0j+DmwNZCbj9cnUYwowPf0wUhDiQ+rhr5r7cIZxx9DBDfD37eXgeVeXw
MN5xW012UZMDCaz0/cq8MILtzosE52txoPRLChPF90dw1GHGmCviQPdFz932
SBvBM2LJRUxDDuQtLvuvlzmC87PWnvprxoGmI6UlvZxHsXYPR+RXVw70Q4X3
l/RpBqbcnpCqc+dAR7hsW795MXDX+r70Di8OZHZsq81ELAP7nfhRPhfAgTwH
Tzmxmhi4vDyUQyWaA6105V44tJ+JY8/fDtN6yoFym3z3bT/LxE6c1yQOPedA
p77rlj7zZGKKlqnm+dccSOKKledyBhObZq67GpfLgYaSg6ubRFhY/ojQ8tsC
DtS0PXRNlTwLzw4tPcj7woHquqOidLRZOFam+019KQfqk+6mPndg4b/Rb/7y
/eZA5U9IqTIFLJyl9vTy6lYORNpLUZyqYmG/n8ELMp0c6LHsQp12JwtvEnAW
0xngQBO9Rl81SAS+6LXT2HWGvd+u745piMBaa+U77vzjQF8ErrsrGRNYOE/M
KXyZA13KFNkkYU3gLOJfYCovCV3X/pNtepPAd0IYq/LJJIR2tByO9Sfw8c2d
iaUUEgKf+0zjcAJP25YUda0hIca4+U/+1wQuW8k+wlpHQrprHf+QMwn85FlS
64IUCf0bknD3yCew4+4YBwFZEgpPN1pvXkLgPb/vzaxRIKHLnUg5voLAQi63
AjZtIaGUA0kSJ+oJ3CHiRFNTIaH/ZF6eutFM4Ix0q3jYQUKbNjee4vhLYN+D
RtuO7iKh3R8dH033sesbgMJTe0kos5HqbTpCYFn/7YccgIRa9YUeSRAEntog
23xDj4RGw3b9d3SSXW/hKnt/QxJKIFF0BmbY9Z7knYo4TEKT79//Hphn1zsz
e+eFMQmZuk4kGi2y6300LJL+Hwk51plukVxm16va9rzAnIR+s8QXjq0QuLO6
essPSxLiuLMvnsGOMx2LChrPkJBzYmza/2Nf3izDnnMk9CinOOv/64+/Smgi
LpAQVlbYv569nyx6dG7JiYSGrmzgOcjON9UeME6+SkKKAX/vt7LrKbvldlvc
lYT8OoJcfrLrfbzGQVjenYQ6hVXsFNh68iRMDrM8SUhQc3ZKha33t4zm/bzb
JHRLNnFvJrsfM4rSP3z8Sah6zehEUj+B16jw8xjeI6FfH9r/ULsIrKE+pivy
gIRKXzSlTLQQ+MTeZt8/YSRkQA1VOvSLwFGGbxcvxJDQy9mRQye/E/jD0Yg9
qrFsfeS+W9RCAjf+5+4+95yEbg8ddNPKITDd5sBU0GsSCs5LoU68JLCavara
sRQSilG7eswzmq3/kvjVte9IiM/W4LV7MIEfug+Npnxg51stPVh7ncDZPnWb
r+ez1wvPP1CwJ3B9QP6FPYUkJL0j4v2kBYGpkUG9ld9IyM6mnH9Ai8Cqj69u
fPSDhNwqq3mEthHY5LnFGcsqEnK6fnrdaykCh6coto02kJDn1jpt1WUWzsik
rv3wm4RYhorKMkwWrs2dM/NqJaEnuTzTgW0sTPla3iDUQ0KRWfWMt3ksHNLq
UKk8TkJVWgtKRvYsnN5lwj8zRUJhxpwev01YuGpAc3/RHAnNXh17Xb+HhcmT
/F+NODiRyMOnVdLCLHxfMKXgiggnGvsx77wpjYnfikbO7qJzom/fbmQbRDJx
udgtdQ4xTiS1cPJBqxsT8286+D5CihOtsnwccQYxcaDW8Nv3ypzIcSw4qq2a
gZN16wdubedk34ewdS8yGLj0QMEmXXVO5G3pkNIUzsDcJ+7HN2hxIji2rTHJ
hIH9L29+MnmYE3lsHEmprBrFvi8c76lf5ETLdmo/3N+OYGRpzzBy5kQhTWXa
Dj4jmCR+7pjDdU7kVsf/9NN/I9gv0mp9nAcnMhEx2h68OIwDAowzOR5wIvst
+gf69w/jexfV/1SlcaLf97/4SeBBfEBBTas/kxMlhf68evfBIObv25awnMOJ
Sjz306zMB3GQtaLT9kJOtH3oc9EJ5gAONlm/ElPNiTK6mL0PaQM4TIOkYMvk
RF5XfPS59fqw0eTSA89xTlRtarjwgbcPi2T9G4ua5kQPA8+m9lT04ojNU59+
LHEiXiODMwVGvThSYtBImcKFBqZ/Srge78FRnDVuc9u4kGQToaKs14Xjap+U
hV3lQnUuD0UEkv/gdQWIK9qVCzkfrswxXvUHx74agjh3LsTZvXuOeec3fuqu
WfDGlwuZjp+s1LZswo9lmtOKI7jY951bwJ/3F37kJhY5kcWF/lw0lFwOqMYP
pGIszca5UMEzS01Gwnvs6fxoTPI6N8pKkJBd7/UTDnzd3tF5gxvZLASX5xyv
gzVr6ipe3uJGt+1EdosN1kH2F6FXG+9wI6814tF8Ig0wJBR4Qi6CG4UODoQq
WTaCWZr7p60Z3GjElH7GorsZ1IasA/aOcCPV3SoBq8u6gENr8eoikxvZS3mJ
fefvhtrwWOsv49xIbP97htjhbnDc9UcD5rnRTqM3Om9ruyE+0GRYl58HBaxe
27q7vgcocnpGh+R5UJjMf90xX/ug3b17j6ASD8pd6z9RutwHqdW3FaqVedC1
Y4eQz55+MHAt5DBS50HF35mF/ln94PVNPeeYPg86MXu7NDtmAIbPKoqftOVB
072Sp7ccGgKLS21bnOx50NJDYz4/P7a/dQsD74s8aLOTW57ypyF49WDKPuE6
D1qzn7bGS2EYrHOLc4f9eBD1+WGlL2x/XY1dKhYCeVDg+x1aAVtHYE+lfIfw
Ax4U6X8kIuL0CIj9DeFWe8SDOFUTz18rHoF6/pP/ebziQfvnEj03eI4Cogtd
CHnDg15cdt/T/mYUMiSxx4s0HnRYSeXmz1+j8EBNLvFrDg9q5ltjfXwzAwys
xsfI33lQ+ckdIU8rGfDBPolbspwHXTfzrWoZY4DMNXNxlWoepKgzydRdw4SV
u1/gv0Ye1MBhcvX+aSYUZN4Pi+vjQWh39dvPfUxQ/KSV+G6IB1m9Slwnxs2C
mO9ELmbwIIteDsVwGRa4tJzo6J3iQa6hAmd+WrGgp5d/fHqOB+08kFIY5c4C
E9Znbv4lHrQ41yN57RELlLlktm7l4UWCnCqPHctY8Ey4CXQEeNHwF7nV/mx+
I4sH/WcizIsKW17bZkyzYHAry8N1NS9ykvG9rb6RALNdCWGBa3nRxiqx4TB1
Nh/vM018IsmLXFxazKYPEJBg9qmiUI4XKVeQi/ousfn37OWO2s28yPucU5CT
N8HmJunxLmVe5Hd+ce5fCAGMG7+4J7fzoqfK3QIP4wiw9A0U59HgRZFJzoUq
KWw+D969VWwPL2pa1Fr7K5cAzWgGbNbhRTEHdqt6lhCQ/PLlf3t1eVF/f564
QjUBq1OPXzi6nxflYd/xpiYCAj7weJ45xIs6bUe6AjsJmCjKD7tmxIukB7pW
7R4gwKbCKdH/OC9STFr4Ovr//w9+SeVFm/GiqLIQxRcTBOh01le8OcWLuBLe
BxvPEpA+FNBRcJoX7Wiz1Vj5R8C6yV3jVba8aKtjgG/6EgH3l0a4O+3Z+kym
S81WCNh/Lao89SIvuhZ7xuEfO+bs1w656cyLKAtJZp/ZMbYYNNa/zovuHti2
4ekyAV7VEXRRN170IiTe7NEiWy/a86fjFi9S8hh8nDJPwHROb2yqNy+aLISA
tmkCshVCT9+8w4sSZfd9UxwnwDlOQ0b/Li8aTxzijBwlYItIVz/1PlvP9sRZ
ej+b9/3up3SE8KJjXset3ncQkDSjdjk1gheFXbOZcGD36+zFdtWbUbyo6lXR
nT3sfkp13p3Se8KLAvymmuW+EtB6TCWf+owXfXZQqFH6SIDpbj9IfcWLWJ52
nHdeECD6bgvXzTe8aHmDlEhDBAG10k1lemm8yOO1vomWHwGG/IpGHdm8iNv9
2TErWwK4vepFU/N4kaNZCZ12jIBiwqPJ7RMvssw7SOnWIWDPnxor6lf2ftJb
FivFCJg9dFO6o5QXkR7nKA5wEvChSLovpYIXfTsrxLGeyT7fyS5OevW8SKf6
rnNDEQukb6z1cOti5/8ZJHrbnAUdQ1+19fp40c6PEUrOe1kQa3WJRB3iRcFy
V+VuSbGAro+DUghetDRLtevrZgIv/fzj9mVe1PrBVFSSfT+/BVIsUzj50KF9
RvS5PUzw/fdRyo2XD1mesvw3wb7P893kZBEKHxIyauU6XM0ARlbWB11JPvQj
bNj18VYGpGw65S6ykQ8VSP5oD+BkgP0TLq32TXzIYrMx6cmfUfh72+zbja18
iHTNYk7t9ig0GC3Wv93Lh7QTHgWc+D4C+QxDgnKKDwlGLz7cyX7f7Qx7Flxu
zc7v8uGV8PgQZKmMy/md5UO31kl4ybHfj2+ux1pNO/ChOi7q3TXs92nMHKOi
7Sb7ee6fWzJnB+EG98Okt9F8KCs2X0jicj+oSbSf1K3nQ6fJMgdK+Loh44vq
9EIjH/qmLXzDurALlM7cjcht5kOZsgdJl692wcbEbT8Uu9j1vHvW0/7uL1AV
7+wUIfhQ78k74k57O4C1Q16kXYgfSb25WO2l2Axph69+v3GAH9l4jvY++l0J
5a9aAn2P8CPXUZ701WYV0Lege/CBCT8Sum1Z4ND4A6TSV9fGW/AjK92egoKa
7xAh9PlPlQM/2rXb5cZ6xy/gWsMzuvE+P3pDnSfiFx6CjnGcaG0FP1J4+Dnc
z7kMn3rD3dhcw48uGaSsK5v7gW+uXI7predHWU8l7532q8BZmWj9fAs/qt+5
rdD4UTWWoQ5s2jTCj26Rso/CiXrMV6+q6UEWQOfOhU1uM/mD646XnZY/LIA+
rN9/fK9xN967Sr5+1EgA/ZbadX/by26c3HRX7/1xAbShxKEtgtWNPS0MFLVO
CaB04wOZMQ96sPzp7+PHHAXQ9X6VP8eLerG349cA73sCSEevfG6GawAPKcnM
6j4QQNpbfdfcPMjmZ8YdR/5wASQm2+C8K2wAK17ZZ/Qohr1+PjTj8upB3Oha
LJbyWgARWV5vzrH5Wsm3KLXxmwAKb9b7sJHtv6L3SUnG/hBAM/NmK7Y7RzAH
l0/4mSoBZOQ/GvnJaQQ33dV2HWkQQIf+PmMm/hnBvg8KtTl6BJDT/byMNUmj
ePSIRFZpvwAaDZ1VL28cxWYUL5kHwwKo2rD0jjc3A2+N3Mu3ZlwAfRVMzR2x
YeA/MZ/qtnCQUc3OT+5Rwkysa7FOb5yLjAZvXm5W1GDi9LUeuXl8ZPRpmHwl
y5qJ/Z7tjt0nQkYR2xLjIlOYmGn9VIiPTkZqSPbGYA0TW2yY96leQ0ayIo1C
m8eZeFti/jlzKTJ6pDR01mEnCz89J/5bQoaMFr3k0m1NWZhbzv1AjxwZdWHP
2n0uLNzyZpfyZWUyihNolHz7joX1HR+/VNtORkarT2zaWsH290qzonM7yUhD
UTovrJeFA97lzfhpkdHNtpS44VUEjpDbEvEUkdGLO7F5WJnAcc9fbs7SJ6OJ
P/da9xgQOHn1qm9lB8iIYk2yPGnJ5pHQIKuOI2TU91kwdu1VAhfxLE1PmpBR
fLQevwebjyu8r4WTT5DRcOnKpltsvmmc7lfceJKM7ku5+KxOJnDX5VNfd1mT
kdSTmvdHcwnM6K+1NDpLRoLTVk7S3wg8a603bXeejIIa0+1DfhKY8/fHME9H
MupUS3aOaCUwxWir4sPLZORhmmG9hc2768riS95eY+tdWyppxSCwvM5qS3yD
jITyEt9uZPOgWt79qaZbZJRW18jnOUdg7W3LoQxvMqpcajW9wObLA8nXFbj8
yMj3mW5BP5s/TaUGi9cGkpE05avzNJtPbWIsT6kGk1Go4X84mh1fotRN7g8j
o8KCozxlSwR2D9QPtX5IRmNht9Pu/iOw/3K+vGsMGTnu2a/cOE3gMDfl4uBY
MlpjkbzmPZtHY1kJJxNekBG11ZZbYojdX/s1kx8Tycj7Dj1pFZvn33cGh9Qm
s+cZv+dDbCOBC81W5PpT2fORPcWdUU7g8loXvJBBRkc7+W4YfWb3d/+QBS2H
jJbWk+Y80wn8t8hqQvEjGf28oh2h8YzNuxkGcmaYjLpfMGz/u8nup8Knokvf
yMjrPfVfri2BhV9us/D/QUalQf/OJB8h8KZwsQdZP8mI/k+WpibB5km+kE0/
fpFRXqibYS2JwFq3OYo6/pCRYV6t5L9+Fv7vyvAYuYs9b8U3ulypLHx60Dp4
Yx8Z9WTt5u+5z8IXzzTIag6R0bq7Atb/ObCwn/Fns/NjZDRko35hXJqFs1RC
CzGHIBqJof7UvMPEhW9IZr+5BdGn9S9tK04w8Y8NbgSDXxDlKt0pmlZk4k6R
MzLrRAVRrZj0V4UqBhYaUw1y3SiIAvaSw6VWRrG4w+uND+QEka442ftT+SiW
7Vr7OWGzIAoca2KuRIziPXWcrNrtgogr529wuOQodsxq/G+zriDiaF0krciP
4K+R8PyfgSCaOhB+89bIMJZwSR2oOiiIUh3e8rWkD+M6dd9bzscE0VP4xzDe
Now1P295mWMjiKJ+5jBObRrCvGV+I9q3BZHbyXXjpL/92OYNc4eIvyBivT8q
NxjZjz8FWXh3BQqiSPLBvS16/fjy4W1U/zBB9NLk+xciqQ831rWolz8XRHbJ
55P2WPXiV22qd44XCiIzyp+79MQuvFgYVylbLIhyrj58oGPYhc1e8K6a/iaI
6quF9p748xeTz7YnP64SRGdfRy++tevE1wfuVbe3CqIey8MnM53bMBrvFLsw
L4jGt8i8JRk24Q7e0AxPDSGklOK0O/tuMZ5Z/ern7j1CSOW2ae6v718wRa5g
bFZbCPnoTKuHe33CSK9fzdVACO3ZYH3GfTAHJ93W/njJVAjN3viZPfg5Fl+a
Y2Lr60LID96mvGzLgX/DRvWQIYSSOtK37V3dAPR5u4ml90JI3aPBq76nAbby
e9ILc4WQTmBp47vMX3Ba/s0JzS9CqMv9nzbdsAlKbFdaVKuFULgD/9ADp2YI
asvs2TgihI7peNDX+3dCwkgpVxdTCLk/EpnNR3/h03zbphfjQqih6pK/wNJf
YIjxX1g3L4Su22hY/8zvAmNTm1EavzDq7pZ0rtvUA2tqqFNc8sLo1OjWddm/
+6Du4V4tupIwKqm+kj+j0g/BFvYBMtuEUcSo72u5oH5Y6v28ap+GMAr4upyp
rD4Aff/s1X32C6PBFSrZ4s4gvCiO9A49JIzytc1MbeoHwTywsPSZkTASWTX0
SUl6CCpFaWafzYTRhKj514mCIXiv+MVtzl4YZXR2767pGIaLrMEiPidh5H/U
6+452RHY9IHGJ3ZFGP2NE9j3+MIIPAGHx+o3hdG3VcNdpaMj4GNGz79+TxgN
60vdrOoZBU0JHQ6/B8LI0Nrav1mCARPdDgciw4URZemkh+0JBpy/XNSc+VgY
UU2HdDtLGHAkwHGe8UYYdbrJ6YgGsf3goah9i2nCKPo0h2RCLhOwCL4vmCWM
tDavkn7I9otqcavWKeULI88x2q4HO1nAsAHb3YXCSNho5HioJQuS5S+mHihm
1y9q+qrPlwVrs/GeC+XCSNZosfcem8cabo74uVULIznX6NDaARaEaK+uulvH
fr7I6jzDw+YJLkSPbhRGkXkizrtlCOCouGiZ1CyMCprNhyy0CfgUFv0qp10Y
rfMuoBWaEeBiWjz6tYutn2OswsaZgK3rRnc09Amjyd15nAYBBAz8Xe3VPSSM
4m4vVNg/ISD+Nfo+xhBGkn5iBt9TCTjl5CTEMS6MjEYX31t+JmDV9hhTkWlh
VPPt4oUtlQTUzBQ/k5oXRlOPJZq2/yEgsHC0T3lJGBWZz/tf7iEA+a1R1iZR
UBcDrelg88g/w303jvBQkI9fvuHtSbZ/F770xVKAgn7eamIeZ/ON868YHidh
CgK+wVkzNk8pPC056iFKQWdddK4Es3mp6zQj+v5qCrq8cOImgx3HbhLrfLKW
gsqPzBz1YvOT6cg++beSFGT5+NTh3QsEULIuOX/cSEEX1P7rkZkhoPzG47wy
OQpK/mkfr0kQcGfv1+WmzRT0RnNC2YPNg0EXe2deKlOQiHvyxdR2AiKechOO
2ylIbnO6v249AU/K5QZ3qFPQ17Ph13S/s/s1u//vkiYFuZ1/sC+Vzadv5R3+
/NCiILu5uNUerwnIOnH/ZySiIMn00E3Zj9h8k1OF5Q5Q0HOTXA0rJ3Y9PYyP
xGEKyo+VoP40JaBOlJJVYExBKdzddWlabL1XTOKPmlPQVi+bZ6/52Pz24toT
MUsKepjcJvd9hAVjNQ8juk9TkHuXfpRxNQs4tjb53rCnoDnaJd73wSzgt5xx
h4sUtJYUoHb/AguowWLXBJwp6Fe1QVSDLpuPhk6efX6Dgrhzj+0ommKCopjn
yQu3KOhgqLDeuSomqO5/dmy7NwV9jjqhfDueCZDUua80gIJ6Ow9Jy+xnwv5f
K7vDgyjoD9+V1+ls/jHi3Kh2MoSC+Gs5lz/0M+C0zTkZ5iMKirnoK2h4mwE+
EkOcq19R0D27nnPp8aMQeFhgoTOZghQOsT7bnB+FMA+lybepFNSf97s2SXEU
XjRf6tXKpqBj/abJA6kj8CVq/JtdCXv9T6bCyxfDsCi0EPDhLwXhjXvexRgM
AreWhLdPLwX5iVdIp08NgJCT9o0DgxQ0lVJwNyBxACQqbp9vZ1HQomPQq9B/
/bD3Lvd+7mUKmp2vqLr2rA88loT5TCVEUJhFWbVuWjfI9OrJX5EWQZWvZapU
UDdUld8yCN4kgpxu8lxe+NUFElH9/sVbRRARuLgYPvYXsNIXDmVtERRcZfGi
xaEduC0u/eM5LYLQm5a5fFIThGdXMj++FEGd6J7DMdYH0HzCIfzrlQgqXHZ5
LdOTBV3eGltZb0SQZq6pTMbbFFA7mHhxU5YIouo6Xav99RAa/94ajCgWQQbd
CWNnZN/gdcKbux27RdBlM9ObUaQy3JCjNxIqSkV5PUYnlJNbcaD2h/5IOhWN
1HPsGYtow3t+bOqOXk1F8/nymkIe7Tixlaf5+VoqOrbKW0zUsBNfI5WXvttI
RbadXSNG/V2YanwkoWY7FSUeLUwyUO/D35sLn9XvoKIdVvvHO5/2YXdb5SdN
6lRUHv/dTnmpD3fdoIR37Kai6HcDrBrcjzOf1Xkx91GR746dnad3DmKjEVML
4eNUdOXBYLxQ0zDmdC39T9SUin5GX37euXEE5y2pG682o6J3S1c+r1wawVKi
YvslT1HRYbcczrXLI7gh9t6+jVZUtOFIJOLVH8WBm+a05E5TkUaFSOXWoFHM
3NWyQ9mW/f2fM6KiggwcX3JQZbsdFUUJSOHvBxnY9PAnJXV7Kgr6qxvzPJCB
C0/HbdS+yF5/QaU97R8Dh9y1Fjl6nYr2eg2QvlQxMRKpJR9zZdfH3Xlt/QIT
Tz3R4T3hxu7fgO1/XoosbJm+YcnKg4oOVnKd0/BmYYpGxJyNF/v5g/7TQUks
/BVzTNn5UFHFZIxDLZs3lH51j1zyoyKPs4FZmykE7rQ6PnA1gIokuJ5UaLL5
4uHA127XQCqStP+RrHKIwPuv7uhwD6KiD4saIYLnCfxv/lWzVzAVBVod6K7w
JnCG/6pG3xAqUjs0pOoQRWBb4bs/A8Ko6HVU8+a+twRe83i6MiiCiuo+zr7Y
y/bDFdL2ZSEPqchbJ/DepSq2n/1bv9Y5iorMLV8LRTcT2Oe59mXjGCriPep/
qa2XwC2WKcWqT6gIRjXMdZgE3rlu9SpaLBW5X5V6WjhF4PBm3wuTcVTk6sO/
/gTb34/EMD41Pqcim/uWPbxsXjA4YUHJe8ne//Ve0Xo2H8TTv599nEBF1e8z
BrLZ8UK9Sq77KyrK7CwqSmPzgllEHP+p11QkfC+O9nme7feN+Kz2vmH3xzrf
vYvNK0LCLpkSKVT0uHckaT2bZy5UdXIup1LRE9VAh0s9BP56/5DZ33Qqos+4
Zjf8JrDkgbyU4gwqEqw+Fm5UweYRXpmlhCwqEi/w3txVQOBf30NN/LOpKHh6
Z8U9dr+2+c+/svtARY/6ExoN2Hx2f9/5WYM8KnI2ZP1c50vgvpW6Qwr5VDQY
edyaz5HAUKT1gv8TFan6ymoLmbD5xevt+PBnKtpe3nFUSZ3AJvO3n6Rjdn9u
ctLz5lk47ePoaGgJFXmle6+Xb2FhXjdzuPKNimjalKWcPBYunNg2sP0H+/68
9Ecql1hY7H3sbnoFFV37kzi0QZ+Fr1/hDZ2qpCIFZ8OZnetYWJHRseNjLRVR
V5uubyxmYv/Ug/ee1FHRCf1fF20j2TzgkNt6q4GKzjaOh0vaMHFUf8gdrd9U
dL7n+ppNcwzM8Xfvz5IOKhrVflxSSGNgy+dvZF79ZZ9Pu+bHC2zez7OkuwV0
U5Eb0fjVO3oUX2oekTDspyL1d2r3T4qO4ub6pxerGVTUWjZs9mtqGO+I4Cl6
x6KiCWcf/4iUYRxmdE00fIyKDOSSWjOshrF+1YH8Y1PsfMLGNOmiIZz1fZbn
zwIVJWhXk447D+KgjycSusmiaOvd3c27gvrwzvrDQaNCouhjr9m6Zok+/Hdk
35VpiijyuXmggMjsxRpS27QF6KKItdK+61V9D+4N4G1RXS+K0knkoGmubqxz
/CPVd4soGhMT1OQwb8VTDHFfqSOiKJN2ZYPnmm84nlfkgqKRKBIwuRdQNFiM
D0vzGKmZiKLdB/U9WM5fcOJ/4+v3m4qiTkrGYs/rD9j4U8XHy1aiaPq8EUli
9B5OvedBFF4SRRvXD55rVy0GG5n205ahoqi8MslKU7sFsq/WPNcNF0XciWeT
Vra3Ag8uat8cKYrUpJRVxeXaINUy4dRclCiCg4c85ng6YCrK3iz6mSi6VlVt
ctSiC4L4xo/+TBNF28/O5lyr6YXWEz0hee9Ekca9oB03NPpAOelX1fNMUTS8
q+2M1Is+aEB5By/liKLKW3lmeo79IOHhaSDwWRSVUazu8bEGIIvBo61XKYqM
XUz6ddOGgXPvrKdStSj6m5/0AxaG4cT9oU+itaJIPb/M2OXgCPyTq9LsqhdF
l0vFtth3jcAR18KbP36JohGbi7lrN4/Cy6/v8jKaRJFFYZMp48oo6J+J2Ond
Ioo4LWUeNc+OQsy7Oy52baJok4n92UFNBgwvXM8+3CGKRiV9klZuMiDsyQnV
dd2iqKVTxlhzjAHN9eu2fhwSRUx6JL9+OROUpIWcXoyIouicOSexeSZ4Oy+l
3GWIotf7ao/+VGCBjGCXgumYKNI1cvzQ7sMC15P19nsnRFHhklOK0hsW/Hjz
9bXMFLu/HWuXj9aw4JL+a9nxWVEkKJ9pwEcnoOhhjG3zvCj6eupgc4waAaLd
9xLwgii6++EVmTAmwE7lVlfykijaG7KTIsz2a3neFzeErbDPQx5Ni+VPAH+1
5ekbJBp6tF1/dUQs2y+vO/rciouGIuXIemMZBKQ76LTr8dDQt71Kj4VKCFjJ
U1m/hY+GtHapC/XWEaD2bKaUX4CGfPd7Ke/oZOe78+XqAJmG7l94lW0yTECM
fcD670I0hCRLFPZMsP3i4cNlCRQaKi3wA9Yc20+r0q7dptLQzdQzv5zYfnnr
mpb11jQa6thW2fue7Y9PL7ws27OKhvRdrZ9gdhzRZX9NfA0N5YgIoCj2+q+l
yhIzYjSkVLf7mArbf0+lTpX9WktDO3pXHCPY+eQjPl97v56GhPermXxk12Nx
w08iXJKGmr3Dx1+x6w0+dfDHpQ00ZBzZds6M7Y8LgXr90EYa6tJZ6Ktl62Vt
+iOhKEtDM45CbcJZBEiTX/zgkaOh2k+ejfRnBBwn7K73ytNQpZNYUPddAgIa
t0iWKNKQONrQdPMyu98FEz9eKNHQhpfHvv05/n//W3DdaysNpdVN+3FqELAu
wFfy1DYa6j7Re2l+DQFHHA3Ld6nSkKhlIGfRNAuydjRJTu6goTnlB6SP6Szo
EX9WXqdOQ8yyNE0igAWrlm1dMnbR0K1fk3mLp1jgXj5W7riXreeDUk88BwtS
3310MdSmodW5X+K16pjQ/tBHSg7Y+tc8r/j4nAnIWsi1S5e9v16ApoUaE67r
/pIq0qehwsjOev95BiQpxFbE7aeh4jqWZ1wRA/gnFDaYH6IhO32BM891GVAX
qFdZc4yGNlVxhFiojQLnJfKNtP9oiHZnbZHJ8AjsPFa/4f4Jdn25P/JOvGDz
7fozN/RP0pC5yEmNp5wjYJPlIf3Zhj3PJ+KHoj8MwcPofVVPbGloPjzV547V
EHz34Hdzs6Mh600HC5M4h0DRIKZquwMNKf58sPXtwUEYa3nv9vYKO99KYMSx
b/3gyzVcHe1DQ3cmBdroTj3Aqb9H8JkvDQX6uLyvIbrhbsCDg4l+NGTicKVs
7Ho3BPNsK8sIZJ/PqYcv41y74BGfC/4RRkP41x1fs5p2SBZcej//goZUd8Sd
KJNqhBq66GNrTEOTBruvBHQ/ARNT26ZzJTR05sXhNz3PbkJDVA794jca6tnW
TTu4JRj/Xm0W4faDhmKGjVW3B6XgLrG4++E/acje/HN1QR7GU+vlvEr+0tBr
reXD6fr12M3K7dOPbhqads07YnixAc8/+zFX00tD/66aHLYO+4WXJS/eaB2k
obAImbHw+ibMJ53pPEmw9d3VUFPe14rXbdp9Vo6DjiK590iYmHdj/ad3Z/k5
6ajijYCc8c9ufJnSEMrgoiN5zm8GkwY9uHju4qccPjp6rOHTwqXSi+1rntF1
RejIqPB7zx6iD0foDqfIidLR1XaJNDPLflzwUR0J0OlImqmkWl3aj4USay/V
raGjks9NVfHRAzjbjaPstBQdiTWO+y9tGMLto0esdKXpyCc+8vWk9xDmOft0
Qk6GjkSk666ttAxhi8NqG5hydJS+P/eOZsgwXt5g5+6pTEfnfAXqLZtHsGJ0
FuWMCh3J9rUkb5YfxcfIS0m62+ko5FLYUP21UZw0FV0voE5HMdtilmM4GfhQ
xQ+lJ1p0ZOi/p32fABO76qwq8dSho1lIslY1YOLnOTbmZxAdfUM6+8t9mHjs
+by/vD4dnXdUX/d3hInX0fevI++noyt8TV3/SbKwXtDDLKYhHcV66pRZH2Xh
mOtbOj4cZsfa5VlSySxcPHjT5clROrJZd0O0ppaFh62+C3gZ0xHz7NKBlSkW
pjVQ488cY9f/V+XOe3ECaxlaa+j9R0ftlMNrunYT2L4wpVr+BB39O3Lp8T0L
th/dPmNLNqcjCYWFsiRXAucn684zLejIq5watzOMwD3rw8PrT9HR6mtt2jtf
s/1kZJtcrhV73owl4QS2H1TnVSx8cpqOBBZHXriz/fFpT9fjXjZ0xPVGqyC/
lcBBY8VDZ2zpyPkCn+WZQQJnnxe+rWdHR0Fym/MvjhO4rfXkagV7OsqZe7Sn
ZY7A3CbJaWQHOqImRvmlsP3tttKJfSxHOrqbt+pCK9v/Wuxh/+Q50ZGQc/P0
RXZ8J/OBc+5lOnKh5LucWiRw6qZm7qdX6Gh0sNHq7QyBG59uivO6RkdHWivs
TFkEXqZc227jQkcGp/64nWb7dcWALz/0btDRDyY5r6yJwMfnBU4r3KSjLDFb
79BSAns6m02Rb9HRQurQmZxsAktr2JXLe9JR0YeZjWGxBP6+dO2Zrjcdlbu7
1my6TWDH0ttXT9+mo5O8Bgq3bAhMCQ3V97hDRyPLNYdDdQicYxonHuNPR7ya
pMxza9l6JFIY7+/S0ZvN1hIrYyycmPY9avg+HbWtIc9HxrCwoUuDA08IHSWf
f/ohwo6FGXu6tDaG0ZFcXyjtnAoLq1cu9Fk8pKOXuleEoj8zcWukQIFrFB2p
bPdOX/ZiYp+TYqERMXTULfxmxngvE5cPqamXx9JRk/SIfkkGA1/OQgJ9z+jo
ebzJ/wJ1AYr+/O1j7L8SeE7d/54TQF6glsMbFuy/XAdqhTejE0D89kOKl3Hr
v+8lodWmqxNAGRbzZO0F6r+U7a6pwq0TQCrtTLX9o+m/OLW8fd6vE0CIJESG
UT/pv4JE2CUWtBNAcy/a3upt6L8WYw92hbwTQDf44M0HrOa/uyodSqG+E0BV
gmtVVTXmv2DyKh69wBNAaoTUiTy85b+qgUbG9MQTQFfgXooIw+S/PaB9FmTN
E0DgJGIU+rXiv2Td67ZC3hNAjj/fwmd63L8JpfmKXuATQHhDYsCtTNu/rmwH
X3riE0C02mhA5hvav/f7Igey5hNA73zuSK6x17+KGlpXIe8TQP8ForArvtK/
L+JnKz3xE0Aa7SYclHvRv9Spdf9Y8xNAbfLJQvc20L8eOZGnkPcTQPes49lv
UMu/wwCfe6z5E0CuyqVmtrzIv2jIrE/I+xNA/1mbZgkmxr8MkLoj5P0TQMLX
GtavjMO/sVfI9///E0B/0Y4h8fDAv2Q0OZI=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{-1, 5}, {-0.9999949610941634, 0.9999995014182347}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.36068857338167*^9, 3.36084079772362*^9, 
  3.399187566881587*^9, 3.413046594242814*^9, 3.5620927235613627`*^9}]
}, Open  ]],

Cell["Take the initial values :", "Text",
 CellChangeTimes->{{3.4130466016534705`*^9, 3.4130466081828594`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"xinit", "=", 
  RowBox[{"Table", "[", 
   RowBox[{"x", ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "1.25", ",", "1.5", ",", ".01"}], "}"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.4130466495924034`*^9, 3.4130466501331806`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1.25`", ",", "1.26`", ",", "1.27`", ",", "1.28`", ",", "1.29`", ",", 
   "1.3`", ",", "1.31`", ",", "1.32`", ",", "1.33`", ",", "1.34`", ",", 
   "1.35`", ",", "1.36`", ",", "1.37`", ",", "1.38`", ",", "1.39`", ",", 
   "1.4`", ",", "1.41`", ",", "1.42`", ",", "1.43`", ",", "1.44`", ",", 
   "1.45`", ",", "1.46`", ",", "1.47`", ",", "1.48`", ",", "1.49`", ",", 
   "1.5`"}], "}"}]], "Output",
 CellChangeTimes->{3.36068857782806*^9, 3.3991875720990896`*^9, 
  3.41304661751628*^9, 3.413046650804146*^9}]
}, Open  ]],

Cell["\<\
Now, solve the equation, and see how big can the change be at vera small \
change of the initial value.\
\>", "Text",
 CellChangeTimes->{{3.4130466336594925`*^9, 3.413046730238366*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"sol", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"xinit", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}],
       ",", 
      RowBox[{"FindRoot", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"f", "[", "x", "]"}], "\[Equal]", "0"}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", 
          RowBox[{
          "xinit", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}]}], 
         "}"}]}], "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", 
      RowBox[{"Length", "[", "xinit", "]"}]}], "}"}]}], "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1.25`", ",", 
     RowBox[{"{", 
      RowBox[{"x", "\[Rule]", 
       RowBox[{"-", "21.269446210866192`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.26`", ",", 
     RowBox[{"{", 
      RowBox[{"x", "\[Rule]", "23.845927750870853`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.27`", ",", 
     RowBox[{"{", 
      RowBox[{"x", "\[Rule]", "10.634723105433098`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.28`", ",", 
     RowBox[{"{", 
      RowBox[{"x", "\[Rule]", "7.089815403622064`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.29`", ",", 
     RowBox[{"{", 
      RowBox[{"x", "\[Rule]", "5.317361552716548`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.3`", ",", 
     RowBox[{"{", 
      RowBox[{"x", "\[Rule]", "3.0699801238394655`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.31`", ",", 
     RowBox[{"{", 
      RowBox[{"x", "\[Rule]", "3.963327297606011`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.32`", ",", 
     RowBox[{"{", 
      RowBox[{"x", "\[Rule]", "3.544907701811032`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.33`", ",", 
     RowBox[{"{", 
      RowBox[{"x", "\[Rule]", "3.0699801238394655`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.34`", ",", 
     RowBox[{"{", 
      RowBox[{"x", "\[Rule]", "3.0699801238394655`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.35`", ",", 
     RowBox[{"{", 
      RowBox[{"x", "\[Rule]", "1.772453850905516`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.36`", ",", 
     RowBox[{"{", 
      RowBox[{"x", "\[Rule]", "2.5066282746310007`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.37`", ",", 
     RowBox[{"{", 
      RowBox[{"x", "\[Rule]", "2.5066282746310007`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.38`", ",", 
     RowBox[{"{", 
      RowBox[{"x", "\[Rule]", "2.5066282746310002`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.39`", ",", 
     RowBox[{"{", 
      RowBox[{"x", "\[Rule]", "2.5066282746310007`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.4`", ",", 
     RowBox[{"{", 
      RowBox[{"x", "\[Rule]", "2.5066282746310002`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.41`", ",", 
     RowBox[{"{", 
      RowBox[{"x", "\[Rule]", "1.772453850905516`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.42`", ",", 
     RowBox[{"{", 
      RowBox[{"x", "\[Rule]", "1.772453850905516`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.43`", ",", 
     RowBox[{"{", 
      RowBox[{"x", "\[Rule]", "1.7724538509055165`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.44`", ",", 
     RowBox[{"{", 
      RowBox[{"x", "\[Rule]", "1.7724538509055163`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.45`", ",", 
     RowBox[{"{", 
      RowBox[{"x", "\[Rule]", "1.772453850905516`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.46`", ",", 
     RowBox[{"{", 
      RowBox[{"x", "\[Rule]", "1.7724538509055159`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.47`", ",", 
     RowBox[{"{", 
      RowBox[{"x", "\[Rule]", "1.772453850905516`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.48`", ",", 
     RowBox[{"{", 
      RowBox[{"x", "\[Rule]", "1.772453850905516`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.49`", ",", 
     RowBox[{"{", 
      RowBox[{"x", "\[Rule]", "1.7724538509055159`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.5`", ",", 
     RowBox[{"{", 
      RowBox[{"x", "\[Rule]", "1.772453850905516`"}], "}"}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.3606885800813*^9, 3.3991875748230066`*^9, 
  3.413046734714803*^9}]
}, Open  ]],

Cell["\<\
See the visualization of this problem later when we del with the itarations.\
\>", "TextBox",
 CellMargins->{{64.3125, 111.625}, {2., 2.}},
 CellChangeTimes->{{3.413046755935317*^9, 3.413046767942582*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["Summary", "MainSection"],

Cell[TextData[Cell[BoxData[GridBox[{
   {"Solve"},
   {"NSolve"},
   {"Eliminate"},
   {"FindRoot"},
   {
    StyleBox["Reduce",
     FontFamily->"Courier New"]}
  }]]]], "1ColumnBox",
 CellMargins->{{101, 237}, {Inherited, Inherited}},
 CellChangeTimes->{{3.5628667520688224`*^9, 3.562866828165756*^9}, 
   3.5628668672906246`*^9, {3.562866915151509*^9, 3.5628669219531207`*^9}, {
   3.56286706938898*^9, 3.5628670989042315`*^9}}]
}, Closed]]
}, Open  ]]
},
WindowToolbars->{"RulerBar", "EditBar"},
WindowSize->{1241, 735},
WindowMargins->{{59, Automatic}, {Automatic, 27}},
Magnification:>1.25 Inherited,
FrontEndVersion->"10.3 for Microsoft Windows (64-bit) (December 10, 2015)",
StyleDefinitions->"Modelstyle-EN.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "1.4.5"->{
  Cell[1869, 51, 195, 3, 52, "Subtitle",
   CellTags->"1.4.5"]},
 "i:124"->{
  Cell[21839, 765, 136, 2, 34, "Section",
   CellTags->"i:124"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"1.4.5", 117571, 3454},
 {"i:124", 117648, 3457}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 1299, 27, 50, "MainTitle"],
Cell[1869, 51, 195, 3, 52, "Subtitle",
 CellTags->"1.4.5"],
Cell[2067, 56, 209, 6, 28, "Th-Env"],
Cell[CellGroupData[{
Cell[2301, 66, 194, 3, 31, "Item"],
Cell[2498, 71, 194, 4, 31, "Item",
 CellID->6804882],
Cell[2695, 77, 240, 4, 31, "Item"],
Cell[2938, 83, 206, 6, 31, "Item"],
Cell[3147, 91, 201, 3, 31, "Item"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3385, 99, 100, 1, 47, "MainSection"],
Cell[3488, 102, 281, 6, 39, "Text"],
Cell[3772, 110, 351, 12, 47, "1ColumnBox"],
Cell[4126, 124, 216, 4, 38, "Text"],
Cell[4345, 130, 259, 4, 84, "1ColumnBox"],
Cell[4607, 136, 182, 4, 38, "Text"],
Cell[CellGroupData[{
Cell[4814, 144, 97, 1, 49, "Section"],
Cell[CellGroupData[{
Cell[4936, 149, 38, 0, 37, "Subsection"],
Cell[CellGroupData[{
Cell[4999, 153, 425, 12, 63, "Input"],
Cell[5427, 167, 366, 8, 34, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[5842, 181, 115, 1, 37, "Subsection"],
Cell[5960, 184, 311, 11, 47, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6308, 200, 158, 2, 37, "Subsection"],
Cell[6469, 204, 330, 12, 68, "Input"],
Cell[CellGroupData[{
Cell[6824, 220, 55, 1, 42, "Input"],
Cell[6882, 223, 392, 12, 37, "Output"]
}, Open  ]],
Cell[7289, 238, 331, 6, 63, "Text"],
Cell[CellGroupData[{
Cell[7645, 248, 156, 3, 42, "Input"],
Cell[7804, 253, 282, 9, 37, "Output"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[8159, 270, 113, 1, 47, "MainSection"],
Cell[CellGroupData[{
Cell[8297, 275, 247, 8, 42, "Input",
 CellID->368399657],
Cell[8547, 285, 211, 6, 34, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8795, 296, 496, 16, 42, "Input",
 CellID->903256584],
Cell[9294, 314, 953, 32, 34, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10284, 351, 545, 18, 42, "Input",
 CellID->157418400],
Cell[10832, 371, 543, 19, 34, "Output",
 CellID->150236073]
}, Open  ]],
Cell[CellGroupData[{
Cell[11412, 395, 316, 11, 42, "Input",
 CellID->85310987],
Cell[11731, 408, 536, 10, 31, "Message"],
Cell[12270, 420, 395, 13, 49, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12702, 438, 981, 32, 63, "Input",
 CellID->893844131],
Cell[13686, 472, 929, 32, 34, "Output",
 CellID->802223497]
}, Open  ]],
Cell[14630, 507, 203, 6, 30, "ExampleText",
 CellID->128224251],
Cell[CellGroupData[{
Cell[14858, 517, 264, 8, 42, "Input",
 CellID->404930390],
Cell[15125, 527, 137, 4, 34, "Output",
 CellID->53858810]
}, Open  ]],
Cell[CellGroupData[{
Cell[15299, 536, 160, 2, 49, "Section"],
Cell[15462, 540, 223, 4, 38, "Text"],
Cell[CellGroupData[{
Cell[15710, 548, 170, 3, 42, "Input"],
Cell[15883, 553, 1019, 31, 139, "Output"]
}, Open  ]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[16963, 591, 113, 1, 47, "MainSection"],
Cell[17079, 594, 272, 8, 39, "Text"],
Cell[17354, 604, 525, 17, 68, "1ColumnBox"],
Cell[CellGroupData[{
Cell[17904, 625, 151, 2, 49, "Section"],
Cell[CellGroupData[{
Cell[18080, 631, 84, 2, 626, "Input"],
Cell[18167, 635, 857, 27, 870, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19061, 667, 84, 2, 626, "Input"],
Cell[19148, 671, 323, 9, 720, "Output"]
}, Open  ]],
Cell[19486, 683, 275, 4, 3822, "Text-Framed"]
}, Closed]],
Cell[CellGroupData[{
Cell[19798, 692, 180, 2, 34, "Section"],
Cell[19981, 696, 493, 15, 822, "Text"],
Cell[20477, 713, 359, 10, 963, "Input"],
Cell[CellGroupData[{
Cell[20861, 727, 416, 12, 626, "Input"],
Cell[21280, 741, 510, 18, 701, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[21839, 765, 136, 2, 34, "Section",
 CellTags->"i:124"],
Cell[CellGroupData[{
Cell[22000, 771, 471, 16, 991, "Input"],
Cell[22474, 789, 505, 15, 701, "Output"]
}, Open  ]],
Cell[22994, 807, 133, 1, 513, "Text"],
Cell[CellGroupData[{
Cell[23152, 812, 137, 4, 626, "Input"],
Cell[23292, 818, 324, 9, 513, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[23665, 833, 113, 1, 34, "Section"],
Cell[23781, 836, 324, 12, 63, "Input"],
Cell[CellGroupData[{
Cell[24130, 852, 55, 1, 42, "Input"],
Cell[24188, 855, 391, 12, 37, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24616, 872, 160, 5, 42, "Input"],
Cell[24779, 879, 507, 16, 51, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[25323, 900, 181, 4, 42, "Input"],
Cell[25507, 906, 172, 5, 34, "Output"]
}, Open  ]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[25740, 918, 163, 2, 47, "MainSection"],
Cell[25906, 922, 1085, 32, 116, "Text",
 CellID->23700],
Cell[CellGroupData[{
Cell[27016, 958, 160, 6, 42, "Input"],
Cell[27179, 966, 242, 7, 51, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[27458, 978, 161, 6, 42, "Input"],
Cell[27622, 986, 421, 13, 53, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[28080, 1004, 290, 9, 42, "Input"],
Cell[28373, 1015, 685, 23, 59, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[29095, 1043, 292, 9, 42, "Input"],
Cell[29390, 1054, 1158, 37, 572, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[30585, 1096, 237, 7, 153, "Input"],
Cell[30825, 1105, 504, 17, 120, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[31366, 1127, 278, 8, 213, "Input"],
Cell[31647, 1137, 163, 4, 120, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[31847, 1146, 193, 2, 213, "Subsection"],
Cell[CellGroupData[{
Cell[32065, 1152, 187, 6, 213, "Input"],
Cell[32255, 1160, 153, 4, 120, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[32445, 1169, 342, 9, 153, "Input"],
Cell[32790, 1180, 288, 8, 120, "Output"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[33139, 1195, 307, 4, 47, "MainSection"],
Cell[33449, 1201, 272, 8, 39, "Text"],
Cell[33724, 1211, 519, 13, 48, "1ColumnBox"],
Cell[34246, 1226, 679, 16, 48, "1ColumnBox"],
Cell[34928, 1244, 927, 22, 91, "1ColumnBox"],
Cell[CellGroupData[{
Cell[35880, 1270, 177, 2, 49, "Section"],
Cell[36060, 1274, 133, 1, 38, "Text"],
Cell[36196, 1277, 540, 14, 48, "1ColumnBox"],
Cell[36739, 1293, 635, 15, 48, "1ColumnBox"],
Cell[37377, 1310, 546, 13, 48, "1ColumnBox"],
Cell[37926, 1325, 116, 1, 38, "Text"],
Cell[38045, 1328, 1168, 35, 92, "1ColumnBox"],
Cell[CellGroupData[{
Cell[39238, 1367, 122, 1, 37, "Subsection"],
Cell[CellGroupData[{
Cell[39385, 1372, 120, 2, 31, "Item"],
Cell[39508, 1376, 117, 2, 31, "Item"],
Cell[39628, 1380, 119, 2, 31, "Item"],
Cell[39750, 1384, 120, 2, 31, "Item"],
Cell[39873, 1388, 116, 2, 31, "Item"],
Cell[39992, 1392, 119, 2, 31, "Item"],
Cell[40114, 1396, 120, 2, 31, "Item"],
Cell[40237, 1400, 121, 2, 31, "Item"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[40407, 1408, 100, 1, 37, "Subsection"],
Cell[CellGroupData[{
Cell[40532, 1413, 595, 17, 42, "Input",
 CellID->294372793],
Cell[41130, 1432, 2635, 85, 125, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[43802, 1522, 758, 19, 42, "Input",
 CellID->134382497],
Cell[44563, 1543, 610, 11, 31, "Message"],
Cell[45176, 1556, 545, 10, 31, "Message"],
Cell[45724, 1568, 546, 15, 39, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[46307, 1588, 316, 9, 42, "Input",
 CellID->1386834456],
Cell[46626, 1599, 4906, 159, 234, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[51569, 1763, 331, 10, 42, "Input",
 CellID->1005063525],
Cell[51903, 1775, 1704, 53, 91, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[53644, 1833, 215, 6, 42, "Input"],
Cell[53862, 1841, 415, 8, 31, "Message"],
Cell[54280, 1851, 190, 6, 34, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[54507, 1862, 232, 6, 42, "Input"],
Cell[54742, 1870, 488, 14, 34, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[55267, 1889, 303, 9, 42, "Input"],
Cell[55573, 1900, 455, 8, 31, "Message"],
Cell[56031, 1910, 419, 14, 50, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[56487, 1929, 318, 9, 42, "Input"],
Cell[56808, 1940, 1279, 43, 34, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[58124, 1988, 207, 6, 42, "Input"],
Cell[58334, 1996, 162, 4, 34, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[58533, 2005, 313, 11, 42, "Input",
 CellID->242404353],
Cell[58849, 2018, 4439, 131, 160, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[63325, 2154, 483, 16, 42, "Input",
 CellID->572071652],
Cell[63811, 2172, 1197, 38, 34, "Output"]
}, Open  ]],
Cell[65023, 2213, 96, 1, 28, "Th-Env"],
Cell[65122, 2216, 165, 2, 38, "Text"]
}, Closed]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[65348, 2225, 207, 2, 47, "MainSection"],
Cell[65558, 2229, 326, 5, 66, "1ColumnBox"],
Cell[65887, 2236, 106, 3, 38, "Text"],
Cell[65996, 2241, 579, 16, 67, "Input"],
Cell[66578, 2259, 105, 1, 38, "Text"],
Cell[CellGroupData[{
Cell[66708, 2264, 149, 3, 42, "Input"],
Cell[66860, 2269, 3153, 95, 89, "Output"]
}, Open  ]],
Cell[70028, 2367, 104, 1, 38, "Text"],
Cell[CellGroupData[{
Cell[70157, 2372, 152, 3, 42, "Input"],
Cell[70312, 2377, 1326, 33, 57, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[71687, 2416, 150, 2, 47, "MainSection"],
Cell[71840, 2420, 326, 5, 63, "Text"],
Cell[72169, 2427, 3524, 117, 138, "1ColumnBox"],
Cell[CellGroupData[{
Cell[75718, 2548, 94, 1, 49, "Section"],
Cell[75815, 2551, 204, 4, 38, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[76056, 2560, 94, 1, 49, "Section"],
Cell[76153, 2563, 301, 9, 42, "Input"],
Cell[CellGroupData[{
Cell[76479, 2576, 216, 6, 42, "Input"],
Cell[76698, 2584, 465, 8, 31, "Message"],
Cell[77166, 2594, 277, 7, 34, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[77480, 2606, 392, 11, 42, "Input"],
Cell[77875, 2619, 6076, 107, 309, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[83988, 2731, 713, 22, 83, "Input"],
Cell[84704, 2755, 139, 3, 34, "Output"],
Cell[84846, 2760, 139, 3, 34, "Output"]
}, Open  ]],
Cell[85000, 2766, 35, 0, 38, "Text"],
Cell[CellGroupData[{
Cell[85060, 2770, 488, 14, 42, "Input"],
Cell[85551, 2786, 263, 7, 34, "Output"]
}, Open  ]],
Cell[85829, 2796, 214, 4, 38, "Text"],
Cell[CellGroupData[{
Cell[86068, 2804, 381, 12, 42, "Input"],
Cell[86452, 2818, 285, 7, 34, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[86798, 2832, 122, 1, 47, "MainSection"],
Cell[86923, 2835, 670, 10, 1441, "Text"],
Cell[87596, 2847, 134, 4, 691, "Input"],
Cell[CellGroupData[{
Cell[87755, 2855, 189, 6, 626, "Input"],
Cell[87947, 2863, 22859, 380, 4470, "Output"]
}, Open  ]],
Cell[110821, 3246, 111, 1, 513, "Text"],
Cell[CellGroupData[{
Cell[110957, 3251, 261, 7, 626, "Input"],
Cell[111221, 3260, 548, 10, 776, "Output"]
}, Open  ]],
Cell[111784, 3273, 195, 4, 513, "Text"],
Cell[CellGroupData[{
Cell[112004, 3281, 639, 19, 626, "Input"],
Cell[112646, 3302, 3794, 110, 2745, "Output"]
}, Open  ]],
Cell[116455, 3415, 215, 4, 326, "TextBox"]
}, Closed]],
Cell[CellGroupData[{
Cell[116707, 3424, 30, 0, 47, "MainSection"],
Cell[116740, 3426, 431, 12, 912, "1ColumnBox"]
}, Closed]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
