(* 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[ 33399, 1067] NotebookOptionsPosition[ 30235, 961] NotebookOutlinePosition[ 31132, 991] CellTagsIndexPosition[ 31089, 988] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell["Exercices sur le second degr\[EAcute]", "Subtitle", ImageRegion->{{0, 1}, {0, 1}}], Cell["D\[EAcute]termination d'une parabole", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Clear", "[", RowBox[{"a", ",", "b", ",", "c"}], "]"}], ";", RowBox[{ RowBox[{"bb", "[", "1", "]"}], "=", "0"}], ";", RowBox[{ RowBox[{"cc", "[", "1", "]"}], "=", "0"}], ";"}], "\n", RowBox[{ RowBox[{"While", "[", RowBox[{ RowBox[{ RowBox[{"bb", "[", "1", "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"bb", "[", "1", "]"}], "=", RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], "]"}]}]}], "]"}], ";"}], "\n", RowBox[{ RowBox[{"While", "[", RowBox[{ RowBox[{ RowBox[{"cc", "[", "1", "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"cc", "[", "1", "]"}], "=", RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], "]"}]}]}], "]"}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"P", "[", "1", "]"}], "=", RowBox[{"y", "\[Equal]", RowBox[{ RowBox[{"a", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{ RowBox[{"bb", "[", "1", "]"}], " ", "x"}], "+", RowBox[{"cc", "[", "1", "]"}]}]}]}], ";"}], "\n", RowBox[{ RowBox[{"xa", "=", "0"}], ";"}], "\n", RowBox[{ RowBox[{"While", "[", RowBox[{ RowBox[{"xa", "\[Equal]", "0"}], ",", RowBox[{"xa", "=", RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], "]"}]}]}], "]"}], ";"}], "\n", RowBox[{ RowBox[{"ya", "=", RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"pa", "=", RowBox[{"{", RowBox[{"xa", ",", "ya"}], "}"}]}], ";"}], "\n", RowBox[{"Print", "[", RowBox[{"\"\<1. On donne la parabole P \[Congruent] \>\"", ",", RowBox[{ RowBox[{"P", "[", "1", "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ",", "\"\< = \>\"", ",", RowBox[{ RowBox[{"P", "[", "1", "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], "]"}], "\n", RowBox[{"Print", "[", "\"\\"", "]"}], "\n", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"pa", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ",", "\"\< , \>\"", ",", RowBox[{"pa", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], ",", "\"\<) appartienne \[AGrave] la parabole\>\""}], "]"}]}], "Input", CellOpen->False], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"1. On donne la parabole P \[Congruent] \"\>", "\[InvisibleSpace]", "y", "\[InvisibleSpace]", "\<\" = \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{"a", " ", SuperscriptBox["x", "2"]}], "-", "x", "-", "1"}]}], SequenceForm[ "1. On donne la parabole P \[Congruent] ", $CellContext`y, " = ", -1 - $CellContext`x + $CellContext`a $CellContext`x^2], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.401798849949893*^9}], Cell[BoxData[ FormBox["\<\"D\[EAcute]terminer a pour que \"\>", TraditionalForm]], "Print",\ CellChangeTimes->{3.401798849975791*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"a) le point A : (\"\>", "\[InvisibleSpace]", "5", "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", RowBox[{"-", "4"}], "\[InvisibleSpace]", "\<\") appartienne \[AGrave] la parabole\"\>"}], SequenceForm[ "a) le point A : (", 5, " , ", -4, ") appartienne \[AGrave] la parabole"], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.401798849977994*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"abscisse", "[", "1", "]"}], "=", FractionBox[ RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", "10"}], "}"}], "]"}], RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{"1", ",", "5"}], "}"}], "]"}]]}], ";"}], "\n", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"abscisse", "[", "1", "]"}]}], "]"}]}], "Input", CellOpen->False], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"b) l'abscisse du sommet soit \"\>", "\[InvisibleSpace]", "1"}], SequenceForm["b) l'abscisse du sommet soit ", 1], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.40179885008387*^9}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ord", "[", "1", "]"}], "=", FractionBox[ RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "15"}], ",", "15"}], "}"}], "]"}], RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{"1", ",", "15"}], "}"}], "]"}]]}], ";"}], "\n", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"ord", "[", "1", "]"}]}], "]"}]}], "Input", CellOpen->False, ImageRegion->{{0, 1}, {0, 1}}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"c) l'ordonn\[EAcute]e du sommet soit \"\>", "\[InvisibleSpace]", RowBox[{"-", FractionBox["15", "14"]}]}], SequenceForm["c) l'ordonn\[EAcute]e du sommet soit ", Rational[-15, 14]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.401798850117989*^9}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Clear", "[", RowBox[{"a", ",", "b", ",", "c"}], "]"}], ";", RowBox[{ RowBox[{"aa", "[", "4", "]"}], "=", "0"}], ";"}], "\n", RowBox[{ RowBox[{"While", "[", RowBox[{ RowBox[{ RowBox[{"aa", "[", "4", "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"aa", "[", "4", "]"}], "=", RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "2"}], "}"}], "]"}]}]}], "]"}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"P", "[", "2", "]"}], "=", RowBox[{"y", "\[Equal]", RowBox[{ RowBox[{ RowBox[{"aa", "[", "4", "]"}], " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"b", " ", "x"}], "+", "c"}]}]}], ";"}], "\n", RowBox[{ RowBox[{"xb", "=", RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"yb", "=", RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"pb", "=", RowBox[{"{", RowBox[{"xb", ",", "yb"}], "}"}]}], ";"}], "\n", RowBox[{ RowBox[{"xc", "=", RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"yc", "=", RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"pc", "=", RowBox[{"{", RowBox[{"xc", ",", "yc"}], "}"}]}], ";"}], "\n", RowBox[{"Print", "[", RowBox[{"\"\<2. On donne la parabole P \[Congruent] \>\"", ",", RowBox[{ RowBox[{"P", "[", "2", "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ",", "\"\< = \>\"", ",", RowBox[{ RowBox[{"P", "[", "2", "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], "]"}], "\n", RowBox[{"Print", "[", "\"\\"", "]"}], "\n", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"pb", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ",", "\"\< , \>\"", ",", RowBox[{"pb", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], ",", "\"\<) et le point C : (\>\"", ",", RowBox[{"pc", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ",", "\"\< , \>\"", ",", RowBox[{"pc", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], ",", "\"\<) appartiennent \[AGrave] la parabole\>\""}], "]"}]}], "Input", CellOpen->False], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"2. On donne la parabole P \[Congruent] \"\>", "\[InvisibleSpace]", "y", "\[InvisibleSpace]", "\<\" = \"\>", "\[InvisibleSpace]", RowBox[{ SuperscriptBox["x", "2"], "+", RowBox[{"b", " ", "x"}], "+", "c"}]}], SequenceForm[ "2. On donne la parabole P \[Congruent] ", $CellContext`y, " = ", $CellContext`c + $CellContext`b $CellContext`x + $CellContext`x^2], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.401798850152277*^9}], Cell[BoxData[ FormBox["\<\"D\[EAcute]terminer b et c pour que \"\>", TraditionalForm]], "Print", CellChangeTimes->{3.401798850154769*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"a) le point B : (\"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "0", "\[InvisibleSpace]", "\<\") et le point C : (\"\>", "\[InvisibleSpace]", RowBox[{"-", "1"}], "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", RowBox[{"-", "3"}], "\[InvisibleSpace]", "\<\") appartiennent \[AGrave] la parabole\"\>"}], SequenceForm[ "a) le point B : (", 1, " , ", 0, ") et le point C : (", -1, " , ", -3, ") appartiennent \[AGrave] la parabole"], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.4017988501568747`*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"abscisse", "[", "5", "]"}], "=", FractionBox[ RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", "10"}], "}"}], "]"}], RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{"1", ",", "5"}], "}"}], "]"}]]}], ";"}], "\n", RowBox[{ RowBox[{"xd", "=", RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"yd", "=", RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"pd", "=", RowBox[{"{", RowBox[{"xd", ",", "yd"}], "}"}]}], ";"}], "\n", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"abscisse", "[", "5", "]"}], ",", "\"\< et le point D : (\>\"", ",", RowBox[{"pd", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ",", "\"\< , \>\"", ",", RowBox[{"pd", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], ",", "\"\<) appartienne \[AGrave] la parabole\>\""}], "]"}]}], "Input", CellOpen->False], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"b) l'abscisse du sommet soit \"\>", "\[InvisibleSpace]", RowBox[{"-", FractionBox["3", "2"]}], "\[InvisibleSpace]", "\<\" et le point D : (\"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\") appartienne \[AGrave] la parabole\"\>"}], SequenceForm["b) l'abscisse du sommet soit ", Rational[-3, 2], " et le point D : (", 1, " , ", 4, ") appartienne \[AGrave] la parabole"], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.4017988501849194`*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"xe", "=", RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"ye", "=", RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"pe", "=", RowBox[{"{", RowBox[{"xe", ",", "ye"}], "}"}]}], ";"}], "\n", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"pe", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ",", "\"\< , \>\"", ",", RowBox[{"pe", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], ",", "\"\<) est le sommet\>\""}], "]"}]}], "Input", CellOpen->False], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"c) le point E : (\"\>", "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", RowBox[{"-", "1"}], "\[InvisibleSpace]", "\<\") est le sommet\"\>"}], SequenceForm["c) le point E : (", 4, " , ", -1, ") est le sommet"], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.401798850221417*^9}], Cell[CellGroupData[{ Cell["\<\ Solutions 1.\ \>", "Text", CellChangeTimes->{{3.4017988116924467`*^9, 3.40179881283457*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"sol", "[", "1", "]"}], "=", RowBox[{ RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{"P", "[", "1", "]"}], ",", "a"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "/.", "\[InvisibleSpace]", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", "xa"}], ",", RowBox[{"y", "\[Rule]", "ya"}]}], "}"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"aa", "[", "1", "]"}], "=", RowBox[{"a", " ", "/.", RowBox[{"sol", "[", "1", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"aa", "[", "1", "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"P", "[", "1", "]"}], "/.", RowBox[{"sol", "[", "1", "]"}]}], ";", RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", RowBox[{ RowBox[{"P", "[", "1", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", "\"\< = \>\"", ",", RowBox[{ RowBox[{ RowBox[{"P", "[", "1", "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "/.", RowBox[{"sol", "[", "1", "]"}]}]}], "]"}]}]}], "Input", CellOpen->False, ImageRegion->{{0, 1}, {0, 1}}], Cell[BoxData[ FormBox["\<\"a)\"\>", TraditionalForm]], "Print", CellChangeTimes->{3.401798850253016*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"a = \"\>", "\[InvisibleSpace]", FractionBox["2", "25"]}], SequenceForm["a = ", Rational[2, 25]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.401798850329707*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"La parabole a donc pour \[EAcute]quation P \[Congruent] \"\>", "\[InvisibleSpace]", "y", "\[InvisibleSpace]", "\<\" = \"\>", "\[InvisibleSpace]", RowBox[{ FractionBox[ RowBox[{"2", " ", SuperscriptBox["x", "2"]}], "25"], "-", "x", "-", "1"}]}], SequenceForm[ "La parabole a donc pour \[EAcute]quation P \[Congruent] ", $CellContext`y, " = ", -1 - $CellContext`x + Rational[2, 25] $CellContext`x^2], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.4017988503317947`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"sol", "[", "2", "]"}], "=", RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"bb", "[", "1", "]"}]}], "/", RowBox[{"(", RowBox[{"2", "a"}], ")"}]}], "==", RowBox[{"abscisse", "[", "1", "]"}]}], ",", "a"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"aa", "[", "2", "]"}], "=", RowBox[{"a", " ", "/.", RowBox[{"sol", "[", "2", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"aa", "[", "2", "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"P", "[", "1", "]"}], "/.", RowBox[{"sol", "[", "2", "]"}]}], ";", RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", RowBox[{ RowBox[{"P", "[", "1", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", "\"\< = \>\"", ",", RowBox[{ RowBox[{ RowBox[{"P", "[", "1", "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "/.", RowBox[{"sol", "[", "2", "]"}]}]}], "]"}]}]}], "Input", CellOpen->False, ImageRegion->{{0, 1}, {0, 1}}], Cell[BoxData[ FormBox["\<\"b)\"\>", TraditionalForm]], "Print", CellChangeTimes->{3.401798850369219*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"a = \"\>", "\[InvisibleSpace]", FractionBox["1", "2"]}], SequenceForm["a = ", Rational[1, 2]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.401798850393792*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"La parabole a donc pour \[EAcute]quation P \[Congruent] \"\>", "\[InvisibleSpace]", "y", "\[InvisibleSpace]", "\<\" = \"\>", "\[InvisibleSpace]", RowBox[{ FractionBox[ SuperscriptBox["x", "2"], "2"], "-", "x", "-", "1"}]}], SequenceForm[ "La parabole a donc pour \[EAcute]quation P \[Congruent] ", $CellContext`y, " = ", -1 - $CellContext`x + Rational[1, 2] $CellContext`x^2], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.401798850410454*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"sol", "[", "3", "]"}], "=", RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"bb", "[", "1", "]"}], "2"]}], "+", RowBox[{"4", " ", "a", " ", RowBox[{"cc", "[", "1", "]"}]}]}], "==", RowBox[{"4", " ", "a", " ", RowBox[{"ord", "[", "1", "]"}]}]}], ",", "a"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"aa", "[", "3", "]"}], "=", RowBox[{"a", " ", "/.", RowBox[{"sol", "[", "3", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"aa", "[", "3", "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"P", "[", "1", "]"}], "/.", RowBox[{"sol", "[", "3", "]"}]}], ";", RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", RowBox[{ RowBox[{"P", "[", "1", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", "\"\< = \>\"", ",", RowBox[{ RowBox[{ RowBox[{"P", "[", "1", "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "/.", RowBox[{"sol", "[", "3", "]"}]}]}], "]"}]}]}], "Input", CellOpen->False, ImageRegion->{{0, 1}, {0, 1}}], Cell[BoxData[ FormBox["\<\"c)\"\>", TraditionalForm]], "Print", CellChangeTimes->{3.4017988504532337`*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"a = \"\>", "\[InvisibleSpace]", FractionBox["7", "2"]}], SequenceForm["a = ", Rational[7, 2]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.4017988504767*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"La parabole a donc pour \[EAcute]quation P \[Congruent] \"\>", "\[InvisibleSpace]", "y", "\[InvisibleSpace]", "\<\" = \"\>", "\[InvisibleSpace]", RowBox[{ FractionBox[ RowBox[{"7", " ", SuperscriptBox["x", "2"]}], "2"], "-", "x", "-", "1"}]}], SequenceForm[ "La parabole a donc pour \[EAcute]quation P \[Congruent] ", $CellContext`y, " = ", -1 - $CellContext`x + Rational[7, 2] $CellContext`x^2], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.4017988504935703`*^9}] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["2.", "Text", CellChangeTimes->{{3.401798856900326*^9, 3.401798891218672*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"sol", "[", "4", "]"}], "=", RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"P", "[", "2", "]"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", "xb"}], ",", RowBox[{"y", "\[Rule]", "yb"}]}], "}"}]}], ",", RowBox[{ RowBox[{"P", "[", "2", "]"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", "xc"}], ",", RowBox[{"y", "\[Rule]", "yc"}]}], "}"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"b", ",", "c"}], "}"}]}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"bb", "[", "4", "]"}], "=", RowBox[{"b", "/.", RowBox[{"sol", "[", "4", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"cc", "[", "4", "]"}], "=", RowBox[{"c", "/.", RowBox[{"sol", "[", "4", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"bb", "[", "4", "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"cc", "[", "4", "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"P", "[", "2", "]"}], "/.", RowBox[{"sol", "[", "4", "]"}]}], ";", RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", RowBox[{ RowBox[{"P", "[", "2", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", "\"\< = \>\"", ",", RowBox[{ RowBox[{ RowBox[{"P", "[", "2", "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "/.", RowBox[{"sol", "[", "4", "]"}]}]}], "]"}]}]}], "Input", CellOpen->False], Cell[BoxData[ FormBox["\<\"a)\"\>", TraditionalForm]], "Print", CellChangeTimes->{3.401798850535838*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"b = \"\>", "\[InvisibleSpace]", FractionBox["3", "2"]}], SequenceForm["b = ", Rational[3, 2]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.401798850561283*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"c = \"\>", "\[InvisibleSpace]", RowBox[{"-", FractionBox["5", "2"]}]}], SequenceForm["c = ", Rational[-5, 2]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.401798850581521*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"La parabole a donc pour \[EAcute]quation P \[Congruent] \"\>", "\[InvisibleSpace]", "y", "\[InvisibleSpace]", "\<\" = \"\>", "\[InvisibleSpace]", RowBox[{ SuperscriptBox["x", "2"], "+", FractionBox[ RowBox[{"3", " ", "x"}], "2"], "-", FractionBox["5", "2"]}]}], SequenceForm[ "La parabole a donc pour \[EAcute]quation P \[Congruent] ", $CellContext`y, " = ", Rational[-5, 2] + Rational[3, 2] $CellContext`x + $CellContext`x^2], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.401798850610186*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"sol", "[", "5", "]"}], "=", RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "b"}], "/", RowBox[{"(", RowBox[{"2", RowBox[{"aa", "[", "4", "]"}]}], ")"}]}], "==", RowBox[{"abscisse", "[", "5", "]"}]}], ",", RowBox[{ RowBox[{"P", "[", "2", "]"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", "xd"}], ",", RowBox[{"y", "\[Rule]", "yd"}]}], "}"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"b", ",", "c"}], "}"}]}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"bb", "[", "5", "]"}], "=", RowBox[{"b", " ", "/.", RowBox[{"sol", "[", "5", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"cc", "[", "5", "]"}], "=", RowBox[{"c", " ", "/.", RowBox[{"sol", "[", "5", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"bb", "[", "5", "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"cc", "[", "5", "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"P", "[", "2", "]"}], "/.", RowBox[{"sol", "[", "5", "]"}]}], ";", RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", RowBox[{ RowBox[{"P", "[", "2", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", "\"\< = \>\"", ",", RowBox[{ RowBox[{ RowBox[{"P", "[", "2", "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "/.", RowBox[{"sol", "[", "5", "]"}]}]}], "]"}]}]}], "Input", CellOpen->False], Cell[BoxData[ FormBox["\<\"b)\"\>", TraditionalForm]], "Print", CellChangeTimes->{3.401798850653864*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"b = \"\>", "\[InvisibleSpace]", "3"}], SequenceForm["b = ", 3], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.401798850676386*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"c = \"\>", "\[InvisibleSpace]", "0"}], SequenceForm["c = ", 0], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.401798850692943*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"La parabole a donc pour \[EAcute]quation P \[Congruent] \"\>", "\[InvisibleSpace]", "y", "\[InvisibleSpace]", "\<\" = \"\>", "\[InvisibleSpace]", RowBox[{ SuperscriptBox["x", "2"], "+", RowBox[{"3", " ", "x"}]}]}], SequenceForm[ "La parabole a donc pour \[EAcute]quation P \[Congruent] ", $CellContext`y, " = ", 3 $CellContext`x + $CellContext`x^2], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.401798850714672*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"sol", "[", "6", "]"}], "=", RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "b"}], "/", RowBox[{"(", RowBox[{"2", RowBox[{"aa", "[", "4", "]"}]}], ")"}]}], "\[Equal]", "xe"}], " ", ",", RowBox[{ RowBox[{"P", "[", "2", "]"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", "xe"}], ",", RowBox[{"y", "\[Rule]", "ye"}]}], "}"}]}]}], "}"}], " ", ",", RowBox[{"{", RowBox[{"b", ",", "c"}], "}"}]}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"bb", "[", "6", "]"}], "=", RowBox[{"b", " ", "/.", RowBox[{"sol", "[", "6", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"cc", "[", "6", "]"}], "=", RowBox[{"c", " ", "/.", RowBox[{"sol", "[", "6", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"bb", "[", "6", "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"cc", "[", "6", "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"P", "[", "2", "]"}], "/.", RowBox[{"sol", "[", "6", "]"}]}], ";", RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", RowBox[{ RowBox[{"P", "[", "2", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", "\"\< = \>\"", ",", RowBox[{ RowBox[{ RowBox[{"P", "[", "2", "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "/.", RowBox[{"sol", "[", "6", "]"}]}]}], "]"}]}]}], "Input", CellOpen->False, ImageRegion->{{0, 1}, {0, 1}}], Cell[BoxData[ FormBox["\<\"c)\"\>", TraditionalForm]], "Print", CellChangeTimes->{3.4017988507851048`*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"b = \"\>", "\[InvisibleSpace]", RowBox[{"-", "8"}]}], SequenceForm["b = ", -8], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.401798850822545*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"c = \"\>", "\[InvisibleSpace]", "15"}], SequenceForm["c = ", 15], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.4017988508511*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"La parabole a donc pour \[EAcute]quation P \[Congruent] \"\>", "\[InvisibleSpace]", "y", "\[InvisibleSpace]", "\<\" = \"\>", "\[InvisibleSpace]", RowBox[{ SuperscriptBox["x", "2"], "-", RowBox[{"8", " ", "x"}], "+", "15"}]}], SequenceForm[ "La parabole a donc pour \[EAcute]quation P \[Congruent] ", $CellContext`y, " = ", 15 - 8 $CellContext`x + $CellContext`x^2], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.401798850884797*^9}] }, Open ]] }, Closed]] }, WindowToolbars->{}, CellGrouping->Manual, WindowSize->{602, 654}, WindowMargins->{{367, Automatic}, {Automatic, 36}}, PrintingCopies->1, PrintingPageRange->{1, Automatic}, PrivateNotebookOptions->{"ColorPalette"->{RGBColor, -1}}, ShowCellLabel->True, CellLabelAutoDelete->True, ShowCellTags->False, RenderingOptions->{"ObjectDithering"->True, "RasterDithering"->False}, MacintoshSystemPageSetup -> \ "00<0004/0B`000003;H8`_n3ohL==`Tf0fL5N`?P0080004/0B`000000]P2:001\n\ 0000I00000000`<30?l00BL?00400@V^C40000000000OV0801T1T000000P0000\n\ 00000000004000V^C=00000000800000", FrontEndVersion->"6.0 for Mac OS X x86 (32-bit) (June 19, 2007)", StyleDefinitions->FrontEnd`FileName[{"Article"}, "Modele.nb", CharacterEncoding -> "UTF-8"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[568, 21, 89, 1, 46, "Subtitle"], Cell[660, 24, 58, 0, 37, "Subsection"], Cell[CellGroupData[{ Cell[743, 28, 2542, 80, 19, "Input", CellOpen->False], Cell[3288, 110, 533, 13, 23, "Print"], Cell[3824, 125, 136, 3, 20, "Print"], Cell[3963, 130, 458, 10, 20, "Print"] }, Open ]], Cell[4436, 143, 497, 15, 19, "Input", CellOpen->False], Cell[4936, 160, 272, 7, 20, "Print"], Cell[5211, 169, 528, 16, 19, "Input", CellOpen->False], Cell[5742, 187, 356, 10, 38, "Print"], Cell[CellGroupData[{ Cell[6123, 201, 2627, 79, 19, "Input", CellOpen->False], Cell[8753, 282, 548, 14, 23, "Print"], Cell[9304, 298, 142, 3, 20, "Print"], Cell[9449, 303, 676, 14, 20, "Print"] }, Open ]], Cell[10140, 320, 1209, 36, 20, "Input", CellOpen->False], Cell[11352, 358, 634, 13, 38, "Print"], Cell[11989, 373, 769, 23, 20, "Input", CellOpen->False], Cell[12761, 398, 411, 8, 20, "Print"], Cell[CellGroupData[{ Cell[13197, 410, 103, 4, 35, "Text"], Cell[CellGroupData[{ Cell[13325, 418, 1387, 42, 20, "Input", CellOpen->False], Cell[14715, 462, 106, 2, 20, "Print"], Cell[14824, 466, 261, 8, 39, "Print"], Cell[15088, 476, 597, 14, 43, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[15722, 495, 1390, 42, 20, "Input", CellOpen->False], Cell[17115, 539, 106, 2, 20, "Print"], Cell[17224, 543, 259, 8, 38, "Print"], Cell[17486, 553, 565, 13, 42, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[18088, 571, 1477, 44, 20, "Input", CellOpen->False], Cell[19568, 617, 108, 2, 20, "Print"], Cell[19679, 621, 257, 8, 38, "Print"], Cell[19939, 631, 595, 14, 42, "Print"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[20583, 651, 84, 1, 20, "Text"], Cell[CellGroupData[{ Cell[20692, 656, 1937, 58, 20, "Input", CellOpen->False], Cell[22632, 716, 106, 2, 20, "Print"], Cell[22741, 720, 259, 8, 38, "Print"], Cell[23003, 730, 281, 9, 38, "Print"], Cell[23287, 741, 633, 16, 38, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[23957, 762, 1987, 59, 20, "Input", CellOpen->False], Cell[25947, 823, 106, 2, 20, "Print"], Cell[26056, 827, 218, 6, 20, "Print"], Cell[26277, 835, 218, 6, 20, "Print"], Cell[26498, 843, 538, 13, 23, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[27073, 861, 2003, 60, 20, "Input", CellOpen->False], Cell[29079, 923, 108, 2, 20, "Print"], Cell[29190, 927, 239, 7, 20, "Print"], Cell[29432, 936, 218, 6, 20, "Print"], Cell[29653, 944, 554, 13, 23, "Print"] }, Open ]] }, Closed]] } ] *) (* End of internal cache information *)