(* Content-type: application/vnd.wolfram.mathematica *)

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

(* CreatedBy='Mathematica 12.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[      5460,        149]
NotebookOptionsPosition[      4337,        127]
NotebookOutlinePosition[      4677,        142]
CellTagsIndexPosition[      4634,        139]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"<<", "Optimization`UnconstrainedProblems`"}]], "Input",
 CellLabel->"In[1]:=",ExpressionUUID->"43fd5522-c612-4eb9-b9ce-7b5ae5df356a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"funs", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"x", "^", "2"}], "+", 
      RowBox[{"4", 
       RowBox[{"y", "^", "2"}]}], "-", "13"}], ",", " ", 
     RowBox[{
      RowBox[{"x", "^", "2"}], "-", 
      RowBox[{"2", "x", " ", "y"}], "+", 
      RowBox[{"9", 
       RowBox[{"y", "^", "2"}]}], "-", "17"}]}], "\[IndentingNewLine]", 
    "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.789353795677677*^9, 3.789353880629438*^9}},
 CellLabel->"In[2]:=",ExpressionUUID->"b0ea2328-3161-4931-82ee-9ccf961e7bb8"],

Cell[BoxData[
 RowBox[{
  RowBox[{"data", "=", 
   RowBox[{"FindRootPlot", "[", 
    RowBox[{"funs", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"x", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"y", ",", 
         RowBox[{"3", "/", "2"}]}], "}"}]}], "}"}]}], "]"}]}], ";"}]], "Input",\

 CellChangeTimes->{{3.7579101410637493`*^9, 3.757910167944426*^9}, {
  3.789353762789822*^9, 3.789353815994114*^9}},
 CellLabel->"In[3]:=",ExpressionUUID->"9bf4df9b-b3ff-409b-98d4-9faa4eeb45c7"],

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"Last", "[", "data", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.7893538186260777`*^9, 3.789353823401444*^9}},
 CellLabel->"In[4]:=",ExpressionUUID->"8e815e84-61ad-4854-8891-e23138491159"],

Cell[BoxData[
 RowBox[{
  RowBox[{"cp", "=", 
   RowBox[{"ContourPlot", "[", 
    RowBox[{
     RowBox[{"Evaluate", "@", 
      RowBox[{"Thread", "[", 
       RowBox[{"funs", "\[Equal]", "0"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"y", ",", 
       RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.789353895577392*^9, 3.789353947784462*^9}},
 CellLabel->"In[7]:=",ExpressionUUID->"2866837d-3c3f-42ad-9ead-438aa4140a3b"],

Cell[BoxData["cp"], "Input",
 CellChangeTimes->{{3.789366025058754*^9, 3.7893660254770603`*^9}},
 CellLabel->"In[16]:=",ExpressionUUID->"d3a16085-ecab-41ad-9a40-bd2b3e48ed7e"],

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"{", 
   RowBox[{"cp", ",", 
    RowBox[{"Last", "[", "data", "]"}]}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.789353954480589*^9, 3.7893539673015203`*^9}},
 CellLabel->"In[8]:=",ExpressionUUID->"928724e9-10bf-45df-8341-972dff023f90"],

Cell[BoxData[
 RowBox[{
  RowBox[{"data", "=", 
   RowBox[{"FindRootPlot", "[", 
    RowBox[{"funs", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"x", ",", 
         RowBox[{"-", ".1"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"y", ",", "0.0001"}], "}"}]}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.7579101410637493`*^9, 3.757910167944426*^9}, {
  3.789353762789822*^9, 3.789353815994114*^9}, {3.789354095059615*^9, 
  3.789354097925672*^9}, {3.789366478831517*^9, 3.789366504586252*^9}, {
  3.789366606343302*^9, 3.789366608383881*^9}},
 CellLabel->"In[20]:=",ExpressionUUID->"ca2d8ac6-4cc3-4964-8873-faaaf677e505"],

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"Last", "[", "data", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.7893538186260777`*^9, 3.789353823401444*^9}},
 CellLabel->"In[21]:=",ExpressionUUID->"032527a9-d95a-42ec-af78-b5a8db4ca492"],

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"{", 
   RowBox[{"cp", ",", 
    RowBox[{"Last", "[", "data", "]"}]}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.789353954480589*^9, 3.7893539673015203`*^9}},
 CellLabel->"In[15]:=",ExpressionUUID->"d4bc373f-9790-4772-97dd-034bd9bd2e77"]
},
WindowSize->{Full, Full},
WindowMargins->{{Automatic, 338}, {Automatic, 45}},
FrontEndVersion->"12.0 for Mac OS X x86 (64-bit) (April 8, 2019)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 157, 2, 30, "Input",ExpressionUUID->"43fd5522-c612-4eb9-b9ce-7b5ae5df356a"],
Cell[718, 24, 589, 16, 73, "Input",ExpressionUUID->"b0ea2328-3161-4931-82ee-9ccf961e7bb8"],
Cell[1310, 42, 532, 15, 30, "Input",ExpressionUUID->"9bf4df9b-b3ff-409b-98d4-9faa4eeb45c7"],
Cell[1845, 59, 237, 4, 30, "Input",ExpressionUUID->"8e815e84-61ad-4854-8891-e23138491159"],
Cell[2085, 65, 566, 15, 30, "Input",ExpressionUUID->"2866837d-3c3f-42ad-9ead-438aa4140a3b"],
Cell[2654, 82, 175, 2, 30, "Input",ExpressionUUID->"d3a16085-ecab-41ad-9a40-bd2b3e48ed7e"],
Cell[2832, 86, 287, 6, 30, "Input",ExpressionUUID->"928724e9-10bf-45df-8341-972dff023f90"],
Cell[3122, 94, 679, 17, 30, "Input",ExpressionUUID->"ca2d8ac6-4cc3-4964-8873-faaaf677e505"],
Cell[3804, 113, 238, 4, 30, "Input",ExpressionUUID->"032527a9-d95a-42ec-af78-b5a8db4ca492"],
Cell[4045, 119, 288, 6, 30, "Input",ExpressionUUID->"d4bc373f-9790-4772-97dd-034bd9bd2e77"]
}
]
*)