(* 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[ 8913, 303] NotebookOptionsPosition[ 5955, 218] NotebookOutlinePosition[ 6308, 234] CellTagsIndexPosition[ 6265, 231] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Inner Soddy Center", "Title",ExpressionUUID->"00e8666f-21f8-4d8d-833a-01ebc09e4e1a"], Cell[CellGroupData[{ Cell["Author", "Subsection",ExpressionUUID->"e979ce8b-bc21-499b-bd94-d950d4b604b1"], Cell["\<\ Eric W. Weisstein December 5, 2004\ \>", "Text",ExpressionUUID->"edc2d604-e54a-44f3-b22c-ba1fbe982be1"], Cell[TextData[{ "This notebook downloaded from ", ButtonBox["http://mathworld.wolfram.com/notebooks/PlaneGeometry/\ InnerSoddyCenter.nb", BaseStyle->"Hyperlink", ButtonData:>{ URL["http://mathworld.wolfram.com/notebooks/PlaneGeometry/\ InnerSoddyCenter.nb"], None}], "." }], "Text",ExpressionUUID->"905b0e78-8d6a-43a2-9d7e-e7069c83869f"], Cell[TextData[{ "For more information, see Eric's ", StyleBox["MathWorld", FontSlant->"Italic"], " entry ", ButtonBox["http://mathworld.wolfram.com/InnerSoddyCenter.html", BaseStyle->"Hyperlink", ButtonData:>{ URL["http://mathworld.wolfram.com/InnerSoddyCenter.html"], None}], "." }], "Text",ExpressionUUID->"5740cd83-c6d2-432f-a648-4745ea1315db"], Cell["\<\ \[Copyright]2005 Wolfram Research, Inc. except for portions noted otherwise\ \>", "Text",ExpressionUUID->"36d0baa9-55bf-49dc-86b7-689b0bb3429d"] }, Open ]], Cell[CellGroupData[{ Cell["Structures Passing through It", "Section",ExpressionUUID->"63072f74-7d14-4cc3-b00e-e4da3bffaba9"], Cell[BoxData[ RowBox[{ RowBox[{"pt", "=", "InnerSoddyCenter"}], ";"}]], "Input",ExpressionUUID->\ "13e5057d-9950-4b7c-ac08-13cfb7cc94c4"], Cell[CellGroupData[{ Cell["Circles", "Subsection",ExpressionUUID->"65dac941-d9ad-4ac2-99fc-1fd165c64936"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"First", "/@", RowBox[{"Select", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"#", ",", RowBox[{"IncidentCenters", "[", RowBox[{ RowBox[{"{", "pt", "}"}], ",", "#"}], "]"}]}], "}"}], "&"}], "/@", "Circles"}], ",", RowBox[{ RowBox[{ RowBox[{"Last", "[", "#", "]"}], "=!=", RowBox[{"{", "}"}]}], "&"}]}], "]"}]}]], "Input",ExpressionUUID->\ "d17d8b85-77be-4094-8316-a3aed2b2def8"], Cell[BoxData[ RowBox[{"{", "}"}]], "Output",ExpressionUUID->"1e4c2312-ef85-41d1-9536-79c8233e23d7"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Circle Centers", "Subsection",ExpressionUUID->"eed81259-b907-4b2d-80e7-e60d3f4b5e1e"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"First", "/@", RowBox[{"Select", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"#", ",", RowBox[{"IncidentCenters", "[", RowBox[{ RowBox[{"{", "pt", "}"}], ",", RowBox[{"CircleCenter", "[", "#", "]"}]}], "]"}]}], "}"}], "&"}], "/@", "Circles"}], ",", RowBox[{ RowBox[{ RowBox[{"Last", "[", "#", "]"}], "=!=", RowBox[{"{", "}"}]}], "&"}]}], "]"}]}]], "Input",ExpressionUUID->\ "742e5983-e7c9-4afd-ab7f-a96321ef0462"], Cell[BoxData[ RowBox[{"{", "InnerSoddyCircle", "}"}]], "Output",ExpressionUUID->"d6b30a98-8245-4da0-bc24-afb9cc890454"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Conics", "Subsection",ExpressionUUID->"250519ab-8ee7-4c7a-84ed-7a3891f8c7e0"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"First", "/@", RowBox[{"Select", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"#", ",", RowBox[{"IncidentCenters", "[", RowBox[{ RowBox[{"{", "pt", "}"}], ",", "#"}], "]"}]}], "}"}], "&"}], "/@", "Conics"}], ",", RowBox[{ RowBox[{ RowBox[{"Last", "[", "#", "]"}], "=!=", RowBox[{"{", "}"}]}], "&"}]}], "]"}]}]], "Input",ExpressionUUID->\ "49e8f079-5d47-417c-befc-204d30d0c30f"], Cell[BoxData[ RowBox[{"{", "}"}]], "Output",ExpressionUUID->"58caa1d1-16f5-46bb-824f-1b6ec4ee3bfa"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Cubics", "Subsection",ExpressionUUID->"863c350d-7ab9-425b-8eea-7954aaf43a2c"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"First", "/@", RowBox[{"Select", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"#", ",", RowBox[{"IncidentCenters", "[", RowBox[{ RowBox[{"{", "pt", "}"}], ",", "#"}], "]"}]}], "}"}], "&"}], "/@", "TriangleCubics"}], ",", RowBox[{ RowBox[{ RowBox[{"Last", "[", "#", "]"}], "=!=", RowBox[{"{", "}"}]}], "&"}]}], "]"}]}]], "Input",ExpressionUUID->\ "3b62a96b-c0ed-4934-b814-abaf16a94d29"], Cell[BoxData[ RowBox[{"{", "}"}]], "Output",ExpressionUUID->"eb10560d-da71-4395-9596-dd7e6f295342"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Lines", "Subsection",ExpressionUUID->"8840b96c-16f7-44b6-97d8-932b723c7aaf"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"First", "/@", RowBox[{"Select", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"#", ",", RowBox[{"IncidentCenters", "[", RowBox[{ RowBox[{"{", "pt", "}"}], ",", "#"}], "]"}]}], "}"}], "&"}], "/@", "Lines"}], ",", RowBox[{ RowBox[{ RowBox[{"Last", "[", "#", "]"}], "=!=", RowBox[{"{", "}"}]}], "&"}]}], "]"}]}]], "Input",ExpressionUUID->\ "92bbaa8c-8cbc-45d3-8a38-0628ead5d65c"], Cell[BoxData[ RowBox[{"{", "SoddyLine", "}"}]], "Output",ExpressionUUID->"6d68bee2-e955-44a1-a8d1-067fd6efc8d4"] }, Open ]] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{520, 716}, WindowMargins->{{60, Automatic}, {Automatic, 23}}, 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, 90, 0, 92, "Title", "ExpressionUUID" -> \ "00e8666f-21f8-4d8d-833a-01ebc09e4e1a"], Cell[CellGroupData[{ Cell[695, 26, 83, 0, 44, "Subsection", "ExpressionUUID" -> \ "e979ce8b-bc21-499b-bd94-d950d4b604b1"], Cell[781, 28, 113, 3, 49, "Text", "ExpressionUUID" -> \ "edc2d604-e54a-44f3-b22c-ba1fbe982be1"], Cell[897, 33, 348, 9, 49, "Text", "ExpressionUUID" -> \ "905b0e78-8d6a-43a2-9d7e-e7069c83869f"], Cell[1248, 44, 362, 10, 49, "Text", "ExpressionUUID" -> \ "5740cd83-c6d2-432f-a648-4745ea1315db"], Cell[1613, 56, 154, 2, 49, "Text", "ExpressionUUID" -> \ "36d0baa9-55bf-49dc-86b7-689b0bb3429d"] }, Open ]], Cell[CellGroupData[{ Cell[1804, 63, 103, 0, 64, "Section", "ExpressionUUID" -> \ "63072f74-7d14-4cc3-b00e-e4da3bffaba9"], Cell[1910, 65, 140, 3, 32, "Input", "ExpressionUUID" -> \ "13e5057d-9950-4b7c-ac08-13cfb7cc94c4"], Cell[CellGroupData[{ Cell[2075, 72, 84, 0, 44, "Subsection", "ExpressionUUID" -> \ "65dac941-d9ad-4ac2-99fc-1fd165c64936"], Cell[CellGroupData[{ Cell[2184, 76, 497, 16, 75, "Input", "ExpressionUUID" -> \ "d17d8b85-77be-4094-8316-a3aed2b2def8"], Cell[2684, 94, 100, 1, 32, "Output", "ExpressionUUID" -> \ "1e4c2312-ef85-41d1-9536-79c8233e23d7"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[2833, 101, 91, 0, 44, "Subsection", "ExpressionUUID" -> \ "eed81259-b907-4b2d-80e7-e60d3f4b5e1e"], Cell[CellGroupData[{ Cell[2949, 105, 544, 17, 96, "Input", "ExpressionUUID" -> \ "742e5983-e7c9-4afd-ab7f-a96321ef0462"], Cell[3496, 124, 120, 1, 32, "Output", "ExpressionUUID" -> \ "d6b30a98-8245-4da0-bc24-afb9cc890454"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[3665, 131, 83, 0, 44, "Subsection", "ExpressionUUID" -> \ "250519ab-8ee7-4c7a-84ed-7a3891f8c7e0"], Cell[CellGroupData[{ Cell[3773, 135, 496, 16, 70, "Input", "ExpressionUUID" -> \ "49e8f079-5d47-417c-befc-204d30d0c30f"], Cell[4272, 153, 100, 1, 70, "Output", "ExpressionUUID" -> \ "58caa1d1-16f5-46bb-824f-1b6ec4ee3bfa"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[4421, 160, 83, 0, 70, "Subsection", "ExpressionUUID" -> \ "863c350d-7ab9-425b-8eea-7954aaf43a2c"], Cell[CellGroupData[{ Cell[4529, 164, 504, 16, 70, "Input", "ExpressionUUID" -> \ "3b62a96b-c0ed-4934-b814-abaf16a94d29"], Cell[5036, 182, 100, 1, 70, "Output", "ExpressionUUID" -> \ "eb10560d-da71-4395-9596-dd7e6f295342"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[5185, 189, 82, 0, 70, "Subsection", "ExpressionUUID" -> \ "8840b96c-16f7-44b6-97d8-932b723c7aaf"], Cell[CellGroupData[{ Cell[5292, 193, 495, 16, 70, "Input", "ExpressionUUID" -> \ "92bbaa8c-8cbc-45d3-8a38-0628ead5d65c"], Cell[5790, 211, 113, 1, 70, "Output", "ExpressionUUID" -> \ "6d68bee2-e955-44a1-a8d1-067fd6efc8d4"] }, Open ]] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)