(************** Content-type: application/mathematica ************** CreatedBy='Mathematica 5.0' 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[ 185846, 4326]*) (*NotebookOutlinePosition[ 186529, 4350]*) (* CellTagsIndexPosition[ 186485, 4346]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell["Looking into the structure of a formula", "Subtitle"], Cell["\<\ Ivan Cnop icnop@vub.ac.be\ \>", "Subsubtitle"], Cell[CellGroupData[{ Cell["Introduction: ", "Section"], Cell[TextData[{ "Each ", StyleBox["Mathematica", FontSlant->"Italic"], " object is a mathematical expression and every detail of it can be \ modified. \nWe will use this fact to color the structure of formulas. \nWe \ will obtain a reversed palette structure: it will be obvious how palette \ buttons are nested to obtain a complcated expression." }], "Text"], Cell[CellGroupData[{ Cell[TextData[{ "Programming is given in ", StyleBox["Mathematica", FontSlant->"Italic"], " demo's :" }], "Subsection"], Cell[BoxData[ \(TransformBrackets[f_, expr_] := DisplayForm[FindBrackets[ToBoxes[expr], f]]\)], "Input", InitializationCell->True], Cell[BoxData[ \(FindBrackets[startexpr_, f_] := \n\t Fold[Function[{expr, \ location}, \n\t\tReplacePart[expr, f[expr\[LeftDoubleBracket]Sequence\ @@ \ location\[RightDoubleBracket], Length[location]], location]], startexpr, \n\t\tSort[ Position[startexpr, \ RowBox[{a___, "\<{\>"\ | \ "\<[\>"\ | \ "\<(\>", \ b__, \ "\<]\>"\ | \ "\<}\>"\ | \ "\<)\>", \ c___}]], \ Length[#1]\ > \ Length[#2] &]]\)], "Input", InitializationCell->True], Cell[BoxData[ \(ColorBrackets[expr_] := TransformBrackets[ StyleBox[ AdjustmentBox[#1, BoxMargins \[Rule] {{0, 0}, { .5, .5}}], \ Background \[Rule] Hue[Mod[N[#2/12], 1], .5]] &, expr]\)], "Input", InitializationCell->True], Cell["\<\ Remark: modifications to these programming lines are not \ recommended \ \>", "Text", FontWeight->"Bold"] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Structure of formulas ", "Section"], Cell[CellGroupData[{ Cell["Nesting", "Subsection"], Cell[BoxData[ \(Clear[f]\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(ColorBrackets[NestList[f, x, 7]]\)], "Input"], Cell[BoxData[ TagBox[ RowBox[{"{", RowBox[{"x", ",", StyleBox[ AdjustmentBox[\(f[x]\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 0.500008]], ",", StyleBox[ AdjustmentBox[ RowBox[{"f", "[", StyleBox[ AdjustmentBox[\(f[x]\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 1]], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 0.500008]], ",", StyleBox[ AdjustmentBox[ RowBox[{"f", "[", StyleBox[ AdjustmentBox[ RowBox[{"f", "[", StyleBox[ AdjustmentBox[\(f[x]\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 0.500008, 1]], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 1]], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 0.500008]], ",", StyleBox[ AdjustmentBox[ RowBox[{"f", "[", StyleBox[ AdjustmentBox[ RowBox[{"f", "[", StyleBox[ AdjustmentBox[ RowBox[{"f", "[", StyleBox[ AdjustmentBox[\(f[x]\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.500008, 1]], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 0.500008, 1]], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 1]], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 0.500008]], ",", StyleBox[ AdjustmentBox[ RowBox[{"f", "[", StyleBox[ AdjustmentBox[ RowBox[{"f", "[", StyleBox[ AdjustmentBox[ RowBox[{"f", "[", StyleBox[ AdjustmentBox[ RowBox[{"f", "[", StyleBox[ AdjustmentBox[\(f[x]\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.500008, 0.500008]], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.500008, 1]], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 0.500008, 1]], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 1]], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 0.500008]], ",", StyleBox[ AdjustmentBox[ RowBox[{"f", "[", StyleBox[ AdjustmentBox[ RowBox[{"f", "[", StyleBox[ AdjustmentBox[ RowBox[{"f", "[", StyleBox[ AdjustmentBox[ RowBox[{"f", "[", StyleBox[ AdjustmentBox[ RowBox[{"f", "[", StyleBox[ AdjustmentBox[\(f[x]\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 1, 0.500008]], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.500008, 0.500008]], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.500008, 1]], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 0.500008, 1]], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 1]], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 0.500008]], ",", StyleBox[ AdjustmentBox[ RowBox[{"f", "[", StyleBox[ AdjustmentBox[ RowBox[{"f", "[", StyleBox[ AdjustmentBox[ RowBox[{"f", "[", StyleBox[ AdjustmentBox[ RowBox[{"f", "[", StyleBox[ AdjustmentBox[ RowBox[{"f", "[", StyleBox[ AdjustmentBox[ RowBox[{"f", "[", StyleBox[ AdjustmentBox[\(f[x]\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 0.500008]], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 1, 0.500008]], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.500008, 0.500008]], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.500008, 1]], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 0.500008, 1]], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 1]], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 0.500008]]}], "}"}], DisplayForm]], "Output"] }, Closed]], Cell["Atoms are never colored:", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(ColorBrackets[2]\)], "Input"], Cell[BoxData[ TagBox["\<\"2\"\>", DisplayForm]], "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Powers and fractions", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ \(ColorBrackets[x\^2]\)], "Input"], Cell[BoxData[ TagBox[\(x\^2\), DisplayForm]], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ \(ColorBrackets[FullForm[x\^2]]\)], "Input"], Cell[BoxData[ TagBox[ TagBox[ StyleBox[ AdjustmentBox[\(Power[x, 2]\), BoxMargins->{{0, 0}, {0.5, 0.5}}], ShowSpecialCharacters->False, ShowStringCharacters->True, NumberMarks->True, Background->RGBColor[1, 1, 0.500008]], FullForm], DisplayForm]], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ \(ColorBrackets[Factor[\((1 + a\/2)\)\^6 - 1]] // TraditionalForm\)], "Input"], Cell[BoxData[ FormBox[ TagBox[ RowBox[{\(1\/64\), " ", "a", " ", StyleBox[ AdjustmentBox[\((4 + a)\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 1, 0.500008]], " ", StyleBox[ AdjustmentBox[\((4 + 2\ a + a\^2)\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 1, 0.500008]], " ", StyleBox[ AdjustmentBox[\((12 + 6\ a + a\^2)\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 1, 0.500008]]}], DisplayForm], TraditionalForm]], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ \(Expand[\((1 + \@b)\)\^6] // TraditionalForm\)], "Input"], Cell[BoxData[ \(TraditionalForm\`b\^3 + 6\ b\^\(5/2\) + 15\ b\^2 + 20\ b\^\(3/2\) + 15\ b + 6\ \@b + 1\)], "Output"] }, Closed]], Cell["A TraditionalForm expression is usually treated as an atom", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(ColorBrackets[%]\)], "Input"], Cell[BoxData[ TagBox[\(1 + 6\ \@b + 15\ b + 20\ b\^\(3/2\) + 15\ b\^2 + 6\ b\^\(5/2\) + b\^3\), DisplayForm]], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ \(ColorBrackets[\((1 + \@b)\)\^6]\)], "Input"], Cell[BoxData[ TagBox[ SuperscriptBox[ StyleBox[ AdjustmentBox[\((1 + \@b)\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.749996, 0.500008]], "6"], DisplayForm]], "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["The internal representation gives the full structure:", "Subsection"], Cell[CellGroupData[{ Cell["Internal representation", "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ \(ColorBrackets[TreeForm[Expand[\((1 + \@b)\)\^6]]]\)], "Input"], Cell[BoxData[ TagBox[ InterpretationBox[ StyleBox[ AdjustmentBox[ RowBox[{"\<\"Plus\"\>", "[", RowBox[{"1", ",", InterpretationBox[GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[ RowBox[{"\<\"Times\"\>", "[", RowBox[{"6", ",", GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[ RowBox[{"\<\"Power\"\>", "[", RowBox[{"b", ",", GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[\("Rational"[1, 2]\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.500008, 0.749996]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 0.500008]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.749996, 0.500008, 1]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}], ColumnForm[ {"|", "Times"[ 6, ColumnForm[ {"|", "Power"[ b, ColumnForm[ {"|", "Rational"[ 1, 2]}]]}]]}], Editable->False], ",", InterpretationBox[GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[\("Times"[15, b]\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.749996, 0.500008, 1]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}], ColumnForm[ {"|", "Times"[ 15, b]}], Editable->False], ",", InterpretationBox[GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[ RowBox[{"\<\"Times\"\>", "[", RowBox[{"20", ",", GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[ RowBox[{"\<\"Power\"\>", "[", RowBox[{"b", ",", GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[\("Rational"[3, 2]\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.500008, 0.749996]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 0.500008]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.749996, 0.500008, 1]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}], ColumnForm[ {"|", "Times"[ 20, ColumnForm[ {"|", "Power"[ b, ColumnForm[ {"|", "Rational"[ 3, 2]}]]}]]}], Editable->False], ",", InterpretationBox[GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[ RowBox[{"\<\"Times\"\>", "[", RowBox[{"15", ",", GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[\("Power"[b, 2]\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 0.500008]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.749996, 0.500008, 1]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}], ColumnForm[ {"|", "Times"[ 15, ColumnForm[ {"|", "Power"[ b, 2]}]]}], Editable->False], ",", InterpretationBox[GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[ RowBox[{"\<\"Times\"\>", "[", RowBox[{"6", ",", GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[ RowBox[{"\<\"Power\"\>", "[", RowBox[{"b", ",", GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[\("Rational"[5, 2]\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.500008, 0.749996]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 0.500008]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.749996, 0.500008, 1]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}], ColumnForm[ {"|", "Times"[ 6, ColumnForm[ {"|", "Power"[ b, ColumnForm[ {"|", "Rational"[ 5, 2]}]]}]]}], Editable->False], ",", InterpretationBox[GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[\("Power"[b, 3]\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.749996, 0.500008, 1]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}], ColumnForm[ {"|", "Power"[ b, 3]}], Editable->False]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.749996, 0.500008]], TreeForm[ Plus[ 1, Times[ 6, Power[ b, Rational[ 1, 2]]], Times[ 15, b], Times[ 20, Power[ b, Rational[ 3, 2]]], Times[ 15, Power[ b, 2]], Times[ 6, Power[ b, Rational[ 5, 2]]], Power[ b, 3]]], Editable->False], DisplayForm]], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Brackets inside powers are always colored:", "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ \(ColorBrackets[TraditionalForm[\((1 + \@\(1 + b\))\)\^6]]\)], "Input"], Cell[BoxData[ TagBox[ TagBox[ FormBox[ SuperscriptBox[ StyleBox[ AdjustmentBox[\((\@\(b + 1\) + 1)\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.749996, 1, 0.500008]], "6"], "TraditionalForm"], TraditionalForm, Editable->True], DisplayForm]], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ \(ColorBrackets[ TraditionalForm[\((\((1 + \@\(1 + b\))\)\^6 + 1)\)\^2]]\)], "Input"], Cell[BoxData[ TagBox[ TagBox[ FormBox[ SuperscriptBox[ StyleBox[ AdjustmentBox[ RowBox[{"(", RowBox[{ SuperscriptBox[ StyleBox[ AdjustmentBox[\((\@\(b + 1\) + 1)\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 0.500008, 1]], "6"], "+", "1"}], ")"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.749996, 1, 0.500008]], "2"], "TraditionalForm"], TraditionalForm, Editable->True], DisplayForm]], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ \(ColorBrackets[ TraditionalForm[\((\((1/\@\(1 + b\))\)\^5 + 1)\)\^2]]\)], "Input"], Cell[BoxData[ TagBox[ TagBox[ FormBox[ SuperscriptBox[ StyleBox[ AdjustmentBox[ RowBox[{"(", RowBox[{"1", "+", FractionBox["1", SuperscriptBox[ StyleBox[ AdjustmentBox[\((b + 1)\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.749996, 0.500008, 1]], \(5/ 2\)]]}], ")"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.749996, 1, 0.500008]], "2"], "TraditionalForm"], TraditionalForm, Editable->True], DisplayForm]], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ \(TraditionalForm[\((1/\((1 + \((1 + b)\)\^2)\)\^5 + 1)\)\^2]\)], "Input"], Cell[BoxData[ \(TraditionalForm\`\((1 + 1\/\((\((b + 1)\)\^2 + 1)\)\^5)\)\^2\)], \ "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ \(ColorBrackets[%]\)], "Input"], Cell[BoxData[ TagBox[ SuperscriptBox[ StyleBox[ AdjustmentBox[ RowBox[{"(", RowBox[{"1", "+", FractionBox["1", SuperscriptBox[ StyleBox[ AdjustmentBox[ RowBox[{"(", RowBox[{"1", "+", SuperscriptBox[ StyleBox[ AdjustmentBox[\((1 + b)\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.500008, 0.500008]], "2"]}], ")"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 0.749996, 1]], "5"]]}], ")"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.749996, 0.500008]], "2"], DisplayForm]], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ \(ColorBrackets[FullForm[\((1 + \@\(1 + b\))\)\^6]]\)], "Input"], Cell[BoxData[ TagBox[ TagBox[ StyleBox[ AdjustmentBox[ RowBox[{"Power", "[", RowBox[{ StyleBox[ AdjustmentBox[ RowBox[{"Plus", "[", RowBox[{"1", ",", StyleBox[ AdjustmentBox[ RowBox[{"Power", "[", RowBox[{ StyleBox[ AdjustmentBox[\(Plus[1, b]\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 1, 0.500008]], ",", StyleBox[ AdjustmentBox[\(Rational[1, 2]\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 1, 0.500008]]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.500008, 1]]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 1]], ",", "6"}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], ShowSpecialCharacters->False, ShowStringCharacters->True, NumberMarks->True, Background->RGBColor[1, 1, 0.500008]], FullForm], DisplayForm]], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ \(ColorBrackets[TreeForm[\((1 + \@\(1 + b\))\)\^6]]\)], "Input"], Cell[BoxData[ TagBox[ InterpretationBox[ StyleBox[ AdjustmentBox[ RowBox[{"\<\"Power\"\>", "[", RowBox[{ InterpretationBox[GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[ RowBox[{"\<\"Plus\"\>", "[", RowBox[{"1", ",", GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[ RowBox[{"\<\"Power\"\>", "[", RowBox[{GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[\("Plus"[1, b]\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.500008, 0.749996]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}], ",", GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[\("Rational"[1, 2]\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.500008, 0.749996]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 0.500008]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.749996, 0.500008, 1]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}], ColumnForm[ {"|", "Plus"[ 1, ColumnForm[ {"|", "Power"[ ColumnForm[ {"|", "Plus"[ 1, b]}], ColumnForm[ {"|", "Rational"[ 1, 2]}]]}]]}], Editable->False], ",", "6"}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.749996, 0.500008]], TreeForm[ Power[ Plus[ 1, Power[ Plus[ 1, b], Rational[ 1, 2]]], 6]], Editable->False], DisplayForm]], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ \(ColorBrackets[ TraditionalForm[\((x\^6 - 1)\)/\((1 + a)\)\^6]]\)], "Input"], Cell[BoxData[ TagBox[ TagBox[ FormBox[ FractionBox[\(x\^6 - 1\), SuperscriptBox[ StyleBox[ AdjustmentBox[\((a + 1)\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 0.500008]], "6"]], "TraditionalForm"], TraditionalForm, Editable->True], DisplayForm]], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ \(ColorBrackets[ TraditionalForm[\((x - 1)\)\^6/\((1 + a)\)\^6]]\)], "Input"], Cell[BoxData[ TagBox[ TagBox[ FormBox[ FractionBox[ SuperscriptBox[ StyleBox[ AdjustmentBox[\((x - 1)\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 0.500008]], "6"], SuperscriptBox[ StyleBox[ AdjustmentBox[\((a + 1)\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 0.500008]], "6"]], "TraditionalForm"], TraditionalForm, Editable->True], DisplayForm]], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ \(Factor[x\^6 - 1] // TraditionalForm\)], "Input"], Cell[BoxData[ \(TraditionalForm\`\((x - 1)\)\ \((x + 1)\)\ \((x\^2 - x + 1)\)\ \((x\^2 + x + 1)\)\)], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ \(ColorBrackets[%]\)], "Input"], Cell[BoxData[ TagBox[ RowBox[{ StyleBox[ AdjustmentBox[\((\(-1\) + x)\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 1, 0.500008]], " ", StyleBox[ AdjustmentBox[\((1 + x)\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 1, 0.500008]], " ", StyleBox[ AdjustmentBox[\((1 - x + x\^2)\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 1, 0.500008]], " ", StyleBox[ AdjustmentBox[\((1 + x + x\^2)\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 1, 0.500008]]}], DisplayForm]], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ \(ColorBrackets[FullForm[Factor[x\^6 - 1]]]\)], "Input"], Cell[BoxData[ TagBox[ TagBox[ StyleBox[ AdjustmentBox[ RowBox[{"Times", "[", RowBox[{ StyleBox[ AdjustmentBox[\(Plus[\(-1\), x]\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 1]], ",", StyleBox[ AdjustmentBox[\(Plus[1, x]\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 1]], ",", StyleBox[ AdjustmentBox[ RowBox[{"Plus", "[", RowBox[{"1", ",", StyleBox[ AdjustmentBox[\(Times[\(-1\), x]\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.500008, 1]], ",", StyleBox[ AdjustmentBox[\(Power[x, 2]\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.500008, 1]]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 1]], ",", StyleBox[ AdjustmentBox[ RowBox[{"Plus", "[", RowBox[{"1", ",", "x", ",", StyleBox[ AdjustmentBox[\(Power[x, 2]\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.500008, 1]]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 1]]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], ShowSpecialCharacters->False, ShowStringCharacters->True, NumberMarks->True, Background->RGBColor[1, 1, 0.500008]], FullForm], DisplayForm]], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ \(ColorBrackets[TreeForm[Factor[x\^6 - 1]]]\)], "Input"], Cell[BoxData[ TagBox[ InterpretationBox[ StyleBox[ AdjustmentBox[ RowBox[{"\<\"Times\"\>", "[", RowBox[{ InterpretationBox[GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[\("Plus"[\(-1\), x]\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.749996, 0.500008, 1]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}], ColumnForm[ {"|", "Plus"[ -1, x]}], Editable->False], ",", InterpretationBox[GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[\("Plus"[1, x]\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.749996, 0.500008, 1]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}], ColumnForm[ {"|", "Plus"[ 1, x]}], Editable->False], ",", InterpretationBox[GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[ RowBox[{"\<\"Plus\"\>", "[", RowBox[{"1", ",", GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[\("Times"[\(-1\), x]\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 0.500008]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}], ",", GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[\("Power"[x, 2]\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 0.500008]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.749996, 0.500008, 1]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}], ColumnForm[ {"|", "Plus"[ 1, ColumnForm[ {"|", "Times"[ -1, x]}], ColumnForm[ {"|", "Power"[ x, 2]}]]}], Editable->False], ",", InterpretationBox[GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[ RowBox[{"\<\"Plus\"\>", "[", RowBox[{"1", ",", "x", ",", GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[\("Power"[x, 2]\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 0.500008]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.749996, 0.500008, 1]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}], ColumnForm[ {"|", "Plus"[ 1, x, ColumnForm[ {"|", "Power"[ x, 2]}]]}], Editable->False]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.749996, 0.500008]], TreeForm[ Times[ Plus[ -1, x], Plus[ 1, x], Plus[ 1, Times[ -1, x], Power[ x, 2]], Plus[ 1, x, Power[ x, 2]]]], Editable->False], DisplayForm]], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ \(Nest[1/\((1 + #)\) &, x, 5]\)], "Input"], Cell[BoxData[ \(1\/\(1 + 1\/\(1 + 1\/\(1 + 1\/\(1 + 1\/\(1 + x\)\)\)\)\)\)], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ \(ColorBrackets[FullForm[%]]\)], "Input"], Cell[BoxData[ TagBox[ TagBox[ StyleBox[ AdjustmentBox[ RowBox[{"Power", "[", RowBox[{ StyleBox[ AdjustmentBox[ RowBox[{"Plus", "[", RowBox[{"1", ",", StyleBox[ AdjustmentBox[ RowBox[{"Power", "[", RowBox[{ StyleBox[ AdjustmentBox[ RowBox[{"Plus", "[", RowBox[{"1", ",", StyleBox[ AdjustmentBox[ RowBox[{"Power", "[", RowBox[{ StyleBox[ AdjustmentBox[ RowBox[{"Plus", "[", RowBox[{"1", ",", StyleBox[ AdjustmentBox[ RowBox[{"Power", "[", RowBox[{ StyleBox[ AdjustmentBox[ RowBox[{"Plus", "[", RowBox[{"1", ",", StyleBox[ AdjustmentBox[ RowBox[{"Power", "[", RowBox[{ StyleBox[ AdjustmentBox[\(Plus[1, x]\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 1, 0.500008]], ",", \(-1\)}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.500008, 1]]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 1]], ",", \(-1\)}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 1, 0.500008]]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.500008, 1]], ",", \(-1\)}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 1]]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 1, 0.500008]], ",", \(-1\)}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.500008, 1]]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 1]], ",", \(-1\)}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], ShowSpecialCharacters->False, ShowStringCharacters->True, NumberMarks->True, Background->RGBColor[1, 1, 0.500008]], FullForm], DisplayForm]], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ \(ColorBrackets[TreeForm[%]]\)], "Input"], Cell[BoxData[ TagBox[ InterpretationBox[ StyleBox[ AdjustmentBox[ RowBox[{"\<\"Power\"\>", "[", RowBox[{ InterpretationBox[GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[ RowBox[{"\<\"Plus\"\>", "[", RowBox[{"1", ",", GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[ RowBox[{"\<\"Power\"\>", "[", RowBox[{GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[ RowBox[{"\<\"Plus\"\>", "[", RowBox[{"1", ",", GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[ RowBox[{"\<\"Power\"\>", "[", RowBox[{GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[ RowBox[{"\<\"Plus\"\>", "[", RowBox[{"1", ",", GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[ RowBox[{"\<\"Power\"\>", "[", RowBox[{GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[ RowBox[{"\<\"Plus\"\>", "[", RowBox[{"1", ",", GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[ RowBox[{"\<\"Power\"\>", "[", RowBox[{GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[\("Plus"[1, x]\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 0.749996]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}], ",", \(-1\)}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.500008, 1]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.749996, 1, 0.500008]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}], ",", \(-1\)}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 0.500008, 1]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.749996, 0.500008]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}], ",", \(-1\)}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 1]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.500008, 0.749996]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}], ",", \(-1\)}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 0.500008]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.749996, 0.500008, 1]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}], ColumnForm[ {"|", "Plus"[ 1, ColumnForm[ {"|", "Power"[ ColumnForm[ {"|", "Plus"[ 1, ColumnForm[ {"|", "Power"[ ColumnForm[ {"|", "Plus"[ 1, ColumnForm[ {"|", "Power"[ ColumnForm[ {"|", "Plus"[ 1, ColumnForm[ {"|", "Power"[ ColumnForm[ {"|", "Plus"[ 1, x]}], -1]}]]}], -1]}]]}], \ -1]}]]}], -1]}]]}], Editable->False], ",", \(-1\)}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.749996, 0.500008]], TreeForm[ Power[ Plus[ 1, Power[ Plus[ 1, Power[ Plus[ 1, Power[ Plus[ 1, Power[ Plus[ 1, x], -1]], -1]], -1]], -1]], -1]], Editable->False], DisplayForm]], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ \(Nest[1 + \@# &, x, 5]\)], "Input"], Cell[BoxData[ \(1 + \@\(1 + \@\(1 + \@\(1 + \@\(1 + \@x\)\)\)\)\)], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ \(ColorBrackets[FullForm[%]]\)], "Input"], Cell[BoxData[ TagBox[ TagBox[ StyleBox[ AdjustmentBox[ RowBox[{"Plus", "[", RowBox[{"1", ",", StyleBox[ AdjustmentBox[ RowBox[{"Power", "[", RowBox[{ StyleBox[ AdjustmentBox[ RowBox[{"Plus", "[", RowBox[{"1", ",", StyleBox[ AdjustmentBox[ RowBox[{"Power", "[", RowBox[{ StyleBox[ AdjustmentBox[ RowBox[{"Plus", "[", RowBox[{"1", ",", StyleBox[ AdjustmentBox[ RowBox[{"Power", "[", RowBox[{ StyleBox[ AdjustmentBox[ RowBox[{"Plus", "[", RowBox[{"1", ",", StyleBox[ AdjustmentBox[ RowBox[{"Power", "[", RowBox[{ StyleBox[ AdjustmentBox[ RowBox[{"Plus", "[", RowBox[{"1", ",", StyleBox[ AdjustmentBox[ RowBox[{"Power", "[", RowBox[{"x", ",", StyleBox[ AdjustmentBox[\(Rational[1, 2]\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 1]]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 1, 0.500008]]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.500008, 1]], ",", StyleBox[ AdjustmentBox[\(Rational[1, 2]\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.500008, 1]]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 1]]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 1, 0.500008]], ",", StyleBox[ AdjustmentBox[\(Rational[1, 2]\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 1, 0.500008]]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.500008, 1]]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 1]], ",", StyleBox[ AdjustmentBox[\(Rational[1, 2]\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 1]]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 1, 0.500008]]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.500008, 1]], ",", StyleBox[ AdjustmentBox[\(Rational[1, 2]\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.500008, 1]]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 1]]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], ShowSpecialCharacters->False, ShowStringCharacters->True, NumberMarks->True, Background->RGBColor[1, 1, 0.500008]], FullForm], DisplayForm]], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ \(ColorBrackets[TreeForm[%%]]\)], "Input"], Cell[BoxData[ TagBox[ InterpretationBox[ StyleBox[ AdjustmentBox[ RowBox[{"\<\"Plus\"\>", "[", RowBox[{"1", ",", InterpretationBox[GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[ RowBox[{"\<\"Power\"\>", "[", RowBox[{GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[ RowBox[{"\<\"Plus\"\>", "[", RowBox[{"1", ",", GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[ RowBox[{"\<\"Power\"\>", "[", RowBox[{GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[ RowBox[{"\<\"Plus\"\>", "[", RowBox[{"1", ",", GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[ RowBox[{"\<\"Power\"\>", "[", RowBox[{GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[ RowBox[{"\<\"Plus\"\>", "[", RowBox[{"1", ",", GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[ RowBox[{"\<\"Power\"\>", "[", RowBox[{GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[ RowBox[{"\<\"Plus\"\>", "[", RowBox[{"1", ",", GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[ RowBox[{"\<\"Power\"\>", "[", RowBox[{"x", ",", GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[\("Rational"[1, 2]\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.500008, 0.500008]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 0.749996]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.500008, 1]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}], ",", GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[\("Rational"[1, 2]\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.500008, 1]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.749996, 1, 0.500008]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 0.500008, 1]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}], ",", GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[\("Rational"[1, 2]\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 0.500008, 1]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.749996, 0.500008]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 1]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}], ",", GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[\("Rational"[1, 2]\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 1]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.500008, 0.749996]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 0.500008]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}], ",", GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[\("Rational"[1, 2]\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 0.500008]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.749996, 0.500008, 1]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}], ColumnForm[ {"|", "Power"[ ColumnForm[ {"|", "Plus"[ 1, ColumnForm[ {"|", "Power"[ ColumnForm[ {"|", "Plus"[ 1, ColumnForm[ {"|", "Power"[ ColumnForm[ {"|", "Plus"[ 1, ColumnForm[ {"|", "Power"[ ColumnForm[ {"|", "Plus"[ 1, ColumnForm[ {"|", "Power"[ x, ColumnForm[ {"|", "Rational"[ 1, 2]}]]}]]}], ColumnForm[ {"|", "Rational"[ 1, 2]}]]}]]}], ColumnForm[ {"|", "Rational"[ 1, 2]}]]}]]}], ColumnForm[ {"|", "Rational"[ 1, 2]}]]}]]}], ColumnForm[ {"|", "Rational"[ 1, 2]}]]}], Editable->False]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.749996, 0.500008]], TreeForm[ Plus[ 1, Power[ Plus[ 1, Power[ Plus[ 1, Power[ Plus[ 1, Power[ Plus[ 1, Power[ x, Rational[ 1, 2]]], Rational[ 1, 2]]], Rational[ 1, 2]]], Rational[ 1, 2]]], Rational[ 1, 2]]]], Editable->False], DisplayForm]], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ \(Nest[1 + #\^ .5 &, x, 5]\)], "Input"], Cell[BoxData[ \(1 + \((1 + \((1 + \((1 + \((1 + \ x\^0.5`)\)\^0.5`)\)\^0.5`)\)\^0.5`)\)\^0.5`\)], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ \(ColorBrackets[StandardForm[%]]\)], "Input"], Cell[BoxData[ TagBox[ TagBox[ FormBox[ RowBox[{"1", "+", SuperscriptBox[ StyleBox[ AdjustmentBox[ RowBox[{"(", RowBox[{"1", "+", SuperscriptBox[ StyleBox[ AdjustmentBox[ RowBox[{"(", RowBox[{"1", "+", SuperscriptBox[ StyleBox[ AdjustmentBox[ RowBox[{"(", RowBox[{"1", "+", SuperscriptBox[ StyleBox[ AdjustmentBox[\((1 + x\^0.5`)\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 0.500008, 1]], "0.5`"]}], ")"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.749996, 1, 0.500008]], "0.5`"]}], ")"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.500008, 1]], "0.5`"]}], ")"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 0.749996]], "0.5`"]}], "StandardForm"], StandardForm, Editable->True], DisplayForm]], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ \(ColorBrackets[TreeForm[%%]]\)], "Input"], Cell[BoxData[ TagBox[ InterpretationBox[ StyleBox[ AdjustmentBox[ RowBox[{"\<\"Plus\"\>", "[", RowBox[{"1", ",", InterpretationBox[GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[ RowBox[{"\<\"Power\"\>", "[", RowBox[{GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[ RowBox[{"\<\"Plus\"\>", "[", RowBox[{"1", ",", GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[ RowBox[{"\<\"Power\"\>", "[", RowBox[{GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[ RowBox[{"\<\"Plus\"\>", "[", RowBox[{"1", ",", GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[ RowBox[{"\<\"Power\"\>", "[", RowBox[{GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[ RowBox[{"\<\"Plus\"\>", "[", RowBox[{"1", ",", GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[ RowBox[{"\<\"Power\"\>", "[", RowBox[{GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[ RowBox[{"\<\"Plus\"\>", "[", RowBox[{"1", ",", GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[\("Power"[x, 0.5`]\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 0.749996]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.500008, 1]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}], ",", "0.5`"}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.749996, 1, 0.500008]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 0.500008, 1]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}], ",", "0.5`"}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.749996, 0.500008]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 1]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}], ",", "0.5`"}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.500008, 0.749996]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 0.500008]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}], ",", "0.5`"}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.749996, 0.500008, 1]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}], ColumnForm[ {"|", "Power"[ ColumnForm[ {"|", "Plus"[ 1, ColumnForm[ {"|", "Power"[ ColumnForm[ {"|", "Plus"[ 1, ColumnForm[ {"|", "Power"[ ColumnForm[ {"|", "Plus"[ 1, ColumnForm[ {"|", "Power"[ ColumnForm[ {"|", "Plus"[ 1, ColumnForm[ {"|", "Power"[ x, 0.5]}]]}], 0.5]}]]}], 0.5]}]]}], 0.5]}]]}], 0.5]}], Editable->False]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.749996, 0.500008]], TreeForm[ Plus[ 1, Power[ Plus[ 1, Power[ Plus[ 1, Power[ Plus[ 1, Power[ Plus[ 1, Power[ x, 0.5]], 0.5]], 0.5]], 0.5]], 0.5]]], Editable->False], DisplayForm]], "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Integrals", "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ \(Integrate[1/\((x + \@\(x^2 + a^2\))\), x]\)], "Input"], Cell[BoxData[ \(\(x\ \((\(-x\) + \@\(a\^2 + x\^2\))\) + a\^2\ Log[x + \@\(a\^2 + \ x\^2\)]\)\/\(2\ a\^2\)\)], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ \(ColorBrackets[%]\)], "Input"], Cell[BoxData[ TagBox[ FractionBox[ RowBox[{ RowBox[{"x", " ", StyleBox[ AdjustmentBox[\((\(-x\) + \@\(a\^2 + x\^2\))\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 0.749996]]}], "+", RowBox[{\(a\^2\), " ", StyleBox[ AdjustmentBox[\(Log[x + \@\(a\^2 + x\^2\)]\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 0.749996]]}]}], \(2\ a\^2\)], DisplayForm]], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ \(ColorBrackets[TreeForm[%]]\)], "Input"], Cell[BoxData[ TagBox[ InterpretationBox[ StyleBox[ AdjustmentBox[ RowBox[{"\<\"FractionBox\"\>", "[", RowBox[{ InterpretationBox[GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[ RowBox[{"\<\"RowBox\"\>", "[", GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[ RowBox[{"\<\"List\"\>", "[", RowBox[{GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[ RowBox[{"\<\"RowBox\"\>", "[", GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[ RowBox[{"\<\"List\"\>", "[", RowBox[{"\<\"x\"\>", ",", "\<\" \"\>", ",", GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[ RowBox[{"\<\"StyleBox\"\>", "[", RowBox[{GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[ RowBox[{"\<\"AdjustmentBox\"\>", "[", RowBox[{GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[ RowBox[{"\<\"RowBox\"\>", "[", GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[ RowBox[{"\<\"List\"\>", "[", RowBox[{"\<\"(\"\>", ",", GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[ RowBox[{"\<\"RowBox\"\>", "[", GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[ RowBox[{"\<\"List\"\>", "[", RowBox[{GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[ RowBox[{"\<\"RowBox\"\>", "[", GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[\("List"["-", "x"]\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 0.500008]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.500008, 0.749996]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}], ",", "\<\"+\"\>", ",", GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[ RowBox[{"\<\"SqrtBox\"\>", "[", GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[ RowBox[{"\<\"RowBox\"\>", "[", GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[ RowBox[{"\<\"List\"\>", "[", RowBox[{GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[\("SuperscriptBox"["a", "2"]\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 0.500008]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}], ",", "\<\"+\"\>", ",", GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[\("SuperscriptBox"["x", "2"]\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 0.500008]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.749996, 0.500008, 1]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 0.500008]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.500008, 0.749996]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 0.500008]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.500008, 0.749996]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}], ",", "\<\")\"\>"}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 0.500008]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.500008, 0.749996]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}], ",", GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[ RowBox[{"\<\"Rule\"\>", "[", RowBox[{"BoxMargins", ",", GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[ RowBox[{"\<\"List\"\>", "[", RowBox[{GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[\("List"[0, 0]\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.749996, 0.500008]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}], ",", GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[\("List"[0.5`, 0.5`]\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.749996, 0.500008]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 1]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.500008, 0.749996]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 0.500008]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}], ",", GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[ RowBox[{"\<\"Rule\"\>", "[", RowBox[{"Background", ",", GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[\("Hue"[ 0.4166666666666667`, 0.5`]\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.500008, 0.749996]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 0.500008]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.749996, 0.500008, 1]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 1, 0.500008]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.749996, 0.500008, 1]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}], ",", "\<\"+\"\>", ",", GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[ RowBox[{"\<\"RowBox\"\>", "[", GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[ RowBox[{"\<\"List\"\>", "[", RowBox[{GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[\("SuperscriptBox"["a", "2"]\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.749996, 0.500008, 1]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}], ",", "\<\" \"\>", ",", GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[ RowBox[{"\<\"StyleBox\"\>", "[", RowBox[{GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[ RowBox[{"\<\"AdjustmentBox\"\>", "[", RowBox[{GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[ RowBox[{"\<\"RowBox\"\>", "[", GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[ RowBox[{"\<\"List\"\>", "[", RowBox[{"\<\"Log\"\>", ",", "\<\"[\"\>", ",", GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[ RowBox[{"\<\"RowBox\"\>", "[", GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[ RowBox[{"\<\"List\"\>", "[", RowBox[{"\<\"x\"\>", ",", "\<\"+\"\>", ",", GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[ RowBox[{"\<\"SqrtBox\"\>", "[", GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[ RowBox[{"\<\"RowBox\"\>", "[", GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[ RowBox[{"\<\"List\"\>", "[", RowBox[{GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[\("SuperscriptBox"["a", "2"]\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 0.500008]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}], ",", "\<\"+\"\>", ",", GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[\("SuperscriptBox"["x", "2"]\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 0.500008]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.749996, 0.500008, 1]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 0.500008]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.500008, 0.749996]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 0.500008]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.500008, 0.749996]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}], ",", "\<\"]\"\>"}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 0.500008]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.500008, 0.749996]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}], ",", GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[ RowBox[{"\<\"Rule\"\>", "[", RowBox[{"BoxMargins", ",", GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[ RowBox[{"\<\"List\"\>", "[", RowBox[{GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[\("List"[0, 0]\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.749996, 0.500008]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}], ",", GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[\("List"[0.5`, 0.5`]\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.749996, 0.500008]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 1]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.500008, 0.749996]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 0.500008]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}], ",", GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[ RowBox[{"\<\"Rule\"\>", "[", RowBox[{"Background", ",", GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[\("Hue"[ 0.4166666666666667`, 0.5`]\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.500008, 0.749996]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 0.500008]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.749996, 0.500008, 1]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 1, 0.500008]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.749996, 0.500008, 1]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 1, 0.500008]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.749996, 0.500008, 1]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}], ColumnForm[ {"|", "RowBox"[ ColumnForm[ {"|", "List"[ ColumnForm[ {"|", "RowBox"[ ColumnForm[ {"|", "List"[ "x", " ", ColumnForm[ {"|", "StyleBox"[ ColumnForm[ {"|", "AdjustmentBox"[ ColumnForm[ {"|", "RowBox"[ ColumnForm[ {"|", "List"[ "(", ColumnForm[ {"|", "RowBox"[ ColumnForm[ {"|", "List"[ ColumnForm[ {"|", "RowBox"[ ColumnForm[ {"|", "List"[ "-", "x"]}]]}], "+", ColumnForm[ {"|", "SqrtBox"[ ColumnForm[ {"|", "RowBox"[ ColumnForm[ {"|", "List"[ ColumnForm[ {"|", "SuperscriptBox"[ "a", "2"]}], "+", ColumnForm[ {"|", "SuperscriptBox"[ "x", "2"]}]]}]]}]]}]]}]]}], ")"]}]]}], ColumnForm[ {"|", "Rule"[ BoxMargins, ColumnForm[ {"|", "List"[ ColumnForm[ {"|", "List"[ 0, 0]}], ColumnForm[ {"|", "List"[ 0.5, 0.5]}]]}]]}]]}], ColumnForm[ {"|", "Rule"[ Background, ColumnForm[ {"|", "Hue"[ 0.41666666666666669, 0.5]}]]}]]}]]}]]}], "+", ColumnForm[ {"|", "RowBox"[ ColumnForm[ {"|", "List"[ ColumnForm[ {"|", "SuperscriptBox"[ "a", "2"]}], " ", ColumnForm[ {"|", "StyleBox"[ ColumnForm[ {"|", "AdjustmentBox"[ ColumnForm[ {"|", "RowBox"[ ColumnForm[ {"|", "List"[ "Log", "[", ColumnForm[ {"|", "RowBox"[ ColumnForm[ {"|", "List"[ "x", "+", ColumnForm[ {"|", "SqrtBox"[ ColumnForm[ {"|", "RowBox"[ ColumnForm[ {"|", "List"[ ColumnForm[ {"|", "SuperscriptBox"[ "a", "2"]}], "+", ColumnForm[ {"|", "SuperscriptBox"[ "x", "2"]}]]}]]}]]}]]}]]}], "]"]}]]}], ColumnForm[ {"|", "Rule"[ BoxMargins, ColumnForm[ {"|", "List"[ ColumnForm[ {"|", "List"[ 0, 0]}], ColumnForm[ {"|", "List"[ 0.5, 0.5]}]]}]]}]]}], ColumnForm[ {"|", "Rule"[ Background, ColumnForm[ {"|", "Hue"[ 0.41666666666666669, 0.5]}]]}]]}]]}]]}]]}]]}], Editable->False], ",", InterpretationBox[GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[ RowBox[{"\<\"RowBox\"\>", "[", GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[ RowBox[{"\<\"List\"\>", "[", RowBox[{"\<\"2\"\>", ",", "\<\" \"\>", ",", GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[\("SuperscriptBox"["a", "2"]\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.749996, 0.500008, 1]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 1, 0.500008]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.749996, 0.500008, 1]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}], ColumnForm[ {"|", "RowBox"[ ColumnForm[ {"|", "List"[ "2", " ", ColumnForm[ {"|", "SuperscriptBox"[ "a", "2"]}]]}]]}], Editable->False]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.749996, 0.500008]], TreeForm[ FractionBox[ RowBox[ { RowBox[ {"x", " ", StyleBox[ AdjustmentBox[ StyleBox[ AdjustmentBox[ RowBox[ {"(", RowBox[ { RowBox[ {"-", "x"}], "+", SqrtBox[ RowBox[ { SuperscriptBox[ "a", "2"], "+", SuperscriptBox[ "x", "2"]}]]}], ")"}], BoxMargins -> {{0, 0}, {0.5, 0.5}}], Background -> Hue[ 0.75, 0.5]], BoxMargins -> {{0, 0}, {0.5, 0.5}}], Background -> Hue[ 0.41666666666666669, 0.5]]}], "+", RowBox[ { SuperscriptBox[ "a", "2"], " ", StyleBox[ AdjustmentBox[ StyleBox[ AdjustmentBox[ RowBox[ {"Log", "[", RowBox[ {"x", "+", SqrtBox[ RowBox[ { SuperscriptBox[ "a", "2"], "+", SuperscriptBox[ "x", "2"]}]]}], "]"}], BoxMargins -> {{0, 0}, {0.5, 0.5}}], Background -> Hue[ 0.75, 0.5]], BoxMargins -> {{0, 0}, {0.5, 0.5}}], Background -> Hue[ 0.41666666666666669, 0.5]]}]}], RowBox[ {"2", " ", SuperscriptBox[ "a", "2"]}]]], Editable->False], DisplayForm]], "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["More complicated ones", "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ \(\[Integral]\_a\%b\( 1\/\(x\^2 + 1\)\) \[DifferentialD]x /. {Im[ a] \[Rule] 0, Im[b] \[Rule] 0}\)], "Input"], Cell[BoxData[ \(\(\((\(-a\) + b)\)\ \((ArcTan[a] - ArcTan[b])\)\)\/\(a - b\)\)], \ "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ \(Simplify[%]\)], "Input"], Cell[BoxData[ \(\(-ArcTan[a]\) + ArcTan[b]\)], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ \(ColorBrackets[%]\)], "Input"], Cell[BoxData[ TagBox[ RowBox[{ RowBox[{"-", StyleBox[ AdjustmentBox[\(ArcTan[a]\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 0.500008]]}], "+", StyleBox[ AdjustmentBox[\(ArcTan[b]\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 1, 0.500008]]}], DisplayForm]], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ \(ColorBrackets[\[Integral]\_a\%b\( 1\/\(x\^2 + 1\)\) \[DifferentialD]x /. {Im[a] \[Rule] 0, Im[b] \[Rule] 0}]\)], "Input"], Cell[BoxData[ TagBox[ FractionBox[ RowBox[{ StyleBox[ AdjustmentBox[\((\(-a\) + b)\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.749996, 1, 0.500008]], " ", StyleBox[ AdjustmentBox[ RowBox[{"(", RowBox[{ StyleBox[ AdjustmentBox[\(ArcTan[a]\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 0.749996, 1]], "-", StyleBox[ AdjustmentBox[\(ArcTan[b]\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 0.749996, 1]]}], ")"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.749996, 1, 0.500008]]}], \(a - b\)], DisplayForm]], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ \(ColorBrackets[ FullForm[\[Integral]\_a\%b\( 1\/\(x\^2 + 1\)\) \[DifferentialD]x /. {Im[ a] \[Rule] 0, Im[b] \[Rule] 0}]]\)], "Input"], Cell[BoxData[ TagBox[ TagBox[ StyleBox[ AdjustmentBox[ RowBox[{"Times", "[", RowBox[{ StyleBox[ AdjustmentBox[ RowBox[{"Power", "[", RowBox[{ StyleBox[ AdjustmentBox[ RowBox[{"Plus", "[", RowBox[{"a", ",", StyleBox[ AdjustmentBox[\(Times[\(-1\), b]\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 1, 0.500008]]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.500008, 1]], ",", \(-1\)}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 1]], ",", StyleBox[ AdjustmentBox[ RowBox[{"Plus", "[", RowBox[{ StyleBox[ AdjustmentBox[\(Times[\(-1\), a]\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.500008, 1]], ",", "b"}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 1]], ",", StyleBox[ AdjustmentBox[ RowBox[{"Plus", "[", RowBox[{ StyleBox[ AdjustmentBox[\(ArcTan[a]\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.500008, 1]], ",", StyleBox[ AdjustmentBox[ RowBox[{"Times", "[", RowBox[{\(-1\), ",", StyleBox[ AdjustmentBox[\(ArcTan[b]\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 1, 0.500008]]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.500008, 1]]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 1]]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], ShowSpecialCharacters->False, ShowStringCharacters->True, NumberMarks->True, Background->RGBColor[1, 1, 0.500008]], FullForm], DisplayForm]], "Output"] }, Closed]], Cell["\<\ It becomes useful if the output is very complicated, as is the case \ if complex values were allowed for a and b in the previous \ integral:\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(ColorBrackets[ TraditionalForm[\[Integral]\_a\%b\( 1\/\(x\^2 + 1\)\) \[DifferentialD]x]]\)], "Input"], Cell[BoxData[ TagBox[ TagBox[ FormBox[ RowBox[{ StyleBox[ AdjustmentBox[\((b - a)\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 0.500008]], " ", StyleBox[ AdjustmentBox[ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ StyleBox[ AdjustmentBox[\(Re(a)\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 1, 0.500008]], "\[NotEqual]", "0"}], "\[And]", RowBox[{ StyleBox[ AdjustmentBox[\(Re(a)\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 1, 0.500008]], "\[Equal]", StyleBox[ AdjustmentBox[\(Re(b)\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 1, 0.500008]]}]}], "\[Or]", RowBox[{ FractionBox[ StyleBox[ AdjustmentBox[\(Re(a)\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.749996, 0.500008]], RowBox[{ StyleBox[ AdjustmentBox[\(Re(a)\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.749996, 1, 0.500008]], "-", StyleBox[ AdjustmentBox[\(Re(b)\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.749996, 1, 0.500008]]}]], "\[Equal]", "0"}], "\[Or]", RowBox[{ FractionBox[ StyleBox[ AdjustmentBox[\(Re(b)\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.749996, 0.500008]], RowBox[{ StyleBox[ AdjustmentBox[\(Re(a)\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.749996, 1, 0.500008]], "-", StyleBox[ AdjustmentBox[\(Re(b)\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.749996, 1, 0.500008]]}]], "\[Equal]", "0"}], "\[Or]", RowBox[{ FractionBox[ StyleBox[ AdjustmentBox[\(Re(b)\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.749996, 0.500008]], RowBox[{ StyleBox[ AdjustmentBox[\(Re(a)\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.749996, 1, 0.500008]], "-", StyleBox[ AdjustmentBox[\(Re(b)\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.749996, 1, 0.500008]]}]], "\[GreaterEqual]", "0"}], "\[Or]", RowBox[{ FractionBox[ StyleBox[ AdjustmentBox[\(Re(a)\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.749996, 0.500008]], RowBox[{ StyleBox[ AdjustmentBox[\(Re(b)\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.749996, 1, 0.500008]], "-", StyleBox[ AdjustmentBox[\(Re(a)\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.749996, 1, 0.500008]]}]], "\[GreaterEqual]", "0"}], "\[Or]", RowBox[{ FractionBox[ SuperscriptBox[ StyleBox[ AdjustmentBox[ RowBox[{"(", RowBox[{ RowBox[{ StyleBox[ AdjustmentBox[\(Im(b)\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 0.500008, 1]], " ", StyleBox[ AdjustmentBox[\(Re(a)\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 0.500008, 1]]}], "-", RowBox[{ StyleBox[ AdjustmentBox[\(Im(a)\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 0.500008, 1]], " ", StyleBox[ AdjustmentBox[\(Re(b)\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 0.500008, 1]]}]}], ")"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 1, 0.500008]], "2"], SuperscriptBox[ StyleBox[ AdjustmentBox[ RowBox[{"(", RowBox[{ StyleBox[ AdjustmentBox[\(Re(a)\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 1]], "-", StyleBox[ AdjustmentBox[\(Re(b)\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 1]]}], ")"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 1, 0.500008]], "2"]], "<", "1"}]}], ",", FractionBox[ RowBox[{ StyleBox[ AdjustmentBox[\(\(tan\^\(-1\)\)(a)\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.500008, 0.749996]], "-", StyleBox[ AdjustmentBox[\(\(tan\^\(-1\)\)(b)\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.500008, 0.749996]]}], \(a - b\)], ",", StyleBox[ AdjustmentBox[ RowBox[{"Integrate", "[", RowBox[{ FractionBox["1", RowBox[{ SuperscriptBox[ StyleBox[ AdjustmentBox[ RowBox[{"(", RowBox[{"a", "+", RowBox[{ StyleBox[ AdjustmentBox[\((b - a)\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.500008, 1]], " ", "x"}]}], ")"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 0.500008]], "2"], "+", "1"}]], ",", StyleBox[ AdjustmentBox[\({x, 0, 1}\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.500008, 0.500008]], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{"\[Not]", StyleBox[ AdjustmentBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ StyleBox[ AdjustmentBox[\(Re(a)\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.500008, 0.500008]], "\[NotEqual]", "0"}], "\[And]", RowBox[{ StyleBox[ AdjustmentBox[\(Re(a)\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.500008, 0.500008]], "\[Equal]", StyleBox[ AdjustmentBox[\(Re(b)\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.500008, 0.500008]]}]}], "\[Or]", RowBox[{ FractionBox[ StyleBox[ AdjustmentBox[\(Re(a)\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.500008, 0.749996]], RowBox[{ StyleBox[ AdjustmentBox[\(Re(a)\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.749996, 0.500008]], "-", StyleBox[ AdjustmentBox[\(Re(b)\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.749996, 0.500008]]}]], "\[Equal]", "0"}], "\[Or]", RowBox[{ FractionBox[ StyleBox[ AdjustmentBox[\(Re(b)\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.500008, 0.749996]], RowBox[{ StyleBox[ AdjustmentBox[\(Re(a)\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.749996, 0.500008]], "-", StyleBox[ AdjustmentBox[\(Re(b)\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.749996, 0.500008]]}]], "\[Equal]", "0"}], "\[Or]", RowBox[{ FractionBox[ StyleBox[ AdjustmentBox[\(Re(b)\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.500008, 0.749996]], RowBox[{ StyleBox[ AdjustmentBox[\(Re(a)\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.749996, 0.500008]], "-", StyleBox[ AdjustmentBox[\(Re(b)\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.749996, 0.500008]]}]], "\[GreaterEqual]", "0"}], "\[Or]", RowBox[{ FractionBox[ StyleBox[ AdjustmentBox[\(Re(a)\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.500008, 0.749996]], RowBox[{ StyleBox[ AdjustmentBox[\(Re(b)\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.749996, 0.500008]], "-", StyleBox[ AdjustmentBox[\(Re(a)\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.749996, 0.500008]]}]], "\[GreaterEqual]", "0"}], "\[Or]", RowBox[{ FractionBox[ SuperscriptBox[ StyleBox[ AdjustmentBox[ RowBox[{"(", RowBox[{ RowBox[{ StyleBox[ AdjustmentBox[\(Im(b)\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 1]], " ", StyleBox[ AdjustmentBox[\(Re(a)\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 1]]}], "-", RowBox[{ StyleBox[ AdjustmentBox[\(Im(a)\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 1]], " ", StyleBox[ AdjustmentBox[\(Re(b)\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 1]]}]}], ")"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.500008, 0.500008]], "2"], SuperscriptBox[ StyleBox[ AdjustmentBox[ RowBox[{"(", RowBox[{ StyleBox[ AdjustmentBox[\(Re(a)\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 0.500008]], "-", StyleBox[ AdjustmentBox[\(Re(b)\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 0.500008]]}], ")"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.500008, 0.500008]], "2"]], "<", "1"}]}], ")"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 0.500008]]}]}]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 0.500008, 1]]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 0.500008]]}], "TraditionalForm"], TraditionalForm, Editable->True], DisplayForm]], "Output"] }, Closed]], Cell["The structure of the integral expression itself is given by", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(ColorBrackets[ FullForm[Hold[\[Integral]\_a\%b\( 1\/\(x + 1\)\) \[DifferentialD]x]]]\)], "Input"], Cell[BoxData[ TagBox[ TagBox[ StyleBox[ AdjustmentBox[ RowBox[{"Hold", "[", StyleBox[ AdjustmentBox[ RowBox[{"Integrate", "[", RowBox[{ StyleBox[ AdjustmentBox[ RowBox[{"Times", "[", RowBox[{"1", ",", StyleBox[ AdjustmentBox[ RowBox[{"Power", "[", RowBox[{ StyleBox[ AdjustmentBox[\(Plus[x, 1]\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 0.500008]], ",", \(-1\)}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.500008, 0.500008]]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 0.500008, 1]], ",", StyleBox[ AdjustmentBox[\(List[x, a, b]\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 0.500008, 1]]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 0.500008]], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], ShowSpecialCharacters->False, ShowStringCharacters->True, NumberMarks->True, Background->RGBColor[1, 1, 0.500008]], FullForm], DisplayForm]], "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Sums", "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ \(\[Sum]\+\(j = 1\)\%n\((1 + a\/2)\)\^j\)], "Input"], Cell[BoxData[ \(\(\((\(-1\) + \((1 + a\/2)\)\^n)\)\ \((2 + a)\)\)\/a\)], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ \(ColorBrackets[ TraditionalForm[\[Sum]\+\(j = 1\)\%n\((1 + a\/2)\)\^j]]\)], "Input"], Cell[BoxData[ TagBox[ TagBox[ FormBox[ FractionBox[ RowBox[{ StyleBox[ AdjustmentBox[ RowBox[{"(", RowBox[{ SuperscriptBox[ StyleBox[ AdjustmentBox[\((a\/2 + 1)\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.500008, 1]], "n"], "-", "1"}], ")"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 0.749996]], " ", StyleBox[ AdjustmentBox[\((a + 2)\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 0.749996]]}], "a"], "TraditionalForm"], TraditionalForm, Editable->True], DisplayForm]], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ \(ColorBrackets[FullForm[Hold[\[Sum]\+\(j = 1\)\%n x\^j]]]\)], "Input"], Cell[BoxData[ TagBox[ TagBox[ StyleBox[ AdjustmentBox[ RowBox[{"Hold", "[", StyleBox[ AdjustmentBox[ RowBox[{"Sum", "[", RowBox[{ StyleBox[ AdjustmentBox[\(Power[x, j]\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 0.500008, 1]], ",", StyleBox[ AdjustmentBox[\(List[j, 1, n]\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 0.500008, 1]]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 0.500008]], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], ShowSpecialCharacters->False, ShowStringCharacters->True, NumberMarks->True, Background->RGBColor[1, 1, 0.500008]], FullForm], DisplayForm]], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ \(ColorBrackets[FullForm[\[Sum]\+\(j = 1\)\%n x\^j]]\)], "Input"], Cell[BoxData[ TagBox[ TagBox[ StyleBox[ AdjustmentBox[ RowBox[{"Times", "[", RowBox[{ StyleBox[ AdjustmentBox[ RowBox[{"Power", "[", RowBox[{ StyleBox[ AdjustmentBox[\(Plus[\(-1\), x]\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.500008, 1]], ",", \(-1\)}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 1]], ",", "x", ",", StyleBox[ AdjustmentBox[ RowBox[{"Plus", "[", RowBox[{\(-1\), ",", StyleBox[ AdjustmentBox[\(Power[x, n]\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.500008, 1]]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 1]]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], ShowSpecialCharacters->False, ShowStringCharacters->True, NumberMarks->True, Background->RGBColor[1, 1, 0.500008]], FullForm], DisplayForm]], "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Piecewise defined functions", "Subsubsection"], Cell[BoxData[ \(f[x_] := If[x < 0, \(-1\), If[x < 1, 1, 2]]\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(Plot[f[x], {x, \(-3\), 3}]\)], "Input"], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .61803 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.5 0.15873 0.210916 0.196201 [ [.02381 .19842 -6 -9 ] [.02381 .19842 6 0 ] [.18254 .19842 -6 -9 ] [.18254 .19842 6 0 ] [.34127 .19842 -6 -9 ] [.34127 .19842 6 0 ] [.65873 .19842 -3 -9 ] [.65873 .19842 3 0 ] [.81746 .19842 -3 -9 ] [.81746 .19842 3 0 ] [.97619 .19842 -3 -9 ] [.97619 .19842 3 0 ] [.4875 .01472 -12 -4.5 ] [.4875 .01472 0 4.5 ] [.4875 .11282 -24 -4.5 ] [.4875 .11282 0 4.5 ] [.4875 .30902 -18 -4.5 ] [.4875 .30902 0 4.5 ] [.4875 .40712 -6 -4.5 ] [.4875 .40712 0 4.5 ] [.4875 .50522 -18 -4.5 ] [.4875 .50522 0 4.5 ] [.4875 .60332 -6 -4.5 ] [.4875 .60332 0 4.5 ] [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .02381 .21092 m .02381 .21717 L s [(-3)] .02381 .19842 0 1 Mshowa .18254 .21092 m .18254 .21717 L s [(-2)] .18254 .19842 0 1 Mshowa .34127 .21092 m .34127 .21717 L s [(-1)] .34127 .19842 0 1 Mshowa .65873 .21092 m .65873 .21717 L s [(1)] .65873 .19842 0 1 Mshowa .81746 .21092 m .81746 .21717 L s [(2)] .81746 .19842 0 1 Mshowa .97619 .21092 m .97619 .21717 L s [(3)] .97619 .19842 0 1 Mshowa .125 Mabswid .05556 .21092 m .05556 .21467 L s .0873 .21092 m .0873 .21467 L s .11905 .21092 m .11905 .21467 L s .15079 .21092 m .15079 .21467 L s .21429 .21092 m .21429 .21467 L s .24603 .21092 m .24603 .21467 L s .27778 .21092 m .27778 .21467 L s .30952 .21092 m .30952 .21467 L s .37302 .21092 m .37302 .21467 L s .40476 .21092 m .40476 .21467 L s .43651 .21092 m .43651 .21467 L s .46825 .21092 m .46825 .21467 L s .53175 .21092 m .53175 .21467 L s .56349 .21092 m .56349 .21467 L s .59524 .21092 m .59524 .21467 L s .62698 .21092 m .62698 .21467 L s .69048 .21092 m .69048 .21467 L s .72222 .21092 m .72222 .21467 L s .75397 .21092 m .75397 .21467 L s .78571 .21092 m .78571 .21467 L s .84921 .21092 m .84921 .21467 L s .88095 .21092 m .88095 .21467 L s .9127 .21092 m .9127 .21467 L s .94444 .21092 m .94444 .21467 L s .25 Mabswid 0 .21092 m 1 .21092 L s .5 .01472 m .50625 .01472 L s [(-1)] .4875 .01472 1 0 Mshowa .5 .11282 m .50625 .11282 L s [(-0.5)] .4875 .11282 1 0 Mshowa .5 .30902 m .50625 .30902 L s [(0.5)] .4875 .30902 1 0 Mshowa .5 .40712 m .50625 .40712 L s [(1)] .4875 .40712 1 0 Mshowa .5 .50522 m .50625 .50522 L s [(1.5)] .4875 .50522 1 0 Mshowa .5 .60332 m .50625 .60332 L s [(2)] .4875 .60332 1 0 Mshowa .125 Mabswid .5 .03434 m .50375 .03434 L s .5 .05396 m .50375 .05396 L s .5 .07358 m .50375 .07358 L s .5 .0932 m .50375 .0932 L s .5 .13244 m .50375 .13244 L s .5 .15206 m .50375 .15206 L s .5 .17168 m .50375 .17168 L s .5 .1913 m .50375 .1913 L s .5 .23054 m .50375 .23054 L s .5 .25016 m .50375 .25016 L s .5 .26978 m .50375 .26978 L s .5 .2894 m .50375 .2894 L s .5 .32864 m .50375 .32864 L s .5 .34826 m .50375 .34826 L s .5 .36788 m .50375 .36788 L s .5 .3875 m .50375 .3875 L s .5 .42674 m .50375 .42674 L s .5 .44636 m .50375 .44636 L s .5 .46598 m .50375 .46598 L s .5 .4856 m .50375 .4856 L s .5 .52484 m .50375 .52484 L s .5 .54446 m .50375 .54446 L s .5 .56408 m .50375 .56408 L s .5 .5837 m .50375 .5837 L s .25 Mabswid .5 0 m .5 .61803 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath .5 Mabswid .02381 .01472 m .06244 .01472 L .10458 .01472 L .14415 .01472 L .18221 .01472 L .22272 .01472 L .26171 .01472 L .30316 .01472 L .34309 .01472 L .3815 .01472 L .42237 .01472 L .46172 .01472 L .48147 .01472 L .49012 .01472 L .49468 .01472 L .49719 .01472 L .49842 .01472 L .49955 .01472 L .50085 .40712 L .50154 .40712 L .50226 .40712 L .50471 .40712 L .5095 .40712 L .51896 .40712 L .53984 .40712 L .57781 .40712 L .61824 .40712 L .63687 .40712 L .6467 .40712 L .65209 .40712 L .65473 .40712 L .65714 .40712 L .65837 .40712 L .65967 .60332 L .66097 .60332 L .66239 .60332 L .66818 .60332 L .67838 .60332 L .6985 .60332 L .73907 .60332 L .77811 .60332 L .81961 .60332 L .85959 .60332 L .89806 .60332 L .93898 .60332 L .97619 .60332 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgooooo`00Soooool00ol0003oooooooooo`2>ooooo`00Q_ooool3o`0000Ko oooo00?o0000ooooooooool0S_ooool008Oooooo00?o0000ooooooooool01Oooool00ol0003ooooo ooooo`2>ooooo`001ooooon;o`0008kooooo0027ooooo`03o`000?oooooooooo00Gooooo00?o0000 ooooooooool0S_ooool008Oooooo00?o0000ooooooooool01Oooool00ol0003oooooooooo`2>oooo o`00Q_ooool2o`0000Oooooo00?o0000ooooooooool0S_ooool008Oooooo00?o0000ooooooooool0 1Oooool00ol0003oooooooooo`2>ooooo`00Soooool00ol0003oooooooooo`2>ooooo`00Soooool2 o`0008oooooo002?ooooo`03o`000?oooooooooo08kooooo002?ooooo`03o`000?oooooooooo08ko oooo002?ooooo`03o`000?oooooooooo08kooooo002?ooooo`03o`000?oooooooooo08kooooo002? ooooo`;o0000Soooool008oooooo00?o0000ooooooooool0S_ooool008oooooo00?o0000oooooooo ool0S_ooool008oooooo00?o0000ooooooooool0S_ooool008oooooo00?o0000ooooooooool0S_oo ool008oooooo00?o0000ooooooooool0S_ooool008oooooo0_l0002?ooooo`00Soooool00ol0003o ooooooooo`2>ooooo`00Soooool00ol0003oooooooooo`2>ooooo`00Soooool00ol0003ooooooooo o`2>ooooo`00Soooool00ol0003oooooooooo`2>ooooo`00Soooool2o`0008oooooo002?ooooo`03 o`000?oooooooooo08kooooo002?ooooo`03o`000?oooooooooo08kooooo002?ooooo`03o`000?oo oooooooo08kooooo001kooooo`;o00001?ooool00ol0003oooooooooo`02ooooo`?o00001_ooool0 0ol0003oooooooooo`2>ooooo`00N_ooool01?l0003oooooooooool00007ooooo`05o`000?oooooo ooooooooool000001Oooool00ol0003oooooooooo`2>ooooo`00Loooool5o`0000;ooooo00Co0000 oooooooooooo00002oooool00ol0003oooooooooo`03ooooo`?o0000S_ooool007[ooooo00Co0000 oooooooooooo00002oooool00ol0003oooooooooo`03ooooo`03o`000?oooooooooo08kooooo001j ooooo`04o`000?ooooooooooo`0000Oooooo1?l00006ooooo`03o`000?oooooooooo08kooooo001j ooooo`04o`000?ooooooooooo`0000Oooooo00?o0000ooooooooool01oooool00ol0003ooooooooo o`2>ooooo`00Noooool2o`0000Sooooo1Ol00005ooooo`03o`000?oooooooooo08kooooo002?oooo o`03o`000?oooooooooo08kooooo002?ooooo`;o0000Soooool008oooooo00?o0000ooooooooool0 S_ooool008oooooo00?o0000ooooooooool0S_ooool008oooooo00?o0000ooooooooool0S_ooool0 08oooooo00?o0000ooooooooool0S_ooool008oooooo0_l0002?ooooo`00Soooool00ol0003ooooo ooooo`2>ooooo`00Soooool00ol0003oooooooooo`2>ooooo`00Soooool00ol0003oooooooooo`2> ooooo`00Soooool00ol0003oooooooooo`2>ooooo`002?ooool3o`0002Wooooo1Ol0000Zooooo`?o 0000:Oooool00ol0003oooooooooo`0Xooooo`?o0000:_ooool5o`0002Wooooo0ol00008ooooo`00 1oooool01Ol0003ooooooooooooooooo000002Wooooo00Co0000oooooooooooo0000:oooool00ol0 003oooooooooo`0Xooooo`;o0000:_ooool00ol0003oooooooooo`0Zooooo`04o`000?oooooooooo o`0002Sooooo00Go0000ooooooooooooooooo`000007ooooo`0000?oooooo`000?l000000ol00005 ooooo`03o`000?oooooooooo023ooooo1Ol00003ooooo`03o`000?oooooooooo02?ooooo1Ol00003 ooooo`03o`000?oooooooooo02Sooooo00?o0000ooooooooool0:Oooool00ol0003oooooooooo`0[ ooooo`03o`000?oooooooooo02cooooo00?o0000ooooooooool01Oooool000Wooooo0_l0000/oooo o`03o`000?oooooooooo02[ooooo00?o0000ooooooooool0:?ooool00ol0003oooooooooo`0Yoooo o`03o`000?oooooooooo02cooooo00?o0000ooooooooool0:Oooool2o`0000Sooooo000;ooooo`03 o`000?oooooooooo02Kooooo00Go0000ooooooooooooooooo`00000[ooooo`03o`000?oooooooooo 02Sooooo00?o0000ooooooooool0:Oooool00ol0003oooooooooo`0Yooooo`05o`000?oooooooooo ooooool00000;?ooool00ol0003oooooooooo`05ooooo`001oooool01Ol0003ooooooooooooooooo 000002Sooooo00Go0000ooooooooooooooooo`00000Zooooo`;o0000:_ooool00ol0003ooooooooo o`0Xooooo`;o0000:oooool01Ol0003ooooooooooooooooo000002Sooooo00Go0000oooooooooooo ooooo`000007ooooo`002?ooool3o`0002[ooooo0ol0000/ooooo`03o`000?oooooooooo02Sooooo 0_l0000Zooooo`03o`000?oooooooooo02[ooooo0ol0000Zooooo`?o00002?ooool008oooooo00?o 0000ooooooooool0S_ooool008oooooo00?o0000ooooooooool0S_ooool008oooooo00?o0000oooo ooooool0S_ooool008oooooo00?o0000ooooooooool0S_ooool008oooooo00?o0000ooooooooool0 S_ooool00?oo00008?l00001ooooo`001oooool00ol0003oooooooooo`06ooooo`03o`000?oooooo oooo00Kooooo00?o0000ooooooooool01_ooool00ol0003oooooooooo`06ooooo`03o`000?oooooo oooo00Kooooo00?o0000ooooooooool01_ooool00ol0003oooooooooo`07ooooo`03o`000?oooooo oooo00Kooooo00?o0000ooooooooool01_ooool00ol0003oooooooooo`06ooooo`03o`000?oooooo oooo00Kooooo00?o0000ooooooooool01_ooool00ol0003oooooooooo`06ooooo`03o`000?oooooo oooo00Kooooo00?o0000ooooooooool01_ooool00ol0003oooooooooo`06ooooo`03o`000?oooooo oooo00Kooooo00?o0000ooooooooool01_ooool00ol0003oooooooooo`06ooooo`03o`000?oooooo oooo00Kooooo00?o0000ooooooooool01_ooool00ol0003oooooooooo`06ooooo`03o`000?oooooo oooo00Kooooo00?o0000ooooooooool01oooool00ol0003oooooooooo`06ooooo`03o`000?oooooo oooo00Kooooo00?o0000ooooooooool01_ooool00ol0003oooooooooo`06ooooo`03o`000?oooooo oooo00Kooooo00?o0000ooooooooool01_ooool00ol0003oooooooooo`06ooooo`001oooool00ol0 003oooooooooo`0Zooooo`03o`000?oooooooooo02_ooooo00?o0000ooooooooool0:_ooool00ol0 003oooooooooo`0Zooooo`03o`000?oooooooooo02_ooooo00?o0000ooooooooool0:_ooool00ol0 003oooooooooo`06ooooo`00Soooool00ol0003oooooooooo`2>ooooo`00Soooool00ol0003ooooo ooooo`2>ooooo`00Soooool00ol0003oooooooooo`2>ooooo`00Soooool2o`0008oooooo002?oooo o`03o`000?oooooooooo08kooooo002?ooooo`03o`000?oooooooooo08kooooo002?ooooo`03o`00 0?oooooooooo08kooooo002?ooooo`03o`000?oooooooooo08kooooo002?ooooo`;o0000Soooool0 08oooooo00?o0000ooooooooool0S_ooool008oooooo00?o0000ooooooooool0S_ooool008oooooo 00?o0000ooooooooool0S_ooool008oooooo00?o0000ooooooooool0S_ooool008oooooo00?o0000 ooooooooool0S_ooool008oooooo0_l0002?ooooo`00Soooool00ol0003oooooooooo`2>ooooo`00 Soooool00ol0003oooooooooo`2>ooooo`00Soooool00ol0003oooooooooo`2>ooooo`00Soooool0 0ol0003oooooooooo`2>ooooo`00Soooool2o`0008oooooo002?ooooo`03o`000?oooooooooo08ko oooo002?ooooo`03o`000?oooooooooo08kooooo002?ooooo`03o`000?oooooooooo08kooooo001k ooooo`;o00001?ooool00ol0003oooooooooo`02ooooo`?o00001_ooool00ol0003oooooooooo`2> ooooo`00N_ooool01?l0003oooooooooool00007ooooo`05o`000?ooooooooooooooool000001Ooo ool00ol0003oooooooooo`2>ooooo`00N_ooool01?l0003oooooooooool0000;ooooo`03o`000?oo oooooooo00?ooooo0ol0002>ooooo`00N_ooool01?l0003oooooooooool0000;ooooo`03o`000?oo oooooooo00?ooooo00?o0000ooooooooool0S_ooool007[ooooo00Co0000oooooooooooo00001ooo ool4o`0000Kooooo00?o0000ooooooooool0S_ooool007[ooooo00Co0000oooooooooooo00001ooo ool00ol0003oooooooooo`07ooooo`03o`000?oooooooooo08kooooo001kooooo`;o00002?ooool5 o`0000Gooooo00?o0000ooooooooool0S_ooool008oooooo00?o0000ooooooooool0S_ooool008oo oooo0_l0002?ooooo`00Soooool00ol0003oooooooooo`2>ooooo`00Soooool00ol0003ooooooooo o`2>ooooo`00Soooool00ol0003oooooooooo`2>ooooo`00Soooool00ol0003oooooooooo`2>oooo o`00Soooool2o`0008oooooo002?ooooo`03o`000?oooooooooo08kooooo002?ooooo`03o`000?oo oooooooo08kooooo002?ooooo`03o`000?oooooooooo08kooooo002?ooooo`03o`000?oooooooooo 08kooooo002?ooooo`03o`000?oooooooooo08kooooo002?ooooo`;o0000Soooool008oooooo00?o 0000ooooooooool0S_ooool008oooooo00?o0000ooooooooool0S_ooool008oooooo00?o0000oooo ooooool0S_ooool008oooooo00?o0000ooooooooool0S_ooool008oooooo0_l0002?ooooo`00Sooo ool00ol0003oooooooooo`2>ooooo`00Soooool00ol0003oooooooooo`2>ooooo`00Soooool00ol0 003oooooooooo`2>ooooo`00Q_ooool3o`0000Kooooo00?o0000ooooooooool0S_ooool008Oooooo 00?o0000ooooooooool01Oooool00ol0003oooooooooo`2>ooooo`00Qoooool00ol0003ooooooooo o`05ooooobko0000Hoooool008Oooooo00?o0000ooooooooool01Oooool00ol0003oooooooooo`0Z ooooo`03o`000?oooooooooo067ooooo0027ooooo`03o`000?oooooooooo00Gooooo00?o0000oooo ooooool0:_ooool00ol0003oooooooooo`1Qooooo`00Q_ooool2o`0000Oooooo00?o0000oooooooo ool0:_ooool00ol0003oooooooooo`1Qooooo`00Qoooool00ol0003oooooooooo`05ooooo`03o`00 0?oooooooooo02[ooooo00?o0000ooooooooool0HOooool008oooooo00?o0000ooooooooool0:_oo ool00ol0003oooooooooo`1Qooooo`00Soooool2o`0002_ooooo00?o0000ooooooooool0HOooool0 08oooooo00?o0000ooooooooool0:_ooool00ol0003oooooooooo`1Qooooo`00Soooool00ol0003o ooooooooo`0Zooooo`03o`000?oooooooooo067ooooo002?ooooo`03o`000?oooooooooo02[ooooo 00?o0000ooooooooool0HOooool008oooooo00?o0000ooooooooool0:_ooool00ol0003ooooooooo o`1Qooooo`00Soooool2o`0002_ooooo00?o0000ooooooooool0HOooool008oooooo00?o0000oooo ooooool0:_ooool00ol0003oooooooooo`1Qooooo`00Soooool00ol0003oooooooooo`0Zooooo`03 o`000?oooooooooo067ooooo002?ooooo`03o`000?oooooooooo02[ooooo00?o0000ooooooooool0 HOooool008oooooo00?o0000ooooooooool0:_ooool00ol0003oooooooooo`1Qooooo`00Soooool0 0ol0003oooooooooo`0Zooooo`03o`000?oooooooooo067ooooo002?ooooo`;o0000:oooool00ol0 003oooooooooo`1Qooooo`00Soooool00ol0003oooooooooo`0Zooooo`03o`000?oooooooooo067o oooo002?ooooo`03o`000?oooooooooo02[ooooo00?o0000ooooooooool0HOooool008oooooo00?o 0000ooooooooool0:_ooool00ol0003oooooooooo`1Qooooo`00Soooool00ol0003oooooooooo`0Z ooooo`03o`000?oooooooooo067ooooo002?ooooo`;o0000:oooool00ol0003oooooooooo`1Qoooo o`00Soooool00ol0003oooooooooo`0Zooooo`03o`000?oooooooooo067ooooo002?ooooo`03o`00 0?oooooooooo02[ooooo00?o0000ooooooooool0HOooool008oooooo00?o0000ooooooooool0:_oo ool00ol0003oooooooooo`1Qooooo`00N_ooool3o`0000Cooooo00?o0000ooooooooool00_ooool3 o`0000Kooooo00?o0000ooooooooool0:_ooool00ol0003oooooooooo`1Qooooo`00Noooool00ol0 003oooooooooo`07ooooo`05o`000?ooooooooooooooool000001Oooool00ol0003oooooooooo`0Z ooooo`03o`000?oooooooooo067ooooo001kooooo`03o`000?oooooooooo00_ooooo00?o0000oooo ooooool00oooool3o`0002[ooooo00?o0000ooooooooool0HOooool007_ooooo00?o0000oooooooo ool02oooool00ol0003oooooooooo`03ooooo`03o`000?oooooooooo02_ooooo00?o0000oooooooo ool0H?ooool007_ooooo00?o0000ooooooooool01oooool4o`0000Kooooo00?o0000ooooooooool0 :oooool00ol0003oooooooooo`1Pooooo`00N_ooool2o`0000Wooooo00?o0000ooooooooool01ooo ool00ol0003oooooooooo`0[ooooo`03o`000?oooooooooo063ooooo001kooooo`03o`000?oooooo oooo00Oooooo1Ol00005ooooo`03o`000?oooooooooo02_ooooo00?o0000ooooooooool0H?ooool0 08oooooo00?o0000ooooooooool0:oooool00ol0003oooooooooo`1Pooooo`00Soooool2o`0002co oooo00?o0000ooooooooool0H?ooool008oooooo00?o0000ooooooooool0:oooool00ol0003ooooo ooooo`1Pooooo`00Soooool00ol0003oooooooooo`0[ooooo`03o`000?oooooooooo063ooooo002? ooooo`03o`000?oooooooooo02_ooooo00?o0000ooooooooool0H?ooool008oooooo00?o0000oooo ooooool0:oooool00ol0003oooooooooo`1Pooooo`00Soooool2o`0002cooooo00?o0000oooooooo ool0H?ooool008oooooo00?o0000ooooooooool0:oooool00ol0003oooooooooo`1Pooooo`00Sooo ool00ol0003oooooooooo`0[ooooo`03o`000?oooooooooo063ooooo002?ooooo`03o`000?oooooo oooo02_ooooo00?o0000ooooooooool0H?ooool008oooooo00?o0000ooooooooool0:oooool00ol0 003oooooooooo`1Pooooo`00Soooool00ol0003oooooooooo`0[ooooo`03o`000?oooooooooo063o oooo002?ooooo`;o0000;?ooool00ol0003oooooooooo`1Pooooo`00Soooool00ol0003ooooooooo o`0[ooooo`03o`000?oooooooooo063ooooo002?ooooo`03o`000?oooooooooo02_ooooo00?o0000 ooooooooool0H?ooool008oooooo00?o0000ooooooooool0:oooool00ol0003oooooooooo`1Poooo o`00Soooool00ol0003oooooooooo`0[ooooo`03o`000?oooooooooo063ooooo002?ooooo`;o0000 ;?ooool00ol0003oooooooooo`1Pooooo`00Soooool00ol0003oooooooooo`0[ooooo`03o`000?oo oooooooo063ooooo002?ooooo`03o`000?oooooooooo02_ooooo00?o0000ooooooooool0H?ooool0 08Gooooo1Ol00005ooooo`03o`000?oooooooooo02_ooooo00?o0000ooooooooool0H?ooool008Ko oooo00Co0000oooooooooooo00001Oooool00ol0003oooooooooo`0[ooooo`03o`000?oooooooooo 063ooooo0027ooooo`03o`000?oooooooooo00Gooooo00?o0000ooooooooool0:oooool00ol0003o ooooooooo`1Pooooo`00R?ooool00ol0003oooooooooo`04ooooo`?o0000:ooooomKo`0000Sooooo 0025ooooo`05o`000?ooooooooooooooool000001Oooool00ol0003oooooooooo`2>ooooo`00QOoo ool01Ol0003ooooooooooooooooo000000Gooooo00?o0000ooooooooool0S_ooool008Kooooo0ol0 0006ooooo`03o`000?oooooooooo08kooooo002?ooooo`03o`000?oooooooooo08kooooo0000\ \>"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-3.16862, -1.08038, \ 0.022081, 0.0178639}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ \(ColorBrackets[FullForm[If[x < 0, \(-1\), If[x < 1, 1, 2]]]]\)], "Input"], Cell[BoxData[ TagBox[ TagBox[ StyleBox[ AdjustmentBox[ RowBox[{"If", "[", RowBox[{ StyleBox[ AdjustmentBox[\(Less[x, 0]\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 1]], ",", \(-1\), ",", StyleBox[ AdjustmentBox[ RowBox[{"If", "[", RowBox[{ StyleBox[ AdjustmentBox[\(Less[x, 1]\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.500008, 1]], ",", "1", ",", "2"}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 1]]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], ShowSpecialCharacters->False, ShowStringCharacters->True, NumberMarks->True, Background->RGBColor[1, 1, 0.500008]], FullForm], DisplayForm]], "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Equations", "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ \(\((x - 1)\)\^6 == \((1 + a)\)\^6\)], "Input"], Cell[BoxData[ \(\((\(-1\) + x)\)\^6 \[Equal] \((1 + a)\)\^6\)], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ \(ColorBrackets[%]\)], "Input"], Cell[BoxData[ TagBox[ RowBox[{ SuperscriptBox[ StyleBox[ AdjustmentBox[\((\(-1\) + x)\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.749996, 1, 0.500008]], "6"], "\[Equal]", SuperscriptBox[ StyleBox[ AdjustmentBox[\((1 + a)\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.749996, 1, 0.500008]], "6"]}], DisplayForm]], "Output"] }, Closed]], Cell["Solve for x", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(Solve[\((x - 1)\)\^6 == \((1 + a)\)\^6, x] // TableForm\)], "Input"], Cell[BoxData[ TagBox[GridBox[{ {\(x \[Rule] \(-a\)\)}, {\(x \[Rule] 2 + a\)}, {\(x \[Rule] 1\/2\ \((1 - a - \@3\ \@\(\(-1\) - 2\ a - a\^2\))\)\)}, {\(x \[Rule] 1\/2\ \((3 + a - \@3\ \@\(\(-1\) - 2\ a - a\^2\))\)\)}, {\(x \[Rule] 1\/2\ \((1 - a + \@3\ \@\(\(-1\) - 2\ a - a\^2\))\)\)}, {\(x \[Rule] 1\/2\ \((3 + a + \@3\ \@\(\(-1\) - 2\ a - a\^2\))\)\)} }, RowSpacings->1, ColumnSpacings->3, RowAlignments->Baseline, ColumnAlignments->{Left}], Function[ BoxForm`e$, TableForm[ BoxForm`e$]]]], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ \(x /. % // TableForm\)], "Input"], Cell[BoxData[ InterpretationBox[GridBox[{ {\(-a\)}, {\(2 + a\)}, {\(1\/2\ \((1 - a - \@3\ \@\(\(-1\) - 2\ a - a\^2\))\)\)}, {\(1\/2\ \((3 + a - \@3\ \@\(\(-1\) - 2\ a - a\^2\))\)\)}, {\(1\/2\ \((1 - a + \@3\ \@\(\(-1\) - 2\ a - a\^2\))\)\)}, {\(1\/2\ \((3 + a + \@3\ \@\(\(-1\) - 2\ a - a\^2\))\)\)} }, RowSpacings->1, ColumnSpacings->3, RowAlignments->Baseline, ColumnAlignments->{Left}], TableForm[ { Times[ -1, a], Plus[ 2, a], Times[ Rational[ 1, 2], Plus[ 1, Times[ -1, a], Times[ -1, Power[ 3, Rational[ 1, 2]], Power[ Plus[ -1, Times[ -2, a], Times[ -1, Power[ a, 2]]], Rational[ 1, 2]]]]], Times[ Rational[ 1, 2], Plus[ 3, a, Times[ -1, Power[ 3, Rational[ 1, 2]], Power[ Plus[ -1, Times[ -2, a], Times[ -1, Power[ a, 2]]], Rational[ 1, 2]]]]], Times[ Rational[ 1, 2], Plus[ 1, Times[ -1, a], Times[ Power[ 3, Rational[ 1, 2]], Power[ Plus[ -1, Times[ -2, a], Times[ -1, Power[ a, 2]]], Rational[ 1, 2]]]]], Times[ Rational[ 1, 2], Plus[ 3, a, Times[ Power[ 3, Rational[ 1, 2]], Power[ Plus[ -1, Times[ -2, a], Times[ -1, Power[ a, 2]]], Rational[ 1, 2]]]]]}]]], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ \(ColorBrackets[Solve[\((x - 1)\)\^6 == \((1 + a)\)\^6, x]]\)], "Input"], Cell[BoxData[ TagBox[ RowBox[{"{", RowBox[{ StyleBox[ AdjustmentBox[\({x \[Rule] \(-a\)}\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 0.500008]], ",", StyleBox[ AdjustmentBox[\({x \[Rule] 2 + a}\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 0.500008]], ",", StyleBox[ AdjustmentBox[ RowBox[{"{", RowBox[{"x", "\[Rule]", RowBox[{\(1\/2\), " ", StyleBox[ AdjustmentBox[\((1 - a - \@3\ \@\(\(-1\) - 2\ a - a\^2\))\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.500008, 1]]}]}], "}"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 0.500008]], ",", StyleBox[ AdjustmentBox[ RowBox[{"{", RowBox[{"x", "\[Rule]", RowBox[{\(1\/2\), " ", StyleBox[ AdjustmentBox[\((3 + a - \@3\ \@\(\(-1\) - 2\ a - a\^2\))\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.500008, 1]]}]}], "}"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 0.500008]], ",", StyleBox[ AdjustmentBox[ RowBox[{"{", RowBox[{"x", "\[Rule]", RowBox[{\(1\/2\), " ", StyleBox[ AdjustmentBox[\((1 - a + \@3\ \@\(\(-1\) - 2\ a - a\^2\))\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.500008, 1]]}]}], "}"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 0.500008]], ",", StyleBox[ AdjustmentBox[ RowBox[{"{", RowBox[{"x", "\[Rule]", RowBox[{\(1\/2\), " ", StyleBox[ AdjustmentBox[\((3 + a + \@3\ \@\(\(-1\) - 2\ a - a\^2\))\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.500008, 1]]}]}], "}"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 0.500008]]}], "}"}], DisplayForm]], "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Matrices and composite structures", "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ \(ColorBrackets[FullForm[\@\(2 + 3 \[ImaginaryI]\)]]\)], "Input"], Cell[BoxData[ TagBox[ TagBox[ StyleBox[ AdjustmentBox[ RowBox[{"Power", "[", RowBox[{ StyleBox[ AdjustmentBox[\(Complex[2, 3]\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 1]], ",", StyleBox[ AdjustmentBox[\(Rational[1, 2]\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 1]]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], ShowSpecialCharacters->False, ShowStringCharacters->True, NumberMarks->True, Background->RGBColor[1, 1, 0.500008]], FullForm], DisplayForm]], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(", GridBox[{ {"a", "b"}, {"c", "d"}, {"e", "f"} }], ")"}], "==", RowBox[{"(", GridBox[{ {"1", "2"}, {"3", "4"}, {"5", "6"} }], ")"}]}]], "Input"], Cell[BoxData[ \({{a, b}, {c, d}, {e, f}} \[Equal] {{1, 2}, {3, 4}, {5, 6}}\)], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ \(ColorBrackets[%] // TraditionalForm\)], "Input"], Cell[BoxData[ FormBox[ TagBox[ RowBox[{ StyleBox[ AdjustmentBox[ RowBox[{"{", RowBox[{ StyleBox[ AdjustmentBox[\({a, b}\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 1]], ",", StyleBox[ AdjustmentBox[\({c, d}\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 1]], ",", StyleBox[ AdjustmentBox[\({e, f}\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 1]]}], "}"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 1, 0.500008]], "\[Equal]", StyleBox[ AdjustmentBox[ RowBox[{"{", RowBox[{ StyleBox[ AdjustmentBox[\({1, 2}\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 1]], ",", StyleBox[ AdjustmentBox[\({3, 4}\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 1]], ",", StyleBox[ AdjustmentBox[\({5, 6}\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 1]]}], "}"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 1, 0.500008]]}], DisplayForm], TraditionalForm]], "Output"] }, Closed]] }, Closed]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["MathML conversion", "Section"], Cell[CellGroupData[{ Cell["MathML form", "Subsection"], Cell["MathMLForm[x/a+y]", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(MathMLForm[x/a + y]\)], "Input"], Cell["\<\ x a + y \ \>", "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ \(b = z\/a + y\)], "Input"], Cell[BoxData[ \(y + z\/a\)], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ \(MathMLForm[%]\)], "Input"], Cell["\<\ y + z a \ \>", "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ \(Nest[apple + \@# &, x, 5]\)], "Input"], Cell[BoxData[ \(apple + \@\(apple + \@\(apple + \@\(apple + \@\(apple + \@x\)\)\)\)\)], \ "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ \(MathMLForm[%]\)], "Input"], Cell["\<\ apple + apple + apple + apple + apple + x \ \>", "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Reversing by CopyAs", "Subsection"], Cell[BoxData[ \(\(\(<\)\(math\)\(>\)\(<\)\(mfrac\)\(>\)\(<\)\(msup\)\(>\)\(<\)\(mi\)\(>\ \)\(x\)\(<\)\(\(/\)\(mi\)\)\(>\)\(<\)\(mn\)\(>\)\(2\)\(<\)\(\(/\)\(mn\)\)\(>\)\ \(<\)\(\(/\)\(msup\)\)\(>\)\(<\)\(mi\)\(>\)\(z\)\(<\)\(\(/\)\(mi\)\)\(>\)\(<\)\ \(\(/\)\(mfrac\)\)\(>\)\(<\)\(\(/\)\(math\)\)\(>\)\)\)], "Input"], Cell["select and perform CopyAs , Paste to obtain", "Text"], Cell[BoxData[ \(TraditionalForm\`x\^2\/z\)], "Input"] }, Closed]] }, Open ]] }, Open ]] }, FrontEndVersion->"5.0 for Macintosh", ScreenRectangle->{{0, 1114}, {0, 746}}, AutoGeneratedPackage->None, WindowSize->{956, 638}, WindowMargins->{{66, Automatic}, {-6, Automatic}}, Magnification->1 ] (******************************************************************* 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, 59, 0, 52, "Subtitle"], Cell[1838, 55, 56, 3, 46, "Subsubtitle"], Cell[CellGroupData[{ Cell[1919, 62, 33, 0, 69, "Section"], Cell[1955, 64, 371, 8, 68, "Text"], Cell[CellGroupData[{ Cell[2351, 76, 131, 5, 38, "Subsection"], Cell[2485, 83, 143, 3, 27, "Input", InitializationCell->True], Cell[2631, 88, 557, 11, 91, "Input", InitializationCell->True], Cell[3191, 101, 280, 7, 75, "Input", InitializationCell->True], Cell[3474, 110, 118, 4, 32, "Text"] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[3641, 120, 41, 0, 69, "Section"], Cell[CellGroupData[{ Cell[3707, 124, 29, 0, 38, "Subsection"], Cell[3739, 126, 41, 1, 27, "Input"], Cell[CellGroupData[{ Cell[3805, 131, 65, 1, 27, "Input"], Cell[3873, 134, 7015, 143, 78, "Output"] }, Closed]], Cell[10903, 280, 40, 0, 32, "Text"], Cell[CellGroupData[{ Cell[10968, 284, 49, 1, 27, "Input"], Cell[11020, 287, 68, 2, 39, "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[11137, 295, 42, 0, 30, "Subsection"], Cell[CellGroupData[{ Cell[11204, 299, 52, 1, 31, "Input"], Cell[11259, 302, 65, 2, 41, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[11361, 309, 62, 1, 28, "Input"], Cell[11426, 312, 351, 11, 39, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[11814, 328, 103, 2, 38, "Input"], Cell[11920, 332, 646, 16, 55, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[12603, 353, 76, 1, 31, "Input"], Cell[12682, 356, 127, 2, 42, "Output"] }, Closed]], Cell[12824, 361, 74, 0, 29, "Text"], Cell[CellGroupData[{ Cell[12923, 365, 49, 1, 27, "Input"], Cell[12975, 368, 139, 3, 42, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[13151, 376, 64, 1, 31, "Input"], Cell[13218, 379, 244, 7, 51, "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[13511, 392, 75, 0, 30, "Subsection"], Cell[CellGroupData[{ Cell[13611, 396, 48, 0, 28, "Subsubsection"], Cell[CellGroupData[{ Cell[13684, 400, 82, 1, 34, "Input"], Cell[13769, 403, 9764, 201, 231, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[23582, 610, 67, 0, 22, "Subsubsection"], Cell[CellGroupData[{ Cell[23674, 614, 89, 1, 34, "Input"], Cell[23766, 617, 383, 12, 51, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[24186, 634, 109, 2, 38, "Input"], Cell[24298, 638, 724, 20, 61, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[25059, 663, 107, 2, 38, "Input"], Cell[25169, 667, 773, 21, 74, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[25979, 693, 92, 1, 33, "Input"], Cell[26074, 696, 96, 2, 59, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[26207, 703, 49, 1, 27, "Input"], Cell[26259, 706, 1001, 24, 88, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[27297, 735, 82, 1, 34, "Input"], Cell[27382, 738, 1551, 35, 54, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[28970, 778, 82, 1, 34, "Input"], Cell[29055, 781, 3396, 70, 117, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[32488, 856, 101, 2, 31, "Input"], Cell[32592, 860, 421, 13, 65, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[33050, 878, 101, 2, 31, "Input"], Cell[33154, 882, 624, 18, 69, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[33815, 905, 68, 1, 31, "Input"], Cell[33886, 908, 126, 2, 41, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[34049, 915, 49, 1, 27, "Input"], Cell[34101, 918, 714, 19, 46, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[34852, 942, 74, 1, 31, "Input"], Cell[34929, 945, 2001, 45, 48, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[36967, 995, 74, 1, 31, "Input"], Cell[37044, 998, 5088, 111, 90, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[42169, 1114, 60, 1, 27, "Input"], Cell[42232, 1117, 90, 1, 79, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[42359, 1123, 59, 1, 27, "Input"], Cell[42421, 1126, 3875, 73, 90, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[46333, 1204, 59, 1, 27, "Input"], Cell[46395, 1207, 8112, 152, 279, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[54544, 1364, 54, 1, 33, "Input"], Cell[54601, 1367, 81, 1, 68, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[54719, 1373, 59, 1, 27, "Input"], Cell[54781, 1376, 5442, 98, 136, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[60260, 1479, 60, 1, 27, "Input"], Cell[60323, 1482, 11881, 216, 306, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[72241, 1703, 57, 1, 31, "Input"], Cell[72301, 1706, 111, 2, 37, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[72449, 1713, 63, 1, 27, "Input"], Cell[72515, 1716, 1704, 37, 75, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[74256, 1758, 60, 1, 27, "Input"], Cell[74319, 1761, 8110, 151, 279, "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[82478, 1918, 34, 0, 22, "Subsubsection"], Cell[CellGroupData[{ Cell[82537, 1922, 74, 1, 33, "Input"], Cell[82614, 1925, 123, 2, 49, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[82774, 1932, 49, 1, 27, "Input"], Cell[82826, 1935, 569, 14, 67, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[83432, 1954, 59, 1, 27, "Input"], Cell[83494, 1957, 41416, 720, 414, "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[124959, 2683, 46, 0, 22, "Subsubsection"], Cell[CellGroupData[{ Cell[125030, 2687, 139, 2, 43, "Input"], Cell[125172, 2691, 96, 2, 42, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[125305, 2698, 44, 1, 27, "Input"], Cell[125352, 2701, 60, 1, 27, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[125449, 2707, 49, 1, 27, "Input"], Cell[125501, 2710, 424, 12, 42, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[125962, 2727, 169, 3, 43, "Input"], Cell[126134, 2732, 905, 22, 65, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[127076, 2759, 175, 3, 43, "Input"], Cell[127254, 2764, 2885, 63, 54, "Output"] }, Closed]], Cell[130154, 2830, 168, 4, 32, "Text"], Cell[CellGroupData[{ Cell[130347, 2838, 144, 3, 43, "Input"], Cell[130494, 2843, 19585, 347, 261, "Output"] }, Closed]], Cell[150094, 3193, 75, 0, 32, "Text"], Cell[CellGroupData[{ Cell[150194, 3197, 142, 3, 43, "Input"], Cell[150339, 3202, 1892, 41, 60, "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[152280, 3249, 29, 0, 22, "Subsubsection"], Cell[CellGroupData[{ Cell[152334, 3253, 70, 1, 51, "Input"], Cell[152407, 3256, 86, 1, 50, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[152530, 3262, 109, 2, 51, "Input"], Cell[152642, 3266, 942, 25, 74, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[153621, 3296, 89, 1, 51, "Input"], Cell[153713, 3299, 1086, 27, 48, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[154836, 3331, 83, 1, 51, "Input"], Cell[154922, 3334, 1418, 34, 48, "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[156389, 3374, 52, 0, 22, "Subsubsection"], Cell[156444, 3376, 76, 1, 27, "Input"], Cell[CellGroupData[{ Cell[156545, 3381, 59, 1, 27, "Input"], Cell[156607, 3384, 15780, 459, 186, 4285, 313, "GraphicsData", "PostScript", \ "Graphics"], Cell[172390, 3845, 130, 3, 27, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[172557, 3853, 92, 1, 27, "Input"], Cell[172652, 3856, 1118, 28, 48, "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[173819, 3890, 34, 0, 22, "Subsubsection"], Cell[CellGroupData[{ Cell[173878, 3894, 65, 1, 29, "Input"], Cell[173946, 3897, 77, 1, 29, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[174060, 3903, 49, 1, 27, "Input"], Cell[174112, 3906, 483, 13, 44, "Output"] }, Closed]], Cell[174610, 3922, 27, 0, 32, "Text"], Cell[CellGroupData[{ Cell[174662, 3926, 88, 1, 31, "Input"], Cell[174753, 3929, 667, 17, 161, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[175457, 3951, 52, 1, 27, "Input"], Cell[175512, 3954, 1971, 65, 161, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[177520, 4024, 90, 1, 31, "Input"], Cell[177613, 4027, 2729, 64, 115, "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[180391, 4097, 58, 0, 22, "Subsubsection"], Cell[CellGroupData[{ Cell[180474, 4101, 84, 1, 33, "Input"], Cell[180561, 4104, 787, 21, 42, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[181385, 4130, 291, 11, 57, "Input"], Cell[181679, 4143, 92, 1, 27, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[181808, 4149, 68, 1, 27, "Input"], Cell[181879, 4152, 1705, 40, 49, "Output"] }, Closed]] }, Closed]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[183657, 4200, 36, 0, 69, "Section"], Cell[CellGroupData[{ Cell[183718, 4204, 33, 0, 38, "Subsection"], Cell[183754, 4206, 33, 0, 32, "Text"], Cell[CellGroupData[{ Cell[183812, 4210, 52, 1, 27, "Input"], Cell[183867, 4213, 132, 11, 162, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[184036, 4229, 45, 1, 37, "Input"], Cell[184084, 4232, 42, 1, 40, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[184163, 4238, 46, 1, 24, "Input"], Cell[184212, 4241, 132, 11, 162, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[184381, 4257, 58, 1, 30, "Input"], Cell[184442, 4260, 103, 2, 68, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[184582, 4267, 46, 1, 24, "Input"], Cell[184631, 4270, 641, 34, 507, "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[185321, 4310, 41, 0, 30, "Subsection"], Cell[185365, 4312, 318, 4, 27, "Input"], Cell[185686, 4318, 60, 0, 32, "Text"], Cell[185749, 4320, 57, 1, 47, "Input"] }, Closed]] }, Open ]] }, Open ]] } ] *) (******************************************************************* End of Mathematica Notebook file. *******************************************************************)