(* 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[ 24510, 749] NotebookOptionsPosition[ 22337, 686] NotebookOutlinePosition[ 22849, 705] CellTagsIndexPosition[ 22806, 702] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["\<\ In\[EAcute]quations r\[EAcute]ductibles au premier degr\[EAcute]\ \>", "Section"], Cell["R\[EAcute]soudre", "Text", FontSize->16], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ex", "[", "1", "]"}], "=", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "x"}], "-", "1"}], ")"}], RowBox[{"(", RowBox[{"3", "-", "x"}], ")"}]}], "\[LessEqual]", "0"}], ")"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ex", "[", "2", "]"}], "=", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"5", "x"}], "-", "7"}], ")"}], RowBox[{"(", RowBox[{"3", "-", RowBox[{"4", "x"}]}], ")"}]}], ">", "0"}], ")"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ex", "[", "3", "]"}], "=", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "5"}], "x", " ", RowBox[{"(", RowBox[{"x", "-", "1"}], ")"}], RowBox[{"(", RowBox[{"x", "-", "7"}], ")"}]}], "\[GreaterEqual]", "0"}], ")"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ex", "[", "4", "]"}], "=", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "x"}], "+", "1"}], ")"}], "^", "2"}], " ", "*", RowBox[{"(", RowBox[{"5", "-", "x"}], ")"}]}], ">", "0"}], ")"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ex", "[", "5", "]"}], "=", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"x", "^", "2"}], "*", RowBox[{ RowBox[{"(", RowBox[{"5", "-", RowBox[{"3", "x"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", "x"}], "+", "3"}], ")"}]}]}], "\[GreaterEqual]", "0"}], ")"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ex", "[", "6", "]"}], "=", RowBox[{"(", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"4", RowBox[{"x", "^", "2"}]}], "-", "9"}], ")"}], "/", RowBox[{"(", RowBox[{"x", "+", "1"}], ")"}]}], "\[GreaterEqual]", "0"}], ")"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ex", "[", "7", "]"}], "=", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"3", "-", RowBox[{"4", "x"}]}], ")"}], RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"x", "^", "2"}]}], ")"}], "/", RowBox[{"(", RowBox[{"x", "*", RowBox[{"(", RowBox[{"x", "+", "2"}], ")"}]}], ")"}]}]}], "\[LessEqual]", "0"}], ")"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ex", "[", "8", "]"}], "=", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"3", "x"}], "+", "1"}], ")"}], RowBox[{"(", RowBox[{"2", "+", RowBox[{"3", "x"}]}], ")"}], RowBox[{ RowBox[{"x", "^", "3"}], "/", RowBox[{"(", RowBox[{"x", "-", "3"}], ")"}]}]}], ">", "0"}], ")"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ex", "[", "9", "]"}], "=", RowBox[{"(", " ", RowBox[{ RowBox[{"x", RowBox[{"(", RowBox[{ RowBox[{"x", "^", "2"}], "-", "9"}], ")"}]}], " ", "\[LessEqual]", RowBox[{"(", RowBox[{"9", "-", RowBox[{"x", "^", "2"}]}], ")"}]}], ")"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"ex", "[", "10", "]"}], "=", RowBox[{"(", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"x", "+", "4"}], ")"}], RowBox[{"(", RowBox[{"x", "-", "1"}], ")"}]}], "\[GreaterEqual]", " ", RowBox[{ RowBox[{"(", RowBox[{"x", "-", "2"}], ")"}], RowBox[{"(", RowBox[{"x", "+", "1"}], ")"}]}]}], ")"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Do", "[", RowBox[{ RowBox[{"Print", "[", RowBox[{"i", ",", "\"\<) \>\"", ",", RowBox[{"ex", "[", "i", "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "10"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "Input",\ CellOpen->False, CellChangeTimes->{{3.430134221666486*^9, 3.430134222072605*^9}}, FontSize->16], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"1", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"3", "-", "x"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "x"}], "-", "1"}], ")"}]}], "\[LessEqual]", "0"}]}], SequenceForm[1, ") ", (3 - $CellContext`x) (-1 + 2 $CellContext`x) <= 0], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.430134234395664*^9}, FontSize->16], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"2", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"3", "-", RowBox[{"4", " ", "x"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"5", " ", "x"}], "-", "7"}], ")"}]}], ">", "0"}]}], SequenceForm[2, ") ", (3 - 4 $CellContext`x) (-7 + 5 $CellContext`x) > 0], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.4301342343992643`*^9}, FontSize->16], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"3", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{ RowBox[{"-", "5"}], " ", RowBox[{"(", RowBox[{"x", "-", "7"}], ")"}], " ", RowBox[{"(", RowBox[{"x", "-", "1"}], ")"}], " ", "x"}], "\[GreaterEqual]", "0"}]}], SequenceForm[ 3, ") ", (-5) (-7 + $CellContext`x) (-1 + $CellContext`x) $CellContext`x >= 0], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.43013423440241*^9}, FontSize->16], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"4", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"5", "-", "x"}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "x"}], "+", "1"}], ")"}], "2"]}], ">", "0"}]}], SequenceForm[4, ") ", (5 - $CellContext`x) (1 + 2 $CellContext`x)^2 > 0], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.430134234405505*^9}, FontSize->16], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"5", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"5", "-", RowBox[{"3", " ", "x"}]}], ")"}], " ", SuperscriptBox["x", "2"]}], RowBox[{ RowBox[{"2", " ", "x"}], "+", "3"}]], "\[GreaterEqual]", "0"}]}], SequenceForm[ 5, ") ", (5 - 3 $CellContext`x) $CellContext`x^2/(3 + 2 $CellContext`x) >= 0], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.43013423440869*^9}, FontSize->16], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"6", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", RowBox[{ FractionBox[ RowBox[{ RowBox[{"4", " ", SuperscriptBox["x", "2"]}], "-", "9"}], RowBox[{"x", "+", "1"}]], "\[GreaterEqual]", "0"}]}], SequenceForm[ 6, ") ", (1 + $CellContext`x)^(-1) (-9 + 4 $CellContext`x^2) >= 0], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.43013423441297*^9}, FontSize->16], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"7", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"3", "-", RowBox[{"4", " ", "x"}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["x", "2"]}], ")"}]}], RowBox[{"x", " ", RowBox[{"(", RowBox[{"x", "+", "2"}], ")"}]}]], "\[LessEqual]", "0"}]}], SequenceForm[ 7, ") ", (3 - 4 $CellContext`x) $CellContext`x^(-1) (2 + $CellContext`x)^(-1) ( 1 - $CellContext`x^2) <= 0], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.430134234416357*^9}, FontSize->16], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"8", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["x", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", "x"}], "+", "1"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", "x"}], "+", "2"}], ")"}]}], RowBox[{"x", "-", "3"}]], ">", "0"}]}], SequenceForm[ 8, ") ", (-3 + $CellContext`x)^(-1) $CellContext`x^3 (1 + 3 $CellContext`x) (2 + 3 $CellContext`x) > 0], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.430134234420905*^9}, FontSize->16], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"9", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{"x", " ", RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "-", "9"}], ")"}]}], "\[LessEqual]", RowBox[{"9", "-", SuperscriptBox["x", "2"]}]}]}], SequenceForm[ 9, ") ", $CellContext`x (-9 + $CellContext`x^2) <= 9 - $CellContext`x^2], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.430134234424012*^9}, FontSize->16], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"10", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"x", "-", "1"}], ")"}], " ", RowBox[{"(", RowBox[{"x", "+", "4"}], ")"}]}], "\[GreaterEqual]", RowBox[{ RowBox[{"(", RowBox[{"x", "-", "2"}], ")"}], " ", RowBox[{"(", RowBox[{"x", "+", "1"}], ")"}]}]}]}], SequenceForm[ 10, ") ", (-1 + $CellContext`x) ( 4 + $CellContext`x) >= (-2 + $CellContext`x) (1 + $CellContext`x)], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.4301342344270487`*^9}, FontSize->16] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Solutions:", "Text", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{3.430134342787868*^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.4301342566900463`*^9, 3.430134268721587*^9}, 3.430134342788083*^9}, FontSize->14], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"1", "\[InvisibleSpace]", "\<\" ) S = \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\ \\\\[LongLeftArrow], \\\\!\\\\(TraditionalForm\\\\`1\\\\/2\\\\)]\\\"\\)\\) \ \[Union] \\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"[\\\\!\\\\(\ TraditionalForm\\\\`3\\\\), \\\\[LongRightArrow]\\\"\\)\\)\"\>", StringForm["`1` \[Union] `2`", analyse`Ens[$CellContext`x <= Rational[1, 2], $CellContext`x], analyse`Ens[$CellContext`x >= 3, $CellContext`x]], Editable->False], TraditionalForm]}], SequenceForm[1, " ) S = ", analyse`Ens[ Or[$CellContext`x <= Rational[1, 2], $CellContext`x >= 3], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{3.430134269806487*^9, 3.4301343427882977`*^9}, FontSize->14], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"2", "\[InvisibleSpace]", "\<\" ) S = \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"]\\!\\(TraditionalForm\\`3\\/4\\), \ \\!\\(TraditionalForm\\`7\\/5\\)[\"\>", StringForm["]`1`, `2`[", Rational[3, 4], Rational[7, 5]], Editable->False], TraditionalForm]}], SequenceForm[2, " ) S = ", analyse`Ens[ Inequality[ Rational[3, 4], Less, $CellContext`x, Less, Rational[7, 5]], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{3.430134269809456*^9, 3.430134342788496*^9}, FontSize->14], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"3", "\[InvisibleSpace]", "\<\" ) S = \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\ \\\\[LongLeftArrow], \\\\!\\\\(TraditionalForm\\\\`0\\\\)]\\\"\\)\\) \[Union] \ \\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"[\\\\!\\\\(TraditionalForm\\\ \\`1\\\\), \\\\!\\\\(TraditionalForm\\\\`7\\\\)]\\\"\\)\\)\"\>", StringForm["`1` \[Union] `2`", analyse`Ens[$CellContext`x <= 0, $CellContext`x], analyse`Ens[ Inequality[ 1, LessEqual, $CellContext`x, LessEqual, 7], $CellContext`x]], Editable->False], TraditionalForm]}], SequenceForm[3, " ) S = ", analyse`Ens[ Or[$CellContext`x <= 0, Inequality[ 1, LessEqual, $CellContext`x, LessEqual, 7]], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{3.430134269813192*^9, 3.430134342788693*^9}, FontSize->14], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"4", "\[InvisibleSpace]", "\<\" ) S = \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\ \\\\[LongLeftArrow], \ \\\\!\\\\(TraditionalForm\\\\`\\\\(-\\\\(\\\\(1\\\\/2\\\\)\\\\)\\\\)\\\\)[\\\"\ \\)\\) \[Union] \ \\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"]\\\\!\\\\(TraditionalForm\\\ \\`\\\\(-\\\\(\\\\(1\\\\/2\\\\)\\\\)\\\\)\\\\), \ \\\\!\\\\(TraditionalForm\\\\`5\\\\)[\\\"\\)\\)\"\>", StringForm["`1` \[Union] `2`", analyse`Ens[$CellContext`x < Rational[-1, 2], $CellContext`x], analyse`Ens[ Inequality[ Rational[-1, 2], Less, $CellContext`x, Less, 5], $CellContext`x]], Editable->False], TraditionalForm]}], SequenceForm[4, " ) S = ", analyse`Ens[ Or[$CellContext`x < Rational[-1, 2], Inequality[ Rational[-1, 2], Less, $CellContext`x, Less, 5]], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{3.430134269815721*^9, 3.430134342788891*^9}, FontSize->14], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"5", "\[InvisibleSpace]", "\<\" ) S = \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"]\\!\\(TraditionalForm\\`\\(-\\(\\(3\\/2\\)\\)\\)\ \\), \\!\\(TraditionalForm\\`5\\/3\\)]\"\>", StringForm["]`1`, `2`]", Rational[-3, 2], Rational[5, 3]], Editable->False], TraditionalForm]}], SequenceForm[5, " ) S = ", analyse`Ens[ Inequality[ Rational[-3, 2], Less, $CellContext`x, LessEqual, Rational[5, 3]], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{3.430134269818346*^9, 3.4301343427890873`*^9}, FontSize->14], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"6", "\[InvisibleSpace]", "\<\" ) S = \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"[\ \\\\!\\\\(TraditionalForm\\\\`\\\\(-\\\\(\\\\(3\\\\/2\\\\)\\\\)\\\\)\\\\), \\\ \\!\\\\(TraditionalForm\\\\`\\\\(-1\\\\)\\\\)[\\\"\\)\\) \[Union] \ \\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"[\\\\!\\\\(TraditionalForm\\\ \\`3\\\\/2\\\\), \\\\[LongRightArrow]\\\"\\)\\)\"\>", StringForm["`1` \[Union] `2`", analyse`Ens[ Inequality[ Rational[-3, 2], LessEqual, $CellContext`x, Less, -1], $CellContext`x], analyse`Ens[$CellContext`x >= Rational[3, 2], $CellContext`x]], Editable->False], TraditionalForm]}], SequenceForm[6, " ) S = ", analyse`Ens[ Or[ Inequality[ Rational[-3, 2], LessEqual, $CellContext`x, Less, -1], $CellContext`x >= Rational[3, 2]], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{3.430134269820401*^9, 3.430134342789283*^9}, FontSize->14], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"7", "\[InvisibleSpace]", "\<\" ) S = \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\ \\\\[LongLeftArrow], \ \\\\!\\\\(TraditionalForm\\\\`\\\\(-2\\\\)\\\\)[\\\"\\)\\) \[Union] \ \\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\!\\\\(TraditionalForm\\\\\ `\\\\(TraditionalForm\\\\`\\\\\\\"[\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\ \\\\\\\\(-1\\\\\\\\)\\\\\\\\), \ \\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`0\\\\\\\\)[\\\\\\\"\\\\)\\\\) \ \\\\[Union] \ \\\\!\\\\(TraditionalForm\\\\`\\\\(TraditionalForm\\\\`\\\\\\\"[\\\\\\\\!\\\\\ \\\\(TraditionalForm\\\\\\\\`3\\\\\\\\/4\\\\\\\\), \ \\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`1\\\\\\\\)]\\\\\\\"\\\\)\\\\)\\\"\\)\ \\)\"\>", StringForm["`1` \[Union] `2`", analyse`Ens[$CellContext`x < -2, $CellContext`x], analyse`Ens[ Or[ Inequality[-1, LessEqual, $CellContext`x, Less, 0], Inequality[ Rational[3, 4], LessEqual, $CellContext`x, LessEqual, 1]], $CellContext`x]], Editable->False], TraditionalForm]}], SequenceForm[7, " ) S = ", analyse`Ens[ Or[$CellContext`x < -2, Inequality[-1, LessEqual, $CellContext`x, Less, 0], Inequality[ Rational[3, 4], LessEqual, $CellContext`x, LessEqual, 1]], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{3.430134269822997*^9, 3.43013434278948*^9}, FontSize->14], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"8", "\[InvisibleSpace]", "\<\" ) S = \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\ \\\\[LongLeftArrow], \ \\\\!\\\\(TraditionalForm\\\\`\\\\(-\\\\(\\\\(2\\\\/3\\\\)\\\\)\\\\)\\\\)[\\\"\ \\)\\) \[Union] \ \\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\\\\!\\\\(TraditionalForm\\\\\ `\\\\(TraditionalForm\\\\`\\\\\\\"]\\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`\ \\\\\\\\(-\\\\\\\\(\\\\\\\\(1\\\\\\\\/3\\\\\\\\)\\\\\\\\)\\\\\\\\)\\\\\\\\), \ \\\\\\\\!\\\\\\\\(TraditionalForm\\\\\\\\`0\\\\\\\\)[\\\\\\\"\\\\)\\\\) \ \\\\[Union] \ \\\\!\\\\(TraditionalForm\\\\`\\\\(TraditionalForm\\\\`\\\\\\\"]\\\\\\\\!\\\\\ \\\\(TraditionalForm\\\\\\\\`3\\\\\\\\), \ \\\\\\\\[LongRightArrow]\\\\\\\"\\\\)\\\\)\\\"\\)\\)\"\>", StringForm["`1` \[Union] `2`", analyse`Ens[$CellContext`x < Rational[-2, 3], $CellContext`x], analyse`Ens[ Or[ Inequality[ Rational[-1, 3], Less, $CellContext`x, Less, 0], $CellContext`x > 3], $CellContext`x]], Editable->False], TraditionalForm]}], SequenceForm[8, " ) S = ", analyse`Ens[ Or[$CellContext`x < Rational[-2, 3], Inequality[ Rational[-1, 3], Less, $CellContext`x, Less, 0], $CellContext`x > 3], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{3.430134269826116*^9, 3.4301343427896767`*^9}, FontSize->14], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"9", "\[InvisibleSpace]", "\<\" ) S = \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\ \\\\[LongLeftArrow], \ \\\\!\\\\(TraditionalForm\\\\`\\\\(-3\\\\)\\\\)]\\\"\\)\\) \[Union] \ \\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"[\\\\!\\\\(TraditionalForm\\\ \\`\\\\(-1\\\\)\\\\), \\\\!\\\\(TraditionalForm\\\\`3\\\\)]\\\"\\)\\)\"\>", StringForm["`1` \[Union] `2`", analyse`Ens[$CellContext`x <= -3, $CellContext`x], analyse`Ens[ Inequality[-1, LessEqual, $CellContext`x, LessEqual, 3], $CellContext`x]], Editable->False], TraditionalForm]}], SequenceForm[9, " ) S = ", analyse`Ens[ Or[$CellContext`x <= -3, Inequality[-1, LessEqual, $CellContext`x, LessEqual, 3]], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{3.430134269856635*^9, 3.430134342789879*^9}, FontSize->14], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ "10", "\[InvisibleSpace]", "\<\" ) S = \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"[\\!\\(TraditionalForm\\`1\\/2\\), \ \[LongRightArrow]\"\>", StringForm["[`1`, \[LongRightArrow]", Rational[1, 2]], Editable->False], TraditionalForm]}], SequenceForm[10, " ) S = ", analyse`Ens[$CellContext`x >= Rational[1, 2], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{3.430134269889575*^9, 3.4301343427900763`*^9}, FontSize->14] }, Closed]] }, Open ]] }, WindowSize->{836, 986}, WindowMargins->{{286, Automatic}, {Automatic, 15}}, PageFooters->{{Inherited, Inherited, Inherited}, {Inherited, Inherited, Cell[ TextData["F. M\[EAcute]lotte - STUS.BE 2004 - in\[EAcute]quations1"], "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[CellGroupData[{ Cell[590, 23, 91, 2, 44, "Section"], Cell[684, 27, 47, 1, 33, "Text"], Cell[CellGroupData[{ Cell[756, 32, 4239, 154, 20, "Input", CellOpen->False], Cell[CellGroupData[{ Cell[5020, 190, 511, 15, 27, "Print"], Cell[5534, 207, 528, 15, 27, "Print"], Cell[6065, 224, 554, 17, 27, "Print"], Cell[6622, 243, 527, 15, 29, "Print"], Cell[7152, 260, 593, 18, 51, "Print"], Cell[7748, 280, 491, 14, 51, "Print"], Cell[8242, 296, 717, 22, 56, "Print"], Cell[8962, 320, 677, 20, 51, "Print"], Cell[9642, 342, 524, 15, 33, "Print"], Cell[10169, 359, 671, 20, 27, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[10889, 385, 136, 3, 33, "Text", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[11028, 390, 635, 19, 20, "Input", CellOpen->False, CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[11666, 411, 963, 21, 44, "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[12632, 434, 707, 20, 45, "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[13342, 456, 1041, 24, 25, "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[14386, 482, 1157, 27, 44, "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[15546, 511, 735, 20, 45, "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[16284, 533, 1163, 27, 44, "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[17450, 562, 1594, 37, 44, "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[19047, 601, 1555, 35, 45, "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[20605, 638, 1071, 25, 25, "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[21679, 665, 630, 17, 44, "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}] }, Closed]] }, Open ]] } ] *) (* End of internal cache information *)