(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 9.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 157, 7] NotebookDataLength[ 5697, 234] NotebookOptionsPosition[ 4652, 191] NotebookOutlinePosition[ 5005, 207] CellTagsIndexPosition[ 4962, 204] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Conway Triangle Notation", "Title"], Cell[CellGroupData[{ Cell["Author", "Subsection"], Cell["\<\ Eric W. Weisstein October 25, 2005\ \>", "Text"], Cell[TextData[{ "This notebook downloaded from ", ButtonBox["http://mathworld.wolfram.com/notebooks/PlaneGeometry/\ ConwayTriangleNotation.nb", BaseStyle->"Hyperlink", ButtonData:>{ URL["http://mathworld.wolfram.com/notebooks/PlaneGeometry/\ ConwayTriangleNotation.nb"], None}], "." }], "Text"], Cell[TextData[{ "For more information, see Eric's ", StyleBox["MathWorld", FontSlant->"Italic"], " entry ", ButtonBox["http://mathworld.wolfram.com/ConwayTriangleNotation.html", BaseStyle->"Hyperlink", ButtonData:>{ URL["http://mathworld.wolfram.com/ConwayTriangleNotation.html"], None}], "." }], "Text"], Cell["\<\ \[Copyright]2005 Wolfram Research, Inc. except for portions noted otherwise\ \>", "Text"] }, Open ]], Cell[CellGroupData[{ Cell["Definition", "Subsection"], Cell[BoxData[ RowBox[{ RowBox[{"ConwayS", "[", "phi_", "]"}], ":=", RowBox[{"2", "Area", " ", RowBox[{"Cot", "[", "phi", "]"}]}]}]], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Section"], Cell[BoxData[ RowBox[{ RowBox[{"l", "=", RowBox[{"{", RowBox[{"A", ",", "B", ",", "C", ",", "BrocardAngle"}], "}"}]}], ";"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{ RowBox[{"ToSidelengths", "/@", RowBox[{"ConwayS", "/@", "l"}]}], ",", RowBox[{"TriangleQ", "[", "]"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", SuperscriptBox["a", "2"]}], "+", SuperscriptBox["b", "2"], "+", SuperscriptBox["c", "2"]}], ")"}]}], ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["a", "2"], "-", SuperscriptBox["b", "2"], "+", SuperscriptBox["c", "2"]}], ")"}]}], ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["a", "2"], "+", SuperscriptBox["b", "2"], "-", SuperscriptBox["c", "2"]}], ")"}]}], ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["a", "2"], "+", SuperscriptBox["b", "2"], "+", SuperscriptBox["c", "2"]}], ")"}]}]}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ToAngles", "[", "%", "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"b", " ", "c", " ", RowBox[{"Cos", "[", "A", "]"}]}], ",", RowBox[{"a", " ", "c", " ", RowBox[{"Cos", "[", "B", "]"}]}], ",", RowBox[{"a", " ", "b", " ", RowBox[{"Cos", "[", "C", "]"}]}], ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["a", "2"], "+", SuperscriptBox["b", "2"], "+", SuperscriptBox["c", "2"]}], ")"}]}]}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"ToSidelengths", "[", RowBox[{ RowBox[{"ConwayS", "[", "BrocardAngle", "]"}], "-", RowBox[{"#", "^", "2"}]}], "]"}], "&"}], "/@", RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}]}], "//", "Simplify"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", SuperscriptBox["a", "2"]}], "+", SuperscriptBox["b", "2"], "+", SuperscriptBox["c", "2"]}], ")"}]}], ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["a", "2"], "-", SuperscriptBox["b", "2"], "+", SuperscriptBox["c", "2"]}], ")"}]}], ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["a", "2"], "+", SuperscriptBox["b", "2"], "-", SuperscriptBox["c", "2"]}], ")"}]}]}], "}"}]], "Output"] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{520, 715}, WindowMargins->{{411, Automatic}, {Automatic, 0}}, FrontEndVersion->"9.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (March 5, \ 2013)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[579, 22, 41, 0, 148, "Title"], Cell[CellGroupData[{ Cell[645, 26, 28, 0, 44, "Subsection"], Cell[676, 28, 58, 3, 49, "Text"], Cell[737, 33, 305, 9, 68, "Text"], Cell[1045, 44, 319, 10, 49, "Text"], Cell[1367, 56, 99, 2, 49, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[1503, 63, 32, 0, 44, "Subsection"], Cell[1538, 65, 151, 4, 28, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[1726, 74, 27, 0, 80, "Section"], Cell[1756, 76, 150, 5, 28, "Input"], Cell[CellGroupData[{ Cell[1931, 85, 185, 5, 46, "Input"], Cell[2119, 92, 884, 31, 84, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3040, 128, 61, 1, 28, "Input"], Cell[3104, 131, 483, 15, 47, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3624, 151, 303, 9, 46, "Input"], Cell[3930, 162, 682, 24, 47, "Output"] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)