(* 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[      4780,        177]
NotebookOptionsPosition[      3668,        135]
NotebookOutlinePosition[      4177,        154]
CellTagsIndexPosition[      4134,        151]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
2\.aa Pr\[AAcute]ctica:Sistemas Lineales (M\[EAcute]todos Iterativos)\
\>", "Title"],

Cell["\<\
Sea el sistema:
\t10x- y + 2z     = 6
\t3t- x + 11y - z = 25
\t-t+ 2x - y + 10z = -11
\t8t + 3y - z       = 15\
\>", "Section",
 CellChangeTimes->{{3.5075626066041555`*^9, 3.5075627390572805`*^9}}],

Cell[CellGroupData[{

Cell["\<\
1\.ba
Resolverlo utilizando el m\[EAcute]todo de Jacobi.
Estudiar la convergencia del m\[EAcute]todo.
Error absoluto menor que 10^-3.\
\>", "Section",
 CellChangeTimes->{{3.50634220246875*^9, 3.506342208859375*^9}, {
  3.5075627526197805`*^9, 3.5075627586979055`*^9}}],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.50634215059375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["-Aplicar la expresi\[OAcute]n general de \
c\[AAcute]lculo.(inc\[OAcute]gnita por inc\[OAcute]gnita)",
 FontFamily->"Arial",
 FontColor->RGBColor[0., 0., 0.]]], "Subtitle",
 FontColor->RGBColor[1, 0, 0]],

Cell["Valores iniciales", "Text"],

Cell[BoxData["\[IndentingNewLine]"], "Input"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["-Aplicar la expresi\[OAcute]n matricial",
 FontColor->GrayLevel[0]]], "Subtitle",
 FontColor->RGBColor[1, 0, 0]],

Cell[TextData[{
 "Partiendo del sistema A.x=b, se transforma para aplicar el m\[EAcute]todo \
de Jacobi.\n\nMediante la expresi\[OAcute]n matricial x[k+1]=c+T.x[k], siendo \
c=",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["D", 
    RowBox[{"-", "1"}]], TraditionalForm]]],
 ".b y T=",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["D", 
    RowBox[{"-", "1"}]], TraditionalForm]]],
 ".(D-A)"
}], "Subsection",
 CellChangeTimes->{3.5075627767604055`*^9, 3.5075628732447805`*^9}],

Cell["\<\
2\.ba
Resolverlo utilizando el m\[EAcute]todo de Gauss-Seidel.
Estudiar la convergencia del m\[EAcute]todo.
Error absoluto menor que 10^-3.\
\>", "Section",
 CellChangeTimes->{{3.50579952021875*^9, 3.5057995240625*^9}, {3.506342212*^9,
   3.506342213546875*^9}, {3.5075627910572805`*^9, 3.5075628013229055`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["-Aplicar la expresi\[OAcute]n general de \
c\[AAcute]lculo.(inc\[OAcute]gnita por inc\[OAcute]gnita)",
 FontColor->GrayLevel[0]]], "Subtitle",
 FontColor->RGBColor[1, 0, 0]],

Cell[BoxData["\[IndentingNewLine]"], "Input"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["-Aplicar la expresi\[OAcute]n matricial",
 FontColor->GrayLevel[0]]], "Subtitle",
 FontColor->RGBColor[1, 0, 0]],

Cell[TextData[{
 "Partiendo del sistema A.x=b, se transforma para aplicar el m\[EAcute]todo \
de Jacobi.\n\nMediante la expresi\[OAcute]n matricial x[k+1]=c+T.x[k], siendo \
c=",
 Cell[BoxData[
  FormBox[
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"L", "+", "D"}], ")"}], 
    RowBox[{"-", "1"}]], TraditionalForm]]],
 ".b y T=",
 Cell[BoxData[
  FormBox[
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"L", "+", "D"}], ")"}], 
    RowBox[{"-", "1"}]], TraditionalForm]]],
 ".((L+D)-A)"
}], "Subsection",
 CellChangeTimes->{3.5075628151197805`*^9, 3.5075628684010305`*^9}]
}, Open  ]]
}, Open  ]]
},
WindowToolbars->"EditBar",
WindowSize->{1672, 933},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
PrintingCopies->1,
PrintingPageRange->{Automatic, Automatic},
FrontEndVersion->"8.0 for Microsoft Windows (32-bit) (November 7, 2010)",
StyleDefinitions->FrontEnd`FileName[{"Report"}, "StandardReport.nb", 
  CharacterEncoding -> "WindowsANSI"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 94, 2, 81, "Title"],
Cell[676, 26, 207, 7, 177, "Section"],
Cell[CellGroupData[{
Cell[908, 37, 278, 7, 121, "Section"],
Cell[1189, 46, 86, 1, 61, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1312, 52, 227, 4, 29, "Subtitle"],
Cell[1542, 58, 33, 0, 29, "Text"],
Cell[1578, 60, 45, 0, 61, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1660, 65, 136, 2, 29, "Subtitle"],
Cell[1799, 69, 476, 15, 60, "Subsection"],
Cell[2278, 86, 322, 7, 121, "Section"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2637, 98, 197, 3, 29, "Subtitle"],
Cell[2837, 103, 45, 0, 61, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2919, 108, 136, 2, 29, "Subtitle"],
Cell[3058, 112, 582, 19, 60, "Subsection"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)