(* 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[ 29710, 789] NotebookOptionsPosition[ 27751, 726] NotebookOutlinePosition[ 28091, 741] CellTagsIndexPosition[ 28048, 738] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Exercices sur le produit scalaire", "Subsection", CellChangeTimes->{{3.41345923380829*^9, 3.413459240080036*^9}, { 3.413459456360567*^9, 3.413459457828529*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"PA", "=", RowBox[{"Pt", "[", RowBox[{"1", ",", RowBox[{"-", "2"}]}], "]"}]}], ";", RowBox[{"PB", "=", RowBox[{"Pt", "[", RowBox[{"4", ",", "1"}], "]"}]}], ";", RowBox[{"PC", "=", RowBox[{"Pt", "[", RowBox[{"2", ",", RowBox[{"-", "3"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ABC", "=", RowBox[{"Triangle", "[", RowBox[{"PA", ",", "PB", ",", "PC"}], "]"}]}], ";", RowBox[{"Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"Resoudre", "[", "ABC", "]"}]}], "Input", CellOpen->False, CellChangeTimes->{{3.4134578016503763`*^9, 3.4134578147294083`*^9}, { 3.4134583294767447`*^9, 3.413458341395852*^9}, {3.413459216021151*^9, 3.41345922619219*^9}, {3.413459279181641*^9, 3.413459288835662*^9}}], Cell[CellGroupData[{ Cell[BoxData[ FormBox["\<\"Exercice 1\"\>", TraditionalForm]], "Print", CellChangeTimes->{ 3.413458376353385*^9, 3.413458454637164*^9, 3.41345850848313*^9, { 3.4134586339910173`*^9, 3.413458654985676*^9}, 3.413458824201817*^9, 3.4134588721605186`*^9, 3.413459013992567*^9, {3.413459154289422*^9, 3.413459158521346*^9}, 3.413459227287908*^9, 3.413459289532178*^9}, FontWeight->"Bold"], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"Dans une base orthonorm\[EAcute]e, on consid\[EGrave]re les \ points A:\"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox[ RowBox[{"\<\"(\"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", RowBox[{"-", "2"}], "\[InvisibleSpace]", "\<\")\"\>"}], SequenceForm["(", 1, " , ", -2, ")"], Editable->False], TraditionalForm], "\[InvisibleSpace]", "\<\", B:\"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox[ RowBox[{"\<\"(\"\>", "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\")\"\>"}], SequenceForm["(", 4, " , ", 1, ")"], Editable->False], TraditionalForm], "\[InvisibleSpace]", "\<\", et C:\"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox[ RowBox[{"\<\"(\"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", RowBox[{"-", "3"}], "\[InvisibleSpace]", "\<\")\"\>"}], SequenceForm["(", 2, " , ", -3, ")"], Editable->False], TraditionalForm], "\[InvisibleSpace]", "\<\".\"\>"}], SequenceForm[ "Dans une base orthonorm\[EAcute]e, on consid\[EGrave]re les points A:", geoplan`Pt[1, -2], ", B:", geoplan`Pt[4, 1], ", et C:", geoplan`Pt[2, -3], "."], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.413458376353385*^9, 3.413458454637164*^9, 3.41345850848313*^9, { 3.4134586339910173`*^9, 3.413458654985676*^9}, 3.413458824201817*^9, 3.4134588721605186`*^9, 3.413459013992567*^9, {3.413459154289422*^9, 3.413459158521346*^9}, 3.413459227287908*^9, 3.4134592895344667`*^9}], Cell[BoxData[ FormBox["\<\"D\[EAcute]terminer la longueur des c\[OHat]t\[EAcute]s et \ l'amplitude des angles du triangle ABC.\"\>", TraditionalForm]], "Print", CellChangeTimes->{ 3.413458376353385*^9, 3.413458454637164*^9, 3.41345850848313*^9, { 3.4134586339910173`*^9, 3.413458654985676*^9}, 3.413458824201817*^9, 3.4134588721605186`*^9, 3.413459013992567*^9, {3.413459154289422*^9, 3.413459158521346*^9}, 3.413459227287908*^9, 3.4134592895374813`*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ RowBox[{"\[LeftDoubleBracketingBar]", OverscriptBox["\<\"AB\"\>", "\[RightVector]"], "\[RightDoubleBracketingBar]"}], "\[InvisibleSpace]", "\<\" = \"\>", "\[InvisibleSpace]", RowBox[{"3", " ", SqrtBox["2"]}]}], SequenceForm[ DoubleBracketingBar[ OverVector["AB"]], " = ", 3 2^Rational[1, 2]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.413458376353385*^9, 3.413458454637164*^9, 3.41345850848313*^9, { 3.4134586339910173`*^9, 3.413458654985676*^9}, 3.413458824201817*^9, 3.4134588721605186`*^9, 3.413459013992567*^9, {3.413459154289422*^9, 3.413459158521346*^9}, 3.413459227287908*^9, 3.413459289539132*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ RowBox[{"\[LeftDoubleBracketingBar]", OverscriptBox["\<\"BC\"\>", "\[RightVector]"], "\[RightDoubleBracketingBar]"}], "\[InvisibleSpace]", "\<\" = \"\>", "\[InvisibleSpace]", RowBox[{"2", " ", SqrtBox["5"]}]}], SequenceForm[ DoubleBracketingBar[ OverVector["BC"]], " = ", 2 5^Rational[1, 2]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.413458376353385*^9, 3.413458454637164*^9, 3.41345850848313*^9, { 3.4134586339910173`*^9, 3.413458654985676*^9}, 3.413458824201817*^9, 3.4134588721605186`*^9, 3.413459013992567*^9, {3.413459154289422*^9, 3.413459158521346*^9}, 3.413459227287908*^9, 3.413459289540934*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ RowBox[{"\[LeftDoubleBracketingBar]", OverscriptBox["\<\"AC\"\>", "\[RightVector]"], "\[RightDoubleBracketingBar]"}], "\[InvisibleSpace]", "\<\" = \"\>", "\[InvisibleSpace]", SqrtBox["2"]}], SequenceForm[ DoubleBracketingBar[ OverVector["AC"]], " = ", 2^Rational[1, 2]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.413458376353385*^9, 3.413458454637164*^9, 3.41345850848313*^9, { 3.4134586339910173`*^9, 3.413458654985676*^9}, 3.413458824201817*^9, 3.4134588721605186`*^9, 3.413459013992567*^9, {3.413459154289422*^9, 3.413459158521346*^9}, 3.413459227287908*^9, 3.413459289542663*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ OverscriptBox["\<\"AB\"\>", "\[RightVector]"], "\[InvisibleSpace]", "\<\" \[Bullet] \"\>", "\[InvisibleSpace]", OverscriptBox["\<\"AC\"\>", "\[RightVector]"], "\[InvisibleSpace]", "\<\" = \"\>", "\[InvisibleSpace]", RowBox[{"\[LeftDoubleBracketingBar]", OverscriptBox["\<\"AB\"\>", "\[RightVector]"], "\[RightDoubleBracketingBar]"}], "\[InvisibleSpace]", "\<\" . \"\>", "\[InvisibleSpace]", RowBox[{"\[LeftDoubleBracketingBar]", OverscriptBox["\<\"AC\"\>", "\[RightVector]"], "\[RightDoubleBracketingBar]"}], "\[InvisibleSpace]", "\<\". cos \[Alpha]\"\>"}], SequenceForm[ OverVector["AB"], " \[Bullet] ", OverVector["AC"], " = ", DoubleBracketingBar[ OverVector["AB"]], " . ", DoubleBracketingBar[ OverVector["AC"]], ". cos \[Alpha]"], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.413458376353385*^9, 3.413458454637164*^9, 3.41345850848313*^9, { 3.4134586339910173`*^9, 3.413458654985676*^9}, 3.413458824201817*^9, 3.4134588721605186`*^9, 3.413459013992567*^9, {3.413459154289422*^9, 3.413459158521346*^9}, 3.413459227287908*^9, 3.413459289544463*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"0", "\[InvisibleSpace]", "\<\" = \"\>", "\[InvisibleSpace]", RowBox[{"3", " ", SqrtBox["2"]}], "\[InvisibleSpace]", "\<\" . \"\>", "\[InvisibleSpace]", SqrtBox["2"], "\[InvisibleSpace]", "\<\". cos \[Alpha]\"\>"}], SequenceForm[ 0, " = ", 3 2^Rational[1, 2], " . ", 2^Rational[1, 2], ". cos \[Alpha]"], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.413458376353385*^9, 3.413458454637164*^9, 3.41345850848313*^9, { 3.4134586339910173`*^9, 3.413458654985676*^9}, 3.413458824201817*^9, 3.4134588721605186`*^9, 3.413459013992567*^9, {3.413459154289422*^9, 3.413459158521346*^9}, 3.413459227287908*^9, 3.413459289546543*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"cos \[Alpha] = \"\>", "\[InvisibleSpace]", "0"}], SequenceForm["cos \[Alpha] = ", 0], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.413458376353385*^9, 3.413458454637164*^9, 3.41345850848313*^9, { 3.4134586339910173`*^9, 3.413458654985676*^9}, 3.413458824201817*^9, 3.4134588721605186`*^9, 3.413459013992567*^9, {3.413459154289422*^9, 3.413459158521346*^9}, 3.413459227287908*^9, 3.4134592895483103`*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"\[Alpha] = \"\>", "\[InvisibleSpace]", RowBox[{"90", " ", TagBox["\[Degree]", HoldForm]}]}], SequenceForm["\[Alpha] = ", 90 HoldForm[Degree]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.413458376353385*^9, 3.413458454637164*^9, 3.41345850848313*^9, { 3.4134586339910173`*^9, 3.413458654985676*^9}, 3.413458824201817*^9, 3.4134588721605186`*^9, 3.413459013992567*^9, {3.413459154289422*^9, 3.413459158521346*^9}, 3.413459227287908*^9, 3.4134592895499*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ OverscriptBox["\<\"BA\"\>", "\[RightVector]"], "\[InvisibleSpace]", "\<\" \[Bullet] \"\>", "\[InvisibleSpace]", OverscriptBox["\<\"BC\"\>", "\[RightVector]"], "\[InvisibleSpace]", "\<\" = \"\>", "\[InvisibleSpace]", RowBox[{"\[LeftDoubleBracketingBar]", OverscriptBox["\<\"AB\"\>", "\[RightVector]"], "\[RightDoubleBracketingBar]"}], "\[InvisibleSpace]", "\<\" . \"\>", "\[InvisibleSpace]", RowBox[{"\[LeftDoubleBracketingBar]", OverscriptBox["\<\"BC\"\>", "\[RightVector]"], "\[RightDoubleBracketingBar]"}], "\[InvisibleSpace]", "\<\". cos \[Beta]\"\>"}], SequenceForm[ OverVector["BA"], " \[Bullet] ", OverVector["BC"], " = ", DoubleBracketingBar[ OverVector["AB"]], " . ", DoubleBracketingBar[ OverVector["BC"]], ". cos \[Beta]"], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.413458376353385*^9, 3.413458454637164*^9, 3.41345850848313*^9, { 3.4134586339910173`*^9, 3.413458654985676*^9}, 3.413458824201817*^9, 3.4134588721605186`*^9, 3.413459013992567*^9, {3.413459154289422*^9, 3.413459158521346*^9}, 3.413459227287908*^9, 3.413459289551607*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"18", "\[InvisibleSpace]", "\<\" = \"\>", "\[InvisibleSpace]", RowBox[{"3", " ", SqrtBox["2"]}], "\[InvisibleSpace]", "\<\" . \"\>", "\[InvisibleSpace]", RowBox[{"2", " ", SqrtBox["5"]}], "\[InvisibleSpace]", "\<\". cos \[Beta]\"\>"}], SequenceForm[ 18, " = ", 3 2^Rational[1, 2], " . ", 2 5^Rational[1, 2], ". cos \[Beta]"], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.413458376353385*^9, 3.413458454637164*^9, 3.41345850848313*^9, { 3.4134586339910173`*^9, 3.413458654985676*^9}, 3.413458824201817*^9, 3.4134588721605186`*^9, 3.413459013992567*^9, {3.413459154289422*^9, 3.413459158521346*^9}, 3.413459227287908*^9, 3.413459289553733*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"cos \[Beta] = \"\>", "\[InvisibleSpace]", FractionBox["3", SqrtBox["10"]]}], SequenceForm["cos \[Beta] = ", 3 10^Rational[-1, 2]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.413458376353385*^9, 3.413458454637164*^9, 3.41345850848313*^9, { 3.4134586339910173`*^9, 3.413458654985676*^9}, 3.413458824201817*^9, 3.4134588721605186`*^9, 3.413459013992567*^9, {3.413459154289422*^9, 3.413459158521346*^9}, 3.413459227287908*^9, 3.413459289555509*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"\[Beta] = \"\>", "\[InvisibleSpace]", RowBox[{"18.434948822922017`", " ", TagBox["\[Degree]", HoldForm]}]}], SequenceForm["\[Beta] = ", 18.434948822922017` HoldForm[Degree]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.413458376353385*^9, 3.413458454637164*^9, 3.41345850848313*^9, { 3.4134586339910173`*^9, 3.413458654985676*^9}, 3.413458824201817*^9, 3.4134588721605186`*^9, 3.413459013992567*^9, {3.413459154289422*^9, 3.413459158521346*^9}, 3.413459227287908*^9, 3.413459289557226*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ OverscriptBox["\<\"CA\"\>", "\[RightVector]"], "\[InvisibleSpace]", "\<\" \[Bullet] \"\>", "\[InvisibleSpace]", OverscriptBox["\<\"CB\"\>", "\[RightVector]"], "\[InvisibleSpace]", "\<\" = \"\>", "\[InvisibleSpace]", RowBox[{"\[LeftDoubleBracketingBar]", OverscriptBox["\<\"AC\"\>", "\[RightVector]"], "\[RightDoubleBracketingBar]"}], "\[InvisibleSpace]", "\<\" . \"\>", "\[InvisibleSpace]", RowBox[{"\[LeftDoubleBracketingBar]", OverscriptBox["\<\"BC\"\>", "\[RightVector]"], "\[RightDoubleBracketingBar]"}], "\[InvisibleSpace]", "\<\". cos \[Gamma]\"\>"}], SequenceForm[ OverVector["CA"], " \[Bullet] ", OverVector["CB"], " = ", DoubleBracketingBar[ OverVector["AC"]], " . ", DoubleBracketingBar[ OverVector["BC"]], ". cos \[Gamma]"], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.413458376353385*^9, 3.413458454637164*^9, 3.41345850848313*^9, { 3.4134586339910173`*^9, 3.413458654985676*^9}, 3.413458824201817*^9, 3.4134588721605186`*^9, 3.413459013992567*^9, {3.413459154289422*^9, 3.413459158521346*^9}, 3.413459227287908*^9, 3.413459289558979*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"2", "\[InvisibleSpace]", "\<\" = \"\>", "\[InvisibleSpace]", SqrtBox["2"], "\[InvisibleSpace]", "\<\" . \"\>", "\[InvisibleSpace]", RowBox[{"2", " ", SqrtBox["5"]}], "\[InvisibleSpace]", "\<\". cos \[Gamma]\"\>"}], SequenceForm[ 2, " = ", 2^Rational[1, 2], " . ", 2 5^Rational[1, 2], ". cos \[Gamma]"], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.413458376353385*^9, 3.413458454637164*^9, 3.41345850848313*^9, { 3.4134586339910173`*^9, 3.413458654985676*^9}, 3.413458824201817*^9, 3.4134588721605186`*^9, 3.413459013992567*^9, {3.413459154289422*^9, 3.413459158521346*^9}, 3.413459227287908*^9, 3.413459289561104*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"cos \[Gamma] = \"\>", "\[InvisibleSpace]", FractionBox["1", SqrtBox["10"]]}], SequenceForm["cos \[Gamma] = ", 10^Rational[-1, 2]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.413458376353385*^9, 3.413458454637164*^9, 3.41345850848313*^9, { 3.4134586339910173`*^9, 3.413458654985676*^9}, 3.413458824201817*^9, 3.4134588721605186`*^9, 3.413459013992567*^9, {3.413459154289422*^9, 3.413459158521346*^9}, 3.413459227287908*^9, 3.413459289562873*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"\[Gamma] = \"\>", "\[InvisibleSpace]", RowBox[{"71.56505117707799`", " ", TagBox["\[Degree]", HoldForm]}]}], SequenceForm["\[Gamma] = ", 71.56505117707799 HoldForm[Degree]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.413458376353385*^9, 3.413458454637164*^9, 3.41345850848313*^9, { 3.4134586339910173`*^9, 3.413458654985676*^9}, 3.413458824201817*^9, 3.4134588721605186`*^9, 3.413459013992567*^9, {3.413459154289422*^9, 3.413459158521346*^9}, 3.413459227287908*^9, 3.413459289564589*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"PA", "=", RowBox[{"Pt", "[", RowBox[{"3", ",", "2"}], "]"}]}], ";", RowBox[{"PB", "=", RowBox[{"Pt", "[", RowBox[{"1", ",", RowBox[{"-", "1"}]}], "]"}]}], ";", RowBox[{"PC", "=", RowBox[{"Pt", "[", RowBox[{ RowBox[{"-", "1"}], ",", "3"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ABC", "=", RowBox[{"Triangle", "[", RowBox[{"PA", ",", "PB", ",", "PC"}], "]"}]}], ";", RowBox[{"Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"Resoudre", "[", "ABC", "]"}]}], "Input", CellOpen->False, CellChangeTimes->{{3.4134593049643993`*^9, 3.413459320604354*^9}, { 3.413459418319934*^9, 3.413459427118658*^9}}], Cell[CellGroupData[{ Cell[BoxData[ FormBox["\<\"Exercice 2\"\>", TraditionalForm]], "Print", CellChangeTimes->{{3.413459298896495*^9, 3.41345932104239*^9}, { 3.4134594198708353`*^9, 3.41345942743012*^9}}, FontWeight->"Bold"], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"Dans une base orthonorm\[EAcute]e, on consid\[EGrave]re les \ points A:\"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox[ RowBox[{"\<\"(\"\>", "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\")\"\>"}], SequenceForm["(", 3, " , ", 2, ")"], Editable->False], TraditionalForm], "\[InvisibleSpace]", "\<\", B:\"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox[ RowBox[{"\<\"(\"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", RowBox[{"-", "1"}], "\[InvisibleSpace]", "\<\")\"\>"}], SequenceForm["(", 1, " , ", -1, ")"], Editable->False], TraditionalForm], "\[InvisibleSpace]", "\<\", et C:\"\>", "\[InvisibleSpace]", FormBox[ InterpretationBox[ RowBox[{"\<\"(\"\>", "\[InvisibleSpace]", RowBox[{"-", "1"}], "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\")\"\>"}], SequenceForm["(", -1, " , ", 3, ")"], Editable->False], TraditionalForm], "\[InvisibleSpace]", "\<\".\"\>"}], SequenceForm[ "Dans une base orthonorm\[EAcute]e, on consid\[EGrave]re les points A:", geoplan`Pt[3, 2], ", B:", geoplan`Pt[1, -1], ", et C:", geoplan`Pt[-1, 3], "."], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.413459298896495*^9, 3.41345932104239*^9}, { 3.4134594198708353`*^9, 3.413459427432399*^9}}], Cell[BoxData[ FormBox["\<\"D\[EAcute]terminer la longueur des c\[OHat]t\[EAcute]s et \ l'amplitude des angles du triangle ABC.\"\>", TraditionalForm]], "Print", CellChangeTimes->{{3.413459298896495*^9, 3.41345932104239*^9}, { 3.4134594198708353`*^9, 3.413459427436274*^9}}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ RowBox[{"\[LeftDoubleBracketingBar]", OverscriptBox["\<\"AB\"\>", "\[RightVector]"], "\[RightDoubleBracketingBar]"}], "\[InvisibleSpace]", "\<\" = \"\>", "\[InvisibleSpace]", SqrtBox["13"]}], SequenceForm[ DoubleBracketingBar[ OverVector["AB"]], " = ", 13^Rational[1, 2]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.413459298896495*^9, 3.41345932104239*^9}, { 3.4134594198708353`*^9, 3.4134594274379063`*^9}}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ RowBox[{"\[LeftDoubleBracketingBar]", OverscriptBox["\<\"BC\"\>", "\[RightVector]"], "\[RightDoubleBracketingBar]"}], "\[InvisibleSpace]", "\<\" = \"\>", "\[InvisibleSpace]", RowBox[{"2", " ", SqrtBox["5"]}]}], SequenceForm[ DoubleBracketingBar[ OverVector["BC"]], " = ", 2 5^Rational[1, 2]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.413459298896495*^9, 3.41345932104239*^9}, { 3.4134594198708353`*^9, 3.413459427439659*^9}}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ RowBox[{"\[LeftDoubleBracketingBar]", OverscriptBox["\<\"AC\"\>", "\[RightVector]"], "\[RightDoubleBracketingBar]"}], "\[InvisibleSpace]", "\<\" = \"\>", "\[InvisibleSpace]", SqrtBox["17"]}], SequenceForm[ DoubleBracketingBar[ OverVector["AC"]], " = ", 17^Rational[1, 2]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.413459298896495*^9, 3.41345932104239*^9}, { 3.4134594198708353`*^9, 3.413459427441366*^9}}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ OverscriptBox["\<\"AB\"\>", "\[RightVector]"], "\[InvisibleSpace]", "\<\" \[Bullet] \"\>", "\[InvisibleSpace]", OverscriptBox["\<\"AC\"\>", "\[RightVector]"], "\[InvisibleSpace]", "\<\" = \"\>", "\[InvisibleSpace]", RowBox[{"\[LeftDoubleBracketingBar]", OverscriptBox["\<\"AB\"\>", "\[RightVector]"], "\[RightDoubleBracketingBar]"}], "\[InvisibleSpace]", "\<\" . \"\>", "\[InvisibleSpace]", RowBox[{"\[LeftDoubleBracketingBar]", OverscriptBox["\<\"AC\"\>", "\[RightVector]"], "\[RightDoubleBracketingBar]"}], "\[InvisibleSpace]", "\<\". cos \[Alpha]\"\>"}], SequenceForm[ OverVector["AB"], " \[Bullet] ", OverVector["AC"], " = ", DoubleBracketingBar[ OverVector["AB"]], " . ", DoubleBracketingBar[ OverVector["AC"]], ". cos \[Alpha]"], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.413459298896495*^9, 3.41345932104239*^9}, { 3.4134594198708353`*^9, 3.413459427443185*^9}}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"5", "\[InvisibleSpace]", "\<\" = \"\>", "\[InvisibleSpace]", SqrtBox["13"], "\[InvisibleSpace]", "\<\" . \"\>", "\[InvisibleSpace]", SqrtBox["17"], "\[InvisibleSpace]", "\<\". cos \[Alpha]\"\>"}], SequenceForm[ 5, " = ", 13^Rational[1, 2], " . ", 17^Rational[1, 2], ". cos \[Alpha]"], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.413459298896495*^9, 3.41345932104239*^9}, { 3.4134594198708353`*^9, 3.413459427445245*^9}}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"cos \[Alpha] = \"\>", "\[InvisibleSpace]", FractionBox["5", SqrtBox["221"]]}], SequenceForm["cos \[Alpha] = ", 5 221^Rational[-1, 2]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.413459298896495*^9, 3.41345932104239*^9}, { 3.4134594198708353`*^9, 3.4134594274470167`*^9}}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"\[Alpha] = \"\>", "\[InvisibleSpace]", RowBox[{"70.3461759419467`", " ", TagBox["\[Degree]", HoldForm]}]}], SequenceForm["\[Alpha] = ", 70.3461759419467 HoldForm[Degree]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.413459298896495*^9, 3.41345932104239*^9}, { 3.4134594198708353`*^9, 3.4134594274487057`*^9}}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ OverscriptBox["\<\"BA\"\>", "\[RightVector]"], "\[InvisibleSpace]", "\<\" \[Bullet] \"\>", "\[InvisibleSpace]", OverscriptBox["\<\"BC\"\>", "\[RightVector]"], "\[InvisibleSpace]", "\<\" = \"\>", "\[InvisibleSpace]", RowBox[{"\[LeftDoubleBracketingBar]", OverscriptBox["\<\"AB\"\>", "\[RightVector]"], "\[RightDoubleBracketingBar]"}], "\[InvisibleSpace]", "\<\" . \"\>", "\[InvisibleSpace]", RowBox[{"\[LeftDoubleBracketingBar]", OverscriptBox["\<\"BC\"\>", "\[RightVector]"], "\[RightDoubleBracketingBar]"}], "\[InvisibleSpace]", "\<\". cos \[Beta]\"\>"}], SequenceForm[ OverVector["BA"], " \[Bullet] ", OverVector["BC"], " = ", DoubleBracketingBar[ OverVector["AB"]], " . ", DoubleBracketingBar[ OverVector["BC"]], ". cos \[Beta]"], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.413459298896495*^9, 3.41345932104239*^9}, { 3.4134594198708353`*^9, 3.4134594274504137`*^9}}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"8", "\[InvisibleSpace]", "\<\" = \"\>", "\[InvisibleSpace]", SqrtBox["13"], "\[InvisibleSpace]", "\<\" . \"\>", "\[InvisibleSpace]", RowBox[{"2", " ", SqrtBox["5"]}], "\[InvisibleSpace]", "\<\". cos \[Beta]\"\>"}], SequenceForm[ 8, " = ", 13^Rational[1, 2], " . ", 2 5^Rational[1, 2], ". cos \[Beta]"], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.413459298896495*^9, 3.41345932104239*^9}, { 3.4134594198708353`*^9, 3.41345942745252*^9}}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"cos \[Beta] = \"\>", "\[InvisibleSpace]", FractionBox["4", SqrtBox["65"]]}], SequenceForm["cos \[Beta] = ", 4 65^Rational[-1, 2]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.413459298896495*^9, 3.41345932104239*^9}, { 3.4134594198708353`*^9, 3.4134594274543037`*^9}}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"\[Beta] = \"\>", "\[InvisibleSpace]", RowBox[{"60.25511870305777`", " ", TagBox["\[Degree]", HoldForm]}]}], SequenceForm["\[Beta] = ", 60.25511870305777 HoldForm[Degree]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.413459298896495*^9, 3.41345932104239*^9}, { 3.4134594198708353`*^9, 3.4134594274559803`*^9}}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ OverscriptBox["\<\"CA\"\>", "\[RightVector]"], "\[InvisibleSpace]", "\<\" \[Bullet] \"\>", "\[InvisibleSpace]", OverscriptBox["\<\"CB\"\>", "\[RightVector]"], "\[InvisibleSpace]", "\<\" = \"\>", "\[InvisibleSpace]", RowBox[{"\[LeftDoubleBracketingBar]", OverscriptBox["\<\"AC\"\>", "\[RightVector]"], "\[RightDoubleBracketingBar]"}], "\[InvisibleSpace]", "\<\" . \"\>", "\[InvisibleSpace]", RowBox[{"\[LeftDoubleBracketingBar]", OverscriptBox["\<\"BC\"\>", "\[RightVector]"], "\[RightDoubleBracketingBar]"}], "\[InvisibleSpace]", "\<\". cos \[Gamma]\"\>"}], SequenceForm[ OverVector["CA"], " \[Bullet] ", OverVector["CB"], " = ", DoubleBracketingBar[ OverVector["AC"]], " . ", DoubleBracketingBar[ OverVector["BC"]], ". cos \[Gamma]"], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.413459298896495*^9, 3.41345932104239*^9}, { 3.4134594198708353`*^9, 3.4134594274577103`*^9}}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"12", "\[InvisibleSpace]", "\<\" = \"\>", "\[InvisibleSpace]", SqrtBox["17"], "\[InvisibleSpace]", "\<\" . \"\>", "\[InvisibleSpace]", RowBox[{"2", " ", SqrtBox["5"]}], "\[InvisibleSpace]", "\<\". cos \[Gamma]\"\>"}], SequenceForm[ 12, " = ", 17^Rational[1, 2], " . ", 2 5^Rational[1, 2], ". cos \[Gamma]"], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.413459298896495*^9, 3.41345932104239*^9}, { 3.4134594198708353`*^9, 3.413459427459804*^9}}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"cos \[Gamma] = \"\>", "\[InvisibleSpace]", FractionBox["6", SqrtBox["85"]]}], SequenceForm["cos \[Gamma] = ", 6 85^Rational[-1, 2]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.413459298896495*^9, 3.41345932104239*^9}, { 3.4134594198708353`*^9, 3.413459427461588*^9}}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"\[Gamma] = \"\>", "\[InvisibleSpace]", RowBox[{"49.39870535499554`", " ", TagBox["\[Degree]", HoldForm]}]}], SequenceForm["\[Gamma] = ", 49.39870535499554 HoldForm[Degree]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.413459298896495*^9, 3.41345932104239*^9}, { 3.4134594198708353`*^9, 3.4134594274968147`*^9}}] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{640, 750}, WindowMargins->{{Automatic, 528}, {Automatic, 92}}, FrontEndVersion->"6.0 for Mac OS X x86 (32-bit) (February 7, 2008)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[590, 23, 169, 2, 34, "Subsection"], Cell[CellGroupData[{ Cell[784, 29, 848, 23, 20, "Input", CellOpen->False], Cell[CellGroupData[{ Cell[1657, 56, 399, 7, 20, "Print"], Cell[2059, 65, 1787, 41, 20, "Print"], Cell[3849, 108, 469, 7, 22, "Print"], Cell[4321, 117, 748, 18, 29, "Print"], Cell[5072, 137, 748, 18, 29, "Print"], Cell[5823, 157, 720, 17, 29, "Print"], Cell[6546, 176, 1242, 28, 23, "Print"], Cell[7791, 206, 741, 15, 29, "Print"], Cell[8535, 223, 506, 10, 20, "Print"], Cell[9044, 235, 576, 13, 20, "Print"], Cell[9623, 250, 1240, 28, 25, "Print"], Cell[10866, 280, 773, 17, 29, "Print"], Cell[11642, 299, 560, 12, 40, "Print"], Cell[12205, 313, 610, 13, 22, "Print"], Cell[12818, 328, 1242, 28, 25, "Print"], Cell[14063, 358, 736, 14, 29, "Print"], Cell[14802, 374, 560, 12, 40, "Print"], Cell[15365, 388, 609, 13, 22, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[16023, 407, 750, 22, 20, "Input", CellOpen->False], Cell[CellGroupData[{ Cell[16798, 433, 208, 4, 20, "Print"], Cell[17009, 439, 1595, 38, 20, "Print"], Cell[18607, 479, 277, 4, 22, "Print"], Cell[18887, 485, 534, 14, 29, "Print"], Cell[19424, 501, 558, 15, 29, "Print"], Cell[19985, 518, 532, 14, 29, "Print"], Cell[20520, 534, 1052, 25, 23, "Print"], Cell[21575, 561, 522, 10, 29, "Print"], Cell[22100, 573, 376, 9, 40, "Print"], Cell[22479, 584, 419, 10, 20, "Print"], Cell[22901, 596, 1052, 25, 25, "Print"], Cell[23956, 623, 545, 11, 29, "Print"], Cell[24504, 636, 372, 9, 40, "Print"], Cell[24879, 647, 419, 10, 22, "Print"], Cell[25301, 659, 1054, 25, 25, "Print"], Cell[26358, 686, 554, 12, 29, "Print"], Cell[26915, 700, 372, 9, 40, "Print"], Cell[27290, 711, 421, 10, 22, "Print"] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)