(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 6.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 72411, 1901] NotebookOptionsPosition[ 66928, 1756] NotebookOutlinePosition[ 67363, 1775] CellTagsIndexPosition[ 67320, 1772] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Fonctions cyclom\[EAcute]triques", "Subsubtitle", CellChangeTimes->{{3.401335618367836*^9, 3.401335622505247*^9}}], Cell[CellGroupData[{ Cell["\<\ D\[EAcute]terminer le domaine de d\[EAcute]finition, les \[EAcute]ventuelles \ racines et la fonction d\[EAcute]riv\[EAcute]e de \ \>", "Section", CellChangeTimes->{{3.401335653460619*^9, 3.401335677424684*^9}, { 3.4013371581642723`*^9, 3.40133715828883*^9}, {3.4013373373950453`*^9, 3.401337338096758*^9}, {3.401337575917554*^9, 3.401337579600786*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"n", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "++"}], ";", RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "n"}], "]"}], ":=", RowBox[{"1", "/", RowBox[{"ArcTan", "[", RowBox[{"2", "x"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "++"}], ";", RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "n"}], "]"}], ":=", RowBox[{"ArcCos", "[", RowBox[{"1", "-", "x"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "++"}], ";", RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "n"}], "]"}], ":=", RowBox[{"ArcSin", "[", RowBox[{"x", "^", "3"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "++"}], ";", RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "n"}], "]"}], ":=", RowBox[{ RowBox[{"ArcSin", "[", "x", "]"}], "^", "3"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "++"}], ";", RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "n"}], "]"}], ":=", RowBox[{"ArcCos", "[", RowBox[{ RowBox[{"x", "^", "2"}], "-", "4"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "++"}], ";", RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "n"}], "]"}], ":=", RowBox[{"ArcCos", "[", RowBox[{"1", "-", RowBox[{"2", "x"}], "-", RowBox[{"x", "^", "2"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "++"}], ";", RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "n"}], "]"}], ":=", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"(", RowBox[{"x", "-", "1"}], ")"}], "/", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "++"}], ";", RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "n"}], "]"}], ":=", RowBox[{"ArcCos", "[", RowBox[{"1", "-", RowBox[{"2", "x"}], "-", RowBox[{"x", "^", "2"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "++"}], ";", RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "n"}], "]"}], ":=", RowBox[{"1", "/", RowBox[{"ArcSin", "[", RowBox[{"2", "x"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"n", "++"}], ";", RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "n"}], "]"}], ":=", RowBox[{"ArcCos", "[", RowBox[{"1", "-", RowBox[{"x", "^", "3"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{"Print", "[", RowBox[{"i", ",", "\"\<) f(x) = \>\"", ",", RowBox[{"f", "[", RowBox[{"x", ",", "i"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "n"}], "}"}]}], "]"}], ";"}]}], "Input", CellOpen->False, CellChangeTimes->{{3.401335848658103*^9, 3.401335905435597*^9}, 3.401335944602687*^9, {3.401336238368037*^9, 3.401336238527525*^9}, { 3.4013363976599293`*^9, 3.4013365867442417`*^9}, {3.401336809430036*^9, 3.401336897703113*^9}, {3.401336952319871*^9, 3.401337140235916*^9}}], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"1", "\[InvisibleSpace]", "\<\") f(x) = \"\>", "\[InvisibleSpace]", FormBox[ FractionBox["1", RowBox[{"Arctg", "(", RowBox[{"2", " ", "x"}], ")"}]], TraditionalForm]}], SequenceForm[1, ") f(x) = ", ArcTan[2 $CellContext`x]^(-1)], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.401336446823955*^9, 3.40133645965443*^9}, { 3.401336576142818*^9, 3.401336579956411*^9}, 3.401336898631959*^9, 3.401336999995582*^9, 3.4013370502102222`*^9, 3.401337107838664*^9, 3.401337141408308*^9, 3.40162341905951*^9, 3.401623517907343*^9, 3.432695028211897*^9, 3.43269598341352*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"2", "\[InvisibleSpace]", "\<\") f(x) = \"\>", "\[InvisibleSpace]", FormBox[ RowBox[{"Arccos", "(", RowBox[{"1", "-", "x"}], ")"}], TraditionalForm]}], SequenceForm[2, ") f(x) = ", ArcCos[1 - $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.401336446823955*^9, 3.40133645965443*^9}, { 3.401336576142818*^9, 3.401336579956411*^9}, 3.401336898631959*^9, 3.401336999995582*^9, 3.4013370502102222`*^9, 3.401337107838664*^9, 3.401337141408308*^9, 3.40162341905951*^9, 3.401623517907343*^9, 3.432695028211897*^9, 3.4326959834178057`*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"3", "\[InvisibleSpace]", "\<\") f(x) = \"\>", "\[InvisibleSpace]", FormBox[ RowBox[{"Arcsin", "(", SuperscriptBox["x", "3"], ")"}], TraditionalForm]}], SequenceForm[3, ") f(x) = ", ArcSin[$CellContext`x^3]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.401336446823955*^9, 3.40133645965443*^9}, { 3.401336576142818*^9, 3.401336579956411*^9}, 3.401336898631959*^9, 3.401336999995582*^9, 3.4013370502102222`*^9, 3.401337107838664*^9, 3.401337141408308*^9, 3.40162341905951*^9, 3.401623517907343*^9, 3.432695028211897*^9, 3.432695983423222*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"4", "\[InvisibleSpace]", "\<\") f(x) = \"\>", "\[InvisibleSpace]", FormBox[ RowBox[{ TagBox[ SuperscriptBox[ TagBox["Arcsin", Power, Editable->True, Selectable->True], TagBox["3", Power, Editable->True, Selectable->True]], InterpretTemplate[Superscript[#, #2]& ], Editable->False, Selectable->False], "(", "x", ")"}], TraditionalForm]}], SequenceForm[4, ") f(x) = ", ArcSin[$CellContext`x]^3], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.401336446823955*^9, 3.40133645965443*^9}, { 3.401336576142818*^9, 3.401336579956411*^9}, 3.401336898631959*^9, 3.401336999995582*^9, 3.4013370502102222`*^9, 3.401337107838664*^9, 3.401337141408308*^9, 3.40162341905951*^9, 3.401623517907343*^9, 3.432695028211897*^9, 3.432695983427909*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"5", "\[InvisibleSpace]", "\<\") f(x) = \"\>", "\[InvisibleSpace]", FormBox[ RowBox[{"Arccos", "(", RowBox[{ SuperscriptBox["x", "2"], "-", "4"}], ")"}], TraditionalForm]}], SequenceForm[5, ") f(x) = ", ArcCos[-4 + $CellContext`x^2]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.401336446823955*^9, 3.40133645965443*^9}, { 3.401336576142818*^9, 3.401336579956411*^9}, 3.401336898631959*^9, 3.401336999995582*^9, 3.4013370502102222`*^9, 3.401337107838664*^9, 3.401337141408308*^9, 3.40162341905951*^9, 3.401623517907343*^9, 3.432695028211897*^9, 3.432695983434417*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"6", "\[InvisibleSpace]", "\<\") f(x) = \"\>", "\[InvisibleSpace]", FormBox[ RowBox[{"Arccos", "(", RowBox[{ RowBox[{"-", SuperscriptBox["x", "2"]}], "-", RowBox[{"2", " ", "x"}], "+", "1"}], ")"}], TraditionalForm]}], SequenceForm[6, ") f(x) = ", ArcCos[1 - 2 $CellContext`x - $CellContext`x^2]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.401336446823955*^9, 3.40133645965443*^9}, { 3.401336576142818*^9, 3.401336579956411*^9}, 3.401336898631959*^9, 3.401336999995582*^9, 3.4013370502102222`*^9, 3.401337107838664*^9, 3.401337141408308*^9, 3.40162341905951*^9, 3.401623517907343*^9, 3.432695028211897*^9, 3.432695983439331*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"7", "\[InvisibleSpace]", "\<\") f(x) = \"\>", "\[InvisibleSpace]", FormBox[ RowBox[{"Arctg", "(", FractionBox[ RowBox[{"x", "-", "1"}], RowBox[{"x", "+", "1"}]], ")"}], TraditionalForm]}], SequenceForm[7, ") f(x) = ", ArcTan[(-1 + $CellContext`x)/(1 + $CellContext`x)]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.401336446823955*^9, 3.40133645965443*^9}, { 3.401336576142818*^9, 3.401336579956411*^9}, 3.401336898631959*^9, 3.401336999995582*^9, 3.4013370502102222`*^9, 3.401337107838664*^9, 3.401337141408308*^9, 3.40162341905951*^9, 3.401623517907343*^9, 3.432695028211897*^9, 3.432695983447044*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"8", "\[InvisibleSpace]", "\<\") f(x) = \"\>", "\[InvisibleSpace]", FormBox[ RowBox[{"Arccos", "(", RowBox[{ RowBox[{"-", SuperscriptBox["x", "2"]}], "-", RowBox[{"2", " ", "x"}], "+", "1"}], ")"}], TraditionalForm]}], SequenceForm[8, ") f(x) = ", ArcCos[1 - 2 $CellContext`x - $CellContext`x^2]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.401336446823955*^9, 3.40133645965443*^9}, { 3.401336576142818*^9, 3.401336579956411*^9}, 3.401336898631959*^9, 3.401336999995582*^9, 3.4013370502102222`*^9, 3.401337107838664*^9, 3.401337141408308*^9, 3.40162341905951*^9, 3.401623517907343*^9, 3.432695028211897*^9, 3.4326959834541473`*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"9", "\[InvisibleSpace]", "\<\") f(x) = \"\>", "\[InvisibleSpace]", FormBox[ FractionBox["1", RowBox[{"Arcsin", "(", RowBox[{"2", " ", "x"}], ")"}]], TraditionalForm]}], SequenceForm[9, ") f(x) = ", ArcSin[2 $CellContext`x]^(-1)], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.401336446823955*^9, 3.40133645965443*^9}, { 3.401336576142818*^9, 3.401336579956411*^9}, 3.401336898631959*^9, 3.401336999995582*^9, 3.4013370502102222`*^9, 3.401337107838664*^9, 3.401337141408308*^9, 3.40162341905951*^9, 3.401623517907343*^9, 3.432695028211897*^9, 3.432695983458119*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ "10", "\[InvisibleSpace]", "\<\") f(x) = \"\>", "\[InvisibleSpace]", FormBox[ RowBox[{"Arccos", "(", RowBox[{"1", "-", SuperscriptBox["x", "3"]}], ")"}], TraditionalForm]}], SequenceForm[10, ") f(x) = ", ArcCos[1 - $CellContext`x^3]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.401336446823955*^9, 3.40133645965443*^9}, { 3.401336576142818*^9, 3.401336579956411*^9}, 3.401336898631959*^9, 3.401336999995582*^9, 3.4013370502102222`*^9, 3.401337107838664*^9, 3.401337141408308*^9, 3.40162341905951*^9, 3.401623517907343*^9, 3.432695028211897*^9, 3.4326959834627037`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Solutions", "Text", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.401336732370308*^9, 3.401336754009356*^9}}], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"Print", "[", RowBox[{"i", ",", "\"\<) Domf = \>\"", ",", RowBox[{"Domaine", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "i"}], "]"}], ",", "x"}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Racines", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "i"}], "]"}], ",", "x", ",", "2"}], "]"}], ";", "\[IndentingNewLine]", " ", RowBox[{"Print", "[", RowBox[{"\"\< f'(x) = \>\"", ",", RowBox[{"Derivee", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "i"}], "]"}], ",", "x"}], "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "n"}], "}"}]}], "]"}]], "Input", CellOpen->False, CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.4013366022055683`*^9, 3.401336681683779*^9}, { 3.401336718018371*^9, 3.401336754009577*^9}, {3.4013369092612867`*^9, 3.401336909988049*^9}, {3.4013371660469437`*^9, 3.4013372433328943`*^9}, { 3.4013373020473213`*^9, 3.401337309278949*^9}, {3.401337533477618*^9, 3.401337554165319*^9}, {3.432695084668878*^9, 3.432695089684918*^9}, { 3.432695129050919*^9, 3.432695208657278*^9}, {3.432695954714361*^9, 3.432695957553069*^9}}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"1", "\[InvisibleSpace]", "\<\") Domf = \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\*TagBox[\\\"\ \[DoubleStruckCapitalR]\\\", Function[List[], Reals]]\\) \\\\ \ {\\!\\(TraditionalForm\\`0\\)}\"\>", StringForm["`1` \\ {`2`}", Reals, 0], Editable->False], TraditionalForm]}], SequenceForm[1, ") Domf = ", analyse`Ens[ Or[$CellContext`x < 0, $CellContext`x > 0], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{ 3.401337309898624*^9, {3.401337542577883*^9, 3.401337561985079*^9}, 3.4013375975159073`*^9, 3.4016234197180758`*^9, 3.401623518098279*^9, 3.432695028896747*^9, 3.4326950905304117`*^9, 3.4326951367961273`*^9, { 3.4326951718430023`*^9, 3.4326952093796864`*^9}, {3.432695958327447*^9, 3.4326959874906816`*^9}}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"racines: \"\>", "\[InvisibleSpace]", FormBox["\[EmptySet]", TraditionalForm]}], SequenceForm["racines: ", analyse`Ens[False, $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{ 3.401337309898624*^9, {3.401337542577883*^9, 3.401337561985079*^9}, 3.4013375975159073`*^9, 3.4016234197180758`*^9, 3.401623518098279*^9, 3.432695028896747*^9, 3.4326950905304117`*^9, 3.4326951367961273`*^9, { 3.4326951718430023`*^9, 3.4326952093796864`*^9}, {3.432695958327447*^9, 3.432695987651211*^9}}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\" f'(x) = \"\>", "\[InvisibleSpace]", RowBox[{"-", FractionBox["2", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"4", " ", SuperscriptBox["x", "2"]}], "+", "1"}], ")"}], " ", FormBox[ RowBox[{ TagBox[ SuperscriptBox[ TagBox["Arctg", Power, Editable->True, Selectable->True], TagBox["2", Power, Editable->True, Selectable->True]], InterpretTemplate[Superscript[#, #2]& ], Editable->False, Selectable->False], "(", RowBox[{"2", " ", "x"}], ")"}], TraditionalForm]}]]}]}], SequenceForm[ " f'(x) = ", ((-2)/(1 + 4 $CellContext`x^2)) ArcTan[2 $CellContext`x]^(-2)], Editable->False], TraditionalForm]], "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{ 3.401337309898624*^9, {3.401337542577883*^9, 3.401337561985079*^9}, 3.4013375975159073`*^9, 3.4016234197180758`*^9, 3.401623518098279*^9, 3.432695028896747*^9, 3.4326950905304117`*^9, 3.4326951367961273`*^9, { 3.4326951718430023`*^9, 3.4326952093796864`*^9}, {3.432695958327447*^9, 3.432695987655531*^9}}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"2", "\[InvisibleSpace]", "\<\") Domf = \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"[\\!\\(TraditionalForm\\`0\\), \ \\!\\(TraditionalForm\\`2\\)]\"\>", StringForm["[`1`, `2`]", 0, 2], Editable->False], TraditionalForm]}], SequenceForm[2, ") Domf = ", analyse`Ens[ Inequality[0, LessEqual, $CellContext`x, LessEqual, 2], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{ 3.401337309898624*^9, {3.401337542577883*^9, 3.401337561985079*^9}, 3.4013375975159073`*^9, 3.4016234197180758`*^9, 3.401623518098279*^9, 3.432695028896747*^9, 3.4326950905304117`*^9, 3.4326951367961273`*^9, { 3.4326951718430023`*^9, 3.4326952093796864`*^9}, {3.432695958327447*^9, 3.4326959877128468`*^9}}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"racines: \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\" { \\!\\(TraditionalForm\\`0\\) }\"\>", StringForm[" { `1` }", 0], Editable->False], TraditionalForm]}], SequenceForm["racines: ", analyse`Ens[$CellContext`x == 0, $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{ 3.401337309898624*^9, {3.401337542577883*^9, 3.401337561985079*^9}, 3.4013375975159073`*^9, 3.4016234197180758`*^9, 3.401623518098279*^9, 3.432695028896747*^9, 3.4326950905304117`*^9, 3.4326951367961273`*^9, { 3.4326951718430023`*^9, 3.4326952093796864`*^9}, {3.432695958327447*^9, 3.432695987819337*^9}}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\" f'(x) = \"\>", "\[InvisibleSpace]", FractionBox["1", SqrtBox[ RowBox[{ RowBox[{"2", " ", "x"}], "-", SuperscriptBox["x", "2"]}]]]}], SequenceForm[ " f'(x) = ", (2 $CellContext`x - $CellContext`x^2)^Rational[-1, 2]], Editable->False], TraditionalForm]], "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{ 3.401337309898624*^9, {3.401337542577883*^9, 3.401337561985079*^9}, 3.4013375975159073`*^9, 3.4016234197180758`*^9, 3.401623518098279*^9, 3.432695028896747*^9, 3.4326950905304117`*^9, 3.4326951367961273`*^9, { 3.4326951718430023`*^9, 3.4326952093796864`*^9}, {3.432695958327447*^9, 3.432695987823545*^9}}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"3", "\[InvisibleSpace]", "\<\") Domf = \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"[\\!\\(TraditionalForm\\`\\(-1\\)\\), \ \\!\\(TraditionalForm\\`1\\)]\"\>", StringForm["[`1`, `2`]", -1, 1], Editable->False], TraditionalForm]}], SequenceForm[3, ") Domf = ", analyse`Ens[ Inequality[-1, LessEqual, $CellContext`x, LessEqual, 1], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{ 3.401337309898624*^9, {3.401337542577883*^9, 3.401337561985079*^9}, 3.4013375975159073`*^9, 3.4016234197180758`*^9, 3.401623518098279*^9, 3.432695028896747*^9, 3.4326950905304117`*^9, 3.4326951367961273`*^9, { 3.4326951718430023`*^9, 3.4326952093796864`*^9}, {3.432695958327447*^9, 3.432695987922709*^9}}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"racines: \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\" { \\!\\(TraditionalForm\\`0\\) }\"\>", StringForm[" { `1` }", 0], Editable->False], TraditionalForm]}], SequenceForm["racines: ", analyse`Ens[$CellContext`x == 0, $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{ 3.401337309898624*^9, {3.401337542577883*^9, 3.401337561985079*^9}, 3.4013375975159073`*^9, 3.4016234197180758`*^9, 3.401623518098279*^9, 3.432695028896747*^9, 3.4326950905304117`*^9, 3.4326951367961273`*^9, { 3.4326951718430023`*^9, 3.4326952093796864`*^9}, {3.432695958327447*^9, 3.432695988315346*^9}}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\" f'(x) = \"\>", "\[InvisibleSpace]", FractionBox[ RowBox[{"3", " ", SuperscriptBox["x", "2"]}], SqrtBox[ RowBox[{"1", "-", SuperscriptBox["x", "6"]}]]]}], SequenceForm[ " f'(x) = ", (3 $CellContext`x^2) (1 - $CellContext`x^6)^Rational[-1, 2]], Editable->False], TraditionalForm]], "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{ 3.401337309898624*^9, {3.401337542577883*^9, 3.401337561985079*^9}, 3.4013375975159073`*^9, 3.4016234197180758`*^9, 3.401623518098279*^9, 3.432695028896747*^9, 3.4326950905304117`*^9, 3.4326951367961273`*^9, { 3.4326951718430023`*^9, 3.4326952093796864`*^9}, 3.432695958327447*^9, 3.432695988359376*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"4", "\[InvisibleSpace]", "\<\") Domf = \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"[\\!\\(TraditionalForm\\`\\(-1\\)\\), \ \\!\\(TraditionalForm\\`1\\)]\"\>", StringForm["[`1`, `2`]", -1, 1], Editable->False], TraditionalForm]}], SequenceForm[4, ") Domf = ", analyse`Ens[ Inequality[-1, LessEqual, $CellContext`x, LessEqual, 1], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{ 3.401337309898624*^9, {3.401337542577883*^9, 3.401337561985079*^9}, 3.4013375975159073`*^9, 3.4016234197180758`*^9, 3.401623518098279*^9, 3.432695028896747*^9, 3.4326950905304117`*^9, 3.4326951367961273`*^9, { 3.4326951718430023`*^9, 3.4326952093796864`*^9}, 3.432695958327447*^9, 3.432695988455758*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"racines: \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\" { \\!\\(TraditionalForm\\`0\\) }\"\>", StringForm[" { `1` }", 0], Editable->False], TraditionalForm]}], SequenceForm["racines: ", analyse`Ens[$CellContext`x == 0, $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{ 3.401337309898624*^9, {3.401337542577883*^9, 3.401337561985079*^9}, 3.4013375975159073`*^9, 3.4016234197180758`*^9, 3.401623518098279*^9, 3.432695028896747*^9, 3.4326950905304117`*^9, 3.4326951367961273`*^9, { 3.4326951718430023`*^9, 3.4326952093796864`*^9}, 3.432695958327447*^9, 3.432695988697105*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\" f'(x) = \"\>", "\[InvisibleSpace]", FractionBox[ RowBox[{"3", " ", FormBox[ RowBox[{ TagBox[ SuperscriptBox[ TagBox["Arcsin", Power, Editable->True, Selectable->True], TagBox["2", Power, Editable->True, Selectable->True]], InterpretTemplate[Superscript[#, #2]& ], Editable->False, Selectable->False], "(", "x", ")"}], TraditionalForm]}], SqrtBox[ RowBox[{"1", "-", SuperscriptBox["x", "2"]}]]]}], SequenceForm[ " f'(x) = ", (3 (1 - $CellContext`x^2)^Rational[-1, 2]) ArcSin[$CellContext`x]^2], Editable->False], TraditionalForm]], "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{ 3.401337309898624*^9, {3.401337542577883*^9, 3.401337561985079*^9}, 3.4013375975159073`*^9, 3.4016234197180758`*^9, 3.401623518098279*^9, 3.432695028896747*^9, 3.4326950905304117`*^9, 3.4326951367961273`*^9, { 3.4326951718430023`*^9, 3.4326952093796864`*^9}, 3.432695958327447*^9, 3.432695988704009*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"5", "\[InvisibleSpace]", "\<\") Domf = \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"[\ \\\\!\\\\(TraditionalForm\\\\`\\\\(-\\\\@5\\\\)\\\\), \ \\\\!\\\\(TraditionalForm\\\\`\\\\(-\\\\@3\\\\)\\\\)]\\\"\\)\\) \[Union] \ \\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"[\\\\!\\\\(TraditionalForm\\\ \\`\\\\@3\\\\), \\\\!\\\\(TraditionalForm\\\\`\\\\@5\\\\)]\\\"\\)\\)\"\>", StringForm["`1` \[Union] `2`", analyse`Ens[ Inequality[-5^Rational[1, 2], LessEqual, $CellContext`x, LessEqual, -3^Rational[1, 2]], $CellContext`x], analyse`Ens[ Inequality[ 3^Rational[1, 2], LessEqual, $CellContext`x, LessEqual, 5^ Rational[1, 2]], $CellContext`x]], Editable->False], TraditionalForm]}], SequenceForm[5, ") Domf = ", analyse`Ens[ Or[ Inequality[-5^Rational[1, 2], LessEqual, $CellContext`x, LessEqual, -3^Rational[1, 2]], Inequality[ 3^Rational[1, 2], LessEqual, $CellContext`x, LessEqual, 5^ Rational[1, 2]]], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{ 3.401337309898624*^9, {3.401337542577883*^9, 3.401337561985079*^9}, 3.4013375975159073`*^9, 3.4016234197180758`*^9, 3.401623518098279*^9, 3.432695028896747*^9, 3.4326950905304117`*^9, 3.4326951367961273`*^9, { 3.4326951718430023`*^9, 3.4326952093796864`*^9}, 3.432695958327447*^9, 3.4326959887658453`*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"racines: \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"{\\!\\(TraditionalForm\\`\\(-\\@5\\)\\) , \ \\!\\(TraditionalForm\\`\\@5\\)}\"\>", StringForm["{`1` , `2`}", -5^Rational[1, 2], 5^Rational[1, 2]], Editable->False], TraditionalForm]}], SequenceForm["racines: ", analyse`Ens[ Or[$CellContext`x == -5^Rational[1, 2], $CellContext`x == 5^Rational[1, 2]], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{ 3.401337309898624*^9, {3.401337542577883*^9, 3.401337561985079*^9}, 3.4013375975159073`*^9, 3.4016234197180758`*^9, 3.401623518098279*^9, 3.432695028896747*^9, 3.4326950905304117`*^9, 3.4326951367961273`*^9, { 3.4326951718430023`*^9, 3.4326952093796864`*^9}, 3.432695958327447*^9, 3.432695989682844*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\" f'(x) = \"\>", "\[InvisibleSpace]", RowBox[{"-", FractionBox[ RowBox[{"2", " ", "x"}], SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["x", "4"]}], "+", RowBox[{"8", " ", SuperscriptBox["x", "2"]}], "-", "15"}]]]}]}], SequenceForm[ " f'(x) = ", ((-2) $CellContext`x) (-15 + 8 $CellContext`x^2 - $CellContext`x^4)^Rational[-1, 2]], Editable->False], TraditionalForm]], "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{ 3.401337309898624*^9, {3.401337542577883*^9, 3.401337561985079*^9}, 3.4013375975159073`*^9, 3.4016234197180758`*^9, 3.401623518098279*^9, 3.432695028896747*^9, 3.4326950905304117`*^9, 3.4326951367961273`*^9, { 3.4326951718430023`*^9, 3.4326952093796864`*^9}, 3.432695958327447*^9, 3.432695989731792*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"6", "\[InvisibleSpace]", "\<\") Domf = \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"[\ \\\\!\\\\(TraditionalForm\\\\`\\\\(\\\\(\\\\(-1\\\\)\\\\) - \\\\@3\\\\)\\\\), \ \\\\!\\\\(TraditionalForm\\\\`\\\\(-2\\\\)\\\\)]\\\"\\)\\) \[Union] \ \\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"[\\\\!\\\\(TraditionalForm\\\ \\`0\\\\), \\\\!\\\\(TraditionalForm\\\\`\\\\(\\\\(\\\\(-1\\\\)\\\\) + \\\\@3\ \\\\)\\\\)]\\\"\\)\\)\"\>", StringForm["`1` \[Union] `2`", analyse`Ens[ Inequality[-1 - 3^Rational[1, 2], LessEqual, $CellContext`x, LessEqual, -2], $CellContext`x], analyse`Ens[ Inequality[ 0, LessEqual, $CellContext`x, LessEqual, -1 + 3^Rational[1, 2]], $CellContext`x]], Editable->False], TraditionalForm]}], SequenceForm[6, ") Domf = ", analyse`Ens[ Or[ Inequality[-1 - 3^Rational[1, 2], LessEqual, $CellContext`x, LessEqual, -2], Inequality[ 0, LessEqual, $CellContext`x, LessEqual, -1 + 3^Rational[1, 2]]], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{ 3.401337309898624*^9, {3.401337542577883*^9, 3.401337561985079*^9}, 3.4013375975159073`*^9, 3.4016234197180758`*^9, 3.401623518098279*^9, 3.432695028896747*^9, 3.4326950905304117`*^9, 3.4326951367961273`*^9, { 3.4326951718430023`*^9, 3.4326952093796864`*^9}, 3.432695958327447*^9, 3.432695989797408*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"racines: \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"{\\!\\(TraditionalForm\\`\\(-2\\)\\) , \ \\!\\(TraditionalForm\\`0\\)}\"\>", StringForm["{`1` , `2`}", -2, 0], Editable->False], TraditionalForm]}], SequenceForm["racines: ", analyse`Ens[ Or[$CellContext`x == -2, $CellContext`x == 0], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{ 3.401337309898624*^9, {3.401337542577883*^9, 3.401337561985079*^9}, 3.4013375975159073`*^9, 3.4016234197180758`*^9, 3.401623518098279*^9, 3.432695028896747*^9, 3.4326950905304117`*^9, 3.4326951367961273`*^9, { 3.4326951718430023`*^9, 3.4326952093796864`*^9}, 3.432695958327447*^9, 3.4326959913076763`*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\" f'(x) = \"\>", "\[InvisibleSpace]", FractionBox[ RowBox[{"2", " ", RowBox[{"(", RowBox[{"x", "+", "1"}], ")"}]}], SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["x", "4"]}], "-", RowBox[{"4", " ", SuperscriptBox["x", "3"]}], "-", RowBox[{"2", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"4", " ", "x"}]}]]]}], SequenceForm[ " f'(x) = ", ( 2 (1 + $CellContext`x)) (4 $CellContext`x - 2 $CellContext`x^2 - 4 $CellContext`x^3 - $CellContext`x^4)^Rational[-1, 2]], Editable->False], TraditionalForm]], "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{ 3.401337309898624*^9, {3.401337542577883*^9, 3.401337561985079*^9}, 3.4013375975159073`*^9, 3.4016234197180758`*^9, 3.401623518098279*^9, 3.432695028896747*^9, 3.4326950905304117`*^9, 3.4326951367961273`*^9, { 3.4326951718430023`*^9, 3.4326952093796864`*^9}, 3.432695958327447*^9, 3.4326959913361607`*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"7", "\[InvisibleSpace]", "\<\") Domf = \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\*TagBox[\\\"\ \[DoubleStruckCapitalR]\\\", Function[List[], Reals]]\\) \\\\ \ {\\!\\(TraditionalForm\\`\\(-1\\)\\)}\"\>", StringForm["`1` \\ {`2`}", Reals, -1], Editable->False], TraditionalForm]}], SequenceForm[7, ") Domf = ", analyse`Ens[ Or[$CellContext`x < -1, $CellContext`x > -1], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{ 3.401337309898624*^9, {3.401337542577883*^9, 3.401337561985079*^9}, 3.4013375975159073`*^9, 3.4016234197180758`*^9, 3.401623518098279*^9, 3.432695028896747*^9, 3.4326950905304117`*^9, 3.4326951367961273`*^9, { 3.4326951718430023`*^9, 3.4326952093796864`*^9}, 3.432695958327447*^9, 3.432695991392215*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"racines: \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\" { \\!\\(TraditionalForm\\`1\\) }\"\>", StringForm[" { `1` }", 1], Editable->False], TraditionalForm]}], SequenceForm["racines: ", analyse`Ens[$CellContext`x == 1, $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{ 3.401337309898624*^9, {3.401337542577883*^9, 3.401337561985079*^9}, 3.4013375975159073`*^9, 3.4016234197180758`*^9, 3.401623518098279*^9, 3.432695028896747*^9, 3.4326950905304117`*^9, 3.4326951367961273`*^9, { 3.4326951718430023`*^9, 3.4326952093796864`*^9}, 3.432695958327447*^9, 3.432695992504826*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\" f'(x) = \"\>", "\[InvisibleSpace]", FractionBox["1", RowBox[{ SuperscriptBox["x", "2"], "+", "1"}]]}], SequenceForm[" f'(x) = ", (1 + $CellContext`x^2)^(-1)], Editable->False], TraditionalForm]], "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{ 3.401337309898624*^9, {3.401337542577883*^9, 3.401337561985079*^9}, 3.4013375975159073`*^9, 3.4016234197180758`*^9, 3.401623518098279*^9, 3.432695028896747*^9, 3.4326950905304117`*^9, 3.4326951367961273`*^9, { 3.4326951718430023`*^9, 3.4326952093796864`*^9}, 3.432695958327447*^9, 3.4326959925433683`*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"8", "\[InvisibleSpace]", "\<\") Domf = \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"[\ \\\\!\\\\(TraditionalForm\\\\`\\\\(\\\\(\\\\(-1\\\\)\\\\) - \\\\@3\\\\)\\\\), \ \\\\!\\\\(TraditionalForm\\\\`\\\\(-2\\\\)\\\\)]\\\"\\)\\) \[Union] \ \\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"[\\\\!\\\\(TraditionalForm\\\ \\`0\\\\), \\\\!\\\\(TraditionalForm\\\\`\\\\(\\\\(\\\\(-1\\\\)\\\\) + \\\\@3\ \\\\)\\\\)]\\\"\\)\\)\"\>", StringForm["`1` \[Union] `2`", analyse`Ens[ Inequality[-1 - 3^Rational[1, 2], LessEqual, $CellContext`x, LessEqual, -2], $CellContext`x], analyse`Ens[ Inequality[ 0, LessEqual, $CellContext`x, LessEqual, -1 + 3^Rational[1, 2]], $CellContext`x]], Editable->False], TraditionalForm]}], SequenceForm[8, ") Domf = ", analyse`Ens[ Or[ Inequality[-1 - 3^Rational[1, 2], LessEqual, $CellContext`x, LessEqual, -2], Inequality[ 0, LessEqual, $CellContext`x, LessEqual, -1 + 3^Rational[1, 2]]], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{ 3.401337309898624*^9, {3.401337542577883*^9, 3.401337561985079*^9}, 3.4013375975159073`*^9, 3.4016234197180758`*^9, 3.401623518098279*^9, 3.432695028896747*^9, 3.4326950905304117`*^9, 3.4326951367961273`*^9, { 3.4326951718430023`*^9, 3.4326952093796864`*^9}, 3.432695958327447*^9, 3.432695992646666*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"racines: \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"{\\!\\(TraditionalForm\\`\\(-2\\)\\) , \ \\!\\(TraditionalForm\\`0\\)}\"\>", StringForm["{`1` , `2`}", -2, 0], Editable->False], TraditionalForm]}], SequenceForm["racines: ", analyse`Ens[ Or[$CellContext`x == -2, $CellContext`x == 0], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{ 3.401337309898624*^9, {3.401337542577883*^9, 3.401337561985079*^9}, 3.4013375975159073`*^9, 3.4016234197180758`*^9, 3.401623518098279*^9, 3.432695028896747*^9, 3.4326950905304117`*^9, 3.4326951367961273`*^9, { 3.4326951718430023`*^9, 3.4326952093796864`*^9}, 3.432695958327447*^9, 3.4326959937929983`*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\" f'(x) = \"\>", "\[InvisibleSpace]", FractionBox[ RowBox[{"2", " ", RowBox[{"(", RowBox[{"x", "+", "1"}], ")"}]}], SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["x", "4"]}], "-", RowBox[{"4", " ", SuperscriptBox["x", "3"]}], "-", RowBox[{"2", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"4", " ", "x"}]}]]]}], SequenceForm[ " f'(x) = ", ( 2 (1 + $CellContext`x)) (4 $CellContext`x - 2 $CellContext`x^2 - 4 $CellContext`x^3 - $CellContext`x^4)^Rational[-1, 2]], Editable->False], TraditionalForm]], "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{ 3.401337309898624*^9, {3.401337542577883*^9, 3.401337561985079*^9}, 3.4013375975159073`*^9, 3.4016234197180758`*^9, 3.401623518098279*^9, 3.432695028896747*^9, 3.4326950905304117`*^9, 3.4326951367961273`*^9, { 3.4326951718430023`*^9, 3.4326952093796864`*^9}, 3.432695958327447*^9, 3.432695993830452*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"9", "\[InvisibleSpace]", "\<\") Domf = \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"[\ \\\\!\\\\(TraditionalForm\\\\`\\\\(-\\\\(\\\\(1\\\\/2\\\\)\\\\)\\\\)\\\\), \\\ \\!\\\\(TraditionalForm\\\\`0\\\\)[\\\"\\)\\) \[Union] \ \\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"]\\\\!\\\\(TraditionalForm\\\ \\`0\\\\), \\\\!\\\\(TraditionalForm\\\\`1\\\\/2\\\\)]\\\"\\)\\)\"\>", StringForm["`1` \[Union] `2`", analyse`Ens[ Inequality[ Rational[-1, 2], LessEqual, $CellContext`x, Less, 0], $CellContext`x], analyse`Ens[ Inequality[0, Less, $CellContext`x, LessEqual, Rational[1, 2]], $CellContext`x]], Editable->False], TraditionalForm]}], SequenceForm[9, ") Domf = ", analyse`Ens[ Or[ Inequality[ Rational[-1, 2], LessEqual, $CellContext`x, Less, 0], Inequality[0, Less, $CellContext`x, LessEqual, Rational[1, 2]]], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{ 3.401337309898624*^9, {3.401337542577883*^9, 3.401337561985079*^9}, 3.4013375975159073`*^9, 3.4016234197180758`*^9, 3.401623518098279*^9, 3.432695028896747*^9, 3.4326950905304117`*^9, 3.4326951367961273`*^9, { 3.4326951718430023`*^9, 3.4326952093796864`*^9}, 3.432695958327447*^9, 3.432695993929275*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"racines: \"\>", "\[InvisibleSpace]", FormBox["\[EmptySet]", TraditionalForm]}], SequenceForm["racines: ", analyse`Ens[False, $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{ 3.401337309898624*^9, {3.401337542577883*^9, 3.401337561985079*^9}, 3.4013375975159073`*^9, 3.4016234197180758`*^9, 3.401623518098279*^9, 3.432695028896747*^9, 3.4326950905304117`*^9, 3.4326951367961273`*^9, { 3.4326951718430023`*^9, 3.4326952093796864`*^9}, 3.432695958327447*^9, 3.432695994142027*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\" f'(x) = \"\>", "\[InvisibleSpace]", RowBox[{"-", FractionBox["2", RowBox[{ SqrtBox[ RowBox[{"1", "-", RowBox[{"4", " ", SuperscriptBox["x", "2"]}]}]], " ", FormBox[ RowBox[{ TagBox[ SuperscriptBox[ TagBox["Arcsin", Power, Editable->True, Selectable->True], TagBox["2", Power, Editable->True, Selectable->True]], InterpretTemplate[Superscript[#, #2]& ], Editable->False, Selectable->False], "(", RowBox[{"2", " ", "x"}], ")"}], TraditionalForm]}]]}]}], SequenceForm[ " f'(x) = ", ((-2) (1 - 4 $CellContext`x^2)^Rational[-1, 2]) ArcSin[2 $CellContext`x]^(-2)], Editable->False], TraditionalForm]], "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{ 3.401337309898624*^9, {3.401337542577883*^9, 3.401337561985079*^9}, 3.4013375975159073`*^9, 3.4016234197180758`*^9, 3.401623518098279*^9, 3.432695028896747*^9, 3.4326950905304117`*^9, 3.4326951367961273`*^9, { 3.4326951718430023`*^9, 3.4326952093796864`*^9}, 3.432695958327447*^9, 3.432695994185645*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ "10", "\[InvisibleSpace]", "\<\") Domf = \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"[\\!\\(TraditionalForm\\`0\\), \ \\!\\(TraditionalForm\\`\\@2\\%3\\)]\"\>", StringForm["[`1`, `2`]", 0, 2^Rational[1, 3]], Editable->False], TraditionalForm]}], SequenceForm[10, ") Domf = ", analyse`Ens[ Inequality[ 0, LessEqual, $CellContext`x, LessEqual, 2^ Rational[1, 3]], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{ 3.401337309898624*^9, {3.401337542577883*^9, 3.401337561985079*^9}, 3.4013375975159073`*^9, 3.4016234197180758`*^9, 3.401623518098279*^9, 3.432695028896747*^9, 3.4326950905304117`*^9, 3.4326951367961273`*^9, { 3.4326951718430023`*^9, 3.4326952093796864`*^9}, 3.432695958327447*^9, 3.43269599424074*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"racines: \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\" { \\!\\(TraditionalForm\\`0\\) }\"\>", StringForm[" { `1` }", 0], Editable->False], TraditionalForm]}], SequenceForm["racines: ", analyse`Ens[$CellContext`x == 0, $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{ 3.401337309898624*^9, {3.401337542577883*^9, 3.401337561985079*^9}, 3.4013375975159073`*^9, 3.4016234197180758`*^9, 3.401623518098279*^9, 3.432695028896747*^9, 3.4326950905304117`*^9, 3.4326951367961273`*^9, { 3.4326951718430023`*^9, 3.4326952093796864`*^9}, 3.432695958327447*^9, 3.432695994567601*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\" f'(x) = \"\>", "\[InvisibleSpace]", FractionBox[ RowBox[{"3", " ", SuperscriptBox["x", "2"]}], SqrtBox[ RowBox[{ RowBox[{"2", " ", SuperscriptBox["x", "3"]}], "-", SuperscriptBox["x", "6"]}]]]}], SequenceForm[ " f'(x) = ", (3 $CellContext`x^2) (2 $CellContext`x^3 - $CellContext`x^6)^ Rational[-1, 2]], Editable->False], TraditionalForm]], "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{ 3.401337309898624*^9, {3.401337542577883*^9, 3.401337561985079*^9}, 3.4013375975159073`*^9, 3.4016234197180758`*^9, 3.401623518098279*^9, 3.432695028896747*^9, 3.4326950905304117`*^9, 3.4326951367961273`*^9, { 3.4326951718430023`*^9, 3.4326952093796864`*^9}, 3.432695958327447*^9, 3.432695994595148*^9}] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Calcul de limites", "Section", CellChangeTimes->{{3.4013376327242317`*^9, 3.4013376413858137`*^9}}], Cell[CellGroupData[{ Cell["\<\ Calculer les limites suivantes (\[EAcute]ventuellement en utilisant la r\ \[EGrave]gle de l'Hospital)\ \>", "Subsubsection", CellChangeTimes->{{3.401337643336197*^9, 3.4013376577926073`*^9}, { 3.401337944235344*^9, 3.4013379577375*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"n", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"n", "++"}], ";", RowBox[{"Print", "[", RowBox[{"n", ",", "\"\<) \>\"", ",", RowBox[{"Limite", "[", RowBox[{ RowBox[{"HoldForm", "[", RowBox[{"ArcSin", "[", RowBox[{ RowBox[{"2", "x"}], "-", "1"}], "]"}], "]"}], ",", "x", ",", RowBox[{"1", "/", "2"}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"n", "++"}], ";", RowBox[{"Print", "[", RowBox[{"n", ",", "\"\<) \>\"", ",", RowBox[{"Limite", "[", RowBox[{ RowBox[{"ArcCos", "[", RowBox[{"1", "-", "x"}], "]"}], ",", "x", ",", RowBox[{ RowBox[{"-", "1"}], "/", "2"}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"n", "++"}], ";", RowBox[{"Print", "[", RowBox[{"n", ",", "\"\<) \>\"", ",", RowBox[{"Limite", "[", RowBox[{ RowBox[{"ArcTan", "[", RowBox[{"1", "/", "x"}], "]"}], ",", "x", ",", "0"}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"n", "++"}], ";", RowBox[{"Print", "[", RowBox[{"n", ",", "\"\<) \>\"", ",", RowBox[{"Limite", "[", RowBox[{ RowBox[{ RowBox[{"ArcSin", "[", "x", "]"}], "/", "x"}], ",", "x", ",", "0"}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"n", "++"}], ";", RowBox[{"Print", "[", RowBox[{"n", ",", "\"\<) \>\"", ",", RowBox[{"Limite", "[", RowBox[{ RowBox[{"3", RowBox[{"x", "/", RowBox[{"ArcTan", "[", RowBox[{"2", "x"}], "]"}]}]}], ",", "x", ",", "0"}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"n", "++"}], ";", RowBox[{"Print", "[", RowBox[{"n", ",", "\"\<) \>\"", ",", RowBox[{"Limite", "[", RowBox[{ RowBox[{"x", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Pi]", "/", "2"}], "-", RowBox[{"ArcTan", "[", "x", "]"}]}], ")"}]}], ",", "x", ",", RowBox[{"+", "Infinity"}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "++"}], ";", RowBox[{"Print", "[", RowBox[{"n", ",", "\"\<) \>\"", ",", RowBox[{"Limite", "[", RowBox[{ RowBox[{"HoldForm", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"ArcSin", "[", "x", "]"}], "-", RowBox[{"2", "x"}]}], ")"}], "/", RowBox[{ RowBox[{"Sin", "[", "x", "]"}], "^", "3"}]}], "]"}], ",", "x", ",", "0"}], "]"}]}], "]"}], ";"}]}], "Input", CellOpen->False, CellChangeTimes->{{3.4013377475496607`*^9, 3.401337867399254*^9}, { 3.401337969937768*^9, 3.401338070970437*^9}, {3.401338523413003*^9, 3.401338528149037*^9}, {3.432696048206767*^9, 3.432696058671701*^9}}], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"1", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \ \[Rule] 1\\/2\\)\\) \ \\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\(Arcsin(\\(\\(\\(\\(2\\\\ x\\)\ \\) - 1\\)\\))\\)\\)\\)\"\>", StringForm["`1` `2`", Underscript["lim", $CellContext`x -> Rational[1, 2]], HoldForm[ ArcSin[2 $CellContext`x - 1]]], Editable->False], TraditionalForm]}], SequenceForm[1, ") ", analyse`Limite[ HoldForm[ ArcSin[2 $CellContext`x - 1]], $CellContext`x, Rational[1, 2]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.40133780445982*^9, {3.401337859293272*^9, 3.4013378679725857`*^9}, { 3.4013380553371964`*^9, 3.4013380715123167`*^9}, 3.40133852870151*^9, 3.401623420640102*^9, 3.401623518655929*^9, 3.4326950354800577`*^9, 3.432696059306982*^9, 3.434431475912079*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"2", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \ \[Rule] \\(\\(-\\(\\(1\\/2\\)\\)\\)\\)\\)\\) \ \\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\(Arccos(\\(\\(1 - \ x\\)\\))\\)\\)\\)\"\>", StringForm["`1` `2`", Underscript["lim", $CellContext`x -> Rational[-1, 2]], ArcCos[1 - $CellContext`x]], Editable->False], TraditionalForm]}], SequenceForm[2, ") ", analyse`Limite[ ArcCos[1 - $CellContext`x], $CellContext`x, Rational[-1, 2]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.40133780445982*^9, {3.401337859293272*^9, 3.4013378679725857`*^9}, { 3.4013380553371964`*^9, 3.4013380715123167`*^9}, 3.40133852870151*^9, 3.401623420640102*^9, 3.401623518655929*^9, 3.4326950354800577`*^9, 3.432696059306982*^9, 3.434431475917997*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"3", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \ \[Rule] 0\\)\\) \\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\(Arctg(\\(\\(1\ \\/x\\)\\))\\)\\)\\)\"\>", StringForm["`1` `2`", Underscript["lim", $CellContext`x -> 0], ArcTan[$CellContext`x^(-1)]], Editable->False], TraditionalForm]}], SequenceForm[3, ") ", analyse`Limite[ ArcTan[$CellContext`x^(-1)], $CellContext`x, 0]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.40133780445982*^9, {3.401337859293272*^9, 3.4013378679725857`*^9}, { 3.4013380553371964`*^9, 3.4013380715123167`*^9}, 3.40133852870151*^9, 3.401623420640102*^9, 3.401623518655929*^9, 3.4326950354800577`*^9, 3.432696059306982*^9, 3.434431475921218*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"4", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \ \[Rule] 0\\)\\) \ \\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\(Arcsin(x)\\)\\)\\/x\\)\"\>", StringForm["`1` `2`", Underscript["lim", $CellContext`x -> 0], $CellContext`x^(-1) ArcSin[$CellContext`x]], Editable->False], TraditionalForm]}], SequenceForm[4, ") ", analyse`Limite[$CellContext`x^(-1) ArcSin[$CellContext`x], $CellContext`x, 0]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.40133780445982*^9, {3.401337859293272*^9, 3.4013378679725857`*^9}, { 3.4013380553371964`*^9, 3.4013380715123167`*^9}, 3.40133852870151*^9, 3.401623420640102*^9, 3.401623518655929*^9, 3.4326950354800577`*^9, 3.432696059306982*^9, 3.434431475924461*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"5", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \ \[Rule] 0\\)\\) \\!\\(TraditionalForm\\`\\(3\\\\ x\\)\\/\\(TraditionalForm\\`\ \\(Arctg(\\(\\(2\\\\ x\\)\\))\\)\\)\\)\"\>", StringForm["`1` `2`", Underscript["lim", $CellContext`x -> 0], 3 ($CellContext`x/ArcTan[2 $CellContext`x])], Editable->False], TraditionalForm]}], SequenceForm[5, ") ", analyse`Limite[ 3 ($CellContext`x/ArcTan[2 $CellContext`x]), $CellContext`x, 0]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.40133780445982*^9, {3.401337859293272*^9, 3.4013378679725857`*^9}, { 3.4013380553371964`*^9, 3.4013380715123167`*^9}, 3.40133852870151*^9, 3.401623420640102*^9, 3.401623518655929*^9, 3.4326950354800577`*^9, 3.432696059306982*^9, 3.4344314759277983`*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"6", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \ \[Rule] \\\"+\\\\!\\\\(TraditionalForm\\\\`\\\\[Infinity]\\\\)\\\"\\)\\) \ \\!\\(TraditionalForm\\`\\(x\\\\ \\(\\((\[Pi]\\/2 - \ \\(\\(TraditionalForm\\`\\(Arctg(x)\\)\\)\\))\\)\\)\\)\\)\"\>", StringForm["`1` `2`", Underscript["lim", $CellContext`x -> StringForm["+`1`", DirectedInfinity[1]]], $CellContext`x (Rational[1, 2] Pi - ArcTan[$CellContext`x])], Editable->False], TraditionalForm]}], SequenceForm[6, ") ", analyse`Limite[$CellContext`x (Rational[1, 2] Pi - ArcTan[$CellContext`x]), $CellContext`x, DirectedInfinity[1]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.40133780445982*^9, {3.401337859293272*^9, 3.4013378679725857`*^9}, { 3.4013380553371964`*^9, 3.4013380715123167`*^9}, 3.40133852870151*^9, 3.401623420640102*^9, 3.401623518655929*^9, 3.4326950354800577`*^9, 3.432696059306982*^9, 3.434431475932384*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"7", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\\"lim\\\"\\+\\(x \ \[Rule] 0\\)\\) \ \\!\\(TraditionalForm\\`\\(\\(\\(TraditionalForm\\`\\(Arcsin(x)\\)\\)\\) - \ \\(\\(2\\\\ x\\)\\)\\)\\/\\(\\(\\(sin\\^3\\)\\)(x)\\)\\)\"\>", StringForm["`1` `2`", Underscript["lim", $CellContext`x -> 0], HoldForm[(ArcSin[$CellContext`x] - 2 $CellContext`x)/ Sin[$CellContext`x]^3]], Editable->False], TraditionalForm]}], SequenceForm[7, ") ", analyse`Limite[ HoldForm[(ArcSin[$CellContext`x] - 2 $CellContext`x)/ Sin[$CellContext`x]^3], $CellContext`x, 0]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.40133780445982*^9, {3.401337859293272*^9, 3.4013378679725857`*^9}, { 3.4013380553371964`*^9, 3.4013380715123167`*^9}, 3.40133852870151*^9, 3.401623420640102*^9, 3.401623518655929*^9, 3.4326950354800577`*^9, 3.432696059306982*^9, 3.43443147593596*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Solutions", "Text", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.401338472304029*^9, 3.401338483313554*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"n", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"n", "++"}], ";", RowBox[{"Print", "[", RowBox[{"n", ",", "\"\<) \>\"", ",", RowBox[{"Presente", "[", RowBox[{"Limite", "[", RowBox[{ RowBox[{"ArcSin", "[", RowBox[{ RowBox[{"2", "x"}], "-", "1"}], "]"}], ",", "x", ",", RowBox[{"1", "/", "2"}]}], "]"}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"n", "++"}], ";", RowBox[{"Print", "[", RowBox[{"n", ",", "\"\<) \>\"", ",", RowBox[{"Presente", "[", RowBox[{"Limite", "[", RowBox[{ RowBox[{"ArcCos", "[", RowBox[{"1", "-", "x"}], "]"}], ",", "x", ",", RowBox[{ RowBox[{"-", "1"}], "/", "2"}]}], "]"}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"n", "++"}], ";", RowBox[{"Print", "[", RowBox[{"n", ",", "\"\<) \>\"", ",", RowBox[{"Presente", "[", RowBox[{"Limite", "[", RowBox[{ RowBox[{"ArcTan", "[", RowBox[{"1", "/", "x"}], "]"}], ",", "x", ",", "0"}], "]"}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"n", "++"}], ";", RowBox[{"Print", "[", RowBox[{"n", ",", "\"\<) \>\"", ",", RowBox[{"Presente", "[", RowBox[{"Limite", "[", RowBox[{ RowBox[{ RowBox[{"ArcSin", "[", "x", "]"}], "/", "x"}], ",", "x", ",", "0"}], "]"}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"n", "++"}], ";", RowBox[{"Print", "[", RowBox[{"n", ",", "\"\<) \>\"", ",", RowBox[{"Presente", "[", RowBox[{"Limite", "[", RowBox[{ RowBox[{"3", RowBox[{"x", "/", RowBox[{"ArcTan", "[", RowBox[{"2", "x"}], "]"}]}]}], ",", "x", ",", "0"}], "]"}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"n", "++"}], ";", RowBox[{"Print", "[", RowBox[{"n", ",", "\"\<) \>\"", ",", RowBox[{"Presente", "[", RowBox[{"Limite", "[", RowBox[{ RowBox[{"x", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Pi]", "/", "2"}], "-", RowBox[{"ArcTan", "[", "x", "]"}]}], ")"}]}], ",", "x", ",", RowBox[{"+", "Infinity"}]}], "]"}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "++"}], ";", RowBox[{"Print", "[", RowBox[{"n", ",", "\"\<) \>\"", ",", RowBox[{"Presente", "[", RowBox[{"Limite", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"ArcSin", "[", "x", "]"}], "-", RowBox[{"2", "x"}]}], ")"}], "/", RowBox[{ RowBox[{"Sin", "[", "x", "]"}], "^", "3"}]}], ",", "x", ",", "0"}], "]"}], "]"}]}], "]"}], ";"}]}], "Input", CellOpen->False, CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.401337674554511*^9, 3.401337718737955*^9}, { 3.401337888541321*^9, 3.401337897816093*^9}, {3.4013380930216084`*^9, 3.401338123957342*^9}, 3.401338483313785*^9, {3.432696081581455*^9, 3.432696139615602*^9}}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"1", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\ \\!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] 1\\\\/2\ \\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\(-\\\\(\\\\(TraditionalForm\\\\`\ \\\\(Arcsin(\\\\(\\\\(1 - \\\\(\\\\(2\\\\\\\\ \ x\\\\)\\\\)\\\\)\\\\))\\\\)\\\\)\\\\)\\\\)\\\\)\\\"\\)\\) = \ \\!\\(TraditionalForm\\`0\\)\"\>", StringForm["`1` = `2`", analyse`Limite[-ArcSin[1 - 2 $CellContext`x], $CellContext`x, Rational[1, 2]], 0], Editable->False]}], SequenceForm[1, ") ", StringForm["`1` = `2`", analyse`Limite[-ArcSin[1 - 2 $CellContext`x], $CellContext`x, Rational[1, 2]], 0]], Editable->False], TraditionalForm]], "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{3.4326961406025763`*^9, 3.432696235032968*^9, 3.434431492675585*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"2", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\ \\!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \\\\(\\\ \\(-\\\\(\\\\(1\\\\/2\\\\)\\\\)\\\\)\\\\)\\\\)\\\\) \\\\!\\\\(TraditionalForm\ \\\\`\\\\(TraditionalForm\\\\`\\\\(Arccos(\\\\(\\\\(1 - \ x\\\\)\\\\))\\\\)\\\\)\\\\)\\\"\\)\\) n'existe pas\"\>", StringForm["`1` `2`", analyse`Limite[ ArcCos[1 - $CellContext`x], $CellContext`x, Rational[-1, 2]], " n'existe pas"], Editable->False]}], SequenceForm[2, ") ", StringForm["`1` `2`", analyse`Limite[ ArcCos[1 - $CellContext`x], $CellContext`x, Rational[-1, 2]], " n'existe pas"]], Editable->False], TraditionalForm]], "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{3.4326961406025763`*^9, 3.432696235032968*^9, 3.4344314929371843`*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"3", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(\[Piecewise] \ \\*GridBox[{{\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(\ TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(\ TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"lim\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(x \\\ \\\\\\\\\\\\\\[Rule] \ 0\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"<\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) \ \\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\ \\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\(Arctg(\\\\\\\\\\\\\\\\(\ \\\\\\\\\\\\\\\\(1\\\\\\\\\\\\\\\\/x\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\))\\\\\\\ \\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\\\\\\\\\ ) = \\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(-\\\\\\\\(\\\\\\\\(\ \[Pi]\\\\\\\\/2\\\\\\\\)\\\\\\\\)\\\\\\\\)\\\\\\\\)\\\\\\\"\\\", \\\"\\\\\\\" \ \\\\\\\"\\\"}, \ {\\\"\\\\\\\"\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\(\ TraditionalForm\\\\\\\\`\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(\ TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"lim\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\(\\\\\\\\\\\\\\\\(x \\\ \\\\\\\\\\\\\\[Rule] \ 0\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\+\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\">\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\) \ \\\\\\\\\\\\\\\\!\\\\\\\\\\\\\\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\ \\\\(TraditionalForm\\\\\\\\\\\\\\\\`\\\\\\\\\\\\\\\\(Arctg(\\\\\\\\\\\\\\\\(\ \\\\\\\\\\\\\\\\(1\\\\\\\\\\\\\\\\/x\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\))\\\\\\\ \\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\\)\\\\\\\\\\\\\\\"\\\\\\\\)\\\\\\\\\ ) = \\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\[Pi]\\\\\\\\/2\\\\\\\\)\\\\\\\"\ \\\", \\\"\\\\\\\" \\\\\\\"\\\"}}, ColumnAlignments -> {Left}, \ ColumnSpacings -> 1.2, ColumnWidths -> Automatic]\\)\\)\"\>", StringForm["`1`", Piecewise[{{ StringForm["`1` = `2`", analyse`Limite[ ArcTan[$CellContext`x^(-1)], $CellContext`x, 0, -1], Rational[-1, 2] Pi], " "}, { StringForm["`1` = `2`", analyse`Limite[ ArcTan[$CellContext`x^(-1)], $CellContext`x, 0, 1], Rational[1, 2] Pi], " "}}, 0]], Editable->False]}], SequenceForm[3, ") ", StringForm["`1`", Piecewise[{{ StringForm["`1` = `2`", analyse`Limite[ ArcTan[$CellContext`x^(-1)], $CellContext`x, 0, -1], Rational[-1, 2] Pi], " "}, { StringForm["`1` = `2`", analyse`Limite[ ArcTan[$CellContext`x^(-1)], $CellContext`x, 0, 1], Rational[1, 2] Pi], " "}}, 0]]], Editable->False], TraditionalForm]], "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{3.4326961406025763`*^9, 3.432696235032968*^9, 3.434431493034483*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"4", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\ \\!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \ 0\\\\)\\\\) \ \\\\!\\\\(TraditionalForm\\\\`\\\\(TraditionalForm\\\\`\\\\(Arcsin(x)\\\\)\\\\\ )\\\\/x\\\\)\\\"\\)\\) = \\!\\(TraditionalForm\\`1\\)\"\>", StringForm["`1` = `2`", analyse`Limite[$CellContext`x^(-1) ArcSin[$CellContext`x], $CellContext`x, 0], 1], Editable->False]}], SequenceForm[4, ") ", StringForm["`1` = `2`", analyse`Limite[$CellContext`x^(-1) ArcSin[$CellContext`x], $CellContext`x, 0], 1]], Editable->False], TraditionalForm]], "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{3.4326961406025763`*^9, 3.432696235032968*^9, 3.434431493079117*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"5", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\ \\!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \ 0\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\(3\\\\\\\\ \ x\\\\)\\\\/\\\\(TraditionalForm\\\\`\\\\(Arctg(\\\\(\\\\(2\\\\\\\\ \ x\\\\)\\\\))\\\\)\\\\)\\\\)\\\"\\)\\) = \\!\\(TraditionalForm\\`3\\/2\\)\"\>", StringForm["`1` = `2`", analyse`Limite[ 3 ($CellContext`x/ArcTan[2 $CellContext`x]), $CellContext`x, 0], Rational[3, 2]], Editable->False]}], SequenceForm[5, ") ", StringForm["`1` = `2`", analyse`Limite[ 3 ($CellContext`x/ArcTan[2 $CellContext`x]), $CellContext`x, 0], Rational[3, 2]]], Editable->False], TraditionalForm]], "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{3.4326961406025763`*^9, 3.432696235032968*^9, 3.4344314931578083`*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"6", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\ \\!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \ \\\\\\\"+\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\\\\\\\\[Infinity]\\\\\\\\)\ \\\\\\\"\\\\)\\\\) \\\\!\\\\(TraditionalForm\\\\`\\\\(x\\\\\\\\ \\\\(\\\\((\\\ \\[Pi]\\\\/2 - \ \\\\(\\\\(TraditionalForm\\\\`\\\\(Arctg(x)\\\\)\\\\)\\\\))\\\\)\\\\)\\\\)\\\\\ )\\\"\\)\\) = \\!\\(TraditionalForm\\`1\\)\"\>", StringForm["`1` = `2`", analyse`Limite[$CellContext`x (Rational[1, 2] Pi - ArcTan[$CellContext`x]), $CellContext`x, DirectedInfinity[1]], 1], Editable->False]}], SequenceForm[6, ") ", StringForm["`1` = `2`", analyse`Limite[$CellContext`x (Rational[1, 2] Pi - ArcTan[$CellContext`x]), $CellContext`x, DirectedInfinity[1]], 1]], Editable->False], TraditionalForm]], "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{3.4326961406025763`*^9, 3.432696235032968*^9, 3.4344314933177156`*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"7", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\ \\!\\\\(TraditionalForm\\\\`\\\\\\\"lim\\\\\\\"\\\\+\\\\(x \\\\[Rule] \ 0\\\\)\\\\) \ \\\\!\\\\(TraditionalForm\\\\`\\\\(\\\\(\\\\((\\\\(\\\\(TraditionalForm\\\\`\\\ \\(Arcsin(x)\\\\)\\\\)\\\\) - \\\\(\\\\(2\\\\\\\\ \ x\\\\)\\\\))\\\\)\\\\)\\\\\\\\ \\\\(\\\\(TraditionalForm\\\\`1\\\\/\\\\(\\\\(\ \\\\(sin\\\\^3\\\\)\\\\)(x)\\\\)\\\\)\\\\)\\\\)\\\\)\\\"\\)\\) = \ \\!\\(TraditionalForm\\`\\(-\[Infinity]\\)\\)\"\>", StringForm["`1` = `2`", analyse`Limite[((-2) $CellContext`x + ArcSin[$CellContext`x]) Csc[$CellContext`x]^3, $CellContext`x, 0], DirectedInfinity[-1]], Editable->False]}], SequenceForm[7, ") ", StringForm["`1` = `2`", analyse`Limite[((-2) $CellContext`x + ArcSin[$CellContext`x]) Csc[$CellContext`x]^3, $CellContext`x, 0], DirectedInfinity[-1]]], Editable->False], TraditionalForm]], "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{3.4326961406025763`*^9, 3.432696235032968*^9, 3.43443150543679*^9}] }, Closed]] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{892, 1086}, WindowMargins->{{95, Automatic}, {Automatic, 17}}, PrintingCopies->1, PrintingPageRange->{1, Automatic}, ShowSelection->True, FrontEndVersion->"8.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (February 23, \ 2011)", StyleDefinitions->"stylemath.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[567, 22, 121, 1, 47, "Subsubtitle"], Cell[CellGroupData[{ Cell[713, 27, 369, 6, 44, "Section"], Cell[CellGroupData[{ Cell[1107, 37, 3179, 102, 19, "Input", CellOpen->False], Cell[CellGroupData[{ Cell[4311, 143, 692, 15, 49, "Print"], Cell[5006, 160, 672, 15, 27, "Print"], Cell[5681, 177, 669, 15, 31, "Print"], Cell[6353, 194, 948, 26, 27, "Print"], Cell[7304, 222, 702, 16, 31, "Print"], Cell[8009, 240, 782, 18, 31, "Print"], Cell[8794, 260, 747, 17, 47, "Print"], Cell[9544, 279, 784, 18, 31, "Print"], Cell[10331, 299, 694, 15, 47, "Print"], Cell[11028, 316, 709, 17, 31, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[11786, 339, 144, 2, 33, "Text", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[11933, 343, 1309, 32, 19, "Input", CellOpen->False, CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[13245, 377, 963, 21, 27, "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[14211, 400, 666, 15, 27, "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[14880, 417, 1297, 37, 54, "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[16180, 456, 901, 21, 27, "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[17084, 479, 791, 18, 27, "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[17878, 499, 760, 18, 60, "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[18641, 519, 904, 20, 27, "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[19548, 541, 791, 18, 27, "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[20342, 561, 790, 19, 63, "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[21135, 582, 902, 20, 27, "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[22040, 604, 789, 18, 27, "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[22832, 624, 1191, 35, 63, "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[24026, 661, 1617, 35, 30, "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[25646, 698, 938, 21, 30, "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[26587, 721, 914, 23, 60, "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[27504, 746, 1624, 36, 30, "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[29131, 784, 867, 20, 27, "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[30001, 806, 1081, 28, 60, "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[31085, 836, 969, 21, 27, "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[32057, 859, 789, 18, 27, "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[32849, 879, 685, 15, 47, "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[33537, 896, 1624, 36, 30, "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[35164, 934, 867, 20, 27, "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[36034, 956, 1079, 28, 60, "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[37116, 986, 1520, 34, 45, "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[38639, 1022, 664, 15, 27, "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[39306, 1039, 1306, 38, 60, "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[40615, 1079, 948, 23, 32, "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[41566, 1104, 789, 18, 27, "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[42358, 1124, 871, 22, 63, "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[43278, 1152, 106, 1, 44, "Section"], Cell[CellGroupData[{ Cell[43409, 1157, 249, 5, 31, "Subsubsection"], Cell[CellGroupData[{ Cell[43683, 1166, 3102, 92, 19, "Input", CellOpen->False], Cell[CellGroupData[{ Cell[46810, 1262, 1005, 25, 46, "Print"], Cell[47818, 1289, 974, 23, 46, "Print"], Cell[48795, 1314, 910, 21, 48, "Print"], Cell[49708, 1337, 929, 21, 48, "Print"], Cell[50640, 1360, 961, 21, 49, "Print"], Cell[51604, 1383, 1136, 24, 43, "Print"], Cell[52743, 1409, 1073, 24, 49, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[53865, 1439, 144, 2, 33, "Text", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[54012, 1443, 3410, 100, 19, "Input", CellOpen->False, CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[57425, 1545, 996, 21, 46, "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[58424, 1568, 1007, 22, 46, "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[59434, 1592, 3122, 58, 97, "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[62559, 1652, 919, 20, 48, "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[63481, 1674, 1019, 23, 49, "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[64503, 1699, 1159, 24, 43, "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[65665, 1725, 1211, 25, 49, "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}] }, Closed]] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)