(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[      4693,        170]
NotebookOptionsPosition[      4141,        147]
NotebookOutlinePosition[      4512,        163]
CellTagsIndexPosition[      4469,        160]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[TextData[{
 StyleBox["C\[AAcute]lculo Num\[EAcute]rico",
  FontWeight->"Bold"],
 "                            ",
 StyleBox["Septiembre 2009",
  FontWeight->"Bold"]
}], "Subtitle",
 CellChangeTimes->{
  3.460962399119762*^9, {3.460962435682262*^9, 3.460962436135387*^9}},
 TextAlignment->Center],

Cell[TextData[{
 StyleBox["Nombre y Apellidos:",
  FontSize->16,
  FontWeight->"Bold"],
 StyleBox[".",
  FontSize->14,
  FontWeight->"Bold"],
 StyleBox[".",
  FontSize->14],
 "............................................................................\
........................"
}], "Text",
 TextAlignment->Left,
 TextJustification->0],

Cell[TextData[StyleBox["1er Ejercicio",
 FontSize->16]], "Section",
 TextAlignment->Center],

Cell[CellGroupData[{

Cell[TextData[{
 "Se desea resolver el sistema siguiente:\n\n1.021 ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["x", "2"], "=", 
    RowBox[{
     RowBox[{"-", "4.953"}], " ", "y"}]}], TraditionalForm]]],
 Cell[BoxData[
  FormBox[
   RowBox[{"           ", 
    RowBox[{
     RowBox[{
      RowBox[{"5.040", "xy"}], " ", "=", " ", 
      RowBox[{"-", "0.0544"}]}], "\[IndentingNewLine]"}]}], TraditionalForm]]],
 "\na)Estimar gr\[AAcute]ficamente una soluci\[OAcute]n aproximada\n\
b)Utilizar el m\[EAcute]todo de Newton-Raphson para sistemas de ecuaciones no \
lineales para encontrar la soluci\[OAcute]n con una precisi\[OAcute]n de ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["10", 
    RowBox[{"-", "6"}]], TraditionalForm]]],
 "\nc) Utilizar alg\[UAcute]n comando adecuado de ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " para confirmar los resultados"
}], "Subsubtitle",
 CellChangeTimes->{3.460961943713512*^9, 3.461930156078125*^9}],

Cell[TextData[StyleBox["2\.ba Ejercicio",
 FontSize->16]], "Section",
 CellChangeTimes->{3.4619301561875*^9},
 TextAlignment->Center]
}, Open  ]],

Cell[TextData[{
 "Sean ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "0"], TraditionalForm]]],
 "= 0, ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "1"], TraditionalForm]]],
 "= 0.6  y  ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "2"], TraditionalForm]]],
 "=1.2  y   f(x) = ",
 Cell[BoxData[
  FormBox[
   SqrtBox[
    RowBox[{"1", "+", "x"}]], TraditionalForm]]],
 ".\n\na) Obtener un valor aproximado de f(0.45) mediante un polinomio de \
interpolaci\[OAcute]n  p1(x) de grado menor o igual que 1. Utilizar alg\
\[UAcute]n comando apropiado de ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 "\nb) Lo mismo mediante otro polinomio de interpolaci\[OAcute]n p2(x) de \
grado menor o igual que 2, calculando en este caso el polinomio de \
interpolaci\[OAcute]n de Newton .\nc) Sabiendo que la expresi\[OAcute]n del \
error es  ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["R", "n"], "(", "x", ")"}], TraditionalForm]]],
 " = ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    UnderoverscriptBox["\[Product]", 
     RowBox[{"k", "=", "0"}], "n"], 
    RowBox[{"(", 
     RowBox[{"x", "-", 
      SubscriptBox["x", "k"]}], ")"}]}], TraditionalForm]]],
 ". ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     SuperscriptBox["f", 
      RowBox[{
       RowBox[{"n", "+", "1"}], ")"}]], "(", "\[Xi]", ")"}], "/", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"n", "+", "1"}], ")"}], "!"}]}], TraditionalForm]]],
 "\nHallar una cota m\[AAcute]xima del error cometido en cada caso."
}], "Subsubtitle",
 CellChangeTimes->{
  3.460961943713512*^9, 3.460962038541637*^9, {3.460965233119762*^9, 
   3.460965236385387*^9}, {3.4610460725625*^9, 3.461046074*^9}}]
}, Open  ]]
},
WindowToolbars->"EditBar",
WindowSize->{1672, 933},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (November 10, 2008)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 299, 9, 51, "Subtitle"],
Cell[869, 33, 336, 13, 33, "Text"],
Cell[1208, 48, 91, 2, 66, "Section"],
Cell[CellGroupData[{
Cell[1324, 54, 967, 27, 152, "Subsubtitle"],
Cell[2294, 83, 133, 3, 66, "Section"]
}, Open  ]],
Cell[2442, 89, 1683, 55, 134, "Subsubtitle"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)