(* 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[ 41436, 1197] NotebookOptionsPosition[ 38628, 1101] NotebookOutlinePosition[ 39091, 1121] CellTagsIndexPosition[ 39048, 1118] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["\<\ Exercices sur les fonctions cyclom\[EAcute]triques\ \>", "Subsubtitle", CellChangeTimes->{{3.399029875313643*^9, 3.399029883095623*^9}}], Cell[CellGroupData[{ Cell["\<\ D\[EAcute]terminer le domaine de d\[EAcute]finition des fonctions suivantes:\ \>", "Section", CellChangeTimes->{{3.3990298871948147`*^9, 3.399029911735924*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "1"}], "]"}], ":=", RowBox[{"ArcSin", "[", RowBox[{ RowBox[{"x", "^", "2"}], "-", "3"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "2"}], "]"}], ":=", RowBox[{"ArcTan", "[", RowBox[{"1", "/", RowBox[{"(", RowBox[{"x", "-", "2"}], ")"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "3"}], "]"}], ":=", RowBox[{"ArcCos", "[", RowBox[{ RowBox[{"x", "^", "2"}], "-", RowBox[{"2", "x"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "4"}], "]"}], ":=", RowBox[{"2", "/", RowBox[{"ArcSin", "[", RowBox[{"3", "x"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "5"}], "]"}], ":=", " ", RowBox[{ RowBox[{"ArcCos", "[", RowBox[{"2", "x"}], "]"}], "/", RowBox[{"ArcTan", "[", RowBox[{"x", "/", "2"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "6"}], "]"}], ":=", RowBox[{"ArcSin", "[", RowBox[{"1", "-", RowBox[{"2", "x"}], "-", RowBox[{"x", "^", "2"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "7"}], "]"}], ":=", RowBox[{"ArcSin", "[", RowBox[{"2", "-", RowBox[{"5", "x"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "8"}], "]"}], ":=", RowBox[{"ArcCos", "[", RowBox[{"1", "/", "x"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "9"}], "]"}], ":=", RowBox[{ RowBox[{"ArcSin", "[", RowBox[{"3", "x"}], "]"}], "-", RowBox[{"ArcCos", "[", RowBox[{"2", "x"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "10"}], "]"}], ":=", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"6", RowBox[{"x", "^", "2"}]}], "-", RowBox[{"3", "x"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Do", "[", RowBox[{ RowBox[{"Print", "[", RowBox[{"i", ",", "\"\<) f(x) = \>\"", ",", RowBox[{"f", "[", RowBox[{"x", ",", "i"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "10"}], "}"}]}], "]"}]}], "Input", CellOpen->False, CellChangeTimes->{{3.399029919539756*^9, 3.39902993012894*^9}, { 3.399030016514607*^9, 3.3990300519387693`*^9}, {3.399030092020015*^9, 3.399030196583378*^9}, {3.399030237659946*^9, 3.399030240791082*^9}, 3.399030276952078*^9, {3.399030412092874*^9, 3.3990304977145157`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"1", "\[InvisibleSpace]", "\<\") f(x) = \"\>", "\[InvisibleSpace]", RowBox[{"-", FormBox[ RowBox[{"Arcsin", "(", RowBox[{"3", "-", SuperscriptBox["x", "2"]}], ")"}], TraditionalForm]}]}], SequenceForm[1, ") f(x) = ", -ArcSin[3 - $CellContext`x^2]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.399030241324538*^9, 3.399030277217729*^9, 3.399030436375154*^9, { 3.399030483444791*^9, 3.399030498148333*^9}, {3.525261841934298*^9, 3.5252618701779423`*^9}}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"2", "\[InvisibleSpace]", "\<\") f(x) = \"\>", "\[InvisibleSpace]", FormBox[ RowBox[{"Arctg", "(", FractionBox["1", RowBox[{"x", "-", "2"}]], ")"}], TraditionalForm]}], SequenceForm[2, ") f(x) = ", ArcTan[(-2 + $CellContext`x)^(-1)]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.399030241324538*^9, 3.399030277217729*^9, 3.399030436375154*^9, { 3.399030483444791*^9, 3.399030498148333*^9}, {3.525261841934298*^9, 3.525261870182006*^9}}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"3", "\[InvisibleSpace]", "\<\") f(x) = \"\>", "\[InvisibleSpace]", FormBox[ RowBox[{"Arccos", "(", RowBox[{ SuperscriptBox["x", "2"], "-", RowBox[{"2", " ", "x"}]}], ")"}], TraditionalForm]}], SequenceForm[3, ") f(x) = ", ArcCos[(-2) $CellContext`x + $CellContext`x^2]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.399030241324538*^9, 3.399030277217729*^9, 3.399030436375154*^9, { 3.399030483444791*^9, 3.399030498148333*^9}, {3.525261841934298*^9, 3.525261870186252*^9}}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"4", "\[InvisibleSpace]", "\<\") f(x) = \"\>", "\[InvisibleSpace]", FractionBox["2", FormBox[ RowBox[{"Arcsin", "(", RowBox[{"3", " ", "x"}], ")"}], TraditionalForm]]}], SequenceForm[4, ") f(x) = ", 2/ArcSin[3 $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.399030241324538*^9, 3.399030277217729*^9, 3.399030436375154*^9, { 3.399030483444791*^9, 3.399030498148333*^9}, {3.525261841934298*^9, 3.525261870190351*^9}}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"5", "\[InvisibleSpace]", "\<\") f(x) = \"\>", "\[InvisibleSpace]", FractionBox[ FormBox[ RowBox[{"Arccos", "(", RowBox[{"2", " ", "x"}], ")"}], TraditionalForm], FormBox[ RowBox[{"Arctg", "(", FractionBox["x", "2"], ")"}], TraditionalForm]]}], SequenceForm[ 5, ") f(x) = ", ArcCos[2 $CellContext`x]/ArcTan[ Rational[1, 2] $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.399030241324538*^9, 3.399030277217729*^9, 3.399030436375154*^9, { 3.399030483444791*^9, 3.399030498148333*^9}, {3.525261841934298*^9, 3.5252618701946173`*^9}}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"6", "\[InvisibleSpace]", "\<\") f(x) = \"\>", "\[InvisibleSpace]", FormBox[ RowBox[{"Arcsin", "(", RowBox[{ RowBox[{"-", SuperscriptBox["x", "2"]}], "-", RowBox[{"2", " ", "x"}], "+", "1"}], ")"}], TraditionalForm]}], SequenceForm[6, ") f(x) = ", ArcSin[1 - 2 $CellContext`x - $CellContext`x^2]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.399030241324538*^9, 3.399030277217729*^9, 3.399030436375154*^9, { 3.399030483444791*^9, 3.399030498148333*^9}, {3.525261841934298*^9, 3.525261870198757*^9}}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"7", "\[InvisibleSpace]", "\<\") f(x) = \"\>", "\[InvisibleSpace]", FormBox[ RowBox[{"Arcsin", "(", RowBox[{"2", "-", RowBox[{"5", " ", "x"}]}], ")"}], TraditionalForm]}], SequenceForm[7, ") f(x) = ", ArcSin[2 - 5 $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.399030241324538*^9, 3.399030277217729*^9, 3.399030436375154*^9, { 3.399030483444791*^9, 3.399030498148333*^9}, {3.525261841934298*^9, 3.525261870202806*^9}}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"8", "\[InvisibleSpace]", "\<\") f(x) = \"\>", "\[InvisibleSpace]", FormBox[ RowBox[{"Arccos", "(", FractionBox["1", "x"], ")"}], TraditionalForm]}], SequenceForm[8, ") f(x) = ", ArcCos[$CellContext`x^(-1)]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.399030241324538*^9, 3.399030277217729*^9, 3.399030436375154*^9, { 3.399030483444791*^9, 3.399030498148333*^9}, {3.525261841934298*^9, 3.525261870206883*^9}}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"9", "\[InvisibleSpace]", "\<\") f(x) = \"\>", "\[InvisibleSpace]", RowBox[{ FormBox[ RowBox[{"Arcsin", "(", RowBox[{"3", " ", "x"}], ")"}], TraditionalForm], "-", FormBox[ RowBox[{"Arccos", "(", RowBox[{"2", " ", "x"}], ")"}], TraditionalForm]}]}], SequenceForm[ 9, ") f(x) = ", -ArcCos[2 $CellContext`x] + ArcSin[3 $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.399030241324538*^9, 3.399030277217729*^9, 3.399030436375154*^9, { 3.399030483444791*^9, 3.399030498148333*^9}, {3.525261841934298*^9, 3.525261870210935*^9}}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ "10", "\[InvisibleSpace]", "\<\") f(x) = \"\>", "\[InvisibleSpace]", RowBox[{"-", FormBox[ RowBox[{"Arctg", "(", RowBox[{ RowBox[{"3", " ", "x"}], "-", RowBox[{"6", " ", SuperscriptBox["x", "2"]}]}], ")"}], TraditionalForm]}]}], SequenceForm[ 10, ") f(x) = ", -ArcTan[3 $CellContext`x - 6 $CellContext`x^2]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.399030241324538*^9, 3.399030277217729*^9, 3.399030436375154*^9, { 3.399030483444791*^9, 3.399030498148333*^9}, {3.525261841934298*^9, 3.525261870215022*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Solutions", "Subsubsection", CellChangeTimes->{{3.399030521826454*^9, 3.3990305236722918`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{"Print", "[", RowBox[{"i", ",", "\"\<) \>\"", ",", RowBox[{"Domaine", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "i"}], "]"}], ",", "x"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "10"}], "}"}]}], "]"}]], "Input", CellOpen->False, CellChangeTimes->{{3.3990299557079268`*^9, 3.399029976224835*^9}, { 3.399030289962708*^9, 3.399030302102248*^9}, {3.3990303383076*^9, 3.39903035438979*^9}, {3.3990304882594957`*^9, 3.399030488449601*^9}}], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"1", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"[\ \\\\!\\\\(TraditionalForm\\\\`\\\\(-2\\\\)\\\\), \ \\\\!\\\\(TraditionalForm\\\\`\\\\(-\\\\@2\\\\)\\\\)]\\\"\\)\\) \[Union] \ \\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"[\\\\!\\\\(TraditionalForm\\\ \\`\\\\@2\\\\), \\\\!\\\\(TraditionalForm\\\\`2\\\\)]\\\"\\)\\)\"\>", StringForm["`1` \[Union] `2`", math`Ens[ Inequality[-2, LessEqual, $CellContext`x, LessEqual, -2^Rational[1, 2]], $CellContext`x], math`Ens[ Inequality[ 2^Rational[1, 2], LessEqual, $CellContext`x, LessEqual, 2], $CellContext`x]], Editable->False], TraditionalForm]}], SequenceForm[1, ") ", math`Ens[ Or[ Inequality[-2, LessEqual, $CellContext`x, LessEqual, -2^Rational[1, 2]], Inequality[ 2^Rational[1, 2], LessEqual, $CellContext`x, LessEqual, 2]], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.39903034346161*^9, 3.399030354831649*^9}, { 3.3990304889320087`*^9, 3.3990305012805843`*^9}, 3.525261880523264*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"2", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\*TagBox[\\\"\ \[DoubleStruckCapitalR]\\\", Function[List[], Reals]]\\) \\\\ \ {\\!\\(TraditionalForm\\`2\\)}\"\>", StringForm["`1` \\ {`2`}", Reals, 2], Editable->False], TraditionalForm]}], SequenceForm[2, ") ", math`Ens[ Or[$CellContext`x < 2, $CellContext`x > 2], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.39903034346161*^9, 3.399030354831649*^9}, { 3.3990304889320087`*^9, 3.3990305012805843`*^9}, 3.525261880565625*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"3", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"[\\!\\(TraditionalForm\\`\\(1 - \\@2\\)\\), \ \\!\\(TraditionalForm\\`\\(1 + \\@2\\)\\)]\"\>", StringForm["[`1`, `2`]", 1 - 2^Rational[1, 2], 1 + 2^Rational[1, 2]], Editable->False], TraditionalForm]}], SequenceForm[3, ") ", math`Ens[ Inequality[ 1 - 2^Rational[1, 2], LessEqual, $CellContext`x, LessEqual, 1 + 2^Rational[1, 2]], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.39903034346161*^9, 3.399030354831649*^9}, { 3.3990304889320087`*^9, 3.3990305012805843`*^9}, 3.525261880621847*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"4", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"[\ \\\\!\\\\(TraditionalForm\\\\`\\\\(-\\\\(\\\\(1\\\\/3\\\\)\\\\)\\\\)\\\\), \\\ \\!\\\\(TraditionalForm\\\\`0\\\\)[\\\"\\)\\) \[Union] \ \\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"]\\\\!\\\\(TraditionalForm\\\ \\`0\\\\), \\\\!\\\\(TraditionalForm\\\\`1\\\\/3\\\\)]\\\"\\)\\)\"\>", StringForm["`1` \[Union] `2`", math`Ens[ Inequality[ Rational[-1, 3], LessEqual, $CellContext`x, Less, 0], $CellContext`x], math`Ens[ Inequality[0, Less, $CellContext`x, LessEqual, Rational[1, 3]], $CellContext`x]], Editable->False], TraditionalForm]}], SequenceForm[4, ") ", math`Ens[ Or[ Inequality[ Rational[-1, 3], LessEqual, $CellContext`x, Less, 0], Inequality[0, Less, $CellContext`x, LessEqual, Rational[1, 3]]], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.39903034346161*^9, 3.399030354831649*^9}, { 3.3990304889320087`*^9, 3.3990305012805843`*^9}, 3.525261880778818*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"5", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"[\ \\\\!\\\\(TraditionalForm\\\\`\\\\(-\\\\(\\\\(1\\\\/2\\\\)\\\\)\\\\)\\\\), \\\ \\!\\\\(TraditionalForm\\\\`0\\\\)[\\\"\\)\\) \[Union] \ \\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"]\\\\!\\\\(TraditionalForm\\\ \\`0\\\\), \\\\!\\\\(TraditionalForm\\\\`1\\\\/2\\\\)]\\\"\\)\\)\"\>", StringForm["`1` \[Union] `2`", math`Ens[ Inequality[ Rational[-1, 2], LessEqual, $CellContext`x, Less, 0], $CellContext`x], math`Ens[ Inequality[0, Less, $CellContext`x, LessEqual, Rational[1, 2]], $CellContext`x]], Editable->False], TraditionalForm]}], SequenceForm[5, ") ", math`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", CellChangeTimes->{{3.39903034346161*^9, 3.399030354831649*^9}, { 3.3990304889320087`*^9, 3.3990305012805843`*^9}, 3.525261880943953*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"6", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"[\ \\\\!\\\\(TraditionalForm\\\\`\\\\(\\\\(\\\\(-1\\\\)\\\\) - \\\\@3\\\\)\\\\), \ \\\\!\\\\(TraditionalForm\\\\`\\\\(-2\\\\)\\\\)]\\\"\\)\\) \[Union] \ \\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"[\\\\!\\\\(TraditionalForm\\\ \\`0\\\\), \\\\!\\\\(TraditionalForm\\\\`\\\\(\\\\(\\\\(-1\\\\)\\\\) + \\\\@3\ \\\\)\\\\)]\\\"\\)\\)\"\>", StringForm["`1` \[Union] `2`", math`Ens[ Inequality[-1 - 3^Rational[1, 2], LessEqual, $CellContext`x, LessEqual, -2], $CellContext`x], math`Ens[ Inequality[ 0, LessEqual, $CellContext`x, LessEqual, -1 + 3^Rational[1, 2]], $CellContext`x]], Editable->False], TraditionalForm]}], SequenceForm[6, ") ", math`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", CellChangeTimes->{{3.39903034346161*^9, 3.399030354831649*^9}, { 3.3990304889320087`*^9, 3.3990305012805843`*^9}, 3.525261881007078*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"7", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"[\\!\\(TraditionalForm\\`1\\/5\\), \ \\!\\(TraditionalForm\\`3\\/5\\)]\"\>", StringForm["[`1`, `2`]", Rational[1, 5], Rational[3, 5]], Editable->False], TraditionalForm]}], SequenceForm[7, ") ", math`Ens[ Inequality[ Rational[1, 5], LessEqual, $CellContext`x, LessEqual, Rational[3, 5]], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.39903034346161*^9, 3.399030354831649*^9}, { 3.3990304889320087`*^9, 3.3990305012805843`*^9}, 3.525261881057497*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"8", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\ \\\\[LongLeftArrow], \ \\\\!\\\\(TraditionalForm\\\\`\\\\(-1\\\\)\\\\)]\\\"\\)\\) \[Union] \ \\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"[\\\\!\\\\(TraditionalForm\\\ \\`1\\\\), \\\\[LongRightArrow]\\\"\\)\\)\"\>", StringForm["`1` \[Union] `2`", math`Ens[$CellContext`x <= -1, $CellContext`x], math`Ens[$CellContext`x >= 1, $CellContext`x]], Editable->False], TraditionalForm]}], SequenceForm[8, ") ", math`Ens[ Or[$CellContext`x <= -1, $CellContext`x >= 1], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.39903034346161*^9, 3.399030354831649*^9}, { 3.3990304889320087`*^9, 3.3990305012805843`*^9}, 3.5252618811074343`*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"9", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"[\\!\\(TraditionalForm\\`\\(-\\(\\(1\\/3\\)\\)\\)\ \\), \\!\\(TraditionalForm\\`1\\/3\\)]\"\>", StringForm["[`1`, `2`]", Rational[-1, 3], Rational[1, 3]], Editable->False], TraditionalForm]}], SequenceForm[9, ") ", math`Ens[ Inequality[ Rational[-1, 3], LessEqual, $CellContext`x, LessEqual, Rational[1, 3]], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.39903034346161*^9, 3.399030354831649*^9}, { 3.3990304889320087`*^9, 3.3990305012805843`*^9}, 3.525261881506515*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"10", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FormBox[ TagBox["\[DoubleStruckCapitalR]", Function[{}, Reals]], TraditionalForm]}], SequenceForm[10, ") ", math`Ens[True, $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.39903034346161*^9, 3.399030354831649*^9}, { 3.3990304889320087`*^9, 3.3990305012805843`*^9}, 3.525261881556851*^9}] }, Open ]] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["D\[EAcute]rivation", "Section", CellChangeTimes->{{3.399030591012636*^9, 3.3990305921436157`*^9}, { 3.399030940873296*^9, 3.399030942767743*^9}, {3.3990312596262197`*^9, 3.3990312606157*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "1"}], "]"}], ":=", RowBox[{"ArcSin", "[", RowBox[{"5", "x"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "2"}], "]"}], ":=", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"6", "x"}], "+", "3"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "3"}], "]"}], ":=", RowBox[{"ArcCos", "[", RowBox[{"x", "-", "2"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "4"}], "]"}], ":=", RowBox[{"2", "/", RowBox[{"ArcSin", "[", RowBox[{"3", "x"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "5"}], "]"}], ":=", " ", RowBox[{"ArcTan", "[", RowBox[{"x", "/", "2"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "6"}], "]"}], ":=", RowBox[{"ArcSin", "[", RowBox[{"1", "-", RowBox[{"2", "x"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "7"}], "]"}], ":=", RowBox[{"ArcSin", "[", RowBox[{ RowBox[{"x", "^", "2"}], "-", "3"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "8"}], "]"}], ":=", RowBox[{"ArcCos", "[", RowBox[{"1", "/", "x"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "9"}], "]"}], ":=", RowBox[{ RowBox[{"ArcSin", "[", "x", "]"}], "^", "2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "10"}], "]"}], ":=", RowBox[{"ArcTan", "[", RowBox[{"Sqrt", "[", "x", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Do", "[", RowBox[{ RowBox[{"Print", "[", RowBox[{"i", ",", "\"\<) f(x) = \>\"", ",", RowBox[{"f", "[", RowBox[{"x", ",", "i"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "10"}], "}"}]}], "]"}]}], "Input", CellOpen->False, CellChangeTimes->{{3.399029919539756*^9, 3.39902993012894*^9}, { 3.399030016514607*^9, 3.3990300519387693`*^9}, {3.399030092020015*^9, 3.399030196583378*^9}, {3.399030237659946*^9, 3.399030240791082*^9}, 3.399030276952078*^9, {3.399030412092874*^9, 3.3990304977145157`*^9}, { 3.399031022373789*^9, 3.399031183040291*^9}, {3.399031224122158*^9, 3.399031229185964*^9}}], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"1", "\[InvisibleSpace]", "\<\") f(x) = \"\>", "\[InvisibleSpace]", FormBox[ RowBox[{"Arcsin", "(", RowBox[{"5", " ", "x"}], ")"}], TraditionalForm]}], SequenceForm[1, ") f(x) = ", ArcSin[5 $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.399030241324538*^9, 3.399030277217729*^9, 3.399030436375154*^9, { 3.399030483444791*^9, 3.399030498148333*^9}, 3.399030962642124*^9, { 3.399031050823048*^9, 3.399031073540738*^9}, 3.399031112245366*^9, 3.399031183953887*^9, {3.3990312266429768`*^9, 3.399031229722417*^9}, 3.5252618881028833`*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"2", "\[InvisibleSpace]", "\<\") f(x) = \"\>", "\[InvisibleSpace]", FormBox[ RowBox[{"Arctg", "(", RowBox[{ RowBox[{"6", " ", "x"}], "+", "3"}], ")"}], TraditionalForm]}], SequenceForm[2, ") f(x) = ", ArcTan[3 + 6 $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.399030241324538*^9, 3.399030277217729*^9, 3.399030436375154*^9, { 3.399030483444791*^9, 3.399030498148333*^9}, 3.399030962642124*^9, { 3.399031050823048*^9, 3.399031073540738*^9}, 3.399031112245366*^9, 3.399031183953887*^9, {3.3990312266429768`*^9, 3.399031229722417*^9}, 3.5252618881065063`*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"3", "\[InvisibleSpace]", "\<\") f(x) = \"\>", "\[InvisibleSpace]", FormBox[ RowBox[{"Arccos", "(", RowBox[{"x", "-", "2"}], ")"}], TraditionalForm]}], SequenceForm[3, ") f(x) = ", ArcCos[-2 + $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.399030241324538*^9, 3.399030277217729*^9, 3.399030436375154*^9, { 3.399030483444791*^9, 3.399030498148333*^9}, 3.399030962642124*^9, { 3.399031050823048*^9, 3.399031073540738*^9}, 3.399031112245366*^9, 3.399031183953887*^9, {3.3990312266429768`*^9, 3.399031229722417*^9}, 3.525261888110368*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"4", "\[InvisibleSpace]", "\<\") f(x) = \"\>", "\[InvisibleSpace]", FractionBox["2", FormBox[ RowBox[{"Arcsin", "(", RowBox[{"3", " ", "x"}], ")"}], TraditionalForm]]}], SequenceForm[4, ") f(x) = ", 2/ArcSin[3 $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.399030241324538*^9, 3.399030277217729*^9, 3.399030436375154*^9, { 3.399030483444791*^9, 3.399030498148333*^9}, 3.399030962642124*^9, { 3.399031050823048*^9, 3.399031073540738*^9}, 3.399031112245366*^9, 3.399031183953887*^9, {3.3990312266429768`*^9, 3.399031229722417*^9}, 3.5252618881144238`*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"5", "\[InvisibleSpace]", "\<\") f(x) = \"\>", "\[InvisibleSpace]", FormBox[ RowBox[{"Arctg", "(", FractionBox["x", "2"], ")"}], TraditionalForm]}], SequenceForm[5, ") f(x) = ", ArcTan[Rational[1, 2] $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.399030241324538*^9, 3.399030277217729*^9, 3.399030436375154*^9, { 3.399030483444791*^9, 3.399030498148333*^9}, 3.399030962642124*^9, { 3.399031050823048*^9, 3.399031073540738*^9}, 3.399031112245366*^9, 3.399031183953887*^9, {3.3990312266429768`*^9, 3.399031229722417*^9}, 3.525261888118401*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"6", "\[InvisibleSpace]", "\<\") f(x) = \"\>", "\[InvisibleSpace]", FormBox[ RowBox[{"Arcsin", "(", RowBox[{"1", "-", RowBox[{"2", " ", "x"}]}], ")"}], TraditionalForm]}], SequenceForm[6, ") f(x) = ", ArcSin[1 - 2 $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.399030241324538*^9, 3.399030277217729*^9, 3.399030436375154*^9, { 3.399030483444791*^9, 3.399030498148333*^9}, 3.399030962642124*^9, { 3.399031050823048*^9, 3.399031073540738*^9}, 3.399031112245366*^9, 3.399031183953887*^9, {3.3990312266429768`*^9, 3.399031229722417*^9}, 3.525261888122308*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"7", "\[InvisibleSpace]", "\<\") f(x) = \"\>", "\[InvisibleSpace]", RowBox[{"-", FormBox[ RowBox[{"Arcsin", "(", RowBox[{"3", "-", SuperscriptBox["x", "2"]}], ")"}], TraditionalForm]}]}], SequenceForm[7, ") f(x) = ", -ArcSin[3 - $CellContext`x^2]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.399030241324538*^9, 3.399030277217729*^9, 3.399030436375154*^9, { 3.399030483444791*^9, 3.399030498148333*^9}, 3.399030962642124*^9, { 3.399031050823048*^9, 3.399031073540738*^9}, 3.399031112245366*^9, 3.399031183953887*^9, {3.3990312266429768`*^9, 3.399031229722417*^9}, 3.525261888126295*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"8", "\[InvisibleSpace]", "\<\") f(x) = \"\>", "\[InvisibleSpace]", FormBox[ RowBox[{"Arccos", "(", FractionBox["1", "x"], ")"}], TraditionalForm]}], SequenceForm[8, ") f(x) = ", ArcCos[$CellContext`x^(-1)]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.399030241324538*^9, 3.399030277217729*^9, 3.399030436375154*^9, { 3.399030483444791*^9, 3.399030498148333*^9}, 3.399030962642124*^9, { 3.399031050823048*^9, 3.399031073540738*^9}, 3.399031112245366*^9, 3.399031183953887*^9, {3.3990312266429768`*^9, 3.399031229722417*^9}, 3.5252618881302843`*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"9", "\[InvisibleSpace]", "\<\") f(x) = \"\>", "\[InvisibleSpace]", FormBox[ RowBox[{ TemplateBox[{"Arcsin","2"}, "Superscript"], "\[InvisibleApplication]", RowBox[{"(", "x", ")"}]}], TraditionalForm]}], SequenceForm[9, ") f(x) = ", ArcSin[$CellContext`x]^2], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.399030241324538*^9, 3.399030277217729*^9, 3.399030436375154*^9, { 3.399030483444791*^9, 3.399030498148333*^9}, 3.399030962642124*^9, { 3.399031050823048*^9, 3.399031073540738*^9}, 3.399031112245366*^9, 3.399031183953887*^9, {3.3990312266429768`*^9, 3.399031229722417*^9}, 3.525261888161304*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ "10", "\[InvisibleSpace]", "\<\") f(x) = \"\>", "\[InvisibleSpace]", FormBox[ RowBox[{"Arctg", "(", SqrtBox["x"], ")"}], TraditionalForm]}], SequenceForm[10, ") f(x) = ", ArcTan[$CellContext`x^Rational[1, 2]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.399030241324538*^9, 3.399030277217729*^9, 3.399030436375154*^9, { 3.399030483444791*^9, 3.399030498148333*^9}, 3.399030962642124*^9, { 3.399031050823048*^9, 3.399031073540738*^9}, 3.399031112245366*^9, 3.399031183953887*^9, {3.3990312266429768`*^9, 3.399031229722417*^9}, 3.52526188816568*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Solutions", "Subsubsection", CellChangeTimes->{{3.399030521826454*^9, 3.3990305236722918`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{"Print", "[", RowBox[{"i", ",", "\"\<) \>\"", ",", RowBox[{"Derivee", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "i"}], "]"}], ",", "x"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "10"}], "}"}]}], "]"}]], "Input", CellOpen->False, CellChangeTimes->{{3.3990299557079268`*^9, 3.399029976224835*^9}, { 3.399030289962708*^9, 3.399030302102248*^9}, {3.3990303383076*^9, 3.39903035438979*^9}, {3.3990304882594957`*^9, 3.399030488449601*^9}, { 3.399030987275353*^9, 3.3990309884900103`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"1", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FractionBox["5", SqrtBox[ RowBox[{"1", "-", RowBox[{"25", " ", SuperscriptBox["x", "2"]}]}]]]}], SequenceForm[1, ") ", 5 (1 - 25 $CellContext`x^2)^Rational[-1, 2]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.39903034346161*^9, 3.399030354831649*^9}, { 3.3990304889320087`*^9, 3.3990305012805843`*^9}, 3.399030989475059*^9, { 3.399031053145149*^9, 3.399031075360656*^9}, {3.399031114650154*^9, 3.399031139472188*^9}, 3.3990311862436*^9, 3.3990312316035843`*^9, 3.5252618934119663`*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"2", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FractionBox["3", RowBox[{ RowBox[{"18", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"18", " ", "x"}], "+", "5"}]]}], SequenceForm[2, ") ", 3/(5 + 18 $CellContext`x + 18 $CellContext`x^2)], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.39903034346161*^9, 3.399030354831649*^9}, { 3.3990304889320087`*^9, 3.3990305012805843`*^9}, 3.399030989475059*^9, { 3.399031053145149*^9, 3.399031075360656*^9}, {3.399031114650154*^9, 3.399031139472188*^9}, 3.3990311862436*^9, 3.3990312316035843`*^9, 3.525261893414505*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"3", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", RowBox[{"-", FractionBox["1", SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["x", "2"]}], "+", RowBox[{"4", " ", "x"}], "-", "3"}]]]}]}], SequenceForm[ 3, ") ", -(-3 + 4 $CellContext`x - $CellContext`x^2)^Rational[-1, 2]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.39903034346161*^9, 3.399030354831649*^9}, { 3.3990304889320087`*^9, 3.3990305012805843`*^9}, 3.399030989475059*^9, { 3.399031053145149*^9, 3.399031075360656*^9}, {3.399031114650154*^9, 3.399031139472188*^9}, 3.3990311862436*^9, 3.3990312316035843`*^9, 3.5252618934172564`*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"4", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", RowBox[{"-", FractionBox["6", RowBox[{ SqrtBox[ RowBox[{"1", "-", RowBox[{"9", " ", SuperscriptBox["x", "2"]}]}]], " ", FormBox[ RowBox[{ TemplateBox[{"Arcsin","2"}, "Superscript"], "\[InvisibleApplication]", RowBox[{"(", RowBox[{"3", " ", "x"}], ")"}]}], TraditionalForm]}]]}]}], SequenceForm[ 4, ") ", (-6) (1 - 9 $CellContext`x^2)^Rational[-1, 2] ArcSin[3 $CellContext`x]^(-2)], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.39903034346161*^9, 3.399030354831649*^9}, { 3.3990304889320087`*^9, 3.3990305012805843`*^9}, 3.399030989475059*^9, { 3.399031053145149*^9, 3.399031075360656*^9}, {3.399031114650154*^9, 3.399031139472188*^9}, 3.3990311862436*^9, 3.3990312316035843`*^9, 3.525261893419166*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"5", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FractionBox["2", RowBox[{ SuperscriptBox["x", "2"], "+", "4"}]]}], SequenceForm[5, ") ", 2/(4 + $CellContext`x^2)], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.39903034346161*^9, 3.399030354831649*^9}, { 3.3990304889320087`*^9, 3.3990305012805843`*^9}, 3.399030989475059*^9, { 3.399031053145149*^9, 3.399031075360656*^9}, {3.399031114650154*^9, 3.399031139472188*^9}, 3.3990311862436*^9, 3.3990312316035843`*^9, 3.525261893421288*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"6", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", RowBox[{"-", FractionBox["1", SqrtBox[ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"x", "-", "1"}], ")"}]}], " ", "x"}]]]}]}], SequenceForm[ 6, ") ", -(-(-1 + $CellContext`x) $CellContext`x)^Rational[-1, 2]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.39903034346161*^9, 3.399030354831649*^9}, { 3.3990304889320087`*^9, 3.3990305012805843`*^9}, 3.399030989475059*^9, { 3.399031053145149*^9, 3.399031075360656*^9}, {3.399031114650154*^9, 3.399031139472188*^9}, 3.3990311862436*^9, 3.3990312316035843`*^9, 3.525261893423017*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"7", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FractionBox[ RowBox[{"2", " ", "x"}], SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["x", "4"]}], "+", RowBox[{"6", " ", SuperscriptBox["x", "2"]}], "-", "8"}]]]}], SequenceForm[ 7, ") ", 2 $CellContext`x (-8 + 6 $CellContext`x^2 - $CellContext`x^4)^ Rational[-1, 2]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.39903034346161*^9, 3.399030354831649*^9}, { 3.3990304889320087`*^9, 3.3990305012805843`*^9}, 3.399030989475059*^9, { 3.399031053145149*^9, 3.399031075360656*^9}, {3.399031114650154*^9, 3.399031139472188*^9}, 3.3990311862436*^9, 3.3990312316035843`*^9, 3.5252618934247828`*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"8", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FractionBox["1", RowBox[{ SuperscriptBox["x", "2"], " ", SqrtBox[ FractionBox[ RowBox[{ SuperscriptBox["x", "2"], "-", "1"}], SuperscriptBox["x", "2"]]]}]]}], SequenceForm[ 8, ") ", $CellContext`x^(-2) ($CellContext`x^(-2) (-1 + $CellContext`x^2))^ Rational[-1, 2]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.39903034346161*^9, 3.399030354831649*^9}, { 3.3990304889320087`*^9, 3.3990305012805843`*^9}, 3.399030989475059*^9, { 3.399031053145149*^9, 3.399031075360656*^9}, {3.399031114650154*^9, 3.399031139472188*^9}, 3.3990311862436*^9, 3.3990312316035843`*^9, 3.5252618934266157`*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"9", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FractionBox[ RowBox[{"2", " ", FormBox[ RowBox[{"Arcsin", "(", "x", ")"}], TraditionalForm]}], SqrtBox[ RowBox[{"1", "-", SuperscriptBox["x", "2"]}]]]}], SequenceForm[ 9, ") ", 2 (1 - $CellContext`x^2)^Rational[-1, 2] ArcSin[$CellContext`x]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.39903034346161*^9, 3.399030354831649*^9}, { 3.3990304889320087`*^9, 3.3990305012805843`*^9}, 3.399030989475059*^9, { 3.399031053145149*^9, 3.399031075360656*^9}, {3.399031114650154*^9, 3.399031139472188*^9}, 3.3990311862436*^9, 3.3990312316035843`*^9, 3.52526189342848*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"10", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", FractionBox["1", RowBox[{"2", " ", SqrtBox["x"], " ", RowBox[{"(", RowBox[{"x", "+", "1"}], ")"}]}]]}], SequenceForm[ 10, ") ", Rational[1, 2] $CellContext`x^Rational[-1, 2]/( 1 + $CellContext`x)], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.39903034346161*^9, 3.399030354831649*^9}, { 3.3990304889320087`*^9, 3.3990305012805843`*^9}, 3.399030989475059*^9, { 3.399031053145149*^9, 3.399031075360656*^9}, {3.399031114650154*^9, 3.399031139472188*^9}, 3.3990311862436*^9, 3.3990312316035843`*^9, 3.525261893430304*^9}] }, Open ]] }, Open ]] }, Closed]] }, Open ]] }, Open ]] }, WindowSize->{889, 1045}, WindowMargins->{{201, Automatic}, {Automatic, 26}}, PrintingCopies->1, PrintingPageRange->{1, Automatic}, ShowSelection->True, CellLabelAutoDelete->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, 147, 3, 47, "Subsubtitle"], Cell[CellGroupData[{ Cell[739, 29, 171, 3, 44, "Section"], Cell[CellGroupData[{ Cell[935, 36, 2879, 92, 19, "Input", CellOpen->False], Cell[CellGroupData[{ Cell[3839, 132, 587, 15, 31, "Print"], Cell[4429, 149, 566, 15, 47, "Print"], Cell[4998, 166, 610, 16, 31, "Print"], Cell[5611, 184, 555, 14, 47, "Print"], Cell[6169, 200, 702, 20, 53, "Print"], Cell[6874, 222, 645, 17, 31, "Print"], Cell[7522, 241, 563, 15, 27, "Print"], Cell[8088, 258, 532, 14, 47, "Print"], Cell[8623, 274, 690, 19, 27, "Print"], Cell[9316, 295, 670, 19, 31, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[10035, 320, 102, 1, 31, "Subsubsection"], Cell[CellGroupData[{ Cell[10162, 325, 570, 14, 19, "Input", CellOpen->False], Cell[CellGroupData[{ Cell[10757, 343, 1261, 29, 30, "Print"], Cell[12021, 374, 689, 16, 27, "Print"], Cell[12713, 392, 738, 17, 30, "Print"], Cell[13454, 411, 1244, 29, 47, "Print"], Cell[14701, 442, 1244, 29, 45, "Print"], Cell[15948, 473, 1348, 31, 30, "Print"], Cell[17299, 506, 713, 19, 46, "Print"], Cell[18015, 527, 929, 20, 27, "Print"], Cell[18947, 549, 734, 19, 47, "Print"], Cell[19684, 570, 477, 12, 27, "Print"] }, Open ]] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[20234, 590, 203, 3, 44, "Section"], Cell[CellGroupData[{ Cell[20462, 597, 2621, 81, 19, "Input", CellOpen->False], Cell[CellGroupData[{ Cell[23108, 682, 677, 16, 27, "Print"], Cell[23788, 700, 708, 17, 27, "Print"], Cell[24499, 719, 678, 16, 27, "Print"], Cell[25180, 737, 701, 16, 47, "Print"], Cell[25884, 755, 685, 16, 42, "Print"], Cell[26572, 773, 707, 17, 27, "Print"], Cell[27282, 792, 729, 17, 31, "Print"], Cell[28014, 811, 678, 16, 47, "Print"], Cell[28695, 829, 735, 17, 27, "Print"], Cell[29433, 848, 681, 17, 32, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[30163, 871, 102, 1, 31, "Subsubsection"], Cell[CellGroupData[{ Cell[30290, 876, 621, 15, 19, "Input", CellOpen->False], Cell[CellGroupData[{ Cell[30936, 895, 680, 15, 60, "Print"], Cell[31619, 912, 702, 15, 47, "Print"], Cell[32324, 929, 758, 18, 60, "Print"], Cell[33085, 949, 987, 26, 61, "Print"], Cell[34075, 977, 612, 13, 47, "Print"], Cell[34690, 992, 744, 18, 51, "Print"], Cell[35437, 1012, 812, 20, 60, "Print"], Cell[36252, 1034, 813, 20, 80, "Print"], Cell[37068, 1056, 775, 19, 60, "Print"], Cell[37846, 1077, 718, 17, 52, "Print"] }, Open ]] }, Open ]] }, Closed]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)