(* 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[ 28488, 854] NotebookOptionsPosition[ 26347, 793] NotebookOutlinePosition[ 26854, 812] CellTagsIndexPosition[ 26811, 809] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[TextData[StyleBox["In\[EAcute]quations r\[EAcute]ductibles au second \ degr\[EAcute]", FontVariations->{"Underline"->True}]], "Text", FontSize->16], Cell["R\[EAcute]soudre", "Text", FontSize->16], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ex", "[", "1", "]"}], "=", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"x", "+", "7"}], ")"}], "/", RowBox[{"(", RowBox[{"x", "+", "1"}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{"x", "+", "2"}], ")"}], "/", "x"}]}], "\[GreaterEqual]", "1"}], ")"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ex", "[", "2", "]"}], "=", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"x", "+", "3"}], ")"}], "/", RowBox[{"(", RowBox[{"x", "-", "1"}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{"x", "-", "2"}], ")"}], "/", RowBox[{"(", RowBox[{"x", "+", "1"}], ")"}]}]}], "\[GreaterEqual]", RowBox[{"-", "1"}]}], ")"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ex", "[", "3", "]"}], "=", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "x"}], "+", "4"}], ")"}], "/", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{"x", "+", "4"}], ")"}], "/", RowBox[{"(", RowBox[{"x", "-", "3"}], ")"}]}]}], "\[GreaterEqual]", "1"}], ")"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ex", "[", "4", "]"}], "=", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"4", "-", RowBox[{"x", "^", "2"}]}], ")"}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"x", "^", "2"}]}], "+", "x", "-", "5"}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"4", RowBox[{"x", "^", "2"}]}], "-", RowBox[{"12", "x"}], "+", "9"}], ")"}]}]}], "\[GreaterEqual]", "0"}], ")"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ex", "[", "5", "]"}], "=", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"x", "^", "2"}]}], "+", "x", "-", "10"}], ")"}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", RowBox[{"x", "^", "2"}]}], "+", RowBox[{"5", "x"}], "-", "12"}], ")"}], "/", RowBox[{"(", RowBox[{"3", "x", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], RowBox[{"x", "^", "2"}]}], "+", RowBox[{"5", "x"}], "+", "3"}], ")"}], RowBox[{"(", RowBox[{"3", "-", RowBox[{"2", "x"}]}], ")"}]}], ")"}]}]}], "\[GreaterEqual]", "0"}], ")"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ex", "[", "6", "]"}], "=", RowBox[{"(", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "^", "2"}], "-", RowBox[{"5", "x"}], "+", "6"}], ")"}], RowBox[{"(", RowBox[{"x", "-", "2"}], ")"}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"x", "^", "2"}]}], "+", RowBox[{"6", "x"}], "-", "8"}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", "x"}]}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"3", RowBox[{"x", "^", "2"}]}], "-", RowBox[{"4", "x"}], "+", "1"}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"x", "^", "2"}], "-", RowBox[{"4", "x"}], "+", "3"}], ")"}]}], ")"}]}]}], "\[LessEqual]", "0"}], ")"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ex", "[", "7", "]"}], "=", RowBox[{"(", RowBox[{"5", "<", RowBox[{ RowBox[{"(", RowBox[{"4", "-", "x"}], ")"}], "/", RowBox[{"(", RowBox[{"2", "x"}], ")"}]}]}], ")"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ex", "[", "8", "]"}], "=", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "^", "2"}], "-", "4"}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", RowBox[{"x", "^", "2"}]}], "-", RowBox[{"7", "x"}], "+", "3"}], ")"}]}], "\[GreaterEqual]", "0"}], ")"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ex", "[", "9", "]"}], "=", RowBox[{"(", RowBox[{ RowBox[{"2", "x"}], ">", RowBox[{"4", "/", RowBox[{"(", RowBox[{"x", "-", "1"}], ")"}]}]}], ")"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"ex", "[", "10", "]"}], "=", RowBox[{"(", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"4", RowBox[{"x", "^", "2"}]}], "-", RowBox[{"5", "x"}], "+", "1"}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"4", RowBox[{"x", "^", "2"}]}], "-", "1"}], ")"}]}], "\[LessEqual]", "0"}], ")"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Do", "[", RowBox[{ RowBox[{"Print", "[", RowBox[{"i", ",", "\"\<) \>\"", ",", RowBox[{"ex", "[", "i", "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "10"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "Input",\ CellOpen->False, CellChangeTimes->{{3.430136430504051*^9, 3.430136430920451*^9}}, FontSize->16], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"1", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{ FractionBox[ RowBox[{"x", "+", "7"}], RowBox[{"x", "+", "1"}]], "-", FractionBox[ RowBox[{"x", "+", "2"}], "x"]}], "\[GreaterEqual]", "1"}]}], SequenceForm[ 1, ") ", -$CellContext`x^(-1) ( 2 + $CellContext`x) + (1 + $CellContext`x)^(-1) (7 + $CellContext`x) >= 1], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.43013645077302*^9}, FontSize->16], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"2", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{ FractionBox[ RowBox[{"x", "+", "3"}], RowBox[{"x", "-", "1"}]], "-", FractionBox[ RowBox[{"x", "-", "2"}], RowBox[{"x", "+", "1"}]]}], "\[GreaterEqual]", RowBox[{"-", "1"}]}]}], SequenceForm[ 2, ") ", -(-2 + $CellContext`x)/( 1 + $CellContext`x) + (-1 + $CellContext`x)^(-1) ( 3 + $CellContext`x) >= -1], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.430136450775076*^9}, FontSize->16], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"3", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{ FractionBox[ RowBox[{ RowBox[{"2", " ", "x"}], "+", "4"}], RowBox[{"1", "-", "x"}]], "-", FractionBox[ RowBox[{"x", "+", "4"}], RowBox[{"x", "-", "3"}]]}], "\[GreaterEqual]", "1"}]}], SequenceForm[ 3, ") ", -(-3 + $CellContext`x)^(-1) ( 4 + $CellContext`x) + (1 - $CellContext`x)^(-1) (4 + 2 $CellContext`x) >= 1], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.430136450778016*^9}, FontSize->16], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"4", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"4", "-", SuperscriptBox["x", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", SuperscriptBox["x", "2"]}], "+", "x", "-", "5"}], ")"}]}], RowBox[{ RowBox[{"4", " ", SuperscriptBox["x", "2"]}], "-", RowBox[{"12", " ", "x"}], "+", "9"}]], "\[GreaterEqual]", "0"}]}], SequenceForm[ 4, ") ", (4 - $CellContext`x^2) (-5 + $CellContext`x - $CellContext`x^2)/( 9 - 12 $CellContext`x + 4 $CellContext`x^2) >= 0], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.43013645078119*^9}, FontSize->16], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"5", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", SuperscriptBox["x", "2"]}], "+", "x", "-", "10"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"5", " ", "x"}], "-", "12"}], ")"}]}], RowBox[{"3", " ", RowBox[{"(", RowBox[{"3", "-", RowBox[{"2", " ", "x"}]}], ")"}], " ", "x", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"5", " ", "x"}], "+", "3"}], ")"}]}]], "\[GreaterEqual]", "0"}]}], SequenceForm[ 5, ") ", Rational[ 1, 3] (3 - 2 $CellContext`x)^(-1) $CellContext`x^(-1) (3 + 5 $CellContext`x - 2 $CellContext`x^2)^(-1) (-10 + $CellContext`x - $CellContext`x^2) \ (-12 + 5 $CellContext`x + 2 $CellContext`x^2) >= 0], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.430136450784485*^9}, FontSize->16], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"6", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"x", "-", "2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", SuperscriptBox["x", "2"]}], "+", RowBox[{"6", " ", "x"}], "-", "8"}], ")"}], " ", RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "-", RowBox[{"5", " ", "x"}], "+", "6"}], ")"}]}], RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "x"}]}], ")"}], " ", RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "-", RowBox[{"4", " ", "x"}], "+", "3"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox["x", "2"]}], "-", RowBox[{"4", " ", "x"}], "+", "1"}], ")"}]}]], "\[LessEqual]", "0"}]}], SequenceForm[ 6, ") ", (1 - 2 $CellContext`x)^(-1) (-2 + $CellContext`x) (-8 + 6 $CellContext`x - $CellContext`x^2) (6 - 5 $CellContext`x + $CellContext`x^2) (3 - 4 $CellContext`x + $CellContext`x^2)^(-1)/(1 - 4 $CellContext`x + 3 $CellContext`x^2) <= 0], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.430136450787879*^9}, FontSize->16], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"7", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", RowBox[{"5", "<", FractionBox[ RowBox[{"4", "-", "x"}], RowBox[{"2", " ", "x"}]]}]}], SequenceForm[ 7, ") ", 5 < Rational[1, 2] (4 - $CellContext`x)/$CellContext`x], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.43013645079073*^9}, FontSize->16], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"8", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["x", "2"], "-", "4"}], RowBox[{ RowBox[{"2", " ", SuperscriptBox["x", "2"]}], "-", RowBox[{"7", " ", "x"}], "+", "3"}]], "\[GreaterEqual]", "0"}]}], SequenceForm[ 8, ") ", (-4 + $CellContext`x^2)/(3 - 7 $CellContext`x + 2 $CellContext`x^2) >= 0], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.430136450793727*^9}, FontSize->16], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"9", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{"2", " ", "x"}], ">", FractionBox["4", RowBox[{"x", "-", "1"}]]}]}], SequenceForm[9, ") ", 2 $CellContext`x > 4/(-1 + $CellContext`x)], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.430136450796535*^9}, FontSize->16], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"10", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", RowBox[{ FractionBox[ RowBox[{ RowBox[{"4", " ", SuperscriptBox["x", "2"]}], "-", RowBox[{"5", " ", "x"}], "+", "1"}], RowBox[{ RowBox[{"4", " ", SuperscriptBox["x", "2"]}], "-", "1"}]], "\[LessEqual]", "0"}]}], SequenceForm[ 10, ") ", (-1 + 4 $CellContext`x^2)^(-1) (1 - 5 $CellContext`x + 4 $CellContext`x^2) <= 0], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.4301364507994547`*^9}, FontSize->16] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Solutions:", "Text", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{3.430136481249886*^9}, FontSize->16], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sol", "[", "i", "]"}], "=", RowBox[{"Ensemble", "[", RowBox[{ RowBox[{"ex", "[", "i", "]"}], ",", "x"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"i", ",", "\"\< ) S = \>\"", ",", RowBox[{"sol", "[", "i", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "10"}], "}"}]}], "]"}]], "Input", CellOpen->False, CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.430136442505237*^9, 3.430136447272393*^9}, 3.430136481250238*^9}, FontSize->16], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"1", "\[InvisibleSpace]", "\<\" ) S = \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"]\ \\\\!\\\\(TraditionalForm\\\\`\\\\(-1\\\\)\\\\), \ \\\\!\\\\(TraditionalForm\\\\`0\\\\)[\\\"\\)\\) \[Union] \ \\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"[\\\\!\\\\(TraditionalForm\\\ \\`1\\\\), \\\\!\\\\(TraditionalForm\\\\`2\\\\)]\\\"\\)\\)\"\>", StringForm["`1` \[Union] `2`", analyse`Ens[ Inequality[-1, Less, $CellContext`x, Less, 0], $CellContext`x], analyse`Ens[ Inequality[ 1, LessEqual, $CellContext`x, LessEqual, 2], $CellContext`x]], Editable->False], TraditionalForm]}], SequenceForm[1, " ) S = ", analyse`Ens[ Or[ Inequality[-1, Less, $CellContext`x, Less, 0], Inequality[ 1, LessEqual, $CellContext`x, LessEqual, 2]], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{3.430136450921442*^9, 3.430136481250455*^9}, FontSize->16], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"2", "\[InvisibleSpace]", "\<\" ) S = \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\ \\\\[LongLeftArrow], \ \\\\!\\\\(TraditionalForm\\\\`\\\\(-7\\\\)\\\\)]\\\"\\)\\) \[Union] \ \\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\!\\\\(TraditionalForm\\\\\ `\\\\(TraditionalForm\\\\`\\\\\\\"]\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\ \\\\\\\\(-1\\\\\\\\)\\\\\\\\), \ \\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`0\\\\\\\\)]\\\\\\\"\\\\)\\\\) \ \\\\[Union] \ \\\\!\\\\(TraditionalForm\\\\`\\\\(TraditionalForm\\\\`\\\\\\\"]\\\\\\\\!\\\\\ \\\\(TraditionalForm\\\\\\\\`1\\\\\\\\), \ \\\\\\\\[LongRightArrow]\\\\\\\"\\\\)\\\\)\\\"\\)\\)\"\>", StringForm["`1` \[Union] `2`", analyse`Ens[$CellContext`x <= -7, $CellContext`x], analyse`Ens[ Or[ Inequality[-1, Less, $CellContext`x, LessEqual, 0], $CellContext`x > 1], $CellContext`x]], Editable->False], TraditionalForm]}], SequenceForm[2, " ) S = ", analyse`Ens[ Or[$CellContext`x <= -7, Inequality[-1, Less, $CellContext`x, LessEqual, 0], $CellContext`x > 1], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{3.430136450956152*^9, 3.430136481250655*^9}, FontSize->16], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"3", "\[InvisibleSpace]", "\<\" ) S = \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"[\ \\\\!\\\\(TraditionalForm\\\\`\\\\(1\\\\/8\\\\\\\\ \\\\(\\\\((3 - \\\\@217)\\\ \\)\\\\)\\\\)\\\\), \\\\!\\\\(TraditionalForm\\\\`1\\\\)[\\\"\\)\\) \[Union] \ \\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"[\\\\!\\\\(TraditionalForm\\\ \\`\\\\(1\\\\/8\\\\\\\\ \\\\(\\\\((3 + \\\\@217)\\\\)\\\\)\\\\)\\\\), \\\\!\\\ \\(TraditionalForm\\\\`3\\\\)[\\\"\\)\\)\"\>", StringForm["`1` \[Union] `2`", analyse`Ens[ Inequality[ Rational[1, 8] (3 - 217^Rational[1, 2]), LessEqual, $CellContext`x, Less, 1], $CellContext`x], analyse`Ens[ Inequality[ Rational[1, 8] (3 + 217^Rational[1, 2]), LessEqual, $CellContext`x, Less, 3], $CellContext`x]], Editable->False], TraditionalForm]}], SequenceForm[3, " ) S = ", analyse`Ens[ Or[ Inequality[ Rational[1, 8] (3 - 217^Rational[1, 2]), LessEqual, $CellContext`x, Less, 1], Inequality[ Rational[1, 8] (3 + 217^Rational[1, 2]), LessEqual, $CellContext`x, Less, 3]], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{3.430136450994525*^9, 3.4301364812516127`*^9}, FontSize->16], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"4", "\[InvisibleSpace]", "\<\" ) S = \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\ \\\\[LongLeftArrow], \ \\\\!\\\\(TraditionalForm\\\\`\\\\(-2\\\\)\\\\)]\\\"\\)\\) \[Union] \ \\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"[\\\\!\\\\(TraditionalForm\\\ \\`2\\\\), \\\\[LongRightArrow]\\\"\\)\\)\"\>", StringForm["`1` \[Union] `2`", analyse`Ens[$CellContext`x <= -2, $CellContext`x], analyse`Ens[$CellContext`x >= 2, $CellContext`x]], Editable->False], TraditionalForm]}], SequenceForm[4, " ) S = ", analyse`Ens[ Or[$CellContext`x <= -2, $CellContext`x >= 2], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{3.4301364510268097`*^9, 3.430136481251813*^9}, FontSize->16], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"5", "\[InvisibleSpace]", "\<\" ) S = \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"[\ \\\\!\\\\(TraditionalForm\\\\`\\\\(-4\\\\)\\\\), \ \\\\!\\\\(TraditionalForm\\\\`\\\\(-\\\\(\\\\(1\\\\/2\\\\)\\\\)\\\\)\\\\)[\\\"\ \\)\\) \[Union] \ \\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"]\\\\!\\\\(TraditionalForm\\\ \\`0\\\\), \\\\!\\\\(TraditionalForm\\\\`3\\\\)[\\\"\\)\\)\"\>", StringForm["`1` \[Union] `2`", analyse`Ens[ Inequality[-4, LessEqual, $CellContext`x, Less, Rational[-1, 2]], $CellContext`x], analyse`Ens[ Inequality[0, Less, $CellContext`x, Less, 3], $CellContext`x]], Editable->False], TraditionalForm]}], SequenceForm[5, " ) S = ", analyse`Ens[ Or[ Inequality[-4, LessEqual, $CellContext`x, Less, Rational[-1, 2]], Inequality[0, Less, $CellContext`x, Less, 3]], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{3.430136451061067*^9, 3.4301364812520447`*^9}, FontSize->16], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"6", "\[InvisibleSpace]", "\<\" ) S = \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"]\ \\\\!\\\\(TraditionalForm\\\\`1\\\\/3\\\\), \\\\!\\\\(TraditionalForm\\\\`1\\\ \\/2\\\\)[\\\"\\)\\) \[Union] \\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\ \"[\\\\!\\\\(TraditionalForm\\\\`2\\\\), \ \\\\!\\\\(TraditionalForm\\\\`4\\\\)]\\\"\\)\\)\"\>", StringForm["`1` \[Union] `2`", analyse`Ens[ Inequality[ Rational[1, 3], Less, $CellContext`x, Less, Rational[1, 2]], $CellContext`x], analyse`Ens[ Inequality[ 2, LessEqual, $CellContext`x, LessEqual, 4], $CellContext`x]], Editable->False], TraditionalForm]}], SequenceForm[6, " ) S = ", analyse`Ens[ Or[ Inequality[ Rational[1, 3], Less, $CellContext`x, Less, Rational[1, 2]], Inequality[ 2, LessEqual, $CellContext`x, LessEqual, 4]], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{3.430136451091721*^9, 3.4301364812522507`*^9}, FontSize->16], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"7", "\[InvisibleSpace]", "\<\" ) S = \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"]\\!\\(TraditionalForm\\`0\\), \ \\!\\(TraditionalForm\\`4\\/11\\)[\"\>", StringForm["]`1`, `2`[", 0, Rational[4, 11]], Editable->False], TraditionalForm]}], SequenceForm[7, " ) S = ", analyse`Ens[ Inequality[0, Less, $CellContext`x, Less, Rational[4, 11]], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{3.430136451125697*^9, 3.4301364812524557`*^9}, FontSize->16], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"8", "\[InvisibleSpace]", "\<\" ) S = \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\ \\\\[LongLeftArrow], \ \\\\!\\\\(TraditionalForm\\\\`\\\\(-2\\\\)\\\\)]\\\"\\)\\) \[Union] \ \\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\!\\\\(TraditionalForm\\\\\ `\\\\(TraditionalForm\\\\`\\\\\\\"]\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\ 1\\\\\\\\/2\\\\\\\\), \\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`2\\\\\\\\)]\\\ \\\\\"\\\\)\\\\) \\\\[Union] \ \\\\!\\\\(TraditionalForm\\\\`\\\\(TraditionalForm\\\\`\\\\\\\"]\\\\\\\\!\\\\\ \\\\(TraditionalForm\\\\\\\\`3\\\\\\\\), \ \\\\\\\\[LongRightArrow]\\\\\\\"\\\\)\\\\)\\\"\\)\\)\"\>", StringForm["`1` \[Union] `2`", analyse`Ens[$CellContext`x <= -2, $CellContext`x], analyse`Ens[ Or[ Inequality[ Rational[1, 2], Less, $CellContext`x, LessEqual, 2], $CellContext`x > 3], $CellContext`x]], Editable->False], TraditionalForm]}], SequenceForm[8, " ) S = ", analyse`Ens[ Or[$CellContext`x <= -2, Inequality[ Rational[1, 2], Less, $CellContext`x, LessEqual, 2], $CellContext`x > 3], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{3.430136451158334*^9, 3.430136481252654*^9}, FontSize->16], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"9", "\[InvisibleSpace]", "\<\" ) S = \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"]\ \\\\!\\\\(TraditionalForm\\\\`\\\\(-1\\\\)\\\\), \ \\\\!\\\\(TraditionalForm\\\\`1\\\\)[\\\"\\)\\) \[Union] \ \\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"]\\\\!\\\\(TraditionalForm\\\ \\`2\\\\), \\\\[LongRightArrow]\\\"\\)\\)\"\>", StringForm["`1` \[Union] `2`", analyse`Ens[ Inequality[-1, Less, $CellContext`x, Less, 1], $CellContext`x], analyse`Ens[$CellContext`x > 2, $CellContext`x]], Editable->False], TraditionalForm]}], SequenceForm[9, " ) S = ", analyse`Ens[ Or[ Inequality[-1, Less, $CellContext`x, Less, 1], $CellContext`x > 2], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{3.430136451195324*^9, 3.430136481252851*^9}, FontSize->16], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ "10", "\[InvisibleSpace]", "\<\" ) S = \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"]\ \\\\!\\\\(TraditionalForm\\\\`\\\\(-\\\\(\\\\(1\\\\/2\\\\)\\\\)\\\\)\\\\), \\\ \\!\\\\(TraditionalForm\\\\`1\\\\/4\\\\)]\\\"\\)\\) \[Union] \ \\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"]\\\\!\\\\(TraditionalForm\\\ \\`1\\\\/2\\\\), \\\\!\\\\(TraditionalForm\\\\`1\\\\)]\\\"\\)\\)\"\>", StringForm["`1` \[Union] `2`", analyse`Ens[ Inequality[ Rational[-1, 2], Less, $CellContext`x, LessEqual, Rational[1, 4]], $CellContext`x], analyse`Ens[ Inequality[ Rational[1, 2], Less, $CellContext`x, LessEqual, 1], $CellContext`x]], Editable->False], TraditionalForm]}], SequenceForm[10, " ) S = ", analyse`Ens[ Or[ Inequality[ Rational[-1, 2], Less, $CellContext`x, LessEqual, Rational[1, 4]], Inequality[ Rational[1, 2], Less, $CellContext`x, LessEqual, 1]], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{3.430136451228795*^9, 3.430136481253048*^9}, FontSize->16] }, Closed]] }, WindowSize->{767, 902}, WindowMargins->{{97, Automatic}, {Automatic, 0}}, PageFooters->{{Inherited, Inherited, Inherited}, {Inherited, Inherited, Cell[ TextData["F. M\[EAcute]lotte - STUS.BE 2004 - in\[EAcute]qd2_01"], "Header"]}}, 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[568, 21, 154, 3, 33, "Text"], Cell[725, 26, 47, 1, 33, "Text"], Cell[CellGroupData[{ Cell[797, 31, 5581, 194, 20, "Input", CellOpen->False], Cell[CellGroupData[{ Cell[6403, 229, 567, 17, 47, "Print"], Cell[6973, 248, 623, 19, 47, "Print"], Cell[7599, 269, 634, 19, 47, "Print"], Cell[8236, 290, 805, 23, 57, "Print"], Cell[9044, 315, 1190, 35, 62, "Print"], Cell[10237, 352, 1372, 40, 62, "Print"], Cell[11612, 394, 417, 12, 46, "Print"], Cell[12032, 408, 581, 17, 54, "Print"], Cell[12616, 427, 401, 11, 46, "Print"], Cell[13020, 440, 619, 18, 53, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[13688, 464, 136, 3, 33, "Text", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[13827, 469, 633, 19, 20, "Input", CellOpen->False, CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[14463, 490, 1140, 27, 27, "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[15606, 519, 1420, 32, 27, "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[17029, 553, 1453, 34, 47, "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[18485, 589, 939, 21, 27, "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[19427, 612, 1201, 28, 46, "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[20631, 642, 1229, 31, 47, "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[21863, 675, 667, 18, 46, "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[22533, 695, 1452, 33, 46, "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[23988, 730, 1026, 24, 27, "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[25017, 756, 1314, 34, 46, "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}] }, Closed]] } ] *) (* End of internal cache information *)