(* 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[ 37083, 1122] NotebookOptionsPosition[ 34725, 1035] NotebookOutlinePosition[ 35347, 1059] CellTagsIndexPosition[ 35304, 1056] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["\<\ Exercices - G\[EAcute]om\[EAcute]trie analytique\ \>", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"AA", "=", RowBox[{"Pt", "[", RowBox[{ RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], "]"}], ",", RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], "]"}], ",", RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"BB", "=", RowBox[{"Pt", "[", RowBox[{ RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], "]"}], ",", RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], "]"}], ",", RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"CC", "=", RowBox[{"Pt", "[", RowBox[{ RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], "]"}], ",", RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], "]"}], ",", RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"DD", "=", RowBox[{"Pt", "[", RowBox[{ RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], "]"}], ",", RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], "]"}], ",", RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Alpha]", "=", RowBox[{"Plan", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], "]"}], " ", "x"}], "+", RowBox[{ RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], "]"}], " ", "y"}], "+", RowBox[{ RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], "]"}], "z"}]}], "\[Equal]", RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Beta]", "=", RowBox[{"Plan", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], "]"}], "x"}], "+", RowBox[{ RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], "]"}], "y"}], "+", RowBox[{ RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], "]"}], "z"}]}], "\[Equal]", RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", "AA", ",", "\"\<, B:\>\"", ",", "BB", ",", "\"\<, C:\>\"", ",", "CC", ",", "\"\< et D:\>\"", ",", "DD", ",", "\"\< ainsi que les plans \[Alpha] \[Congruent] \>\"", ",", "\[Alpha]", ",", "\"\< et \[Beta] \[Congruent] \>\"", ",", "\[Beta]"}], "]"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"pi", "=", RowBox[{"Plan", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], "]"}], " ", "x"}], "+", RowBox[{ RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], "]"}], "y"}], "+", RowBox[{ RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], "]"}], " ", "z"}]}], "==", RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], "]"}]}], "]"}]}], ";"}]}], "Input", CellOpen->False, CellChangeTimes->{{3.40341893468056*^9, 3.403419067743071*^9}, { 3.403419212199375*^9, 3.4034192129460163`*^9}}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"Dans l'espace muni d'un rep\[EGrave]re orthonorm\[EAcute], on \ donne les points A:\"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox[ RowBox[{"\<\"(\"\>", "\[InvisibleSpace]", "5", "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", RowBox[{"-", "5"}], "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\")\"\>"}], SequenceForm["(", 5, " , ", -5, " , ", 3, ")"], Editable->False], TraditionalForm], "\[InvisibleSpace]", "\<\", B:\"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox[ RowBox[{"\<\"(\"\>", "\[InvisibleSpace]", RowBox[{"-", "3"}], "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\")\"\>"}], SequenceForm["(", -3, " , ", 1, " , ", 1, ")"], Editable->False], TraditionalForm], "\[InvisibleSpace]", "\<\", C:\"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox[ RowBox[{"\<\"(\"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", RowBox[{"-", "4"}], "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "0", "\[InvisibleSpace]", "\<\")\"\>"}], SequenceForm["(", 2, " , ", -4, " , ", 0, ")"], Editable->False], TraditionalForm], "\[InvisibleSpace]", "\<\" et D:\"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox[ RowBox[{"\<\"(\"\>", "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "0", "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "5", "\[InvisibleSpace]", "\<\")\"\>"}], SequenceForm["(", 4, " , ", 0, " , ", 5, ")"], Editable->False], TraditionalForm], "\[InvisibleSpace]", "\<\" ainsi que les plans \[Alpha] \[Congruent] \ \"\>", "\[InvisibleSpace]", FormBox[ RowBox[{ RowBox[{ RowBox[{"5", " ", "x"}], "-", RowBox[{"3", " ", "y"}], "-", "z"}], "\[LongEqual]", "5"}], TraditionalForm], "\[InvisibleSpace]", "\<\" et \[Beta] \[Congruent] \"\>", "\[InvisibleSpace]", FormBox[ RowBox[{ RowBox[{ RowBox[{"3", " ", "x"}], "+", RowBox[{"3", " ", "y"}], "-", "z"}], "\[LongEqual]", "0"}], TraditionalForm]}], SequenceForm[ "Dans l'espace muni d'un rep\[EGrave]re orthonorm\[EAcute], on donne les \ points A:", espace3`Pt[5, -5, 3], ", B:", espace3`Pt[-3, 1, 1], ", C:", espace3`Pt[2, -4, 0], " et D:", espace3`Pt[4, 0, 5], " ainsi que les plans \[Alpha] \[Congruent] ", espace3`Plan[5 $CellContext`x - 3 $CellContext`y - $CellContext`z == 5], " et \[Beta] \[Congruent] ", espace3`Plan[3 $CellContext`x + 3 $CellContext`y - $CellContext`z == 0]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.403418810622121*^9, 3.403419016107723*^9, 3.4034190682578583`*^9, 3.4034192142878513`*^9, 3.403419277197839*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ "Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ "Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ "Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", "pi"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ "Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]"}], "Input", CellOpen->False, CellChangeTimes->{{3.403419096113361*^9, 3.403419105682199*^9}, 3.403419205284775*^9}], Cell[CellGroupData[{ Cell[BoxData[ FormBox["\<\"a) D\[EAcute]terminer une \[EAcute]quation cart\[EAcute]sienne \ du plan ABC\"\>", TraditionalForm]], "Print", CellChangeTimes->{3.403418810713011*^9, 3.40341910888616*^9, 3.403419216378434*^9, 3.403419277281086*^9}], Cell[BoxData[ FormBox["\<\"b) D\[EAcute]terminer une \[EAcute]quation cart\[EAcute]sienne \ du plan \[Gamma] parall\[EGrave]le au plan ABC et comprenant le point D\"\>", TraditionalForm]], "Print", CellChangeTimes->{3.403418810713011*^9, 3.40341910888616*^9, 3.403419216378434*^9, 3.4034192772842827`*^9}], Cell[BoxData[ FormBox["\<\"c) D\[EAcute]terminer des \[EAcute]quations \ cart\[EAcute]siennes de la droite d orthogonale au plan \[Alpha] et passant \ par le point B\"\>", TraditionalForm]], "Print", CellChangeTimes->{3.403418810713011*^9, 3.40341910888616*^9, 3.403419216378434*^9, 3.403419277289465*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"d) D\[EAcute]terminer l'intersection entre les plans \ \[Alpha], \[Beta] et \[Pi] \[Congruent] \"\>", "\[InvisibleSpace]", FormBox[ RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", "z"}], "\[LongEqual]", RowBox[{"-", "1"}]}], TraditionalForm]}], SequenceForm[ "d) D\[EAcute]terminer l'intersection entre les plans \[Alpha], \[Beta] et \ \[Pi] \[Congruent] ", espace3`Plan[(-4) $CellContext`z == -1]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.403418810713011*^9, 3.40341910888616*^9, 3.403419216378434*^9, 3.4034192772946873`*^9}], Cell[BoxData[ FormBox["\<\"e) D\[EAcute]terminer l'intersection entre la droite BD et le \ plan \[Beta]\"\>", TraditionalForm]], "Print", CellChangeTimes->{3.403418810713011*^9, 3.40341910888616*^9, 3.403419216378434*^9, 3.403419277299754*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Solutions", "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"Plan", "[", RowBox[{"AA", ",", "BB", ",", "CC"}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"Parallele", "[", RowBox[{ RowBox[{"Plan", "[", RowBox[{"AA", ",", "BB", ",", "CC"}], "]"}], ",", "DD"}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"Simplify", "[", RowBox[{"Ortho", "[", RowBox[{"\[Alpha]", ",", "BB"}], "]"}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"Inter", "[", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "pi"}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"Inter", "[", RowBox[{ RowBox[{"Droite", "[", RowBox[{"BB", ",", "DD"}], "]"}], ",", "\[Beta]"}], "]"}]}], "]"}], ";"}]}], "Input", CellOpen->False, CellChangeTimes->{{3.403418842301174*^9, 3.403418877364423*^9}, { 3.40341913607577*^9, 3.403419191554562*^9}}], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"a) ABC \[Congruent] \"\>", "\[InvisibleSpace]", FormBox[ RowBox[{ RowBox[{ RowBox[{"8", " ", "x"}], "+", RowBox[{"9", " ", "y"}], "+", "20"}], "\[LongEqual]", RowBox[{"5", " ", "z"}]}], TraditionalForm]}], SequenceForm["a) ABC \[Congruent] ", espace3`Plan[ 20 + 8 $CellContext`x + 9 $CellContext`y == 5 $CellContext`z]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.4034188107899847`*^9, {3.4034188454281*^9, 3.4034188619902983`*^9}, { 3.4034191781731663`*^9, 3.40341919222954*^9}, 3.403419222455922*^9, 3.403419277338108*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"b) \[Gamma] \[Congruent] \"\>", "\[InvisibleSpace]", FormBox[ RowBox[{ RowBox[{ RowBox[{"8", " ", "x"}], "+", RowBox[{"9", " ", "y"}], "-", RowBox[{"5", " ", "z"}]}], "\[LongEqual]", "7"}], TraditionalForm]}], SequenceForm["b) \[Gamma] \[Congruent] ", espace3`Plan[ 8 $CellContext`x + 9 $CellContext`y - 5 $CellContext`z == 7]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.4034188107899847`*^9, {3.4034188454281*^9, 3.4034188619902983`*^9}, { 3.4034191781731663`*^9, 3.40341919222954*^9}, 3.403419222455922*^9, 3.403419277341803*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"c) d \[Congruent] \"\>", "\[InvisibleSpace]", FormBox[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"3", " ", "x"}], "+", RowBox[{"5", " ", "y"}], "+", "4"}], "\[LongEqual]", "0"}], "\[And]", RowBox[{ RowBox[{"x", "+", RowBox[{"5", " ", "z"}]}], "\[LongEqual]", "2"}]}], TraditionalForm]}], SequenceForm["c) d \[Congruent] ", espace3`Droite[ And[4 + 3 $CellContext`x + 5 $CellContext`y == 0, $CellContext`x + 5 $CellContext`z == 2]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.4034188107899847`*^9, {3.4034188454281*^9, 3.4034188619902983`*^9}, { 3.4034191781731663`*^9, 3.40341919222954*^9}, 3.403419222455922*^9, 3.4034192773466578`*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"d) \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox[ RowBox[{"\<\"(\"\>", "\[InvisibleSpace]", FractionBox["11", "16"], "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", RowBox[{"-", FractionBox["29", "48"]}], "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", FractionBox["1", "4"], "\[InvisibleSpace]", "\<\")\"\>"}], SequenceForm["(", Rational[11, 16], " , ", Rational[-29, 48], " , ", Rational[1, 4], ")"], Editable->False], TraditionalForm]}], SequenceForm["d) ", espace3`Pt[ Rational[11, 16], Rational[-29, 48], Rational[1, 4]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.4034188107899847`*^9, {3.4034188454281*^9, 3.4034188619902983`*^9}, { 3.4034191781731663`*^9, 3.40341919222954*^9}, 3.403419222455922*^9, 3.403419277364031*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"e) \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox[ RowBox[{"\<\"(\"\>", "\[InvisibleSpace]", FractionBox["1", "2"], "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", FractionBox["1", "2"], "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\")\"\>"}], SequenceForm["(", Rational[1, 2], " , ", Rational[1, 2], " , ", 3, ")"], Editable->False], TraditionalForm]}], SequenceForm["e) ", espace3`Pt[ Rational[1, 2], Rational[1, 2], 3]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.4034188107899847`*^9, {3.4034188454281*^9, 3.4034188619902983`*^9}, { 3.4034191781731663`*^9, 3.40341919222954*^9}, 3.403419222455922*^9, 3.40341927737586*^9}] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Exercices - G\[EAcute]om\[EAcute]trie analytique [2]\ \>", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"AA", "=", RowBox[{"Pt", "[", RowBox[{ RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], "]"}], ",", RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], "]"}], ",", RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"BB", "=", RowBox[{"Pt", "[", RowBox[{ RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], "]"}], ",", RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], "]"}], ",", RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"CC", "=", RowBox[{"Pt", "[", RowBox[{ RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], "]"}], ",", RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], "]"}], ",", RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"DD", "=", RowBox[{"Pt", "[", RowBox[{ RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], "]"}], ",", RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], "]"}], ",", RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Alpha]", "=", RowBox[{"Plan", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], "]"}], " ", "x"}], "+", RowBox[{ RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], "]"}], " ", "y"}], "+", RowBox[{ RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], "]"}], "z"}]}], "\[Equal]", RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Beta]", "=", RowBox[{"Plan", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], "]"}], "x"}], "+", RowBox[{ RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], "]"}], "y"}], "+", RowBox[{ RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], "]"}], "z"}]}], "\[Equal]", RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", "AA", ",", "\"\<, B:\>\"", ",", "BB", ",", "\"\<, C:\>\"", ",", "CC", ",", "\"\< et D:\>\"", ",", "DD", ",", "\"\< ainsi que les plans \[Alpha] \[Congruent] \>\"", ",", "\[Alpha]", ",", "\"\< et \[Beta] \[Congruent] \>\"", ",", "\[Beta]"}], "]"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"pi", "=", RowBox[{"Plan", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], "]"}], " ", "x"}], "+", RowBox[{ RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], "]"}], "y"}], "+", RowBox[{ RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], "]"}], " ", "z"}]}], "==", RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], "]"}]}], "]"}]}], ";"}]}], "Input", CellOpen->False, CellChangeTimes->{{3.40341893468056*^9, 3.403419067743071*^9}, { 3.403419212199375*^9, 3.4034192129460163`*^9}}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"Dans l'espace muni d'un rep\[EGrave]re orthonorm\[EAcute], on \ donne les points A:\"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox[ RowBox[{"\<\"(\"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "5", "\[InvisibleSpace]", "\<\")\"\>"}], SequenceForm["(", 2, " , ", 4, " , ", 5, ")"], Editable->False], TraditionalForm], "\[InvisibleSpace]", "\<\", B:\"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox[ RowBox[{"\<\"(\"\>", "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", RowBox[{"-", "3"}], "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\")\"\>"}], SequenceForm["(", 4, " , ", -3, " , ", 3, ")"], Editable->False], TraditionalForm], "\[InvisibleSpace]", "\<\", C:\"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox[ RowBox[{"\<\"(\"\>", "\[InvisibleSpace]", "0", "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\")\"\>"}], SequenceForm["(", 0, " , ", 1, " , ", 2, ")"], Editable->False], TraditionalForm], "\[InvisibleSpace]", "\<\" et D:\"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox[ RowBox[{"\<\"(\"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", RowBox[{"-", "4"}], "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\")\"\>"}], SequenceForm["(", 2, " , ", -4, " , ", 1, ")"], Editable->False], TraditionalForm], "\[InvisibleSpace]", "\<\" ainsi que les plans \[Alpha] \[Congruent] \ \"\>", "\[InvisibleSpace]", FormBox[ RowBox[{ RowBox[{ RowBox[{"4", " ", "x"}], "-", RowBox[{"4", " ", "y"}], "+", RowBox[{"2", " ", "z"}]}], "\[LongEqual]", RowBox[{"-", "5"}]}], TraditionalForm], "\[InvisibleSpace]", "\<\" et \[Beta] \[Congruent] \"\>", "\[InvisibleSpace]", FormBox[ RowBox[{ RowBox[{"2", " ", "z"}], "\[LongEqual]", RowBox[{"-", "1"}]}], TraditionalForm]}], SequenceForm[ "Dans l'espace muni d'un rep\[EGrave]re orthonorm\[EAcute], on donne les \ points A:", espace3`Pt[2, 4, 5], ", B:", espace3`Pt[4, -3, 3], ", C:", espace3`Pt[0, 1, 2], " et D:", espace3`Pt[2, -4, 1], " ainsi que les plans \[Alpha] \[Congruent] ", espace3`Plan[ 4 $CellContext`x - 4 $CellContext`y + 2 $CellContext`z == -5], " et \[Beta] \[Congruent] ", espace3`Plan[2 $CellContext`z == -1]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.403418810622121*^9, 3.403419016107723*^9, 3.4034190682578583`*^9, 3.4034192142878513`*^9, 3.403419277418083*^9, {3.4034193106387787`*^9, 3.4034193130646467`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ "Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ "Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ "Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", "pi"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ "Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]"}], "Input", CellOpen->False, CellChangeTimes->{{3.403419096113361*^9, 3.403419105682199*^9}, 3.403419205284775*^9}], Cell[CellGroupData[{ Cell[BoxData[ FormBox["\<\"a) D\[EAcute]terminer une \[EAcute]quation cart\[EAcute]sienne \ du plan ABC\"\>", TraditionalForm]], "Print", CellChangeTimes->{ 3.403418810713011*^9, 3.40341910888616*^9, 3.403419216378434*^9, 3.4034192774516907`*^9, {3.403419310688589*^9, 3.403419313114099*^9}}], Cell[BoxData[ FormBox["\<\"b) D\[EAcute]terminer une \[EAcute]quation cart\[EAcute]sienne \ du plan \[Gamma] parall\[EGrave]le au plan ABC et comprenant le point D\"\>", TraditionalForm]], "Print", CellChangeTimes->{ 3.403418810713011*^9, 3.40341910888616*^9, 3.403419216378434*^9, 3.4034192774516907`*^9, {3.403419310688589*^9, 3.403419313116494*^9}}], Cell[BoxData[ FormBox["\<\"c) D\[EAcute]terminer des \[EAcute]quations \ cart\[EAcute]siennes de la droite d orthogonale au plan \[Alpha] et passant \ par le point B\"\>", TraditionalForm]], "Print", CellChangeTimes->{ 3.403418810713011*^9, 3.40341910888616*^9, 3.403419216378434*^9, 3.4034192774516907`*^9, {3.403419310688589*^9, 3.4034193131209173`*^9}}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"d) D\[EAcute]terminer l'intersection entre les plans \ \[Alpha], \[Beta] et \[Pi] \[Congruent] \"\>", "\[InvisibleSpace]", FormBox[ RowBox[{ RowBox[{ RowBox[{"-", "x"}], "-", RowBox[{"3", " ", "y"}], "+", RowBox[{"3", " ", "z"}]}], "\[LongEqual]", RowBox[{"-", "3"}]}], TraditionalForm]}], SequenceForm[ "d) D\[EAcute]terminer l'intersection entre les plans \[Alpha], \[Beta] et \ \[Pi] \[Congruent] ", espace3`Plan[-$CellContext`x - 3 $CellContext`y + 3 $CellContext`z == -3]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.403418810713011*^9, 3.40341910888616*^9, 3.403419216378434*^9, 3.4034192774516907`*^9, {3.403419310688589*^9, 3.403419313125683*^9}}], Cell[BoxData[ FormBox["\<\"e) D\[EAcute]terminer l'intersection entre la droite BD et le \ plan \[Beta]\"\>", TraditionalForm]], "Print", CellChangeTimes->{ 3.403418810713011*^9, 3.40341910888616*^9, 3.403419216378434*^9, 3.4034192774516907`*^9, {3.403419310688589*^9, 3.403419313130253*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Solutions", "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"Plan", "[", RowBox[{"AA", ",", "BB", ",", "CC"}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"Parallele", "[", RowBox[{ RowBox[{"Plan", "[", RowBox[{"AA", ",", "BB", ",", "CC"}], "]"}], ",", "DD"}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"Simplify", "[", RowBox[{"Ortho", "[", RowBox[{"\[Alpha]", ",", "BB"}], "]"}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"Inter", "[", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "pi"}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"Inter", "[", RowBox[{ RowBox[{"Droite", "[", RowBox[{"BB", ",", "DD"}], "]"}], ",", "\[Beta]"}], "]"}]}], "]"}], ";"}]}], "Input", CellOpen->False, CellChangeTimes->{{3.403418842301174*^9, 3.403418877364423*^9}, { 3.40341913607577*^9, 3.403419191554562*^9}}], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"a) ABC \[Congruent] \"\>", "\[InvisibleSpace]", FormBox[ RowBox[{ RowBox[{ RowBox[{"3", " ", "x"}], "+", RowBox[{"2", " ", "y"}], "+", "6"}], "\[LongEqual]", RowBox[{"4", " ", "z"}]}], TraditionalForm]}], SequenceForm["a) ABC \[Congruent] ", espace3`Plan[ 6 + 3 $CellContext`x + 2 $CellContext`y == 4 $CellContext`z]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.4034188107899847`*^9, {3.4034188454281*^9, 3.4034188619902983`*^9}, { 3.4034191781731663`*^9, 3.40341919222954*^9}, 3.403419222455922*^9, 3.403419277512514*^9, {3.403419310751587*^9, 3.403419313175618*^9}}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"b) \[Gamma] \[Congruent] \"\>", "\[InvisibleSpace]", FormBox[ RowBox[{ RowBox[{ RowBox[{"3", " ", "x"}], "+", RowBox[{"2", " ", "y"}], "-", RowBox[{"4", " ", "z"}]}], "\[LongEqual]", RowBox[{"-", "6"}]}], TraditionalForm]}], SequenceForm["b) \[Gamma] \[Congruent] ", espace3`Plan[ 3 $CellContext`x + 2 $CellContext`y - 4 $CellContext`z == -6]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.4034188107899847`*^9, {3.4034188454281*^9, 3.4034188619902983`*^9}, { 3.4034191781731663`*^9, 3.40341919222954*^9}, 3.403419222455922*^9, 3.403419277512514*^9, {3.403419310751587*^9, 3.4034193131776857`*^9}}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"c) d \[Congruent] \"\>", "\[InvisibleSpace]", FormBox[ RowBox[{ RowBox[{ RowBox[{"x", "+", "y"}], "\[LongEqual]", "1"}], "\[And]", RowBox[{ RowBox[{"x", "+", "2"}], "\[LongEqual]", RowBox[{"2", " ", "z"}]}]}], TraditionalForm]}], SequenceForm["c) d \[Congruent] ", espace3`Droite[ And[$CellContext`x + $CellContext`y == 1, 2 + $CellContext`x == 2 $CellContext`z]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.4034188107899847`*^9, {3.4034188454281*^9, 3.4034188619902983`*^9}, { 3.4034191781731663`*^9, 3.40341919222954*^9}, 3.403419222455922*^9, 3.403419277512514*^9, {3.403419310751587*^9, 3.403419313181666*^9}}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"d) \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox[ RowBox[{"\<\"(\"\>", "\[InvisibleSpace]", RowBox[{"-", FractionBox["3", "8"]}], "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", FractionBox["5", "8"], "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", RowBox[{"-", FractionBox["1", "2"]}], "\[InvisibleSpace]", "\<\")\"\>"}], SequenceForm["(", Rational[-3, 8], " , ", Rational[5, 8], " , ", Rational[-1, 2], ")"], Editable->False], TraditionalForm]}], SequenceForm["d) ", espace3`Pt[ Rational[-3, 8], Rational[5, 8], Rational[-1, 2]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.4034188107899847`*^9, {3.4034188454281*^9, 3.4034188619902983`*^9}, { 3.4034191781731663`*^9, 3.40341919222954*^9}, 3.403419222455922*^9, 3.403419277512514*^9, {3.403419310751587*^9, 3.403419313197302*^9}}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"e) \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox[ RowBox[{"\<\"(\"\>", "\[InvisibleSpace]", FractionBox["1", "2"], "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", RowBox[{"-", FractionBox["19", "4"]}], "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", RowBox[{"-", FractionBox["1", "2"]}], "\[InvisibleSpace]", "\<\")\"\>"}], SequenceForm["(", Rational[1, 2], " , ", Rational[-19, 4], " , ", Rational[-1, 2], ")"], Editable->False], TraditionalForm]}], SequenceForm["e) ", espace3`Pt[ Rational[1, 2], Rational[-19, 4], Rational[-1, 2]]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.4034188107899847`*^9, {3.4034188454281*^9, 3.4034188619902983`*^9}, { 3.4034191781731663`*^9, 3.40341919222954*^9}, 3.403419222455922*^9, 3.403419277512514*^9, {3.403419310751587*^9, 3.403419313207776*^9}}] }, Open ]] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{810, 723}, WindowMargins->{{67, Automatic}, {Automatic, 76}}, PrintingCopies->1, PrintingPageRange->{1, Automatic}, PrintingOptions->{"FirstPageFooter"->False, "FirstPageHeader"->False, "PrintCellBrackets"->False, "PrintMultipleHorizontalPages"->False, "PrintRegistrationMarks"->True, "PrintingMargins"->{{36, 36}, {36, 36}}}, ShowSelection->True, FrontEndVersion->"6.0 for Mac OS X x86 (32-bit) (June 19, 2007)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[590, 23, 78, 2, 34, "Subsection"], Cell[CellGroupData[{ Cell[693, 29, 4911, 156, 20, "Input", CellOpen->False], Cell[5607, 187, 3111, 72, 38, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[8755, 264, 1181, 32, 20, "Input", CellOpen->False], Cell[CellGroupData[{ Cell[9961, 300, 248, 4, 20, "Print"], Cell[10212, 306, 313, 5, 22, "Print"], Cell[10528, 313, 310, 5, 22, "Print"], Cell[10841, 320, 662, 17, 22, "Print"], Cell[11506, 339, 248, 4, 22, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[11803, 349, 34, 0, 25, "Subsubsection"], Cell[CellGroupData[{ Cell[11862, 353, 1295, 38, 20, "Input", CellOpen->False], Cell[CellGroupData[{ Cell[13182, 395, 677, 18, 20, "Print"], Cell[13862, 415, 686, 18, 22, "Print"], Cell[14551, 435, 823, 23, 20, "Print"], Cell[15377, 460, 987, 28, 39, "Print"], Cell[16367, 490, 882, 24, 38, "Print"] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[17322, 522, 82, 2, 34, "Subsection"], Cell[CellGroupData[{ Cell[17429, 528, 4911, 156, 20, "Input", CellOpen->False], Cell[22343, 686, 3131, 76, 38, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[25511, 767, 1181, 32, 20, "Input", CellOpen->False], Cell[CellGroupData[{ Cell[26717, 803, 300, 5, 20, "Print"], Cell[27020, 810, 363, 6, 22, "Print"], Cell[27386, 818, 364, 6, 22, "Print"], Cell[27753, 826, 819, 21, 22, "Print"], Cell[28575, 849, 300, 5, 22, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[28924, 860, 34, 0, 25, "Subsubsection"], Cell[CellGroupData[{ Cell[28983, 864, 1295, 38, 20, "Input", CellOpen->False], Cell[CellGroupData[{ Cell[30303, 906, 721, 18, 20, "Print"], Cell[31027, 926, 757, 19, 22, "Print"], Cell[31787, 947, 783, 20, 20, "Print"], Cell[32573, 969, 1047, 29, 39, "Print"], Cell[33623, 1000, 1050, 29, 38, "Print"] }, Open ]] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)