(************** Content-type: application/mathematica ************** CreatedBy='Mathematica 5.2' 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[ 64049, 2071]*) (*NotebookOutlinePosition[ 64736, 2095]*) (* CellTagsIndexPosition[ 64692, 2091]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell["Exercices de factorisation", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(Print["\"];\)\), "\[IndentingNewLine]", \(\(ex[1] = 32 a^2 - 2 b^4;\)\), "\[IndentingNewLine]", \(\(ex[2]\ = \ a^2 x^2 - b^2 x^2;\)\), "\[IndentingNewLine]", \(\(ex[3]\ = \ 4 x^2 - 16 a^2;\)\), "\[IndentingNewLine]", \(\(ex[4]\ = \ a^2 b^2 c^2 - m^2;\)\), "\[IndentingNewLine]", \(\(ex[5]\ = \ 50 x^4 - 2 y^2;\)\), "\[IndentingNewLine]", \(\(ex[6]\ = \ 256 x^2 - 64 a^4;\)\), "\[IndentingNewLine]", \(\(ex[7]\ = \ a^2 x^2 - 81 x^2;\)\), "\[IndentingNewLine]", \(\(ex[8]\ = \ x^4 y^2 - 121 y^2;\)\), "\[IndentingNewLine]", \(\(ex[9]\ = \ 3 a^2 x - 3 a\ x^3;\)\), "\[IndentingNewLine]", \(\(ex[10]\ = \ 150 a^6 b^2 - 24 a^2 b^2;\)\), "\[IndentingNewLine]", \(\(ex[11]\ = \ 37 a^5 - 333 a^3 x;\)\), "\[IndentingNewLine]", \(\(ex[12]\ = \ x^4 - 81;\)\), "\[IndentingNewLine]", \(\(ex[13]\ = \ 81 x^4 - 625 a^4;\)\), "\[IndentingNewLine]", \(\(ex[14]\ = \ 32 x^4 - 2 a^4;\)\), "\[IndentingNewLine]", \(\(ex[15]\ = \ 3 x^5 - 48 x\ y^8;\)\), "\[IndentingNewLine]", \(\(ex[16]\ = \ 3 a\ x^4 - 3 a\ y^4;\)\), "\[IndentingNewLine]", \(\(ex[17]\ = \ x^11 y^4 - x^5 y^10;\)\), "\[IndentingNewLine]", \(\(ex[18]\ = \ m^3 - n^3;\)\), "\[IndentingNewLine]", \(\(ex[19]\ = \ 6 x\ y^3 + 6 x;\)\), "\[IndentingNewLine]", \(\(ex[20]\ = \ 32 x^5 + 243 y^5;\)\), "\[IndentingNewLine]", \(\(ex[21]\ = \ 125 x^3 + 1;\)\), "\[IndentingNewLine]", \(\(ex[22]\ = \ 192 x^6 y^6 - 2187 z^6;\)\), "\[IndentingNewLine]", \(\(ex[23]\ = \ a^7 b - a\ b^7;\)\), "\[IndentingNewLine]", \(\(ex[24]\ = \ x^10 y - x\ y^10;\)\), "\[IndentingNewLine]", \(\(ex[25]\ = \ a^\((5 m)\) - 9 a^\((3 m)\) y^\((2 n)\);\)\), "\[IndentingNewLine]", \(\(ex[26]\ = \ 32 x^5 - 243;\)\), "\[IndentingNewLine]", \(\(ex[27]\ = \ 343 x^3 - 512 b^6;\)\), "\[IndentingNewLine]", \(\(ex[28]\ = \ 64 x^6 - 1;\)\), "\[IndentingNewLine]", \(\(ex[29]\ = \ 729 a^3 - 64;\)\), "\[IndentingNewLine]", \(\(ex[30]\ = \((a - b)\)^2 - c^2;\)\), "\[IndentingNewLine]", \(\(ex[ 31]\ = \((a + b)\)^2 - \((x - y)\)^2;\)\), "\[IndentingNewLine]", \(\(ex[ 32]\ = \((5 a + 2 b)\)^2 - \((2 b - 5 a)\)^2;\)\), "\[IndentingNewLine]", \(\(ex[ 33]\ = \((x + a)\)^2 - \((3 x - 2 a)\)^2;\)\), "\[IndentingNewLine]", \(\(ex[ 34]\ = \((4 x - a)\)^2 - \((4 a - x)\)^2;\)\), "\[IndentingNewLine]", \(\(ex[ 35]\ = \((a + b + c)\)^2 - \((a - 2 b - c)\)^2;\)\), "\[IndentingNewLine]", \(\(ex[ 36]\ = \((x + 1)\)^2 - \((x - 1)\)^2;\)\), "\[IndentingNewLine]", \(\(ex[ 37]\ = \((a + b)\)^3 - \((a - b)\)^3;\)\), "\[IndentingNewLine]", \(\(ex[38]\ = a^2 + 4 ab + b^2;\)\), "\[IndentingNewLine]", \(\(ex[39]\ = 9 a^2 - 12 ab + 4 b^2;\)\), "\[IndentingNewLine]", \(\(ex[40]\ = a^2 - a - 1/4;\)\), "\[IndentingNewLine]", \(\(ex[41]\ = x^4 + 2 x^2 + 1;\)\), "\[IndentingNewLine]", \(\(ex[42]\ = x^6 + 6 x^3 + 9;\)\), "\[IndentingNewLine]", \(\(ex[43]\ = a\ b^2 - 2 abc + a\ c^2;\)\), "\[IndentingNewLine]", \(\(ex[44]\ = x^2/16 - 3 x\ y/2 + 9 y^2;\)\), "\[IndentingNewLine]", \(\(ex[45]\ = 4 x^2 + x\ y\ + \ y^2/16;\)\), "\[IndentingNewLine]", \(\(ex[46]\ = 9 a^4 b^2 - 6 a^2 b\ c + c^2;\)\), "\[IndentingNewLine]", \(\(ex[47]\ = 24 a^6 b\ c^3 + 54 a^4 b^3 c^3 - 72 a^5 b^2 c^3;\)\), "\[IndentingNewLine]", \(\(ex[48]\ = 49 x^2 y^8 + 25 a^6 b^4 - 70 a^3 b^2 x\ y^4;\)\), "\[IndentingNewLine]", \(\(ex[49]\ = 50 a^6 b^2 c^2 + 72 a^2 b^8 c^2;\)\), "\[IndentingNewLine]", \(\(ex[50]\ = 4 a^7 x/3 + 8 a^4 x^5 + 12 a\ x^9;\)\), "\[IndentingNewLine]", \(\(ex[51]\ = 144 x^5 y + 324 x^3 y^3 + 432 x^4 y^2;\)\), "\[IndentingNewLine]", \(\(ex[52]\ = 270 x^9 y^3 + 750 x^3 y^7 - 900 x^6 y^5;\)\), "\[IndentingNewLine]", \(\(ex[53]\ = 48 a^2 x^4 y + 9 y^2 + 64 a^4 x^8;\)\), "\[IndentingNewLine]", \(\(ex[54]\ = 175 a^2 x^\((2 m)\) + 280 a^2 x^m\ y^n + 112 a^2 y^\((2 n)\);\)\), "\[IndentingNewLine]", \(\(ex[55]\ = a^3 - 6 a^2 b + 12 a\ b^2 - 8 b^3;\)\), "\[IndentingNewLine]", \(\(ex[56]\ = x^3 + 9 x^2 + 27 x + 27;\)\), "\[IndentingNewLine]", \(\(ex[57]\ = 250 x^6 y^9 + 150 x^4 y^7 z^2 + 30 x^2 y^5 z^4 + 2 y^3 z^6;\)\), "\[IndentingNewLine]", \(\(ex[58]\ = a^2 + b^2 + c^2 - 2 a\ b - 2 a\ c + 2\ b\ c;\)\), "\[IndentingNewLine]", \(\(ex[59]\ = x^2 + y^2 - 2 x\ y + 2 x - 2 y + 1;\)\), "\[IndentingNewLine]", \(\(ex[60]\ = x^8 - 2 x^6 - 2 x^5 + x^4 + 2 x^3 + x^2;\)\), "\[IndentingNewLine]", \(\(ex[61]\ = x^4 + 2 x^3 + 2 x^2 + 2 x + 1;\)\), "\[IndentingNewLine]", \(\(ex[62]\ = a^2 - 2 a\ b + b^2 - 1;\)\), "\[IndentingNewLine]", \(\(ex[63]\ = a^2 - y^2 - 2 x\ y - x^2;\)\), "\[IndentingNewLine]", \(\(ex[64]\ = a^2 - b^2 + 2 b\ c - c^2;\)\), "\[IndentingNewLine]", \(\(ex[65]\ = x^2 - 2 x - y^2 + 1;\)\), "\[IndentingNewLine]", \(\(ex[66]\ = c\ y + y\ + \ c\ + 1;\)\), "\[IndentingNewLine]", \(\(ex[67]\ = 4 x^2 + 2 x - 9 y^2 - 3 y;\)\), "\[IndentingNewLine]", \(\(ex[68]\ = c^2 + d - d^2 - c;\)\), "\[IndentingNewLine]", \(\(ex[69]\ = b^2 y - b^2 + a^2 y - a^2;\)\[IndentingNewLine]\[IndentingNewLine]\[IndentingNewLine]\ \[IndentingNewLine]\), "\[IndentingNewLine]", \(Do[Print[i, "\<) \>", ex[i]], {i, 69}]\)}], "Input", CellOpen->False], Cell[BoxData[ \(TraditionalForm\`"Factoriser si possible"\)], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(1\[InvisibleSpace]") "\[InvisibleSpace]\(32\ a\^2 - 2\ b\^4\)\), SequenceForm[ 1, ") ", Plus[ Times[ 32, Power[ a, 2]], Times[ -2, Power[ b, 4]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(2\[InvisibleSpace]") "\[InvisibleSpace]\(a\^2\ x\^2 \ - b\^2\ x\^2\)\), SequenceForm[ 2, ") ", Plus[ Times[ Power[ a, 2], Power[ x, 2]], Times[ -1, Power[ b, 2], Power[ x, 2]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(3\[InvisibleSpace]") "\[InvisibleSpace]\(4\ x\^2 - 16\ a\^2\)\), SequenceForm[ 3, ") ", Plus[ Times[ -16, Power[ a, 2]], Times[ 4, Power[ x, 2]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(4\[InvisibleSpace]") "\[InvisibleSpace]\(a\^2\ b\^2\ \ c\^2 - m\^2\)\), SequenceForm[ 4, ") ", Plus[ Times[ Power[ a, 2], Power[ b, 2], Power[ c, 2]], Times[ -1, Power[ m, 2]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(5\[InvisibleSpace]") "\[InvisibleSpace]\(50\ x\^4 - 2\ y\^2\)\), SequenceForm[ 5, ") ", Plus[ Times[ 50, Power[ x, 4]], Times[ -2, Power[ y, 2]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(6\[InvisibleSpace]") "\[InvisibleSpace]\(256\ x\^2 \ - 64\ a\^4\)\), SequenceForm[ 6, ") ", Plus[ Times[ -64, Power[ a, 4]], Times[ 256, Power[ x, 2]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(7\[InvisibleSpace]") "\[InvisibleSpace]\(a\^2\ x\^2 \ - 81\ x\^2\)\), SequenceForm[ 7, ") ", Plus[ Times[ -81, Power[ x, 2]], Times[ Power[ a, 2], Power[ x, 2]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(8\[InvisibleSpace]") "\[InvisibleSpace]\(x\^4\ y\^2 \ - 121\ y\^2\)\), SequenceForm[ 8, ") ", Plus[ Times[ -121, Power[ y, 2]], Times[ Power[ x, 4], Power[ y, 2]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(9\[InvisibleSpace]") "\[InvisibleSpace]\(3\ a\^2\ x \ - 3\ a\ x\^3\)\), SequenceForm[ 9, ") ", Plus[ Times[ 3, Power[ a, 2], x], Times[ -3, a, Power[ x, 3]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(10\[InvisibleSpace]") "\[InvisibleSpace]\(150\ a\^6\ \ b\^2 - 24\ a\^2\ b\^2\)\), SequenceForm[ 10, ") ", Plus[ Times[ -24, Power[ a, 2], Power[ b, 2]], Times[ 150, Power[ a, 6], Power[ b, 2]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(11\[InvisibleSpace]") "\[InvisibleSpace]\(37\ a\^5 \ - 333\ a\^3\ x\)\), SequenceForm[ 11, ") ", Plus[ Times[ 37, Power[ a, 5]], Times[ -333, Power[ a, 3], x]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(12\[InvisibleSpace]") "\[InvisibleSpace]\(x\^4 - 81\)\), SequenceForm[ 12, ") ", Plus[ -81, Power[ x, 4]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(13\[InvisibleSpace]") "\[InvisibleSpace]\(81\ x\^4 \ - 625\ a\^4\)\), SequenceForm[ 13, ") ", Plus[ Times[ -625, Power[ a, 4]], Times[ 81, Power[ x, 4]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(14\[InvisibleSpace]") "\[InvisibleSpace]\(32\ x\^4 \ - 2\ a\^4\)\), SequenceForm[ 14, ") ", Plus[ Times[ -2, Power[ a, 4]], Times[ 32, Power[ x, 4]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(15\[InvisibleSpace]") "\[InvisibleSpace]\(3\ x\^5 - 48\ x\ y\^8\)\), SequenceForm[ 15, ") ", Plus[ Times[ 3, Power[ x, 5]], Times[ -48, x, Power[ y, 8]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(16\[InvisibleSpace]") "\[InvisibleSpace]\(3\ a\ \ x\^4 - 3\ a\ y\^4\)\), SequenceForm[ 16, ") ", Plus[ Times[ 3, a, Power[ x, 4]], Times[ -3, a, Power[ y, 4]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(17\[InvisibleSpace]") "\[InvisibleSpace]\(x\^11\ \ y\^4 - x\^5\ y\^10\)\), SequenceForm[ 17, ") ", Plus[ Times[ Power[ x, 11], Power[ y, 4]], Times[ -1, Power[ x, 5], Power[ y, 10]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(18\[InvisibleSpace]") "\[InvisibleSpace]\(m\^3 - n\^3\)\), SequenceForm[ 18, ") ", Plus[ Power[ m, 3], Times[ -1, Power[ n, 3]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(19\[InvisibleSpace]") "\[InvisibleSpace]\(6\ x\ \ y\^3 + 6\ x\)\), SequenceForm[ 19, ") ", Plus[ Times[ 6, x], Times[ 6, x, Power[ y, 3]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(20\[InvisibleSpace]") "\[InvisibleSpace]\(32\ x\^5 \ + 243\ y\^5\)\), SequenceForm[ 20, ") ", Plus[ Times[ 32, Power[ x, 5]], Times[ 243, Power[ y, 5]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(21\[InvisibleSpace]") "\[InvisibleSpace]\(125\ x\^3 \ + 1\)\), SequenceForm[ 21, ") ", Plus[ 1, Times[ 125, Power[ x, 3]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(22\[InvisibleSpace]") "\[InvisibleSpace]\(192\ x\^6\ \ y\^6 - 2187\ z\^6\)\), SequenceForm[ 22, ") ", Plus[ Times[ 192, Power[ x, 6], Power[ y, 6]], Times[ -2187, Power[ z, 6]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(23\[InvisibleSpace]") "\[InvisibleSpace]\(a\^7\ b - a\ b\^7\)\), SequenceForm[ 23, ") ", Plus[ Times[ Power[ a, 7], b], Times[ -1, a, Power[ b, 7]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(24\[InvisibleSpace]") "\[InvisibleSpace]\(x\^10\ y \ - x\ y\^10\)\), SequenceForm[ 24, ") ", Plus[ Times[ Power[ x, 10], y], Times[ -1, x, Power[ y, 10]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(25\[InvisibleSpace]") "\[InvisibleSpace]\(a\^\(5\ m\ \) - 9\ a\^\(3\ m\)\ y\^\(2\ n\)\)\), SequenceForm[ 25, ") ", Plus[ Power[ a, Times[ 5, m]], Times[ -9, Power[ a, Times[ 3, m]], Power[ y, Times[ 2, n]]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(26\[InvisibleSpace]") "\[InvisibleSpace]\(32\ x\^5 \ - 243\)\), SequenceForm[ 26, ") ", Plus[ -243, Times[ 32, Power[ x, 5]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(27\[InvisibleSpace]") "\[InvisibleSpace]\(343\ x\^3 \ - 512\ b\^6\)\), SequenceForm[ 27, ") ", Plus[ Times[ -512, Power[ b, 6]], Times[ 343, Power[ x, 3]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(28\[InvisibleSpace]") "\[InvisibleSpace]\(64\ x\^6 \ - 1\)\), SequenceForm[ 28, ") ", Plus[ -1, Times[ 64, Power[ x, 6]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(29\[InvisibleSpace]") "\[InvisibleSpace]\(729\ a\^3 \ - 64\)\), SequenceForm[ 29, ") ", Plus[ -64, Times[ 729, Power[ a, 3]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(30\[InvisibleSpace]") "\[InvisibleSpace]\(\((a - b)\ \)\^2 - c\^2\)\), SequenceForm[ 30, ") ", Plus[ Power[ Plus[ a, Times[ -1, b]], 2], Times[ -1, Power[ c, 2]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(31\[InvisibleSpace]") "\[InvisibleSpace]\(\((a + b)\ \)\^2 - \((x - y)\)\^2\)\), SequenceForm[ 31, ") ", Plus[ Power[ Plus[ a, b], 2], Times[ -1, Power[ Plus[ x, Times[ -1, y]], 2]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(32\[InvisibleSpace]") "\[InvisibleSpace]\(\((5\ a + \ 2\ b)\)\^2 - \((2\ b - 5\ a)\)\^2\)\), SequenceForm[ 32, ") ", Plus[ Times[ -1, Power[ Plus[ Times[ -5, a], Times[ 2, b]], 2]], Power[ Plus[ Times[ 5, a], Times[ 2, b]], 2]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(33\[InvisibleSpace]") "\[InvisibleSpace]\(\((a + x)\ \)\^2 - \((3\ x - 2\ a)\)\^2\)\), SequenceForm[ 33, ") ", Plus[ Power[ Plus[ a, x], 2], Times[ -1, Power[ Plus[ Times[ -2, a], Times[ 3, x]], 2]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(34\[InvisibleSpace]") "\[InvisibleSpace]\(\((4\ x - \ a)\)\^2 - \((4\ a - x)\)\^2\)\), SequenceForm[ 34, ") ", Plus[ Times[ -1, Power[ Plus[ Times[ 4, a], Times[ -1, x]], 2]], Power[ Plus[ Times[ -1, a], Times[ 4, x]], 2]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(35\[InvisibleSpace]") "\[InvisibleSpace]\(\((a + b \ + c)\)\^2 - \((a - 2\ b - c)\)\^2\)\), SequenceForm[ 35, ") ", Plus[ Times[ -1, Power[ Plus[ a, Times[ -2, b], Times[ -1, c]], 2]], Power[ Plus[ a, b, c], 2]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(36\[InvisibleSpace]") "\[InvisibleSpace]\(\((x + 1)\ \)\^2 - \((x - 1)\)\^2\)\), SequenceForm[ 36, ") ", Plus[ Times[ -1, Power[ Plus[ -1, x], 2]], Power[ Plus[ 1, x], 2]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(37\[InvisibleSpace]") "\[InvisibleSpace]\(\((a + b)\ \)\^3 - \((a - b)\)\^3\)\), SequenceForm[ 37, ") ", Plus[ Times[ -1, Power[ Plus[ a, Times[ -1, b]], 3]], Power[ Plus[ a, b], 3]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(38\[InvisibleSpace]") "\[InvisibleSpace]\(a\^2 + b\^2 + 4\ ab\)\), SequenceForm[ 38, ") ", Plus[ Power[ a, 2], Times[ 4, ab], Power[ b, 2]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(39\[InvisibleSpace]") "\[InvisibleSpace]\(9\ a\^2 + 4\ b\^2 - 12\ ab\)\), SequenceForm[ 39, ") ", Plus[ Times[ 9, Power[ a, 2]], Times[ -12, ab], Times[ 4, Power[ b, 2]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(40\[InvisibleSpace]") "\[InvisibleSpace]\(a\^2 - a - 1\/4\)\), SequenceForm[ 40, ") ", Plus[ Rational[ -1, 4], Times[ -1, a], Power[ a, 2]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(41\[InvisibleSpace]") "\[InvisibleSpace]\(x\^4 + 2\ x\^2 + 1\)\), SequenceForm[ 41, ") ", Plus[ 1, Times[ 2, Power[ x, 2]], Power[ x, 4]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(42\[InvisibleSpace]") "\[InvisibleSpace]\(x\^6 + 6\ x\^3 + 9\)\), SequenceForm[ 42, ") ", Plus[ 9, Times[ 6, Power[ x, 3]], Power[ x, 6]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(43\[InvisibleSpace]") "\[InvisibleSpace]\(a\ b\^2 + a\ c\^2 - 2\ abc\)\), SequenceForm[ 43, ") ", Plus[ Times[ -2, abc], Times[ a, Power[ b, 2]], Times[ a, Power[ c, 2]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(44\[InvisibleSpace]") "\[InvisibleSpace]\(x\^2\/16 \ - \(3\ y\ x\)\/2 + 9\ y\^2\)\), SequenceForm[ 44, ") ", Plus[ Times[ Rational[ 1, 16], Power[ x, 2]], Times[ Rational[ -3, 2], x, y], Times[ 9, Power[ y, 2]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(45\[InvisibleSpace]") "\[InvisibleSpace]\(4\ x\^2 + y\ x + y\^2\/16\)\), SequenceForm[ 45, ") ", Plus[ Times[ 4, Power[ x, 2]], Times[ x, y], Times[ Rational[ 1, 16], Power[ y, 2]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(46\[InvisibleSpace]") "\[InvisibleSpace]\(9\ b\^2\ \ a\^4 - 6\ b\ c\ a\^2 + c\^2\)\), SequenceForm[ 46, ") ", Plus[ Times[ 9, Power[ a, 4], Power[ b, 2]], Times[ -6, Power[ a, 2], b, c], Power[ c, 2]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(47\[InvisibleSpace]") "\[InvisibleSpace]\(24\ b\ \ c\^3\ a\^6 - 72\ b\^2\ c\^3\ a\^5 + 54\ b\^3\ c\^3\ a\^4\)\), SequenceForm[ 47, ") ", Plus[ Times[ 24, Power[ a, 6], b, Power[ c, 3]], Times[ -72, Power[ a, 5], Power[ b, 2], Power[ c, 3]], Times[ 54, Power[ a, 4], Power[ b, 3], Power[ c, 3]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(48\[InvisibleSpace]") "\[InvisibleSpace]\(49\ x\^2\ \ y\^8 - 70\ a\^3\ b\^2\ x\ y\^4 + 25\ a\^6\ b\^4\)\), SequenceForm[ 48, ") ", Plus[ Times[ 25, Power[ a, 6], Power[ b, 4]], Times[ -70, Power[ a, 3], Power[ b, 2], x, Power[ y, 4]], Times[ 49, Power[ x, 2], Power[ y, 8]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(49\[InvisibleSpace]") "\[InvisibleSpace]\(72\ a\^2\ \ c\^2\ b\^8 + 50\ a\^6\ c\^2\ b\^2\)\), SequenceForm[ 49, ") ", Plus[ Times[ 50, Power[ a, 6], Power[ b, 2], Power[ c, 2]], Times[ 72, Power[ a, 2], Power[ b, 8], Power[ c, 2]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(50\[InvisibleSpace]") "\[InvisibleSpace]\(12\ a\ \ x\^9 + 8\ a\^4\ x\^5 + \(4\ a\^7\ x\)\/3\)\), SequenceForm[ 50, ") ", Plus[ Times[ Rational[ 4, 3], Power[ a, 7], x], Times[ 8, Power[ a, 4], Power[ x, 5]], Times[ 12, a, Power[ x, 9]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(51\[InvisibleSpace]") "\[InvisibleSpace]\(144\ y\ x\ \^5 + 432\ y\^2\ x\^4 + 324\ y\^3\ x\^3\)\), SequenceForm[ 51, ") ", Plus[ Times[ 144, Power[ x, 5], y], Times[ 432, Power[ x, 4], Power[ y, 2]], Times[ 324, Power[ x, 3], Power[ y, 3]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(52\[InvisibleSpace]") "\[InvisibleSpace]\(270\ y\^3\ \ x\^9 - 900\ y\^5\ x\^6 + 750\ y\^7\ x\^3\)\), SequenceForm[ 52, ") ", Plus[ Times[ 270, Power[ x, 9], Power[ y, 3]], Times[ -900, Power[ x, 6], Power[ y, 5]], Times[ 750, Power[ x, 3], Power[ y, 7]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(53\[InvisibleSpace]") "\[InvisibleSpace]\(64\ a\^4\ \ x\^8 + 48\ a\^2\ y\ x\^4 + 9\ y\^2\)\), SequenceForm[ 53, ") ", Plus[ Times[ 64, Power[ a, 4], Power[ x, 8]], Times[ 48, Power[ a, 2], Power[ x, 4], y], Times[ 9, Power[ y, 2]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(54\[InvisibleSpace]") "\[InvisibleSpace]\(280\ a\^2\ \ y\^n\ x\^m + 175\ a\^2\ x\^\(2\ m\) + 112\ a\^2\ y\^\(2\ n\)\)\), SequenceForm[ 54, ") ", Plus[ Times[ 175, Power[ a, 2], Power[ x, Times[ 2, m]]], Times[ 280, Power[ a, 2], Power[ x, m], Power[ y, n]], Times[ 112, Power[ a, 2], Power[ y, Times[ 2, n]]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(55\[InvisibleSpace]") "\[InvisibleSpace]\(a\^3 - 6\ b\ a\^2 + 12\ b\^2\ a - 8\ b\^3\)\), SequenceForm[ 55, ") ", Plus[ Power[ a, 3], Times[ -6, Power[ a, 2], b], Times[ 12, a, Power[ b, 2]], Times[ -8, Power[ b, 3]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(56\[InvisibleSpace]") "\[InvisibleSpace]\(x\^3 + 9\ x\^2 + 27\ x + 27\)\), SequenceForm[ 56, ") ", Plus[ 27, Times[ 27, x], Times[ 9, Power[ x, 2]], Power[ x, 3]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(57\[InvisibleSpace]") "\[InvisibleSpace]\(250\ x\^6\ \ y\^9 + 150\ x\^4\ z\^2\ y\^7 + 30\ x\^2\ z\^4\ y\^5 + 2\ z\^6\ y\^3\)\), SequenceForm[ 57, ") ", Plus[ Times[ 250, Power[ x, 6], Power[ y, 9]], Times[ 150, Power[ x, 4], Power[ y, 7], Power[ z, 2]], Times[ 30, Power[ x, 2], Power[ y, 5], Power[ z, 4]], Times[ 2, Power[ y, 3], Power[ z, 6]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(58\[InvisibleSpace]") "\[InvisibleSpace]\(a\^2 - 2\ b\ a - 2\ c\ a + b\^2 + c\^2 + 2\ b\ c\)\), SequenceForm[ 58, ") ", Plus[ Power[ a, 2], Times[ -2, a, b], Power[ b, 2], Times[ -2, a, c], Times[ 2, b, c], Power[ c, 2]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(59\[InvisibleSpace]") "\[InvisibleSpace]\(x\^2 - 2\ y\ x + 2\ x + y\^2 - 2\ y + 1\)\), SequenceForm[ 59, ") ", Plus[ 1, Times[ 2, x], Power[ x, 2], Times[ -2, y], Times[ -2, x, y], Power[ y, 2]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(60\[InvisibleSpace]") "\[InvisibleSpace]\(x\^8 - 2\ x\^6 - 2\ x\^5 + x\^4 + 2\ x\^3 + x\^2\)\), SequenceForm[ 60, ") ", Plus[ Power[ x, 2], Times[ 2, Power[ x, 3]], Power[ x, 4], Times[ -2, Power[ x, 5]], Times[ -2, Power[ x, 6]], Power[ x, 8]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(61\[InvisibleSpace]") "\[InvisibleSpace]\(x\^4 + 2\ x\^3 + 2\ x\^2 + 2\ x + 1\)\), SequenceForm[ 61, ") ", Plus[ 1, Times[ 2, x], Times[ 2, Power[ x, 2]], Times[ 2, Power[ x, 3]], Power[ x, 4]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(62\[InvisibleSpace]") "\[InvisibleSpace]\(a\^2 - 2\ b\ a + b\^2 - 1\)\), SequenceForm[ 62, ") ", Plus[ -1, Power[ a, 2], Times[ -2, a, b], Power[ b, 2]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(63\[InvisibleSpace]") "\[InvisibleSpace]\(a\^2 - x\^2 - y\^2 - 2\ x\ y\)\), SequenceForm[ 63, ") ", Plus[ Power[ a, 2], Times[ -1, Power[ x, 2]], Times[ -2, x, y], Times[ -1, Power[ y, 2]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(64\[InvisibleSpace]") "\[InvisibleSpace]\(a\^2 - b\^2 - c\^2 + 2\ b\ c\)\), SequenceForm[ 64, ") ", Plus[ Power[ a, 2], Times[ -1, Power[ b, 2]], Times[ 2, b, c], Times[ -1, Power[ c, 2]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(65\[InvisibleSpace]") "\[InvisibleSpace]\(x\^2 - 2\ x - y\^2 + 1\)\), SequenceForm[ 65, ") ", Plus[ 1, Times[ -2, x], Power[ x, 2], Times[ -1, Power[ y, 2]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(66\[InvisibleSpace]") "\[InvisibleSpace]\(y\ c + c + y + 1\)\), SequenceForm[ 66, ") ", Plus[ 1, c, y, Times[ c, y]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(67\[InvisibleSpace]") "\[InvisibleSpace]\(4\ x\^2 + 2\ x - 9\ y\^2 - 3\ y\)\), SequenceForm[ 67, ") ", Plus[ Times[ 2, x], Times[ 4, Power[ x, 2]], Times[ -3, y], Times[ -9, Power[ y, 2]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(68\[InvisibleSpace]") "\[InvisibleSpace]\(c\^2 - c - d\^2 + d\)\), SequenceForm[ 68, ") ", Plus[ Times[ -1, c], Power[ c, 2], d, Times[ -1, Power[ d, 2]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(69\[InvisibleSpace]") "\[InvisibleSpace]\(y\ a\^2 - a\^2 - b\^2 + b\^2\ y\)\), SequenceForm[ 69, ") ", Plus[ Times[ -1, Power[ a, 2]], Times[ -1, Power[ b, 2]], Times[ Power[ a, 2], y], Times[ Power[ b, 2], y]]], Editable->False], TraditionalForm]], "Print"] }, Open ]], Cell[CellGroupData[{ Cell["Solutions", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(Do[Print[i, "\<) \>", Factor[ex[i]]], {i, 69}]\)], "Input", CellOpen->False], Cell[BoxData[ FormBox[ InterpretationBox[\(1\[InvisibleSpace]") "\[InvisibleSpace]\(2\ \((4\ a \ - b\^2)\)\ \((b\^2 + 4\ a)\)\)\), SequenceForm[ 1, ") ", Times[ 2, Plus[ Times[ 4, a], Times[ -1, Power[ b, 2]]], Plus[ Times[ 4, a], Power[ b, 2]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(2\[InvisibleSpace]") "\[InvisibleSpace]\(\((a - b)\)\ \((a + b)\)\ x\^2\)\), SequenceForm[ 2, ") ", Times[ Plus[ a, Times[ -1, b]], Plus[ a, b], Power[ x, 2]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(3\[InvisibleSpace]") "\[InvisibleSpace]\(\(-4\)\ \ \((2\ a - x)\)\ \((2\ a + x)\)\)\), SequenceForm[ 3, ") ", Times[ -4, Plus[ Times[ 2, a], Times[ -1, x]], Plus[ Times[ 2, a], x]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(4\[InvisibleSpace]") "\[InvisibleSpace]\(\((a\ b\ c \ - m)\)\ \((a\ b\ c + m)\)\)\), SequenceForm[ 4, ") ", Times[ Plus[ Times[ a, b, c], Times[ -1, m]], Plus[ Times[ a, b, c], m]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(5\[InvisibleSpace]") "\[InvisibleSpace]\(2\ \((5\ x\ \^2 - y)\)\ \((5\ x\^2 + y)\)\)\), SequenceForm[ 5, ") ", Times[ 2, Plus[ Times[ 5, Power[ x, 2]], Times[ -1, y]], Plus[ Times[ 5, Power[ x, 2]], y]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(6\[InvisibleSpace]") "\[InvisibleSpace]\(\(-64\)\ \ \((a\^2 - 2\ x)\)\ \((a\^2 + 2\ x)\)\)\), SequenceForm[ 6, ") ", Times[ -64, Plus[ Power[ a, 2], Times[ -2, x]], Plus[ Power[ a, 2], Times[ 2, x]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(7\[InvisibleSpace]") "\[InvisibleSpace]\(\((a - 9)\)\ \((a + 9)\)\ x\^2\)\), SequenceForm[ 7, ") ", Times[ Plus[ -9, a], Plus[ 9, a], Power[ x, 2]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(8\[InvisibleSpace]") "\[InvisibleSpace]\(\((x\^2 - 11)\)\ \((x\^2 + 11)\)\ y\^2\)\), SequenceForm[ 8, ") ", Times[ Plus[ -11, Power[ x, 2]], Plus[ 11, Power[ x, 2]], Power[ y, 2]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(9\[InvisibleSpace]") "\[InvisibleSpace]\(3\ a\ x\ \ \((a - x\^2)\)\)\), SequenceForm[ 9, ") ", Times[ 3, a, x, Plus[ a, Times[ -1, Power[ x, 2]]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(10\[InvisibleSpace]") "\[InvisibleSpace]\(6\ a\^2\ \ \((5\ a\^2 - 2)\)\ \((5\ a\^2 + 2)\)\ b\^2\)\), SequenceForm[ 10, ") ", Times[ 6, Power[ a, 2], Plus[ -2, Times[ 5, Power[ a, 2]]], Plus[ 2, Times[ 5, Power[ a, 2]]], Power[ b, 2]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(11\[InvisibleSpace]") "\[InvisibleSpace]\(37\ a\^3\ \ \((a\^2 - 9\ x)\)\)\), SequenceForm[ 11, ") ", Times[ 37, Power[ a, 3], Plus[ Power[ a, 2], Times[ -9, x]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(12\[InvisibleSpace]") "\[InvisibleSpace]\(\((x - 3)\)\ \((x + 3)\)\ \((x\^2 + 9)\)\)\), SequenceForm[ 12, ") ", Times[ Plus[ -3, x], Plus[ 3, x], Plus[ 9, Power[ x, 2]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(13\[InvisibleSpace]") "\[InvisibleSpace]\(\(-\((5\ \ a - 3\ x)\)\)\ \((5\ a + 3\ x)\)\ \((25\ a\^2 + 9\ x\^2)\)\)\), SequenceForm[ 13, ") ", Times[ -1, Plus[ Times[ 5, a], Times[ -3, x]], Plus[ Times[ 5, a], Times[ 3, x]], Plus[ Times[ 25, Power[ a, 2]], Times[ 9, Power[ x, 2]]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(14\[InvisibleSpace]") "\[InvisibleSpace]\(\(-2\)\ \ \((a - 2\ x)\)\ \((a + 2\ x)\)\ \((a\^2 + 4\ x\^2)\)\)\), SequenceForm[ 14, ") ", Times[ -2, Plus[ a, Times[ -2, x]], Plus[ a, Times[ 2, x]], Plus[ Power[ a, 2], Times[ 4, Power[ x, 2]]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(15\[InvisibleSpace]") "\[InvisibleSpace]\(3\ x\ \ \((x - 2\ y\^2)\)\ \((2\ y\^2 + x)\)\ \((4\ y\^4 + x\^2)\)\)\), SequenceForm[ 15, ") ", Times[ 3, x, Plus[ x, Times[ -2, Power[ y, 2]]], Plus[ x, Times[ 2, Power[ y, 2]]], Plus[ Power[ x, 2], Times[ 4, Power[ y, 4]]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(16\[InvisibleSpace]") "\[InvisibleSpace]\(3\ a\ \ \((x - y)\)\ \((x + y)\)\ \((x\^2 + y\^2)\)\)\), SequenceForm[ 16, ") ", Times[ 3, a, Plus[ x, Times[ -1, y]], Plus[ x, y], Plus[ Power[ x, 2], Power[ y, 2]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(17\[InvisibleSpace]") "\[InvisibleSpace]\(x\^5\ \ \((x - y)\)\ y\^4\ \((x + y)\)\ \((x\^2 - y\ x + y\^2)\)\ \((x\^2 + y\ x + y\^2)\)\)\), SequenceForm[ 17, ") ", Times[ Power[ x, 5], Plus[ x, Times[ -1, y]], Power[ y, 4], Plus[ x, y], Plus[ Power[ x, 2], Times[ -1, x, y], Power[ y, 2]], Plus[ Power[ x, 2], Times[ x, y], Power[ y, 2]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(18\[InvisibleSpace]") "\[InvisibleSpace]\(\((m - n)\)\ \((m\^2 + n\ m + n\^2)\)\)\), SequenceForm[ 18, ") ", Times[ Plus[ m, Times[ -1, n]], Plus[ Power[ m, 2], Times[ m, n], Power[ n, 2]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(19\[InvisibleSpace]") "\[InvisibleSpace]\(6\ x\ \ \((y + 1)\)\ \((y\^2 - y + 1)\)\)\), SequenceForm[ 19, ") ", Times[ 6, x, Plus[ 1, y], Plus[ 1, Times[ -1, y], Power[ y, 2]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(20\[InvisibleSpace]") "\[InvisibleSpace]\(\((2\ x + 3\ y)\)\ \((16\ x\^4 - 24\ y\ x\^3 + 36\ y\^2\ x\^2 - 54\ y\^3\ x + 81\ y\^4)\)\)\), SequenceForm[ 20, ") ", Times[ Plus[ Times[ 2, x], Times[ 3, y]], Plus[ Times[ 16, Power[ x, 4]], Times[ -24, Power[ x, 3], y], Times[ 36, Power[ x, 2], Power[ y, 2]], Times[ -54, x, Power[ y, 3]], Times[ 81, Power[ y, 4]]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(21\[InvisibleSpace]") "\[InvisibleSpace]\(\((5\ x + 1)\)\ \((25\ x\^2 - 5\ x + 1)\)\)\), SequenceForm[ 21, ") ", Times[ Plus[ 1, Times[ 5, x]], Plus[ 1, Times[ -5, x], Times[ 25, Power[ x, 2]]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(22\[InvisibleSpace]") "\[InvisibleSpace]\(3\ \((2\ \ x\ y - 3\ z)\)\ \((2\ x\ y + 3\ z)\)\ \((4\ x\^2\ y\^2 - 6\ x\ z\ y + 9\ z\^2)\)\ \((4\ x\^2\ y\^2 + 6\ x\ z\ y + 9\ z\^2)\)\)\), SequenceForm[ 22, ") ", Times[ 3, Plus[ Times[ 2, x, y], Times[ -3, z]], Plus[ Times[ 2, x, y], Times[ 3, z]], Plus[ Times[ 4, Power[ x, 2], Power[ y, 2]], Times[ -6, x, y, z], Times[ 9, Power[ z, 2]]], Plus[ Times[ 4, Power[ x, 2], Power[ y, 2]], Times[ 6, x, y, z], Times[ 9, Power[ z, 2]]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(23\[InvisibleSpace]") "\[InvisibleSpace]\(a\ \((a - b)\)\ b\ \((a + b)\)\ \((a\^2 - b\ a + b\^2)\)\ \((a\^2 + b\ a + b\^2)\)\)\), SequenceForm[ 23, ") ", Times[ a, Plus[ a, Times[ -1, b]], b, Plus[ a, b], Plus[ Power[ a, 2], Times[ -1, a, b], Power[ b, 2]], Plus[ Power[ a, 2], Times[ a, b], Power[ b, 2]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(24\[InvisibleSpace]") "\[InvisibleSpace]\(x\ \((x - y)\)\ y\ \((x\^2 + y\ x + y\^2)\)\ \((x\^6 + y\^3\ x\^3 + y\^6)\)\)\), SequenceForm[ 24, ") ", Times[ x, Plus[ x, Times[ -1, y]], y, Plus[ Power[ x, 2], Times[ x, y], Power[ y, 2]], Plus[ Power[ x, 6], Times[ Power[ x, 3], Power[ y, 3]], Power[ y, 6]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(25\[InvisibleSpace]") "\[InvisibleSpace]\(a\^\(3\ m\ \)\ \((a\^m - 3\ y\^n)\)\ \((a\^m + 3\ y\^n)\)\)\), SequenceForm[ 25, ") ", Times[ Power[ a, Times[ 3, m]], Plus[ Power[ a, m], Times[ -3, Power[ y, n]]], Plus[ Power[ a, m], Times[ 3, Power[ y, n]]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(26\[InvisibleSpace]") "\[InvisibleSpace]\(\((2\ x - 3)\)\ \((16\ x\^4 + 24\ x\^3 + 36\ x\^2 + 54\ x + 81)\)\)\), SequenceForm[ 26, ") ", Times[ Plus[ -3, Times[ 2, x]], Plus[ 81, Times[ 54, x], Times[ 36, Power[ x, 2]], Times[ 24, Power[ x, 3]], Times[ 16, Power[ x, 4]]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(27\[InvisibleSpace]") "\[InvisibleSpace]\(\(-\((8\ \ b\^2 - 7\ x)\)\)\ \((64\ b\^4 + 56\ x\ b\^2 + 49\ x\^2)\)\)\), SequenceForm[ 27, ") ", Times[ -1, Plus[ Times[ 8, Power[ b, 2]], Times[ -7, x]], Plus[ Times[ 64, Power[ b, 4]], Times[ 56, Power[ b, 2], x], Times[ 49, Power[ x, 2]]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(28\[InvisibleSpace]") "\[InvisibleSpace]\(\((2\ x - 1)\)\ \((2\ x + 1)\)\ \((4\ x\^2 - 2\ x + 1)\)\ \((4\ x\^2 + 2\ x + 1)\)\)\), SequenceForm[ 28, ") ", Times[ Plus[ -1, Times[ 2, x]], Plus[ 1, Times[ 2, x]], Plus[ 1, Times[ -2, x], Times[ 4, Power[ x, 2]]], Plus[ 1, Times[ 2, x], Times[ 4, Power[ x, 2]]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(29\[InvisibleSpace]") "\[InvisibleSpace]\(\((9\ a - 4)\)\ \((81\ a\^2 + 36\ a + 16)\)\)\), SequenceForm[ 29, ") ", Times[ Plus[ -4, Times[ 9, a]], Plus[ 16, Times[ 36, a], Times[ 81, Power[ a, 2]]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(30\[InvisibleSpace]") "\[InvisibleSpace]\(\((a - b - c)\)\ \((a - b + c)\)\)\), SequenceForm[ 30, ") ", Times[ Plus[ a, Times[ -1, b], Times[ -1, c]], Plus[ a, Times[ -1, b], c]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(31\[InvisibleSpace]") "\[InvisibleSpace]\(\((a + b + x - y)\)\ \((a + b - x + y)\)\)\), SequenceForm[ 31, ") ", Times[ Plus[ a, b, x, Times[ -1, y]], Plus[ a, b, Times[ -1, x], y]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(32\[InvisibleSpace]") "\[InvisibleSpace]\(40\ a\ \ b\)\), SequenceForm[ 32, ") ", Times[ 40, a, b]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(33\[InvisibleSpace]") "\[InvisibleSpace]\(\(-\((a - 4\ x)\)\)\ \((3\ a - 2\ x)\)\)\), SequenceForm[ 33, ") ", Times[ -1, Plus[ a, Times[ -4, x]], Plus[ Times[ 3, a], Times[ -2, x]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(34\[InvisibleSpace]") "\[InvisibleSpace]\(\(-15\)\ \ \((a - x)\)\ \((a + x)\)\)\), SequenceForm[ 34, ") ", Times[ -15, Plus[ a, Times[ -1, x]], Plus[ a, x]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(35\[InvisibleSpace]") "\[InvisibleSpace]\(\((2\ a - b)\)\ \((3\ b + 2\ c)\)\)\), SequenceForm[ 35, ") ", Times[ Plus[ Times[ 2, a], Times[ -1, b]], Plus[ Times[ 3, b], Times[ 2, c]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(36\[InvisibleSpace]") "\[InvisibleSpace]\(4\ x\)\), SequenceForm[ 36, ") ", Times[ 4, x]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(37\[InvisibleSpace]") "\[InvisibleSpace]\(2\ b\ \ \((3\ a\^2 + b\^2)\)\)\), SequenceForm[ 37, ") ", Times[ 2, b, Plus[ Times[ 3, Power[ a, 2]], Power[ b, 2]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(38\[InvisibleSpace]") "\[InvisibleSpace]\(a\^2 + b\^2 + 4\ ab\)\), SequenceForm[ 38, ") ", Plus[ Power[ a, 2], Times[ 4, ab], Power[ b, 2]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(39\[InvisibleSpace]") "\[InvisibleSpace]\(9\ a\^2 + 4\ b\^2 - 12\ ab\)\), SequenceForm[ 39, ") ", Plus[ Times[ 9, Power[ a, 2]], Times[ -12, ab], Times[ 4, Power[ b, 2]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(40\[InvisibleSpace]") "\[InvisibleSpace]\(1\/4\ \ \((4\ a\^2 - 4\ a - 1)\)\)\), SequenceForm[ 40, ") ", Times[ Rational[ 1, 4], Plus[ -1, Times[ -4, a], Times[ 4, Power[ a, 2]]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(41\[InvisibleSpace]") "\[InvisibleSpace]\((x\^2 + \ 1)\)\^2\), SequenceForm[ 41, ") ", Power[ Plus[ 1, Power[ x, 2]], 2]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(42\[InvisibleSpace]") "\[InvisibleSpace]\((x\^3 + \ 3)\)\^2\), SequenceForm[ 42, ") ", Power[ Plus[ 3, Power[ x, 3]], 2]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(43\[InvisibleSpace]") "\[InvisibleSpace]\(a\ b\^2 + a\ c\^2 - 2\ abc\)\), SequenceForm[ 43, ") ", Plus[ Times[ -2, abc], Times[ a, Power[ b, 2]], Times[ a, Power[ c, 2]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(44\[InvisibleSpace]") "\[InvisibleSpace]\(1\/16\ \ \((x - 12\ y)\)\^2\)\), SequenceForm[ 44, ") ", Times[ Rational[ 1, 16], Power[ Plus[ x, Times[ -12, y]], 2]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(45\[InvisibleSpace]") "\[InvisibleSpace]\(1\/16\ \ \((8\ x + y)\)\^2\)\), SequenceForm[ 45, ") ", Times[ Rational[ 1, 16], Power[ Plus[ Times[ 8, x], y], 2]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(46\[InvisibleSpace]") "\[InvisibleSpace]\((3\ a\^2\ \ b - c)\)\^2\), SequenceForm[ 46, ") ", Power[ Plus[ Times[ 3, Power[ a, 2], b], Times[ -1, c]], 2]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(47\[InvisibleSpace]") "\[InvisibleSpace]\(6\ a\^4\ \ \((2\ a - 3\ b)\)\^2\ b\ c\^3\)\), SequenceForm[ 47, ") ", Times[ 6, Power[ a, 4], Power[ Plus[ Times[ 2, a], Times[ -3, b]], 2], b, Power[ c, 3]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(48\[InvisibleSpace]") "\[InvisibleSpace]\((5\ a\^3\ \ b\^2 - 7\ x\ y\^4)\)\^2\), SequenceForm[ 48, ") ", Power[ Plus[ Times[ 5, Power[ a, 3], Power[ b, 2]], Times[ -7, x, Power[ y, 4]]], 2]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(49\[InvisibleSpace]") "\[InvisibleSpace]\(2\ a\^2\ \ b\^2\ \((36\ b\^6 + 25\ a\^4)\)\ c\^2\)\), SequenceForm[ 49, ") ", Times[ 2, Power[ a, 2], Power[ b, 2], Plus[ Times[ 25, Power[ a, 4]], Times[ 36, Power[ b, 6]]], Power[ c, 2]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(50\[InvisibleSpace]") "\[InvisibleSpace]\(4\/3\ a\ \ x\ \((3\ x\^4 + a\^3)\)\^2\)\), SequenceForm[ 50, ") ", Times[ Rational[ 4, 3], a, x, Power[ Plus[ Power[ a, 3], Times[ 3, Power[ x, 4]]], 2]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(51\[InvisibleSpace]") "\[InvisibleSpace]\(36\ x\^3\ \ y\ \((2\ x + 3\ y)\)\^2\)\), SequenceForm[ 51, ") ", Times[ 36, Power[ x, 3], y, Power[ Plus[ Times[ 2, x], Times[ 3, y]], 2]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(52\[InvisibleSpace]") "\[InvisibleSpace]\(30\ x\^3\ \ y\^3\ \((3\ x\^3 - 5\ y\^2)\)\^2\)\), SequenceForm[ 52, ") ", Times[ 30, Power[ x, 3], Power[ y, 3], Power[ Plus[ Times[ 3, Power[ x, 3]], Times[ -5, Power[ y, 2]]], 2]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(53\[InvisibleSpace]") "\[InvisibleSpace]\((8\ a\^2\ \ x\^4 + 3\ y)\)\^2\), SequenceForm[ 53, ") ", Power[ Plus[ Times[ 8, Power[ a, 2], Power[ x, 4]], Times[ 3, y]], 2]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(54\[InvisibleSpace]") "\[InvisibleSpace]\(7\ a\^2\ \ \((5\ x\^m + 4\ y\^n)\)\^2\)\), SequenceForm[ 54, ") ", Times[ 7, Power[ a, 2], Power[ Plus[ Times[ 5, Power[ x, m]], Times[ 4, Power[ y, n]]], 2]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(55\[InvisibleSpace]") "\[InvisibleSpace]\((a - 2\ \ b)\)\^3\), SequenceForm[ 55, ") ", Power[ Plus[ a, Times[ -2, b]], 3]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(56\[InvisibleSpace]") "\[InvisibleSpace]\((x + 3)\)\ \^3\), SequenceForm[ 56, ") ", Power[ Plus[ 3, x], 3]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(57\[InvisibleSpace]") "\[InvisibleSpace]\(2\ y\^3\ \ \((5\ x\^2\ y\^2 + z\^2)\)\^3\)\), SequenceForm[ 57, ") ", Times[ 2, Power[ y, 3], Power[ Plus[ Times[ 5, Power[ x, 2], Power[ y, 2]], Power[ z, 2]], 3]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(58\[InvisibleSpace]") "\[InvisibleSpace]\((a - b - \ c)\)\^2\), SequenceForm[ 58, ") ", Power[ Plus[ a, Times[ -1, b], Times[ -1, c]], 2]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(59\[InvisibleSpace]") "\[InvisibleSpace]\((x - y + \ 1)\)\^2\), SequenceForm[ 59, ") ", Power[ Plus[ 1, x, Times[ -1, y]], 2]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(60\[InvisibleSpace]") "\[InvisibleSpace]\(x\^2\ \ \((x\^3 - x - 1)\)\^2\)\), SequenceForm[ 60, ") ", Times[ Power[ x, 2], Power[ Plus[ -1, Times[ -1, x], Power[ x, 3]], 2]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(61\[InvisibleSpace]") "\[InvisibleSpace]\(\((x + 1)\ \)\^2\ \((x\^2 + 1)\)\)\), SequenceForm[ 61, ") ", Times[ Power[ Plus[ 1, x], 2], Plus[ 1, Power[ x, 2]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(62\[InvisibleSpace]") "\[InvisibleSpace]\(\((a - b - 1)\)\ \((a - b + 1)\)\)\), SequenceForm[ 62, ") ", Times[ Plus[ -1, a, Times[ -1, b]], Plus[ 1, a, Times[ -1, b]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(63\[InvisibleSpace]") "\[InvisibleSpace]\(\((a - x - y)\)\ \((a + x + y)\)\)\), SequenceForm[ 63, ") ", Times[ Plus[ a, Times[ -1, x], Times[ -1, y]], Plus[ a, x, y]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(64\[InvisibleSpace]") "\[InvisibleSpace]\(\((a + b - c)\)\ \((a - b + c)\)\)\), SequenceForm[ 64, ") ", Times[ Plus[ a, b, Times[ -1, c]], Plus[ a, Times[ -1, b], c]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(65\[InvisibleSpace]") "\[InvisibleSpace]\(\((x - y - 1)\)\ \((x + y - 1)\)\)\), SequenceForm[ 65, ") ", Times[ Plus[ -1, x, Times[ -1, y]], Plus[ -1, x, y]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(66\[InvisibleSpace]") "\[InvisibleSpace]\(\((c + 1)\)\ \((y + 1)\)\)\), SequenceForm[ 66, ") ", Times[ Plus[ 1, c], Plus[ 1, y]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(67\[InvisibleSpace]") "\[InvisibleSpace]\(\((2\ x - 3\ y)\)\ \((2\ x + 3\ y + 1)\)\)\), SequenceForm[ 67, ") ", Times[ Plus[ Times[ 2, x], Times[ -3, y]], Plus[ 1, Times[ 2, x], Times[ 3, y]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(68\[InvisibleSpace]") "\[InvisibleSpace]\(\((c - d)\)\ \((c + d - 1)\)\)\), SequenceForm[ 68, ") ", Times[ Plus[ c, Times[ -1, d]], Plus[ -1, c, d]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\(69\[InvisibleSpace]") "\[InvisibleSpace]\(\((a\^2 + b\^2)\)\ \((y - 1)\)\)\), SequenceForm[ 69, ") ", Times[ Plus[ Power[ a, 2], Power[ b, 2]], Plus[ -1, y]]], Editable->False], TraditionalForm]], "Print"] }, Open ]] }, Closed]] }, Open ]] }, FrontEndVersion->"5.2 for Macintosh", ScreenRectangle->{{4, 1280}, {0, 1002}}, CellGrouping->Manual, WindowSize->{798, 762}, WindowMargins->{{119, Automatic}, {Automatic, 0}}, CellLabelAutoDelete->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, 48, 0, 38, "Subsection"], Cell[CellGroupData[{ Cell[1849, 57, 5991, 113, 19, "Input", CellOpen->False], Cell[7843, 172, 74, 1, 25, "Print"], Cell[7920, 175, 342, 10, 27, "Print"], Cell[8265, 187, 390, 12, 27, "Print"], Cell[8658, 201, 342, 10, 27, "Print"], Cell[9003, 213, 390, 12, 27, "Print"], Cell[9396, 227, 342, 10, 27, "Print"], Cell[9741, 239, 335, 10, 27, "Print"], Cell[10079, 251, 360, 11, 27, "Print"], Cell[10442, 264, 362, 11, 27, "Print"], Cell[10807, 277, 341, 10, 27, "Print"], Cell[11151, 289, 407, 12, 27, "Print"], Cell[11561, 303, 343, 10, 27, "Print"], Cell[11907, 315, 259, 7, 27, "Print"], Cell[12169, 324, 337, 10, 27, "Print"], Cell[12509, 336, 333, 10, 27, "Print"], Cell[12845, 348, 350, 10, 27, "Print"], Cell[13198, 360, 343, 10, 27, "Print"], Cell[13544, 372, 396, 12, 27, "Print"], Cell[13943, 386, 310, 9, 27, "Print"], Cell[14256, 397, 307, 9, 27, "Print"], Cell[14566, 408, 336, 10, 27, "Print"], Cell[14905, 420, 278, 8, 27, "Print"], Cell[15186, 430, 376, 11, 27, "Print"], Cell[15565, 443, 345, 10, 27, "Print"], Cell[15913, 455, 338, 10, 27, "Print"], Cell[16254, 467, 440, 13, 27, "Print"], Cell[16697, 482, 281, 8, 27, "Print"], Cell[16981, 492, 339, 10, 27, "Print"], Cell[17323, 504, 277, 8, 27, "Print"], Cell[17603, 514, 281, 8, 27, "Print"], Cell[17887, 524, 363, 11, 27, "Print"], Cell[18253, 537, 402, 12, 27, "Print"], Cell[18658, 551, 500, 15, 27, "Print"], Cell[19161, 568, 438, 13, 27, "Print"], Cell[19602, 583, 495, 15, 27, "Print"], Cell[20100, 600, 450, 13, 27, "Print"], Cell[20553, 615, 372, 11, 27, "Print"], Cell[20928, 628, 402, 12, 27, "Print"], Cell[21333, 642, 319, 9, 27, "Print"], Cell[21655, 653, 380, 11, 27, "Print"], Cell[22038, 666, 319, 9, 41, "Print"], Cell[22360, 677, 319, 9, 27, "Print"], Cell[22682, 688, 319, 9, 27, "Print"], Cell[23004, 699, 380, 11, 27, "Print"], Cell[23387, 712, 438, 13, 45, "Print"], Cell[23828, 727, 406, 12, 45, "Print"], Cell[24237, 741, 412, 12, 27, "Print"], Cell[24652, 755, 581, 17, 27, "Print"], Cell[25236, 774, 546, 16, 27, "Print"], Cell[25785, 792, 474, 14, 27, "Print"], Cell[26262, 808, 478, 14, 45, "Print"], Cell[26743, 824, 481, 14, 27, "Print"], Cell[27227, 840, 511, 15, 27, "Print"], Cell[27741, 857, 473, 14, 27, "Print"], Cell[28217, 873, 615, 18, 27, "Print"], Cell[28835, 893, 454, 13, 27, "Print"], Cell[29292, 908, 357, 10, 27, "Print"], Cell[29652, 920, 676, 20, 27, "Print"], Cell[30331, 942, 439, 12, 27, "Print"], Cell[30773, 956, 400, 11, 27, "Print"], Cell[31176, 969, 508, 15, 27, "Print"], Cell[31687, 986, 416, 12, 27, "Print"], Cell[32106, 1000, 332, 9, 27, "Print"], Cell[32441, 1011, 412, 12, 27, "Print"], Cell[32856, 1025, 411, 12, 27, "Print"], Cell[33270, 1039, 352, 10, 27, "Print"], Cell[33625, 1051, 270, 7, 25, "Print"], Cell[33898, 1060, 411, 12, 27, "Print"], Cell[34312, 1074, 349, 10, 27, "Print"], Cell[34664, 1086, 463, 14, 27, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[35164, 1105, 25, 0, 33, "Text"], Cell[CellGroupData[{ Cell[35214, 1109, 98, 2, 19, "Input", CellOpen->False], Cell[35315, 1113, 433, 13, 28, "Print"], Cell[35751, 1128, 357, 10, 27, "Print"], Cell[36111, 1140, 379, 11, 25, "Print"], Cell[36493, 1153, 379, 11, 25, "Print"], Cell[36875, 1166, 435, 13, 28, "Print"], Cell[37313, 1181, 413, 12, 28, "Print"], Cell[37729, 1195, 331, 9, 27, "Print"], Cell[38063, 1206, 393, 11, 28, "Print"], Cell[38459, 1219, 319, 9, 28, "Print"], Cell[38781, 1230, 477, 14, 28, "Print"], Cell[39261, 1246, 345, 10, 28, "Print"], Cell[39609, 1258, 368, 10, 28, "Print"], Cell[39980, 1270, 571, 17, 28, "Print"], Cell[40554, 1289, 483, 14, 28, "Print"], Cell[41040, 1305, 545, 16, 28, "Print"], Cell[41588, 1323, 420, 12, 28, "Print"], Cell[42011, 1337, 664, 20, 28, "Print"], Cell[42678, 1359, 420, 12, 28, "Print"], Cell[43101, 1373, 359, 10, 28, "Print"], Cell[43463, 1385, 756, 22, 28, "Print"], Cell[44222, 1409, 427, 12, 28, "Print"], Cell[44652, 1423, 925, 27, 28, "Print"], Cell[45580, 1452, 625, 18, 28, "Print"], Cell[46208, 1472, 644, 19, 28, "Print"], Cell[46855, 1493, 529, 16, 27, "Print"], Cell[47387, 1511, 569, 16, 28, "Print"], Cell[47959, 1529, 582, 17, 28, "Print"], Cell[48544, 1548, 646, 19, 28, "Print"], Cell[49193, 1569, 431, 12, 28, "Print"], Cell[49627, 1583, 394, 11, 25, "Print"], Cell[50024, 1596, 381, 10, 25, "Print"], Cell[50408, 1608, 226, 6, 25, "Print"], Cell[50637, 1616, 399, 11, 25, "Print"], Cell[51039, 1629, 325, 9, 25, "Print"], Cell[51367, 1640, 413, 12, 25, "Print"], Cell[51783, 1654, 216, 5, 25, "Print"], Cell[52002, 1661, 346, 10, 28, "Print"], Cell[52351, 1673, 319, 9, 27, "Print"], Cell[52673, 1684, 380, 11, 27, "Print"], Cell[53056, 1697, 379, 11, 41, "Print"], Cell[53438, 1710, 276, 8, 28, "Print"], Cell[53717, 1720, 276, 8, 28, "Print"], Cell[53996, 1730, 380, 11, 27, "Print"], Cell[54379, 1743, 346, 10, 41, "Print"], Cell[54728, 1755, 343, 10, 41, "Print"], Cell[55074, 1767, 340, 10, 28, "Print"], Cell[55417, 1779, 415, 12, 27, "Print"], Cell[55835, 1793, 411, 12, 28, "Print"], Cell[56249, 1807, 474, 14, 28, "Print"], Cell[56726, 1823, 417, 12, 41, "Print"], Cell[57146, 1837, 383, 11, 27, "Print"], Cell[57532, 1850, 477, 14, 28, "Print"], Cell[58012, 1866, 373, 11, 28, "Print"], Cell[58388, 1879, 441, 13, 27, "Print"], Cell[58832, 1894, 277, 8, 27, "Print"], Cell[59112, 1904, 247, 7, 27, "Print"], Cell[59362, 1913, 447, 13, 28, "Print"], Cell[59812, 1928, 308, 9, 27, "Print"], Cell[60123, 1939, 281, 8, 27, "Print"], Cell[60407, 1949, 375, 11, 28, "Print"], Cell[60785, 1962, 342, 10, 28, "Print"], Cell[61130, 1974, 368, 10, 25, "Print"], Cell[61501, 1986, 367, 10, 25, "Print"], Cell[61871, 1998, 367, 10, 25, "Print"], Cell[62241, 2010, 342, 9, 25, "Print"], Cell[62586, 2021, 299, 8, 25, "Print"], Cell[62888, 2031, 423, 12, 25, "Print"], Cell[63314, 2045, 334, 9, 25, "Print"], Cell[63651, 2056, 358, 10, 28, "Print"] }, Open ]] }, Closed]] }, Open ]] } ] *) (******************************************************************* End of Mathematica Notebook file. *******************************************************************)