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

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

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[      3060,        112]
NotebookOptionsPosition[      2244,         80]
NotebookOutlinePosition[      2834,        102]
CellTagsIndexPosition[      2791,         99]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell["\<\
C\[AAcute]lculo Num\[EAcute]rico                             Enero 2006\
\>", "Title",
 TextAlignment->Center,
 TextJustification->0,
 FontColor->GrayLevel[0],
 Background->GrayLevel[0.900008]],

Cell[CellGroupData[{

Cell["\<\
Ingenier\[IAcute]a Quimica 2\.ba Curso \t\t\t\t\t\t\t30 Enero 2006\
\>", "Subsubsection"],

Cell["\<\
Nombre y Apellidos:...........................................................\
........................................................................\
\>", "Text"]
}, Open  ]],

Cell[CellGroupData[{

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

Cell[TextData[{
 "Dado el siguiente sistema de ecuaciones lineales:\n5x+4y=5\n4y+2z=2\n\
4x+2y+10z=6\nCalcular la matriz T del m\[EAcute]todo de Gauss-Seidel. \n\
Demostrar que se puede resolver dicho sistema mediante este m\[EAcute]todo \
calculando el radio espectral de T.\nResolver el sistema con un error \
absoluto menor que ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["10", 
    RowBox[{"-", "3"}]], TraditionalForm]]],
 "\nNota: Los valores propios de una matriz cuadrada se calculan con el \
comando Eigenvalues[]"
}], "Text"]
}, Open  ]],

Cell[CellGroupData[{

Cell["2\.ba Ejercicio", "Section"],

Cell[TextData[{
 "1.-Dada la funci\[OAcute]n f(x)=",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SqrtBox[
     RowBox[{"4", "-", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"x", "-", "1"}], ")"}], "2"]}]], "-", "1"}], 
   TraditionalForm]]],
 ", realizar un ajuste m\[IAcute]nimo-caudr\[AAcute]tico continuo de dicha \
funci\[OAcute]n en el intervalo [0,2] mediante una par\[AAcute]bola.\nDibujar \
ambas funciones asi como la funci\[OAcute]n diferencia."
}], "Text"]
}, Open  ]]
},
ScreenStyleEnvironment->"Presentation",
WindowToolbars->{"RulerBar", "EditBar"},
WindowSize->{1140, 899},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
DockedCells->FEPrivate`FrontEndResource[
 "FEExpressions", "CompatibilityToolbar"],
PrintingCopies->1,
PrintingPageRange->{Automatic, Automatic},
Magnification->1,
FrontEndVersion->"8.0 for Microsoft Windows (32-bit) (November 7, 2010)",
StyleDefinitions->"Classroom.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 203, 6, 101, "Title"],
Cell[CellGroupData[{
Cell[785, 30, 99, 2, 66, "Subsubsection"],
Cell[887, 34, 176, 3, 38, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1100, 42, 32, 0, 91, "Section"],
Cell[1135, 44, 538, 12, 297, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1710, 61, 34, 0, 91, "Section"],
Cell[1747, 63, 481, 14, 113, "Text"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)