(* 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[ 24161, 684] NotebookOptionsPosition[ 22112, 625] NotebookOutlinePosition[ 22465, 641] CellTagsIndexPosition[ 22422, 638] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Point at Infinty", "Title",ExpressionUUID->"42991ad8-8184-4397-a2b0-557753231653"], Cell[CellGroupData[{ Cell["Author", "Subsection",ExpressionUUID->"08463f04-fee1-4981-a472-d42f76f00af0"], Cell["\<\ Eric W. Weisstein November 20, 2004\ \>", "Text",ExpressionUUID->"184973fb-d06e-45c4-80bc-223a8bc8985f"], Cell[TextData[{ "This notebook downloaded from ", ButtonBox["http://mathworld.wolfram.com/notebooks/PlaneGeometry/\ PointatInfinity.nb", BaseStyle->"Hyperlink", ButtonData:>{ URL["http://mathworld.wolfram.com/notebooks/PlaneGeometry/PointatInfinity.\ nb"], None}], "." }], "Text",ExpressionUUID->"54595f52-dd46-4bef-a1f0-9d840617c6cb"], Cell[TextData[{ "For more information, see Eric's ", StyleBox["MathWorld", FontSlant->"Italic"], " entry ", ButtonBox["http://mathworld.wolfram.com/PointatInfinity.html", BaseStyle->"Hyperlink", ButtonData:>{ URL["http://mathworld.wolfram.com/PointatInfinity.html"], None}], "." }], "Text",ExpressionUUID->"e90e1d4d-2300-4629-9552-a950c4a2ec75"], Cell["\<\ \[Copyright]2005 Wolfram Research, Inc. except for portions noted otherwise\ \>", "Text",ExpressionUUID->"4d6b61fc-247b-4c46-bf1f-7e874d03d58a"] }, Open ]], Cell[CellGroupData[{ Cell["Comparison", "Section",ExpressionUUID->"12dc2062-5e6a-4eaa-ac22-c57f8b0e3a19"], Cell[BoxData[{ RowBox[{ RowBox[{"t", "=", RowBox[{"Triangle", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Random", "[", RowBox[{"Real", ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", "50"}], "]"}], ",", RowBox[{"{", "3", "}"}], ",", RowBox[{"{", "2", "}"}]}], "]"}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"Off", "[", RowBox[{"TrilinearToCartesian", "::", "\"\\""}], "]"}], ";"}], "\n", RowBox[{ RowBox[{"sides", "=", RowBox[{"SideLengths", "[", RowBox[{"Evaluate", "[", "t", "]"}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"angles", "=", RowBox[{"Angles", "[", RowBox[{"Evaluate", "[", "t", "]"}], "]"}]}], ";"}]}], "Input",ExpressionU\ UID->"e91f55ad-da2d-4017-940f-1fff8da4aea1"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CenterFunction", "/@", RowBox[{"{", RowBox[{ RowBox[{"X", "[", "30", "]"}], ",", RowBox[{"Brisse", "[", "30", "]"}]}], "}"}]}]], "Input",ExpressionUUID->\ "58509878-058c-4043-a7bd-14bfb2cc2057"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Cos", "[", "A", "]"}], "-", RowBox[{"2", " ", RowBox[{"Cos", "[", "B", "]"}], " ", RowBox[{"Cos", "[", "C", "]"}]}]}], ",", RowBox[{ RowBox[{"2", " ", SuperscriptBox["a", "4"]}], "-", 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"]}]}], "}"}]], "Output",ExpressionUUID->"05c16e72-\ 4f9b-425b-9a70-76852433133f"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"IncidentCenters", "[", RowBox[{ RowBox[{"l_List", "?", "VectorQ"}], ",", RowBox[{"tri_List", "?", "VectorQ"}], ",", RowBox[{"opts___", "?", "OptionQ"}]}], "]"}], ":=", RowBox[{ RowBox[{"IncidentCenters", "[", RowBox[{"l", ",", RowBox[{"Norm", "[", RowBox[{"Subtract", "@@@", RowBox[{"Partition", "[", RowBox[{ RowBox[{"Divide", "@@", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "}"}], ",", "tri"}], "}"}]}], ",", "2", ",", "1", ",", "1"}], "]"}]}], "]"}]}], "]"}], "/;", RowBox[{ RowBox[{"Length", "[", "tri", "]"}], "===", "3"}]}]}]], "Input",Expression\ UUID->"22c277fe-7d29-4962-98df-54685d725924"] }, Open ]], Cell[CellGroupData[{ Cell["Kimberling Centers at Infinity", "Section",ExpressionUUID->"2d18d953-b8b9-4b28-b4fb-bb4a64937a11"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{"ctrs", "=", RowBox[{"IncidentCenters", "[", RowBox[{"KimberlingCenters", ",", RowBox[{"LineEquation", "[", "LineAtInfinity", "]"}]}], "]"}]}], ")"}], "//", "Timing"}]], "Input",ExpressionUUID->"3a3af49d-84ab-4697-b037-\ c60fc1d528da"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"186.9199999999999`", " ", "Second"}], ",", RowBox[{"{", RowBox[{ RowBox[{"X", "[", "30", "]"}], ",", RowBox[{"X", "[", "511", "]"}], ",", RowBox[{"X", "[", "512", "]"}], ",", RowBox[{"X", "[", "513", "]"}], ",", RowBox[{"X", "[", "514", "]"}], ",", RowBox[{"X", "[", "515", "]"}], ",", RowBox[{"X", "[", "516", "]"}], ",", RowBox[{"X", "[", "517", "]"}], ",", RowBox[{"X", "[", "518", "]"}], ",", RowBox[{"X", "[", "519", "]"}], ",", RowBox[{"X", "[", "520", "]"}], ",", RowBox[{"X", "[", "521", "]"}], ",", RowBox[{"X", "[", "522", "]"}], ",", RowBox[{"X", "[", "523", "]"}], ",", RowBox[{"X", "[", "524", "]"}], ",", RowBox[{"X", "[", "525", "]"}], ",", RowBox[{"X", "[", "526", "]"}], ",", RowBox[{"X", "[", "527", "]"}], ",", RowBox[{"X", "[", "528", "]"}], ",", RowBox[{"X", "[", "529", "]"}], ",", RowBox[{"X", "[", "534", "]"}], ",", RowBox[{"X", "[", "535", "]"}], ",", RowBox[{"X", "[", "536", "]"}], ",", RowBox[{"X", "[", "537", "]"}], ",", RowBox[{"X", "[", "538", "]"}], ",", RowBox[{"X", "[", "539", "]"}], ",", RowBox[{"X", "[", "540", "]"}], ",", RowBox[{"X", "[", "541", "]"}], ",", RowBox[{"X", "[", "542", "]"}], ",", RowBox[{"X", "[", "543", "]"}], ",", RowBox[{"X", "[", "544", "]"}], ",", RowBox[{"X", "[", "545", "]"}], ",", RowBox[{"X", "[", "674", "]"}], ",", RowBox[{"X", "[", "680", "]"}], ",", RowBox[{"X", "[", "681", "]"}], ",", RowBox[{"X", "[", "688", "]"}], ",", RowBox[{"X", "[", "690", "]"}], ",", RowBox[{"X", "[", "696", "]"}], ",", RowBox[{"X", "[", "698", "]"}], ",", RowBox[{"X", "[", "700", "]"}], ",", RowBox[{"X", "[", "702", "]"}], ",", RowBox[{"X", "[", "704", "]"}], ",", RowBox[{"X", "[", "706", "]"}], ",", RowBox[{"X", "[", "708", "]"}], ",", RowBox[{"X", "[", "710", "]"}], ",", RowBox[{"X", "[", "712", "]"}], ",", RowBox[{"X", "[", "714", "]"}], ",", RowBox[{"X", "[", "716", "]"}], ",", RowBox[{"X", "[", "718", "]"}], ",", RowBox[{"X", "[", "720", "]"}], ",", RowBox[{"X", "[", "722", "]"}], ",", RowBox[{"X", "[", "724", "]"}], ",", RowBox[{"X", "[", "726", "]"}], ",", RowBox[{"X", "[", "730", "]"}], ",", RowBox[{"X", "[", "732", "]"}], ",", RowBox[{"X", "[", "734", "]"}], ",", RowBox[{"X", "[", "736", "]"}], ",", RowBox[{"X", "[", "740", "]"}], ",", RowBox[{"X", "[", "742", "]"}], ",", RowBox[{"X", "[", "744", "]"}], ",", RowBox[{"X", "[", "746", "]"}], ",", RowBox[{"X", "[", "752", "]"}], ",", RowBox[{"X", "[", "754", "]"}], ",", RowBox[{"X", "[", "758", "]"}], ",", RowBox[{"X", "[", "760", "]"}], ",", RowBox[{"X", "[", "766", "]"}], ",", RowBox[{"X", "[", "768", "]"}], ",", RowBox[{"X", "[", "772", "]"}], ",", RowBox[{"X", "[", "776", "]"}], ",", RowBox[{"X", "[", "778", "]"}], ",", RowBox[{"X", "[", "780", "]"}], ",", RowBox[{"X", "[", "782", "]"}], ",", RowBox[{"X", "[", "784", "]"}], ",", RowBox[{"X", "[", "786", "]"}], ",", RowBox[{"X", "[", "788", "]"}], ",", RowBox[{"X", "[", "790", "]"}], ",", RowBox[{"X", "[", "792", "]"}], ",", RowBox[{"X", "[", "794", "]"}], ",", RowBox[{"X", "[", "796", "]"}], ",", RowBox[{"X", "[", "802", "]"}], ",", RowBox[{"X", "[", "804", "]"}], ",", RowBox[{"X", "[", "806", "]"}], ",", RowBox[{"X", "[", "808", "]"}], ",", RowBox[{"X", "[", "812", "]"}], ",", RowBox[{"X", "[", "814", "]"}], ",", RowBox[{"X", "[", "816", "]"}], ",", RowBox[{"X", "[", "818", "]"}], ",", RowBox[{"X", "[", "824", "]"}], ",", RowBox[{"X", "[", "826", "]"}], ",", RowBox[{"X", "[", "830", "]"}], ",", RowBox[{"X", "[", "832", "]"}], ",", RowBox[{"X", "[", "834", "]"}], ",", RowBox[{"X", "[", "838", "]"}], ",", RowBox[{"X", "[", "888", "]"}], ",", RowBox[{"X", "[", "891", "]"}], ",", RowBox[{"X", "[", "900", "]"}], ",", RowBox[{"X", "[", "912", "]"}], ",", RowBox[{"X", "[", "916", "]"}], ",", RowBox[{"X", "[", "918", "]"}], ",", RowBox[{"X", "[", "924", "]"}], ",", RowBox[{"X", "[", "926", "]"}], ",", RowBox[{"X", "[", "928", "]"}], ",", RowBox[{"X", "[", "952", "]"}], ",", RowBox[{"X", "[", "971", "]"}], ",", RowBox[{"X", "[", "1154", "]"}], ",", RowBox[{"X", "[", "1499", "]"}], ",", RowBox[{"X", "[", "1503", "]"}], ",", RowBox[{"X", "[", "1510", "]"}], ",", RowBox[{"X", "[", "1511", "]"}], ",", RowBox[{"X", "[", "1912", "]"}], ",", RowBox[{"X", "[", "1938", "]"}], ",", RowBox[{"X", "[", "1946", "]"}], ",", RowBox[{"X", "[", "2385", "]"}], ",", RowBox[{"X", "[", "2386", "]"}], ",", RowBox[{"X", "[", "2387", "]"}], ",", RowBox[{"X", "[", "2388", "]"}], ",", RowBox[{"X", "[", "2389", "]"}], ",", RowBox[{"X", "[", "2390", "]"}], ",", RowBox[{"X", "[", "2391", "]"}], ",", RowBox[{"X", "[", "2392", "]"}], ",", RowBox[{"X", "[", "2393", "]"}]}], "}"}]}], "}"}]], "Output",ExpressionUU\ ID->"bb5789df-be16-402e-85fe-0dc4066eb6c7"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"#", ",", RowBox[{"CenterName", "[", "#", "]"}]}], "}"}], "&"}], "/@", "ctrs"}], "//", "TableForm"}]], "Input",ExpressionUUID->"8bf6a095-1d49-43b6-bef3-\ 9670137eb939"], Cell[BoxData[ TagBox[GridBox[{ { RowBox[{"X", "[", "30", "]"}], "\<\"Euler infinity point\"\>"}, { RowBox[{"X", "[", "511", "]"}], "\<\"isogonal conjugate of X(98)\"\>"}, { RowBox[{"X", "[", "512", "]"}], "\<\"isogonal conjugate of X(99)\"\>"}, { RowBox[{"X", "[", "513", "]"}], "\<\"isogonal conjugate of X(100)\"\>"}, { RowBox[{"X", "[", "514", "]"}], "\<\"isogonal conjugate of X(101)\"\>"}, { RowBox[{"X", "[", "515", "]"}], "\<\"isogonal conjugate of X(102)\"\>"}, { RowBox[{"X", "[", "516", "]"}], "\<\"isogonal conjugate of X(103)\"\>"}, { RowBox[{"X", "[", "517", "]"}], "\<\"isogonal conjugate of X(104)\"\>"}, { RowBox[{"X", "[", "518", "]"}], "\<\"isogonal conjugate of X(105)\"\>"}, { RowBox[{"X", "[", "519", "]"}], "\<\"isogonal conjugate of X(106)\"\>"}, { RowBox[{"X", "[", "520", "]"}], "\<\"isogonal conjugate of X(107)\"\>"}, { RowBox[{"X", "[", "521", "]"}], "\<\"isogonal conjugate of X(108)\"\>"}, { RowBox[{"X", "[", "522", "]"}], "\<\"isogonal conjugate of X(109)\"\>"}, { RowBox[{"X", "[", "523", "]"}], "\<\"isogonal conjugate of X(110)\"\>"}, { RowBox[{"X", "[", "524", "]"}], "\<\"isogonal conjugate of X(111)\"\>"}, { RowBox[{"X", "[", "525", "]"}], "\<\"isogonal conjugate of X(112)\"\>"}, { RowBox[{"X", "[", "526", "]"}], "\<\"isogonal conjugate of X(476)\"\>"}, { RowBox[{ "X", "[", "527", "]"}], "\<\"direction of vector ax + bx + cx, where X = X(7)\"\>"}, { RowBox[{ "X", "[", "528", "]"}], "\<\"direction of vector ax + bx + cx, where X = X(11)\"\>"}, { RowBox[{ "X", "[", "529", "]"}], "\<\"direction of vector ax + bx + cx, where X = X(12)\"\>"}, { RowBox[{ "X", "[", "534", "]"}], "\<\"direction of vector ax + bx + cx, where X = X(19)\"\>"}, { RowBox[{ "X", "[", "535", "]"}], "\<\"direction of vector ax + bx + cx, where X = X(36)\"\>"}, { RowBox[{ "X", "[", "536", "]"}], "\<\"direction of vector ax + bx + cx, where X = X(37)\"\>"}, { RowBox[{ "X", "[", "537", "]"}], "\<\"direction of vector ax + bx + cx, where X = X(38)\"\>"}, { RowBox[{ "X", "[", "538", "]"}], "\<\"direction of vector ax + bx + cx, where X = X(39)\"\>"}, { RowBox[{ "X", "[", "539", "]"}], "\<\"direction of vector ax + bx + cx, where X = X(54)\"\>"}, { RowBox[{ "X", "[", "540", "]"}], "\<\"direction of vector ax + bx + cx, where X = X(58)\"\>"}, { RowBox[{ "X", "[", "541", "]"}], "\<\"direction of vector ax + bx + cx, where X = X(74)\"\>"}, { RowBox[{ "X", "[", "542", "]"}], "\<\"direction of vector ax + bx + cx, where X = X(98)\"\>"}, { RowBox[{ "X", "[", "543", "]"}], "\<\"direction of vector ax + bx + cx, where X = X(99)\"\>"}, { RowBox[{ "X", "[", "544", "]"}], "\<\"direction of vector ax + bx + cx, where X = X(101)\"\>"}, { RowBox[{ "X", "[", "545", "]"}], "\<\"direction of vector ax + bx + cx, where X = X(190)\"\>"}, { RowBox[{ "X", "[", "674", "]"}], "\<\"crossdifference of X(6) and X(514)\"\>"}, { RowBox[{ "X", "[", "680", "]"}], "\<\"crossdifference of X(6) and X(158)\"\>"}, { RowBox[{ "X", "[", "681", "]"}], "\<\"trilinear pole of line X(6)X(158)\"\>"}, { RowBox[{ "X", "[", "688", "]"}], "\<\"crossdifference of X(6) and X(76)\"\>"}, { RowBox[{ "X", "[", "690", "]"}], "\<\"crossdifference of line X(6) and X(110)\"\>"}, { RowBox[{"X", "[", "696", "]"}], "\<\"even (- 4, - 3) infinity point\"\>"}, { RowBox[{"X", "[", "698", "]"}], "\<\"even (- 4, - 2) infinity point\"\>"}, { RowBox[{"X", "[", "700", "]"}], "\<\"even (- 4, - 1) infinity point\"\>"}, { RowBox[{"X", "[", "702", "]"}], "\<\"even (- 4, 0) infinity point\"\>"}, { RowBox[{"X", "[", "704", "]"}], "\<\"even (- 4, 1) infinity point\"\>"}, { RowBox[{"X", "[", "706", "]"}], "\<\"even (- 4, 2) infinity point\"\>"}, { RowBox[{"X", "[", "708", "]"}], "\<\"even (- 4, 3) infinity point\"\>"}, { RowBox[{"X", "[", "710", "]"}], "\<\"even (- 4, 4) infinity point\"\>"}, { RowBox[{"X", "[", "712", "]"}], "\<\"even (- 3, - 2) infinity point\"\>"}, { RowBox[{"X", "[", "714", "]"}], "\<\"even (- 3, - 1) infinity point\"\>"}, { RowBox[{"X", "[", "716", "]"}], "\<\"even (- 3, 0) infinity point\"\>"}, { RowBox[{"X", "[", "718", "]"}], "\<\"even (- 3, 1) infinity point\"\>"}, { RowBox[{"X", "[", "720", "]"}], "\<\"even (- 3, 2) infinity point\"\>"}, { RowBox[{"X", "[", "722", "]"}], "\<\"even (- 3, 3) infinity point\"\>"}, { RowBox[{"X", "[", "724", "]"}], "\<\"even (- 3, 4) infinity point\"\>"}, { RowBox[{ "X", "[", "726", "]"}], "\<\"even (- 2, -1) infinity point\"\>"}, { RowBox[{"X", "[", "730", "]"}], "\<\"even (- 2, 1) infinity point\"\>"}, { RowBox[{"X", "[", "732", "]"}], "\<\"even (- 2, 2) infinity point\"\>"}, { RowBox[{"X", "[", "734", "]"}], "\<\"even (- 2, 3) infinity point\"\>"}, { RowBox[{"X", "[", "736", "]"}], "\<\"even (- 2, 4) infinity point\"\>"}, { RowBox[{"X", "[", "740", "]"}], "\<\"even (- 1, 1) infinity point\"\>"}, { RowBox[{"X", "[", "742", "]"}], "\<\"even (- 1, 2) infinity point\"\>"}, { RowBox[{"X", "[", "744", "]"}], "\<\"even (- 1, 3) infinity point\"\>"}, { RowBox[{"X", "[", "746", "]"}], "\<\"even (- 1, 4) infinity point\"\>"}, { RowBox[{"X", "[", "752", "]"}], "\<\"even (0, 3) infinity point\"\>"}, { RowBox[{"X", "[", "754", "]"}], "\<\"even (0, 4) infinity point\"\>"}, { RowBox[{"X", "[", "758", "]"}], "\<\"even (1, 3) infinity point\"\>"}, { RowBox[{"X", "[", "760", "]"}], "\<\"even (1, 4) infinity point\"\>"}, { RowBox[{"X", "[", "766", "]"}], "\<\"even (3, 4) infinity point\"\>"}, { RowBox[{ "X", "[", "768", "]"}], "\<\"odd (- 4, - 3) infinity point\"\>"}, { RowBox[{ "X", "[", "772", "]"}], "\<\"odd (- 4, - 1) infinity point\"\>"}, { RowBox[{"X", "[", "776", "]"}], "\<\"odd (- 4, 1) infinity point\"\>"}, { RowBox[{"X", "[", "778", "]"}], "\<\"odd (- 4, 2) infinity point\"\>"}, { RowBox[{"X", "[", "780", "]"}], "\<\"odd (- 4, 3) infinity point\"\>"}, { RowBox[{"X", "[", "782", "]"}], "\<\"odd (- 4, 4) infinity point\"\>"}, { RowBox[{ "X", "[", "784", "]"}], "\<\"odd (- 3, - 2) infinity point\"\>"}, { RowBox[{ "X", "[", "786", "]"}], "\<\"odd (- 3, - 1) infinity point\"\>"}, { RowBox[{"X", "[", "788", "]"}], "\<\"odd (- 3, 0) infinity point\"\>"}, { RowBox[{"X", "[", "790", "]"}], "\<\"odd (- 3, 1) infinity point\"\>"}, { RowBox[{"X", "[", "792", "]"}], "\<\"odd (- 3, 2) infinity point\"\>"}, { RowBox[{"X", "[", "794", "]"}], "\<\"odd (- 3, 3) infinity point\"\>"}, { RowBox[{"X", "[", "796", "]"}], "\<\"odd (- 3, 4) infinity point\"\>"}, { RowBox[{"X", "[", "802", "]"}], "\<\"odd (- 2, 1) infinity point\"\>"}, { RowBox[{"X", "[", "804", "]"}], "\<\"odd (- 2, 2) infinity point\"\>"}, { RowBox[{"X", "[", "806", "]"}], "\<\"odd (- 2, 3) infinity point\"\>"}, { RowBox[{"X", "[", "808", "]"}], "\<\"odd (- 2, 4) infinity point\"\>"}, { RowBox[{"X", "[", "812", "]"}], "\<\"odd (- 1, 1) infinity point\"\>"}, { RowBox[{"X", "[", "814", "]"}], "\<\"odd (- 1, 2) infinity point\"\>"}, { RowBox[{"X", "[", "816", "]"}], "\<\"odd (- 1, 3) infinity point\"\>"}, { RowBox[{"X", "[", "818", "]"}], "\<\"odd (- 1, 4) infinity point\"\>"}, { RowBox[{"X", "[", "824", "]"}], "\<\"odd (0, 3) infinity point\"\>"}, { RowBox[{"X", "[", "826", "]"}], "\<\"odd (0, 4) infinity point\"\>"}, { RowBox[{"X", "[", "830", "]"}], "\<\"odd (1, 3) infinity point\"\>"}, { RowBox[{"X", "[", "832", "]"}], "\<\"odd (1, 4) infinity point\"\>"}, { RowBox[{"X", "[", "834", "]"}], "\<\"odd (2, 3) infinity point\"\>"}, { RowBox[{"X", "[", "838", "]"}], "\<\"odd (3, 4) infinity point\"\>"}, { RowBox[{"X", "[", "888", "]"}], "\<\"isotomic conjugate of X(886)\"\>"}, { RowBox[{"X", "[", "891", "]"}], "\<\"isotomic conjugate of X(889)\"\>"}, { RowBox[{ "X", "[", "900", "]"}], "\<\"crossdifference of X(6) and X(101)\"\>"}, { RowBox[{ "X", "[", "912", "]"}], "\<\"X(104)-Ceva conjugate of X(3)\"\>"}, { RowBox[{ "X", "[", "916", "]"}], "\<\"X(103)-Ceva conjugate of X(3)\"\>"}, { RowBox[{"X", "[", "918", "]"}], "\<\"isotomic conjugate of X(666)\"\>"}, { RowBox[{ "X", "[", "924", "]"}], "\<\"crossdifference of X(5) and X(6)\"\>"}, { RowBox[{ "X", "[", "926", "]"}], "\<\"crossdifference of X(6) and X(7)\"\>"}, { RowBox[{ "X", "[", "928", "]"}], "\<\"crossdifference of X(6) and X(11)\"\>"}, { RowBox[{ "X", "[", "952", "]"}], "\<\"intersection of X(1)X(5) and X(3)X(8)\"\>"}, { RowBox[{ "X", "[", "971", "]"}], "\<\"intersection of lines X(3)X(9) and X(4)X(7)\"\>"}, { RowBox[{"X", "[", "1154", "]"}], "\<\"isogonal conjugate of X(1141)\"\>"}, { RowBox[{"X", "[", "1499", "]"}], "\<\"point biham\"\>"}, { RowBox[{"X", "[", "1503", "]"}], "\<\"orthopoint of X(525)\"\>"}, { RowBox[{"X", "[", "1510", "]"}], "\<\"Napoleon crossdifference\"\>"}, { RowBox[{"X", "[", "1511", "]"}], "\<\"Fermat crosssum\"\>"}, { RowBox[{"X", "[", "1912", "]"}], "\<\"ideal point of pu(9)\"\>"}, { RowBox[{"X", "[", "1938", "]"}], "\<\"ideal point of pu(15)\"\>"}, { RowBox[{ "X", "[", "1946", "]"}], "\<\"bicentric difference of pu(19)\"\>"}, { RowBox[{"X", "[", "2385", "]"}], "\<\"isogonal conjugate of X(2365)\"\>"}, { RowBox[{"X", "[", "2386", "]"}], "\<\"isogonal conjugate of X(2366)\"\>"}, { RowBox[{"X", "[", "2387", "]"}], "\<\"isogonal conjugate of X(2367)\"\>"}, { RowBox[{"X", "[", "2388", "]"}], "\<\"isogonal conjugate of X(2368)\"\>"}, { RowBox[{"X", "[", "2389", "]"}], "\<\"isogonal conjugate of X(2369)\"\>"}, { RowBox[{"X", "[", "2390", "]"}], "\<\"isogonal conjugate of X(2370)\"\>"}, { RowBox[{"X", "[", "2391", "]"}], "\<\"isogonal conjugate of X(2371)\"\>"}, { RowBox[{"X", "[", "2392", "]"}], "\<\"isogonal conjugate of X(2372)\"\>"}, { RowBox[{ "X", "[", "2393", "]"}], "\<\"isogonal conjugate of X(2373)\"\>"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output",ExpressionUUID->"c54893db-8ca3-4a9d-\ af06-7bc8cff71297"] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{802, 750}, 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, 88, 0, 92, "Title", "ExpressionUUID" -> \ "42991ad8-8184-4397-a2b0-557753231653"], Cell[CellGroupData[{ Cell[693, 26, 83, 0, 44, "Subsection", "ExpressionUUID" -> \ "08463f04-fee1-4981-a472-d42f76f00af0"], Cell[779, 28, 114, 3, 49, "Text", "ExpressionUUID" -> \ "184973fb-d06e-45c4-80bc-223a8bc8985f"], Cell[896, 33, 346, 9, 30, "Text", "ExpressionUUID" -> \ "54595f52-dd46-4bef-a1f0-9d840617c6cb"], Cell[1245, 44, 360, 10, 30, "Text", "ExpressionUUID" -> \ "e90e1d4d-2300-4629-9552-a950c4a2ec75"], Cell[1608, 56, 154, 2, 30, "Text", "ExpressionUUID" -> \ "4d6b61fc-247b-4c46-bf1f-7e874d03d58a"] }, Open ]], Cell[CellGroupData[{ Cell[1799, 63, 84, 0, 64, "Section", "ExpressionUUID" -> \ "12dc2062-5e6a-4eaa-ac22-c57f8b0e3a19"], Cell[1886, 65, 800, 24, 96, "Input", "ExpressionUUID" -> \ "e91f55ad-da2d-4017-940f-1fff8da4aea1"], Cell[CellGroupData[{ Cell[2711, 93, 234, 6, 32, "Input", "ExpressionUUID" -> \ "58509878-058c-4043-a7bd-14bfb2cc2057"], Cell[2948, 101, 702, 22, 35, "Output", "ExpressionUUID" -> \ "05c16e72-4f9b-425b-9a70-76852433133f"] }, Open ]], Cell[3665, 126, 827, 23, 75, "Input", "ExpressionUUID" -> \ "22c277fe-7d29-4962-98df-54685d725924"] }, Open ]], Cell[CellGroupData[{ Cell[4529, 154, 104, 0, 64, "Section", "ExpressionUUID" -> \ "2d18d953-b8b9-4b28-b4fb-bb4a64937a11"], Cell[CellGroupData[{ Cell[4658, 158, 307, 8, 54, "Input", "ExpressionUUID" -> \ "3a3af49d-84ab-4697-b037-c60fc1d528da"], Cell[4968, 168, 5424, 127, 285, "Output", "ExpressionUUID" -> \ "bb5789df-be16-402e-85fe-0dc4066eb6c7"] }, Open ]], Cell[CellGroupData[{ Cell[10429, 300, 256, 8, 70, "Input", "ExpressionUUID" -> \ "8bf6a095-1d49-43b6-bef3-9670137eb939"], Cell[10688, 310, 11384, 310, 70, "Output", "ExpressionUUID" -> \ "c54893db-8ca3-4a9d-af06-7bc8cff71297"] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)