(************** 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[ 19921, 613]*) (*NotebookOutlinePosition[ 20587, 636]*) (* CellTagsIndexPosition[ 20543, 632]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell["Calculer en utilisant les fonctions compos\[EAcute]es", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(EnoncePrimitives[Cos[x] \((2 Sin[x] - 1)\)^3, x];\)\), "\[IndentingNewLine]", \(\(EnoncePrimitives[1/\((x^2 - 4)\), x];\)\), "\[IndentingNewLine]", \(\(EnoncePrimitives[\((2 t - 1)\)/\((t + 3)\), t];\)\), "\[IndentingNewLine]", \(\(EnoncePrimitives[\((x^2 + 1)\)/x^3, x];\)\), "\[IndentingNewLine]", \(\(EnoncePrimitives[HoldForm[Sqrt[6 u]], u];\)\), "\[IndentingNewLine]", \(\(EnoncePrimitives[x\ Exp[1 - x^2], x];\)\), "\[IndentingNewLine]", \(\(EnoncePrimitives[1/Sqrt[Exp[x]], x];\)\), "\[IndentingNewLine]", \(\(EnoncePrimitives[\((x + 1)\)/\((x^2 + 1)\), x];\)\), "\[IndentingNewLine]", \(\(EnoncePrimitives[Tan[x]^2, x];\)\), "\[IndentingNewLine]", \(\(EnoncePrimitives[Exp[Sin[3 t]]\ Cos[3 t], t];\)\), "\[IndentingNewLine]", \(\(EnoncePrimitives[\((x - 1)\)/Sqrt[1 - x^2], x];\)\), "\[IndentingNewLine]", \(\(EnoncePrimitives[\((x^2 - 4)\)/\((x + 1)\), x];\)\), "\[IndentingNewLine]", \(\(EnoncePrimitives[x/Sqrt[1 - 2 x^2], x];\)\), "\[IndentingNewLine]", \(EnoncePrimitives[\((1 + Log[x])\)^\(-3\)/x, x]\)}], "Input", CellOpen->False], Cell[BoxData[ FormBox[ TagBox[\(\[Integral]\(\(cos( x)\)\ \((2\ \(sin(x)\) - 1)\)\^3\) \[DifferentialD]x\), HoldForm], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ TagBox[\(\[Integral]\(1\/\(x\^2 - 4\)\) \[DifferentialD]x\), HoldForm], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ TagBox[\(\[Integral]\(\(2\ t - 1\)\/\(t + 3\)\) \[DifferentialD]t\), HoldForm], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ TagBox[\(\[Integral]\(\(x\^2 + 1\)\/x\^3\) \[DifferentialD]x\), HoldForm], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ TagBox[ RowBox[{"\[Integral]", RowBox[{ TagBox[\(\@\(6\ u\)\), HoldForm], \(\[DifferentialD]u\)}]}], HoldForm], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ TagBox[\(\[Integral]\(\[ExponentialE]\^\(1 - x\^2\)\ x\) \ \[DifferentialD]x\), HoldForm], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ TagBox[\(\[Integral]\(1\/\@\[ExponentialE]\^x\) \[DifferentialD]x\), HoldForm], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ TagBox[\(\[Integral]\(\(x + 1\)\/\(x\^2 + 1\)\) \[DifferentialD]x\), HoldForm], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ TagBox[ RowBox[{"\[Integral]", RowBox[{ FormBox[\(\(tg\^2\)[x]\), "TraditionalForm"], \(\[DifferentialD]x\)}]}], HoldForm], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ TagBox[\(\[Integral]\(\[ExponentialE]\^\(sin(3\ t)\)\ \(cos( 3\ t)\)\) \[DifferentialD]t\), HoldForm], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ TagBox[\(\[Integral]\(\(x - 1\)\/\@\(1 - x\^2\)\) \[DifferentialD]x\), HoldForm], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ TagBox[\(\[Integral]\(\(x\^2 - 4\)\/\(x + 1\)\) \[DifferentialD]x\), HoldForm], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ TagBox[\(\[Integral]\(x\/\@\(1 - 2\ x\^2\)\) \[DifferentialD]x\), HoldForm], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ TagBox[ RowBox[{"\[Integral]", RowBox[{ FractionBox["1", RowBox[{"x", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox[\(ln(x)\), "TraditionalForm"], "+", "1"}], ")"}], "3"]}]], \(\[DifferentialD]x\)}]}], HoldForm], TraditionalForm]], "Print"] }, Open ]], Cell[CellGroupData[{ Cell["Solutions", "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(CalculPrimitives[Cos[x] \((2 Sin[x] - 1)\)^3, x, 2 Sin[x] - 1];\)\), "\[IndentingNewLine]", \(\(CalculPrimitives[1/\((x^2 - 4)\), x];\)\), "\[IndentingNewLine]", \(\(CalculPrimitives[\((2 t - 1)\)/\((t + 3)\), t];\)\), "\[IndentingNewLine]", \(\(CalculPrimitives[\((x^2 + 1)\)/x^3, x];\)\), "\[IndentingNewLine]", \(\(CalculPrimitives[Sqrt[6 u], u];\)\), "\[IndentingNewLine]", \(\(CalculPrimitives[x\ Exp[1 - x^2], x];\)\), "\[IndentingNewLine]", \(\(CalculPrimitives[1/Sqrt[Exp[x]], x];\)\), "\[IndentingNewLine]", \(\(CalculPrimitives[\((x + 1)\)/\((x^2 + 1)\), x];\)\), "\[IndentingNewLine]", \(\(CalculPrimitives[Tan[x]^2, x];\)\), "\[IndentingNewLine]", \(\(CalculPrimitives[Exp[Sin[3 t]]\ Cos[3 t], t];\)\), "\[IndentingNewLine]", \(\(CalculPrimitives[\((x - 1)\)/Sqrt[1 - x^2], x];\)\), "\[IndentingNewLine]", \(\(CalculPrimitives[\((x^2 - 4)\)/\((x + 1)\), x];\)\), "\[IndentingNewLine]", \(\(CalculPrimitives[x/Sqrt[1 - 2 x^2], x];\)\), "\[IndentingNewLine]", \(CalculPrimitives[\((1 + Log[x])\)^\(-3\)/x, x]\)}], "Input", CellOpen->False], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ TagBox[\(\[Integral]\(\(cos( x)\)\ \((2\ \(sin(x)\) - 1)\)\^3\) \[DifferentialD]x\), HoldForm], "\[InvisibleSpace]", "\<\" = \"\>", "\[InvisibleSpace]", \(1\/8\ \((2\ \(sin(x)\) - 1)\)\^4\), "\[InvisibleSpace]", "\<\" + k\"\>"}], SequenceForm[ HoldForm[ Integrate[ Times[ Cos[ x], Power[ Plus[ -1, Times[ 2, Sin[ x]]], 3]], x]], " = ", Times[ Rational[ 1, 8], Power[ Plus[ -1, Times[ 2, Sin[ x]]], 4]], " + k"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ TagBox[\(\[Integral]\(1\/\(x\^2 - 4\)\) \[DifferentialD]x\), HoldForm], "\[InvisibleSpace]", "\<\" = \"\>", "\[InvisibleSpace]", RowBox[{\(1\/4\), " ", FormBox[\(ln(\[LeftBracketingBar]\(x - 2\)\/\(x + 2\)\ \[RightBracketingBar])\), "TraditionalForm"]}], "\[InvisibleSpace]", "\<\" + k\"\>"}], SequenceForm[ HoldForm[ Integrate[ Power[ Plus[ -4, Power[ x, 2]], -1], x]], " = ", Times[ Rational[ 1, 4], Log[ Abs[ Times[ Plus[ -2, x], Power[ Plus[ 2, x], -1]]]]], " + k"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ TagBox[\(\[Integral]\(\(2\ t - 1\)\/\(t + 3\)\) \[DifferentialD]t\), HoldForm], "\[InvisibleSpace]", "\<\" = \"\>", "\[InvisibleSpace]", RowBox[{\(2\ \((t + 3)\)\), "-", RowBox[{"7", " ", FormBox[\(ln(\[LeftBracketingBar]t + 3\[RightBracketingBar])\), "TraditionalForm"]}]}], "\[InvisibleSpace]", "\<\" + k\"\>"}], SequenceForm[ HoldForm[ Integrate[ Times[ Power[ Plus[ 3, t], -1], Plus[ -1, Times[ 2, t]]], t]], " = ", Plus[ Times[ 2, Plus[ 3, t]], Times[ -7, Log[ Abs[ Plus[ 3, t]]]]], " + k"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ TagBox[\(\[Integral]\(\(x\^2 + 1\)\/x\^3\) \[DifferentialD]x\), HoldForm], "\[InvisibleSpace]", "\<\" = \"\>", "\[InvisibleSpace]", RowBox[{ FormBox[\(ln(\[LeftBracketingBar]x\[RightBracketingBar])\), "TraditionalForm"], "-", \(1\/\(2\ x\^2\)\)}], "\[InvisibleSpace]", "\<\" + k\"\>"}], SequenceForm[ HoldForm[ Integrate[ Times[ Power[ x, -3], Plus[ 1, Power[ x, 2]]], x]], " = ", Plus[ Times[ Rational[ -1, 2], Power[ x, -2]], Log[ Abs[ x]]], " + k"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ TagBox[\(\[Integral]\(\@6\ \@u\) \[DifferentialD]u\), HoldForm], "\[InvisibleSpace]", "\<\" = \"\>", "\[InvisibleSpace]", \(2\ \@\(2\/3\)\ u\^\(3/2\)\), "\[InvisibleSpace]", "\<\" + k\"\>"}], SequenceForm[ HoldForm[ Integrate[ Times[ Power[ 6, Rational[ 1, 2]], Power[ u, Rational[ 1, 2]]], u]], " = ", Times[ 2, Power[ Rational[ 2, 3], Rational[ 1, 2]], Power[ u, Rational[ 3, 2]]], " + k"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ TagBox[\(\[Integral]\(\[ExponentialE]\^\(1 - x\^2\)\ x\) \ \[DifferentialD]x\), HoldForm], "\[InvisibleSpace]", "\<\" = \"\>", "\[InvisibleSpace]", \(\(-\(1\/2\)\)\ \[ExponentialE]\^\(1 - x\^2\)\ \), "\[InvisibleSpace]", "\<\" + k\"\>"}], SequenceForm[ HoldForm[ Integrate[ Times[ Power[ E, Plus[ 1, Times[ -1, Power[ x, 2]]]], x], x]], " = ", Times[ Rational[ -1, 2], Power[ E, Plus[ 1, Times[ -1, Power[ x, 2]]]]], " + k"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ TagBox[\(\[Integral]\(1\/\@\[ExponentialE]\^x\) \[DifferentialD]x\), HoldForm], "\[InvisibleSpace]", "\<\" = \"\>", "\[InvisibleSpace]", \(\(-2\)\ \[ExponentialE]\^\(\(-x\)/2\)\), "\[InvisibleSpace]", "\<\" + k\"\>"}], SequenceForm[ HoldForm[ Integrate[ Power[ Power[ E, x], Rational[ -1, 2]], x]], " = ", Times[ -2, Power[ E, Times[ Rational[ -1, 2], x]]], " + k"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ TagBox[\(\[Integral]\(\(x + 1\)\/\(x\^2 + 1\)\) \[DifferentialD]x\), HoldForm], "\[InvisibleSpace]", "\<\" = \"\>", "\[InvisibleSpace]", RowBox[{ FormBox[\(Arctg(x)\), "TraditionalForm"], "+", RowBox[{\(1\/2\), " ", FormBox[\(ln(\[LeftBracketingBar]x\^2 + 1\[RightBracketingBar])\), "TraditionalForm"]}]}], "\[InvisibleSpace]", "\<\" + k\"\>"}], SequenceForm[ HoldForm[ Integrate[ Times[ Plus[ 1, x], Power[ Plus[ 1, Power[ x, 2]], -1]], x]], " = ", Plus[ ArcTan[ x], Times[ Rational[ 1, 2], Log[ Abs[ Plus[ 1, Power[ x, 2]]]]]], " + k"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ TagBox[ RowBox[{"\[Integral]", RowBox[{ FormBox[\(\(tg\^2\)[x]\), "TraditionalForm"], \(\[DifferentialD]x\)}]}], HoldForm], "\[InvisibleSpace]", "\<\" = \"\>", "\[InvisibleSpace]", RowBox[{ FormBox[\(tg(x)\), "TraditionalForm"], "-", "x"}], "\[InvisibleSpace]", "\<\" + k\"\>"}], SequenceForm[ HoldForm[ Integrate[ Power[ Tan[ x], 2], x]], " = ", Plus[ Times[ -1, x], Tan[ x]], " + k"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ TagBox[\(\[Integral]\(\[ExponentialE]\^\(sin(3\ t)\)\ \(cos( 3\ t)\)\) \[DifferentialD]t\), HoldForm], "\[InvisibleSpace]", "\<\" = \"\>", "\[InvisibleSpace]", \(1\/3\ \[ExponentialE]\^\(sin(3\ t)\)\), "\[InvisibleSpace]", "\<\" + k\"\>"}], SequenceForm[ HoldForm[ Integrate[ Times[ Power[ E, Sin[ Times[ 3, t]]], Cos[ Times[ 3, t]]], t]], " = ", Times[ Rational[ 1, 3], Power[ E, Sin[ Times[ 3, t]]]], " + k"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ TagBox[\(\[Integral]\(\(x - 1\)\/\@\(1 - x\^2\)\) \[DifferentialD]x\), HoldForm], "\[InvisibleSpace]", "\<\" = \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{"-", FormBox[\(Arcsin(x)\), "TraditionalForm"]}], "-", \(\@\(1 - x\^2\)\)}], "\[InvisibleSpace]", "\<\" + k\"\>"}], SequenceForm[ HoldForm[ Integrate[ Times[ Plus[ -1, x], Power[ Plus[ 1, Times[ -1, Power[ x, 2]]], Rational[ -1, 2]]], x]], " = ", Plus[ Times[ -1, Power[ Plus[ 1, Times[ -1, Power[ x, 2]]], Rational[ 1, 2]]], Times[ -1, ArcSin[ x]]], " + k"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ TagBox[\(\[Integral]\(\(x\^2 - 4\)\/\(x + 1\)\) \[DifferentialD]x\), HoldForm], "\[InvisibleSpace]", "\<\" = \"\>", "\[InvisibleSpace]", RowBox[{\(1\/2\ \((x + 1)\)\^2\), "-", \(2\ \((x + 1)\)\), "-", RowBox[{"3", " ", FormBox[\(ln(\[LeftBracketingBar]x + 1\[RightBracketingBar])\), "TraditionalForm"]}]}], "\[InvisibleSpace]", "\<\" + k\"\>"}], SequenceForm[ HoldForm[ Integrate[ Times[ Power[ Plus[ 1, x], -1], Plus[ -4, Power[ x, 2]]], x]], " = ", Plus[ Times[ -2, Plus[ 1, x]], Times[ Rational[ 1, 2], Power[ Plus[ 1, x], 2]], Times[ -3, Log[ Abs[ Plus[ 1, x]]]]], " + k"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ TagBox[\(\[Integral]\(x\/\@\(1 - 2\ x\^2\)\) \[DifferentialD]x\), HoldForm], "\[InvisibleSpace]", "\<\" = \"\>", "\[InvisibleSpace]", \(\(-\(1\/2\)\)\ \@\(1 - 2\ x\^2\)\), "\[InvisibleSpace]", "\<\" + k\"\>"}], SequenceForm[ HoldForm[ Integrate[ Times[ x, Power[ Plus[ 1, Times[ -2, Power[ x, 2]]], Rational[ -1, 2]]], x]], " = ", Times[ Rational[ -1, 2], Power[ Plus[ 1, Times[ -2, Power[ x, 2]]], Rational[ 1, 2]]], " + k"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ TagBox[ RowBox[{"\[Integral]", RowBox[{ FractionBox["1", RowBox[{"x", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox[\(ln(x)\), "TraditionalForm"], "+", "1"}], ")"}], "3"]}]], \(\[DifferentialD]x\)}]}], HoldForm], "\[InvisibleSpace]", "\<\" = \"\>", "\[InvisibleSpace]", RowBox[{"-", FractionBox["1", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox[\(ln(x)\), "TraditionalForm"], "+", "1"}], ")"}], "2"]}]]}], "\[InvisibleSpace]", "\<\" + k\"\>"}], SequenceForm[ HoldForm[ Integrate[ Times[ Power[ x, -1], Power[ Plus[ 1, Log[ x]], -3]], x]], " = ", Times[ Rational[ -1, 2], Power[ Plus[ 1, Log[ x]], -2]], " + k"], Editable->False], TraditionalForm]], "Print"] }, Open ]] }, Open ]] }, Open ]] }, FrontEndVersion->"5.2 for Macintosh", ScreenRectangle->{{33, 1280}, {0, 1002}}, WindowSize->{786, 814}, WindowMargins->{{81, Automatic}, {Automatic, 14}}, 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, 75, 0, 38, "Subsection"], Cell[CellGroupData[{ Cell[1876, 57, 1204, 22, 19, "Input", CellOpen->False], Cell[3083, 81, 180, 4, 37, "Print"], Cell[3266, 87, 140, 3, 41, "Print"], Cell[3409, 92, 148, 3, 41, "Print"], Cell[3560, 97, 143, 3, 45, "Print"], Cell[3706, 102, 225, 7, 37, "Print"], Cell[3934, 111, 159, 4, 38, "Print"], Cell[4096, 117, 148, 3, 44, "Print"], Cell[4247, 122, 148, 3, 41, "Print"], Cell[4398, 127, 237, 7, 37, "Print"], Cell[4638, 136, 187, 4, 37, "Print"], Cell[4828, 142, 150, 3, 55, "Print"], Cell[4981, 147, 148, 3, 45, "Print"], Cell[5132, 152, 145, 3, 55, "Print"], Cell[5280, 157, 453, 13, 43, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[5770, 175, 34, 0, 28, "Subsubsection"], Cell[CellGroupData[{ Cell[5829, 179, 1200, 21, 19, "Input", CellOpen->False], Cell[7032, 202, 841, 25, 41, "Print"], Cell[7876, 229, 888, 26, 41, "Print"], Cell[8767, 257, 962, 29, 41, "Print"], Cell[9732, 288, 838, 24, 45, "Print"], Cell[10573, 314, 760, 22, 47, "Print"], Cell[11336, 338, 807, 24, 41, "Print"], Cell[12146, 364, 694, 20, 44, "Print"], Cell[12843, 386, 1091, 34, 41, "Print"], Cell[13937, 422, 752, 23, 37, "Print"], Cell[14692, 447, 818, 24, 41, "Print"], Cell[15513, 473, 1074, 33, 55, "Print"], Cell[16590, 508, 1103, 33, 45, "Print"], Cell[17696, 543, 842, 24, 55, "Print"], Cell[18541, 569, 1340, 39, 43, "Print"] }, Open ]] }, Open ]] }, Open ]] } ] *) (******************************************************************* End of Mathematica Notebook file. *******************************************************************)