(* 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[ 60610, 1874] NotebookOptionsPosition[ 39777, 1426] NotebookOutlinePosition[ 56727, 1736] CellTagsIndexPosition[ 56641, 1731] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["\<\ Tarea 4\.aa: Vectores, Matrices y algunas cuestiones de \[CapitalAAcute]lgebra Lineal\ \>", "Title", CellChangeTimes->{ 3.427806402089074*^9, {3.45966674525*^9, 3.45966677103125*^9}}, TextAlignment->Center], Cell[CellGroupData[{ Cell[TextData[{ "Ejercicio 1\nDefinir una matriz de 3 filas y 4 columnas, en la que cada \ elemento\n ", Cell[BoxData[ SubscriptBox["c", RowBox[{"i", ",", "j"}]]]], "=", Cell[BoxData[ RowBox[{"cos", RowBox[{"(", RowBox[{ SuperscriptBox["j", "2"], "-", SuperscriptBox["i", "2"]}], ")"}], "sin", RowBox[{"(", RowBox[{ SuperscriptBox["i", "2"], "-", SuperscriptBox["j", "2"]}], ")"}]}]]] }], "Subsection", CellChangeTimes->{3.427541358788707*^9}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Clear", "[", RowBox[{"c", ",", "matrizc"}], "]"}], "\n", RowBox[{ RowBox[{"c", "[", RowBox[{"i_", ",", "j_"}], "]"}], "=", RowBox[{"N", "[", RowBox[{ RowBox[{"Cos", "[", RowBox[{ SuperscriptBox["j", "2"], "-", SuperscriptBox["i", "2"]}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{ SuperscriptBox["i", "2"], "-", SuperscriptBox["j", "2"]}], "]"}]}], "]"}]}]}], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"Cos", "[", RowBox[{ SuperscriptBox["i", "2"], "-", RowBox[{"1.`", " ", SuperscriptBox["j", "2"]}]}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{ SuperscriptBox["i", "2"], "-", RowBox[{"1.`", " ", SuperscriptBox["j", "2"]}]}], "]"}]}]], "Output", CellChangeTimes->{3.472215891328125*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"matrizc", "=", RowBox[{"Array", "[", RowBox[{"c", ",", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}]}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0.`", ",", "0.13970774909946293`", ",", "0.14395165833253265`", ",", "0.4940158120464309`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.13970774909946293`"}], ",", "0.`", ",", "0.2720105554446849`", ",", "0.4527891810033119`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.14395165833253265`"}], ",", RowBox[{"-", "0.2720105554446849`"}], ",", "0.`", ",", RowBox[{"-", "0.4953036778474351`"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.472215891390625*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", "matrizc", "]"}]], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0.`", "0.13970774909946293`", "0.14395165833253265`", "0.4940158120464309`"}, { RowBox[{"-", "0.13970774909946293`"}], "0.`", "0.2720105554446849`", "0.4527891810033119`"}, { RowBox[{"-", "0.14395165833253265`"}], RowBox[{"-", "0.2720105554446849`"}], "0.`", RowBox[{"-", "0.4953036778474351`"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.472215891421875*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Ejercicio 2\nExtraer la 2\.aa y 3\.aa columnas de la matriz\n A = ", Cell[BoxData[ TagBox[ RowBox[{"(", GridBox[{ {"0", RowBox[{"-", "2"}], "2"}, { RowBox[{"-", "1"}], "1", RowBox[{"-", "3"}]}, {"2", RowBox[{"-", "4"}], "1"} }], ")"}], MatrixForm[#]& ]]], "\n" }], "Subsection", CellChangeTimes->{{3.4275413787871103`*^9, 3.427541381329029*^9}, { 3.47221574759375*^9, 3.472215749265625*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"A", "=", RowBox[{"(", GridBox[{ {"0", RowBox[{"-", "2"}], "2"}, { RowBox[{"-", "1"}], "1", RowBox[{"-", "3"}]}, {"2", RowBox[{"-", "4"}], "1"} }], ")"}]}]], "Input", CellChangeTimes->{{3.472215714609375*^9, 3.472215735546875*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1", ",", RowBox[{"-", "3"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", RowBox[{"-", "4"}], ",", "1"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.472215737828125*^9, 3.472215891453125*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Transpose", "[", RowBox[{ RowBox[{"Transpose", "[", "A", "]"}], "[", RowBox[{"[", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "]"}], "]"}], "]"}], "//", "MatrixForm"}]], "Input", CellChangeTimes->{{3.472215832484375*^9, 3.472215868328125*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", "2"}], "2"}, {"1", RowBox[{"-", "3"}]}, { RowBox[{"-", "4"}], "1"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{{3.47221585753125*^9, 3.47221589146875*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Ejercicio 3\nSean A=", Cell[BoxData[ TagBox[ RowBox[{"(", GridBox[{ { RowBox[{"-", "1"}], RowBox[{"-", "5"}], RowBox[{"-", "5"}], RowBox[{"-", "4"}]}, { RowBox[{"-", "3"}], "5", "3", RowBox[{"-", "2"}]}, { RowBox[{"-", "4"}], "4", "2", RowBox[{"-", "3"}]} }], ")"}], MatrixForm[#]& ]]], " y B=", Cell[BoxData[ TagBox[ RowBox[{"(", GridBox[{ {"1", RowBox[{"-", "2"}]}, { RowBox[{"-", "4"}], "3"}, {"4", RowBox[{"-", "4"}]}, { RowBox[{"-", "5"}], RowBox[{"-", "3"}]} }], ")"}], MatrixForm[#]& ]]], ", calcular A.B y B.A." }], "Subsection", CellChangeTimes->{{3.427541387265374*^9, 3.427541389995976*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"matriza", "=", RowBox[{"(", GridBox[{ { RowBox[{"-", "1"}], RowBox[{"-", "5"}], RowBox[{"-", "5"}], RowBox[{"-", "4"}]}, { RowBox[{"-", "3"}], "5", "3", RowBox[{"-", "2"}]}, { RowBox[{"-", "4"}], "4", "2", RowBox[{"-", "3"}]} }], ")"}]}], ";"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"matrizb", "=", RowBox[{"(", GridBox[{ {"1", RowBox[{"-", "2"}]}, { RowBox[{"-", "4"}], "3"}, {"4", RowBox[{"-", "4"}]}, { RowBox[{"-", "5"}], RowBox[{"-", "3"}]} }], ")"}]}], ";"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"ab", "=", RowBox[{"matriza", ".", "matrizb"}]}], ";"}], "\n", RowBox[{"MatrixForm", "[", "ab", "]"}]}], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"19", "19"}, { RowBox[{"-", "1"}], "15"}, {"3", "21"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.472215891515625*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"matrizb", ".", "matriza"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"Dot", "::", "\<\"dotsh\"\>"}], RowBox[{ ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Tensors \\\\\\\"\\\", \\\"MT\ \\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\({\\(\\({1, \\(\\(-2\\)\\)}\\)\\), \ \\(\\({\\(\\(-4\\)\\), 3}\\)\\), \\(\\({4, \\(\\(-4\\)\\)}\\)\\), \ \\(\\({\\(\\(-5\\)\\), \\(\\(-3\\)\\)}\\)\\)}\\), \\\"MT\\\"]\\)\[NoBreak]\\!\ \\(\\*StyleBox[\\\"\\\\\\\" and \\\\\\\"\\\", \ \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\({\\(\\({\\(\\(-1\\)\\), \ \\(\\(-5\\)\\), \\(\\(-5\\)\\), \\(\\(-4\\)\\)}\\)\\), \\(\\({\\(\\(-3\\)\\), \ 5, 3, \\(\\(-2\\)\\)}\\)\\), \\(\\({\\(\\(-4\\)\\), 4, 2, \ \\(\\(-3\\)\\)}\\)\\)}\\), \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\ \\\" have incompatible shapes.\\\\\\\"\\\", \\\"MT\\\"]\\) \ \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \ ButtonFrame->None, ButtonData:>\\\"paclet:ref/Dot\\\", ButtonNote -> \ \\\"Dot::dotsh\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{3.472215891828125*^9}], Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4"}], ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", RowBox[{"-", "4"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", RowBox[{"-", "3"}]}], "}"}]}], "}"}], ".", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "5"}], ",", RowBox[{"-", "5"}], ",", RowBox[{"-", "4"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "5", ",", "3", ",", RowBox[{"-", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4"}], ",", "4", ",", "2", ",", RowBox[{"-", "3"}]}], "}"}]}], "}"}]}]], "Output", CellChangeTimes->{3.47221589184375*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Ejercicio 4 Resolver el sistema de ecuaciones: x-2 y+z=-4 3 x+2 y-z=8 -x+3 y+5 z=0\ \>", "Subsection", CellChangeTimes->{{3.4275413980745707`*^9, 3.427541399843322*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"x", "-", RowBox[{"2", " ", "y"}], "+", "z"}], "==", RowBox[{"-", "4"}]}], ",", RowBox[{ RowBox[{ RowBox[{"3", " ", "x"}], "+", RowBox[{"2", " ", "y"}], "-", "z"}], "==", "8"}], ",", RowBox[{ RowBox[{ RowBox[{"-", "x"}], "+", RowBox[{"3", " ", "y"}], "+", RowBox[{"5", " ", "z"}]}], "==", "0"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", "1"}], ",", RowBox[{"y", "\[Rule]", "2"}], ",", RowBox[{"z", "\[Rule]", RowBox[{"-", "1"}]}]}], "}"}], "}"}]], "Output", CellChangeTimes->{3.472215892*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"matriza", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "2"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "3", ",", "5"}], "}"}]}], "}"}]}], ";", RowBox[{"vectorb", "=", RowBox[{"{", RowBox[{ RowBox[{"-", "4"}], ",", "8", ",", "0"}], "}"}]}], ";", RowBox[{"vectorx", "=", RowBox[{"{", RowBox[{"x1", ",", "y1", ",", "z1"}], "}"}]}], ";"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"matriza", ".", "vectorx"}], "==", "vectorb"}], ",", "vectorx"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"x1", "\[Rule]", "1"}], ",", RowBox[{"y1", "\[Rule]", "2"}], ",", RowBox[{"z1", "\[Rule]", RowBox[{"-", "1"}]}]}], "}"}], "}"}]], "Output", CellChangeTimes->{3.472215892046875*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "LinearSolve"}]], "Input"], Cell[BoxData[ RowBox[{ StyleBox["\<\"\\!\\(\\*RowBox[{\\\"LinearSolve\\\", \\\"[\\\", \ RowBox[{StyleBox[\\\"m\\\", \\\"TI\\\"], \\\",\\\", StyleBox[\\\"b\\\", \ \\\"TI\\\"]}], \\\"]\\\"}]\\) finds an \\!\\(\\*StyleBox[\\\"x\\\", \ \\\"TI\\\"]\\) which solves the matrix equation \ \\!\\(\\*RowBox[{RowBox[{StyleBox[\\\"m\\\", \\\"TI\\\"], \\\".\\\", \ StyleBox[\\\"x\\\", \\\"TI\\\"]}], \\\"==\\\", StyleBox[\\\"b\\\", \ \\\"TI\\\"]}]\\). \\n\\!\\(\\*RowBox[{\\\"LinearSolve\\\", \\\"[\\\", \ StyleBox[\\\"m\\\", \\\"TI\\\"], \\\"]\\\"}]\\) generates a \\!\\(\\*RowBox[{\ \\\"LinearSolveFunction\\\", \\\"[\\\", StyleBox[\\\"\[Ellipsis]\\\", \ \\\"TR\\\"], \\\"]\\\"}]\\) which can be applied repeatedly to different \ \\!\\(\\*StyleBox[\\\"b\\\", \\\"TI\\\"]\\). \"\>", "MSG"], "\[NonBreakingSpace]", ButtonBox[ StyleBox["\[RightSkeleton]", "SR"], Active->True, BaseStyle->"Link", ButtonData->"paclet:ref/LinearSolve"]}]], "Print", "PrintUsage", CellChangeTimes->{3.472215892484375*^9}, CellTags->"Info3472219492-3370279"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Ejercicio 5 Resolver el sistema de ecuaciones y verificar la soluci\[OAcute]n obtenida 2 x-4 y+z=-1 3 x+y-2 z=3 -5 x+y-2 z=4\ \>", "Subsection", CellChangeTimes->{{3.427541408049371*^9, 3.4275414110093613`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"eqs", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"2", " ", "x"}], "-", RowBox[{"4", " ", "y"}], "+", "z"}], "==", RowBox[{"-", "1"}]}], ",", RowBox[{ RowBox[{ RowBox[{"3", " ", "x"}], "+", "y", "-", RowBox[{"2", " ", "z"}]}], "==", "3"}], ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "5"}], " ", "x"}], "+", "y", "-", RowBox[{"2", " ", "z"}]}], "==", "4"}]}], "}"}]}], ";", RowBox[{"vars", "=", RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], ";"}], "\n", RowBox[{"sols", "=", RowBox[{"Solve", "[", RowBox[{"eqs", ",", "vars"}], "]"}]}]}], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", RowBox[{"-", FractionBox["1", "8"]}]}], ",", RowBox[{"y", "\[Rule]", RowBox[{"-", FractionBox["15", "56"]}]}], ",", RowBox[{"z", "\[Rule]", RowBox[{"-", FractionBox["51", "28"]}]}]}], "}"}], "}"}]], "Output", CellChangeTimes->{3.472215892609375*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"eqs", " ", "/.", " ", "sols"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True"}], "}"}], "}"}]], "Output", CellChangeTimes->{3.472215892640625*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"matriza", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", RowBox[{"-", "4"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1", ",", RowBox[{"-", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "1", ",", RowBox[{"-", "2"}]}], "}"}]}], "}"}]}], ";"}], "\n", RowBox[{ RowBox[{"vectorb", "=", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "3", ",", "4"}], "}"}]}], ";"}], "\n", RowBox[{"solvector", "=", RowBox[{"LinearSolve", "[", RowBox[{"matriza", ",", "vectorb"}], "]"}]}]}], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["1", "8"]}], ",", RowBox[{"-", FractionBox["15", "56"]}], ",", RowBox[{"-", FractionBox["51", "28"]}]}], "}"}]], "Output", CellChangeTimes->{3.472215892671875*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"matriza", ".", "solvector"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "3", ",", "4"}], "}"}]], "Output", CellChangeTimes->{3.4722158926875*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Ejercicio 6 Resolver el sistema: \t4x1+5x2-5x3-8x4-2x5 = 5 \t7x1+2x2-10x3-x4-6x5 = -4 \t6x1+2x2+10x3-10x4+7x5 = -7 \t-8x1-x2-4x3+ 3x5 = 5 \t8x1-7x2-3x3+10x4+5x5 = 7\ \>", "Subsection", CellChangeTimes->{{3.4275406973965816`*^9, 3.4275408987379713`*^9}, { 3.427541417787428*^9, 3.427541419407279*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"4", " ", RowBox[{"x", "[", "1", "]"}]}], "+", RowBox[{"5", " ", RowBox[{"x", "[", "2", "]"}]}], "-", RowBox[{"5", " ", RowBox[{"x", "[", "3", "]"}]}], "-", RowBox[{"8", " ", RowBox[{"x", "[", "4", "]"}]}], "-", RowBox[{"2", " ", RowBox[{"x", "[", "5", "]"}]}]}], ",", RowBox[{ RowBox[{"7", " ", RowBox[{"x", "[", "1", "]"}]}], "+", RowBox[{"2", " ", RowBox[{"x", "[", "2", "]"}]}], "-", RowBox[{"10", " ", RowBox[{"x", "[", "3", "]"}]}], "-", RowBox[{"x", "[", "4", "]"}], "-", RowBox[{"6", " ", RowBox[{"x", "[", "5", "]"}]}]}], ",", RowBox[{ RowBox[{"6", " ", RowBox[{"x", "[", "1", "]"}]}], "+", RowBox[{"2", " ", RowBox[{"x", "[", "2", "]"}]}], "+", RowBox[{"10", " ", RowBox[{"x", "[", "3", "]"}]}], "-", RowBox[{"10", " ", RowBox[{"x", "[", "4", "]"}]}], "+", RowBox[{"7", " ", RowBox[{"x", "[", "5", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "8"}], " ", RowBox[{"x", "[", "1", "]"}]}], "-", RowBox[{"x", "[", "2", "]"}], "-", RowBox[{"4", " ", RowBox[{"x", "[", "3", "]"}]}], "+", RowBox[{"3", " ", RowBox[{"x", "[", "5", "]"}]}]}], ",", RowBox[{ RowBox[{"8", " ", RowBox[{"x", "[", "1", "]"}]}], "-", RowBox[{"7", " ", RowBox[{"x", "[", "2", "]"}]}], "-", RowBox[{"3", " ", RowBox[{"x", "[", "3", "]"}]}], "+", RowBox[{"10", " ", RowBox[{"x", "[", "4", "]"}]}], "+", RowBox[{"5", " ", RowBox[{"x", "[", "5", "]"}]}]}]}], "}"}], "==", RowBox[{"{", RowBox[{"5", ",", RowBox[{"-", "4"}], ",", RowBox[{"-", "7"}], ",", "5", ",", "7"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"x", "[", "1", "]"}], "\[Rule]", FractionBox["1245", "6626"]}], ",", RowBox[{ RowBox[{"x", "[", "2", "]"}], "\[Rule]", FractionBox["113174", "9939"]}], ",", RowBox[{ RowBox[{"x", "[", "3", "]"}], "\[Rule]", RowBox[{"-", FractionBox["7457", "9939"]}]}], ",", RowBox[{ RowBox[{"x", "[", "4", "]"}], "\[Rule]", FractionBox["38523", "6626"]}], ",", RowBox[{ RowBox[{"x", "[", "5", "]"}], "\[Rule]", FractionBox["49327", "9939"]}]}], "}"}], "}"}]], "Output", CellChangeTimes->{3.47221589278125*^9}] }, Open ]], Cell[BoxData[{ RowBox[{"Clear", "[", "matriza", "]"}], "\n", RowBox[{ RowBox[{"matriza", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "5", ",", RowBox[{"-", "5"}], ",", RowBox[{"-", "8"}], ",", RowBox[{"-", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "2", ",", RowBox[{"-", "10"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "6"}]}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "2", ",", "10", ",", RowBox[{"-", "10"}], ",", "7"}], "}"}], ",", "\n", "\t", RowBox[{"{", RowBox[{ RowBox[{"-", "8"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "4"}], ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", RowBox[{"-", "7"}], ",", RowBox[{"-", "3"}], ",", "10", ",", "5"}], "}"}]}], "}"}]}], ";"}], "\n", RowBox[{ RowBox[{"t2", "=", RowBox[{"{", RowBox[{"5", ",", RowBox[{"-", "4"}], ",", RowBox[{"-", "7"}], ",", "5", ",", "7"}], "}"}]}], ";"}]}], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"LinearSolve", "[", RowBox[{"matriza", ",", "t2"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ FractionBox["1245", "6626"], ",", FractionBox["113174", "9939"], ",", RowBox[{"-", FractionBox["7457", "9939"]}], ",", FractionBox["38523", "6626"], ",", FractionBox["49327", "9939"]}], "}"}]], "Output", CellChangeTimes->{3.472215892796875*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Ejercicio 7\nHallar una base del espacio vectorial generado por las \ columnas de B = ", Cell[BoxData[ TagBox[ RowBox[{"(", GridBox[{ {"1", RowBox[{"-", "2"}], "2", "1", RowBox[{"-", "2"}]}, {"1", "1", "2", RowBox[{"-", "2"}], RowBox[{"-", "2"}]}, {"1", "0", "0", "2", RowBox[{"-", "1"}]}, {"0", "0", "0", RowBox[{"-", "2"}], "0"}, { RowBox[{"-", "2"}], "1", "0", "1", "2"} }], ")"}], MatrixForm[#]& ]]] }], "Subsection", CellChangeTimes->{{3.4275414301770897`*^9, 3.427541432042336*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"matrizb", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "2"}], ",", "2", ",", "1", ",", RowBox[{"-", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "2", ",", RowBox[{"-", "2"}], ",", RowBox[{"-", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0", ",", "2", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", RowBox[{"-", "2"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "1", ",", "0", ",", "1", ",", "2"}], "}"}]}], "}"}]}], ";"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"tb", "=", RowBox[{"Transpose", "[", "matrizb", "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "0", ",", RowBox[{"-", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "1", ",", "0", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "2"}], ",", "2", ",", RowBox[{"-", "2"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{"-", "2"}], ",", RowBox[{"-", "1"}], ",", "0", ",", "2"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.472215892828125*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"rrtb", "=", RowBox[{"RowReduce", "[", "tb", "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"Transpose", "[", "rrtb", "]"}], "//", "MatrixForm"}]}], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0", "0", "0", "0"}, {"0", "1", "0", "0", "0"}, {"0", "0", "1", "0", "0"}, {"0", "0", "0", "1", "0"}, { RowBox[{"-", FractionBox["1", "3"]}], FractionBox["1", "3"], RowBox[{"-", "2"}], RowBox[{"-", "3"}], "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.47221589284375*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Take", "[", RowBox[{"rrtb", ",", "4"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", RowBox[{"-", FractionBox["1", "3"]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0", ",", FractionBox["1", "3"]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0", ",", RowBox[{"-", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "1", ",", RowBox[{"-", "3"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.472215892859375*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Ejercicio 8\nHallar una base del subespacio nulo de la matriz \nC = ", Cell[BoxData[ TagBox[ RowBox[{"(", GridBox[{ {"0", "2", RowBox[{"-", "2"}], "1", "1"}, { RowBox[{"-", "1"}], "3", RowBox[{"-", "3"}], "3", RowBox[{"-", "1"}]}, {"0", RowBox[{"-", "1"}], "1", "1", "2"} }], ")"}], MatrixForm[#]& ]]] }], "Subsection", CellChangeTimes->{{3.427806427099537*^9, 3.4278064332790403`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"matrizc", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "2", ",", RowBox[{"-", "2"}], ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "3", ",", RowBox[{"-", "3"}], ",", "3", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "1"}], ",", "1", ",", "1", ",", "2"}], "}"}]}], "}"}]}], ";", RowBox[{"NullSpace", "[", "matrizc", "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "15"}], ",", "1", ",", "0", ",", RowBox[{"-", "5"}], ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "1", ",", "0", ",", "0"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.472215892875*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Ejercicio 9\na) Si A = ", Cell[BoxData[ TagBox[ RowBox[{"(", GridBox[{ {"5", FractionBox["2", "3"], "1", RowBox[{"-", FractionBox["4", "3"]}], RowBox[{"-", "4"}], RowBox[{"-", FractionBox["4", "3"]}]}, {"0", RowBox[{"-", FractionBox["1", "6"]}], RowBox[{"-", "2"}], RowBox[{"-", FractionBox["1", "6"]}], "7", FractionBox["23", "6"]}, { RowBox[{"-", FractionBox["1", "2"]}], RowBox[{"-", FractionBox["1", "4"]}], FractionBox["5", "2"], RowBox[{"-", FractionBox["1", "4"]}], "1", FractionBox["3", "4"]}, {"4", FractionBox["1", "2"], "0", FractionBox["1", "2"], RowBox[{"-", "3"}], RowBox[{"-", FractionBox["1", "2"]}]}, {"0", RowBox[{"-", "1"}], "0", "0", "4", "1"}, { RowBox[{"-", "1"}], FractionBox["1", "6"], RowBox[{"-", "1"}], FractionBox["1", "6"], "2", FractionBox["19", "6"]} }], ")"}], MatrixForm[#]& ]]], "\nHallar los valores y vectores propios de A.\nb) Si B = ", Cell[BoxData[ TagBox[ RowBox[{"(", GridBox[{ {"1", "5", "1"}, { RowBox[{"-", "3"}], "6", RowBox[{"-", "6"}]}, { RowBox[{"-", "4"}], "1", "7"} }], ")"}], MatrixForm[#]& ]]], "\nHallar los valores y vectores propios de B de forma exacta y aproximada." }], "Subsection", CellChangeTimes->{{3.427541440354751*^9, 3.427541443249403*^9}, { 3.4278064399079027`*^9, 3.427806440619816*^9}}, TextAlignment->Left, TextJustification->1], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"matriza", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"5", ",", FractionBox["2", "3"], ",", "1", ",", RowBox[{"-", FractionBox["4", "3"]}], ",", RowBox[{"-", "4"}], ",", RowBox[{"-", FractionBox["4", "3"]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", FractionBox["1", "6"]}], ",", RowBox[{"-", "2"}], ",", RowBox[{"-", FractionBox["1", "6"]}], ",", "7", ",", FractionBox["23", "6"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], ",", RowBox[{"-", FractionBox["1", "4"]}], ",", FractionBox["5", "2"], ",", RowBox[{"-", FractionBox["1", "4"]}], ",", "1", ",", FractionBox["3", "4"]}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", FractionBox["1", "2"], ",", "0", ",", FractionBox["1", "2"], ",", RowBox[{"-", "3"}], ",", RowBox[{"-", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "4", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", FractionBox["1", "6"], ",", RowBox[{"-", "1"}], ",", FractionBox["1", "6"], ",", "2", ",", FractionBox["19", "6"]}], "}"}]}], "}"}]}], ";", RowBox[{"Eigenvalues", "[", "matriza", "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"3", ",", "3", ",", "3", ",", "2", ",", "2", ",", "2"}], "}"}]], "Output", CellChangeTimes->{3.472215892953125*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Eigenvectors", "[", "matriza", "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "2", ",", RowBox[{"-", "1"}], ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], ",", RowBox[{"-", "1"}], ",", RowBox[{"-", FractionBox["1", "2"]}], ",", "0", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.47221589296875*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"matrizb", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "5", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "6", ",", RowBox[{"-", "6"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4"}], ",", "1", ",", "7"}], "}"}]}], "}"}]}], ";"}], "\n", RowBox[{"Eigenvalues", "[", "matrizb", "]"}]}], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "294"}], "+", RowBox[{"80", " ", "#1"}], "-", RowBox[{"14", " ", SuperscriptBox["#1", "2"]}], "+", SuperscriptBox["#1", "3"]}], "&"}], ",", "1"}], "]"}], ",", RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "294"}], "+", RowBox[{"80", " ", "#1"}], "-", RowBox[{"14", " ", SuperscriptBox["#1", "2"]}], "+", SuperscriptBox["#1", "3"]}], "&"}], ",", "3"}], "]"}], ",", RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "294"}], "+", RowBox[{"80", " ", "#1"}], "-", RowBox[{"14", " ", SuperscriptBox["#1", "2"]}], "+", SuperscriptBox["#1", "3"]}], "&"}], ",", "2"}], "]"}]}], "}"}]], "Output", CellChangeTimes->{3.472215893296875*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Eigenvalues", "[", "matrizb", "]"}], "//", "N"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"8.68668436991153`", ",", RowBox[{"2.6566578150442344`", "\[InvisibleSpace]", "+", RowBox[{"5.175622998004033`", " ", "\[ImaginaryI]"}]}], ",", RowBox[{"2.6566578150442344`", "\[InvisibleSpace]", "-", RowBox[{"5.175622998004033`", " ", "\[ImaginaryI]"}]}]}], "}"}]], "Output",\ CellChangeTimes->{3.472215893328125*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Eigenvectors", "[", "matrizb", "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ FractionBox["88", "63"], "-", RowBox[{ FractionBox["1", "9"], " ", RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "294"}], "+", RowBox[{"80", " ", "#1"}], "-", RowBox[{"14", " ", SuperscriptBox["#1", "2"]}], "+", SuperscriptBox["#1", "3"]}], "&"}], ",", "1"}], "]"}]}], "-", RowBox[{ FractionBox["1", "63"], " ", SuperscriptBox[ RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "294"}], "+", RowBox[{"80", " ", "#1"}], "-", RowBox[{"14", " ", SuperscriptBox["#1", "2"]}], "+", SuperscriptBox["#1", "3"]}], "&"}], ",", "1"}], "]"}], "2"]}]}], ",", RowBox[{ RowBox[{"-", FractionBox["89", "63"]}], "+", RowBox[{ FractionBox["5", "9"], " ", RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "294"}], "+", RowBox[{"80", " ", "#1"}], "-", RowBox[{"14", " ", SuperscriptBox["#1", "2"]}], "+", SuperscriptBox["#1", "3"]}], "&"}], ",", "1"}], "]"}]}], "-", RowBox[{ FractionBox["4", "63"], " ", SuperscriptBox[ RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "294"}], "+", RowBox[{"80", " ", "#1"}], "-", RowBox[{"14", " ", SuperscriptBox["#1", "2"]}], "+", SuperscriptBox["#1", "3"]}], "&"}], ",", "1"}], "]"}], "2"]}]}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["88", "63"], "-", RowBox[{ FractionBox["1", "9"], " ", RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "294"}], "+", RowBox[{"80", " ", "#1"}], "-", RowBox[{"14", " ", SuperscriptBox["#1", "2"]}], "+", SuperscriptBox["#1", "3"]}], "&"}], ",", "3"}], "]"}]}], "-", RowBox[{ FractionBox["1", "63"], " ", SuperscriptBox[ RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "294"}], "+", RowBox[{"80", " ", "#1"}], "-", RowBox[{"14", " ", SuperscriptBox["#1", "2"]}], "+", SuperscriptBox["#1", "3"]}], "&"}], ",", "3"}], "]"}], "2"]}]}], ",", RowBox[{ RowBox[{"-", FractionBox["89", "63"]}], "+", RowBox[{ FractionBox["5", "9"], " ", RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "294"}], "+", RowBox[{"80", " ", "#1"}], "-", RowBox[{"14", " ", SuperscriptBox["#1", "2"]}], "+", SuperscriptBox["#1", "3"]}], "&"}], ",", "3"}], "]"}]}], "-", RowBox[{ FractionBox["4", "63"], " ", SuperscriptBox[ RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "294"}], "+", RowBox[{"80", " ", "#1"}], "-", RowBox[{"14", " ", SuperscriptBox["#1", "2"]}], "+", SuperscriptBox["#1", "3"]}], "&"}], ",", "3"}], "]"}], "2"]}]}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["88", "63"], "-", RowBox[{ FractionBox["1", "9"], " ", RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "294"}], "+", RowBox[{"80", " ", "#1"}], "-", RowBox[{"14", " ", SuperscriptBox["#1", "2"]}], "+", SuperscriptBox["#1", "3"]}], "&"}], ",", "2"}], "]"}]}], "-", RowBox[{ FractionBox["1", "63"], " ", SuperscriptBox[ RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "294"}], "+", RowBox[{"80", " ", "#1"}], "-", RowBox[{"14", " ", SuperscriptBox["#1", "2"]}], "+", SuperscriptBox["#1", "3"]}], "&"}], ",", "2"}], "]"}], "2"]}]}], ",", RowBox[{ RowBox[{"-", FractionBox["89", "63"]}], "+", RowBox[{ FractionBox["5", "9"], " ", RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "294"}], "+", RowBox[{"80", " ", "#1"}], "-", RowBox[{"14", " ", SuperscriptBox["#1", "2"]}], "+", SuperscriptBox["#1", "3"]}], "&"}], ",", "2"}], "]"}]}], "-", RowBox[{ FractionBox["4", "63"], " ", SuperscriptBox[ RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "294"}], "+", RowBox[{"80", " ", "#1"}], "-", RowBox[{"14", " ", SuperscriptBox["#1", "2"]}], "+", SuperscriptBox["#1", "3"]}], "&"}], ",", "2"}], "]"}], "2"]}]}], ",", "1"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.472215893484375*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Eigenvectors", "[", "matrizb", "]"}], "//", "N"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.7661154909816825`"}], ",", RowBox[{"-", "1.3777775940151997`"}], ",", "1.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1.4148037772368731`", "\[InvisibleSpace]", "-", RowBox[{"1.011572691377276`", " ", "\[ImaginaryI]"}]}], ",", RowBox[{"1.3158729239917266`", "\[InvisibleSpace]", "+", RowBox[{"1.1293322324949284`", " ", "\[ImaginaryI]"}]}], ",", "1.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1.4148037772368731`", "\[InvisibleSpace]", "+", RowBox[{"1.011572691377276`", " ", "\[ImaginaryI]"}]}], ",", RowBox[{"1.3158729239917266`", "\[InvisibleSpace]", "-", RowBox[{"1.1293322324949284`", " ", "\[ImaginaryI]"}]}], ",", "1.`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.4722158935*^9}] }, Open ]] }, Open ]] }, Open ]] }, WindowToolbars->{"RulerBar", "EditBar"}, WindowSize->{1024, 624}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, DockedCells->FEPrivate`If[ FEPrivate`SameQ[FEPrivate`$ProductIDName, "MathematicaPlayer"], FEPrivate`Join[{ Cell[ BoxData[ GraphicsBox[ RasterBox[CompressedData[" 1:eJztXXdYFNfaz3O/f+79vudek3vTLKBIEaQpTRC7BgtqLCTWGxNjYsFookE0 NoxRY6oFuyIiWJCO9N4WWHrZpSy7VKkiBo2iy+5+Z/fsHg4zO7NLUZJ4fs/I Mztz5j3v+87u+zvnPe+Meuu3L1v/P6+99poJ+Gf+t9dek+8LBwiBIHvu/Byd ManLXMoSE+ExkQoZX+8W641rHWPUaDZZav+BZOoa6ZRVkhkftXrdrC3lg60h JuGh667nVjNkJjbd4ywfjhzbcP7iQFUiICAgIHiVkHfVO0dHL0tnDFd/XNGH q/g3bgrz84VFRVmnznAMrGRjDCSjxz6xmCFx3iFZtl/ickC6ZK/U6YtnS7Y/ c/6s23Zpt8V73aaOz8wdn+pbto4yqI2NG2qDCAgICAj+HIBTHn5GRrGhMV9H r0hXr1hnbKGuQaGlQ6G9U5TJTJ7ZFJneaNnoMd0GZl1rjos3X+7efEn8uafk k1OSlUfFi78RO30htl/5fOK8p2ZTmnXHNxlbVWVzh9osAgICAoI/ByANVVVU 5DpMKRs1pnS0fumYcTwDywIjh6IJixMcVrWNt5HTkL5Bt/7YR9OXi9yv1+7y urfLu/1rryfbLnR/7iledUQ8b7vYcUXn+Ol1uhZ1EycLCwuH2iwCAgICgj8B 0AIQ2C9Yv0E4ckyNvmmh8YSs2U6chUvTlq9JcFnDc5pR9t4M/rw5/IULeDMd M9Z9lrTVLWXLDs7Wr3O3uhVt3sn79Ev+2k2lLmvy5r+fY2JXZjO9qrh4qC0j ICAgIPijQ4RB/vGAR72OUaHlpIqzhxsCL9QHXq4N9q4L8mryP9d051xT4IWm oEtNARca75yvC79eG+Fbd9e3/q5vQ4TvvfDrjaE+94KuNgRfFvmdips8jZ+W wd51VXl5bkCgIENDMwICAgKCvyoA9VSroOShbw7UjbXJ/+KzxqCrLSHhTZFJ dbEZnRFRv4eGPQqP7IyK64yN74yL7wwP74iOackrbCkobs0taOXmt3FyHyRx QPv6oIi68IhSz3NRK9bnht2tEgjwHiv4/JykpOgTJyI/3cBdubru7Pnq0tIh sp7g1YUgNFTg4zPUWhAQvLpA0x9IQDUKyJlIKCxfuqbOYm7RQbfG8KC2pLzG tIKWhHTeuXPtsUlPsoseZxU+zsp/xC14lMF9lJjSmc7pKK1oLxO2lQjasoub knKqYzKqIlOrEzOrwuJDxtpfe2fMRSs7/wWLvZe5/DR/wS7HyTuNx/365lvh 7wxvWLuuLi1tqD1B8CoCcBDvtdfAxtfRAfsvqJcMMs0n+OsiIiLC1dX12LFj PB6vfxJwGgIEVKuAqKKi6OB3FaZzBDPW5Xnsro2+W59e0JKc2ZGUGjppcqrD NN4V7/a84of5JR25RR25hR0cLjjVEZ/Qnpp2PzWtOT6pNjqxKiy2PCymMjaJ Fxrx7bsjdg1745dhbx/4xz+//Pv/nvjXsKi33m4Zrts9fkLzZa/B9QkBQZ9Q sXFj+cqVciYaNqwqOXnQ5efl5Z09e3bQxRIQ/EEARlmBgYF79uzx8tI2mPMz OKnXrqVcv56flFReVARmPVUCQSWPV87llsbF8QKDC095Zi9akW04JcveJXOB a46He/XdoObY5N/iku9ncFPmL7ynY1ww0iB5xWp+cFhTblFrTmEzh9uSmtma kNwaGdUYGlIXHCgM8C+/daPI93pxSFDW7ZtfvPPumRHjfN/R8X9nROUYPamh kUxPr9vSuj787gv1DwGBlgBkBJiozNFx0CUTGiJ4FeDn5weYSMvGIj6//nYQ d8VHZ/QND41491drK087uyAb23Rru6yJtlwbB96kqeWWtgJzxxqrWS02Mwr3 bK2/49MWGduWlH4vIztunnOVgUW1qW2Fnmmq/vikbV/yI2JqOTm1yZy6+OS6 qJi64BBRQED5rZulfr55167mBfjzbt3Ot5xeZ+oonjhdamYvNZkg0x/XbTmh PibmhbpF4OMzWDn/qvx8ubQXlrQhGHKAeRDMzg36OhGhIYJXAWBO5Orq2tf8 c11ymuiLr/JMLTMMxsUYjeNaTOh0mCab5CiznCgzMpTpj5YZjJWNG5/n7iq6 ff1eVEJdQpowNSNyrnOpkWWpmS3PzK7c1DZ/jEnkRLuUI9/zoxOq4lMFEdGV AcEVN2+X+PkW+Hhnel3m3bnTGp0iXXdIsnibZOpKqe08qYmtxNT6XkiI9qoC FoAhAmxgHx3nDxumNnTAkS3awEd0Cgx38UEv5SOA8pJdu9CRyiNHUEegJTiF LoH7PNXbk4AaFH3o0nCxcjlmZnjX8ryQykCYKULKI6PAcRAzgQJgQ8wIdvg6 OmiNA16LhKMYW3n6NHIpaAPtApeUL1gAdYZaIT/TL4S9QK1AG+hAIAfYCCRA reiug5pQtIJqg66VvjUzg47quQoY6OMD+gI74CDdh7gyFFA0x/0DRIFNfit7 X4hucS85DI6ie4YJ7DQEfrkRERG91ODxduzYAY6jI3CcCY6Av2Afbwwkg+Og PUzLA1EeHh6uCoCdhIQE1MWvv/4KW1IyJyzC1Z6CCwGoTWBgIPgI/lLsojTT pke6KyjScOADb2AR9BiwEe8XmA+9ARqDffAX6QncBVwHrwLHQfCER6CLgBzQ HuyjxQ7cz3gX4MJjx45BlcAOCsJ085F1LB2xeADvCBiFOxyZCQAkI53BFw/I RzayZMyABNwK+LXRaAjlFOgOfKR8hbSEKC1d9MmGBxNtH9o6dE6Z0WUzWapn IBujIzMykppPlJnZZbtvLb95XRQZL4hNKk9MCXCal2ZokWlmw1Fsmea2mSZW EToGd2bNST3pWRoaURYUzPP1LfT25l65zLl0oTImqS456/mus5JPjkmct0om L5WZTW07ea5PSqLwjkd4nJvwOI/CNdjB9+HZftAQCqTgYE/MHDANocVxxDuU xkq+UwRtxA7gI+iazr9IMcgIqH2PFTBiq4RDw6EhUCCQIFQ3KaBcqKQShflw XynEzAxpRXEd1EpOKL3dBfrq4XeFXWBDCoB+oWKwjVofQquZMmm45koOGjZM LlNHB9Ec/XZQRjVMjqJ7hgkaaYgSw8EPGQYE/COIIaAZ+Iv/0mEEAx/BKRQe QeQJVADswJYo4oGD4AjORCzCmU5B3sEVUBvf8GZ069T2qJbOcGmBGFC4hhwE nYCirlDF5iCoIquRfHAKhGV0FZAAgjxkJXgEXIWPBCh+RqaBO4u6QFeBg2rN R72zdMTkAdgRZB8AyGKoJXAFOILMhF82aD4kengKXM7iW9wKXDiLIZRTSI7a XjRCJBLVnvR8OnWWxH6a2G6m2Hy6ZKy+TE9XamErnfQex8211Ne7IjyaFxFb Eh3nPXvOTT3jAGPLO9gWaGJ5W8/44sjRN5a5ZF64WOzrV3DFK/X8uTy/myVx KRXxaR37Lki2npKs2C+dtqZr6QZh78ptjUDhC//V49yEIgPiJkowR9G+rzSE ekFkAQLmoNAQOgsb95RsqRbKkTTUEYh7yo5UjSm0AjlLnkJUNaDwFFSbfhZ2 B3coYZ8S6nGTYaeAjCinqOarpk6UflF71BdMfiodrnACOAKjvVquofifAlxz 5cxFNaVCrI2bD52P98XuKHYSROgTDcHoAQe38AgMWagBDDVwnxIH6DMd1AUe HHAJLMKZTlGCMIj8au1ioiGWHjXSkNpTFIEwigpVY3VICugjlA+ZC51il0Pv HX0Et5WyGgI+wnvNEr1ZOmLyAL0jaAK9JfInaAAu0Vi6BhrAoQt+EE6c4bXa 0xAwBE5y+10vV1NT0xAdI35vocx8Sre9i3juFrGVg1RXR2ppn+a2pcDnSmnQ 3cKQiILwyDMzZv48Su+0vvGp3hs44qlv/PNw3eO6erfWr088eTL70qXcsOiC qITSmKR7Hhefu52RfHxEOuPj5tt9SMdBKH/vivhPCXrKpJAqPleePo0HMSEt edJnGqLNWQYrKYd6h2fxMIhsRNLoasCZCOJfJU8NG8ZkCN4AJzgmrZgk99gY GorP1yDUzrmQKIpWTCQCnYCSXXBmh5uGQHc4Dlxz+BVCk+KeSZ8qq6nMkSqm PD1jA1ZH0X2uFn2iIRhG0A8c5tvxgAlTHzD5g8cBekumLpAEFuEsp2CncELB MvRVSxzs5vSDhugCUUuW+AlYnn5HoNvV9shEQ/RMFwz+7L2zdMTkAXpHTAsx cKoFbdSmbg1OSClfG3hT4OVa0hCkM8j1THlFjaiurq6trW1MSeuetkhq94Fk +Tf3N53onDpfNtaQ47al9Oa1irsxpZExJVFx52fNPqVrcM5wvNrtvJHpWX2T X94aecnCMvG7wwXR8fyk9PL4tFqPC4/czkjXH5HM21yf3OdnKGBwoyymKJdO 0GRHwTtqIxse+vqRlFPS34IFMGQNIg3BnCGM0vBaFAahObBreDlaWFEu4igI F8VAOv9SKACnD7QPJFM2IX3m1Xt6ghslXxtSjQ2UzsEsQh+RKGHvCRQTDSHe AUaBLtAMV22JCIuHe5kcGopmeXTfImWA5tCTymkjq6Nw+WrvL4T2NASnQjCL whRLhQxxgJ62QpkrcBzP9gtV6X0W4RpPwaEvy7hXrQR2c/pBQ/SVC5hAU3sJ e0cwgAOB9FkAEw3R5WhDgiwdMXlA7XFKwEfrO8hGmKnDQR+lwPtI7xGNMbSk IXgjgEXgKqYJskZAGgJzoubgMKn1YsnSPR2up0p2nm6fPDvX3VUQ4Fcdm1QZ l1yekHzDaV6YoXmkmbWazdQ6wnhCtIVV1jLn9N2uCefPlscnizg51enZdR7n H7if7t70o2zu9par/n3SDUUhtAOPwzAiXxZX7MDB84ugIbhIzcNqHgaLhpRU oojSMPbK47lCCAzUyikPNgGEjIxvKHnF671iTqcAHpaYogjpkYanxWCVAk0y Pi3FV/DRpmZyiuaSmFZ06sQ9A3vBN7VVCihHCtkBMhe6cfiFeDkE2np8q1AM X0iCN5HFURT5TNCehuiJr77SEB1CBhrShmtYTtFlUvByaIh+vN80JMRKHXDv 0UUNkIZYOuorDaGDcLUIr5FQ+2WgC2FKq8JVNnZD8FOgPaIttdlCjRCJRDUq gP0n63ZIF2x/4npC4Ha26Kufcr/5QhToVx+fIkpKr0zJCJo3P8PQgmtum22m 2FQ7WSbW3PFWJU6zit03JZ79pTAyuja3qCY9q5bDrePkNHx74b7bSfHG49LF X4udNtRmq0kdMEGZrVIELjxhguI/mhYJBy8ph6JTL00U8wh8jX6ANIR0AztQ FM6V4KByXoBRiRBVj/v4KCeJlBo2VV9q5kdw/K9ITFHK8HpmHD4+TLxDqdnD c3HQFnAthXfoBQ94JZ583Ye5/AC5VO7z3ik1HPQRgnwapeIFiuZKmYr7SMko 4glSlKBjd5Sw90IhE7SkITQVEmI/cO2TcpTKLngWDnQp8QdKAO0HkpQDYUeb 2RA+FAeNB5iUw6XBS6DV/UjKsSSsgGQgFmarKDIpH/uXlGPpqH80BJ1ASYXR 6x7VjhxcFZMmeo+Q19gNwU+hry76dtFlsgO9QgHS0MN9x6VzPn/+2Y+NOz0L 913IOexeH3SjKTGtPjVTmJYZNde5zMCy3NS23NRG8de23MS63Hhi9RRHkeva TM/jKX5+uf53mnLym3MLmzNzmrLzmji5Tfs9H+4+I/74kGSJm8x+RdfSTTV5 BVqq1ysJphqyKlNYihiCNxisEgVY2QWPgFiKD9dhSKSklWDcQzFWOVNADMg8 WkbrIDgNoQkRZUlIrgler06pYeu9Yo56RykyPGbCs6g+nBJdlVUBZmZKpyku lPsEy7z1kC+WklJTaNebaNRWKSDJOPAjOPVTgN8CNEhAHEq5EJdJKSbEaQip LSdlVkeh7liYVEsaYqo96FOJAmXtGw50XWklCoiwBlKiwM5E9NkZDE3sJQrs BQ84oBC4JKF2xZ8lfjIt3+NHWPyMPmosUUDUQAnOTB31j4bU1sZTdENJM7oQ bWhIrSHID5AH0USsT69TgMDf5CN/m1yloOv9jyWz1ks+PvJw55nyPWdzj+1r DLvdnpjakp5dz8mOn+dcrW9RPd5GvplYVxtNqJ9o27h2SdEvHlkB/qVhEcVh d0uDQ1q4+fdzi9oz8zpyCjoyczu2He3c9pN4nYdk/hbptLUyc6dn81fXJado oyF9mAp++2hHiC3uw/ZaFmzDJ0eUz4Mo6njxbBXKfcHROAzmeME2bIxioLIS WCVN/tHMDAlheUUMsg6nISE2IcKDHqxwpmiCFnRQaTFavOjRR0cH5bgQK6G1 NiQN+RB9xC9U2qXqpWdZ6sgR+QM1K1fKdVA1BgEfTvHQ0zqwjFzIUIkntwtK UNRsCxVUqEy1oQemsFIHBDQDRXM3pUDFFJIyXQVdyO0FXwygmMo58JTa0Qvk LxZHoXU0egU4gjY0hE+FhL3jHlOFMyzTRXMEdBVcEYCn0HNDrqpC7sEt2GZZ IWJKo7EXbMMlCfqzJ0zShLSCbWis2ksoE09U/wwLtgGQHLzymcnPQk0F2zsU wAuzoaOYOhL2l4agOej+wpuO13jDXtRSvDZJOSZDmOgYTQm1B+XVpk3B4RLz Gd3TVkpWHOjaerLB3bPghwMtkYG/JSQ9SM9uzs5NmK+kIZHRxBozq6YlcysO 78i84cNPSL6XlnEvLr4kNLwoOLiVW9CWU3ifk9uRV/woq+Dxp/t+X7VL+sEe yexPpPbLpDaLZTYLxI7zqry8NWqI103BsTSMJHjQoER7cBZ/YkXt46t4ETge glBMQ2tP8mdFe69T9KSnsKE46hE+HYk+sj9XgsIdVAzFUjQhoozSKasb8qCN TVjwDfgKVSmgSI7P8oSKxB3uKDRrQwmrXnadPt3LLqzqTK1/8Ae7cOail89R 1rwQxeNLTiyvHqXogxKDeDEGquvAO8JNpnAZZdbD5Cg0BEIlEHT1tKEhGChQ PKeEULXPe8IjCCj6oZYocMFQP1iPr+K6wSVpcJa+9s1CHGrFwnkNCKFQT+2l CbGlFkhhrljBNt6MMqpHDxmBWA31R4pBaoC3g+5nbR5fhTcCPjPrij1KTPEA 3pFwAGtDoF9Y5A+LH5CNUDdKLzi0KVFgMgRPTuLfcHqmVCNwGqrl8Z/OXSIx myK2X/h8weautYfuu/5c9P3+1siAR3HxD1Mz7mflRM53Lh5rxjOxEs6eLnD7 jHv1XEF4pCghpTktozklpSk2tvJueEFQUHN6dktmXms6tz2n6GFWwf3/7nm8 dPvTmRu6HVaJrRdLzGdLLabLLGdKJ0xt3/xlDSeTST16YS0Kvzw886MqpcOv VfsyH41JOYqEHk1UKzKMqioa4OvjkMKY2kOggjeKRUIsXNMnAjDA4sJ71b9t 3Ag1wSuK4doNntPDzdRsF94Xg11QDt4F/sgqTJohTdRm4egaMjXGQbmJFOqh DwbotxId6aU83ck0R+GiKF8ABI00BDkIpwD2qNvXZkzBrX8YXN0Gt9NB7/fF yVSLftNQv6GxYJsFg+sWxEQPP/28e7zVM3OHbus5YkeXZ4u2ta7en394T1PY rYfR0Q/iE9tSUv3nOCVbTCj5fFXOmR/ygoOFsQn1iUnC2PjqmNjGmJjau3cr Q0Jy7vjfi0u6l8Spi0tv4uS1cwoebvjuscuurtmfPrVdKLZ4T2LuJB0/VWZs JzOeJH9SyXJK20cbqgODhBUVFN3QyBYdQUkh/CDLEjYFfaKhl4CelwaoFiPQ KWQ7ngViB+XRKnqt9csHvZxMbcwfCChrVWi9RllF0PsZ25cPjTQERpj4VEio 9Q+c5YU5lC4IDQ0EWvp54Hj5NKTx8VUWvAhXV2zcLB5rLDaxemxo0TbOttl8 Vp3DysIFm7MPudcGXGsJCWoJC2uMiAxZOC/tm23ZftfKgsOEkVGCiKiy8IjS sPDCkJDioKDSO3cKb91Mu36tKiRSEJtWGZVSk5zdmpLzdN13Txdu67JZJjZ9 76nt3IdrtzzYe7j1hGfLxSvNV661el7o2Pvtgx27m05Rf614il6lpzLm4JVa 9GZMUEtDlFK0lww8TUQZbOOntKESuEZPf6eExveevVAAAoLrWRSt2NOVfZJP yf7hXw+1dX0vExppyJX2Ji7tf+DalCQNIQ3Ra9sG0qk20l7QzAX3M1q+H3S8 fBoSanqZj8YLB64AhIjHa3XdLh6l1zVKr11Hv1HXQDTWtGb8ZJ7V/Jx5GzkH vxb4Xay+4Su6dav61i3Ozz8WXvctvu1f4u8vCAgUBAYW37qVfv168rVrYMu4 ejXzypXYC+dLfG/zwxL4QbG1iZltabnPluwQO6zsdNnUeupiTXYOoyqCKsoB EGHQ0rayiSLPQzkIV8O1CWsUGkIpIxCmhmrADF/dqXyjWu8JgnyJSnWqf+/3 1vK9Zy8ZUKvBcjhcBcM3+GgtPEt5WevLh0YaokyFhIM9/B4SGqK/jLR/L71k ksbk0peQQBsSGqK/mkDtwf6B5dWmLBhEVzf53nruOKtzlF7NOLOaibaVVrZC m0k8Q9N8HeNsI/u0mavjN3/Gu+lVfsOv3P92xR1/fsCdquBgUWxcbSa3Pr+o LqegIT2zNia+MiiIc8Mv9qpXrNeVqCuXMq/5VIbHC6OSH1TV1kXEPp+8+vfl m0T8skHReSCAMR9P36F6hiEcML840O39IwAuu7yc/zgDkdRQ/T8dQ/4fPQxi vBK+xAxV//AHV48dg3unXjQGxdWi4mKB5/nwj9cH7tmTHxhUmZMjKCkRlpYK i4srk5MLz5xNfn9VmPX84ElTOD//IORmN1VWtolEbXX1bU3N91va2lsVW3PL g8bmjsam+w2NrbUNzVXCmoqKSj6/qozfJqp+9OBhe01N8axlT0xmNt64Myi2 ExD8uTDkNERA8IdFVWlpEZdLP44qFspzc8Ns5/jpG9wwNoqYM6dw3cYS96NZ e49x9hzJ3Hck99BxsHEPHM13P8jf8U32VveUDV8lfOYWu37nTecl+6c6Rs9b kL9kdan17DaL6Y8MrOvDyH+0SvAqAtYGD7UWBAR/MiAmCpjl9Mub/z45YozA dq5k44nn+7ybvrsuOOIjOHpN+IOv6Mfrwh98ag9d/H37MeHGw/lr92Ws+zZ9 1cGi5bt8jO02vvF6pZFZnfGEJkPz+7oGNX43h9osAgICAoI/E8rS0o6OHO7x +ptn39HvmuwiWbZXsun0E7eLD/Z6tRz0bvDwrj10tcbjSsO+i+0bj7as+7Z6 xYHyNYf5y3bxnT6vmvxhpJ55/CjdyrGGVXpG9Tp6Fd8dHWqDCAgICAj+PBAI kn788cib7+7/v9dTdMdJHN6XzNkgWbZb8slPkq1nn3198fHuK527L993v/Rg 57nfPj32ePV3vy37pn353ntzNtZMcqk0nV5mZJU1Wi911Oji0XplI3XLFi0V VlEL4QgICAgICNSiSiDITUw8NFLH45+vPzOxlk6cKZm0WDJtjWzWZtnifdI1 30s2/Nq98WT3phPP133/fOWhrkV7njq5ds5c/8hycfPUJTV2s/ijDXOGj4ob PjJ+pA5nhG6OoXGFuqUoAgICAgICtcgIDV3/93+kDB8pNZkgHW8nM50msXPu ctny++aDzz50k87cIlm0W7LIXeK8s9tp29MpH/9us/ypyezWo7+IioqFYAsK Llm5OmXM2MC33ol8e0TcuyNzvTW/QY6AgICAgADiyv59B//1L5m+vsxgnNTM utP1q7pU5ZPLovKKhx4nZXYrpFP+K53yUbfd8qcWzl2G03775AuKEF5sbMJS lytv/Mf/P29HOi8ieTkCAgICAm1QJRBstbYSDB8p09Pres+pITqG3qbzKw+Z zWLpxLkSG+cnxtO6jB3r45PUSuNcunRGR/fCsDdq1ckhICAgICCgICs5+ei/ /y3T0ev48isRwzvuqotKxLOWyl+UbT7tmZH9o8WrhAIBk8Di5OTjxkZx06eT CREBAQEBgUb8vGVz24jRTZ7n2Js13wyQjbeXmTmKDa3aftXw/kwel/uzpYXo 0uXBU5OAgICA4C+IHA7n0tvD205d0Kbx74s/lBlNkBpb18TFa2zMz8uLcd1a nZM7YB0JCAgICP6yuPT1zta9h7Vs3HLJS2Zs02ntWFFYqE378sLCCkJDBAQE BAQMyMrI4B//Rfv2osrKbodZ9xcseXEqERAQEBC8OqgoLu5rFcGTlRu4HwzZ /25JQEBAQPBHw/8DCp03+A== "], {{0, 0}, {557, 41}}, {0, 255}, ColorFunction -> RGBColor], ImageSize -> {557, 41}, PlotRange -> {{0, 557}, {0, 41}}]], "DockedCell", Background -> GrayLevel[0.866682], CellFrame -> {{0, 0}, {0, 4}}, CellFrameColor -> RGBColor[0.690074, 0.12871, 0.194598], CellMargins -> {{0, 0}, {-3, 0}}, CellFrameMargins -> 0, ContextMenu -> None, ComponentwiseContextMenu -> {}], Cell[ BoxData[ GridBox[{{ GraphicsBox[ RasterBox[CompressedData[" 1:eJztWl1Ik1EYFrqNEoLMbHPmNkRrEhJERj93ra4cJvbDRIsyMk1pc03tTL1w aD+LfkQIJBkR/dBFdtHFDLywCykqoqgLIYRu6jbb8me933e+HT/P2fZN+sZ0 vg9n43zfec973nPe57zvOWNFDS2OhnU5OTlG+LyBj1S/ikAgEAgEAoFAIBAI xEpFMBh8jUgPYG0z7d7MAOYedm/Bko4Ca5tp92YGSCokle5AUiGpdAeSCkml O0RS/R1tjEajUIHvyIhdehPyLNZjrVSAgT5CK1Tmf32e+/qcdYEy+/4+vKTd oQJN89PjojbaHcrCzE8qn0RGfIxrEjcF0SomD49hYqDDUUSGKtUKWRMYz42L pFJDg1RPamGdlRWGuuDi2Yl+WHkoiy72W6jjgFeSm/wWKEAScCvtCxWpSzxt 1FPU9dJ76Lt8UnEmcVMQrWImUQE6nKJB7sgUKpb4LcpEtHiFpEpEKim2TI8n IhXv4pAHXCAJEAPIq7d5JFAOYYEGKHEstTbQAJKSx+XH5ZKKE+CmIFq1ZC/E SBVXoboJyMliKZKKgyapwLlK1ohHKgpYYfGRbnNpg4c8dP3prtckFQ0gUm5K miKpVZxnRZP4KcSziiU1bjhOobpJ2TtIqnhITipYZ7byydJfoDzMpT9ZWMo1 EHbgBBLyhOWzlmakUtKQnB/VuUYkFbWNjZXIJHEKnFVL0t+IXSQVU4iRKkUk JxVzhJI7hirpDpXOGzJ5eFLFvMNORxAlaJZhmtmZStQGAvSQA/FECSksH/kt VLMyokw5qHDOFU3ipiBaxZmtTSo8U2lBI1LF/BWNXZ0Y1LckLo9IqQdYIWdA 9T0uvPT2J2qjrUr2lGMRSzrq4eiIVIxFGC5bMZO4KYhWcWYnSn8gv3j7k+vJ GbVaSNXt9fo6O/XVib9Tpa+sClLdvtB0q+WSvjqRVGucVA/q6p9V1+irE0m1 xkk1cuLk2O49+upEUq1xUg1X14yZraSrS0ed+H+q9GFV/J+qx25/u9U40Nqa aUMQ2YMrFRWf8g0vDh9JvUvgYjPR+8KIyA5AyiNeb1Pe5ql840xxSV97eyq9 Hp1y3nE602waYoXC19GRqInIGHC57lY53Lm53/O2RQ3Fr6qqNXUG609/LLX1 ulOiHyL74D/XeLPxvPiexHDtsuulyexbv2GqwLRgNP8xl/W7XAQE1IUQ1nHw zNl5o2XYoc09RLbC5/E8te26V9+gfskY5SPkuss1abLc2Ljpm9E8Z7FFt++c POroJoQWn1wotQAPj9XMFZp/m6y9bndGpoNYCZBikbNuoqBwsPY4IxIrQJu+ trYf5pLRfOOXotJw6d7Zsv0LtkOPzzb1ENKjolagueVD5YGodUfEZH2372Cm p4X4X/wDFcRtOg== "], {{0, 0}, {199, 30}}, {0, 255}, ColorFunction -> RGBColor], ImageSize -> {199, 30}, PlotRange -> {{0, 199}, {0, 30}}], ButtonBox[ GraphicsBox[ RasterBox[CompressedData[" 1:eJztlDFuhFAMRJHS5w45Re6RI+wFcoOUtNtR0lJSUlNSUtNS0m9JXjTKaPQh UfpgCeT1n2+Px15ebu9vt6eqqp55Xnm+/I/L/p+1bbtt277vvJumIcKbnwWs 73vBsHVdE1bXNQ55Ho8HMOEd3L9tWRZ+6tRBrrjEMAwigHO/37M6SII40zRB Q7QLkpQWjKOu63RqGHHVIoOYYAR16oucinYGxUo2jqMIzPNMnpQRPF2nMkeS cCBDXsm7ZNZp6oZRS3wsIBFNIYM2iY8gYmJA8imqawHcOAKqio4KSp4O7Qjp K1nOUygasaG2hoKSaud3krkArggZzyhhTohP3Uz7E0mNu9g98oj26exOSTon fRUtn8IUJL+W80gyuz6OW3mgrSXXEv5dSaRTaRz9KQpY/knxtVomKdFQxvFT JZFR6pFBJWT5tbEvR9+H3F6S+GOSMC+DTHtrHYyh32Qu855cdhn2CUundjY= "], {{0, 0}, {55, 14}}, {0, 255}, ColorFunction -> RGBColor], ImageSize -> {55, 14}, PlotRange -> {{0, 55}, {0, 14}}], ButtonData -> { URL["http://store.wolfram.com/view/app/playerpro/"], None}, ButtonNote -> "http://store.wolfram.com/view/app/playerpro/"], GraphicsBox[ RasterBox[{{{132, 132, 132}, {156, 155, 155}}, {{138, 137, 137}, { 171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{ 138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, { 171, 169, 169}}, {{135, 135, 135}, {167, 166, 166}}}, {{0, 0}, {2, 14}}, {0, 255}, ColorFunction -> RGBColor], ImageSize -> {2, 14}, PlotRange -> {{0, 2}, {0, 14}}], ButtonBox[ GraphicsBox[ RasterBox[CompressedData[" 1:eJztlSGSg2AMhTuzfu+wB1qzR+gF9gbIWhwSW4lEV1ZWYyvxSPZb3vAmDdDq zpCZdvKH5CUvfwhfx9+f48fhcPjk983vXy922eU9paqqcRx9HGcZhiE+PZ1O KHVd24KOgt0WFKLQ27ZdJrper0JGcS5CVqs6n89yRpGl73tZBK6kkvv97kCe ChOlLEvbVW2kiYPoxKcYRdwWld00jS2EcFSFMYXCqbOcBJzL5aJcxK7SFEFB GQFn8AWupPUkMRfIJEK53W5d1z2hGVP7yohVbfanWoxAJQTfeywbT1+xK9mi GQGTj8FT0uRAN3Tdjl3SlNANP5WoabIIRP+x52ojLEgXs8fxs7+R1cCXNFH6 SVJhKZwx0+BxBZ7nraGNpBSrEFlA1khgRDcCRg1navIWTeVKPVmliaeaL+c4 tCmcknRHfjtWaS6HNtYmC1wYjGJ+6eKjJcficWgVssz1nGbabFtD682gZaIO MHXqkq/vyW3GFaQXliNuOhbz9lOHU3a6SrhWkCmnXC9pUoPBt1aQpquYrtJt 0f6Pazkd497W1MkSlxierkrrN254iz8oHqS0ByzxGzfOHx2yq9plYSl8l13e Xf4ArlmHrg== "], {{0, 0}, {77, 14}}, {0, 255}, ColorFunction -> RGBColor], ImageSize -> {77, 14}, PlotRange -> {{0, 77}, {0, 14}}], ButtonData -> { URL[ "http://www.wolfram.com/solutions/interactivedeployment/\ licensingterms.html"], None}, ButtonNote -> "http://www.wolfram.com/solutions/interactivedeployment/\ licensingterms.html"]}}, ColumnsEqual -> False, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}]], "DockedCell", Background -> GrayLevel[0.494118], CellFrame -> {{0, 0}, {4, 0}}, CellFrameColor -> RGBColor[0.690074, 0.12871, 0.194598], CellMargins -> 0, CellFrameMargins -> {{0, 0}, {0, -1}}, ContextMenu -> None, ComponentwiseContextMenu -> {}, ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{ NotebookLocate[#2]}]& ), Appearance -> None, ButtonFrame -> None, Evaluator -> None, Method -> "Queued"}]}, FEPrivate`If[ FEPrivate`SameQ[ FrontEnd`CurrentValue[ FrontEnd`EvaluationNotebook[], ScreenStyleEnvironment], "SlideShow"], { Inherited}, {}]], Inherited], PrintingCopies->1, PrintingPageRange->{Automatic, Automatic}, ShowSelection->True, ShowCellLabel->False, Magnification->1.5, FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (November 10, 2008)", StyleDefinitions->FrontEnd`FileName[{"Report"}, "StandardReport.nb", CharacterEncoding -> "WindowsANSI"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Info3472219492-3370279"->{ Cell[13040, 494, 1047, 20, 133, "Print", CellTags->"Info3472219492-3370279"]} } *) (*CellTagsIndex CellTagsIndex->{ {"Info3472219492-3370279", 56534, 1725} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[567, 22, 221, 6, 418, "Title"], Cell[CellGroupData[{ Cell[813, 32, 496, 18, 132, "Subsection"], Cell[CellGroupData[{ Cell[1334, 54, 456, 15, 132, "Input"], Cell[1793, 71, 360, 12, 93, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2190, 88, 162, 5, 85, "Input"], Cell[2355, 95, 605, 16, 123, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2997, 116, 69, 1, 85, "Input"], Cell[3069, 119, 948, 25, 141, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[4066, 150, 476, 17, 237, "Subsection"], Cell[CellGroupData[{ Cell[4567, 171, 304, 11, 145, "Input"], Cell[4874, 184, 408, 13, 84, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[5319, 202, 309, 9, 85, "Input"], Cell[5631, 213, 732, 22, 141, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[6412, 241, 792, 35, 198, "Subsection"], Cell[7207, 278, 378, 15, 145, "Input"], Cell[7588, 295, 297, 13, 178, "Input"], Cell[CellGroupData[{ Cell[7910, 312, 154, 4, 127, "Input"], Cell[8067, 318, 670, 20, 141, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8774, 343, 61, 1, 85, "Input"], Cell[8838, 346, 1020, 17, 132, "Message"], Cell[9861, 365, 918, 33, 123, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[10828, 404, 180, 7, 207, "Subsection"], Cell[CellGroupData[{ Cell[11033, 415, 576, 19, 85, "Input"], Cell[11612, 436, 257, 8, 84, "Output"] }, Open ]], Cell[11884, 447, 610, 20, 127, "Input"], Cell[CellGroupData[{ Cell[12519, 471, 158, 5, 85, "Input"], Cell[12680, 478, 266, 8, 84, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[12983, 491, 54, 1, 85, "Input"], Cell[13040, 494, 1047, 20, 133, "Print", CellTags->"Info3472219492-3370279"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[14136, 520, 222, 7, 207, "Subsection"], Cell[CellGroupData[{ Cell[14383, 531, 728, 24, 127, "Input"], Cell[15114, 557, 384, 13, 114, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[15535, 575, 65, 1, 85, "Input"], Cell[15603, 578, 158, 4, 84, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[15798, 587, 667, 22, 168, "Input"], Cell[16468, 611, 255, 9, 114, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[16760, 625, 63, 1, 85, "Input"], Cell[16826, 628, 142, 4, 84, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[17017, 638, 322, 10, 283, "Subsection"], Cell[CellGroupData[{ Cell[17364, 652, 1963, 60, 208, "Input"], Cell[19330, 714, 654, 20, 114, "Output"] }, Open ]], Cell[19999, 737, 1085, 34, 208, "Input"], Cell[CellGroupData[{ Cell[21109, 775, 94, 2, 85, "Input"], Cell[21206, 779, 309, 9, 114, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[21564, 794, 606, 21, 271, "Subsection"], Cell[22173, 817, 733, 22, 127, "Input"], Cell[CellGroupData[{ Cell[22931, 843, 92, 2, 85, "Input"], Cell[23026, 847, 687, 20, 123, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[23750, 872, 192, 5, 127, "Input"], Cell[23945, 879, 869, 26, 226, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[24851, 910, 83, 2, 85, "Input"], Cell[24937, 914, 563, 16, 114, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[25549, 936, 476, 16, 198, "Subsection"], Cell[CellGroupData[{ Cell[26050, 956, 546, 17, 127, "Input"], Cell[26599, 975, 316, 10, 84, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[26964, 991, 1681, 61, 567, "Subsection"], Cell[CellGroupData[{ Cell[28670, 1056, 1549, 49, 337, "Input"], Cell[30222, 1107, 158, 4, 84, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[30417, 1116, 71, 1, 85, "Input"], Cell[30491, 1119, 858, 26, 172, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[31386, 1150, 449, 15, 127, "Input"], Cell[31838, 1167, 938, 31, 138, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[32813, 1203, 94, 2, 85, "Input"], Cell[32910, 1207, 377, 8, 84, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[33324, 1220, 71, 1, 85, "Input"], Cell[33398, 1223, 5327, 168, 873, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[38762, 1396, 95, 2, 85, "Input"], Cell[38860, 1400, 877, 21, 123, "Output"] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *) (* NotebookSignature mv0rTvad4gRQoCwsURsLm@ns *)