(* 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[ 21639, 671] NotebookOptionsPosition[ 19411, 606] NotebookOutlinePosition[ 19976, 627] CellTagsIndexPosition[ 19933, 624] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["\<\ In\[EAcute]quations r\[EAcute]ductibles au premier degr\[EAcute] S\[EAcute]rie 3\ \>", "Subsubsection", FontSize->16], 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[{"x", "-", "2"}], ")"}]}], "\[LessEqual]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "x"}], "-", "5"}], ")"}], "/", RowBox[{"(", RowBox[{"x", "+", "1"}], ")"}]}]}], ")"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ex", "[", "2", "]"}], "=", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"8", "x"}], "-", "1"}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", "x"}], "-", "4"}], ")"}]}], "<", "2"}], ")"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ex", "[", "3", "]"}], "=", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"x", "-", "3"}], ")"}], "^", "2"}], " ", "/", RowBox[{"(", RowBox[{"x", "+", "1"}], ")"}]}], "\[LessEqual]", "x"}], ")"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ex", "[", "4", "]"}], "=", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"x", "/", RowBox[{"(", RowBox[{"x", "+", "3"}], ")"}]}], "-", RowBox[{"2", "/", RowBox[{"(", RowBox[{"x", "+", "1"}], ")"}]}]}], ">", "1"}], ")"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ex", "[", "5", "]"}], "=", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"x", "+", "1"}], ")"}], "^", "2"}], "/", RowBox[{"(", RowBox[{"x", "+", "5"}], ")"}]}], ">", "0"}], ")"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ex", "[", "6", "]"}], "=", RowBox[{"(", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"x", "-", "4"}], ")"}], "^", "2"}], ">", "0"}], ")"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ex", "[", "7", "]"}], "=", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "7"}], "/", RowBox[{"(", RowBox[{"5", "-", RowBox[{"6", "x"}]}], ")"}]}], "\[LessEqual]", "2"}], ")"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ex", "[", "8", "]"}], "=", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "x"}], ")"}], "/", RowBox[{"(", RowBox[{"x", "-", "3"}], ")"}]}], "\[GreaterEqual]", RowBox[{"(", "1", ")"}]}], ")"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ex", "[", "9", "]"}], "=", RowBox[{"(", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"7", "-", RowBox[{"3", "x"}]}], ")"}], "/", RowBox[{"(", RowBox[{"2", "x"}], ")"}]}], " ", "\[LessEqual]", RowBox[{"-", "3"}]}], ")"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ex", "[", "10", "]"}], "=", RowBox[{"(", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"x", "+", "1"}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"2", "x"}], "-", "3"}], ")"}]}], "\[LessEqual]", " ", RowBox[{"(", RowBox[{ RowBox[{"4", RowBox[{"x", "^", "2"}]}], "-", "9"}], ")"}]}], ")"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Do", "[", RowBox[{ RowBox[{"Print", "[", RowBox[{"i", ",", "\"\<) \>\"", ",", RowBox[{"ex", "[", "i", "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "10"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "Input",\ CellOpen->False, CellChangeTimes->{{3.430135842473432*^9, 3.4301358427536993`*^9}}, FontSize->16], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"1", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", RowBox[{ FractionBox[ RowBox[{ RowBox[{"2", " ", "x"}], "+", "1"}], RowBox[{"x", "-", "2"}]], "\[LessEqual]", FractionBox[ RowBox[{ RowBox[{"2", " ", "x"}], "-", "5"}], RowBox[{"x", "+", "1"}]]}]}], SequenceForm[ 1, ") ", (-2 + $CellContext`x)^(-1) (1 + 2 $CellContext`x) <= (1 + $CellContext`x)^(-1) (-5 + 2 $CellContext`x)], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.430135868298678*^9}, FontSize->16], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"2", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", RowBox[{ FractionBox[ RowBox[{ RowBox[{"8", " ", "x"}], "-", "1"}], RowBox[{ RowBox[{"2", " ", "x"}], "-", "4"}]], "<", "2"}]}], SequenceForm[ 2, ") ", (-4 + 2 $CellContext`x)^(-1) (-1 + 8 $CellContext`x) < 2], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.4301358683005457`*^9}, FontSize->16], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"3", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", RowBox[{ FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"x", "-", "3"}], ")"}], "2"], RowBox[{"x", "+", "1"}]], "\[LessEqual]", "x"}]}], SequenceForm[ 3, ") ", (-3 + $CellContext`x)^2/(1 + $CellContext`x) <= $CellContext`x], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.43013586830331*^9}, FontSize->16], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"4", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{ FractionBox["x", RowBox[{"x", "+", "3"}]], "-", FractionBox["2", RowBox[{"x", "+", "1"}]]}], ">", "1"}]}], SequenceForm[ 4, ") ", (-2)/(1 + $CellContext`x) + $CellContext`x/(3 + $CellContext`x) > 1], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.430135868306151*^9}, FontSize->16], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"5", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", RowBox[{ FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"x", "+", "1"}], ")"}], "2"], RowBox[{"x", "+", "5"}]], ">", "0"}]}], SequenceForm[5, ") ", (1 + $CellContext`x)^2/(5 + $CellContext`x) > 0], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.4301358683089743`*^9}, FontSize->16], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"6", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"x", "-", "4"}], ")"}], "2"], ">", "0"}]}], SequenceForm[6, ") ", (-4 + $CellContext`x)^2 > 0], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.43013586831184*^9}, FontSize->16], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"7", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{"-", FractionBox["7", RowBox[{"5", "-", RowBox[{"6", " ", "x"}]}]]}], "\[LessEqual]", "2"}]}], SequenceForm[7, ") ", (-7)/(5 - 6 $CellContext`x) <= 2], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.4301358683147*^9}, FontSize->16], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"8", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"3", " ", "x"}], RowBox[{"x", "-", "3"}]]}], "\[GreaterEqual]", "1"}]}], SequenceForm[8, ") ", (-3) (-3 + $CellContext`x)^(-1) $CellContext`x >= 1], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.430135868317572*^9}, FontSize->16], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"9", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", RowBox[{ FractionBox[ RowBox[{"7", "-", RowBox[{"3", " ", "x"}]}], RowBox[{"2", " ", "x"}]], "\[LessEqual]", RowBox[{"-", "3"}]}]}], SequenceForm[ 9, ") ", Rational[1, 2] (7 - 3 $CellContext`x)/$CellContext`x <= -3], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.430135868320496*^9}, FontSize->16], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"10", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"x", "+", "1"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "x"}], "-", "3"}], ")"}]}], "\[LessEqual]", RowBox[{ RowBox[{"4", " ", SuperscriptBox["x", "2"]}], "-", "9"}]}]}], SequenceForm[ 10, ") ", (1 + $CellContext`x) (-3 + 2 $CellContext`x) <= -9 + 4 $CellContext`x^2], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.4301358683235207`*^9}, FontSize->16] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Solutions:", "Text", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{3.430135875737487*^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.430135854530468*^9, 3.430135875737692*^9}}, FontSize->16], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"1", "\[InvisibleSpace]", "\<\" ) S = \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\ \\\\[LongLeftArrow], \ \\\\!\\\\(TraditionalForm\\\\`\\\\(-1\\\\)\\\\)[\\\"\\)\\) \[Union] \ \\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"[\\\\!\\\\(TraditionalForm\\\ \\`3\\\\/4\\\\), \\\\!\\\\(TraditionalForm\\\\`2\\\\)[\\\"\\)\\)\"\>", StringForm["`1` \[Union] `2`", analyse`Ens[$CellContext`x < -1, $CellContext`x], analyse`Ens[ Inequality[ Rational[3, 4], LessEqual, $CellContext`x, Less, 2], $CellContext`x]], Editable->False], TraditionalForm]}], SequenceForm[1, " ) S = ", analyse`Ens[ Or[$CellContext`x < -1, Inequality[ Rational[3, 4], LessEqual, $CellContext`x, Less, 2]], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.4301358684164877`*^9, 3.430135875737905*^9}}, FontSize->16], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"2", "\[InvisibleSpace]", "\<\" ) S = \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"]\\!\\(TraditionalForm\\`\\(-\\(\\(7\\/4\\)\\)\\)\ \\), \\!\\(TraditionalForm\\`2\\)[\"\>", StringForm["]`1`, `2`[", Rational[-7, 4], 2], Editable->False], TraditionalForm]}], SequenceForm[2, " ) S = ", analyse`Ens[ Inequality[ Rational[-7, 4], Less, $CellContext`x, Less, 2], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.43013586841938*^9, 3.430135875738138*^9}}, FontSize->16], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"3", "\[InvisibleSpace]", "\<\" ) S = \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\ \\\\[LongLeftArrow], \ \\\\!\\\\(TraditionalForm\\\\`\\\\(-1\\\\)\\\\)[\\\"\\)\\) \[Union] \ \\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"[\\\\!\\\\(TraditionalForm\\\ \\`9\\\\/7\\\\), \\\\[LongRightArrow]\\\"\\)\\)\"\>", StringForm["`1` \[Union] `2`", analyse`Ens[$CellContext`x < -1, $CellContext`x], analyse`Ens[$CellContext`x >= Rational[9, 7], $CellContext`x]], Editable->False], TraditionalForm]}], SequenceForm[3, " ) S = ", analyse`Ens[ Or[$CellContext`x < -1, $CellContext`x >= Rational[9, 7]], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.430135868423613*^9, 3.4301358757383537`*^9}}, FontSize->16], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"4", "\[InvisibleSpace]", "\<\" ) S = \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\ \\\\[LongLeftArrow], \ \\\\!\\\\(TraditionalForm\\\\`\\\\(-3\\\\)\\\\)[\\\"\\)\\) \[Union] \ \\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"]\\\\!\\\\(TraditionalForm\\\ \\`\\\\(-\\\\(\\\\(9\\\\/5\\\\)\\\\)\\\\)\\\\), \ \\\\!\\\\(TraditionalForm\\\\`\\\\(-1\\\\)\\\\)[\\\"\\)\\)\"\>", StringForm["`1` \[Union] `2`", analyse`Ens[$CellContext`x < -3, $CellContext`x], analyse`Ens[ Inequality[ Rational[-9, 5], Less, $CellContext`x, Less, -1], $CellContext`x]], Editable->False], TraditionalForm]}], SequenceForm[4, " ) S = ", analyse`Ens[ Or[$CellContext`x < -3, Inequality[ Rational[-9, 5], Less, $CellContext`x, Less, -1]], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.430135868426175*^9, 3.430135875738549*^9}}, FontSize->16], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"5", "\[InvisibleSpace]", "\<\" ) S = \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"]\ \\\\!\\\\(TraditionalForm\\\\`\\\\(-5\\\\)\\\\), \ \\\\!\\\\(TraditionalForm\\\\`\\\\(-1\\\\)\\\\)[\\\"\\)\\) \[Union] \ \\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"]\\\\!\\\\(TraditionalForm\\\ \\`\\\\(-1\\\\)\\\\), \\\\[LongRightArrow]\\\"\\)\\)\"\>", StringForm["`1` \[Union] `2`", analyse`Ens[ Inequality[-5, Less, $CellContext`x, Less, -1], $CellContext`x], analyse`Ens[$CellContext`x > -1, $CellContext`x]], Editable->False], TraditionalForm]}], SequenceForm[5, " ) S = ", analyse`Ens[ Or[ Inequality[-5, Less, $CellContext`x, Less, -1], $CellContext`x > -1], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.430135868428618*^9, 3.430135875738744*^9}}, FontSize->16], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"6", "\[InvisibleSpace]", "\<\" ) S = \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\*TagBox[\\\"\ \[DoubleStruckCapitalR]\\\", Function[List[], Reals]]\\) \\\\ \ {\\!\\(TraditionalForm\\`4\\)}\"\>", StringForm["`1` \\ {`2`}", Reals, 4], Editable->False], TraditionalForm]}], SequenceForm[6, " ) S = ", analyse`Ens[ Or[$CellContext`x < 4, $CellContext`x > 4], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.430135868430954*^9, 3.430135875738955*^9}}, FontSize->16], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"7", "\[InvisibleSpace]", "\<\" ) S = \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\ \\\\[LongLeftArrow], \\\\!\\\\(TraditionalForm\\\\`5\\\\/6\\\\)[\\\"\\)\\) \ \[Union] \\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"[\\\\!\\\\(\ TraditionalForm\\\\`17\\\\/12\\\\), \\\\[LongRightArrow]\\\"\\)\\)\"\>", StringForm["`1` \[Union] `2`", analyse`Ens[$CellContext`x < Rational[5, 6], $CellContext`x], analyse`Ens[$CellContext`x >= Rational[17, 12], $CellContext`x]], Editable->False], TraditionalForm]}], SequenceForm[7, " ) S = ", analyse`Ens[ Or[$CellContext`x < Rational[5, 6], $CellContext`x >= Rational[17, 12]], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.430135868436195*^9, 3.4301358757391663`*^9}}, FontSize->16], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"8", "\[InvisibleSpace]", "\<\" ) S = \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"[\\!\\(TraditionalForm\\`3\\/4\\), \ \\!\\(TraditionalForm\\`3\\)[\"\>", StringForm["[`1`, `2`[", Rational[3, 4], 3], Editable->False], TraditionalForm]}], SequenceForm[8, " ) S = ", analyse`Ens[ Inequality[ Rational[3, 4], LessEqual, $CellContext`x, Less, 3], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.430135868438595*^9, 3.430135875739369*^9}}, FontSize->16], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"9", "\[InvisibleSpace]", "\<\" ) S = \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"[\\!\\(TraditionalForm\\`\\(-\\(\\(7\\/3\\)\\)\\)\ \\), \\!\\(TraditionalForm\\`0\\)[\"\>", StringForm["[`1`, `2`[", Rational[-7, 3], 0], Editable->False], TraditionalForm]}], SequenceForm[9, " ) S = ", analyse`Ens[ Inequality[ Rational[-7, 3], LessEqual, $CellContext`x, Less, 0], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.4301358684404716`*^9, 3.430135875739563*^9}}, FontSize->16], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ "10", "\[InvisibleSpace]", "\<\" ) S = \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\ \\\\[LongLeftArrow], \ \\\\!\\\\(TraditionalForm\\\\`\\\\(-2\\\\)\\\\)]\\\"\\)\\) \[Union] \ \\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"[\\\\!\\\\(TraditionalForm\\\ \\`3\\\\/2\\\\), \\\\[LongRightArrow]\\\"\\)\\)\"\>", StringForm["`1` \[Union] `2`", analyse`Ens[$CellContext`x <= -2, $CellContext`x], analyse`Ens[$CellContext`x >= Rational[3, 2], $CellContext`x]], Editable->False], TraditionalForm]}], SequenceForm[10, " ) S = ", analyse`Ens[ Or[$CellContext`x <= -2, $CellContext`x >= Rational[3, 2]], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.4301358684643927`*^9, 3.430135875739757*^9}}, FontSize->16] }, Open ]] }, Open ]] }, WindowSize->{1131, 914}, WindowMargins->{{31, Automatic}, {Automatic, 0}}, PrintingCopies->1, PrintingPageRange->{1, Automatic}, PageFooters->{{Inherited, Inherited, Inherited}, {Inherited, Inherited, Cell[ TextData["F. M\[EAcute]lotte - STUS.BE 2004 - in\[EAcute]quations3"], "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, 128, 4, 51, "Subsubsection"], Cell[721, 29, 47, 1, 33, "Text"], Cell[CellGroupData[{ Cell[793, 34, 3812, 139, 20, "Input", CellOpen->False], Cell[CellGroupData[{ Cell[4630, 177, 622, 19, 47, "Print"], Cell[5255, 198, 478, 14, 46, "Print"], Cell[5736, 214, 494, 14, 51, "Print"], Cell[6233, 230, 490, 15, 47, "Print"], Cell[6726, 247, 467, 13, 51, "Print"], Cell[7196, 262, 390, 11, 29, "Print"], Cell[7589, 275, 426, 12, 47, "Print"], Cell[8018, 289, 453, 13, 47, "Print"], Cell[8474, 304, 482, 14, 46, "Print"], Cell[8959, 320, 625, 19, 29, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[9633, 345, 136, 3, 33, "Text", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[9772, 350, 607, 18, 20, "Input", CellOpen->False, CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[10382, 370, 1096, 27, 46, "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[11481, 399, 684, 18, 46, "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[12168, 419, 978, 22, 46, "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[13149, 443, 1118, 26, 47, "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[14270, 471, 1055, 24, 27, "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[15328, 497, 695, 17, 27, "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[16026, 516, 1001, 21, 47, "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[17030, 539, 669, 18, 46, "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[17702, 559, 692, 18, 47, "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[18397, 579, 986, 23, 46, "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)