(* 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[ 55580, 1604] NotebookOptionsPosition[ 52040, 1499] NotebookOutlinePosition[ 52378, 1514] CellTagsIndexPosition[ 52335, 1511] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["\<\ In\[EAcute]quations r\[EAcute]ductibles au second degr\[EAcute]\ \>", "Section", CellChangeTimes->{{3.43028417298617*^9, 3.430284183925192*^9}}], Cell[CellGroupData[{ Cell["r\[EAcute]soudre dans \[DoubleStruckCapitalR]", "Subsection", CellChangeTimes->{{3.430284261960465*^9, 3.430284265332973*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"n", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "++"}], ";", RowBox[{ RowBox[{"in", "[", "n", "]"}], "=", RowBox[{ RowBox[{ RowBox[{"2", "x"}], "-", "1"}], ">", RowBox[{"2", "/", RowBox[{"(", RowBox[{"x", "-", "2"}], ")"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "++"}], ";", RowBox[{ RowBox[{"in", "[", "n", "]"}], "=", RowBox[{ RowBox[{"x", "/", RowBox[{"(", RowBox[{"x", "+", "3"}], ")"}]}], ">=", RowBox[{"1", "/", RowBox[{"(", RowBox[{"x", "-", "1"}], ")"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "++"}], ";", RowBox[{ RowBox[{"in", "[", "n", "]"}], "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"x", "-", "2"}], ")"}], "/", "x"}], "\[LessEqual]", RowBox[{"x", "/", RowBox[{"(", RowBox[{"x", "+", "1"}], ")"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "++"}], ";", RowBox[{ RowBox[{"in", "[", "n", "]"}], "=", RowBox[{ RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{"x", "-", "1"}], ")"}]}], "+", RowBox[{"1", "/", RowBox[{"(", RowBox[{"x", "+", "2"}], ")"}]}]}], "\[GreaterEqual]", RowBox[{"2", "/", RowBox[{"(", RowBox[{"x", "-", "3"}], ")"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"n", "++"}], ";", RowBox[{ RowBox[{"in", "[", "n", "]"}], "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "x"}], "-", "1"}], ")"}], "/", RowBox[{"(", RowBox[{"x", "+", "1"}], ")"}]}], "\[LessEqual]", RowBox[{"2", "/", RowBox[{"(", RowBox[{"x", "+", "3"}], ")"}]}]}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Do", "[", RowBox[{ RowBox[{"Print", "[", RowBox[{"i", ",", "\"\<) \>\"", ",", RowBox[{"in", "[", "i", "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "Input", CellOpen->False, CellChangeTimes->{{3.430284193399538*^9, 3.430284315301599*^9}, { 3.4302843827150517`*^9, 3.430284406297669*^9}, 3.430284599512312*^9, { 3.430284648463921*^9, 3.430284661839658*^9}, {3.430284759235984*^9, 3.4302847752345877`*^9}, {3.430284875159189*^9, 3.43028488740532*^9}}], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"1", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{ RowBox[{"2", " ", "x"}], "-", "1"}], ">", FractionBox["2", RowBox[{"x", "-", "2"}]]}]}], SequenceForm[1, ") ", -1 + 2 $CellContext`x > 2/(-2 + $CellContext`x)], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.430284315838132*^9, {3.430284383454458*^9, 3.430284410475169*^9}, 3.4302845999606543`*^9, 3.4302846626600037`*^9, 3.4302847756086493`*^9, { 3.430284888140486*^9, 3.430284889407545*^9}}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"2", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", RowBox[{ FractionBox["x", RowBox[{"x", "+", "3"}]], "\[GreaterEqual]", FractionBox["1", RowBox[{"x", "-", "1"}]]}]}], SequenceForm[ 2, ") ", $CellContext`x/( 3 + $CellContext`x) >= (-1 + $CellContext`x)^(-1)], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.430284315838132*^9, {3.430284383454458*^9, 3.430284410475169*^9}, 3.4302845999606543`*^9, 3.4302846626600037`*^9, 3.4302847756086493`*^9, { 3.430284888140486*^9, 3.4302848894105263`*^9}}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"3", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", RowBox[{ FractionBox[ RowBox[{"x", "-", "2"}], "x"], "\[LessEqual]", FractionBox["x", RowBox[{"x", "+", "1"}]]}]}], SequenceForm[ 3, ") ", (-2 + $CellContext`x)/$CellContext`x <= $CellContext`x/( 1 + $CellContext`x)], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.430284315838132*^9, {3.430284383454458*^9, 3.430284410475169*^9}, 3.4302845999606543`*^9, 3.4302846626600037`*^9, 3.4302847756086493`*^9, { 3.430284888140486*^9, 3.430284889413802*^9}}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"4", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{ FractionBox["1", RowBox[{"x", "+", "2"}]], "+", FractionBox["1", RowBox[{"x", "-", "1"}]]}], "\[GreaterEqual]", FractionBox["2", RowBox[{"x", "-", "3"}]]}]}], SequenceForm[ 4, ") ", (-1 + $CellContext`x)^(-1) + (2 + $CellContext`x)^(-1) >= 2/(-3 + $CellContext`x)], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.430284315838132*^9, {3.430284383454458*^9, 3.430284410475169*^9}, 3.4302845999606543`*^9, 3.4302846626600037`*^9, 3.4302847756086493`*^9, { 3.430284888140486*^9, 3.430284889417219*^9}}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"5", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", RowBox[{ FractionBox[ RowBox[{ RowBox[{"2", " ", "x"}], "-", "1"}], RowBox[{"x", "+", "1"}]], "\[LessEqual]", FractionBox["2", RowBox[{"x", "+", "3"}]]}]}], SequenceForm[ 5, ") ", (1 + $CellContext`x)^(-1) (-1 + 2 $CellContext`x) <= 2/(3 + $CellContext`x)], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.430284315838132*^9, {3.430284383454458*^9, 3.430284410475169*^9}, 3.4302845999606543`*^9, 3.4302846626600037`*^9, 3.4302847756086493`*^9, { 3.430284888140486*^9, 3.4302848894204807`*^9}}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Solutions d\[EAcute]taill\[EAcute]es", "Subsection", CellChangeTimes->{{3.430284324433826*^9, 3.430284329762285*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"Print", "[", RowBox[{"i", ",", "\"\<) \>\"", ",", RowBox[{"in", "[", "i", "]"}]}], "]"}], ";", RowBox[{"Inequation", "[", RowBox[{ RowBox[{"in", "[", "i", "]"}], ",", "x"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]], "Input", CellOpen->False, CellChangeTimes->{{3.430284344252528*^9, 3.430284363972994*^9}, { 3.430284463881544*^9, 3.4302844738397837`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"1", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{ RowBox[{"2", " ", "x"}], "-", "1"}], ">", FractionBox["2", RowBox[{"x", "-", "2"}]]}]}], SequenceForm[1, ") ", -1 + 2 $CellContext`x > 2/(-2 + $CellContext`x)], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.430284351040491*^9, 3.4302844106096478`*^9}, 3.430284474646493*^9, 3.430284602362875*^9, 3.430284664861774*^9, 3.430284777562298*^9, 3.430284889552249*^9}], Cell[BoxData[ FormBox[ StyleBox["\<\"obtenir 0 dans le second membre de l'in\[EAcute]quation\"\>", StripOnInput->False, FrontFaceColor->RGBColor[0, Rational[2, 3], 0], BackFaceColor->RGBColor[0, Rational[2, 3], 0], GraphicsColor->RGBColor[0, Rational[2, 3], 0], FontSlant->Italic, FontColor->RGBColor[0, Rational[2, 3], 0]], TraditionalForm]], "Print", CellChangeTimes->{{3.430284351040491*^9, 3.4302844106096478`*^9}, 3.430284474646493*^9, 3.430284602362875*^9, 3.430284664861774*^9, 3.430284777562298*^9, 3.430284889554638*^9}], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"2", " ", "x"}], "-", FractionBox["2", RowBox[{"x", "-", "2"}]], "-", "1"}], ">", "0"}], TraditionalForm]], "Print", CellChangeTimes->{{3.430284351040491*^9, 3.4302844106096478`*^9}, 3.430284474646493*^9, 3.430284602362875*^9, 3.430284664861774*^9, 3.430284777562298*^9, 3.430284889557213*^9}], Cell[BoxData[ FormBox[ StyleBox["\<\"obtenir un produit ou un quotient \"\>", StripOnInput->False, FrontFaceColor->RGBColor[0, Rational[2, 3], 0], BackFaceColor->RGBColor[0, Rational[2, 3], 0], GraphicsColor->RGBColor[0, Rational[2, 3], 0], FontSlant->Italic, FontColor->RGBColor[0, Rational[2, 3], 0]], TraditionalForm]], "Print", CellChangeTimes->{{3.430284351040491*^9, 3.4302844106096478`*^9}, 3.430284474646493*^9, 3.430284602362875*^9, 3.430284664861774*^9, 3.430284777562298*^9, 3.430284889558796*^9}], Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{ RowBox[{"2", " ", SuperscriptBox["x", "2"]}], "-", RowBox[{"5", " ", "x"}]}], RowBox[{"x", "-", "2"}]], ">", "0"}], TraditionalForm]], "Print", CellChangeTimes->{{3.430284351040491*^9, 3.4302844106096478`*^9}, 3.430284474646493*^9, 3.430284602362875*^9, 3.430284664861774*^9, 3.430284777562298*^9, 3.4302848895603657`*^9}], Cell[BoxData[ FormBox[ StyleBox["\<\"racines du num\[EAcute]rateur:\"\>", StripOnInput->False, FrontFaceColor->RGBColor[0, Rational[2, 3], 0], BackFaceColor->RGBColor[0, Rational[2, 3], 0], GraphicsColor->RGBColor[0, Rational[2, 3], 0], FontSlant->Italic, FontColor->RGBColor[0, Rational[2, 3], 0]], TraditionalForm]], "Print", CellChangeTimes->{{3.430284351040491*^9, 3.4302844106096478`*^9}, 3.430284474646493*^9, 3.430284602362875*^9, 3.430284664861774*^9, 3.430284777562298*^9, 3.430284889561963*^9}], Cell[BoxData[ FormBox[ InterpretationBox["\<\"{\\!\\(TraditionalForm\\`0\\) , \ \\!\\(TraditionalForm\\`5\\/2\\)}\"\>", StringForm["{`1` , `2`}", 0, Rational[5, 2]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.430284351040491*^9, 3.4302844106096478`*^9}, 3.430284474646493*^9, 3.430284602362875*^9, 3.430284664861774*^9, 3.430284777562298*^9, 3.430284889587051*^9}], Cell[BoxData[ FormBox[ StyleBox["\<\"racines du d\[EAcute]nominateur:\"\>", StripOnInput->False, FrontFaceColor->RGBColor[0, Rational[2, 3], 0], BackFaceColor->RGBColor[0, Rational[2, 3], 0], GraphicsColor->RGBColor[0, Rational[2, 3], 0], FontSlant->Italic, FontColor->RGBColor[0, Rational[2, 3], 0]], TraditionalForm]], "Print", CellChangeTimes->{{3.430284351040491*^9, 3.4302844106096478`*^9}, 3.430284474646493*^9, 3.430284602362875*^9, 3.430284664861774*^9, 3.430284777562298*^9, 3.4302848896168737`*^9}], Cell[BoxData[ FormBox[ InterpretationBox["\<\" { \\!\\(TraditionalForm\\`2\\) }\"\>", StringForm[" { `1` }", 2], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.430284351040491*^9, 3.4302844106096478`*^9}, 3.430284474646493*^9, 3.430284602362875*^9, 3.430284664861774*^9, 3.430284777562298*^9, 3.430284889650178*^9}], Cell[BoxData[ FormBox[ StyleBox["\<\"tableau de signes:\"\>", StripOnInput->False, FrontFaceColor->RGBColor[0, Rational[2, 3], 0], BackFaceColor->RGBColor[0, Rational[2, 3], 0], GraphicsColor->RGBColor[0, Rational[2, 3], 0], FontSlant->Italic, FontColor->RGBColor[0, Rational[2, 3], 0]], TraditionalForm]], "Print", CellChangeTimes->{{3.430284351040491*^9, 3.4302844106096478`*^9}, 3.430284474646493*^9, 3.430284602362875*^9, 3.430284664861774*^9, 3.430284777562298*^9, 3.430284889683342*^9}], Cell[BoxData[ FormBox[ TagBox[GridBox[{ {"x", " ", "0", " ", "2", " ", FractionBox["5", "2"], " "}, { FractionBox[ RowBox[{ RowBox[{"2", " ", SuperscriptBox["x", "2"]}], "-", RowBox[{"5", " ", "x"}]}], RowBox[{"x", "-", "2"}]], "-", "0", "+", "|", "-", "0", "+"} }, GridBoxDividers->{ "Columns" -> {{True}}, "ColumnsIndexed" -> {}, "Rows" -> {{True}}, "RowsIndexed" -> {}}], DisplayForm], TraditionalForm]], "Print", CellChangeTimes->{{3.430284351040491*^9, 3.4302844106096478`*^9}, 3.430284474646493*^9, 3.430284602362875*^9, 3.430284664861774*^9, 3.430284777562298*^9, 3.4302848897167063`*^9}], Cell[BoxData[ FormBox[ StyleBox["\<\"solution: \"\>", StripOnInput->False, FrontFaceColor->RGBColor[0, Rational[2, 3], 0], BackFaceColor->RGBColor[0, Rational[2, 3], 0], GraphicsColor->RGBColor[0, Rational[2, 3], 0], FontSlant->Italic, FontColor->RGBColor[0, Rational[2, 3], 0]], TraditionalForm]], "Print", CellChangeTimes->{{3.430284351040491*^9, 3.4302844106096478`*^9}, 3.430284474646493*^9, 3.430284602362875*^9, 3.430284664861774*^9, 3.430284777562298*^9, 3.4302848897497387`*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"S = \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"]\ \\\\!\\\\(TraditionalForm\\\\`0\\\\), \\\\!\\\\(TraditionalForm\\\\`2\\\\)[\\\ \"\\)\\) \[Union] \ \\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"]\\\\!\\\\(TraditionalForm\\\ \\`5\\\\/2\\\\), \\\\[LongRightArrow]\\\"\\)\\)\"\>", StringForm["`1` \[Union] `2`", analyse`Ens[ Inequality[0, Less, $CellContext`x, Less, 2], $CellContext`x], analyse`Ens[$CellContext`x > Rational[5, 2], $CellContext`x]], Editable->False], TraditionalForm]}], SequenceForm["S = ", analyse`Ens[ Or[ Inequality[0, Less, $CellContext`x, Less, 2], $CellContext`x > Rational[5, 2]], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.430284351040491*^9, 3.4302844106096478`*^9}, 3.430284474646493*^9, 3.430284602362875*^9, 3.430284664861774*^9, 3.430284777562298*^9, 3.4302848897830343`*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"2", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", RowBox[{ FractionBox["x", RowBox[{"x", "+", "3"}]], "\[GreaterEqual]", FractionBox["1", RowBox[{"x", "-", "1"}]]}]}], SequenceForm[ 2, ") ", $CellContext`x/( 3 + $CellContext`x) >= (-1 + $CellContext`x)^(-1)], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.430284351040491*^9, 3.4302844106096478`*^9}, 3.430284474646493*^9, 3.430284602362875*^9, 3.430284664861774*^9, 3.430284777562298*^9, 3.430284889815947*^9}], Cell[BoxData[ FormBox[ StyleBox["\<\"obtenir 0 dans le second membre de l'in\[EAcute]quation\"\>", StripOnInput->False, FrontFaceColor->RGBColor[0, Rational[2, 3], 0], BackFaceColor->RGBColor[0, Rational[2, 3], 0], GraphicsColor->RGBColor[0, Rational[2, 3], 0], FontSlant->Italic, FontColor->RGBColor[0, Rational[2, 3], 0]], TraditionalForm]], "Print", CellChangeTimes->{{3.430284351040491*^9, 3.4302844106096478`*^9}, 3.430284474646493*^9, 3.430284602362875*^9, 3.430284664861774*^9, 3.430284777562298*^9, 3.430284889849874*^9}], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ FractionBox["x", RowBox[{"x", "+", "3"}]], "-", FractionBox["1", RowBox[{"x", "-", "1"}]]}], "\[GreaterEqual]", "0"}], TraditionalForm]], "Print", CellChangeTimes->{{3.430284351040491*^9, 3.4302844106096478`*^9}, 3.430284474646493*^9, 3.430284602362875*^9, 3.430284664861774*^9, 3.430284777562298*^9, 3.4302848898835793`*^9}], Cell[BoxData[ FormBox[ StyleBox["\<\"obtenir un produit ou un quotient \"\>", StripOnInput->False, FrontFaceColor->RGBColor[0, Rational[2, 3], 0], BackFaceColor->RGBColor[0, Rational[2, 3], 0], GraphicsColor->RGBColor[0, Rational[2, 3], 0], FontSlant->Italic, FontColor->RGBColor[0, Rational[2, 3], 0]], TraditionalForm]], "Print", CellChangeTimes->{{3.430284351040491*^9, 3.4302844106096478`*^9}, 3.430284474646493*^9, 3.430284602362875*^9, 3.430284664861774*^9, 3.430284777562298*^9, 3.430284889916155*^9}], Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["x", "2"], "-", RowBox[{"2", " ", "x"}], "-", "3"}], RowBox[{ RowBox[{"(", RowBox[{"x", "-", "1"}], ")"}], " ", RowBox[{"(", RowBox[{"x", "+", "3"}], ")"}]}]], "\[GreaterEqual]", "0"}], TraditionalForm]], "Print", CellChangeTimes->{{3.430284351040491*^9, 3.4302844106096478`*^9}, 3.430284474646493*^9, 3.430284602362875*^9, 3.430284664861774*^9, 3.430284777562298*^9, 3.4302848899491777`*^9}], Cell[BoxData[ FormBox[ StyleBox["\<\"racines du num\[EAcute]rateur:\"\>", StripOnInput->False, FrontFaceColor->RGBColor[0, Rational[2, 3], 0], BackFaceColor->RGBColor[0, Rational[2, 3], 0], GraphicsColor->RGBColor[0, Rational[2, 3], 0], FontSlant->Italic, FontColor->RGBColor[0, Rational[2, 3], 0]], TraditionalForm]], "Print", CellChangeTimes->{{3.430284351040491*^9, 3.4302844106096478`*^9}, 3.430284474646493*^9, 3.430284602362875*^9, 3.430284664861774*^9, 3.430284777562298*^9, 3.430284889982716*^9}], Cell[BoxData[ FormBox[ InterpretationBox["\<\"{\\!\\(TraditionalForm\\`\\(-1\\)\\) , \ \\!\\(TraditionalForm\\`3\\)}\"\>", StringForm["{`1` , `2`}", -1, 3], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.430284351040491*^9, 3.4302844106096478`*^9}, 3.430284474646493*^9, 3.430284602362875*^9, 3.430284664861774*^9, 3.430284777562298*^9, 3.4302848900211353`*^9}], Cell[BoxData[ FormBox[ StyleBox["\<\"racines du d\[EAcute]nominateur:\"\>", StripOnInput->False, FrontFaceColor->RGBColor[0, Rational[2, 3], 0], BackFaceColor->RGBColor[0, Rational[2, 3], 0], GraphicsColor->RGBColor[0, Rational[2, 3], 0], FontSlant->Italic, FontColor->RGBColor[0, Rational[2, 3], 0]], TraditionalForm]], "Print", CellChangeTimes->{{3.430284351040491*^9, 3.4302844106096478`*^9}, 3.430284474646493*^9, 3.430284602362875*^9, 3.430284664861774*^9, 3.430284777562298*^9, 3.4302848900488997`*^9}], Cell[BoxData[ FormBox[ InterpretationBox["\<\"{\\!\\(TraditionalForm\\`\\(-3\\)\\) , \ \\!\\(TraditionalForm\\`1\\)}\"\>", StringForm["{`1` , `2`}", -3, 1], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.430284351040491*^9, 3.4302844106096478`*^9}, 3.430284474646493*^9, 3.430284602362875*^9, 3.430284664861774*^9, 3.430284777562298*^9, 3.430284890082629*^9}], Cell[BoxData[ FormBox[ StyleBox["\<\"tableau de signes:\"\>", StripOnInput->False, FrontFaceColor->RGBColor[0, Rational[2, 3], 0], BackFaceColor->RGBColor[0, Rational[2, 3], 0], GraphicsColor->RGBColor[0, Rational[2, 3], 0], FontSlant->Italic, FontColor->RGBColor[0, Rational[2, 3], 0]], TraditionalForm]], "Print", CellChangeTimes->{{3.430284351040491*^9, 3.4302844106096478`*^9}, 3.430284474646493*^9, 3.430284602362875*^9, 3.430284664861774*^9, 3.430284777562298*^9, 3.430284890115548*^9}], Cell[BoxData[ FormBox[ TagBox[GridBox[{ {"x", " ", RowBox[{"-", "3"}], " ", RowBox[{"-", "1"}], " ", "1", " ", "3", " "}, { FractionBox[ RowBox[{ SuperscriptBox["x", "2"], "-", RowBox[{"2", " ", "x"}], "-", "3"}], RowBox[{ RowBox[{"(", RowBox[{"x", "-", "1"}], ")"}], " ", RowBox[{"(", RowBox[{"x", "+", "3"}], ")"}]}]], "+", "|", "-", "0", "+", "|", "-", "0", "+"} }, GridBoxDividers->{ "Columns" -> {{True}}, "ColumnsIndexed" -> {}, "Rows" -> {{True}}, "RowsIndexed" -> {}}], DisplayForm], TraditionalForm]], "Print", CellChangeTimes->{{3.430284351040491*^9, 3.4302844106096478`*^9}, 3.430284474646493*^9, 3.430284602362875*^9, 3.430284664861774*^9, 3.430284777562298*^9, 3.4302848901490498`*^9}], Cell[BoxData[ FormBox[ StyleBox["\<\"solution: \"\>", StripOnInput->False, FrontFaceColor->RGBColor[0, Rational[2, 3], 0], BackFaceColor->RGBColor[0, Rational[2, 3], 0], GraphicsColor->RGBColor[0, Rational[2, 3], 0], FontSlant->Italic, FontColor->RGBColor[0, Rational[2, 3], 0]], TraditionalForm]], "Print", CellChangeTimes->{{3.430284351040491*^9, 3.4302844106096478`*^9}, 3.430284474646493*^9, 3.430284602362875*^9, 3.430284664861774*^9, 3.430284777562298*^9, 3.430284890182706*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"S = \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\ \\\\[LongLeftArrow], \ \\\\!\\\\(TraditionalForm\\\\`\\\\(-3\\\\)\\\\)[\\\"\\)\\) \[Union] \ \\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\!\\\\(TraditionalForm\\\\\ `\\\\(TraditionalForm\\\\`\\\\\\\"[\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\ \\\\\\\\(-1\\\\\\\\)\\\\\\\\), \ \\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`1\\\\\\\\)[\\\\\\\"\\\\)\\\\) \ \\\\[Union] \ \\\\!\\\\(TraditionalForm\\\\`\\\\(TraditionalForm\\\\`\\\\\\\"[\\\\\\\\!\\\\\ \\\\(TraditionalForm\\\\\\\\`3\\\\\\\\), \ \\\\\\\\[LongRightArrow]\\\\\\\"\\\\)\\\\)\\\"\\)\\)\"\>", StringForm["`1` \[Union] `2`", analyse`Ens[$CellContext`x < -3, $CellContext`x], analyse`Ens[ Or[ Inequality[-1, LessEqual, $CellContext`x, Less, 1], $CellContext`x >= 3], $CellContext`x]], Editable->False], TraditionalForm]}], SequenceForm["S = ", analyse`Ens[ Or[$CellContext`x < -3, Inequality[-1, LessEqual, $CellContext`x, Less, 1], $CellContext`x >= 3], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.430284351040491*^9, 3.4302844106096478`*^9}, 3.430284474646493*^9, 3.430284602362875*^9, 3.430284664861774*^9, 3.430284777562298*^9, 3.430284890215621*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"3", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", RowBox[{ FractionBox[ RowBox[{"x", "-", "2"}], "x"], "\[LessEqual]", FractionBox["x", RowBox[{"x", "+", "1"}]]}]}], SequenceForm[ 3, ") ", (-2 + $CellContext`x)/$CellContext`x <= $CellContext`x/( 1 + $CellContext`x)], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.430284351040491*^9, 3.4302844106096478`*^9}, 3.430284474646493*^9, 3.430284602362875*^9, 3.430284664861774*^9, 3.430284777562298*^9, 3.430284890248888*^9}], Cell[BoxData[ FormBox[ StyleBox["\<\"obtenir 0 dans le second membre de l'in\[EAcute]quation\"\>", StripOnInput->False, FrontFaceColor->RGBColor[0, Rational[2, 3], 0], BackFaceColor->RGBColor[0, Rational[2, 3], 0], GraphicsColor->RGBColor[0, Rational[2, 3], 0], FontSlant->Italic, FontColor->RGBColor[0, Rational[2, 3], 0]], TraditionalForm]], "Print", CellChangeTimes->{{3.430284351040491*^9, 3.4302844106096478`*^9}, 3.430284474646493*^9, 3.430284602362875*^9, 3.430284664861774*^9, 3.430284777562298*^9, 3.4302848902821302`*^9}], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ FractionBox[ RowBox[{"x", "-", "2"}], "x"], "-", FractionBox["x", RowBox[{"x", "+", "1"}]]}], "\[LessEqual]", "0"}], TraditionalForm]], "Print", CellChangeTimes->{{3.430284351040491*^9, 3.4302844106096478`*^9}, 3.430284474646493*^9, 3.430284602362875*^9, 3.430284664861774*^9, 3.430284777562298*^9, 3.4302848903153887`*^9}], Cell[BoxData[ FormBox[ StyleBox["\<\"obtenir un produit ou un quotient \"\>", StripOnInput->False, FrontFaceColor->RGBColor[0, Rational[2, 3], 0], BackFaceColor->RGBColor[0, Rational[2, 3], 0], GraphicsColor->RGBColor[0, Rational[2, 3], 0], FontSlant->Italic, FontColor->RGBColor[0, Rational[2, 3], 0]], TraditionalForm]], "Print", CellChangeTimes->{{3.430284351040491*^9, 3.4302844106096478`*^9}, 3.430284474646493*^9, 3.430284602362875*^9, 3.430284664861774*^9, 3.430284777562298*^9, 3.4302848903489113`*^9}], Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{ RowBox[{"-", "x"}], "-", "2"}], RowBox[{"x", " ", RowBox[{"(", RowBox[{"x", "+", "1"}], ")"}]}]], "\[LessEqual]", "0"}], TraditionalForm]], "Print", CellChangeTimes->{{3.430284351040491*^9, 3.4302844106096478`*^9}, 3.430284474646493*^9, 3.430284602362875*^9, 3.430284664861774*^9, 3.430284777562298*^9, 3.4302848903822527`*^9}], Cell[BoxData[ FormBox[ StyleBox["\<\"racines du num\[EAcute]rateur:\"\>", StripOnInput->False, FrontFaceColor->RGBColor[0, Rational[2, 3], 0], BackFaceColor->RGBColor[0, Rational[2, 3], 0], GraphicsColor->RGBColor[0, Rational[2, 3], 0], FontSlant->Italic, FontColor->RGBColor[0, Rational[2, 3], 0]], TraditionalForm]], "Print", CellChangeTimes->{{3.430284351040491*^9, 3.4302844106096478`*^9}, 3.430284474646493*^9, 3.430284602362875*^9, 3.430284664861774*^9, 3.430284777562298*^9, 3.4302848904154863`*^9}], Cell[BoxData[ FormBox[ InterpretationBox["\<\" { \\!\\(TraditionalForm\\`\\(-2\\)\\) }\"\>", StringForm[" { `1` }", -2], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.430284351040491*^9, 3.4302844106096478`*^9}, 3.430284474646493*^9, 3.430284602362875*^9, 3.430284664861774*^9, 3.430284777562298*^9, 3.43028489044875*^9}], Cell[BoxData[ FormBox[ StyleBox["\<\"racines du d\[EAcute]nominateur:\"\>", StripOnInput->False, FrontFaceColor->RGBColor[0, Rational[2, 3], 0], BackFaceColor->RGBColor[0, Rational[2, 3], 0], GraphicsColor->RGBColor[0, Rational[2, 3], 0], FontSlant->Italic, FontColor->RGBColor[0, Rational[2, 3], 0]], TraditionalForm]], "Print", CellChangeTimes->{{3.430284351040491*^9, 3.4302844106096478`*^9}, 3.430284474646493*^9, 3.430284602362875*^9, 3.430284664861774*^9, 3.430284777562298*^9, 3.43028489048623*^9}], Cell[BoxData[ FormBox[ InterpretationBox["\<\"{\\!\\(TraditionalForm\\`\\(-1\\)\\) , \ \\!\\(TraditionalForm\\`0\\)}\"\>", StringForm["{`1` , `2`}", -1, 0], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.430284351040491*^9, 3.4302844106096478`*^9}, 3.430284474646493*^9, 3.430284602362875*^9, 3.430284664861774*^9, 3.430284777562298*^9, 3.43028489051585*^9}], Cell[BoxData[ FormBox[ StyleBox["\<\"tableau de signes:\"\>", StripOnInput->False, FrontFaceColor->RGBColor[0, Rational[2, 3], 0], BackFaceColor->RGBColor[0, Rational[2, 3], 0], GraphicsColor->RGBColor[0, Rational[2, 3], 0], FontSlant->Italic, FontColor->RGBColor[0, Rational[2, 3], 0]], TraditionalForm]], "Print", CellChangeTimes->{{3.430284351040491*^9, 3.4302844106096478`*^9}, 3.430284474646493*^9, 3.430284602362875*^9, 3.430284664861774*^9, 3.430284777562298*^9, 3.430284890549111*^9}], Cell[BoxData[ FormBox[ TagBox[GridBox[{ {"x", " ", RowBox[{"-", "2"}], " ", RowBox[{"-", "1"}], " ", "0", " "}, { FractionBox[ RowBox[{ RowBox[{"-", "x"}], "-", "2"}], RowBox[{"x", " ", RowBox[{"(", RowBox[{"x", "+", "1"}], ")"}]}]], "+", "0", "-", "|", "+", "|", "-"} }, GridBoxDividers->{ "Columns" -> {{True}}, "ColumnsIndexed" -> {}, "Rows" -> {{True}}, "RowsIndexed" -> {}}], DisplayForm], TraditionalForm]], "Print", CellChangeTimes->{{3.430284351040491*^9, 3.4302844106096478`*^9}, 3.430284474646493*^9, 3.430284602362875*^9, 3.430284664861774*^9, 3.430284777562298*^9, 3.430284890582192*^9}], Cell[BoxData[ FormBox[ StyleBox["\<\"solution: \"\>", StripOnInput->False, FrontFaceColor->RGBColor[0, Rational[2, 3], 0], BackFaceColor->RGBColor[0, Rational[2, 3], 0], GraphicsColor->RGBColor[0, Rational[2, 3], 0], FontSlant->Italic, FontColor->RGBColor[0, Rational[2, 3], 0]], TraditionalForm]], "Print", CellChangeTimes->{{3.430284351040491*^9, 3.4302844106096478`*^9}, 3.430284474646493*^9, 3.430284602362875*^9, 3.430284664861774*^9, 3.430284777562298*^9, 3.4302848906153097`*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"S = \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"[\ \\\\!\\\\(TraditionalForm\\\\`\\\\(-2\\\\)\\\\), \ \\\\!\\\\(TraditionalForm\\\\`\\\\(-1\\\\)\\\\)[\\\"\\)\\) \[Union] \ \\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"]\\\\!\\\\(TraditionalForm\\\ \\`0\\\\), \\\\[LongRightArrow]\\\"\\)\\)\"\>", StringForm["`1` \[Union] `2`", analyse`Ens[ Inequality[-2, LessEqual, $CellContext`x, Less, -1], $CellContext`x], analyse`Ens[$CellContext`x > 0, $CellContext`x]], Editable->False], TraditionalForm]}], SequenceForm["S = ", analyse`Ens[ Or[ Inequality[-2, LessEqual, $CellContext`x, Less, -1], $CellContext`x > 0], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.430284351040491*^9, 3.4302844106096478`*^9}, 3.430284474646493*^9, 3.430284602362875*^9, 3.430284664861774*^9, 3.430284777562298*^9, 3.430284890648299*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"4", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{ FractionBox["1", RowBox[{"x", "+", "2"}]], "+", FractionBox["1", RowBox[{"x", "-", "1"}]]}], "\[GreaterEqual]", FractionBox["2", RowBox[{"x", "-", "3"}]]}]}], SequenceForm[ 4, ") ", (-1 + $CellContext`x)^(-1) + (2 + $CellContext`x)^(-1) >= 2/(-3 + $CellContext`x)], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.430284351040491*^9, 3.4302844106096478`*^9}, 3.430284474646493*^9, 3.430284602362875*^9, 3.430284664861774*^9, 3.430284777562298*^9, 3.430284890681794*^9}], Cell[BoxData[ FormBox[ StyleBox["\<\"obtenir 0 dans le second membre de l'in\[EAcute]quation\"\>", StripOnInput->False, FrontFaceColor->RGBColor[0, Rational[2, 3], 0], BackFaceColor->RGBColor[0, Rational[2, 3], 0], GraphicsColor->RGBColor[0, Rational[2, 3], 0], FontSlant->Italic, FontColor->RGBColor[0, Rational[2, 3], 0]], TraditionalForm]], "Print", CellChangeTimes->{{3.430284351040491*^9, 3.4302844106096478`*^9}, 3.430284474646493*^9, 3.430284602362875*^9, 3.430284664861774*^9, 3.430284777562298*^9, 3.4302848907153883`*^9}], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ FractionBox["1", RowBox[{"x", "-", "1"}]], "+", FractionBox["1", RowBox[{"x", "+", "2"}]], "-", FractionBox["2", RowBox[{"x", "-", "3"}]]}], "\[GreaterEqual]", "0"}], TraditionalForm]], "Print", CellChangeTimes->{{3.430284351040491*^9, 3.4302844106096478`*^9}, 3.430284474646493*^9, 3.430284602362875*^9, 3.430284664861774*^9, 3.430284777562298*^9, 3.4302848907487507`*^9}], Cell[BoxData[ FormBox[ StyleBox["\<\"obtenir un produit ou un quotient \"\>", StripOnInput->False, FrontFaceColor->RGBColor[0, Rational[2, 3], 0], BackFaceColor->RGBColor[0, Rational[2, 3], 0], GraphicsColor->RGBColor[0, Rational[2, 3], 0], FontSlant->Italic, FontColor->RGBColor[0, Rational[2, 3], 0]], TraditionalForm]], "Print", CellChangeTimes->{{3.430284351040491*^9, 3.4302844106096478`*^9}, 3.430284474646493*^9, 3.430284602362875*^9, 3.430284664861774*^9, 3.430284777562298*^9, 3.430284890781722*^9}], Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{"1", "-", RowBox[{"7", " ", "x"}]}], RowBox[{ RowBox[{"(", RowBox[{"x", "-", "3"}], ")"}], " ", RowBox[{"(", RowBox[{"x", "-", "1"}], ")"}], " ", RowBox[{"(", RowBox[{"x", "+", "2"}], ")"}]}]], "\[GreaterEqual]", "0"}], TraditionalForm]], "Print", CellChangeTimes->{{3.430284351040491*^9, 3.4302844106096478`*^9}, 3.430284474646493*^9, 3.430284602362875*^9, 3.430284664861774*^9, 3.430284777562298*^9, 3.4302848908151913`*^9}], Cell[BoxData[ FormBox[ StyleBox["\<\"racines du num\[EAcute]rateur:\"\>", StripOnInput->False, FrontFaceColor->RGBColor[0, Rational[2, 3], 0], BackFaceColor->RGBColor[0, Rational[2, 3], 0], GraphicsColor->RGBColor[0, Rational[2, 3], 0], FontSlant->Italic, FontColor->RGBColor[0, Rational[2, 3], 0]], TraditionalForm]], "Print", CellChangeTimes->{{3.430284351040491*^9, 3.4302844106096478`*^9}, 3.430284474646493*^9, 3.430284602362875*^9, 3.430284664861774*^9, 3.430284777562298*^9, 3.430284890848575*^9}], Cell[BoxData[ FormBox[ InterpretationBox["\<\" { \\!\\(TraditionalForm\\`1\\/7\\) }\"\>", StringForm[" { `1` }", Rational[1, 7]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.430284351040491*^9, 3.4302844106096478`*^9}, 3.430284474646493*^9, 3.430284602362875*^9, 3.430284664861774*^9, 3.430284777562298*^9, 3.430284890881708*^9}], Cell[BoxData[ FormBox[ StyleBox["\<\"racines du d\[EAcute]nominateur:\"\>", StripOnInput->False, FrontFaceColor->RGBColor[0, Rational[2, 3], 0], BackFaceColor->RGBColor[0, Rational[2, 3], 0], GraphicsColor->RGBColor[0, Rational[2, 3], 0], FontSlant->Italic, FontColor->RGBColor[0, Rational[2, 3], 0]], TraditionalForm]], "Print", CellChangeTimes->{{3.430284351040491*^9, 3.4302844106096478`*^9}, 3.430284474646493*^9, 3.430284602362875*^9, 3.430284664861774*^9, 3.430284777562298*^9, 3.430284890915004*^9}], Cell[BoxData[ FormBox[ InterpretationBox["\<\"{\\!\\(TraditionalForm\\`\\(-2\\)\\), \ \\!\\(TraditionalForm\\`1\\), \\!\\(TraditionalForm\\`3\\)}\"\>", StringForm["{`1`, `2`, `3`}", -2, 1, 3], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.430284351040491*^9, 3.4302844106096478`*^9}, 3.430284474646493*^9, 3.430284602362875*^9, 3.430284664861774*^9, 3.430284777562298*^9, 3.430284890952868*^9}], Cell[BoxData[ FormBox[ StyleBox["\<\"tableau de signes:\"\>", StripOnInput->False, FrontFaceColor->RGBColor[0, Rational[2, 3], 0], BackFaceColor->RGBColor[0, Rational[2, 3], 0], GraphicsColor->RGBColor[0, Rational[2, 3], 0], FontSlant->Italic, FontColor->RGBColor[0, Rational[2, 3], 0]], TraditionalForm]], "Print", CellChangeTimes->{{3.430284351040491*^9, 3.4302844106096478`*^9}, 3.430284474646493*^9, 3.430284602362875*^9, 3.430284664861774*^9, 3.430284777562298*^9, 3.4302848909817467`*^9}], Cell[BoxData[ FormBox[ TagBox[GridBox[{ {"x", " ", RowBox[{"-", "2"}], " ", FractionBox["1", "7"], " ", "1", " ", "3", " "}, { FractionBox[ RowBox[{"1", "-", RowBox[{"7", " ", "x"}]}], RowBox[{ RowBox[{"(", RowBox[{"x", "-", "3"}], ")"}], " ", RowBox[{"(", RowBox[{"x", "-", "1"}], ")"}], " ", RowBox[{"(", RowBox[{"x", "+", "2"}], ")"}]}]], "-", "|", "+", "0", "-", "|", "+", "|", "-"} }, GridBoxDividers->{ "Columns" -> {{True}}, "ColumnsIndexed" -> {}, "Rows" -> {{True}}, "RowsIndexed" -> {}}], DisplayForm], TraditionalForm]], "Print", CellChangeTimes->{{3.430284351040491*^9, 3.4302844106096478`*^9}, 3.430284474646493*^9, 3.430284602362875*^9, 3.430284664861774*^9, 3.430284777562298*^9, 3.430284891016138*^9}], Cell[BoxData[ FormBox[ StyleBox["\<\"solution: \"\>", StripOnInput->False, FrontFaceColor->RGBColor[0, Rational[2, 3], 0], BackFaceColor->RGBColor[0, Rational[2, 3], 0], GraphicsColor->RGBColor[0, Rational[2, 3], 0], FontSlant->Italic, FontColor->RGBColor[0, Rational[2, 3], 0]], TraditionalForm]], "Print", CellChangeTimes->{{3.430284351040491*^9, 3.4302844106096478`*^9}, 3.430284474646493*^9, 3.430284602362875*^9, 3.430284664861774*^9, 3.430284777562298*^9, 3.43028489104811*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"S = \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"]\ \\\\!\\\\(TraditionalForm\\\\`\\\\(-2\\\\)\\\\), \ \\\\!\\\\(TraditionalForm\\\\`1\\\\/7\\\\)]\\\"\\)\\) \[Union] \ \\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"]\\\\!\\\\(TraditionalForm\\\ \\`1\\\\), \\\\!\\\\(TraditionalForm\\\\`3\\\\)[\\\"\\)\\)\"\>", StringForm["`1` \[Union] `2`", analyse`Ens[ Inequality[-2, Less, $CellContext`x, LessEqual, Rational[1, 7]], $CellContext`x], analyse`Ens[ Inequality[1, Less, $CellContext`x, Less, 3], $CellContext`x]], Editable->False], TraditionalForm]}], SequenceForm["S = ", analyse`Ens[ Or[ Inequality[-2, Less, $CellContext`x, LessEqual, Rational[1, 7]], Inequality[1, Less, $CellContext`x, Less, 3]], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.430284351040491*^9, 3.4302844106096478`*^9}, 3.430284474646493*^9, 3.430284602362875*^9, 3.430284664861774*^9, 3.430284777562298*^9, 3.430284891081873*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"5", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", RowBox[{ FractionBox[ RowBox[{ RowBox[{"2", " ", "x"}], "-", "1"}], RowBox[{"x", "+", "1"}]], "\[LessEqual]", FractionBox["2", RowBox[{"x", "+", "3"}]]}]}], SequenceForm[ 5, ") ", (1 + $CellContext`x)^(-1) (-1 + 2 $CellContext`x) <= 2/(3 + $CellContext`x)], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.430284351040491*^9, 3.4302844106096478`*^9}, 3.430284474646493*^9, 3.430284602362875*^9, 3.430284664861774*^9, 3.430284777562298*^9, 3.430284891114444*^9}], Cell[BoxData[ FormBox[ StyleBox["\<\"obtenir 0 dans le second membre de l'in\[EAcute]quation\"\>", StripOnInput->False, FrontFaceColor->RGBColor[0, Rational[2, 3], 0], BackFaceColor->RGBColor[0, Rational[2, 3], 0], GraphicsColor->RGBColor[0, Rational[2, 3], 0], FontSlant->Italic, FontColor->RGBColor[0, Rational[2, 3], 0]], TraditionalForm]], "Print", CellChangeTimes->{{3.430284351040491*^9, 3.4302844106096478`*^9}, 3.430284474646493*^9, 3.430284602362875*^9, 3.430284664861774*^9, 3.430284777562298*^9, 3.4302848911482897`*^9}], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ FractionBox[ RowBox[{ RowBox[{"2", " ", "x"}], "-", "1"}], RowBox[{"x", "+", "1"}]], "-", FractionBox["2", RowBox[{"x", "+", "3"}]]}], "\[LessEqual]", "0"}], TraditionalForm]], "Print", CellChangeTimes->{{3.430284351040491*^9, 3.4302844106096478`*^9}, 3.430284474646493*^9, 3.430284602362875*^9, 3.430284664861774*^9, 3.430284777562298*^9, 3.4302848911818027`*^9}], Cell[BoxData[ FormBox[ StyleBox["\<\"obtenir un produit ou un quotient \"\>", StripOnInput->False, FrontFaceColor->RGBColor[0, Rational[2, 3], 0], BackFaceColor->RGBColor[0, Rational[2, 3], 0], GraphicsColor->RGBColor[0, Rational[2, 3], 0], FontSlant->Italic, FontColor->RGBColor[0, Rational[2, 3], 0]], TraditionalForm]], "Print", CellChangeTimes->{{3.430284351040491*^9, 3.4302844106096478`*^9}, 3.430284474646493*^9, 3.430284602362875*^9, 3.430284664861774*^9, 3.430284777562298*^9, 3.430284891214624*^9}], Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{ RowBox[{"2", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"3", " ", "x"}], "-", "5"}], RowBox[{ RowBox[{"(", RowBox[{"x", "+", "1"}], ")"}], " ", RowBox[{"(", RowBox[{"x", "+", "3"}], ")"}]}]], "\[LessEqual]", "0"}], TraditionalForm]], "Print", CellChangeTimes->{{3.430284351040491*^9, 3.4302844106096478`*^9}, 3.430284474646493*^9, 3.430284602362875*^9, 3.430284664861774*^9, 3.430284777562298*^9, 3.430284891248438*^9}], Cell[BoxData[ FormBox[ StyleBox["\<\"racines du num\[EAcute]rateur:\"\>", StripOnInput->False, FrontFaceColor->RGBColor[0, Rational[2, 3], 0], BackFaceColor->RGBColor[0, Rational[2, 3], 0], GraphicsColor->RGBColor[0, Rational[2, 3], 0], FontSlant->Italic, FontColor->RGBColor[0, Rational[2, 3], 0]], TraditionalForm]], "Print", CellChangeTimes->{{3.430284351040491*^9, 3.4302844106096478`*^9}, 3.430284474646493*^9, 3.430284602362875*^9, 3.430284664861774*^9, 3.430284777562298*^9, 3.4302848912813263`*^9}], Cell[BoxData[ FormBox[ InterpretationBox["\<\"{\\!\\(TraditionalForm\\`\\(-\\(\\(5\\/2\\)\\)\\)\\) \ , \\!\\(TraditionalForm\\`1\\)}\"\>", StringForm["{`1` , `2`}", Rational[-5, 2], 1], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.430284351040491*^9, 3.4302844106096478`*^9}, 3.430284474646493*^9, 3.430284602362875*^9, 3.430284664861774*^9, 3.430284777562298*^9, 3.4302848913139687`*^9}], Cell[BoxData[ FormBox[ StyleBox["\<\"racines du d\[EAcute]nominateur:\"\>", StripOnInput->False, FrontFaceColor->RGBColor[0, Rational[2, 3], 0], BackFaceColor->RGBColor[0, Rational[2, 3], 0], GraphicsColor->RGBColor[0, Rational[2, 3], 0], FontSlant->Italic, FontColor->RGBColor[0, Rational[2, 3], 0]], TraditionalForm]], "Print", CellChangeTimes->{{3.430284351040491*^9, 3.4302844106096478`*^9}, 3.430284474646493*^9, 3.430284602362875*^9, 3.430284664861774*^9, 3.430284777562298*^9, 3.4302848913477373`*^9}], Cell[BoxData[ FormBox[ InterpretationBox["\<\"{\\!\\(TraditionalForm\\`\\(-3\\)\\) , \ \\!\\(TraditionalForm\\`\\(-1\\)\\)}\"\>", StringForm["{`1` , `2`}", -3, -1], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.430284351040491*^9, 3.4302844106096478`*^9}, 3.430284474646493*^9, 3.430284602362875*^9, 3.430284664861774*^9, 3.430284777562298*^9, 3.430284891381082*^9}], Cell[BoxData[ FormBox[ StyleBox["\<\"tableau de signes:\"\>", StripOnInput->False, FrontFaceColor->RGBColor[0, Rational[2, 3], 0], BackFaceColor->RGBColor[0, Rational[2, 3], 0], GraphicsColor->RGBColor[0, Rational[2, 3], 0], FontSlant->Italic, FontColor->RGBColor[0, Rational[2, 3], 0]], TraditionalForm]], "Print", CellChangeTimes->{{3.430284351040491*^9, 3.4302844106096478`*^9}, 3.430284474646493*^9, 3.430284602362875*^9, 3.430284664861774*^9, 3.430284777562298*^9, 3.430284891418735*^9}], Cell[BoxData[ FormBox[ TagBox[GridBox[{ {"x", " ", RowBox[{"-", "3"}], " ", RowBox[{"-", FractionBox["5", "2"]}], " ", RowBox[{"-", "1"}], " ", "1", " "}, { FractionBox[ RowBox[{ RowBox[{"2", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"3", " ", "x"}], "-", "5"}], RowBox[{ RowBox[{"(", RowBox[{"x", "+", "1"}], ")"}], " ", RowBox[{"(", RowBox[{"x", "+", "3"}], ")"}]}]], "+", "|", "-", "0", "+", "|", "-", "0", "+"} }, GridBoxDividers->{ "Columns" -> {{True}}, "ColumnsIndexed" -> {}, "Rows" -> {{True}}, "RowsIndexed" -> {}}], DisplayForm], TraditionalForm]], "Print", CellChangeTimes->{{3.430284351040491*^9, 3.4302844106096478`*^9}, 3.430284474646493*^9, 3.430284602362875*^9, 3.430284664861774*^9, 3.430284777562298*^9, 3.430284891447919*^9}], Cell[BoxData[ FormBox[ StyleBox["\<\"solution: \"\>", StripOnInput->False, FrontFaceColor->RGBColor[0, Rational[2, 3], 0], BackFaceColor->RGBColor[0, Rational[2, 3], 0], GraphicsColor->RGBColor[0, Rational[2, 3], 0], FontSlant->Italic, FontColor->RGBColor[0, Rational[2, 3], 0]], TraditionalForm]], "Print", CellChangeTimes->{{3.430284351040491*^9, 3.4302844106096478`*^9}, 3.430284474646493*^9, 3.430284602362875*^9, 3.430284664861774*^9, 3.430284777562298*^9, 3.430284891480538*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"S = \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"]\ \\\\!\\\\(TraditionalForm\\\\`\\\\(-3\\\\)\\\\), \ \\\\!\\\\(TraditionalForm\\\\`\\\\(-\\\\(\\\\(5\\\\/2\\\\)\\\\)\\\\)\\\\)]\\\"\ \\)\\) \[Union] \ \\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"]\\\\!\\\\(TraditionalForm\\\ \\`\\\\(-1\\\\)\\\\), \\\\!\\\\(TraditionalForm\\\\`1\\\\)]\\\"\\)\\)\"\>", StringForm["`1` \[Union] `2`", analyse`Ens[ Inequality[-3, Less, $CellContext`x, LessEqual, Rational[-5, 2]], $CellContext`x], analyse`Ens[ Inequality[-1, Less, $CellContext`x, LessEqual, 1], $CellContext`x]], Editable->False], TraditionalForm]}], SequenceForm["S = ", analyse`Ens[ Or[ Inequality[-3, Less, $CellContext`x, LessEqual, Rational[-5, 2]], Inequality[-1, Less, $CellContext`x, LessEqual, 1]], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.430284351040491*^9, 3.4302844106096478`*^9}, 3.430284474646493*^9, 3.430284602362875*^9, 3.430284664861774*^9, 3.430284777562298*^9, 3.43028489151396*^9}] }, Open ]] }, Open ]], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{"Inequation", "[", RowBox[{"ineq_", ",", "x_"}], "]"}], ":=", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{ "inequation", ",", "membre1", ",", "membre2", ",", "inegalite"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"inequation", "=", "ineq"}], ";", "\[IndentingNewLine]", RowBox[{"membre1", "=", RowBox[{"inequation", "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", RowBox[{"membre2", "=", RowBox[{"inequation", "[", RowBox[{"[", "2", "]"}], "]"}]}], ";", RowBox[{"inegalite", "=", RowBox[{"Head", "[", "inequation", "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"membre2", "\[NotEqual]", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"inequation", "=", RowBox[{"inegalite", "[", RowBox[{ RowBox[{"membre1", "-", "membre2"}], ",", "0"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", "inequation", "]"}]}], ",", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"Style", "[", RowBox[{ "\"\\"", ",", "Italic", ",", RowBox[{"Darker", "[", "Green", "]"}]}], "]"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"inequation", "=", RowBox[{"inegalite", "[", RowBox[{ RowBox[{"membre1", "-", "membre2"}], ",", "0"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", "inequation", "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"membre1", "=", RowBox[{"inequation", "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", RowBox[{"membre2", "=", RowBox[{"inequation", "[", RowBox[{"[", "2", "]"}], "]"}]}], ";", RowBox[{"inegalite", "=", RowBox[{"Head", "[", "inequation", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", "membre1", "]"}], "==", "Plus"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"Style", "[", RowBox[{ "\"\\"", ",", "Italic", ",", RowBox[{"Darker", "[", "Green", "]"}]}], "]"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"inequation", "=", RowBox[{"Together", "[", RowBox[{"inegalite", "[", RowBox[{ RowBox[{"membre1", "-", "membre2"}], ",", "0"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"membre1", "=", RowBox[{"inequation", "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", RowBox[{"membre2", "=", RowBox[{"inequation", "[", RowBox[{"[", "2", "]"}], "]"}]}], ";", RowBox[{"inegalite", "=", RowBox[{"Head", "[", "inequation", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", "inequation", "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"Style", "[", RowBox[{ "\"\\"", ",", "Italic", ",", RowBox[{"Darker", "[", "Green", "]"}]}], "]"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Racines", "[", RowBox[{ RowBox[{"Numerator", "[", "membre1", "]"}], ",", "x", ",", "1"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"Style", "[", RowBox[{ "\"\\"", ",", "Italic", ",", RowBox[{"Darker", "[", "Green", "]"}]}], "]"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Racines", "[", RowBox[{ RowBox[{"Denominator", "[", "membre1", "]"}], ",", "x", ",", "1"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic", ",", RowBox[{"Darker", "[", "Green", "]"}]}], "]"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"TableaudeSignes", "[", RowBox[{"membre1", ",", "x"}], "]"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic", ",", RowBox[{"Darker", "[", "Green", "]"}]}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"Ensemble", "[", RowBox[{"ineq", ",", "x"}], "]"}]}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}]}]}]], "Input", CellOpen->False, CellChangeTimes->{{3.430282083259694*^9, 3.430282086957636*^9}, { 3.430282175905051*^9, 3.430282205952327*^9}, {3.4302822401865473`*^9, 3.4302823058531647`*^9}, {3.4302827143265657`*^9, 3.430282778471381*^9}, { 3.430282825471591*^9, 3.430282875451846*^9}, {3.430282905781004*^9, 3.430283015401937*^9}, {3.430283105209237*^9, 3.430283108098422*^9}, { 3.430283139440172*^9, 3.430283195795186*^9}, {3.430283231426648*^9, 3.430283408203371*^9}, {3.430283449237982*^9, 3.430283625621148*^9}, { 3.430283735649115*^9, 3.4302838022339497`*^9}, {3.43028385704359*^9, 3.430283879083667*^9}, {3.4302839818544493`*^9, 3.430284059504222*^9}, { 3.430284101067649*^9, 3.4302841116261597`*^9}, 3.430284451615382*^9, { 3.4302844953196774`*^9, 3.430284500885445*^9}, {3.4302845380651608`*^9, 3.430284546094509*^9}}] }, Open ]] }, Open ]] }, WindowSize->{640, 750}, WindowMargins->{{268, Automatic}, {Automatic, 37}}, FrontEndVersion->"6.0 for Mac OS X x86 (32-bit) (May 21, 2008)", StyleDefinitions->"stylemath.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[590, 23, 155, 3, 44, "Section"], Cell[CellGroupData[{ Cell[770, 30, 133, 1, 39, "Subsection"], Cell[CellGroupData[{ Cell[928, 35, 2398, 77, 20, "Input", CellOpen->False], Cell[CellGroupData[{ Cell[3351, 116, 593, 14, 38, "Print"], Cell[3947, 132, 635, 16, 39, "Print"], Cell[4585, 150, 640, 16, 38, "Print"], Cell[5228, 168, 729, 19, 39, "Print"], Cell[5960, 189, 696, 18, 39, "Print"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[6717, 214, 124, 1, 39, "Subsection"], Cell[CellGroupData[{ Cell[6866, 219, 506, 14, 20, "Input", CellOpen->False], Cell[CellGroupData[{ Cell[7397, 237, 562, 13, 38, "Print"], Cell[7962, 252, 583, 15, 20, "Print"], Cell[8548, 269, 375, 10, 38, "Print"], Cell[8926, 281, 562, 15, 20, "Print"], Cell[9491, 298, 418, 11, 42, "Print"], Cell[9912, 311, 558, 15, 20, "Print"], Cell[10473, 328, 411, 9, 38, "Print"], Cell[10887, 339, 562, 15, 20, "Print"], Cell[11452, 356, 353, 7, 20, "Print"], Cell[11808, 365, 546, 15, 22, "Print"], Cell[12357, 382, 707, 19, 69, "Print"], Cell[13067, 403, 540, 15, 20, "Print"], Cell[13610, 420, 1066, 24, 38, "Print"], Cell[14679, 446, 602, 15, 39, "Print"], Cell[15284, 463, 583, 15, 20, "Print"], Cell[15870, 480, 405, 11, 39, "Print"], Cell[16278, 493, 562, 15, 20, "Print"], Cell[16843, 510, 524, 15, 44, "Print"], Cell[17370, 527, 558, 15, 20, "Print"], Cell[17931, 544, 399, 8, 20, "Print"], Cell[18333, 554, 562, 15, 20, "Print"], Cell[18898, 571, 397, 8, 20, "Print"], Cell[19298, 581, 546, 15, 22, "Print"], Cell[19847, 598, 854, 24, 58, "Print"], Cell[20704, 624, 538, 15, 20, "Print"], Cell[21245, 641, 1439, 32, 20, "Print"], Cell[22687, 675, 609, 15, 38, "Print"], Cell[23299, 692, 585, 15, 20, "Print"], Cell[23887, 709, 402, 11, 38, "Print"], Cell[24292, 722, 564, 15, 20, "Print"], Cell[24859, 739, 426, 12, 40, "Print"], Cell[25288, 753, 560, 15, 20, "Print"], Cell[25851, 770, 360, 7, 20, "Print"], Cell[26214, 779, 559, 15, 20, "Print"], Cell[26776, 796, 396, 8, 20, "Print"], Cell[27175, 806, 546, 15, 22, "Print"], Cell[27724, 823, 725, 21, 55, "Print"], Cell[28452, 846, 540, 15, 20, "Print"], Cell[28995, 863, 1076, 25, 20, "Print"], Cell[30074, 890, 698, 18, 39, "Print"], Cell[30775, 910, 585, 15, 20, "Print"], Cell[31363, 927, 464, 13, 39, "Print"], Cell[31830, 942, 562, 15, 20, "Print"], Cell[32395, 959, 550, 16, 40, "Print"], Cell[32948, 977, 558, 15, 20, "Print"], Cell[33509, 994, 375, 8, 38, "Print"], Cell[33887, 1004, 560, 15, 20, "Print"], Cell[34450, 1021, 433, 8, 20, "Print"], Cell[34886, 1031, 548, 15, 22, "Print"], Cell[35437, 1048, 884, 25, 67, "Print"], Cell[36324, 1075, 537, 15, 20, "Print"], Cell[36864, 1092, 1183, 27, 38, "Print"], Cell[38050, 1121, 663, 17, 39, "Print"], Cell[38716, 1140, 585, 15, 20, "Print"], Cell[39304, 1157, 455, 13, 39, "Print"], Cell[39762, 1172, 562, 15, 20, "Print"], Cell[40327, 1189, 546, 16, 44, "Print"], Cell[40876, 1207, 560, 15, 20, "Print"], Cell[41439, 1224, 433, 9, 38, "Print"], Cell[41875, 1235, 562, 15, 20, "Print"], Cell[42440, 1252, 405, 8, 20, "Print"], Cell[42848, 1262, 546, 15, 22, "Print"], Cell[43397, 1279, 930, 27, 70, "Print"], Cell[44330, 1308, 538, 15, 20, "Print"], Cell[44871, 1325, 1240, 28, 38, "Print"] }, Open ]] }, Open ]], Cell[46138, 1357, 5874, 138, 20, "Input", CellOpen->False] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)