(* 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[ 158163, 4573] NotebookOptionsPosition[ 83463, 2881] NotebookOutlinePosition[ 147128, 4218] CellTagsIndexPosition[ 147085, 4215] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell["Coordenadas Baric\[EAcute]ntricas", "Title"], Cell[TextData[{ "A continuaci\[OAcute]n incluimos instrucciones de ", StyleBox["Mathematica", FontSlant->"Italic"], " para trabajar con coordenadas baric\[EAcute]ntricas." }], "Text", Background->RGBColor[1, 1, 0.501961]], Cell["\<\ Francisco Javier Garc\[IAcute]a Capit\[AAcute]n, 2006.\ \>", "Text", TextAlignment->Right], Cell[CellGroupData[{ Cell["Constantes", "Subtitle", CellDingbat->"\[FilledSquare]"], Cell[CellGroupData[{ Cell[TextData[StyleBox["N\[UAcute]meros", FontWeight->"Bold"]], "Subsubtitle", CellDingbat->None], Cell["Las siguientes constantes son muy usadas.", "Text", CellDingbat->None], Cell[BoxData[ RowBox[{ RowBox[{"s", "=", FractionBox[ RowBox[{"a", "+", "b", "+", "c"}], "2"]}], ";", RowBox[{"SA", "=", FractionBox[ RowBox[{ SuperscriptBox["b", "2"], "+", SuperscriptBox["c", "2"], "-", SuperscriptBox["a", "2"]}], "2"]}], ";", RowBox[{"SB", "=", FractionBox[ RowBox[{ SuperscriptBox["c", "2"], "+", SuperscriptBox["a", "2"], "-", SuperscriptBox["b", "2"]}], "2"]}], ";", RowBox[{"SC", "=", FractionBox[ RowBox[{ SuperscriptBox["a", "2"], "+", SuperscriptBox["b", "2"], "-", SuperscriptBox["c", "2"]}], "2"]}], ";"}]], "Input", CellDingbat->None, InitializationCell->True] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Puntos y rectas", FontWeight->"Bold"]], "Subsubtitle", CellDingbat->None], Cell[TextData[{ "Los v\[EAcute]rtices y lados del tri\[AAcute]ngulo de referencia ", StyleBox["ABC", FontSlant->"Italic"], " tienen las expresiones m\[AAcute]s simples. Podemos hacer asignaciones m\ \[UAcute]ltiples, teniendo en cuenta que ", StyleBox["Mathematica", FontSlant->"Italic"], " devuelve el valor de una asignaci\[OAcute]n:" }], "Text", CellDingbat->None], Cell[BoxData[{ RowBox[{ RowBox[{"rtBC", "=", RowBox[{"ptA", "=", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"rtCA", "=", RowBox[{"ptB", "=", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"rtAB", "=", RowBox[{"ptC", "=", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}]}], ";"}]}], "Input", CellDingbat->None, InitializationCell->True], Cell[BoxData[ RowBox[{ RowBox[{"ptI", "=", RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}]}], ";", RowBox[{"ptK", "=", RowBox[{"{", RowBox[{ SuperscriptBox["a", "2"], ",", SuperscriptBox["b", "2"], ",", SuperscriptBox["c", "2"]}], "}"}]}], ";"}]], "Input", InitializationCell->True, CellChangeTimes->{{3.398649636356053*^9, 3.3986496437466803`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"ptIa", "=", RowBox[{"{", RowBox[{ RowBox[{"-", "a"}], ",", "b", ",", "c"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ptIb", "=", RowBox[{"{", RowBox[{"a", ",", RowBox[{"-", "b"}], ",", "c"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ptIc", "=", RowBox[{"{", RowBox[{"a", ",", "b", ",", RowBox[{"-", "c"}]}], "}"}]}], ";"}]}], "Input", InitializationCell->True], Cell[BoxData[{ RowBox[{ RowBox[{"ptIX", "=", RowBox[{"{", RowBox[{"0", ",", RowBox[{"s", "-", "c"}], ",", RowBox[{"s", "-", "b"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ptIY", "=", RowBox[{"{", RowBox[{ RowBox[{"s", "-", "c"}], ",", "0", ",", RowBox[{"s", "-", "a"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ptIZ", "=", RowBox[{"{", RowBox[{ RowBox[{"s", "-", "b"}], ",", RowBox[{"s", "-", "a"}], ",", "0"}], "}"}]}], ";"}]}], "Input", InitializationCell->True], Cell[BoxData[{ RowBox[{ RowBox[{"ptIaX", "=", RowBox[{"{", RowBox[{"0", ",", RowBox[{"s", "-", "b"}], ",", RowBox[{"s", "-", "c"}]}], "}"}]}], ";", RowBox[{"ptIaY", "=", RowBox[{"{", RowBox[{ RowBox[{"s", "-", "b"}], ",", "0", ",", RowBox[{"-", "s"}]}], "}"}]}], ";", " ", RowBox[{"ptIaZ", "=", RowBox[{"{", RowBox[{ RowBox[{"s", "-", "c"}], ",", RowBox[{"-", "s"}], ",", "0"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ptIbX", "=", RowBox[{"{", RowBox[{"0", ",", RowBox[{"s", "-", "a"}], ",", RowBox[{"-", "s"}]}], "}"}]}], ";", " ", RowBox[{"ptIbY", "=", RowBox[{"{", RowBox[{ RowBox[{"s", "-", "a"}], ",", "0", ",", RowBox[{"s", "-", "c"}]}], "}"}]}], ";", RowBox[{"ptIbZ", "=", RowBox[{"{", RowBox[{ RowBox[{"-", "s"}], ",", RowBox[{"s", "-", "c"}], ",", "0"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ptIcX", "=", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "s"}], ",", RowBox[{"s", "-", "a"}]}], "}"}]}], ";", " ", RowBox[{"ptIcY", "=", RowBox[{"{", RowBox[{ RowBox[{"-", "s"}], ",", "0", ",", RowBox[{"s", "-", "b"}]}], "}"}]}], ";", " ", RowBox[{"ptIcZ", "=", RowBox[{"{", RowBox[{ RowBox[{"s", "-", "a"}], ",", RowBox[{"s", "-", "b"}], ",", "0"}], "}"}]}], ";", "\[IndentingNewLine]"}]}], "Input", CellDingbat->None, InitializationCell->True, CellChangeTimes->{{3.3986496179796286`*^9, 3.3986496238180237`*^9}}], Cell[BoxData["\[IndentingNewLine]"], "Input", CellDingbat->None, InitializationCell->True, CellChangeTimes->{{3.398649556200795*^9, 3.398649567737384*^9}, 3.398649633942582*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Operaciones abstractas", "Subtitle", CellDingbat->"\[FilledSquare]"], Cell[TextData[StyleBox["Comprobar si un punto es del infinito", FontWeight->"Bold"]], "Subsubtitle", CellDingbat->None], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"EsInfinito", "[", "ptX_", "]"}], ":=", RowBox[{ RowBox[{"Factor", "[", RowBox[{"Tr", "[", "ptX", "]"}], "]"}], "\[Equal]", "0"}]}], ";"}]], "Input", InitializationCell->True], Cell[CellGroupData[{ Cell[TextData[StyleBox["Permutaci\[OAcute]n de coordenadas", FontWeight->"Bold"]], "Subsubtitle", CellDingbat->None], Cell["\<\ Esta funci\[OAcute]n ser\[AAcute] util cuando hemos efectuado un \ c\[AAcute]lculo que toma como base un lado o \[AAcute]ngulo del \ tri\[AAcute]ngulo de referencia ABC y queremos calcular el c\[AAcute]lculo \ correspondiente a los otros lados o \[AAcute]ngulos:\ \>", "Text", CellDingbat->None], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"PermutarTerna", "[", RowBox[{"{", RowBox[{"\[Alpha]_", ",", "\[Beta]_", ",", "\[Gamma]_"}], "}"}], "]"}], ":=", RowBox[{ RowBox[{"{", RowBox[{"\[Gamma]", ",", "\[Alpha]", ",", "\[Beta]"}], "}"}], " ", "/.", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"a", "\[Rule]", "b"}], ",", RowBox[{"b", "\[Rule]", "c"}], ",", RowBox[{"c", "\[Rule]", "a"}], ",", RowBox[{"u", "\[Rule]", "v"}], ",", RowBox[{"v", "\[Rule]", "w"}], ",", RowBox[{"w", "\[Rule]", "u"}], ",", RowBox[{"x", "\[Rule]", "y"}], ",", RowBox[{"y", "\[Rule]", "z"}], ",", RowBox[{"z", "\[Rule]", "x"}]}], "}"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Permutar", "[", "f_", "]"}], " ", ":=", " ", RowBox[{"f", " ", "/.", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"a", "\[Rule]", "b"}], ",", RowBox[{"b", "\[Rule]", "c"}], ",", RowBox[{"c", "\[Rule]", "a"}], ",", RowBox[{"u", "\[Rule]", "v"}], ",", RowBox[{"v", "\[Rule]", "w"}], ",", RowBox[{"w", "\[Rule]", "u"}], ",", RowBox[{"x", "\[Rule]", "y"}], ",", RowBox[{"y", "\[Rule]", "z"}], ",", RowBox[{"z", "\[Rule]", "x"}]}], "}"}]}]}], ";"}]}], "Input", InitializationCell->True] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Sustituir un punto", FontWeight->"Bold"]], "Subsubtitle", CellDingbat->None], Cell[TextData[{ "Se supone que ", StyleBox["f", FontSlant->"Italic"], " es una expresi\[OAcute]n en ", StyleBox["u", FontSlant->"Italic"], ", ", StyleBox["v", FontSlant->"Italic"], ", ", StyleBox["w", FontSlant->"Italic"], " y queremos sustituir (", StyleBox["u", FontSlant->"Italic"], ", ", StyleBox["v", FontSlant->"Italic"], ", ", StyleBox["w", FontSlant->"Italic"], ") por (", StyleBox["x", FontSlant->"Italic"], ", ", StyleBox["y", FontSlant->"Italic"], ", ", StyleBox["z", FontSlant->"Italic"], "):" }], "Text", CellDingbat->None], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Sustituiruvw", "[", RowBox[{"f_", ",", RowBox[{"{", RowBox[{"x_", ",", "y_", ",", "z_"}], "}"}]}], "]"}], ":=", RowBox[{"f", " ", "/.", RowBox[{"{", RowBox[{ RowBox[{"u", "\[Rule]", "x"}], ",", RowBox[{"v", "\[Rule]", "y"}], ",", RowBox[{"w", "\[Rule]", "z"}]}], "}"}]}]}], ";"}]], "Input", InitializationCell->True], Cell[TextData[{ "Se supone que ", StyleBox["f", FontSlant->"Italic"], " es una expresi\[OAcute]n en ", StyleBox["x", FontSlant->"Italic"], ", ", StyleBox["y,", FontSlant->"Italic"], " z y queremos sustituir (x, y, z) por (", StyleBox["u", FontSlant->"Italic"], ", ", StyleBox["v", FontSlant->"Italic"], ",", StyleBox["w", FontSlant->"Italic"], "):" }], "Text", CellDingbat->None], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Sustituirxyz", "[", RowBox[{"f_", ",", RowBox[{"{", RowBox[{"u_", ",", "v_", ",", "w_"}], "}"}]}], "]"}], ":=", RowBox[{"f", " ", "/.", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", "u"}], ",", RowBox[{"y", "\[Rule]", "v"}], ",", RowBox[{"z", "\[Rule]", "w"}]}], "}"}]}]}], ";"}]], "Input", InitializationCell->True] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Simplificaci\[OAcute]n de coordenadas", FontWeight->"Bold"]], "Subsubtitle", CellDingbat->None], Cell[TextData[{ "Las coordenadas baric\[EAcute]ntricas homog\[EAcute]neas de un punto y los \ coeficientes de la ecuaci\[OAcute]n de una recta los introducimos en ", StyleBox["Mathematica", FontSlant->"Italic"], " como ternas de puntos. Como dos de estas ternas se consideran equivalentes \ cuando son proporcionales, usamos la funci\[OAcute]n ", StyleBox["Simplificar", FontWeight->"Bold"], " para conseguir la expresi\[OAcute]n m\[AAcute]s sencilla:" }], "Text", CellDingbat->None], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Simplificar", "::", "\"\\""}], " ", "=", " ", "\n", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", "Simplificar", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Simplificar", "[", " ", "p_", "]"}], " ", ":=", " ", RowBox[{"Simplify", "[", FractionBox["p", RowBox[{"PolynomialGCD", "[", RowBox[{ RowBox[{"p", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ",", RowBox[{"p", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], ",", RowBox[{"p", "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}]}], "]"}]], "]"}]}]}], "Input", CellDingbat->None, InitializationCell->True] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["C\[AAcute]lculo de puntos y rectas", "Subtitle", CellDingbat->"\[FilledSquare]"], Cell[CellGroupData[{ Cell[TextData[StyleBox["Coordenadas de un punto y ecuaci\[OAcute]n de una \ recta", FontWeight->"Bold"]], "Subsubtitle", CellDingbat->None], Cell[TextData[{ "Aprovechando la dualidad entre coordenadas de puntos y ecuaciones de \ rectas, podemos usar para ambos la funci\[OAcute]n ", StyleBox["Cross", FontWeight->"Bold"], " para hallar el punto de intersecci\[OAcute]n de dos rectas y la recta que \ une dos puntos." }], "Text", CellDingbat->None], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Recta", "::", "\"\\""}], "=", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Recta", "[", RowBox[{"P_", ",", "Q_"}], "]"}], " ", ":=", RowBox[{"Simplificar", "[", RowBox[{"Cross", "[", RowBox[{"P", ",", "Q"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Punto", "::", "\"\\""}], "=", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Punto", "[", RowBox[{"r_", ",", "s_"}], "]"}], " ", ":=", " ", RowBox[{"Simplificar", "[", RowBox[{"Cross", "[", RowBox[{"r", ",", "s"}], "]"}], "]"}]}], ";"}]}], "Input", CellDingbat->None, InitializationCell->True] }, Open ]], Cell[CellGroupData[{ Cell["Punto del infinito de una recta", "Subsubtitle", CellDingbat->None, FontWeight->"Bold"], Cell[TextData[{ "El punto del infinito de la recta", Cell[BoxData[ FormBox[ RowBox[{" ", RowBox[{ RowBox[{ RowBox[{"p", " ", "x"}], " ", "+", RowBox[{"q", " ", "y"}], " ", "+", " ", RowBox[{"r", " ", "z"}]}], "=", "0", " "}]}], TraditionalForm]]], "tiene coordenadas ", Cell[BoxData[ FormBox[ RowBox[{"(", RowBox[{"q", "-", RowBox[{"r", ":", " ", RowBox[{"r", "-", RowBox[{"p", " ", ":", " ", RowBox[{"p", "-", "q"}]}]}]}]}], ")"}], TraditionalForm]]] }], "Text", CellDingbat->None], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"PuntoInfinito", "[", RowBox[{"{", RowBox[{"p_", ",", "q_", ",", "r_"}], "}"}], "]"}], " ", ":=", " ", RowBox[{"{", RowBox[{ RowBox[{"q", "-", "r"}], ",", RowBox[{"r", "-", "p"}], ",", RowBox[{"p", "-", "q"}]}], "}"}]}], ";"}]], "Input", CellDingbat->None, InitializationCell->True] }, Open ]], Cell[CellGroupData[{ Cell["Rectas paralelas", "Subsubtitle", CellDingbat->None, FontWeight->"Bold"], Cell[TextData[{ "Calculamos la recta paralela a una recta ", StyleBox["r", FontSlant->"Italic"], " pasando por un punto ", StyleBox["P", FontSlant->"Italic"], ":" }], "Text", CellDingbat->None, CellChangeTimes->{{3.3986496798085346`*^9, 3.3986496802591825`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Paralela", "[", RowBox[{"P_", ",", " ", "r_"}], "]"}], " ", ":=", " ", RowBox[{"Recta", "[", RowBox[{"P", ",", RowBox[{"PuntoInfinito", "[", "r", "]"}]}], "]"}]}], ";"}]], "Input", CellDingbat->None, InitializationCell->True], Cell[TextData[{ "Calculamos la recta paralela a una recta ", StyleBox["QR", FontSlant->"Italic"], " pasando por un punto ", StyleBox["P", FontSlant->"Italic"], ":" }], "Text", CellDingbat->None], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Paralela", "[", RowBox[{"P_", ",", " ", "Q_", ",", "R_"}], "]"}], " ", ":=", " ", RowBox[{"Paralela", "[", RowBox[{"P", ",", " ", RowBox[{"Recta", "[", RowBox[{"Q", ",", "R"}], "]"}]}], "]"}]}], ";"}]], "Input", CellDingbat->None, InitializationCell->True] }, Open ]], Cell[CellGroupData[{ Cell["Punto del infinito de rectas perpendiculares", "Subsubtitle", CellDingbat->None, FontWeight->"Bold"], Cell[TextData[{ "Si una recta tiene a ", Cell[BoxData[ FormBox[ RowBox[{"(", RowBox[{"f", ":", RowBox[{"g", ":", "h"}]}], ")"}], TraditionalForm]], FontWeight->"Bold"], StyleBox[" ", "Input"], "como punto del infinito, entonces el punto del infinito de cualquier recta \ perpendicular a ella es el punto del infinito de la recta ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"SA", " ", "f"}], " ", ")"}], "x"}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"SB", " ", "g"}], ")"}], " ", "y"}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"SC", " ", "h"}], ")"}], " ", "z"}]}], " ", "=", "0"}], TraditionalForm]]], "." }], "Text", CellDingbat->None], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"PuntoInfinitoPerpendicular", "[", RowBox[{"{", RowBox[{"f_", ",", "g_", ",", "h_"}], "}"}], "]"}], " ", ":=", "\[IndentingNewLine]", RowBox[{"PuntoInfinito", "[", RowBox[{"{", RowBox[{ RowBox[{"SA", " ", "f"}], ",", " ", RowBox[{"SB", " ", "g"}], ",", " ", RowBox[{"SC", " ", "h"}]}], "}"}], "]"}]}], ";"}]], "Input", CellDingbat->None, InitializationCell->True] }, Open ]], Cell[CellGroupData[{ Cell["Rectas perpendiculares", "Subsubtitle", CellDingbat->None, FontWeight->"Bold"], Cell[TextData[{ "Hallamos la recta que pasa por ", StyleBox["P", FontSlant->"Italic"], " perpendicular a la recta ", StyleBox["QR", FontSlant->"Italic"], ":" }], "Text", CellDingbat->None], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Perpendicular", "[", RowBox[{"P_", ",", "r_"}], "]"}], " ", ":=", RowBox[{"Recta", "[", RowBox[{"P", ",", "\[IndentingNewLine]", RowBox[{"PuntoInfinitoPerpendicular", "[", RowBox[{"PuntoInfinito", "[", "r", "]"}], "]"}]}], "]"}]}], ";"}]], "Input", InitializationCell->True], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Perpendicular", "[", RowBox[{"P_", ",", "Q_", ",", "R_"}], "]"}], ":=", RowBox[{"Perpendicular", "[", RowBox[{"P", ",", "\[IndentingNewLine]", RowBox[{"Recta", "[", RowBox[{"Q", ",", "R"}], "]"}]}], "]"}]}], ";"}]], "Input", CellDingbat->None, InitializationCell->True] }, Open ]], Cell[CellGroupData[{ Cell["Cuarta recta", "Subsubtitle", CellDingbat->None, FontWeight->"Bold"], Cell["\<\ Halla la recta r4 que forma con la recta r3 el mismo \[AAcute]ngulo que la \ recta r1 forma con la recta r2 (Paul Yiu).\ \>", "Text", CellDingbat->None, CellChangeTimes->{{3.398649698355203*^9, 3.398649710472627*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"CuartaRecta", "[", RowBox[{"ptP_", ",", "r1_", ",", "r2_", ",", "r3_"}], "]"}], " ", ":=", " ", RowBox[{"Module", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ "S2", ",", "u1", ",", "v1", ",", "w1", ",", "u2", ",", "v2", ",", "w2", ",", "u3", ",", "v3", ",", "w3", ",", "U1", ",", "V1", ",", "W1", ",", "U3", ",", "V3", ",", "W3"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"S2", "=", RowBox[{ RowBox[{"SB", " ", "SC"}], " ", "+", " ", RowBox[{"SC", " ", "SA"}], " ", "+", RowBox[{"SA", " ", "SB"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"u1", ",", "v1", ",", "w1"}], "}"}], "=", RowBox[{"PuntoInfinito", "[", "r1", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"u2", ",", "v2", ",", "w2"}], "}"}], "=", RowBox[{"PuntoInfinito", "[", "r2", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"u3", ",", "v3", ",", "w3"}], "}"}], "=", RowBox[{"PuntoInfinito", "[", "r3", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"U1", ",", "V1", ",", "W1"}], "}"}], "=", RowBox[{"PuntoInfinitoPerpendicular", "[", RowBox[{"{", RowBox[{"u1", ",", "v1", ",", "w1"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"U3", ",", "V3", ",", "W3"}], "}"}], "=", RowBox[{"PuntoInfinitoPerpendicular", "[", RowBox[{"{", RowBox[{"u3", ",", "v3", ",", "w3"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Punto", "[", RowBox[{"ptP", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"S2", RowBox[{"(", RowBox[{ RowBox[{"SA", " ", "u1", " ", "u2"}], " ", "+", " ", RowBox[{"SB", " ", "v1", " ", "v2"}], " ", "+", " ", RowBox[{"SC", " ", "w1", " ", "w2"}]}], ")"}], RowBox[{"{", RowBox[{"u3", ",", "v3", ",", "w3"}], "}"}]}], "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"SA", " ", "U1", " ", "u2"}], " ", "+", RowBox[{"SB", " ", "V1", " ", "v2"}], "+", " ", RowBox[{"SC", " ", "W1", " ", "w2"}]}], ")"}], " ", RowBox[{"{", RowBox[{"U3", ",", "V3", ",", "W3"}], "}"}]}]}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input", InitializationCell->True] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Divisi\[OAcute]n de un segmento en una raz\[OAcute]n dada\ \>", "Subsubtitle", CellDingbat->None, FontWeight->"Bold"], Cell[TextData[{ "La siguiente funci\[OAcute]n calcula el punto ", StyleBox["X", FontSlant->"Italic"], " que divide al segmetno ", StyleBox["PQ", FontSlant->"Italic"], " en la raz\[OAcute]n m:n, es decir, ", StyleBox["PX ", FontSlant->"Italic"], ": ", StyleBox["XQ", FontSlant->"Italic"], "=", StyleBox["m", FontSlant->"Italic"], ":", StyleBox["n", FontSlant->"Italic"], "." }], "Text", CellDingbat->None, CellChangeTimes->{{3.3986497172724047`*^9, 3.398649718073557*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"DividirRazon", "[", RowBox[{"P_", ",", "Q_", ",", " ", "m_", ",", " ", "n_"}], "]"}], " ", ":=", RowBox[{"Simplificar", "[", RowBox[{ RowBox[{"n", " ", RowBox[{"Tr", "[", "Q", "]"}], " ", "P"}], " ", "+", " ", RowBox[{"m", " ", RowBox[{"Tr", "[", "P", "]"}], " ", "Q"}]}], "]"}]}]], "Input", CellDingbat->None, InitializationCell->True] }, Open ]], Cell[CellGroupData[{ Cell["Algunos casos particulares de puntos y rectas", "Subsubtitle", CellDingbat->None, FontWeight->"Bold"], Cell["El punto medio de un segmento:", "Text", CellDingbat->None], Cell[BoxData[ RowBox[{ RowBox[{"Medio", "[", RowBox[{"P_", ",", "Q_"}], "]"}], " ", ":=", " ", RowBox[{"DividirRazon", "[", RowBox[{"P", ",", "Q", ",", " ", "1", ",", "1"}], "]"}]}]], "Input", CellDingbat->None, InitializationCell->True], Cell[TextData[{ "La mediana de un tri\[AAcute]ngulo ", StyleBox["PQR", FontSlant->"Italic"], " pasando por ", StyleBox["P", FontSlant->"Italic"], ":" }], "Text", CellDingbat->None], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Mediana", "[", RowBox[{"P_", ",", "Q_", ",", "R_"}], "]"}], " ", ":=", " ", RowBox[{"Recta", "[", RowBox[{"P", ",", " ", RowBox[{"Medio", "[", RowBox[{"Q", ",", " ", "R"}], " ", "]"}]}], "]"}]}], ";"}]], "Input", CellDingbat->None, InitializationCell->True], Cell["La mediatriz de un segmento:", "Text", CellDingbat->None], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Mediatriz", "[", RowBox[{"P_", ",", "Q_"}], "]"}], " ", ":=", " ", RowBox[{"Perpendicular", "[", RowBox[{ RowBox[{"Medio", "[", RowBox[{"P", ",", " ", "Q"}], "]"}], ",", " ", "P", ",", " ", "Q"}], "]"}]}], ";"}]], "Input", CellDingbat->None, InitializationCell->True], Cell[TextData[{ "La altura de un tri\[AAcute]ngulo ", StyleBox["PQR", FontSlant->"Italic"], " pasando por ", StyleBox["P", FontSlant->"Italic"], ":" }], "Text", CellDingbat->None], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Altura", "[", RowBox[{"P_", ",", "Q_", ",", "R_"}], "]"}], " ", ":=", " ", RowBox[{"Perpendicular", "[", RowBox[{"P", ",", " ", "Q", ",", " ", "R"}], "]"}]}], ";"}]], "Input", CellDingbat->None, InitializationCell->True], Cell[TextData[{ "La proyecci\[OAcute]n de un punto ", StyleBox["P", FontSlant->"Italic"], " sobre una recta ", StyleBox["QR", FontSlant->"Italic"], ":" }], "Text", CellDingbat->None], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Pie", "[", RowBox[{"P_", ",", "r_"}], "]"}], " ", ":=", RowBox[{"Punto", "[", RowBox[{ RowBox[{"Perpendicular", "[", RowBox[{"P", ",", "r"}], "]"}], ",", "r"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Pie", "[", RowBox[{"P_", ",", "Q_", ",", "R_"}], "]"}], " ", ":=", " ", RowBox[{"Pie", "[", RowBox[{"P", ",", RowBox[{"Recta", "[", RowBox[{"Q", ",", "R"}], "]"}]}], "]"}]}], ";"}]}], "Input", InitializationCell->True, CellChangeTimes->{{3.398649813731106*^9, 3.3986498206210127`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Baricentro", "[", RowBox[{"{", RowBox[{"ptA_", ",", "ptB_", ",", "ptC_"}], "}"}], "]"}], " ", ":=", RowBox[{"Punto", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Mediana", "[", RowBox[{"ptA", ",", "ptB", ",", "ptC"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Mediana", "[", RowBox[{"ptB", ",", "ptC", ",", "ptA"}], "]"}]}], "]"}]}], ";"}]], "Input", InitializationCell->True, CellChangeTimes->{{3.4163188765328045`*^9, 3.4163188909234977`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Circuncentro", "[", RowBox[{"{", RowBox[{"ptA_", ",", "ptB_", ",", "ptC_"}], "}"}], "]"}], " ", ":=", RowBox[{"Punto", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Mediatriz", "[", RowBox[{"ptA", ",", "ptB"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Mediatriz", "[", RowBox[{"ptA", ",", "ptC"}], "]"}]}], "]"}]}], ";"}]], "Input", InitializationCell->True, CellChangeTimes->{{3.4163188978334336`*^9, 3.416318910711952*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Ortocentro", "[", RowBox[{"{", RowBox[{"ptA_", ",", "ptB_", ",", "ptC_"}], "}"}], "]"}], " ", ":=", " ", "\[IndentingNewLine]", RowBox[{"Punto", "[", RowBox[{ RowBox[{"Perpendicular", "[", RowBox[{"ptA", ",", "ptB", ",", "ptC"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Perpendicular", "[", RowBox[{"ptB", ",", "ptC", ",", "ptA"}], "]"}]}], "]"}]}], ";"}]], "Input", InitializationCell->True, CellChangeTimes->{3.416318915218432*^9}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"CentroNuevePuntos", "[", "trT", "]"}], " ", ":=", " ", "\[IndentingNewLine]", RowBox[{"Medio", "[", RowBox[{ RowBox[{"Ortocentro", "[", "trT", "]"}], ",", RowBox[{"Circuncentro", "[", "trT", "]"}]}], "]"}]}], ";"}]], "Input", InitializationCell->True, CellChangeTimes->{ 3.4163189197148976`*^9, {3.4163189811231985`*^9, 3.416318994212019*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"RectaEuler", "[", "trT", "]"}], " ", ":=", "\[IndentingNewLine]", RowBox[{"Recta", "[", RowBox[{ RowBox[{"Baricentro", "[", "trT", "]"}], ",", RowBox[{"Circuncentro", "[", "trT", "]"}]}], "]"}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.416318925322962*^9, 3.4163189520513954`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"ConjugadoIsotomico", "[", RowBox[{"{", RowBox[{"u_", ",", "v_", ",", "w_"}], "}"}], "]"}], ":=", RowBox[{"Simplificar", "[", RowBox[{"{", RowBox[{ RowBox[{"v", " ", "w"}], ",", RowBox[{"w", " ", "u"}], ",", " ", RowBox[{"u", " ", "v"}]}], "}"}], "]"}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.398679797115094*^9, 3.398679852174266*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"ConjugadoIsogonal", "[", RowBox[{"{", RowBox[{"u_", ",", "v_", ",", "w_"}], "}"}], "]"}], ":=", RowBox[{"Simplificar", "[", RowBox[{"{", RowBox[{ RowBox[{ SuperscriptBox["a", "2"], " ", "v", " ", "w"}], ",", RowBox[{ SuperscriptBox["b", "2"], " ", "w", " ", "u"}], ",", RowBox[{ SuperscriptBox["c", "2"], " ", "u", " ", "v"}]}], "}"}], "]"}]}], ";"}]], "Input", InitializationCell->True, CellChangeTimes->{{3.4028521148133745`*^9, 3.402852118488659*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Anticomplemento", "[", "ptP_", "]"}], ":=", RowBox[{"DividirRazon", "[", RowBox[{"ptG", ",", "ptP", ",", RowBox[{"-", "2"}], ",", "3"}], "]"}]}], ";"}]], "Input", InitializationCell->True, CellChangeTimes->{{3.41758738396875*^9, 3.417587400484375*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Complemento", "[", "ptP_", "]"}], ":=", RowBox[{"DividirRazon", "[", RowBox[{"ptG", ",", "ptP", ",", RowBox[{"-", "1"}], ",", "3"}], "]"}]}], ";"}]], "Input", InitializationCell->True, CellChangeTimes->{{3.41758740503125*^9, 3.417587408625*^9}}], Cell[TextData[{ "La proyecci\[OAcute]n de un punto ", StyleBox["P", FontSlant->"Italic"], " sobre una recta ", StyleBox["QR", FontSlant->"Italic"], ":" }], "Text", CellDingbat->None], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"SimetriaAxial", "[", RowBox[{"P_", ",", "r_"}], "]"}], " ", ":=", "\[IndentingNewLine]", RowBox[{"DividirRazon", "[", RowBox[{"P", ",", " ", RowBox[{"Pie", "[", RowBox[{"P", ",", "r"}], "]"}], ",", " ", "2", ",", RowBox[{"-", "1"}]}], "]"}]}], ";"}]], "Input", InitializationCell->True], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"SimetriaAxial", "[", RowBox[{"P_", ",", " ", "Q_", ",", " ", "R_"}], "]"}], " ", ":=", " ", "\[IndentingNewLine]", RowBox[{"SimetriaAxial", "[", RowBox[{"P", ",", " ", RowBox[{"Recta", "[", RowBox[{"Q", ",", "R"}], "]"}]}], "]"}]}], ";"}]], "Input", CellDingbat->None, InitializationCell->True] }, Open ]], Cell[CellGroupData[{ Cell["Algunos puntos concretos:", "Subsubtitle", CellDingbat->None, FontWeight->"Bold"], Cell["\<\ El baricentro como intersecci\[OAcute]n de dos medianas:\ \>", "Text", CellDingbat->None], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ptG", "=", RowBox[{"Punto", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Mediana", "[", RowBox[{"ptA", ",", "ptB", ",", "ptC"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Mediana", "[", RowBox[{"ptB", ",", "ptC", ",", "ptA"}], "]"}]}], "]"}]}]], "Input", CellDingbat->None, InitializationCell->True], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}]], "Output", CellChangeTimes->{ 3.3986496481930733`*^9, {3.402761593207565*^9, 3.402761594809869*^9}, 3.402843880753378*^9, 3.4028482241288447`*^9, 3.4028494944354563`*^9, { 3.4028502837604494`*^9, 3.4028502850823507`*^9}, 3.4030883795316815`*^9, { 3.416307001139891*^9, 3.416307002261504*^9}, {3.416318956287486*^9, 3.416318962055781*^9}, 3.4163190050075426`*^9, {3.416360666099072*^9, 3.4163606673909297`*^9}, 3.417587412546875*^9}] }, Open ]], Cell["\<\ El circuncentro como intersecci\[OAcute]n de dos mediatrices:\ \>", "Text", CellDingbat->None], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ptO", "=", RowBox[{"Punto", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Mediatriz", "[", RowBox[{"ptA", ",", "ptB"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Mediatriz", "[", RowBox[{"ptA", ",", "ptC"}], "]"}]}], "]"}]}]], "Input", CellDingbat->None, InitializationCell->True], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ SuperscriptBox["a", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["a", "2"], "-", SuperscriptBox["b", "2"], "-", SuperscriptBox["c", "2"]}], ")"}]}], ",", RowBox[{ SuperscriptBox["b", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", SuperscriptBox["a", "2"]}], "+", SuperscriptBox["b", "2"], "-", SuperscriptBox["c", "2"]}], ")"}]}], ",", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", SuperscriptBox["a", "2"]}], "-", SuperscriptBox["b", "2"], "+", SuperscriptBox["c", "2"]}], ")"}]}]}], "}"}]], "Output", CellChangeTimes->{ 3.3986496482731886`*^9, {3.402761593297694*^9, 3.402761594839912*^9}, 3.402843880983709*^9, 3.402848224329133*^9, 3.4028494946457586`*^9, { 3.402850283970752*^9, 3.4028502851324224`*^9}, 3.403088379611797*^9, { 3.416307001260064*^9, 3.416307002331605*^9}, {3.416318956527832*^9, 3.4163189621258817`*^9}, 3.4163190050776434`*^9, {3.416360666169173*^9, 3.416360667451016*^9}, 3.417587412640625*^9}], Cell["\<\ El ortocentro como intersecci\[OAcute]n de dos alturas:\ \>", "Text", CellDingbat->None] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ptH", "=", RowBox[{"Punto", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Altura", "[", RowBox[{"ptA", ",", "ptB", ",", "ptC"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Altura", "[", RowBox[{"ptB", ",", "ptC", ",", "ptA"}], "]"}]}], "]"}]}]], "Input", CellDingbat->None, InitializationCell->True], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ SuperscriptBox["a", "4"], "-", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["b", "2"], "-", SuperscriptBox["c", "2"]}], ")"}], "2"]}], ",", RowBox[{ RowBox[{"-", SuperscriptBox["a", "4"]}], "+", SuperscriptBox["b", "4"], "+", RowBox[{"2", " ", SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"]}], "-", SuperscriptBox["c", "4"]}], ",", RowBox[{ RowBox[{"-", SuperscriptBox["a", "4"]}], "+", RowBox[{"2", " ", SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"]}], "-", SuperscriptBox["b", "4"], "+", SuperscriptBox["c", "4"]}]}], "}"}]], "Output", CellChangeTimes->{ 3.3986496483432894`*^9, {3.402761593387824*^9, 3.402761594869955*^9}, 3.402843881183997*^9, 3.402848224489363*^9, 3.402849494805989*^9, { 3.4028502841610255`*^9, 3.4028502851925087`*^9}, 3.4030883797219553`*^9, { 3.416307001370222*^9, 3.416307002391691*^9}, {3.4163189566980767`*^9, 3.4163189621959825`*^9}, 3.4163190051377296`*^9, {3.416360666249288*^9, 3.4163606675111027`*^9}, 3.41758741278125*^9}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Tri\[AAcute]ngulos", "Subtitle", CellDingbat->"\[FilledSquare]"], Cell[CellGroupData[{ Cell[TextData[StyleBox["Triangulo ceviano", FontWeight->"Bold"]], "Subsubtitle", CellDingbat->None], Cell["\<\ El tri\[AAcute]ngulo ceviano est\[AAcute] formado por las trazas de P sobre \ las rectas BC, CA, AB.\ \>", "Text", CellDingbat->None], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"TrianguloCeviano", "[", RowBox[{"{", RowBox[{"u_", ",", "v_", ",", "w_"}], "}"}], "]"}], " ", ":=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "v", ",", "w"}], "}"}], ",", RowBox[{"{", RowBox[{"u", ",", "0", ",", "w"}], "}"}], ",", RowBox[{"{", RowBox[{"u", ",", "v", ",", "0"}], "}"}]}], "}"}]}], ";"}]], "Input", CellDingbat->None, InitializationCell->True] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Triangulo pedal", FontWeight->"Bold"]], "Subsubtitle", CellDingbat->None], Cell["\<\ El tri\[AAcute]ngulo pedal est\[AAcute] formado por las proyecciones \ ortogonales de un punto sobre los lados BC, CA, AB del tri\[AAcute]ngulo ABC.\ \ \>", "Text", CellDingbat->None], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"TrianguloPedal", "[", "ptP_", "]"}], " ", ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Pie", "[", RowBox[{"ptP", ",", "ptB", ",", "ptC"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Pie", "[", RowBox[{"ptP", ",", "ptC", ",", "ptA"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Pie", "[", RowBox[{"ptP", ",", "ptA", ",", "ptB"}], "]"}]}], "}"}]}], ";"}]], "Input", CellDingbat->None, InitializationCell->True] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Tri\[AAcute]ngulo anticeviano", FontWeight->"Bold"]], "Subsubtitle", CellDingbat->None, CellChangeTimes->{{3.398649886976427*^9, 3.398649894757616*^9}}], Cell[TextData[{ "El tri\[AAcute]ngulo anticeviano del punto ", StyleBox["P", FontSlant->"Italic"], " respecto el tri\[AAcute]ngulo ", StyleBox["ABC", FontSlant->"Italic"], " es el tri\[AAcute]ngulo A'B'C' tal que ABC es tri\[AAcute]ngulo ceviano de \ ", StyleBox["P", FontSlant->"Italic"], " respecto ", StyleBox["A'B'C'", FontSlant->"Italic"], ". " }], "Text", CellDingbat->None, CellChangeTimes->{{3.398650047186798*^9, 3.3986501043890514`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"TrianguloAnticeviano", "[", RowBox[{"{", RowBox[{"u_", ",", "v_", ",", "w_"}], "}"}], "]"}], " ", ":=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "u"}], ",", "v", ",", "w"}], "}"}], ",", RowBox[{"{", RowBox[{"u", ",", RowBox[{"-", "v"}], ",", "w"}], "}"}], ",", RowBox[{"{", RowBox[{"u", ",", "v", ",", RowBox[{"-", "w"}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellDingbat->None, InitializationCell->True, CellChangeTimes->{{3.3986498981024256`*^9, 3.3986499101197057`*^9}, { 3.3986499554248514`*^9, 3.3986499638770046`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Tri\[AAcute]ngulo antipedal", FontWeight->"Bold"]], "Subsubtitle", CellDingbat->None, CellChangeTimes->{{3.398649886976427*^9, 3.398649894757616*^9}, { 3.4028439347510223`*^9, 3.402843936323283*^9}}], Cell["El tri\[AAcute]ngulo antipedal", "Text", CellDingbat->None, CellChangeTimes->{{3.398650047186798*^9, 3.3986501043890514`*^9}, { 3.40284394621751*^9, 3.4028439494020896`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"TrianguloAntipedal", "[", "ptP_", "]"}], " ", ":=", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Punto", "[", RowBox[{ RowBox[{"Perpendicular", "[", RowBox[{"ptB", ",", "ptB", ",", "ptP"}], "]"}], ",", RowBox[{"Perpendicular", "[", RowBox[{"ptC", ",", "ptC", ",", "ptP"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Punto", "[", RowBox[{ RowBox[{"Perpendicular", "[", RowBox[{"ptC", ",", "ptC", ",", "ptP"}], "]"}], ",", RowBox[{"Perpendicular", "[", RowBox[{"ptA", ",", "ptA", ",", "ptP"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Punto", "[", RowBox[{ RowBox[{"Perpendicular", "[", RowBox[{"ptA", ",", "ptA", ",", "ptP"}], "]"}], ",", RowBox[{"Perpendicular", "[", RowBox[{"ptB", ",", "ptB", ",", "ptP"}], "]"}]}], "]"}]}], "}"}]}], ";"}]], "Input", CellDingbat->None, InitializationCell->True, CellChangeTimes->{{3.3986498981024256`*^9, 3.3986499101197057`*^9}, { 3.3986499554248514`*^9, 3.3986499638770046`*^9}, {3.402843958755539*^9, 3.4028440379293857`*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Circunferencias", "Subtitle", CellDingbat->"\[FilledSquare]"], Cell[CellGroupData[{ Cell[TextData[StyleBox["Ecuaci\[OAcute]n de la circunferencia circunscrita", FontWeight->"Bold"]], "Subsubtitle", CellDingbat->None], Cell["\<\ La ecuaci\[OAcute]n circunscrita al tri\[AAcute]ngulo ABC tiene la \ f\[OAcute]rmula m\[AAcute]s sencilla de todas. \ \>", "Text", CellDingbat->None], Cell[BoxData[ RowBox[{ RowBox[{"circunscrita", "=", " ", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["a", "2"], "y", " ", "z"}], " ", "+", " ", RowBox[{ SuperscriptBox["b", "2"], " ", "z", " ", "x"}], " ", "+", " ", RowBox[{ SuperscriptBox["c", "2"], " ", "x", " ", "y"}]}], " ", "\[Equal]", "0"}]}], ";"}]], "Input", CellDingbat->None, InitializationCell->True] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Ecuaci\[OAcute]n de la circunferencia con centro \ u:v:w y cuadrado del radio r2. ", FontWeight->"Bold"]], "Subsubtitle", CellDingbat->None], Cell["\<\ Esta es una f\[OAcute]rmula complicada:\ \>", "Text", CellDingbat->None], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Circunferencia", "[", RowBox[{ RowBox[{"{", RowBox[{"u_", ",", "v_", ",", "w_"}], "}"}], ",", "r2_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{ RowBox[{ SuperscriptBox["a", "2"], "y", " ", "z"}], " ", "+", " ", RowBox[{ SuperscriptBox["b", RowBox[{"2", " "}]], "z", " ", "x"}], " ", "+", " ", RowBox[{ SuperscriptBox["c", "2"], " ", "x", " ", "y"}], " ", "-", RowBox[{ RowBox[{"(", RowBox[{"x", "+", "y", "+", "z"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ FractionBox[ RowBox[{ RowBox[{ SuperscriptBox["c", "2"], SuperscriptBox["v", "2"]}], "+", RowBox[{"2", " ", "SA", " ", "v", " ", "w"}], " ", "+", RowBox[{ SuperscriptBox["b", "2"], SuperscriptBox["w", "2"]}]}], SuperscriptBox[ RowBox[{"(", RowBox[{"u", "+", "v", "+", "w"}], ")"}], "2"]], "-", "r2"}], ")"}], "x"}], "+", RowBox[{ RowBox[{"(", RowBox[{ FractionBox[ RowBox[{ RowBox[{ SuperscriptBox["a", "2"], SuperscriptBox["w", "2"]}], "+", RowBox[{"2", " ", "SB", " ", "w", " ", "u"}], " ", "+", RowBox[{ SuperscriptBox["c", "2"], SuperscriptBox["u", "2"]}]}], SuperscriptBox[ RowBox[{"(", RowBox[{"u", "+", "v", "+", "w"}], ")"}], "2"]], "-", "r2"}], ")"}], "y"}], "+", RowBox[{ RowBox[{"(", RowBox[{ FractionBox[ RowBox[{ RowBox[{ SuperscriptBox["b", "2"], SuperscriptBox["u", "2"]}], "+", RowBox[{"2", " ", "SC", " ", "u", " ", "v"}], " ", "+", RowBox[{ SuperscriptBox["a", "2"], SuperscriptBox["v", "2"]}]}], SuperscriptBox[ RowBox[{"(", RowBox[{"u", "+", "v", "+", "w"}], ")"}], "2"]], "-", "r2"}], ")"}], "z"}]}], ")"}]}]}]}], ";"}]], "Input", InitializationCell->True] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Potencias de los v\[EAcute]rtices A, B, C respecto de \ la circunferencia con centro u:v:w y cuadrado del radio r2. ", FontWeight->"Bold"]], "Subsubtitle", CellDingbat->None], Cell["\<\ Esta es una f\[OAcute]rmula complicada:\ \>", "Text", CellDingbat->None], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Potencias", "[", RowBox[{ RowBox[{"{", RowBox[{"u_", ",", "v_", ",", "w_"}], "}"}], ",", "r2_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ FractionBox[ RowBox[{ RowBox[{ SuperscriptBox["c", "2"], SuperscriptBox["v", "2"]}], "+", RowBox[{"2", " ", "SA", " ", "v", " ", "w"}], " ", "+", RowBox[{ SuperscriptBox["b", "2"], SuperscriptBox["w", "2"]}]}], SuperscriptBox[ RowBox[{"(", RowBox[{"u", "+", "v", "+", "w"}], ")"}], "2"]], "-", "r2"}], ",", RowBox[{ FractionBox[ RowBox[{ RowBox[{ SuperscriptBox["a", "2"], SuperscriptBox["w", "2"]}], "+", RowBox[{"2", " ", "SB", " ", "w", " ", "u"}], " ", "+", RowBox[{ SuperscriptBox["c", "2"], SuperscriptBox["u", "2"]}]}], SuperscriptBox[ RowBox[{"(", RowBox[{"u", "+", "v", "+", "w"}], ")"}], "2"]], "-", "r2"}], ",", RowBox[{ FractionBox[ RowBox[{ RowBox[{ SuperscriptBox["b", "2"], SuperscriptBox["u", "2"]}], "+", RowBox[{"2", " ", "SC", " ", "u", " ", "v"}], " ", "+", RowBox[{ SuperscriptBox["a", "2"], SuperscriptBox["v", "2"]}]}], SuperscriptBox[ RowBox[{"(", RowBox[{"u", "+", "v", "+", "w"}], ")"}], "2"]], "-", "r2"}]}], "}"}]}], ";"}]], "Input", InitializationCell->True] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Centro radical de tres circunferencias", FontWeight->"Bold"]], "Subsubtitle", CellDingbat->None], Cell["\<\ Esta es una f\[OAcute]rmula complicada:\ \>", "Text", CellDingbat->None], Cell[BoxData[ RowBox[{ RowBox[{"CentroRadical", "[", RowBox[{ "O1_", ",", "O2_", ",", "O3_", ",", "r12_", ",", "r22_", ",", "r32_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "p1", ",", "q1", ",", "r1", ",", "p2", ",", "q2", ",", "r2", ",", "p3", ",", "q3", ",", "r3"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"p1", ",", "q1", ",", "r1"}], "}"}], "=", RowBox[{"Potencias", "[", RowBox[{"O1", ",", "r12"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"p2", ",", "q2", ",", "r2"}], "}"}], "=", RowBox[{"Potencias", "[", RowBox[{"O2", ",", "r22"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"p3", ",", "q3", ",", "r3"}], "}"}], "=", RowBox[{"Potencias", "[", RowBox[{"O3", ",", "r32"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Factor", "[", RowBox[{"{", RowBox[{ RowBox[{"Det", "[", RowBox[{"(", GridBox[{ {"1", "q1", "r1"}, {"1", "q2", "r2"}, {"1", "q3", "r3"} }], ")"}], "]"}], ",", RowBox[{"Det", "[", RowBox[{"(", GridBox[{ {"p1", "1", "r1"}, {"p2", "1", "r2"}, {"p3", "1", "r3"} }], ")"}], "]"}], ",", RowBox[{"Det", "[", RowBox[{"(", GridBox[{ {"p1", "q1", "1"}, {"p2", "q2", "1"}, {"p3", "q3", "1"} }], ")"}], "]"}]}], "}"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input", InitializationCell->True] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Segunda intersecci\[OAcute]n de una recta con una \ circunferencia", FontWeight->"Bold"]], "Subsubtitle", CellDingbat->None], Cell["\<\ Usamos la geometr\[IAcute]a proyectiva para hallar la intersecci\[OAcute]n de \ una recta con una circunferencia, todo mediante intersecciones de rectas.\ \>", "Text", CellDingbat->None] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"SegundaInterseccionCircunferencia", "[", RowBox[{"ptP_", ",", "ptA_", ",", "ptB_", ",", "ptC_"}], "]"}], ":=", " ", "\[IndentingNewLine]", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"r", ",", " ", "ptZ", ",", "ptU", ",", "ptV", ",", "ptW"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"r", "=", RowBox[{"Recta", "[", RowBox[{"ptP", ",", "ptA"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ptZ", "=", RowBox[{"Punto", "[", RowBox[{ RowBox[{"Mediatriz", "[", RowBox[{"ptA", ",", "ptB"}], "]"}], ",", RowBox[{"Mediatriz", "[", RowBox[{"ptA", ",", "ptC"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ptU", "=", RowBox[{"Punto", "[", RowBox[{ RowBox[{"Recta", "[", RowBox[{"ptA", ",", "ptB"}], "]"}], ",", RowBox[{"Perpendicular", "[", RowBox[{"ptC", ",", "ptC", ",", "ptZ"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ptV", "=", RowBox[{"Punto", "[", RowBox[{"r", ",", RowBox[{"Recta", "[", RowBox[{"ptB", ",", "ptC"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ptW", "=", RowBox[{"Punto", "[", RowBox[{ RowBox[{"Recta", "[", RowBox[{"ptU", ",", "ptV"}], "]"}], ",", RowBox[{"Perpendicular", "[", RowBox[{"ptB", ",", "ptB", ",", "ptZ"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Punto", "[", RowBox[{"r", ",", RowBox[{"Recta", "[", RowBox[{"ptC", ",", "ptW"}], "]"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input", InitializationCell->True] }, Open ]], Cell[CellGroupData[{ Cell["C\[OAcute]nicas", "Subtitle", CellDingbat->"\[FilledSquare]"], Cell["\<\ Ecuaci\[OAcute]n de la c\[OAcute]nica que pasa por cinco puntos\ \>", "Text"], Cell[BoxData[ RowBox[{ RowBox[{"ConicaCincoPuntos", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"x1_", ",", "y1_", ",", "z1_"}], "}"}], ",", RowBox[{"{", RowBox[{"x2_", ",", "y2_", ",", "z2_"}], "}"}], ",", RowBox[{"{", RowBox[{"x3_", ",", "y3_", ",", "z3_"}], "}"}], ",", RowBox[{"{", RowBox[{"x4_", ",", "y4_", ",", "z4_"}], "}"}], ",", RowBox[{"{", RowBox[{"x5_", ",", "y5_", ",", "z5_"}], "}"}]}], "]"}], " ", ":=", "\[IndentingNewLine]", RowBox[{"Factor", "[", RowBox[{"Det", "[", RowBox[{"(", GridBox[{ { SuperscriptBox["x", "2"], SuperscriptBox["y", "2"], SuperscriptBox["z", "2"], RowBox[{"y", " ", "z"}], RowBox[{"z", " ", "x"}], RowBox[{"x", " ", "y"}]}, { SuperscriptBox["x1", "2"], SuperscriptBox["y1", "2"], SuperscriptBox["z1", "2"], RowBox[{"y1", " ", "z1"}], RowBox[{"z1", " ", "x1"}], RowBox[{"x1", " ", "y1"}]}, { SuperscriptBox["x2", "2"], SuperscriptBox["y2", "2"], SuperscriptBox["z2", "2"], RowBox[{"y2", " ", "z2"}], RowBox[{"z2", " ", "x2"}], RowBox[{"x2", " ", "y2"}]}, { SuperscriptBox["x3", "2"], SuperscriptBox["y3", "2"], SuperscriptBox["z3", "2"], RowBox[{"y3", " ", "z3"}], RowBox[{"z3", " ", "x3"}], RowBox[{"x3", " ", "y3"}]}, { SuperscriptBox["x4", "2"], SuperscriptBox["y4", "2"], SuperscriptBox["z4", "2"], RowBox[{"y4", " ", "z4"}], RowBox[{"z4", " ", "x4"}], RowBox[{"x4", " ", "y4"}]}, { SuperscriptBox["x5", "2"], SuperscriptBox["y5", "2"], SuperscriptBox["z5", "2"], RowBox[{"y5", " ", "z5"}], RowBox[{"z5", " ", "x5"}], RowBox[{"x5", " ", "y5"}]} }], ")"}], "]"}], "]"}]}]], "Input", InitializationCell->True], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ StyleBox["Obtiene", FontFamily->"Times New Roman"], StyleBox[" ", FontFamily->"Times New Roman"], StyleBox["una", FontFamily->"Times New Roman"], StyleBox[" ", FontFamily->"Times New Roman"], StyleBox["expresi\[OAcute]n", FontFamily->"Times New Roman"], StyleBox[" ", FontFamily->"Times New Roman"], StyleBox["matricial", FontFamily->"Times New Roman"], StyleBox[" ", FontFamily->"Times New Roman"], StyleBox["de", FontFamily->"Times New Roman"], StyleBox[" ", FontFamily->"Times New Roman"], StyleBox["la", FontFamily->"Times New Roman"], StyleBox[" ", FontFamily->"Times New Roman"], StyleBox["c\[OAcute]nica", FontFamily->"Times New Roman"], StyleBox[" ", FontFamily->"Times New Roman"], StyleBox["de", FontFamily->"Times New Roman"], " ", "f", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"g", " ", SuperscriptBox["y", "2"]}], " ", "+", " ", RowBox[{"h", " ", SuperscriptBox["z", "2"]}], "+", " ", RowBox[{"2", " ", "p", " ", "yz"}], " ", "+", " ", RowBox[{"2", " ", "q", " ", "zx"}], " ", "+", " ", RowBox[{"2", "r", " ", "xy"}]}], " ", "\[Equal]", "0"}]], "Text"], Cell[BoxData[ RowBox[{ RowBox[{"MatrizConica", "[", "conica_", "]"}], " ", ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "f", ",", "g", ",", "h", ",", " ", "p", ",", " ", "q", ",", " ", "r"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"f", "=", RowBox[{"Coefficient", "[", RowBox[{"conica", ",", SuperscriptBox["x", "2"]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"g", "=", RowBox[{"Coefficient", "[", RowBox[{"conica", ",", SuperscriptBox["y", "2"]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"h", "=", RowBox[{"Coefficient", "[", RowBox[{"conica", ",", SuperscriptBox["z", "2"]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{ RowBox[{"Coefficient", "[", RowBox[{"conica", ",", RowBox[{"y", " ", "z"}]}], "]"}], "/", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"q", "=", RowBox[{ RowBox[{"Coefficient", "[", RowBox[{"conica", ",", RowBox[{"z", " ", "x"}]}], " ", "]"}], "/", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"r", "=", RowBox[{ RowBox[{"Coefficient", "[", RowBox[{"conica", ",", RowBox[{"x", " ", "y"}]}], "]"}], "/", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"(", GridBox[{ {"f", "r", "q"}, {"r", "g", "p"}, {"q", "p", "h"} }], ")"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input", InitializationCell->True], Cell["Devuelve la matriz adjunta de una matriz", "Text"], Cell[BoxData[ RowBox[{ RowBox[{"Adjunta", "[", "mtM_", "]"}], " ", ":=", " ", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Det", "[", "mtM", "]"}], " ", RowBox[{"Inverse", "[", "mtM", "]"}]}], "]"}]}]], "Input", InitializationCell->True], Cell["\<\ Halla el centro de una c\[OAcute]nica hallando el polo de la recta del \ infinito:\ \>", "Text"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"CentroConica", "[", "conica_", "]"}], " ", ":=", " ", RowBox[{"Simplificar", "[", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], ".", RowBox[{"Adjunta", "[", RowBox[{"MatrizConica", "[", "conica", "]"}], "]"}]}], "]"}], "]"}]}], ";"}]], "Input", InitializationCell->True, CellChangeTimes->{{3.4030883741239057`*^9, 3.4030883769880238`*^9}}], Cell[TextData[{ "Halla la recta tangente por el punto ", StyleBox["A", FontSlant->"Italic"], " a la c\[OAcute]nica que pasa por ", StyleBox["A", FontSlant->"Italic"], ", ", StyleBox["B", FontSlant->"Italic"], ", ", StyleBox["C", FontSlant->"Italic"], ", ", StyleBox["D", FontSlant->"Italic"], ", ", StyleBox["E", FontSlant->"Italic"], "." }], "Text"], Cell[BoxData[ RowBox[{ RowBox[{"TangenteConica", "[", RowBox[{"ptA_", ",", "ptB_", ",", "ptC_", ",", "ptD_", ",", "ptE_"}], "]"}], ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"ptP", ",", "ptQ", ",", "ptR"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"ptP", "=", RowBox[{"Punto", "[", RowBox[{ RowBox[{"Recta", "[", RowBox[{"ptA", ",", "ptC"}], "]"}], ",", RowBox[{"Recta", "[", RowBox[{"ptB", ",", "ptD"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ptQ", "=", RowBox[{"Punto", "[", RowBox[{ RowBox[{"Recta", "[", RowBox[{"ptA", ",", "ptD"}], "]"}], ",", RowBox[{"Recta", "[", RowBox[{"ptC", ",", "ptE"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ptR", "=", RowBox[{"Punto", "[", RowBox[{ RowBox[{"Recta", "[", RowBox[{"ptP", ",", "ptQ"}], "]"}], ",", RowBox[{"Recta", "[", RowBox[{"ptB", ",", "ptE"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Recta", "[", RowBox[{"ptA", ",", "ptR"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input", InitializationCell->True], Cell[TextData[{ "Halla la segunda intersecci\[OAcute]n de la c\[OAcute]nica que pasa por ", StyleBox["A", FontSlant->"Italic"], ", ", StyleBox["B", FontSlant->"Italic"], ", ", StyleBox["C", FontSlant->"Italic"], ", ", StyleBox["D", FontSlant->"Italic"], ", ", StyleBox["E", FontSlant->"Italic"], " con una ", "recta ", StyleBox["r ", FontSlant->"Italic"], "que pasa por el punto ", StyleBox["A.", FontSlant->"Italic"], " " }], "Text"], Cell[BoxData[ RowBox[{ RowBox[{"SegundaInterseccion", "[", RowBox[{ "ptP_", ",", "ptA_", ",", "ptB_", ",", "ptC_", ",", "ptD_", ",", "ptE_"}], "]"}], ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"r", ",", "ptU", ",", "ptV", ",", "ptW"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"r", "=", RowBox[{"Recta", "[", RowBox[{"ptP", ",", "ptA"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ptU", "=", RowBox[{"Punto", "[", RowBox[{ RowBox[{"Recta", "[", RowBox[{"ptA", ",", "ptC"}], "]"}], ",", RowBox[{"Recta", "[", RowBox[{"ptB", ",", "ptE"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ptV", "=", RowBox[{"Punto", "[", RowBox[{"r", ",", RowBox[{"Recta", "[", RowBox[{"ptB", ",", "ptD"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ptW", "=", RowBox[{"Punto", "[", RowBox[{ RowBox[{"Recta", "[", RowBox[{"ptU", ",", "ptV"}], "]"}], ",", RowBox[{"Recta", "[", RowBox[{"ptC", ",", "ptD"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Punto", "[", RowBox[{"r", ",", RowBox[{"Recta", "[", RowBox[{"ptW", ",", "ptE"}], "]"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input", InitializationCell->True], Cell["\<\ Hallamos el punto de tangencia de con la recta t1 de la c\[OAcute]nica que es \ tangente a las rectas t1, t2, t3, t4, y t5. \ \>", "Text"], Cell[BoxData[ RowBox[{ RowBox[{"PuntoTangenciaConica", "[", RowBox[{"t1_", ",", "t2_", ",", "t3_", ",", "t4_", ",", "t5_"}], "]"}], " ", ":=", " ", "\[IndentingNewLine]", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "ptP", ",", "ptV1", ",", "ptV2", ",", "ptV3", ",", "ptV4", ",", "ptV5"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"ptV1", "=", RowBox[{"Punto", "[", RowBox[{"t1", ",", "t2"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ptV2", "=", RowBox[{"Punto", "[", RowBox[{"t2", ",", "t3"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ptV3", "=", RowBox[{"Punto", "[", RowBox[{"t3", ",", "t4"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ptV4", "=", RowBox[{"Punto", "[", RowBox[{"t4", ",", "t5"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ptV5", "=", RowBox[{"Punto", "[", RowBox[{"t5", ",", "t1"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ptP", "=", RowBox[{"Punto", "[", RowBox[{ RowBox[{"Recta", "[", RowBox[{"ptV1", ",", "ptV4"}], "]"}], ",", RowBox[{"Recta", "[", RowBox[{"ptV2", ",", "ptV5"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Punto", "[", RowBox[{ RowBox[{"Recta", "[", RowBox[{"ptV3", ",", "ptP"}], "]"}], ",", "t1"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input", InitializationCell->True], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"ConicaBiceviana", "[", RowBox[{"ptP_", ",", "ptQ_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"trP", ",", "trQ"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"trP", "=", RowBox[{"TrianguloCeviano", "[", "ptP", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"trQ", "=", RowBox[{"TrianguloCeviano", "[", "ptQ", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ConicaCincoPuntos", "[", RowBox[{ RowBox[{"trP", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"trP", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"trP", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"trQ", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"trQ", "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}]}], "]"}]}], ";"}]], "Input",\ InitializationCell->True, CellChangeTimes->{{3.3986796173966722`*^9, 3.3986797665211024`*^9}}], Cell["\<\ Devuelve un n\[UAcute]mero que es positivo, nulo o negativo seg\[UAcute]n la \ c\[OAcute]nica sea una hip\[EAcute]rbola, una par\[AAcute]bola o una elipse, \ es decir, seg\[UAcute]n sean dos, uno o cero los puntos de corte con la recta \ del infinito. \ \>", "Text"], Cell[BoxData[ RowBox[{ RowBox[{"DiscriminanteConica", "[", "conica_", "]"}], " ", ":=", " ", "\[IndentingNewLine]", RowBox[{"Factor", "[", RowBox[{"-", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], ".", RowBox[{"Adjunta", "[", RowBox[{"MatrizConica", "[", "conica", "]"}], "]"}], ".", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}]}]}], "]"}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.403088404467538*^9, 3.403088413230138*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Concurrencia y alineaci\[OAcute]n", "Subtitle", CellDingbat->"\[FilledSquare]"], Cell[CellGroupData[{ Cell[TextData[StyleBox["Determinar si los puntos de una lista est\[AAcute]n \ alineados", FontWeight->"Bold"]], "Subsubtitle", CellDingbat->None], Cell["\<\ El rango de la matriz formada por la lista de puntos debe ser menor que 3. Si \ es 1, todos son el mismo punto. Si es 2 todos los puntos est\[AAcute]n sobre \ una recta. \ \>", "Text", CellDingbat->None], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"EstanAlineados", "[", "lista_", "]"}], " ", ":=", " ", RowBox[{ RowBox[{"MatrixRank", "[", "lista", "]"}], " ", "<", "3"}]}], ";"}]], "Input", CellDingbat->None, InitializationCell->True] }, Open ]], Cell[CellGroupData[{ Cell["Determinar si las rectas de una lista son concurrentes", "Subsubtitle", CellDingbat->None, FontWeight->"Bold"], Cell["Aprovechamos la dualidad de puntos y rectas:", "Text", CellDingbat->None], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"SonConcurrentes", "[", "lista_", "]"}], " ", ":=", " ", RowBox[{"EstanAlineados", "[", "lista", "]"}]}], ";"}]], "Input", CellDingbat->None, InitializationCell->True] }, Open ]], Cell[CellGroupData[{ Cell["Tri\[AAcute]ngulos perspectivos", "Subsubtitle", CellDingbat->None, FontWeight->"Bold"], Cell["Aprovechamos la dualidad de puntos y rectas:", "Text", CellDingbat->None], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"SonPerspectivos", "[", RowBox[{ RowBox[{"{", RowBox[{"ptA1_", ",", "ptB1_", ",", "ptC1_"}], "}"}], ",", RowBox[{"{", RowBox[{"ptA2_", ",", "ptB2_", ",", "ptC2_"}], "}"}]}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{ RowBox[{"Factor", " ", "[", RowBox[{"Det", "[", RowBox[{"{", RowBox[{ RowBox[{"Recta", "[", RowBox[{"ptA1", ",", "ptA2"}], "]"}], ",", RowBox[{"Recta", "[", RowBox[{"ptB1", ",", "ptB2"}], "]"}], ",", RowBox[{"Recta", "[", RowBox[{"ptC1", ",", "ptC2"}], "]"}]}], "}"}], "]"}], "]"}], "\[Equal]", "0"}]}], ";"}]], "Input", CellDingbat->None, InitializationCell->True] }, Open ]], Cell[CellGroupData[{ Cell["Tri\[AAcute]ngulo perspectivo con ABC", "Subsubtitle", CellDingbat->None, FontWeight->"Bold"], Cell["Aprovechamos la dualidad de puntos y rectas:", "Text", CellDingbat->None], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"PerspectivoConABC", "[", "T_", "]"}], " ", ":=", " ", RowBox[{"SonPerspectivos", "[", RowBox[{ RowBox[{"{", RowBox[{"ptA", ",", "ptB", ",", "ptC"}], "}"}], ",", "T"}], "]"}]}], ";"}]], "Input", CellDingbat->None, InitializationCell->True] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Perspector de dos tri\[AAcute]ngulos perspectivos\ \>", "Subsubtitle", CellDingbat->None, FontWeight->"Bold"], Cell["\<\ Calculamos el centro de perspectiva de ABC y un tri\[AAcute]ngulo perspectivo \ con ABCAprovechamos la dualidad de puntos y rectas:\ \>", "Text", CellDingbat->None], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Perspector", "[", RowBox[{ RowBox[{"{", RowBox[{"ptA1_", ",", "ptB1_", ",", "ptC1_"}], "}"}], ",", RowBox[{"{", RowBox[{"ptA2_", ",", "ptB2_", ",", "ptC2_"}], "}"}]}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Punto", "[", RowBox[{ RowBox[{"Recta", "[", RowBox[{"ptA1", ",", "ptA2"}], "]"}], ",", RowBox[{"Recta", "[", RowBox[{"ptB1", ",", "ptB2"}], "]"}]}], "]"}]}], ";"}]], "Input", CellDingbat->None, InitializationCell->True] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Perspector de un tri\[AAcute]ngulo y ABC\ \>", "Subsubtitle", CellDingbat->None, FontWeight->"Bold"], Cell["\<\ Calculamos el centro de perspectiva de ABC y un tri\[AAcute]ngulo perspectivo \ con ABCAprovechamos la dualidad de puntos y rectas:\ \>", "Text", CellDingbat->None], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"PerspectorConABC", "[", "T_", "]"}], " ", ":=", " ", RowBox[{"Perspector", "[", RowBox[{ RowBox[{"{", RowBox[{"ptA", ",", "ptB", ",", "ptC"}], "}"}], ",", "T"}], "]"}]}], ";"}], "\[IndentingNewLine]"}]], "Input", CellDingbat->None, InitializationCell->True] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Distancias y \[AAcute]reas", "Subtitle", CellDingbat->"\[FilledSquare]"], Cell[CellGroupData[{ Cell["Area de un tr\[AAcute]ngulo", "Subsubtitle", CellDingbat->None, FontWeight->"Bold"], Cell[TextData[{ "La f\[OAcute]rmula siguiente calcula el \[AAcute]rea del tri\[AAcute]ngulo \ ", StyleBox["ABC", FontSlant->"Italic"], ", considerando como unidad el \[AAcute]rea del tri\[AAcute]ngulo de \ referencia ", StyleBox["ABC", FontSlant->"Italic"], ":" }], "Text", CellDingbat->None], Cell[BoxData[ RowBox[{ RowBox[{"AreaTriangulo", "[", RowBox[{"P_", ",", "Q_", ",", "R_"}], "]"}], " ", ":=", FractionBox[ RowBox[{"Det", "[", RowBox[{"{", RowBox[{"P", ",", "Q", ",", "R"}], "}"}], "]"}], RowBox[{ RowBox[{"Tr", "[", "P", "]"}], " ", RowBox[{"Tr", "[", "Q", "]"}], " ", RowBox[{"Tr", "[", "R", "]"}]}]]}]], "Input", CellDingbat->None, InitializationCell->True] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Distancia entre dos puntos", FontWeight->"Bold"]], "Subsubtitle", CellDingbat->None], Cell["\<\ Introducimos la f\[OAcute]rmula de la distancia de dos puntos:\ \>", "Text", CellDingbat->None], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"CuadradoDistancia", "[", RowBox[{ RowBox[{"{", RowBox[{"u_", ",", "v_", ",", "w_"}], "}"}], ",", RowBox[{"{", RowBox[{"x_", ",", "y_", ",", "z_"}], "}"}]}], "]"}], " ", ":=", " ", RowBox[{"Factor", "[", "\[IndentingNewLine]", RowBox[{"Divide", "[", RowBox[{ RowBox[{ RowBox[{"SA", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"v", "+", "w"}], ")"}], "x"}], "-", RowBox[{"u", RowBox[{"(", RowBox[{"y", "+", "z"}], ")"}]}]}], ")"}], "2"]}], "+", RowBox[{"SB", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"w", "+", "u"}], ")"}], "y"}], "-", RowBox[{"v", RowBox[{"(", RowBox[{"z", "+", "x"}], ")"}]}]}], ")"}], "2"]}], "+", RowBox[{"SC", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"u", "+", "v"}], ")"}], "z"}], "-", RowBox[{"w", RowBox[{"(", RowBox[{"x", "+", "y"}], ")"}]}]}], ")"}], "2"]}]}], ",", "\[IndentingNewLine]", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"u", "+", "v", "+", "w"}], ")"}], "2"], SuperscriptBox[ RowBox[{"(", RowBox[{"x", "+", "y", "+", "z"}], ")"}], "2"]}]}], "]"}], "]"}]}], ";"}]], "Input", CellDingbat->None, InitializationCell->True] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Raz\[OAcute]n simple", FontWeight->"Bold"]], "Subsubtitle", CellDingbat->None], Cell["\<\ Cuadrado de la raz\[OAcute]n simple de tres puntos:\ \>", "Text"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"CuadradoRazonSimple", "[", RowBox[{"P_", ",", "Q_", ",", "R_"}], "]"}], " ", ":=", " ", RowBox[{"Factor", "[", "\[IndentingNewLine]", FractionBox[ RowBox[{"CuadradoDistancia", "[", RowBox[{"P", ",", "R"}], "]"}], RowBox[{"CuadradoDistancia", "[", RowBox[{"R", ",", "Q"}], "]"}]], "]"}]}], ";"}]], "Input", InitializationCell->True] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Raz\[OAcute]n doble", FontWeight->"Bold"]], "Subsubtitle", CellDingbat->None], Cell["\<\ Cuadrado de la raz\[OAcute]n doble de cuatro puntos:\ \>", "Text"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"CuadradoRazonDoble", "[", RowBox[{"P_", ",", "Q_", ",", "R_", ",", "S_"}], "]"}], " ", ":=", " ", RowBox[{"Factor", "[", RowBox[{"Divide", "[", "\[IndentingNewLine]", RowBox[{ FractionBox[ RowBox[{"CuadradoDistancia", "[", RowBox[{"P", ",", "R"}], "]"}], RowBox[{"CuadradoDistancia", "[", RowBox[{"R", ",", "Q"}], "]"}]], ",", FractionBox[ RowBox[{"CuadradoDistancia", "[", RowBox[{"P", ",", "S"}], "]"}], RowBox[{"CuadradoDistancia", "[", RowBox[{"S", ",", "Q"}], "]"}]]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]"}]], "Input", InitializationCell->True] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Distancia de un punto a una recta", FontWeight->"Bold"]], "Subsubtitle", CellDingbat->None], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"CuadradoDistanciaPuntoRecta", "[", RowBox[{ RowBox[{"{", RowBox[{"x_", ",", "y_", ",", "z_"}], "}"}], ",", RowBox[{"{", RowBox[{"a_", ",", "b_", ",", "c_"}], "}"}]}], "]"}], " ", ":=", " ", "\[IndentingNewLine]", RowBox[{"Factor", "[", RowBox[{ FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"a", " ", "x"}], " ", "+", " ", RowBox[{"b", " ", "y"}], " ", "+", " ", RowBox[{"c", " ", "z"}]}], ")"}], "2"], RowBox[{ RowBox[{"SA", SuperscriptBox[ RowBox[{"(", RowBox[{"b", "-", "c"}], ")"}], "2"]}], "+", RowBox[{"SB", SuperscriptBox[ RowBox[{"(", RowBox[{"c", "-", "a"}], ")"}], "2"]}], "+", RowBox[{"SC", SuperscriptBox[ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], "2"]}]}]], FractionBox[ RowBox[{"s", RowBox[{"(", RowBox[{"s", "-", "a"}], ")"}], RowBox[{"(", RowBox[{"s", "-", "b"}], ")"}], RowBox[{"(", RowBox[{"s", "-", "c"}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{"x", "+", "y", "+", "z"}], ")"}], "2"]]}], "]"}]}], ";"}], "\[IndentingNewLine]"}]], "Input", InitializationCell->True] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Conversi\[OAcute]n de coordenadas", "Subtitle", CellDingbat->"\[FilledSquare]"], Cell[CellGroupData[{ Cell["\<\ Conversi\[OAcute]n de coordenadas baric\[EAcute]ntricas en coordenadas \ cartesianas\ \>", "Subsubtitle", CellDingbat->None, FontWeight->"Bold"], Cell[TextData[{ "La siguiente f\[OAcute]rmula transforma la expresi\[OAcute]n ", StyleBox["f", FontSlant->"Italic"], " en funci\[OAcute]n de x:y:z en otra expresi\[OAcute]n con coordenadas \ cartesianas:" }], "Text", CellDingbat->None], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"BarCar", "[", RowBox[{"f_", ",", "cA_", ",", "cB_", ",", "cC_"}], "]"}], ":=", RowBox[{"f", " ", "/.", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", " ", RowBox[{"Det", "[", RowBox[{"(", GridBox[{ { RowBox[{ RowBox[{ "cB", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "-", "x"}], RowBox[{ RowBox[{ "cC", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "-", "x"}]}, { RowBox[{ RowBox[{ "cB", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "-", "y"}], RowBox[{ RowBox[{ "cC", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "-", "y"}]} }], ")"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"y", "\[Rule]", RowBox[{"Det", "[", RowBox[{"(", GridBox[{ { RowBox[{ RowBox[{ "cC", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "-", "x"}], RowBox[{ RowBox[{ "cA", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "-", "x"}]}, { RowBox[{ RowBox[{ "cC", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "-", "y"}], RowBox[{ RowBox[{ "cA", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "-", "y"}]} }], ")"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"z", "\[Rule]", " ", RowBox[{"Det", "[", RowBox[{"(", GridBox[{ { RowBox[{ RowBox[{ "cA", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "-", "x"}], RowBox[{ RowBox[{ "cB", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "-", "x"}]}, { RowBox[{ RowBox[{ "cA", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "-", "y"}], RowBox[{ RowBox[{ "cB", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "-", "y"}]} }], ")"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"a", "\[Rule]", RowBox[{"Norm", "[", RowBox[{"cB", "-", "cC"}], "]"}]}], ",", RowBox[{"b", "\[Rule]", RowBox[{"Norm", "[", RowBox[{"cC", "-", "cA"}], "]"}]}], ",", RowBox[{"c", "\[Rule]", RowBox[{"Norm", "[", RowBox[{"cA", "-", "cB"}], "]"}]}]}], "}"}]}]}], ";"}]], "Input", CellDingbat->None, InitializationCell->True] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Coordenadas cartesianas de un punto dados sus baric\ \[EAcute]ntricas y el tri\[AAcute]ngulo de referencia:", FontWeight->"Bold"]], "Subsubtitle", CellDingbat->None], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"PuntoBarCar", "[", RowBox[{ RowBox[{"{", RowBox[{"u_", ",", "v_", ",", "w_"}], "}"}], ",", "cA_", ",", "cB_", ",", "cC_"}], "]"}], " ", ":=", " ", "\[IndentingNewLine]", RowBox[{ FractionBox[ RowBox[{ RowBox[{"u", " ", "cA"}], " ", "+", " ", RowBox[{"v", " ", "cB"}], " ", "+", " ", RowBox[{"w", " ", "cC"}]}], RowBox[{"u", "+", "v", "+", "w"}]], " ", "/.", " ", RowBox[{"{", RowBox[{ RowBox[{"a", "\[Rule]", RowBox[{"Norm", "[", RowBox[{"cB", "-", "cC"}], "]"}]}], ",", RowBox[{"b", "\[Rule]", RowBox[{"Norm", "[", RowBox[{"cC", "-", "cA"}], "]"}]}], ",", RowBox[{"c", "\[Rule]", RowBox[{"Norm", "[", RowBox[{"cA", "-", "cB"}], "]"}]}]}], "}"}]}]}], ";"}]], "Input", InitializationCell->True] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Enciclopedia de Kimberling", "Subtitle", CellDingbat->"\[FilledSquare]"], Cell[CellGroupData[{ Cell["\<\ Coordenadas del tri\[AAcute]ngulo de Kimberling\ \>", "Subsubtitle", CellDingbat->None, FontWeight->"Bold"], Cell["\<\ Kimberling considera un tri\[AAcute]ngulo con lados 6, 9 y 13:\ \>", "Text", CellDingbat->None], Cell[BoxData[ RowBox[{ RowBox[{"kiA", "=", RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"4", " ", SqrtBox["35"]}], "3"], ",", FractionBox["13", "3"]}], "}"}]}], ";", RowBox[{"kiB", "=", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "6"}]}], "}"}]}], ";", RowBox[{"kiC", "=", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], ";"}]], "Input", CellDingbat->None, InitializationCell->True] }, Open ]], Cell[TextData[StyleBox["Primera coordenada de un punto en el \ tri\[AAcute]ngulo de Kimberling:", FontWeight->"Bold"]], "Subsubtitle", CellDingbat->None], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Kimberling", "[", RowBox[{"{", RowBox[{"u_", ",", "v_", ",", "w_"}], "}"}], "]"}], " ", ":=", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"N", "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"u", " ", "kiA"}], "+", " ", RowBox[{"v", " ", "kiB"}], "+", " ", RowBox[{"w", " ", "kiC"}]}], RowBox[{"u", "+", "v", "+", "w"}]], ",", "12"}], "]"}], " ", "[", RowBox[{"[", "1", "]"}], "]"}], "/.", " ", RowBox[{"{", RowBox[{ RowBox[{"a", "\[Rule]", "6"}], ",", " ", RowBox[{"b", "\[Rule]", "9"}], ",", RowBox[{"c", "\[Rule]", "13"}]}], "}"}]}]}], ";"}], " "}]], "Input", InitializationCell->True], Cell[TextData[StyleBox["Gr\[AAcute]fico del tri\[AAcute]ngulo de Kimberling", FontWeight->"Bold"]], "Subsubtitle", CellDingbat->None], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"EscribirTexto", "[", RowBox[{"texto_", ",", RowBox[{"{", RowBox[{"x_", ",", "y_"}], "}"}], ",", RowBox[{"{", RowBox[{"dx_", ",", "dy_"}], "}"}]}], "]"}], " ", ":=", "\[IndentingNewLine]", RowBox[{"Text", "[", RowBox[{"texto", ",", " ", RowBox[{"{", RowBox[{ RowBox[{"x", "+", "dx"}], ",", RowBox[{"y", "+", "dy"}]}], "}"}], ",", RowBox[{"TextStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "->", "\"\\""}], ",", " ", RowBox[{"FontSize", "\[Rule]", "12"}]}], " ", "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"circulito", "[", RowBox[{"{", RowBox[{"x_", ",", "y_"}], "}"}], "]"}], " ", ":=", " ", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{"1", ",", "1", ",", "1"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", "0.05"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"RGBColor", "[", RowBox[{"0", ",", "0", ",", "0"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", "0.05"}], "]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"puntos", " ", "=", " ", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"circulito", "[", "kiA", "]"}], ",", RowBox[{"circulito", "[", "kiB", "]"}], ",", RowBox[{"circulito", "[", "kiC", "]"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"rotulos", " ", "=", " ", RowBox[{"Graphics", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"EscribirTexto", "[", RowBox[{"\"\\"", ",", " ", "kiA", ",", " ", RowBox[{"{", RowBox[{ RowBox[{"+", "0.25"}], ",", RowBox[{"-", " ", "0.25"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"EscribirTexto", "[", RowBox[{"\"\\"", ",", " ", "kiB", ",", " ", RowBox[{"{", RowBox[{ RowBox[{"+", "0.35"}], ",", " ", RowBox[{"-", ".05"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"EscribirTexto", "[", RowBox[{"\"\\"", ",", " ", "kiC", ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "0.25"}], ",", " ", "0.25"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "\[IndentingNewLine]", "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"triangulo", "=", RowBox[{"Graphics", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{"1", ",", "0", ",", "0"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"kiA", ",", "kiB", ",", "kiC", ",", "kiA"}], "}"}], "]"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ RowBox[{"{", RowBox[{"triangulo", ",", " ", "puntos", ",", " ", "rotulos"}], "}"}], ",", RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}]}], "]"}]}], "Input"], Cell[BoxData[ GraphicsBox[{ {RGBColor[1, 0, 0], LineBox[NCache[{{Rational[4, 3] 35^Rational[1, 2], Rational[13, 3]}, { 0, -6}, {0, 0}, { Rational[4, 3] 35^Rational[1, 2], Rational[13, 3]}}, {{ 7.888106377466155, 4.333333333333333}, {0, -6}, {0, 0}, { 7.888106377466155, 4.333333333333333}}]]}, {{ {RGBColor[1, 1, 1], DiskBox[NCache[{Rational[4, 3] 35^Rational[1, 2], Rational[13, 3]}, { 7.888106377466155, 4.333333333333333}], 0.05]}, {RGBColor[0, 0, 0], CircleBox[ NCache[{Rational[4, 3] 35^Rational[1, 2], Rational[13, 3]}, { 7.888106377466155, 4.333333333333333}], 0.05]}}, { {RGBColor[1, 1, 1], DiskBox[{0, -6}, 0.05]}, {RGBColor[0, 0, 0], CircleBox[{0, -6}, 0.05]}}, { {RGBColor[1, 1, 1], DiskBox[{0, 0}, 0.05]}, {RGBColor[0, 0, 0], CircleBox[{0, 0}, 0.05]}}}, { InsetBox["\<\"A\"\>", {8.138106377466155, 4.083333333333333}, BaseStyle->{FontFamily -> "Arial", FontSize -> 12}], InsetBox["\<\"B\"\>", {0.35, -6.05}, BaseStyle->{FontFamily -> "Arial", FontSize -> 12}], InsetBox["\<\"C\"\>", {-0.25, 0.25}, BaseStyle->{FontFamily -> "Arial", FontSize -> 12}]}}, AspectRatio->Automatic, Axes->Automatic]], "Output", CellChangeTimes->{3.402761595490848*^9, 3.402850285743301*^9, 3.416307002992555*^9, 3.4163189628168755`*^9, 3.4163190056584787`*^9, 3.41636066805188*^9}] }, Open ]] }, Open ]] }, AutoGeneratedPackage->Automatic, ScreenStyleEnvironment->"Working", PrintingStyleEnvironment->"Printout", CellGrouping->Manual, WindowSize->{1017, 668}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, PrintingCopies->1, PrintingPageRange->{Automatic, Automatic}, ShowSelection->True, CellLabelAutoDelete->True, FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (April 28, 2007)", StyleDefinitions->Notebook[{ Cell[ CellGroupData[{ Cell["Style Definitions", "Title"], Cell[ "Modify the definitions below to change the default appearance of all \ cells in a given style. Make modifications to any definition using commands \ in the Format menu.", "Text"], Cell[ CellGroupData[{ Cell["Style Environment Names", "Section"], Cell[ StyleData[All, "Working"], CellBracketOptions -> {"Color" -> RGBColor[0, 0.2, 1]}, ScriptMinSize -> 9], Cell[ StyleData[All, "Presentation"], CellBracketOptions -> {"Color" -> RGBColor[0, 0.2, 1]}, ScriptMinSize -> 9], Cell[ StyleData[All, "SlideShow"], PageWidth -> WindowWidth, ScrollingOptions -> { "PagewiseDisplay" -> True, "VerticalScrollRange" -> Fit}, ShowCellBracket -> False, ScriptMinSize -> 9], Cell[ StyleData[All, "Printout"], PageWidth -> PaperWidth, PrivateFontOptions -> {"FontType" -> "Outline"}]}, Closed]], Cell[ CellGroupData[{ Cell["Notebook Options", "Section"], Cell[ " The options defined for the style below will be used at the \ Notebook level. ", "Text"], Cell[ StyleData["Notebook"], PageHeaders -> {{ Cell[ TextData[{ CounterBox["Page"]}], "PageNumber"], None, Cell[ TextData[{ OptionValueBox["FileName"]}], "Header"]}, { Cell[ TextData[{ OptionValueBox["FileName"]}], "Header"], None, Cell[ TextData[{ CounterBox["Page"]}], "PageNumber"]}}, PrintingOptions -> { "FacingPages" -> True, "FirstPageHeader" -> False}, CellLabelAutoDelete -> False, CellFrameLabelMargins -> 6, StyleMenuListing -> None]}, Closed]], Cell[ CellGroupData[{ Cell["Headings", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["Title"], CellMargins -> {{12, Inherited}, {2, 20}}, CellGroupingRules -> {"TitleGrouping", 0}, PageBreakBelow -> False, InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, LineSpacing -> {1, 11}, CounterIncrements -> "Title", CounterAssignments -> {{"Section", 0}, {"Equation", 0}, { "Figure", 0}, {"Subtitle", 0}, {"Subsubtitle", 0}}, FontFamily -> "Helvetica", FontSize -> 30, FontWeight -> "Bold"], Cell[ StyleData["Title", "Presentation"], CellMargins -> {{20, 18}, {4, 32}}, FontSize -> 45], Cell[ StyleData["Title", "Printout"], CellMargins -> {{2, 10}, {2, 30}}, FontSize -> 24]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Subtitle"], CellMargins -> {{12, Inherited}, {2, 2}}, CellGroupingRules -> {"TitleGrouping", 10}, PageBreakBelow -> False, InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, CounterIncrements -> "Subtitle", CounterAssignments -> {{"Section", 0}, {"Equation", 0}, { "Figure", 0}, {"Subsubtitle", 0}}, FontFamily -> "Helvetica", FontSize -> 24, FontColor -> RGBColor[0, 0, 0.6]], Cell[ StyleData["Subtitle", "Presentation"], CellMargins -> {{20, 18}, {4, 4}}, FontSize -> 36], Cell[ StyleData["Subtitle", "Printout"], CellMargins -> {{2, 10}, {2, 4}}, FontSize -> 18, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Subsubtitle"], CellMargins -> {{12, Inherited}, {2, 12}}, CellGroupingRules -> {"TitleGrouping", 20}, PageBreakBelow -> False, InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, CounterIncrements -> "Subsubtitle", CounterAssignments -> {{"Section", 0}, {"Equation", 0}, { "Figure", 0}}, FontFamily -> "Helvetica", FontSize -> 14, FontSlant -> "Italic", FontColor -> RGBColor[0, 0, 0.6]], Cell[ StyleData["Subsubtitle", "Presentation"], CellMargins -> {{20, 18}, {4, 18}}, FontSize -> 21], Cell[ StyleData["Subsubtitle", "Printout"], CellMargins -> {{2, 10}, {2, 8}}, FontSize -> 12, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Section"], CellFrame -> {{0, 0}, {2, 0}}, CellMargins -> {{10, 4}, {2, 50}}, CellElementSpacings -> {"ClosedGroupTopMargin" -> 18}, CellGroupingRules -> {"SectionGrouping", 30}, PageBreakBelow -> False, InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, CounterIncrements -> "Section", CounterAssignments -> {{"Subsection", 0}, {"Subsubsection", 0}}, FontFamily -> "Helvetica", FontSize -> 18, FontWeight -> "Bold"], Cell[ StyleData["Section", "Presentation"], CellFrame -> {{0, 0}, {3, 0}}, CellMargins -> {{18, 6}, {4, 74}}, CellFrameMargins -> {{0, 0}, {12, 0}}, FontSize -> 27], Cell[ StyleData["Section", "Printout"], CellMargins -> {{2, 4}, {2, 80}}, FontSize -> 14]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Subsection"], CellDingbat -> "\[FilledSquare]", CellMargins -> {{24, 4}, {2, 18}}, CellElementSpacings -> {"ClosedGroupTopMargin" -> 12}, CellGroupingRules -> {"SectionGrouping", 40}, PageBreakBelow -> False, CellFrameLabelMargins -> 6, InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, LineSpacing -> {1, 5}, CounterIncrements -> "Subsection", CounterAssignments -> {{"Subsubsection", 0}}, FontFamily -> "Helvetica", FontSize -> 15, FontWeight -> "Bold"], Cell[ StyleData["Subsection", "Presentation"], CellMargins -> {{38, 6}, {4, 28}}, FontSize -> 23], Cell[ StyleData["Subsection", "Printout"], CellMargins -> {{2, 4}, {2, 18}}, FontSize -> 12]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Subsubsection"], CellMargins -> {{10, 4}, {2, 18}}, CellElementSpacings -> {"ClosedGroupTopMargin" -> 12}, CellGroupingRules -> {"SectionGrouping", 50}, PageBreakBelow -> False, InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, CounterIncrements -> "Subsubsection", FontFamily -> "Helvetica", FontWeight -> "Bold"], Cell[ StyleData["Subsubsection", "Presentation"], CellMargins -> {{20, 6}, {6, 26}}, FontSize -> 18], Cell[ StyleData["Subsubsection", "Printout"], CellMargins -> {{2, 4}, {2, 18}}, FontSize -> 10]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Text", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["Text"], CellMargins -> {{10, 4}, {0, 8}}, InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, ParagraphSpacing -> {0, 8}, CounterIncrements -> "Text"], Cell[ StyleData["Text", "Presentation"], CellMargins -> {{20, 8}, {4, 10}}, FontSize -> 18], Cell[ StyleData["Text", "Printout"], CellMargins -> {{2, 4}, {0, 8}}, Hyphenation -> True, FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["MathCaption"], CellFrame -> {{4, 0}, {0, 0}}, CellMargins -> {{47, 62}, {0, 14}}, CellFrameMargins -> 5, CellFrameColor -> RGBColor[0, 0.2, 1], LineSpacing -> {1, 1}, ParagraphSpacing -> {0, 8}, FontColor -> RGBColor[0, 0, 0.6]], Cell[ StyleData["MathCaption", "Presentation"], CellFrame -> {{6, 0}, {0, 0}}, CellMargins -> {{76, 72}, {2, 16}}, CellFrameMargins -> {{10, 0}, {0, 0}}, FontSize -> 18], Cell[ StyleData["MathCaption", "Printout"], CellMargins -> {{34, 62}, {0, 14}}, CellFrameColor -> GrayLevel[0.700008], Hyphenation -> True, FontSize -> 10, FontColor -> GrayLevel[0]]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Inline Formatting", "Section"], Cell[ "These styles are for modifying individual words or letters in a \ cell exclusive of the cell tag.", "Text"], Cell[ StyleData["RM"], StyleMenuListing -> None, FontWeight -> "Plain", FontSlant -> "Plain"], Cell[ StyleData["BF"], StyleMenuListing -> None, FontWeight -> "Bold"], Cell[ StyleData["IT"], StyleMenuListing -> None, FontSlant -> "Italic"], Cell[ StyleData["TR"], StyleMenuListing -> None, FontFamily -> "Times", FontWeight -> "Plain", FontSlant -> "Plain"], Cell[ StyleData["TI"], StyleMenuListing -> None, FontFamily -> "Times", FontWeight -> "Plain", FontSlant -> "Italic"], Cell[ StyleData["TB"], StyleMenuListing -> None, FontFamily -> "Times", FontWeight -> "Bold", FontSlant -> "Plain"], Cell[ StyleData["TBI"], StyleMenuListing -> None, FontFamily -> "Times", FontWeight -> "Bold", FontSlant -> "Italic"], Cell[ StyleData["MR"], "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, StyleMenuListing -> None, FontFamily -> "Courier", FontWeight -> "Plain", FontSlant -> "Plain"], Cell[ StyleData["MO"], "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, StyleMenuListing -> None, FontFamily -> "Courier", FontWeight -> "Plain", FontSlant -> "Italic"], Cell[ StyleData["MB"], "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, StyleMenuListing -> None, FontFamily -> "Courier", FontWeight -> "Bold", FontSlant -> "Plain"], Cell[ StyleData["MBO"], "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, StyleMenuListing -> None, FontFamily -> "Courier", FontWeight -> "Bold", FontSlant -> "Italic"], Cell[ StyleData["SR"], StyleMenuListing -> None, FontFamily -> "Helvetica", FontWeight -> "Plain", FontSlant -> "Plain"], Cell[ StyleData["SO"], StyleMenuListing -> None, FontFamily -> "Helvetica", FontWeight -> "Plain", FontSlant -> "Italic"], Cell[ StyleData["SB"], StyleMenuListing -> None, FontFamily -> "Helvetica", FontWeight -> "Bold", FontSlant -> "Plain"], Cell[ StyleData["SBO"], StyleMenuListing -> None, FontFamily -> "Helvetica", FontWeight -> "Bold", FontSlant -> "Italic"], Cell[ CellGroupData[{ Cell[ StyleData["SO10"], StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 10, FontWeight -> "Plain", FontSlant -> "Italic"], Cell[ StyleData["SO10", "Printout"], StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 7, FontWeight -> "Plain", FontSlant -> "Italic"]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Inert"], StyleMenuListing -> None, Background -> RGBColor[0.870588, 0.905882, 0.972549]], Cell[ StyleData["Inert", "Printout"], StyleMenuListing -> None, Background -> GrayLevel[1]]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Input/Output", "Section"], Cell[ "The cells in this section define styles used for input and output \ to the kernel. Be careful when modifying, renaming, or removing these \ styles, because the front end associates special meanings with these style \ names. ", "Text"], Cell[ CellGroupData[{ Cell[ StyleData["Input"], CellMargins -> {{56, 4}, {3, 9}}, Evaluatable -> True, CellGroupingRules -> "InputGrouping", PageBreakWithin -> False, GroupPageBreakWithin -> False, CellLabelMargins -> {{21, Inherited}, {Inherited, Inherited}}, DefaultFormatType -> DefaultInputFormatType, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, AutoItalicWords -> {}, LanguageCategory -> "Formula", FormatType -> StandardForm, ShowStringCharacters -> True, NumberMarks -> True, LinebreakAdjustments -> {0.85, 2, 10, 0, 1}, CounterIncrements -> "Input", FontWeight -> "Bold"], Cell[ StyleData["Input", "Presentation"], CellMargins -> {{92, 8}, {4, 12}}, FontSize -> 18], Cell[ StyleData["Input", "Printout"], ShowCellBracket -> False, CellMargins -> {{42, 4}, {3, 8}}, LinebreakAdjustments -> {0.85, 2, 10, 1, 1}, FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Output"], CellMargins -> {{57, 4}, {5, 2}}, CellEditDuplicate -> True, CellGroupingRules -> "OutputGrouping", PageBreakWithin -> False, GroupPageBreakWithin -> False, GeneratedCell -> True, CellAutoOverwrite -> True, CellLabelMargins -> {{21, Inherited}, {Inherited, Inherited}}, DefaultFormatType -> DefaultOutputFormatType, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, AutoItalicWords -> {}, LanguageCategory -> "Formula", FormatType -> StandardForm, CounterIncrements -> "Output"], Cell[ StyleData["Output", "Presentation"], CellMargins -> {{92, 8}, {8, 4}}, FontSize -> 18], Cell[ StyleData["Output", "Printout"], ShowCellBracket -> False, CellMargins -> {{42, 4}, {4, 2}}, FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Message"], CellMargins -> {{56, 4}, {3, 8}}, CellGroupingRules -> "OutputGrouping", PageBreakWithin -> False, GroupPageBreakWithin -> False, GeneratedCell -> True, CellAutoOverwrite -> True, ShowCellLabel -> False, CellLabelMargins -> {{21, Inherited}, {Inherited, Inherited}}, DefaultFormatType -> DefaultOutputFormatType, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, AutoItalicWords -> {}, FormatType -> InputForm, CounterIncrements -> "Message", StyleMenuListing -> None, FontColor -> RGBColor[0, 0.2, 1]], Cell[ StyleData["Message", "Presentation"], CellMargins -> {{92, 8}, {8, 10}}, FontSize -> 18], Cell[ StyleData["Message", "Printout"], ShowCellBracket -> False, CellMargins -> {{42, 4}, {4, 2}}, FontSize -> 10, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Print"], CellMargins -> {{56, 4}, {3, 8}}, CellGroupingRules -> "OutputGrouping", PageBreakWithin -> False, GroupPageBreakWithin -> False, GeneratedCell -> True, CellAutoOverwrite -> True, ShowCellLabel -> False, CellLabelMargins -> {{21, Inherited}, {Inherited, Inherited}}, DefaultFormatType -> DefaultOutputFormatType, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, AutoItalicWords -> {}, FormatType -> InputForm, CounterIncrements -> "Print", StyleMenuListing -> None], Cell[ StyleData["Print", "Presentation"], CellMargins -> {{92, 8}, {6, 10}}, FontSize -> 18], Cell[ StyleData["Print", "Printout"], ShowCellBracket -> False, CellMargins -> {{42, 4}, {4, 2}}, FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Graphics"], CellMargins -> {{56, Inherited}, {Inherited, Inherited}}, CellGroupingRules -> "GraphicsGrouping", CellHorizontalScrolling -> True, PageBreakWithin -> False, GeneratedCell -> True, CellAutoOverwrite -> True, ShowCellLabel -> False, DefaultFormatType -> DefaultOutputFormatType, FormatType -> InputForm, CounterIncrements -> "Graphics", StyleMenuListing -> None], Cell[ StyleData["Graphics", "Presentation"], CellMargins -> {{92, 8}, {4, 4}}, FontSize -> 18], Cell[ StyleData["Graphics", "Printout"], CellMargins -> {{40, 4}, {4, 2}}, ImageSize -> {250, 250}, FontSize -> 9]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["CellLabel"], StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 9, FontColor -> RGBColor[0, 0.2, 1]], Cell[ StyleData["CellLabel", "Presentation"], FontSize -> 14], Cell[ StyleData["CellLabel", "Printout"], FontSize -> 7, FontSlant -> "Oblique", FontColor -> GrayLevel[0]]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Unique Styles", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["TextTop"], CellFrame -> {{0, 0}, {0, 2}}, CellMargins -> {{10, 4}, {2, 80}}, CellHorizontalScrolling -> True, CellFrameMargins -> 4, ShowSpecialCharacters -> Automatic, ParagraphSpacing -> {0, 8}, CounterIncrements -> "Text"], Cell[ StyleData["TextTop", "Presentation"], CellFrame -> {{0, 0}, {0, 3}}, CellMargins -> {{20, 8}, {4, 124}}, FontSize -> 18], Cell[ StyleData["TextTop", "Printout"], CellMargins -> {{2, 4}, {2, 80}}, FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["ItemizedText"], CellMargins -> {{20, 4}, {0, 8}}, ShowSpecialCharacters -> Automatic, ParagraphSpacing -> {0, 8}, ParagraphIndent -> -15, CounterIncrements -> "Text"], Cell[ StyleData["ItemizedText", "Presentation"], CellMargins -> {{36, 8}, {0, 14}}, FontSize -> 18], Cell[ StyleData["ItemizedText", "Printout"], Hyphenation -> True, FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["ItemizedTextNote"], CellMargins -> {{35, 4}, {0, 4}}, ShowSpecialCharacters -> Automatic, ParagraphSpacing -> {0, 4}, CounterIncrements -> "Text"], Cell[ StyleData["ItemizedTextNote", "Presentation"], CellMargins -> {{56, 8}, {0, 6}}, FontSize -> 18], Cell[ StyleData["ItemizedTextNote", "Printout"], Hyphenation -> True, FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["IndentedText"], CellMargins -> {{20, 4}, {0, 6}}, ShowSpecialCharacters -> Automatic, ParagraphSpacing -> {0, 8}, CounterIncrements -> "Text"], Cell[ StyleData["IndentedText", "Presentation"], CellMargins -> {{36, 8}, {0, 8}}, FontSize -> 18], Cell[ StyleData["IndentedText", "Printout"], Hyphenation -> True, FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Note"], CellFrame -> True, CellMargins -> {{10, 4}, {0, 8}}, CellHorizontalScrolling -> True, ShowSpecialCharacters -> Automatic, ParagraphSpacing -> {0, 8}, CounterIncrements -> "Text", FontFamily -> "Helvetica", FontSize -> 10], Cell[ StyleData["Note", "Presentation"], CellMargins -> {{16, 8}, {2, 12}}, CellFrameMargins -> 12, FontSize -> 15], Cell[ StyleData["Note", "Printout"], CellMargins -> {{2, 4}, {0, 8}}, FontSize -> 8]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["1ColumnBox"], CellFrame -> True, CellMargins -> {{10, 4}, {0, 8}}, CellHorizontalScrolling -> True, LineIndent -> 0, Background -> GrayLevel[0.8], FrameBoxOptions -> {FrameMargins -> {{1, 1}, {1.5, 1.5}}}, GridBoxOptions -> {GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[ StyleData["1ColumnBox", "Presentation"], CellMargins -> {{16, 8}, {2, 10}}, CellFrameMargins -> 12, FontSize -> 18], Cell[ StyleData["1ColumnBox", "Printout"], CellMargins -> {{2, 4}, {0, 8}}, FontSize -> 10, Background -> GrayLevel[0.900008]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["2ColumnBox"], CellFrame -> True, CellMargins -> {{10, 4}, {0, 8}}, CellHorizontalScrolling -> True, LineIndent -> 0, Background -> GrayLevel[0.8], FrameBoxOptions -> {FrameMargins -> {{1, 1}, {1.5, 1.5}}}, GridBoxOptions -> {GridBoxItemSize -> {"Columns" -> { Scaled[0.39], { Scaled[0.59]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["2ColumnBox", "Presentation"], CellMargins -> {{16, 8}, {2, 10}}, CellFrameMargins -> 12, FontSize -> 18], Cell[ StyleData["2ColumnBox", "Printout"], CellMargins -> {{2, 4}, {0, 8}}, FontSize -> 10, Background -> GrayLevel[0.900008]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["2ColumnSmallBox"], CellFrame -> True, CellMargins -> {{10, 4}, {0, 8}}, CellHorizontalScrolling -> True, LineIndent -> 0, Background -> GrayLevel[0.8], FrameBoxOptions -> {FrameMargins -> {{1, 1}, {1.5, 1.5}}}, GridBoxOptions -> { GridBoxAlignment -> { "Columns" -> {Right, {Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize -> {"Columns" -> {{ Scaled[0.35]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[1.0499999999999998`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[ StyleData["2ColumnSmallBox", "Presentation"], CellMargins -> {{16, 8}, {2, 10}}, CellFrameMargins -> 12, FontSize -> 18], Cell[ StyleData["2ColumnSmallBox", "Printout"], CellMargins -> {{2, 4}, {0, 8}}, FontSize -> 10, Background -> GrayLevel[0.900008]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["3ColumnBox"], CellFrame -> True, CellMargins -> {{10, 4}, {0, 8}}, CellHorizontalScrolling -> True, LineIndent -> 0, Background -> GrayLevel[0.8], FrameBoxOptions -> {FrameMargins -> {{1, 1}, {1.5, 1.5}}}, GridBoxOptions -> {GridBoxItemSize -> {"Columns" -> {{ Scaled[0.325]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["3ColumnBox", "Presentation"], CellMargins -> {{16, 8}, {2, 10}}, CellFrameMargins -> 12, FontSize -> 18], Cell[ StyleData["3ColumnBox", "Printout"], CellMargins -> {{2, 4}, {0, 8}}, FontSize -> 10, Background -> GrayLevel[0.900008]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["3ColumnSmallBox"], CellFrame -> True, CellMargins -> {{10, 4}, {0, 8}}, CellHorizontalScrolling -> True, LineIndent -> 0, Background -> GrayLevel[0.8], FrameBoxOptions -> {FrameMargins -> {{1, 1}, {1.5, 1.5}}}, GridBoxOptions -> { GridBoxAlignment -> { "Columns" -> {Right, Center, {Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize -> {"Columns" -> {{ Scaled[0.23]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[1.0499999999999998`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[ StyleData["3ColumnSmallBox", "Presentation"], CellMargins -> {{16, 8}, {2, 10}}, CellFrameMargins -> 12, FontSize -> 18], Cell[ StyleData["3ColumnSmallBox", "Printout"], CellMargins -> {{2, 4}, {0, 8}}, FontSize -> 10, Background -> GrayLevel[0.900008]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["4ColumnBox"], CellFrame -> True, CellMargins -> {{10, 4}, {0, 8}}, CellHorizontalScrolling -> True, LineIndent -> 0, Background -> GrayLevel[0.8], FrameBoxOptions -> {FrameMargins -> {{1, 1}, {1.5, 1.5}}}, GridBoxOptions -> {GridBoxItemSize -> {"Columns" -> { Scaled[0.145], Scaled[0.345], Scaled[0.145], { Scaled[0.345]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["4ColumnBox", "Presentation"], CellMargins -> {{16, 8}, {2, 10}}, CellFrameMargins -> 12, FontSize -> 18], Cell[ StyleData["4ColumnBox", "Printout"], CellMargins -> {{2, 4}, {0, 8}}, FontSize -> 10, Background -> GrayLevel[0.900008]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["5ColumnBox"], CellFrame -> True, CellMargins -> {{10, 4}, {0, 8}}, CellHorizontalScrolling -> True, LineIndent -> 0, Background -> GrayLevel[0.8], FrameBoxOptions -> {FrameMargins -> {{1, 1}, {1.5, 1.5}}}, GridBoxOptions -> {GridBoxItemSize -> {"Columns" -> {{ Scaled[0.195]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["5ColumnBox", "Presentation"], CellMargins -> {{16, 8}, {2, 10}}, CellFrameMargins -> 12, FontSize -> 18], Cell[ StyleData["5ColumnBox", "Printout"], CellMargins -> {{2, 4}, {0, 8}}, FontSize -> 10, Background -> GrayLevel[0.900008]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["6ColumnBox"], CellFrame -> True, CellMargins -> {{10, 4}, {0, 8}}, CellHorizontalScrolling -> True, LineIndent -> 0, Background -> GrayLevel[0.8], FrameBoxOptions -> {FrameMargins -> {{1, 1}, {1.5, 1.5}}}, GridBoxOptions -> {GridBoxItemSize -> {"Columns" -> { Scaled[0.13], Scaled[0.23], Scaled[0.13], Scaled[0.13], Scaled[0.23], { Scaled[0.13]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["6ColumnBox", "Presentation"], CellMargins -> {{16, 8}, {2, 10}}, CellFrameMargins -> 12, FontSize -> 18], Cell[ StyleData["6ColumnBox", "Printout"], CellMargins -> {{2, 4}, {0, 8}}, FontSize -> 10, Background -> GrayLevel[0.900008]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Picture"], CellMargins -> {{10, Inherited}, {0, 8}}, CellHorizontalScrolling -> True], Cell[ StyleData["Picture", "Presentation"], CellMargins -> {{16, 8}, {0, 10}}, FontSize -> 18], Cell[ StyleData["Picture", "Printout"], CellMargins -> {{2, Inherited}, {0, 8}}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Caption"], CellMargins -> {{10, 50}, {0, 3}}, PageBreakAbove -> False, FontFamily -> "Helvetica", FontSize -> 9], Cell[ StyleData["Caption", "Presentation"], CellMargins -> {{16, 65}, {0, 4}}, FontSize -> 14], Cell[ StyleData["Caption", "Printout"], CellMargins -> {{2, 50}, {2, 4}}, Hyphenation -> True, FontSize -> 7]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Tables", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["2ColumnTable"], CellMargins -> {{10, 4}, {0, 8}}, CellHorizontalScrolling -> True, GridBoxOptions -> { GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize -> {"Columns" -> { Scaled[0.39], { Scaled[0.59]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["2ColumnTable", "Presentation"], CellMargins -> {{16, 8}, {2, 14}}, FontSize -> 18], Cell[ StyleData["2ColumnTable", "Printout"], CellMargins -> {{2, 4}, {0, 8}}, FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["3ColumnTable"], CellMargins -> {{10, 4}, {0, 8}}, CellHorizontalScrolling -> True, StyleMenuListing -> None, GridBoxOptions -> { GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize -> {"Columns" -> {{ Scaled[0.325]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["3ColumnTable", "Presentation"], CellMargins -> {{16, 8}, {2, 10}}, FontSize -> 18], Cell[ StyleData["3ColumnTable", "Printout"], CellMargins -> {{2, 4}, {0, 8}}, FontSize -> 10]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Formulas and Programming", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["ChemicalFormula"], CellMargins -> {{42, Inherited}, {Inherited, Inherited}}, CellHorizontalScrolling -> True, DefaultFormatType -> DefaultInputFormatType, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> "Formula", AutoSpacing -> False, ScriptBaselineShifts -> {0.6, Automatic}, ScriptLevel -> 1, SingleLetterItalics -> False, ZeroWidthTimes -> True], Cell[ StyleData["ChemicalFormula", "Presentation"], CellMargins -> {{64, 30}, {2, 4}}, FontSize -> 18], Cell[ StyleData["ChemicalFormula", "Printout"], CellMargins -> {{34, Inherited}, {Inherited, Inherited}}, FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["DisplayFormula"], CellMargins -> {{42, Inherited}, {Inherited, Inherited}}, CellHorizontalScroll