(* 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[ 227894, 6800] NotebookOptionsPosition[ 207198, 6298] NotebookOutlinePosition[ 207551, 6314] CellTagsIndexPosition[ 207508, 6311] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Line-Line Intersection", "Title",ExpressionUUID->"5e179b83-3527-4171-89ec-847ddc5c96c1"], Cell[CellGroupData[{ Cell["Author", "Subsection",ExpressionUUID->"4de6dd4a-573b-4da7-aeb6-b387b9cc089f"], Cell["\<\ Eric W. Weisstein December 8, 2004\ \>", "Text",ExpressionUUID->"b4b98028-1a2a-411a-bc14-cd92c2635f40"], Cell[TextData[{ "This notebook downloaded from ", ButtonBox["http://mathworld.wolfram.com/notebooks/PlaneGeometry/Line-\ LineIntersection.nb", BaseStyle->"Hyperlink", ButtonData:>{ URL["http://mathworld.wolfram.com/notebooks/PlaneGeometry/Line-\ LineIntersection.nb"], None}], "." }], "Text",ExpressionUUID->"ebd32cf0-c9c7-41f1-939c-8ca73e8691df"], Cell[TextData[{ "For more information, see Eric's ", StyleBox["MathWorld", FontSlant->"Italic"], " entry ", ButtonBox["http://mathworld.wolfram.com/Line-LineIntersection.html", BaseStyle->"Hyperlink", ButtonData:>{ URL["http://mathworld.wolfram.com/Line-LineIntersection.html"], None}], "." }], "Text",ExpressionUUID->"3c00c9ba-3c7a-4f04-b60b-909e903780f4"], Cell["\<\ \[Copyright]2005 Wolfram Research, Inc. except for portions noted otherwise\ \>", "Text",ExpressionUUID->"0d6426e6-c044-413f-b1b2-364fc64390b9"] }, Open ]], Cell[CellGroupData[{ Cell["Initialization", "Subsection",ExpressionUUID->"9e9612ef-a5cb-4b11-bd84-b8d6f7d69114"], Cell[BoxData["\n"], "Input", InitializationCell-> True,ExpressionUUID->"1782cbf1-7d5d-4e6f-966d-0b4eb907435c"] }, Open ]], Cell[CellGroupData[{ Cell["2-D", "Section",ExpressionUUID->"6e05d999-45a7-4701-b337-e2c1d1c7c590"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"soln", "=", RowBox[{ RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Det", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"x1", ",", "y1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"x2", ",", "y2", ",", "1"}], "}"}]}], "}"}], "]"}], "\[Equal]", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Det", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"x3", ",", "y3", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"x4", ",", "y4", ",", "1"}], "}"}]}], "}"}], "]"}], "\[Equal]", "0"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "//", "FullSimplify"}]}]], "Input",Express\ ionUUID->"389f647d-184e-4225-99b5-f92ded7d4037"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", FractionBox[ RowBox[{ RowBox[{"x1", " ", RowBox[{"(", RowBox[{ RowBox[{"x4", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "y2"}], "+", "y3"}], ")"}]}], "+", RowBox[{"x3", " ", RowBox[{"(", RowBox[{"y2", "-", "y4"}], ")"}]}]}], ")"}]}], "+", RowBox[{"x2", " ", RowBox[{"(", RowBox[{ RowBox[{"x4", " ", RowBox[{"(", RowBox[{"y1", "-", "y3"}], ")"}]}], "+", RowBox[{"x3", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "y1"}], "+", "y4"}], ")"}]}]}], ")"}]}]}], RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"x3", "-", "x4"}], ")"}]}], " ", RowBox[{"(", RowBox[{"y1", "-", "y2"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"x1", "-", "x2"}], ")"}], " ", RowBox[{"(", RowBox[{"y3", "-", "y4"}], ")"}]}]}]]}], ",", RowBox[{"y", "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "x2"}], " ", "y1"}], "+", RowBox[{"x1", " ", "y2"}]}], ")"}], " ", RowBox[{"(", RowBox[{"y3", "-", "y4"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"y1", "-", "y2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"x4", " ", "y3"}], "-", RowBox[{"x3", " ", "y4"}]}], ")"}]}]}], RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"x3", "-", "x4"}], ")"}], " ", RowBox[{"(", RowBox[{"y1", "-", "y2"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "x1"}], "+", "x2"}], ")"}], " ", RowBox[{"(", RowBox[{"y3", "-", "y4"}], ")"}]}]}]]}]}]}], "}"}]], "Output",Express\ ionUUID->"98ad391e-0e03-4d93-bf1e-03787864d758"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Det", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Det", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x1", ",", "y1"}], "}"}], ",", RowBox[{"{", RowBox[{"x2", ",", "y2"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"x1", "-", "x2"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Det", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x3", ",", "y3"}], "}"}], ",", RowBox[{"{", RowBox[{"x4", ",", "y4"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"x3", "-", "x4"}]}], "}"}]}], "}"}], "]"}], "/", RowBox[{"Det", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x1", "-", "x2"}], ",", RowBox[{"y1", "-", "y2"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x3", "-", "x4"}], ",", RowBox[{"y3", "-", "y4"}]}], "}"}]}], "}"}], "]"}]}], "-", "x"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Det", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Det", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x1", ",", "y1"}], "}"}], ",", RowBox[{"{", RowBox[{"x2", ",", "y2"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"y1", "-", "y2"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Det", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x3", ",", "y3"}], "}"}], ",", RowBox[{"{", RowBox[{"x4", ",", "y4"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"y3", "-", "y4"}]}], "}"}]}], "}"}], "]"}], "/", RowBox[{"Det", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x1", "-", "x2"}], ",", RowBox[{"y1", "-", "y2"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x3", "-", "x4"}], ",", RowBox[{"y3", "-", "y4"}]}], "}"}]}], "}"}], "]"}]}], "-", "y"}]}], "\[IndentingNewLine]", "}"}], "/.", "soln"}], "]"}]], "Input",E\ xpressionUUID->"0567ea59-5d85-4bbf-a5ce-a994da6e3324"], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]], "Output",ExpressionUUID->"4a4876b1-579f-4f9f-9d94-c3e85a736013"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"xvec", "=", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"v", "[", "i_", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"x", "[", "i", "]"}], ",", RowBox[{"y", "[", "i", "]"}]}], "}"}]}], ";"}], "\n", RowBox[{"eqns", "=", RowBox[{"And", "@@", RowBox[{"LogicalExpand", "/@", RowBox[{"{", RowBox[{ RowBox[{"xvec", "\[Equal]", RowBox[{ RowBox[{"v", "[", "1", "]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"v", "[", "2", "]"}], "-", RowBox[{"v", "[", "1", "]"}]}], ")"}], "s"}]}]}], ",", RowBox[{"xvec", "\[Equal]", RowBox[{ RowBox[{"v", "[", "3", "]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"v", "[", "4", "]"}], "-", RowBox[{"v", "[", "3", "]"}]}], ")"}], "t"}]}]}]}], "}"}]}]}]}]}], "Input",ExpressionUUID->"57dc9ae3-39aa-4fbd-8564-\ d96ea83e38a0"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"x", "[", "1", "]"}], "+", RowBox[{"s", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"x", "[", "1", "]"}]}], "+", RowBox[{"x", "[", "2", "]"}]}], ")"}]}]}], "==", "x"}], "&&", RowBox[{ RowBox[{ RowBox[{"y", "[", "1", "]"}], "+", RowBox[{"s", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"y", "[", "1", "]"}]}], "+", RowBox[{"y", "[", "2", "]"}]}], ")"}]}]}], "==", "y"}], "&&", RowBox[{ RowBox[{ RowBox[{"x", "[", "3", "]"}], "+", RowBox[{"t", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"x", "[", "3", "]"}]}], "+", RowBox[{"x", "[", "4", "]"}]}], ")"}]}]}], "==", "x"}], "&&", RowBox[{ RowBox[{ RowBox[{"y", "[", "3", "]"}], "+", RowBox[{"t", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"y", "[", "3", "]"}]}], "+", RowBox[{"y", "[", "4", "]"}]}], ")"}]}]}], "==", "y"}]}]], "Output",Exp\ ressionUUID->"e1c040db-868a-41fc-adb5-6f16e235dcc4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"FullSimplify", "[", RowBox[{"Expand", "[", RowBox[{ RowBox[{"Solve", "[", RowBox[{"eqns", ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", RowBox[{"{", RowBox[{"s", ",", "t"}], "}"}]}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"x", "[", "n_", "]"}], "\[RuleDelayed]", RowBox[{"Subscript", "[", RowBox[{"x", ",", "n"}], "]"}]}], ",", RowBox[{ RowBox[{"y", "[", "n_", "]"}], "\[RuleDelayed]", RowBox[{"Subscript", "[", RowBox[{"y", ",", "n"}], "]"}]}]}], "}"}]}], "//", "TraditionalForm"}]], "Input",ExpressionUUID->"5b65e618-51b7-485c-9dcc-\ 7d53dcca8c03"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", FractionBox[ RowBox[{ RowBox[{ SubscriptBox["x", "1"], " ", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["x", "4"], " ", RowBox[{"(", RowBox[{ SubscriptBox["y", "3"], "-", SubscriptBox["y", "2"]}], ")"}]}], "+", RowBox[{ SubscriptBox["x", "3"], " ", RowBox[{"(", RowBox[{ SubscriptBox["y", "2"], "-", SubscriptBox["y", "4"]}], ")"}]}]}], ")"}]}], "+", RowBox[{ SubscriptBox["x", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["x", "4"], " ", RowBox[{"(", RowBox[{ SubscriptBox["y", "1"], "-", SubscriptBox["y", "3"]}], ")"}]}], "+", RowBox[{ SubscriptBox["x", "3"], " ", RowBox[{"(", RowBox[{ SubscriptBox["y", "4"], "-", SubscriptBox["y", "1"]}], ")"}]}]}], ")"}]}]}], RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["x", "1"], "-", SubscriptBox["x", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{ SubscriptBox["y", "3"], "-", SubscriptBox["y", "4"]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["x", "3"], "-", SubscriptBox["x", "4"]}], ")"}], " ", RowBox[{"(", RowBox[{ SubscriptBox["y", "1"], "-", SubscriptBox["y", "2"]}], ")"}]}]}]]}], ",", RowBox[{"y", "\[Rule]", FractionBox[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["x", "2"], "-", SubscriptBox["x", "4"]}], ")"}], " ", SubscriptBox["y", "1"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["x", "4"], "-", SubscriptBox["x", "1"]}], ")"}], " ", SubscriptBox["y", "2"]}]}], ")"}], " ", SubscriptBox["y", "3"]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["x", "2"], "-", SubscriptBox["x", "3"]}], ")"}], " ", SubscriptBox["y", "1"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["x", "3"], "-", SubscriptBox["x", "1"]}], ")"}], " ", SubscriptBox["y", "2"]}]}], ")"}], " ", SubscriptBox["y", "4"]}]}], RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["x", "3"], "-", SubscriptBox["x", "4"]}], ")"}], " ", RowBox[{"(", RowBox[{ SubscriptBox["y", "1"], "-", SubscriptBox["y", "2"]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["x", "1"], "-", SubscriptBox["x", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{ SubscriptBox["y", "3"], "-", SubscriptBox["y", "4"]}], ")"}]}]}]]}]}], "}"}], TraditionalForm]], "Output",ExpressionUUID->"eecdad6b-3778-4c65-b799-\ 5db8ed2b357e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"line1", "=", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", ".3"}], "}"}]}], "}"}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"line2", "=", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", ".3"}], "}"}], ",", RowBox[{"{", RowBox[{".9", ",", ".1"}], "}"}]}], "}"}], "]"}]}], ";"}], "\n", RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ "line1", ",", "\[IndentingNewLine]", "line2", ",", "\[IndentingNewLine]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"Red", ",", "\[IndentingNewLine]", RowBox[{"PointSize", "[", ".03", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Intersections", "[", RowBox[{"line1", ",", "line2"}], "]"}]}], "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "}"}], "]"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], "Input",ExpressionUUID-\ >"bb47fcde-96cb-4fa4-b0be-19b15a8a5da9"], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .3 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.0238095 0.952381 0.00714286 0.952381 [ [ 0 0 0 0 ] [ 1 .3 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .5 Mabswid [ ] 0 setdash .02381 .00714 m .97619 .29286 L s .02381 .29286 m .88095 .10238 L s 1 0 0 r .03 w .57092 .17128 Mdot 0 0 m 1 0 L 1 .3 L 0 .3 L closepath clip newpath % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 86.375}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJxtll9IU2Echs/azGUoK6SBwZigpVgZAwVJXGTMJAYSMktRWVpNZGprikXh RfQPioqIIMguu+yuW6ELIYgIgoKgIIi6CIQuhCBo7Tvvt+fsRII7v/M+73M2 x/edYzpbzJ3JZ4szU9n4QCG7kJuZuhBPzRfKUTDgOIG44ziZuGPmUnm0L+5P s3mxJ3auNYdgqVKJKq3zp41K6/3pDqURcwiR1itt9HfrlEb9aa3SJv8Vgkpj /q7jNFP7raCVxi8FbQSbCjpQfiropLGhIEHwQ0EXyncFPTS+Kugl+KIgifJJ QT+NjwpSBB8UDKK8U5Cm8VbBEI3XCoZpvFIwQrCuYBTlpYIJGmsKsgQPmVqE ppFvm6nGTHuFcnSvUdonNAu6gnVQaI7uIlOXUAErj9UjtAg6i9UntEwwjnVE 6DJWhtKA0ApBGuu40FWsFKUhoeugPqxhoVt0u5lOCd3BOoA1LnQPtAd0WugB l4kxnRN6hLULa1boMSgkq7KZXX9BpSeUtppTx91apcpNwQVFJU/NIWymiwpW 3YPdf/rlItxQyudLVR8nZC9r36XKCVW/MWvCLkP3z6rhA4T40AWV7nPt7WZy rxgmm1PJW7URvg/vhmW/tJtY7aBc1WLw1q9bmv53CXn3gqzQJazDoAmhJaxj TKNC57GGsEaE8nRPguzCy2FNUrLL1du83l5NC01izVMaFBojWMZKCWWwVkD9 QiewbjAlhbwddherV8i74Xlr2m75o1irlOyNIgl6hpUQOkT3OahTqBvrBaUO oQTBGlab0H6sdVCrUDvWGyb7/GzBeo8VE4rT/czUJLQb6xuWffRG6W6A7PN3 J9YmpYhQA8EfLPsk3oZlBrN7LLfPZPemsQXewGlY3E3/85+DE/gLcs/Raw== \ \>"],ImageRangeCache->{{{0., 287.}, {85.375, 0.}} -> {0., 0., 0., \ 0.}},ExpressionUUID->"43750865-63a0-4471-98d0-a3148c0742c2"], Cell[BoxData[ TagBox[ RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], False, Editable->False]], "Output",ExpressionUUID->"47015748-d245-40ea-87ec-\ 8444d948fb14"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Intersections", "[", RowBox[{ RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}], "}"}], "]"}]}], "]"}]], "Input",Expre\ ssionUUID->"b0f57bbb-3d32-4b90-9867-cd40b08a1ce7"], Cell[BoxData["PointAtInfinity"], "Output",ExpressionUUID->"c9daf94f-bb82-4d1d-9909-823181a2d741"] }, Open ]], Cell[CellGroupData[{ Cell["Trilinears", "Subsection",ExpressionUUID->"4f46fe6d-0379-453e-a4ca-4791c65f1348"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"l1", " ", "\[Alpha]"}], "+", RowBox[{"m1", " ", "\[Beta]"}], "+", RowBox[{"n1", " ", "\[Gamma]"}]}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"l2", " ", "\[Alpha]"}], "+", RowBox[{"m2", " ", "\[Beta]"}], "+", RowBox[{"n2", " ", "\[Gamma]"}]}], "\[Equal]", "0"}], ",", RowBox[{"\[Gamma]", "\[Equal]", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "}"}]}], "]"}], "]"}]], "Input",ExpressionUUID->"6ff7a900-2841-4149-aabb-a45b2f938613"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]", "\[Rule]", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "m2"}], " ", "n1"}], "+", RowBox[{"m1", " ", "n2"}]}], RowBox[{ RowBox[{ RowBox[{"-", "l2"}], " ", "m1"}], "+", RowBox[{"l1", " ", "m2"}]}]]}], ",", RowBox[{"\[Beta]", "\[Rule]", FractionBox[ RowBox[{ RowBox[{"l2", " ", "n1"}], "-", RowBox[{"l1", " ", "n2"}]}], RowBox[{ RowBox[{ RowBox[{"-", "l2"}], " ", "m1"}], "+", RowBox[{"l1", " ", "m2"}]}]]}], ",", RowBox[{"\[Gamma]", "\[Rule]", "1"}]}], "}"}], "}"}]], "Output",Expression\ UUID->"a8f8583e-ba9c-4c93-815c-e659f9bea709"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "m2"}], " ", "n1"}], "+", RowBox[{"m1", " ", "n2"}]}], ",", RowBox[{ RowBox[{"l2", " ", "n1"}], "-", RowBox[{"l1", " ", "n2"}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "l2"}], " ", "m1"}], "+", RowBox[{"l1", " ", "m2"}]}]}], "}"}]], "Input",ExpressionUUID->"fd3d4203-\ 5e6c-48a6-a921-14bfdc68a08b"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "m2"}], " ", "n1"}], "+", RowBox[{"m1", " ", "n2"}]}], ",", RowBox[{ RowBox[{"l2", " ", "n1"}], "-", RowBox[{"l1", " ", "n2"}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "l2"}], " ", "m1"}], "+", RowBox[{"l1", " ", "m2"}]}]}], "}"}]], "Output",ExpressionUUID->"7c7d8c3d-\ 4d40-4c06-8e02-dffb5f2b0e34"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Det", "/@", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"m1", ",", "m2"}], "}"}], ",", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], ",", RowBox[{"{", RowBox[{"l1", ",", "l2"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"l1", ",", "l2"}], "}"}], ",", RowBox[{"{", RowBox[{"m1", ",", "m2"}], "}"}]}], "}"}]}], "}"}]}]], "Input",Expressi\ onUUID->"81c7036d-76bf-4917-8e49-1a6de70a3807"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "m2"}], " ", "n1"}], "+", RowBox[{"m1", " ", "n2"}]}], ",", RowBox[{ RowBox[{"l2", " ", "n1"}], "-", RowBox[{"l1", " ", "n2"}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "l2"}], " ", "m1"}], "+", RowBox[{"l1", " ", "m2"}]}]}], "}"}]], "Output",ExpressionUUID->"22f8553b-\ 934c-4551-b47f-38eee81bd20a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Det", "/@", RowBox[{"Partition", "[", RowBox[{ RowBox[{"RotateLeft", "[", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"l1", ",", "m1", ",", "n1"}], "}"}], ",", RowBox[{"{", RowBox[{"l2", ",", "m2", ",", "n2"}], "}"}]}], "}"}], "]"}], "]"}], ",", "2", ",", "1", ",", "1"}], "]"}]}]], "Input",ExpressionUUID->\ "6879680e-e46f-4bd0-a0e4-5b544b248ce3"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "m2"}], " ", "n1"}], "+", RowBox[{"m1", " ", "n2"}]}], ",", RowBox[{ RowBox[{"l2", " ", "n1"}], "-", RowBox[{"l1", " ", "n2"}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "l2"}], " ", "m1"}], "+", RowBox[{"l1", " ", "m2"}]}]}], "}"}]], "Output",ExpressionUUID->"4a608cc0-\ 4970-42e1-a4d0-4c92dd3111bd"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cross", "@@@", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "b1", ",", "c1"}], "}"}], ",", RowBox[{"{", RowBox[{"a2", ",", "b2", ",", "c2"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a3", ",", "b3", ",", "c3"}], "}"}], ",", RowBox[{"{", RowBox[{"a4", ",", "b4", ",", "c4"}], "}"}]}], "}"}]}], "}"}]}]], "Input",ExpressionUUID->"7bc95064-8f86-4609-ad4b-258648decb9a"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "b2"}], " ", "c1"}], "+", RowBox[{"b1", " ", "c2"}]}], ",", RowBox[{ RowBox[{"a2", " ", "c1"}], "-", RowBox[{"a1", " ", "c2"}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "a2"}], " ", "b1"}], "+", RowBox[{"a1", " ", "b2"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "b4"}], " ", "c3"}], "+", RowBox[{"b3", " ", "c4"}]}], ",", RowBox[{ RowBox[{"a4", " ", "c3"}], "-", RowBox[{"a3", " ", "c4"}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "a4"}], " ", "b3"}], "+", RowBox[{"a3", " ", "b4"}]}]}], "}"}]}], "}"}]], "Output",ExpressionUUID-\ >"1bbe6e9c-35db-49a3-a103-60e30417bc80"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"Intersections", "[", "tri__", "]"}], ":=", RowBox[{ RowBox[{"Det", "/@", RowBox[{"Partition", "[", RowBox[{ RowBox[{"RotateLeft", "[", RowBox[{"Transpose", "[", RowBox[{"Cross", "@@@", RowBox[{"{", "tri", "}"}]}], "]"}], "]"}], ",", "2", ",", "1", ",", "1"}], "]"}]}], "/;", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"{", "tri", "}"}], "]"}], "\[Equal]", RowBox[{"{", RowBox[{"2", ",", "2", ",", "3"}], "}"}]}]}]}]], "Input",ExpressionUUID->\ "d1502e65-4821-462b-a586-f8e2ee56e9cd"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Intersections", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "b1", ",", "c1"}], "}"}], ",", RowBox[{"{", RowBox[{"a2", ",", "b2", ",", "c2"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a3", ",", "b3", ",", "c3"}], "}"}], ",", RowBox[{"{", RowBox[{"a4", ",", "b4", ",", "c4"}], "}"}]}], "}"}]}], "]"}]], "Input",\ ExpressionUUID->"6ad6645f-97a0-4354-8351-6affb3532052"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "a2"}], " ", "a4", " ", "b3", " ", "c1"}], "+", RowBox[{"a2", " ", "a3", " ", "b4", " ", "c1"}], "+", RowBox[{"a1", " ", "a4", " ", "b3", " ", "c2"}], "-", RowBox[{"a1", " ", "a3", " ", "b4", " ", "c2"}], "+", RowBox[{"a2", " ", "a4", " ", "b1", " ", "c3"}], "-", RowBox[{"a1", " ", "a4", " ", "b2", " ", "c3"}], "-", RowBox[{"a2", " ", "a3", " ", "b1", " ", "c4"}], "+", RowBox[{"a1", " ", "a3", " ", "b2", " ", "c4"}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "a4"}], " ", "b2", " ", "b3", " ", "c1"}], "+", RowBox[{"a3", " ", "b2", " ", "b4", " ", "c1"}], "+", RowBox[{"a4", " ", "b1", " ", "b3", " ", "c2"}], "-", RowBox[{"a3", " ", "b1", " ", "b4", " ", "c2"}], "+", RowBox[{"a2", " ", "b1", " ", "b4", " ", "c3"}], "-", RowBox[{"a1", " ", "b2", " ", "b4", " ", "c3"}], "-", RowBox[{"a2", " ", "b1", " ", "b3", " ", "c4"}], "+", RowBox[{"a1", " ", "b2", " ", "b3", " ", "c4"}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "a4"}], " ", "b2", " ", "c1", " ", "c3"}], "+", RowBox[{"a2", " ", "b4", " ", "c1", " ", "c3"}], "+", RowBox[{"a4", " ", "b1", " ", "c2", " ", "c3"}], "-", RowBox[{"a1", " ", "b4", " ", "c2", " ", "c3"}], "+", RowBox[{"a3", " ", "b2", " ", "c1", " ", "c4"}], "-", RowBox[{"a2", " ", "b3", " ", "c1", " ", "c4"}], "-", RowBox[{"a3", " ", "b1", " ", "c2", " ", "c4"}], "+", RowBox[{"a1", " ", "b3", " ", "c2", " ", "c4"}]}]}], "}"}]], "Output",Expr\ essionUUID->"4ff0b4c2-a05f-4620-9f3d-f80b36780f31"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "+", "b", "-", "c"}], ")"}], "c", " ", RowBox[{"Intersections", "@@", RowBox[{"Take", "[", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{ RowBox[{"IdentityMatrix", "[", "3", "]"}], ",", RowBox[{"TrilinearVertexMatrix", "[", "ContactTriangle", "]"}]}], "}"}], "]"}], ",", "2"}], "]"}]}]}], "]"}]], "Input",ExpressionUUID->\ "ad9847d1-2dc4-4210-8fd7-8c83e252ce54"], Cell[BoxData[ RowBox[{"{", RowBox[{ FractionBox["1", RowBox[{"a", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "+", "b", "+", "c"}], ")"}]}]], ",", FractionBox["1", RowBox[{"b", " ", RowBox[{"(", RowBox[{"a", "-", "b", "+", "c"}], ")"}]}]], ",", FractionBox["1", RowBox[{ RowBox[{"(", RowBox[{"a", "+", "b", "-", "c"}], ")"}], " ", "c"}]]}], "}"}]], "Output",ExpressionUUID->"d97c4052-57b2-4b07-bff2-a89cb9135043"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Trilinears", "[", "GergonnePoint", "]"}]], "Input",ExpressionUUID->"dc30a9c0-1fa1-4f16-ae71-6acfd5024022"], Cell[BoxData[ RowBox[{"{", RowBox[{ FractionBox["1", RowBox[{"a", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "+", "b", "+", "c"}], ")"}]}]], ",", FractionBox["1", RowBox[{"b", " ", RowBox[{"(", RowBox[{"a", "-", "b", "+", "c"}], ")"}]}]], ",", FractionBox["1", RowBox[{ RowBox[{"(", RowBox[{"a", "+", "b", "-", "c"}], ")"}], " ", "c"}]]}], "}"}]], "Output",ExpressionUUID->"64d8fae9-fbdf-4b58-b369-a584acbaf374"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Factor", "[", RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"l", " ", "\[Alpha]"}], "+", RowBox[{"m", " ", "\[Beta]"}], "+", RowBox[{"n", " ", "\[Gamma]"}]}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"TrilinearLine", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "b1", ",", "c1"}], "}"}], ",", RowBox[{"{", RowBox[{"a2", ",", "b2", ",", "c2"}], "}"}]}], "}"}], "]"}], "\[Equal]", "0"}], ",", RowBox[{"\[Gamma]", "\[Equal]", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "}"}]}], "]"}], "]"}]], "Input",ExpressionUUID->"27f2604d-ffde-455d-88f8-c6eb31ca468f"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]", "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"a2", " ", "b1", " ", "m"}], "-", RowBox[{"a1", " ", "b2", " ", "m"}], "+", RowBox[{"a2", " ", "c1", " ", "n"}], "-", RowBox[{"a1", " ", "c2", " ", "n"}]}], RowBox[{ RowBox[{"a2", " ", "c1", " ", "l"}], "-", RowBox[{"a1", " ", "c2", " ", "l"}], "+", RowBox[{"b2", " ", "c1", " ", "m"}], "-", RowBox[{"b1", " ", "c2", " ", "m"}]}]]}]}], ",", RowBox[{"\[Beta]", "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "a2"}], " ", "b1", " ", "l"}], "+", RowBox[{"a1", " ", "b2", " ", "l"}], "+", RowBox[{"b2", " ", "c1", " ", "n"}], "-", RowBox[{"b1", " ", "c2", " ", "n"}]}], RowBox[{ RowBox[{"a2", " ", "c1", " ", "l"}], "-", RowBox[{"a1", " ", "c2", " ", "l"}], "+", RowBox[{"b2", " ", "c1", " ", "m"}], "-", RowBox[{"b1", " ", "c2", " ", "m"}]}]]}]}], ",", RowBox[{"\[Gamma]", "\[Rule]", "1"}]}], "}"}], "}"}]], "Output",Expression\ UUID->"a2ca3a3f-b4ab-48fe-8c36-88fe4eeb0870"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Collect", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"a2", " ", "b1", " ", "m"}], "+", RowBox[{"a1", " ", "b2", " ", "m"}], "-", RowBox[{"a2", " ", "c1", " ", "n"}], "+", RowBox[{"a1", " ", "c2", " ", "n"}]}], ",", RowBox[{ RowBox[{"a2", " ", "b1", " ", "l"}], "-", RowBox[{"a1", " ", "b2", " ", "l"}], "-", RowBox[{"b2", " ", "c1", " ", "n"}], "+", RowBox[{"b1", " ", "c2", " ", "n"}]}], ",", RowBox[{ RowBox[{"a2", " ", "c1", " ", "l"}], "-", RowBox[{"a1", " ", "c2", " ", "l"}], "+", RowBox[{"b2", " ", "c1", " ", "m"}], "-", RowBox[{"b1", " ", "c2", " ", "m"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"l", ",", "m", ",", "n"}], "}"}]}], "]"}]], "Input",ExpressionUUID\ ->"1bb0c802-2b3a-4ef1-a73f-9219cef99c67"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a2", " ", "b1"}], "+", RowBox[{"a1", " ", "b2"}]}], ")"}], " ", "m"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "a2"}], " ", "c1"}], "+", RowBox[{"a1", " ", "c2"}]}], ")"}], " ", "n"}]}], ",", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a2", " ", "b1"}], "-", RowBox[{"a1", " ", "b2"}]}], ")"}], " ", "l"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "b2"}], " ", "c1"}], "+", RowBox[{"b1", " ", "c2"}]}], ")"}], " ", "n"}]}], ",", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a2", " ", "c1"}], "-", RowBox[{"a1", " ", "c2"}]}], ")"}], " ", "l"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"b2", " ", "c1"}], "-", RowBox[{"b1", " ", "c2"}]}], ")"}], " ", "m"}]}]}], "}"}]], "Output",Ex\ pressionUUID->"5b90e4a5-4b33-4a61-b828-d5bfeeeb9d69"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["3-D", "Section",ExpressionUUID->"84d05b15-bf15-420c-ab13-3c3f7666a854"], Cell[CellGroupData[{ Cell["4-point cross-product", "Subsection",ExpressionUUID->"39df9cbf-0747-45af-a6ea-e8ffc659603d"], Cell[BoxData[ RowBox[{"<<", "Platonic`"}]], "Input",ExpressionUUID->"61b7ba6b-663e-4d5a-afb5-9493c0f37b4d"], Cell[BoxData[ RowBox[{ RowBox[{"FaceIntersections", "[", "poly_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"pairs", "=", RowBox[{"KSubsets", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Take", "[", RowBox[{"#", ",", "3"}], "]"}], "&"}], "/@", RowBox[{"First", "/@", "poly"}]}], ",", "2"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{"Intersection3D", "@@@", RowBox[{"Map", "[", RowBox[{"Plane", ",", "pairs", ",", RowBox[{"{", "2", "}"}]}], "]"}]}], ",", RowBox[{"{", "}"}]}], "]"}]}], "\[IndentingNewLine]", "]"}]}]], "Input",\ ExpressionUUID->"da672714-bf12-4770-a3e8-0c8e799ce695"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"poly", "=", "Cube"}], ";"}], "\n", RowBox[{"Show", "[", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Polyhedron", "[", "poly", "]"}], ",", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"lines", "=", RowBox[{"FaceIntersections", "[", RowBox[{"Polyhedron", "[", "poly", "]"}], "]"}]}]}], "}"}], ",", RowBox[{"PointSize", "[", ".02", "]"}], ",", RowBox[{"points", "=", RowBox[{"Intersection3D", "@@@", RowBox[{"KSubsets", "[", RowBox[{"lines", ",", "2"}], "]"}]}]}]}], "}"}], "]"}], "]"}]}], "Input",ExpressionUUID->"ca1aab96-2af8-4226-b5f3-f28ae0969979"], Cell[BoxData[ RowBox[{ RowBox[{"Intersection3D", "::", "\<\"parplanes\"\>"}], ":", " ", "\<\"Specified planes do not intersect\"\>"}]], "Message",ExpressionUUI\ D->"72676a90-ac6c-41fa-a095-eaf8f069f351"], Cell[BoxData[ RowBox[{ RowBox[{"Intersection3D", "::", "\<\"parplanes\"\>"}], ":", " ", "\<\"Specified planes do not intersect\"\>"}]], "Message",ExpressionUUI\ D->"2cfc7632-ea0d-4f96-8e22-fd4c41b1c9a2"], Cell[BoxData[ RowBox[{ RowBox[{"Intersection3D", "::", "\<\"parplanes\"\>"}], ":", " ", "\<\"Specified planes do not intersect\"\>"}]], "Message",ExpressionUUI\ D->"78121732-1b59-4925-a12c-c3790bfb1c3e"], Cell[BoxData[ RowBox[{ RowBox[{"General", "::", "\<\"stop\"\>"}], ":", " ", "\<\"Further output of \\!\\(Intersection3D :: \\\"parplanes\\\"\\) \ will be suppressed during this calculation. (\\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"OtherInformationLink\\\", \ ButtonFrame->None, ButtonData:>\\\"function::stop\\\"]\\))\"\>"}]], "Message",\ ExpressionUUID->"ea6ba31c-aa24-4de2-8b3a-8542610e1250"], Cell[BoxData[ RowBox[{ RowBox[{"Intersection3D", "::", "\<\"parlines\"\>"}], ":", " ", "\<\"Specified lines are parallel and have no intersection.\"\>"}]], \ "Message",ExpressionUUID->"adfcf49c-d331-4730-b9f3-f278bdc670ba"], Cell[BoxData[ RowBox[{ RowBox[{"Intersection3D", "::", "\<\"parlines\"\>"}], ":", " ", "\<\"Specified lines are parallel and have no intersection.\"\>"}]], \ "Message",ExpressionUUID->"0ddd8cf2-82b6-4ec8-91e3-890ba1c7dcdc"], Cell[BoxData[ RowBox[{ RowBox[{"Intersection3D", "::", "\<\"skewlines\"\>"}], ":", " ", "\<\"Specified lines are skew and have no intersection.\"\>"}]], \ "Message",ExpressionUUID->"80e8aeb0-d3f6-4356-b365-8ce6909ea641"], Cell[BoxData[ RowBox[{ RowBox[{"Intersection3D", "::", "\<\"skewlines\"\>"}], ":", " ", "\<\"Specified lines are skew and have no intersection.\"\>"}]], \ "Message",ExpressionUUID->"32a8affa-9281-4b9f-97d0-edfbc8e3a1a8"], Cell[BoxData[ RowBox[{ RowBox[{"Intersection3D", "::", "\<\"parlines\"\>"}], ":", " ", "\<\"Specified lines are parallel and have no intersection.\"\>"}]], \ "Message",ExpressionUUID->"1f3ff6d8-4014-4d29-af09-bab3ea1fee90"], Cell[BoxData[ RowBox[{ RowBox[{"General", "::", "\<\"stop\"\>"}], ":", " ", "\<\"Further output of \\!\\(Intersection3D :: \\\"parlines\\\"\\) \ will be suppressed during this calculation. (\\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"OtherInformationLink\\\", \ ButtonFrame->None, ButtonData:>\\\"function::stop\\\"]\\))\"\>"}]], "Message",\ ExpressionUUID->"1ccda6c7-8949-4fd0-a346-895d32f4a055"], Cell[BoxData[ RowBox[{ RowBox[{"Intersection3D", "::", "\<\"skewlines\"\>"}], ":", " ", "\<\"Specified lines are skew and have no intersection.\"\>"}]], \ "Message",ExpressionUUID->"deddf48e-8304-4a2f-a06d-43413e92bfb9"], Cell[BoxData[ RowBox[{ RowBox[{"General", "::", "\<\"stop\"\>"}], ":", " ", "\<\"Further output of \\!\\(Intersection3D :: \\\"skewlines\\\"\\) \ will be suppressed during this calculation. (\\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"OtherInformationLink\\\", \ ButtonFrame->None, ButtonData:>\\\"function::stop\\\"]\\))\"\>"}]], "Message",\ ExpressionUUID->"ed30f64a-b59c-4efb-857a-ea69f15f2f44"], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: 1.0855 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics3D %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations -0.0567234 1.16608 1.11022e-16 1.16608 [ [ 0 0 0 0 ] [ 1 1.0855 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .08846 .24555 m 0 .80374 L s 0 .80374 m .40037 1.0855 L s .40037 1.0855 m .41799 .58158 L s .41799 .58158 m .08846 .24555 L s .67245 0 m .92713 .41497 L s .92713 .41497 m 1 .94814 L s 1 .94814 m .70644 .58546 L s .70644 .58546 m .67245 0 L s .08846 .24555 m 0 .80374 L s 0 .80374 m .70644 .58546 L s .70644 .58546 m .67245 0 L s .67245 0 m .08846 .24555 L s .41799 .58158 m .92713 .41497 L s .92713 .41497 m 1 .94814 L s 1 .94814 m .40037 1.0855 L s .40037 1.0855 m .41799 .58158 L s 0 0 m 1 0 L 1 1.0855 L 0 1.0855 L closepath clip newpath .5 Mabswid .3136 .41908 m .46872 .58227 L .72989 .49767 L p .665 .739 .905 r F P 0 g s .46409 .83129 m .46872 .58227 L .3136 .41908 L p .953 .687 .495 r F P 0 g s 1 0 0 r .34738 .62157 m .38328 .60994 L s .46872 .58227 m .46409 .83129 L .74715 .75325 L p .56 .347 .549 r F P 0 g s .74715 .75325 m .72989 .49767 L .46872 .58227 L p .56 .347 .549 r F P 0 g s .72989 .49767 m .5931 .31659 L .3136 .41908 L p .665 .739 .905 r F P 0 g s .5931 .31659 m .72989 .49767 L .74715 .75325 L p .975 .681 .392 r F P 0 g s 1 0 0 r .72989 .49767 m .87069 .45207 L s .46872 .58227 m .66446 .51887 L s .72989 .49767 m .7891 .57605 L s .72224 .3843 m .72989 .49767 L s 0 g .02 w .72989 .49767 Mdot .72989 .49767 Mdot .72989 .49767 Mdot .5 Mabswid .3136 .41908 m .29469 .68017 L .46409 .83129 L p .953 .687 .495 r F P 0 g s .74715 .75325 m .46409 .83129 L .29469 .68017 L p .643 .765 .937 r F P 0 g s 1 0 0 r .46149 .97144 m .46409 .83129 L s .46638 .7079 m .46872 .58227 L s .46409 .83129 m .53711 .89643 L s .33337 .86733 m .46409 .83129 L s 0 g .02 w .46409 .83129 Mdot .46409 .83129 Mdot .46409 .83129 Mdot .5 Mabswid .29469 .68017 m .3136 .41908 L .5931 .31659 L p .524 .296 .511 r F P 0 g s .02 w .3136 .41908 Mdot .3136 .41908 Mdot .3136 .41908 Mdot 1 0 0 r .5 Mabswid .22405 .32488 m .3136 .41908 L s .41845 .52938 m .46872 .58227 L s .3136 .41908 m .32194 .3039 L s .18468 .46635 m .3136 .41908 L s .74715 .75325 m .5994 .58402 L .5931 .31659 L p .975 .681 .392 r F P 0 g s .29469 .68017 m .5994 .58402 L .74715 .75325 L p .643 .765 .937 r F P 0 g s 1 0 0 r .46409 .83129 m .74715 .75325 L s .74715 .75325 m .9007 .71091 L s .74715 .75325 m .75692 .898 L s .72989 .49767 m .74715 .75325 L s .74715 .75325 m .81029 .82558 L s 0 g .02 w .74715 .75325 Mdot .74715 .75325 Mdot .74715 .75325 Mdot .5 Mabswid .5931 .31659 m .5994 .58402 L .29469 .68017 L p .524 .296 .511 r F P 0 g s .02 w .5931 .31659 Mdot .5931 .31659 Mdot .5931 .31659 Mdot 1 0 0 r .5 Mabswid .29469 .68017 m .3136 .41908 L s .28391 .82893 m .29469 .68017 L s .19566 .59183 m .29469 .68017 L s .29469 .68017 m .46409 .83129 L s .5931 .31659 m .5994 .58402 L s .5994 .58402 m .60302 .7376 L s .5994 .58402 m .74715 .75325 L s .51223 .48417 m .5994 .58402 L s .3136 .41908 m .5931 .31659 L s .5931 .31659 m .74494 .26092 L s .51351 .21123 m .5931 .31659 L s .5931 .31659 m .72989 .49767 L s .59034 .19946 m .5931 .31659 L s .5994 .58402 m .76622 .53138 L s .29469 .68017 m .5994 .58402 L s .15516 .72419 m .29469 .68017 L s 0 g .02 w .29469 .68017 Mdot .29469 .68017 Mdot .29469 .68017 Mdot .5994 .58402 Mdot .5994 .58402 Mdot .5994 .58402 Mdot .25 Mabswid .67245 0 m .92713 .41497 L s .92713 .41497 m 1 .94814 L s 1 .94814 m .70644 .58546 L s .70644 .58546 m .67245 0 L s .08846 .24555 m 0 .80374 L s 0 .80374 m .70644 .58546 L s .70644 .58546 m .67245 0 L s .67245 0 m .08846 .24555 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{265.312, 287.938}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzFnflvXUcVgG/83vO+70scO3GcfXH2vbYTJ85CQ2kpaWm6hLQlQS3pklYV qAJKaWmpkCpUCZAAIVVICIH4H/iD+JmfjO+ZuefOfe+b65n4RbXk5+dzZ+Z8 c+7cWc4s98k7D++99uadh/fv3pldfefOW/fu33139sqDd9ZFlS1JsqVj/Xdm Nkm/ryVJ9vHvtfWflvT7rfRbkvwz/VORi5U1I0rkz/fMP//QCFX9Zi/9XQWt IqhkcSW1Z82Xv2n67f5AX2tKXSKoaiAb8Lvm7181sZ7ScH/R9PpFUCuEy5Q/ Y778SQMP1hGm/7WA7CkT8Y9KMxwX8feqcTww4rdNxK9U4yQEqoDspon4O9U4 HRfxS404A4GqIHvSRPytom6Pi/iFatwJgWog+5aJ+Jlq3AWB6oto+t8NE/FT 1bg3LuLHqnE/BGoD2XUT8SPVeAgC1T8o6X/XTMSfa8SFuIgfKupRCNQBsqsm 4k9V44m4iB+oxlMQqBNkqybi+6rxLATqAtkVE/GhRjwfF/FtRX0CAnWD7LKJ +EA1XgyMuGIivqEaV+Ii/kg1rkKgHpBdMhHvacRrcRFfU9QbEKgXZMYWyV3V eBMC9YFs2UR8RTU+FRfxJdX4DATqB9mSiXhbIz4LgQZAtmgiPq+ot+Ii3lKN 34dA1BCZomlaOLlyOy7i06rxZQg0BLILJuJTGvEOBKKmzzx+pkKXK3fjIt5Q ja9DoBGQnTMRr6rGexBoFGSmijEVgWh8I1CjjbiiEX8cqPGMibisqG/FRVxU je9CoDGQnTYRz6vG9yAQ9URMxW2yKho/iIt4SjX+BAJNgOykiXhCNX4Igajv Yxqn5JhG/KENtLbBfSxJbEHx7wcmNgWy4yaxQ0r2xuYT269kz0NigyAjBVtB dswo2Ku0tyGxUAXU1zTdj2S3KngZEhsAWaSCnWqiH0Bi/SAjBdtAdsQo2KE5 eB0S6wNZpIIZzcE9SCxUwQzITN/RWM9bJHtBRtUSKThsFEypggeQWA/IIhWM q4negcS6QUYKZkFm+uVYnWbV7qOoorHQQb+qh5BsF8geXVViL2ub4CbbCTJS tQNkBzBXou99SLYDZJGqTPCGob6opNyFqpwD2X5XZfGSHb4nGxWZdpBRenK/ W3wlZJ8fpBII0gYySk+AJRi13CUg1UCQVpBRejUFofp/rx+kBiBUcYSCtCgI PWx7/CCtgSA1kDWkt/5Fige5S0oY2gIZqiAbcWQSf/1jD+jYbdRTu9QRqL4C Mul/iCgp+iwjGTqB4e1ABulBiN3Jl0Ugu/wgXYEgLSDrUWOQp4o8WvN+kG4v SM1Vaq8kJrwoJ4cOWaFEeY9XebWoPDGlR/SS54IyvdOvtxf0HrDhXEsvM0ur spCHYR/ITIuCI+B+YMmciy7LxZwlyZ5AUxFYFhrQR7IMAEuWRCNLJePInkuu dshTusPPMAgM2e3diKEl/Y8azUiGIWDIirbLsJR+mmqp6t4UH8YBkG33YwwD BvWhx0B2QdEqySc3PqozFA3hD4Js1g83AnBlnWJXdk7h2gycQP3vX6/KX7Jc JNxoINwIyMTrIvV8p8BVM7gMkAo5efVnDB89l+OBfMMgO6nG6w7nOwyybX6+ iUC+IZAdU74+4au5fHqTqVqOhJwMhCTnxYJCDhZLoPy2yCenktSnUieb9gNP BQKTM8R6k9IGDYArAEy+6EjgrYHA5FzZrxYe2wTwES8VAk8HApMvZY8CTwJw FYCp9afJNnPfsQTNBAKTb2ZegacBuAbANJMSCTwbCEztlPQ8pAzPAnDrJoAn /cDbA4HJy7JdLbxjE8DHQDbhB94RCEy+mm0KPA/AbQBM03mRwHOBwOR+kWdZ isQeAG4HYOr+HwfZuB94JwDT7SfgCbXwPgDuAGCa2y0BplpwVyCw18MkooOb AKalAGN+4N2BwOSJGlLgBQDuBGCa6CcnBvUvRv2Z2BOYCXIeSXpSro8HZoKG 003IxN7ATJDjSeoGEZ2ETHRBJmh1CGWC+iEj/kzsC8wEqerSTJxpciaobzLs z8T+wEyQ7yn3xJ6HTHRDJmhlUBMyccCbCXYXiS3lOVgE8B4Ap0VUBE7dANMl xH7ZIS94iXtnGZh7gZn8cE1gPlzObOTmb+4GWmkyM3UGBv3MC8Bc8LpaZlGy Cqx9wEprAKnCksIsTqC6wAObB5ZkrwJwPwCTh5iApVRW9AaGUx8BanlyPN4o Ah8A8AroIvD9Ck73pgT8KIBXFLxSNLz8XAtEJ5tTgd6j6FRHWnTqxx8HdKna nF6MsKa/ZPDBQIMT9bxSU29nI2pJy+nOlmIOASYVT8LcoZjE0u/HlHIh1qTp 1FALD5uhr4tkEkgS7KbNKC6NE0pwD6tVaYrRUdVU3K2KS+6zEtwDikuzcM4D Xoo7YjwhBVwP6YSSkqu5hFS6elIOaHLI6RspKdUPo3VF2GfQUcWktVclmLvV oDR/48zalWKOOZg2Pta2Q4qZT7+VPF80pt+ldjW9u5oLvJYZ6cYmIPsBsuSp Isg5jWjGltUiJPONW76NqqYe4CNXeZ+fb1YjNrhyPcYrwFnjEVwnwNGiixK4 GUi24A+1hfF6OaZ66AmzDTBpUWEJ5lKebOmzQUhU7ORZqxaRZkBv05CqGVKG VWco6bS0KJBUl7SIyQKRP2s5CqjmAqmtCs1oYn5yC9GGmaYBVQpALXmr4T4u ncpCk/eRLMcclkw2FM+3pj+J05umWdvHxDexsf2yn7zTTM6U3ji+48BHE2N+ vmJBk+IvrQ0NHyPhTgDcQAxcNiJ0LUgOzRIuqiJOAVf/Y+QivyzZ6zRw9QVy VeBmntw80hlA6g1Eaph5a46VzgJSTxRSQ5VBXv1IqnNA1b05KrJVTxzV+UAq x8+ksjYvKXsMyYiPCZdaA5rnpUV45De1mDRAv5gnoUhTgDkDsq5AdJrxJXRq LyLRnwDMzmZiZs0HrauJZF0E1o4o1rpHyja7TSgBS4DWHoMmZM6gWLU1wW7L ANcWCCfNiASjGT6C646DuwhwraFwaQha4kMeAlp4Zllpxo5YV4C1FjJWXP9C D8s3jDmi99bcZrUtsdLtp/50JOtlYK0C64A+JFUoCFTX0xQ6rR6NBL4CwBVf Cyqi9kBgWqRAy34jgVcBuAWAuxS465sFNg7LWkG2/iv/dypkbyAkLa6hcWok pBkzV12ZVJLKNxDIRxPHxGfC4ZT2JeC77vA5P3l1PhzYoBMfbQ54FD5xXZr9 UYE0NIJ5ZM1jxhhJguupmqBKHj0Rib5h1dfyeLJrd+au5WfMNDQLFVOFfv2f /5rJEkVqDSyvkUi04N9Z5V7so9jqch3OXl3/Jn97FbMTMGkJagkmTRbSPg1n vbtiXkg/q6aSTDGrGWaG2qmkVEFRX8V/xAqS0u4WZ3F5cfwpoj7hq7mkaljb 98xKgscDeSYO8SAgDgHiaUUcLN5z+W1xZFnnRDYkjzaP9BCQDgLpCSUdabzt 8jCl/0/aMYYDloaLZDoMTAPAdESL4njOJCnZ30rRgNSLfhSbLQBfP/AdUptN qoVaAclxgGRp2mMvgpHMapH0KoHsV5CJVH3VVMCNBa62EZzVVvLA0pKn4zmS ypw11Yq5p4jZYK8Mk2w47tQrVncs5gnA7AbMnVrscswOwGwrL32l1uzwY57M kVTmdFEUczuUvm7AbAdMmieNxDwFmJ2AuQ3KZh9gdgAmTY1HYp4GTFpcMgVl cwgwOwHTs9aAGugS0jM5lcqcEZ6SjgPpaBQpL+Lwn6CG6+9kX1yLW1+5kMPw DE0AZBdAlq00iYS8ADalFSQD8CxtBdxuwA1dguQ/2g7Rs8Pe3GQrgN4Hz9cM oPcAeugiL0Jv96MvAjotM+mGkjwH6L2AHrqqjjyfJehLWRGpK3tpoE4o07sD cWnhJa1G9B+ciLieTd9tUJz3AWkfkIauaY0krdsSnv1UgPQgkPYDaehKYdqF YEkpYzLMzcft+VO1sAkuqvD9p2tuwDWupjoOSAOARIvXy8Y1gUhS/MRKwjWi XKeAa7DJXG1+Lqk7JVWpzSqmqNmLSX7jJNZZYB0CVtq5QP4AchmXsDr7y+V/ rnt6FPcC4A4DbuhukUjc04pLbke3li/05uUBWgL0EUAP3XLkP9cWm4J8Mzpt +HTb1sIAXRJZAfRRQKc9ajRPRE7kEvR8nzptX65mn8XR8eommGn6mny2Jcz5 tnXaeW83gdgH0yEk6jGgDt1vSZ7cEuqDSl1/GIRpERI9anyNLTwOrOR8JdaR htscSL1PI4rnUZ42d5STwVExngBg2i5MqxEHVC+dbNHqB87XJI9pQaD5f8rE JcjEJGQidFd5vvSRTvOwmaBucb6pPc+Ed1tfHfBFyMQUZIIc1FQ48l13tDq8 JBNz6WdLMRM0E+p6SjLgZcjEVshE6AkKVc0EnTxZkokzik6tkuuLyjCpLZoG dPJne9D5oLUSahnMyrNKDZJzjIISLgZSk8HdlkMo1j/m44CPqpnp2A/noAqF ewKAtwWaOX8uaTg9F4d+WNHpnJr8vDQCNsNpPhsm37JLXXyCrPkhDygkHZPk uu0ztJfks+FYnbw2oM4HrfC2VGTpveY+JIU5N73qTnsQlfNT0RtK1TA9PCVU u9RW23ICverOF2VUL5pbm2SFXxp006qv8REtkUhzirQ9V69XnfObFOl2+klL a0NPgi2hmVWanblmvepO/WU0t0xPfc0O56g1nIljmFaG3cDgzpJmDM+YLvea HX3I3aLNJdRAlIBIElKG6Yy48VymIDfVGA2LQDxIdN6nRTJFP7vinAxM03OS tpTJ68qQvVHGCZd+pw1rZJkqYowoRuYlczGmclmx6yUUA1n2YLBKVGQcphpU KppX2prLiq2iiOiMNOpW0uNFe4OYsE8JaRJkOpcp4Vm12wTECCWknh0TSq0v xT17SwkQakWYEp5UwmmIUQEZEdJ59UzYrjYkR3fD2VjrX44qIdWuZQfBPhph TQmdddt1hA2b/g5pUZyHSLQnjCCpdskhk/qiI6JLkLapCnj75F41J50WGXS2 r4e00kBqGtnEvskCIWFTqlSBc4pJy0JCz0KmGsliFt46sxGXU8qKAx4hpHUD oedXU2OrhI0goYZ0J7sKHgoRUQUbevK3/1Bv80d6NaGY7ib0gg9W7Eq1LK3M pEepBJN2w/ufIv8m/wy4V4HPQSo0MCVgkllgOpjbWblZCuxO0mbAHQq8CKnQ skiCI8+PBRYrSUEIxTS3tWHkUNUiSzeo7LRUN3Hq4ltSOmqAjFLCrM1pxpz+ Qw8ADfZDcU1dYAqTGDYKMh/t1F29CqnQie0lSHQ4922Q5XtVpV26DprJK+F/ +yEevvACyPLhp/EzyV2q2IuJ1w60/Zg8QJZG3DZiaA9DVti470wE2djJTYh8 gJaATnl4TnLs3KeCAuqAXgYZ+dJpKG9BBtQU8l6wKhQ8oqHO5grIImnooOyb ahZ6DQTBUT+T6iT/RvGibIuBG1ZTXVdT0TsQCIn6alTf0pwTOfUtEp1LvaL2 opcCEBz10Kg/TXN5NEVi4cZA/ZLC0Zn5BEedsyWQ+XcBIZz0NuVmytimRZ+F ACTqfi2CjGbEyddnkej86ZuBSNTVokFbJNKUWikUhLpQtMKLFlbQ/LEFoYOY bwQiUScpCmlLKtpivgnNNjVLKAPJzoOM1sF0IMMsaL4aSEO9G+oPe9cPNdDQ qcirgTR0FjW5RMJpzJvVUsWhDHSANy32pKVqbchAhwKvBNLQAgJaJEtr/lqR Zl4tQgz0hHwEadcwbTqcdzlQyy9BSxW10Om5S5vQUpeX7I2FaVqhyX68MXyC x7ReCFTwK1BQqVdwQLlDk/0Ekm2pT5YOOD0bqOBTa2EnnLmQJ39YqUMT/bV8 Nryw3aZHB1ieakrKdMLkCZDRg/yZlRVbtDSafdFo+i00sc/TT/e5SHyxCZlS /I0wmHROKk9o7M81hkU5DRHpzFlKTIq6jDbtaP8MRKQySYn9Iv2Uwb5dGHlW UUOT+FCTsFtyz0NEerYpsQ80c/awugvKE5rEQ+Wx51ovQkSqIymxB8pjj+Ff Uh5K4ieq27495SIEmgfZe6rHvhzpEgSihvJt1WhfvraigBT8TQ1uX6t4BQJR F+WeAtr3ga6qHgr+quqxr9G9BoHIs/Oy6rGvUr4OgaiP+4JqtO/SvqGAFPyW BrcvNH8SAtE442kFtC+mv6l6vMMS0WMykr1nvRCIxn/XVI8ZUCTfUT0U/LLq Me9jz17LXghEr7VaUj3mterGu1EXiLwN51WjcYyZ97kLIAU/rcFfMcFvQSBy 9hxTwFdNxOdUTx8EX1A95k3S2Uvf6VFvrKJEz5sm4guqh4LvVj3mVYrJixCI HLFzGtG8nDV5CQK1g2ybAppXfJtnRQAp+KTq+ZkJfgcC0azBiOoxvUHzVmfR Q8EHVI/pHdjbBFNgdBNEzxcm4msGyQ1kLiTWRyxavjSy1xUqawdNLMMoIb8y 8nsQ0vyXfvzBiO5roD/bMFv+Dz1lLd8=\ \>"],ImageRangeCache->{{{0., 264.312}, {286.938, 0.}} -> {0., 0., 0., \ 0.}},ExpressionUUID->"857e667e-c1e3-4c43-aa1a-1e1e25399cab"], Cell[BoxData[ TagBox[ RowBox[{"\[SkeletonIndicator]", "Graphics3D", "\[SkeletonIndicator]"}], False, Editable->False]], "Output",ExpressionUUID->"0616f091-87f7-4bbd-afc0-\ 894d1a623086"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["4-point equations", "Subsection",ExpressionUUID->"d75f62f5-2403-45d9-ae51-1dfb6b76de8a"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"xvec", "=", RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"v", "[", "i_", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"x", "[", "i", "]"}], ",", RowBox[{"y", "[", "i", "]"}], ",", RowBox[{"z", "[", "i", "]"}]}], "}"}]}], ";"}], "\n", RowBox[{"eqns", "=", RowBox[{ RowBox[{"LogicalExpand", "[", RowBox[{"xvec", "\[Equal]", RowBox[{ RowBox[{"v", "[", "1", "]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"v", "[", "2", "]"}], "-", RowBox[{"v", "[", "1", "]"}]}], ")"}], "s"}]}], "\[Equal]", RowBox[{ RowBox[{"v", "[", "3", "]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"v", "[", "4", "]"}], "-", RowBox[{"v", "[", "3", "]"}]}], ")"}], "t"}]}]}], "]"}], "&&", RowBox[{ RowBox[{"Det", "[", RowBox[{ RowBox[{ RowBox[{"Append", "[", RowBox[{"#", ",", "1"}], "]"}], "&"}], "/@", RowBox[{"Array", "[", RowBox[{"v", ",", "4"}], "]"}]}], "]"}], "\[Equal]", "0"}]}]}]}], "Input",ExpressionUUID->"79e6c592-5c48-4ec5-a9f1-\ 37616f9d144c"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"x", "[", "1", "]"}], "+", RowBox[{"s", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"x", "[", "1", "]"}]}], "+", RowBox[{"x", "[", "2", "]"}]}], ")"}]}]}], "==", "x"}], "&&", RowBox[{ RowBox[{ RowBox[{"x", "[", "3", "]"}], "+", RowBox[{"t", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"x", "[", "3", "]"}]}], "+", RowBox[{"x", "[", "4", "]"}]}], ")"}]}]}], "==", "x"}], "&&", RowBox[{ RowBox[{ RowBox[{"y", "[", "1", "]"}], "+", RowBox[{"s", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"y", "[", "1", "]"}]}], "+", RowBox[{"y", "[", "2", "]"}]}], ")"}]}]}], "==", "y"}], "&&", RowBox[{ RowBox[{ RowBox[{"y", "[", "3", "]"}], "+", RowBox[{"t", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"y", "[", "3", "]"}]}], "+", RowBox[{"y", "[", "4", "]"}]}], ")"}]}]}], "==", "y"}], "&&", RowBox[{ RowBox[{ RowBox[{"z", "[", "1", "]"}], "+", RowBox[{"s", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"z", "[", "1", "]"}]}], "+", RowBox[{"z", "[", "2", "]"}]}], ")"}]}]}], "==", "z"}], "&&", RowBox[{ RowBox[{ RowBox[{"z", "[", "3", "]"}], "+", RowBox[{"t", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"z", "[", "3", "]"}]}], "+", RowBox[{"z", "[", "4", "]"}]}], ")"}]}]}], "==", "z"}], "&&", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"x", "[", "3", "]"}]}], " ", RowBox[{"y", "[", "2", "]"}], " ", RowBox[{"z", "[", "1", "]"}]}], "+", RowBox[{ RowBox[{"x", "[", "4", "]"}], " ", RowBox[{"y", "[", "2", "]"}], " ", RowBox[{"z", "[", "1", "]"}]}], "+", RowBox[{ RowBox[{"x", "[", "2", "]"}], " ", RowBox[{"y", "[", "3", "]"}], " ", RowBox[{"z", "[", "1", "]"}]}], "-", RowBox[{ RowBox[{"x", "[", "4", "]"}], " ", RowBox[{"y", "[", "3", "]"}], " ", RowBox[{"z", "[", "1", "]"}]}], "-", RowBox[{ RowBox[{"x", "[", "2", "]"}], " ", RowBox[{"y", "[", "4", "]"}], " ", RowBox[{"z", "[", "1", "]"}]}], "+", RowBox[{ RowBox[{"x", "[", "3", "]"}], " ", RowBox[{"y", "[", "4", "]"}], " ", RowBox[{"z", "[", "1", "]"}]}], "+", RowBox[{ RowBox[{"x", "[", "3", "]"}], " ", RowBox[{"y", "[", "1", "]"}], " ", RowBox[{"z", "[", "2", "]"}]}], "-", RowBox[{ RowBox[{"x", "[", "4", "]"}], " ", RowBox[{"y", "[", "1", "]"}], " ", RowBox[{"z", "[", "2", "]"}]}], "-", RowBox[{ RowBox[{"x", "[", "1", "]"}], " ", RowBox[{"y", "[", "3", "]"}], " ", RowBox[{"z", "[", "2", "]"}]}], "+", RowBox[{ RowBox[{"x", "[", "4", "]"}], " ", RowBox[{"y", "[", "3", "]"}], " ", RowBox[{"z", "[", "2", "]"}]}], "+", RowBox[{ RowBox[{"x", "[", "1", "]"}], " ", RowBox[{"y", "[", "4", "]"}], " ", RowBox[{"z", "[", "2", "]"}]}], "-", RowBox[{ RowBox[{"x", "[", "3", "]"}], " ", RowBox[{"y", "[", "4", "]"}], " ", RowBox[{"z", "[", "2", "]"}]}], "-", RowBox[{ RowBox[{"x", "[", "2", "]"}], " ", RowBox[{"y", "[", "1", "]"}], " ", RowBox[{"z", "[", "3", "]"}]}], "+", RowBox[{ RowBox[{"x", "[", "4", "]"}], " ", RowBox[{"y", "[", "1", "]"}], " ", RowBox[{"z", "[", "3", "]"}]}], "+", RowBox[{ RowBox[{"x", "[", "1", "]"}], " ", RowBox[{"y", "[", "2", "]"}], " ", RowBox[{"z", "[", "3", "]"}]}], "-", RowBox[{ RowBox[{"x", "[", "4", "]"}], " ", RowBox[{"y", "[", "2", "]"}], " ", RowBox[{"z", "[", "3", "]"}]}], "-", RowBox[{ RowBox[{"x", "[", "1", "]"}], " ", RowBox[{"y", "[", "4", "]"}], " ", RowBox[{"z", "[", "3", "]"}]}], "+", RowBox[{ RowBox[{"x", "[", "2", "]"}], " ", RowBox[{"y", "[", "4", "]"}], " ", RowBox[{"z", "[", "3", "]"}]}], "+", RowBox[{ RowBox[{"x", "[", "2", "]"}], " ", RowBox[{"y", "[", "1", "]"}], " ", RowBox[{"z", "[", "4", "]"}]}], "-", RowBox[{ RowBox[{"x", "[", "3", "]"}], " ", RowBox[{"y", "[", "1", "]"}], " ", RowBox[{"z", "[", "4", "]"}]}], "-", RowBox[{ RowBox[{"x", "[", "1", "]"}], " ", RowBox[{"y", "[", "2", "]"}], " ", RowBox[{"z", "[", "4", "]"}]}], "+", RowBox[{ RowBox[{"x", "[", "3", "]"}], " ", RowBox[{"y", "[", "2", "]"}], " ", RowBox[{"z", "[", "4", "]"}]}], "+", RowBox[{ RowBox[{"x", "[", "1", "]"}], " ", RowBox[{"y", "[", "3", "]"}], " ", RowBox[{"z", "[", "4", "]"}]}], "-", RowBox[{ RowBox[{"x", "[", "2", "]"}], " ", RowBox[{"y", "[", "3", "]"}], " ", RowBox[{"z", "[", "4", "]"}]}]}], "==", "0"}]}]], "Output",ExpressionUUID\ ->"57b0ee9b-a96e-4524-8c07-f2832b068b54"] }, Open ]], Cell["An example of intersecting lines", "Text",ExpressionUUID->"35d19f57-1e66-49d8-9da6-653388d9841b"], Cell[BoxData[ RowBox[{ RowBox[{"lines", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"x", "[", "1", "]"}], "->", RowBox[{"-", "1"}]}], ",", RowBox[{ RowBox[{"y", "[", "1", "]"}], "->", "0"}], ",", RowBox[{ RowBox[{"z", "[", "1", "]"}], "->", "0"}], ",", RowBox[{ RowBox[{"x", "[", "2", "]"}], "->", "4"}], ",", RowBox[{ RowBox[{"y", "[", "2", "]"}], "->", "0"}], ",", RowBox[{ RowBox[{"z", "[", "2", "]"}], "->", "0"}], ",", RowBox[{ RowBox[{"x", "[", "3", "]"}], "->", RowBox[{"-", "2"}]}], ",", RowBox[{ RowBox[{"y", "[", "3", "]"}], "->", RowBox[{"-", "2"}]}], ",", RowBox[{ RowBox[{"z", "[", "3", "]"}], "->", RowBox[{"-", "2"}]}], ",", RowBox[{ RowBox[{"x", "[", "4", "]"}], "->", "3"}], ",", RowBox[{ RowBox[{"y", "[", "4", "]"}], "->", "3"}], ",", RowBox[{ RowBox[{"z", "[", "4", "]"}], "->", "3"}]}], "}"}]}], ";"}]], "Input",Ex\ pressionUUID->"ee5a5bba-de28-400f-87a5-b1e7b07a4ae2"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"LinearSolve", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"x", "[", "2", "]"}], "-", RowBox[{"x", "[", "1", "]"}]}], ",", RowBox[{ RowBox[{"x", "[", "3", "]"}], "-", RowBox[{"x", "[", "4", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"y", "[", "2", "]"}], "-", RowBox[{"y", "[", "1", "]"}]}], ",", RowBox[{ RowBox[{"y", "[", "3", "]"}], "-", RowBox[{"y", "[", "4", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"z", "[", "2", "]"}], "-", RowBox[{"z", "[", "1", "]"}]}], ",", RowBox[{ RowBox[{"z", "[", "3", "]"}], "-", RowBox[{"z", "[", "4", "]"}]}]}], "}"}]}], "}"}], "/.", "lines"}], ",", RowBox[{ RowBox[{"-", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"x", "[", "1", "]"}], "+", RowBox[{"x", "[", "3", "]"}]}], ",", RowBox[{ RowBox[{"y", "[", "1", "]"}], "+", RowBox[{"y", "[", "3", "]"}]}], ",", RowBox[{ RowBox[{"z", "[", "1", "]"}], "+", RowBox[{"z", "[", "3", "]"}]}]}], "}"}]}], "/.", "lines"}]}], "]"}]], "Input",ExpressionUUID->"0eea3cc1-37b9-4290-b405-b3672edad7bc"], Cell[BoxData[ RowBox[{"{", RowBox[{ FractionBox["1", "5"], ",", RowBox[{"-", FractionBox["2", "5"]}]}], "}"}]], "Output",ExpressionUUID->"3974247b-\ 0bb5-4a77-86da-fa015207d208"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Intersection3D", "[", RowBox[{ RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "0", ",", "0"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{"-", "2"}], ",", RowBox[{"-", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "3", ",", "3"}], "}"}]}], "}"}], "]"}]}], "]"}]], "Input",ExpressionUUID->"16f04c7a-7a49-4790-bf5c-938ef452f1f5"], Cell[BoxData[ RowBox[{"Point", "[", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], "]"}]], "Output",ExpressionUUID->\ "20fd2ee0-a32f-46d6-9801-5b2011fc19d5"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Intersection3D", "[", RowBox[{ RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "1", ",", "0"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{"-", "2"}], ",", RowBox[{"-", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "3", ",", "3"}], "}"}]}], "}"}], "]"}]}], "]"}]], "Input",ExpressionUUID->"43b97d5c-9d83-4290-83ab-4ed123509c27"], Cell[BoxData[ RowBox[{ RowBox[{"LinearSolve", "::", "\<\"nosol\"\>"}], ":", " ", "\<\"Linear equation encountered which has no solution. \ (\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", \ ButtonStyle->\\\"OtherInformationLink\\\", ButtonFrame->None, \ ButtonData:>\\\"LinearSolve::nosol\\\"]\\))\"\>"}]], "Message",ExpressionUUID-\ >"26ba8058-d3ea-4cf2-a1e6-5e0487a9f82e"], Cell[BoxData[ RowBox[{ RowBox[{"Intersection3D", "::", "\<\"skewlines\"\>"}], ":", " ", "\<\"Specified lines are skew and have no intersection.\"\>"}]], \ "Message",ExpressionUUID->"13a78df0-a52d-4f13-b9be-1dd878aea089"], Cell[BoxData[ RowBox[{"{", "}"}]], "Output",ExpressionUUID->"1fc5acc0-f15d-4663-865f-4f6f88090762"] }, Open ]], Cell["Direct solution", "Text",ExpressionUUID->"6447c999-a66d-415b-9862-42105f30a50c"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"NSolve", "[", RowBox[{ RowBox[{"eqns", "/.", "lines"}], ",", RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}], ",", RowBox[{"{", RowBox[{"s", ",", "t"}], "}"}]}], "]"}]], "Input",ExpressionUUID->\ "4161fb9e-5f95-42d5-a83f-c146b9a60f6a"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", "0"}], ",", RowBox[{"y", "\[Rule]", "0"}], ",", RowBox[{"z", "\[Rule]", "0"}]}], "}"}], "}"}]], "Output",ExpressionUUID->\ "108fe614-2638-49cf-a2a6-db3b4c3c6a33"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{"eqns", "/.", "lines"}], ",", RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}], ",", RowBox[{"{", RowBox[{"s", ",", "t"}], "}"}]}], "]"}]], "Input",ExpressionUUID->\ "ab805dc4-f777-430b-8122-3f048626caaf"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", "0"}], ",", RowBox[{"y", "\[Rule]", "0"}], ",", RowBox[{"z", "\[Rule]", "0"}]}], "}"}], "}"}]], "Output",ExpressionUUID->\ "3248504e-09d7-44bc-a115-ae06526affb3"] }, Open ]], Cell["Analytic solution", "Text",ExpressionUUID->"545690a2-428d-4693-9660-3ee031137a1c"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"soln", "=", RowBox[{"FullSimplify", "[", RowBox[{"Eliminate", "[", RowBox[{"eqns", ",", RowBox[{"{", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}]}], "]"}], "]"}]}]], "Input",ExpressionUUID->"8180b76f-c4f2-4a75-84f5-a37d0f02a71a"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"x", "[", "4", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "s"}], ")"}], " ", RowBox[{"y", "[", "1", "]"}]}], "-", RowBox[{"s", " ", RowBox[{"y", "[", "2", "]"}]}], "+", RowBox[{"y", "[", "3", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"x", "[", "3", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"y", "[", "1", "]"}], "-", RowBox[{"s", " ", RowBox[{"y", "[", "1", "]"}]}], "+", RowBox[{"s", " ", RowBox[{"y", "[", "2", "]"}]}], "-", RowBox[{"y", "[", "4", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "s"}], ")"}], " ", RowBox[{"x", "[", "1", "]"}]}], "-", RowBox[{"s", " ", RowBox[{"x", "[", "2", "]"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"y", "[", "3", "]"}], "-", RowBox[{"y", "[", "4", "]"}]}], ")"}]}]}], "==", "0"}], "&&", RowBox[{ RowBox[{ RowBox[{ RowBox[{"x", "[", "4", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "s"}], ")"}], " ", RowBox[{"z", "[", "1", "]"}]}], "-", RowBox[{"s", " ", RowBox[{"z", "[", "2", "]"}]}], "+", RowBox[{"z", "[", "3", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"x", "[", "3", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"z", "[", "1", "]"}], "-", RowBox[{"s", " ", RowBox[{"z", "[", "1", "]"}]}], "+", RowBox[{"s", " ", RowBox[{"z", "[", "2", "]"}]}], "-", RowBox[{"z", "[", "4", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "s"}], ")"}], " ", RowBox[{"x", "[", "1", "]"}]}], "-", RowBox[{"s", " ", RowBox[{"x", "[", "2", "]"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"z", "[", "3", "]"}], "-", RowBox[{"z", "[", "4", "]"}]}], ")"}]}]}], "==", "0"}], "&&", RowBox[{ RowBox[{ RowBox[{ RowBox[{"y", "[", "4", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "s"}], ")"}], " ", RowBox[{"z", "[", "1", "]"}]}], "-", RowBox[{"s", " ", RowBox[{"z", "[", "2", "]"}]}], "+", RowBox[{"z", "[", "3", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"y", "[", "3", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"z", "[", "1", "]"}], "-", RowBox[{"s", " ", RowBox[{"z", "[", "1", "]"}]}], "+", RowBox[{"s", " ", RowBox[{"z", "[", "2", "]"}]}], "-", RowBox[{"z", "[", "4", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "s"}], ")"}], " ", RowBox[{"y", "[", "1", "]"}]}], "-", RowBox[{"s", " ", RowBox[{"y", "[", "2", "]"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"z", "[", "3", "]"}], "-", RowBox[{"z", "[", "4", "]"}]}], ")"}]}]}], "==", "0"}], "&&", RowBox[{ RowBox[{ RowBox[{ RowBox[{"x", "[", "3", "]"}], " ", RowBox[{"y", "[", "4", "]"}], " ", RowBox[{"z", "[", "1", "]"}]}], "+", RowBox[{ RowBox[{"x", "[", "3", "]"}], " ", RowBox[{"y", "[", "1", "]"}], " ", RowBox[{"z", "[", "2", "]"}]}], "+", RowBox[{ RowBox[{"x", "[", "1", "]"}], " ", RowBox[{"y", "[", "4", "]"}], " ", RowBox[{"z", "[", "2", "]"}]}], "+", RowBox[{ RowBox[{"x", "[", "1", "]"}], " ", RowBox[{"y", "[", "2", "]"}], " ", RowBox[{"z", "[", "3", "]"}]}], "+", RowBox[{ RowBox[{"x", "[", "4", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"y", "[", "2", "]"}], " ", RowBox[{"z", "[", "1", "]"}]}], "+", RowBox[{ RowBox[{"y", "[", "3", "]"}], " ", RowBox[{"z", "[", "2", "]"}]}], "+", RowBox[{ RowBox[{"y", "[", "1", "]"}], " ", RowBox[{"z", "[", "3", "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"x", "[", "3", "]"}], " ", RowBox[{"y", "[", "2", "]"}], " ", RowBox[{"z", "[", "4", "]"}]}], "+", RowBox[{ RowBox[{"x", "[", "1", "]"}], " ", RowBox[{"y", "[", "3", "]"}], " ", RowBox[{"z", "[", "4", "]"}]}], "+", RowBox[{ RowBox[{"x", "[", "2", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"y", "[", "3", "]"}], " ", RowBox[{"z", "[", "1", "]"}]}], "+", RowBox[{ RowBox[{"y", "[", "4", "]"}], " ", RowBox[{"z", "[", "3", "]"}]}], "+", RowBox[{ RowBox[{"y", "[", "1", "]"}], " ", RowBox[{"z", "[", "4", "]"}]}]}], ")"}]}]}], "==", RowBox[{ RowBox[{ RowBox[{"x", "[", "2", "]"}], " ", RowBox[{"y", "[", "4", "]"}], " ", RowBox[{"z", "[", "1", "]"}]}], "+", RowBox[{ RowBox[{"x", "[", "1", "]"}], " ", RowBox[{"y", "[", "3", "]"}], " ", RowBox[{"z", "[", "2", "]"}]}], "+", RowBox[{ RowBox[{"x", "[", "2", "]"}], " ", RowBox[{"y", "[", "1", "]"}], " ", RowBox[{"z", "[", "3", "]"}]}], "+", RowBox[{ RowBox[{"x", "[", "1", "]"}], " ", RowBox[{"y", "[", "4", "]"}], " ", RowBox[{"z", "[", "3", "]"}]}], "+", RowBox[{ RowBox[{"x", "[", "4", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"y", "[", "3", "]"}], " ", RowBox[{"z", "[", "1", "]"}]}], "+", RowBox[{ RowBox[{"y", "[", "1", "]"}], " ", RowBox[{"z", "[", "2", "]"}]}], "+", RowBox[{ RowBox[{"y", "[", "2", "]"}], " ", RowBox[{"z", "[", "3", "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"x", "[", "1", "]"}], " ", RowBox[{"y", "[", "2", "]"}], " ", RowBox[{"z", "[", "4", "]"}]}], "+", RowBox[{ RowBox[{"x", "[", "2", "]"}], " ", RowBox[{"y", "[", "3", "]"}], " ", RowBox[{"z", "[", "4", "]"}]}], "+", RowBox[{ RowBox[{"x", "[", "3", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"y", "[", "2", "]"}], " ", RowBox[{"z", "[", "1", "]"}]}], "+", RowBox[{ RowBox[{"y", "[", "4", "]"}], " ", RowBox[{"z", "[", "2", "]"}]}], "+", RowBox[{ RowBox[{"y", "[", "1", "]"}], " ", RowBox[{"z", "[", "4", "]"}]}]}], ")"}]}]}]}]}]], "Output",ExpressionU\ UID->"0a73670c-feaf-4651-a1b6-d9012f5ebbfe"] }, Open ]], Cell["\<\ The last condition is simply that the four points be coplanar\ \>", "Text",ExpressionUUID->"5366406a-957b-4cd4-ad1b-33603f6c7b54"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Expand", "[", RowBox[{ RowBox[{"Subtract", "@@", RowBox[{"Last", "[", "soln", "]"}]}], "-", RowBox[{"Det", "[", RowBox[{ RowBox[{ RowBox[{"Append", "[", RowBox[{"#", ",", "1"}], "]"}], "&"}], "/@", RowBox[{"Array", "[", RowBox[{"v", ",", "4"}], "]"}]}], "]"}]}], "]"}]], "Input",ExpressionUUI\ D->"bee0ed79-1298-4302-81d6-1d0c61395e31"], Cell[BoxData["0"], "Output",ExpressionUUID->"9cf6cc94-a564-428c-9249-899e74bdb04f"] }, Open ]], Cell["Here are the other solutions", "Text",ExpressionUUID->"2a2258de-27eb-4441-ad13-7b8d02c1fc7c"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ss", "=", RowBox[{"FullSimplify", "[", RowBox[{"Flatten", "[", RowBox[{"List", "@@", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Solve", "[", RowBox[{"#", ",", "s"}], "]"}], "&"}], "/@", RowBox[{"Drop", "[", RowBox[{"soln", ",", RowBox[{"-", "1"}]}], "]"}]}], ")"}]}], "]"}], "]"}]}]], "Input",Expr\ essionUUID->"42de7b18-c6d6-413f-8342-9b19ad4e6edc"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"s", "\[Rule]", FractionBox[ RowBox[{ RowBox[{ RowBox[{"x", "[", "4", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"y", "[", "1", "]"}]}], "+", RowBox[{"y", "[", "3", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"x", "[", "3", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"y", "[", "1", "]"}], "-", RowBox[{"y", "[", "4", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"x", "[", "1", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"y", "[", "3", "]"}]}], "+", RowBox[{"y", "[", "4", "]"}]}], ")"}]}]}], RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "[", "3", "]"}], "-", RowBox[{"x", "[", "4", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"y", "[", "1", "]"}], "-", RowBox[{"y", "[", "2", "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "[", "1", "]"}], "-", RowBox[{"x", "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"y", "[", "3", "]"}], "-", RowBox[{"y", "[", "4", "]"}]}], ")"}]}]}]]}], ",", RowBox[{"s", "\[Rule]", FractionBox[ RowBox[{ RowBox[{ RowBox[{"x", "[", "4", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"z", "[", "1", "]"}]}], "+", RowBox[{"z", "[", "3", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"x", "[", "3", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"z", "[", "1", "]"}], "-", RowBox[{"z", "[", "4", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"x", "[", "1", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"z", "[", "3", "]"}]}], "+", RowBox[{"z", "[", "4", "]"}]}], ")"}]}]}], RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "[", "3", "]"}], "-", RowBox[{"x", "[", "4", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"z", "[", "1", "]"}], "-", RowBox[{"z", "[", "2", "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "[", "1", "]"}], "-", RowBox[{"x", "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"z", "[", "3", "]"}], "-", RowBox[{"z", "[", "4", "]"}]}], ")"}]}]}]]}], ",", RowBox[{"s", "\[Rule]", FractionBox[ RowBox[{ RowBox[{ RowBox[{"y", "[", "4", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"z", "[", "1", "]"}]}], "+", RowBox[{"z", "[", "3", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"y", "[", "3", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"z", "[", "1", "]"}], "-", RowBox[{"z", "[", "4", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"y", "[", "1", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"z", "[", "3", "]"}]}], "+", RowBox[{"z", "[", "4", "]"}]}], ")"}]}]}], RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"y", "[", "3", "]"}], "-", RowBox[{"y", "[", "4", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"z", "[", "1", "]"}], "-", RowBox[{"z", "[", "2", "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"y", "[", "1", "]"}], "-", RowBox[{"y", "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"z", "[", "3", "]"}], "-", RowBox[{"z", "[", "4", "]"}]}], ")"}]}]}]]}]}], "}"}]], "Output",Expr\ essionUUID->"f990df5d-065b-4fad-893b-d6f1626ca41f"] }, Open ]], Cell["Plugging these back in gives one singular solution", "Text",ExpressionUUID->"6e9e0ca8-a3e7-4d1a-a1ef-eda61209e161"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"v", "[", "1", "]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"v", "[", "2", "]"}], "-", RowBox[{"v", "[", "1", "]"}]}], ")"}], "s"}]}], "/.", "#"}], "&"}], "/@", "ss"}], "/.", "lines"}]], "Input",ExpressionUUID->"77f07eb4-a738-4926-\ b4a5-c20200d12382"], Cell[BoxData[ RowBox[{ RowBox[{"Power", "::", "\<\"infy\"\>"}], ":", " ", "\<\"Infinite expression \\!\\(1\\/0\\) encountered. \ (\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", \ ButtonStyle->\\\"OtherInformationLink\\\", ButtonFrame->None, \ ButtonData:>\\\"Power::infy\\\"]\\))\"\>"}]], "Message",ExpressionUUID->\ "fc6438cc-6259-4a2f-b397-5760588528f9"], Cell[BoxData[ RowBox[{ RowBox[{"\[Infinity]", "::", "\<\"indet\"\>"}], ":", " ", "\<\"Indeterminate expression \\!\\(0\\\\ \ \\*InterpretationBox[\\\"ComplexInfinity\\\", DirectedInfinity[]]\\) \ encountered. (\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", \ ButtonStyle->\\\"OtherInformationLink\\\", ButtonFrame->None, \ ButtonData:>\\\"function::indet\\\"]\\))\"\>"}]], "Message",ExpressionUUID->\ "4abadf1f-0c1d-45f2-8ed0-791748c66219"], Cell[BoxData[ RowBox[{ RowBox[{"Power", "::", "\<\"infy\"\>"}], ":", " ", "\<\"Infinite expression \\!\\(1\\/0\\) encountered. \ (\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", \ ButtonStyle->\\\"OtherInformationLink\\\", ButtonFrame->None, \ ButtonData:>\\\"Power::infy\\\"]\\))\"\>"}]], "Message",ExpressionUUID->\ "0d885156-4896-47de-bca0-50526abc19a9"], Cell[BoxData[ RowBox[{ RowBox[{"\[Infinity]", "::", "\<\"indet\"\>"}], ":", " ", "\<\"Indeterminate expression \\!\\(0\\\\ \ \\*InterpretationBox[\\\"ComplexInfinity\\\", DirectedInfinity[]]\\) \ encountered. (\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", \ ButtonStyle->\\\"OtherInformationLink\\\", ButtonFrame->None, \ ButtonData:>\\\"function::indet\\\"]\\))\"\>"}]], "Message",ExpressionUUID->\ "e06f4c78-6096-4ed2-a80f-128baae26d0a"], Cell[BoxData[ RowBox[{ RowBox[{"Power", "::", "\<\"infy\"\>"}], ":", " ", "\<\"Infinite expression \\!\\(1\\/0\\) encountered. \ (\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", \ ButtonStyle->\\\"OtherInformationLink\\\", ButtonFrame->None, \ ButtonData:>\\\"Power::infy\\\"]\\))\"\>"}]], "Message",ExpressionUUID->\ "ded1a365-1d55-41ff-a69b-9b1eefb0c78c"], Cell[BoxData[ RowBox[{ RowBox[{"General", "::", "\<\"stop\"\>"}], ":", " ", "\<\"Further output of \\!\\(Power :: \\\"infy\\\"\\) will be \ suppressed during this calculation. (\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\ \", ButtonStyle->\\\"OtherInformationLink\\\", ButtonFrame->None, \ ButtonData:>\\\"function::stop\\\"]\\))\"\>"}]], "Message",ExpressionUUID->\ "a6a62a50-167b-4d2e-a031-91308ecd29b2"], Cell[BoxData[ RowBox[{ RowBox[{"\[Infinity]", "::", "\<\"indet\"\>"}], ":", " ", "\<\"Indeterminate expression \\!\\(0\\\\ \ \\*InterpretationBox[\\\"ComplexInfinity\\\", DirectedInfinity[]]\\) \ encountered. (\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", \ ButtonStyle->\\\"OtherInformationLink\\\", ButtonFrame->None, \ ButtonData:>\\\"function::indet\\\"]\\))\"\>"}]], "Message",ExpressionUUID->\ "351b6fa0-0f00-4310-8d56-3a8456799345"], Cell[BoxData[ RowBox[{ RowBox[{"General", "::", "\<\"stop\"\>"}], ":", " ", "\<\"Further output of \\!\\(\[Infinity] :: \\\"indet\\\"\\) will be \ suppressed during this calculation. (\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\ \", ButtonStyle->\\\"OtherInformationLink\\\", ButtonFrame->None, \ ButtonData:>\\\"function::stop\\\"]\\))\"\>"}]], "Message",ExpressionUUID->\ "79ce2d6c-f509-4218-8dca-f5ce72bdaf29"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"Indeterminate", ",", "Indeterminate", ",", "Indeterminate"}], "}"}]}], "}"}]], "Output",ExpressionUUID->"9b4a6de0-2437-42ff-a335-\ d642d7070633"] }, Open ]], Cell["\<\ In general, there are three solutions, which are either identical or singular\ \ \>", "Text",ExpressionUUID->"17d17d8d-c869-4524-aac1-d766e599ddfa"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"v", "[", "1", "]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"v", "[", "2", "]"}], "-", RowBox[{"v", "[", "1", "]"}]}], ")"}], "s"}]}], "/.", "#"}], "&"}], "/@", "ss"}]], "Input",ExpressionUUID->"5c36ace0-4f22-4335-9dc7-751ada5ae124"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"x", "[", "1", "]"}], "+", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"x", "[", "1", "]"}]}], "+", RowBox[{"x", "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"x", "[", "4", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"y", "[", "1", "]"}]}], "+", RowBox[{"y", "[", "3", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"x", "[", "3", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"y", "[", "1", "]"}], "-", RowBox[{"y", "[", "4", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"x", "[", "1", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"y", "[", "3", "]"}]}], "+", RowBox[{"y", "[", "4", "]"}]}], ")"}]}]}], ")"}]}], RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "[", "3", "]"}], "-", RowBox[{"x", "[", "4", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"y", "[", "1", "]"}], "-", RowBox[{"y", "[", "2", "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "[", "1", "]"}], "-", RowBox[{"x", "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"y", "[", "3", "]"}], "-", RowBox[{"y", "[", "4", "]"}]}], ")"}]}]}]]}], ",", RowBox[{ RowBox[{"y", "[", "1", "]"}], "+", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"y", "[", "1", "]"}]}], "+", RowBox[{"y", "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"x", "[", "4", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"y", "[", "1", "]"}]}], "+", RowBox[{"y", "[", "3", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"x", "[", "3", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"y", "[", "1", "]"}], "-", RowBox[{"y", "[", "4", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"x", "[", "1", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"y", "[", "3", "]"}]}], "+", RowBox[{"y", "[", "4", "]"}]}], ")"}]}]}], ")"}]}], RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "[", "3", "]"}], "-", RowBox[{"x", "[", "4", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"y", "[", "1", "]"}], "-", RowBox[{"y", "[", "2", "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "[", "1", "]"}], "-", RowBox[{"x", "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"y", "[", "3", "]"}], "-", RowBox[{"y", "[", "4", "]"}]}], ")"}]}]}]]}], ",", RowBox[{ RowBox[{"z", "[", "1", "]"}], "+", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"x", "[", "4", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"y", "[", "1", "]"}]}], "+", RowBox[{"y", "[", "3", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"x", "[", "3", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"y", "[", "1", "]"}], "-", RowBox[{"y", "[", "4", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"x", "[", "1", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"y", "[", "3", "]"}]}], "+", RowBox[{"y", "[", "4", "]"}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"z", "[", "1", "]"}]}], "+", RowBox[{"z", "[", "2", "]"}]}], ")"}]}], RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "[", "3", "]"}], "-", RowBox[{"x", "[", "4", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"y", "[", "1", "]"}], "-", RowBox[{"y", "[", "2", "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "[", "1", "]"}], "-", RowBox[{"x", "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"y", "[", "3", "]"}], "-", RowBox[{"y", "[", "4", "]"}]}], ")"}]}]}]]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"x", "[", "1", "]"}], "+", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"x", "[", "1", "]"}]}], "+", RowBox[{"x", "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"x", "[", "4", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"z", "[", "1", "]"}]}], "+", RowBox[{"z", "[", "3", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"x", "[", "3", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"z", "[", "1", "]"}], "-", RowBox[{"z", "[", "4", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"x", "[", "1", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"z", "[", "3", "]"}]}], "+", RowBox[{"z", "[", "4", "]"}]}], ")"}]}]}], ")"}]}], RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "[", "3", "]"}], "-", RowBox[{"x", "[", "4", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"z", "[", "1", "]"}], "-", RowBox[{"z", "[", "2", "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "[", "1", "]"}], "-", RowBox[{"x", "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"z", "[", "3", "]"}], "-", RowBox[{"z", "[", "4", "]"}]}], ")"}]}]}]]}], ",", RowBox[{ RowBox[{"y", "[", "1", "]"}], "+", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"y", "[", "1", "]"}]}], "+", RowBox[{"y", "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"x", "[", "4", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"z", "[", "1", "]"}]}], "+", RowBox[{"z", "[", "3", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"x", "[", "3", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"z", "[", "1", "]"}], "-", RowBox[{"z", "[", "4", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"x", "[", "1", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"z", "[", "3", "]"}]}], "+", RowBox[{"z", "[", "4", "]"}]}], ")"}]}]}], ")"}]}], RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "[", "3", "]"}], "-", RowBox[{"x", "[", "4", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"z", "[", "1", "]"}], "-", RowBox[{"z", "[", "2", "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "[", "1", "]"}], "-", RowBox[{"x", "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"z", "[", "3", "]"}], "-", RowBox[{"z", "[", "4", "]"}]}], ")"}]}]}]]}], ",", RowBox[{ RowBox[{"z", "[", "1", "]"}], "+", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"z", "[", "1", "]"}]}], "+", RowBox[{"z", "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"x", "[", "4", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"z", "[", "1", "]"}]}], "+", RowBox[{"z", "[", "3", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"x", "[", "3", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"z", "[", "1", "]"}], "-", RowBox[{"z", "[", "4", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"x", "[", "1", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"z", "[", "3", "]"}]}], "+", RowBox[{"z", "[", "4", "]"}]}], ")"}]}]}], ")"}]}], RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "[", "3", "]"}], "-", RowBox[{"x", "[", "4", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"z", "[", "1", "]"}], "-", RowBox[{"z", "[", "2", "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "[", "1", "]"}], "-", RowBox[{"x", "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"z", "[", "3", "]"}], "-", RowBox[{"z", "[", "4", "]"}]}], ")"}]}]}]]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"x", "[", "1", "]"}], "+", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"x", "[", "1", "]"}]}], "+", RowBox[{"x", "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"y", "[", "4", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"z", "[", "1", "]"}]}], "+", RowBox[{"z", "[", "3", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"y", "[", "3", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"z", "[", "1", "]"}], "-", RowBox[{"z", "[", "4", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"y", "[", "1", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"z", "[", "3", "]"}]}], "+", RowBox[{"z", "[", "4", "]"}]}], ")"}]}]}], ")"}]}], RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"y", "[", "3", "]"}], "-", RowBox[{"y", "[", "4", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"z", "[", "1", "]"}], "-", RowBox[{"z", "[", "2", "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"y", "[", "1", "]"}], "-", RowBox[{"y", "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"z", "[", "3", "]"}], "-", RowBox[{"z", "[", "4", "]"}]}], ")"}]}]}]]}], ",", RowBox[{ RowBox[{"y", "[", "1", "]"}], "+", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"y", "[", "1", "]"}]}], "+", RowBox[{"y", "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"y", "[", "4", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"z", "[", "1", "]"}]}], "+", RowBox[{"z", "[", "3", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"y", "[", "3", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"z", "[", "1", "]"}], "-", RowBox[{"z", "[", "4", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"y", "[", "1", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"z", "[", "3", "]"}]}], "+", RowBox[{"z", "[", "4", "]"}]}], ")"}]}]}], ")"}]}], RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"y", "[", "3", "]"}], "-", RowBox[{"y", "[", "4", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"z", "[", "1", "]"}], "-", RowBox[{"z", "[", "2", "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"y", "[", "1", "]"}], "-", RowBox[{"y", "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"z", "[", "3", "]"}], "-", RowBox[{"z", "[", "4", "]"}]}], ")"}]}]}]]}], ",", RowBox[{ RowBox[{"z", "[", "1", "]"}], "+", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"z", "[", "1", "]"}]}], "+", RowBox[{"z", "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"y", "[", "4", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"z", "[", "1", "]"}]}], "+", RowBox[{"z", "[", "3", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"y", "[", "3", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"z", "[", "1", "]"}], "-", RowBox[{"z", "[", "4", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"y", "[", "1", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"z", "[", "3", "]"}]}], "+", RowBox[{"z", "[", "4", "]"}]}], ")"}]}]}], ")"}]}], RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"y", "[", "3", "]"}], "-", RowBox[{"y", "[", "4", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"z", "[", "1", "]"}], "-", RowBox[{"z", "[", "2", "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"y", "[", "1", "]"}], "-", RowBox[{"y", "[", "2", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"z", "[", "3", "]"}], "-", RowBox[{"z", "[", "4", "]"}]}], ")"}]}]}]]}]}], "}"}]}], "}"}]], "Output",ExpressionUUID->"8cc56e6b-5771-4db0-b513-d82d29057978"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Simplify", "[", RowBox[{"Together", "[", RowBox[{ RowBox[{ RowBox[{"v", "[", "1", "]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"v", "[", "2", "]"}], "-", RowBox[{"v", "[", "1", "]"}]}], ")"}], "s"}]}], "/.", "#"}], "]"}], "]"}], "&"}], "/@", "ss"}], "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"x", "[", "n_", "]"}], "\[RuleDelayed]", RowBox[{"Subscript", "[", RowBox[{"x", ",", "n"}], "]"}]}], ",", RowBox[{ RowBox[{"y", "[", "n_", "]"}], "\[RuleDelayed]", RowBox[{"Subscript", "[", RowBox[{"y", ",", "n"}], "]"}]}], ",", RowBox[{ RowBox[{"z", "[", "n_", "]"}], "\[RuleDelayed]", RowBox[{"Subscript", "[", RowBox[{"z", ",", "n"}], "]"}]}]}], "}"}]}]], "Input",ExpressionUUID->\ "df368893-8292-4015-95bd-27649dbdf5c0"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox[ RowBox[{ RowBox[{ SubscriptBox["x", "1"], " ", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["x", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["y", "2"]}], "+", SubscriptBox["y", "3"]}], ")"}]}], "+", RowBox[{ SubscriptBox["x", "3"], " ", RowBox[{"(", RowBox[{ SubscriptBox["y", "2"], "-", SubscriptBox["y", "4"]}], ")"}]}]}], ")"}]}], "+", RowBox[{ SubscriptBox["x", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["x", "4"], " ", RowBox[{"(", RowBox[{ SubscriptBox["y", "1"], "-", SubscriptBox["y", "3"]}], ")"}]}], "+", RowBox[{ SubscriptBox["x", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["y", "1"]}], "+", SubscriptBox["y", "4"]}], ")"}]}]}], ")"}]}]}], RowBox[{ RowBox[{ SubscriptBox["x", "4"], " ", RowBox[{"(", RowBox[{ SubscriptBox["y", "1"], "-", SubscriptBox["y", "2"]}], ")"}]}], "+", RowBox[{ SubscriptBox["x", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["y", "1"]}], "+", SubscriptBox["y", "2"]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["x", "1"], "-", SubscriptBox["x", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{ SubscriptBox["y", "3"], "-", SubscriptBox["y", "4"]}], ")"}]}]}]], ",", FractionBox[ RowBox[{ RowBox[{ SubscriptBox["x", "4"], " ", RowBox[{"(", RowBox[{ SubscriptBox["y", "1"], "-", SubscriptBox["y", "2"]}], ")"}], " ", SubscriptBox["y", "3"]}], "+", RowBox[{ SubscriptBox["x", "1"], " ", SubscriptBox["y", "2"], " ", SubscriptBox["y", "3"]}], "-", RowBox[{ SubscriptBox["x", "3"], " ", SubscriptBox["y", "1"], " ", SubscriptBox["y", "4"]}], "-", RowBox[{ SubscriptBox["x", "1"], " ", SubscriptBox["y", "2"], " ", SubscriptBox["y", "4"]}], "+", RowBox[{ SubscriptBox["x", "3"], " ", SubscriptBox["y", "2"], " ", SubscriptBox["y", "4"]}], "+", RowBox[{ SubscriptBox["x", "2"], " ", SubscriptBox["y", "1"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["y", "3"]}], "+", SubscriptBox["y", "4"]}], ")"}]}]}], RowBox[{ RowBox[{ SubscriptBox["x", "4"], " ", RowBox[{"(", RowBox[{ SubscriptBox["y", "1"], "-", SubscriptBox["y", "2"]}], ")"}]}], "+", RowBox[{ SubscriptBox["x", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["y", "1"]}], "+", SubscriptBox["y", "2"]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["x", "1"], "-", SubscriptBox["x", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{ SubscriptBox["y", "3"], "-", SubscriptBox["y", "4"]}], ")"}]}]}]], ",", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ SubscriptBox["y", "3"], "-", SubscriptBox["y", "4"]}], ")"}]}], " ", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["x", "2"], " ", SubscriptBox["z", "1"]}], "-", RowBox[{ SubscriptBox["x", "1"], " ", SubscriptBox["z", "2"]}]}], ")"}]}], "+", RowBox[{ SubscriptBox["x", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["y", "2"]}], " ", SubscriptBox["z", "1"]}], "+", RowBox[{ SubscriptBox["y", "3"], " ", RowBox[{"(", RowBox[{ SubscriptBox["z", "1"], "-", SubscriptBox["z", "2"]}], ")"}]}], "+", RowBox[{ SubscriptBox["y", "1"], " ", SubscriptBox["z", "2"]}]}], ")"}]}], "+", RowBox[{ SubscriptBox["x", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["y", "2"], " ", SubscriptBox["z", "1"]}], "-", RowBox[{ SubscriptBox["y", "1"], " ", SubscriptBox["z", "2"]}], "+", RowBox[{ SubscriptBox["y", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["z", "1"]}], "+", SubscriptBox["z", "2"]}], ")"}]}]}], ")"}]}]}], RowBox[{ RowBox[{ SubscriptBox["x", "4"], " ", RowBox[{"(", RowBox[{ SubscriptBox["y", "1"], "-", SubscriptBox["y", "2"]}], ")"}]}], "+", RowBox[{ SubscriptBox["x", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["y", "1"]}], "+", SubscriptBox["y", "2"]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["x", "1"], "-", SubscriptBox["x", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{ SubscriptBox["y", "3"], "-", SubscriptBox["y", "4"]}], ")"}]}]}]]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox[ RowBox[{ RowBox[{ SubscriptBox["x", "1"], " ", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["x", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["z", "2"]}], "+", SubscriptBox["z", "3"]}], ")"}]}], "+", RowBox[{ SubscriptBox["x", "3"], " ", RowBox[{"(", RowBox[{ SubscriptBox["z", "2"], "-", SubscriptBox["z", "4"]}], ")"}]}]}], ")"}]}], "+", RowBox[{ SubscriptBox["x", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["x", "4"], " ", RowBox[{"(", RowBox[{ SubscriptBox["z", "1"], "-", SubscriptBox["z", "3"]}], ")"}]}], "+", RowBox[{ SubscriptBox["x", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["z", "1"]}], "+", SubscriptBox["z", "4"]}], ")"}]}]}], ")"}]}]}], RowBox[{ RowBox[{ SubscriptBox["x", "4"], " ", RowBox[{"(", RowBox[{ SubscriptBox["z", "1"], "-", SubscriptBox["z", "2"]}], ")"}]}], "+", RowBox[{ SubscriptBox["x", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["z", "1"]}], "+", SubscriptBox["z", "2"]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["x", "1"], "-", SubscriptBox["x", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{ SubscriptBox["z", "3"], "-", SubscriptBox["z", "4"]}], ")"}]}]}]], ",", FractionBox[ RowBox[{ RowBox[{ SubscriptBox["x", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["y", "2"], " ", RowBox[{"(", RowBox[{ SubscriptBox["z", "1"], "-", SubscriptBox["z", "3"]}], ")"}]}], "+", RowBox[{ SubscriptBox["y", "1"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["z", "2"]}], "+", SubscriptBox["z", "3"]}], ")"}]}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["x", "2"], " ", SubscriptBox["y", "1"]}], "-", RowBox[{ SubscriptBox["x", "1"], " ", SubscriptBox["y", "2"]}]}], ")"}], " ", RowBox[{"(", RowBox[{ SubscriptBox["z", "3"], "-", SubscriptBox["z", "4"]}], ")"}]}], "+", RowBox[{ SubscriptBox["x", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["y", "1"], " ", RowBox[{"(", RowBox[{ SubscriptBox["z", "2"], "-", SubscriptBox["z", "4"]}], ")"}]}], "+", RowBox[{ SubscriptBox["y", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["z", "1"]}], "+", SubscriptBox["z", "4"]}], ")"}]}]}], ")"}]}]}], RowBox[{ RowBox[{ SubscriptBox["x", "4"], " ", RowBox[{"(", RowBox[{ SubscriptBox["z", "1"], "-", SubscriptBox["z", "2"]}], ")"}]}], "+", RowBox[{ SubscriptBox["x", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["z", "1"]}], "+", SubscriptBox["z", "2"]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["x", "1"], "-", SubscriptBox["x", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{ SubscriptBox["z", "3"], "-", SubscriptBox["z", "4"]}], ")"}]}]}]], ",", FractionBox[ RowBox[{ RowBox[{ SubscriptBox["x", "4"], " ", RowBox[{"(", RowBox[{ SubscriptBox["z", "1"], "-", SubscriptBox["z", "2"]}], ")"}], " ", SubscriptBox["z", "3"]}], "+", RowBox[{ SubscriptBox["x", "1"], " ", SubscriptBox["z", "2"], " ", SubscriptBox["z", "3"]}], "-", RowBox[{ SubscriptBox["x", "3"], " ", SubscriptBox["z", "1"], " ", SubscriptBox["z", "4"]}], "-", RowBox[{ SubscriptBox["x", "1"], " ", SubscriptBox["z", "2"], " ", SubscriptBox["z", "4"]}], "+", RowBox[{ SubscriptBox["x", "3"], " ", SubscriptBox["z", "2"], " ", SubscriptBox["z", "4"]}], "+", RowBox[{ SubscriptBox["x", "2"], " ", SubscriptBox["z", "1"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["z", "3"]}], "+", SubscriptBox["z", "4"]}], ")"}]}]}], RowBox[{ RowBox[{ SubscriptBox["x", "4"], " ", RowBox[{"(", RowBox[{ SubscriptBox["z", "1"], "-", SubscriptBox["z", "2"]}], ")"}]}], "+", RowBox[{ SubscriptBox["x", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["z", "1"]}], "+", SubscriptBox["z", "2"]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["x", "1"], "-", SubscriptBox["x", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{ SubscriptBox["z", "3"], "-", SubscriptBox["z", "4"]}], ")"}]}]}]]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox[ RowBox[{ RowBox[{ SubscriptBox["x", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["y", "4"], " ", RowBox[{"(", RowBox[{ SubscriptBox["z", "1"], "-", SubscriptBox["z", "3"]}], ")"}]}], "+", RowBox[{ SubscriptBox["y", "1"], " ", RowBox[{"(", RowBox[{ SubscriptBox["z", "3"], "-", SubscriptBox["z", "4"]}], ")"}]}], "+", RowBox[{ SubscriptBox["y", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["z", "1"]}], "+", SubscriptBox["z", "4"]}], ")"}]}]}], ")"}]}], "+", RowBox[{ SubscriptBox["x", "1"], " ", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["y", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["z", "2"]}], "+", SubscriptBox["z", "3"]}], ")"}]}], "+", RowBox[{ SubscriptBox["y", "3"], " ", RowBox[{"(", RowBox[{ SubscriptBox["z", "2"], "-", SubscriptBox["z", "4"]}], ")"}]}], "+", RowBox[{ SubscriptBox["y", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["z", "3"]}], "+", SubscriptBox["z", "4"]}], ")"}]}]}], ")"}]}]}], RowBox[{ RowBox[{ SubscriptBox["y", "4"], " ", RowBox[{"(", RowBox[{ SubscriptBox["z", "1"], "-", SubscriptBox["z", "2"]}], ")"}]}], "+", RowBox[{ SubscriptBox["y", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["z", "1"]}], "+", SubscriptBox["z", "2"]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["y", "1"], "-", SubscriptBox["y", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{ SubscriptBox["z", "3"], "-", SubscriptBox["z", "4"]}], ")"}]}]}]], ",", FractionBox[ RowBox[{ RowBox[{ SubscriptBox["y", "1"], " ", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["y", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["z", "2"]}], "+", SubscriptBox["z", "3"]}], ")"}]}], "+", RowBox[{ SubscriptBox["y", "3"], " ", RowBox[{"(", RowBox[{ SubscriptBox["z", "2"], "-", SubscriptBox["z", "4"]}], ")"}]}]}], ")"}]}], "+", RowBox[{ SubscriptBox["y", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["y", "4"], " ", RowBox[{"(", RowBox[{ SubscriptBox["z", "1"], "-", SubscriptBox["z", "3"]}], ")"}]}], "+", RowBox[{ SubscriptBox["y", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["z", "1"]}], "+", SubscriptBox["z", "4"]}], ")"}]}]}], ")"}]}]}], RowBox[{ RowBox[{ SubscriptBox["y", "4"], " ", RowBox[{"(", RowBox[{ SubscriptBox["z", "1"], "-", SubscriptBox["z", "2"]}], ")"}]}], "+", RowBox[{ SubscriptBox["y", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["z", "1"]}], "+", SubscriptBox["z", "2"]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["y", "1"], "-", SubscriptBox["y", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{ SubscriptBox["z", "3"], "-", SubscriptBox["z", "4"]}], ")"}]}]}]], ",", FractionBox[ RowBox[{ RowBox[{ SubscriptBox["y", "4"], " ", RowBox[{"(", RowBox[{ SubscriptBox["z", "1"], "-", SubscriptBox["z", "2"]}], ")"}], " ", SubscriptBox["z", "3"]}], "+", RowBox[{ SubscriptBox["y", "1"], " ", SubscriptBox["z", "2"], " ", SubscriptBox["z", "3"]}], "-", RowBox[{ SubscriptBox["y", "3"], " ", SubscriptBox["z", "1"], " ", SubscriptBox["z", "4"]}], "-", RowBox[{ SubscriptBox["y", "1"], " ", SubscriptBox["z", "2"], " ", SubscriptBox["z", "4"]}], "+", RowBox[{ SubscriptBox["y", "3"], " ", SubscriptBox["z", "2"], " ", SubscriptBox["z", "4"]}], "+", RowBox[{ SubscriptBox["y", "2"], " ", SubscriptBox["z", "1"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["z", "3"]}], "+", SubscriptBox["z", "4"]}], ")"}]}]}], RowBox[{ RowBox[{ SubscriptBox["y", "4"], " ", RowBox[{"(", RowBox[{ SubscriptBox["z", "1"], "-", SubscriptBox["z", "2"]}], ")"}]}], "+", RowBox[{ SubscriptBox["y", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["z", "1"]}], "+", SubscriptBox["z", "2"]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["y", "1"], "-", SubscriptBox["y", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{ SubscriptBox["z", "3"], "-", SubscriptBox["z", "4"]}], ")"}]}]}]]}], "}"}]}], "}"}]], "Output",Ex\ pressionUUID->"c56d632a-1992-4cad-945e-52c45011a103"] }, Open ]], Cell["\<\ Attempting to solve completely without first eliminating variables gives a \ huge mess\ \>", "Text",ExpressionUUID->"85e11e44-64fb-4f60-a57d-a5e07af167ee"], Cell[BoxData[ RowBox[{ RowBox[{"soln", "=", RowBox[{"Solve", "[", RowBox[{"eqns", ",", RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}], ",", RowBox[{"{", RowBox[{"s", ",", "t"}], "}"}]}], "]"}]}], ";"}]], "Input",ExpressionUUI\ D->"ab37b720-fc64-4e41-bbe1-52f0d4b99c84"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"LeafCount", "[", "soln", "]"}]], "Input",ExpressionUUID->"068ac9f8-c28e-4189-82eb-8ef5aa705439"], Cell[BoxData["1574911"], "Output",ExpressionUUID->"76c5b06c-3bba-474d-8283-e49e953b1f4d"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"soln2", "=", RowBox[{"Simplify", "[", "soln", "]"}]}], ";"}]], "Input",ExpressionUUID->\ "d7aedac6-7dd3-4ade-bb1b-d2f88296af28"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"LeafCount", "[", "soln2", "]"}]], "Input",ExpressionUUID->"058a5ed5-1777-4825-b6c2-f6dc2e82cc65"], Cell[BoxData["999151"], "Output",ExpressionUUID->"2aba0ee2-56bc-44d2-9ac5-d280f2ada341"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Timing", "[", RowBox[{"LeafCount", "[", RowBox[{"soln3", "=", RowBox[{"FullSimplify", "[", "soln2", "]"}]}], "]"}], "]"}]], "Input",Expr\ essionUUID->"77b497a1-f305-48f2-bf85-74ccc3213b9f"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"1562.75`", " ", "Second"}], ",", "373930"}], "}"}]], "Output",Expr\ essionUUID->"5c6b036b-8287-4219-9e95-216325a57c3d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"soln2", "/.", "lines"}]], "Input",ExpressionUUID->"8f465ba4-3665-490a-bde7-eedf11c33682"], Cell[BoxData["$Aborted"], "Output",ExpressionUUID->"6f4600ca-e8e3-4671-ad8f-a7adc8158c53"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Compact solution", "Subsection",ExpressionUUID->"3555fc17-4096-4f5e-b176-b6b152fe69b3"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Intersections", "[", RowBox[{ RowBox[{"Line", "[", RowBox[{"{", RowBox[{"p1_", ",", "q1_"}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"p2_", ",", "q2_"}], "}"}], "]"}]}], "]"}], ":=", RowBox[{ RowBox[{"Module", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"v1", "=", RowBox[{ RowBox[{ RowBox[{"#", "/", RowBox[{"Sqrt", "[", RowBox[{"#", ".", "#"}], "]"}]}], "&"}], "[", RowBox[{"q1", "-", "p1"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"v2", "=", RowBox[{ RowBox[{ RowBox[{"#", "/", RowBox[{"Sqrt", "[", RowBox[{"#", ".", "#"}], "]"}]}], "&"}], "[", RowBox[{"q2", "-", "p2"}], "]"}]}], ",", "\[IndentingNewLine]", "v12", ",", "s1", ",", "s2"}], "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"v12", "=", RowBox[{"Cross", "[", RowBox[{"v1", ",", "v2"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"s1", "=", RowBox[{ RowBox[{"Det", "[", RowBox[{"{", RowBox[{ RowBox[{"p2", "-", "p1"}], ",", "v2", ",", "v12"}], "}"}], "]"}], "/", RowBox[{"v12", ".", "v12"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"s2", "=", RowBox[{ RowBox[{"Det", "[", RowBox[{"{", RowBox[{ RowBox[{"p2", "-", "p1"}], ",", "v1", ",", "v12"}], "}"}], "]"}], "/", RowBox[{"v12", ".", "v12"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"(", RowBox[{"p1", "+", "p2", "+", RowBox[{"v1", " ", "s1"}], "+", RowBox[{"v2", " ", "s2"}]}], ")"}], "/", "2"}]}]}], "\[IndentingNewLine]", "]"}], " ", "/;", " ", RowBox[{ RowBox[{"Union", "[", RowBox[{"Length", "/@", RowBox[{"{", RowBox[{"p1", ",", "q1", ",", "p2", ",", "q2"}], "}"}]}], "]"}], "\[Equal]", RowBox[{"{", "3", "}"}]}]}]}]], "Input",ExpressionUUID->"77920579-6cea-\ 4a5c-b2ee-997ae824f57c"], Cell[BoxData[ RowBox[{ RowBox[{"General", "::", "\<\"spell1\"\>"}], ":", " ", "\<\"Possible spelling error: new symbol name \ \\\"\\!\\(Intersections\\)\\\" is similar to existing symbol \ \\\"\\!\\(Intersection\\)\\\".\"\>"}]], "Message",ExpressionUUID->"26bbbac5-\ c53c-46e4-9cc6-51869952aea6"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Intersections", "[", RowBox[{ RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "0", ",", "0"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{"-", "2"}], ",", RowBox[{"-", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "3", ",", "3"}], "}"}]}], "}"}], "]"}]}], "]"}]], "Input",ExpressionUUID->"59304814-52f2-4151-a629-737fd0222d20"], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]], "Output",ExpressionUUID->\ "8ebbc8a9-bcd4-420d-9ed5-ef065c05f8da"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}], "+", RowBox[{"r", RowBox[{"{", RowBox[{"4", ",", "0", ",", "0"}], "}"}]}]}], "==", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{"-", "2"}], ",", RowBox[{"-", "2"}]}], "}"}], "+", RowBox[{"s", RowBox[{"{", RowBox[{"3", ",", "3", ",", "3"}], "}"}]}]}]}], ",", RowBox[{"{", RowBox[{"r", ",", "s"}], "}"}]}], "]"}]], "Input",ExpressionUUID->\ "d9925978-1430-4389-ac54-2dbd1965c8e8"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"r", "\[Rule]", FractionBox["1", "4"]}], ",", RowBox[{"s", "\[Rule]", FractionBox["2", "3"]}]}], "}"}], "}"}]], "Output",ExpressionUUID->\ "580b7cf9-9f7f-4471-9b10-f63a53b316ed"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}], "+", RowBox[{"r", RowBox[{"{", RowBox[{"4", ",", "0", ",", "0"}], "}"}]}]}], ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{"-", "2"}], ",", RowBox[{"-", "2"}]}], "}"}], "+", RowBox[{"s", RowBox[{"{", RowBox[{"3", ",", "3", ",", "3"}], "}"}]}]}]}], "}"}], "/.", "%"}]], "Input",ExpressionUUID->"923c9bc9-eba4-4a4f-9398-8720bb3c9ca2"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], "}"}]], "Output",Expre\ ssionUUID->"bd6dad7c-2b50-4c46-977d-24ee51cae5f3"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"#1", "+", RowBox[{ RowBox[{"(", RowBox[{"#2", "-", "#1"}], ")"}], "r"}]}], "&"}], "@@", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "0", ",", "0"}], "}"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"#1", "+", RowBox[{ RowBox[{"(", RowBox[{"#2", "-", "#1"}], ")"}], "s"}]}], "&"}], "@@", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{"-", "2"}], ",", RowBox[{"-", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "3", ",", "3"}], "}"}]}], "}"}]}]}], "}"}]], "Input",\ ExpressionUUID->"26cef083-283f-45da-b0e9-3aec095d9733"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"5", " ", "r"}]}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{"5", " ", "s"}]}], ",", RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{"5", " ", "s"}]}], ",", RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{"5", " ", "s"}]}]}], "}"}]}], "}"}]], "Output",ExpressionUUID->\ "c81f0b12-85f6-4256-8b64-f4c9d1d05f8c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"5", " ", "r"}]}], ",", "0", ",", "0"}], "}"}], "==", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{"5", " ", "s"}]}], ",", RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{"5", " ", "s"}]}], ",", RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{"5", " ", "s"}]}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "s"}], "}"}]}], "]"}]], "Input",ExpressionUUID->\ "ef58696c-f529-4f17-be26-f73f8b3d748b"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"r", "\[Rule]", FractionBox["1", "5"]}], ",", RowBox[{"s", "\[Rule]", FractionBox["2", "5"]}]}], "}"}], "}"}]], "Output",ExpressionUUID->\ "f42ed1cf-8bee-40dc-be7f-0404c55da465"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"5", " ", "r"}]}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{"5", " ", "s"}]}], ",", RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{"5", " ", "s"}]}], ",", RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{"5", " ", "s"}]}]}], "}"}]}], "}"}], "/.", "%"}]], "Input",Expr\ essionUUID->"845c8ab5-3a01-45e1-a4bc-77294933c702"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], "}"}]], "Output",Expre\ ssionUUID->"8f5c5048-4535-4472-94ee-bf7e3c35e104"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Trilinears", "Section",ExpressionUUID->"666dac05-6d11-4af3-96cf-7a139a7c68ff"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"<<", "PlaneGeometry`"}]], "Input",ExpressionUUID->"951aa090-2a52-4cac-add6-298b4be4f46d"], Cell[BoxData["\<\"Rehashing triangle centers...\"\>"], "Print",ExpressionUUID->"927bddbd-648b-4103-b5c5-11e6f9b70358"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Trilinears", "Section",ExpressionUUID->"bee446fc-ef89-442f-a656-7b3a341f5879"], Cell[BoxData[{ RowBox[{ RowBox[{"k", "[", RowBox[{"\[Alpha]_", ",", "\[Beta]_", ",", "\[Gamma]_"}], "]"}], ":=", RowBox[{"2", RowBox[{"\[CapitalDelta]", "/", RowBox[{"(", RowBox[{ RowBox[{"a", " ", "\[Alpha]"}], "+", RowBox[{"b", " ", "\[Beta]"}], "+", RowBox[{"c", " ", "\[Gamma]"}]}], ")"}]}]}]}], "\n", RowBox[{ RowBox[{"x", "[", RowBox[{"\[Alpha]_", ",", "\[Beta]_", ",", "\[Gamma]_"}], "]"}], ":=", FractionBox[ RowBox[{ RowBox[{ RowBox[{"k", "[", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "]"}], "\[Beta]"}], "-", "r", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"k", "[", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "]"}], "\[Alpha]"}], "-", "r"}], ")"}], RowBox[{"Cos", "[", "C", "]"}]}]}], RowBox[{"Sin", "[", "C", "]"}]]}], "\n", RowBox[{ RowBox[{"y", "[", RowBox[{"\[Alpha]_", ",", "\[Beta]_", ",", "\[Gamma]_"}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"k", "[", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "]"}], "\[Alpha]"}], "-", "r"}]}], "\n", RowBox[{ RowBox[{"rr", "[", RowBox[{"\[Alpha]_", ",", "\[Beta]_", ",", "\[Gamma]_"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "]"}]}], "}"}]}]}], "Input",ExpressionUUID->"4f953bf2-2b04-41f9-990e-494844924aff"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"p", "=", RowBox[{"FullSimplify", "[", RowBox[{"Coordinates", "[", RowBox[{"Intersections", "@@", RowBox[{"(", RowBox[{"Line", "/@", RowBox[{"Partition", "[", RowBox[{ RowBox[{"rr", "@@@", RowBox[{"Transpose", "[", RowBox[{ RowBox[{ RowBox[{"Array", "[", RowBox[{"#", ",", "4"}], "]"}], "&"}], "/@", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "}"}]}], "]"}]}], ",", "2"}], "]"}]}], ")"}]}], "]"}], "]"}]}]], "Input",Exp\ ressionUUID->"bb7f9d6d-ceaf-42f2-8065-6ef25f8f6d4b"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Csc", "[", "C", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"b", " ", "r", " ", RowBox[{"\[Alpha]", "[", "4", "]"}], " ", RowBox[{"\[Beta]", "[", "2", "]"}], " ", RowBox[{"\[Beta]", "[", "3", "]"}], " ", RowBox[{"\[Gamma]", "[", "1", "]"}]}], "-", RowBox[{"2", " ", "\[CapitalDelta]", " ", RowBox[{"\[Alpha]", "[", "4", "]"}], " ", RowBox[{"\[Beta]", "[", "2", "]"}], " ", RowBox[{"\[Beta]", "[", "3", "]"}], " ", RowBox[{"\[Gamma]", "[", "1", "]"}]}], "-", RowBox[{"b", " ", "r", " ", RowBox[{"\[Alpha]", "[", "3", "]"}], " ", RowBox[{"\[Beta]", "[", "2", "]"}], " ", RowBox[{"\[Beta]", "[", "4", "]"}], " ", RowBox[{"\[Gamma]", "[", "1", "]"}]}], "+", RowBox[{"2", " ", "\[CapitalDelta]", " ", RowBox[{"\[Alpha]", "[", "3", "]"}], " ", RowBox[{"\[Beta]", "[", "2", "]"}], " ", RowBox[{"\[Beta]", "[", "4", "]"}], " ", RowBox[{"\[Gamma]", "[", "1", "]"}]}], "-", RowBox[{"b", " ", "r", " ", RowBox[{"\[Alpha]", "[", "4", "]"}], " ", RowBox[{"\[Beta]", "[", "1", "]"}], " ", RowBox[{"\[Beta]", "[", "3", "]"}], " ", RowBox[{"\[Gamma]", "[", "2", "]"}]}], "+", RowBox[{"2", " ", "\[CapitalDelta]", " ", RowBox[{"\[Alpha]", "[", "4", "]"}], " ", RowBox[{"\[Beta]", "[", "1", "]"}], " ", RowBox[{"\[Beta]", "[", "3", "]"}], " ", RowBox[{"\[Gamma]", "[", "2", "]"}]}], "+", RowBox[{"b", " ", "r", " ", RowBox[{"\[Alpha]", "[", "3", "]"}], " ", RowBox[{"\[Beta]", "[", "1", "]"}], " ", RowBox[{"\[Beta]", "[", "4", "]"}], " ", RowBox[{"\[Gamma]", "[", "2", "]"}]}], "-", RowBox[{"2", " ", "\[CapitalDelta]", " ", RowBox[{"\[Alpha]", "[", "3", "]"}], " ", RowBox[{"\[Beta]", "[", "1", "]"}], " ", RowBox[{"\[Beta]", "[", "4", "]"}], " ", RowBox[{"\[Gamma]", "[", "2", "]"}]}], "-", RowBox[{"b", " ", "r", " ", RowBox[{"\[Alpha]", "[", "2", "]"}], " ", RowBox[{"\[Beta]", "[", "1", "]"}], " ", RowBox[{"\[Beta]", "[", "4", "]"}], " ", RowBox[{"\[Gamma]", "[", "3", "]"}]}], "+", RowBox[{"2", " ", "\[CapitalDelta]", " ", RowBox[{"\[Alpha]", "[", "2", "]"}], " ", RowBox[{"\[Beta]", "[", "1", "]"}], " ", RowBox[{"\[Beta]", "[", "4", "]"}], " ", RowBox[{"\[Gamma]", "[", "3", "]"}]}], "+", RowBox[{"b", " ", "r", " ", RowBox[{"\[Alpha]", "[", "1", "]"}], " ", RowBox[{"\[Beta]", "[", "2", "]"}], " ", RowBox[{"\[Beta]", "[", "4", "]"}], " ", RowBox[{"\[Gamma]", "[", "3", "]"}]}], "-", RowBox[{"2", " ", "\[CapitalDelta]", " ", RowBox[{"\[Alpha]", "[", "1", "]"}], " ", RowBox[{"\[Beta]", "[", "2", "]"}], " ", RowBox[{"\[Beta]", "[", "4", "]"}], " ", RowBox[{"\[Gamma]", "[", "3", "]"}]}], "+", RowBox[{"c", " ", "r", " ", RowBox[{"\[Alpha]", "[", "4", "]"}], " ", RowBox[{"\[Beta]", "[", "2", "]"}], " ", RowBox[{"\[Gamma]", "[", "1", "]"}], " ", RowBox[{"\[Gamma]", "[", "3", "]"}]}], "-", RowBox[{"c", " ", "r", " ", RowBox[{"\[Alpha]", "[", "2", "]"}], " ", RowBox[{"\[Beta]", "[", "4", "]"}], " ", RowBox[{"\[Gamma]", "[", "1", "]"}], " ", RowBox[{"\[Gamma]", "[", "3", "]"}]}], "-", RowBox[{"c", " ", "r", " ", RowBox[{"\[Alpha]", "[", "4", "]"}], " ", RowBox[{"\[Beta]", "[", "1", "]"}], " ", RowBox[{"\[Gamma]", "[", "2", "]"}], " ", RowBox[{"\[Gamma]", "[", "3", "]"}]}], "+", RowBox[{"c", " ", "r", " ", RowBox[{"\[Alpha]", "[", "1", "]"}], " ", RowBox[{"\[Beta]", "[", "4", "]"}], " ", RowBox[{"\[Gamma]", "[", "2", "]"}], " ", RowBox[{"\[Gamma]", "[", "3", "]"}]}], "+", RowBox[{"b", " ", "r", " ", RowBox[{"\[Alpha]", "[", "2", "]"}], " ", RowBox[{"\[Beta]", "[", "1", "]"}], " ", RowBox[{"\[Beta]", "[", "3", "]"}], " ", RowBox[{"\[Gamma]", "[", "4", "]"}]}], "-", RowBox[{"2", " ", "\[CapitalDelta]", " ", RowBox[{"\[Alpha]", "[", "2", "]"}], " ", RowBox[{"\[Beta]", "[", "1", "]"}], " ", RowBox[{"\[Beta]", "[", "3", "]"}], " ", RowBox[{"\[Gamma]", "[", "4", "]"}]}], "-", RowBox[{"b", " ", "r", " ", RowBox[{"\[Alpha]", "[", "1", "]"}], " ", RowBox[{"\[Beta]", "[", "2", "]"}], " ", RowBox[{"\[Beta]", "[", "3", "]"}], " ", RowBox[{"\[Gamma]", "[", "4", "]"}]}], "+", RowBox[{"2", " ", "\[CapitalDelta]", " ", RowBox[{"\[Alpha]", "[", "1", "]"}], " ", RowBox[{"\[Beta]", "[", "2", "]"}], " ", RowBox[{"\[Beta]", "[", "3", "]"}], " ", RowBox[{"\[Gamma]", "[", "4", "]"}]}], "-", RowBox[{"c", " ", "r", " ", RowBox[{"\[Alpha]", "[", "3", "]"}], " ", RowBox[{"\[Beta]", "[", "2", "]"}], " ", RowBox[{"\[Gamma]", "[", "1", "]"}], " ", RowBox[{"\[Gamma]", "[", "4", "]"}]}], "+", RowBox[{"c", " ", "r", " ", RowBox[{"\[Alpha]", "[", "2", "]"}], " ", RowBox[{"\[Beta]", "[", "3", "]"}], " ", RowBox[{"\[Gamma]", "[", "1", "]"}], " ", RowBox[{"\[Gamma]", "[", "4", "]"}]}], "+", RowBox[{"c", " ", "r", " ", RowBox[{"\[Alpha]", "[", "3", "]"}], " ", RowBox[{"\[Beta]", "[", "1", "]"}], " ", RowBox[{"\[Gamma]", "[", "2", "]"}], " ", RowBox[{"\[Gamma]", "[", "4", "]"}]}], "-", RowBox[{"c", " ", "r", " ", RowBox[{"\[Alpha]", "[", "1", "]"}], " ", RowBox[{"\[Beta]", "[", "3", "]"}], " ", RowBox[{"\[Gamma]", "[", "2", "]"}], " ", RowBox[{"\[Gamma]", "[", "4", "]"}]}], "+", RowBox[{"a", " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Alpha]", "[", "2", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Alpha]", "[", "4", "]"}], " ", RowBox[{"\[Beta]", "[", "3", "]"}], " ", RowBox[{"\[Gamma]", "[", "1", "]"}]}], "-", RowBox[{ RowBox[{"\[Alpha]", "[", "3", "]"}], " ", RowBox[{"\[Beta]", "[", "4", "]"}], " ", RowBox[{"\[Gamma]", "[", "1", "]"}]}], "-", RowBox[{ RowBox[{"\[Alpha]", "[", "4", "]"}], " ", RowBox[{"\[Beta]", "[", "1", "]"}], " ", RowBox[{"\[Gamma]", "[", "3", "]"}]}], "+", RowBox[{ RowBox[{"\[Alpha]", "[", "3", "]"}], " ", RowBox[{"\[Beta]", "[", "1", "]"}], " ", RowBox[{"\[Gamma]", "[", "4", "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"\[Alpha]", "[", "1", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"\[Alpha]", "[", "4", "]"}]}], " ", RowBox[{"\[Beta]", "[", "3", "]"}], " ", RowBox[{"\[Gamma]", "[", "2", "]"}]}], "+", RowBox[{ RowBox[{"\[Alpha]", "[", "3", "]"}], " ", RowBox[{"\[Beta]", "[", "4", "]"}], " ", RowBox[{"\[Gamma]", "[", "2", "]"}]}], "+", RowBox[{ RowBox[{"\[Alpha]", "[", "4", "]"}], " ", RowBox[{"\[Beta]", "[", "2", "]"}], " ", RowBox[{"\[Gamma]", "[", "3", "]"}]}], "-", RowBox[{ RowBox[{"\[Alpha]", "[", "3", "]"}], " ", RowBox[{"\[Beta]", "[", "2", "]"}], " ", RowBox[{"\[Gamma]", "[", "4", "]"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"Cos", "[", "C", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"a", " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Alpha]", "[", "2", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Alpha]", "[", "4", "]"}], " ", RowBox[{"\[Beta]", "[", "3", "]"}], " ", RowBox[{"\[Gamma]", "[", "1", "]"}]}], "-", RowBox[{ RowBox[{"\[Alpha]", "[", "3", "]"}], " ", RowBox[{"\[Beta]", "[", "4", "]"}], " ", RowBox[{"\[Gamma]", "[", "1", "]"}]}], "-", RowBox[{ RowBox[{"\[Alpha]", "[", "4", "]"}], " ", RowBox[{"\[Beta]", "[", "1", "]"}], " ", RowBox[{"\[Gamma]", "[", "3", "]"}]}], "+", RowBox[{ RowBox[{"\[Alpha]", "[", "3", "]"}], " ", RowBox[{"\[Beta]", "[", "1", "]"}], " ", RowBox[{"\[Gamma]", "[", "4", "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"\[Alpha]", "[", "1", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"\[Alpha]", "[", "4", "]"}]}], " ", RowBox[{"\[Beta]", "[", "3", "]"}], " ", RowBox[{"\[Gamma]", "[", "2", "]"}]}], "+", RowBox[{ RowBox[{"\[Alpha]", "[", "3", "]"}], " ", RowBox[{"\[Beta]", "[", "4", "]"}], " ", RowBox[{"\[Gamma]", "[", "2", "]"}]}], "+", RowBox[{ RowBox[{"\[Alpha]", "[", "4", "]"}], " ", RowBox[{"\[Beta]", "[", "2", "]"}], " ", RowBox[{"\[Gamma]", "[", "3", "]"}]}], "-", RowBox[{ RowBox[{"\[Alpha]", "[", "3", "]"}], " ", RowBox[{"\[Beta]", "[", "2", "]"}], " ", RowBox[{"\[Gamma]", "[", "4", "]"}]}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"2", " ", "\[CapitalDelta]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Alpha]", "[", "2", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Alpha]", "[", "4", "]"}], " ", RowBox[{"\[Beta]", "[", "3", "]"}], " ", RowBox[{"\[Gamma]", "[", "1", "]"}]}], "-", RowBox[{ RowBox[{"\[Alpha]", "[", "3", "]"}], " ", RowBox[{"\[Beta]", "[", "4", "]"}], " ", RowBox[{"\[Gamma]", "[", "1", "]"}]}], "-", RowBox[{ RowBox[{"\[Alpha]", "[", "4", "]"}], " ", RowBox[{"\[Beta]", "[", "1", "]"}], " ", RowBox[{"\[Gamma]", "[", "3", "]"}]}], "+", RowBox[{ RowBox[{"\[Alpha]", "[", "3", "]"}], " ", RowBox[{"\[Beta]", "[", "1", "]"}], " ", RowBox[{"\[Gamma]", "[", "4", "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"\[Alpha]", "[", "1", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"\[Alpha]", "[", "4", "]"}]}], " ", RowBox[{"\[Beta]", "[", "3", "]"}], " ", RowBox[{"\[Gamma]", "[", "2", "]"}]}], "+", RowBox[{ RowBox[{"\[Alpha]", "[", "3", "]"}], " ", RowBox[{"\[Beta]", "[", "4", "]"}], " ", RowBox[{"\[Gamma]", "[", "2", "]"}]}], "+", RowBox[{ RowBox[{"\[Alpha]", "[", "4", "]"}], " ", RowBox[{"\[Beta]", "[", "2", "]"}], " ", RowBox[{"\[Gamma]", "[", "3", "]"}]}], "-", RowBox[{ RowBox[{"\[Alpha]", "[", "3", "]"}], " ", RowBox[{"\[Beta]", "[", "2", "]"}], " ", RowBox[{"\[Gamma]", "[", "4", "]"}]}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"r", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "c"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Alpha]", "[", "4", "]"}], " ", RowBox[{"\[Beta]", "[", "2", "]"}], " ", RowBox[{"\[Gamma]", "[", "1", "]"}]}], "-", RowBox[{ RowBox[{"\[Alpha]", "[", "2", "]"}], " ", RowBox[{"\[Beta]", "[", "4", "]"}], " ", RowBox[{"\[Gamma]", "[", "1", "]"}]}], "-", RowBox[{ RowBox[{"\[Alpha]", "[", "4", "]"}], " ", RowBox[{"\[Beta]", "[", "1", "]"}], " ", RowBox[{"\[Gamma]", "[", "2", "]"}]}], "+", RowBox[{ RowBox[{"\[Alpha]", "[", "1", "]"}], " ", RowBox[{"\[Beta]", "[", "4", "]"}], " ", RowBox[{"\[Gamma]", "[", "2", "]"}]}]}], ")"}], " ", RowBox[{"\[Gamma]", "[", "3", "]"}]}], "+", RowBox[{"c", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Alpha]", "[", "3", "]"}], " ", RowBox[{"\[Beta]", "[", "2", "]"}], " ", RowBox[{"\[Gamma]", "[", "1", "]"}]}], "-", RowBox[{ RowBox[{"\[Alpha]", "[", "2", "]"}], " ", RowBox[{"\[Beta]", "[", "3", "]"}], " ", RowBox[{"\[Gamma]", "[", "1", "]"}]}], "-", RowBox[{ RowBox[{"\[Alpha]", "[", "3", "]"}], " ", RowBox[{"\[Beta]", "[", "1", "]"}], " ", RowBox[{"\[Gamma]", "[", "2", "]"}]}], "+", RowBox[{ RowBox[{"\[Alpha]", "[", "1", "]"}], " ", RowBox[{"\[Beta]", "[", "3", "]"}], " ", RowBox[{"\[Gamma]", "[", "2", "]"}]}]}], ")"}], " ", RowBox[{"\[Gamma]", "[", "4", "]"}]}], "+", RowBox[{"b", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Alpha]", "[", "3", "]"}], " ", RowBox[{"\[Beta]", "[", "4", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Beta]", "[", "2", "]"}], " ", RowBox[{"\[Gamma]", "[", "1", "]"}]}], "-", RowBox[{ RowBox[{"\[Beta]", "[", "1", "]"}], " ", RowBox[{"\[Gamma]", "[", "2", "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"\[Alpha]", "[", "4", "]"}], " ", RowBox[{"\[Beta]", "[", "3", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"\[Beta]", "[", "2", "]"}]}], " ", RowBox[{"\[Gamma]", "[", "1", "]"}]}], "+", RowBox[{ RowBox[{"\[Beta]", "[", "1", "]"}], " ", RowBox[{"\[Gamma]", "[", "2", "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Alpha]", "[", "2", "]"}], " ", RowBox[{"\[Beta]", "[", "1", "]"}]}], "-", RowBox[{ RowBox[{"\[Alpha]", "[", "1", "]"}], " ", RowBox[{"\[Beta]", "[", "2", "]"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Beta]", "[", "4", "]"}], " ", RowBox[{"\[Gamma]", "[", "3", "]"}]}], "-", RowBox[{ RowBox[{"\[Beta]", "[", "3", "]"}], " ", RowBox[{"\[Gamma]", "[", "4", "]"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"c", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Alpha]", "[", "4", "]"}], " ", RowBox[{"\[Beta]", "[", "2", "]"}], " ", RowBox[{"\[Gamma]", "[", "1", "]"}]}], "-", RowBox[{ RowBox[{"\[Alpha]", "[", "2", "]"}], " ", RowBox[{"\[Beta]", "[", "4", "]"}], " ", RowBox[{"\[Gamma]", "[", "1", "]"}]}], "-", RowBox[{ RowBox[{"\[Alpha]", "[", "4", "]"}], " ", RowBox[{"\[Beta]", "[", "1", "]"}], " ", RowBox[{"\[Gamma]", "[", "2", "]"}]}], "+", RowBox[{ RowBox[{"\[Alpha]", "[", "1", "]"}], " ", RowBox[{"\[Beta]", "[", "4", "]"}], " ", RowBox[{"\[Gamma]", "[", "2", "]"}]}]}], ")"}], " ", RowBox[{"\[Gamma]", "[", "3", "]"}]}], "-", RowBox[{"c", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Alpha]", "[", "3", "]"}], " ", RowBox[{"\[Beta]", "[", "2", "]"}], " ", RowBox[{"\[Gamma]", "[", "1", "]"}]}], "-", RowBox[{ RowBox[{"\[Alpha]", "[", "2", "]"}], " ", RowBox[{"\[Beta]", "[", "3", "]"}], " ", RowBox[{"\[Gamma]", "[", "1", "]"}]}], "-", RowBox[{ RowBox[{"\[Alpha]", "[", "3", "]"}], " ", RowBox[{"\[Beta]", "[", "1", "]"}], " ", RowBox[{"\[Gamma]", "[", "2", "]"}]}], "+", RowBox[{ RowBox[{"\[Alpha]", "[", "1", "]"}], " ", RowBox[{"\[Beta]", "[", "3", "]"}], " ", RowBox[{"\[Gamma]", "[", "2", "]"}]}]}], ")"}], " ", RowBox[{"\[Gamma]", "[", "4", "]"}]}], "+", RowBox[{"a", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Alpha]", "[", "2", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Alpha]", "[", "4", "]"}], " ", RowBox[{"\[Beta]", "[", "3", "]"}], " ", RowBox[{"\[Gamma]", "[", "1", "]"}]}], "-", RowBox[{ RowBox[{"\[Alpha]", "[", "3", "]"}], " ", RowBox[{"\[Beta]", "[", "4", "]"}], " ", RowBox[{"\[Gamma]", "[", "1", "]"}]}], "-", RowBox[{ RowBox[{"\[Alpha]", "[", "4", "]"}], " ", RowBox[{"\[Beta]", "[", "1", "]"}], " ", RowBox[{"\[Gamma]", "[", "3", "]"}]}], "+", RowBox[{ RowBox[{"\[Alpha]", "[", "3", "]"}], " ", RowBox[{"\[Beta]", "[", "1", "]"}], " ", RowBox[{"\[Gamma]", "[", "4", "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"\[Alpha]", "[", "1", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"\[Alpha]", "[", "4", "]"}]}], " ", RowBox[{"\[Beta]", "[", "3", "]"}], " ", RowBox[{"\[Gamma]", "[", "2", "]"}]}], "+", RowBox[{ RowBox[{"\[Alpha]", "[", "3", "]"}], " ", RowBox[{"\[Beta]", "[", "4", "]"}], " ", RowBox[{"\[Gamma]", "[", "2", "]"}]}], "+", RowBox[{ RowBox[{"\[Alpha]", "[", "4", "]"}], " ", RowBox[{"\[Beta]", "[", "2", "]"}], " ", RowBox[{"\[Gamma]", "[", "3", "]"}]}], "-", RowBox[{ RowBox[{"\[Alpha]", "[", "3", "]"}], " ", RowBox[{"\[Beta]", "[", "2", "]"}], " ", RowBox[{"\[Gamma]", "[", "4", "]"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"b", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Alpha]", "[", "4", "]"}], " ", RowBox[{"\[Beta]", "[", "3", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Beta]", "[", "2", "]"}], " ", RowBox[{"\[Gamma]", "[", "1", "]"}]}], "-", RowBox[{ RowBox[{"\[Beta]", "[", "1", "]"}], " ", RowBox[{"\[Gamma]", "[", "2", "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"\[Alpha]", "[", "3", "]"}], " ", RowBox[{"\[Beta]", "[", "4", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"\[Beta]", "[", "2", "]"}]}], " ", RowBox[{"\[Gamma]", "[", "1", "]"}]}], "+", RowBox[{ RowBox[{"\[Beta]", "[", "1", "]"}], " ", RowBox[{"\[Gamma]", "[", "2", "]"}]}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Alpha]", "[", "2", "]"}], " ", RowBox[{"\[Beta]", "[", "1", "]"}]}], "-", RowBox[{ RowBox[{"\[Alpha]", "[", "1", "]"}], " ", RowBox[{"\[Beta]", "[", "2", "]"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Beta]", "[", "4", "]"}], " ", RowBox[{"\[Gamma]", "[", "3", "]"}]}], "-", RowBox[{ RowBox[{"\[Beta]", "[", "3", "]"}], " ", RowBox[{"\[Gamma]", "[", "4", "]"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "\[CapitalDelta]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Alpha]", "[", "2", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Alpha]", "[", "4", "]"}], " ", RowBox[{"\[Beta]", "[", "3", "]"}], " ", RowBox[{"\[Gamma]", "[", "1", "]"}]}], "-", RowBox[{ RowBox[{"\[Alpha]", "[", "3", "]"}], " ", RowBox[{"\[Beta]", "[", "4", "]"}], " ", RowBox[{"\[Gamma]", "[", "1", "]"}]}], "-", RowBox[{ RowBox[{"\[Alpha]", "[", "4", "]"}], " ", RowBox[{"\[Beta]", "[", "1", "]"}], " ", RowBox[{"\[Gamma]", "[", "3", "]"}]}], "+", RowBox[{ RowBox[{"\[Alpha]", "[", "3", "]"}], " ", RowBox[{"\[Beta]", "[", "1", "]"}], " ", RowBox[{"\[Gamma]", "[", "4", "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"\[Alpha]", "[", "1", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"\[Alpha]", "[", "4", "]"}]}], " ", RowBox[{"\[Beta]", "[", "3", "]"}], " ", RowBox[{"\[Gamma]", "[", "2", "]"}]}], "+", RowBox[{ RowBox[{"\[Alpha]", "[", "3", "]"}], " ", RowBox[{"\[Beta]", "[", "4", "]"}], " ", RowBox[{"\[Gamma]", "[", "2", "]"}]}], "+", RowBox[{ RowBox[{"\[Alpha]", "[", "4", "]"}], " ", RowBox[{"\[Beta]", "[", "2", "]"}], " ", RowBox[{"\[Gamma]", "[", "3", "]"}]}], "-", RowBox[{ RowBox[{"\[Alpha]", "[", "3", "]"}], " ", RowBox[{"\[Beta]", "[", "2", "]"}], " ", RowBox[{"\[Gamma]", "[", "4", "]"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"a", " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Alpha]", "[", "2", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"\[Alpha]", "[", "4", "]"}]}], " ", RowBox[{"\[Beta]", "[", "3", "]"}], " ", RowBox[{"\[Gamma]", "[", "1", "]"}]}], "+", RowBox[{ RowBox[{"\[Alpha]", "[", "3", "]"}], " ", RowBox[{"\[Beta]", "[", "4", "]"}], " ", RowBox[{"\[Gamma]", "[", "1", "]"}]}], "+", RowBox[{ RowBox[{"\[Alpha]", "[", "4", "]"}], " ", RowBox[{"\[Beta]", "[", "1", "]"}], " ", RowBox[{"\[Gamma]", "[", "3", "]"}]}], "-", RowBox[{ RowBox[{"\[Alpha]", "[", "3", "]"}], " ", RowBox[{"\[Beta]", "[", "1", "]"}], " ", RowBox[{"\[Gamma]", "[", "4", "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"\[Alpha]", "[", "1", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Alpha]", "[", "4", "]"}], " ", RowBox[{"\[Beta]", "[", "3", "]"}], " ", RowBox[{"\[Gamma]", "[", "2", "]"}]}], "-", RowBox[{ RowBox[{"\[Alpha]", "[", "3", "]"}], " ", RowBox[{"\[Beta]", "[", "4", "]"}], " ", RowBox[{"\[Gamma]", "[", "2", "]"}]}], "-", RowBox[{ RowBox[{"\[Alpha]", "[", "4", "]"}], " ", RowBox[{"\[Beta]", "[", "2", "]"}], " ", RowBox[{"\[Gamma]", "[", "3", "]"}]}], "+", RowBox[{ RowBox[{"\[Alpha]", "[", "3", "]"}], " ", RowBox[{"\[Beta]", "[", "2", "]"}], " ", RowBox[{"\[Gamma]", "[", "4", "]"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"r", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "c"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Alpha]", "[", "4", "]"}], " ", RowBox[{"\[Beta]", "[", "2", "]"}], " ", RowBox[{"\[Gamma]", "[", "1", "]"}]}], "-", RowBox[{ RowBox[{"\[Alpha]", "[", "2", "]"}], " ", RowBox[{"\[Beta]", "[", "4", "]"}], " ", RowBox[{"\[Gamma]", "[", "1", "]"}]}], "-", RowBox[{ RowBox[{"\[Alpha]", "[", "4", "]"}], " ", RowBox[{"\[Beta]", "[", "1", "]"}], " ", RowBox[{"\[Gamma]", "[", "2", "]"}]}], "+", RowBox[{ RowBox[{"\[Alpha]", "[", "1", "]"}], " ", RowBox[{"\[Beta]", "[", "4", "]"}], " ", RowBox[{"\[Gamma]", "[", "2", "]"}]}]}], ")"}], " ", RowBox[{"\[Gamma]", "[", "3", "]"}]}], "+", RowBox[{"c", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Alpha]", "[", "3", "]"}], " ", RowBox[{"\[Beta]", "[", "2", "]"}], " ", RowBox[{"\[Gamma]", "[", "1", "]"}]}], "-", RowBox[{ RowBox[{"\[Alpha]", "[", "2", "]"}], " ", RowBox[{"\[Beta]", "[", "3", "]"}], " ", RowBox[{"\[Gamma]", "[", "1", "]"}]}], "-", RowBox[{ RowBox[{"\[Alpha]", "[", "3", "]"}], " ", RowBox[{"\[Beta]", "[", "1", "]"}], " ", RowBox[{"\[Gamma]", "[", "2", "]"}]}], "+", RowBox[{ RowBox[{"\[Alpha]", "[", "1", "]"}], " ", RowBox[{"\[Beta]", "[", "3", "]"}], " ", RowBox[{"\[Gamma]", "[", "2", "]"}]}]}], ")"}], " ", RowBox[{"\[Gamma]", "[", "4", "]"}]}], "+", RowBox[{"b", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Alpha]", "[", "3", "]"}], " ", RowBox[{"\[Beta]", "[", "4", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Beta]", "[", "2", "]"}], " ", RowBox[{"\[Gamma]", "[", "1", "]"}]}], "-", RowBox[{ RowBox[{"\[Beta]", "[", "1", "]"}], " ", RowBox[{"\[Gamma]", "[", "2", "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"\[Alpha]", "[", "4", "]"}], " ", RowBox[{"\[Beta]", "[", "3", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"\[Beta]", "[", "2", "]"}]}], " ", RowBox[{"\[Gamma]", "[", "1", "]"}]}], "+", RowBox[{ RowBox[{"\[Beta]", "[", "1", "]"}], " ", RowBox[{"\[Gamma]", "[", "2", "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Alpha]", "[", "2", "]"}], " ", RowBox[{"\[Beta]", "[", "1", "]"}]}], "-", RowBox[{ RowBox[{"\[Alpha]", "[", "1", "]"}], " ", RowBox[{"\[Beta]", "[", "2", "]"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Beta]", "[", "4", "]"}], " ", RowBox[{"\[Gamma]", "[", "3", "]"}]}], "-", RowBox[{ RowBox[{"\[Beta]", "[", "3", "]"}], " ", RowBox[{"\[Gamma]", "[", "4", "]"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"c", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Alpha]", "[", "4", "]"}], " ", RowBox[{"\[Beta]", "[", "2", "]"}], " ", RowBox[{"\[Gamma]", "[", "1", "]"}]}], "-", RowBox[{ RowBox[{"\[Alpha]", "[", "2", "]"}], " ", RowBox[{"\[Beta]", "[", "4", "]"}], " ", RowBox[{"\[Gamma]", "[", "1", "]"}]}], "-", RowBox[{ RowBox[{"\[Alpha]", "[", "4", "]"}], " ", RowBox[{"\[Beta]", "[", "1", "]"}], " ", RowBox[{"\[Gamma]", "[", "2", "]"}]}], "+", RowBox[{ RowBox[{"\[Alpha]", "[", "1", "]"}], " ", RowBox[{"\[Beta]", "[", "4", "]"}], " ", RowBox[{"\[Gamma]", "[", "2", "]"}]}]}], ")"}], " ", RowBox[{"\[Gamma]", "[", "3", "]"}]}], "-", RowBox[{"c", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Alpha]", "[", "3", "]"}], " ", RowBox[{"\[Beta]", "[", "2", "]"}], " ", RowBox[{"\[Gamma]", "[", "1", "]"}]}], "-", RowBox[{ RowBox[{"\[Alpha]", "[", "2", "]"}], " ", RowBox[{"\[Beta]", "[", "3", "]"}], " ", RowBox[{"\[Gamma]", "[", "1", "]"}]}], "-", RowBox[{ RowBox[{"\[Alpha]", "[", "3", "]"}], " ", RowBox[{"\[Beta]", "[", "1", "]"}], " ", RowBox[{"\[Gamma]", "[", "2", "]"}]}], "+", RowBox[{ RowBox[{"\[Alpha]", "[", "1", "]"}], " ", RowBox[{"\[Beta]", "[", "3", "]"}], " ", RowBox[{"\[Gamma]", "[", "2", "]"}]}]}], ")"}], " ", RowBox[{"\[Gamma]", "[", "4", "]"}]}], "+", RowBox[{"a", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Alpha]", "[", "2", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Alpha]", "[", "4", "]"}], " ", RowBox[{"\[Beta]", "[", "3", "]"}], " ", RowBox[{"\[Gamma]", "[", "1", "]"}]}], "-", RowBox[{ RowBox[{"\[Alpha]", "[", "3", "]"}], " ", RowBox[{"\[Beta]", "[", "4", "]"}], " ", RowBox[{"\[Gamma]", "[", "1", "]"}]}], "-", RowBox[{ RowBox[{"\[Alpha]", "[", "4", "]"}], " ", RowBox[{"\[Beta]", "[", "1", "]"}], " ", RowBox[{"\[Gamma]", "[", "3", "]"}]}], "+", RowBox[{ RowBox[{"\[Alpha]", "[", "3", "]"}], " ", RowBox[{"\[Beta]", "[", "1", "]"}], " ", RowBox[{"\[Gamma]", "[", "4", "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"\[Alpha]", "[", "1", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"\[Alpha]", "[", "4", "]"}]}], " ", RowBox[{"\[Beta]", "[", "3", "]"}], " ", RowBox[{"\[Gamma]", "[", "2", "]"}]}], "+", RowBox[{ RowBox[{"\[Alpha]", "[", "3", "]"}], " ", RowBox[{"\[Beta]", "[", "4", "]"}], " ", RowBox[{"\[Gamma]", "[", "2", "]"}]}], "+", RowBox[{ RowBox[{"\[Alpha]", "[", "4", "]"}], " ", RowBox[{"\[Beta]", "[", "2", "]"}], " ", RowBox[{"\[Gamma]", "[", "3", "]"}]}], "-", RowBox[{ RowBox[{"\[Alpha]", "[", "3", "]"}], " ", RowBox[{"\[Beta]", "[", "2", "]"}], " ", RowBox[{"\[Gamma]", "[", "4", "]"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"b", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Alpha]", "[", "4", "]"}], " ", RowBox[{"\[Beta]", "[", "3", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Beta]", "[", "2", "]"}], " ", RowBox[{"\[Gamma]", "[", "1", "]"}]}], "-", RowBox[{ RowBox[{"\[Beta]", "[", "1", "]"}], " ", RowBox[{"\[Gamma]", "[", "2", "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"\[Alpha]", "[", "3", "]"}], " ", RowBox[{"\[Beta]", "[", "4", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"\[Beta]", "[", "2", "]"}]}], " ", RowBox[{"\[Gamma]", "[", "1", "]"}]}], "+", RowBox[{ RowBox[{"\[Beta]", "[", "1", "]"}], " ", RowBox[{"\[Gamma]", "[", "2", "]"}]}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Alpha]", "[", "2", "]"}], " ", RowBox[{"\[Beta]", "[", "1", "]"}]}], "-", RowBox[{ RowBox[{"\[Alpha]", "[", "1", "]"}], " ", RowBox[{"\[Beta]", "[", "2", "]"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Beta]", "[", "4", "]"}], " ", RowBox[{"\[Gamma]", "[", "3", "]"}]}], "-", RowBox[{ RowBox[{"\[Beta]", "[", "3", "]"}], " ", RowBox[{"\[Gamma]", "[", "4", "]"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], "}"}]], "Output",ExpressionUUID->"00d6eeb9-f2e7-4afb-a518-\ 9bc7a92ec9ec"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"s", "=", RowBox[{"FullSimplify", "[", RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "==", FractionBox[ RowBox[{ RowBox[{ RowBox[{"k", "[", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "]"}], "\[Beta]"}], "-", "r", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"k", "[", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "]"}], "\[Alpha]"}], "-", "r"}], ")"}], RowBox[{"Cos", "[", "C", "]"}]}]}], RowBox[{"Sin", "[", "C", "]"}]]}], ",", RowBox[{"y", "==", RowBox[{ RowBox[{ RowBox[{"k", "[", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "]"}], "\[Alpha]"}], "-", "r"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]"}], "}"}]}], "]"}], "]"}]}]], "Input",\ ExpressionUUID->"e69c283f-fe1c-47aa-8a3b-fa7a5b467cc8"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]", "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{"c", " ", RowBox[{"(", RowBox[{"r", "+", "y"}], ")"}], " ", "\[Gamma]"}], RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"a", "+", "b"}], ")"}], " ", "r"}], "+", RowBox[{"a", " ", "y"}], "-", RowBox[{"2", " ", "\[CapitalDelta]"}], "-", RowBox[{"b", " ", "y", " ", RowBox[{"Cos", "[", "C", "]"}]}], "+", RowBox[{"b", " ", "x", " ", RowBox[{"Sin", "[", "C", "]"}]}]}]]}]}], ",", RowBox[{"\[Beta]", "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{"c", " ", "\[Gamma]", " ", RowBox[{"(", RowBox[{"r", "-", RowBox[{"y", " ", RowBox[{"Cos", "[", "C", "]"}]}], "+", RowBox[{"x", " ", RowBox[{"Sin", "[", "C", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"a", "+", "b"}], ")"}], " ", "r"}], "+", RowBox[{"a", " ", "y"}], "-", RowBox[{"2", " ", "\[CapitalDelta]"}], "-", RowBox[{"b", " ", "y", " ", RowBox[{"Cos", "[", "C", "]"}]}], "+", RowBox[{"b", " ", "x", " ", RowBox[{"Sin", "[", "C", "]"}]}]}]]}]}]}], "}"}], "}"}]], "Output",Ex\ pressionUUID->"c3d58e64-c150-4f24-bd81-9b2cb8e6f7ac"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"i", "=", RowBox[{"FullSimplify", "[", RowBox[{"s", "/.", " ", RowBox[{"Thread", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], "\[Rule]", "p"}], "]"}]}], "]"}]}]], "Input",ExpressionUUID->"79af4394-2500-4d03-8618-d238efef1288"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]", "\[Rule]", RowBox[{ RowBox[{"(", RowBox[{"\[Gamma]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Alpha]", "[", "2", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Alpha]", "[", "4", "]"}], " ", RowBox[{"\[Beta]", "[", "3", "]"}], " ", RowBox[{"\[Gamma]", "[", "1", "]"}]}], "-", RowBox[{ RowBox[{"\[Alpha]", "[", "3", "]"}], " ", RowBox[{"\[Beta]", "[", "4", "]"}], " ", RowBox[{"\[Gamma]", "[", "1", "]"}]}], "-", RowBox[{ RowBox[{"\[Alpha]", "[", "4", "]"}], " ", RowBox[{"\[Beta]", "[", "1", "]"}], " ", RowBox[{"\[Gamma]", "[", "3", "]"}]}], "+", RowBox[{ RowBox[{"\[Alpha]", "[", "3", "]"}], " ", RowBox[{"\[Beta]", "[", "1", "]"}], " ", RowBox[{"\[Gamma]", "[", "4", "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"\[Alpha]", "[", "1", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"\[Alpha]", "[", "4", "]"}]}], " ", RowBox[{"\[Beta]", "[", "3", "]"}], " ", RowBox[{"\[Gamma]", "[", "2", "]"}]}], "+", RowBox[{ RowBox[{"\[Alpha]", "[", "3", "]"}], " ", RowBox[{"\[Beta]", "[", "4", "]"}], " ", RowBox[{"\[Gamma]", "[", "2", "]"}]}], "+", RowBox[{ RowBox[{"\[Alpha]", "[", "4", "]"}], " ", RowBox[{"\[Beta]", "[", "2", "]"}], " ", RowBox[{"\[Gamma]", "[", "3", "]"}]}], "-", RowBox[{ RowBox[{"\[Alpha]", "[", "3", "]"}], " ", RowBox[{"\[Beta]", "[", "2", "]"}], " ", RowBox[{"\[Gamma]", "[", "4", "]"}]}]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Alpha]", "[", "4", "]"}], " ", RowBox[{"\[Beta]", "[", "2", "]"}], " ", RowBox[{"\[Gamma]", "[", "1", "]"}]}], "-", RowBox[{ RowBox[{"\[Alpha]", "[", "2", "]"}], " ", RowBox[{"\[Beta]", "[", "4", "]"}], " ", RowBox[{"\[Gamma]", "[", "1", "]"}]}], "-", RowBox[{ RowBox[{"\[Alpha]", "[", "4", "]"}], " ", RowBox[{"\[Beta]", "[", "1", "]"}], " ", RowBox[{"\[Gamma]", "[", "2", "]"}]}], "+", RowBox[{ RowBox[{"\[Alpha]", "[", "1", "]"}], " ", RowBox[{"\[Beta]", "[", "4", "]"}], " ", RowBox[{"\[Gamma]", "[", "2", "]"}]}]}], ")"}], " ", RowBox[{"\[Gamma]", "[", "3", "]"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Alpha]", "[", "3", "]"}], " ", RowBox[{"\[Beta]", "[", "2", "]"}], " ", RowBox[{"\[Gamma]", "[", "1", "]"}]}], "-", RowBox[{ RowBox[{"\[Alpha]", "[", "2", "]"}], " ", RowBox[{"\[Beta]", "[", "3", "]"}], " ", RowBox[{"\[Gamma]", "[", "1", "]"}]}], "-", RowBox[{ RowBox[{"\[Alpha]", "[", "3", "]"}], " ", RowBox[{"\[Beta]", "[", "1", "]"}], " ", RowBox[{"\[Gamma]", "[", "2", "]"}]}], "+", RowBox[{ RowBox[{"\[Alpha]", "[", "1", "]"}], " ", RowBox[{"\[Beta]", "[", "3", "]"}], " ", RowBox[{"\[Gamma]", "[", "2", "]"}]}]}], ")"}], " ", RowBox[{"\[Gamma]", "[", "4", "]"}]}]}], ")"}]}]}], ",", RowBox[{"\[Beta]", "\[Rule]", RowBox[{ RowBox[{"(", RowBox[{"\[Gamma]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Alpha]", "[", "4", "]"}], " ", RowBox[{"\[Beta]", "[", "3", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Beta]", "[", "2", "]"}], " ", RowBox[{"\[Gamma]", "[", "1", "]"}]}], "-", RowBox[{ RowBox[{"\[Beta]", "[", "1", "]"}], " ", RowBox[{"\[Gamma]", "[", "2", "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"\[Alpha]", "[", "3", "]"}], " ", RowBox[{"\[Beta]", "[", "4", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"\[Beta]", "[", "2", "]"}]}], " ", RowBox[{"\[Gamma]", "[", "1", "]"}]}], "+", RowBox[{ RowBox[{"\[Beta]", "[", "1", "]"}], " ", RowBox[{"\[Gamma]", "[", "2", "]"}]}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Alpha]", "[", "2", "]"}], " ", RowBox[{"\[Beta]", "[", "1", "]"}]}], "-", RowBox[{ RowBox[{"\[Alpha]", "[", "1", "]"}], " ", RowBox[{"\[Beta]", "[", "2", "]"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Beta]", "[", "4", "]"}], " ", RowBox[{"\[Gamma]", "[", "3", "]"}]}], "-", RowBox[{ RowBox[{"\[Beta]", "[", "3", "]"}], " ", RowBox[{"\[Gamma]", "[", "4", "]"}]}]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Alpha]", "[", "4", "]"}], " ", RowBox[{"\[Beta]", "[", "2", "]"}], " ", RowBox[{"\[Gamma]", "[", "1", "]"}]}], "-", RowBox[{ RowBox[{"\[Alpha]", "[", "2", "]"}], " ", RowBox[{"\[Beta]", "[", "4", "]"}], " ", RowBox[{"\[Gamma]", "[", "1", "]"}]}], "-", RowBox[{ RowBox[{"\[Alpha]", "[", "4", "]"}], " ", RowBox[{"\[Beta]", "[", "1", "]"}], " ", RowBox[{"\[Gamma]", "[", "2", "]"}]}], "+", RowBox[{ RowBox[{"\[Alpha]", "[", "1", "]"}], " ", RowBox[{"\[Beta]", "[", "4", "]"}], " ", RowBox[{"\[Gamma]", "[", "2", "]"}]}]}], ")"}], " ", RowBox[{"\[Gamma]", "[", "3", "]"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Alpha]", "[", "3", "]"}], " ", RowBox[{"\[Beta]", "[", "2", "]"}], " ", RowBox[{"\[Gamma]", "[", "1", "]"}]}], "-", RowBox[{ RowBox[{"\[Alpha]", "[", "2", "]"}], " ", RowBox[{"\[Beta]", "[", "3", "]"}], " ", RowBox[{"\[Gamma]", "[", "1", "]"}]}], "-", RowBox[{ RowBox[{"\[Alpha]", "[", "3", "]"}], " ", RowBox[{"\[Beta]", "[", "1", "]"}], " ", RowBox[{"\[Gamma]", "[", "2", "]"}]}], "+", RowBox[{ RowBox[{"\[Alpha]", "[", "1", "]"}], " ", RowBox[{"\[Beta]", "[", "3", "]"}], " ", RowBox[{"\[Gamma]", "[", "2", "]"}]}]}], ")"}], " ", RowBox[{"\[Gamma]", "[", "4", "]"}]}]}], ")"}]}]}]}], "}"}], "}"}]], "Output",ExpressionUUID->"07a5d9cb-7e39-4795-a388-8f7ad49e48ba"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"d1", "=", RowBox[{"Expand", "[", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Alpha]", "[", "2", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Alpha]", "[", "4", "]"}], " ", RowBox[{"\[Beta]", "[", "3", "]"}], " ", RowBox[{"\[Gamma]", "[", "1", "]"}]}], "-", RowBox[{ RowBox[{"\[Alpha]", "[", "3", "]"}], " ", RowBox[{"\[Beta]", "[", "4", "]"}], " ", RowBox[{"\[Gamma]", "[", "1", "]"}]}], "-", RowBox[{ RowBox[{"\[Alpha]", "[", "4", "]"}], " ", RowBox[{"\[Beta]", "[", "1", "]"}], " ", RowBox[{"\[Gamma]", "[", "3", "]"}]}], "+", RowBox[{ RowBox[{"\[Alpha]", "[", "3", "]"}], " ", RowBox[{"\[Beta]", "[", "1", "]"}], " ", RowBox[{"\[Gamma]", "[", "4", "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"\[Alpha]", "[", "1", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"\[Alpha]", "[", "4", "]"}]}], " ", RowBox[{"\[Beta]", "[", "3", "]"}], " ", RowBox[{"\[Gamma]", "[", "2", "]"}]}], "+", RowBox[{ RowBox[{"\[Alpha]", "[", "3", "]"}], " ", RowBox[{"\[Beta]", "[", "4", "]"}], " ", RowBox[{"\[Gamma]", "[", "2", "]"}]}], "+", RowBox[{ RowBox[{"\[Alpha]", "[", "4", "]"}], " ", RowBox[{"\[Beta]", "[", "2", "]"}], " ", RowBox[{"\[Gamma]", "[", "3", "]"}]}], "-", RowBox[{ RowBox[{"\[Alpha]", "[", "3", "]"}], " ", RowBox[{"\[Beta]", "[", "2", "]"}], " ", RowBox[{"\[Gamma]", "[", "4", "]"}]}]}], ")"}]}]}], ")"}], "]"}]}], ")"}], "/.", RowBox[{ RowBox[{"f_", "[", "g_", "]"}], "\[RuleDelayed]", RowBox[{"Subscript", "[", RowBox[{"f", ",", "g"}], "]"}]}]}], "//", "TraditionalForm"}]], "Input",E\ xpressionUUID->"1ae1841a-bbc4-40d3-b627-7b2ffa00458c"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["\[Alpha]", "2"], " ", SubscriptBox["\[Alpha]", "4"], " ", SubscriptBox["\[Beta]", "3"], " ", SubscriptBox["\[Gamma]", "1"]}], "-", RowBox[{ SubscriptBox["\[Alpha]", "2"], " ", SubscriptBox["\[Alpha]", "3"], " ", SubscriptBox["\[Beta]", "4"], " ", SubscriptBox["\[Gamma]", "1"]}], "-", RowBox[{ SubscriptBox["\[Alpha]", "1"], " ", SubscriptBox["\[Alpha]", "4"], " ", SubscriptBox["\[Beta]", "3"], " ", SubscriptBox["\[Gamma]", "2"]}], "+", RowBox[{ SubscriptBox["\[Alpha]", "1"], " ", SubscriptBox["\[Alpha]", "3"], " ", SubscriptBox["\[Beta]", "4"], " ", SubscriptBox["\[Gamma]", "2"]}], "-", RowBox[{ SubscriptBox["\[Alpha]", "2"], " ", SubscriptBox["\[Alpha]", "4"], " ", SubscriptBox["\[Beta]", "1"], " ", SubscriptBox["\[Gamma]", "3"]}], "+", RowBox[{ SubscriptBox["\[Alpha]", "1"], " ", SubscriptBox["\[Alpha]", "4"], " ", SubscriptBox["\[Beta]", "2"], " ", SubscriptBox["\[Gamma]", "3"]}], "+", RowBox[{ SubscriptBox["\[Alpha]", "2"], " ", SubscriptBox["\[Alpha]", "3"], " ", SubscriptBox["\[Beta]", "1"], " ", SubscriptBox["\[Gamma]", "4"]}], "-", RowBox[{ SubscriptBox["\[Alpha]", "1"], " ", SubscriptBox["\[Alpha]", "3"], " ", SubscriptBox["\[Beta]", "2"], " ", SubscriptBox["\[Gamma]", "4"]}]}], TraditionalForm]], "Output",ExpressionU\ UID->"9f6caea1-c7d6-4565-a204-2e0e67525b53"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Select", "[", RowBox[{ RowBox[{"Permutations", "[", RowBox[{"Range", "[", "4", "]"}], "]"}], ","}]}]], "Input",ExpressionUUID-\ >"1265969b-9985-4488-96bd-ea816030d8c4"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "4", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3", ",", "2", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3", ",", "4", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "4", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "4", ",", "3", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1", ",", "3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1", ",", "4", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "4", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4", ",", "3", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1", ",", "2", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1", ",", "4", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2", ",", "4", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4", ",", "2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "1", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "1", ",", "3", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "2", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "2", ",", "3", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "3", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "3", ",", "2", ",", "1"}], "}"}]}], "}"}]], "Output",Exp\ ressionUUID->"f31d76c8-ba77-43ed-9e1b-a814e71d66f0"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Det", "[", RowBox[{"Array", "[", RowBox[{"a", ",", RowBox[{"{", RowBox[{"4", ",", "4"}], "}"}]}], "]"}], "]"}]], "Input",ExpressionUUID->\ "5cfe4a6e-7c69-4195-908b-b5030b7ac9c1"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"a", "[", RowBox[{"1", ",", "4"}], "]"}], " ", RowBox[{"a", "[", RowBox[{"2", ",", "3"}], "]"}], " ", RowBox[{"a", "[", RowBox[{"3", ",", "2"}], "]"}], " ", RowBox[{"a", "[", RowBox[{"4", ",", "1"}], "]"}]}], "-", RowBox[{ RowBox[{"a", "[", RowBox[{"1", ",", "3"}], "]"}], " ", RowBox[{"a", "[", RowBox[{"2", ",", "4"}], "]"}], " ", RowBox[{"a", "[", RowBox[{"3", ",", "2"}], "]"}], " ", RowBox[{"a", "[", RowBox[{"4", ",", "1"}], "]"}]}], "-", RowBox[{ RowBox[{"a", "[", RowBox[{"1", ",", "4"}], "]"}], " ", RowBox[{"a", "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{"a", "[", RowBox[{"3", ",", "3"}], "]"}], " ", RowBox[{"a", "[", RowBox[{"4", ",", "1"}], "]"}]}], "+", RowBox[{ RowBox[{"a", "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{"a", "[", RowBox[{"2", ",", "4"}], "]"}], " ", RowBox[{"a", "[", RowBox[{"3", ",", "3"}], "]"}], " ", RowBox[{"a", "[", RowBox[{"4", ",", "1"}], "]"}]}], "+", RowBox[{ RowBox[{"a", "[", RowBox[{"1", ",", "3"}], "]"}], " ", RowBox[{"a", "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{"a", "[", RowBox[{"3", ",", "4"}], "]"}], " ", RowBox[{"a", "[", RowBox[{"4", ",", "1"}], "]"}]}], "-", RowBox[{ RowBox[{"a", "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{"a", "[", RowBox[{"2", ",", "3"}], "]"}], " ", RowBox[{"a", "[", RowBox[{"3", ",", "4"}], "]"}], " ", RowBox[{"a", "[", RowBox[{"4", ",", "1"}], "]"}]}], "-", RowBox[{ RowBox[{"a", "[", RowBox[{"1", ",", "4"}], "]"}], " ", RowBox[{"a", "[", RowBox[{"2", ",", "3"}], "]"}], " ", RowBox[{"a", "[", RowBox[{"3", ",", "1"}], "]"}], " ", RowBox[{"a", "[", RowBox[{"4", ",", "2"}], "]"}]}], "+", RowBox[{ RowBox[{"a", "[", RowBox[{"1", ",", "3"}], "]"}], " ", RowBox[{"a", "[", RowBox[{"2", ",", "4"}], "]"}], " ", RowBox[{"a", "[", RowBox[{"3", ",", "1"}], "]"}], " ", RowBox[{"a", "[", RowBox[{"4", ",", "2"}], "]"}]}], "+", RowBox[{ RowBox[{"a", "[", RowBox[{"1", ",", "4"}], "]"}], " ", RowBox[{"a", "[", RowBox[{"2", ",", "1"}], "]"}], " ", RowBox[{"a", "[", RowBox[{"3", ",", "3"}], "]"}], " ", RowBox[{"a", "[", RowBox[{"4", ",", "2"}], "]"}]}], "-", RowBox[{ RowBox[{"a", "[", RowBox[{"1", ",", "1"}], "]"}], " ", RowBox[{"a", "[", RowBox[{"2", ",", "4"}], "]"}], " ", RowBox[{"a", "[", RowBox[{"3", ",", "3"}], "]"}], " ", RowBox[{"a", "[", RowBox[{"4", ",", "2"}], "]"}]}], "-", RowBox[{ RowBox[{"a", "[", RowBox[{"1", ",", "3"}], "]"}], " ", RowBox[{"a", "[", RowBox[{"2", ",", "1"}], "]"}], " ", RowBox[{"a", "[", RowBox[{"3", ",", "4"}], "]"}], " ", RowBox[{"a", "[", RowBox[{"4", ",", "2"}], "]"}]}], "+", RowBox[{ RowBox[{"a", "[", RowBox[{"1", ",", "1"}], "]"}], " ", RowBox[{"a", "[", RowBox[{"2", ",", "3"}], "]"}], " ", RowBox[{"a", "[", RowBox[{"3", ",", "4"}], "]"}], " ", RowBox[{"a", "[", RowBox[{"4", ",", "2"}], "]"}]}], "+", RowBox[{ RowBox[{"a", "[", RowBox[{"1", ",", "4"}], "]"}], " ", RowBox[{"a", "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{"a", "[", RowBox[{"3", ",", "1"}], "]"}], " ", RowBox[{"a", "[", RowBox[{"4", ",", "3"}], "]"}]}], "-", RowBox[{ RowBox[{"a", "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{"a", "[", RowBox[{"2", ",", "4"}], "]"}], " ", RowBox[{"a", "[", RowBox[{"3", ",", "1"}], "]"}], " ", RowBox[{"a", "[", RowBox[{"4", ",", "3"}], "]"}]}], "-", RowBox[{ RowBox[{"a", "[", RowBox[{"1", ",", "4"}], "]"}], " ", RowBox[{"a", "[", RowBox[{"2", ",", "1"}], "]"}], " ", RowBox[{"a", "[", RowBox[{"3", ",", "2"}], "]"}], " ", RowBox[{"a", "[", RowBox[{"4", ",", "3"}], "]"}]}], "+", RowBox[{ RowBox[{"a", "[", RowBox[{"1", ",", "1"}], "]"}], " ", RowBox[{"a", "[", RowBox[{"2", ",", "4"}], "]"}], " ", RowBox[{"a", "[", RowBox[{"3", ",", "2"}], "]"}], " ", RowBox[{"a", "[", RowBox[{"4", ",", "3"}], "]"}]}], "+", RowBox[{ RowBox[{"a", "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{"a", "[", RowBox[{"2", ",", "1"}], "]"}], " ", RowBox[{"a", "[", RowBox[{"3", ",", "4"}], "]"}], " ", RowBox[{"a", "[", RowBox[{"4", ",", "3"}], "]"}]}], "-", RowBox[{ RowBox[{"a", "[", RowBox[{"1", ",", "1"}], "]"}], " ", RowBox[{"a", "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{"a", "[", RowBox[{"3", ",", "4"}], "]"}], " ", RowBox[{"a", "[", RowBox[{"4", ",", "3"}], "]"}]}], "-", RowBox[{ RowBox[{"a", "[", RowBox[{"1", ",", "3"}], "]"}], " ", RowBox[{"a", "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{"a", "[", RowBox[{"3", ",", "1"}], "]"}], " ", RowBox[{"a", "[", RowBox[{"4", ",", "4"}], "]"}]}], "+", RowBox[{ RowBox[{"a", "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{"a", "[", RowBox[{"2", ",", "3"}], "]"}], " ", RowBox[{"a", "[", RowBox[{"3", ",", "1"}], "]"}], " ", RowBox[{"a", "[", RowBox[{"4", ",", "4"}], "]"}]}], "+", RowBox[{ RowBox[{"a", "[", RowBox[{"1", ",", "3"}], "]"}], " ", RowBox[{"a", "[", RowBox[{"2", ",", "1"}], "]"}], " ", RowBox[{"a", "[", RowBox[{"3", ",", "2"}], "]"}], " ", RowBox[{"a", "[", RowBox[{"4", ",", "4"}], "]"}]}], "-", RowBox[{ RowBox[{"a", "[", RowBox[{"1", ",", "1"}], "]"}], " ", RowBox[{"a", "[", RowBox[{"2", ",", "3"}], "]"}], " ", RowBox[{"a", "[", RowBox[{"3", ",", "2"}], "]"}], " ", RowBox[{"a", "[", RowBox[{"4", ",", "4"}], "]"}]}], "-", RowBox[{ RowBox[{"a", "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{"a", "[", RowBox[{"2", ",", "1"}], "]"}], " ", RowBox[{"a", "[", RowBox[{"3", ",", "3"}], "]"}], " ", RowBox[{"a", "[", RowBox[{"4", ",", "4"}], "]"}]}], "+", RowBox[{ RowBox[{"a", "[", RowBox[{"1", ",", "1"}], "]"}], " ", RowBox[{"a", "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{"a", "[", RowBox[{"3", ",", "3"}], "]"}], " ", RowBox[{"a", "[", RowBox[{"4", ",", "4"}], "]"}]}]}]], "Output",ExpressionUUID->"e7d6ee36-\ 7566-4c71-8cae-1f3671fcf5a2"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Det", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]", "[", "1", "]"}], ",", RowBox[{"\[Alpha]", "[", "1", "]"}], ",", RowBox[{"\[Beta]", "[", "1", "]"}], ",", RowBox[{"\[Gamma]", "[", "1", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]", "[", "2", "]"}], ",", RowBox[{"\[Alpha]", "[", "2", "]"}], ",", RowBox[{"\[Beta]", "[", "2", "]"}], ",", RowBox[{"\[Gamma]", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]", "[", "3", "]"}], ",", RowBox[{"\[Alpha]", "[", "3", "]"}], ",", RowBox[{"\[Beta]", "[", "3", "]"}], ",", RowBox[{"\[Gamma]", "[", "3", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]", "[", "4", "]"}], ",", RowBox[{"\[Alpha]", "[", "4", "]"}], ",", RowBox[{"\[Beta]", "[", "4", "]"}], ",", RowBox[{"\[Gamma]", "[", "4", "]"}]}], "}"}]}], "}"}], "]"}]], "Input",E\ xpressionUUID->"bb0161bc-e762-4a47-b9f9-ba32b8ff9e40"], Cell[BoxData["0"], "Output",ExpressionUUID->"48e795fb-98aa-4ccd-9221-2dc0adc172f0"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", "d1", "]"}]], "Input",ExpressionUUID->"226df7a8-784d-45d6-ab9a-5ec6f2282064"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"\[Alpha]", "[", "2", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Alpha]", "[", "4", "]"}], " ", RowBox[{"\[Beta]", "[", "3", "]"}], " ", RowBox[{"\[Gamma]", "[", "1", "]"}]}], "-", RowBox[{ RowBox[{"\[Alpha]", "[", "3", "]"}], " ", RowBox[{"\[Beta]", "[", "4", "]"}], " ", RowBox[{"\[Gamma]", "[", "1", "]"}]}], "-", RowBox[{ RowBox[{"\[Alpha]", "[", "4", "]"}], " ", RowBox[{"\[Beta]", "[", "1", "]"}], " ", RowBox[{"\[Gamma]", "[", "3", "]"}]}], "+", RowBox[{ RowBox[{"\[Alpha]", "[", "3", "]"}], " ", RowBox[{"\[Beta]", "[", "1", "]"}], " ", RowBox[{"\[Gamma]", "[", "4", "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"\[Alpha]", "[", "1", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"\[Alpha]", "[", "4", "]"}]}], " ", RowBox[{"\[Beta]", "[", "3", "]"}], " ", RowBox[{"\[Gamma]", "[", "2", "]"}]}], "+", RowBox[{ RowBox[{"\[Alpha]", "[", "3", "]"}], " ", RowBox[{"\[Beta]", "[", "4", "]"}], " ", RowBox[{"\[Gamma]", "[", "2", "]"}]}], "+", RowBox[{ RowBox[{"\[Alpha]", "[", "4", "]"}], " ", RowBox[{"\[Beta]", "[", "2", "]"}], " ", RowBox[{"\[Gamma]", "[", "3", "]"}]}], "-", RowBox[{ RowBox[{"\[Alpha]", "[", "3", "]"}], " ", RowBox[{"\[Beta]", "[", "2", "]"}], " ", RowBox[{"\[Gamma]", "[", "4", "]"}]}]}], ")"}]}]}]], "Output",Expression\ UUID->"b08daecb-1e0d-4c9b-9039-570f1c8bef24"] }, Open ]], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"\[Alpha]", "(", "1", ")"}], " ", TagBox[ RowBox[{"\[LeftBracketingBar]", "\[NoBreak]", GridBox[{ { RowBox[{"\[Alpha]", "(", "2", ")"}], RowBox[{"\[Beta]", "(", "2", ")"}], RowBox[{"\[Gamma]", "(", "2", ")"}]}, { RowBox[{"\[Alpha]", "(", "3", ")"}], RowBox[{"\[Beta]", "(", "3", ")"}], RowBox[{"\[Gamma]", "(", "3", ")"}]}, { RowBox[{"\[Alpha]", "(", "4", ")"}], RowBox[{"\[Beta]", "(", "4", ")"}], RowBox[{"\[Gamma]", "(", "4", ")"}]} }], "\[NoBreak]", "\[RightBracketingBar]"}], {Det}]}], "-", RowBox[{ RowBox[{"\[Alpha]", "(", "2", ")"}], " ", TagBox[ RowBox[{"\[LeftBracketingBar]", "\[NoBreak]", GridBox[{ { RowBox[{"\[Alpha]", "(", "1", ")"}], RowBox[{"\[Beta]", "(", "1", ")"}], RowBox[{"\[Gamma]", "(", "1", ")"}]}, { RowBox[{"\[Alpha]", "(", "3", ")"}], RowBox[{"\[Beta]", "(", "3", ")"}], RowBox[{"\[Gamma]", "(", "3", ")"}]}, { RowBox[{"\[Alpha]", "(", "4", ")"}], RowBox[{"\[Beta]", "(", "4", ")"}], RowBox[{"\[Gamma]", "(", "4", ")"}]} }], "\[NoBreak]", "\[RightBracketingBar]"}], {Det}]}]}], TraditionalForm]], "Input",ExpressionUUID->"521ea14d-0e6b-\ 40fe-a624-797076f5d6e2"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{"d1", "+", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Alpha]", "[", "2", "]"}], RowBox[{"Det", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]", "[", "1", "]"}], ",", RowBox[{"\[Beta]", "[", "1", "]"}], ",", RowBox[{"\[Gamma]", "[", "1", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]", "[", "3", "]"}], ",", RowBox[{"\[Beta]", "[", "3", "]"}], ",", RowBox[{"\[Gamma]", "[", "3", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]", "[", "4", "]"}], ",", RowBox[{"\[Beta]", "[", "4", "]"}], ",", RowBox[{"\[Gamma]", "[", "4", "]"}]}], "}"}]}], "}"}], "]"}]}], "-", RowBox[{ RowBox[{"\[Alpha]", "[", "1", "]"}], RowBox[{"Det", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]", "[", "2", "]"}], ",", RowBox[{"\[Beta]", "[", "2", "]"}], ",", RowBox[{"\[Gamma]", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]", "[", "3", "]"}], ",", RowBox[{"\[Beta]", "[", "3", "]"}], ",", RowBox[{"\[Gamma]", "[", "3", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]", "[", "4", "]"}], ",", RowBox[{"\[Beta]", "[", "4", "]"}], ",", RowBox[{"\[Gamma]", "[", "4", "]"}]}], "}"}]}], "}"}], "]"}]}]}], ")"}]}], "]"}]], "Input",ExpressionUUID->"e36c4c7b-ea4b-4e21-bb56-\ fc7183d14fbf"], Cell[BoxData["0"], "Output",ExpressionUUID->"472c7a69-e3d2-41a4-bf7c-06ca78f30f69"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"d2", "=", RowBox[{"Expand", "[", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Alpha]", "[", "4", "]"}], " ", RowBox[{"\[Beta]", "[", "3", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Beta]", "[", "2", "]"}], " ", RowBox[{"\[Gamma]", "[", "1", "]"}]}], "-", RowBox[{ RowBox[{"\[Beta]", "[", "1", "]"}], " ", RowBox[{"\[Gamma]", "[", "2", "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"\[Alpha]", "[", "3", "]"}], " ", RowBox[{"\[Beta]", "[", "4", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"\[Beta]", "[", "2", "]"}]}], " ", RowBox[{"\[Gamma]", "[", "1", "]"}]}], "+", RowBox[{ RowBox[{"\[Beta]", "[", "1", "]"}], " ", RowBox[{"\[Gamma]", "[", "2", "]"}]}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Alpha]", "[", "2", "]"}], " ", RowBox[{"\[Beta]", "[", "1", "]"}]}], "-", RowBox[{ RowBox[{"\[Alpha]", "[", "1", "]"}], " ", RowBox[{"\[Beta]", "[", "2", "]"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Beta]", "[", "4", "]"}], " ", RowBox[{"\[Gamma]", "[", "3", "]"}]}], "-", RowBox[{ RowBox[{"\[Beta]", "[", "3", "]"}], " ", RowBox[{"\[Gamma]", "[", "4", "]"}]}]}], ")"}]}]}], ")"}], "]"}]}], ")"}], "/.", RowBox[{ RowBox[{"f_", "[", "g_", "]"}], "\[RuleDelayed]", RowBox[{"Subscript", "[", RowBox[{"f", ",", "g"}], "]"}]}]}], "//", "TraditionalForm"}]], "Input",E\ xpressionUUID->"e1634946-7c1d-46ba-a751-e8fd533bd97a"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["\[Alpha]", "4"], " ", SubscriptBox["\[Beta]", "2"], " ", SubscriptBox["\[Beta]", "3"], " ", SubscriptBox["\[Gamma]", "1"]}], "-", RowBox[{ SubscriptBox["\[Alpha]", "3"], " ", SubscriptBox["\[Beta]", "2"], " ", SubscriptBox["\[Beta]", "4"], " ", SubscriptBox["\[Gamma]", "1"]}], "-", RowBox[{ SubscriptBox["\[Alpha]", "4"], " ", SubscriptBox["\[Beta]", "1"], " ", SubscriptBox["\[Beta]", "3"], " ", SubscriptBox["\[Gamma]", "2"]}], "+", RowBox[{ SubscriptBox["\[Alpha]", "3"], " ", SubscriptBox["\[Beta]", "1"], " ", SubscriptBox["\[Beta]", "4"], " ", SubscriptBox["\[Gamma]", "2"]}], "-", RowBox[{ SubscriptBox["\[Alpha]", "2"], " ", SubscriptBox["\[Beta]", "1"], " ", SubscriptBox["\[Beta]", "4"], " ", SubscriptBox["\[Gamma]", "3"]}], "+", RowBox[{ SubscriptBox["\[Alpha]", "1"], " ", SubscriptBox["\[Beta]", "2"], " ", SubscriptBox["\[Beta]", "4"], " ", SubscriptBox["\[Gamma]", "3"]}], "+", RowBox[{ SubscriptBox["\[Alpha]", "2"], " ", SubscriptBox["\[Beta]", "1"], " ", SubscriptBox["\[Beta]", "3"], " ", SubscriptBox["\[Gamma]", "4"]}], "-", RowBox[{ SubscriptBox["\[Alpha]", "1"], " ", SubscriptBox["\[Beta]", "2"], " ", SubscriptBox["\[Beta]", "3"], " ", SubscriptBox["\[Gamma]", "4"]}]}], TraditionalForm]], "Output",ExpressionU\ UID->"543e2331-1dc5-4892-9fa1-e39467be4a56"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{"d2", "+", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Beta]", "[", "2", "]"}], RowBox[{"Det", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]", "[", "1", "]"}], ",", RowBox[{"\[Beta]", "[", "1", "]"}], ",", RowBox[{"\[Gamma]", "[", "1", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]", "[", "3", "]"}], ",", RowBox[{"\[Beta]", "[", "3", "]"}], ",", RowBox[{"\[Gamma]", "[", "3", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]", "[", "4", "]"}], ",", RowBox[{"\[Beta]", "[", "4", "]"}], ",", RowBox[{"\[Gamma]", "[", "4", "]"}]}], "}"}]}], "}"}], "]"}]}], "-", RowBox[{ RowBox[{"\[Beta]", "[", "1", "]"}], RowBox[{"Det", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]", "[", "2", "]"}], ",", RowBox[{"\[Beta]", "[", "2", "]"}], ",", RowBox[{"\[Gamma]", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]", "[", "3", "]"}], ",", RowBox[{"\[Beta]", "[", "3", "]"}], ",", RowBox[{"\[Gamma]", "[", "3", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]", "[", "4", "]"}], ",", RowBox[{"\[Beta]", "[", "4", "]"}], ",", RowBox[{"\[Gamma]", "[", "4", "]"}]}], "}"}]}], "}"}], "]"}]}]}], ")"}]}], "]"}]], "Input",ExpressionUUID->"2db2dc4e-550b-46ab-a1a0-\ 9d2e04fa4b85"], Cell[BoxData["0"], "Output",ExpressionUUID->"7913e1f6-569b-4856-b955-12ebd9bf23ae"] }, Open ]], Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{"d1", "+", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Alpha]", "[", "2", "]"}], RowBox[{"Det", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]", "[", "1", "]"}], ",", RowBox[{"\[Beta]", "[", "1", "]"}], ",", RowBox[{"\[Gamma]", "[", "1", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]", "[", "3", "]"}], ",", RowBox[{"\[Beta]", "[", "3", "]"}], ",", RowBox[{"\[Gamma]", "[", "3", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]", "[", "4", "]"}], ",", RowBox[{"\[Beta]", "[", "4", "]"}], ",", RowBox[{"\[Gamma]", "[", "4", "]"}]}], "}"}]}], "}"}], "]"}]}], "-", RowBox[{ RowBox[{"\[Alpha]", "[", "1", "]"}], RowBox[{"Det", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]", "[", "2", "]"}], ",", RowBox[{"\[Beta]", "[", "2", "]"}], ",", RowBox[{"\[Gamma]", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]", "[", "3", "]"}], ",", RowBox[{"\[Beta]", "[", "3", "]"}], ",", RowBox[{"\[Gamma]", "[", "3", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]", "[", "4", "]"}], ",", RowBox[{"\[Beta]", "[", "4", "]"}], ",", RowBox[{"\[Gamma]", "[", "4", "]"}]}], "}"}]}], "}"}], "]"}]}]}], ")"}]}], "]"}]], "Input",ExpressionUUID->"e2f2ed94-0b57-4526-a21b-\ afdad3b4f18e"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"d3", "=", RowBox[{"Expand", "[", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Alpha]", "[", "4", "]"}], " ", RowBox[{"\[Beta]", "[", "2", "]"}], " ", RowBox[{"\[Gamma]", "[", "1", "]"}]}], "-", RowBox[{ RowBox[{"\[Alpha]", "[", "2", "]"}], " ", RowBox[{"\[Beta]", "[", "4", "]"}], " ", RowBox[{"\[Gamma]", "[", "1", "]"}]}], "-", RowBox[{ RowBox[{"\[Alpha]", "[", "4", "]"}], " ", RowBox[{"\[Beta]", "[", "1", "]"}], " ", RowBox[{"\[Gamma]", "[", "2", "]"}]}], "+", RowBox[{ RowBox[{"\[Alpha]", "[", "1", "]"}], " ", RowBox[{"\[Beta]", "[", "4", "]"}], " ", RowBox[{"\[Gamma]", "[", "2", "]"}]}]}], ")"}], " ", RowBox[{"\[Gamma]", "[", "3", "]"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Alpha]", "[", "3", "]"}], " ", RowBox[{"\[Beta]", "[", "2", "]"}], " ", RowBox[{"\[Gamma]", "[", "1", "]"}]}], "-", RowBox[{ RowBox[{"\[Alpha]", "[", "2", "]"}], " ", RowBox[{"\[Beta]", "[", "3", "]"}], " ", RowBox[{"\[Gamma]", "[", "1", "]"}]}], "-", RowBox[{ RowBox[{"\[Alpha]", "[", "3", "]"}], " ", RowBox[{"\[Beta]", "[", "1", "]"}], " ", RowBox[{"\[Gamma]", "[", "2", "]"}]}], "+", RowBox[{ RowBox[{"\[Alpha]", "[", "1", "]"}], " ", RowBox[{"\[Beta]", "[", "3", "]"}], " ", RowBox[{"\[Gamma]", "[", "2", "]"}]}]}], ")"}], " ", RowBox[{"\[Gamma]", "[", "4", "]"}]}]}], ")"}], "]"}]}], ")"}], "/.", RowBox[{ RowBox[{"f_", "[", "g_", "]"}], "\[RuleDelayed]", RowBox[{"Subscript", "[", RowBox[{"f", ",", "g"}], "]"}]}]}], "//", "TraditionalForm"}]], "Input",E\ xpressionUUID->"28909d82-6430-43ee-82c9-3b709a189798"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["\[Alpha]", "4"], " ", SubscriptBox["\[Beta]", "2"], " ", SubscriptBox["\[Gamma]", "1"], " ", SubscriptBox["\[Gamma]", "3"]}], "-", RowBox[{ SubscriptBox["\[Alpha]", "2"], " ", SubscriptBox["\[Beta]", "4"], " ", SubscriptBox["\[Gamma]", "1"], " ", SubscriptBox["\[Gamma]", "3"]}], "-", RowBox[{ SubscriptBox["\[Alpha]", "4"], " ", SubscriptBox["\[Beta]", "1"], " ", SubscriptBox["\[Gamma]", "2"], " ", SubscriptBox["\[Gamma]", "3"]}], "+", RowBox[{ SubscriptBox["\[Alpha]", "1"], " ", SubscriptBox["\[Beta]", "4"], " ", SubscriptBox["\[Gamma]", "2"], " ", SubscriptBox["\[Gamma]", "3"]}], "-", RowBox[{ SubscriptBox["\[Alpha]", "3"], " ", SubscriptBox["\[Beta]", "2"], " ", SubscriptBox["\[Gamma]", "1"], " ", SubscriptBox["\[Gamma]", "4"]}], "+", RowBox[{ SubscriptBox["\[Alpha]", "2"], " ", SubscriptBox["\[Beta]", "3"], " ", SubscriptBox["\[Gamma]", "1"], " ", SubscriptBox["\[Gamma]", "4"]}], "+", RowBox[{ SubscriptBox["\[Alpha]", "3"], " ", SubscriptBox["\[Beta]", "1"], " ", SubscriptBox["\[Gamma]", "2"], " ", SubscriptBox["\[Gamma]", "4"]}], "-", RowBox[{ SubscriptBox["\[Alpha]", "1"], " ", SubscriptBox["\[Beta]", "3"], " ", SubscriptBox["\[Gamma]", "2"], " ", SubscriptBox["\[Gamma]", "4"]}]}], TraditionalForm]], "Output",ExpressionU\ UID->"d305cd6f-bae3-42ae-bfed-16ab67c378b8"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{"d3", "+", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Gamma]", "[", "2", "]"}], RowBox[{"Det", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]", "[", "1", "]"}], ",", RowBox[{"\[Beta]", "[", "1", "]"}], ",", RowBox[{"\[Gamma]", "[", "1", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]", "[", "3", "]"}], ",", RowBox[{"\[Beta]", "[", "3", "]"}], ",", RowBox[{"\[Gamma]", "[", "3", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]", "[", "4", "]"}], ",", RowBox[{"\[Beta]", "[", "4", "]"}], ",", RowBox[{"\[Gamma]", "[", "4", "]"}]}], "}"}]}], "}"}], "]"}]}], "-", RowBox[{ RowBox[{"\[Gamma]", "[", "1", "]"}], RowBox[{"Det", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]", "[", "2", "]"}], ",", RowBox[{"\[Beta]", "[", "2", "]"}], ",", RowBox[{"\[Gamma]", "[", "2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]", "[", "3", "]"}], ",", RowBox[{"\[Beta]", "[", "3", "]"}], ",", RowBox[{"\[Gamma]", "[", "3", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]", "[", "4", "]"}], ",", RowBox[{"\[Beta]", "[", "4", "]"}], ",", RowBox[{"\[Gamma]", "[", "4", "]"}]}], "}"}]}], "}"}], "]"}]}]}], ")"}]}], "]"}]], "Input",ExpressionUUID->"3ff9cad1-567e-4ed0-a8f3-\ be36f49e7a65"], Cell[BoxData["0"], "Output",ExpressionUUID->"4c36af67-4a1f-4b88-ae89-339556751067"] }, Open ]], Cell[CellGroupData[{ Cell["Check", "Subsection",ExpressionUUID->"f7e687b6-cd96-4912-a73f-ad10eca50758"], Cell[BoxData[ RowBox[{"<<", "PlaneGeometry`"}]], "Input",ExpressionUUID->"fc59da6e-5e85-4ee8-9ddd-64bb6bf3c635"], Cell[BoxData[ RowBox[{ RowBox[{"t", "=", RowBox[{"Triangle", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{".2", ",", ".30"}], "}"}]}], "}"}], "]"}]}], ";"}]], "Input",Ex\ pressionUUID->"051fdb5a-9fc0-4845-9434-a740a59fbf2c"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{"Midpoint", "[", RowBox[{"{", RowBox[{"Centroid", ",", "Orthocenter"}], "}"}], "]"}], "]"}]], "Input",Ex\ pressionUUID->"28565ac9-0731-46de-a77d-d241dbf5320e"], Cell[BoxData[ RowBox[{"{", RowBox[{ FractionBox[ RowBox[{ RowBox[{"4", " ", "a", " ", RowBox[{"Sec", "[", "A", "]"}]}], "+", RowBox[{"b", " ", RowBox[{"Sec", "[", "B", "]"}]}], "+", RowBox[{"c", " ", RowBox[{"Sec", "[", "C", "]"}]}]}], "a"], ",", FractionBox[ RowBox[{ RowBox[{"a", " ", RowBox[{"Sec", "[", "A", "]"}]}], "+", RowBox[{"4", " ", "b", " ", RowBox[{"Sec", "[", "B", "]"}]}], "+", RowBox[{"c", " ", RowBox[{"Sec", "[", "C", "]"}]}]}], "b"], ",", FractionBox[ RowBox[{ RowBox[{"a", " ", RowBox[{"Sec", "[", "A", "]"}]}], "+", RowBox[{"b", " ", RowBox[{"Sec", "[", "B", "]"}]}], "+", RowBox[{"4", " ", "c", " ", RowBox[{"Sec", "[", "C", "]"}]}]}], "c"]}], "}"}]], "Output",ExpressionU\ UID->"e168db79-b247-453f-9912-93b58425c10e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Midpoint", "[", RowBox[{"t", ",", RowBox[{"{", RowBox[{"Centroid", ",", "Orthocenter"}], "}"}]}], "]"}]], "Input",Express\ ionUUID->"e9cec683-ba11-4b8d-a21d-094fb90f6b34"], Cell[BoxData[ RowBox[{"Point", "[", RowBox[{"{", RowBox[{"0.3`", ",", "0.3166666666666667`"}], "}"}], "]"}]], "Output",Expre\ ssionUUID->"7f815573-85b3-447c-8c85-61ff8307860a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Midpoint", "[", RowBox[{"Line", "[", RowBox[{"Coordinates", "/@", RowBox[{"{", RowBox[{ RowBox[{"Centroid", "[", "t", "]"}], ",", RowBox[{"Orthocenter", "[", "t", "]"}]}], "}"}]}], "]"}], "]"}]], "Input",ExpressionUUID->"504a0deb-c750-4227-9b2e-3c4de89efa03"], Cell[BoxData[ RowBox[{"Point", "[", RowBox[{"{", RowBox[{"0.2999999999999998`", ",", "0.3166666666666667`"}], "}"}], "]"}]], "Output",ExpressionUUID->"b951a0e8-6ef0-4b03-8bb5-e31972578525"] }, Open ]], Cell[BoxData["\[IndentingNewLine]"], "Input",ExpressionUUID->"49212a89-0918-4eb2-98d9-0978dffc04de"] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{893, 675}, WindowMargins->{{85, Automatic}, {Automatic, 81}}, 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, 94, 0, 92, "Title", "ExpressionUUID" -> \ "5e179b83-3527-4171-89ec-847ddc5c96c1"], Cell[CellGroupData[{ Cell[699, 26, 83, 0, 44, "Subsection", "ExpressionUUID" -> \ "4de6dd4a-573b-4da7-aeb6-b387b9cc089f"], Cell[785, 28, 113, 3, 49, "Text", "ExpressionUUID" -> \ "b4b98028-1a2a-411a-bc14-cd92c2635f40"], Cell[901, 33, 358, 9, 30, "Text", "ExpressionUUID" -> \ "ebd32cf0-c9c7-41f1-939c-8ca73e8691df"], Cell[1262, 44, 372, 10, 30, "Text", "ExpressionUUID" -> \ "3c00c9ba-3c7a-4f04-b60b-909e903780f4"], Cell[1637, 56, 154, 2, 30, "Text", "ExpressionUUID" -> \ "0d6426e6-c044-413f-b1b2-364fc64390b9"] }, Open ]], Cell[CellGroupData[{ Cell[1828, 63, 91, 0, 44, "Subsection", "ExpressionUUID" -> \ "9e9612ef-a5cb-4b11-bd84-b8d6f7d69114"], Cell[1922, 65, 113, 2, 70, "Input", "ExpressionUUID" -> \ "1782cbf1-7d5d-4e6f-966d-0b4eb907435c", InitializationCell->True] }, Open ]], Cell[CellGroupData[{ Cell[2072, 72, 77, 0, 64, "Section", "ExpressionUUID" -> \ "6e05d999-45a7-4701-b337-e2c1d1c7c590"], Cell[CellGroupData[{ Cell[2174, 76, 1219, 33, 96, "Input", "ExpressionUUID" -> \ "389f647d-184e-4225-99b5-f92ded7d4037"], Cell[3396, 111, 2069, 69, 92, "Output", "ExpressionUUID" -> \ "98ad391e-0e03-4d93-bf1e-03787864d758"] }, Open ]], Cell[CellGroupData[{ Cell[5502, 185, 2718, 79, 138, "Input", "ExpressionUUID" -> \ "0567ea59-5d85-4bbf-a5ce-a994da6e3324"], Cell[8223, 266, 128, 2, 70, "Output", "ExpressionUUID" -> \ "4a4876b1-579f-4f9f-9d94-c3e85a736013"] }, Open ]], Cell[CellGroupData[{ Cell[8388, 273, 1043, 34, 70, "Input", "ExpressionUUID" -> \ "57dc9ae3-39aa-4fbd-8564-d96ea83e38a0"], Cell[9434, 309, 1114, 38, 70, "Output", "ExpressionUUID" -> \ "e1c040db-868a-41fc-adb5-6f16e235dcc4"] }, Open ]], Cell[CellGroupData[{ Cell[10585, 352, 805, 24, 70, "Input", "ExpressionUUID" -> \ "5b65e618-51b7-485c-9dcc-7d53dcca8c03"], Cell[11393, 378, 3449, 113, 70, "Output", "ExpressionUUID" -> \ "eecdad6b-3778-4c65-b799-5db8ed2b357e"] }, Open ]], Cell[CellGroupData[{ Cell[14879, 496, 1235, 33, 70, "Input", "ExpressionUUID" -> \ "bb47fcde-96cb-4fa4-b0be-19b15a8a5da9"], Cell[16117, 531, 1904, 70, 70, 713, 48, "GraphicsData", "PostScript", \ "Graphics", "ExpressionUUID" -> "43750865-63a0-4471-98d0-a3148c0742c2"], Cell[18024, 603, 191, 5, 70, "Output", "ExpressionUUID" -> \ "47015748-d245-40ea-87ec-8444d948fb14"] }, Open ]], Cell[CellGroupData[{ Cell[18252, 613, 532, 17, 70, "Input", "ExpressionUUID" -> \ "b0f57bbb-3d32-4b90-9867-cd40b08a1ce7"], Cell[18787, 632, 97, 0, 70, "Output", "ExpressionUUID" -> \ "c9daf94f-bb82-4d1d-9909-823181a2d741"] }, Open ]], Cell[CellGroupData[{ Cell[18921, 637, 87, 0, 70, "Subsection", "ExpressionUUID" -> \ "4f46fe6d-0379-453e-a4ca-4791c65f1348"], Cell[CellGroupData[{ Cell[19033, 641, 726, 19, 70, "Input", "ExpressionUUID" -> \ "6ff7a900-2841-4149-aabb-a45b2f938613"], Cell[19762, 662, 745, 24, 70, "Output", "ExpressionUUID" -> \ "a8f8583e-ba9c-4c93-815c-e659f9bea709"] }, Open ]], Cell[CellGroupData[{ Cell[20544, 691, 415, 14, 70, "Input", "ExpressionUUID" -> \ "fd3d4203-5e6c-48a6-a921-14bfdc68a08b"], Cell[20962, 707, 416, 14, 70, "Output", "ExpressionUUID" -> \ "7c7d8c3d-4d40-4c06-8e02-dffb5f2b0e34"] }, Open ]], Cell[CellGroupData[{ Cell[21415, 726, 661, 22, 70, "Input", "ExpressionUUID" -> \ "81c7036d-76bf-4917-8e49-1a6de70a3807"], Cell[22079, 750, 416, 14, 70, "Output", "ExpressionUUID" -> \ "22f8553b-934c-4551-b47f-38eee81bd20a"] }, Open ]], Cell[CellGroupData[{ Cell[22532, 769, 471, 13, 70, "Input", "ExpressionUUID" -> \ "6879680e-e46f-4bd0-a0e4-5b544b248ce3"], Cell[23006, 784, 416, 14, 70, "Output", "ExpressionUUID" -> \ "4a608cc0-4970-42e1-a4d0-4c92dd3111bd"] }, Open ]], Cell[CellGroupData[{ Cell[23459, 803, 535, 16, 70, "Input", "ExpressionUUID" -> \ "7bc95064-8f86-4609-ad4b-258648decb9a"], Cell[23997, 821, 844, 29, 70, "Output", "ExpressionUUID" -> \ "1bbe6e9c-35db-49a3-a103-60e30417bc80"] }, Open ]], Cell[24856, 853, 601, 17, 70, "Input", "ExpressionUUID" -> \ "d1502e65-4821-462b-a586-f8e2ee56e9cd"], Cell[CellGroupData[{ Cell[25482, 874, 508, 15, 70, "Input", "ExpressionUUID" -> \ "6ad6645f-97a0-4354-8351-6affb3532052"], Cell[25993, 891, 1631, 33, 70, "Output", "ExpressionUUID" -> \ "4ff0b4c2-a05f-4620-9f3d-f80b36780f31"] }, Open ]], Cell[CellGroupData[{ Cell[27661, 929, 528, 14, 70, "Input", "ExpressionUUID" -> \ "ad9847d1-2dc4-4210-8fd7-8c83e252ce54"], Cell[28192, 945, 494, 16, 70, "Output", "ExpressionUUID" -> \ "d97c4052-57b2-4b07-bff2-a89cb9135043"] }, Open ]], Cell[CellGroupData[{ Cell[28723, 966, 130, 1, 70, "Input", "ExpressionUUID" -> \ "dc30a9c0-1fa1-4f16-ae71-6acfd5024022"], Cell[28856, 969, 494, 16, 70, "Output", "ExpressionUUID" -> \ "64d8fae9-fbdf-4b58-b369-a584acbaf374"] }, Open ]], Cell[CellGroupData[{ Cell[29387, 990, 833, 23, 70, "Input", "ExpressionUUID" -> \ "27f2604d-ffde-455d-88f8-c6eb31ca468f"], Cell[30223, 1015, 1242, 32, 70, "Output", "ExpressionUUID" -> \ "a2ca3a3f-b4ab-48fe-8c36-88fe4eeb0870"] }, Open ]], Cell[CellGroupData[{ Cell[31502, 1052, 864, 22, 70, "Input", "ExpressionUUID" -> \ "1bb0c802-2b3a-4ef1-a73f-9219cef99c67"], Cell[32369, 1076, 1088, 38, 70, "Output", "ExpressionUUID" -> \ "5b90e4a5-4b33-4a61-b828-d5bfeeeb9d69"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[33518, 1121, 77, 0, 70, "Section", "ExpressionUUID" -> \ "84d05b15-bf15-420c-ab13-3c3f7666a854"], Cell[CellGroupData[{ Cell[33620, 1125, 98, 0, 70, "Subsection", "ExpressionUUID" -> \ "39df9cbf-0747-45af-a6ea-e8ffc659603d"], Cell[33721, 1127, 108, 1, 70, "Input", "ExpressionUUID" -> \ "61b7ba6b-663e-4d5a-afb5-9493c0f37b4d"], Cell[33832, 1130, 791, 22, 70, "Input", "ExpressionUUID" -> \ "da672714-bf12-4770-a3e8-0c8e799ce695"], Cell[CellGroupData[{ Cell[34648, 1156, 694, 18, 70, "Input", "ExpressionUUID" -> \ "ca1aab96-2af8-4226-b5f3-f28ae0969979"], Cell[35345, 1176, 209, 4, 70, "Message", "ExpressionUUID" -> \ "72676a90-ac6c-41fa-a095-eaf8f069f351"], Cell[35557, 1182, 209, 4, 70, "Message", "ExpressionUUID" -> \ "2cfc7632-ea0d-4f96-8e22-fd4c41b1c9a2"], Cell[35769, 1188, 209, 4, 70, "Message", "ExpressionUUID" -> \ "78121732-1b59-4925-a12c-c3790bfb1c3e"], Cell[35981, 1194, 423, 7, 70, "Message", "ExpressionUUID" -> \ "ea6ba31c-aa24-4de2-8b3a-8542610e1250"], Cell[36407, 1203, 229, 4, 70, "Message", "ExpressionUUID" -> \ "adfcf49c-d331-4730-b9f3-f278bdc670ba"], Cell[36639, 1209, 229, 4, 70, "Message", "ExpressionUUID" -> \ "0ddd8cf2-82b6-4ec8-91e3-890ba1c7dcdc"], Cell[36871, 1215, 226, 4, 70, "Message", "ExpressionUUID" -> \ "80e8aeb0-d3f6-4356-b365-8ce6909ea641"], Cell[37100, 1221, 226, 4, 70, "Message", "ExpressionUUID" -> \ "32a8affa-9281-4b9f-97d0-edfbc8e3a1a8"], Cell[37329, 1227, 229, 4, 70, "Message", "ExpressionUUID" -> \ "1f3ff6d8-4014-4d29-af09-bab3ea1fee90"], Cell[37561, 1233, 422, 7, 70, "Message", "ExpressionUUID" -> \ "1ccda6c7-8949-4fd0-a346-895d32f4a055"], Cell[37986, 1242, 226, 4, 70, "Message", "ExpressionUUID" -> \ "deddf48e-8304-4a2f-a06d-43413e92bfb9"], Cell[38215, 1248, 423, 7, 70, "Message", "ExpressionUUID" -> \ "ed30f64a-b59c-4efb-857a-ea69f15f2f44"], Cell[38641, 1257, 10860, 420, 70, 3955, 305, "GraphicsData", "PostScript", \ "Graphics", "ExpressionUUID" -> "857e667e-c1e3-4c43-aa1a-1e1e25399cab"], Cell[49504, 1679, 193, 5, 70, "Output", "ExpressionUUID" -> \ "0616f091-87f7-4bbd-afc0-894d1a623086"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[49746, 1690, 94, 0, 70, "Subsection", "ExpressionUUID" -> \ "d75f62f5-2403-45d9-ae51-1dfb6b76de8a"], Cell[CellGroupData[{ Cell[49865, 1694, 1237, 40, 70, "Input", "ExpressionUUID" -> \ "79e6c592-5c48-4ec5-a9f1-37616f9d144c"], Cell[51105, 1736, 5001, 155, 70, "Output", "ExpressionUUID" -> \ "57b0ee9b-a96e-4524-8c07-f2832b068b54"] }, Open ]], Cell[56121, 1894, 103, 0, 70, "Text", "ExpressionUUID" -> \ "35d19f57-1e66-49d8-9da6-653388d9841b"], Cell[56227, 1896, 1073, 33, 70, "Input", "ExpressionUUID" -> \ "ee5a5bba-de28-400f-87a5-b1e7b07a4ae2"], Cell[CellGroupData[{ Cell[57325, 1933, 1398, 44, 70, "Input", "ExpressionUUID" -> \ "0eea3cc1-37b9-4290-b405-b3672edad7bc"], Cell[58726, 1979, 194, 6, 70, "Output", "ExpressionUUID" -> \ "3974247b-0bb5-4a77-86da-fa015207d208"] }, Open ]], Cell[CellGroupData[{ Cell[58957, 1990, 670, 21, 70, "Input", "ExpressionUUID" -> \ "16f04c7a-7a49-4790-bf5c-938ef452f1f5"], Cell[59630, 2013, 173, 4, 70, "Output", "ExpressionUUID" -> \ "20fd2ee0-a32f-46d6-9801-5b2011fc19d5"] }, Open ]], Cell[CellGroupData[{ Cell[59840, 2022, 670, 21, 70, "Input", "ExpressionUUID" -> \ "43b97d5c-9d83-4290-83ab-4ed123509c27"], Cell[60513, 2045, 376, 7, 70, "Message", "ExpressionUUID" -> \ "26ba8058-d3ea-4cf2-a1e6-5e0487a9f82e"], Cell[60892, 2054, 226, 4, 70, "Message", "ExpressionUUID" -> \ "13a78df0-a52d-4f13-b9be-1dd878aea089"], Cell[61121, 2060, 100, 1, 70, "Output", "ExpressionUUID" -> \ "1fc5acc0-f15d-4663-865f-4f6f88090762"] }, Open ]], Cell[61236, 2064, 86, 0, 70, "Text", "ExpressionUUID" -> \ "6447c999-a66d-415b-9862-42105f30a50c"], Cell[CellGroupData[{ Cell[61347, 2068, 289, 8, 70, "Input", "ExpressionUUID" -> \ "4161fb9e-5f95-42d5-a83f-c146b9a60f6a"], Cell[61639, 2078, 257, 7, 70, "Output", "ExpressionUUID" -> \ "108fe614-2638-49cf-a2a6-db3b4c3c6a33"] }, Open ]], Cell[CellGroupData[{ Cell[61933, 2090, 288, 8, 70, "Input", "ExpressionUUID" -> \ "ab805dc4-f777-430b-8122-3f048626caaf"], Cell[62224, 2100, 257, 7, 70, "Output", "ExpressionUUID" -> \ "3248504e-09d7-44bc-a115-ae06526affb3"] }, Open ]], Cell[62496, 2110, 88, 0, 70, "Text", "ExpressionUUID" -> \ "545690a2-428d-4693-9660-3ee031137a1c"], Cell[CellGroupData[{ Cell[62609, 2114, 288, 7, 70, "Input", "ExpressionUUID" -> \ "8180b76f-c4f2-4a75-84f5-a37d0f02a71a"], Cell[62900, 2123, 6918, 219, 70, "Output", "ExpressionUUID" -> \ "0a73670c-feaf-4651-a1b6-d9012f5ebbfe"] }, Open ]], Cell[69833, 2345, 140, 2, 70, "Text", "ExpressionUUID" -> \ "5366406a-957b-4cd4-ad1b-33603f6c7b54"], Cell[CellGroupData[{ Cell[69998, 2351, 412, 12, 70, "Input", "ExpressionUUID" -> \ "bee0ed79-1298-4302-81d6-1d0c61395e31"], Cell[70413, 2365, 83, 0, 70, "Output", "ExpressionUUID" -> \ "9cf6cc94-a564-428c-9249-899e74bdb04f"] }, Open ]], Cell[70511, 2368, 99, 0, 70, "Text", "ExpressionUUID" -> \ "2a2258de-27eb-4441-ad13-7b8d02c1fc7c"], Cell[CellGroupData[{ Cell[70635, 2372, 448, 13, 70, "Input", "ExpressionUUID" -> \ "42de7b18-c6d6-413f-8342-9b19ad4e6edc"], Cell[71086, 2387, 4010, 129, 70, "Output", "ExpressionUUID" -> \ "f990df5d-065b-4fad-893b-d6f1626ca41f"] }, Open ]], Cell[75111, 2519, 121, 0, 70, "Text", "ExpressionUUID" -> \ "6e9e0ca8-a3e7-4d1a-a1ef-eda61209e161"], Cell[CellGroupData[{ Cell[75257, 2523, 392, 13, 70, "Input", "ExpressionUUID" -> \ "77f07eb4-a738-4926-b4a5-c20200d12382"], Cell[75652, 2538, 359, 7, 70, "Message", "ExpressionUUID" -> \ "fc6438cc-6259-4a2f-b397-5760588528f9"], Cell[76014, 2547, 443, 8, 70, "Message", "ExpressionUUID" -> \ "4abadf1f-0c1d-45f2-8ed0-791748c66219"], Cell[76460, 2557, 359, 7, 70, "Message", "ExpressionUUID" -> \ "0d885156-4896-47de-bca0-50526abc19a9"], Cell[76822, 2566, 443, 8, 70, "Message", "ExpressionUUID" -> \ "e06f4c78-6096-4ed2-a80f-128baae26d0a"], Cell[77268, 2576, 359, 7, 70, "Message", "ExpressionUUID" -> \ "ded1a365-1d55-41ff-a69b-9b1eefb0c78c"], Cell[77630, 2585, 409, 7, 70, "Message", "ExpressionUUID" -> \ "a6a62a50-167b-4d2e-a031-91308ecd29b2"], Cell[78042, 2594, 443, 8, 70, "Message", "ExpressionUUID" -> \ "351b6fa0-0f00-4310-8d56-3a8456799345"], Cell[78488, 2604, 416, 7, 70, "Message", "ExpressionUUID" -> \ "79ce2d6c-f509-4218-8dca-f5ce72bdaf29"], Cell[78907, 2613, 358, 10, 70, "Output", "ExpressionUUID" -> \ "9b4a6de0-2437-42ff-a335-d642d7070633"] }, Open ]], Cell[79280, 2626, 158, 3, 70, "Text", "ExpressionUUID" -> \ "17d17d8d-c869-4524-aac1-d766e599ddfa"], Cell[CellGroupData[{ Cell[79463, 2633, 352, 11, 70, "Input", "ExpressionUUID" -> \ "5c36ace0-4f22-4335-9dc7-751ada5ae124"], Cell[79818, 2646, 15231, 459, 70, "Output", "ExpressionUUID" -> \ "8cc56e6b-5771-4db0-b513-d82d29057978"] }, Open ]], Cell[CellGroupData[{ Cell[95086, 3110, 946, 29, 70, "Input", "ExpressionUUID" -> \ "df368893-8292-4015-95bd-27649dbdf5c0"], Cell[96035, 3141, 17483, 571, 70, "Output", "ExpressionUUID" -> \ "c56d632a-1992-4cad-945e-52c45011a103"] }, Open ]], Cell[113533, 3715, 165, 3, 70, "Text", "ExpressionUUID" -> \ "85e11e44-64fb-4f60-a57d-a5e07af167ee"], Cell[113701, 3720, 314, 9, 70, "Input", "ExpressionUUID" -> \ "ab37b720-fc64-4e41-bbe1-52f0d4b99c84"], Cell[CellGroupData[{ Cell[114040, 3733, 120, 1, 70, "Input", "ExpressionUUID" -> \ "068ac9f8-c28e-4189-82eb-8ef5aa705439"], Cell[114163, 3736, 89, 0, 70, "Output", "ExpressionUUID" -> \ "76c5b06c-3bba-474d-8283-e49e953b1f4d"] }, Open ]], Cell[114267, 3739, 167, 4, 70, "Input", "ExpressionUUID" -> \ "d7aedac6-7dd3-4ade-bb1b-d2f88296af28"], Cell[CellGroupData[{ Cell[114459, 3747, 121, 1, 70, "Input", "ExpressionUUID" -> \ "058a5ed5-1777-4825-b6c2-f6dc2e82cc65"], Cell[114583, 3750, 88, 0, 70, "Output", "ExpressionUUID" -> \ "2aba0ee2-56bc-44d2-9ac5-d280f2ada341"] }, Open ]], Cell[CellGroupData[{ Cell[114708, 3755, 225, 5, 70, "Input", "ExpressionUUID" -> \ "77b497a1-f305-48f2-bf85-74ccc3213b9f"], Cell[114936, 3762, 171, 4, 70, "Output", "ExpressionUUID" -> \ "5c6b036b-8287-4219-9e95-216325a57c3d"] }, Open ]], Cell[CellGroupData[{ Cell[115144, 3771, 113, 1, 70, "Input", "ExpressionUUID" -> \ "8f465ba4-3665-490a-bde7-eedf11c33682"], Cell[115260, 3774, 90, 0, 70, "Output", "ExpressionUUID" -> \ "6f4600ca-e8e3-4671-ad8f-a7adc8158c53"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[115399, 3780, 93, 0, 70, "Subsection", "ExpressionUUID" -> \ "3555fc17-4096-4f5e-b176-b6b152fe69b3"], Cell[CellGroupData[{ Cell[115517, 3784, 2231, 64, 70, "Input", "ExpressionUUID" -> \ "77920579-6cea-4a5c-b2ee-997ae824f57c"], Cell[117751, 3850, 302, 6, 70, "Message", "ExpressionUUID" -> \ "26bbbac5-c53c-46e4-9cc6-51869952aea6"] }, Open ]], Cell[CellGroupData[{ Cell[118090, 3861, 669, 21, 70, "Input", "ExpressionUUID" -> \ "59304814-52f2-4151-a629-737fd0222d20"], Cell[118762, 3884, 140, 3, 70, "Output", "ExpressionUUID" -> \ "8ebbc8a9-bcd4-420d-9ed5-ef065c05f8da"] }, Open ]], Cell[CellGroupData[{ Cell[118939, 3892, 652, 22, 70, "Input", "ExpressionUUID" -> \ "d9925978-1430-4389-ac54-2dbd1965c8e8"], Cell[119594, 3916, 264, 8, 70, "Output", "ExpressionUUID" -> \ "580b7cf9-9f7f-4471-9b10-f63a53b316ed"] }, Open ]], Cell[CellGroupData[{ Cell[119895, 3929, 595, 20, 70, "Input", "ExpressionUUID" -> \ "923c9bc9-eba4-4a4f-9398-8720bb3c9ca2"], Cell[120493, 3951, 276, 8, 70, "Output", "ExpressionUUID" -> \ "bd6dad7c-2b50-4c46-977d-24ee51cae5f3"] }, Open ]], Cell[CellGroupData[{ Cell[120806, 3964, 920, 32, 70, "Input", "ExpressionUUID" -> \ "26cef083-283f-45da-b0e9-3aec095d9733"], Cell[121729, 3998, 548, 19, 70, "Output", "ExpressionUUID" -> \ "c81f0b12-85f6-4256-8b64-f4c9d1d05f8c"] }, Open ]], Cell[CellGroupData[{ Cell[122314, 4022, 646, 22, 70, "Input", "ExpressionUUID" -> \ "ef58696c-f529-4f17-be26-f73f8b3d748b"], Cell[122963, 4046, 264, 8, 70, "Output", "ExpressionUUID" -> \ "f42ed1cf-8bee-40dc-be7f-0404c55da465"] }, Open ]], Cell[CellGroupData[{ Cell[123264, 4059, 588, 20, 70, "Input", "ExpressionUUID" -> \ "845c8ab5-3a01-45e1-a4bc-77294933c702"], Cell[123855, 4081, 276, 8, 70, "Output", "ExpressionUUID" -> \ "8f5c5048-4535-4472-94ee-bf7e3c35e104"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[124192, 4096, 84, 0, 70, "Section", "ExpressionUUID" -> \ "666dac05-6d11-4af3-96cf-7a139a7c68ff"], Cell[CellGroupData[{ Cell[124301, 4100, 113, 1, 70, "Input", "ExpressionUUID" -> \ "951aa090-2a52-4cac-add6-298b4be4f46d"], Cell[124417, 4103, 118, 0, 70, "Print", "ExpressionUUID" -> \ "927bddbd-648b-4103-b5c5-11e6f9b70358"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[124584, 4109, 84, 0, 70, "Section", "ExpressionUUID" -> \ "bee446fc-ef89-442f-a656-7b3a341f5879"], Cell[124671, 4111, 1576, 46, 70, "Input", "ExpressionUUID" -> \ "4f953bf2-2b04-41f9-990e-494844924aff"], Cell[CellGroupData[{ Cell[126272, 4161, 674, 18, 70, "Input", "ExpressionUUID" -> \ "bb7f9d6d-ceaf-42f2-8065-6ef25f8f6d4b"], Cell[126949, 4181, 35241, 797, 70, "Output", "ExpressionUUID" -> \ "00d6eeb9-f2e7-4afb-a518-9bc7a92ec9ec"] }, Open ]], Cell[CellGroupData[{ Cell[162227, 4983, 1085, 31, 70, "Input", "ExpressionUUID" -> \ "e69c283f-fe1c-47aa-8a3b-fa7a5b467cc8"], Cell[163315, 5016, 1423, 40, 70, "Output", "ExpressionUUID" -> \ "c3d58e64-c150-4f24-bd81-9b2cb8e6f7ac"] }, Open ]], Cell[CellGroupData[{ Cell[164775, 5061, 299, 8, 70, "Input", "ExpressionUUID" -> \ "79af4394-2500-4d03-8618-d238efef1288"], Cell[165077, 5071, 7501, 183, 70, "Output", "ExpressionUUID" -> \ "07a5d9cb-7e39-4795-a388-8f7ad49e48ba"] }, Open ]], Cell[CellGroupData[{ Cell[172615, 5259, 2167, 54, 70, "Input", "ExpressionUUID" -> \ "1ae1841a-bbc4-40d3-b627-7b2ffa00458c"], Cell[174785, 5315, 1532, 43, 70, "Output", "ExpressionUUID" -> \ "9f6caea1-c7d6-4565-a204-2e0e67525b53"] }, Open ]], Cell[CellGroupData[{ Cell[176354, 5363, 203, 5, 70, "Input", "ExpressionUUID" -> \ "1265969b-9985-4488-96bd-ea816030d8c4"], Cell[176560, 5370, 2006, 51, 70, "Output", "ExpressionUUID" -> \ "f31d76c8-ba77-43ed-9e1b-a814e71d66f0"] }, Open ]], Cell[CellGroupData[{ Cell[178603, 5426, 220, 6, 70, "Input", "ExpressionUUID" -> \ "5cfe4a6e-7c69-4195-908b-b5030b7ac9c1"], Cell[178826, 5434, 6543, 218, 70, "Output", "ExpressionUUID" -> \ "e7d6ee36-7566-4c71-8cae-1f3671fcf5a2"] }, Open ]], Cell[CellGroupData[{ Cell[185406, 5657, 1084, 28, 70, "Input", "ExpressionUUID" -> \ "bb0161bc-e762-4a47-b9f9-ba32b8ff9e40"], Cell[186493, 5687, 83, 0, 70, "Output", "ExpressionUUID" -> \ "48e795fb-98aa-4ccd-9221-2dc0adc172f0"] }, Open ]], Cell[CellGroupData[{ Cell[186613, 5692, 121, 1, 70, "Input", "ExpressionUUID" -> \ "226df7a8-784d-45d6-ab9a-5ec6f2282064"], Cell[186737, 5695, 1602, 43, 70, "Output", "ExpressionUUID" -> \ "b08daecb-1e0d-4c9b-9039-570f1c8bef24"] }, Open ]], Cell[188354, 5741, 1423, 39, 70, "Input", "ExpressionUUID" -> \ "521ea14d-0e6b-40fe-a624-797076f5d6e2"], Cell[CellGroupData[{ Cell[189802, 5784, 1736, 47, 70, "Input", "ExpressionUUID" -> \ "e36c4c7b-ea4b-4e21-bb56-fc7183d14fbf"], Cell[191541, 5833, 83, 0, 70, "Output", "ExpressionUUID" -> \ "472c7a69-e3d2-41a4-bf7c-06ca78f30f69"] }, Open ]], Cell[CellGroupData[{ Cell[191661, 5838, 1950, 53, 70, "Input", "ExpressionUUID" -> \ "e1634946-7c1d-46ba-a751-e8fd533bd97a"], Cell[193614, 5893, 1524, 43, 70, "Output", "ExpressionUUID" -> \ "543e2331-1dc5-4892-9fa1-e39467be4a56"] }, Open ]], Cell[CellGroupData[{ Cell[195175, 5941, 1734, 47, 70, "Input", "ExpressionUUID" -> \ "2db2dc4e-550b-46ab-a1a0-9d2e04fa4b85"], Cell[196912, 5990, 83, 0, 70, "Output", "ExpressionUUID" -> \ "7913e1f6-569b-4856-b955-12ebd9bf23ae"] }, Open ]], Cell[197010, 5993, 1736, 47, 70, "Input", "ExpressionUUID" -> \ "e2f2ed94-0b57-4526-a21b-afdad3b4f18e"], Cell[CellGroupData[{ Cell[198771, 6044, 2131, 52, 70, "Input", "ExpressionUUID" -> \ "28909d82-6430-43ee-82c9-3b709a189798"], Cell[200905, 6098, 1532, 43, 70, "Output", "ExpressionUUID" -> \ "d305cd6f-bae3-42ae-bfed-16ab67c378b8"] }, Open ]], Cell[CellGroupData[{ Cell[202474, 6146, 1736, 47, 70, "Input", "ExpressionUUID" -> \ "3ff9cad1-567e-4ed0-a8f3-be36f49e7a65"], Cell[204213, 6195, 83, 0, 70, "Output", "ExpressionUUID" -> \ "4c36af67-4a1f-4b88-ae89-339556751067"] }, Open ]], Cell[CellGroupData[{ Cell[204333, 6200, 82, 0, 70, "Subsection", "ExpressionUUID" -> \ "f7e687b6-cd96-4912-a73f-ad10eca50758"], Cell[204418, 6202, 113, 1, 70, "Input", "ExpressionUUID" -> \ "fc59da6e-5e85-4ee8-9ddd-64bb6bf3c635"], Cell[204534, 6205, 389, 12, 70, "Input", "ExpressionUUID" -> \ "051fdb5a-9fc0-4845-9434-a740a59fbf2c"], Cell[CellGroupData[{ Cell[204948, 6221, 223, 5, 70, "Input", "ExpressionUUID" -> \ "28565ac9-0731-46de-a77d-d241dbf5320e"], Cell[205174, 6228, 881, 27, 70, "Output", "ExpressionUUID" -> \ "e168db79-b247-453f-9912-93b58425c10e"] }, Open ]], Cell[CellGroupData[{ Cell[206092, 6260, 207, 5, 70, "Input", "ExpressionUUID" -> \ "e9cec683-ba11-4b8d-a21d-094fb90f6b34"], Cell[206302, 6267, 184, 4, 70, "Output", "ExpressionUUID" -> \ "7f815573-85b3-447c-8c85-61ff8307860a"] }, Open ]], Cell[CellGroupData[{ Cell[206523, 6276, 317, 8, 70, "Input", "ExpressionUUID" -> \ "504a0deb-c750-4227-9b2e-3c4de89efa03"], Cell[206843, 6286, 200, 4, 70, "Output", "ExpressionUUID" -> \ "b951a0e8-6ef0-4b03-8bb5-e31972578525"] }, Open ]], Cell[207058, 6293, 100, 0, 70, "Input", "ExpressionUUID" -> \ "49212a89-0918-4eb2-98d9-0978dffc04de"] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)