(***********************************************************************

                    Mathematica-Compatible Notebook

This notebook can be used on any computer system with Mathematica 3.0,
MathReader 3.0, or any compatible application. The data for the notebook 
starts with the line of 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[     19090,        810]*)
(*NotebookOutlinePosition[     19987,        841]*)
(*  CellTagsIndexPosition[     19943,        837]*)
(*WindowFrame->Normal*)



Notebook[{
Cell[TextData["\n"], "Text",
  Evaluatable->False],

Cell[TextData[" SYMBOLIC DIFFERENTIATION AND INTEGRATION"], "Section",
  Evaluatable->False],

Cell[TextData["\n"], "Text",
  Evaluatable->False],

Cell[CellGroupData[{

Cell["D[ x^n, x]", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    \(n\ x\^\(\(-1\) + n\)\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["D[ x^n, {x,5}]", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    \(\((\(-4\) + n)\)\ \((\(-3\) + n)\)\ \((\(-2\) + n)\)\ \((\(-1\) + n)\)\ 
      n\ x\^\(\(-5\) + n\)\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["D[ (x+y)^4, x, y]", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    \(12\ \((x + y)\)\^2\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Dt[ f[x] g[x] / x^2 , x]", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    RowBox[{\(-\(\(2\ f[x]\ g[x]\)\/x\^3\)\), "+", 
      FractionBox[
        RowBox[{\(g[x]\), " ", 
          RowBox[{
            SuperscriptBox["f", "\[Prime]",
              MultilineFunction->None], "[", "x", "]"}]}], \(x\^2\)], "+", 
      FractionBox[
        RowBox[{\(f[x]\), " ", 
          RowBox[{
            SuperscriptBox["g", "\[Prime]",
              MultilineFunction->None], "[", "x", "]"}]}], \(x\^2\)]}]], 
  "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Integrate[ x^n, x]", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    \(x\^\(1 + n\)\/\(1 + n\)\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Integrate[ x^2 / Sqrt[x^2 + a^2], x]", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    \(1\/2\ x\ \@\(a\^2 + x\^2\) - 1\/2\ a\^2\ Log[x + \@\(a\^2 + x\^2\)]\)], 
  "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Integrate[ E^x/x, x]", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    \(ExpIntegralEi[x]\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Integrate[ 1/(x^2+1), {x,a,b}]", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    \(\(-ArcTan[a]\) + ArcTan[b]\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Integrate[ Sin[x]^2, {x,0,1}]", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    \(1\/4\ \((2 - Sin[2])\)\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Integrate[ E^(-x^2-y^2), {x,-Infinity,Infinity},
                         {y,-Infinity,Infinity}]\
\>", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    \(\[Pi]\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Integrate[ x^3+y^3, {x,0,1}, {y,0,x} ]", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    \(1\/4\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Integrate[ x Sin[x^2+y^2], {x,0,Pi},{y,0,Pi} ]", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    \(1\/2\ \@\(\[Pi]\/2\)\ FresnelC[\@\(2\ \[Pi]\)] - 
      1\/2\ \@\(\[Pi]\/2\)\ Cos[\[Pi]\^2]\ FresnelC[\@\(2\ \[Pi]\)] + 
      1\/2\ \@\(\[Pi]\/2\)\ FresnelS[\@\(2\ \[Pi]\)]\ Sin[\[Pi]\^2]\)], 
  "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Integrate[ 1/z, {z,-I,1,I} ]", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    \(I\ \[Pi]\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Sum[ (-x)^i/i, {i,1,12} ]", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    \(\(-x\) + x\^2\/2 - x\^3\/3 + x\^4\/4 - x\^5\/5 + x\^6\/6 - x\^7\/7 + 
      x\^8\/8 - x\^9\/9 + x\^10\/10 - x\^11\/11 + x\^12\/12\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Product[ (x+k), {k,1,8} ]", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    \(\((1 + x)\)\ \((2 + x)\)\ \((3 + x)\)\ \((4 + x)\)\ \((5 + x)\)\ 
      \((6 + x)\)\ \((7 + x)\)\ \((8 + x)\)\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["myproduct = Product[ (1 - 1/(4 k^2)), {k,1,n} ]", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    \(\(2\ Gamma[1\/2 + n]\ Gamma[3\/2 + n]\)\/\(\[Pi]\ Gamma[1 + n]\^2\)\)], 
  "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["N[ myproduct /. n -> 500 ]", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    \(0.636937843640731582`\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["N[2/Pi] ", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    \(0.636619772367581404`\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Sum[ 1/i^2, {i,1,Infinity} ]", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    \(\[Pi]\^2\/6\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["N[%,9]", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    StyleBox["1.64493406684822618`",
      StyleBoxAutoDelete->True,
      PrintPrecision->9]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["N[Pi^2/6,9]", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    StyleBox["1.64493406684822618`",
      StyleBoxAutoDelete->True,
      PrintPrecision->9]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["mysum = Sum[ x^i y^j, {i,1,n},{j,1,m} ]", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    \(\(x\ \((\(-1\) + x\^n)\)\ y\ \((\(-1\) + y\^m)\)\)\/\(\((\(-1\) + x)\)\ 
        \((\(-1\) + y)\)\)\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["mysum /. {m->3, n->3}", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    \(\(x\ \((\(-1\) + x\^3)\)\ y\ \((\(-1\) + y\^3)\)\)\/\(\((\(-1\) + x)\)\ 
        \((\(-1\) + y)\)\)\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["1 + 1 == 2", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    \(True\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["2 == 0", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    \(False\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["3 < 2", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    \(False\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["2 != 1 <= 1 && a+a == 2 a", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    \(True\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["x^2 + x + 1 == 0", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    \(1 + x + x\^2 == 0\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["myeqn = %", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    \(1 + x + x\^2 == 0\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["myeqn", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    \(1 + x + x\^2 == 0\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Solve[ x^2 - x - 1 == 0, x]", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    \({{x \[Rule] 1\/2\ \((1 - \@5)\)}, {x \[Rule] 1\/2\ \((1 + \@5)\)}}\)], 
  "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["sols = x /. %", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    \({1\/2\ \((1 - \@5)\), 1\/2\ \((1 + \@5)\)}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["sols[[1]]", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    \(1\/2\ \((1 - \@5)\)\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Solve[ x^4 + 1 == 0, x]", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    \({{x \[Rule] \(-\((\(-1\))\)\^\(1/4\)\)}, {
        x \[Rule] \((\(-1\))\)\^\(1/4\)}, {
        x \[Rule] \(-\((\(-1\))\)\^\(3/4\)\)}, {
        x \[Rule] \((\(-1\))\)\^\(3/4\)}}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["N[%]", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    \({{x \[Rule] \(-0.70710678118654755`\) - 0.707106781186547461`\ I}, {
        x \[Rule] 
          \(0.70710678118654755`\[InvisibleSpace]\) + 
            0.707106781186547461`\ I}, {
        x \[Rule] 
          \(0.707106781186547372`\[InvisibleSpace]\) - 
            0.707106781186547728`\ I}, {
        x \[Rule] \(-0.707106781186547372`\) + 0.707106781186547728`\ I}}\)], 
  "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Solve[ x^7 + x^3 - 1 == 0, x] // N", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    \({{x \[Rule] 0.863146489991871312`}, {
        x \[Rule] \(-0.871734935915877073`\) - 0.578713383621329757`\ I}, {
        x \[Rule] \(-0.871734935915877073`\) + 0.578713383621329757`\ I}, {
        x \[Rule] \(-0.307464481008800083`\) - 0.858094031856240135`\ I}, {
        x \[Rule] \(-0.307464481008800083`\) + 0.858094031856240135`\ I}, {
        x \[Rule] 
          \(0.747626171928741367`\[InvisibleSpace]\) - 
            0.845385996000637618`\ I}, {
        x \[Rule] 
          \(0.747626171928741367`\[InvisibleSpace]\) + 
            0.845385996000637618`\ I}}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Solve[ Tan[ Log[x] ] == y ,x ]", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    \(Solve::"ifun" \( : \ \) 
      "Inverse functions are being used by \!\(Solve\), so some solutions may \
not be found."\)], "Message"],

Cell[BoxData[
    \({{x \[Rule] E\^ArcTan[y]}}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["FindRoot[ Cos[x] == Pi Log[x] , {x,1} ]", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    \({x \[Rule] 1.1416263761578369`}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Solve[ { x^2 + y^2 == 1, x - y == 0 }, {x,y} ]", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    \({{x \[Rule] \(-\(1\/\@2\)\), y \[Rule] \(-\(1\/\@2\)\)}, {
        x \[Rule] 1\/\@2, y \[Rule] 1\/\@2}}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Eliminate[ {a x + b y == 0, c x + d y == 1}, y ]", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    \(a\ d\ x == b\ \((\(-1\) + c\ x)\)\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Solve[%,x]", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    \({{x \[Rule] \(-\(b\/\(\(-b\)\ c + a\ d\)\)\)}}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Solve[ {x==1,x==a}, x]", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    \({}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Reduce[ {x==1,x==a}, x]", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    \(x == 1 && a == 1\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["y''[t] + a^2 y[t] == 0", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    RowBox[{
      RowBox[{\(a\^2\ y[t]\), "+", 
        RowBox[{
          SuperscriptBox["y", "\[DoublePrime]",
            MultilineFunction->None], "[", "t", "]"}]}], "==", "0"}]], 
  "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["DSolve[%, y[t], t]", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    \({{y[t] \[Rule] C[2]\ Cos[a\ t] + C[1]\ Sin[a\ t]}}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["y'[t] - a y[t]^n == 0", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    RowBox[{
      RowBox[{\(\(-a\)\ y[t]\^n\), "+", 
        RowBox[{
          SuperscriptBox["y", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}]}], "==", "0"}]], 
  "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["DSolve[%, y[t], t]", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    \(Solve::"ifun" \( : \ \) 
      "Inverse functions are being used by \!\(Solve\), so some solutions may \
not be found."\)], "Message"],

Cell[BoxData[
    \({{y[t] \[Rule] 
          \((a\ t - a\ n\ t - a\ C[1] + a\ n\ C[1])\)\^\(1\/\(1 - n\)\)}}\)], 
  "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["s1 = Series[ x Tan[x], {x,0,6} ]", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    InterpretationBox[
      RowBox[{\(x\^2\), "+", \(x\^4\/3\), "+", \(\(2\ x\^6\)\/15\), "+", 
        InterpretationBox[\(O[x]\^7\),
          SeriesData[ x, 0, {}, 2, 7, 1]]}],
      SeriesData[ x, 0, {1, 0, 
        Rational[ 1, 3], 0, 
        Rational[ 2, 15]}, 2, 7, 1]]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["s2 = Series[ 1 + x Sin[x], {x,0,10} ]", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    InterpretationBox[
      RowBox[{
      "1", "+", \(x\^2\), "-", \(x\^4\/6\), "+", \(x\^6\/120\), "-", 
        \(x\^8\/5040\), "+", \(x\^10\/362880\), "+", 
        InterpretationBox[\(O[x]\^11\),
          SeriesData[ x, 0, {}, 0, 11, 1]]}],
      SeriesData[ x, 0, {1, 0, 1, 0, 
        Rational[ -1, 6], 0, 
        Rational[ 1, 120], 0, 
        Rational[ -1, 5040], 0, 
        Rational[ 1, 362880]}, 0, 11, 1]]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\

s1 s2\
\>", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    InterpretationBox[
      RowBox[{
      \(x\^2\), "+", \(\(4\ x\^4\)\/3\), "+", \(\(3\ x\^6\)\/10\), "+", 
        InterpretationBox[\(O[x]\^7\),
          SeriesData[ x, 0, {}, 2, 7, 1]]}],
      SeriesData[ x, 0, {1, 0, 
        Rational[ 4, 3], 0, 
        Rational[ 3, 10]}, 2, 7, 1]]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["s1/s2", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    InterpretationBox[
      RowBox[{
      \(x\^2\), "-", \(\(2\ x\^4\)\/3\), "+", \(\(29\ x\^6\)\/30\), "+", 
        InterpretationBox[\(O[x]\^7\),
          SeriesData[ x, 0, {}, 2, 7, 1]]}],
      SeriesData[ x, 0, {1, 0, 
        Rational[ -2, 3], 0, 
        Rational[ 29, 30]}, 2, 7, 1]]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["s1 + Sin[x]", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    InterpretationBox[
      RowBox[{
      "x", "+", \(x\^2\), "-", \(x\^3\/6\), "+", \(x\^4\/3\), "+", 
        \(x\^5\/120\), "+", \(\(2\ x\^6\)\/15\), "+", 
        InterpretationBox[\(O[x]\^7\),
          SeriesData[ x, 0, {}, 1, 7, 1]]}],
      SeriesData[ x, 0, {1, 1, 
        Rational[ -1, 6], 
        Rational[ 1, 3], 
        Rational[ 1, 120], 
        Rational[ 2, 15]}, 1, 7, 1]]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Cos[s1]", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    InterpretationBox[
      RowBox[{
      "1", "-", \(x\^4\/2\), "-", \(x\^6\/3\), "-", \(\(53\ x\^8\)\/360\), 
        "+", 
        InterpretationBox[\(O[x]\^9\),
          SeriesData[ x, 0, {}, 0, 9, 1]]}],
      SeriesData[ x, 0, {1, 0, 0, 0, 
        Rational[ -1, 2], 0, 
        Rational[ -1, 3], 0, 
        Rational[ -53, 360]}, 0, 9, 1]]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["InverseSeries[s1]", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    InterpretationBox[
      RowBox[{
      \(\@x\), "-", \(x\^\(3/2\)\/6\), "+", \(\(11\ x\^\(5/2\)\)\/360\), "+", 
        
        InterpretationBox[\(O[x]\^3\),
          SeriesData[ x, 0, {}, 1, 6, 2]]}],
      SeriesData[ x, 0, {1, 0, 
        Rational[ -1, 6], 0, 
        Rational[ 11, 360]}, 1, 6, 2]]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["D[s1,x]", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    InterpretationBox[
      RowBox[{
      \(2\ x\), "+", \(\(4\ x\^3\)\/3\), "+", \(\(4\ x\^5\)\/5\), "+", 
        InterpretationBox[\(O[x]\^6\),
          SeriesData[ x, 0, {}, 1, 6, 1]]}],
      SeriesData[ x, 0, {2, 0, 
        Rational[ 4, 3], 0, 
        Rational[ 4, 5]}, 1, 6, 1]]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Integrate[s2,x]", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    InterpretationBox[
      RowBox[{
      "x", "+", \(x\^3\/3\), "-", \(x\^5\/30\), "+", \(x\^7\/840\), "-", 
        \(x\^9\/45360\), "+", \(x\^11\/3991680\), "+", 
        InterpretationBox[\(O[x]\^12\),
          SeriesData[ x, 0, {}, 1, 12, 1]]}],
      SeriesData[ x, 0, {1, 0, 
        Rational[ 1, 3], 0, 
        Rational[ -1, 30], 0, 
        Rational[ 1, 840], 0, 
        Rational[ -1, 45360], 0, 
        Rational[ 1, 3991680]}, 1, 12, 1]]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Series[ (1 + 2 a x^2)^(1/3), {x,0,4}]", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    InterpretationBox[
      RowBox[{
      "1", "+", \(\(2\ a\ x\^2\)\/3\), "-", \(\(4\ a\^2\ x\^4\)\/9\), "+", 
        InterpretationBox[\(O[x]\^5\),
          SeriesData[ x, 0, {}, 0, 5, 1]]}],
      SeriesData[ x, 0, {1, 0, 
        Times[ 
          Rational[ 2, 3], a], 0, 
        Times[ 
          Rational[ -4, 9], 
          Power[ a, 2]]}, 0, 5, 1]]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["3 %^2 / (2+%)", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    InterpretationBox[
      RowBox[{
      "1", "+", \(\(10\ a\ x\^2\)\/9\), "-", \(\(44\ a\^2\ x\^4\)\/81\), "+", 
        
        InterpretationBox[\(O[x]\^5\),
          SeriesData[ x, 0, {}, 0, 5, 1]]}],
      SeriesData[ x, 0, {1, 0, 
        Times[ 
          Rational[ 10, 9], a], 0, 
        Times[ 
          Rational[ -44, 81], 
          Power[ a, 2]]}, 0, 5, 1]]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Normal[%]", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    \(1 + \(10\ a\ x\^2\)\/9 - \(44\ a\^2\ x\^4\)\/81\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Series[ Log[1+ x Tan[y]],{x,0,2},{y,0,2}]", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    InterpretationBox[
      RowBox[{
        RowBox[{
          RowBox[{"(", 
            InterpretationBox[
              RowBox[{"y", "+", 
                InterpretationBox[\(O[y]\^3\),
                  SeriesData[ y, 0, {}, 1, 3, 1]]}],
              SeriesData[ y, 0, {1}, 1, 3, 1]], ")"}], " ", "x"}], "+", 
        RowBox[{
          RowBox[{"(", 
            InterpretationBox[
              RowBox[{\(-\(y\^2\/2\)\), "+", 
                InterpretationBox[\(O[y]\^3\),
                  SeriesData[ y, 0, {}, 2, 3, 1]]}],
              SeriesData[ y, 0, {
                Rational[ -1, 2]}, 2, 3, 1]], ")"}], " ", \(x\^2\)}], "+", 
        InterpretationBox[\(O[x]\^3\),
          SeriesData[ x, 0, {}, 1, 3, 1]]}],
      SeriesData[ x, 0, {
        SeriesData[ y, 0, {1}, 1, 3, 1], 
        SeriesData[ y, 0, {
          Rational[ -1, 2]}, 2, 3, 1]}, 1, 3, 1]]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["expr = Sin[x] / x", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    \(Sin[x]\/x\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Limit[ expr, x -> 0 ]", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    \(1\)], "Output"]
}, Open  ]]
},
FrontEndVersion->"Microsoft Windows 3.0",
ScreenRectangle->{{0, 1024}, {0, 740}},
WindowToolbars->{},
CellGrouping->Manual,
WindowSize->{480, 616},
WindowMargins->{{18, Automatic}, {Automatic, 13}},
PrivateNotebookOptions->{"ColorPalette"->{RGBColor, -1}},
ShowCellLabel->True,
ShowCellTags->False,
RenderingOptions->{"ObjectDithering"->True,
"RasterDithering"->False},
StyleDefinitions -> "Report.nb"
]


(***********************************************************************
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[1709, 49, 50, 1, 46, "Text"],
Cell[1762, 52, 92, 1, 67, "Section"],
Cell[1857, 55, 50, 1, 46, "Text"],

Cell[CellGroupData[{
Cell[1932, 60, 50, 1, 35, "Input"],
Cell[1985, 63, 54, 1, 49, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[2076, 69, 54, 1, 35, "Input"],
Cell[2133, 72, 133, 2, 49, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[2303, 79, 57, 1, 35, "Input"],
Cell[2363, 82, 52, 1, 49, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[2452, 88, 64, 1, 35, "Input"],
Cell[2519, 91, 455, 12, 62, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[3011, 108, 58, 1, 35, "Input"],
Cell[3072, 111, 57, 1, 64, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[3166, 117, 76, 1, 35, "Input"],
Cell[3245, 120, 104, 2, 42, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[3386, 127, 60, 1, 30, "Input"],
Cell[3449, 130, 50, 1, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[3536, 136, 70, 1, 30, "Input"],
Cell[3609, 139, 60, 1, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[3706, 145, 69, 1, 30, "Input"],
Cell[3778, 148, 56, 1, 42, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[3871, 154, 145, 4, 48, "Input"],
Cell[4019, 160, 39, 1, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[4095, 166, 78, 1, 30, "Input"],
Cell[4176, 169, 38, 1, 42, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[4251, 175, 86, 1, 30, "Input"],
Cell[4340, 178, 225, 4, 95, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[4602, 187, 68, 1, 30, "Input"],
Cell[4673, 190, 42, 1, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[4752, 196, 65, 1, 30, "Input"],
Cell[4820, 199, 163, 2, 44, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[5020, 206, 65, 1, 30, "Input"],
Cell[5088, 209, 143, 2, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[5268, 216, 87, 1, 30, "Input"],
Cell[5358, 219, 104, 2, 51, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[5499, 226, 66, 1, 30, "Input"],
Cell[5568, 229, 55, 1, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[5660, 235, 48, 1, 30, "Input"],
Cell[5711, 238, 55, 1, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[5803, 244, 68, 1, 30, "Input"],
Cell[5874, 247, 45, 1, 44, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[5956, 253, 46, 1, 30, "Input"],
Cell[6005, 256, 119, 3, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[6161, 264, 51, 1, 30, "Input"],
Cell[6215, 267, 119, 3, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[6371, 275, 79, 1, 30, "Input"],
Cell[6453, 278, 133, 2, 44, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[6623, 285, 61, 1, 30, "Input"],
Cell[6687, 288, 133, 2, 46, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[6857, 295, 50, 1, 30, "Input"],
Cell[6910, 298, 38, 1, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[6985, 304, 46, 1, 30, "Input"],
Cell[7034, 307, 39, 1, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[7110, 313, 45, 1, 30, "Input"],
Cell[7158, 316, 39, 1, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[7234, 322, 65, 1, 30, "Input"],
Cell[7302, 325, 38, 1, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[7377, 331, 56, 1, 30, "Input"],
Cell[7436, 334, 51, 1, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[7524, 340, 49, 1, 30, "Input"],
Cell[7576, 343, 51, 1, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[7664, 349, 45, 1, 30, "Input"],
Cell[7712, 352, 51, 1, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[7800, 358, 67, 1, 30, "Input"],
Cell[7870, 361, 103, 2, 42, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[8010, 368, 53, 1, 30, "Input"],
Cell[8066, 371, 76, 1, 42, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[8179, 377, 49, 1, 30, "Input"],
Cell[8231, 380, 53, 1, 42, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[8321, 386, 63, 1, 30, "Input"],
Cell[8387, 389, 211, 4, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[8635, 398, 44, 1, 30, "Input"],
Cell[8682, 401, 410, 9, 48, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[9129, 415, 74, 1, 30, "Input"],
Cell[9206, 418, 605, 11, 86, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[9848, 434, 70, 1, 30, "Input"],
Cell[9921, 437, 154, 3, 44, "Message"],
Cell[10078, 442, 60, 1, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[10175, 448, 79, 1, 30, "Input"],
Cell[10257, 451, 65, 1, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[10359, 457, 86, 1, 30, "Input"],
Cell[10448, 460, 137, 2, 46, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[10622, 467, 88, 1, 30, "Input"],
Cell[10713, 470, 67, 1, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[10817, 476, 50, 1, 30, "Input"],
Cell[10870, 479, 80, 1, 42, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[10987, 485, 62, 1, 30, "Input"],
Cell[11052, 488, 36, 1, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[11125, 494, 63, 1, 30, "Input"],
Cell[11191, 497, 50, 1, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[11278, 503, 62, 1, 30, "Input"],
Cell[11343, 506, 211, 6, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[11591, 517, 58, 1, 30, "Input"],
Cell[11652, 520, 84, 1, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[11773, 526, 61, 1, 30, "Input"],
Cell[11837, 529, 210, 6, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[12084, 540, 58, 1, 30, "Input"],
Cell[12145, 543, 154, 3, 44, "Message"],
Cell[12302, 548, 126, 3, 39, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[12465, 556, 72, 1, 30, "Input"],
Cell[12540, 559, 304, 7, 44, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[12881, 571, 77, 1, 30, "Input"],
Cell[12961, 574, 447, 11, 44, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[13445, 590, 54, 4, 48, "Input"],
Cell[13502, 596, 318, 8, 44, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[13857, 609, 45, 1, 30, "Input"],
Cell[13905, 612, 321, 8, 44, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[14263, 625, 51, 1, 30, "Input"],
Cell[14317, 628, 420, 11, 44, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[14774, 644, 47, 1, 30, "Input"],
Cell[14824, 647, 375, 10, 44, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[15236, 662, 57, 1, 30, "Input"],
Cell[15296, 665, 336, 9, 44, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[15669, 679, 47, 1, 30, "Input"],
Cell[15719, 682, 316, 8, 44, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[16072, 695, 55, 1, 30, "Input"],
Cell[16130, 698, 479, 12, 44, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[16646, 715, 77, 1, 30, "Input"],
Cell[16726, 718, 387, 11, 44, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[17150, 734, 53, 1, 30, "Input"],
Cell[17206, 737, 402, 12, 44, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[17645, 754, 49, 1, 30, "Input"],
Cell[17697, 757, 81, 1, 44, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[17815, 763, 81, 1, 30, "Input"],
Cell[17899, 766, 899, 23, 45, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[18835, 794, 57, 1, 30, "Input"],
Cell[18895, 797, 43, 1, 42, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[18975, 803, 61, 1, 30, "Input"],
Cell[19039, 806, 35, 1, 29, "Output"]
}, Open  ]]
}
]
*)




(***********************************************************************
End of Mathematica Notebook file.
***********************************************************************)