(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 7.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 92828, 2542] NotebookOptionsPosition[ 88917, 2428] NotebookOutlinePosition[ 89493, 2449] CellTagsIndexPosition[ 89450, 2446] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["\<\ D\[EAcute]terminer les primitives pour chacune des fonctions suivantes\ \>", "Section"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{"<<", "analyse.m"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "++"}], ";", RowBox[{ RowBox[{"int", "[", "n", "]"}], "=", RowBox[{"Integrale", "[", RowBox[{ RowBox[{"HoldForm", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "x"}], "+", "3"}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", "x"}], "+", "1"}], ")"}]}], "]"}], ",", "x"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "++"}], ";", RowBox[{ RowBox[{"int", "[", "n", "]"}], "=", RowBox[{"Integrale", "[", RowBox[{ RowBox[{"HoldForm", "[", RowBox[{ RowBox[{"(", RowBox[{"x", "+", "1"}], ")"}], "^", "2"}], "]"}], ",", "x", ",", "t", ",", RowBox[{"x", "+", "1"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "++"}], ";", RowBox[{ RowBox[{"int", "[", "n", "]"}], "=", RowBox[{"Integrale", "[", RowBox[{ RowBox[{"HoldForm", "[", RowBox[{"1", "/", RowBox[{"(", RowBox[{"3", "+", RowBox[{"2", "x"}]}], ")"}]}], "]"}], ",", "x"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "++"}], ";", RowBox[{ RowBox[{"int", "[", "n", "]"}], "=", RowBox[{"Integrale", "[", RowBox[{ RowBox[{"HoldForm", "[", RowBox[{"x", "/", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"x", "^", "2"}], "+", "1"}], "]"}]}], "]"}], ",", "x"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "++"}], ";", RowBox[{ RowBox[{"int", "[", "n", "]"}], "=", RowBox[{"Integrale", "[", RowBox[{ RowBox[{"HoldForm", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Sqrt", "[", "x", "]"}], "+", RowBox[{"Log", "[", "x", "]"}]}], ")"}], "/", "x"}], "]"}], ",", "x"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "++"}], ";", RowBox[{ RowBox[{"int", "[", "n", "]"}], "=", RowBox[{"Integrale", "[", RowBox[{ RowBox[{"HoldForm", "[", RowBox[{"x", "/", RowBox[{"(", RowBox[{ RowBox[{"x", "^", "2"}], "+", "1"}], ")"}]}], "]"}], ",", "x"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "++"}], ";", RowBox[{ RowBox[{"int", "[", "n", "]"}], "=", RowBox[{"Integrale", "[", RowBox[{ RowBox[{"HoldForm", "[", RowBox[{"x", "/", RowBox[{"(", RowBox[{ RowBox[{"x", "^", "2"}], "-", "5"}], ")"}]}], "]"}], ",", "x"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "++"}], ";", RowBox[{ RowBox[{"int", "[", "n", "]"}], "=", RowBox[{"Integrale", "[", RowBox[{ RowBox[{"HoldForm", "[", RowBox[{"x", "/", RowBox[{"(", RowBox[{ RowBox[{"2", RowBox[{"x", "^", "2"}]}], "+", "3"}], ")"}]}], "]"}], ",", "x"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "++"}], ";", RowBox[{ RowBox[{"int", "[", "n", "]"}], "=", RowBox[{"Integrale", "[", RowBox[{ RowBox[{"HoldForm", "[", RowBox[{"x", "/", RowBox[{"Sqrt", "[", RowBox[{"1", "-", RowBox[{"x", "^", "4"}]}], "]"}]}], "]"}], ",", "x"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "++"}], ";", RowBox[{ RowBox[{"int", "[", "n", "]"}], "=", RowBox[{"Integrale", "[", RowBox[{ RowBox[{"HoldForm", "[", RowBox[{ RowBox[{"x", "^", "2"}], "/", RowBox[{"(", RowBox[{"1", "+", RowBox[{"x", "^", "6"}]}], ")"}]}], "]"}], ",", "x"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "++"}], ";", RowBox[{ RowBox[{"int", "[", "n", "]"}], "=", RowBox[{"Integrale", "[", RowBox[{ RowBox[{"HoldForm", "[", RowBox[{"\[ExponentialE]", "^", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "x"}], ")"}]}], "]"}], ",", "x"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "++"}], ";", RowBox[{ RowBox[{"int", "[", "n", "]"}], "=", RowBox[{"Integrale", "[", RowBox[{ RowBox[{"HoldForm", "[", RowBox[{ RowBox[{"\[ExponentialE]", "^", "x"}], "-", RowBox[{"\[ExponentialE]", "^", RowBox[{"(", RowBox[{"-", "x"}], ")"}]}]}], "]"}], ",", "x"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "++"}], ";", RowBox[{ RowBox[{"int", "[", "n", "]"}], "=", RowBox[{"Integrale", "[", RowBox[{ RowBox[{"HoldForm", "[", RowBox[{"x", " ", RowBox[{"\[ExponentialE]", "^", RowBox[{"(", RowBox[{ RowBox[{"x", "^", "2"}], "+", "1"}], ")"}]}]}], "]"}], ",", "x"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "++"}], ";", RowBox[{ RowBox[{"int", "[", "n", "]"}], "=", RowBox[{"Integrale", "[", RowBox[{ RowBox[{"HoldForm", "[", RowBox[{"x", "*", RowBox[{"7", "^", RowBox[{"(", RowBox[{"x", "^", "2"}], ")"}]}]}], "]"}], ",", "x"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "++"}], ";", RowBox[{ RowBox[{"int", "[", "n", "]"}], "=", RowBox[{"Integrale", "[", RowBox[{ RowBox[{"HoldForm", "[", FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", "x"], "-", "1"}], SuperscriptBox["\[ExponentialE]", "x"]], "]"}], ",", "x"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "++"}], ";", RowBox[{ RowBox[{"int", "[", "n", "]"}], "=", RowBox[{"Integrale", "[", RowBox[{ RowBox[{"HoldForm", "[", FractionBox[ SuperscriptBox["\[ExponentialE]", "x"], RowBox[{ SuperscriptBox["\[ExponentialE]", "x"], "-", "1"}]], "]"}], ",", "x"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "++"}], ";", RowBox[{ RowBox[{"int", "[", "n", "]"}], "=", RowBox[{"Integrale", "[", RowBox[{ RowBox[{"HoldForm", "[", RowBox[{"Cos", "[", RowBox[{"5", "x"}], "]"}], "]"}], ",", "x"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "++"}], ";", RowBox[{ RowBox[{"int", "[", "n", "]"}], "=", RowBox[{"Integrale", "[", RowBox[{ RowBox[{"HoldForm", "[", RowBox[{"x", "/", RowBox[{ RowBox[{"Cos", "[", RowBox[{"x", "^", "2"}], "]"}], "^", "2"}]}], "]"}], ",", "x"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "++"}], ";", RowBox[{ RowBox[{"int", "[", "n", "]"}], "=", RowBox[{"Integrale", "[", RowBox[{ RowBox[{"HoldForm", "[", RowBox[{"Tan", "[", "x", "]"}], "]"}], ",", "x"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "++"}], ";", RowBox[{ RowBox[{"int", "[", "n", "]"}], "=", RowBox[{"Integrale", "[", RowBox[{ RowBox[{"HoldForm", "[", RowBox[{"x", " ", RowBox[{"\[ExponentialE]", "^", RowBox[{"(", RowBox[{"-", RowBox[{"x", "^", "2"}]}], ")"}]}]}], "]"}], ",", "x"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "++"}], ";", RowBox[{ RowBox[{"int", "[", "n", "]"}], "=", RowBox[{"Integrale", "[", RowBox[{ RowBox[{"HoldForm", "[", RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"Sin", "[", "x", "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{"x", "+", RowBox[{"Cos", "[", "x", "]"}]}], ")"}]}], "]"}], ",", "x"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "++"}], ";", RowBox[{ RowBox[{"int", "[", "n", "]"}], "=", RowBox[{"Integrale", "[", RowBox[{ RowBox[{"HoldForm", "[", RowBox[{ RowBox[{"Cos", "[", "x", "]"}], " ", RowBox[{"\[ExponentialE]", "^", RowBox[{"(", RowBox[{"Sin", "[", "x", "]"}], ")"}]}]}], "]"}], ",", "x"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "++"}], ";", RowBox[{ RowBox[{"int", "[", "n", "]"}], "=", RowBox[{"Integrale", "[", RowBox[{ RowBox[{"HoldForm", "[", RowBox[{ RowBox[{"Sin", "[", "x", "]"}], " ", RowBox[{"\[ExponentialE]", "^", RowBox[{"(", RowBox[{"Cos", "[", "x", "]"}], ")"}]}]}], "]"}], ",", "x"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "++"}], ";", RowBox[{ RowBox[{"int", "[", "n", "]"}], "=", RowBox[{"Integrale", "[", RowBox[{ RowBox[{"HoldForm", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "^", "2"}], "+", "x"}], ")"}], " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", RowBox[{"x", "^", "3"}]}], "+", RowBox[{"3", RowBox[{"x", "^", "2"}]}], "+", "5"}], ")"}], "^", "6"}]}], "]"}], ",", "x", ",", "t", ",", RowBox[{ RowBox[{"2", RowBox[{"x", "^", "3"}]}], "+", RowBox[{"3", RowBox[{"x", "^", "2"}]}], "+", "5"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "++"}], ";", RowBox[{ RowBox[{"int", "[", "n", "]"}], "=", RowBox[{"Integrale", "[", RowBox[{ RowBox[{"HoldForm", "[", RowBox[{"3", RowBox[{"Sin", "[", RowBox[{"3", "x"}], "]"}]}], "]"}], ",", "x"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "++"}], ";", RowBox[{ RowBox[{"int", "[", "n", "]"}], "=", RowBox[{"Integrale", "[", RowBox[{ RowBox[{"HoldForm", "[", RowBox[{"1", "/", RowBox[{"(", RowBox[{"1", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"4", "x"}], "+", "2"}], ")"}], "^", "2"}]}], ")"}]}], "]"}], ",", "x"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "++"}], ";", RowBox[{ RowBox[{"int", "[", "n", "]"}], "=", RowBox[{"Integrale", "[", RowBox[{ RowBox[{"HoldForm", "[", RowBox[{"x", " ", RowBox[{"Sin", "[", "x", "]"}], " ", RowBox[{ RowBox[{"Cos", "[", "x", "]"}], "^", "2"}]}], "]"}], ",", "x"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "++"}], ";", RowBox[{ RowBox[{"int", "[", "n", "]"}], "=", RowBox[{"Integrale", "[", RowBox[{ RowBox[{"HoldForm", "[", RowBox[{"x", " ", RowBox[{ RowBox[{"(", RowBox[{"x", "-", "3"}], ")"}], "^", "7"}]}], "]"}], ",", "x", ",", "t", ",", RowBox[{"x", "-", "3"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "++"}], ";", RowBox[{ RowBox[{"int", "[", "n", "]"}], "=", RowBox[{"Integrale", "[", RowBox[{ RowBox[{"HoldForm", "[", RowBox[{"2", "x", " ", RowBox[{"Cos", "[", "x", "]"}]}], "]"}], ",", "x"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "++"}], ";", RowBox[{ RowBox[{"int", "[", "n", "]"}], "=", RowBox[{"Integrale", "[", RowBox[{ RowBox[{"HoldForm", "[", RowBox[{"3", RowBox[{"x", "/", RowBox[{"Sqrt", "[", RowBox[{"3", "+", "x"}], "]"}]}]}], "]"}], ",", "x"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "++"}], ";", RowBox[{ RowBox[{"int", "[", "n", "]"}], "=", RowBox[{"Integrale", "[", RowBox[{ RowBox[{"HoldForm", "[", RowBox[{ RowBox[{"-", RowBox[{"x", "^", "2"}]}], "/", RowBox[{ RowBox[{"(", RowBox[{"1", "+", RowBox[{"x", "^", "2"}]}], ")"}], "^", "2"}]}], "]"}], ",", "x"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "++"}], ";", RowBox[{ RowBox[{"int", "[", "n", "]"}], "=", RowBox[{"Integrale", "[", RowBox[{ RowBox[{"HoldForm", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", RowBox[{"x", "^", "2"}]}], "-", "x"}], ")"}], " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"4", RowBox[{"x", "^", "3"}]}], "-", RowBox[{"3", RowBox[{"x", "^", "2"}]}], "-", "7"}], ")"}], "^", "4"}]}], "]"}], ",", "x", ",", "t", ",", RowBox[{ RowBox[{"4", RowBox[{"x", "^", "3"}]}], "-", RowBox[{"3", RowBox[{"x", "^", "2"}]}], "-", "7"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "++"}], ";", RowBox[{ RowBox[{"int", "[", "n", "]"}], "=", RowBox[{"Integrale", "[", RowBox[{ RowBox[{"HoldForm", "[", RowBox[{"1", "/", RowBox[{"Sqrt", "[", RowBox[{"1", "-", RowBox[{"9", RowBox[{"x", "^", "2"}]}]}], "]"}]}], "]"}], ",", "x"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "++"}], ";", RowBox[{ RowBox[{"int", "[", "n", "]"}], "=", RowBox[{"Integrale", "[", RowBox[{ RowBox[{"HoldForm", "[", RowBox[{ RowBox[{ RowBox[{"ArcCot", "[", "x", "]"}], "^", "2"}], "/", RowBox[{"(", RowBox[{"1", "+", RowBox[{"x", "^", "2"}]}], ")"}]}], "]"}], ",", "x"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Do", "[", RowBox[{ RowBox[{"Print", "[", RowBox[{"i", ",", "\"\<) \>\"", ",", RowBox[{"int", "[", "i", "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]}]], "Input", CellOpen->False, CellChangeTimes->{{3.445493053050549*^9, 3.445493337249959*^9}, { 3.445493421814118*^9, 3.445493423539219*^9}, {3.44549376748106*^9, 3.445493812257696*^9}, {3.4454938744612103`*^9, 3.445493874628191*^9}, { 3.4454939054087543`*^9, 3.445493935264683*^9}, {3.445493983180682*^9, 3.445494056058201*^9}}], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"1", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ TagBox[ RowBox[{"\[Integral]", RowBox[{ TagBox[ FractionBox[ RowBox[{ RowBox[{"2", " ", "x"}], "+", "3"}], RowBox[{ RowBox[{"2", " ", "x"}], "+", "1"}]], HoldForm], RowBox[{"\[DifferentialD]", "x"}]}]}], HoldForm], TraditionalForm]}], SequenceForm[1, ") ", analyse`Integrale[ HoldForm[(2 $CellContext`x + 3)/(2 $CellContext`x + 1)], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.445493337834181*^9, 3.445493425001153*^9, 3.445493733089181*^9, { 3.445493768956753*^9, 3.445493813256632*^9}, 3.445493854734499*^9, { 3.4454939113919067`*^9, 3.4454939366201143`*^9}, 3.445493993664403*^9, 3.445494060290009*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"2", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ TagBox[ RowBox[{"\[Integral]", RowBox[{ TagBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"x", "+", "1"}], ")"}], "2"], HoldForm], RowBox[{"\[DifferentialD]", "x"}]}]}], HoldForm], TraditionalForm]}], SequenceForm[2, ") ", analyse`Integrale[ HoldForm[($CellContext`x + 1)^2], $CellContext`x, $CellContext`t, 1 + $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.445493337834181*^9, 3.445493425001153*^9, 3.445493733089181*^9, { 3.445493768956753*^9, 3.445493813256632*^9}, 3.445493854734499*^9, { 3.4454939113919067`*^9, 3.4454939366201143`*^9}, 3.445493993664403*^9, 3.445494060292461*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"3", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ TagBox[ RowBox[{"\[Integral]", RowBox[{ TagBox[ FractionBox["1", RowBox[{"3", "+", RowBox[{"2", " ", "x"}]}]], HoldForm], RowBox[{"\[DifferentialD]", "x"}]}]}], HoldForm], TraditionalForm]}], SequenceForm[3, ") ", analyse`Integrale[ HoldForm[1/(3 + 2 $CellContext`x)], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.445493337834181*^9, 3.445493425001153*^9, 3.445493733089181*^9, { 3.445493768956753*^9, 3.445493813256632*^9}, 3.445493854734499*^9, { 3.4454939113919067`*^9, 3.4454939366201143`*^9}, 3.445493993664403*^9, 3.445494060294784*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"4", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ TagBox[ RowBox[{"\[Integral]", RowBox[{ TagBox[ FractionBox["x", SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", "1"}]]], HoldForm], RowBox[{"\[DifferentialD]", "x"}]}]}], HoldForm], TraditionalForm]}], SequenceForm[4, ") ", analyse`Integrale[ HoldForm[$CellContext`x/Sqrt[$CellContext`x^2 + 1]], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.445493337834181*^9, 3.445493425001153*^9, 3.445493733089181*^9, { 3.445493768956753*^9, 3.445493813256632*^9}, 3.445493854734499*^9, { 3.4454939113919067`*^9, 3.4454939366201143`*^9}, 3.445493993664403*^9, 3.445494060325412*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"5", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ TagBox[ RowBox[{"\[Integral]", RowBox[{ TagBox[ FractionBox[ RowBox[{ SqrtBox["x"], "+", FormBox[ RowBox[{"ln", "(", "x", ")"}], TraditionalForm]}], "x"], HoldForm], RowBox[{"\[DifferentialD]", "x"}]}]}], HoldForm], TraditionalForm]}], SequenceForm[5, ") ", analyse`Integrale[ HoldForm[(Sqrt[$CellContext`x] + Log[$CellContext`x])/$CellContext`x], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.445493337834181*^9, 3.445493425001153*^9, 3.445493733089181*^9, { 3.445493768956753*^9, 3.445493813256632*^9}, 3.445493854734499*^9, { 3.4454939113919067`*^9, 3.4454939366201143`*^9}, 3.445493993664403*^9, 3.445494060370144*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"6", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ TagBox[ RowBox[{"\[Integral]", RowBox[{ TagBox[ FractionBox["x", RowBox[{ SuperscriptBox["x", "2"], "+", "1"}]], HoldForm], RowBox[{"\[DifferentialD]", "x"}]}]}], HoldForm], TraditionalForm]}], SequenceForm[6, ") ", analyse`Integrale[ HoldForm[$CellContext`x/($CellContext`x^2 + 1)], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.445493337834181*^9, 3.445493425001153*^9, 3.445493733089181*^9, { 3.445493768956753*^9, 3.445493813256632*^9}, 3.445493854734499*^9, { 3.4454939113919067`*^9, 3.4454939366201143`*^9}, 3.445493993664403*^9, 3.4454940604066467`*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"7", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ TagBox[ RowBox[{"\[Integral]", RowBox[{ TagBox[ FractionBox["x", RowBox[{ SuperscriptBox["x", "2"], "-", "5"}]], HoldForm], RowBox[{"\[DifferentialD]", "x"}]}]}], HoldForm], TraditionalForm]}], SequenceForm[7, ") ", analyse`Integrale[ HoldForm[$CellContext`x/($CellContext`x^2 - 5)], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.445493337834181*^9, 3.445493425001153*^9, 3.445493733089181*^9, { 3.445493768956753*^9, 3.445493813256632*^9}, 3.445493854734499*^9, { 3.4454939113919067`*^9, 3.4454939366201143`*^9}, 3.445493993664403*^9, 3.445494060441003*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"8", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ TagBox[ RowBox[{"\[Integral]", RowBox[{ TagBox[ FractionBox["x", RowBox[{ RowBox[{"2", " ", SuperscriptBox["x", "2"]}], "+", "3"}]], HoldForm], RowBox[{"\[DifferentialD]", "x"}]}]}], HoldForm], TraditionalForm]}], SequenceForm[8, ") ", analyse`Integrale[ HoldForm[$CellContext`x/(2 $CellContext`x^2 + 3)], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.445493337834181*^9, 3.445493425001153*^9, 3.445493733089181*^9, { 3.445493768956753*^9, 3.445493813256632*^9}, 3.445493854734499*^9, { 3.4454939113919067`*^9, 3.4454939366201143`*^9}, 3.445493993664403*^9, 3.445494060485703*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"9", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ TagBox[ RowBox[{"\[Integral]", RowBox[{ TagBox[ FractionBox["x", SqrtBox[ RowBox[{"1", "-", SuperscriptBox["x", "4"]}]]], HoldForm], RowBox[{"\[DifferentialD]", "x"}]}]}], HoldForm], TraditionalForm]}], SequenceForm[9, ") ", analyse`Integrale[ HoldForm[$CellContext`x/Sqrt[1 - $CellContext`x^4]], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.445493337834181*^9, 3.445493425001153*^9, 3.445493733089181*^9, { 3.445493768956753*^9, 3.445493813256632*^9}, 3.445493854734499*^9, { 3.4454939113919067`*^9, 3.4454939366201143`*^9}, 3.445493993664403*^9, 3.4454940605239773`*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"10", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ TagBox[ RowBox[{"\[Integral]", RowBox[{ TagBox[ FractionBox[ SuperscriptBox["x", "2"], RowBox[{"1", "+", SuperscriptBox["x", "6"]}]], HoldForm], RowBox[{"\[DifferentialD]", "x"}]}]}], HoldForm], TraditionalForm]}], SequenceForm[10, ") ", analyse`Integrale[ HoldForm[$CellContext`x^2/(1 + $CellContext`x^6)], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.445493337834181*^9, 3.445493425001153*^9, 3.445493733089181*^9, { 3.445493768956753*^9, 3.445493813256632*^9}, 3.445493854734499*^9, { 3.4454939113919067`*^9, 3.4454939366201143`*^9}, 3.445493993664403*^9, 3.445494060557929*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"11", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ TagBox[ RowBox[{"\[Integral]", RowBox[{ TagBox[ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", "x"}]], HoldForm], RowBox[{"\[DifferentialD]", "x"}]}]}], HoldForm], TraditionalForm]}], SequenceForm[11, ") ", analyse`Integrale[ HoldForm[E^((-2) $CellContext`x)], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.445493337834181*^9, 3.445493425001153*^9, 3.445493733089181*^9, { 3.445493768956753*^9, 3.445493813256632*^9}, 3.445493854734499*^9, { 3.4454939113919067`*^9, 3.4454939366201143`*^9}, 3.445493993664403*^9, 3.4454940606025257`*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"12", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ TagBox[ RowBox[{"\[Integral]", RowBox[{ RowBox[{"(", TagBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", "x"], "-", SuperscriptBox["\[ExponentialE]", RowBox[{"-", "x"}]]}], HoldForm], ")"}], RowBox[{"\[DifferentialD]", "x"}]}]}], HoldForm], TraditionalForm]}], SequenceForm[12, ") ", analyse`Integrale[ HoldForm[E^$CellContext`x - E^(-$CellContext`x)], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.445493337834181*^9, 3.445493425001153*^9, 3.445493733089181*^9, { 3.445493768956753*^9, 3.445493813256632*^9}, 3.445493854734499*^9, { 3.4454939113919067`*^9, 3.4454939366201143`*^9}, 3.445493993664403*^9, 3.445494060650025*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"13", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ TagBox[ RowBox[{"\[Integral]", RowBox[{ TagBox[ RowBox[{"x", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ SuperscriptBox["x", "2"], "+", "1"}]]}], HoldForm], RowBox[{"\[DifferentialD]", "x"}]}]}], HoldForm], TraditionalForm]}], SequenceForm[13, ") ", analyse`Integrale[ HoldForm[$CellContext`x E^($CellContext`x^2 + 1)], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.445493337834181*^9, 3.445493425001153*^9, 3.445493733089181*^9, { 3.445493768956753*^9, 3.445493813256632*^9}, 3.445493854734499*^9, { 3.4454939113919067`*^9, 3.4454939366201143`*^9}, 3.445493993664403*^9, 3.445494060685171*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"14", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ TagBox[ RowBox[{"\[Integral]", RowBox[{ TagBox[ RowBox[{"x", " ", SuperscriptBox["7", SuperscriptBox["x", "2"]]}], HoldForm], RowBox[{"\[DifferentialD]", "x"}]}]}], HoldForm], TraditionalForm]}], SequenceForm[14, ") ", analyse`Integrale[ HoldForm[$CellContext`x 7^($CellContext`x^2)], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.445493337834181*^9, 3.445493425001153*^9, 3.445493733089181*^9, { 3.445493768956753*^9, 3.445493813256632*^9}, 3.445493854734499*^9, { 3.4454939113919067`*^9, 3.4454939366201143`*^9}, 3.445493993664403*^9, 3.445494060723016*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"15", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ TagBox[ RowBox[{"\[Integral]", RowBox[{ TagBox[ FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", "x"], "-", "1"}], SuperscriptBox["\[ExponentialE]", "x"]], HoldForm], RowBox[{"\[DifferentialD]", "x"}]}]}], HoldForm], TraditionalForm]}], SequenceForm[15, ") ", analyse`Integrale[ HoldForm[(E^$CellContext`x - 1)/E^$CellContext`x], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.445493337834181*^9, 3.445493425001153*^9, 3.445493733089181*^9, { 3.445493768956753*^9, 3.445493813256632*^9}, 3.445493854734499*^9, { 3.4454939113919067`*^9, 3.4454939366201143`*^9}, 3.445493993664403*^9, 3.44549406078415*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"16", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ TagBox[ RowBox[{"\[Integral]", RowBox[{ TagBox[ FractionBox[ SuperscriptBox["\[ExponentialE]", "x"], RowBox[{ SuperscriptBox["\[ExponentialE]", "x"], "-", "1"}]], HoldForm], RowBox[{"\[DifferentialD]", "x"}]}]}], HoldForm], TraditionalForm]}], SequenceForm[16, ") ", analyse`Integrale[ HoldForm[E^$CellContext`x/(E^$CellContext`x - 1)], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.445493337834181*^9, 3.445493425001153*^9, 3.445493733089181*^9, { 3.445493768956753*^9, 3.445493813256632*^9}, 3.445493854734499*^9, { 3.4454939113919067`*^9, 3.4454939366201143`*^9}, 3.445493993664403*^9, 3.445494060817584*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"17", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ TagBox[ RowBox[{"\[Integral]", RowBox[{ TagBox[ RowBox[{"cos", "(", RowBox[{"5", " ", "x"}], ")"}], HoldForm], RowBox[{"\[DifferentialD]", "x"}]}]}], HoldForm], TraditionalForm]}], SequenceForm[17, ") ", analyse`Integrale[ HoldForm[ Cos[5 $CellContext`x]], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.445493337834181*^9, 3.445493425001153*^9, 3.445493733089181*^9, { 3.445493768956753*^9, 3.445493813256632*^9}, 3.445493854734499*^9, { 3.4454939113919067`*^9, 3.4454939366201143`*^9}, 3.445493993664403*^9, 3.4454940608563747`*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"18", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ TagBox[ RowBox[{"\[Integral]", RowBox[{ TagBox[ FractionBox["x", RowBox[{ SuperscriptBox["cos", "2"], "(", SuperscriptBox["x", "2"], ")"}]], HoldForm], RowBox[{"\[DifferentialD]", "x"}]}]}], HoldForm], TraditionalForm]}], SequenceForm[18, ") ", analyse`Integrale[ HoldForm[$CellContext`x/Cos[$CellContext`x^2]^2], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.445493337834181*^9, 3.445493425001153*^9, 3.445493733089181*^9, { 3.445493768956753*^9, 3.445493813256632*^9}, 3.445493854734499*^9, { 3.4454939113919067`*^9, 3.4454939366201143`*^9}, 3.445493993664403*^9, 3.445494060901326*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"19", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ TagBox[ RowBox[{"\[Integral]", RowBox[{ TagBox[ FormBox[ RowBox[{"tg", "(", "x", ")"}], TraditionalForm], HoldForm], RowBox[{"\[DifferentialD]", "x"}]}]}], HoldForm], TraditionalForm]}], SequenceForm[19, ") ", analyse`Integrale[ HoldForm[ Tan[$CellContext`x]], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.445493337834181*^9, 3.445493425001153*^9, 3.445493733089181*^9, { 3.445493768956753*^9, 3.445493813256632*^9}, 3.445493854734499*^9, { 3.4454939113919067`*^9, 3.4454939366201143`*^9}, 3.445493993664403*^9, 3.445494060934977*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"20", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ TagBox[ RowBox[{"\[Integral]", RowBox[{ TagBox[ RowBox[{"x", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"-", SuperscriptBox["x", "2"]}]]}], HoldForm], RowBox[{"\[DifferentialD]", "x"}]}]}], HoldForm], TraditionalForm]}], SequenceForm[20, ") ", analyse`Integrale[ HoldForm[$CellContext`x E^(-$CellContext`x^2)], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.445493337834181*^9, 3.445493425001153*^9, 3.445493733089181*^9, { 3.445493768956753*^9, 3.445493813256632*^9}, 3.445493854734499*^9, { 3.4454939113919067`*^9, 3.4454939366201143`*^9}, 3.445493993664403*^9, 3.445494060979966*^9}] }, Open ]] }, Open ]], Cell["", "PageBreak", PageBreakBelow->True], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"21", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ TagBox[ RowBox[{"\[Integral]", RowBox[{ TagBox[ FractionBox[ RowBox[{"1", "-", RowBox[{"sin", "(", "x", ")"}]}], RowBox[{"x", "+", RowBox[{"cos", "(", "x", ")"}]}]], HoldForm], RowBox[{"\[DifferentialD]", "x"}]}]}], HoldForm], TraditionalForm]}], SequenceForm[21, ") ", analyse`Integrale[ HoldForm[(1 - Sin[$CellContext`x])/($CellContext`x + Cos[$CellContext`x])], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.445493337834181*^9, 3.445493425001153*^9, 3.445493733089181*^9, { 3.445493768956753*^9, 3.445493813256632*^9}, 3.445493854734499*^9, { 3.4454939113919067`*^9, 3.4454939366201143`*^9}, 3.445493993664403*^9, 3.445494061013969*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"22", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ TagBox[ RowBox[{"\[Integral]", RowBox[{ TagBox[ RowBox[{ RowBox[{"cos", "(", "x", ")"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"sin", "(", "x", ")"}]]}], HoldForm], RowBox[{"\[DifferentialD]", "x"}]}]}], HoldForm], TraditionalForm]}], SequenceForm[22, ") ", analyse`Integrale[ HoldForm[Cos[$CellContext`x] E^Sin[$CellContext`x]], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.445493337834181*^9, 3.445493425001153*^9, 3.445493733089181*^9, { 3.445493768956753*^9, 3.445493813256632*^9}, 3.445493854734499*^9, { 3.4454939113919067`*^9, 3.4454939366201143`*^9}, 3.445493993664403*^9, 3.445494061048996*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"23", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ TagBox[ RowBox[{"\[Integral]", RowBox[{ TagBox[ RowBox[{ RowBox[{"sin", "(", "x", ")"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"cos", "(", "x", ")"}]]}], HoldForm], RowBox[{"\[DifferentialD]", "x"}]}]}], HoldForm], TraditionalForm]}], SequenceForm[23, ") ", analyse`Integrale[ HoldForm[Sin[$CellContext`x] E^Cos[$CellContext`x]], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.445493337834181*^9, 3.445493425001153*^9, 3.445493733089181*^9, { 3.445493768956753*^9, 3.445493813256632*^9}, 3.445493854734499*^9, { 3.4454939113919067`*^9, 3.4454939366201143`*^9}, 3.445493993664403*^9, 3.4454940610803537`*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"24", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ TagBox[ RowBox[{"\[Integral]", RowBox[{ TagBox[ RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "+", "x"}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["x", "3"]}], "+", RowBox[{"3", " ", SuperscriptBox["x", "2"]}], "+", "5"}], ")"}], "6"]}], HoldForm], RowBox[{"\[DifferentialD]", "x"}]}]}], HoldForm], TraditionalForm]}], SequenceForm[24, ") ", analyse`Integrale[ HoldForm[($CellContext`x^2 + $CellContext`x) (2 $CellContext`x^3 + 3 $CellContext`x^2 + 5)^6], $CellContext`x, $CellContext`t, 5 + 3 $CellContext`x^2 + 2 $CellContext`x^3]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.445493337834181*^9, 3.445493425001153*^9, 3.445493733089181*^9, { 3.445493768956753*^9, 3.445493813256632*^9}, 3.445493854734499*^9, { 3.4454939113919067`*^9, 3.4454939366201143`*^9}, 3.445493993664403*^9, 3.445494061116589*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"25", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ TagBox[ RowBox[{"\[Integral]", RowBox[{ TagBox[ RowBox[{"3", " ", RowBox[{"sin", "(", RowBox[{"3", " ", "x"}], ")"}]}], HoldForm], RowBox[{"\[DifferentialD]", "x"}]}]}], HoldForm], TraditionalForm]}], SequenceForm[25, ") ", analyse`Integrale[ HoldForm[3 Sin[3 $CellContext`x]], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.445493337834181*^9, 3.445493425001153*^9, 3.445493733089181*^9, { 3.445493768956753*^9, 3.445493813256632*^9}, 3.445493854734499*^9, { 3.4454939113919067`*^9, 3.4454939366201143`*^9}, 3.445493993664403*^9, 3.4454940611471*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"26", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ TagBox[ RowBox[{"\[Integral]", RowBox[{ TagBox[ FractionBox["1", RowBox[{"1", "+", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"4", " ", "x"}], "+", "2"}], ")"}], "2"]}]], HoldForm], RowBox[{"\[DifferentialD]", "x"}]}]}], HoldForm], TraditionalForm]}], SequenceForm[26, ") ", analyse`Integrale[ HoldForm[1/(1 + (4 $CellContext`x + 2)^2)], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.445493337834181*^9, 3.445493425001153*^9, 3.445493733089181*^9, { 3.445493768956753*^9, 3.445493813256632*^9}, 3.445493854734499*^9, { 3.4454939113919067`*^9, 3.4454939366201143`*^9}, 3.445493993664403*^9, 3.445494061183622*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"27", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ TagBox[ RowBox[{"\[Integral]", RowBox[{ TagBox[ RowBox[{"x", " ", RowBox[{"sin", "(", "x", ")"}], " ", RowBox[{ SuperscriptBox["cos", "2"], "(", "x", ")"}]}], HoldForm], RowBox[{"\[DifferentialD]", "x"}]}]}], HoldForm], TraditionalForm]}], SequenceForm[27, ") ", analyse`Integrale[ HoldForm[$CellContext`x Sin[$CellContext`x] Cos[$CellContext`x]^2], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.445493337834181*^9, 3.445493425001153*^9, 3.445493733089181*^9, { 3.445493768956753*^9, 3.445493813256632*^9}, 3.445493854734499*^9, { 3.4454939113919067`*^9, 3.4454939366201143`*^9}, 3.445493993664403*^9, 3.4454940612139587`*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"28", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ TagBox[ RowBox[{"\[Integral]", RowBox[{ TagBox[ RowBox[{"x", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "-", "3"}], ")"}], "7"]}], HoldForm], RowBox[{"\[DifferentialD]", "x"}]}]}], HoldForm], TraditionalForm]}], SequenceForm[28, ") ", analyse`Integrale[ HoldForm[$CellContext`x ($CellContext`x - 3)^7], $CellContext`x, $CellContext`t, -3 + $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.445493337834181*^9, 3.445493425001153*^9, 3.445493733089181*^9, { 3.445493768956753*^9, 3.445493813256632*^9}, 3.445493854734499*^9, { 3.4454939113919067`*^9, 3.4454939366201143`*^9}, 3.445493993664403*^9, 3.445494061263144*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"29", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ TagBox[ RowBox[{"\[Integral]", RowBox[{ TagBox[ RowBox[{"2", " ", "x", " ", RowBox[{"cos", "(", "x", ")"}]}], HoldForm], RowBox[{"\[DifferentialD]", "x"}]}]}], HoldForm], TraditionalForm]}], SequenceForm[29, ") ", analyse`Integrale[ HoldForm[2 $CellContext`x Cos[$CellContext`x]], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.445493337834181*^9, 3.445493425001153*^9, 3.445493733089181*^9, { 3.445493768956753*^9, 3.445493813256632*^9}, 3.445493854734499*^9, { 3.4454939113919067`*^9, 3.4454939366201143`*^9}, 3.445493993664403*^9, 3.4454940613009987`*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"30", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ TagBox[ RowBox[{"\[Integral]", RowBox[{ TagBox[ FractionBox[ RowBox[{"3", " ", "x"}], SqrtBox[ RowBox[{"3", "+", "x"}]]], HoldForm], RowBox[{"\[DifferentialD]", "x"}]}]}], HoldForm], TraditionalForm]}], SequenceForm[30, ") ", analyse`Integrale[ HoldForm[3 ($CellContext`x/Sqrt[3 + $CellContext`x])], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.445493337834181*^9, 3.445493425001153*^9, 3.445493733089181*^9, { 3.445493768956753*^9, 3.445493813256632*^9}, 3.445493854734499*^9, { 3.4454939113919067`*^9, 3.4454939366201143`*^9}, 3.445493993664403*^9, 3.445494061333592*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"31", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ TagBox[ RowBox[{"\[Integral]", RowBox[{ TagBox[ RowBox[{"-", FractionBox[ SuperscriptBox["x", "2"], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", SuperscriptBox["x", "2"]}], ")"}], "2"]]}], HoldForm], RowBox[{"\[DifferentialD]", "x"}]}]}], HoldForm], TraditionalForm]}], SequenceForm[31, ") ", analyse`Integrale[ HoldForm[(-$CellContext`x^2)/(1 + $CellContext`x^2)^2], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.445493337834181*^9, 3.445493425001153*^9, 3.445493733089181*^9, { 3.445493768956753*^9, 3.445493813256632*^9}, 3.445493854734499*^9, { 3.4454939113919067`*^9, 3.4454939366201143`*^9}, 3.445493993664403*^9, 3.4454940613812037`*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"32", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ TagBox[ RowBox[{"\[Integral]", RowBox[{ TagBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["x", "2"]}], "-", "x"}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"4", " ", SuperscriptBox["x", "3"]}], "-", RowBox[{"3", " ", SuperscriptBox["x", "2"]}], "-", "7"}], ")"}], "4"]}], HoldForm], RowBox[{"\[DifferentialD]", "x"}]}]}], HoldForm], TraditionalForm]}], SequenceForm[32, ") ", analyse`Integrale[ HoldForm[( 2 $CellContext`x^2 - $CellContext`x) (4 $CellContext`x^3 - 3 $CellContext`x^2 - 7)^4], $CellContext`x, $CellContext`t, -7 - 3 $CellContext`x^2 + 4 $CellContext`x^3]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.445493337834181*^9, 3.445493425001153*^9, 3.445493733089181*^9, { 3.445493768956753*^9, 3.445493813256632*^9}, 3.445493854734499*^9, { 3.4454939113919067`*^9, 3.4454939366201143`*^9}, 3.445493993664403*^9, 3.445494061418034*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"33", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ TagBox[ RowBox[{"\[Integral]", RowBox[{ TagBox[ FractionBox["1", SqrtBox[ RowBox[{"1", "-", RowBox[{"9", " ", SuperscriptBox["x", "2"]}]}]]], HoldForm], RowBox[{"\[DifferentialD]", "x"}]}]}], HoldForm], TraditionalForm]}], SequenceForm[33, ") ", analyse`Integrale[ HoldForm[1/Sqrt[1 - 9 $CellContext`x^2]], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.445493337834181*^9, 3.445493425001153*^9, 3.445493733089181*^9, { 3.445493768956753*^9, 3.445493813256632*^9}, 3.445493854734499*^9, { 3.4454939113919067`*^9, 3.4454939366201143`*^9}, 3.445493993664403*^9, 3.4454940614539843`*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"34", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ TagBox[ RowBox[{"\[Integral]", RowBox[{ TagBox[ FractionBox[ FormBox[ RowBox[{ TemplateBox[{"Arccotg","2"}, "Superscript"], "\[InvisibleApplication]", RowBox[{"(", "x", ")"}]}], TraditionalForm], RowBox[{"1", "+", SuperscriptBox["x", "2"]}]], HoldForm], RowBox[{"\[DifferentialD]", "x"}]}]}], HoldForm], TraditionalForm]}], SequenceForm[34, ") ", analyse`Integrale[ HoldForm[ ArcCot[$CellContext`x]^2/(1 + $CellContext`x^2)], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.445493337834181*^9, 3.445493425001153*^9, 3.445493733089181*^9, { 3.445493768956753*^9, 3.445493813256632*^9}, 3.445493854734499*^9, { 3.4454939113919067`*^9, 3.4454939366201143`*^9}, 3.445493993664403*^9, 3.445494061503227*^9}] }, Open ]], Cell["", "PageBreak", PageBreakBelow->True], Cell[CellGroupData[{ Cell["Solutions", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{"Print", "[", RowBox[{"i", ",", "\"\<) \>\"", ",", RowBox[{"Calcule", "[", RowBox[{"int", "[", "i", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]], "Input", CellOpen->False, CellChangeTimes->{{3.445493353033516*^9, 3.4454933794109983`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"1", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\(\ \[Integral] \\(\\(\\(\\(\\(2\\\\ x\\)\\) + 3\\)\\/\\(\\(\\(2\\\\ x\\)\\) + \ 1\\) \\(\\(\[DifferentialD] x\\)\\)\\)\\)\\)\\)\\) = \\!\\(TraditionalForm\\`\ \\(x + \\(\\(TraditionalForm\\`\\(ln(\\(\\(\\*TemplateBox[List[RowBox[List[\ RowBox[List[\\\"2\\\", \\\" \\\", \\\"x\\\"]], \\\"+\\\", \\\"1\\\"]]], \ \\\"Abs\\\"]\\)\\))\\)\\)\\)\\)\\) + k\"\>", StringForm["`1` = `2` + k", analyse`Integrale[ HoldForm[(2 $CellContext`x + 3)/(2 $CellContext`x + 1)], $CellContext`x], $CellContext`x + Log[ Abs[1 + 2 $CellContext`x]]], Editable->False]}], SequenceForm[1, ") ", StringForm["`1` = `2` + k", analyse`Integrale[ HoldForm[(2 $CellContext`x + 3)/(2 $CellContext`x + 1)], $CellContext`x], $CellContext`x + Log[ Abs[1 + 2 $CellContext`x]]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.445493380075474*^9, 3.4454934281591578`*^9, 3.445493733387116*^9, { 3.445493771860426*^9, 3.445493817593499*^9}, 3.445493856100548*^9, { 3.44549391279068*^9, 3.445493938032642*^9}, 3.445493995057235*^9, 3.445494061650277*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"2", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\(\ \[Integral] \\(\\(\\((x + 1)\\)\\^2 \\(\\(\[DifferentialD] \ x\\)\\)\\)\\)\\)\\)\\) = \\!\\(TraditionalForm\\`\\(1\\/3\\\\ \\((x + \ 1)\\)\\^3\\)\\) + k\"\>", StringForm["`1` = `2` + k", analyse`Integrale[ HoldForm[($CellContext`x + 1)^2], $CellContext`x], Rational[1, 3] (1 + $CellContext`x)^3], Editable->False]}], SequenceForm[2, ") ", StringForm["`1` = `2` + k", analyse`Integrale[ HoldForm[($CellContext`x + 1)^2], $CellContext`x], Rational[1, 3] (1 + $CellContext`x)^3]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.445493380075474*^9, 3.4454934281591578`*^9, 3.445493733387116*^9, { 3.445493771860426*^9, 3.445493817593499*^9}, 3.445493856100548*^9, { 3.44549391279068*^9, 3.445493938032642*^9}, 3.445493995057235*^9, 3.445494061680299*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"3", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\(\ \[Integral] \\(\\(1\\/\\(3 + \\(\\(2\\\\ x\\)\\)\\) \\(\\(\[DifferentialD] \ x\\)\\)\\)\\)\\)\\)\\) = \ \\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\(ln(\\(\\(\\*TemplateBox[List[\ RowBox[List[RowBox[List[\\\"2\\\", \\\" \\\", \\\"x\\\"]], \\\"+\\\", \\\"3\\\ \"]]], \\\"Abs\\\"]\\)\\))\\)\\)\\/2\\) + k\"\>", StringForm["`1` = `2` + k", analyse`Integrale[ HoldForm[1/(3 + 2 $CellContext`x)], $CellContext`x], Rational[1, 2] Log[ Abs[3 + 2 $CellContext`x]]], Editable->False]}], SequenceForm[3, ") ", StringForm["`1` = `2` + k", analyse`Integrale[ HoldForm[1/(3 + 2 $CellContext`x)], $CellContext`x], Rational[1, 2] Log[ Abs[3 + 2 $CellContext`x]]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.445493380075474*^9, 3.4454934281591578`*^9, 3.445493733387116*^9, { 3.445493771860426*^9, 3.445493817593499*^9}, 3.445493856100548*^9, { 3.44549391279068*^9, 3.445493938032642*^9}, 3.445493995057235*^9, 3.445494061716907*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"4", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\(\ \[Integral] \\(\\(x\\/\\@\\(x\\^2 + 1\\) \\(\\(\[DifferentialD] x\\)\\)\\)\\)\ \\)\\)\\) = \\!\\(TraditionalForm\\`\\@\\(x\\^2 + 1\\)\\) + k\"\>", StringForm["`1` = `2` + k", analyse`Integrale[ HoldForm[$CellContext`x/Sqrt[$CellContext`x^2 + 1]], $CellContext`x], ( 1 + $CellContext`x^2)^Rational[1, 2]], Editable->False]}], SequenceForm[4, ") ", StringForm["`1` = `2` + k", analyse`Integrale[ HoldForm[$CellContext`x/Sqrt[$CellContext`x^2 + 1]], $CellContext`x], ( 1 + $CellContext`x^2)^Rational[1, 2]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.445493380075474*^9, 3.4454934281591578`*^9, 3.445493733387116*^9, { 3.445493771860426*^9, 3.445493817593499*^9}, 3.445493856100548*^9, { 3.44549391279068*^9, 3.445493938032642*^9}, 3.445493995057235*^9, 3.445494061744822*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"5", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\(\ \[Integral] \\(\\(\\(\\@x + \\(\\(TraditionalForm\\`\\(ln(x)\\)\\)\\)\\)\\/x \ \\(\\(\[DifferentialD] x\\)\\)\\)\\)\\)\\)\\) = \ \\!\\(TraditionalForm\\`\\(\\(TraditionalForm\\`\\(\\*TemplateBox[List[\\\"ln\ \\\", \\\"2\\\"], \\\"Superscript\\\", Rule[SyntaxForm, SuperscriptBox]] \ \[InvisibleApplication] \\(\\((x)\\)\\)\\)\\)\\/2 + \\(\\(2\\\\ \\@x\\)\\)\\)\ \\) + k\"\>", StringForm["`1` = `2` + k", analyse`Integrale[ HoldForm[(Sqrt[$CellContext`x] + Log[$CellContext`x])/$CellContext`x], $CellContext`x], 2 $CellContext`x^Rational[1, 2] + Rational[1, 2] Log[$CellContext`x]^2], Editable->False]}], SequenceForm[5, ") ", StringForm["`1` = `2` + k", analyse`Integrale[ HoldForm[(Sqrt[$CellContext`x] + Log[$CellContext`x])/$CellContext`x], $CellContext`x], 2 $CellContext`x^Rational[1, 2] + Rational[1, 2] Log[$CellContext`x]^2]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.445493380075474*^9, 3.4454934281591578`*^9, 3.445493733387116*^9, { 3.445493771860426*^9, 3.445493817593499*^9}, 3.445493856100548*^9, { 3.44549391279068*^9, 3.445493938032642*^9}, 3.445493995057235*^9, 3.4454940617724237`*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"6", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\(\ \[Integral] \\(\\(x\\/\\(x\\^2 + 1\\) \\(\\(\[DifferentialD] x\\)\\)\\)\\)\\)\ \\)\\) = \\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\(ln(\\(\\(\\*\ TemplateBox[List[RowBox[List[SuperscriptBox[\\\"x\\\", \\\"2\\\"], \\\"+\\\", \ \\\"1\\\"]]], \\\"Abs\\\"]\\)\\))\\)\\)\\/2\\) + k\"\>", StringForm["`1` = `2` + k", analyse`Integrale[ HoldForm[$CellContext`x/($CellContext`x^2 + 1)], $CellContext`x], Rational[1, 2] Log[ Abs[1 + $CellContext`x^2]]], Editable->False]}], SequenceForm[6, ") ", StringForm["`1` = `2` + k", analyse`Integrale[ HoldForm[$CellContext`x/($CellContext`x^2 + 1)], $CellContext`x], Rational[1, 2] Log[ Abs[1 + $CellContext`x^2]]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.445493380075474*^9, 3.4454934281591578`*^9, 3.445493733387116*^9, { 3.445493771860426*^9, 3.445493817593499*^9}, 3.445493856100548*^9, { 3.44549391279068*^9, 3.445493938032642*^9}, 3.445493995057235*^9, 3.4454940617993317`*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"7", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\(\ \[Integral] \\(\\(x\\/\\(x\\^2 - 5\\) \\(\\(\[DifferentialD] x\\)\\)\\)\\)\\)\ \\)\\) = \\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\(ln(\\(\\(\\*\ TemplateBox[List[RowBox[List[SuperscriptBox[\\\"x\\\", \\\"2\\\"], \\\"-\\\", \ \\\"5\\\"]]], \\\"Abs\\\"]\\)\\))\\)\\)\\/2\\) + k\"\>", StringForm["`1` = `2` + k", analyse`Integrale[ HoldForm[$CellContext`x/($CellContext`x^2 - 5)], $CellContext`x], Rational[1, 2] Log[ Abs[-5 + $CellContext`x^2]]], Editable->False]}], SequenceForm[7, ") ", StringForm["`1` = `2` + k", analyse`Integrale[ HoldForm[$CellContext`x/($CellContext`x^2 - 5)], $CellContext`x], Rational[1, 2] Log[ Abs[-5 + $CellContext`x^2]]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.445493380075474*^9, 3.4454934281591578`*^9, 3.445493733387116*^9, { 3.445493771860426*^9, 3.445493817593499*^9}, 3.445493856100548*^9, { 3.44549391279068*^9, 3.445493938032642*^9}, 3.445493995057235*^9, 3.445494061826108*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"8", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\(\ \[Integral] \\(\\(x\\/\\(\\(\\(2\\\\ x\\^2\\)\\) + 3\\) \ \\(\\(\[DifferentialD] x\\)\\)\\)\\)\\)\\)\\) = \ \\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\(ln(\\(\\(\\*TemplateBox[List[\ RowBox[List[RowBox[List[\\\"2\\\", \\\" \\\", SuperscriptBox[\\\"x\\\", \\\"2\ \\\"]]], \\\"+\\\", \\\"3\\\"]]], \\\"Abs\\\"]\\)\\))\\)\\)\\/4\\) + k\"\>", StringForm["`1` = `2` + k", analyse`Integrale[ HoldForm[$CellContext`x/(2 $CellContext`x^2 + 3)], $CellContext`x], Rational[1, 4] Log[ Abs[3 + 2 $CellContext`x^2]]], Editable->False]}], SequenceForm[8, ") ", StringForm["`1` = `2` + k", analyse`Integrale[ HoldForm[$CellContext`x/(2 $CellContext`x^2 + 3)], $CellContext`x], Rational[1, 4] Log[ Abs[3 + 2 $CellContext`x^2]]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.445493380075474*^9, 3.4454934281591578`*^9, 3.445493733387116*^9, { 3.445493771860426*^9, 3.445493817593499*^9}, 3.445493856100548*^9, { 3.44549391279068*^9, 3.445493938032642*^9}, 3.445493995057235*^9, 3.445494061852903*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"9", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\(\ \[Integral] \\(\\(x\\/\\@\\(1 - x\\^4\\) \\(\\(\[DifferentialD] x\\)\\)\\)\\)\ \\)\\)\\) = \ \\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\(Arcsin(\\(\\(x\\^2\\)\\))\\)\\\ )\\/2\\) + k\"\>", StringForm["`1` = `2` + k", analyse`Integrale[ HoldForm[$CellContext`x/Sqrt[1 - $CellContext`x^4]], $CellContext`x], Rational[1, 2] ArcSin[$CellContext`x^2]], Editable->False]}], SequenceForm[9, ") ", StringForm["`1` = `2` + k", analyse`Integrale[ HoldForm[$CellContext`x/Sqrt[1 - $CellContext`x^4]], $CellContext`x], Rational[1, 2] ArcSin[$CellContext`x^2]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.445493380075474*^9, 3.4454934281591578`*^9, 3.445493733387116*^9, { 3.445493771860426*^9, 3.445493817593499*^9}, 3.445493856100548*^9, { 3.44549391279068*^9, 3.445493938032642*^9}, 3.445493995057235*^9, 3.44549406187953*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"10", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\(\ \[Integral] \\(\\(x\\^2\\/\\(1 + x\\^6\\) \\(\\(\[DifferentialD] \ x\\)\\)\\)\\)\\)\\)\\) = \ \\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\(Arctg(\\(\\(x\\^3\\)\\))\\)\\)\ \\/3\\) + k\"\>", StringForm["`1` = `2` + k", analyse`Integrale[ HoldForm[$CellContext`x^2/(1 + $CellContext`x^6)], $CellContext`x], Rational[1, 3] ArcTan[$CellContext`x^3]], Editable->False]}], SequenceForm[10, ") ", StringForm["`1` = `2` + k", analyse`Integrale[ HoldForm[$CellContext`x^2/(1 + $CellContext`x^6)], $CellContext`x], Rational[1, 3] ArcTan[$CellContext`x^3]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.445493380075474*^9, 3.4454934281591578`*^9, 3.445493733387116*^9, { 3.445493771860426*^9, 3.445493817593499*^9}, 3.445493856100548*^9, { 3.44549391279068*^9, 3.445493938032642*^9}, 3.445493995057235*^9, 3.445494061906719*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"11", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\(\ \[Integral] \\(\\(\[ExponentialE]\\^\\(\\(\\(-2\\)\\)\\\\ x\\) \\(\\(\ \[DifferentialD] x\\)\\)\\)\\)\\)\\)\\) = \ \\!\\(TraditionalForm\\`\\(\\(\\(-\\(\\(1\\/2\\)\\)\\)\\)\\\\ \[ExponentialE]\ \\^\\(\\(\\(-2\\)\\)\\\\ x\\)\\)\\) + k\"\>", StringForm["`1` = `2` + k", analyse`Integrale[ HoldForm[E^((-2) $CellContext`x)], $CellContext`x], Rational[-1, 2] E^((-2) $CellContext`x)], Editable->False]}], SequenceForm[11, ") ", StringForm["`1` = `2` + k", analyse`Integrale[ HoldForm[E^((-2) $CellContext`x)], $CellContext`x], Rational[-1, 2] E^((-2) $CellContext`x)]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.445493380075474*^9, 3.4454934281591578`*^9, 3.445493733387116*^9, { 3.445493771860426*^9, 3.445493817593499*^9}, 3.445493856100548*^9, { 3.44549391279068*^9, 3.445493938032642*^9}, 3.445493995057235*^9, 3.445494061952724*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"12", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\(\ \[Integral] \\(\\(\\(\\((\[ExponentialE]\\^x - \[ExponentialE]\\^\\(-x\\))\\)\ \\) \\(\\(\[DifferentialD] x\\)\\)\\)\\)\\)\\)\\) = \ \\!\\(TraditionalForm\\`\\(\[ExponentialE]\\^\\(-x\\) + \ \[ExponentialE]\\^x\\)\\) + k\"\>", StringForm["`1` = `2` + k", analyse`Integrale[ HoldForm[E^$CellContext`x - E^(-$CellContext`x)], $CellContext`x], E^(-$CellContext`x) + E^$CellContext`x], Editable->False]}], SequenceForm[12, ") ", StringForm["`1` = `2` + k", analyse`Integrale[ HoldForm[E^$CellContext`x - E^(-$CellContext`x)], $CellContext`x], E^(-$CellContext`x) + E^$CellContext`x]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.445493380075474*^9, 3.4454934281591578`*^9, 3.445493733387116*^9, { 3.445493771860426*^9, 3.445493817593499*^9}, 3.445493856100548*^9, { 3.44549391279068*^9, 3.445493938032642*^9}, 3.445493995057235*^9, 3.445494061986679*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"13", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\(\ \[Integral] \\(\\(\\(\\(x\\\\ \[ExponentialE]\\^\\(x\\^2 + 1\\)\\)\\) \\(\\(\ \[DifferentialD] x\\)\\)\\)\\)\\)\\)\\) = \\!\\(TraditionalForm\\`\ \[ExponentialE]\\^\\(x\\^2 + 1\\)\\/2\\) + k\"\>", StringForm["`1` = `2` + k", analyse`Integrale[ HoldForm[$CellContext`x E^($CellContext`x^2 + 1)], $CellContext`x], Rational[1, 2] E^(1 + $CellContext`x^2)], Editable->False]}], SequenceForm[13, ") ", StringForm["`1` = `2` + k", analyse`Integrale[ HoldForm[$CellContext`x E^($CellContext`x^2 + 1)], $CellContext`x], Rational[1, 2] E^(1 + $CellContext`x^2)]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.445493380075474*^9, 3.4454934281591578`*^9, 3.445493733387116*^9, { 3.445493771860426*^9, 3.445493817593499*^9}, 3.445493856100548*^9, { 3.44549391279068*^9, 3.445493938032642*^9}, 3.445493995057235*^9, 3.445494062031178*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"14", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\(\ \[Integral] \\(\\(\\(\\(x\\\\ 7\\^\\(x\\^2\\)\\)\\) \\(\\(\[DifferentialD] \ x\\)\\)\\)\\)\\)\\)\\) = \ \\!\\(TraditionalForm\\`7\\^\\(x\\^2\\)\\/\\(TraditionalForm\\`\\(ln(49)\\)\\)\ \\) + k\"\>", StringForm["`1` = `2` + k", analyse`Integrale[ HoldForm[$CellContext`x 7^($CellContext`x^2)], $CellContext`x], 7^($CellContext`x^2)/Log[49]], Editable->False]}], SequenceForm[14, ") ", StringForm["`1` = `2` + k", analyse`Integrale[ HoldForm[$CellContext`x 7^($CellContext`x^2)], $CellContext`x], 7^($CellContext`x^2)/Log[49]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.445493380075474*^9, 3.4454934281591578`*^9, 3.445493733387116*^9, { 3.445493771860426*^9, 3.445493817593499*^9}, 3.445493856100548*^9, { 3.44549391279068*^9, 3.445493938032642*^9}, 3.445493995057235*^9, 3.445494062099722*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"15", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\(\ \[Integral] \\(\\(\\(\[ExponentialE]\\^x - 1\\)\\/\[ExponentialE]\\^x \\(\\(\ \[DifferentialD] x\\)\\)\\)\\)\\)\\)\\) = \\!\\(TraditionalForm\\`\\(x + \ \[ExponentialE]\\^\\(-x\\)\\)\\) + k\"\>", StringForm["`1` = `2` + k", analyse`Integrale[ HoldForm[(E^$CellContext`x - 1)/E^$CellContext`x], $CellContext`x], E^(-$CellContext`x) + $CellContext`x], Editable->False]}], SequenceForm[15, ") ", StringForm["`1` = `2` + k", analyse`Integrale[ HoldForm[(E^$CellContext`x - 1)/E^$CellContext`x], $CellContext`x], E^(-$CellContext`x) + $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.445493380075474*^9, 3.4454934281591578`*^9, 3.445493733387116*^9, { 3.445493771860426*^9, 3.445493817593499*^9}, 3.445493856100548*^9, { 3.44549391279068*^9, 3.445493938032642*^9}, 3.445493995057235*^9, 3.4454940621369057`*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"16", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\(\ \[Integral] \\(\\(\[ExponentialE]\\^x\\/\\(\[ExponentialE]\\^x - 1\\) \\(\\(\ \[DifferentialD] x\\)\\)\\)\\)\\)\\)\\) = \ \\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\(ln(\\(\\(\\*TemplateBox[List[\ RowBox[List[\\\"1\\\", \\\"-\\\", SuperscriptBox[\\\"\\\\[ExponentialE]\\\", \ \\\"x\\\"]]]], \\\"Abs\\\"]\\)\\))\\)\\)\\) + k\"\>", StringForm["`1` = `2` + k", analyse`Integrale[ HoldForm[E^$CellContext`x/(E^$CellContext`x - 1)], $CellContext`x], Log[ Abs[1 - E^$CellContext`x]]], Editable->False]}], SequenceForm[16, ") ", StringForm["`1` = `2` + k", analyse`Integrale[ HoldForm[E^$CellContext`x/(E^$CellContext`x - 1)], $CellContext`x], Log[ Abs[1 - E^$CellContext`x]]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.445493380075474*^9, 3.4454934281591578`*^9, 3.445493733387116*^9, { 3.445493771860426*^9, 3.445493817593499*^9}, 3.445493856100548*^9, { 3.44549391279068*^9, 3.445493938032642*^9}, 3.445493995057235*^9, 3.44549406217317*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"17", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\(\ \[Integral] \\(\\(\\(\\(cos(\\(\\(5\\\\ x\\)\\))\\)\\) \\(\\(\[DifferentialD] \ x\\)\\)\\)\\)\\)\\)\\) = \\!\\(TraditionalForm\\`\\(1\\/5\\\\ \ \\(\\(sin(\\(\\(5\\\\ x\\)\\))\\)\\)\\)\\) + k\"\>", StringForm["`1` = `2` + k", analyse`Integrale[ HoldForm[ Cos[5 $CellContext`x]], $CellContext`x], Rational[1, 5] Sin[5 $CellContext`x]], Editable->False]}], SequenceForm[17, ") ", StringForm["`1` = `2` + k", analyse`Integrale[ HoldForm[ Cos[5 $CellContext`x]], $CellContext`x], Rational[1, 5] Sin[5 $CellContext`x]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.445493380075474*^9, 3.4454934281591578`*^9, 3.445493733387116*^9, { 3.445493771860426*^9, 3.445493817593499*^9}, 3.445493856100548*^9, { 3.44549391279068*^9, 3.445493938032642*^9}, 3.445493995057235*^9, 3.445494062200918*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"18", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\(\ \[Integral] \\(\\(x\\/\\(\\(\\(cos\\^2\\)\\)(\\(\\(x\\^2\\)\\))\\) \\(\\(\ \[DifferentialD] x\\)\\)\\)\\)\\)\\)\\) = \ \\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\(tg(\\(\\(x\\^2\\)\\))\\)\\)\\/\ 2\\) + k\"\>", StringForm["`1` = `2` + k", analyse`Integrale[ HoldForm[$CellContext`x/Cos[$CellContext`x^2]^2], $CellContext`x], Rational[1, 2] Tan[$CellContext`x^2]], Editable->False]}], SequenceForm[18, ") ", StringForm["`1` = `2` + k", analyse`Integrale[ HoldForm[$CellContext`x/Cos[$CellContext`x^2]^2], $CellContext`x], Rational[1, 2] Tan[$CellContext`x^2]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.445493380075474*^9, 3.4454934281591578`*^9, 3.445493733387116*^9, { 3.445493771860426*^9, 3.445493817593499*^9}, 3.445493856100548*^9, { 3.44549391279068*^9, 3.445493938032642*^9}, 3.445493995057235*^9, 3.4454940622366962`*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"19", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\(\ \[Integral] \\(\\(\\(\\(TraditionalForm\\`\\(tg(x)\\)\\)\\) \\(\\(\ \[DifferentialD] x\\)\\)\\)\\)\\)\\)\\) = \ \\!\\(TraditionalForm\\`\\(-\\(\\(TraditionalForm\\`\\(ln(\\(\\(\\*\ TemplateBox[List[RowBox[List[\\\"cos\\\", \\\"(\\\", \\\"x\\\", \\\")\\\"]]], \ \\\"Abs\\\"]\\)\\))\\)\\)\\)\\)\\) + k\"\>", StringForm["`1` = `2` + k", analyse`Integrale[ HoldForm[ Tan[$CellContext`x]], $CellContext`x], -Log[ Abs[ Cos[$CellContext`x]]]], Editable->False]}], SequenceForm[19, ") ", StringForm["`1` = `2` + k", analyse`Integrale[ HoldForm[ Tan[$CellContext`x]], $CellContext`x], -Log[ Abs[ Cos[$CellContext`x]]]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.445493380075474*^9, 3.4454934281591578`*^9, 3.445493733387116*^9, { 3.445493771860426*^9, 3.445493817593499*^9}, 3.445493856100548*^9, { 3.44549391279068*^9, 3.445493938032642*^9}, 3.445493995057235*^9, 3.4454940622668667`*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"20", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\(\ \[Integral] \\(\\(\\(\\(x\\\\ \[ExponentialE]\\^\\(-x\\^2\\)\\)\\) \\(\\(\ \[DifferentialD] x\\)\\)\\)\\)\\)\\)\\) = \\!\\(TraditionalForm\\`\\(-\\(\\(\ \[ExponentialE]\\^\\(-x\\^2\\)\\/2\\)\\)\\)\\) + k\"\>", StringForm["`1` = `2` + k", analyse`Integrale[ HoldForm[$CellContext`x E^(-$CellContext`x^2)], $CellContext`x], Rational[-1, 2] E^(-$CellContext`x^2)], Editable->False]}], SequenceForm[20, ") ", StringForm["`1` = `2` + k", analyse`Integrale[ HoldForm[$CellContext`x E^(-$CellContext`x^2)], $CellContext`x], Rational[-1, 2] E^(-$CellContext`x^2)]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.445493380075474*^9, 3.4454934281591578`*^9, 3.445493733387116*^9, { 3.445493771860426*^9, 3.445493817593499*^9}, 3.445493856100548*^9, { 3.44549391279068*^9, 3.445493938032642*^9}, 3.445493995057235*^9, 3.445494062304256*^9}] }, Open ]] }, Open ]], Cell["", "PageBreak", PageBreakBelow->True], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"21", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\(\ \[Integral] \\(\\(\\(1 - \\(\\(sin(x)\\)\\)\\)\\/\\(x + \\(\\(cos(x)\\)\\)\\) \ \\(\\(\[DifferentialD] x\\)\\)\\)\\)\\)\\)\\) = \ \\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\(ln(\\(\\(\\*TemplateBox[List[\ RowBox[List[\\\"x\\\", \\\"+\\\", RowBox[List[\\\"cos\\\", \\\"(\\\", \\\"x\\\ \", \\\")\\\"]]]]], \\\"Abs\\\"]\\)\\))\\)\\)\\) + k\"\>", StringForm["`1` = `2` + k", analyse`Integrale[ HoldForm[(1 - Sin[$CellContext`x])/($CellContext`x + Cos[$CellContext`x])], $CellContext`x], Log[ Abs[$CellContext`x + Cos[$CellContext`x]]]], Editable->False]}], SequenceForm[21, ") ", StringForm["`1` = `2` + k", analyse`Integrale[ HoldForm[(1 - Sin[$CellContext`x])/($CellContext`x + Cos[$CellContext`x])], $CellContext`x], Log[ Abs[$CellContext`x + Cos[$CellContext`x]]]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.445493380075474*^9, 3.4454934281591578`*^9, 3.445493733387116*^9, { 3.445493771860426*^9, 3.445493817593499*^9}, 3.445493856100548*^9, { 3.44549391279068*^9, 3.445493938032642*^9}, 3.445493995057235*^9, 3.445494062333723*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"22", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\(\ \[Integral] \\(\\(\\(\\(\\(\\(cos(x)\\)\\)\\\\ \[ExponentialE]\\^\\(sin(x)\\)\ \\)\\) \\(\\(\[DifferentialD] x\\)\\)\\)\\)\\)\\)\\) = \ \\!\\(TraditionalForm\\`\[ExponentialE]\\^\\(sin(x)\\)\\) + k\"\>", StringForm["`1` = `2` + k", analyse`Integrale[ HoldForm[Cos[$CellContext`x] E^Sin[$CellContext`x]], $CellContext`x], E^Sin[$CellContext`x]], Editable->False]}], SequenceForm[22, ") ", StringForm["`1` = `2` + k", analyse`Integrale[ HoldForm[Cos[$CellContext`x] E^Sin[$CellContext`x]], $CellContext`x], E^ Sin[$CellContext`x]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.445493380075474*^9, 3.4454934281591578`*^9, 3.445493733387116*^9, { 3.445493771860426*^9, 3.445493817593499*^9}, 3.445493856100548*^9, { 3.44549391279068*^9, 3.445493938032642*^9}, 3.445493995057235*^9, 3.445494062359372*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"23", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\(\ \[Integral] \\(\\(\\(\\(\\(\\(sin(x)\\)\\)\\\\ \[ExponentialE]\\^\\(cos(x)\\)\ \\)\\) \\(\\(\[DifferentialD] x\\)\\)\\)\\)\\)\\)\\) = \ \\!\\(TraditionalForm\\`\\(-\[ExponentialE]\\^\\(cos(x)\\)\\)\\) + k\"\>", StringForm["`1` = `2` + k", analyse`Integrale[ HoldForm[Sin[$CellContext`x] E^Cos[$CellContext`x]], $CellContext`x], - E^Cos[$CellContext`x]], Editable->False]}], SequenceForm[23, ") ", StringForm["`1` = `2` + k", analyse`Integrale[ HoldForm[Sin[$CellContext`x] E^Cos[$CellContext`x]], $CellContext`x], - E^Cos[$CellContext`x]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.445493380075474*^9, 3.4454934281591578`*^9, 3.445493733387116*^9, { 3.445493771860426*^9, 3.445493817593499*^9}, 3.445493856100548*^9, { 3.44549391279068*^9, 3.445493938032642*^9}, 3.445493995057235*^9, 3.445494062386703*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"24", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\(\ \[Integral] \\(\\(\\(\\(\\(\\((x\\^2 + x)\\)\\)\\\\ \\((\\(\\(2\\\\ \ x\\^3\\)\\) + \\(\\(3\\\\ x\\^2\\)\\) + 5)\\)\\^6\\)\\) \ \\(\\(\[DifferentialD] x\\)\\)\\)\\)\\)\\)\\) = \ \\!\\(TraditionalForm\\`\\(1\\/42\\\\ \\((\\(\\(2\\\\ x\\^3\\)\\) + \\(\\(3\\\ \\ x\\^2\\)\\) + 5)\\)\\^7\\)\\) + k\"\>", StringForm["`1` = `2` + k", analyse`Integrale[ HoldForm[($CellContext`x^2 + $CellContext`x) (2 $CellContext`x^3 + 3 $CellContext`x^2 + 5)^6], $CellContext`x], Rational[1, 42] (5 + 3 $CellContext`x^2 + 2 $CellContext`x^3)^7], Editable->False]}], SequenceForm[24, ") ", StringForm["`1` = `2` + k", analyse`Integrale[ HoldForm[($CellContext`x^2 + $CellContext`x) (2 $CellContext`x^3 + 3 $CellContext`x^2 + 5)^6], $CellContext`x], Rational[1, 42] (5 + 3 $CellContext`x^2 + 2 $CellContext`x^3)^7]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.445493380075474*^9, 3.4454934281591578`*^9, 3.445493733387116*^9, { 3.445493771860426*^9, 3.445493817593499*^9}, 3.445493856100548*^9, { 3.44549391279068*^9, 3.445493938032642*^9}, 3.445493995057235*^9, 3.445494062414263*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"25", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\(\ \[Integral] \\(\\(\\(\\(3\\\\ \\(\\(sin(\\(\\(3\\\\ x\\)\\))\\)\\)\\)\\) \ \\(\\(\[DifferentialD] x\\)\\)\\)\\)\\)\\)\\) = \ \\!\\(TraditionalForm\\`\\(-\\(\\(cos(\\(\\(3\\\\ x\\)\\))\\)\\)\\)\\) + \ k\"\>", StringForm["`1` = `2` + k", analyse`Integrale[ HoldForm[3 Sin[3 $CellContext`x]], $CellContext`x], - Cos[3 $CellContext`x]], Editable->False]}], SequenceForm[25, ") ", StringForm["`1` = `2` + k", analyse`Integrale[ HoldForm[3 Sin[3 $CellContext`x]], $CellContext`x], - Cos[3 $CellContext`x]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.445493380075474*^9, 3.4454934281591578`*^9, 3.445493733387116*^9, { 3.445493771860426*^9, 3.445493817593499*^9}, 3.445493856100548*^9, { 3.44549391279068*^9, 3.445493938032642*^9}, 3.445493995057235*^9, 3.445494062440074*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"26", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\(\ \[Integral] \\(\\(1\\/\\(1 + \\((\\(\\(4\\\\ x\\)\\) + 2)\\)\\^2\\) \\(\\(\ \[DifferentialD] x\\)\\)\\)\\)\\)\\)\\) = \ \\!\\(TraditionalForm\\`\\(1\\/4\\\\ \ \\(\\(TraditionalForm\\`\\(Arctg(\\(\\(\\(\\(4\\\\ x\\)\\) + \ 2\\)\\))\\)\\)\\)\\)\\) + k\"\>", StringForm["`1` = `2` + k", analyse`Integrale[ HoldForm[1/(1 + (4 $CellContext`x + 2)^2)], $CellContext`x], Rational[1, 4] ArcTan[2 + 4 $CellContext`x]], Editable->False]}], SequenceForm[26, ") ", StringForm["`1` = `2` + k", analyse`Integrale[ HoldForm[1/(1 + (4 $CellContext`x + 2)^2)], $CellContext`x], Rational[1, 4] ArcTan[2 + 4 $CellContext`x]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.445493380075474*^9, 3.4454934281591578`*^9, 3.445493733387116*^9, { 3.445493771860426*^9, 3.445493817593499*^9}, 3.445493856100548*^9, { 3.44549391279068*^9, 3.445493938032642*^9}, 3.445493995057235*^9, 3.445494062468235*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"27", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\(\ \[Integral] \\(\\(\\(\\(x\\\\ \\(\\(sin(x)\\)\\)\\\\ \ \\(\\(\\(\\(cos\\^2\\)\\)(x)\\)\\)\\)\\) \\(\\(\[DifferentialD] x\\)\\)\\)\\)\ \\)\\)\\) = \\!\\(TraditionalForm\\`\\(1\\/36\\\\ \\(\\((\\(\\(\\(\\(-9\\)\\)\ \\\\ x\\\\ \\(\\(cos(x)\\)\\)\\)\\) - \\(\\(3\\\\ x\\\\ \\(\\(cos(\\(\\(3\\\\ \ x\\)\\))\\)\\)\\)\\) + \\(\\(9\\\\ \\(\\(sin(x)\\)\\)\\)\\) + \ \\(\\(sin(\\(\\(3\\\\ x\\)\\))\\)\\))\\)\\)\\)\\) + k\"\>", StringForm["`1` = `2` + k", analyse`Integrale[ HoldForm[$CellContext`x Sin[$CellContext`x] Cos[$CellContext`x]^2], $CellContext`x], Rational[1, 36] ((-9) $CellContext`x Cos[$CellContext`x] - 3 $CellContext`x Cos[3 $CellContext`x] + 9 Sin[$CellContext`x] + Sin[3 $CellContext`x])], Editable->False]}], SequenceForm[27, ") ", StringForm["`1` = `2` + k", analyse`Integrale[ HoldForm[$CellContext`x Sin[$CellContext`x] Cos[$CellContext`x]^2], $CellContext`x], Rational[1, 36] ((-9) $CellContext`x Cos[$CellContext`x] - 3 $CellContext`x Cos[3 $CellContext`x] + 9 Sin[$CellContext`x] + Sin[3 $CellContext`x])]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.445493380075474*^9, 3.4454934281591578`*^9, 3.445493733387116*^9, { 3.445493771860426*^9, 3.445493817593499*^9}, 3.445493856100548*^9, { 3.44549391279068*^9, 3.445493938032642*^9}, 3.445493995057235*^9, 3.4454940624943027`*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"28", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\(\ \[Integral] \\(\\(\\(\\(x\\\\ \\((x - 3)\\)\\^7\\)\\) \\(\\(\[DifferentialD] \ x\\)\\)\\)\\)\\)\\)\\) = \\!\\(TraditionalForm\\`\\(\\(\\(1\\/9\\\\ \\((x - \ 3)\\)\\^9\\)\\) + \\(\\(3\\/8\\\\ \\((x - 3)\\)\\^8\\)\\)\\)\\) + k\"\>", StringForm["`1` = `2` + k", analyse`Integrale[ HoldForm[$CellContext`x ($CellContext`x - 3)^7], $CellContext`x], Rational[3, 8] (-3 + $CellContext`x)^8 + Rational[1, 9] (-3 + $CellContext`x)^9], Editable->False]}], SequenceForm[28, ") ", StringForm["`1` = `2` + k", analyse`Integrale[ HoldForm[$CellContext`x ($CellContext`x - 3)^7], $CellContext`x], Rational[3, 8] (-3 + $CellContext`x)^8 + Rational[1, 9] (-3 + $CellContext`x)^9]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.445493380075474*^9, 3.4454934281591578`*^9, 3.445493733387116*^9, { 3.445493771860426*^9, 3.445493817593499*^9}, 3.445493856100548*^9, { 3.44549391279068*^9, 3.445493938032642*^9}, 3.445493995057235*^9, 3.445494062520645*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"29", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\(\ \[Integral] \\(\\(\\(\\(2\\\\ x\\\\ \\(\\(cos(x)\\)\\)\\)\\) \\(\\(\ \[DifferentialD] x\\)\\)\\)\\)\\)\\)\\) = \\!\\(TraditionalForm\\`\\(2\\\\ \ \\(\\((\\(\\(cos(x)\\)\\) + \\(\\(x\\\\ \\(\\(sin(x)\\)\\)\\)\\))\\)\\)\\)\\) \ + k\"\>", StringForm["`1` = `2` + k", analyse`Integrale[ HoldForm[2 $CellContext`x Cos[$CellContext`x]], $CellContext`x], 2 (Cos[$CellContext`x] + $CellContext`x Sin[$CellContext`x])], Editable->False]}], SequenceForm[29, ") ", StringForm["`1` = `2` + k", analyse`Integrale[ HoldForm[2 $CellContext`x Cos[$CellContext`x]], $CellContext`x], 2 (Cos[$CellContext`x] + $CellContext`x Sin[$CellContext`x])]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.445493380075474*^9, 3.4454934281591578`*^9, 3.445493733387116*^9, { 3.445493771860426*^9, 3.445493817593499*^9}, 3.445493856100548*^9, { 3.44549391279068*^9, 3.445493938032642*^9}, 3.445493995057235*^9, 3.445494062568347*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"30", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\(\ \[Integral] \\(\\(\\(3\\\\ x\\)\\/\\@\\(3 + x\\) \\(\\(\[DifferentialD] \ x\\)\\)\\)\\)\\)\\)\\) = \\!\\(TraditionalForm\\`\\(2\\\\ \\(\\((x - 6)\\)\\)\ \\\\ \\@\\(x + 3\\)\\)\\) + k\"\>", StringForm["`1` = `2` + k", analyse`Integrale[ HoldForm[3 ($CellContext`x/Sqrt[3 + $CellContext`x])], $CellContext`x], 2 (-6 + $CellContext`x) (3 + $CellContext`x)^Rational[1, 2]], Editable->False]}], SequenceForm[30, ") ", StringForm["`1` = `2` + k", analyse`Integrale[ HoldForm[3 ($CellContext`x/Sqrt[3 + $CellContext`x])], $CellContext`x], 2 (-6 + $CellContext`x) (3 + $CellContext`x)^Rational[1, 2]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.445493380075474*^9, 3.4454934281591578`*^9, 3.445493733387116*^9, { 3.445493771860426*^9, 3.445493817593499*^9}, 3.445493856100548*^9, { 3.44549391279068*^9, 3.445493938032642*^9}, 3.445493995057235*^9, 3.445494062604208*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"31", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\(\ \[Integral] \\(\\(\\(\\(-\\(\\(x\\^2\\/\\((1 + x\\^2)\\)\\^2\\)\\)\\)\\) \ \\(\\(\[DifferentialD] x\\)\\)\\)\\)\\)\\)\\) = \ \\!\\(TraditionalForm\\`\\(x\\/\\(2\\\\ \\(\\((x\\^2 + 1)\\)\\)\\) - \ \\(TraditionalForm\\`\\(Arctg(x)\\)\\)\\/2\\)\\) + k\"\>", StringForm["`1` = `2` + k", analyse`Integrale[ HoldForm[(-$CellContext`x^2)/( 1 + $CellContext`x^2)^2], $CellContext`x], Rational[1, 2] $CellContext`x/(1 + $CellContext`x^2) + Rational[-1, 2] ArcTan[$CellContext`x]], Editable->False]}], SequenceForm[31, ") ", StringForm["`1` = `2` + k", analyse`Integrale[ HoldForm[(-$CellContext`x^2)/(1 + $CellContext`x^2)^2], $CellContext`x], Rational[1, 2] $CellContext`x/(1 + $CellContext`x^2) + Rational[-1, 2] ArcTan[$CellContext`x]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.445493380075474*^9, 3.4454934281591578`*^9, 3.445493733387116*^9, { 3.445493771860426*^9, 3.445493817593499*^9}, 3.445493856100548*^9, { 3.44549391279068*^9, 3.445493938032642*^9}, 3.445493995057235*^9, 3.445494062640697*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"32", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\(\ \[Integral] \\(\\(\\(\\(\\(\\((\\(\\(2\\\\ x\\^2\\)\\) - x)\\)\\)\\\\ \\((\\(\ \\(4\\\\ x\\^3\\)\\) - \\(\\(3\\\\ x\\^2\\)\\) - 7)\\)\\^4\\)\\) \\(\\(\ \[DifferentialD] x\\)\\)\\)\\)\\)\\)\\) = \\!\\(TraditionalForm\\`\\(1\\/30\\\ \\ \\((\\(\\(4\\\\ x\\^3\\)\\) - \\(\\(3\\\\ x\\^2\\)\\) - 7)\\)\\^5\\)\\) + \ k\"\>", StringForm["`1` = `2` + k", analyse`Integrale[ HoldForm[( 2 $CellContext`x^2 - $CellContext`x) (4 $CellContext`x^3 - 3 $CellContext`x^2 - 7)^4], $CellContext`x], Rational[1, 30] (-7 - 3 $CellContext`x^2 + 4 $CellContext`x^3)^5], Editable->False]}], SequenceForm[32, ") ", StringForm["`1` = `2` + k", analyse`Integrale[ HoldForm[( 2 $CellContext`x^2 - $CellContext`x) (4 $CellContext`x^3 - 3 $CellContext`x^2 - 7)^4], $CellContext`x], Rational[1, 30] (-7 - 3 $CellContext`x^2 + 4 $CellContext`x^3)^5]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.445493380075474*^9, 3.4454934281591578`*^9, 3.445493733387116*^9, { 3.445493771860426*^9, 3.445493817593499*^9}, 3.445493856100548*^9, { 3.44549391279068*^9, 3.445493938032642*^9}, 3.445493995057235*^9, 3.4454940626676273`*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"33", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\(\ \[Integral] \\(\\(1\\/\\@\\(1 - \\(\\(9\\\\ x\\^2\\)\\)\\) \\(\\(\ \[DifferentialD] x\\)\\)\\)\\)\\)\\)\\) = \ \\!\\(TraditionalForm\\`\\(1\\/3\\\\ \ \\(\\(TraditionalForm\\`\\(Arcsin(\\(\\(3\\\\ x\\)\\))\\)\\)\\)\\)\\) + k\"\>", StringForm["`1` = `2` + k", analyse`Integrale[ HoldForm[1/Sqrt[1 - 9 $CellContext`x^2]], $CellContext`x], Rational[1, 3] ArcSin[3 $CellContext`x]], Editable->False]}], SequenceForm[33, ") ", StringForm["`1` = `2` + k", analyse`Integrale[ HoldForm[1/Sqrt[1 - 9 $CellContext`x^2]], $CellContext`x], Rational[1, 3] ArcSin[3 $CellContext`x]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.445493380075474*^9, 3.4454934281591578`*^9, 3.445493733387116*^9, { 3.445493771860426*^9, 3.445493817593499*^9}, 3.445493856100548*^9, { 3.44549391279068*^9, 3.445493938032642*^9}, 3.445493995057235*^9, 3.445494062694578*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"34", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\(\ \[Integral] \ \\(\\(\\(TraditionalForm\\`\\(\\*TemplateBox[List[\\\"Arccotg\\\", \ \\\"2\\\"], \\\"Superscript\\\", Rule[SyntaxForm, SuperscriptBox]] \ \[InvisibleApplication] \\(\\((x)\\)\\)\\)\\)\\/\\(1 + x\\^2\\) \\(\\(\ \[DifferentialD] x\\)\\)\\)\\)\\)\\)\\) = \ \\!\\(TraditionalForm\\`\\(-\\(\\(\\(TraditionalForm\\`\\(\\*TemplateBox[List[\ \\\"Arccotg\\\", \\\"3\\\"], \\\"Superscript\\\", Rule[SyntaxForm, \ SuperscriptBox]] \[InvisibleApplication] \ \\(\\((x)\\)\\)\\)\\)\\/3\\)\\)\\)\\) + k\"\>", StringForm["`1` = `2` + k", analyse`Integrale[ HoldForm[ ArcCot[$CellContext`x]^2/(1 + $CellContext`x^2)], $CellContext`x], Rational[-1, 3] ArcCot[$CellContext`x]^3], Editable->False]}], SequenceForm[34, ") ", StringForm["`1` = `2` + k", analyse`Integrale[ HoldForm[ ArcCot[$CellContext`x]^2/(1 + $CellContext`x^2)], $CellContext`x], Rational[-1, 3] ArcCot[$CellContext`x]^3]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.445493380075474*^9, 3.4454934281591578`*^9, 3.445493733387116*^9, { 3.445493771860426*^9, 3.445493817593499*^9}, 3.445493856100548*^9, { 3.44549391279068*^9, 3.445493938032642*^9}, 3.445493995057235*^9, 3.44549406272145*^9}] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{1069, 1061}, WindowMargins->{{125, Automatic}, {Automatic, 3}}, PrintingCopies->1, PrintingPageRange->{1, Automatic}, PageFooters->{{Inherited, Inherited, Inherited}, {Inherited, Inherited, Cell["\[Copyright] macformath.net"]}}, PageFooterLines->{Inherited, True}, CellLabelAutoDelete->True, FrontEndVersion->"7.0 for Mac OS X x86 (32-bit) (February 18, 2009)", StyleDefinitions->"stylemath.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[567, 22, 97, 2, 44, "Section"], Cell[CellGroupData[{ Cell[689, 28, 14975, 469, 19, "Input", CellOpen->False], Cell[CellGroupData[{ Cell[15689, 501, 914, 26, 44, "Print"], Cell[16606, 529, 873, 25, 42, "Print"], Cell[17482, 556, 830, 24, 44, "Print"], Cell[18315, 582, 870, 25, 62, "Print"], Cell[19188, 609, 951, 28, 48, "Print"], Cell[20142, 639, 846, 24, 44, "Print"], Cell[20991, 665, 844, 24, 44, "Print"], Cell[21838, 691, 879, 25, 44, "Print"], Cell[22720, 718, 872, 25, 62, "Print"], Cell[23595, 745, 880, 25, 49, "Print"], Cell[24478, 772, 845, 24, 42, "Print"], Cell[25326, 798, 939, 26, 42, "Print"], Cell[26268, 826, 898, 25, 42, "Print"], Cell[27169, 853, 847, 24, 42, "Print"], Cell[28019, 879, 907, 25, 45, "Print"], Cell[28929, 906, 908, 25, 45, "Print"], Cell[29840, 933, 815, 24, 42, "Print"], Cell[30658, 959, 887, 25, 49, "Print"], Cell[31548, 986, 826, 25, 42, "Print"], Cell[32377, 1013, 890, 25, 42, "Print"] }, Open ]] }, Open ]], Cell[33294, 1042, 44, 1, 1, "PageBreak", PageBreakBelow->True], Cell[CellGroupData[{ Cell[33363, 1047, 956, 27, 46, "Print"], Cell[34322, 1076, 911, 25, 42, "Print"], Cell[35236, 1103, 913, 25, 42, "Print"], Cell[36152, 1130, 1250, 34, 42, "Print"], Cell[37405, 1166, 838, 24, 42, "Print"], Cell[38246, 1192, 943, 27, 48, "Print"], Cell[39192, 1221, 931, 26, 42, "Print"], Cell[40126, 1249, 927, 26, 42, "Print"], Cell[41056, 1277, 833, 23, 42, "Print"], Cell[41892, 1302, 871, 25, 48, "Print"], Cell[42766, 1329, 990, 29, 55, "Print"], Cell[43759, 1360, 1295, 36, 42, "Print"], Cell[45057, 1398, 897, 26, 62, "Print"], Cell[45957, 1426, 1063, 31, 49, "Print"] }, Open ]], Cell[47035, 1460, 44, 1, 1, "PageBreak", PageBreakBelow->True], Cell[CellGroupData[{ Cell[47104, 1465, 31, 0, 39, "Subsection"], Cell[CellGroupData[{ Cell[47160, 1469, 371, 10, 19, "Input", CellOpen->False], Cell[CellGroupData[{ Cell[47556, 1483, 1318, 27, 44, "Print"], Cell[48877, 1512, 1038, 23, 44, "Print"], Cell[49918, 1537, 1221, 26, 45, "Print"], Cell[51142, 1565, 1066, 22, 62, "Print"], Cell[52211, 1589, 1426, 30, 48, "Print"], Cell[53640, 1621, 1231, 26, 50, "Print"], Cell[54874, 1649, 1231, 26, 50, "Print"], Cell[56108, 1677, 1293, 27, 50, "Print"], Cell[57404, 1706, 1112, 24, 62, "Print"], Cell[58519, 1732, 1111, 24, 50, "Print"], Cell[59633, 1758, 1127, 24, 44, "Print"], Cell[60763, 1784, 1142, 24, 42, "Print"], Cell[61908, 1810, 1116, 23, 51, "Print"], Cell[63027, 1835, 1087, 24, 53, "Print"], Cell[64117, 1861, 1111, 23, 45, "Print"], Cell[65231, 1886, 1249, 27, 45, "Print"], Cell[66483, 1915, 1091, 25, 44, "Print"], Cell[67577, 1942, 1127, 24, 54, "Print"], Cell[68707, 1968, 1209, 29, 42, "Print"], Cell[69919, 1999, 1119, 23, 51, "Print"] }, Open ]] }, Open ]], Cell[71065, 2026, 44, 1, 4, "PageBreak", PageBreakBelow->True], Cell[CellGroupData[{ Cell[71134, 2031, 1362, 29, 46, "Print"], Cell[72499, 2062, 1091, 23, 42, "Print"], Cell[73593, 2087, 1100, 23, 42, "Print"], Cell[74696, 2112, 1376, 27, 44, "Print"], Cell[76075, 2141, 1061, 24, 42, "Print"], Cell[77139, 2167, 1169, 25, 48, "Print"], Cell[78311, 2194, 1633, 32, 44, "Print"], Cell[79947, 2228, 1239, 25, 44, "Print"], Cell[81189, 2255, 1191, 24, 42, "Print"], Cell[82383, 2281, 1156, 23, 48, "Print"], Cell[83542, 2306, 1315, 27, 55, "Print"], Cell[84860, 2335, 1421, 29, 44, "Print"], Cell[86284, 2366, 1131, 24, 62, "Print"], Cell[87418, 2392, 1459, 31, 49, "Print"] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)