(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 7.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 15175, 476] NotebookOptionsPosition[ 13390, 403] NotebookOutlinePosition[ 13787, 420] CellTagsIndexPosition[ 13744, 417] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["\<\ D\[EAcute]terminer des \[EAcute]quations vectorielle, param\[EAcute]triques \ et cart\[EAcute]sienne d'un plan.\ \>", "Section", CellChangeTimes->{{3.466916282901307*^9, 3.4669163096837797`*^9}}], Cell[CellGroupData[{ Cell["Exemple 1", "Titre2", CellChangeTimes->{{3.466916347501809*^9, 3.4669163502527246`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"PA", "=", RowBox[{"Pt", "[", RowBox[{ RowBox[{"-", "1"}], ",", "3", ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"PB", "=", RowBox[{"Pt", "[", RowBox[{"2", ",", "1", ",", RowBox[{"-", "1"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"PC", "=", RowBox[{"Pt", "[", RowBox[{"0", ",", "2", ",", "1"}], "]"}]}], ";", RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", "PA", ",", "\"\<, B: \>\"", ",", "PB", ",", "\"\<, et C: \>\"", ",", "PC", ",", "\"\<.\>\""}], "]"}]}]}], "Input", CellChangeTimes->{{3.4669159944685297`*^9, 3.466916047385055*^9}, { 3.466916270007867*^9, 3.466916274646572*^9}}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"On consid\[EGrave]re le plan ABC comprenant les points A: \ \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox[ RowBox[{"\<\"(\"\>", "\[InvisibleSpace]", RowBox[{"-", "1"}], "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\")\"\>"}], SequenceForm["(", -1, " , ", 3, " , ", 1, ")"], Editable->False], TraditionalForm], "\[InvisibleSpace]", "\<\", B: \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox[ RowBox[{"\<\"(\"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", RowBox[{"-", "1"}], "\[InvisibleSpace]", "\<\")\"\>"}], SequenceForm["(", 2, " , ", 1, " , ", -1, ")"], Editable->False], TraditionalForm], "\[InvisibleSpace]", "\<\", et C: \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox[ RowBox[{"\<\"(\"\>", "\[InvisibleSpace]", "0", "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\")\"\>"}], SequenceForm["(", 0, " , ", 2, " , ", 1, ")"], Editable->False], TraditionalForm], "\[InvisibleSpace]", "\<\".\"\>"}], SequenceForm[ "On consid\[EGrave]re le plan ABC comprenant les points A: ", geoespace`Pt[-1, 3, 1], ", B: ", geoespace`Pt[2, 1, -1], ", et C: ", geoespace`Pt[0, 2, 1], "."], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.466916037645266*^9, 3.4669160480823*^9}, 3.466916192861251*^9, {3.466916270900175*^9, 3.466916275205336*^9}}] }, {2}]], Cell[CellGroupData[{ Cell["Equation vectorielle", "Titre3", CellChangeTimes->{{3.466915983783053*^9, 3.46691598842879*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"EquationVectorielle", "[", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\\""}], "]"}]], "Input", CellChangeTimes->{{3.4667692949691057`*^9, 3.466769315934443*^9}, { 3.466915434020732*^9, 3.466915437347548*^9}}], Cell[BoxData[ FormBox[ RowBox[{ OverscriptBox["\<\"m\"\>", "\[RightVector]"], "\[LongEqual]", RowBox[{ OverscriptBox["\<\"a\"\>", "\[RightVector]"], "+", RowBox[{"k", " ", OverscriptBox["\<\"AB\"\>", "\[RightVector]"]}], "+", RowBox[{"l", " ", OverscriptBox["\<\"AC\"\>", "\[RightVector]"]}]}]}], TraditionalForm]], "Output", CellChangeTimes->{3.466916201234723*^9}] }, {2}]] }, Open ]], Cell[CellGroupData[{ Cell["Equations param\[EAcute]triques", "Titre3", CellChangeTimes->{{3.466916231962229*^9, 3.466916238649979*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"EquationsParametriques", "[", RowBox[{"PA", ",", "PB", ",", "PC"}], "]"}]], "Input", CellChangeTimes->{{3.466769355356214*^9, 3.466769366550818*^9}, 3.466916218818173*^9, {3.466916433887519*^9, 3.4669164373433237`*^9}}], Cell[BoxData[ FormBox[ RowBox[{"\[Piecewise]", GridBox[{ { RowBox[{"x", "\[LongEqual]", RowBox[{ RowBox[{"3", " ", "k"}], "+", "l", "-", "1"}]}], "\<\"(1)\"\>"}, { RowBox[{"y", "\[LongEqual]", RowBox[{ RowBox[{"-", RowBox[{"2", " ", "k"}]}], "-", "l", "+", "3"}]}], "\<\"(2)\"\>"}, { RowBox[{"z", "\[LongEqual]", RowBox[{"1", "-", RowBox[{"2", " ", "k"}]}]}], "\<\"(3)\"\>"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.84]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}]}], TraditionalForm]], "Output", GeneratedCell->False, CellAutoOverwrite->False, CellChangeTimes->{ 3.4667693672889442`*^9, 3.466915453585711*^9, {3.466916218819849*^9, 3.466916222059292*^9}, 3.4669164376484222`*^9}] }, {2}]] }, Open ]], Cell[CellGroupData[{ Cell["Equation cart\[EAcute]sienne", "Titre3", CellChangeTimes->{{3.4669162490197372`*^9, 3.466916252122231*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ABC", "=", RowBox[{"Plan", "[", RowBox[{"PA", ",", "PB", ",", "PC"}], "]"}]}]], "Input", CellChangeTimes->{{3.466769207885524*^9, 3.4667692229879017`*^9}, { 3.466916474177746*^9, 3.4669164813363132`*^9}}], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"2", " ", "x"}], "+", RowBox[{"2", " ", "y"}], "+", "z"}], "\[LongEqual]", "5"}], TraditionalForm]], "Output", CellChangeTimes->{3.466769223740185*^9, 3.4669162440033693`*^9, 3.466916481799643*^9}] }, {2}]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Exemple 2", "Titre2", CellChangeTimes->{{3.466916355373996*^9, 3.466916357076415*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"PD", "=", RowBox[{"Pt", "[", RowBox[{"3", ",", "0", ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"PE", "=", RowBox[{"Pt", "[", RowBox[{"2", ",", RowBox[{"-", "2"}], ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"PF", "=", RowBox[{"Pt", "[", RowBox[{"1", ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "3"}]}], "]"}]}], ";", RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", "PD", ",", "\"\<, E: \>\"", ",", "PE", ",", "\"\<, et F: \>\"", ",", "PF", ",", "\"\<.\>\""}], "]"}]}]}], "Input", CellChangeTimes->{{3.4669159944685297`*^9, 3.466916047385055*^9}, { 3.466916270007867*^9, 3.466916274646572*^9}, {3.466916368883608*^9, 3.4669163966178617`*^9}, {3.466916544567232*^9, 3.46691656423704*^9}}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"On consid\[EGrave]re le plan DEF comprenant les points D: \ \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox[ RowBox[{"\<\"(\"\>", "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "0", "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\")\"\>"}], SequenceForm["(", 3, " , ", 0, " , ", 1, ")"], Editable->False], TraditionalForm], "\[InvisibleSpace]", "\<\", E: \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox[ RowBox[{"\<\"(\"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", RowBox[{"-", "2"}], "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\")\"\>"}], SequenceForm["(", 2, " , ", -2, " , ", 1, ")"], Editable->False], TraditionalForm], "\[InvisibleSpace]", "\<\", et F: \"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox[ RowBox[{"\<\"(\"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", RowBox[{"-", "1"}], "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", RowBox[{"-", "3"}], "\[InvisibleSpace]", "\<\")\"\>"}], SequenceForm["(", 1, " , ", -1, " , ", -3, ")"], Editable->False], TraditionalForm], "\[InvisibleSpace]", "\<\".\"\>"}], SequenceForm[ "On consid\[EGrave]re le plan DEF comprenant les points D: ", geoespace`Pt[3, 0, 1], ", E: ", geoespace`Pt[2, -2, 1], ", et F: ", geoespace`Pt[1, -1, -3], "."], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.466916037645266*^9, 3.4669160480823*^9}, 3.466916192861251*^9, {3.466916270900175*^9, 3.466916275205336*^9}, 3.4669163973827343`*^9, 3.466916565322466*^9, 3.4669187492844753`*^9}] }, {2}]], Cell[CellGroupData[{ Cell["Equation vectorielle", "Titre3", CellChangeTimes->{{3.466915983783053*^9, 3.46691598842879*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"EquationVectorielle", "[", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\\""}], "]"}]], "Input", CellChangeTimes->{{3.4667692949691057`*^9, 3.466769315934443*^9}, { 3.466915434020732*^9, 3.466915437347548*^9}, {3.466916409057166*^9, 3.466916412383593*^9}}], Cell[BoxData[ FormBox[ RowBox[{ OverscriptBox["\<\"m\"\>", "\[RightVector]"], "\[LongEqual]", RowBox[{ OverscriptBox["\<\"d\"\>", "\[RightVector]"], "+", RowBox[{"k", " ", OverscriptBox["\<\"DE\"\>", "\[RightVector]"]}], "+", RowBox[{"l", " ", OverscriptBox["\<\"DF\"\>", "\[RightVector]"]}]}]}], TraditionalForm]], "Output", CellChangeTimes->{ 3.466916201234723*^9, {3.466916405460306*^9, 3.466916413330888*^9}, 3.466916572116798*^9, 3.466918749365776*^9}] }, {2}]] }, Open ]], Cell[CellGroupData[{ Cell["Equations param\[EAcute]triques", "Titre3", CellChangeTimes->{{3.466916231962229*^9, 3.466916238649979*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"EquationsParametriques", "[", RowBox[{"PD", ",", "PE", ",", "PF"}], "]"}]], "Input", CellChangeTimes->{{3.466769355356214*^9, 3.466769366550818*^9}, 3.466916218818173*^9, {3.466916426561182*^9, 3.466916455863907*^9}, { 3.4669165261008253`*^9, 3.4669165281133537`*^9}}], Cell[BoxData[ FormBox[ RowBox[{"\[Piecewise]", GridBox[{ { RowBox[{"x", "\[LongEqual]", RowBox[{ RowBox[{"-", "k"}], "-", RowBox[{"2", " ", "l"}], "+", "3"}]}], "\<\"(1)\"\>"}, { RowBox[{"y", "\[LongEqual]", RowBox[{ RowBox[{"-", RowBox[{"2", " ", "k"}]}], "-", "l"}]}], "\<\"(2)\"\>"}, { RowBox[{"z", "\[LongEqual]", RowBox[{"1", "-", RowBox[{"4", " ", "l"}]}]}], "\<\"(3)\"\>"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.84]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}]}], TraditionalForm]], "Output", GeneratedCell->False, CellAutoOverwrite->False, CellChangeTimes->{ 3.4667693672889442`*^9, 3.466915453585711*^9, {3.466916218819849*^9, 3.466916222059292*^9}, 3.4669164194277782`*^9, 3.466916456461447*^9, 3.4669165285516577`*^9, 3.466916574894393*^9, 3.4669187494202013`*^9}] }, {2}]] }, Open ]], Cell[CellGroupData[{ Cell["Equation cart\[EAcute]sienne", "Titre3", CellChangeTimes->{{3.4669162490197372`*^9, 3.466916252122231*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CDE", "=", RowBox[{"Plan", "[", RowBox[{"PD", ",", "PE", ",", "PF"}], "]"}]}]], "Input", CellChangeTimes->{{3.466769207885524*^9, 3.4667692229879017`*^9}, { 3.4669164874511547`*^9, 3.46691650945685*^9}}], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"8", " ", "x"}], "-", RowBox[{"4", " ", "y"}], "-", RowBox[{"3", " ", "z"}]}], "\[LongEqual]", "21"}], TraditionalForm]], "Output", CellChangeTimes->{ 3.466769223740185*^9, 3.4669162440033693`*^9, {3.466916461582242*^9, 3.466916509804394*^9}, 3.466918749492877*^9}] }, {2}]] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{722, 757}, WindowMargins->{{450, Automatic}, {Automatic, 65}}, PrintingCopies->1, PrintingPageRange->{1, Automatic}, FrontEndVersion->"7.0 for Mac OS X x86 (32-bit) (February 18, 2009)", StyleDefinitions->"stylemath.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[567, 22, 206, 4, 44, "Section"], Cell[CellGroupData[{ Cell[798, 30, 95, 1, 39, "Titre2"], Cell[CellGroupData[{ Cell[918, 35, 793, 22, 102, "Input"], Cell[1714, 59, 1852, 41, 24, "Print"] }, {2}]], Cell[CellGroupData[{ Cell[3600, 105, 103, 1, 28, "Titre3"], Cell[CellGroupData[{ Cell[3728, 110, 246, 4, 29, "Input"], Cell[3977, 116, 406, 11, 33, "Output"] }, {2}]] }, Open ]], Cell[CellGroupData[{ Cell[4429, 133, 115, 1, 29, "Titre3"], Cell[CellGroupData[{ Cell[4569, 138, 251, 4, 29, "Input"], Cell[4823, 144, 1225, 34, 71, "Output"] }, {2}]] }, Open ]], Cell[CellGroupData[{ Cell[6094, 184, 114, 1, 29, "Titre3"], Cell[CellGroupData[{ Cell[6233, 189, 238, 5, 29, "Input"], Cell[6474, 196, 268, 8, 33, "Output"] }, {2}]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[6800, 211, 93, 1, 39, "Titre2"], Cell[CellGroupData[{ Cell[6918, 216, 910, 24, 102, "Input"], Cell[7831, 242, 1951, 43, 24, "Print"] }, {2}]], Cell[CellGroupData[{ Cell[9816, 290, 103, 1, 28, "Titre3"], Cell[CellGroupData[{ Cell[9944, 295, 295, 5, 29, "Input"], Cell[10242, 302, 503, 13, 34, "Output"] }, {2}]] }, Open ]], Cell[CellGroupData[{ Cell[10791, 321, 115, 1, 29, "Titre3"], Cell[CellGroupData[{ Cell[10931, 326, 303, 5, 29, "Input"], Cell[11237, 333, 1335, 36, 71, "Output"] }, {2}]] }, Open ]], Cell[CellGroupData[{ Cell[12618, 375, 114, 1, 29, "Titre3"], Cell[CellGroupData[{ Cell[12757, 380, 237, 5, 29, "Input"], Cell[12997, 387, 344, 10, 33, "Output"] }, {2}]] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)