(************** Content-type: application/mathematica ************** CreatedBy='Mathematica 5.2' Mathematica-Compatible Notebook This notebook can be used with any Mathematica-compatible application, such as Mathematica, MathReader or Publicon. The data for the notebook starts with the line containing stars above. To get the notebook into a Mathematica-compatible application, do one of the following: * Save the data starting with the line of stars above into a file with a name ending in .nb, then open the file inside the application; * Copy the data starting with the line of stars above to the clipboard, then use the Paste menu command inside the application. Data for notebooks contains only printable 7-bit ASCII and can be sent directly in email or through ftp in text mode. Newlines can be CR, LF or CRLF (Unix, Macintosh or MS-DOS style). NOTE: If you modify the data for this notebook not in a Mathematica- compatible application, you must delete the line below containing the word CacheID, otherwise Mathematica-compatible applications may try to use invalid cache data. For more information on notebooks and Mathematica-compatible applications, contact Wolfram Research: web: http://www.wolfram.com email: info@wolfram.com phone: +1-217-398-0700 (U.S.) Notebook reader applications are available free of charge from Wolfram Research. *******************************************************************) (*CacheID: 232*) (*NotebookFileLineBreakTest NotebookFileLineBreakTest*) (*NotebookOptionsPosition[ 35677, 940]*) (*NotebookOutlinePosition[ 36343, 963]*) (* CellTagsIndexPosition[ 36299, 959]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell["Int\[EAcute]grales d\[EAcute]finies", "Subsection"], Cell[CellGroupData[{ Cell["Calculer les int\[EAcute]grales d\[EAcute]finies suivantes", \ "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(EnonceIntegrale[2 x^3 - x + 1, x, \(-1\), 1];\)\), "\[IndentingNewLine]", \(\(EnonceIntegrale[\((1 - x)\)^2, x, 0, 1];\)\), "\[IndentingNewLine]", \(\(EnonceIntegrale[Exp[2 u], u, 0, 1];\)\), "\[IndentingNewLine]", \(\(EnonceIntegrale[t\ Sqrt[t^2 + 4], t, 4, 2];\)\), "\[IndentingNewLine]", \(\(EnonceIntegrale[Cos[x]^2\ Sin[x], x, \[Pi]/4, \[Pi]/3, Cos[x]];\)\), "\[IndentingNewLine]", \(\(EnonceIntegrale[Log[x]^2/x, x, 1, \[ExponentialE]];\)\), "\[IndentingNewLine]", \(\(\(EnonceIntegrale[Exp[x]/\((Exp[x] - 1)\), x, Log[2], Log[3]];\)\(\[IndentingNewLine]\) \)\), "\[IndentingNewLine]", \(\(\(EnonceIntegrale[\((2 x - 1)\)\ Log[x], x, 1/\[ExponentialE], \[ExponentialE]];\)\(\[IndentingNewLine]\) \)\), "\[IndentingNewLine]", \(\(EnonceIntegrale[2 x\ Sqrt[4 - x], x, \(-1\), 2];\)\), "\[IndentingNewLine]", \(\(\(EnonceIntegrale[\((t - 2)\)/\((t^2 - 4 t + 3)\), t, \(-2\), \(-1\)];\)\(\[IndentingNewLine]\) \)\), "\[IndentingNewLine]", \(\(EnonceIntegrale[Tan[x]\ \((1 + Tan[x]^2)\), x, \[Pi]/4, 0];\)\)}], "Input", CellOpen->False], Cell[BoxData[ FormBox[ InterpretationBox["\<\"\\!\\(\[Integral]\\_\\!\\(TraditionalForm\\`\\(-\ 1\\)\\)\\%\\!\\(TraditionalForm\\`1\\)\\)\\!\\(TraditionalForm\\`\\(\\(\\(2\\\ \\ x\\^3\\)\\) - x + 1\\)\\) \ \[DifferentialD]\\!\\(TraditionalForm\\`x\\)\"\>", StringForm[ "\!\(\[Integral]\_`1`\%`2`\)`3` \[DifferentialD]`4`", -1, 1, Plus[ 1, Times[ -1, x], Times[ 2, Power[ x, 3]]], x], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox["\<\"\\!\\(\[Integral]\\_\\!\\(TraditionalForm\\`0\\)\ \\%\\!\\(TraditionalForm\\`1\\)\\)\\!\\(TraditionalForm\\`\\((1 - \ x)\\)\\^2\\) \[DifferentialD]\\!\\(TraditionalForm\\`x\\)\"\>", StringForm[ "\!\(\[Integral]\_`1`\%`2`\)`3` \[DifferentialD]`4`", 0, 1, Power[ Plus[ 1, Times[ -1, x]], 2], x], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox["\<\"\\!\\(\[Integral]\\_\\!\\(TraditionalForm\\`0\\)\ \\%\\!\\(TraditionalForm\\`1\\)\\)\\!\\(TraditionalForm\\`\[ExponentialE]\\^\\\ (2\\\\ u\\)\\) \[DifferentialD]\\!\\(TraditionalForm\\`u\\)\"\>", StringForm[ "\!\(\[Integral]\_`1`\%`2`\)`3` \[DifferentialD]`4`", 0, 1, Power[ E, Times[ 2, u]], u], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox["\<\"\\!\\(\[Integral]\\_\\!\\(TraditionalForm\\`4\\)\ \\%\\!\\(TraditionalForm\\`2\\)\\)\\!\\(TraditionalForm\\`\\(t\\\\ \ \\@\\(t\\^2 + 4\\)\\)\\) \[DifferentialD]\\!\\(TraditionalForm\\`t\\)\"\>", StringForm[ "\!\(\[Integral]\_`1`\%`2`\)`3` \[DifferentialD]`4`", 4, 2, Times[ t, Power[ Plus[ 4, Power[ t, 2]], Rational[ 1, 2]]], t], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox["\<\"\\!\\(\[Integral]\\_\\!\\(TraditionalForm\\`1\\)\ \\%\\!\\(TraditionalForm\\`\[ExponentialE]\\)\\)\\!\\(TraditionalForm\\`\\(\ TraditionalForm\\`\\(\\(\\(ln\\^2\\)\\)[x]\\)\\)\\/x\\) \ \[DifferentialD]\\!\\(TraditionalForm\\`x\\)\"\>", StringForm[ "\!\(\[Integral]\_`1`\%`2`\)`3` \[DifferentialD]`4`", 1, E, Times[ Power[ x, -1], Power[ Log[ x], 2]], x], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox["\<\"\\!\\(\[Integral]\\_\\!\\(TraditionalForm\\`\\(\ TraditionalForm\\`\\(ln(2)\\)\\)\\)\\%\\!\\(TraditionalForm\\`\\(\ TraditionalForm\\`\\(ln(3)\\)\\)\\)\\)\\!\\(TraditionalForm\\`\[ExponentialE]\ \\^x\\/\\(\\(\\(-1\\)\\) + \[ExponentialE]\\^x\\)\\) \ \[DifferentialD]\\!\\(TraditionalForm\\`x\\)\"\>", StringForm[ "\!\(\[Integral]\_`1`\%`2`\)`3` \[DifferentialD]`4`", Log[ 2], Log[ 3], Times[ Power[ E, x], Power[ Plus[ -1, Power[ E, x]], -1]], x], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox["\<\"\\!\\(\[Integral]\\_\\!\\(TraditionalForm\\`1\\/\ \[ExponentialE]\\)\\%\\!\\(TraditionalForm\\`\[ExponentialE]\\)\\)\\!\\(\ TraditionalForm\\`\\(\\(\\((\\(\\(2\\\\ x\\)\\) - 1)\\)\\)\\\\ \ \\(\\(TraditionalForm\\`\\(ln(x)\\)\\)\\)\\)\\) \ \[DifferentialD]\\!\\(TraditionalForm\\`x\\)\"\>", StringForm[ "\!\(\[Integral]\_`1`\%`2`\)`3` \[DifferentialD]`4`", Power[ E, -1], E, Times[ Plus[ -1, Times[ 2, x]], Log[ x]], x], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox["\<\"\\!\\(\[Integral]\\_\\!\\(TraditionalForm\\`\\(-\ 1\\)\\)\\%\\!\\(TraditionalForm\\`2\\)\\)\\!\\(TraditionalForm\\`\\(2\\\\ \\@\ \\(4 - x\\)\\\\ x\\)\\) \[DifferentialD]\\!\\(TraditionalForm\\`x\\)\"\>", StringForm[ "\!\(\[Integral]\_`1`\%`2`\)`3` \[DifferentialD]`4`", -1, 2, Times[ 2, Power[ Plus[ 4, Times[ -1, x]], Rational[ 1, 2]], x], x], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox["\<\"\\!\\(\[Integral]\\_\\!\\(TraditionalForm\\`\\(-\ 2\\)\\)\\%\\!\\(TraditionalForm\\`\\(-1\\)\\)\\)\\!\\(TraditionalForm\\`\\(t \ - 2\\)\\/\\(t\\^2 - \\(\\(4\\\\ t\\)\\) + 3\\)\\) \ \[DifferentialD]\\!\\(TraditionalForm\\`t\\)\"\>", StringForm[ "\!\(\[Integral]\_`1`\%`2`\)`3` \[DifferentialD]`4`", -2, -1, Times[ Plus[ -2, t], Power[ Plus[ 3, Times[ -4, t], Power[ t, 2]], -1]], t], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox["\<\"\\!\\(\[Integral]\\_\\!\\(TraditionalForm\\`\[Pi]\ \\/4\\)\\%\\!\\(TraditionalForm\\`0\\)\\)\\!\\(TraditionalForm\\`\\(\\(\\(\ TraditionalForm\\`\\(tg(x)\\)\\)\\)\\\\ \\(\\((\\(\\(TraditionalForm\\`\\(\\(\ \\(tg\\^2\\)\\)[x]\\)\\)\\) + 1)\\)\\)\\)\\) \ \[DifferentialD]\\!\\(TraditionalForm\\`x\\)\"\>", StringForm[ "\!\(\[Integral]\_`1`\%`2`\)`3` \[DifferentialD]`4`", Times[ Rational[ 1, 4], Pi], 0, Times[ Tan[ x], Plus[ 1, Power[ Tan[ x], 2]]], x], Editable->False], TraditionalForm]], "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Solutions", "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(CalculIntegrale[2 x^3 - x + 1, x, \(-1\), 1];\)\), "\[IndentingNewLine]", \(\(CalculIntegrale[\((1 - x)\)^2, x, 0, 1];\)\), "\[IndentingNewLine]", \(\(CalculIntegrale[Exp[2 u], u, 0, 1];\)\), "\[IndentingNewLine]", \(\(CalculIntegrale[t\ Sqrt[t^2 + 4], t, 4, 2];\)\), "\[IndentingNewLine]", \(\(CalculIntegrale[Cos[x]^2\ Sin[x], x, \[Pi]/4, \[Pi]/3, Cos[x]];\)\), "\[IndentingNewLine]", \(\(CalculIntegrale[Log[x]^2/x, x, 1, \[ExponentialE]];\)\), "\[IndentingNewLine]", \(\(\(CalculIntegrale[Exp[x]/\((Exp[x] - 1)\), x, Log[2], Log[3]];\)\(\[IndentingNewLine]\) \)\), "\[IndentingNewLine]", \(\(\(CalculIntegrale[\((2 x - 1)\)\ Log[x], x, 1/\[ExponentialE], \[ExponentialE]];\)\(\[IndentingNewLine]\) \)\), "\[IndentingNewLine]", \(\(CalculIntegrale[2 x\ Sqrt[4 - x], x, \(-1\), 2];\)\), "\[IndentingNewLine]", \(\(\(CalculIntegrale[\((t - 2)\)/\((t^2 - 4 t + 3)\), t, \(-2\), \(-1\)];\)\(\[IndentingNewLine]\) \)\), "\[IndentingNewLine]", \(\(CalculIntegrale[Tan[x]\ \((1 + Tan[x]^2)\), x, \[Pi]/4, 0];\)\)}], "Input", CellOpen->False], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ InterpretationBox["\<\"\\!\\(\[Integral]\\_\\!\\(TraditionalForm\\`\ \\(-1\\)\\)\\%\\!\\(TraditionalForm\\`1\\)\\)\\!\\(TraditionalForm\\`\\(\\(\\(\ 2\\\\ x\\^3\\)\\) - x + 1\\)\\) \[DifferentialD]\\!\\(TraditionalForm\\`x\\) \ = \"\>", StringForm[ "\!\(\[Integral]\_`1`\%`2`\)`3` \[DifferentialD]`4` = ", -1, 1, Plus[ 1, Times[ -1, x], Times[ 2, Power[ x, 3]]], x], Editable->False], "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\*StyleBox[\\\"\\\\\ \\\"[\\\\\\\"\\\", Rule[FontSize, 24]]\\) \ \\!\\(TraditionalForm\\`\\(x\\^4\\/2 - x\\^2\\/2 + \ x\\)\\)\\!\\(\\(\\!\\(TraditionalForm\\`\\*StyleBox[\\\"\\\\\\\"]\\\\\\\"\\\",\ Rule[FontSize, \ 24]]\\)\\_\\!\\(TraditionalForm\\`\\(-1\\)\\)\\%\\!\\(TraditionalForm\\`1\\)\\\ )\\) = \"\>", StringForm[ "`4` `1`\!\(\(`5`\_`2`\%`3`\)\) = ", Plus[ x, Times[ Rational[ -1, 2], Power[ x, 2]], Times[ Rational[ 1, 2], Power[ x, 4]]], -1, 1, StyleForm[ "[", FontSize -> 24], StyleForm[ "]", FontSize -> 24]], Editable->False], "\[InvisibleSpace]", "2"}], SequenceForm[ StringForm[ "\!\(\[Integral]\_`1`\%`2`\)`3` \[DifferentialD]`4` = ", -1, 1, Plus[ 1, Times[ -1, x], Times[ 2, Power[ x, 3]]], x], StringForm[ "`4` `1`\!\(\(`5`\_`2`\%`3`\)\) = ", Plus[ x, Times[ Rational[ -1, 2], Power[ x, 2]], Times[ Rational[ 1, 2], Power[ x, 4]]], -1, 1, StyleForm[ "[", FontSize -> 24], StyleForm[ "]", FontSize -> 24]], 2], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ InterpretationBox["\<\"\\!\\(\[Integral]\\_\\!\\(TraditionalForm\\`\ 0\\)\\%\\!\\(TraditionalForm\\`1\\)\\)\\!\\(TraditionalForm\\`\\((1 - \ x)\\)\\^2\\) \[DifferentialD]\\!\\(TraditionalForm\\`x\\) = \"\>", StringForm[ "\!\(\[Integral]\_`1`\%`2`\)`3` \[DifferentialD]`4` = ", 0, 1, Power[ Plus[ 1, Times[ -1, x]], 2], x], Editable->False], "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\*StyleBox[\\\"\\\\\ \\\"[\\\\\\\"\\\", Rule[FontSize, 24]]\\) \ \\!\\(TraditionalForm\\`\\(x\\^3\\/3 - x\\^2 + \ x\\)\\)\\!\\(\\(\\!\\(TraditionalForm\\`\\*StyleBox[\\\"\\\\\\\"]\\\\\\\"\\\",\ Rule[FontSize, \ 24]]\\)\\_\\!\\(TraditionalForm\\`0\\)\\%\\!\\(TraditionalForm\\`1\\)\\)\\) = \ \"\>", StringForm[ "`4` `1`\!\(\(`5`\_`2`\%`3`\)\) = ", Plus[ x, Times[ -1, Power[ x, 2]], Times[ Rational[ 1, 3], Power[ x, 3]]], 0, 1, StyleForm[ "[", FontSize -> 24], StyleForm[ "]", FontSize -> 24]], Editable->False], "\[InvisibleSpace]", \(1\/3\)}], SequenceForm[ StringForm[ "\!\(\[Integral]\_`1`\%`2`\)`3` \[DifferentialD]`4` = ", 0, 1, Power[ Plus[ 1, Times[ -1, x]], 2], x], StringForm[ "`4` `1`\!\(\(`5`\_`2`\%`3`\)\) = ", Plus[ x, Times[ -1, Power[ x, 2]], Times[ Rational[ 1, 3], Power[ x, 3]]], 0, 1, StyleForm[ "[", FontSize -> 24], StyleForm[ "]", FontSize -> 24]], Rational[ 1, 3]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ InterpretationBox["\<\"\\!\\(\[Integral]\\_\\!\\(TraditionalForm\\`\ 0\\)\\%\\!\\(TraditionalForm\\`1\\)\\)\\!\\(TraditionalForm\\`\[ExponentialE]\ \\^\\(2\\\\ u\\)\\) \[DifferentialD]\\!\\(TraditionalForm\\`u\\) = \"\>", StringForm[ "\!\(\[Integral]\_`1`\%`2`\)`3` \[DifferentialD]`4` = ", 0, 1, Power[ E, Times[ 2, u]], u], Editable->False], "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\*StyleBox[\\\"\\\\\ \\\"[\\\\\\\"\\\", Rule[FontSize, 24]]\\) \\!\\(TraditionalForm\\`\ \[ExponentialE]\\^\\(2\\\\ \ u\\)\\/2\\)\\!\\(\\(\\!\\(TraditionalForm\\`\\*StyleBox[\\\"\\\\\\\"]\\\\\\\"\ \\\", Rule[FontSize, \ 24]]\\)\\_\\!\\(TraditionalForm\\`0\\)\\%\\!\\(TraditionalForm\\`1\\)\\)\\) = \ \"\>", StringForm[ "`4` `1`\!\(\(`5`\_`2`\%`3`\)\) = ", Times[ Rational[ 1, 2], Power[ E, Times[ 2, u]]], 0, 1, StyleForm[ "[", FontSize -> 24], StyleForm[ "]", FontSize -> 24]], Editable->False], "\[InvisibleSpace]", \(1\/2\ \((\(-1\) + \[ExponentialE]\^2)\)\)}], SequenceForm[ StringForm[ "\!\(\[Integral]\_`1`\%`2`\)`3` \[DifferentialD]`4` = ", 0, 1, Power[ E, Times[ 2, u]], u], StringForm[ "`4` `1`\!\(\(`5`\_`2`\%`3`\)\) = ", Times[ Rational[ 1, 2], Power[ E, Times[ 2, u]]], 0, 1, StyleForm[ "[", FontSize -> 24], StyleForm[ "]", FontSize -> 24]], Times[ Rational[ 1, 2], Plus[ -1, Power[ E, 2]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ InterpretationBox["\<\"\\!\\(\[Integral]\\_\\!\\(TraditionalForm\\`\ 4\\)\\%\\!\\(TraditionalForm\\`2\\)\\)\\!\\(TraditionalForm\\`\\(t\\\\ \ \\@\\(t\\^2 + 4\\)\\)\\) \[DifferentialD]\\!\\(TraditionalForm\\`t\\) = \"\>", StringForm[ "\!\(\[Integral]\_`1`\%`2`\)`3` \[DifferentialD]`4` = ", 4, 2, Times[ t, Power[ Plus[ 4, Power[ t, 2]], Rational[ 1, 2]]], t], Editable->False], "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\*StyleBox[\\\"\\\\\ \\\"[\\\\\\\"\\\", Rule[FontSize, 24]]\\) \ \\!\\(TraditionalForm\\`\\(1\\/3\\\\ \\((t\\^2 + \ 4)\\)\\^\\(3/2\\)\\)\\)\\!\\(\\(\\!\\(TraditionalForm\\`\\*StyleBox[\\\"\\\\\\\ \"]\\\\\\\"\\\", Rule[FontSize, \ 24]]\\)\\_\\!\\(TraditionalForm\\`4\\)\\%\\!\\(TraditionalForm\\`2\\)\\)\\) = \ \"\>", StringForm[ "`4` `1`\!\(\(`5`\_`2`\%`3`\)\) = ", Times[ Rational[ 1, 3], Power[ Plus[ 4, Power[ t, 2]], Rational[ 3, 2]]], 4, 2, StyleForm[ "[", FontSize -> 24], StyleForm[ "]", FontSize -> 24]], Editable->False], "\[InvisibleSpace]", \(8\/3\ \((2\ \@2 - 5\ \@5)\)\)}], SequenceForm[ StringForm[ "\!\(\[Integral]\_`1`\%`2`\)`3` \[DifferentialD]`4` = ", 4, 2, Times[ t, Power[ Plus[ 4, Power[ t, 2]], Rational[ 1, 2]]], t], StringForm[ "`4` `1`\!\(\(`5`\_`2`\%`3`\)\) = ", Times[ Rational[ 1, 3], Power[ Plus[ 4, Power[ t, 2]], Rational[ 3, 2]]], 4, 2, StyleForm[ "[", FontSize -> 24], StyleForm[ "]", FontSize -> 24]], Times[ Rational[ 8, 3], Plus[ Times[ 2, Power[ 2, Rational[ 1, 2]]], Times[ -5, Power[ 5, Rational[ 1, 2]]]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ InterpretationBox["\<\"\\!\\(\[Integral]\\_\\!\\(TraditionalForm\\`\ \[Pi]\\/4\\)\\%\\!\\(TraditionalForm\\`\[Pi]\\/3\\)\\)\\!\\(TraditionalForm\\`\ \\(\\(\\(\\(\\(cos\\^2\\)\\)(x)\\)\\)\\\\ \\(\\(sin(x)\\)\\)\\)\\) \ \[DifferentialD]\\!\\(TraditionalForm\\`x\\) = \"\>", StringForm[ "\!\(\[Integral]\_`1`\%`2`\)`3` \[DifferentialD]`4` = ", Times[ Rational[ 1, 4], Pi], Times[ Rational[ 1, 3], Pi], Times[ Power[ Cos[ x], 2], Sin[ x]], x], Editable->False], "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\*StyleBox[\\\"\\\\\ \\\"[\\\\\\\"\\\", Rule[FontSize, \ 24]]\\)\\!\\(TraditionalForm\\`\\(\\(\\(-\\(\\(1\\/3\\)\\)\\)\\)\\\\ \ \\(\\(\\(\\(cos\\^3\\)\\)(x)\\)\\)\\)\\)\\!\\(\\(\\!\\(TraditionalForm\\`\\*\ StyleBox[\\\"\\\\\\\"]\\\\\\\"\\\", Rule[FontSize, \ 24]]\\)\\_\\!\\(TraditionalForm\\`\[Pi]\\/4\\)\\%\\!\\(TraditionalForm\\`\[Pi]\ \\/3\\)\\)\\) = \"\>", StringForm[ "`4``1`\!\(\(`5`\_`2`\%`3`\)\) = ", Times[ Rational[ -1, 3], Power[ Cos[ x], 3]], Times[ Rational[ 1, 4], Pi], Times[ Rational[ 1, 3], Pi], StyleForm[ "[", FontSize -> 24], StyleForm[ "]", FontSize -> 24]], Editable->False], "\[InvisibleSpace]", \(1\/24\ \((\(-1\) + 2\ \@2)\)\)}], SequenceForm[ StringForm[ "\!\(\[Integral]\_`1`\%`2`\)`3` \[DifferentialD]`4` = ", Times[ Rational[ 1, 4], Pi], Times[ Rational[ 1, 3], Pi], Times[ Power[ Cos[ x], 2], Sin[ x]], x], StringForm[ "`4``1`\!\(\(`5`\_`2`\%`3`\)\) = ", Times[ Rational[ -1, 3], Power[ Cos[ x], 3]], Times[ Rational[ 1, 4], Pi], Times[ Rational[ 1, 3], Pi], StyleForm[ "[", FontSize -> 24], StyleForm[ "]", FontSize -> 24]], Times[ Rational[ 1, 24], Plus[ -1, Times[ 2, Power[ 2, Rational[ 1, 2]]]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ InterpretationBox["\<\"\\!\\(\[Integral]\\_\\!\\(TraditionalForm\\`\ 1\\)\\%\\!\\(TraditionalForm\\`\[ExponentialE]\\)\\)\\!\\(TraditionalForm\\`\\\ (TraditionalForm\\`\\(\\(\\(ln\\^2\\)\\)[x]\\)\\)\\/x\\) \ \[DifferentialD]\\!\\(TraditionalForm\\`x\\) = \"\>", StringForm[ "\!\(\[Integral]\_`1`\%`2`\)`3` \[DifferentialD]`4` = ", 1, E, Times[ Power[ x, -1], Power[ Log[ x], 2]], x], Editable->False], "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\*StyleBox[\\\"\\\\\ \\\"[\\\\\\\"\\\", Rule[FontSize, 24]]\\) \ \\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\(\\(\\(ln\\^3\\)\\)[x]\\)\\)\\/\ 3\\)\\!\\(\\(\\!\\(TraditionalForm\\`\\*StyleBox[\\\"\\\\\\\"]\\\\\\\"\\\", \ Rule[FontSize, 24]]\\)\\_\\!\\(TraditionalForm\\`1\\)\\%\\!\\(TraditionalForm\ \\`\[ExponentialE]\\)\\)\\) = \"\>", StringForm[ "`4` `1`\!\(\(`5`\_`2`\%`3`\)\) = ", Times[ Rational[ 1, 3], Power[ Log[ x], 3]], 1, E, StyleForm[ "[", FontSize -> 24], StyleForm[ "]", FontSize -> 24]], Editable->False], "\[InvisibleSpace]", \(1\/3\)}], SequenceForm[ StringForm[ "\!\(\[Integral]\_`1`\%`2`\)`3` \[DifferentialD]`4` = ", 1, E, Times[ Power[ x, -1], Power[ Log[ x], 2]], x], StringForm[ "`4` `1`\!\(\(`5`\_`2`\%`3`\)\) = ", Times[ Rational[ 1, 3], Power[ Log[ x], 3]], 1, E, StyleForm[ "[", FontSize -> 24], StyleForm[ "]", FontSize -> 24]], Rational[ 1, 3]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ InterpretationBox["\<\"\\!\\(\[Integral]\\_\\!\\(TraditionalForm\\`\ \\(TraditionalForm\\`\\(ln(2)\\)\\)\\)\\%\\!\\(TraditionalForm\\`\\(\ TraditionalForm\\`\\(ln(3)\\)\\)\\)\\)\\!\\(TraditionalForm\\`\[ExponentialE]\ \\^x\\/\\(\\(\\(-1\\)\\) + \[ExponentialE]\\^x\\)\\) \ \[DifferentialD]\\!\\(TraditionalForm\\`x\\) = \"\>", StringForm[ "\!\(\[Integral]\_`1`\%`2`\)`3` \[DifferentialD]`4` = ", Log[ 2], Log[ 3], Times[ Power[ E, x], Power[ Plus[ -1, Power[ E, x]], -1]], x], Editable->False], "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\*StyleBox[\\\"\\\\\ \\\"[\\\\\\\"\\\", Rule[FontSize, 24]]\\) \ \\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\(ln(\\(\\(\[LeftBracketingBar] \ \\(\\(\\(\\(-1\\)\\) + \[ExponentialE]\\^x\\)\\) \[RightBracketingBar]\\)\\))\ \\)\\)\\)\\!\\(\\(\\!\\(TraditionalForm\\`\\*StyleBox[\\\"\\\\\\\"]\\\\\\\"\\\ \", Rule[FontSize, \ 24]]\\)\\_\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\(ln(2)\\)\\)\\)\\%\\!\ \\(TraditionalForm\\`\\(TraditionalForm\\`\\(ln(3)\\)\\)\\)\\)\\) = \"\>", StringForm[ "`4` `1`\!\(\(`5`\_`2`\%`3`\)\) = ", Log[ Abs[ Plus[ -1, Power[ E, x]]]], Log[ 2], Log[ 3], StyleForm[ "[", FontSize -> 24], StyleForm[ "]", FontSize -> 24]], Editable->False], "\[InvisibleSpace]", FormBox[\(ln(2)\), "TraditionalForm"]}], SequenceForm[ StringForm[ "\!\(\[Integral]\_`1`\%`2`\)`3` \[DifferentialD]`4` = ", Log[ 2], Log[ 3], Times[ Power[ E, x], Power[ Plus[ -1, Power[ E, x]], -1]], x], StringForm[ "`4` `1`\!\(\(`5`\_`2`\%`3`\)\) = ", Log[ Abs[ Plus[ -1, Power[ E, x]]]], Log[ 2], Log[ 3], StyleForm[ "[", FontSize -> 24], StyleForm[ "]", FontSize -> 24]], Log[ 2]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ InterpretationBox["\<\"\\!\\(\[Integral]\\_\\!\\(TraditionalForm\\`\ 1\\/\[ExponentialE]\\)\\%\\!\\(TraditionalForm\\`\[ExponentialE]\\)\\)\\!\\(\ TraditionalForm\\`\\(\\(\\((\\(\\(2\\\\ x\\)\\) - 1)\\)\\)\\\\ \ \\(\\(TraditionalForm\\`\\(ln(x)\\)\\)\\)\\)\\) \ \[DifferentialD]\\!\\(TraditionalForm\\`x\\) = \"\>", StringForm[ "\!\(\[Integral]\_`1`\%`2`\)`3` \[DifferentialD]`4` = ", Power[ E, -1], E, Times[ Plus[ -1, Times[ 2, x]], Log[ x]], x], Editable->False], "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\*StyleBox[\\\"\\\\\ \\\"[\\\\\\\"\\\", Rule[FontSize, 24]]\\) \ \\!\\(TraditionalForm\\`\\(\\(\\(-\\(\\(x\\^2\\/2\\)\\)\\)\\) + x + \\(\\(\\(\ \\((x\\^2 - x)\\)\\)\\\\ \ \\(\\(TraditionalForm\\`\\(ln(x)\\)\\)\\)\\)\\)\\)\\)\\!\\(\\(\\!\\(\ TraditionalForm\\`\\*StyleBox[\\\"\\\\\\\"]\\\\\\\"\\\", Rule[FontSize, \ 24]]\\)\\_\\!\\(TraditionalForm\\`1\\/\[ExponentialE]\\)\\%\\!\\(\ TraditionalForm\\`\[ExponentialE]\\)\\)\\) = \"\>", StringForm[ "`4` `1`\!\(\(`5`\_`2`\%`3`\)\) = ", Plus[ x, Times[ Rational[ -1, 2], Power[ x, 2]], Times[ Plus[ Times[ -1, x], Power[ x, 2]], Log[ x]]], Power[ E, -1], E, StyleForm[ "[", FontSize -> 24], StyleForm[ "]", FontSize -> 24]], Editable->False], "\[InvisibleSpace]", \(\(3 - 4\ \[ExponentialE] + \[ExponentialE]\^4\)\/\(2\ \ \[ExponentialE]\^2\)\)}], SequenceForm[ StringForm[ "\!\(\[Integral]\_`1`\%`2`\)`3` \[DifferentialD]`4` = ", Power[ E, -1], E, Times[ Plus[ -1, Times[ 2, x]], Log[ x]], x], StringForm[ "`4` `1`\!\(\(`5`\_`2`\%`3`\)\) = ", Plus[ x, Times[ Rational[ -1, 2], Power[ x, 2]], Times[ Plus[ Times[ -1, x], Power[ x, 2]], Log[ x]]], Power[ E, -1], E, StyleForm[ "[", FontSize -> 24], StyleForm[ "]", FontSize -> 24]], Times[ Rational[ 1, 2], Power[ E, -2], Plus[ 3, Times[ -4, E], Power[ E, 4]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ InterpretationBox["\<\"\\!\\(\[Integral]\\_\\!\\(TraditionalForm\\`\ \\(-1\\)\\)\\%\\!\\(TraditionalForm\\`2\\)\\)\\!\\(TraditionalForm\\`\\(2\\\\ \ \\@\\(4 - x\\)\\\\ x\\)\\) \[DifferentialD]\\!\\(TraditionalForm\\`x\\) = \ \"\>", StringForm[ "\!\(\[Integral]\_`1`\%`2`\)`3` \[DifferentialD]`4` = ", -1, 2, Times[ 2, Power[ Plus[ 4, Times[ -1, x]], Rational[ 1, 2]], x], x], Editable->False], "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\*StyleBox[\\\"\\\\\ \\\"[\\\\\\\"\\\", Rule[FontSize, 24]]\\) \ \\!\\(TraditionalForm\\`\\(\\(\\(-\\(\\(4\\/15\\)\\)\\)\\)\\\\ \\((4 - \ x)\\)\\^\\(3/2\\)\\\\ \\(\\((\\(\\(3\\\\ x\\)\\) + 8)\\)\\)\\)\\)\\!\\(\\(\\!\ \\(TraditionalForm\\`\\*StyleBox[\\\"\\\\\\\"]\\\\\\\"\\\", Rule[FontSize, \ 24]]\\)\\_\\!\\(TraditionalForm\\`\\(-1\\)\\)\\%\\!\\(TraditionalForm\\`2\\)\\\ )\\) = \"\>", StringForm[ "`4` `1`\!\(\(`5`\_`2`\%`3`\)\) = ", Times[ Rational[ -4, 15], Power[ Plus[ 4, Times[ -1, x]], Rational[ 3, 2]], Plus[ 8, Times[ 3, x]]], -1, 2, StyleForm[ "[", FontSize -> 24], StyleForm[ "]", FontSize -> 24]], Editable->False], "\[InvisibleSpace]", \(\(-\(4\/15\)\)\ \((28\ \@2 - 25\ \@5)\)\)}], SequenceForm[ StringForm[ "\!\(\[Integral]\_`1`\%`2`\)`3` \[DifferentialD]`4` = ", -1, 2, Times[ 2, Power[ Plus[ 4, Times[ -1, x]], Rational[ 1, 2]], x], x], StringForm[ "`4` `1`\!\(\(`5`\_`2`\%`3`\)\) = ", Times[ Rational[ -4, 15], Power[ Plus[ 4, Times[ -1, x]], Rational[ 3, 2]], Plus[ 8, Times[ 3, x]]], -1, 2, StyleForm[ "[", FontSize -> 24], StyleForm[ "]", FontSize -> 24]], Times[ Rational[ -4, 15], Plus[ Times[ 28, Power[ 2, Rational[ 1, 2]]], Times[ -25, Power[ 5, Rational[ 1, 2]]]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ InterpretationBox["\<\"\\!\\(\[Integral]\\_\\!\\(TraditionalForm\\`\ \\(-2\\)\\)\\%\\!\\(TraditionalForm\\`\\(-1\\)\\)\\)\\!\\(TraditionalForm\\`\\\ (t - 2\\)\\/\\(t\\^2 - \\(\\(4\\\\ t\\)\\) + 3\\)\\) \ \[DifferentialD]\\!\\(TraditionalForm\\`t\\) = \"\>", StringForm[ "\!\(\[Integral]\_`1`\%`2`\)`3` \[DifferentialD]`4` = ", -2, -1, Times[ Plus[ -2, t], Power[ Plus[ 3, Times[ -4, t], Power[ t, 2]], -1]], t], Editable->False], "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\*StyleBox[\\\"\\\\\ \\\"[\\\\\\\"\\\", Rule[FontSize, 24]]\\) \ \\!\\(TraditionalForm\\`\\(1\\/2\\\\ \\(\\(TraditionalForm\\`\\(ln(\\(\\(\ \[LeftBracketingBar] \\(\\(t\\^2 - \\(\\(4\\\\ t\\)\\) + 3\\)\\) \ \[RightBracketingBar]\\)\\))\\)\\)\\)\\)\\)\\!\\(\\(\\!\\(TraditionalForm\\`\\\ *StyleBox[\\\"\\\\\\\"]\\\\\\\"\\\", Rule[FontSize, \ 24]]\\)\\_\\!\\(TraditionalForm\\`\\(-2\\)\\)\\%\\!\\(TraditionalForm\\`\\(-1\ \\)\\)\\)\\) = \"\>", StringForm[ "`4` `1`\!\(\(`5`\_`2`\%`3`\)\) = ", Times[ Rational[ 1, 2], Log[ Abs[ Plus[ 3, Times[ -4, t], Power[ t, 2]]]]], -2, -1, StyleForm[ "[", FontSize -> 24], StyleForm[ "]", FontSize -> 24]], Editable->False], "\[InvisibleSpace]", RowBox[{ RowBox[{\(-\(1\/2\)\), " ", FormBox[\(ln(6\/5)\), "TraditionalForm"]}], "-", FormBox[\(ln(5\/4)\), "TraditionalForm"]}]}], SequenceForm[ StringForm[ "\!\(\[Integral]\_`1`\%`2`\)`3` \[DifferentialD]`4` = ", -2, -1, Times[ Plus[ -2, t], Power[ Plus[ 3, Times[ -4, t], Power[ t, 2]], -1]], t], StringForm[ "`4` `1`\!\(\(`5`\_`2`\%`3`\)\) = ", Times[ Rational[ 1, 2], Log[ Abs[ Plus[ 3, Times[ -4, t], Power[ t, 2]]]]], -2, -1, StyleForm[ "[", FontSize -> 24], StyleForm[ "]", FontSize -> 24]], Plus[ Times[ Rational[ -1, 2], Log[ Rational[ 6, 5]]], Times[ -1, Log[ Rational[ 5, 4]]]]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ InterpretationBox["\<\"\\!\\(\[Integral]\\_\\!\\(TraditionalForm\\`\ \[Pi]\\/4\\)\\%\\!\\(TraditionalForm\\`0\\)\\)\\!\\(TraditionalForm\\`\\(\\(\\\ (TraditionalForm\\`\\(tg(x)\\)\\)\\)\\\\ \ \\(\\((\\(\\(TraditionalForm\\`\\(\\(\\(tg\\^2\\)\\)[x]\\)\\)\\) + \ 1)\\)\\)\\)\\) \[DifferentialD]\\!\\(TraditionalForm\\`x\\) = \"\>", StringForm[ "\!\(\[Integral]\_`1`\%`2`\)`3` \[DifferentialD]`4` = ", Times[ Rational[ 1, 4], Pi], 0, Times[ Tan[ x], Plus[ 1, Power[ Tan[ x], 2]]], x], Editable->False], "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\*StyleBox[\\\"\\\\\ \\\"[\\\\\\\"\\\", Rule[FontSize, 24]]\\) \ \\!\\(TraditionalForm\\`\\(1\\/2\\\\ \\(\\(TraditionalForm\\`1\\/\\(\\(\\(cos\ \\^2\\)\\)(x)\\)\\)\\)\\)\\)\\!\\(\\(\\!\\(TraditionalForm\\`\\*StyleBox[\\\"\ \\\\\\\"]\\\\\\\"\\\", Rule[FontSize, 24]]\\)\\_\\!\\(TraditionalForm\\`\[Pi]\ \\/4\\)\\%\\!\\(TraditionalForm\\`0\\)\\)\\) = \"\>", StringForm[ "`4` `1`\!\(\(`5`\_`2`\%`3`\)\) = ", Times[ Rational[ 1, 2], Power[ Sec[ x], 2]], Times[ Rational[ 1, 4], Pi], 0, StyleForm[ "[", FontSize -> 24], StyleForm[ "]", FontSize -> 24]], Editable->False], "\[InvisibleSpace]", \(-\(1\/2\)\)}], SequenceForm[ StringForm[ "\!\(\[Integral]\_`1`\%`2`\)`3` \[DifferentialD]`4` = ", Times[ Rational[ 1, 4], Pi], 0, Times[ Tan[ x], Plus[ 1, Power[ Tan[ x], 2]]], x], StringForm[ "`4` `1`\!\(\(`5`\_`2`\%`3`\)\) = ", Times[ Rational[ 1, 2], Power[ Sec[ x], 2]], Times[ Rational[ 1, 4], Pi], 0, StyleForm[ "[", FontSize -> 24], StyleForm[ "]", FontSize -> 24]], Rational[ -1, 2]], Editable->False], TraditionalForm]], "Print"] }, Open ]] }, Open ]] }, Open ]] }, FrontEndVersion->"5.2 for Macintosh", ScreenRectangle->{{33, 1280}, {0, 1002}}, WindowSize->{739, 726}, WindowMargins->{{60, Automatic}, {Automatic, 38}}, CellLabelAutoDelete->True ] (******************************************************************* Cached data follows. If you edit this Notebook file directly, not using Mathematica, you must remove the line containing CacheID at the top of the file. The cache data will then be recreated when you save this file from within Mathematica. *******************************************************************) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[1776, 53, 57, 0, 38, "Subsection"], Cell[CellGroupData[{ Cell[1858, 57, 85, 1, 28, "Subsubsection"], Cell[CellGroupData[{ Cell[1968, 62, 1210, 24, 19, "Input", CellOpen->False], Cell[3181, 88, 516, 12, 40, "Print"], Cell[3700, 102, 459, 10, 40, "Print"], Cell[4162, 114, 447, 9, 40, "Print"], Cell[4612, 125, 528, 12, 40, "Print"], Cell[5143, 139, 533, 12, 45, "Print"], Cell[5679, 153, 656, 15, 44, "Print"], Cell[6338, 170, 600, 13, 45, "Print"], Cell[6941, 185, 542, 12, 40, "Print"], Cell[7486, 199, 595, 14, 41, "Print"], Cell[8084, 215, 663, 15, 46, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[8796, 236, 34, 0, 28, "Subsubsection"], Cell[CellGroupData[{ Cell[8855, 240, 1210, 24, 19, "Input", CellOpen->False], Cell[10068, 266, 2069, 52, 45, "Print"], Cell[12140, 320, 1931, 48, 45, "Print"], Cell[14074, 370, 1893, 46, 45, "Print"], Cell[15970, 418, 2357, 62, 41, "Print"], Cell[18330, 482, 2579, 69, 50, "Print"], Cell[20912, 553, 1939, 46, 45, "Print"], Cell[22854, 601, 2412, 61, 44, "Print"], Cell[25269, 664, 2725, 71, 51, "Print"], Cell[27997, 737, 2576, 66, 41, "Print"], Cell[30576, 805, 2756, 71, 41, "Print"], Cell[33335, 878, 2302, 57, 47, "Print"] }, Open ]] }, Open ]] }, Open ]] } ] *) (******************************************************************* End of Mathematica Notebook file. *******************************************************************)