(* 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[ 21279, 662] NotebookOptionsPosition[ 19057, 597] NotebookOutlinePosition[ 19623, 618] CellTagsIndexPosition[ 19580, 615] 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 2\ \>", "Section"], Cell["R\[EAcute]soudre", "Text", FontSize->16], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ex", "[", "1", "]"}], "=", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"x", "-", "1"}], ")"}], "/", RowBox[{"(", RowBox[{"3", "-", "x"}], ")"}]}], "\[LessEqual]", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}], "/", RowBox[{"(", RowBox[{"x", "-", "2"}], ")"}]}]}], ")"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ex", "[", "2", "]"}], "=", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"3", "-", RowBox[{"8", "x"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"3", "x"}], "+", "1"}], ")"}]}], ">", "1"}], ")"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ex", "[", "3", "]"}], "=", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"x", "^", "2"}], " ", "/", RowBox[{"(", RowBox[{"x", "+", "3"}], ")"}]}], "\[GreaterEqual]", "x"}], ")"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ex", "[", "4", "]"}], "=", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", RowBox[{"x", "^", "2"}]}], "-", "1"}], ")"}], "/", RowBox[{"(", RowBox[{"x", "+", "3"}], ")"}]}], ">", RowBox[{"(", RowBox[{"2", "x"}], ")"}]}], ")"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ex", "[", "5", "]"}], "=", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "x"}], "+", "7"}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"2", "x"}], "-", "1"}], ")"}]}], "\[GreaterEqual]", RowBox[{ RowBox[{"(", RowBox[{"x", "+", "1"}], ")"}], "/", RowBox[{"(", RowBox[{"x", "-", "1"}], ")"}]}]}], ")"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ex", "[", "6", "]"}], "=", RowBox[{"(", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"4", RowBox[{"x", "^", "2"}]}], "-", "1"}], ")"}], "/", RowBox[{"(", RowBox[{"2", "x"}], ")"}]}], "\[GreaterEqual]", RowBox[{ RowBox[{"2", "x"}], "+", "1"}]}], ")"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ex", "[", "7", "]"}], "=", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], "/", RowBox[{"(", RowBox[{"x", "+", "2"}], ")"}]}], "\[LessEqual]", "3"}], ")"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ex", "[", "8", "]"}], "=", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"x", "+", "1"}], ")"}], "/", RowBox[{"(", RowBox[{"x", "-", "3"}], ")"}]}], ">", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}], "/", RowBox[{"(", "x", ")"}]}]}], ")"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ex", "[", "9", "]"}], "=", RowBox[{"(", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"4", "x"}]}], ")"}], "/", "x"}], " ", "\[LessEqual]", "5"}], ")"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ex", "[", "10", "]"}], "=", RowBox[{"(", " ", RowBox[{ RowBox[{"-", "3"}], "\[GreaterEqual]", " ", RowBox[{ RowBox[{"(", RowBox[{"x", "-", "2"}], ")"}], "/", RowBox[{"(", RowBox[{"x", "+", "1"}], ")"}]}]}], ")"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Do", "[", RowBox[{ RowBox[{"Print", "[", RowBox[{"i", ",", "\"\<) \>\"", ",", RowBox[{"ex", "[", "i", "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "10"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellOpen->False, CellChangeTimes->{{3.430135088055441*^9, 3.430135088318975*^9}}, FontSize->16], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"1", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", RowBox[{ FractionBox[ RowBox[{"x", "-", "1"}], RowBox[{"3", "-", "x"}]], "\[LessEqual]", FractionBox[ RowBox[{"1", "-", "x"}], RowBox[{"x", "-", "2"}]]}]}], SequenceForm[ 1, ") ", (3 - $CellContext`x)^(-1) (-1 + $CellContext`x) <= ( 1 - $CellContext`x)/(-2 + $CellContext`x)], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.430135093574065*^9}, FontSize->16], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"2", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", RowBox[{ FractionBox[ RowBox[{"3", "-", RowBox[{"8", " ", "x"}]}], RowBox[{ RowBox[{"3", " ", "x"}], "+", "1"}]], ">", "1"}]}], SequenceForm[2, ") ", (3 - 8 $CellContext`x)/(1 + 3 $CellContext`x) > 1], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.430135093576071*^9}, FontSize->16], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"3", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", RowBox[{ FractionBox[ SuperscriptBox["x", "2"], RowBox[{"x", "+", "3"}]], "\[GreaterEqual]", "x"}]}], SequenceForm[ 3, ") ", $CellContext`x^2/(3 + $CellContext`x) >= $CellContext`x], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.430135093578986*^9}, FontSize->16], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"4", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", RowBox[{ FractionBox[ RowBox[{ RowBox[{"2", " ", SuperscriptBox["x", "2"]}], "-", "1"}], RowBox[{"x", "+", "3"}]], ">", RowBox[{"2", " ", "x"}]}]}], SequenceForm[ 4, ") ", (3 + $CellContext`x)^(-1) (-1 + 2 $CellContext`x^2) > 2 $CellContext`x], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.430135093581949*^9}, FontSize->16], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"5", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", RowBox[{ FractionBox[ RowBox[{ RowBox[{"2", " ", "x"}], "+", "7"}], RowBox[{ RowBox[{"2", " ", "x"}], "-", "1"}]], "\[GreaterEqual]", FractionBox[ RowBox[{"x", "+", "1"}], RowBox[{"x", "-", "1"}]]}]}], SequenceForm[ 5, ") ", (-1 + 2 $CellContext`x)^(-1) (7 + 2 $CellContext`x) >= (-1 + $CellContext`x)^(-1) (1 + $CellContext`x)], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.43013509358497*^9}, FontSize->16], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"6", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", RowBox[{ FractionBox[ RowBox[{ RowBox[{"4", " ", SuperscriptBox["x", "2"]}], "-", "1"}], RowBox[{"2", " ", "x"}]], "\[GreaterEqual]", RowBox[{ RowBox[{"2", " ", "x"}], "+", "1"}]}]}], SequenceForm[ 6, ") ", Rational[1, 2] $CellContext`x^(-1) (-1 + 4 $CellContext`x^2) >= 1 + 2 $CellContext`x], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.430135093587936*^9}, FontSize->16], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"7", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{"-", FractionBox["2", RowBox[{"x", "+", "2"}]]}], "\[LessEqual]", "3"}]}], SequenceForm[7, ") ", (-2)/(2 + $CellContext`x) <= 3], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.430135093590749*^9}, FontSize->16], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"8", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", RowBox[{ FractionBox[ RowBox[{"x", "+", "1"}], RowBox[{"x", "-", "3"}]], ">", FractionBox[ RowBox[{"1", "-", "x"}], "x"]}]}], SequenceForm[ 8, ") ", (-3 + $CellContext`x)^(-1) (1 + $CellContext`x) > ( 1 - $CellContext`x)/$CellContext`x], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.430135093593698*^9}, FontSize->16], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"9", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", RowBox[{ FractionBox[ RowBox[{"1", "-", RowBox[{"4", " ", "x"}]}], "x"], "\[LessEqual]", "5"}]}], SequenceForm[9, ") ", (1 - 4 $CellContext`x)/$CellContext`x <= 5], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.430135093596529*^9}, FontSize->16], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"10", "\[InvisibleSpace]", "\<\") \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{"-", "3"}], "\[GreaterEqual]", FractionBox[ RowBox[{"x", "-", "2"}], RowBox[{"x", "+", "1"}]]}]}], SequenceForm[10, ") ", -3 >= (-2 + $CellContext`x)/(1 + $CellContext`x)], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.430135093599348*^9}, FontSize->16] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Solutions:", "Text", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{3.430135142800414*^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.430135104142867*^9, 3.43013511259109*^9}, 3.430135142800659*^9}, FontSize->14], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"1", "\[InvisibleSpace]", "\<\" ) S = \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"[\ \\\\!\\\\(TraditionalForm\\\\`1\\\\), \\\\!\\\\(TraditionalForm\\\\`2\\\\)[\\\ \"\\)\\) \[Union] \ \\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"]\\\\!\\\\(TraditionalForm\\\ \\`3\\\\), \\\\[LongRightArrow]\\\"\\)\\)\"\>", StringForm["`1` \[Union] `2`", analyse`Ens[ Inequality[1, LessEqual, $CellContext`x, Less, 2], $CellContext`x], analyse`Ens[$CellContext`x > 3, $CellContext`x]], Editable->False], TraditionalForm]}], SequenceForm[1, " ) S = ", analyse`Ens[ Or[ Inequality[1, LessEqual, $CellContext`x, Less, 2], $CellContext`x > 3], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.430135115485437*^9, 3.430135142800872*^9}}, FontSize->14], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"2", "\[InvisibleSpace]", "\<\" ) S = \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"]\\!\\(TraditionalForm\\`\\(-\\(\\(1\\/3\\)\\)\\)\ \\), \\!\\(TraditionalForm\\`2\\/11\\)[\"\>", StringForm["]`1`, `2`[", Rational[-1, 3], Rational[2, 11]], Editable->False], TraditionalForm]}], SequenceForm[2, " ) S = ", analyse`Ens[ Inequality[ Rational[-1, 3], Less, $CellContext`x, Less, Rational[2, 11]], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.430135115488508*^9, 3.430135142801071*^9}}, FontSize->14], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"3", "\[InvisibleSpace]", "\<\" ) S = \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"]\\!\\(TraditionalForm\\`\\(-3\\)\\), \ \\!\\(TraditionalForm\\`0\\)]\"\>", StringForm["]`1`, `2`]", -3, 0], Editable->False], TraditionalForm]}], SequenceForm[3, " ) S = ", analyse`Ens[ Inequality[-3, Less, $CellContext`x, LessEqual, 0], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.4301351154917107`*^9, 3.430135142801271*^9}}, FontSize->14], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"4", "\[InvisibleSpace]", "\<\" ) S = \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"]\\!\\(TraditionalForm\\`\\(-3\\)\\), \ \\!\\(TraditionalForm\\`\\(-\\(\\(1\\/6\\)\\)\\)\\)[\"\>", StringForm["]`1`, `2`[", -3, Rational[-1, 6]], Editable->False], TraditionalForm]}], SequenceForm[4, " ) S = ", analyse`Ens[ Inequality[-3, Less, $CellContext`x, Less, Rational[-1, 6]], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.430135115493608*^9, 3.4301351428015013`*^9}}, FontSize->14], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"5", "\[InvisibleSpace]", "\<\" ) S = \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"]\ \\\\!\\\\(TraditionalForm\\\\`1\\\\/2\\\\), \\\\!\\\\(TraditionalForm\\\\`1\\\ \\)[\\\"\\)\\) \[Union] \ \\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"[\\\\!\\\\(TraditionalForm\\\ \\`3\\\\/2\\\\), \\\\[LongRightArrow]\\\"\\)\\)\"\>", StringForm["`1` \[Union] `2`", analyse`Ens[ Inequality[ Rational[1, 2], Less, $CellContext`x, Less, 1], $CellContext`x], analyse`Ens[$CellContext`x >= Rational[3, 2], $CellContext`x]], Editable->False], TraditionalForm]}], SequenceForm[5, " ) S = ", analyse`Ens[ Or[ Inequality[ Rational[1, 2], Less, $CellContext`x, Less, 1], $CellContext`x >= Rational[3, 2]], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.430135115495667*^9, 3.43013514280171*^9}}, FontSize->14], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"6", "\[InvisibleSpace]", "\<\" ) S = \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"[\\!\\(TraditionalForm\\`\\(-\\(\\(1\\/2\\)\\)\\)\ \\), \\!\\(TraditionalForm\\`0\\)[\"\>", StringForm["[`1`, `2`[", Rational[-1, 2], 0], Editable->False], TraditionalForm]}], SequenceForm[6, " ) S = ", analyse`Ens[ Inequality[ Rational[-1, 2], LessEqual, $CellContext`x, Less, 0], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.430135115498139*^9, 3.430135142801909*^9}}, FontSize->14], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"7", "\[InvisibleSpace]", "\<\" ) S = \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\ \\\\[LongLeftArrow], \ \\\\!\\\\(TraditionalForm\\\\`\\\\(-\\\\(\\\\(8\\\\/3\\\\)\\\\)\\\\)\\\\)]\\\"\ \\)\\) \[Union] \ \\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"]\\\\!\\\\(TraditionalForm\\\ \\`\\\\(-2\\\\)\\\\), \\\\[LongRightArrow]\\\"\\)\\)\"\>", StringForm["`1` \[Union] `2`", analyse`Ens[$CellContext`x <= Rational[-8, 3], $CellContext`x], analyse`Ens[$CellContext`x > -2, $CellContext`x]], Editable->False], TraditionalForm]}], SequenceForm[7, " ) S = ", analyse`Ens[ Or[$CellContext`x <= Rational[-8, 3], $CellContext`x > -2], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.4301351155001907`*^9, 3.430135142802108*^9}}, FontSize->14], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"8", "\[InvisibleSpace]", "\<\" ) S = \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\ \\\\[LongLeftArrow], \\\\!\\\\(TraditionalForm\\\\`0\\\\)[\\\"\\)\\) \[Union] \ \\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"]\\\\!\\\\(TraditionalForm\\\ \\`3\\\\), \\\\[LongRightArrow]\\\"\\)\\)\"\>", StringForm["`1` \[Union] `2`", analyse`Ens[$CellContext`x < 0, $CellContext`x], analyse`Ens[$CellContext`x > 3, $CellContext`x]], Editable->False], TraditionalForm]}], SequenceForm[8, " ) S = ", analyse`Ens[ Or[$CellContext`x < 0, $CellContext`x > 3], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.430135115502597*^9, 3.430135142802329*^9}}, FontSize->14], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"9", "\[InvisibleSpace]", "\<\" ) S = \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"\\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"\ \\\\[LongLeftArrow], \\\\!\\\\(TraditionalForm\\\\`0\\\\)[\\\"\\)\\) \[Union] \ \\!\\(TraditionalForm\\`\\(TraditionalForm\\`\\\"[\\\\!\\\\(TraditionalForm\\\ \\`1\\\\/9\\\\), \\\\[LongRightArrow]\\\"\\)\\)\"\>", StringForm["`1` \[Union] `2`", analyse`Ens[$CellContext`x < 0, $CellContext`x], analyse`Ens[$CellContext`x >= Rational[1, 9], $CellContext`x]], Editable->False], TraditionalForm]}], SequenceForm[9, " ) S = ", analyse`Ens[ Or[$CellContext`x < 0, $CellContext`x >= Rational[1, 9]], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.430135115504875*^9, 3.4301351428025503`*^9}}, FontSize->14], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ "10", "\[InvisibleSpace]", "\<\" ) S = \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox["\<\"]\\!\\(TraditionalForm\\`\\(-1\\)\\), \ \\!\\(TraditionalForm\\`\\(-\\(\\(1\\/4\\)\\)\\)\\)]\"\>", StringForm["]`1`, `2`]", -1, Rational[-1, 4]], Editable->False], TraditionalForm]}], SequenceForm[10, " ) S = ", analyse`Ens[ Inequality[-1, Less, $CellContext`x, LessEqual, Rational[-1, 4]], $CellContext`x]], Editable->False], TraditionalForm]], "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.430135115507286*^9, 3.430135142802752*^9}}, FontSize->14] }, Closed]] }, Open ]] }, WindowSize->{1131, 914}, WindowMargins->{{45, Automatic}, {Automatic, 48}}, PrintingCopies->1, PrintingPageRange->{1, Automatic}, PageFooters->{{Inherited, Inherited, Inherited}, {Inherited, Inherited, Cell[ TextData["F. M\[EAcute]lotte - STUS.BE 2004 - in\[EAcute]quations2"], "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, 107, 3, 65, "Section"], Cell[700, 28, 47, 1, 33, "Text"], Cell[CellGroupData[{ Cell[772, 33, 3941, 142, 20, "Input", CellOpen->False], Cell[CellGroupData[{ Cell[4738, 179, 553, 16, 47, "Print"], Cell[5294, 197, 465, 13, 47, "Print"], Cell[5762, 212, 434, 12, 51, "Print"], Cell[6199, 226, 523, 16, 51, "Print"], Cell[6725, 244, 620, 18, 46, "Print"], Cell[7348, 264, 578, 17, 50, "Print"], Cell[7929, 283, 397, 11, 47, "Print"], Cell[8329, 296, 507, 15, 47, "Print"], Cell[8839, 313, 414, 11, 46, "Print"], Cell[9256, 326, 445, 12, 47, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[9750, 344, 136, 3, 33, "Text", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[9889, 349, 632, 19, 20, "Input", CellOpen->False, CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[10524, 370, 1025, 24, 25, "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[11552, 396, 733, 20, 45, "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[12288, 418, 635, 16, 25, "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[12926, 436, 696, 18, 45, "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[13625, 456, 1098, 26, 44, "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[14726, 484, 690, 18, 44, "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[15419, 504, 1013, 23, 45, "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[16435, 529, 920, 20, 25, "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[17358, 551, 963, 21, 45, "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[18324, 574, 705, 19, 44, "Print", CellGroupingRules->{GroupTogetherGrouping, 10000.}] }, Closed]] }, Open ]] } ] *) (* End of internal cache information *)