(************** Content-type: application/mathematica ************** 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[ 148308, 3606]*) (*NotebookOutlinePosition[ 148991, 3630]*) (* CellTagsIndexPosition[ 148947, 3626]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell["Looking at expressions", "Subtitle"], Cell["\<\ Ivan Cnop Vrije universiteit Brussel icnop@vub.ac.be\ \>", "Subsubtitle"], Cell[CellGroupData[{ Cell["Introduction: ", "Section"], Cell["\<\ Every Mathematica object is a mathematical expression that can \ be modified in each detail. We will use this to color the structure of the mathematical expression. \ \ \>", "Text"], Cell[CellGroupData[{ Cell["Load programming from the Mathematica 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] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Structure of formulas ", "Section"], Cell[CellGroupData[{ Cell["Nesting", "Subsection"], 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]] }, Closed]], Cell[CellGroupData[{ Cell["Atoms", "Subsection"], Cell["Atoms (elementary objects) are never colored:", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(ColorBrackets[2]\)], "Input"], Cell[BoxData[ TagBox["\<\"2\"\>", DisplayForm]], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ \(ColorBrackets[FullForm[2]]\)], "Input"], Cell[BoxData[ TagBox[ TagBox[ StyleBox["2", ShowSpecialCharacters->False, ShowStringCharacters->True, NumberMarks->True], FullForm], DisplayForm]], "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Powers", "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 considered as an atom in many cases\ \ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(ColorBrackets[TraditionalForm[%]]\)], "Input"], Cell[BoxData[ TagBox[ TagBox[ FormBox[\(b\^3 + 6\ b\^\(5/2\) + 15\ b\^2 + 20\ b\^\(3/2\) + 15\ b + 6\ \@b + 1\), "TraditionalForm"], TraditionalForm, 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[{"\<\"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", FontSize->6] }, Closed]], Cell["Brackets in TraditionalForm expressions are colored however:", "Text"], 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[ \(Factor[x\^6 - 1] // TraditionalForm\)], "Input"], Cell[BoxData[ \(TraditionalForm\`\((x - 1)\)\ \((x + 1)\)\ \((x\^2 - x + 1)\)\ \((x\^2 + x + 1)\)\)], "Output", FontSize->14, FontWeight->"Bold"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ \(ColorBrackets[%] // TraditionalForm\)], "Input"], Cell[BoxData[ FormBox[ 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], TraditionalForm]], "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]] }, Closed]], Cell[CellGroupData[{ Cell["Fractions", "Subsection"], 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[ TagBox[ FormBox[ SuperscriptBox[ StyleBox[ AdjustmentBox[ RowBox[{"(", RowBox[{"1", "+", FractionBox["1", SuperscriptBox[ StyleBox[ AdjustmentBox[ RowBox[{"(", RowBox[{ SuperscriptBox[ StyleBox[ AdjustmentBox[\((b + 1)\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 1, 0.500008]], "2"], "+", "1"}], ")"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.749996, 0.500008, 1]], "5"]]}], ")"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.749996, 1, 0.500008]], "2"], "TraditionalForm"], TraditionalForm, Editable->True], DisplayForm]], "Output", FontSize->18] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ \(ColorBrackets[FullForm[\((1 + \@\(1 + b\))\)\^6]]\)], "Input"], Cell[BoxData[ TagBox[ TagBox[ FormBox[ 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[0.500008, 1, 0.500008]], ",", StyleBox[ AdjustmentBox[\(Rational[1, 2]\), 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]]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 0.500008, 1]], ",", "6"}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], ShowSpecialCharacters->False, ShowStringCharacters->True, NumberMarks->True, Background->RGBColor[0.500008, 1, 0.500008]], FullForm], "TraditionalForm"], TraditionalForm, Editable->True], DisplayForm]], "Output", FontSize->18] }, 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", FontSize->18] }, 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[ \(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[ \(FullForm[%]\)], "Input"], Cell[BoxData[ TagBox[ StyleBox[\(Power[ Plus[1, Power[ Plus[1, Power[ Plus[1, Power[Plus[1, Power[Plus[1, x], \(-1\)]], \(-1\)]], \(-1\)]], \(-1\)]], \ \(-1\)]\), ShowSpecialCharacters->False, ShowStringCharacters->True, NumberMarks->True], FullForm]], "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", FontSize->9] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Nesting roots", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ \(Nest[1 + \@# &, x, 5]\)], "Input"], Cell[BoxData[ \(1 + \@\(1 + \@\(1 + \@\(1 + \@\(1 + \@x\)\)\)\)\)], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ \(ColorBrackets[StandardForm[%]]\)], "Input"], Cell[BoxData[ TagBox[ TagBox[ FormBox[\(1 + \@\(1 + \@\(1 + \@\(1 + \@\(1 + \@x\)\)\)\)\), "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[ 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", FontSize->6] }, 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", FontSize->9] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Integral and sums", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ \(\[Integral]\_a\%b\( 1\/\(x + 1\)\) \[DifferentialD]x\)], "Input"], Cell[BoxData[ \(\(-Log[1 + a]\) + Log[1 + b]\)], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ \(ColorBrackets[ FullForm[\[Integral]\_a\%b\( 1\/\(x + 1\)\) \[DifferentialD]x]]\)], "Input"], Cell[BoxData[ TagBox[ TagBox[ StyleBox[ AdjustmentBox[ RowBox[{"Plus", "[", RowBox[{ StyleBox[ AdjustmentBox[ RowBox[{"Times", "[", RowBox[{\(-1\), ",", StyleBox[ AdjustmentBox[ RowBox[{"Log", "[", StyleBox[ AdjustmentBox[\(Plus[1, a]\), 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, 1, 1]], ",", StyleBox[ AdjustmentBox[ RowBox[{"Log", "[", StyleBox[ AdjustmentBox[\(Plus[1, 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, 1]]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], ShowSpecialCharacters->False, ShowStringCharacters->True, NumberMarks->True, Background->RGBColor[1, 1, 0.500008]], FullForm], DisplayForm]], "Output", FontSize->18] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ \(ColorBrackets[ TraditionalForm[\[Integral]\_a\%b\( 1\/\(x + 1\)\) \[DifferentialD]x]]\)], "Input"], Cell[BoxData[ TagBox[ TagBox[ FormBox[ RowBox[{ StyleBox[ AdjustmentBox[\(log(b + 1)\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 0.500008]], "-", StyleBox[ AdjustmentBox[\(log(a + 1)\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 0.500008]]}], "TraditionalForm"], TraditionalForm, Editable->True], DisplayForm]], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ \(ColorBrackets[FullForm[Log[1 + b/\((1 + a)\)]]]\)], "Input"], Cell[BoxData[ TagBox[ TagBox[ StyleBox[ AdjustmentBox[ RowBox[{"Log", "[", StyleBox[ AdjustmentBox[ RowBox[{"Plus", "[", RowBox[{"1", ",", StyleBox[ AdjustmentBox[ RowBox[{"Times", "[", RowBox[{ StyleBox[ AdjustmentBox[ RowBox[{"Power", "[", RowBox[{ StyleBox[ AdjustmentBox[\(Plus[1, a]\), 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]], ",", "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", FontSize->18] }, Closed]], Cell["The original integral looks like", "Text", FontWeight->"Bold"], 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", FontSize->18] }, Closed]], 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", FontSize->18] }, 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", FontSize->18] }, 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", FontSize->18] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Composite expressions", "Subsection"], Cell["\<\ The above technique of visualisation is most useful for complicated \ expressions\ \>", "Text", FontWeight->"Bold"], Cell[CellGroupData[{ Cell[BoxData[ \(Integrate[1/\((x + \@\(x^2 + a^2\))\), x]\)], "Input"], Cell[BoxData[ \(\(-\(x\^2\/\(2\ a\^2\)\)\) + \(x\ \@\(a\^2 + x\^2\)\)\/\(2\ a\^2\) + 1\/2\ Log[x + \@\(a\^2 + x\^2\)]\)], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ \(ColorBrackets[TreeForm[%]]\)], "Input"], Cell[BoxData[ TagBox[ InterpretationBox[ StyleBox[ AdjustmentBox[ RowBox[{"\<\"Plus\"\>", "[", RowBox[{ InterpretationBox[GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[ RowBox[{"\<\"Times\"\>", "[", RowBox[{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}], ",", GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[\("Power"[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[\("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[ {"|", "Times"[ ColumnForm[ {"|", "Rational"[ -1, 2]}], ColumnForm[ {"|", "Power"[ a, -2]}], ColumnForm[ {"|", "Power"[ x, 2]}]]}], Editable->False], ",", InterpretationBox[GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[ RowBox[{"\<\"Times\"\>", "[", RowBox[{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}], ",", GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[\("Power"[a, \(-2\)]\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 0.500008]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}], ",", "x", ",", GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[ RowBox[{"\<\"Power\"\>", "[", RowBox[{GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[ RowBox[{"\<\"Plus\"\>", "[", RowBox[{GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[\("Power"[a, 2]\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 1]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}], ",", GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[\("Power"[x, 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}], ",", 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"[ ColumnForm[ {"|", "Rational"[ 1, 2]}], ColumnForm[ {"|", "Power"[ a, -2]}], x, ColumnForm[ {"|", "Power"[ ColumnForm[ {"|", "Plus"[ ColumnForm[ {"|", "Power"[ a, 2]}], ColumnForm[ {"|", "Power"[ x, 2]}]]}], ColumnForm[ {"|", "Rational"[ 1, 2]}]]}]]}], Editable->False], ",", InterpretationBox[GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[ RowBox[{"\<\"Times\"\>", "[", RowBox[{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}], ",", GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[ RowBox[{"\<\"Log\"\>", "[", GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[ RowBox[{"\<\"Plus\"\>", "[", RowBox[{"x", ",", GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[ RowBox[{"\<\"Power\"\>", "[", RowBox[{GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[ RowBox[{"\<\"Plus\"\>", "[", RowBox[{GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[\("Power"[a, 2]\), BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[0.500008, 1, 1]]} }, GridBaseline->{Baseline, {1, 1}}, ColumnAlignments->{Left}], ",", GridBox[{ {"\<\"|\"\>"}, { StyleBox[ AdjustmentBox[\("Power"[x, 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}], ",", 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}], "]"}], 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"[ ColumnForm[ {"|", "Rational"[ 1, 2]}], ColumnForm[ {"|", "Log"[ ColumnForm[ {"|", "Plus"[ x, ColumnForm[ {"|", "Power"[ ColumnForm[ {"|", "Plus"[ ColumnForm[ {"|", "Power"[ a, 2]}], ColumnForm[ {"|", "Power"[ x, 2]}]]}], ColumnForm[ {"|", "Rational"[ 1, 2]}]]}]]}]]}]]}], Editable->False]}], "]"}], BoxMargins->{{0, 0}, {0.5, 0.5}}], Background->RGBColor[1, 0.749996, 0.500008]], TreeForm[ Plus[ Times[ Rational[ -1, 2], Power[ a, -2], Power[ x, 2]], Times[ Rational[ 1, 2], Power[ a, -2], x, Power[ Plus[ Power[ a, 2], Power[ x, 2]], Rational[ 1, 2]]], Times[ Rational[ 1, 2], Log[ Plus[ x, Power[ Plus[ Power[ a, 2], Power[ x, 2]], Rational[ 1, 2]]]]]]], Editable->False], DisplayForm]], "Output", FontSize->7] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Piecewise definitions", "Subsection"], 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`03o`00 0?oooooooooo0?oooooo7oooool00?Oooooo00Ko8B4QohN7QoooooooooooohN7QolQ8B4Aooooo`03 o`000?oooooooooo00kooooo00?o0000ooooooooool0oooooolOooooo`00moooool01_o^k^koEEEE o`000?l0003oEEEEonk^kQ7ooooo1ol0000:ooooo`03o`000?oooooooooo0?oooooo7oooool00?oo oooo8?ooool00ol0003oooooooooo`3ooooooaoooooo003oooooob3ooooo00?o0000ooooooooool0 oooooolOooooo`00oooooolPooooo`03o`000?oooooooooo0?oooooo7oooool00?oooooo8?ooool3 o`000?oooooo7oooool00?oooooo8?ooool00ol0003oooooooooo`3ooooooaoooooo003oooooob3o oooo00?o0000ooooooooool0oooooolOooooo`00oooooolPooooo`03o`000?oooooooooo0?oooooo 7oooool00?oooooo8?ooool00ol0003oooooooooo`3ooooooaoooooo003oooooob3ooooo00?o0000 ooooooooool0oooooolOooooo`00oooooolPooooo`03o`000?oooooooooo0?oooooo7oooool00?oo oooo8?ooool00ol0003oooooooooo`3ooooooaoooooo003oooooob3ooooo00?o0000ooooooooool0 oooooolOooooo`00oooooolPooooo`03o`000?oooooooooo0?oooooo7oooool00?oooooo8?ooool0 0ol0003oooooooooo`3ooooooaoooooo003oooooob3ooooo0ol0003ooooooaoooooo003oooooob3o oooo00?o0000ooooooooool0oooooolOooooo`00oooooolPooooo`03o`000?oooooooooo0?oooooo 7oooool00?oooooo8?ooool00ol0003oooooooooo`3ooooooaoooooo003oooooob3ooooo00?o0000 ooooooooool0oooooolOooooo`00oooooolPooooo`03o`000?oooooooooo0?oooooo7oooool00?oo oooo8?ooool00ol0003oooooooooo`3ooooooaoooooo003oooooob3ooooo00?o0000ooooooooool0 oooooolOooooo`00oooooolPooooo`03o`000?oooooooooo0?oooooo7oooool00?oooooo8?ooool0 0ol0003oooooooooo`3ooooooaoooooo003oooooob3ooooo00?o0000ooooooooool0oooooolOoooo o`00oooooolPooooo`?o0000oooooolOooooo`00oooooolPooooo`03o`000?oooooooooo0?oooooo 7oooool0017ooooo00Kocooooo`03 o`000?oooooooooo013ooooo00?o0000ooooooooool03oooool00ol0003oooooooooo`0?ooooo`03 o`000?oooooooooo00oooooo00?o0000ooooooooool03oooool00ol0003oooooooooo`0?ooooo`03 o`000?oooooooooo013ooooo00?o0000ooooooooool03oooool00ol0003oooooooooo`0?ooooo`03 o`000?oooooooooo00oooooo00?o0000ooooooooool03oooool00ol0003oooooooooo`0?ooooo`03 o`000?oooooooooo013ooooo00?o0000ooooooooool03oooool00ol0003oooooooooo`0?ooooo`03 o`000?oooooooooo00oooooo00?o0000ooooooooool03oooool00ol0003oooooooooo`0@ooooo`03 o`000?oooooooooo00oooooo00?o0000ooooooooool03oooool00ol0003oooooooooo`0?ooooo`03 o`000?oooooooooo00oooooo00?o0000ooooooooool03oooool00ol0003oooooooooo`0@ooooo`03 o`000?oooooooooo00oooooo00?o0000ooooooooool03oooool00ol0003oooooooooo`0?ooooo`03 o`000?oooooooooo00oooooo00?o0000ooooooooool03oooool00ol0003oooooooooo`0@ooooo`03 o`000?oooooooooo00gooooo000>ooooo`03o`000?oooooooooo013ooooo00?o0000ooooooooool0 3oooool00ol0003oooooooooo`0?ooooo`03o`000?oooooooooo00oooooo00?o0000ooooooooool0 3oooool00ol0003oooooooooo`0?ooooo`03o`000?oooooooooo013ooooo00?o0000ooooooooool0 3oooool00ol0003oooooooooo`0?ooooo`03o`000?oooooooooo00oooooo00?o0000ooooooooool0 3oooool00ol0003oooooooooo`0?ooooo`03o`000?oooooooooo013ooooo00?o0000ooooooooool0 3oooool00ol0003oooooooooo`0?ooooo`03o`000?oooooooooo00oooooo00?o0000ooooooooool0 3oooool00ol0003oooooooooo`0@ooooo`03o`000?oooooooooo00oooooo00?o0000ooooooooool0 3oooool00ol0003oooooooooo`0?ooooo`03o`000?oooooooooo00oooooo00?o0000ooooooooool0 3oooool00ol0003oooooooooo`0@ooooo`03o`000?oooooooooo00oooooo00?o0000ooooooooool0 3oooool00ol0003oooooooooo`0?ooooo`03o`000?oooooooooo00oooooo00?o0000ooooooooool0 3oooool00ol0003oooooooooo`0@ooooo`03o`000?oooooooooo00gooooo000>ooooo`03o`000?oo oooooooo05Sooooo00?o0000ooooooooool0F?ooool00ol0003oooooooooo`1Hooooo`03o`000?oo oooooooo05Sooooo00?o0000ooooooooool0F?ooool00ol0003oooooooooo`1Hooooo`03o`000?oo oooooooo00gooooo003oooooob3ooooo00?o0000ooooooooool0oooooolOooooo`00oooooolPoooo o`03o`000?oooooooooo0?oooooo7oooool00?oooooo8?ooool00ol0003oooooooooo`3ooooooaoo oooo003oooooob3ooooo00?o0000ooooooooool0oooooolOooooo`00oooooolPooooo`03o`000?oo oooooooo0?oooooo7oooool00?oooooo8?ooool00ol0003oooooooooo`3ooooooaoooooo003ooooo ob3ooooo00?o0000ooooooooool0oooooolOooooo`00oooooolPooooo`?o0000oooooolOooooo`00 oooooolPooooo`03o`000?oooooooooo0?oooooo7oooool00?oooooo8?ooool00ol0003ooooooooo o`3ooooooaoooooo003oooooob3ooooo00?o0000ooooooooool0oooooolOooooo`00oooooolPoooo o`03o`000?oooooooooo0?oooooo7oooool00?oooooo8?ooool00ol0003oooooooooo`3ooooooaoo oooo003oooooob3ooooo00?o0000ooooooooool0oooooolOooooo`00oooooolPooooo`03o`000?oo oooooooo0?oooooo7oooool00?oooooo8?ooool00ol0003oooooooooo`3ooooooaoooooo003ooooo ob3ooooo00?o0000ooooooooool0oooooolOooooo`00oooooolPooooo`03o`000?oooooooooo0?oo oooo7oooool00?oooooo8?ooool3o`000?oooooo7oooool00?oooooo8?ooool00ol0003ooooooooo o`3ooooooaoooooo003oooooob3ooooo00?o0000ooooooooool0oooooolOooooo`00oooooolPoooo o`03o`000?oooooooooo0?oooooo7oooool00?oooooo8?ooool00ol0003oooooooooo`3ooooooaoo oooo003oooooob3ooooo00?o0000ooooooooool0oooooolOooooo`00oooooolPooooo`03o`000?oo oooooooo0?oooooo7oooool00?oooooo8?ooool00ol0003oooooooooo`3ooooooaoooooo003ooooo ob3ooooo00?o0000ooooooooool0oooooolOooooo`00oooooolPooooo`03o`000?oooooooooo0?oo oooo7oooool00?oooooo8?ooool00ol0003oooooooooo`3ooooooaoooooo003oooooob3ooooo00?o 0000ooooooooool0oooooolOooooo`00oooooolPooooo`?o0000oooooolOooooo`00oooooolPoooo o`03o`000?oooooooooo0?oooooo7oooool00?oooooo8?ooool00ol0003oooooooooo`3ooooooaoo oooo003oooooob3ooooo00?o0000ooooooooool0oooooolOooooo`00oooooolPooooo`03o`000?oo oooooooo0?oooooo7oooool00?oooooo8?ooool00ol0003oooooooooo`3ooooooaoooooo003ooooo ob3ooooo00?o0000ooooooooool0oooooolOooooo`00oooooolPooooo`03o`000?oooooooooo0?oo oooo7oooool00?oooooo8?ooool00ol0003oooooooooo`3ooooooaoooooo003oooooob3ooooo00?o 0000ooooooooool0oooooolOooooo`00oooooolPooooo`03o`000?oooooooooo0?oooooo7oooool0 0?oooooo8?ooool3o`000?oooooo7oooool00?oooooo8?ooool00ol0003oooooooooo`3ooooooaoo oooo003oooooob3ooooo00?o0000ooooooooool0oooooolOooooo`00oooooolPooooo`03o`000?oo oooooooo0?oooooo7oooool00?oooooo8?ooool00ol0003oooooooooo`3ooooooaoooooo003ooooo ob3ooooo00?o0000ooooooooool0oooooolOooooo`00oooooolPooooo`03o`000?oooooooooo0?oo oooo7oooool00?Oooooo00Kok^k^oeEEEOl0003o0000oeEEEOo^k^h7ooooo`03oeEEEOl0003oEEEE 00Kooooo00?o^[ZjodA4A?l@41000_l000000ol@413oMgMgonk^kP0:ooooo`03o`000?oooooooooo 0?oooooo7oooool00?Oooooo00Ko8B4QohN7QoooooooooooohN7QolQ8B47ooooo`?o00001_ooool0 2Ol0003oooooo`08o`000?mEEEGocooooo`03o`000?oooooooooo0?oooooo7oooool00?Kooooo00?oV9RHoeEEEOoo ool00oooool00omEEEGoV9RHooooo`0?ooooo`03o`000?oooooooooo00kooooo00?o0000oooooooo ool0oooooolOooooo`00moooool01_lQ8B7oQhN7ooooooooooooQhN7ob4Q8A7ooooo00?o0000oooo ooooool03_ooool00ol0003oooooooooo`3ooooooaoooooo003gooooo`06onk^k_mEEEGo0000o`00 0?mEEEGok^k^4Oooool7o`0000[ooooo00?o0000ooooooooool0oooooolOooooo`00oooooolPoooo o`03o`000?oooooooooo0?oooooo7oooool00?oooooo8?ooool00ol0003oooooooooo`3ooooooaoo oooo003oooooob3ooooo00?o0000ooooooooool0oooooolOooooo`00oooooolPooooo`?o0000oooo oolOooooo`00oooooolPooooo`03o`000?oooooooooo0?oooooo7oooool00?oooooo8?ooool00ol0 003oooooooooo`3ooooooaoooooo003oooooob3ooooo00?o0000ooooooooool0oooooolOooooo`00 oooooolPooooo`03o`000?oooooooooo0?oooooo7oooool00?oooooo8?ooool00ol0003ooooooooo o`3ooooooaoooooo003oooooob3ooooo00?o0000ooooooooool0oooooolOooooo`00oooooolPoooo o`03o`000?oooooooooo0?oooooo7oooool00?oooooo8?ooool00ol0003oooooooooo`3ooooooaoo oooo003oooooob3ooooo00?o0000ooooooooool0oooooolOooooo`00oooooolPooooo`03o`000?oo oooooooo0?oooooo7oooool00?oooooo8?ooool00ol0003oooooooooo`3ooooooaoooooo003ooooo ob3ooooo0ol0003ooooooaoooooo003oooooob3ooooo00?o0000ooooooooool0oooooolOooooo`00 oooooolPooooo`03o`000?oooooooooo0?oooooo7oooool00?oooooo8?ooool00ol0003ooooooooo o`3ooooooaoooooo003oooooob3ooooo00?o0000ooooooooool0oooooolOooooo`00oooooolPoooo o`03o`000?oooooooooo0?oooooo7oooool00?oooooo8?ooool00ol0003oooooooooo`3ooooooaoo oooo003oooooob3ooooo00?o0000ooooooooool0oooooolOooooo`00oooooolPooooo`03o`000?oo oooooooo0?oooooo7oooool00?oooooo8?ooool00ol0003oooooooooo`3ooooooaoooooo003ooooo ob3ooooo00?o0000ooooooooool0oooooolOooooo`00oooooolPooooo`?o0000oooooolOooooo`00 oooooolPooooo`03o`000?oooooooooo0?oooooo7oooool00?oooooo8?ooool00ol0003ooooooooo o`3ooooooaoooooo003oooooob3ooooo00?o0000ooooooooool0oooooolOooooo`00oooooolPoooo o`03o`000?oooooooooo0?oooooo7oooool00?oooooo8?ooool00ol0003oooooooooo`3ooooooaoo oooo003oooooob3ooooo00?o0000ooooooooool0oooooolOooooo`00oooooolPooooo`03o`000?oo oooooooo0?oooooo7oooool00?oooooo8?ooool00ol0003oooooooooo`3ooooooaoooooo003ooooo ob3ooooo00?o0000ooooooooool0oooooolOooooo`00oooooolPooooo`03o`000?oooooooooo0?oo oooo7oooool00?oooooo8?ooool3o`000?oooooo7oooool00?oooooo8?ooool00ol0003ooooooooo o`3ooooooaoooooo003oooooob3ooooo00?o0000ooooooooool0oooooolOooooo`00oooooolPoooo o`03o`000?oooooooooo0?oooooo7oooool00?oooooo8?ooool00ol0003oooooooooo`3ooooooaoo oooo003oooooob3ooooo00?o0000ooooooooool0oooooolOooooo`00oooooolPooooo`03o`000?oo oooooooo0?oooooo7oooool00?oooooo4?ooool00ol@413o0000o`000003o`000003oa0@4?oooooo oooo00Oooooo00?o0000ooooooooool0oooooolOooooo`00oooooolCooooo`03o`000?oooooooooo 00[ooooo00?o0000ooooooooool0oooooolOooooo`00oooooolCooooo`03o`000?oooooooooo00[o oooo00?o0000ooooooooool0oooooolOooooo`00oooooolCooooo`03o`000?oooooooooo00[ooooo 00?o0000ooooooooool0oooooolOooooo`00oooooolCooooo`03o`000?oooooooooo00[oooooG?l0 0035ooooo`00oooooolCooooo`03o`000?oooooooooo00[ooooo00?o0000ooooooooool0F?ooool0 0ol0003oooooooooo`33ooooo`00oooooolCooooo`03o`000?oooooooooo00[ooooo00?o0000oooo ooooool0F?ooool00ol0003oooooooooo`33ooooo`00oooooolCooooo`03o`000?oooooooooo00[o oooo00?o0000ooooooooool0F?ooool00ol0003oooooooooo`33ooooo`00oooooolCooooo`03o`00 0?oooooooooo00[ooooo00?o0000ooooooooool0F?ooool00ol0003oooooooooo`33ooooo`00oooo oolCooooo`03o`000?oooooooooo00[ooooo00?o0000ooooooooool0F?ooool00ol0003ooooooooo o`33ooooo`00ooooool@ooooo`04o`000?l@413oEEEEo`0000cooooo00?o0000ooooooooool0F?oo ool00ol0003oooooooooo`33ooooo`00ooooool@ooooo`04omgMgOn7QhOoA4A4o`0000cooooo00?o 0000ooooooooool0F?ooool00ol0003oooooooooo`33ooooo`00oooooolPooooo`03o`000?oooooo oooo05Sooooo00?o0000ooooooooool0`oooool00?oooooo8?ooool00ol0003oooooooooo`1Hoooo o`03o`000?oooooooooo0