(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.1' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 30009, 872] NotebookOptionsPosition[ 26631, 779] NotebookOutlinePosition[ 26984, 795] CellTagsIndexPosition[ 26941, 792] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Circumhyperbola", "Title",ExpressionUUID->"ea385a8d-5d25-4565-b599-e3bfc1917a94"], Cell[CellGroupData[{ Cell["Author", "Subsection",ExpressionUUID->"9c34c9bd-fb7c-4b2f-9ca2-5a10fd982d26"], Cell["\<\ Eric W. Weisstein January 2, 2005\ \>", "Text",ExpressionUUID->"664661d2-e3a8-4faf-bc27-4a6902d3ce21"], Cell[TextData[{ "This notebook downloaded from ", ButtonBox["http://mathworld.wolfram.com/notebooks/PlaneGeometry/\ Circumhyperbola.nb", BaseStyle->"Hyperlink", ButtonData:>{ URL["http://mathworld.wolfram.com/notebooks/PlaneGeometry/Circumhyperbola.\ nb"], None}], "." }], "Text",ExpressionUUID->"01d57323-2716-4c56-b890-15264e649cab"], Cell[TextData[{ "For more information, see Eric's ", StyleBox["MathWorld", FontSlant->"Italic"], " entry ", ButtonBox["http://mathworld.wolfram.com/Circumhyperbola.html", BaseStyle->"Hyperlink", ButtonData:>{ URL["http://mathworld.wolfram.com/Circumhyperbola.html"], None}], "." }], "Text",ExpressionUUID->"dcb411a2-0c73-4ec2-a7c4-c6683ff9800c"], Cell["\<\ \[Copyright]2005 Wolfram Research, Inc. except for portions noted otherwise\ \>", "Text",ExpressionUUID->"af479bed-0575-41a7-a35d-d4cfdf15f81e"] }, Open ]], Cell[CellGroupData[{ Cell["Incident Points", "Section",ExpressionUUID->"0fbdb369-b8e8-461d-b612-820ff5b2f097"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"IncidentCenters", "[", RowBox[{"KimberlingCenters", ",", RowBox[{"ToSidelengths", "[", RowBox[{"Conic", "[", RowBox[{"{", RowBox[{ RowBox[{"Sequence", "@@", RowBox[{"IdentityMatrix", "[", "3", "]"}]}], ",", RowBox[{"Sequence", "@@", RowBox[{"(", RowBox[{"Trilinears", "/@", RowBox[{"{", RowBox[{"Orthocenter", ",", RowBox[{"X", "[", "1", "]"}]}], "}"}]}], ")"}]}]}], "}"}], "]"}], "]"}]}], "]"}], "//", "Timing"}]], "Input",ExpressionUUID->"33897e1a-\ 0453-49a2-a6d6-f645d543ad4d"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"92.334963`", " ", "Second"}], ",", RowBox[{"{", RowBox[{ RowBox[{"X", "[", "1", "]"}], ",", RowBox[{"X", "[", "4", "]"}], ",", RowBox[{"X", "[", "7", "]"}], ",", RowBox[{"X", "[", "8", "]"}], ",", RowBox[{"X", "[", "9", "]"}], ",", RowBox[{"X", "[", "21", "]"}], ",", RowBox[{"X", "[", "79", "]"}], ",", RowBox[{"X", "[", "80", "]"}], ",", RowBox[{"X", "[", "84", "]"}], ",", RowBox[{"X", "[", "90", "]"}], ",", RowBox[{"X", "[", "104", "]"}], ",", RowBox[{"X", "[", "177", "]"}], ",", RowBox[{"X", "[", "256", "]"}], ",", RowBox[{"X", "[", "294", "]"}], ",", RowBox[{"X", "[", "314", "]"}], ",", RowBox[{"X", "[", "885", "]"}], ",", RowBox[{"X", "[", "941", "]"}], ",", RowBox[{"X", "[", "943", "]"}], ",", RowBox[{"X", "[", "981", "]"}], ",", RowBox[{"X", "[", "983", "]"}], ",", RowBox[{"X", "[", "987", "]"}], ",", RowBox[{"X", "[", "989", "]"}], ",", RowBox[{"X", "[", "1000", "]"}], ",", RowBox[{"X", "[", "1039", "]"}], ",", RowBox[{"X", "[", "1041", "]"}], ",", RowBox[{"X", "[", "1061", "]"}], ",", RowBox[{"X", "[", "1063", "]"}], ",", RowBox[{"X", "[", "1156", "]"}], ",", RowBox[{"X", "[", "1172", "]"}], ",", RowBox[{"X", "[", "1251", "]"}], ",", RowBox[{"X", "[", "1320", "]"}], ",", RowBox[{"X", "[", "1389", "]"}], ",", RowBox[{"X", "[", "1392", "]"}], ",", RowBox[{"X", "[", "1476", "]"}], ",", RowBox[{"X", "[", "1896", "]"}], ",", RowBox[{"X", "[", "1937", "]"}], ",", RowBox[{"X", "[", "2298", "]"}], ",", RowBox[{"X", "[", "2320", "]"}], ",", RowBox[{"X", "[", "2335", "]"}], ",", RowBox[{"X", "[", "2344", "]"}], ",", RowBox[{"X", "[", "2346", "]"}], ",", RowBox[{"X", "[", "2481", "]"}], ",", RowBox[{"X", "[", "2648", "]"}]}], "}"}]}], "}"}]], "Output",ExpressionUU\ ID->"4bf23d8d-78c9-422c-bef3-39dc622da798"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"IncidentCenters", "[", RowBox[{"KimberlingCenters", ",", RowBox[{"ToSidelengths", "[", RowBox[{"Conic", "[", RowBox[{"{", RowBox[{ RowBox[{"Sequence", "@@", RowBox[{"IdentityMatrix", "[", "3", "]"}]}], ",", RowBox[{"Sequence", "@@", RowBox[{"(", RowBox[{"Trilinears", "/@", RowBox[{"{", RowBox[{"Orthocenter", ",", RowBox[{"X", "[", "2", "]"}]}], "}"}]}], ")"}]}]}], "}"}], "]"}], "]"}]}], "]"}], "//", "Timing"}]], "Input",ExpressionUUID->"c6b17bb0-\ 1da1-4ea2-aa49-9a1b15ef075f"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"94.35665500000002`", " ", "Second"}], ",", RowBox[{"{", RowBox[{ RowBox[{"X", "[", "2", "]"}], ",", RowBox[{"X", "[", "4", "]"}], ",", RowBox[{"X", "[", "10", "]"}], ",", RowBox[{"X", "[", "13", "]"}], ",", RowBox[{"X", "[", "14", "]"}], ",", RowBox[{"X", "[", "17", "]"}], ",", RowBox[{"X", "[", "18", "]"}], ",", RowBox[{"X", "[", "76", "]"}], ",", RowBox[{"X", "[", "83", "]"}], ",", RowBox[{"X", "[", "94", "]"}], ",", RowBox[{"X", "[", "96", "]"}], ",", RowBox[{"X", "[", "98", "]"}], ",", RowBox[{"X", "[", "226", "]"}], ",", RowBox[{"X", "[", "262", "]"}], ",", RowBox[{"X", "[", "275", "]"}], ",", RowBox[{"X", "[", "321", "]"}], ",", RowBox[{"X", "[", "485", "]"}], ",", RowBox[{"X", "[", "486", "]"}], ",", RowBox[{"X", "[", "598", "]"}], ",", RowBox[{"X", "[", "671", "]"}], ",", RowBox[{"X", "[", "801", "]"}], ",", RowBox[{"X", "[", "1029", "]"}], ",", RowBox[{"X", "[", "1131", "]"}], ",", RowBox[{"X", "[", "1132", "]"}], ",", RowBox[{"X", "[", "1139", "]"}], ",", RowBox[{"X", "[", "1140", "]"}], ",", RowBox[{"X", "[", "1327", "]"}], ",", RowBox[{"X", "[", "1328", "]"}], ",", RowBox[{"X", "[", "1446", "]"}], ",", RowBox[{"X", "[", "1676", "]"}], ",", RowBox[{"X", "[", "1677", "]"}], ",", RowBox[{"X", "[", "1751", "]"}], ",", RowBox[{"X", "[", "1916", "]"}], ",", RowBox[{"X", "[", "2009", "]"}], ",", RowBox[{"X", "[", "2010", "]"}], ",", RowBox[{"X", "[", "2051", "]"}], ",", RowBox[{"X", "[", "2052", "]"}], ",", RowBox[{"X", "[", "2394", "]"}], ",", RowBox[{"X", "[", "2671", "]"}], ",", RowBox[{"X", "[", "2672", "]"}]}], "}"}]}], "}"}]], "Output",ExpressionUU\ ID->"88c7c0b5-ea0c-4188-b70b-a88105b50941"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"IncidentCenters", "[", RowBox[{"KimberlingCenters", ",", RowBox[{"ToSidelengths", "[", RowBox[{"Conic", "[", RowBox[{"{", RowBox[{ RowBox[{"Sequence", "@@", RowBox[{"IdentityMatrix", "[", "3", "]"}]}], ",", RowBox[{"Sequence", "@@", RowBox[{"(", RowBox[{"Trilinears", "/@", RowBox[{"{", RowBox[{"Orthocenter", ",", RowBox[{"X", "[", "3", "]"}]}], "}"}]}], ")"}]}]}], "}"}], "]"}], "]"}]}], "]"}], "//", "Timing"}]], "Input",ExpressionUUID->"de2687e0-\ b521-41dd-ae1e-4de99e0b8d9c"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"94.55462500000002`", " ", "Second"}], ",", RowBox[{"{", RowBox[{ RowBox[{"X", "[", "3", "]"}], ",", RowBox[{"X", "[", "4", "]"}], ",", RowBox[{"X", "[", "6", "]"}], ",", RowBox[{"X", "[", "54", "]"}], ",", RowBox[{"X", "[", "64", "]"}], ",", RowBox[{"X", "[", "65", "]"}], ",", RowBox[{"X", "[", "66", "]"}], ",", RowBox[{"X", "[", "67", "]"}], ",", RowBox[{"X", "[", "68", "]"}], ",", RowBox[{"X", "[", "69", "]"}], ",", RowBox[{"X", "[", "70", "]"}], ",", RowBox[{"X", "[", "71", "]"}], ",", RowBox[{"X", "[", "72", "]"}], ",", RowBox[{"X", "[", "73", "]"}], ",", RowBox[{"X", "[", "74", "]"}], ",", RowBox[{"X", "[", "248", "]"}], ",", RowBox[{"X", "[", "265", "]"}], ",", RowBox[{"X", "[", "290", "]"}], ",", RowBox[{"X", "[", "695", "]"}], ",", RowBox[{"X", "[", "879", "]"}], ",", RowBox[{"X", "[", "895", "]"}], ",", RowBox[{"X", "[", "1173", "]"}], ",", RowBox[{"X", "[", "1175", "]"}], ",", RowBox[{"X", "[", "1176", "]"}], ",", RowBox[{"X", "[", "1177", "]"}], ",", RowBox[{"X", "[", "1242", "]"}], ",", RowBox[{"X", "[", "1243", "]"}], ",", RowBox[{"X", "[", "1244", "]"}], ",", RowBox[{"X", "[", "1245", "]"}], ",", RowBox[{"X", "[", "1246", "]"}], ",", RowBox[{"X", "[", "1439", "]"}], ",", RowBox[{"X", "[", "1798", "]"}], ",", RowBox[{"X", "[", "1903", "]"}], ",", RowBox[{"X", "[", "1942", "]"}], ",", RowBox[{"X", "[", "1987", "]"}], ",", RowBox[{"X", "[", "2213", "]"}], ",", RowBox[{"X", "[", "2435", "]"}], ",", RowBox[{"X", "[", "2574", "]"}], ",", RowBox[{"X", "[", "2575", "]"}]}], "}"}]}], "}"}]], "Output",ExpressionUU\ ID->"6430cc1d-e769-4194-b2b7-cd21b77439d0"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"IncidentCenters", "[", RowBox[{"KimberlingCenters", ",", RowBox[{"ToSidelengths", "[", RowBox[{"Conic", "[", RowBox[{"{", RowBox[{ RowBox[{"Sequence", "@@", RowBox[{"IdentityMatrix", "[", "3", "]"}]}], ",", RowBox[{"Sequence", "@@", RowBox[{"(", RowBox[{"Trilinears", "/@", RowBox[{"{", RowBox[{"Orthocenter", ",", RowBox[{"X", "[", "5", "]"}]}], "}"}]}], ")"}]}]}], "}"}], "]"}], "]"}]}], "]"}], "//", "Timing"}]], "Input",ExpressionUUID->"99526889-\ 3289-48a3-9b05-5a62e0fa0b44"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"102.415431`", " ", "Second"}], ",", RowBox[{"{", RowBox[{ RowBox[{"X", "[", "4", "]"}], ",", RowBox[{"X", "[", "5", "]"}], ",", RowBox[{"X", "[", "53", "]"}], ",", RowBox[{"X", "[", "311", "]"}], ",", RowBox[{"X", "[", "327", "]"}], ",", RowBox[{"X", "[", "1141", "]"}], ",", RowBox[{"X", "[", "1263", "]"}], ",", RowBox[{"X", "[", "1487", "]"}], ",", RowBox[{"X", "[", "2165", "]"}], ",", RowBox[{"X", "[", "2980", "]"}]}], "}"}]}], "}"}]], "Output",ExpressionUU\ ID->"3b026a65-d71f-4894-a040-14dd3d961b21"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{ RowBox[{"ToSidelengths", "[", RowBox[{ RowBox[{ RowBox[{"Conic", "[", RowBox[{"{", RowBox[{ RowBox[{"Sequence", "@@", RowBox[{"IdentityMatrix", "[", "3", "]"}]}], ",", RowBox[{"Sequence", "@@", RowBox[{"(", RowBox[{"Trilinears", "/@", RowBox[{"{", RowBox[{"Orthocenter", ",", RowBox[{"X", "[", "5", "]"}]}], "}"}]}], ")"}]}]}], "}"}], "]"}], "/.", RowBox[{ RowBox[{"Sec", "[", "x_", "]"}], "\[RuleDelayed]", RowBox[{"TrigExpand", "[", RowBox[{"Sec", "[", "x", "]"}], "]"}]}]}], "/.", RowBox[{ RowBox[{"Cos", "[", "x_", "]"}], "\[RuleDelayed]", RowBox[{"TrigExpand", "[", RowBox[{"Cos", "[", "x", "]"}], "]"}]}]}], "]"}], ",", RowBox[{"TriangleQ", "[", "]"}]}], "]"}]], "Input",ExpressionUUID->\ "bc319513-fbfd-410d-a9c8-9965e7572897"], Cell[BoxData[ RowBox[{"-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["a", "4"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["b", "2"], "-", SuperscriptBox["c", "2"]}], ")"}], "2"], "-", RowBox[{"2", " ", SuperscriptBox["a", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["b", "2"], "+", SuperscriptBox["c", "2"]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"b", " ", "c", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["b", "2"], "-", SuperscriptBox["c", "2"]}], ")"}], "3"], " ", "\[Beta]", " ", "\[Gamma]"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", "b", " ", "c", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SuperscriptBox["b", "4"]}], "+", SuperscriptBox["c", "4"]}], ")"}], " ", "\[Beta]", " ", "\[Gamma]"}], "+", RowBox[{ SuperscriptBox["a", "7"], " ", "\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{"b", " ", "\[Beta]"}], "-", RowBox[{"c", " ", "\[Gamma]"}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["a", "5"], " ", "\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "3"}], " ", SuperscriptBox["b", "3"], " ", "\[Beta]"}], "-", RowBox[{"b", " ", SuperscriptBox["c", "2"], " ", "\[Beta]"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", "c", " ", "\[Gamma]"}], "+", RowBox[{"3", " ", SuperscriptBox["c", "3"], " ", "\[Gamma]"}]}], ")"}]}], "+", RowBox[{"3", " ", SuperscriptBox["a", "3"], " ", "\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["b", "5"], " ", "\[Beta]"}], "-", RowBox[{ SuperscriptBox["c", "5"], " ", "\[Gamma]"}]}], ")"}]}], "-", RowBox[{"a", " ", RowBox[{"(", RowBox[{ SuperscriptBox["b", "2"], "-", SuperscriptBox["c", "2"]}], ")"}], " ", "\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["b", "5"], " ", "\[Beta]"}], "+", RowBox[{ SuperscriptBox["c", "5"], " ", "\[Gamma]"}]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["a", "6"], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["b", "2"], "-", SuperscriptBox["c", "2"]}], ")"}], "2"]}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["b", "2"], "+", SuperscriptBox["c", "2"]}], ")"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["b", "2"], "-", SuperscriptBox["c", "2"]}], ")"}], "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["b", "2"], "+", SuperscriptBox["c", "2"]}], ")"}]}]}], ")"}]}], ")"}]}]}]], "Output",\ ExpressionUUID->"0d866c96-5fee-47e2-93cd-f3ae9ee724c6"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Factor", "[", "%", "]"}]], "Input",ExpressionUUID->"6206d2ab-5c55-431e-a12a-9365107c468e"], Cell[BoxData[ RowBox[{"-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b", "-", "c"}], ")"}], " ", RowBox[{"(", RowBox[{"a", "+", "b", "-", "c"}], ")"}], " ", RowBox[{"(", RowBox[{"a", "-", "b", "+", "c"}], ")"}], " ", RowBox[{"(", RowBox[{"a", "+", "b", "+", "c"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["a", "7"], " ", "b", " ", "\[Alpha]", " ", "\[Beta]"}], "-", RowBox[{"3", " ", SuperscriptBox["a", "5"], " ", SuperscriptBox["b", "3"], " ", "\[Alpha]", " ", "\[Beta]"}], "+", RowBox[{"3", " ", SuperscriptBox["a", "3"], " ", SuperscriptBox["b", "5"], " ", "\[Alpha]", " ", "\[Beta]"}], "-", RowBox[{"a", " ", SuperscriptBox["b", "7"], " ", "\[Alpha]", " ", "\[Beta]"}], "-", RowBox[{ SuperscriptBox["a", "5"], " ", "b", " ", SuperscriptBox["c", "2"], " ", "\[Alpha]", " ", "\[Beta]"}], "+", RowBox[{"a", " ", SuperscriptBox["b", "5"], " ", SuperscriptBox["c", "2"], " ", "\[Alpha]", " ", "\[Beta]"}], "-", RowBox[{ SuperscriptBox["a", "7"], " ", "c", " ", "\[Alpha]", " ", "\[Gamma]"}], "+", RowBox[{ SuperscriptBox["a", "5"], " ", SuperscriptBox["b", "2"], " ", "c", " ", "\[Alpha]", " ", "\[Gamma]"}], "+", RowBox[{"3", " ", SuperscriptBox["a", "5"], " ", SuperscriptBox["c", "3"], " ", "\[Alpha]", " ", "\[Gamma]"}], "-", RowBox[{"3", " ", SuperscriptBox["a", "3"], " ", SuperscriptBox["c", "5"], " ", "\[Alpha]", " ", "\[Gamma]"}], "-", RowBox[{"a", " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "5"], " ", "\[Alpha]", " ", "\[Gamma]"}], "+", RowBox[{"a", " ", SuperscriptBox["c", "7"], " ", "\[Alpha]", " ", "\[Gamma]"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "5"], " ", "c", " ", "\[Beta]", " ", "\[Gamma]"}], "+", RowBox[{ SuperscriptBox["b", "7"], " ", "c", " ", "\[Beta]", " ", "\[Gamma]"}], "-", RowBox[{"3", " ", SuperscriptBox["b", "5"], " ", SuperscriptBox["c", "3"], " ", "\[Beta]", " ", "\[Gamma]"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", "b", " ", SuperscriptBox["c", "5"], " ", "\[Beta]", " ", "\[Gamma]"}], "+", RowBox[{"3", " ", SuperscriptBox["b", "3"], " ", SuperscriptBox["c", "5"], " ", "\[Beta]", " ", "\[Gamma]"}], "-", RowBox[{"b", " ", SuperscriptBox["c", "7"], " ", "\[Beta]", " ", "\[Gamma]"}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["a", "2"], "-", SuperscriptBox["b", "2"], "-", SuperscriptBox["c", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{ SuperscriptBox["a", "2"], "+", SuperscriptBox["b", "2"], "-", SuperscriptBox["c", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{ SuperscriptBox["a", "2"], "-", SuperscriptBox["b", "2"], "+", SuperscriptBox["c", "2"]}], ")"}]}], ")"}]}]}]], "Output",ExpressionUUI\ D->"75c5928b-c279-4e6e-92bc-18c982ed216c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Factor", "[", RowBox[{"Center", "[", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["a", "7"], " ", "b", " ", "\[Alpha]", " ", "\[Beta]"}], "-", RowBox[{"3", " ", SuperscriptBox["a", "5"], " ", SuperscriptBox["b", "3"], " ", "\[Alpha]", " ", "\[Beta]"}], "+", RowBox[{"3", " ", SuperscriptBox["a", "3"], " ", SuperscriptBox["b", "5"], " ", "\[Alpha]", " ", "\[Beta]"}], "-", RowBox[{"a", " ", SuperscriptBox["b", "7"], " ", "\[Alpha]", " ", "\[Beta]"}], "-", RowBox[{ SuperscriptBox["a", "5"], " ", "b", " ", SuperscriptBox["c", "2"], " ", "\[Alpha]", " ", "\[Beta]"}], "+", RowBox[{"a", " ", SuperscriptBox["b", "5"], " ", SuperscriptBox["c", "2"], " ", "\[Alpha]", " ", "\[Beta]"}], "-", RowBox[{ SuperscriptBox["a", "7"], " ", "c", " ", "\[Alpha]", " ", "\[Gamma]"}], "+", RowBox[{ SuperscriptBox["a", "5"], " ", SuperscriptBox["b", "2"], " ", "c", " ", "\[Alpha]", " ", "\[Gamma]"}], "+", RowBox[{"3", " ", SuperscriptBox["a", "5"], " ", SuperscriptBox["c", "3"], " ", "\[Alpha]", " ", "\[Gamma]"}], "-", RowBox[{"3", " ", SuperscriptBox["a", "3"], " ", SuperscriptBox["c", "5"], " ", "\[Alpha]", " ", "\[Gamma]"}], "-", RowBox[{"a", " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "5"], " ", "\[Alpha]", " ", "\[Gamma]"}], "+", RowBox[{"a", " ", SuperscriptBox["c", "7"], " ", "\[Alpha]", " ", "\[Gamma]"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "5"], " ", "c", " ", "\[Beta]", " ", "\[Gamma]"}], "+", RowBox[{ SuperscriptBox["b", "7"], " ", "c", " ", "\[Beta]", " ", "\[Gamma]"}], "-", RowBox[{"3", " ", SuperscriptBox["b", "5"], " ", SuperscriptBox["c", "3"], " ", "\[Beta]", " ", "\[Gamma]"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", "b", " ", SuperscriptBox["c", "5"], " ", "\[Beta]", " ", "\[Gamma]"}], "+", RowBox[{"3", " ", SuperscriptBox["b", "3"], " ", SuperscriptBox["c", "5"], " ", "\[Beta]", " ", "\[Gamma]"}], "-", RowBox[{"b", " ", SuperscriptBox["c", "7"], " ", "\[Beta]", " ", "\[Gamma]"}]}], ")"}], "]"}], "]"}]], "Input",ExpressionUUID->"433bc8b3-0a44-4e39-b103-\ 9cd447ffc532"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", "a", " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "b"}], "+", "c"}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"b", "+", "c"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox["a", "2"]}], " ", SuperscriptBox["b", "2"]}], "+", SuperscriptBox["b", "4"], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"]}], "-", RowBox[{"2", " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"]}], "+", SuperscriptBox["c", "4"]}], ")"}], " ", RowBox[{"(", RowBox[{ SuperscriptBox["a", "4"], "-", RowBox[{"2", " ", SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"]}], "+", SuperscriptBox["b", "4"], "-", RowBox[{"2", " ", SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"]}], "+", SuperscriptBox["c", "4"]}], ")"}]}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", SuperscriptBox["a", "2"], " ", "b", " ", SuperscriptBox["c", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"a", "+", "c"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["a", "4"], "-", RowBox[{"2", " ", SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"]}], "+", SuperscriptBox["b", "4"], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"]}], "-", RowBox[{"2", " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"]}], "+", SuperscriptBox["c", "4"]}], ")"}], " ", RowBox[{"(", RowBox[{ SuperscriptBox["a", "4"], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"]}], "-", RowBox[{"2", " ", SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"]}], "+", SuperscriptBox["c", "4"]}], ")"}]}], ",", RowBox[{ FractionBox["1", "2"], " ", SuperscriptBox["a", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"a", "+", "b"}], ")"}], "2"], " ", "c", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SuperscriptBox["a", "4"]}], "+", RowBox[{"2", " ", SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"]}], "-", SuperscriptBox["b", "4"], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"]}]}], ")"}], " ", RowBox[{"(", RowBox[{ SuperscriptBox["a", "4"], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"]}], "+", SuperscriptBox["b", "4"], "-", RowBox[{"2", " ", SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"]}], "-", RowBox[{"2", " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"]}], "+", SuperscriptBox["c", "4"]}], ")"}]}]}], "}"}]], "Output",ExpressionUUID->\ "434b357e-e23a-465f-a6f2-af7e8da47deb"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"IncidentCenters", "[", RowBox[{"KimberlingCenters", ",", "%18"}], "]"}], "//", "Timing"}]], "Input",ExpressionUUID->"3f223876-5fcc-4ffc-b9e3-08726831c93b"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"221.08000000000004`", " ", "Second"}], ",", RowBox[{"{", RowBox[{"X", "[", "137", "]"}], "}"}]}], "}"}]], "Output",ExpressionUUID->\ "f75b1996-9155-4069-9029-214525de4baf"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CenterName", "[", RowBox[{"X", "[", "137", "]"}], "]"}]], "Input",ExpressionUUID->"43c6793a-\ bc56-40b7-930a-8747779c9291"], Cell[BoxData["\<\"X(110)-of-orthic-triangle\"\>"], "Output",ExpressionUUID->"eb3173f7-cf62-4d2e-99c1-ce20afe4f435"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CenterName", "[", RowBox[{"X", "[", "110", "]"}], "]"}]], "Input",ExpressionUUID->"55fa70d6-\ 32a7-40cc-bc55-af1dec661545"], Cell[BoxData["\<\"focus of Kiepert parabola\"\>"], "Output",ExpressionUUID->"1de28084-55c9-41d9-80a9-2fb464df73aa"] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{615, 706}, WindowMargins->{{12, Automatic}, {Automatic, 24}}, FrontEndVersion->"11.1 for Mac OS X x86 (32-bit, 64-bit Kernel) (June 2, \ 2017)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 87, 0, 92, "Title", "ExpressionUUID" -> \ "ea385a8d-5d25-4565-b599-e3bfc1917a94"], Cell[CellGroupData[{ Cell[692, 26, 83, 0, 44, "Subsection", "ExpressionUUID" -> \ "9c34c9bd-fb7c-4b2f-9ca2-5a10fd982d26"], Cell[778, 28, 112, 3, 49, "Text", "ExpressionUUID" -> \ "664661d2-e3a8-4faf-bc27-4a6902d3ce21"], Cell[893, 33, 346, 9, 49, "Text", "ExpressionUUID" -> \ "01d57323-2716-4c56-b890-15264e649cab"], Cell[1242, 44, 360, 10, 49, "Text", "ExpressionUUID" -> \ "dcb411a2-0c73-4ec2-a7c4-c6683ff9800c"], Cell[1605, 56, 154, 2, 30, "Text", "ExpressionUUID" -> \ "af479bed-0575-41a7-a35d-d4cfdf15f81e"] }, Open ]], Cell[CellGroupData[{ Cell[1796, 63, 89, 0, 64, "Section", "ExpressionUUID" -> \ "0fbdb369-b8e8-461d-b612-820ff5b2f097"], Cell[CellGroupData[{ Cell[1910, 67, 639, 17, 117, "Input", "ExpressionUUID" -> \ "33897e1a-0453-49a2-a6d6-f645d543ad4d"], Cell[2552, 86, 2052, 49, 159, "Output", "ExpressionUUID" -> \ "4bf23d8d-78c9-422c-bef3-39dc622da798"] }, Open ]], Cell[CellGroupData[{ Cell[4641, 140, 639, 17, 117, "Input", "ExpressionUUID" -> \ "c6b17bb0-1da1-4ea2-aa49-9a1b15ef075f"], Cell[5283, 159, 1930, 46, 159, "Output", "ExpressionUUID" -> \ "88c7c0b5-ea0c-4188-b70b-a88105b50941"] }, Open ]], Cell[CellGroupData[{ Cell[7250, 210, 639, 17, 70, "Input", "ExpressionUUID" -> \ "de2687e0-b521-41dd-ae1e-4de99e0b8d9c"], Cell[7892, 229, 1882, 45, 70, "Output", "ExpressionUUID" -> \ "6430cc1d-e769-4194-b2b7-cd21b77439d0"] }, Open ]], Cell[CellGroupData[{ Cell[9811, 279, 639, 17, 70, "Input", "ExpressionUUID" -> \ "99526889-3289-48a3-9b05-5a62e0fa0b44"], Cell[10453, 298, 628, 16, 70, "Output", "ExpressionUUID" -> \ "3b026a65-d71f-4894-a040-14dd3d961b21"] }, Open ]], Cell[CellGroupData[{ Cell[11118, 319, 987, 27, 70, "Input", "ExpressionUUID" -> \ "bc319513-fbfd-410d-a9c8-9965e7572897"], Cell[12108, 348, 3545, 106, 70, "Output", "ExpressionUUID" -> \ "0d866c96-5fee-47e2-93cd-f3ae9ee724c6"] }, Open ]], Cell[CellGroupData[{ Cell[15690, 459, 114, 1, 70, "Input", "ExpressionUUID" -> \ "6206d2ab-5c55-431e-a12a-9365107c468e"], Cell[15807, 462, 3462, 89, 70, "Output", "ExpressionUUID" -> \ "75c5928b-c279-4e6e-92bc-18c982ed216c"] }, Open ]], Cell[CellGroupData[{ Cell[19306, 556, 2420, 59, 70, "Input", "ExpressionUUID" -> \ "433bc8b3-0a44-4e39-b103-9cd447ffc532"], Cell[21729, 617, 3782, 120, 70, "Output", "ExpressionUUID" -> \ "434b357e-e23a-465f-a6f2-af7e8da47deb"] }, Open ]], Cell[CellGroupData[{ Cell[25548, 742, 197, 4, 70, "Input", "ExpressionUUID" -> \ "3f223876-5fcc-4ffc-b9e3-08726831c93b"], Cell[25748, 748, 233, 6, 70, "Output", "ExpressionUUID" -> \ "f75b1996-9155-4069-9029-214525de4baf"] }, Open ]], Cell[CellGroupData[{ Cell[26018, 759, 150, 3, 70, "Input", "ExpressionUUID" -> \ "43c6793a-bc56-40b7-930a-8747779c9291"], Cell[26171, 764, 115, 0, 70, "Output", "ExpressionUUID" -> \ "eb3173f7-cf62-4d2e-99c1-ce20afe4f435"] }, Open ]], Cell[CellGroupData[{ Cell[26323, 769, 150, 3, 70, "Input", "ExpressionUUID" -> \ "55fa70d6-32a7-40cc-bc55-af1dec661545"], Cell[26476, 774, 115, 0, 70, "Output", "ExpressionUUID" -> \ "1de28084-55c9-41d9-80a9-2fb464df73aa"] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)