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

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

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[      4219,        134]
NotebookOptionsPosition[      3717,        114]
NotebookOutlinePosition[      4061,        129]
CellTagsIndexPosition[      4018,        126]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   StyleBox[
    RowBox[{
    "Valores", " ", "de", " ", "x", " ", "que", " ", "verifican", " ", "la", 
     " ", 
     RowBox[{"ecuaci\[OAcute]n", ":", "\[IndentingNewLine]", 
      RowBox[{"usar", " ", "doble", " ", "igual"}]}]}],
    FontSize->12], 
   StyleBox[" ",
    FontSize->12], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"x", "^", "2"}], " ", "+", 
      RowBox[{"2", "x"}], " ", "-", "7"}], " ", "\[Equal]", " ", "0"}], ",", 
    " ", "x"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.656088318403304*^9, 3.656088337008773*^9}, {
  3.656088589847347*^9, 3.6560886540201983`*^9}, {3.656088711149105*^9, 
  3.656088752583675*^9}, {3.65608879318507*^9, 3.6560887939140325`*^9}, {
  3.6560890960428257`*^9, 3.6560890978729043`*^9}}],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{"valor", " ", "aproximado", " ", "de", " ", "x"}], "*)"}]], "Input",
 CellChangeTimes->{{3.6560887973939066`*^9, 3.6560888081897593`*^9}}],

Cell[BoxData[
 RowBox[{"NSolve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"x", "^", "2"}], " ", "+", 
     RowBox[{"2", "x"}], " ", "-", "7"}], " ", "\[Equal]", " ", "0"}], ",", 
   " ", "x"}], "]"}]], "Input",
 CellChangeTimes->{3.6560888696585093`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Extraer", " ", "la", " ", "soluci\[OAcute]n"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"Sol", " ", "=", " ", 
     RowBox[{"NSolve", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"x", "^", "2"}], " ", "+", 
         RowBox[{"2", "x"}], " ", "-", "7"}], " ", "\[Equal]", " ", "0"}], 
       ",", " ", "x"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"a", " ", "=", " ", 
    RowBox[{"x", " ", "/.", " ", 
     RowBox[{"Sol", "[", 
      RowBox[{"[", "1", "]"}], "]"}]}]}]}]}]], "Input",
 CellChangeTimes->{{3.656088850232728*^9, 3.656088897069642*^9}}],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{
  "Encontrar", " ", "raiz", " ", "con", " ", "ecuaciones", " ", "no", " ", 
   "lineales", " ", "\[IndentingNewLine]", " ", "1", "\.ba", " ", "dibujar", 
   " ", "con", " ", "Plot", " ", "2", "\.ba", " ", "raiz", " ", "con", " ", 
   "findRoot"}], " ", "*)"}]], "Input",
 CellChangeTimes->{{3.6560889376575327`*^9, 3.656088989352845*^9}}],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Cos", "[", "x", "]"}], ",", "x"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", " ", "Pi"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.656088993515931*^9, 3.656089033946595*^9}}],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{"doble", " ", "igual"}], "  ", "*)"}]], "Input",
 CellChangeTimes->{{3.6560890786895905`*^9, 3.6560890881248574`*^9}}],

Cell[BoxData[
 RowBox[{"FindRoot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Cos", "[", "x", "]"}], "\[Equal]", " ", "x"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", " ", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.656089053802064*^9, 3.6560890740031633`*^9}, {
  3.65608911516392*^9, 3.6560891238074746`*^9}}]
},
WindowSize->{716, 521},
WindowMargins->{{110, Automatic}, {Automatic, 0}},
FrontEndVersion->"9.0 for Microsoft Windows (32-bit) (January 25, 2013)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 846, 22, 72, "Input"],
Cell[1406, 44, 183, 3, 31, "Input"],
Cell[1592, 49, 268, 8, 31, "Input"],
Cell[1863, 59, 669, 19, 72, "Input"],
Cell[2535, 80, 384, 7, 52, "Input"],
Cell[2922, 89, 293, 8, 31, "Input"],
Cell[3218, 99, 163, 3, 31, "Input"],
Cell[3384, 104, 329, 8, 31, "Input"]
}
]
*)

(* End of internal cache information *)