(************** Content-type: application/mathematica ************** CreatedBy='Mathematica 5.1' Mathematica-Compatible Notebook This notebook can be used with any Mathematica-compatible application, such as Mathematica, MathReader or Publicon. The data for the notebook starts with the line containing stars above. To get the notebook into a Mathematica-compatible application, do one of the following: * Save the data starting with the line of stars above into a file with a name ending in .nb, then open the file inside the application; * Copy the data starting with the line of stars above to the clipboard, then use the Paste menu command inside the application. Data for notebooks contains only printable 7-bit ASCII and can be sent directly in email or through ftp in text mode. Newlines can be CR, LF or CRLF (Unix, Macintosh or MS-DOS style). NOTE: If you modify the data for this notebook not in a Mathematica- compatible application, you must delete the line below containing the word CacheID, otherwise Mathematica-compatible applications may try to use invalid cache data. For more information on notebooks and Mathematica-compatible applications, contact Wolfram Research: web: http://www.wolfram.com email: info@wolfram.com phone: +1-217-398-0700 (U.S.) Notebook reader applications are available free of charge from Wolfram Research. *******************************************************************) (*CacheID: 232*) (*NotebookFileLineBreakTest NotebookFileLineBreakTest*) (*NotebookOptionsPosition[ 26002, 668]*) (*NotebookOutlinePosition[ 26749, 694]*) (* CellTagsIndexPosition[ 26705, 690]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell["Ejemplos de productos de matrices", "Subsubtitle"], Cell[BoxData[ \(ProductoAleatorioMatrices\ := \ Module[\[IndentingNewLine]{filas1, \ fccomunes, columnas2, matriz1, matriz2}, \[IndentingNewLine]filas1\ = \ Random[Integer, {2, 4}]; \[IndentingNewLine]fccomunes = Random[Integer, {2, 4}]; \[IndentingNewLine]columnas2 = Random[Integer, {2, 4}]; \[IndentingNewLine]matriz1 = Table[Random[Integer, {1, 10}] - 5, \ {i, 1, filas1}, {j, 1, fccomunes}]; \[IndentingNewLine]matriz2 = Table[Random[Integer, {1, 10}] - 5, \ \ {i, 1, fccomunes}, {j, 1, columnas2}]; \ \[IndentingNewLine]Print[\[IndentingNewLine]MatrixForm[ matriz1], \ "\<\[CenterDot]\>", \ \[IndentingNewLine]\ MatrixForm[matriz2], \ \ "\<=\>", \[IndentingNewLine]Simplify[ MatrixForm[ matriz1\ . matriz2]]\[IndentingNewLine]]\[IndentingNewLine]]\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(For[k = 1, k \[LessEqual] 5, \(k++\), \[IndentingNewLine]ProductoAleatorioMatrices]\)], "Input"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"4", \(-1\), "5", "2"}, {"0", "5", "2", \(-3\)}, {\(-1\), "2", "0", "3"}, {\(-4\), "4", "5", \(-3\)} }, RowSpacings->1, ColumnSpacings->1, ColumnAlignments->{Left}], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\[CenterDot]\"\>", "\[InvisibleSpace]", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"3", "4", \(-2\)}, {\(-4\), "5", "2"}, {"2", \(-4\), "5"}, {"4", "0", "5"} }, RowSpacings->1, ColumnSpacings->1, ColumnAlignments->{Left}], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"34", \(-9\), "25"}, {\(-28\), "17", "5"}, {"1", "6", "21"}, {\(-30\), \(-16\), "26"} }, RowSpacings->1, ColumnSpacings->1, ColumnAlignments->{Left}], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]}], SequenceForm[ MatrixForm[ {{4, -1, 5, 2}, {0, 5, 2, -3}, {-1, 2, 0, 3}, {-4, 4, 5, -3}}], "\[CenterDot]", MatrixForm[ {{3, 4, -2}, {-4, 5, 2}, {2, -4, 5}, {4, 0, 5}}], "=", MatrixForm[ {{34, -9, 25}, {-28, 17, 5}, {1, 6, 21}, {-30, -16, 26}}]], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {\(-3\), "2", \(-3\)}, {"1", "4", "4"}, {\(-3\), "0", "2"} }, RowSpacings->1, ColumnSpacings->1, ColumnAlignments->{Left}], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\[CenterDot]\"\>", "\[InvisibleSpace]", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {\(-4\), "5"}, {"3", "0"}, {"5", "5"} }, RowSpacings->1, ColumnSpacings->1, ColumnAlignments->{Left}], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"3", \(-30\)}, {"28", "25"}, {"22", \(-5\)} }, RowSpacings->1, ColumnSpacings->1, ColumnAlignments->{Left}], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]}], SequenceForm[ MatrixForm[ {{-3, 2, -3}, {1, 4, 4}, {-3, 0, 2}}], "\[CenterDot]", MatrixForm[ {{-4, 5}, {3, 0}, {5, 5}}], "=", MatrixForm[ {{3, -30}, {28, 25}, {22, -5}}]], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {\(-2\), \(-4\), "4"}, {\(-4\), \(-3\), "4"} }, RowSpacings->1, ColumnSpacings->1, ColumnAlignments->{Left}], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\[CenterDot]\"\>", "\[InvisibleSpace]", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", \(-1\), "5", "4"}, {"3", \(-2\), "4", "4"}, {\(-3\), \(-3\), "2", \(-1\)} }, RowSpacings->1, ColumnSpacings->1, ColumnAlignments->{Left}], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {\(-26\), \(-2\), \(-18\), \(-28\)}, {\(-25\), \(-2\), \(-24\), \(-32\)} }, RowSpacings->1, ColumnSpacings->1, ColumnAlignments->{Left}], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]}], SequenceForm[ MatrixForm[ {{-2, -4, 4}, {-4, -3, 4}}], "\[CenterDot]", MatrixForm[ {{1, -1, 5, 4}, {3, -2, 4, 4}, {-3, -3, 2, -1}}], "=", MatrixForm[ {{-26, -2, -18, -28}, {-25, -2, -24, -32}}]], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"3", "0"}, {\(-2\), \(-4\)}, {"1", \(-2\)}, {\(-1\), "1"} }, RowSpacings->1, ColumnSpacings->1, ColumnAlignments->{Left}], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\[CenterDot]\"\>", "\[InvisibleSpace]", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {\(-1\), \(-3\), "1"}, {"5", "2", "5"} }, RowSpacings->1, ColumnSpacings->1, ColumnAlignments->{Left}], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {\(-3\), \(-9\), "3"}, {\(-18\), \(-2\), \(-22\)}, {\(-11\), \(-7\), \(-9\)}, {"6", "5", "4"} }, RowSpacings->1, ColumnSpacings->1, ColumnAlignments->{Left}], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]}], SequenceForm[ MatrixForm[ {{3, 0}, {-2, -4}, {1, -2}, {-1, 1}}], "\[CenterDot]", MatrixForm[ {{-1, -3, 1}, {5, 2, 5}}], "=", MatrixForm[ {{-3, -9, 3}, {-18, -2, -22}, {-11, -7, -9}, {6, 5, 4}}]], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {\(-2\), \(-2\), "0", "2"}, {\(-2\), \(-2\), \(-4\), "1"}, {"0", \(-3\), "2", "2"}, {"4", "0", "4", \(-2\)} }, RowSpacings->1, ColumnSpacings->1, ColumnAlignments->{Left}], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\[CenterDot]\"\>", "\[InvisibleSpace]", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"2", \(-3\), \(-1\)}, {"5", "3", "2"}, {"0", "4", \(-4\)}, {"1", "1", "3"} }, RowSpacings->1, ColumnSpacings->1, ColumnAlignments->{Left}], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {\(-12\), "2", "4"}, {\(-13\), \(-15\), "17"}, {\(-13\), "1", \(-8\)}, {"6", "2", \(-26\)} }, RowSpacings->1, ColumnSpacings->1, ColumnAlignments->{Left}], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]}], SequenceForm[ MatrixForm[ {{-2, -2, 0, 2}, {-2, -2, -4, 1}, {0, -3, 2, 2}, {4, 0, 4, -2}}], "\[CenterDot]", MatrixForm[ {{2, -3, -1}, {5, 3, 2}, {0, 4, -4}, {1, 1, 3}}], "=", MatrixForm[ {{-12, 2, 4}, {-13, -15, 17}, {-13, 1, -8}, {6, 2, -26}}]], Editable->False]], "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Ejemplos de matrices inversas", "Subsubtitle"], Cell[BoxData[ \(MatrizInversa[num_] := \ Module[\[IndentingNewLine]{k, \ orden, matriz}, \[IndentingNewLine]k = 0; \[IndentingNewLine]While[ k < num, \[IndentingNewLine]orden = Random[Integer, {2, 3}]; \[IndentingNewLine]matriz\ = \ Table[Random[Integer, {1, 10}] - 5, {i, 1, orden}, {j, 1, orden}]; \[IndentingNewLine]If[\ Det[matriz]\ \[NotEqual] \ 0, \[IndentingNewLine]\(k++\); \[IndentingNewLine]Print["\", \ MatrixForm[matriz], \ \*"\"\<. \!\(A\^\(-1\)\) = \>\"", MatrixForm[ Inverse[ matriz]], \ "\<.\>"]]];\[IndentingNewLine]]\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(MatrizInversa[5]\)], "Input"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"A = \"\>", "\[InvisibleSpace]", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"5", \(-3\), \(-4\)}, {\(-1\), "0", "0"}, {"2", \(-1\), \(-1\)} }, RowSpacings->1, ColumnSpacings->1, ColumnAlignments->{Left}], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]], "\[InvisibleSpace]", "\<\". \\!\\(A\\^\\(-1\\)\\) = \"\>", "\[InvisibleSpace]", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", \(-1\), "0"}, {"1", \(-3\), \(-4\)}, {\(-1\), "1", "3"} }, RowSpacings->1, ColumnSpacings->1, ColumnAlignments->{Left}], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]], "\[InvisibleSpace]", "\<\".\"\>"}], SequenceForm[ "A = ", MatrixForm[ {{5, -3, -4}, {-1, 0, 0}, {2, -1, -1}}], ". \!\(A\^\(-1\)\) = ", MatrixForm[ {{0, -1, 0}, {1, -3, -4}, {-1, 1, 3}}], "."], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"A = \"\>", "\[InvisibleSpace]", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {\(-4\), "2", \(-1\)}, {"0", "1", "2"}, {\(-3\), "1", "2"} }, RowSpacings->1, ColumnSpacings->1, ColumnAlignments->{Left}], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]], "\[InvisibleSpace]", "\<\". \\!\\(A\\^\\(-1\\)\\) = \"\>", "\[InvisibleSpace]", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", \(1\/3\), \(-\(1\/3\)\)}, {\(2\/5\), \(11\/15\), \(-\(8\/15\)\)}, {\(-\(1\/5\)\), \(2\/15\), \(4\/15\)} }, RowSpacings->1, ColumnSpacings->1, ColumnAlignments->{Left}], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]], "\[InvisibleSpace]", "\<\".\"\>"}], SequenceForm[ "A = ", MatrixForm[ {{-4, 2, -1}, {0, 1, 2}, {-3, 1, 2}}], ". \!\(A\^\(-1\)\) = ", MatrixForm[ {{0, Rational[ 1, 3], Rational[ -1, 3]}, { Rational[ 2, 5], Rational[ 11, 15], Rational[ -8, 15]}, { Rational[ -1, 5], Rational[ 2, 15], Rational[ 4, 15]}}], "."], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"A = \"\>", "\[InvisibleSpace]", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"5", \(-3\), "2"}, {"4", "2", \(-3\)}, {"4", \(-3\), "4"} }, RowSpacings->1, ColumnSpacings->1, ColumnAlignments->{Left}], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]], "\[InvisibleSpace]", "\<\". \\!\\(A\\^\\(-1\\)\\) = \"\>", "\[InvisibleSpace]", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {\(-\(1\/39\)\), \(2\/13\), \(5\/39\)}, {\(-\(28\/39\)\), \(4\/13\), \(23\/39\)}, {\(-\(20\/39\)\), \(1\/13\), \(22\/39\)} }, RowSpacings->1, ColumnSpacings->1, ColumnAlignments->{Left}], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]], "\[InvisibleSpace]", "\<\".\"\>"}], SequenceForm[ "A = ", MatrixForm[ {{5, -3, 2}, {4, 2, -3}, {4, -3, 4}}], ". \!\(A\^\(-1\)\) = ", MatrixForm[ {{ Rational[ -1, 39], Rational[ 2, 13], Rational[ 5, 39]}, { Rational[ -28, 39], Rational[ 4, 13], Rational[ 23, 39]}, { Rational[ -20, 39], Rational[ 1, 13], Rational[ 22, 39]}}], "."], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"A = \"\>", "\[InvisibleSpace]", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {\(-3\), \(-4\), "2"}, {\(-3\), \(-1\), "2"}, {\(-4\), \(-2\), \(-2\)} }, RowSpacings->1, ColumnSpacings->1, ColumnAlignments->{Left}], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]], "\[InvisibleSpace]", "\<\". \\!\\(A\\^\\(-1\\)\\) = \"\>", "\[InvisibleSpace]", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {\(1\/7\), \(-\(2\/7\)\), \(-\(1\/7\)\)}, {\(-\(1\/3\)\), \(1\/3\), "0"}, {\(1\/21\), \(5\/21\), \(-\(3\/14\)\)} }, RowSpacings->1, ColumnSpacings->1, ColumnAlignments->{Left}], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]], "\[InvisibleSpace]", "\<\".\"\>"}], SequenceForm[ "A = ", MatrixForm[ {{-3, -4, 2}, {-3, -1, 2}, {-4, -2, -2}}], ". \!\(A\^\(-1\)\) = ", MatrixForm[ {{ Rational[ 1, 7], Rational[ -2, 7], Rational[ -1, 7]}, { Rational[ -1, 3], Rational[ 1, 3], 0}, { Rational[ 1, 21], Rational[ 5, 21], Rational[ -3, 14]}}], "."], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"A = \"\>", "\[InvisibleSpace]", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"5", \(-4\)}, {"0", "3"} }, RowSpacings->1, ColumnSpacings->1, ColumnAlignments->{Left}], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]], "\[InvisibleSpace]", "\<\". \\!\\(A\\^\\(-1\\)\\) = \"\>", "\[InvisibleSpace]", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {\(1\/5\), \(4\/15\)}, {"0", \(1\/3\)} }, RowSpacings->1, ColumnSpacings->1, ColumnAlignments->{Left}], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]], "\[InvisibleSpace]", "\<\".\"\>"}], SequenceForm[ "A = ", MatrixForm[ {{5, -4}, {0, 3}}], ". \!\(A\^\(-1\)\) = ", MatrixForm[ {{ Rational[ 1, 5], Rational[ 4, 15]}, {0, Rational[ 1, 3]}}], "."], Editable->False]], "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Desarrollo de un determinante", "Subsubtitle"], Cell[BoxData[ \(\(Subindice[i_, j_]\ := \ ToString[i]\ <> \ ToString[j];\)\)], "Input"], Cell[BoxData[ \(Determinante[n_]\ := Det[Table[a\_\(Subindice[i, j]\), {i, 1, n}, {j, 1, n}]]\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(Expand[Determinante[5]]\)], "Input"], Cell[BoxData[ \(a\_"15"\ a\_"24"\ a\_"33"\ a\_"42"\ a\_"51" - a\_"14"\ a\_"25"\ a\_"33"\ a\_"42"\ a\_"51" - a\_"15"\ a\_"23"\ a\_"34"\ a\_"42"\ a\_"51" + a\_"13"\ a\_"25"\ a\_"34"\ a\_"42"\ a\_"51" + a\_"14"\ a\_"23"\ a\_"35"\ a\_"42"\ a\_"51" - a\_"13"\ a\_"24"\ a\_"35"\ a\_"42"\ a\_"51" - a\_"15"\ a\_"24"\ a\_"32"\ a\_"43"\ a\_"51" + a\_"14"\ a\_"25"\ a\_"32"\ a\_"43"\ a\_"51" + a\_"15"\ a\_"22"\ a\_"34"\ a\_"43"\ a\_"51" - a\_"12"\ a\_"25"\ a\_"34"\ a\_"43"\ a\_"51" - a\_"14"\ a\_"22"\ a\_"35"\ a\_"43"\ a\_"51" + a\_"12"\ a\_"24"\ a\_"35"\ a\_"43"\ a\_"51" + a\_"15"\ a\_"23"\ a\_"32"\ a\_"44"\ a\_"51" - a\_"13"\ a\_"25"\ a\_"32"\ a\_"44"\ a\_"51" - a\_"15"\ a\_"22"\ a\_"33"\ a\_"44"\ a\_"51" + a\_"12"\ a\_"25"\ a\_"33"\ a\_"44"\ a\_"51" + a\_"13"\ a\_"22"\ a\_"35"\ a\_"44"\ a\_"51" - a\_"12"\ a\_"23"\ a\_"35"\ a\_"44"\ a\_"51" - a\_"14"\ a\_"23"\ a\_"32"\ a\_"45"\ a\_"51" + a\_"13"\ a\_"24"\ a\_"32"\ a\_"45"\ a\_"51" + a\_"14"\ a\_"22"\ a\_"33"\ a\_"45"\ a\_"51" - a\_"12"\ a\_"24"\ a\_"33"\ a\_"45"\ a\_"51" - a\_"13"\ a\_"22"\ a\_"34"\ a\_"45"\ a\_"51" + a\_"12"\ a\_"23"\ a\_"34"\ a\_"45"\ a\_"51" - a\_"15"\ a\_"24"\ a\_"33"\ a\_"41"\ a\_"52" + a\_"14"\ a\_"25"\ a\_"33"\ a\_"41"\ a\_"52" + a\_"15"\ a\_"23"\ a\_"34"\ a\_"41"\ a\_"52" - a\_"13"\ a\_"25"\ a\_"34"\ a\_"41"\ a\_"52" - a\_"14"\ a\_"23"\ a\_"35"\ a\_"41"\ a\_"52" + a\_"13"\ a\_"24"\ a\_"35"\ a\_"41"\ a\_"52" + a\_"15"\ a\_"24"\ a\_"31"\ a\_"43"\ a\_"52" - a\_"14"\ a\_"25"\ a\_"31"\ a\_"43"\ a\_"52" - a\_"15"\ a\_"21"\ a\_"34"\ a\_"43"\ a\_"52" + a\_"11"\ a\_"25"\ a\_"34"\ a\_"43"\ a\_"52" + a\_"14"\ a\_"21"\ a\_"35"\ a\_"43"\ a\_"52" - a\_"11"\ a\_"24"\ a\_"35"\ a\_"43"\ a\_"52" - a\_"15"\ a\_"23"\ a\_"31"\ a\_"44"\ a\_"52" + a\_"13"\ a\_"25"\ a\_"31"\ a\_"44"\ a\_"52" + a\_"15"\ a\_"21"\ a\_"33"\ a\_"44"\ a\_"52" - a\_"11"\ a\_"25"\ a\_"33"\ a\_"44"\ a\_"52" - a\_"13"\ a\_"21"\ a\_"35"\ a\_"44"\ a\_"52" + a\_"11"\ a\_"23"\ a\_"35"\ a\_"44"\ a\_"52" + a\_"14"\ a\_"23"\ a\_"31"\ a\_"45"\ a\_"52" - a\_"13"\ a\_"24"\ a\_"31"\ a\_"45"\ a\_"52" - a\_"14"\ a\_"21"\ a\_"33"\ a\_"45"\ a\_"52" + a\_"11"\ a\_"24"\ a\_"33"\ a\_"45"\ a\_"52" + a\_"13"\ a\_"21"\ a\_"34"\ a\_"45"\ a\_"52" - a\_"11"\ a\_"23"\ a\_"34"\ a\_"45"\ a\_"52" + a\_"15"\ a\_"24"\ a\_"32"\ a\_"41"\ a\_"53" - a\_"14"\ a\_"25"\ a\_"32"\ a\_"41"\ a\_"53" - a\_"15"\ a\_"22"\ a\_"34"\ a\_"41"\ a\_"53" + a\_"12"\ a\_"25"\ a\_"34"\ a\_"41"\ a\_"53" + a\_"14"\ a\_"22"\ a\_"35"\ a\_"41"\ a\_"53" - a\_"12"\ a\_"24"\ a\_"35"\ a\_"41"\ a\_"53" - a\_"15"\ a\_"24"\ a\_"31"\ a\_"42"\ a\_"53" + a\_"14"\ a\_"25"\ a\_"31"\ a\_"42"\ a\_"53" + a\_"15"\ a\_"21"\ a\_"34"\ a\_"42"\ a\_"53" - a\_"11"\ a\_"25"\ a\_"34"\ a\_"42"\ a\_"53" - a\_"14"\ a\_"21"\ a\_"35"\ a\_"42"\ a\_"53" + a\_"11"\ a\_"24"\ a\_"35"\ a\_"42"\ a\_"53" + a\_"15"\ a\_"22"\ a\_"31"\ a\_"44"\ a\_"53" - a\_"12"\ a\_"25"\ a\_"31"\ a\_"44"\ a\_"53" - a\_"15"\ a\_"21"\ a\_"32"\ a\_"44"\ a\_"53" + a\_"11"\ a\_"25"\ a\_"32"\ a\_"44"\ a\_"53" + a\_"12"\ a\_"21"\ a\_"35"\ a\_"44"\ a\_"53" - a\_"11"\ a\_"22"\ a\_"35"\ a\_"44"\ a\_"53" - a\_"14"\ a\_"22"\ a\_"31"\ a\_"45"\ a\_"53" + a\_"12"\ a\_"24"\ a\_"31"\ a\_"45"\ a\_"53" + a\_"14"\ a\_"21"\ a\_"32"\ a\_"45"\ a\_"53" - a\_"11"\ a\_"24"\ a\_"32"\ a\_"45"\ a\_"53" - a\_"12"\ a\_"21"\ a\_"34"\ a\_"45"\ a\_"53" + a\_"11"\ a\_"22"\ a\_"34"\ a\_"45"\ a\_"53" - a\_"15"\ a\_"23"\ a\_"32"\ a\_"41"\ a\_"54" + a\_"13"\ a\_"25"\ a\_"32"\ a\_"41"\ a\_"54" + a\_"15"\ a\_"22"\ a\_"33"\ a\_"41"\ a\_"54" - a\_"12"\ a\_"25"\ a\_"33"\ a\_"41"\ a\_"54" - a\_"13"\ a\_"22"\ a\_"35"\ a\_"41"\ a\_"54" + a\_"12"\ a\_"23"\ a\_"35"\ a\_"41"\ a\_"54" + a\_"15"\ a\_"23"\ a\_"31"\ a\_"42"\ a\_"54" - a\_"13"\ a\_"25"\ a\_"31"\ a\_"42"\ a\_"54" - a\_"15"\ a\_"21"\ a\_"33"\ a\_"42"\ a\_"54" + a\_"11"\ a\_"25"\ a\_"33"\ a\_"42"\ a\_"54" + a\_"13"\ a\_"21"\ a\_"35"\ a\_"42"\ a\_"54" - a\_"11"\ a\_"23"\ a\_"35"\ a\_"42"\ a\_"54" - a\_"15"\ a\_"22"\ a\_"31"\ a\_"43"\ a\_"54" + a\_"12"\ a\_"25"\ a\_"31"\ a\_"43"\ a\_"54" + a\_"15"\ a\_"21"\ a\_"32"\ a\_"43"\ a\_"54" - a\_"11"\ a\_"25"\ a\_"32"\ a\_"43"\ a\_"54" - a\_"12"\ a\_"21"\ a\_"35"\ a\_"43"\ a\_"54" + a\_"11"\ a\_"22"\ a\_"35"\ a\_"43"\ a\_"54" + a\_"13"\ a\_"22"\ a\_"31"\ a\_"45"\ a\_"54" - a\_"12"\ a\_"23"\ a\_"31"\ a\_"45"\ a\_"54" - a\_"13"\ a\_"21"\ a\_"32"\ a\_"45"\ a\_"54" + a\_"11"\ a\_"23"\ a\_"32"\ a\_"45"\ a\_"54" + a\_"12"\ a\_"21"\ a\_"33"\ a\_"45"\ a\_"54" - a\_"11"\ a\_"22"\ a\_"33"\ a\_"45"\ a\_"54" + a\_"14"\ a\_"23"\ a\_"32"\ a\_"41"\ a\_"55" - a\_"13"\ a\_"24"\ a\_"32"\ a\_"41"\ a\_"55" - a\_"14"\ a\_"22"\ a\_"33"\ a\_"41"\ a\_"55" + a\_"12"\ a\_"24"\ a\_"33"\ a\_"41"\ a\_"55" + a\_"13"\ a\_"22"\ a\_"34"\ a\_"41"\ a\_"55" - a\_"12"\ a\_"23"\ a\_"34"\ a\_"41"\ a\_"55" - a\_"14"\ a\_"23"\ a\_"31"\ a\_"42"\ a\_"55" + a\_"13"\ a\_"24"\ a\_"31"\ a\_"42"\ a\_"55" + a\_"14"\ a\_"21"\ a\_"33"\ a\_"42"\ a\_"55" - a\_"11"\ a\_"24"\ a\_"33"\ a\_"42"\ a\_"55" - a\_"13"\ a\_"21"\ a\_"34"\ a\_"42"\ a\_"55" + a\_"11"\ a\_"23"\ a\_"34"\ a\_"42"\ a\_"55" + a\_"14"\ a\_"22"\ a\_"31"\ a\_"43"\ a\_"55" - a\_"12"\ a\_"24"\ a\_"31"\ a\_"43"\ a\_"55" - a\_"14"\ a\_"21"\ a\_"32"\ a\_"43"\ a\_"55" + a\_"11"\ a\_"24"\ a\_"32"\ a\_"43"\ a\_"55" + a\_"12"\ a\_"21"\ a\_"34"\ a\_"43"\ a\_"55" - a\_"11"\ a\_"22"\ a\_"34"\ a\_"43"\ a\_"55" - a\_"13"\ a\_"22"\ a\_"31"\ a\_"44"\ a\_"55" + a\_"12"\ a\_"23"\ a\_"31"\ a\_"44"\ a\_"55" + a\_"13"\ a\_"21"\ a\_"32"\ a\_"44"\ a\_"55" - a\_"11"\ a\_"23"\ a\_"32"\ a\_"44"\ a\_"55" - a\_"12"\ a\_"21"\ a\_"33"\ a\_"44"\ a\_"55" + a\_"11"\ a\_"22"\ a\_"33"\ a\_"44"\ a\_"55"\)], "Output"] }, Open ]] }, Open ]] }, FrontEndVersion->"5.1 for Microsoft Windows", ScreenRectangle->{{0, 800}, {0, 527}}, CellGrouping->Manual, WindowSize->{783, 500}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, PrintingCopies->1, PrintingPageRange->{Automatic, Automatic}, ShowSelection->True ] (******************************************************************* Cached data follows. If you edit this Notebook file directly, not using Mathematica, you must remove the line containing CacheID at the top of the file. The cache data will then be recreated when you save this file from within Mathematica. *******************************************************************) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[1776, 53, 56, 0, 30, "Subsubtitle"], Cell[1835, 55, 942, 16, 399, "Input"], Cell[CellGroupData[{ Cell[2802, 75, 132, 3, 61, "Input"], Cell[2937, 80, 1822, 47, 91, "Print"], Cell[4762, 129, 1556, 42, 69, "Print"], Cell[6321, 173, 1604, 40, 69, "Print"], Cell[7928, 215, 1653, 44, 91, "Print"], Cell[9584, 261, 1834, 47, 91, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[11467, 314, 52, 0, 30, "Subsubtitle"], Cell[11522, 316, 710, 13, 321, "Input"], Cell[CellGroupData[{ Cell[12257, 333, 49, 1, 35, "Input"], Cell[12309, 336, 1228, 31, 69, "Print"], Cell[13540, 369, 1472, 39, 93, "Print"], Cell[15015, 410, 1518, 40, 93, "Print"], Cell[16536, 452, 1490, 39, 93, "Print"], Cell[18029, 493, 1159, 31, 63, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[19237, 530, 52, 0, 30, "Subsubtitle"], Cell[19292, 532, 93, 1, 35, "Input"], Cell[19388, 535, 118, 2, 61, "Input"], Cell[CellGroupData[{ Cell[19531, 541, 56, 1, 35, "Input"], Cell[19590, 544, 6384, 120, 1009, "Output"] }, Open ]] }, Open ]] } ] *) (******************************************************************* End of Mathematica Notebook file. *******************************************************************)