(* 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[      4133,        119]
NotebookOptionsPosition[      3501,         93]
NotebookOutlinePosition[      3971,        111]
CellTagsIndexPosition[      3928,        108]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
C\[AAcute]lculo Num\[EAcute]rico                     Septiembre 2010  \
\>", "Subtitle",
 CellChangeTimes->{{3.4423192508125*^9, 3.44231925578125*^9}, {
  3.471249642328125*^9, 3.471249653984375*^9}, {3.4929290063569365`*^9, 
  3.4929290082319365`*^9}},
 TextAlignment->Left,
 TextJustification->0],

Cell[CellGroupData[{

Cell["1er Ejercicio", "Section"],

Cell["\<\
Se desea ajustar el listado de puntos {{2, 2.825}, {4, 2.448}, {6, 2.310}, \
{8, 2.235}, {10, 2.2}} mediante un polinomio de grado dos, utilizando \
vectores ortogonales.
Dibujar simultaneamente los puntos del listado y el polinomio que los ajusta.
Comprobar la soluci\[OAcute]n utilizando el comando Fit[ ].\
\>", "Text",
 CellChangeTimes->{{3.442319301609375*^9, 3.44231932978125*^9}, {
  3.442319402375*^9, 3.4423194759375*^9}, {3.4423195286875*^9, 
  3.442319732484375*^9}, {3.442418520890625*^9, 3.442418521453125*^9}, {
  3.471249681328125*^9, 3.4712498025*^9}, {3.4712499201875*^9, 
  3.471249984953125*^9}, {3.471250032796875*^9, 3.471250178125*^9}, {
  3.4712508415*^9, 3.47125093325*^9}, {3.47125096740625*^9, 
  3.471251016328125*^9}, {3.47254227146875*^9, 3.4725423905625*^9}, {
  3.492928917091312*^9, 3.4929289947944365`*^9}, {3.4930069489375*^9, 
  3.49300695059375*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["2\.ba Ejercicio", "Section",
 CellChangeTimes->{{3.4712515675*^9, 3.471251570015625*^9}}],

Cell[TextData[{
 "Aplicar el metodo de Newton Raphson para el c\[AAcute]lculo de la ra\
\[IAcute]z de la funci\[OAcute]n ",
 Cell[BoxData[
  RowBox[{
   SuperscriptBox["\[ExponentialE]", "x"], "-", 
   RowBox[{"4", 
    SuperscriptBox["x", "2"]}]}]],
  CellChangeTimes->{{3.4929290512631865`*^9, 3.492929067247562*^9}}],
 ", que se encuentra en el intervalo [0,1].\nComenzar con x0=0.5, realizar \
tantas iteraciones como sea necesario para que el error absoluto sea menor \
que ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["10", 
    RowBox[{"-", "6"}]], TraditionalForm]],
  FormatType->"TraditionalForm"],
 "."
}], "Text",
 CellChangeTimes->{{3.442319301609375*^9, 3.44231932978125*^9}, {
   3.442319402375*^9, 3.4423194759375*^9}, {3.4423195286875*^9, 
   3.442319732484375*^9}, {3.442418520890625*^9, 3.442418521453125*^9}, {
   3.471249681328125*^9, 3.4712498025*^9}, {3.4712499201875*^9, 
   3.471249984953125*^9}, {3.471250032796875*^9, 3.471250178125*^9}, {
   3.4712508415*^9, 3.47125093325*^9}, {3.47125096740625*^9, 
   3.471251016328125*^9}, 3.471251955328125*^9, {3.471252792375*^9, 
   3.471252946890625*^9}, {3.471253017953125*^9, 3.471253107109375*^9}, {
   3.4712531371875*^9, 3.47125315390625*^9}, {3.471253383234375*^9, 
   3.4712534030625*^9}, {3.47125431146875*^9, 3.471254316078125*^9}, {
   3.471362817734375*^9, 3.47136282090625*^9}, {3.471363041484375*^9, 
   3.471363073828125*^9}, {3.471363110296875*^9, 3.471363119890625*^9}, {
   3.492930046060062*^9, 3.492930148966312*^9}}]
}, Open  ]]
}, Open  ]]
},
WindowToolbars->"EditBar",
WindowSize->{1672, 933},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
Magnification:>FEPrivate`If[
  FEPrivate`Equal[FEPrivate`$VersionNumber, 6.], 1.5, 1.5 Inherited],
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, 308, 7, 74, "Subtitle"],
Cell[CellGroupData[{
Cell[900, 33, 32, 0, 105, "Section"],
Cell[935, 35, 896, 15, 90, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1868, 55, 95, 1, 105, "Section"],
Cell[1966, 58, 1507, 31, 119, "Text"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)