(* 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[ 135971, 3955] NotebookOptionsPosition[ 126923, 3718] NotebookOutlinePosition[ 127276, 3734] CellTagsIndexPosition[ 127233, 3731] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Sphere-Sphere Intersection", "Title",ExpressionUUID->"cd368923-5f9c-48de-801f-9f69e04f3dfb"], Cell[CellGroupData[{ Cell["Author", "Subsection",ExpressionUUID->"32ce215e-6d33-4fd4-a904-16248fe907b8"], Cell["\<\ Eric W. Weisstein September 23, 2007\ \>", "Text",ExpressionUUID->"0ac1361f-6984-4829-8010-de26ff5225da"], Cell[TextData[{ "This notebook downloaded from ", ButtonBox["http://mathworld.wolfram.com/notebooks/SolidGeometry/Sphere-\ SphereIntersection.nb", BaseStyle->"Hyperlink", ButtonData:>{ URL["http://mathworld.wolfram.com/notebooks/SolidGeometry/Sphere-\ SphereIntersection.nb"], None}], "." }], "Text",ExpressionUUID->"b94545c3-4300-4f69-8377-e162fd2f7df7"], Cell[TextData[{ "For more information, see Eric's ", StyleBox["MathWorld", FontSlant->"Italic"], " entry ", ButtonBox["http://mathworld.wolfram.com/Sphere-SphereIntersection.html", BaseStyle->"Hyperlink", ButtonData:>{ URL["http://mathworld.wolfram.com/Sphere-SphereIntersection.html"], None}], "." }], "Text",ExpressionUUID->"e9f9550f-2f7a-4382-ae5d-a73a3b3bb4f6"], Cell["\<\ \[Copyright]2007 Wolfram Research, Inc. except for portions noted otherwise\ \>", "Text",ExpressionUUID->"0c8c279b-2f7c-4558-9d97-a153dc5005ec"] }, Open ]], Cell[CellGroupData[{ Cell["Graphic", "Section",ExpressionUUID->"628e1605-7b48-427c-85d5-2f04aac8dcdc"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", ".9", "]"}], ",", RowBox[{"Sphere", "[", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", ".6"}], "]"}]}], "}"}], "]"}]], "Input",ExpressionUUID->"e6c3e045-e9d6-46bd-9c18-b6a8d0730d16"], Cell[BoxData[ Graphics3DBox[ {Opacity[0.9], SphereBox[{0, 0, 0}], SphereBox[{1, 0, 0}, 0.6]}]], "Output",\ ExpressionUUID->"97e0b008-4ad7-4582-8ab6-b66d1dc0ce82"] }, Open ]], Cell[CellGroupData[{ Cell["LiveGraphics3D", "Subsection",ExpressionUUID->"9752ff3c-b727-49df-95b2-b006f0786d57"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"<<", "Utilities`LiveGraphics3D`"}]], "Input",ExpressionUUID->"be75cc08-f6ca-448c-a9a2-b0268ec6fb38"], Cell[BoxData["\<\"LiveGraphics3D.m version 1.16 by Martin Kraus and Eric W. \ Weisstein.\"\>"], "Print",ExpressionUUID->"3468e4dd-bd2c-41e9-9c1c-\ 7ff9fdbde773"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"WriteLiveForm", "[", RowBox[{ RowBox[{"sphsph", ".", "m"}], ",", RowBox[{"Show", "[", RowBox[{ RowBox[{"NonIntersectingPolygons", "[", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Sphere", "[", "1", "]"}], ",", RowBox[{"TranslateShape", "[", RowBox[{ RowBox[{"Sphere", "[", ".6", "]"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], "}"}], "]"}], "]"}], ",", RowBox[{"Boxed", "->", "False"}]}], "]"}]}], "]"}]], "Input",ExpressionUU\ ID->"e674b708-6d50-4686-b273-68d74d5447a0"], Cell[BoxData["\<\"Phosphine:MathOzTeX:live:sphsph.m\"\>"], "Output",ExpressionUUID->"cac88a03-5f61-4bab-ae71-852d5d4324b2"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Volume of Intersection", "Section",ExpressionUUID->"a5affded-e93e-4e04-a9b5-f124c251906d"], Cell[CellGroupData[{ Cell["v5.1.0 (?)", "Subsubsection",ExpressionUUID->"43c99f91-cbf9-45bb-b195-f91965b6d774"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{"vol", "=", RowBox[{"Integrate", "[", RowBox[{ RowBox[{"Boole", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"x", "^", "2"}], "+", RowBox[{"y", "^", "2"}], "+", RowBox[{"z", "^", "2"}]}], "<", RowBox[{"R", "^", "2"}]}], "&&", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"x", "-", "d"}], ")"}], "^", "2"}], "+", RowBox[{"y", "^", "2"}], "+", RowBox[{"z", "^", "2"}]}], "<", RowBox[{"r", "^", "2"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{ RowBox[{"r", ">", "0"}], "&&", RowBox[{"R", ">", "0"}], "&&", RowBox[{"d", "\[Element]", "Reals"}]}]}]}], "]"}]}], ")"}], "//", "Timing"}]], "Input",ExpressionUUID->"4d770608-35dd-4864-b5f1-e8e815eed171"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"595.07`", " ", "Second"}], ",", RowBox[{"Integrate", "[", RowBox[{ RowBox[{"Boole", "[", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"], "+", SuperscriptBox["z", "2"]}], "<", SuperscriptBox["R", "2"]}], "&&", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "d"}], "+", "x"}], ")"}], "2"], "+", SuperscriptBox["y", "2"], "+", SuperscriptBox["z", "2"]}], "<", SuperscriptBox["r", "2"]}]}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{ RowBox[{"r", ">", "0"}], "&&", RowBox[{"R", ">", "0"}], "&&", RowBox[{"d", "\[Element]", "Reals"}]}]}]}], "]"}]}], "}"}]], "Output",E\ xpressionUUID->"aaba1fd0-7f5b-4898-bfc0-32354da3b43c"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["v5.1.1", "Subsubsection",ExpressionUUID->"9f0fb5da-02f5-4b08-95ec-e7d0b3f93989"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{"vol", "=", RowBox[{"Integrate", "[", RowBox[{ RowBox[{"Boole", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"x", "^", "2"}], "+", RowBox[{"y", "^", "2"}], "+", RowBox[{"z", "^", "2"}]}], "<", RowBox[{"R", "^", "2"}]}], "&&", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"x", "-", "d"}], ")"}], "^", "2"}], "+", RowBox[{"y", "^", "2"}], "+", RowBox[{"z", "^", "2"}]}], "<", RowBox[{"r", "^", "2"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{ RowBox[{"r", ">", "0"}], "&&", RowBox[{"R", ">", "0"}], "&&", RowBox[{"d", "\[Element]", "Reals"}]}]}]}], "]"}]}], ")"}], "//", "Timing"}]], "Input",ExpressionUUID->"dc35d830-43e8-4438-84fa-f03e9d8627d8"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"1439.14`", " ", "Second"}], ",", RowBox[{"\[Piecewise]", GridBox[{ {"Indeterminate", RowBox[{ RowBox[{ RowBox[{"d", "+", "r"}], "\[Equal]", "0"}], "&&", RowBox[{ RowBox[{"d", "-", "r", "+", "R"}], "\[GreaterEqual]", "0"}], "&&", RowBox[{"d", "<", "0"}]}]}, { RowBox[{"-", FractionBox[ RowBox[{"4", " ", "\[Pi]", " ", SuperscriptBox["r", "3"]}], "3"]}], RowBox[{ RowBox[{"d", "\[Equal]", "0"}], "&&", RowBox[{"r", ">", "0"}], "&&", RowBox[{ RowBox[{"r", "-", "R"}], "<", "0"}]}]}, { FractionBox[ RowBox[{"4", " ", "\[Pi]", " ", SuperscriptBox["r", "3"]}], "3"], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"d", "-", "r"}], "\[LessEqual]", "0"}], "&&", RowBox[{"d", ">", "0"}], "&&", RowBox[{ RowBox[{"d", "+", "r", "-", "R"}], "<", "0"}]}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"d", "-", "r"}], "<", "0"}], "&&", RowBox[{"d", ">", "0"}], "&&", RowBox[{ RowBox[{"d", "+", "r", "-", "R"}], "\[Equal]", "0"}]}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{"d", "<", "0"}], "&&", RowBox[{ RowBox[{"d", "-", "r", "+", "R"}], "\[GreaterEqual]", "0"}], "&&", RowBox[{ RowBox[{"d", "+", "r"}], ">", "0"}]}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"d", "-", "r"}], ">", "0"}], "&&", RowBox[{"d", ">", "0"}], "&&", RowBox[{ RowBox[{"d", "+", "r", "-", "R"}], "\[LessEqual]", "0"}], "&&", RowBox[{"r", ">", "0"}]}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{"d", ">", "0"}], "&&", RowBox[{ RowBox[{"d", "+", "r", "-", "R"}], "<", "0"}], "&&", RowBox[{"r", ">", "0"}]}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{"d", "<", "0"}], "&&", RowBox[{ RowBox[{"d", "-", "r", "+", "R"}], "\[GreaterEqual]", "0"}], "&&", RowBox[{ RowBox[{"d", "+", "r"}], "<", "0"}], "&&", RowBox[{"r", ">", "0"}]}], ")"}]}]}, { RowBox[{ FractionBox["1", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "3"], " ", "\[Pi]"}], "-", RowBox[{"3", " ", "d", " ", "\[Pi]", " ", SuperscriptBox["r", "2"]}], "+", RowBox[{"2", " ", "\[Pi]", " ", SuperscriptBox["r", "3"]}], "-", RowBox[{"2", " ", SuperscriptBox["d", "2"], " ", "\[Pi]", " ", SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["d", "2"]}], "+", SuperscriptBox["r", "2"]}]]}], "+", RowBox[{"2", " ", "\[Pi]", " ", SuperscriptBox["r", "2"], " ", SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["d", "2"]}], "+", SuperscriptBox["r", "2"]}]]}]}], ")"}]}], RowBox[{ RowBox[{"d", ">", "0"}], "&&", RowBox[{ RowBox[{"d", "-", "r"}], "<", "0"}], "&&", RowBox[{ RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["d", "2"]}], "+", SuperscriptBox["r", "2"]}]], "-", "R"}], "\[Equal]", "0"}]}]}, { RowBox[{ FractionBox["1", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox["d", "3"]}], " ", "\[Pi]"}], "+", RowBox[{"3", " ", "d", " ", "\[Pi]", " ", SuperscriptBox["r", "2"]}], "+", RowBox[{"2", " ", "\[Pi]", " ", SuperscriptBox["r", "3"]}], "-", RowBox[{"2", " ", SuperscriptBox["d", "2"], " ", "\[Pi]", " ", SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["d", "2"]}], "+", SuperscriptBox["r", "2"]}]]}], "+", RowBox[{"2", " ", "\[Pi]", " ", SuperscriptBox["r", "2"], " ", SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["d", "2"]}], "+", SuperscriptBox["r", "2"]}]]}]}], ")"}]}], RowBox[{ RowBox[{"d", "<", "0"}], "&&", RowBox[{ RowBox[{"d", "+", "r"}], ">", "0"}], "&&", RowBox[{ RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["d", "2"]}], "+", SuperscriptBox["r", "2"]}]], "-", "R"}], "\[Equal]", "0"}]}]}, { RowBox[{"-", FractionBox[ RowBox[{"4", " ", "\[Pi]", " ", SuperscriptBox["R", "3"]}], "3"]}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"d", "\[Equal]", "0"}], "&&", RowBox[{"r", ">", "0"}], "&&", RowBox[{"R", ">", "0"}], "&&", RowBox[{ RowBox[{"r", "-", "R"}], ">", "0"}]}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{"d", ">", "0"}], "&&", RowBox[{"R", ">", "0"}], "&&", RowBox[{ RowBox[{"d", "-", "r"}], "<", "0"}], "&&", RowBox[{ RowBox[{"d", "-", "r", "+", "R"}], "<", "0"}]}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{"d", "<", "0"}], "&&", RowBox[{"R", ">", "0"}], "&&", RowBox[{ RowBox[{"d", "+", "r"}], ">", "0"}], "&&", RowBox[{ RowBox[{"d", "+", "r", "-", "R"}], ">", "0"}]}], ")"}]}]}, { FractionBox[ RowBox[{"\[Pi]", " ", SuperscriptBox["R", "3"]}], "6"], RowBox[{ RowBox[{"d", ">", "0"}], "&&", RowBox[{ RowBox[{"d", "-", "r"}], "\[Equal]", "0"}], "&&", RowBox[{ RowBox[{"d", "+", "r", "-", "R"}], "\[Equal]", "0"}]}]}, { FractionBox[ RowBox[{"4", " ", "\[Pi]", " ", SuperscriptBox["R", "3"]}], "3"], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"d", "\[Equal]", "0"}], "&&", RowBox[{ RowBox[{"r", "-", "R"}], "\[Equal]", "0"}], "&&", RowBox[{"r", ">", "0"}]}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{"d", ">", "0"}], "&&", RowBox[{ RowBox[{"d", "-", "r", "+", "R"}], "\[Equal]", "0"}], "&&", RowBox[{ RowBox[{"d", "-", "r"}], "<", "0"}]}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{"d", "<", "0"}], "&&", RowBox[{ RowBox[{"d", "+", "r", "-", "R"}], "\[Equal]", "0"}], "&&", RowBox[{ RowBox[{"d", "+", "r"}], ">", "0"}]}], ")"}]}]}, { FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox["d", "4"]}], " ", "\[Pi]"}], "+", RowBox[{"6", " ", SuperscriptBox["d", "2"], " ", "\[Pi]", " ", SuperscriptBox["r", "2"]}], "+", RowBox[{"8", " ", "d", " ", "\[Pi]", " ", SuperscriptBox["r", "3"]}], "+", RowBox[{"3", " ", "\[Pi]", " ", SuperscriptBox["r", "4"]}], "+", RowBox[{"6", " ", SuperscriptBox["d", "2"], " ", "\[Pi]", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"6", " ", "\[Pi]", " ", SuperscriptBox["r", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"8", " ", "d", " ", "\[Pi]", " ", SuperscriptBox["R", "3"]}], "+", RowBox[{"3", " ", "\[Pi]", " ", SuperscriptBox["R", "4"]}]}], RowBox[{"12", " ", "d"}]], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"d", "+", "r"}], ">", "0"}], "&&", RowBox[{"d", "<", "0"}], "&&", RowBox[{ RowBox[{"d", "+", "r", "-", "R"}], "<", "0"}], "&&", RowBox[{ RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["d", "2"]}], "+", SuperscriptBox["r", "2"]}]], "-", "R"}], ">", "0"}]}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"d", "+", "r"}], ">", "0"}], "&&", RowBox[{"d", "<", "0"}], "&&", RowBox[{ RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["d", "2"]}], "+", SuperscriptBox["r", "2"]}]], "-", "R"}], "<", "0"}], "&&", RowBox[{ RowBox[{"d", "-", "r", "+", "R"}], "<", "0"}]}], ")"}]}]}, { FractionBox[ RowBox[{ RowBox[{"8", " ", "\[Pi]", " ", SuperscriptBox["r", "2"], " ", SuperscriptBox["R", "3"]}], "+", RowBox[{"3", " ", "d", " ", "\[Pi]", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"6", " ", "\[Pi]", " ", "r", " ", SuperscriptBox["R", "4"]}]}], RowBox[{"12", " ", SuperscriptBox["r", "2"]}]], RowBox[{ RowBox[{"d", ">", "0"}], "&&", RowBox[{ RowBox[{"d", "-", "r"}], "\[Equal]", "0"}], "&&", RowBox[{"R", ">", "0"}], "&&", RowBox[{ RowBox[{"d", "+", "r", "-", "R"}], ">", "0"}]}]}, { FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "8"}], " ", "\[Pi]", " ", SuperscriptBox["r", "3"], " ", SuperscriptBox["R", "3"]}], "+", RowBox[{"3", " ", "d", " ", "\[Pi]", " ", "r", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"6", " ", "\[Pi]", " ", SuperscriptBox["r", "2"], " ", SuperscriptBox["R", "4"]}]}], RowBox[{"12", " ", SuperscriptBox["d", "3"]}]], RowBox[{ RowBox[{"d", "<", "0"}], "&&", RowBox[{ RowBox[{"d", "+", "r"}], "\[Equal]", "0"}], "&&", RowBox[{"R", ">", "0"}], "&&", RowBox[{ RowBox[{"d", "-", "r", "+", "R"}], "<", "0"}]}]}, { FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "3"}], " ", SuperscriptBox["d", "4"], " ", "\[Pi]", " ", SuperscriptBox["r", "2"]}], "+", RowBox[{"8", " ", SuperscriptBox["d", "3"], " ", "\[Pi]", " ", SuperscriptBox["r", "3"]}], "-", RowBox[{"6", " ", SuperscriptBox["d", "2"], " ", "\[Pi]", " ", SuperscriptBox["r", "4"]}], "+", RowBox[{"\[Pi]", " ", SuperscriptBox["r", "6"]}], "+", RowBox[{"3", " ", SuperscriptBox["d", "4"], " ", "\[Pi]", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"3", " ", "\[Pi]", " ", SuperscriptBox["r", "4"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"8", " ", SuperscriptBox["d", "3"], " ", "\[Pi]", " ", SuperscriptBox["R", "3"]}], "+", RowBox[{"6", " ", SuperscriptBox["d", "2"], " ", "\[Pi]", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"3", " ", "\[Pi]", " ", SuperscriptBox["r", "2"], " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"\[Pi]", " ", SuperscriptBox["R", "6"]}]}], RowBox[{"12", " ", SuperscriptBox["d", "3"]}]], RowBox[{ RowBox[{"d", ">", "0"}], "&&", RowBox[{"r", ">", "0"}], "&&", RowBox[{ RowBox[{"d", "-", "r"}], ">", "0"}], "&&", RowBox[{ RowBox[{"d", "-", "r", "-", "R"}], "<", "0"}], "&&", RowBox[{ RowBox[{"d", "+", "r", "-", "R"}], ">", "0"}]}]}, { FractionBox[ RowBox[{ RowBox[{"3", " ", SuperscriptBox["d", "4"], " ", "\[Pi]", " ", SuperscriptBox["r", "2"]}], "+", RowBox[{"8", " ", SuperscriptBox["d", "3"], " ", "\[Pi]", " ", SuperscriptBox["r", "3"]}], "+", RowBox[{"6", " ", SuperscriptBox["d", "2"], " ", "\[Pi]", " ", SuperscriptBox["r", "4"]}], "-", RowBox[{"\[Pi]", " ", SuperscriptBox["r", "6"]}], "-", RowBox[{"3", " ", SuperscriptBox["d", "4"], " ", "\[Pi]", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"3", " ", "\[Pi]", " ", SuperscriptBox["r", "4"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"8", " ", SuperscriptBox["d", "3"], " ", "\[Pi]", " ", SuperscriptBox["R", "3"]}], "-", RowBox[{"6", " ", SuperscriptBox["d", "2"], " ", "\[Pi]", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"3", " ", "\[Pi]", " ", SuperscriptBox["r", "2"], " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"\[Pi]", " ", SuperscriptBox["R", "6"]}]}], RowBox[{"12", " ", SuperscriptBox["d", "3"]}]], RowBox[{ RowBox[{"d", "<", "0"}], "&&", RowBox[{"r", ">", "0"}], "&&", RowBox[{ RowBox[{"d", "+", "r"}], "<", "0"}], "&&", RowBox[{ RowBox[{"d", "+", "r", "+", "R"}], ">", "0"}], "&&", RowBox[{ RowBox[{"d", "-", "r", "+", "R"}], "<", "0"}]}]}, { FractionBox[ RowBox[{ RowBox[{ SuperscriptBox["d", "6"], " ", "\[Pi]"}], "-", RowBox[{"9", " ", SuperscriptBox["d", "4"], " ", "\[Pi]", " ", SuperscriptBox["r", "2"]}], "+", RowBox[{"16", " ", SuperscriptBox["d", "3"], " ", "\[Pi]", " ", SuperscriptBox["r", "3"]}], "-", RowBox[{"9", " ", SuperscriptBox["d", "2"], " ", "\[Pi]", " ", SuperscriptBox["r", "4"]}], "+", RowBox[{"\[Pi]", " ", SuperscriptBox["r", "6"]}], "-", RowBox[{"3", " ", SuperscriptBox["d", "4"], " ", "\[Pi]", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"6", " ", SuperscriptBox["d", "2"], " ", "\[Pi]", " ", SuperscriptBox["r", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"3", " ", "\[Pi]", " ", SuperscriptBox["r", "4"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"3", " ", SuperscriptBox["d", "2"], " ", "\[Pi]", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"3", " ", "\[Pi]", " ", SuperscriptBox["r", "2"], " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"\[Pi]", " ", SuperscriptBox["R", "6"]}], "+", RowBox[{"24", " ", SuperscriptBox["d", "3"], " ", RowBox[{"Integrate", "[", RowBox[{ RowBox[{"\[Pi]", " ", RowBox[{"Abs", "[", RowBox[{ SuperscriptBox["R", "2"], "-", SuperscriptBox["x", "2"]}], "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", FractionBox[ RowBox[{ SuperscriptBox["d", "2"], "-", SuperscriptBox["r", "2"], "+", SuperscriptBox["R", "2"]}], RowBox[{"2", " ", "d"}]], ",", "R"}], "}"}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{ RowBox[{"r", ">", "0"}], "&&", RowBox[{"R", ">", "0"}], "&&", RowBox[{"d", "\[Element]", "Reals"}], "&&", RowBox[{"d", ">", "0"}], "&&", RowBox[{"r", ">", "d"}], "&&", RowBox[{ RowBox[{ RowBox[{"-", "d"}], "+", "r"}], "<", "R", "<", SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["d", "2"]}], "+", SuperscriptBox["r", "2"]}]]}]}]}]}], "]"}]}]}], RowBox[{"24", " ", SuperscriptBox["d", "3"]}]], RowBox[{ RowBox[{"d", ">", "0"}], "&&", RowBox[{ RowBox[{"d", "-", "r"}], "<", "0"}], "&&", RowBox[{ RowBox[{"d", "-", "r", "+", "R"}], ">", "0"}], "&&", RowBox[{ RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["d", "2"]}], "+", SuperscriptBox["r", "2"]}]], "-", "R"}], ">", "0"}]}]}, { FractionBox[ RowBox[{ RowBox[{ SuperscriptBox["d", "6"], " ", "\[Pi]"}], "-", RowBox[{"9", " ", SuperscriptBox["d", "4"], " ", "\[Pi]", " ", SuperscriptBox["r", "2"]}], "+", RowBox[{"16", " ", SuperscriptBox["d", "3"], " ", "\[Pi]", " ", SuperscriptBox["r", "3"]}], "-", RowBox[{"9", " ", SuperscriptBox["d", "2"], " ", "\[Pi]", " ", SuperscriptBox["r", "4"]}], "+", RowBox[{"\[Pi]", " ", SuperscriptBox["r", "6"]}], "-", RowBox[{"3", " ", SuperscriptBox["d", "4"], " ", "\[Pi]", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"6", " ", SuperscriptBox["d", "2"], " ", "\[Pi]", " ", SuperscriptBox["r", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"3", " ", "\[Pi]", " ", SuperscriptBox["r", "4"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"3", " ", SuperscriptBox["d", "2"], " ", "\[Pi]", " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"3", " ", "\[Pi]", " ", SuperscriptBox["r", "2"], " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"\[Pi]", " ", SuperscriptBox["R", "6"]}], "+", RowBox[{"24", " ", SuperscriptBox["d", "3"], " ", RowBox[{"Integrate", "[", RowBox[{ RowBox[{"\[Pi]", " ", RowBox[{"Abs", "[", RowBox[{ SuperscriptBox["R", "2"], "-", SuperscriptBox["x", "2"]}], "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", FractionBox[ RowBox[{ SuperscriptBox["d", "2"], "-", SuperscriptBox["r", "2"], "+", SuperscriptBox["R", "2"]}], RowBox[{"2", " ", "d"}]], ",", "R"}], "}"}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{ RowBox[{"r", ">", "0"}], "&&", RowBox[{"R", ">", "0"}], "&&", RowBox[{"d", "\[Element]", "Reals"}], "&&", RowBox[{"d", ">", "0"}], "&&", RowBox[{"r", ">", "d"}], "&&", RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["d", "2"]}], "+", SuperscriptBox["r", "2"]}]], "<", "R", "<", RowBox[{"d", "+", "r"}]}]}]}]}], "]"}]}]}], RowBox[{"24", " ", SuperscriptBox["d", "3"]}]], RowBox[{ RowBox[{"d", ">", "0"}], "&&", RowBox[{ RowBox[{"d", "-", "r"}], "<", "0"}], "&&", RowBox[{ RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["d", "2"]}], "+", SuperscriptBox["r", "2"]}]], "-", "R"}], "<", "0"}], "&&", RowBox[{ RowBox[{"d", "+", "r", "-", "R"}], ">", "0"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.84]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}]}]}], "}"}]], "Output",ExpressionU\ UID->"af8a18f5-dcf3-4b07-9a98-f1b2923e9ddf"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["v6", "Subsubsection",ExpressionUUID->"38943000-2c11-4e02-a21c-3bb9b946c2fa"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{"vol", "=", RowBox[{"Integrate", "[", RowBox[{ RowBox[{"Boole", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"x", "^", "2"}], "+", RowBox[{"y", "^", "2"}], "+", RowBox[{"z", "^", "2"}]}], "<", RowBox[{"R", "^", "2"}]}], "&&", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"x", "-", "d"}], ")"}], "^", "2"}], "+", RowBox[{"y", "^", "2"}], "+", RowBox[{"z", "^", "2"}]}], "<", RowBox[{"r", "^", "2"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{ RowBox[{"r", ">", "0"}], "&&", RowBox[{"R", ">", "0"}], "&&", RowBox[{"d", "\[Element]", "Reals"}]}]}]}], "]"}]}], ")"}], "//", "Timing"}]], "Input",ExpressionUUID->"38dca301-b4d1-4c41-8c73-ba61d1f6411c"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"8585.67`", " ", "Second"}], ",", RowBox[{"\[Piecewise]", GridBox[{ { FractionBox[ RowBox[{"4", " ", "\[Pi]", " ", SuperscriptBox["r", "3"]}], "3"], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"d", "+", "r", "-", "R"}], "\[Equal]", "0"}], "&&", RowBox[{"d", ">", "0"}], "&&", RowBox[{ RowBox[{"d", "-", "r"}], "<", "0"}]}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"d", "+", "r", "-", "R"}], "\[Equal]", "0"}], "&&", RowBox[{"d", ">", "0"}], "&&", RowBox[{ RowBox[{"d", "-", "r"}], ">", "0"}]}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{"d", "<", "0"}], "&&", RowBox[{ RowBox[{"d", "-", "r", "+", "R"}], "\[Equal]", "0"}], "&&", RowBox[{ RowBox[{"d", "+", "r"}], ">", "0"}]}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{"d", "<", "0"}], "&&", RowBox[{ RowBox[{"d", "-", "r", "+", "R"}], "\[Equal]", "0"}], "&&", RowBox[{ RowBox[{"d", "+", "r"}], "<", "0"}]}], ")"}]}]}, { RowBox[{ FractionBox["1", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "3"], " ", "\[Pi]"}], "-", RowBox[{"3", " ", "d", " ", "\[Pi]", " ", SuperscriptBox["r", "2"]}], "+", RowBox[{"2", " ", "\[Pi]", " ", SuperscriptBox["r", "3"]}], "-", RowBox[{"2", " ", SuperscriptBox["d", "2"], " ", "\[Pi]", " ", SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["d", "2"]}], "+", SuperscriptBox["r", "2"]}]]}], "+", RowBox[{"2", " ", "\[Pi]", " ", SuperscriptBox["r", "2"], " ", SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["d", "2"]}], "+", SuperscriptBox["r", "2"]}]]}]}], ")"}]}], RowBox[{ RowBox[{"d", ">", "0"}], "&&", RowBox[{ RowBox[{"d", "-", "r"}], "<", "0"}], "&&", RowBox[{ RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["d", "2"]}], "+", SuperscriptBox["r", "2"]}]], "-", "R"}], "\[Equal]", "0"}]}]}, { RowBox[{ FractionBox["1", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox["d", "3"]}], " ", "\[Pi]"}], "+", RowBox[{"3", " ", "d", " ", "\[Pi]", " ", SuperscriptBox["r", "2"]}], "+", RowBox[{"2", " ", "\[Pi]", " ", SuperscriptBox["r", "3"]}], "-", RowBox[{"2", " ", SuperscriptBox["d", "2"], " ", "\[Pi]", " ", SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["d", "2"]}], "+", SuperscriptBox["r", "2"]}]]}], "+", RowBox[{"2", " ", "\[Pi]", " ", SuperscriptBox["r", "2"], " ", SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["d", "2"]}], "+", SuperscriptBox["r", "2"]}]]}]}], ")"}]}], RowBox[{ RowBox[{"d", "<", "0"}], "&&", RowBox[{ RowBox[{"d", "+", "r"}], ">", "0"}], "&&", RowBox[{ RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["d", "2"]}], "+", SuperscriptBox["r", "2"]}]], "-", "R"}], "\[Equal]", "0"}]}]}, { FractionBox[ RowBox[{"\[Pi]", " ", SuperscriptBox["R", "3"]}], "6"], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"d", "-", "r"}], "\[Equal]", "0"}], "&&", RowBox[{ RowBox[{"d", "+", "r", "-", "R"}], "\[Equal]", "0"}], "&&", RowBox[{"d", ">", "0"}]}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{"d", "<", "0"}], "&&", RowBox[{ RowBox[{"d", "+", "r"}], "\[Equal]", "0"}], "&&", RowBox[{ RowBox[{"d", "-", "r", "+", "R"}], "\[Equal]", "0"}]}], ")"}]}]}, { FractionBox[ RowBox[{"\[Pi]", " ", SuperscriptBox["R", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", "d", " ", "r"}], "-", SuperscriptBox["R", "2"]}], ")"}]}], RowBox[{"24", " ", SuperscriptBox["r", "3"]}]], RowBox[{ RowBox[{"d", ">", "0"}], "&&", RowBox[{ RowBox[{"d", "-", "r"}], "\[Equal]", "0"}], "&&", RowBox[{ RowBox[{"d", "+", "r", "-", "R"}], ">", "0"}]}]}, { FractionBox[ RowBox[{"\[Pi]", " ", SuperscriptBox["R", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", "d", " ", "r"}], "+", SuperscriptBox["R", "2"]}], ")"}]}], RowBox[{"24", " ", SuperscriptBox["d", "3"]}]], RowBox[{ RowBox[{"d", "<", "0"}], "&&", RowBox[{ RowBox[{"d", "+", "r"}], "\[Equal]", "0"}], "&&", RowBox[{ RowBox[{"d", "-", "r", "+", "R"}], "<", "0"}]}]}, { RowBox[{"-", FractionBox[ RowBox[{"\[Pi]", " ", SuperscriptBox["R", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox["d", "2"]}], "-", RowBox[{"3", " ", SuperscriptBox["r", "2"]}], "-", RowBox[{"4", " ", "d", " ", "R"}], "+", RowBox[{"3", " ", SuperscriptBox["R", "2"]}]}], ")"}]}], RowBox[{"6", " ", "d"}]]}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"d", ">", "0"}], "&&", RowBox[{ RowBox[{"d", "-", "r"}], "<", "0"}], "&&", RowBox[{ RowBox[{"d", "-", FractionBox[ SuperscriptBox["r", "2"], "d"], "+", FractionBox[ SuperscriptBox["R", "2"], "d"]}], ">", "0"}], "&&", RowBox[{ RowBox[{"d", "-", "r", "+", "R"}], ">", "0"}], "&&", RowBox[{ RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["d", "2"]}], "+", SuperscriptBox["r", "2"]}]], "-", "R"}], ">", "0"}], "&&", RowBox[{ RowBox[{ FractionBox["d", "R"], "-", FractionBox[ SuperscriptBox["r", "2"], RowBox[{"d", " ", "R"}]], "+", FractionBox["R", "d"]}], "<", "2"}], "&&", RowBox[{ RowBox[{"d", "-", FractionBox[ SuperscriptBox["r", "2"], "d"], "-", RowBox[{"2", " ", "R"}], "+", FractionBox[ SuperscriptBox["R", "2"], "d"]}], "<", "0"}]}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{"d", ">", "0"}], "&&", RowBox[{ RowBox[{"d", "-", "r"}], "<", "0"}], "&&", RowBox[{ RowBox[{"d", "-", FractionBox[ SuperscriptBox["r", "2"], "d"], "+", FractionBox[ SuperscriptBox["R", "2"], "d"]}], ">", "0"}], "&&", RowBox[{ RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["d", "2"]}], "+", SuperscriptBox["r", "2"]}]], "-", "R"}], "<", "0"}], "&&", RowBox[{ RowBox[{ FractionBox["d", "R"], "-", FractionBox[ SuperscriptBox["r", "2"], RowBox[{"d", " ", "R"}]], "+", FractionBox["R", "d"]}], "<", "2"}], "&&", RowBox[{ RowBox[{"d", "-", FractionBox[ SuperscriptBox["r", "2"], "d"], "-", RowBox[{"2", " ", "R"}], "+", FractionBox[ SuperscriptBox["R", "2"], "d"]}], "<", "0"}], "&&", RowBox[{ RowBox[{"d", "+", "r", "-", "R"}], ">", "0"}]}], ")"}]}]}, { FractionBox[ RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SuperscriptBox["d", "4"], "+", RowBox[{"4", " ", "d", " ", SuperscriptBox["r", "3"]}], "+", RowBox[{"3", " ", SuperscriptBox["r", "4"]}], "+", RowBox[{"3", " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"3", " ", SuperscriptBox["r", "2"], " ", SuperscriptBox["R", "2"]}]}], ")"}]}], RowBox[{"6", " ", "d"}]], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"d", "+", "r"}], ">", "0"}], "&&", RowBox[{ RowBox[{"d", "-", FractionBox[ SuperscriptBox["r", "2"], "d"], "+", FractionBox[ SuperscriptBox["R", "2"], "d"]}], ">", "0"}], "&&", RowBox[{"d", "<", "0"}], "&&", RowBox[{ RowBox[{"d", "+", "r", "-", "R"}], "<", "0"}], "&&", RowBox[{ RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["d", "2"]}], "+", SuperscriptBox["r", "2"]}]], "-", "R"}], ">", "0"}], "&&", RowBox[{ RowBox[{ FractionBox["d", RowBox[{"d", "+", "r"}]], "-", FractionBox[ SuperscriptBox["r", "2"], RowBox[{"d", " ", RowBox[{"(", RowBox[{"d", "+", "r"}], ")"}]}]], "+", FractionBox[ SuperscriptBox["R", "2"], RowBox[{"d", " ", RowBox[{"(", RowBox[{"d", "+", "r"}], ")"}]}]]}], "<", "2"}], "&&", RowBox[{ RowBox[{"d", "+", RowBox[{"2", " ", "r"}], "+", FractionBox[ SuperscriptBox["r", "2"], "d"], "-", FractionBox[ SuperscriptBox["R", "2"], "d"]}], ">", "0"}]}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"d", "+", "r"}], ">", "0"}], "&&", RowBox[{ RowBox[{"d", "-", FractionBox[ SuperscriptBox["r", "2"], "d"], "+", FractionBox[ SuperscriptBox["R", "2"], "d"]}], ">", "0"}], "&&", RowBox[{"d", "<", "0"}], "&&", RowBox[{ RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["d", "2"]}], "+", SuperscriptBox["r", "2"]}]], "-", "R"}], "<", "0"}], "&&", RowBox[{ RowBox[{ FractionBox["d", RowBox[{"d", "+", "r"}]], "-", FractionBox[ SuperscriptBox["r", "2"], RowBox[{"d", " ", RowBox[{"(", RowBox[{"d", "+", "r"}], ")"}]}]], "+", FractionBox[ SuperscriptBox["R", "2"], RowBox[{"d", " ", RowBox[{"(", RowBox[{"d", "+", "r"}], ")"}]}]]}], "<", "2"}], "&&", RowBox[{ RowBox[{"d", "+", RowBox[{"2", " ", "r"}], "+", FractionBox[ SuperscriptBox["r", "2"], "d"], "-", FractionBox[ SuperscriptBox["R", "2"], "d"]}], ">", "0"}], "&&", RowBox[{ RowBox[{"d", "-", "r", "+", "R"}], "<", "0"}]}], ")"}]}]}, { FractionBox[ RowBox[{ RowBox[{ SuperscriptBox["d", "4"], " ", "\[Pi]"}], "-", RowBox[{"6", " ", SuperscriptBox["d", "2"], " ", "\[Pi]", " ", SuperscriptBox["r", "2"]}], "+", RowBox[{"8", " ", "d", " ", "\[Pi]", " ", SuperscriptBox["r", "3"]}], "-", RowBox[{"3", " ", "\[Pi]", " ", SuperscriptBox["r", "4"]}], "-", RowBox[{"6", " ", SuperscriptBox["d", "2"], " ", "\[Pi]", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"6", " ", "\[Pi]", " ", SuperscriptBox["r", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"8", " ", "d", " ", "\[Pi]", " ", SuperscriptBox["R", "3"]}], "-", RowBox[{"3", " ", "\[Pi]", " ", SuperscriptBox["R", "4"]}]}], RowBox[{"12", " ", "d"}]], RowBox[{ RowBox[{"d", ">", "0"}], "&&", RowBox[{ RowBox[{"d", "-", "r"}], ">", "0"}], "&&", RowBox[{ RowBox[{"d", "-", "r", "-", "R"}], "<", "0"}], "&&", RowBox[{ RowBox[{"d", "+", "r", "-", "R"}], ">", "0"}]}]}, { FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox["d", "4"]}], " ", "\[Pi]"}], "+", RowBox[{"6", " ", SuperscriptBox["d", "2"], " ", "\[Pi]", " ", SuperscriptBox["r", "2"]}], "+", RowBox[{"8", " ", "d", " ", "\[Pi]", " ", SuperscriptBox["r", "3"]}], "+", RowBox[{"3", " ", "\[Pi]", " ", SuperscriptBox["r", "4"]}], "+", RowBox[{"6", " ", SuperscriptBox["d", "2"], " ", "\[Pi]", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"6", " ", "\[Pi]", " ", SuperscriptBox["r", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"8", " ", "d", " ", "\[Pi]", " ", SuperscriptBox["R", "3"]}], "+", RowBox[{"3", " ", "\[Pi]", " ", SuperscriptBox["R", "4"]}]}], RowBox[{"12", " ", "d"}]], RowBox[{ RowBox[{"d", "<", "0"}], "&&", RowBox[{ RowBox[{"d", "+", "r"}], "<", "0"}], "&&", RowBox[{ RowBox[{"d", "+", "r", "+", "R"}], ">", "0"}], "&&", RowBox[{ RowBox[{"d", "-", "r", "+", "R"}], "<", "0"}]}]}, { FractionBox[ RowBox[{ RowBox[{"4", " ", SuperscriptBox["d", "2"], " ", "\[Pi]"}], "-", RowBox[{"12", " ", SuperscriptBox["d", "3"], " ", "\[Pi]"}], "+", RowBox[{"18", " ", SuperscriptBox["d", "4"], " ", "\[Pi]"}], "-", RowBox[{"12", " ", SuperscriptBox["d", "5"], " ", "\[Pi]"}], "+", RowBox[{"3", " ", SuperscriptBox["d", "6"], " ", "\[Pi]"}], "+", RowBox[{"12", " ", SuperscriptBox["d", "2"], " ", "\[Pi]", " ", "r"}], "-", RowBox[{"36", " ", SuperscriptBox["d", "3"], " ", "\[Pi]", " ", "r"}], "+", RowBox[{"36", " ", SuperscriptBox["d", "4"], " ", "\[Pi]", " ", "r"}], "-", RowBox[{"12", " ", SuperscriptBox["d", "5"], " ", "\[Pi]", " ", "r"}], "+", RowBox[{"18", " ", SuperscriptBox["d", "2"], " ", "\[Pi]", " ", SuperscriptBox["r", "2"]}], "-", RowBox[{"36", " ", SuperscriptBox["d", "3"], " ", "\[Pi]", " ", SuperscriptBox["r", "2"]}], "+", RowBox[{"15", " ", SuperscriptBox["d", "4"], " ", "\[Pi]", " ", SuperscriptBox["r", "2"]}], "+", RowBox[{"12", " ", SuperscriptBox["d", "2"], " ", "\[Pi]", " ", SuperscriptBox["r", "3"]}], "-", RowBox[{"15", " ", SuperscriptBox["d", "2"], " ", "\[Pi]", " ", SuperscriptBox["r", "4"]}], "+", RowBox[{"12", " ", "d", " ", "\[Pi]", " ", SuperscriptBox["r", "5"]}], "-", RowBox[{"3", " ", "\[Pi]", " ", SuperscriptBox["r", "6"]}], "-", RowBox[{"6", " ", SuperscriptBox["d", "2"], " ", "\[Pi]", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"12", " ", SuperscriptBox["d", "3"], " ", "\[Pi]", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"6", " ", SuperscriptBox["d", "4"], " ", "\[Pi]", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"12", " ", SuperscriptBox["d", "2"], " ", "\[Pi]", " ", "r", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"12", " ", SuperscriptBox["d", "3"], " ", "\[Pi]", " ", "r", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"12", " ", "d", " ", "\[Pi]", " ", SuperscriptBox["r", "3"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"6", " ", "\[Pi]", " ", SuperscriptBox["r", "4"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"3", " ", SuperscriptBox["d", "2"], " ", "\[Pi]", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"3", " ", "\[Pi]", " ", SuperscriptBox["r", "2"], " ", SuperscriptBox["R", "4"]}]}], RowBox[{"6", " ", "d", " ", RowBox[{"(", RowBox[{ SuperscriptBox["d", "2"], "-", RowBox[{"2", " ", "d", " ", "r"}], "+", SuperscriptBox["r", "2"], "-", SuperscriptBox["R", "2"]}], ")"}]}]], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"d", ">", "0"}], "&&", RowBox[{ RowBox[{"d", "-", "r"}], "<", "0"}], "&&", RowBox[{ RowBox[{"d", "-", "r", "+", "R"}], ">", "0"}], "&&", RowBox[{ RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["d", "2"]}], "+", SuperscriptBox["r", "2"]}]], "-", "R"}], ">", "0"}]}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{"d", ">", "0"}], "&&", RowBox[{ RowBox[{"d", "-", "r"}], "<", "0"}], "&&", RowBox[{ RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["d", "2"]}], "+", SuperscriptBox["r", "2"]}]], "-", "R"}], "<", "0"}], "&&", RowBox[{ RowBox[{"d", "+", "r", "-", "R"}], ">", "0"}]}], ")"}]}]}, { FractionBox[ RowBox[{ RowBox[{ SuperscriptBox["d", "6"], " ", "\[Pi]"}], "-", RowBox[{"3", " ", SuperscriptBox["d", "4"], " ", "\[Pi]", " ", SuperscriptBox["r", "2"]}], "+", RowBox[{"3", " ", SuperscriptBox["d", "2"], " ", "\[Pi]", " ", SuperscriptBox["r", "4"]}], "-", RowBox[{"\[Pi]", " ", SuperscriptBox["r", "6"]}], "-", RowBox[{"9", " ", SuperscriptBox["d", "4"], " ", "\[Pi]", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"6", " ", SuperscriptBox["d", "2"], " ", "\[Pi]", " ", SuperscriptBox["r", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"3", " ", "\[Pi]", " ", SuperscriptBox["r", "4"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"16", " ", SuperscriptBox["d", "3"], " ", "\[Pi]", " ", SuperscriptBox["R", "3"]}], "-", RowBox[{"9", " ", SuperscriptBox["d", "2"], " ", "\[Pi]", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"3", " ", "\[Pi]", " ", SuperscriptBox["r", "2"], " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"\[Pi]", " ", SuperscriptBox["R", "6"]}]}], RowBox[{"24", " ", SuperscriptBox["d", "3"]}]], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"d", ">", "0"}], "&&", RowBox[{ RowBox[{"d", "-", "r"}], "<", "0"}], "&&", RowBox[{ RowBox[{"d", "-", "r", "+", "R"}], ">", "0"}], "&&", RowBox[{ RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["d", "2"]}], "+", SuperscriptBox["r", "2"]}]], "-", "R"}], ">", "0"}], "&&", RowBox[{ RowBox[{"d", "-", FractionBox[ SuperscriptBox["r", "2"], "d"], "+", FractionBox[ SuperscriptBox["R", "2"], "d"]}], "\[LessEqual]", "0"}]}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{"d", ">", "0"}], "&&", RowBox[{ RowBox[{"d", "-", "r"}], "<", "0"}], "&&", RowBox[{ RowBox[{"d", "-", "r", "+", "R"}], ">", "0"}], "&&", RowBox[{ RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["d", "2"]}], "+", SuperscriptBox["r", "2"]}]], "-", "R"}], ">", "0"}], "&&", RowBox[{ RowBox[{ FractionBox["d", "R"], "-", FractionBox[ SuperscriptBox["r", "2"], RowBox[{"d", " ", "R"}]], "+", FractionBox["R", "d"]}], "\[GreaterEqual]", "2"}]}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{"d", ">", "0"}], "&&", RowBox[{ RowBox[{"d", "-", "r"}], "<", "0"}], "&&", RowBox[{ RowBox[{"d", "-", "r", "+", "R"}], ">", "0"}], "&&", RowBox[{ RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["d", "2"]}], "+", SuperscriptBox["r", "2"]}]], "-", "R"}], ">", "0"}], "&&", RowBox[{ RowBox[{"d", "-", FractionBox[ SuperscriptBox["r", "2"], "d"], "-", RowBox[{"2", " ", "R"}], "+", FractionBox[ SuperscriptBox["R", "2"], "d"]}], "\[GreaterEqual]", "0"}]}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{"d", ">", "0"}], "&&", RowBox[{ RowBox[{"d", "-", "r"}], "<", "0"}], "&&", RowBox[{ RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["d", "2"]}], "+", SuperscriptBox["r", "2"]}]], "-", "R"}], "<", "0"}], "&&", RowBox[{ RowBox[{"d", "-", FractionBox[ SuperscriptBox["r", "2"], "d"], "+", FractionBox[ SuperscriptBox["R", "2"], "d"]}], "\[LessEqual]", "0"}], "&&", RowBox[{ RowBox[{"d", "+", "r", "-", "R"}], ">", "0"}]}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{"d", ">", "0"}], "&&", RowBox[{ RowBox[{"d", "-", "r"}], "<", "0"}], "&&", RowBox[{ RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["d", "2"]}], "+", SuperscriptBox["r", "2"]}]], "-", "R"}], "<", "0"}], "&&", RowBox[{ RowBox[{ FractionBox["d", "R"], "-", FractionBox[ SuperscriptBox["r", "2"], RowBox[{"d", " ", "R"}]], "+", FractionBox["R", "d"]}], "\[GreaterEqual]", "2"}], "&&", RowBox[{ RowBox[{"d", "+", "r", "-", "R"}], ">", "0"}]}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{"d", ">", "0"}], "&&", RowBox[{ RowBox[{"d", "-", "r"}], "<", "0"}], "&&", RowBox[{ RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["d", "2"]}], "+", SuperscriptBox["r", "2"]}]], "-", "R"}], "<", "0"}], "&&", RowBox[{ RowBox[{"d", "-", FractionBox[ SuperscriptBox["r", "2"], "d"], "-", RowBox[{"2", " ", "R"}], "+", FractionBox[ SuperscriptBox["R", "2"], "d"]}], "\[GreaterEqual]", "0"}], "&&", RowBox[{ RowBox[{"d", "+", "r", "-", "R"}], ">", "0"}]}], ")"}]}]}, { FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox["d", "6"]}], " ", "\[Pi]"}], "+", RowBox[{"9", " ", SuperscriptBox["d", "4"], " ", "\[Pi]", " ", SuperscriptBox["r", "2"]}], "+", RowBox[{"16", " ", SuperscriptBox["d", "3"], " ", "\[Pi]", " ", SuperscriptBox["r", "3"]}], "+", RowBox[{"9", " ", SuperscriptBox["d", "2"], " ", "\[Pi]", " ", SuperscriptBox["r", "4"]}], "-", RowBox[{"\[Pi]", " ", SuperscriptBox["r", "6"]}], "+", RowBox[{"3", " ", SuperscriptBox["d", "4"], " ", "\[Pi]", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"6", " ", SuperscriptBox["d", "2"], " ", "\[Pi]", " ", SuperscriptBox["r", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"3", " ", "\[Pi]", " ", SuperscriptBox["r", "4"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"3", " ", SuperscriptBox["d", "2"], " ", "\[Pi]", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"3", " ", "\[Pi]", " ", SuperscriptBox["r", "2"], " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"\[Pi]", " ", SuperscriptBox["R", "6"]}]}], RowBox[{"24", " ", SuperscriptBox["d", "3"]}]], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"d", "+", "r"}], ">", "0"}], "&&", RowBox[{"d", "<", "0"}], "&&", RowBox[{ RowBox[{"d", "+", "r", "-", "R"}], "<", "0"}], "&&", RowBox[{ RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["d", "2"]}], "+", SuperscriptBox["r", "2"]}]], "-", "R"}], ">", "0"}], "&&", RowBox[{ RowBox[{"d", "-", FractionBox[ SuperscriptBox["r", "2"], "d"], "+", FractionBox[ SuperscriptBox["R", "2"], "d"]}], "\[LessEqual]", "0"}]}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"d", "+", "r"}], ">", "0"}], "&&", RowBox[{"d", "<", "0"}], "&&", RowBox[{ RowBox[{"d", "+", "r", "-", "R"}], "<", "0"}], "&&", RowBox[{ RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["d", "2"]}], "+", SuperscriptBox["r", "2"]}]], "-", "R"}], ">", "0"}], "&&", RowBox[{ RowBox[{ FractionBox["d", RowBox[{"d", "+", "r"}]], "-", FractionBox[ SuperscriptBox["r", "2"], RowBox[{"d", " ", RowBox[{"(", RowBox[{"d", "+", "r"}], ")"}]}]], "+", FractionBox[ SuperscriptBox["R", "2"], RowBox[{"d", " ", RowBox[{"(", RowBox[{"d", "+", "r"}], ")"}]}]]}], "\[GreaterEqual]", "2"}]}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"d", "+", "r"}], ">", "0"}], "&&", RowBox[{"d", "<", "0"}], "&&", RowBox[{ RowBox[{"d", "+", "r", "-", "R"}], "<", "0"}], "&&", RowBox[{ RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["d", "2"]}], "+", SuperscriptBox["r", "2"]}]], "-", "R"}], ">", "0"}], "&&", RowBox[{ RowBox[{"d", "+", RowBox[{"2", " ", "r"}], "+", FractionBox[ SuperscriptBox["r", "2"], "d"], "-", FractionBox[ SuperscriptBox["R", "2"], "d"]}], "\[LessEqual]", "0"}]}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"d", "+", "r"}], ">", "0"}], "&&", RowBox[{"d", "<", "0"}], "&&", RowBox[{ RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["d", "2"]}], "+", SuperscriptBox["r", "2"]}]], "-", "R"}], "<", "0"}], "&&", RowBox[{ RowBox[{"d", "-", FractionBox[ SuperscriptBox["r", "2"], "d"], "+", FractionBox[ SuperscriptBox["R", "2"], "d"]}], "\[LessEqual]", "0"}], "&&", RowBox[{ RowBox[{"d", "-", "r", "+", "R"}], "<", "0"}]}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"d", "+", "r"}], ">", "0"}], "&&", RowBox[{"d", "<", "0"}], "&&", RowBox[{ RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["d", "2"]}], "+", SuperscriptBox["r", "2"]}]], "-", "R"}], "<", "0"}], "&&", RowBox[{ RowBox[{ FractionBox["d", RowBox[{"d", "+", "r"}]], "-", FractionBox[ SuperscriptBox["r", "2"], RowBox[{"d", " ", RowBox[{"(", RowBox[{"d", "+", "r"}], ")"}]}]], "+", FractionBox[ SuperscriptBox["R", "2"], RowBox[{"d", " ", RowBox[{"(", RowBox[{"d", "+", "r"}], ")"}]}]]}], "\[GreaterEqual]", "2"}], "&&", RowBox[{ RowBox[{"d", "-", "r", "+", "R"}], "<", "0"}]}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"d", "+", "r"}], ">", "0"}], "&&", RowBox[{"d", "<", "0"}], "&&", RowBox[{ RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["d", "2"]}], "+", SuperscriptBox["r", "2"]}]], "-", "R"}], "<", "0"}], "&&", RowBox[{ RowBox[{"d", "+", RowBox[{"2", " ", "r"}], "+", FractionBox[ SuperscriptBox["r", "2"], "d"], "-", FractionBox[ SuperscriptBox["R", "2"], "d"]}], "\[LessEqual]", "0"}], "&&", RowBox[{ RowBox[{"d", "-", "r", "+", "R"}], "<", "0"}]}], ")"}]}]}, { FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", SuperscriptBox["d", "2"], " ", "\[Pi]"}], "-", RowBox[{"12", " ", SuperscriptBox["d", "2"], " ", "\[Pi]", " ", "R"}], "-", RowBox[{"12", " ", SuperscriptBox["d", "2"], " ", "\[Pi]", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"3", " ", SuperscriptBox["d", "4"], " ", "\[Pi]", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"6", " ", SuperscriptBox["d", "2"], " ", "\[Pi]", " ", SuperscriptBox["r", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"3", " ", "\[Pi]", " ", SuperscriptBox["r", "4"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"12", " ", SuperscriptBox["d", "3"], " ", "\[Pi]", " ", SuperscriptBox["R", "3"]}], "-", RowBox[{"12", " ", "d", " ", "\[Pi]", " ", SuperscriptBox["r", "2"], " ", SuperscriptBox["R", "3"]}], "+", RowBox[{"18", " ", SuperscriptBox["d", "2"], " ", "\[Pi]", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"6", " ", "\[Pi]", " ", SuperscriptBox["r", "2"], " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"12", " ", "d", " ", "\[Pi]", " ", SuperscriptBox["R", "5"]}], "+", RowBox[{"3", " ", "\[Pi]", " ", SuperscriptBox["R", "6"]}]}], RowBox[{"6", " ", "d", " ", RowBox[{"(", RowBox[{ SuperscriptBox["d", "2"], "-", SuperscriptBox["r", "2"], "+", RowBox[{"2", " ", "d", " ", "R"}], "+", SuperscriptBox["R", "2"]}], ")"}]}]], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"d", "+", "r"}], ">", "0"}], "&&", RowBox[{"d", "<", "0"}], "&&", RowBox[{ RowBox[{"d", "+", "r", "-", "R"}], "<", "0"}], "&&", RowBox[{ RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["d", "2"]}], "+", SuperscriptBox["r", "2"]}]], "-", "R"}], ">", "0"}]}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"d", "+", "r"}], ">", "0"}], "&&", RowBox[{"d", "<", "0"}], "&&", RowBox[{ RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["d", "2"]}], "+", SuperscriptBox["r", "2"]}]], "-", "R"}], "<", "0"}], "&&", RowBox[{ RowBox[{"d", "-", "r", "+", "R"}], "<", "0"}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.84]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}]}]}], "}"}]], "Output",ExpressionU\ UID->"8aaf92b2-a4d6-44da-aa08-b0cbc751d2c8"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"vol", "=", RowBox[{"\[Piecewise]", GridBox[{ { FractionBox[ RowBox[{"4", " ", "\[Pi]", " ", SuperscriptBox["r", "3"]}], "3"], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"d", "+", "r", "-", "R"}], "\[Equal]", "0"}], "&&", RowBox[{"d", ">", "0"}], "&&", RowBox[{ RowBox[{"d", "-", "r"}], "<", "0"}]}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"d", "+", "r", "-", "R"}], "\[Equal]", "0"}], "&&", RowBox[{"d", ">", "0"}], "&&", RowBox[{ RowBox[{"d", "-", "r"}], ">", "0"}]}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{"d", "<", "0"}], "&&", RowBox[{ RowBox[{"d", "-", "r", "+", "R"}], "\[Equal]", "0"}], "&&", RowBox[{ RowBox[{"d", "+", "r"}], ">", "0"}]}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{"d", "<", "0"}], "&&", RowBox[{ RowBox[{"d", "-", "r", "+", "R"}], "\[Equal]", "0"}], "&&", RowBox[{ RowBox[{"d", "+", "r"}], "<", "0"}]}], ")"}]}]}, { RowBox[{ FractionBox["1", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "3"], " ", "\[Pi]"}], "-", RowBox[{"3", " ", "d", " ", "\[Pi]", " ", SuperscriptBox["r", "2"]}], "+", RowBox[{"2", " ", "\[Pi]", " ", SuperscriptBox["r", "3"]}], "-", RowBox[{"2", " ", SuperscriptBox["d", "2"], " ", "\[Pi]", " ", SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["d", "2"]}], "+", SuperscriptBox["r", "2"]}]]}], "+", RowBox[{"2", " ", "\[Pi]", " ", SuperscriptBox["r", "2"], " ", SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["d", "2"]}], "+", SuperscriptBox["r", "2"]}]]}]}], ")"}]}], RowBox[{ RowBox[{"d", ">", "0"}], "&&", RowBox[{ RowBox[{"d", "-", "r"}], "<", "0"}], "&&", RowBox[{ RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["d", "2"]}], "+", SuperscriptBox["r", "2"]}]], "-", "R"}], "\[Equal]", "0"}]}]}, { RowBox[{ FractionBox["1", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox["d", "3"]}], " ", "\[Pi]"}], "+", RowBox[{"3", " ", "d", " ", "\[Pi]", " ", SuperscriptBox["r", "2"]}], "+", RowBox[{"2", " ", "\[Pi]", " ", SuperscriptBox["r", "3"]}], "-", RowBox[{"2", " ", SuperscriptBox["d", "2"], " ", "\[Pi]", " ", SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["d", "2"]}], "+", SuperscriptBox["r", "2"]}]]}], "+", RowBox[{"2", " ", "\[Pi]", " ", SuperscriptBox["r", "2"], " ", SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["d", "2"]}], "+", SuperscriptBox["r", "2"]}]]}]}], ")"}]}], RowBox[{ RowBox[{"d", "<", "0"}], "&&", RowBox[{ RowBox[{"d", "+", "r"}], ">", "0"}], "&&", RowBox[{ RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["d", "2"]}], "+", SuperscriptBox["r", "2"]}]], "-", "R"}], "\[Equal]", "0"}]}]}, { FractionBox[ RowBox[{"\[Pi]", " ", SuperscriptBox["R", "3"]}], "6"], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"d", "-", "r"}], "\[Equal]", "0"}], "&&", RowBox[{ RowBox[{"d", "+", "r", "-", "R"}], "\[Equal]", "0"}], "&&", RowBox[{"d", ">", "0"}]}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{"d", "<", "0"}], "&&", RowBox[{ RowBox[{"d", "+", "r"}], "\[Equal]", "0"}], "&&", RowBox[{ RowBox[{"d", "-", "r", "+", "R"}], "\[Equal]", "0"}]}], ")"}]}]}, { FractionBox[ RowBox[{"\[Pi]", " ", SuperscriptBox["R", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", "d", " ", "r"}], "-", SuperscriptBox["R", "2"]}], ")"}]}], RowBox[{"24", " ", SuperscriptBox["r", "3"]}]], RowBox[{ RowBox[{"d", ">", "0"}], "&&", RowBox[{ RowBox[{"d", "-", "r"}], "\[Equal]", "0"}], "&&", RowBox[{ RowBox[{"d", "+", "r", "-", "R"}], ">", "0"}]}]}, { FractionBox[ RowBox[{"\[Pi]", " ", SuperscriptBox["R", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", "d", " ", "r"}], "+", SuperscriptBox["R", "2"]}], ")"}]}], RowBox[{"24", " ", SuperscriptBox["d", "3"]}]], RowBox[{ RowBox[{"d", "<", "0"}], "&&", RowBox[{ RowBox[{"d", "+", "r"}], "\[Equal]", "0"}], "&&", RowBox[{ RowBox[{"d", "-", "r", "+", "R"}], "<", "0"}]}]}, { RowBox[{"-", FractionBox[ RowBox[{"\[Pi]", " ", SuperscriptBox["R", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox["d", "2"]}], "-", RowBox[{"3", " ", SuperscriptBox["r", "2"]}], "-", RowBox[{"4", " ", "d", " ", "R"}], "+", RowBox[{"3", " ", SuperscriptBox["R", "2"]}]}], ")"}]}], RowBox[{"6", " ", "d"}]]}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"d", ">", "0"}], "&&", RowBox[{ RowBox[{"d", "-", "r"}], "<", "0"}], "&&", RowBox[{ RowBox[{"d", "-", FractionBox[ SuperscriptBox["r", "2"], "d"], "+", FractionBox[ SuperscriptBox["R", "2"], "d"]}], ">", "0"}], "&&", RowBox[{ RowBox[{"d", "-", "r", "+", "R"}], ">", "0"}], "&&", RowBox[{ RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["d", "2"]}], "+", SuperscriptBox["r", "2"]}]], "-", "R"}], ">", "0"}], "&&", RowBox[{ RowBox[{ FractionBox["d", "R"], "-", FractionBox[ SuperscriptBox["r", "2"], RowBox[{"d", " ", "R"}]], "+", FractionBox["R", "d"]}], "<", "2"}], "&&", RowBox[{ RowBox[{"d", "-", FractionBox[ SuperscriptBox["r", "2"], "d"], "-", RowBox[{"2", " ", "R"}], "+", FractionBox[ SuperscriptBox["R", "2"], "d"]}], "<", "0"}]}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{"d", ">", "0"}], "&&", RowBox[{ RowBox[{"d", "-", "r"}], "<", "0"}], "&&", RowBox[{ RowBox[{"d", "-", FractionBox[ SuperscriptBox["r", "2"], "d"], "+", FractionBox[ SuperscriptBox["R", "2"], "d"]}], ">", "0"}], "&&", RowBox[{ RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["d", "2"]}], "+", SuperscriptBox["r", "2"]}]], "-", "R"}], "<", "0"}], "&&", RowBox[{ RowBox[{ FractionBox["d", "R"], "-", FractionBox[ SuperscriptBox["r", "2"], RowBox[{"d", " ", "R"}]], "+", FractionBox["R", "d"]}], "<", "2"}], "&&", RowBox[{ RowBox[{"d", "-", FractionBox[ SuperscriptBox["r", "2"], "d"], "-", RowBox[{"2", " ", "R"}], "+", FractionBox[ SuperscriptBox["R", "2"], "d"]}], "<", "0"}], "&&", RowBox[{ RowBox[{"d", "+", "r", "-", "R"}], ">", "0"}]}], ")"}]}]}, { FractionBox[ RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SuperscriptBox["d", "4"], "+", RowBox[{"4", " ", "d", " ", SuperscriptBox["r", "3"]}], "+", RowBox[{"3", " ", SuperscriptBox["r", "4"]}], "+", RowBox[{"3", " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"3", " ", SuperscriptBox["r", "2"], " ", SuperscriptBox["R", "2"]}]}], ")"}]}], RowBox[{"6", " ", "d"}]], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"d", "+", "r"}], ">", "0"}], "&&", RowBox[{ RowBox[{"d", "-", FractionBox[ SuperscriptBox["r", "2"], "d"], "+", FractionBox[ SuperscriptBox["R", "2"], "d"]}], ">", "0"}], "&&", RowBox[{"d", "<", "0"}], "&&", RowBox[{ RowBox[{"d", "+", "r", "-", "R"}], "<", "0"}], "&&", RowBox[{ RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["d", "2"]}], "+", SuperscriptBox["r", "2"]}]], "-", "R"}], ">", "0"}], "&&", RowBox[{ RowBox[{ FractionBox["d", RowBox[{"d", "+", "r"}]], "-", FractionBox[ SuperscriptBox["r", "2"], RowBox[{"d", " ", RowBox[{"(", RowBox[{"d", "+", "r"}], ")"}]}]], "+", FractionBox[ SuperscriptBox["R", "2"], RowBox[{"d", " ", RowBox[{"(", RowBox[{"d", "+", "r"}], ")"}]}]]}], "<", "2"}], "&&", RowBox[{ RowBox[{"d", "+", RowBox[{"2", " ", "r"}], "+", FractionBox[ SuperscriptBox["r", "2"], "d"], "-", FractionBox[ SuperscriptBox["R", "2"], "d"]}], ">", "0"}]}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"d", "+", "r"}], ">", "0"}], "&&", RowBox[{ RowBox[{"d", "-", FractionBox[ SuperscriptBox["r", "2"], "d"], "+", FractionBox[ SuperscriptBox["R", "2"], "d"]}], ">", "0"}], "&&", RowBox[{"d", "<", "0"}], "&&", RowBox[{ RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["d", "2"]}], "+", SuperscriptBox["r", "2"]}]], "-", "R"}], "<", "0"}], "&&", RowBox[{ RowBox[{ FractionBox["d", RowBox[{"d", "+", "r"}]], "-", FractionBox[ SuperscriptBox["r", "2"], RowBox[{"d", " ", RowBox[{"(", RowBox[{"d", "+", "r"}], ")"}]}]], "+", FractionBox[ SuperscriptBox["R", "2"], RowBox[{"d", " ", RowBox[{"(", RowBox[{"d", "+", "r"}], ")"}]}]]}], "<", "2"}], "&&", RowBox[{ RowBox[{"d", "+", RowBox[{"2", " ", "r"}], "+", FractionBox[ SuperscriptBox["r", "2"], "d"], "-", FractionBox[ SuperscriptBox["R", "2"], "d"]}], ">", "0"}], "&&", RowBox[{ RowBox[{"d", "-", "r", "+", "R"}], "<", "0"}]}], ")"}]}]}, { FractionBox[ RowBox[{ RowBox[{ SuperscriptBox["d", "4"], " ", "\[Pi]"}], "-", RowBox[{"6", " ", SuperscriptBox["d", "2"], " ", "\[Pi]", " ", SuperscriptBox["r", "2"]}], "+", RowBox[{"8", " ", "d", " ", "\[Pi]", " ", SuperscriptBox["r", "3"]}], "-", RowBox[{"3", " ", "\[Pi]", " ", SuperscriptBox["r", "4"]}], "-", RowBox[{"6", " ", SuperscriptBox["d", "2"], " ", "\[Pi]", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"6", " ", "\[Pi]", " ", SuperscriptBox["r", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"8", " ", "d", " ", "\[Pi]", " ", SuperscriptBox["R", "3"]}], "-", RowBox[{"3", " ", "\[Pi]", " ", SuperscriptBox["R", "4"]}]}], RowBox[{"12", " ", "d"}]], RowBox[{ RowBox[{"d", ">", "0"}], "&&", RowBox[{ RowBox[{"d", "-", "r"}], ">", "0"}], "&&", RowBox[{ RowBox[{"d", "-", "r", "-", "R"}], "<", "0"}], "&&", RowBox[{ RowBox[{"d", "+", "r", "-", "R"}], ">", "0"}]}]}, { FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox["d", "4"]}], " ", "\[Pi]"}], "+", RowBox[{"6", " ", SuperscriptBox["d", "2"], " ", "\[Pi]", " ", SuperscriptBox["r", "2"]}], "+", RowBox[{"8", " ", "d", " ", "\[Pi]", " ", SuperscriptBox["r", "3"]}], "+", RowBox[{"3", " ", "\[Pi]", " ", SuperscriptBox["r", "4"]}], "+", RowBox[{"6", " ", SuperscriptBox["d", "2"], " ", "\[Pi]", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"6", " ", "\[Pi]", " ", SuperscriptBox["r", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"8", " ", "d", " ", "\[Pi]", " ", SuperscriptBox["R", "3"]}], "+", RowBox[{"3", " ", "\[Pi]", " ", SuperscriptBox["R", "4"]}]}], RowBox[{"12", " ", "d"}]], RowBox[{ RowBox[{"d", "<", "0"}], "&&", RowBox[{ RowBox[{"d", "+", "r"}], "<", "0"}], "&&", RowBox[{ RowBox[{"d", "+", "r", "+", "R"}], ">", "0"}], "&&", RowBox[{ RowBox[{"d", "-", "r", "+", "R"}], "<", "0"}]}]}, { FractionBox[ RowBox[{ RowBox[{"4", " ", SuperscriptBox["d", "2"], " ", "\[Pi]"}], "-", RowBox[{"12", " ", SuperscriptBox["d", "3"], " ", "\[Pi]"}], "+", RowBox[{"18", " ", SuperscriptBox["d", "4"], " ", "\[Pi]"}], "-", RowBox[{"12", " ", SuperscriptBox["d", "5"], " ", "\[Pi]"}], "+", RowBox[{"3", " ", SuperscriptBox["d", "6"], " ", "\[Pi]"}], "+", RowBox[{"12", " ", SuperscriptBox["d", "2"], " ", "\[Pi]", " ", "r"}], "-", RowBox[{"36", " ", SuperscriptBox["d", "3"], " ", "\[Pi]", " ", "r"}], "+", RowBox[{"36", " ", SuperscriptBox["d", "4"], " ", "\[Pi]", " ", "r"}], "-", RowBox[{"12", " ", SuperscriptBox["d", "5"], " ", "\[Pi]", " ", "r"}], "+", RowBox[{"18", " ", SuperscriptBox["d", "2"], " ", "\[Pi]", " ", SuperscriptBox["r", "2"]}], "-", RowBox[{"36", " ", SuperscriptBox["d", "3"], " ", "\[Pi]", " ", SuperscriptBox["r", "2"]}], "+", RowBox[{"15", " ", SuperscriptBox["d", "4"], " ", "\[Pi]", " ", SuperscriptBox["r", "2"]}], "+", RowBox[{"12", " ", SuperscriptBox["d", "2"], " ", "\[Pi]", " ", SuperscriptBox["r", "3"]}], "-", RowBox[{"15", " ", SuperscriptBox["d", "2"], " ", "\[Pi]", " ", SuperscriptBox["r", "4"]}], "+", RowBox[{"12", " ", "d", " ", "\[Pi]", " ", SuperscriptBox["r", "5"]}], "-", RowBox[{"3", " ", "\[Pi]", " ", SuperscriptBox["r", "6"]}], "-", RowBox[{"6", " ", SuperscriptBox["d", "2"], " ", "\[Pi]", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"12", " ", SuperscriptBox["d", "3"], " ", "\[Pi]", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"6", " ", SuperscriptBox["d", "4"], " ", "\[Pi]", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"12", " ", SuperscriptBox["d", "2"], " ", "\[Pi]", " ", "r", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"12", " ", SuperscriptBox["d", "3"], " ", "\[Pi]", " ", "r", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"12", " ", "d", " ", "\[Pi]", " ", SuperscriptBox["r", "3"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"6", " ", "\[Pi]", " ", SuperscriptBox["r", "4"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"3", " ", SuperscriptBox["d", "2"], " ", "\[Pi]", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"3", " ", "\[Pi]", " ", SuperscriptBox["r", "2"], " ", SuperscriptBox["R", "4"]}]}], RowBox[{"6", " ", "d", " ", RowBox[{"(", RowBox[{ SuperscriptBox["d", "2"], "-", RowBox[{"2", " ", "d", " ", "r"}], "+", SuperscriptBox["r", "2"], "-", SuperscriptBox["R", "2"]}], ")"}]}]], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"d", ">", "0"}], "&&", RowBox[{ RowBox[{"d", "-", "r"}], "<", "0"}], "&&", RowBox[{ RowBox[{"d", "-", "r", "+", "R"}], ">", "0"}], "&&", RowBox[{ RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["d", "2"]}], "+", SuperscriptBox["r", "2"]}]], "-", "R"}], ">", "0"}]}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{"d", ">", "0"}], "&&", RowBox[{ RowBox[{"d", "-", "r"}], "<", "0"}], "&&", RowBox[{ RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["d", "2"]}], "+", SuperscriptBox["r", "2"]}]], "-", "R"}], "<", "0"}], "&&", RowBox[{ RowBox[{"d", "+", "r", "-", "R"}], ">", "0"}]}], ")"}]}]}, { FractionBox[ RowBox[{ RowBox[{ SuperscriptBox["d", "6"], " ", "\[Pi]"}], "-", RowBox[{"3", " ", SuperscriptBox["d", "4"], " ", "\[Pi]", " ", SuperscriptBox["r", "2"]}], "+", RowBox[{"3", " ", SuperscriptBox["d", "2"], " ", "\[Pi]", " ", SuperscriptBox["r", "4"]}], "-", RowBox[{"\[Pi]", " ", SuperscriptBox["r", "6"]}], "-", RowBox[{"9", " ", SuperscriptBox["d", "4"], " ", "\[Pi]", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"6", " ", SuperscriptBox["d", "2"], " ", "\[Pi]", " ", SuperscriptBox["r", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"3", " ", "\[Pi]", " ", SuperscriptBox["r", "4"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"16", " ", SuperscriptBox["d", "3"], " ", "\[Pi]", " ", SuperscriptBox["R", "3"]}], "-", RowBox[{"9", " ", SuperscriptBox["d", "2"], " ", "\[Pi]", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"3", " ", "\[Pi]", " ", SuperscriptBox["r", "2"], " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"\[Pi]", " ", SuperscriptBox["R", "6"]}]}], RowBox[{"24", " ", SuperscriptBox["d", "3"]}]], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"d", ">", "0"}], "&&", RowBox[{ RowBox[{"d", "-", "r"}], "<", "0"}], "&&", RowBox[{ RowBox[{"d", "-", "r", "+", "R"}], ">", "0"}], "&&", RowBox[{ RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["d", "2"]}], "+", SuperscriptBox["r", "2"]}]], "-", "R"}], ">", "0"}], "&&", RowBox[{ RowBox[{"d", "-", FractionBox[ SuperscriptBox["r", "2"], "d"], "+", FractionBox[ SuperscriptBox["R", "2"], "d"]}], "\[LessEqual]", "0"}]}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{"d", ">", "0"}], "&&", RowBox[{ RowBox[{"d", "-", "r"}], "<", "0"}], "&&", RowBox[{ RowBox[{"d", "-", "r", "+", "R"}], ">", "0"}], "&&", RowBox[{ RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["d", "2"]}], "+", SuperscriptBox["r", "2"]}]], "-", "R"}], ">", "0"}], "&&", RowBox[{ RowBox[{ FractionBox["d", "R"], "-", FractionBox[ SuperscriptBox["r", "2"], RowBox[{"d", " ", "R"}]], "+", FractionBox["R", "d"]}], "\[GreaterEqual]", "2"}]}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{"d", ">", "0"}], "&&", RowBox[{ RowBox[{"d", "-", "r"}], "<", "0"}], "&&", RowBox[{ RowBox[{"d", "-", "r", "+", "R"}], ">", "0"}], "&&", RowBox[{ RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["d", "2"]}], "+", SuperscriptBox["r", "2"]}]], "-", "R"}], ">", "0"}], "&&", RowBox[{ RowBox[{"d", "-", FractionBox[ SuperscriptBox["r", "2"], "d"], "-", RowBox[{"2", " ", "R"}], "+", FractionBox[ SuperscriptBox["R", "2"], "d"]}], "\[GreaterEqual]", "0"}]}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{"d", ">", "0"}], "&&", RowBox[{ RowBox[{"d", "-", "r"}], "<", "0"}], "&&", RowBox[{ RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["d", "2"]}], "+", SuperscriptBox["r", "2"]}]], "-", "R"}], "<", "0"}], "&&", RowBox[{ RowBox[{"d", "-", FractionBox[ SuperscriptBox["r", "2"], "d"], "+", FractionBox[ SuperscriptBox["R", "2"], "d"]}], "\[LessEqual]", "0"}], "&&", RowBox[{ RowBox[{"d", "+", "r", "-", "R"}], ">", "0"}]}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{"d", ">", "0"}], "&&", RowBox[{ RowBox[{"d", "-", "r"}], "<", "0"}], "&&", RowBox[{ RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["d", "2"]}], "+", SuperscriptBox["r", "2"]}]], "-", "R"}], "<", "0"}], "&&", RowBox[{ RowBox[{ FractionBox["d", "R"], "-", FractionBox[ SuperscriptBox["r", "2"], RowBox[{"d", " ", "R"}]], "+", FractionBox["R", "d"]}], "\[GreaterEqual]", "2"}], "&&", RowBox[{ RowBox[{"d", "+", "r", "-", "R"}], ">", "0"}]}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{"d", ">", "0"}], "&&", RowBox[{ RowBox[{"d", "-", "r"}], "<", "0"}], "&&", RowBox[{ RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["d", "2"]}], "+", SuperscriptBox["r", "2"]}]], "-", "R"}], "<", "0"}], "&&", RowBox[{ RowBox[{"d", "-", FractionBox[ SuperscriptBox["r", "2"], "d"], "-", RowBox[{"2", " ", "R"}], "+", FractionBox[ SuperscriptBox["R", "2"], "d"]}], "\[GreaterEqual]", "0"}], "&&", RowBox[{ RowBox[{"d", "+", "r", "-", "R"}], ">", "0"}]}], ")"}]}]}, { FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox["d", "6"]}], " ", "\[Pi]"}], "+", RowBox[{"9", " ", SuperscriptBox["d", "4"], " ", "\[Pi]", " ", SuperscriptBox["r", "2"]}], "+", RowBox[{"16", " ", SuperscriptBox["d", "3"], " ", "\[Pi]", " ", SuperscriptBox["r", "3"]}], "+", RowBox[{"9", " ", SuperscriptBox["d", "2"], " ", "\[Pi]", " ", SuperscriptBox["r", "4"]}], "-", RowBox[{"\[Pi]", " ", SuperscriptBox["r", "6"]}], "+", RowBox[{"3", " ", SuperscriptBox["d", "4"], " ", "\[Pi]", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"6", " ", SuperscriptBox["d", "2"], " ", "\[Pi]", " ", SuperscriptBox["r", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"3", " ", "\[Pi]", " ", SuperscriptBox["r", "4"], " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"3", " ", SuperscriptBox["d", "2"], " ", "\[Pi]", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"3", " ", "\[Pi]", " ", SuperscriptBox["r", "2"], " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"\[Pi]", " ", SuperscriptBox["R", "6"]}]}], RowBox[{"24", " ", SuperscriptBox["d", "3"]}]], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"d", "+", "r"}], ">", "0"}], "&&", RowBox[{"d", "<", "0"}], "&&", RowBox[{ RowBox[{"d", "+", "r", "-", "R"}], "<", "0"}], "&&", RowBox[{ RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["d", "2"]}], "+", SuperscriptBox["r", "2"]}]], "-", "R"}], ">", "0"}], "&&", RowBox[{ RowBox[{"d", "-", FractionBox[ SuperscriptBox["r", "2"], "d"], "+", FractionBox[ SuperscriptBox["R", "2"], "d"]}], "\[LessEqual]", "0"}]}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"d", "+", "r"}], ">", "0"}], "&&", RowBox[{"d", "<", "0"}], "&&", RowBox[{ RowBox[{"d", "+", "r", "-", "R"}], "<", "0"}], "&&", RowBox[{ RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["d", "2"]}], "+", SuperscriptBox["r", "2"]}]], "-", "R"}], ">", "0"}], "&&", RowBox[{ RowBox[{ FractionBox["d", RowBox[{"d", "+", "r"}]], "-", FractionBox[ SuperscriptBox["r", "2"], RowBox[{"d", " ", RowBox[{"(", RowBox[{"d", "+", "r"}], ")"}]}]], "+", FractionBox[ SuperscriptBox["R", "2"], RowBox[{"d", " ", RowBox[{"(", RowBox[{"d", "+", "r"}], ")"}]}]]}], "\[GreaterEqual]", "2"}]}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"d", "+", "r"}], ">", "0"}], "&&", RowBox[{"d", "<", "0"}], "&&", RowBox[{ RowBox[{"d", "+", "r", "-", "R"}], "<", "0"}], "&&", RowBox[{ RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["d", "2"]}], "+", SuperscriptBox["r", "2"]}]], "-", "R"}], ">", "0"}], "&&", RowBox[{ RowBox[{"d", "+", RowBox[{"2", " ", "r"}], "+", FractionBox[ SuperscriptBox["r", "2"], "d"], "-", FractionBox[ SuperscriptBox["R", "2"], "d"]}], "\[LessEqual]", "0"}]}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"d", "+", "r"}], ">", "0"}], "&&", RowBox[{"d", "<", "0"}], "&&", RowBox[{ RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["d", "2"]}], "+", SuperscriptBox["r", "2"]}]], "-", "R"}], "<", "0"}], "&&", RowBox[{ RowBox[{"d", "-", FractionBox[ SuperscriptBox["r", "2"], "d"], "+", FractionBox[ SuperscriptBox["R", "2"], "d"]}], "\[LessEqual]", "0"}], "&&", RowBox[{ RowBox[{"d", "-", "r", "+", "R"}], "<", "0"}]}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"d", "+", "r"}], ">", "0"}], "&&", RowBox[{"d", "<", "0"}], "&&", RowBox[{ RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["d", "2"]}], "+", SuperscriptBox["r", "2"]}]], "-", "R"}], "<", "0"}], "&&", RowBox[{ RowBox[{ FractionBox["d", RowBox[{"d", "+", "r"}]], "-", FractionBox[ SuperscriptBox["r", "2"], RowBox[{"d", " ", RowBox[{"(", RowBox[{"d", "+", "r"}], ")"}]}]], "+", FractionBox[ SuperscriptBox["R", "2"], RowBox[{"d", " ", RowBox[{"(", RowBox[{"d", "+", "r"}], ")"}]}]]}], "\[GreaterEqual]", "2"}], "&&", RowBox[{ RowBox[{"d", "-", "r", "+", "R"}], "<", "0"}]}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"d", "+", "r"}], ">", "0"}], "&&", RowBox[{"d", "<", "0"}], "&&", RowBox[{ RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["d", "2"]}], "+", SuperscriptBox["r", "2"]}]], "-", "R"}], "<", "0"}], "&&", RowBox[{ RowBox[{"d", "+", RowBox[{"2", " ", "r"}], "+", FractionBox[ SuperscriptBox["r", "2"], "d"], "-", FractionBox[ SuperscriptBox["R", "2"], "d"]}], "\[LessEqual]", "0"}], "&&", RowBox[{ RowBox[{"d", "-", "r", "+", "R"}], "<", "0"}]}], ")"}]}]}, { FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", SuperscriptBox["d", "2"], " ", "\[Pi]"}], "-", RowBox[{"12", " ", SuperscriptBox["d", "2"], " ", "\[Pi]", " ", "R"}], "-", RowBox[{"12", " ", SuperscriptBox["d", "2"], " ", "\[Pi]", " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"3", " ", SuperscriptBox["d", "4"], " ", "\[Pi]", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"6", " ", SuperscriptBox["d", "2"], " ", "\[Pi]", " ", SuperscriptBox["r", "2"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"3", " ", "\[Pi]", " ", SuperscriptBox["r", "4"], " ", SuperscriptBox["R", "2"]}], "+", RowBox[{"12", " ", SuperscriptBox["d", "3"], " ", "\[Pi]", " ", SuperscriptBox["R", "3"]}], "-", RowBox[{"12", " ", "d", " ", "\[Pi]", " ", SuperscriptBox["r", "2"], " ", SuperscriptBox["R", "3"]}], "+", RowBox[{"18", " ", SuperscriptBox["d", "2"], " ", "\[Pi]", " ", SuperscriptBox["R", "4"]}], "-", RowBox[{"6", " ", "\[Pi]", " ", SuperscriptBox["r", "2"], " ", SuperscriptBox["R", "4"]}], "+", RowBox[{"12", " ", "d", " ", "\[Pi]", " ", SuperscriptBox["R", "5"]}], "+", RowBox[{"3", " ", "\[Pi]", " ", SuperscriptBox["R", "6"]}]}], RowBox[{"6", " ", "d", " ", RowBox[{"(", RowBox[{ SuperscriptBox["d", "2"], "-", SuperscriptBox["r", "2"], "+", RowBox[{"2", " ", "d", " ", "R"}], "+", SuperscriptBox["R", "2"]}], ")"}]}]], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"d", "+", "r"}], ">", "0"}], "&&", RowBox[{"d", "<", "0"}], "&&", RowBox[{ RowBox[{"d", "+", "r", "-", "R"}], "<", "0"}], "&&", RowBox[{ RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["d", "2"]}], "+", SuperscriptBox["r", "2"]}]], "-", "R"}], ">", "0"}]}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"d", "+", "r"}], ">", "0"}], "&&", RowBox[{"d", "<", "0"}], "&&", RowBox[{ RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["d", "2"]}], "+", SuperscriptBox["r", "2"]}]], "-", "R"}], "<", "0"}], "&&", RowBox[{ RowBox[{"d", "-", "r", "+", "R"}], "<", "0"}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.84]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}]}]}], ";"}]], "Input",ExpressionUU\ ID->"1688b0d4-f791-459a-969c-8ec1767a31da"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"FullSimplify", "[", RowBox[{"vol", ",", RowBox[{ RowBox[{"r", ">", "0"}], "&&", RowBox[{"R", ">", "0"}], "&&", RowBox[{"d", "\[Element]", "Reals"}]}]}], "]"}], "//", "Timing"}]], "Input",ExpressionUUID->"3aad2182-735d-4cca-b190-fa8533be2667"], Cell[BoxData["$Aborted"], "Output",ExpressionUUID->"a9208581-fa89-4d73-bf1d-1b61406e3a93"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Disjoint", "Subsection",ExpressionUUID->"61e3d89c-5886-472e-a7fd-da6e90766f0e"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{"vol", ",", RowBox[{ RowBox[{"R", ">", "0"}], "&&", RowBox[{"r", ">", "0"}], "&&", RowBox[{"(", RowBox[{ RowBox[{"d", ">", RowBox[{"r", "+", "R"}]}], "||", RowBox[{"d", "<", RowBox[{"-", RowBox[{"(", RowBox[{"r", "+", "R"}], ")"}]}]}]}], ")"}]}]}], "]"}]], "Input",Expr\ essionUUID->"d6a4415e-c6ee-42a3-ad49-a9f7807d7471"], Cell[BoxData["0"], "Output",ExpressionUUID->"501e6fea-d58d-45db-8758-f37fb1890f10"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{"vol", ",", RowBox[{ RowBox[{"R", ">", "0"}], "&&", RowBox[{"r", ">", "0"}], "&&", RowBox[{ RowBox[{"Abs", "[", "d", "]"}], ">", RowBox[{"r", "+", "R"}]}], "&&", RowBox[{"d", "\[Element]", "Reals"}]}]}], "]"}]], "Input",ExpressionUUID->\ "bff86962-665e-41b3-ad36-20aa5af9d27a"], Cell[BoxData["0"], "Output",ExpressionUUID->"aa136b09-3183-4008-9131-8ad6c6bd5df8"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ FormBox["r", TraditionalForm]],ExpressionUUID-> "73a264e9-1231-46f2-9377-cb9129bf6131"], " inside ", Cell[BoxData[ FormBox["R", TraditionalForm]],ExpressionUUID-> "ea05b7f7-4c5f-41b9-b35f-8d3c7d2a6533"] }], "Subsection",ExpressionUUID->"afcb1634-3265-4197-92b9-95241b08c8c2"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{"vol", ",", RowBox[{ RowBox[{"R", ">", "0"}], "&&", RowBox[{"r", ">", "0"}], "&&", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"d", ">", "0"}], "&&", RowBox[{ RowBox[{"d", "+", "r"}], "<", "R"}]}], "||", RowBox[{ RowBox[{"d", "<", "0"}], "&&", RowBox[{ RowBox[{"d", "-", "r"}], ">", RowBox[{"-", "R"}]}]}]}], ")"}]}]}], "]"}]], "Input",ExpressionUUID->\ "0b415cae-c302-4435-a3bb-9e5aa077aea7"], Cell[BoxData[ RowBox[{"\[Piecewise]", GridBox[{ {"Indeterminate", RowBox[{ RowBox[{ RowBox[{"d", "+", "r"}], "\[Equal]", "0"}], "&&", RowBox[{"d", "<", "0"}]}]}, { FractionBox[ RowBox[{"4", " ", "\[Pi]", " ", SuperscriptBox["r", "3"]}], "3"], TagBox["True", "PiecewiseDefault", AutoDelete->False, DeletionWarning->True]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.84]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}]}]], "Output",ExpressionUUID->\ "06778e9b-9e49-42d2-83d9-11493a363445"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Overlapping", "Subsection",ExpressionUUID->"81f4bd38-8685-48f8-93ce-60dc1bd465f2"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{"vol", ",", RowBox[{ RowBox[{"0", "<", "d", "<", RowBox[{"R", "+", "r"}]}], "&&", RowBox[{"r", ">", "0"}], "&&", RowBox[{"R", ">", "0"}]}]}], "]"}]], "Input",ExpressionUUID->"a3e9ce3a-\ a396-4e3d-9bfb-72b1f0442ab5"], Cell[BoxData[ RowBox[{"\[Piecewise]", GridBox[{ { FractionBox[ RowBox[{"4", " ", "\[Pi]", " ", SuperscriptBox["r", "3"]}], "3"], RowBox[{ RowBox[{ RowBox[{"d", "+", "r"}], "<", "R"}], "||", RowBox[{"(", RowBox[{ RowBox[{"d", "\[NotEqual]", "r"}], "&&", RowBox[{ RowBox[{"d", "+", "r"}], "\[Equal]", "R"}]}], ")"}]}]}, { RowBox[{ FractionBox["1", "3"], " ", "\[Pi]", " ", RowBox[{"(", RowBox[{ SuperscriptBox["d", "3"], "-", RowBox[{"3", " ", "d", " ", SuperscriptBox["r", "2"]}], "-", RowBox[{"2", " ", SuperscriptBox["d", "2"], " ", SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["d", "2"]}], "+", SuperscriptBox["r", "2"]}]]}], "+", RowBox[{"2", " ", SuperscriptBox["r", "2"], " ", RowBox[{"(", RowBox[{"r", "+", SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["d", "2"]}], "+", SuperscriptBox["r", "2"]}]]}], ")"}]}]}], ")"}]}], RowBox[{ RowBox[{"d", "<", "r"}], "&&", RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["d", "2"]}], "+", SuperscriptBox["r", "2"]}]], "\[Equal]", "R"}]}]}, { RowBox[{"-", FractionBox[ RowBox[{"4", " ", "\[Pi]", " ", SuperscriptBox["R", "3"]}], "3"]}], RowBox[{ RowBox[{"d", "<", "r"}], "&&", RowBox[{ RowBox[{"d", "+", "R"}], "<", "r"}]}]}, { FractionBox[ RowBox[{"\[Pi]", " ", SuperscriptBox["R", "3"]}], "6"], RowBox[{ RowBox[{"d", "\[Equal]", "r"}], "&&", RowBox[{ RowBox[{"d", "+", "r"}], "\[Equal]", "R"}]}]}, { FractionBox[ RowBox[{"4", " ", "\[Pi]", " ", SuperscriptBox["R", "3"]}], "3"], RowBox[{ RowBox[{"d", "<", "r"}], "&&", RowBox[{ RowBox[{"d", "+", "R"}], "\[Equal]", "r"}]}]}, { FractionBox[ RowBox[{"\[Pi]", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "d"}], "+", "r", "+", "R"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["d", "2"], "-", RowBox[{"3", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"r", "-", "R"}], ")"}], "2"]}], "+", RowBox[{"2", " ", "d", " ", RowBox[{"(", RowBox[{"r", "+", "R"}], ")"}]}]}], ")"}]}], RowBox[{"12", " ", "d"}]], RowBox[{ RowBox[{"d", "<", "r"}], "&&", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"d", "+", "r"}], ">", "R"}], "&&", RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["d", "2"]}], "+", SuperscriptBox["r", "2"]}]], "<", "R"}]}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["d", "2"]}], "+", SuperscriptBox["r", "2"]}]], ">", "R"}], "&&", RowBox[{ RowBox[{"d", "+", "R"}], ">", "r"}]}], ")"}]}], ")"}]}]}, { FractionBox[ RowBox[{"\[Pi]", " ", SuperscriptBox["R", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"8", " ", SuperscriptBox["r", "2"]}], "+", RowBox[{"3", " ", "d", " ", "R"}], "-", RowBox[{"6", " ", "r", " ", "R"}]}], ")"}]}], RowBox[{"12", " ", SuperscriptBox["r", "2"]}]], RowBox[{ RowBox[{"d", "\[Equal]", "r"}], "&&", RowBox[{ RowBox[{"d", "+", "r"}], ">", "R"}]}]}, { RowBox[{"-", FractionBox[ RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{"r", "-", "R"}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "d"}], "+", "r", "+", "R"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "d", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"r", "-", "R"}], ")"}], "2"]}], "+", RowBox[{"3", " ", SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"r", "+", "R"}], ")"}]}], "-", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"r", "-", "R"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"r", "+", "R"}], ")"}]}]}], ")"}]}], RowBox[{"12", " ", SuperscriptBox["d", "3"]}]]}], RowBox[{ RowBox[{"d", ">", "r"}], "&&", RowBox[{ RowBox[{"d", "+", "r"}], ">", "R"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.84]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}]}]], "Output",ExpressionUUID->\ "562c17a5-4917-4c83-9d8f-efc66b59339f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["\[IndentingNewLine]"], "Input",ExpressionUUID->"b8cfdd04-bfa8-44c6-8708-fb00c198c16b"], Cell[BoxData[ RowBox[{"\[Piecewise]", GridBox[{ { FractionBox[ RowBox[{"4", " ", "\[Pi]", " ", SuperscriptBox["r", "3"]}], "3"], RowBox[{ RowBox[{"d", "+", "r"}], "<", "R"}]}, { FractionBox[ RowBox[{"4", " ", "\[Pi]", " ", SuperscriptBox["R", "3"]}], "3"], RowBox[{ RowBox[{"d", "<", "r"}], "&&", RowBox[{ RowBox[{"d", "+", "R"}], "<", "r"}]}]}, { FractionBox[ RowBox[{"\[Pi]", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"d", "-", "r"}], ")"}], "2"], "-", SuperscriptBox["R", "2"]}], ")"}], "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["d", "2"], "+", RowBox[{"4", " ", "d", " ", "r"}], "+", SuperscriptBox["r", "2"], "-", SuperscriptBox["R", "2"]}], ")"}]}], RowBox[{"24", " ", SuperscriptBox["d", "3"]}]], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"d", "<", "r"}], "&&", RowBox[{"(", RowBox[{ RowBox[{"R", "\[Equal]", RowBox[{"d", "+", "r"}]}], "||", RowBox[{"R", "\[Equal]", SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["d", "2"]}], "+", SuperscriptBox["r", "2"]}]]}], "||", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"d", "+", "R"}], ">", "r"}], "&&", RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["d", "2"]}], "+", SuperscriptBox["r", "2"]}]], "\[GreaterEqual]", "R"}]}], ")"}]}], ")"}]}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"d", "+", "r"}], "\[GreaterEqual]", "R"}], "&&", RowBox[{"(", RowBox[{ RowBox[{"d", "\[GreaterEqual]", "r"}], "||", RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["d", "2"]}], "+", SuperscriptBox["r", "2"]}]], "\[LessEqual]", "R"}]}], ")"}]}], ")"}]}]}, { FractionBox[ RowBox[{"\[Pi]", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"d", "+", "r", "-", "R"}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "d"}], "+", "r", "+", "R"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["d", "2"], "-", SuperscriptBox["r", "2"], "+", RowBox[{"4", " ", "d", " ", "R"}], "+", SuperscriptBox["R", "2"]}], ")"}]}], RowBox[{"24", " ", SuperscriptBox["d", "3"]}]], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"d", "<", "r"}], "&&", RowBox[{"(", RowBox[{ RowBox[{"R", "\[Equal]", SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["d", "2"]}], "+", SuperscriptBox["r", "2"]}]]}], "||", RowBox[{ RowBox[{"d", "+", "R"}], "\[Equal]", "r"}], "||", RowBox[{"(", RowBox[{ RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["d", "2"]}], "+", SuperscriptBox["r", "2"]}]], "\[GreaterEqual]", "R"}], "&&", RowBox[{ RowBox[{"d", "+", "R"}], "\[GreaterEqual]", "r"}]}], ")"}]}], ")"}]}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"d", "+", "r"}], ">", "R"}], "&&", RowBox[{"(", RowBox[{ RowBox[{"d", "\[GreaterEqual]", "r"}], "||", RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["d", "2"]}], "+", SuperscriptBox["r", "2"]}]], "<", "R"}]}], ")"}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}]}]], "Output",ExpressionUUID->"8e6cb632-b78d-456e-\ a4a4-d3bf7d50c39b"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Overlapping and Equal", "Subsection",ExpressionUUID->"85811ba7-bf41-4227-bf32-c998a2df417c"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{"vol", " ", "/.", " ", RowBox[{"r", "\[Rule]", "R"}]}], ",", RowBox[{ RowBox[{"0", "<", "d", "<", RowBox[{"2", "R"}]}], "&&", RowBox[{"R", ">", "0"}]}]}], "]"}]], "Input",ExpressionUUID->"71a8d88a-\ fdf0-4512-975a-9481989c874b"], Cell[BoxData[ RowBox[{"\[Piecewise]", GridBox[{ { RowBox[{ FractionBox["1", "12"], " ", "\[Pi]", " ", SuperscriptBox["R", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", "d"}], "+", RowBox[{"2", " ", "R"}]}], ")"}]}], RowBox[{"d", "\[Equal]", "R"}]}, { RowBox[{ FractionBox["1", "12"], " ", "\[Pi]", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"d", "-", RowBox[{"2", " ", "R"}]}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"d", "+", RowBox[{"4", " ", "R"}]}], ")"}]}], RowBox[{ RowBox[{"d", "<", "R"}], "&&", RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["d", "2"]}], "+", SuperscriptBox["R", "2"]}]], "\[NotEqual]", "R"}]}]}, { RowBox[{ FractionBox["1", "3"], " ", "\[Pi]", " ", RowBox[{"(", RowBox[{ SuperscriptBox["d", "3"], "-", RowBox[{"3", " ", "d", " ", SuperscriptBox["R", "2"]}], "-", RowBox[{"2", " ", SuperscriptBox["d", "2"], " ", SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["d", "2"]}], "+", SuperscriptBox["R", "2"]}]]}], "+", RowBox[{"2", " ", SuperscriptBox["R", "2"], " ", RowBox[{"(", RowBox[{"R", "+", SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["d", "2"]}], "+", SuperscriptBox["R", "2"]}]]}], ")"}]}]}], ")"}]}], RowBox[{ RowBox[{"d", "<", "R"}], "&&", RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["d", "2"]}], "+", SuperscriptBox["R", "2"]}]], "\[Equal]", "R"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.84]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}]}]], "Output",ExpressionUUID->\ "7af198e3-f07b-4f59-8cad-3a32ae67d7d2"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "[", RowBox[{ RowBox[{"Boole", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"x", "^", "2"}], "+", RowBox[{"y", "^", "2"}], "+", RowBox[{"z", "^", "2"}]}], "<", RowBox[{"R", "^", "2"}]}], "&&", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"x", "-", "d"}], ")"}], "^", "2"}], "+", RowBox[{"y", "^", "2"}], "+", RowBox[{"z", "^", "2"}]}], "<", RowBox[{"R", "^", "2"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{ RowBox[{"R", ">", "0"}], "&&", RowBox[{"0", "<", "d", "<", RowBox[{"2", "R"}]}]}]}]}], "]"}], "//", "Timing"}]], "Input",Expressio\ nUUID->"ad621cea-f00d-442f-9ef1-b49c6fedd930"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"4.3700000000000045`", " ", "Second"}], ",", RowBox[{ FractionBox["1", "12"], " ", "\[Pi]", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"d", "-", RowBox[{"2", " ", "R"}]}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"d", "+", RowBox[{"4", " ", "R"}]}], ")"}]}]}], "}"}]], "Output",ExpressionUUID->\ "693424bc-ce0d-4312-ac85-702c52770328"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "[", RowBox[{ RowBox[{"Boole", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"x", "^", "2"}], "+", RowBox[{"y", "^", "2"}], "+", RowBox[{"z", "^", "2"}]}], "<", RowBox[{"R", "^", "2"}]}], "&&", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"x", "-", "R"}], ")"}], "^", "2"}], "+", RowBox[{"y", "^", "2"}], "+", RowBox[{"z", "^", "2"}]}], "<", RowBox[{"R", "^", "2"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{"R", ">", "0"}]}]}], "]"}], "//", "Timing"}]], "Input",Expression\ UUID->"23380e51-e6d7-4d99-a54a-c7fd1327551a"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"30.389999999999873`", " ", "Second"}], ",", "0"}], "}"}]], "Output",ExpressionUUID->"6f55f078-0274-43a7-bead-bf0c9699959a"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Tangent", "Subsection",ExpressionUUID->"ee465df2-b388-4b62-b3c5-9d00229ad6c0"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{"vol", ",", RowBox[{ RowBox[{"d", "\[Equal]", RowBox[{"-", RowBox[{"(", RowBox[{"r", "+", "R"}], ")"}]}]}], "&&", RowBox[{"r", ">", "0"}], "&&", RowBox[{"R", ">", "0"}], "&&", RowBox[{"d", "<", "0"}]}]}], "]"}]], "Input",ExpressionUUID->"64b1f5a7-\ b7a7-4907-9f68-0a585fa90086"], Cell[BoxData["0"], "Output",ExpressionUUID->"99d3ffee-3a92-409c-b9dd-f279f2a09735"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{"vol", ",", RowBox[{ RowBox[{"d", "\[Equal]", RowBox[{"r", "+", "R"}]}], "&&", RowBox[{"r", ">", "0"}], "&&", RowBox[{"R", ">", "0"}], "&&", RowBox[{"d", "\[Equal]", "0"}]}]}], "]"}]], "Input",ExpressionUUID->\ "8b980822-7df3-4eab-9f6f-c102c7768d18"], Cell[BoxData[ RowBox[{ RowBox[{"FullSimplify", "::", "\<\"infd\"\>"}], ":", " ", "\<\"Expression \\!\\(\\(\\(\\(d\\^4\\\\ \[Pi]\\)\\) - \\(\\(6\\\\ \ d\\^2\\\\ \[Pi]\\\\ r\\^2\\)\\) + \\(\\(8\\\\ d\\\\ \[Pi]\\\\ r\\^3\\)\\) - \ \\(\\(\[LeftSkeleton] 1 \[RightSkeleton]\\)\\) - \\(\\(\[LeftSkeleton] 1 \ \[RightSkeleton]\\)\\) + \\(\\(6\\\\ \[Pi]\\\\ r\\^2\\\\ R\\^2\\)\\) + \ \\(\\(8\\\\ d\\\\ \[Pi]\\\\ R\\^3\\)\\) - \\(\\(3\\\\ \[Pi]\\\\ \ R\\^4\\)\\)\\)\\/\\(12\\\\ d\\)\\) simplified to \\!\\(Indeterminate\\). \ \\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ \\\", ButtonFrame->None, ButtonData:>\\\"FullSimplify::infd\\\"]\\)\"\>"}]], \ "Message",ExpressionUUID->"2177fbf6-8eb3-48f2-ad32-ab8662e83eb9"], Cell[BoxData[ RowBox[{ RowBox[{"FullSimplify", "::", "\<\"infd\"\>"}], ":", " ", "\<\"Expression \\!\\(\\(\\(\\(\\(\\(-d\\^4\\)\\)\\\\ \[Pi]\\)\\) + \ \\(\\(6\\\\ d\\^2\\\\ \[Pi]\\\\ r\\^2\\)\\) + \\(\\(8\\\\ d\\\\ \[Pi]\\\\ \ r\\^3\\)\\) + \\(\\(\[LeftSkeleton] 1 \[RightSkeleton]\\)\\) + \\(\\(\ \[LeftSkeleton] 1 \[RightSkeleton]\\)\\) - \\(\\(6\\\\ \[Pi]\\\\ r\\^2\\\\ \ R\\^2\\)\\) + \\(\\(8\\\\ d\\\\ \[Pi]\\\\ R\\^3\\)\\) + \\(\\(3\\\\ \[Pi]\\\\ \ R\\^4\\)\\)\\)\\/\\(12\\\\ d\\)\\) simplified to \\!\\(Indeterminate\\). \ \\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ \\\", ButtonFrame->None, ButtonData:>\\\"FullSimplify::infd\\\"]\\)\"\>"}]], \ "Message",ExpressionUUID->"3d6a0497-d6df-4778-9e0c-c9f7c367ca51"], Cell[BoxData[ RowBox[{ RowBox[{"FullSimplify", "::", "\<\"infd\"\>"}], ":", " ", "\<\"Expression \\!\\(\\(\\(\\(\\(\\(-8\\)\\)\\\\ \[Pi]\\\\ r\\^3\\\\ \ R\\^3\\)\\) + \\(\\(3\\\\ d\\\\ \[Pi]\\\\ r\\\\ R\\^4\\)\\) + \\(\\(6\\\\ \ \[Pi]\\\\ r\\^2\\\\ R\\^4\\)\\)\\)\\/\\(12\\\\ d\\^3\\)\\) simplified to \ \\!\\(ComplexInfinity\\). \\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", \ ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"FullSimplify::infd\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ "8068e2f0-fd7f-4101-9436-b4ad4018a5c8"], Cell[BoxData[ RowBox[{ RowBox[{"General", "::", "\<\"stop\"\>"}], ":", " ", "\<\"Further output of \\!\\(FullSimplify :: \\\"infd\\\"\\) will be \ suppressed during this calculation. \ \\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ \\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ "Message",ExpressionUUID->"860a33f6-5ca7-434e-9fa7-70802d11c7e0"], Cell[BoxData["$Aborted"], "Output",ExpressionUUID->"adda80f0-6bc5-4d4d-8a6a-ba13df890e83"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{"vol", ",", RowBox[{ RowBox[{"d", "\[Equal]", RowBox[{"r", "+", "R"}]}], "&&", RowBox[{"r", ">", "0"}], "&&", RowBox[{"R", ">", "0"}], "&&", RowBox[{"d", ">", "0"}]}]}], "]"}]], "Input",ExpressionUUID->"344e40bf-\ d680-4845-a0f4-7f2933e63fc3"], Cell[BoxData["0"], "Output",ExpressionUUID->"10918489-011a-4dd6-97e9-81a12e22a7ea"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Overlapping Volume Equal to 1/2 Volume", "Section",ExpressionUUID->"4d8800c1-8824-4146-98ff-94b393e3267b"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ FractionBox["1", "12"], " ", "\[Pi]", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"d", "-", RowBox[{"2", " ", "R"}]}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"d", "+", RowBox[{"4", " ", "R"}]}], ")"}]}], "\[Equal]", RowBox[{ FractionBox["1", "2"], FractionBox["4", "3"], "\[Pi]", " ", SuperscriptBox["R", "3"]}]}], "/.", RowBox[{"R", "\[Rule]", "1"}]}], "]"}], "//", "FullSimplify"}]], "Input",E\ xpressionUUID->"a4945e66-0b3c-4cf8-833f-37167634c898"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"d", "\[Rule]", RowBox[{"4", " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "\[Pi]"}], "9"], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"d", "\[Rule]", RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "\[Pi]"}], "9"], "]"}], "+", RowBox[{ SqrtBox["3"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "\[Pi]"}], "9"], "]"}]}]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"d", "\[Rule]", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "\[Pi]"}], "9"], "]"}]}], "+", RowBox[{"2", " ", SqrtBox["3"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "\[Pi]"}], "9"], "]"}]}]}]}], "}"}]}], "}"}]], "Output",ExpressionUUID->"2b9c5206-bc7b-4dc6-b1e1-f28e0e02b851"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"N", "[", "%", "]"}]], "Input",ExpressionUUID->"d73ec67f-f171-46d9-8405-3e3828bfd4b0"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"d", "\[Rule]", "3.064177772475912`"}], "}"}], ",", RowBox[{"{", RowBox[{"d", "\[Rule]", RowBox[{"-", "3.758770483143633`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"d", "\[Rule]", "0.694592710667721`"}], "}"}]}], "}"}]], "Output",\ ExpressionUUID->"aa08c0a7-49e4-4978-b449-64bdc0d58c80"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Reduce", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ FractionBox["1", "12"], " ", "\[Pi]", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"d", "-", RowBox[{"2", " ", "R"}]}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"d", "+", RowBox[{"4", " ", "R"}]}], ")"}]}], "\[Equal]", RowBox[{ FractionBox["1", "2"], FractionBox["4", "3"], "\[Pi]", " ", SuperscriptBox["R", "3"]}]}], "/.", RowBox[{"R", "\[Rule]", "1"}]}], ")"}], "&&", RowBox[{"0", "<", "d", "<", "1"}]}], ",", "d"}], "]"}]], "Input",Expressio\ nUUID->"baa6b1ba-1985-4abc-91bc-854eaabe2f33"], Cell[BoxData[ RowBox[{"d", "\[Equal]", RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"8", "-", RowBox[{"12", " ", "#1"}], "+", SuperscriptBox["#1", "3"]}], "&"}], ",", "2"}], "]"}]}]], "Output",Expre\ ssionUUID->"6927220f-196f-413b-aa89-dd5776cda211"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"8", "-", RowBox[{"12", " ", "#1"}], "+", SuperscriptBox["#1", "3"]}], "&"}], ",", "2"}], "]"}], "]"}]], "Input",E\ xpressionUUID->"b107ad57-96bd-452a-89a6-25f46704d5ba"], Cell[BoxData[ RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"8", "-", RowBox[{"12", " ", "#1"}], "+", SuperscriptBox["#1", "3"]}], "&"}], ",", "2"}], "]"}]], "Output",Expressi\ onUUID->"0dede761-8b1f-431e-9757-fea5d7f5991e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"ToRadicals", "[", "%", "]"}], "//", "FullSimplify"}]], "Input",Expr\ essionUUID->"55e71d33-07bd-427f-9edc-dfecdeef49c8"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "\[Pi]"}], "9"], "]"}]}], "+", RowBox[{"2", " ", SqrtBox["3"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "\[Pi]"}], "9"], "]"}]}]}]], "Output",ExpressionUUID->\ "ad7b6727-1476-4a73-ba15-cff3c458eb5b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"N", "[", RowBox[{ RowBox[{"Root", "[", RowBox[{ RowBox[{ RowBox[{"8", "-", RowBox[{"12", " ", "#1"}], "+", SuperscriptBox["#1", "3"]}], "&"}], ",", "2"}], "]"}], ",", "20"}], "]"}]], "Input",ExpressionUUID->"41d87367-b931-4bf2-9edd-b17102724e11"], Cell[BoxData["0.6945927106677213954068665070772595056902289357067835110337`20.\ "], "Output",ExpressionUUID->"9ad6be5f-814b-4a05-8bc5-4a6bce41a210"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{ FractionBox["1", "12"], " ", "\[Pi]", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"d", "-", RowBox[{"2", " ", "R"}]}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"d", "+", RowBox[{"4", " ", "R"}]}], ")"}]}], "/.", RowBox[{"d", "\[Rule]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"2", " ", "\[Pi]"}], "9"], "]"}]}], "+", RowBox[{"2", " ", SqrtBox["3"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"2", " ", "\[Pi]"}], "9"], "]"}]}]}], ")"}], "R"}]}]}], "]"}]], "Input",ExpressionUUID->"cb2ffef7-4357-4773-a86d-13fc4684385b"], Cell[BoxData[ FractionBox[ RowBox[{"2", " ", "\[Pi]", " ", SuperscriptBox["R", "3"]}], "3"]], "Output",ExpressionUUID->"05db8261-114a-\ 44a5-addc-ae877d9fdf2d"] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{1286, 910}, WindowMargins->{{Automatic, 30}, {Automatic, 0}}, 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, 98, 0, 92, "Title", "ExpressionUUID" -> \ "cd368923-5f9c-48de-801f-9f69e04f3dfb"], Cell[CellGroupData[{ Cell[703, 26, 83, 0, 44, "Subsection", "ExpressionUUID" -> \ "32ce215e-6d33-4fd4-a904-16248fe907b8"], Cell[789, 28, 115, 3, 49, "Text", "ExpressionUUID" -> \ "0ac1361f-6984-4829-8010-de26ff5225da"], Cell[907, 33, 366, 9, 30, "Text", "ExpressionUUID" -> \ "b94545c3-4300-4f69-8377-e162fd2f7df7"], Cell[1276, 44, 380, 10, 30, "Text", "ExpressionUUID" -> \ "e9f9550f-2f7a-4382-ae5d-a73a3b3bb4f6"], Cell[1659, 56, 154, 2, 30, "Text", "ExpressionUUID" -> \ "0c8c279b-2f7c-4558-9d97-a153dc5005ec"] }, Open ]], Cell[CellGroupData[{ Cell[1850, 63, 81, 0, 64, "Section", "ExpressionUUID" -> \ "628e1605-7b48-427c-85d5-2f04aac8dcdc"], Cell[CellGroupData[{ Cell[1956, 67, 372, 10, 32, "Input", "ExpressionUUID" -> \ "e6c3e045-e9d6-46bd-9c18-b6a8d0730d16"], Cell[2331, 79, 165, 3, 367, "Output", "ExpressionUUID" -> \ "97e0b008-4ad7-4582-8ab6-b66d1dc0ce82"] }, Open ]], Cell[CellGroupData[{ Cell[2533, 87, 91, 0, 44, "Subsection", "ExpressionUUID" -> \ "9752ff3c-b727-49df-95b2-b006f0786d57"], Cell[CellGroupData[{ Cell[2649, 91, 124, 1, 32, "Input", "ExpressionUUID" -> \ "be75cc08-f6ca-448c-a9a2-b0268ec6fb38"], Cell[2776, 94, 161, 2, 24, "Print", "ExpressionUUID" -> \ "3468e4dd-bd2c-41e9-9c1c-7ff9fdbde773"] }, Open ]], Cell[CellGroupData[{ Cell[2974, 101, 662, 18, 32, "Input", "ExpressionUUID" -> \ "e674b708-6d50-4686-b273-68d74d5447a0"], Cell[3639, 121, 123, 0, 32, "Output", "ExpressionUUID" -> \ "cac88a03-5f61-4bab-ae71-852d5d4324b2"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[3823, 128, 96, 0, 64, "Section", "ExpressionUUID" -> \ "a5affded-e93e-4e04-a9b5-f124c251906d"], Cell[CellGroupData[{ Cell[3944, 132, 90, 0, 35, "Subsubsection", "ExpressionUUID" -> \ "43c99f91-cbf9-45bb-b195-f91965b6d774"], Cell[CellGroupData[{ Cell[4059, 136, 1280, 36, 70, "Input", "ExpressionUUID" -> \ "4d770608-35dd-4864-b5f1-e8e815eed171"], Cell[5342, 174, 1287, 37, 70, "Output", "ExpressionUUID" -> \ "aaba1fd0-7f5b-4898-bfc0-32354da3b43c"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[6678, 217, 86, 0, 70, "Subsubsection", "ExpressionUUID" -> \ "9f0fb5da-02f5-4b08-95ec-e7d0b3f93989"], Cell[CellGroupData[{ Cell[6789, 221, 1280, 36, 70, "Input", "ExpressionUUID" -> \ "dc35d830-43e8-4438-84fa-f03e9d8627d8"], Cell[8072, 259, 20279, 559, 70, "Output", "ExpressionUUID" -> \ "af8a18f5-dcf3-4b07-9a98-f1b2923e9ddf"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[28400, 824, 82, 0, 70, "Subsubsection", "ExpressionUUID" -> \ "38943000-2c11-4e02-a21c-3bb9b946c2fa"], Cell[CellGroupData[{ Cell[28507, 828, 1280, 36, 70, "Input", "ExpressionUUID" -> \ "38dca301-b4d1-4c41-8c73-ba61d1f6411c"], Cell[29790, 866, 33838, 940, 70, "Output", "ExpressionUUID" -> \ "8aaf92b2-a4d6-44da-aa08-b0cbc751d2c8"] }, Open ]], Cell[63643, 1809, 33798, 939, 70, "Input", "ExpressionUUID" -> \ "1688b0d4-f791-459a-969c-8ec1767a31da"], Cell[CellGroupData[{ Cell[97466, 2752, 306, 8, 70, "Input", "ExpressionUUID" -> \ "3aad2182-735d-4cca-b190-fa8533be2667"], Cell[97775, 2762, 90, 0, 70, "Output", "ExpressionUUID" -> \ "a9208581-fa89-4d73-bf1d-1b61406e3a93"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[97914, 2768, 85, 0, 70, "Subsection", "ExpressionUUID" -> \ "61e3d89c-5886-472e-a7fd-da6e90766f0e"], Cell[CellGroupData[{ Cell[98024, 2772, 449, 14, 70, "Input", "ExpressionUUID" -> \ "d6a4415e-c6ee-42a3-ad49-a9f7807d7471"], Cell[98476, 2788, 83, 0, 70, "Output", "ExpressionUUID" -> \ "501e6fea-d58d-45db-8758-f37fb1890f10"] }, Open ]], Cell[CellGroupData[{ Cell[98596, 2793, 366, 10, 70, "Input", "ExpressionUUID" -> \ "bff86962-665e-41b3-ad36-20aa5af9d27a"], Cell[98965, 2805, 83, 0, 70, "Output", "ExpressionUUID" -> \ "aa136b09-3183-4008-9131-8ad6c6bd5df8"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[99097, 2811, 316, 8, 70, "Subsection", "ExpressionUUID" -> \ "afcb1634-3265-4197-92b9-95241b08c8c2"], Cell[CellGroupData[{ Cell[99438, 2823, 535, 17, 70, "Input", "ExpressionUUID" -> \ "0b415cae-c302-4435-a3bb-9e5aa077aea7"], Cell[99976, 2842, 862, 26, 70, "Output", "ExpressionUUID" -> \ "06778e9b-9e49-42d2-83d9-11493a363445"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[100887, 2874, 88, 0, 70, "Subsection", "ExpressionUUID" -> \ "81f4bd38-8685-48f8-93ce-60dc1bd465f2"], Cell[CellGroupData[{ Cell[101000, 2878, 294, 8, 70, "Input", "ExpressionUUID" -> \ "a3e9ce3a-a396-4e3d-9bfb-72b1f0442ab5"], Cell[101297, 2888, 5353, 173, 70, "Output", "ExpressionUUID" -> \ "562c17a5-4917-4c83-9d8f-efc66b59339f"] }, Open ]], Cell[CellGroupData[{ Cell[106687, 3066, 100, 0, 70, "Input", "ExpressionUUID" -> \ "b8cfdd04-bfa8-44c6-8708-fb00c198c16b"], Cell[106790, 3068, 4230, 133, 70, "Output", "ExpressionUUID" -> \ "8e6cb632-b78d-456e-a4a4-d3bf7d50c39b"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[111069, 3207, 98, 0, 70, "Subsection", "ExpressionUUID" -> \ "85811ba7-bf41-4227-bf32-c998a2df417c"], Cell[CellGroupData[{ Cell[111192, 3211, 319, 9, 70, "Input", "ExpressionUUID" -> \ "71a8d88a-fdf0-4512-975a-9481989c874b"], Cell[111514, 3222, 2270, 72, 70, "Output", "ExpressionUUID" -> \ "7af198e3-f07b-4f59-8cad-3a32ae67d7d2"] }, Open ]], Cell[CellGroupData[{ Cell[113821, 3299, 1148, 34, 70, "Input", "ExpressionUUID" -> \ "ad621cea-f00d-442f-9ef1-b49c6fedd930"], Cell[114972, 3335, 434, 13, 70, "Output", "ExpressionUUID" -> \ "693424bc-ce0d-4312-ac85-702c52770328"] }, Open ]], Cell[CellGroupData[{ Cell[115443, 3353, 1060, 31, 70, "Input", "ExpressionUUID" -> \ "23380e51-e6d7-4d99-a54a-c7fd1327551a"], Cell[116506, 3386, 178, 4, 70, "Output", "ExpressionUUID" -> \ "6f55f078-0274-43a7-bead-bf0c9699959a"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[116733, 3396, 84, 0, 70, "Subsection", "ExpressionUUID" -> \ "ee465df2-b388-4b62-b3c5-9d00229ad6c0"], Cell[CellGroupData[{ Cell[116842, 3400, 377, 11, 70, "Input", "ExpressionUUID" -> \ "64b1f5a7-b7a7-4907-9f68-0a585fa90086"], Cell[117222, 3413, 83, 0, 70, "Output", "ExpressionUUID" -> \ "99d3ffee-3a92-409c-b9dd-f279f2a09735"] }, Open ]], Cell[CellGroupData[{ Cell[117342, 3418, 334, 9, 70, "Input", "ExpressionUUID" -> \ "8b980822-7df3-4eab-9f6f-c102c7768d18"], Cell[117679, 3429, 746, 11, 70, "Message", "ExpressionUUID" -> \ "2177fbf6-8eb3-48f2-ad32-ab8662e83eb9"], Cell[118428, 3442, 759, 11, 70, "Message", "ExpressionUUID" -> \ "3d6a0497-d6df-4778-9e0c-c9f7c367ca51"], Cell[119190, 3455, 561, 9, 70, "Message", "ExpressionUUID" -> \ "8068e2f0-fd7f-4101-9436-b4ad4018a5c8"], Cell[119754, 3466, 409, 7, 70, "Message", "ExpressionUUID" -> \ "860a33f6-5ca7-434e-9fa7-70802d11c7e0"], Cell[120166, 3475, 90, 0, 70, "Output", "ExpressionUUID" -> \ "adda80f0-6bc5-4d4d-8a6a-ba13df890e83"] }, Open ]], Cell[CellGroupData[{ Cell[120293, 3480, 327, 9, 70, "Input", "ExpressionUUID" -> \ "344e40bf-d680-4845-a0f4-7f2933e63fc3"], Cell[120623, 3491, 83, 0, 70, "Output", "ExpressionUUID" -> \ "10918489-011a-4dd6-97e9-81a12e22a7ea"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[120767, 3498, 112, 0, 70, "Section", "ExpressionUUID" -> \ "4d8800c1-8824-4146-98ff-94b393e3267b"], Cell[CellGroupData[{ Cell[120904, 3502, 631, 19, 70, "Input", "ExpressionUUID" -> \ "a4945e66-0b3c-4cf8-833f-37167634c898"], Cell[121538, 3523, 1103, 37, 70, "Output", "ExpressionUUID" -> \ "2b9c5206-bc7b-4dc6-b1e1-f28e0e02b851"] }, Open ]], Cell[CellGroupData[{ Cell[122678, 3565, 109, 1, 70, "Input", "ExpressionUUID" -> \ "d73ec67f-f171-46d9-8405-3e3828bfd4b0"], Cell[122790, 3568, 377, 10, 70, "Output", "ExpressionUUID" -> \ "aa08c0a7-49e4-4978-b449-64bdc0d58c80"] }, Open ]], Cell[CellGroupData[{ Cell[123204, 3583, 737, 22, 70, "Input", "ExpressionUUID" -> \ "baa6b1ba-1985-4abc-91bc-854eaabe2f33"], Cell[123944, 3607, 283, 8, 70, "Output", "ExpressionUUID" -> \ "6927220f-196f-413b-aa89-dd5776cda211"] }, Open ]], Cell[CellGroupData[{ Cell[124264, 3620, 291, 8, 70, "Input", "ExpressionUUID" -> \ "b107ad57-96bd-452a-89a6-25f46704d5ba"], Cell[124558, 3630, 248, 7, 70, "Output", "ExpressionUUID" -> \ "0dede761-8b1f-431e-9757-fea5d7f5991e"] }, Open ]], Cell[CellGroupData[{ Cell[124843, 3642, 155, 3, 70, "Input", "ExpressionUUID" -> \ "55e71d33-07bd-427f-9edc-dfecdeef49c8"], Cell[125001, 3647, 363, 12, 70, "Output", "ExpressionUUID" -> \ "ad7b6727-1476-4a73-ba15-cff3c458eb5b"] }, Open ]], Cell[CellGroupData[{ Cell[125401, 3664, 311, 9, 70, "Input", "ExpressionUUID" -> \ "41d87367-b931-4bf2-9edd-b17102724e11"], Cell[125715, 3675, 148, 1, 70, "Output", "ExpressionUUID" -> \ "9ad6be5f-814b-4a05-8bc5-4a6bce41a210"] }, Open ]], Cell[CellGroupData[{ Cell[125900, 3681, 813, 26, 70, "Input", "ExpressionUUID" -> \ "cb2ffef7-4357-4773-a86d-13fc4684385b"], Cell[126716, 3709, 167, 4, 70, "Output", "ExpressionUUID" -> \ "05db8261-114a-44a5-addc-ae877d9fdf2d"] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)