(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 8.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 157, 7] NotebookDataLength[ 421577, 11350] NotebookOptionsPosition[ 411455, 11013] NotebookOutlinePosition[ 411895, 11031] CellTagsIndexPosition[ 411852, 11028] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["\<\ Approximations for large preferences\ \>", "Title", CellChangeTimes->{{3.538387813576116*^9, 3.538387817445272*^9}, { 3.582476004336618*^9, 3.582476008639817*^9}, {3.607098754570492*^9, 3.6070987668160963`*^9}, {3.607099354556944*^9, 3.607099378218191*^9}, { 3.607099583129846*^9, 3.6070995833040037`*^9}, {3.6071001788845463`*^9, 3.6071001873780947`*^9}, 3.607689322683289*^9}], Cell["\<\ for Servedio, M.R. and R. B\[UDoubleDot]rger. 2014. The counterintuitive \ role of sexual selection in species maintenance and speciation. Proceedings \ of the National Academy of Science, USA\ \>", "Text", CellChangeTimes->{{3.5934331733370647`*^9, 3.593433231149146*^9}, { 3.607095236801702*^9, 3.607095281056901*^9}}], Cell[CellGroupData[{ Cell["alpha large, s > 0", "Section", CellChangeTimes->{{3.582896005545995*^9, 3.5828960158420134`*^9}}], Cell[CellGroupData[{ Cell["Derivation", "Subsubsection", CellChangeTimes->{{3.607688472938715*^9, 3.607688479938115*^9}}], Cell["\<\ Use the (generalized) recursions from file \[OpenCurlyDoubleQuote]Basic \ model, multilocus notation, and QLE\[CloseCurlyDoubleQuote]. Assume that all parameters are small relative to \[Alpha]1 and \[Alpha]2:\ \>", "Text", CellChangeTimes->{{3.58375479842641*^9, 3.583754846256094*^9}, { 3.5837548788757515`*^9, 3.583754879952153*^9}, {3.583843460099324*^9, 3.583843530429423*^9}, {3.6076893497542543`*^9, 3.6076893685586367`*^9}}], Cell["Apply scaling to the recursions :", "Text", CellChangeTimes->{{3.6076878644109087`*^9, 3.607687882945969*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Normal", "[", RowBox[{"Simplify", "[", RowBox[{"Series", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"p1t1", "-", "p12"}], ",", RowBox[{"t1t1", "-", "t12"}], ",", RowBox[{"dd1t1", "-", "dd1"}], ",", RowBox[{"p2t1", "-", "p22"}], ",", RowBox[{"t2t1", "-", "t22"}], ",", RowBox[{"dd2t1", "-", "dd2"}]}], "}"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"m", "\[Rule]", RowBox[{"e", " ", "\[Mu]"}]}], ",", RowBox[{"s1", "\[Rule]", RowBox[{"e", " ", "\[Sigma]1"}]}], ",", RowBox[{"s2", "\[Rule]", RowBox[{"e", " ", "\[Sigma]2"}]}], ",", RowBox[{"r", "\[Rule]", RowBox[{"e", " ", "\[Rho]"}]}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"e", ",", "0", ",", "1"}], "}"}]}], "]"}], "]"}], "]"}], ";"}]], "Input", CellChangeTimes->{{3.582804850812673*^9, 3.5828048551726794`*^9}, { 3.582815220102505*^9, 3.5828152238505173`*^9}, {3.582823600887823*^9, 3.5828236123226433`*^9}, 3.583746130316778*^9}], Cell["Assume symmetry and return to the old parameters:", "Text", CellChangeTimes->{{3.5837548500781007`*^9, 3.5837548960825815`*^9}}], Cell["\<\ alphaLargeSym = Simplify[% /. {\[Mu] -> m/e, \[Sigma]1 -> s1/e, \[Sigma]2 -> \ s2/e, \[Rho] -> r/e} /. {s2 -> s, s1 -> s, \[Alpha]1 -> \[Alpha], \[Alpha]2 \ -> \[Alpha]}];\ \>", "Text", CellChangeTimes->{{3.5828960313328404`*^9, 3.5828960388520536`*^9}, { 3.583746122672765*^9, 3.5837461231719656`*^9}, {3.5992029376982713`*^9, 3.5992029574082985`*^9}}], Cell["\<\ Under the assumption of large \[Alpha], the equilibria are the solutions of \ alphaLargeSym = 0, where\ \>", "Text", CellChangeTimes->{{3.6076881488941803`*^9, 3.6076882203552675`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"alphaLargeSym", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"dd1", " ", "\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t12"}], ")"}], " ", "\[Alpha]"}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"t12", " ", "\[Alpha]"}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"t12", " ", "\[Alpha]"}], "-", RowBox[{"p12", " ", RowBox[{"(", RowBox[{"2", "+", "\[Alpha]"}], ")"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "dd1"}], " ", "\[Alpha]", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"t12", " ", "\[Alpha]"}]}], ")"}]}], "+", RowBox[{"p12", " ", RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "+", "dd1"}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"dd1", "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t12"}], ")"}], " ", "t12"}]}], ")"}], " ", SuperscriptBox["\[Alpha]", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "m"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "t12"}]}], ")"}], " ", RowBox[{"(", RowBox[{"t12", "-", "t22"}], ")"}], " ", SuperscriptBox["\[Alpha]", "2"]}], "+", RowBox[{"s", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["t12", "2"], " ", SuperscriptBox["\[Alpha]", "2"]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{"t12", " ", RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", " ", "\[Alpha]"}], "-", SuperscriptBox["\[Alpha]", "2"]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t12"}], ")"}], " ", "\[Alpha]"}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"t12", " ", "\[Alpha]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"m", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox["p12", "2"]}], " ", RowBox[{"(", RowBox[{"t12", "-", "t22"}], ")"}], " ", "\[Alpha]", " ", RowBox[{"(", RowBox[{"2", "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{"p12", " ", RowBox[{"(", RowBox[{"2", "+", RowBox[{ RowBox[{"(", RowBox[{"2", "+", RowBox[{"4", " ", "dd1"}], "-", RowBox[{"2", " ", "dd2"}], "+", "t12", "+", RowBox[{"2", " ", "p22", " ", "t12"}], "-", "t22", "-", RowBox[{"2", " ", "p22", " ", "t22"}]}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "dd1"}], "-", "dd2", "+", RowBox[{"4", " ", "t12"}], "+", RowBox[{"p22", " ", "t12"}], "-", RowBox[{"5", " ", SuperscriptBox["t12", "2"]}], "-", RowBox[{"2", " ", "t22"}], "-", RowBox[{"p22", " ", "t22"}], "+", RowBox[{"3", " ", "t12", " ", "t22"}]}], ")"}], " ", SuperscriptBox["\[Alpha]", "2"]}]}], ")"}]}], "-", RowBox[{"p22", " ", RowBox[{"(", RowBox[{"2", "+", RowBox[{ RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", " ", "dd1"}], "+", "t12", "-", "t22"}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"dd1", "-", RowBox[{"t12", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "t12", "+", "t22"}], ")"}]}]}], ")"}], " ", SuperscriptBox["\[Alpha]", "2"]}]}], ")"}]}], "+", RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{"dd2", "+", RowBox[{"dd2", " ", "t12", " ", "\[Alpha]"}], "+", RowBox[{"dd1", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", RowBox[{"2", " ", "t12", " ", "\[Alpha]"}], "+", RowBox[{"t22", " ", "\[Alpha]"}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"s", " ", RowBox[{"(", RowBox[{ RowBox[{"dd1", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "p12"}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "p12"}], "+", "t12"}], ")"}], " ", SuperscriptBox["\[Alpha]", "2"]}]}], ")"}]}], "+", RowBox[{"2", " ", "p12", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["t12", "2"], " ", SuperscriptBox["\[Alpha]", "2"]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{"t12", " ", RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", " ", "\[Alpha]"}], "-", SuperscriptBox["\[Alpha]", "2"]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}], "/", RowBox[{"(", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t12"}], ")"}], " ", "\[Alpha]"}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"t12", " ", "\[Alpha]"}]}], ")"}], "2"]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t12"}], ")"}], " ", "t12", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Alpha]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t12"}], ")"}], " ", "t12", " ", SuperscriptBox["\[Alpha]", "2"]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", RowBox[{"t12", " ", "\[Alpha]"}], "+", RowBox[{"p12", " ", RowBox[{"(", RowBox[{"2", "+", "\[Alpha]"}], ")"}]}]}], ")"}]}], "-", RowBox[{"s", " ", RowBox[{"(", RowBox[{"1", "+", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"p12", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "t12"}]}], ")"}], " ", "\[Alpha]", " ", RowBox[{"(", RowBox[{"2", "+", "\[Alpha]"}], ")"}]}], "-", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"t12", " ", "\[Alpha]"}]}], ")"}], "2"]}], ")"}]}]}], ")"}]}], "+", RowBox[{"m", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox["t12", "5"]}], " ", SuperscriptBox["\[Alpha]", "4"]}], "+", RowBox[{"t22", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"p12", " ", "\[Alpha]"}]}], ")"}], " ", RowBox[{"(", RowBox[{"2", "+", RowBox[{"3", " ", "\[Alpha]"}], "+", SuperscriptBox["\[Alpha]", "2"]}], ")"}]}], "+", RowBox[{ SuperscriptBox["t12", "3"], " ", SuperscriptBox["\[Alpha]", "2"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{ RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", "p12"}], "-", RowBox[{"4", " ", "p22"}]}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "p12"}], "-", RowBox[{"2", " ", "p22"}], "-", RowBox[{"2", " ", "t22"}]}], ")"}], " ", SuperscriptBox["\[Alpha]", "2"]}]}], ")"}]}], "-", RowBox[{"t12", " ", RowBox[{"(", RowBox[{"1", "+", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{"2", "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "p22"}], "-", RowBox[{"2", " ", "t22"}], "+", RowBox[{"4", " ", "p12", " ", RowBox[{"(", RowBox[{"1", "+", "t22"}], ")"}]}]}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "p22"}], "-", RowBox[{"2", " ", "t22"}], "+", RowBox[{"2", " ", "p12", " ", RowBox[{"(", RowBox[{"1", "+", "t22"}], ")"}]}]}], ")"}], " ", SuperscriptBox["\[Alpha]", "2"]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["t12", "4"], " ", SuperscriptBox["\[Alpha]", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"2", "+", "t22"}], ")"}], " ", "\[Alpha]"}], "-", RowBox[{"p12", " ", RowBox[{"(", RowBox[{"2", "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{"p22", " ", RowBox[{"(", RowBox[{"2", "+", "\[Alpha]"}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["t12", "2"], " ", "\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "-", RowBox[{"4", " ", "\[Alpha]"}], "-", RowBox[{"t22", " ", "\[Alpha]"}], "-", RowBox[{"2", " ", SuperscriptBox["\[Alpha]", "2"]}], "-", RowBox[{"t22", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", RowBox[{"t22", " ", SuperscriptBox["\[Alpha]", "3"]}], "+", RowBox[{"p12", " ", RowBox[{"(", RowBox[{"6", "+", RowBox[{"9", " ", "\[Alpha]"}], "+", SuperscriptBox["\[Alpha]", "2"], "-", SuperscriptBox["\[Alpha]", "3"]}], ")"}]}], "+", RowBox[{"p22", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "-", RowBox[{"3", " ", "\[Alpha]"}], "+", SuperscriptBox["\[Alpha]", "2"], "+", SuperscriptBox["\[Alpha]", "3"]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}], "/", RowBox[{"(", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t12"}], ")"}], " ", "\[Alpha]"}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"t12", " ", "\[Alpha]"}]}], ")"}], "2"]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["dd1", "2"], " ", "r", " ", "\[Alpha]", " ", RowBox[{"(", RowBox[{"2", "+", "\[Alpha]"}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "\[Alpha]", "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t12"}], ")"}], " ", "t12", " ", SuperscriptBox["\[Alpha]", "2"]}]}], ")"}], "2"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Alpha]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t12"}], ")"}], " ", "t12", " ", SuperscriptBox["\[Alpha]", "2"]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "p12"}], ")"}], " ", "p12", " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t12"}], ")"}], " ", "t12", " ", "\[Alpha]", " ", RowBox[{"(", RowBox[{"2", "+", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Alpha]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t12"}], ")"}], " ", "t12", " ", SuperscriptBox["\[Alpha]", "2"]}]}], ")"}]}], "+", RowBox[{"dd2", " ", "m", " ", RowBox[{"(", RowBox[{"4", "+", RowBox[{ RowBox[{"(", RowBox[{"6", "+", RowBox[{"p12", " ", RowBox[{"(", RowBox[{"4", "-", RowBox[{"8", " ", "t12"}]}], ")"}]}], "+", RowBox[{"4", " ", "t12"}]}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"2", "+", RowBox[{"9", " ", "t12"}], "+", RowBox[{"4", " ", SuperscriptBox["p12", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t12"}], ")"}], " ", "t12"}], "-", RowBox[{"3", " ", SuperscriptBox["t12", "2"]}], "+", RowBox[{"p12", " ", RowBox[{"(", RowBox[{"6", "-", RowBox[{"8", " ", "t12"}], "-", RowBox[{"4", " ", SuperscriptBox["t12", "2"]}]}], ")"}]}]}], ")"}], " ", SuperscriptBox["\[Alpha]", "2"]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["p12", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t12"}], ")"}], " ", "t12"}], "-", RowBox[{"t12", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", SuperscriptBox["t12", "2"]}], ")"}]}], "+", RowBox[{"p12", " ", RowBox[{"(", RowBox[{"1", "+", "t12", "-", RowBox[{"5", " ", SuperscriptBox["t12", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["t12", "3"]}]}], ")"}]}]}], ")"}], " ", SuperscriptBox["\[Alpha]", "3"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t12"}], ")"}], " ", "t12", " ", RowBox[{"(", RowBox[{ SuperscriptBox["p12", "2"], "+", RowBox[{"2", " ", "p12", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t12"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "t12"}], ")"}], " ", "t12"}]}], ")"}], " ", SuperscriptBox["\[Alpha]", "4"]}]}], ")"}]}], "+", RowBox[{"m", " ", RowBox[{"(", RowBox[{"p12", "-", "p22"}], ")"}], " ", RowBox[{"(", RowBox[{"t12", "-", "t22"}], ")"}], " ", RowBox[{"(", RowBox[{"4", "+", RowBox[{ RowBox[{"(", RowBox[{"6", "+", RowBox[{"p12", " ", RowBox[{"(", RowBox[{"4", "-", RowBox[{"8", " ", "t12"}]}], ")"}]}], "+", RowBox[{"4", " ", "t12"}]}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"2", "+", RowBox[{"9", " ", "t12"}], "+", RowBox[{"4", " ", SuperscriptBox["p12", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t12"}], ")"}], " ", "t12"}], "-", RowBox[{"3", " ", SuperscriptBox["t12", "2"]}], "+", RowBox[{"p12", " ", RowBox[{"(", RowBox[{"6", "-", RowBox[{"8", " ", "t12"}], "-", RowBox[{"4", " ", SuperscriptBox["t12", "2"]}]}], ")"}]}]}], ")"}], " ", SuperscriptBox["\[Alpha]", "2"]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["p12", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t12"}], ")"}], " ", "t12"}], "-", RowBox[{"t12", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", SuperscriptBox["t12", "2"]}], ")"}]}], "+", RowBox[{"p12", " ", RowBox[{"(", RowBox[{"1", "+", "t12", "-", RowBox[{"5", " ", SuperscriptBox["t12", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["t12", "3"]}]}], ")"}]}]}], ")"}], " ", SuperscriptBox["\[Alpha]", "3"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t12"}], ")"}], " ", "t12", " ", RowBox[{"(", RowBox[{ SuperscriptBox["p12", "2"], "+", RowBox[{"2", " ", "p12", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t12"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "t12"}], ")"}], " ", "t12"}]}], ")"}], " ", SuperscriptBox["\[Alpha]", "4"]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"dd1", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "s"}], "-", RowBox[{"4", " ", "s", " ", "t12"}], "+", RowBox[{"2", " ", "\[Alpha]"}], "-", RowBox[{"4", " ", "p12", " ", "\[Alpha]"}], "+", RowBox[{"4", " ", "s", " ", "\[Alpha]"}], "+", RowBox[{"4", " ", "p12", " ", "s", " ", "\[Alpha]"}], "-", RowBox[{"4", " ", "t12", " ", "\[Alpha]"}], "+", RowBox[{"8", " ", "p12", " ", "t12", " ", "\[Alpha]"}], "-", RowBox[{"2", " ", "s", " ", "t12", " ", "\[Alpha]"}], "-", RowBox[{"20", " ", "p12", " ", "s", " ", "t12", " ", "\[Alpha]"}], "-", RowBox[{"10", " ", "s", " ", SuperscriptBox["t12", "2"], " ", "\[Alpha]"}], "+", RowBox[{"20", " ", "p12", " ", "s", " ", SuperscriptBox["t12", "2"], " ", "\[Alpha]"}], "+", RowBox[{"4", " ", SuperscriptBox["\[Alpha]", "2"]}], "-", RowBox[{"10", " ", "p12", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", RowBox[{"2", " ", "s", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", RowBox[{"10", " ", "p12", " ", "s", " ", SuperscriptBox["\[Alpha]", "2"]}], "-", RowBox[{"5", " ", "t12", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", RowBox[{"16", " ", "p12", " ", "t12", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", RowBox[{"4", " ", SuperscriptBox["p12", "2"], " ", "t12", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", RowBox[{"8", " ", "s", " ", "t12", " ", SuperscriptBox["\[Alpha]", "2"]}], "-", RowBox[{"42", " ", "p12", " ", "s", " ", "t12", " ", SuperscriptBox["\[Alpha]", "2"]}], "-", RowBox[{"8", " ", SuperscriptBox["p12", "2"], " ", "s", " ", "t12", " ", SuperscriptBox["\[Alpha]", "2"]}], "-", RowBox[{"5", " ", SuperscriptBox["t12", "2"], " ", SuperscriptBox["\[Alpha]", "2"]}], "+", RowBox[{"4", " ", "p12", " ", SuperscriptBox["t12", "2"], " ", SuperscriptBox["\[Alpha]", "2"]}], "-", RowBox[{"4", " ", SuperscriptBox["p12", "2"], " ", SuperscriptBox["t12", "2"], " ", SuperscriptBox["\[Alpha]", "2"]}], "-", RowBox[{"16", " ", "s", " ", SuperscriptBox["t12", "2"], " ", SuperscriptBox["\[Alpha]", "2"]}], "+", RowBox[{"26", " ", "p12", " ", "s", " ", SuperscriptBox["t12", "2"], " ", SuperscriptBox["\[Alpha]", "2"]}], "+", RowBox[{"24", " ", SuperscriptBox["p12", "2"], " ", "s", " ", SuperscriptBox["t12", "2"], " ", SuperscriptBox["\[Alpha]", "2"]}], "-", RowBox[{"6", " ", "s", " ", SuperscriptBox["t12", "3"], " ", SuperscriptBox["\[Alpha]", "2"]}], "+", RowBox[{"16", " ", "p12", " ", "s", " ", SuperscriptBox["t12", "3"], " ", SuperscriptBox["\[Alpha]", "2"]}], "-", RowBox[{"16", " ", SuperscriptBox["p12", "2"], " ", "s", " ", SuperscriptBox["t12", "3"], " ", SuperscriptBox["\[Alpha]", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["\[Alpha]", "3"]}], "-", RowBox[{"8", " ", "p12", " ", SuperscriptBox["\[Alpha]", "3"]}], "+", RowBox[{"8", " ", "p12", " ", "s", " ", SuperscriptBox["\[Alpha]", "3"]}], "+", RowBox[{"5", " ", "t12", " ", SuperscriptBox["\[Alpha]", "3"]}], "+", RowBox[{"2", " ", "p12", " ", "t12", " ", SuperscriptBox["\[Alpha]", "3"]}], "+", RowBox[{"8", " ", SuperscriptBox["p12", "2"], " ", "t12", " ", SuperscriptBox["\[Alpha]", "3"]}], "+", RowBox[{"6", " ", "s", " ", "t12", " ", SuperscriptBox["\[Alpha]", "3"]}], "-", RowBox[{"24", " ", "p12", " ", "s", " ", "t12", " ", SuperscriptBox["\[Alpha]", "3"]}], "-", RowBox[{"16", " ", SuperscriptBox["p12", "2"], " ", "s", " ", "t12", " ", SuperscriptBox["\[Alpha]", "3"]}], "-", RowBox[{"19", " ", SuperscriptBox["t12", "2"], " ", SuperscriptBox["\[Alpha]", "3"]}], "+", RowBox[{"26", " ", "p12", " ", SuperscriptBox["t12", "2"], " ", SuperscriptBox["\[Alpha]", "3"]}], "-", RowBox[{"8", " ", SuperscriptBox["p12", "2"], " ", SuperscriptBox["t12", "2"], " ", SuperscriptBox["\[Alpha]", "3"]}], "-", RowBox[{"12", " ", "p12", " ", "s", " ", SuperscriptBox["t12", "2"], " ", SuperscriptBox["\[Alpha]", "3"]}], "+", RowBox[{"48", " ", SuperscriptBox["p12", "2"], " ", "s", " ", SuperscriptBox["t12", "2"], " ", SuperscriptBox["\[Alpha]", "3"]}], "+", RowBox[{"6", " ", SuperscriptBox["t12", "3"], " ", SuperscriptBox["\[Alpha]", "3"]}], "-", RowBox[{"12", " ", "p12", " ", SuperscriptBox["t12", "3"], " ", SuperscriptBox["\[Alpha]", "3"]}], "-", RowBox[{"16", " ", "s", " ", SuperscriptBox["t12", "3"], " ", SuperscriptBox["\[Alpha]", "3"]}], "+", RowBox[{"40", " ", "p12", " ", "s", " ", SuperscriptBox["t12", "3"], " ", SuperscriptBox["\[Alpha]", "3"]}], "-", RowBox[{"32", " ", SuperscriptBox["p12", "2"], " ", "s", " ", SuperscriptBox["t12", "3"], " ", SuperscriptBox["\[Alpha]", "3"]}], "+", RowBox[{"2", " ", "s", " ", SuperscriptBox["t12", "4"], " ", SuperscriptBox["\[Alpha]", "3"]}], "-", RowBox[{"4", " ", "p12", " ", "s", " ", SuperscriptBox["t12", "4"], " ", SuperscriptBox["\[Alpha]", "3"]}], "-", RowBox[{"2", " ", "p12", " ", SuperscriptBox["\[Alpha]", "4"]}], "+", RowBox[{"2", " ", "p12", " ", "s", " ", SuperscriptBox["\[Alpha]", "4"]}], "+", RowBox[{"6", " ", "t12", " ", SuperscriptBox["\[Alpha]", "4"]}], "-", RowBox[{"10", " ", "p12", " ", "t12", " ", SuperscriptBox["\[Alpha]", "4"]}], "+", RowBox[{"5", " ", SuperscriptBox["p12", "2"], " ", "t12", " ", SuperscriptBox["\[Alpha]", "4"]}], "-", RowBox[{"10", " ", SuperscriptBox["p12", "2"], " ", "s", " ", "t12", " ", SuperscriptBox["\[Alpha]", "4"]}], "-", RowBox[{"9", " ", SuperscriptBox["t12", "2"], " ", SuperscriptBox["\[Alpha]", "4"]}], "+", RowBox[{"28", " ", "p12", " ", SuperscriptBox["t12", "2"], " ", SuperscriptBox["\[Alpha]", "4"]}], "-", RowBox[{ SuperscriptBox["p12", "2"], " ", SuperscriptBox["t12", "2"], " ", SuperscriptBox["\[Alpha]", "4"]}], "+", RowBox[{"6", " ", "s", " ", SuperscriptBox["t12", "2"], " ", SuperscriptBox["\[Alpha]", "4"]}], "-", RowBox[{"26", " ", "p12", " ", "s", " ", SuperscriptBox["t12", "2"], " ", SuperscriptBox["\[Alpha]", "4"]}], "+", RowBox[{"30", " ", SuperscriptBox["p12", "2"], " ", "s", " ", SuperscriptBox["t12", "2"], " ", SuperscriptBox["\[Alpha]", "4"]}], "-", RowBox[{"7", " ", SuperscriptBox["t12", "3"], " ", SuperscriptBox["\[Alpha]", "4"]}], "-", RowBox[{"10", " ", "p12", " ", SuperscriptBox["t12", "3"], " ", SuperscriptBox["\[Alpha]", "4"]}], "-", RowBox[{"8", " ", SuperscriptBox["p12", "2"], " ", SuperscriptBox["t12", "3"], " ", SuperscriptBox["\[Alpha]", "4"]}], "-", RowBox[{"8", " ", "s", " ", SuperscriptBox["t12", "3"], " ", SuperscriptBox["\[Alpha]", "4"]}], "+", RowBox[{"32", " ", "p12", " ", "s", " ", SuperscriptBox["t12", "3"], " ", SuperscriptBox["\[Alpha]", "4"]}], "-", RowBox[{"20", " ", SuperscriptBox["p12", "2"], " ", "s", " ", SuperscriptBox["t12", "3"], " ", SuperscriptBox["\[Alpha]", "4"]}], "+", RowBox[{"8", " ", SuperscriptBox["t12", "4"], " ", SuperscriptBox["\[Alpha]", "4"]}], "-", RowBox[{"4", " ", "p12", " ", SuperscriptBox["t12", "4"], " ", SuperscriptBox["\[Alpha]", "4"]}], "+", RowBox[{"4", " ", SuperscriptBox["p12", "2"], " ", SuperscriptBox["t12", "4"], " ", SuperscriptBox["\[Alpha]", "4"]}], "-", RowBox[{"2", " ", "s", " ", SuperscriptBox["t12", "4"], " ", SuperscriptBox["\[Alpha]", "4"]}], "-", RowBox[{"6", " ", "p12", " ", "s", " ", SuperscriptBox["t12", "4"], " ", SuperscriptBox["\[Alpha]", "4"]}], "+", RowBox[{"2", " ", "s", " ", SuperscriptBox["t12", "5"], " ", SuperscriptBox["\[Alpha]", "4"]}], "-", RowBox[{"4", " ", "p12", " ", "t12", " ", SuperscriptBox["\[Alpha]", "5"]}], "+", RowBox[{ SuperscriptBox["p12", "2"], " ", "t12", " ", SuperscriptBox["\[Alpha]", "5"]}], "+", RowBox[{"2", " ", "p12", " ", "s", " ", "t12", " ", SuperscriptBox["\[Alpha]", "5"]}], "-", RowBox[{"2", " ", SuperscriptBox["p12", "2"], " ", "s", " ", "t12", " ", SuperscriptBox["\[Alpha]", "5"]}], "+", RowBox[{"6", " ", SuperscriptBox["t12", "2"], " ", SuperscriptBox["\[Alpha]", "5"]}], "+", RowBox[{"4", " ", "p12", " ", SuperscriptBox["t12", "2"], " ", SuperscriptBox["\[Alpha]", "5"]}], "+", RowBox[{"3", " ", SuperscriptBox["p12", "2"], " ", SuperscriptBox["t12", "2"], " ", SuperscriptBox["\[Alpha]", "5"]}], "-", RowBox[{"8", " ", "p12", " ", "s", " ", SuperscriptBox["t12", "2"], " ", SuperscriptBox["\[Alpha]", "5"]}], "+", RowBox[{"6", " ", SuperscriptBox["p12", "2"], " ", "s", " ", SuperscriptBox["t12", "2"], " ", SuperscriptBox["\[Alpha]", "5"]}], "-", RowBox[{"17", " ", SuperscriptBox["t12", "3"], " ", SuperscriptBox["\[Alpha]", "5"]}], "+", RowBox[{"10", " ", "p12", " ", SuperscriptBox["t12", "3"], " ", SuperscriptBox["\[Alpha]", "5"]}], "-", RowBox[{"8", " ", SuperscriptBox["p12", "2"], " ", SuperscriptBox["t12", "3"], " ", SuperscriptBox["\[Alpha]", "5"]}], "+", RowBox[{"2", " ", "s", " ", SuperscriptBox["t12", "3"], " ", SuperscriptBox["\[Alpha]", "5"]}], "+", RowBox[{"8", " ", "p12", " ", "s", " ", SuperscriptBox["t12", "3"], " ", SuperscriptBox["\[Alpha]", "5"]}], "-", RowBox[{"4", " ", SuperscriptBox["p12", "2"], " ", "s", " ", SuperscriptBox["t12", "3"], " ", SuperscriptBox["\[Alpha]", "5"]}], "+", RowBox[{"13", " ", SuperscriptBox["t12", "4"], " ", SuperscriptBox["\[Alpha]", "5"]}], "-", RowBox[{"14", " ", "p12", " ", SuperscriptBox["t12", "4"], " ", SuperscriptBox["\[Alpha]", "5"]}], "+", RowBox[{"4", " ", SuperscriptBox["p12", "2"], " ", SuperscriptBox["t12", "4"], " ", SuperscriptBox["\[Alpha]", "5"]}], "-", RowBox[{"4", " ", "s", " ", SuperscriptBox["t12", "4"], " ", SuperscriptBox["\[Alpha]", "5"]}], "-", RowBox[{"2", " ", "p12", " ", "s", " ", SuperscriptBox["t12", "4"], " ", SuperscriptBox["\[Alpha]", "5"]}], "-", RowBox[{"2", " ", SuperscriptBox["t12", "5"], " ", SuperscriptBox["\[Alpha]", "5"]}], "+", RowBox[{"4", " ", "p12", " ", SuperscriptBox["t12", "5"], " ", SuperscriptBox["\[Alpha]", "5"]}], "+", RowBox[{"2", " ", "s", " ", SuperscriptBox["t12", "5"], " ", SuperscriptBox["\[Alpha]", "5"]}], "-", RowBox[{"2", " ", "p12", " ", SuperscriptBox["t12", "2"], " ", SuperscriptBox["\[Alpha]", "6"]}], "+", RowBox[{ SuperscriptBox["p12", "2"], " ", SuperscriptBox["t12", "2"], " ", SuperscriptBox["\[Alpha]", "6"]}], "+", RowBox[{"2", " ", SuperscriptBox["t12", "3"], " ", SuperscriptBox["\[Alpha]", "6"]}], "+", RowBox[{"6", " ", "p12", " ", SuperscriptBox["t12", "3"], " ", SuperscriptBox["\[Alpha]", "6"]}], "-", RowBox[{"2", " ", SuperscriptBox["p12", "2"], " ", SuperscriptBox["t12", "3"], " ", SuperscriptBox["\[Alpha]", "6"]}], "-", RowBox[{"7", " ", SuperscriptBox["t12", "4"], " ", SuperscriptBox["\[Alpha]", "6"]}], "-", RowBox[{"6", " ", "p12", " ", SuperscriptBox["t12", "4"], " ", SuperscriptBox["\[Alpha]", "6"]}], "+", RowBox[{ SuperscriptBox["p12", "2"], " ", SuperscriptBox["t12", "4"], " ", SuperscriptBox["\[Alpha]", "6"]}], "+", RowBox[{"8", " ", SuperscriptBox["t12", "5"], " ", SuperscriptBox["\[Alpha]", "6"]}], "+", RowBox[{"2", " ", "p12", " ", SuperscriptBox["t12", "5"], " ", SuperscriptBox["\[Alpha]", "6"]}], "-", RowBox[{"3", " ", SuperscriptBox["t12", "6"], " ", SuperscriptBox["\[Alpha]", "6"]}], "-", RowBox[{"2", " ", "r", " ", RowBox[{"(", RowBox[{"2", "+", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", RowBox[{"t12", " ", "\[Alpha]"}], "+", RowBox[{"p12", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "t12"}]}], ")"}], " ", "\[Alpha]"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "\[Alpha]", "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t12"}], ")"}], " ", "t12", " ", SuperscriptBox["\[Alpha]", "2"]}]}], ")"}], "2"]}], "+", RowBox[{"m", " ", RowBox[{"(", RowBox[{"4", "+", RowBox[{ RowBox[{"(", RowBox[{"10", "+", RowBox[{"8", " ", "t12"}], "+", RowBox[{"p22", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", RowBox[{"8", " ", "t12"}]}], ")"}]}], "-", RowBox[{"4", " ", "t22"}], "+", RowBox[{"8", " ", "p12", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"3", " ", "t12"}], "+", "t22"}], ")"}]}]}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"8", "+", RowBox[{"22", " ", "t12"}], "+", RowBox[{"3", " ", SuperscriptBox["t12", "2"]}], "+", RowBox[{"2", " ", "p22", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", RowBox[{"8", " ", "t12"}], "+", RowBox[{"2", " ", SuperscriptBox["t12", "2"]}]}], ")"}]}], "-", RowBox[{"5", " ", "t22"}], "-", RowBox[{"10", " ", "t12", " ", "t22"}], "+", RowBox[{"4", " ", SuperscriptBox["p12", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"5", " ", SuperscriptBox["t12", "2"]}], "+", "t22", "-", RowBox[{"2", " ", "t12", " ", RowBox[{"(", RowBox[{"2", "+", "t22"}], ")"}]}]}], ")"}]}], "-", RowBox[{"4", " ", "p12", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{"2", "+", "p22"}], ")"}], " ", SuperscriptBox["t12", "2"]}], "-", RowBox[{"4", " ", "t22"}], "-", RowBox[{"2", " ", "t12", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "p22", "+", "t22"}], ")"}]}]}], ")"}]}]}], ")"}], " ", SuperscriptBox["\[Alpha]", "2"]}], "+", RowBox[{ RowBox[{"(", RowBox[{"2", "+", RowBox[{"20", " ", "t12"}], "+", RowBox[{"9", " ", SuperscriptBox["t12", "2"]}], "+", RowBox[{"2", " ", "p22", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "t12", "+", RowBox[{"13", " ", SuperscriptBox["t12", "2"]}], "-", RowBox[{"6", " ", SuperscriptBox["t12", "3"]}]}], ")"}]}], "-", "t22", "-", RowBox[{"14", " ", "t12", " ", "t22"}], "-", RowBox[{"6", " ", SuperscriptBox["t12", "2"], " ", "t22"}], "+", RowBox[{"8", " ", SuperscriptBox["p12", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"5", " ", SuperscriptBox["t12", "2"]}], "+", "t22", "-", RowBox[{"2", " ", "t12", " ", RowBox[{"(", RowBox[{"2", "+", "t22"}], ")"}]}]}], ")"}]}], "+", RowBox[{"2", " ", "p12", " ", RowBox[{"(", RowBox[{"8", "+", RowBox[{"6", " ", SuperscriptBox["t12", "3"]}], "+", RowBox[{"7", " ", "t22"}], "+", RowBox[{"t12", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "9"}], "+", RowBox[{"8", " ", "p22"}], "+", RowBox[{"2", " ", "t22"}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["t12", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "28"}], "-", RowBox[{"8", " ", "p22"}], "+", RowBox[{"6", " ", "t22"}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", SuperscriptBox["\[Alpha]", "3"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "p22", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"5", " ", "t12"}], "-", RowBox[{"14", " ", SuperscriptBox["t12", "2"]}], "+", RowBox[{"5", " ", SuperscriptBox["t12", "3"]}], "+", RowBox[{"2", " ", SuperscriptBox["t12", "4"]}]}], ")"}]}], "+", RowBox[{"t12", " ", RowBox[{"(", RowBox[{"6", "+", RowBox[{"2", " ", SuperscriptBox["t12", "3"]}], "-", RowBox[{"12", " ", "t12", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}]}], "-", RowBox[{"3", " ", "t22"}], "+", RowBox[{ SuperscriptBox["t12", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", RowBox[{"2", " ", "t22"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"2", " ", "p12", " ", RowBox[{"(", RowBox[{"2", "+", RowBox[{"4", " ", "p22", " ", SuperscriptBox["t12", "4"]}], "-", RowBox[{ SuperscriptBox["t12", "2"], " ", RowBox[{"(", RowBox[{"26", "+", "p22", "-", RowBox[{"3", " ", "t22"}]}], ")"}]}], "+", RowBox[{"t12", " ", RowBox[{"(", RowBox[{"6", "+", RowBox[{"5", " ", "p22"}], "-", RowBox[{"2", " ", "t22"}]}], ")"}]}], "+", RowBox[{"4", " ", "t22"}], "+", RowBox[{ SuperscriptBox["t12", "3"], " ", RowBox[{"(", RowBox[{"7", "-", RowBox[{"8", " ", "p22"}], "+", RowBox[{"4", " ", "t22"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["p12", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", SuperscriptBox["t12", "4"]}], "+", RowBox[{ SuperscriptBox["t12", "3"], " ", RowBox[{"(", RowBox[{"12", "-", RowBox[{"8", " ", "t22"}]}], ")"}]}], "+", RowBox[{"5", " ", "t22"}], "-", RowBox[{"2", " ", "t12", " ", RowBox[{"(", RowBox[{"10", "+", RowBox[{"7", " ", "t22"}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["t12", "2"], " ", RowBox[{"(", RowBox[{"17", "+", RowBox[{"12", " ", "t22"}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", SuperscriptBox["\[Alpha]", "4"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["p12", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", SuperscriptBox["t12", "4"]}], "+", RowBox[{ SuperscriptBox["t12", "3"], " ", RowBox[{"(", RowBox[{"12", "-", RowBox[{"8", " ", "t22"}]}], ")"}]}], "+", "t22", "-", RowBox[{"2", " ", "t12", " ", RowBox[{"(", RowBox[{"2", "+", RowBox[{"3", " ", "t22"}]}], ")"}]}], "+", RowBox[{"3", " ", SuperscriptBox["t12", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"4", " ", "t22"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"2", " ", "p12", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["t12", "5"]}], "+", RowBox[{ SuperscriptBox["t12", "3"], " ", RowBox[{"(", RowBox[{"4", "+", RowBox[{"8", " ", "p22"}], "-", RowBox[{"8", " ", "t22"}]}], ")"}]}], "-", "t22", "-", RowBox[{"t12", " ", RowBox[{"(", RowBox[{"3", "+", "p22", "+", "t22"}], ")"}]}], "+", RowBox[{ SuperscriptBox["t12", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "-", RowBox[{"4", " ", "p22"}], "+", RowBox[{"2", " ", "t22"}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["t12", "2"], " ", RowBox[{"(", RowBox[{"5", "-", RowBox[{"3", " ", "p22"}], "+", RowBox[{"6", " ", "t22"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"t12", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "p22", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{"2", " ", "t12"}], "+", RowBox[{"5", " ", SuperscriptBox["t12", "2"]}], "-", RowBox[{"7", " ", SuperscriptBox["t12", "3"]}], "+", RowBox[{"2", " ", SuperscriptBox["t12", "4"]}]}], ")"}]}], "+", RowBox[{"t12", " ", RowBox[{"(", RowBox[{"6", "-", RowBox[{"3", " ", "t22"}], "-", RowBox[{"2", " ", "t12", " ", RowBox[{"(", RowBox[{"2", "+", "t22"}], ")"}]}], "+", RowBox[{ SuperscriptBox["t12", "2"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "t22"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", SuperscriptBox["\[Alpha]", "5"]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t12"}], ")"}], " ", "t12", " ", RowBox[{"(", RowBox[{ RowBox[{"t12", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "p22", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t12"}], ")"}], "2"]}], "+", RowBox[{"t12", " ", RowBox[{"(", RowBox[{"2", "-", RowBox[{"2", " ", "t12"}], "+", SuperscriptBox["t12", "2"], "-", "t22"}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["p12", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["t12", "2"], "+", RowBox[{"2", " ", "t12", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}]}], "-", "t22"}], ")"}]}], "+", RowBox[{"2", " ", "p12", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t12"}], ")"}], " ", RowBox[{"(", RowBox[{ SuperscriptBox["t12", "2"], "-", "t22", "+", RowBox[{"t12", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "p22", "+", "t22"}], ")"}]}]}], ")"}]}]}], ")"}], " ", SuperscriptBox["\[Alpha]", "6"]}]}], ")"}]}]}], ")"}]}]}], ")"}], "/", RowBox[{"(", RowBox[{"4", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t12"}], ")"}], " ", "\[Alpha]"}]}], ")"}], "3"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"t12", " ", "\[Alpha]"}]}], ")"}], "3"]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"dd2", " ", "\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "\[Alpha]"}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"t22", " ", "\[Alpha]"}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"t22", " ", "\[Alpha]"}], "-", RowBox[{"p22", " ", RowBox[{"(", RowBox[{"2", "+", "\[Alpha]"}], ")"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"m", " ", RowBox[{"(", RowBox[{"t12", "-", "t22"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "t22"}]}], ")"}], " ", SuperscriptBox["\[Alpha]", "2"]}], "+", RowBox[{"s", " ", "t22", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "-", RowBox[{"2", " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", SuperscriptBox["\[Alpha]", "2"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "dd2"}], " ", "\[Alpha]", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"t22", " ", "\[Alpha]"}]}], ")"}]}], "+", RowBox[{"p22", " ", RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "+", "dd2"}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"dd2", "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "t22"}]}], ")"}], " ", SuperscriptBox["\[Alpha]", "2"]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "\[Alpha]"}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"t22", " ", "\[Alpha]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "s"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "p22", " ", "t22", " ", RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", " ", "\[Alpha]"}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", SuperscriptBox["\[Alpha]", "2"]}]}], ")"}]}], "+", RowBox[{"dd2", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"t22", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", RowBox[{"p22", " ", "\[Alpha]", " ", RowBox[{"(", RowBox[{"2", "+", "\[Alpha]"}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"m", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["p22", "2"], " ", RowBox[{"(", RowBox[{"t12", "-", "t22"}], ")"}], " ", "\[Alpha]", " ", RowBox[{"(", RowBox[{"2", "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{"p22", " ", RowBox[{"(", RowBox[{"2", "+", RowBox[{ RowBox[{"(", RowBox[{"2", "-", RowBox[{"2", " ", "dd1"}], "+", RowBox[{"4", " ", "dd2"}], "-", "t12", "+", "t22"}], ")"}], " ", "\[Alpha]"}], "-", RowBox[{ RowBox[{"(", RowBox[{"dd1", "-", RowBox[{"2", " ", "dd2"}], "+", RowBox[{"2", " ", "t12"}], "-", RowBox[{"4", " ", "t22"}], "-", RowBox[{"3", " ", "t12", " ", "t22"}], "+", RowBox[{"5", " ", SuperscriptBox["t22", "2"]}]}], ")"}], " ", SuperscriptBox["\[Alpha]", "2"]}]}], ")"}]}], "-", RowBox[{"p12", " ", RowBox[{"(", RowBox[{"2", "+", RowBox[{ RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", " ", "dd2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "p22"}]}], ")"}], " ", "t12"}], "+", "t22", "-", RowBox[{"2", " ", "p22", " ", "t22"}]}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"dd2", "+", RowBox[{"p22", " ", RowBox[{"(", RowBox[{"t12", "-", "t22"}], ")"}]}], "-", RowBox[{"t22", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "t12", "+", "t22"}], ")"}]}]}], ")"}], " ", SuperscriptBox["\[Alpha]", "2"]}]}], ")"}]}], "+", RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{"dd1", "+", RowBox[{"dd1", " ", "t22", " ", "\[Alpha]"}], "+", RowBox[{"dd2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"t12", " ", "\[Alpha]"}], "-", RowBox[{"2", " ", "t22", " ", "\[Alpha]"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}], "/", RowBox[{"(", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "\[Alpha]"}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"t22", " ", "\[Alpha]"}]}], ")"}], "2"]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"m", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "t22"}], " ", RowBox[{"(", RowBox[{"2", "+", RowBox[{ RowBox[{"(", RowBox[{"3", "+", RowBox[{"4", " ", "p22"}], "+", RowBox[{"2", " ", "p12", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}]}], "+", RowBox[{"2", " ", "t22"}], "-", RowBox[{"6", " ", "p22", " ", "t22"}]}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "+", RowBox[{"6", " ", "p22"}], "+", RowBox[{"3", " ", "p12", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}]}], "+", RowBox[{"4", " ", "t22"}], "-", RowBox[{"9", " ", "p22", " ", "t22"}], "-", SuperscriptBox["t22", "2"]}], ")"}], " ", SuperscriptBox["\[Alpha]", "2"]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "t22"}], ")"}]}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "p22"}], "-", "t22", "+", RowBox[{"2", " ", "p22", " ", SuperscriptBox["t22", "2"]}]}], ")"}]}], "+", RowBox[{"p12", " ", RowBox[{"(", RowBox[{"1", "+", "t22", "-", RowBox[{"4", " ", SuperscriptBox["t22", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["t22", "3"]}]}], ")"}]}]}], ")"}], " ", SuperscriptBox["\[Alpha]", "3"]}], "-", RowBox[{ RowBox[{"(", RowBox[{"p12", "-", "p22", "-", "t22"}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], "2"], " ", "t22", " ", SuperscriptBox["\[Alpha]", "4"]}]}], ")"}]}], "+", RowBox[{"t12", " ", RowBox[{"(", RowBox[{"2", "+", RowBox[{ RowBox[{"(", RowBox[{"3", "+", RowBox[{"p22", " ", RowBox[{"(", RowBox[{"2", "-", RowBox[{"4", " ", "t22"}]}], ")"}]}], "+", RowBox[{"2", " ", "t22"}]}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "+", RowBox[{"p22", " ", RowBox[{"(", RowBox[{"3", "-", RowBox[{"6", " ", "t22"}]}], ")"}]}], "+", RowBox[{"4", " ", "t22"}], "-", SuperscriptBox["t22", "2"]}], ")"}], " ", SuperscriptBox["\[Alpha]", "2"]}], "+", RowBox[{ RowBox[{"(", RowBox[{"p22", "-", RowBox[{"2", " ", "p22", " ", "t22"}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "t22"}], ")"}], " ", "t22"}]}], ")"}], " ", SuperscriptBox["\[Alpha]", "3"]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], "2"], " ", SuperscriptBox["t22", "2"], " ", SuperscriptBox["\[Alpha]", "4"]}]}], ")"}]}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "t22", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "\[Alpha]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Alpha]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "t22", " ", SuperscriptBox["\[Alpha]", "2"]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", RowBox[{"t22", " ", "\[Alpha]"}], "+", RowBox[{"p22", " ", RowBox[{"(", RowBox[{"2", "+", "\[Alpha]"}], ")"}]}]}], ")"}]}], "-", RowBox[{"s", " ", RowBox[{"(", RowBox[{"1", "+", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"p22", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "t22"}]}], ")"}], " ", "\[Alpha]", " ", RowBox[{"(", RowBox[{"2", "+", "\[Alpha]"}], ")"}]}], "-", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"t22", " ", "\[Alpha]"}]}], ")"}], "2"]}], ")"}]}]}], ")"}]}]}], ")"}], "/", RowBox[{"(", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "\[Alpha]"}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"t22", " ", "\[Alpha]"}]}], ")"}], "2"]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["dd2", "2"], " ", "r", " ", "\[Alpha]", " ", RowBox[{"(", RowBox[{"2", "+", "\[Alpha]"}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "\[Alpha]", "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "t22", " ", SuperscriptBox["\[Alpha]", "2"]}]}], ")"}], "2"]}], "+", RowBox[{"dd1", " ", "m", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Alpha]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "t22", " ", SuperscriptBox["\[Alpha]", "2"]}]}], ")"}], " ", RowBox[{"(", RowBox[{"4", "+", RowBox[{ RowBox[{"(", RowBox[{"6", "+", RowBox[{"p22", " ", RowBox[{"(", RowBox[{"4", "-", RowBox[{"8", " ", "t22"}]}], ")"}]}], "+", RowBox[{"4", " ", "t22"}]}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"2", "+", RowBox[{"9", " ", "t22"}], "+", RowBox[{"4", " ", SuperscriptBox["p22", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "t22"}], "-", RowBox[{"3", " ", SuperscriptBox["t22", "2"]}], "+", RowBox[{"p22", " ", RowBox[{"(", RowBox[{"6", "-", RowBox[{"8", " ", "t22"}], "-", RowBox[{"4", " ", SuperscriptBox["t22", "2"]}]}], ")"}]}]}], ")"}], " ", SuperscriptBox["\[Alpha]", "2"]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["p22", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "t22"}], "-", RowBox[{"t22", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", SuperscriptBox["t22", "2"]}], ")"}]}], "+", RowBox[{"p22", " ", RowBox[{"(", RowBox[{"1", "+", "t22", "-", RowBox[{"5", " ", SuperscriptBox["t22", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["t22", "3"]}]}], ")"}]}]}], ")"}], " ", SuperscriptBox["\[Alpha]", "3"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "t22", " ", RowBox[{"(", RowBox[{ SuperscriptBox["p22", "2"], "+", RowBox[{"2", " ", "p22", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "t22"}], ")"}], " ", "t22"}]}], ")"}], " ", SuperscriptBox["\[Alpha]", "4"]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Alpha]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "t22", " ", SuperscriptBox["\[Alpha]", "2"]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "p22"}], ")"}], " ", "p22", " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "t22", " ", "\[Alpha]", " ", RowBox[{"(", RowBox[{"2", "+", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Alpha]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "t22", " ", SuperscriptBox["\[Alpha]", "2"]}]}], ")"}]}], "+", RowBox[{"m", " ", RowBox[{"(", RowBox[{"p12", "-", "p22"}], ")"}], " ", RowBox[{"(", RowBox[{"t12", "-", "t22"}], ")"}], " ", RowBox[{"(", RowBox[{"4", "+", RowBox[{ RowBox[{"(", RowBox[{"6", "+", RowBox[{"p22", " ", RowBox[{"(", RowBox[{"4", "-", RowBox[{"8", " ", "t22"}]}], ")"}]}], "+", RowBox[{"4", " ", "t22"}]}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"2", "+", RowBox[{"9", " ", "t22"}], "+", RowBox[{"4", " ", SuperscriptBox["p22", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "t22"}], "-", RowBox[{"3", " ", SuperscriptBox["t22", "2"]}], "+", RowBox[{"p22", " ", RowBox[{"(", RowBox[{"6", "-", RowBox[{"8", " ", "t22"}], "-", RowBox[{"4", " ", SuperscriptBox["t22", "2"]}]}], ")"}]}]}], ")"}], " ", SuperscriptBox["\[Alpha]", "2"]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["p22", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "t22"}], "-", RowBox[{"t22", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", SuperscriptBox["t22", "2"]}], ")"}]}], "+", RowBox[{"p22", " ", RowBox[{"(", RowBox[{"1", "+", "t22", "-", RowBox[{"5", " ", SuperscriptBox["t22", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["t22", "3"]}]}], ")"}]}]}], ")"}], " ", SuperscriptBox["\[Alpha]", "3"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "t22", " ", RowBox[{"(", RowBox[{ SuperscriptBox["p22", "2"], "+", RowBox[{"2", " ", "p22", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "t22"}], ")"}], " ", "t22"}]}], ")"}], " ", SuperscriptBox["\[Alpha]", "4"]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"dd2", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "s"}], "+", RowBox[{"4", " ", "s", " ", "t22"}], "+", RowBox[{"2", " ", "\[Alpha]"}], "-", RowBox[{"4", " ", "p22", " ", "\[Alpha]"}], "-", RowBox[{"4", " ", "s", " ", "\[Alpha]"}], "-", RowBox[{"4", " ", "p22", " ", "s", " ", "\[Alpha]"}], "-", RowBox[{"4", " ", "t22", " ", "\[Alpha]"}], "+", RowBox[{"8", " ", "p22", " ", "t22", " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "s", " ", "t22", " ", "\[Alpha]"}], "+", RowBox[{"20", " ", "p22", " ", "s", " ", "t22", " ", "\[Alpha]"}], "+", RowBox[{"10", " ", "s", " ", SuperscriptBox["t22", "2"], " ", "\[Alpha]"}], "-", RowBox[{"20", " ", "p22", " ", "s", " ", SuperscriptBox["t22", "2"], " ", "\[Alpha]"}], "+", RowBox[{"4", " ", SuperscriptBox["\[Alpha]", "2"]}], "-", RowBox[{"10", " ", "p22", " ", SuperscriptBox["\[Alpha]", "2"]}], "-", RowBox[{"2", " ", "s", " ", SuperscriptBox["\[Alpha]", "2"]}], "-", RowBox[{"10", " ", "p22", " ", "s", " ", SuperscriptBox["\[Alpha]", "2"]}], "-", RowBox[{"5", " ", "t22", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", RowBox[{"16", " ", "p22", " ", "t22", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", RowBox[{"4", " ", SuperscriptBox["p22", "2"], " ", "t22", " ", SuperscriptBox["\[Alpha]", "2"]}], "-", RowBox[{"8", " ", "s", " ", "t22", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", RowBox[{"42", " ", "p22", " ", "s", " ", "t22", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", RowBox[{"8", " ", SuperscriptBox["p22", "2"], " ", "s", " ", "t22", " ", SuperscriptBox["\[Alpha]", "2"]}], "-", RowBox[{"5", " ", SuperscriptBox["t22", "2"], " ", SuperscriptBox["\[Alpha]", "2"]}], "+", RowBox[{"4", " ", "p22", " ", SuperscriptBox["t22", "2"], " ", SuperscriptBox["\[Alpha]", "2"]}], "-", RowBox[{"4", " ", SuperscriptBox["p22", "2"], " ", SuperscriptBox["t22", "2"], " ", SuperscriptBox["\[Alpha]", "2"]}], "+", RowBox[{"16", " ", "s", " ", SuperscriptBox["t22", "2"], " ", SuperscriptBox["\[Alpha]", "2"]}], "-", RowBox[{"26", " ", "p22", " ", "s", " ", SuperscriptBox["t22", "2"], " ", SuperscriptBox["\[Alpha]", "2"]}], "-", RowBox[{"24", " ", SuperscriptBox["p22", "2"], " ", "s", " ", SuperscriptBox["t22", "2"], " ", SuperscriptBox["\[Alpha]", "2"]}], "+", RowBox[{"6", " ", "s", " ", SuperscriptBox["t22", "3"], " ", SuperscriptBox["\[Alpha]", "2"]}], "-", RowBox[{"16", " ", "p22", " ", "s", " ", SuperscriptBox["t22", "3"], " ", SuperscriptBox["\[Alpha]", "2"]}], "+", RowBox[{"16", " ", SuperscriptBox["p22", "2"], " ", "s", " ", SuperscriptBox["t22", "3"], " ", SuperscriptBox["\[Alpha]", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["\[Alpha]", "3"]}], "-", RowBox[{"8", " ", "p22", " ", SuperscriptBox["\[Alpha]", "3"]}], "-", RowBox[{"8", " ", "p22", " ", "s", " ", SuperscriptBox["\[Alpha]", "3"]}], "+", RowBox[{"5", " ", "t22", " ", SuperscriptBox["\[Alpha]", "3"]}], "+", RowBox[{"2", " ", "p22", " ", "t22", " ", SuperscriptBox["\[Alpha]", "3"]}], "+", RowBox[{"8", " ", SuperscriptBox["p22", "2"], " ", "t22", " ", SuperscriptBox["\[Alpha]", "3"]}], "-", RowBox[{"6", " ", "s", " ", "t22", " ", SuperscriptBox["\[Alpha]", "3"]}], "+", RowBox[{"24", " ", "p22", " ", "s", " ", "t22", " ", SuperscriptBox["\[Alpha]", "3"]}], "+", RowBox[{"16", " ", SuperscriptBox["p22", "2"], " ", "s", " ", "t22", " ", SuperscriptBox["\[Alpha]", "3"]}], "-", RowBox[{"19", " ", SuperscriptBox["t22", "2"], " ", SuperscriptBox["\[Alpha]", "3"]}], "+", RowBox[{"26", " ", "p22", " ", SuperscriptBox["t22", "2"], " ", SuperscriptBox["\[Alpha]", "3"]}], "-", RowBox[{"8", " ", SuperscriptBox["p22", "2"], " ", SuperscriptBox["t22", "2"], " ", SuperscriptBox["\[Alpha]", "3"]}], "+", RowBox[{"12", " ", "p22", " ", "s", " ", SuperscriptBox["t22", "2"], " ", SuperscriptBox["\[Alpha]", "3"]}], "-", RowBox[{"48", " ", SuperscriptBox["p22", "2"], " ", "s", " ", SuperscriptBox["t22", "2"], " ", SuperscriptBox["\[Alpha]", "3"]}], "+", RowBox[{"6", " ", SuperscriptBox["t22", "3"], " ", SuperscriptBox["\[Alpha]", "3"]}], "-", RowBox[{"12", " ", "p22", " ", SuperscriptBox["t22", "3"], " ", SuperscriptBox["\[Alpha]", "3"]}], "+", RowBox[{"16", " ", "s", " ", SuperscriptBox["t22", "3"], " ", SuperscriptBox["\[Alpha]", "3"]}], "-", RowBox[{"40", " ", "p22", " ", "s", " ", SuperscriptBox["t22", "3"], " ", SuperscriptBox["\[Alpha]", "3"]}], "+", RowBox[{"32", " ", SuperscriptBox["p22", "2"], " ", "s", " ", SuperscriptBox["t22", "3"], " ", SuperscriptBox["\[Alpha]", "3"]}], "-", RowBox[{"2", " ", "s", " ", SuperscriptBox["t22", "4"], " ", SuperscriptBox["\[Alpha]", "3"]}], "+", RowBox[{"4", " ", "p22", " ", "s", " ", SuperscriptBox["t22", "4"], " ", SuperscriptBox["\[Alpha]", "3"]}], "-", RowBox[{"2", " ", "p22", " ", SuperscriptBox["\[Alpha]", "4"]}], "-", RowBox[{"2", " ", "p22", " ", "s", " ", SuperscriptBox["\[Alpha]", "4"]}], "+", RowBox[{"6", " ", "t22", " ", SuperscriptBox["\[Alpha]", "4"]}], "-", RowBox[{"10", " ", "p22", " ", "t22", " ", SuperscriptBox["\[Alpha]", "4"]}], "+", RowBox[{"5", " ", SuperscriptBox["p22", "2"], " ", "t22", " ", SuperscriptBox["\[Alpha]", "4"]}], "+", RowBox[{"10", " ", SuperscriptBox["p22", "2"], " ", "s", " ", "t22", " ", SuperscriptBox["\[Alpha]", "4"]}], "-", RowBox[{"9", " ", SuperscriptBox["t22", "2"], " ", SuperscriptBox["\[Alpha]", "4"]}], "+", RowBox[{"28", " ", "p22", " ", SuperscriptBox["t22", "2"], " ", SuperscriptBox["\[Alpha]", "4"]}], "-", RowBox[{ SuperscriptBox["p22", "2"], " ", SuperscriptBox["t22", "2"], " ", SuperscriptBox["\[Alpha]", "4"]}], "-", RowBox[{"6", " ", "s", " ", SuperscriptBox["t22", "2"], " ", SuperscriptBox["\[Alpha]", "4"]}], "+", RowBox[{"26", " ", "p22", " ", "s", " ", SuperscriptBox["t22", "2"], " ", SuperscriptBox["\[Alpha]", "4"]}], "-", RowBox[{"30", " ", SuperscriptBox["p22", "2"], " ", "s", " ", SuperscriptBox["t22", "2"], " ", SuperscriptBox["\[Alpha]", "4"]}], "-", RowBox[{"7", " ", SuperscriptBox["t22", "3"], " ", SuperscriptBox["\[Alpha]", "4"]}], "-", RowBox[{"10", " ", "p22", " ", SuperscriptBox["t22", "3"], " ", SuperscriptBox["\[Alpha]", "4"]}], "-", RowBox[{"8", " ", SuperscriptBox["p22", "2"], " ", SuperscriptBox["t22", "3"], " ", SuperscriptBox["\[Alpha]", "4"]}], "+", RowBox[{"8", " ", "s", " ", SuperscriptBox["t22", "3"], " ", SuperscriptBox["\[Alpha]", "4"]}], "-", RowBox[{"32", " ", "p22", " ", "s", " ", SuperscriptBox["t22", "3"], " ", SuperscriptBox["\[Alpha]", "4"]}], "+", RowBox[{"20", " ", SuperscriptBox["p22", "2"], " ", "s", " ", SuperscriptBox["t22", "3"], " ", SuperscriptBox["\[Alpha]", "4"]}], "+", RowBox[{"8", " ", SuperscriptBox["t22", "4"], " ", SuperscriptBox["\[Alpha]", "4"]}], "-", RowBox[{"4", " ", "p22", " ", SuperscriptBox["t22", "4"], " ", SuperscriptBox["\[Alpha]", "4"]}], "+", RowBox[{"4", " ", SuperscriptBox["p22", "2"], " ", SuperscriptBox["t22", "4"], " ", SuperscriptBox["\[Alpha]", "4"]}], "+", RowBox[{"2", " ", "s", " ", SuperscriptBox["t22", "4"], " ", SuperscriptBox["\[Alpha]", "4"]}], "+", RowBox[{"6", " ", "p22", " ", "s", " ", SuperscriptBox["t22", "4"], " ", SuperscriptBox["\[Alpha]", "4"]}], "-", RowBox[{"2", " ", "s", " ", SuperscriptBox["t22", "5"], " ", SuperscriptBox["\[Alpha]", "4"]}], "-", RowBox[{"4", " ", "p22", " ", "t22", " ", SuperscriptBox["\[Alpha]", "5"]}], "+", RowBox[{ SuperscriptBox["p22", "2"], " ", "t22", " ", SuperscriptBox["\[Alpha]", "5"]}], "-", RowBox[{"2", " ", "p22", " ", "s", " ", "t22", " ", SuperscriptBox["\[Alpha]", "5"]}], "+", RowBox[{"2", " ", SuperscriptBox["p22", "2"], " ", "s", " ", "t22", " ", SuperscriptBox["\[Alpha]", "5"]}], "+", RowBox[{"6", " ", SuperscriptBox["t22", "2"], " ", SuperscriptBox["\[Alpha]", "5"]}], "+", RowBox[{"4", " ", "p22", " ", SuperscriptBox["t22", "2"], " ", SuperscriptBox["\[Alpha]", "5"]}], "+", RowBox[{"3", " ", SuperscriptBox["p22", "2"], " ", SuperscriptBox["t22", "2"], " ", SuperscriptBox["\[Alpha]", "5"]}], "+", RowBox[{"8", " ", "p22", " ", "s", " ", SuperscriptBox["t22", "2"], " ", SuperscriptBox["\[Alpha]", "5"]}], "-", RowBox[{"6", " ", SuperscriptBox["p22", "2"], " ", "s", " ", SuperscriptBox["t22", "2"], " ", SuperscriptBox["\[Alpha]", "5"]}], "-", RowBox[{"17", " ", SuperscriptBox["t22", "3"], " ", SuperscriptBox["\[Alpha]", "5"]}], "+", RowBox[{"10", " ", "p22", " ", SuperscriptBox["t22", "3"], " ", SuperscriptBox["\[Alpha]", "5"]}], "-", RowBox[{"8", " ", SuperscriptBox["p22", "2"], " ", SuperscriptBox["t22", "3"], " ", SuperscriptBox["\[Alpha]", "5"]}], "-", RowBox[{"2", " ", "s", " ", SuperscriptBox["t22", "3"], " ", SuperscriptBox["\[Alpha]", "5"]}], "-", RowBox[{"8", " ", "p22", " ", "s", " ", SuperscriptBox["t22", "3"], " ", SuperscriptBox["\[Alpha]", "5"]}], "+", RowBox[{"4", " ", SuperscriptBox["p22", "2"], " ", "s", " ", SuperscriptBox["t22", "3"], " ", SuperscriptBox["\[Alpha]", "5"]}], "+", RowBox[{"13", " ", SuperscriptBox["t22", "4"], " ", SuperscriptBox["\[Alpha]", "5"]}], "-", RowBox[{"14", " ", "p22", " ", SuperscriptBox["t22", "4"], " ", SuperscriptBox["\[Alpha]", "5"]}], "+", RowBox[{"4", " ", SuperscriptBox["p22", "2"], " ", SuperscriptBox["t22", "4"], " ", SuperscriptBox["\[Alpha]", "5"]}], "+", RowBox[{"4", " ", "s", " ", SuperscriptBox["t22", "4"], " ", SuperscriptBox["\[Alpha]", "5"]}], "+", RowBox[{"2", " ", "p22", " ", "s", " ", SuperscriptBox["t22", "4"], " ", SuperscriptBox["\[Alpha]", "5"]}], "-", RowBox[{"2", " ", SuperscriptBox["t22", "5"], " ", SuperscriptBox["\[Alpha]", "5"]}], "+", RowBox[{"4", " ", "p22", " ", SuperscriptBox["t22", "5"], " ", SuperscriptBox["\[Alpha]", "5"]}], "-", RowBox[{"2", " ", "s", " ", SuperscriptBox["t22", "5"], " ", SuperscriptBox["\[Alpha]", "5"]}], "-", RowBox[{"2", " ", "p22", " ", SuperscriptBox["t22", "2"], " ", SuperscriptBox["\[Alpha]", "6"]}], "+", RowBox[{ SuperscriptBox["p22", "2"], " ", SuperscriptBox["t22", "2"], " ", SuperscriptBox["\[Alpha]", "6"]}], "+", RowBox[{"2", " ", SuperscriptBox["t22", "3"], " ", SuperscriptBox["\[Alpha]", "6"]}], "+", RowBox[{"6", " ", "p22", " ", SuperscriptBox["t22", "3"], " ", SuperscriptBox["\[Alpha]", "6"]}], "-", RowBox[{"2", " ", SuperscriptBox["p22", "2"], " ", SuperscriptBox["t22", "3"], " ", SuperscriptBox["\[Alpha]", "6"]}], "-", RowBox[{"7", " ", SuperscriptBox["t22", "4"], " ", SuperscriptBox["\[Alpha]", "6"]}], "-", RowBox[{"6", " ", "p22", " ", SuperscriptBox["t22", "4"], " ", SuperscriptBox["\[Alpha]", "6"]}], "+", RowBox[{ SuperscriptBox["p22", "2"], " ", SuperscriptBox["t22", "4"], " ", SuperscriptBox["\[Alpha]", "6"]}], "+", RowBox[{"8", " ", SuperscriptBox["t22", "5"], " ", SuperscriptBox["\[Alpha]", "6"]}], "+", RowBox[{"2", " ", "p22", " ", SuperscriptBox["t22", "5"], " ", SuperscriptBox["\[Alpha]", "6"]}], "-", RowBox[{"3", " ", SuperscriptBox["t22", "6"], " ", SuperscriptBox["\[Alpha]", "6"]}], "-", RowBox[{"2", " ", "r", " ", RowBox[{"(", RowBox[{"2", "+", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", RowBox[{"t22", " ", "\[Alpha]"}], "+", RowBox[{"p22", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "t22"}]}], ")"}], " ", "\[Alpha]"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "\[Alpha]", "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "t22", " ", SuperscriptBox["\[Alpha]", "2"]}]}], ")"}], "2"]}], "+", RowBox[{"m", " ", RowBox[{"(", RowBox[{"4", "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{"5", "-", RowBox[{"2", " ", "t12"}], "+", RowBox[{"4", " ", "p22", " ", RowBox[{"(", RowBox[{"1", "+", "t12", "-", RowBox[{"3", " ", "t22"}]}], ")"}]}], "+", RowBox[{"4", " ", "t22"}], "+", RowBox[{"p12", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{"4", " ", "t22"}]}], ")"}]}]}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"8", "-", RowBox[{"5", " ", "t12"}], "+", RowBox[{"22", " ", "t22"}], "-", RowBox[{"10", " ", "t12", " ", "t22"}], "+", RowBox[{"3", " ", SuperscriptBox["t22", "2"]}], "+", RowBox[{"p12", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "10"}], "+", RowBox[{"8", " ", RowBox[{"(", RowBox[{"2", "+", "p22"}], ")"}], " ", "t22"}], "+", RowBox[{ RowBox[{"(", RowBox[{"4", "-", RowBox[{"8", " ", "p22"}]}], ")"}], " ", SuperscriptBox["t22", "2"]}]}], ")"}]}], "+", RowBox[{"4", " ", "p22", " ", RowBox[{"(", RowBox[{"5", "-", RowBox[{"12", " ", "t22"}], "-", RowBox[{"4", " ", SuperscriptBox["t22", "2"]}], "+", RowBox[{"2", " ", "t12", " ", RowBox[{"(", RowBox[{"2", "+", "t22"}], ")"}]}]}], ")"}]}], "+", RowBox[{"4", " ", SuperscriptBox["p22", "2"], " ", RowBox[{"(", RowBox[{"t12", "-", RowBox[{"2", " ", "t12", " ", "t22"}], "+", RowBox[{"t22", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", RowBox[{"5", " ", "t22"}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", SuperscriptBox["\[Alpha]", "2"]}], "+", RowBox[{ RowBox[{"(", RowBox[{"2", "-", "t12", "+", RowBox[{"20", " ", "t22"}], "-", RowBox[{"14", " ", "t12", " ", "t22"}], "+", RowBox[{"9", " ", SuperscriptBox["t22", "2"]}], "-", RowBox[{"6", " ", "t12", " ", SuperscriptBox["t22", "2"]}], "-", RowBox[{"2", " ", "p12", " ", RowBox[{"(", RowBox[{"4", "-", RowBox[{ RowBox[{"(", RowBox[{"1", "+", RowBox[{"8", " ", "p22"}]}], ")"}], " ", "t22"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "13"}], "+", RowBox[{"8", " ", "p22"}]}], ")"}], " ", SuperscriptBox["t22", "2"]}], "+", RowBox[{"6", " ", SuperscriptBox["t22", "3"]}]}], ")"}]}], "+", RowBox[{"8", " ", SuperscriptBox["p22", "2"], " ", RowBox[{"(", RowBox[{"t12", "-", RowBox[{"2", " ", "t12", " ", "t22"}], "+", RowBox[{"t22", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", RowBox[{"5", " ", "t22"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"2", " ", "p22", " ", RowBox[{"(", RowBox[{"8", "-", RowBox[{"9", " ", "t22"}], "-", RowBox[{"28", " ", SuperscriptBox["t22", "2"]}], "+", RowBox[{"6", " ", SuperscriptBox["t22", "3"]}], "+", RowBox[{"t12", " ", RowBox[{"(", RowBox[{"7", "+", RowBox[{"2", " ", "t22"}], "+", RowBox[{"6", " ", SuperscriptBox["t22", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", SuperscriptBox["\[Alpha]", "3"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "p12", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"5", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "p22"}], ")"}], " ", "t22"}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "14"}], "+", "p22"}], ")"}], " ", SuperscriptBox["t22", "2"]}], "-", RowBox[{ RowBox[{"(", RowBox[{"5", "+", RowBox[{"8", " ", "p22"}]}], ")"}], " ", SuperscriptBox["t22", "3"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{"4", " ", "p22"}]}], ")"}], " ", SuperscriptBox["t22", "4"]}]}], ")"}]}], "+", RowBox[{"t22", " ", RowBox[{"(", RowBox[{"6", "+", RowBox[{"12", " ", "t22"}], "-", RowBox[{"5", " ", SuperscriptBox["t22", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["t22", "3"]}], "+", RowBox[{"t12", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "-", RowBox[{"12", " ", "t22"}], "+", RowBox[{"2", " ", SuperscriptBox["t22", "2"]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["p22", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"t12", " ", RowBox[{"(", RowBox[{"5", "-", RowBox[{"14", " ", "t22"}], "+", RowBox[{"12", " ", SuperscriptBox["t22", "2"]}], "-", RowBox[{"8", " ", SuperscriptBox["t22", "3"]}]}], ")"}]}], "+", RowBox[{"t22", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "20"}], "+", RowBox[{"17", " ", "t22"}], "+", RowBox[{"12", " ", SuperscriptBox["t22", "2"]}], "-", RowBox[{"4", " ", SuperscriptBox["t22", "3"]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"2", " ", "p22", " ", RowBox[{"(", RowBox[{"2", "+", RowBox[{"6", " ", "t22"}], "-", RowBox[{"26", " ", SuperscriptBox["t22", "2"]}], "+", RowBox[{"7", " ", SuperscriptBox["t22", "3"]}], "+", RowBox[{"t12", " ", RowBox[{"(", RowBox[{"4", "-", RowBox[{"2", " ", "t22"}], "+", RowBox[{"3", " ", SuperscriptBox["t22", "2"]}], "+", RowBox[{"4", " ", SuperscriptBox["t22", "3"]}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", SuperscriptBox["\[Alpha]", "4"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["p22", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "t12"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "t22"}]}], ")"}], "3"]}], "-", RowBox[{"t22", " ", RowBox[{"(", RowBox[{"4", "+", RowBox[{"3", " ", "t22"}], "-", RowBox[{"12", " ", SuperscriptBox["t22", "2"]}], "+", RowBox[{"4", " ", SuperscriptBox["t22", "3"]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"t22", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "p12", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{"2", " ", "t22"}], "+", RowBox[{"5", " ", SuperscriptBox["t22", "2"]}], "-", RowBox[{"7", " ", SuperscriptBox["t22", "3"]}], "+", RowBox[{"2", " ", SuperscriptBox["t22", "4"]}]}], ")"}]}], "+", RowBox[{"t22", " ", RowBox[{"(", RowBox[{"6", "-", RowBox[{"4", " ", "t22"}], "+", SuperscriptBox["t22", "2"], "+", RowBox[{"t12", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "-", RowBox[{"2", " ", "t22"}], "+", RowBox[{"2", " ", SuperscriptBox["t22", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"2", " ", "p22", " ", RowBox[{"(", RowBox[{ RowBox[{"t12", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "t22", "+", RowBox[{"6", " ", SuperscriptBox["t22", "2"]}], "-", RowBox[{"8", " ", SuperscriptBox["t22", "3"]}], "+", RowBox[{"2", " ", SuperscriptBox["t22", "4"]}]}], ")"}]}], "+", RowBox[{"t22", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{"5", " ", "t22"}], "+", RowBox[{"4", " ", SuperscriptBox["t22", "2"]}], "-", RowBox[{"6", " ", SuperscriptBox["t22", "3"]}], "+", RowBox[{"2", " ", SuperscriptBox["t22", "4"]}], "-", RowBox[{"p12", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"3", " ", "t22"}], "-", RowBox[{"8", " ", SuperscriptBox["t22", "2"]}], "+", RowBox[{"4", " ", SuperscriptBox["t22", "3"]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", SuperscriptBox["\[Alpha]", "5"]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "t22", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "p22", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"t12", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}]}], "+", RowBox[{"t22", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "p12", "+", "t22"}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["p22", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "t22"}], ")"}], " ", "t22"}], "+", RowBox[{"t12", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "t22"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"t22", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "p12", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], "2"]}], "+", RowBox[{"t22", " ", RowBox[{"(", RowBox[{"2", "-", "t12", "-", RowBox[{"2", " ", "t22"}], "+", SuperscriptBox["t22", "2"]}], ")"}]}]}], ")"}]}]}], ")"}], " ", SuperscriptBox["\[Alpha]", "6"]}]}], ")"}]}]}], ")"}]}]}], ")"}], "/", RowBox[{"(", RowBox[{"4", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "\[Alpha]"}]}], ")"}], "3"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"t22", " ", "\[Alpha]"}]}], ")"}], "3"]}], ")"}]}]}], "}"}]}], ";"}]], "Input", InitializationCell->True, CellChangeTimes->{{3.599202872530166*^9, 3.599202915240226*^9}}], Cell[BoxData[""], "Input", CellChangeTimes->{{3.599202906580214*^9, 3.599202906610214*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Simplify", "[", RowBox[{"Series", "[", RowBox[{ RowBox[{ RowBox[{"alphaLargeSym", "/.", RowBox[{"{", RowBox[{ RowBox[{"p22", "\[Rule]", RowBox[{"1", "-", "p12"}]}], ",", RowBox[{"t12", "\[Rule]", RowBox[{"1", "-", "t22"}]}], ",", RowBox[{"dd2", "\[Rule]", "dd1"}]}], "}"}]}], "/.", RowBox[{"{", RowBox[{ RowBox[{"p12", "\[Rule]", RowBox[{ RowBox[{"1", "/", "2"}], "+", RowBox[{"x", "/", "\[Alpha]"}]}]}], ",", RowBox[{"t22", "\[Rule]", RowBox[{ RowBox[{"1", "/", "2"}], "+", RowBox[{"y", "/", "\[Alpha]"}]}]}], ",", RowBox[{"dd1", "\[Rule]", "z"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "Infinity", ",", "1"}], "}"}]}], "]"}], "]"}], "//", "Normal"}]], "Input", CellChangeTimes->{{3.582889528973019*^9, 3.582889657423645*^9}, { 3.5828897054873295`*^9, 3.5828897343473797`*^9}, 3.582896061160093*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"s", "-", "x", "-", "y"}], ")"}], " ", "z"}], "+", RowBox[{"m", " ", RowBox[{"(", RowBox[{"x", "+", RowBox[{"2", " ", "x", " ", "z"}], "+", RowBox[{"2", " ", "y", " ", "z"}]}], ")"}]}]}], ")"}]}], "\[Alpha]"]}], ",", FractionBox[ RowBox[{ RowBox[{"-", "s"}], "+", "x", "-", RowBox[{"2", " ", "m", " ", "x"}], "+", "y", "+", RowBox[{"2", " ", "m", " ", "y"}]}], RowBox[{"2", " ", "\[Alpha]"}]], ",", RowBox[{ RowBox[{ FractionBox["1", "8"], " ", "r", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{"4", " ", "z"}]}], ")"}], "2"]}], "-", FractionBox[ RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"16", " ", SuperscriptBox["z", "2"]}]}], ")"}]}], RowBox[{"4", " ", "\[Alpha]"}]]}], ",", FractionBox[ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"s", "-", "x", "-", "y"}], ")"}], " ", "z"}], "+", RowBox[{"m", " ", RowBox[{"(", RowBox[{"x", "+", RowBox[{"2", " ", "x", " ", "z"}], "+", RowBox[{"2", " ", "y", " ", "z"}]}], ")"}]}]}], ")"}]}], "\[Alpha]"], ",", FractionBox[ RowBox[{"s", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "m"}]}], ")"}], " ", "x"}], "-", RowBox[{ RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "m"}]}], ")"}], " ", "y"}]}], RowBox[{"2", " ", "\[Alpha]"}]], ",", RowBox[{ RowBox[{ FractionBox["1", "8"], " ", "r", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{"4", " ", "z"}]}], ")"}], "2"]}], "-", FractionBox[ RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"16", " ", SuperscriptBox["z", "2"]}]}], ")"}]}], RowBox[{"4", " ", "\[Alpha]"}]]}]}], "}"}]], "Output", CellChangeTimes->{{3.582889585148718*^9, 3.582889605725154*^9}, 3.582889660808851*^9, {3.5828897086385345`*^9, 3.582889735610982*^9}, 3.5828960631568966`*^9, 3.583754906597*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ FractionBox["1", "8"], " ", "r", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{"4", " ", "z"}]}], ")"}], "2"]}], "-", FractionBox[ RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"16", " ", SuperscriptBox["z", "2"]}]}], ")"}]}], RowBox[{"4", " ", "\[Alpha]"}]]}], "\[Equal]", "0"}], ",", "z"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.5828897503062077`*^9, 3.582889759057823*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"z", "\[Rule]", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}]]}], "+", "\[Alpha]"}], RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "\[Alpha]"}], ")"}]}]]}], "}"}], ",", RowBox[{"{", RowBox[{"z", "\[Rule]", FractionBox[ RowBox[{ RowBox[{"2", " ", SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}]]}], "+", "\[Alpha]"}], RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "\[Alpha]"}], ")"}]}]]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.5828897595258245`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"Only", " ", "z"}], "\[Rule]", RowBox[{ FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}]]}], "+", "\[Alpha]"}], RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "\[Alpha]"}], ")"}]}]], " ", "is", " ", "admissible", " ", RowBox[{"(", RowBox[{ RowBox[{"this", " ", "requires", " ", "\[Alpha]"}], ">", "5"}], ")"}]}]}]], "Text", CellChangeTimes->{{3.5828900303266997`*^9, 3.5828900506847353`*^9}, { 3.5837543426254396`*^9, 3.58375435657946*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{"Series", "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}]]}], "+", "\[Alpha]"}], RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "\[Alpha]"}], ")"}]}]], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "Infinity", ",", "2"}], "}"}]}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.5844279715479207`*^9, 3.584427985603545*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ FractionBox["1", "4"], "-", FractionBox[ SqrtBox[ FractionBox["1", "\[Alpha]"]], "2"], "+", FractionBox["1", RowBox[{"2", " ", "\[Alpha]"}]], "-", RowBox[{ FractionBox["3", "4"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", "\[Alpha]"], ")"}], RowBox[{"3", "/", "2"}]]}], "+", SuperscriptBox[ RowBox[{"(", FractionBox["1", "\[Alpha]"], ")"}], "2"], "+", InterpretationBox[ SuperscriptBox[ RowBox[{"O", "[", FractionBox["1", "\[Alpha]"], "]"}], RowBox[{"5", "/", "2"}]], SeriesData[$CellContext`\[Alpha], DirectedInfinity[1], {}, 0, 5, 2], Editable->False]}], SeriesData[$CellContext`\[Alpha], DirectedInfinity[1], { Rational[1, 4], Rational[-1, 2], Rational[1, 2], Rational[-3, 4], 1}, 0, 5, 2], Editable->False]], "Output", CellChangeTimes->{3.58442798799035*^9}] }, Open ]], Cell["Check :", "Text", CellChangeTimes->{{3.583754369541478*^9, 3.583754373341484*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Simplify", "[", RowBox[{"Series", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"alphaLargeSym", "/.", RowBox[{"{", RowBox[{ RowBox[{"p22", "\[Rule]", RowBox[{"1", "-", "p12"}]}], ",", RowBox[{"t12", "\[Rule]", RowBox[{"1", "-", "t22"}]}], ",", RowBox[{"dd2", "\[Rule]", "dd1"}]}], "}"}]}], "/.", RowBox[{"{", RowBox[{ RowBox[{"p12", "\[Rule]", RowBox[{ RowBox[{"1", "/", "2"}], "+", RowBox[{"x", "/", "\[Alpha]"}]}]}], ",", RowBox[{"t22", "\[Rule]", RowBox[{ RowBox[{"1", "/", "2"}], "+", RowBox[{"y", "/", "\[Alpha]"}]}]}], ",", RowBox[{"dd1", "\[Rule]", "z"}]}], "}"}]}], "/.", RowBox[{"z", "\[Rule]", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}]]}], "+", "\[Alpha]"}], RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "\[Alpha]"}], ")"}]}]]}]}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "Infinity", ",", "1"}], "}"}]}], "]"}], "]"}], "//", "Normal"}]], "Input", CellChangeTimes->{{3.5828900687027674`*^9, 3.5828900694359684`*^9}, 3.5828960744825163`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ FractionBox[ RowBox[{ RowBox[{"-", "s"}], "+", "x", "-", RowBox[{"6", " ", "m", " ", "x"}], "+", "y", "-", RowBox[{"2", " ", "m", " ", "y"}]}], RowBox[{"2", " ", "\[Alpha]"}]], ",", FractionBox[ RowBox[{ RowBox[{"-", "s"}], "+", "x", "-", RowBox[{"2", " ", "m", " ", "x"}], "+", "y", "+", RowBox[{"2", " ", "m", " ", "y"}]}], RowBox[{"2", " ", "\[Alpha]"}]], ",", "0", ",", FractionBox[ RowBox[{"s", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"6", " ", "m"}]}], ")"}], " ", "x"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "m"}]}], ")"}], " ", "y"}]}], RowBox[{"2", " ", "\[Alpha]"}]], ",", FractionBox[ RowBox[{"s", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "m"}]}], ")"}], " ", "x"}], "-", RowBox[{ RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "m"}]}], ")"}], " ", "y"}]}], RowBox[{"2", " ", "\[Alpha]"}]], ",", "0"}], "}"}]], "Output", CellChangeTimes->{3.5828900711987715`*^9, 3.582896075839719*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{"Solve", "[", RowBox[{ RowBox[{"%", "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.5828900780003834`*^9, 3.5828900876100006`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", RowBox[{"-", FractionBox["s", RowBox[{"4", " ", "m"}]]}]}], ",", RowBox[{"y", "\[Rule]", FractionBox["s", RowBox[{"4", " ", "m"}]]}]}], "}"}], "}"}]], "Output", CellChangeTimes->{3.5828900881404014`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Simplify", "[", RowBox[{"Series", "[", RowBox[{ RowBox[{ RowBox[{"alphaLargeSym", "/.", RowBox[{"{", RowBox[{ RowBox[{"p12", "\[Rule]", RowBox[{"1", "-", "p22"}]}], ",", RowBox[{"t12", "\[Rule]", RowBox[{"1", "-", "t22"}]}], ",", RowBox[{"dd1", "\[Rule]", "dd2"}]}], "}"}]}], "/.", RowBox[{"{", RowBox[{ RowBox[{"p22", "->", RowBox[{ FractionBox["1", "2"], "+", FractionBox["s", RowBox[{"4", " ", "\[Alpha]", " ", "m"}]]}]}], ",", RowBox[{"t22", "->", RowBox[{ FractionBox["1", "2"], "+", FractionBox["s", RowBox[{"4", " ", "\[Alpha]", " ", "m"}]]}]}], ",", RowBox[{"dd2", "->", FractionBox[ RowBox[{"\[Alpha]", "-", RowBox[{"2", " ", SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}]]}]}], RowBox[{"4", " ", RowBox[{"(", RowBox[{"\[Alpha]", "-", "2"}], ")"}]}]]}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "Infinity", ",", "1"}], "}"}]}], "]"}], "]"}], "//", "Normal"}]], "Input", CellChangeTimes->{{3.5828902967439675`*^9, 3.582890320081609*^9}, 3.582896084014133*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output", CellChangeTimes->{3.582890322156412*^9, 3.5828960854025354`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"N", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"p22", ",", "t22", ",", "dd2"}], "}"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"p22", "->", RowBox[{ FractionBox["1", "2"], "+", FractionBox["s", RowBox[{"4", " ", "\[Alpha]", " ", "m"}]]}]}], ",", RowBox[{"t22", "->", RowBox[{ FractionBox["1", "2"], "+", FractionBox["s", RowBox[{"4", " ", "\[Alpha]", " ", "m"}]]}]}], ",", RowBox[{"dd2", "->", FractionBox[ RowBox[{"\[Alpha]", "-", RowBox[{"2", " ", SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}]]}]}], RowBox[{"4", " ", RowBox[{"(", RowBox[{"\[Alpha]", "-", "2"}], ")"}]}]]}]}], "}"}]}], "/.", RowBox[{"{", RowBox[{ RowBox[{"s", "\[Rule]", ".9"}], ",", RowBox[{"\[Alpha]", "\[Rule]", "200"}], ",", RowBox[{"m", "\[Rule]", ".01"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.5828901800713625`*^9, 3.5828902764951324`*^9}, { 3.5828903570224733`*^9, 3.582890390780933*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"0.6125`", ",", "0.6125`", ",", "0.2169021818695306`"}], "}"}]], "Output", CellChangeTimes->{3.582890391373734*^9}] }, Open ]], Cell["This is not yet a good approximation!", "Text", CellChangeTimes->{{3.5837544483653946`*^9, 3.5837544620310187`*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["\<\ Better approximation: develop to order 1/\[Alpha]^(3/2) :\ \>", "Subsubsection", CellChangeTimes->{{3.5837544676158285`*^9, 3.5837544871002626`*^9}, { 3.607688293426447*^9, 3.6076883040660553`*^9}, {3.607688496018035*^9, 3.607688502338396*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"FullSimplify", "[", RowBox[{"Series", "[", RowBox[{ RowBox[{ RowBox[{"alphaLargeSym", "/.", RowBox[{"{", RowBox[{ RowBox[{"p12", "\[Rule]", RowBox[{"1", "-", "p22"}]}], ",", RowBox[{"t12", "\[Rule]", RowBox[{"1", "-", "t22"}]}], ",", RowBox[{"dd1", "\[Rule]", "dd2"}]}], "}"}]}], "/.", RowBox[{"{", RowBox[{ RowBox[{"p22", "->", RowBox[{ FractionBox["1", "2"], "+", FractionBox["s", RowBox[{"4", " ", "\[Alpha]", " ", "m"}]], "+", RowBox[{"x", "/", RowBox[{"\[Alpha]", "^", RowBox[{"(", RowBox[{"3", "/", "2"}], ")"}]}]}]}]}], ",", RowBox[{"t22", "->", RowBox[{ FractionBox["1", "2"], "+", FractionBox["s", RowBox[{"4", " ", "\[Alpha]", " ", "m"}]], "+", RowBox[{"y", "/", RowBox[{"\[Alpha]", "^", RowBox[{"(", RowBox[{"3", "/", "2"}], ")"}]}]}]}]}], ",", RowBox[{"dd2", "->", RowBox[{ FractionBox[ RowBox[{"\[Alpha]", "-", RowBox[{"2", " ", SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}]]}]}], RowBox[{"4", " ", RowBox[{"(", RowBox[{"\[Alpha]", "-", "2"}], ")"}]}]], "+", RowBox[{"z", "/", RowBox[{"\[Alpha]", "^", RowBox[{"(", RowBox[{"3", "/", "2"}], ")"}]}]}]}]}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "Infinity", ",", "2"}], "}"}]}], "]"}], "]"}], "//", "Normal"}]], "Input", CellChangeTimes->{{3.582890532803582*^9, 3.5828905420387983`*^9}, { 3.582890597886897*^9, 3.5828906747326317`*^9}, 3.5828907129370985`*^9, { 3.5828960944037514`*^9, 3.582896100518962*^9}, 3.5837549496530757`*^9, { 3.583755466056983*^9, 3.583755471813393*^9}, {3.583756415359851*^9, 3.583756421662262*^9}, {3.583756467089542*^9, 3.583756469413946*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "s"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"6", " ", "m"}]}], ")"}], " ", "x"}], "+", "y", "-", RowBox[{"2", " ", "m", " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", "\[Alpha]"], ")"}], RowBox[{"3", "/", "2"}]]}], "+", FractionBox[ RowBox[{"s", "-", FractionBox["s", RowBox[{"4", " ", "m"}]], "+", "x", "-", RowBox[{"2", " ", "m", " ", "x"}], "-", "y", "+", RowBox[{"2", " ", "m", " ", "y"}]}], SuperscriptBox["\[Alpha]", "2"]]}], ",", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "m"}]}], ")"}], " ", "x"}], "+", "y", "+", RowBox[{"2", " ", "m", " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", "\[Alpha]"], ")"}], RowBox[{"3", "/", "2"}]]}], "+", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"2", "-", FractionBox["1", RowBox[{"4", " ", "m"}]]}], ")"}], " ", "s"}], SuperscriptBox["\[Alpha]", "2"]]}], ",", FractionBox[ RowBox[{"r", "-", RowBox[{"2", " ", "r", " ", "z"}]}], SuperscriptBox["\[Alpha]", "2"]], ",", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "s"}], "+", "x", "-", RowBox[{"6", " ", "m", " ", "x"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "m"}]}], ")"}], " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", "\[Alpha]"], ")"}], RowBox[{"3", "/", "2"}]]}], "+", FractionBox[ RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", FractionBox["1", "m"]}], ")"}], " ", "s"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "m"}]}], ")"}], " ", RowBox[{"(", RowBox[{"x", "-", "y"}], ")"}]}]}], SuperscriptBox["\[Alpha]", "2"]]}], ",", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"x", "-", RowBox[{"2", " ", "m", " ", "x"}], "-", RowBox[{ RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "m"}]}], ")"}], " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", "\[Alpha]"], ")"}], RowBox[{"3", "/", "2"}]]}], "+", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "8"}], "+", FractionBox["1", "m"]}], ")"}], " ", "s"}], RowBox[{"4", " ", SuperscriptBox["\[Alpha]", "2"]}]]}], ",", FractionBox[ RowBox[{"r", "-", RowBox[{"2", " ", "r", " ", "z"}]}], SuperscriptBox["\[Alpha]", "2"]]}], "}"}]], "Output", CellChangeTimes->{{3.5828905345819855`*^9, 3.5828905426783996`*^9}, 3.582890682969446*^9, 3.5828907176951075`*^9, 3.582896106805773*^9, 3.5837549729751167`*^9, 3.583755488380622*^9, 3.583755600404419*^9, 3.5837564298210764`*^9, 3.583756470147147*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{"%", "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], "]"}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"s", "\[GreaterEqual]", "0"}], ",", RowBox[{"m", "\[GreaterEqual]", "0"}], ",", RowBox[{"\[Alpha]", ">", "0"}], ",", RowBox[{"r", "\[GreaterEqual]", "0"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.5828908090316677`*^9, 3.582890863179363*^9}, { 3.5828909011186295`*^9, 3.5828909235046687`*^9}, {3.582896131875017*^9, 3.5828961396282306`*^9}, {3.5837550346732254`*^9, 3.5837550444544425`*^9}, { 3.5837550868983173`*^9, 3.583755093044728*^9}, {3.5837555779715796`*^9, 3.583755607580432*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", FractionBox[ RowBox[{"s", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "m", " ", RowBox[{"(", RowBox[{"5", "-", RowBox[{"8", " ", "m"}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"3", " ", "m"}]}], ")"}], " ", SqrtBox["\[Alpha]"]}], "+", "\[Alpha]", "+", RowBox[{"2", " ", "m", " ", "\[Alpha]"}]}], ")"}]}]}], ")"}]}], RowBox[{"8", " ", SuperscriptBox["m", "2"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "m", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SqrtBox["\[Alpha]"]}], ")"}]}]}], ")"}], " ", SqrtBox["\[Alpha]"]}]]}], ",", RowBox[{"y", "\[Rule]", FractionBox[ RowBox[{"s", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "m", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", RowBox[{"8", " ", "m"}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"5", " ", "m"}]}], ")"}], " ", SqrtBox["\[Alpha]"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "m"}]}], ")"}], " ", "\[Alpha]"}]}], ")"}]}]}], ")"}]}], RowBox[{"8", " ", SuperscriptBox["m", "2"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "m", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SqrtBox["\[Alpha]"]}], ")"}]}]}], ")"}], " ", SqrtBox["\[Alpha]"]}]]}], ",", RowBox[{"z", "\[Rule]", FractionBox["1", "2"]}]}], "}"}], "}"}]], "Output", CellChangeTimes->{ 3.583755095525132*^9, {3.5837555915748034`*^9, 3.583755609702035*^9}, 3.5837564838595715`*^9}] }, Open ]], Cell["\<\ The first two terms (x, y) do not give a very good approximation. The following (which agrees to leading order) yields a better approximation.\ \>", "Text", CellChangeTimes->{{3.583844045660144*^9, 3.583844086820202*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{"Series", "[", RowBox[{ RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[Alpha]", "-", RowBox[{"2", " ", SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "\[Alpha]"}]]}]}], RowBox[{"4", " ", RowBox[{"(", RowBox[{"\[Alpha]", "-", "2"}], ")"}]}]], "+", RowBox[{"z", "/", RowBox[{"\[Alpha]", "^", RowBox[{"(", RowBox[{"3", "/", "2"}], ")"}]}]}]}], "/.", RowBox[{"z", "\[Rule]", RowBox[{"1", "/", "2"}]}]}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "Infinity", ",", "2"}], "}"}]}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.5838440954522147`*^9, 3.5838441196642523`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ FractionBox["1", "4"], "-", FractionBox[ SqrtBox[ FractionBox["1", "\[Alpha]"]], "2"], "+", FractionBox["1", RowBox[{"2", " ", "\[Alpha]"}]], "-", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", "\[Alpha]"], ")"}], RowBox[{"3", "/", "2"}]]}], "+", SuperscriptBox[ RowBox[{"(", FractionBox["1", "\[Alpha]"], ")"}], "2"], "+", InterpretationBox[ SuperscriptBox[ RowBox[{"O", "[", FractionBox["1", "\[Alpha]"], "]"}], RowBox[{"5", "/", "2"}]], SeriesData[$CellContext`\[Alpha], DirectedInfinity[1], {}, 0, 5, 2], Editable->False]}], SeriesData[$CellContext`\[Alpha], DirectedInfinity[1], { Rational[1, 4], Rational[-1, 2], Rational[1, 2], Rational[-1, 4], 1}, 0, 5, 2], Editable->False]], "Output", CellChangeTimes->{3.583844120144253*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"FullSimplify", "[", RowBox[{"Series", "[", RowBox[{ RowBox[{ RowBox[{"alphaLargeSym", "/.", RowBox[{"{", RowBox[{ RowBox[{"p12", "\[Rule]", RowBox[{"1", "-", "p22"}]}], ",", RowBox[{"t12", "\[Rule]", RowBox[{"1", "-", "t22"}]}], ",", RowBox[{"dd1", "\[Rule]", "dd2"}]}], "}"}]}], "/.", RowBox[{"{", RowBox[{ RowBox[{"p22", "->", RowBox[{ FractionBox["1", "2"], "+", FractionBox["s", RowBox[{"4", " ", "\[Alpha]", " ", "m"}]], "+", RowBox[{"x", "/", RowBox[{"\[Alpha]", "^", RowBox[{"(", RowBox[{"3", "/", "2"}], ")"}]}]}]}]}], ",", RowBox[{"t22", "->", RowBox[{ FractionBox["1", "2"], "+", FractionBox["s", RowBox[{"4", " ", "\[Alpha]", " ", "m"}]], "+", RowBox[{"y", "/", RowBox[{"\[Alpha]", "^", RowBox[{"(", RowBox[{"3", "/", "2"}], ")"}]}]}]}]}], ",", RowBox[{"dd2", "->", RowBox[{ FractionBox["1", "4"], "-", RowBox[{ FractionBox["1", "2"], SuperscriptBox[ RowBox[{"(", FractionBox["1", "\[Alpha]"], ")"}], RowBox[{"1", "/", "2"}]]}], "+", FractionBox["1", RowBox[{"2", " ", "\[Alpha]"}]], "-", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", "\[Alpha]"], ")"}], RowBox[{"3", "/", "2"}]]}], "+", SuperscriptBox[ RowBox[{"(", FractionBox["1", "\[Alpha]"], ")"}], "2"]}]}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "Infinity", ",", "2"}], "}"}]}], "]"}], "]"}], "//", "Normal"}]], "Input", CellChangeTimes->{{3.582890532803582*^9, 3.5828905420387983`*^9}, { 3.582890597886897*^9, 3.5828906747326317`*^9}, 3.5828907129370985`*^9, { 3.5828960944037514`*^9, 3.582896100518962*^9}, 3.5837549496530757`*^9, { 3.583755466056983*^9, 3.583755471813393*^9}, {3.583756415359851*^9, 3.583756421662262*^9}, {3.583756467089542*^9, 3.583756469413946*^9}, 3.583758824663685*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "s"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"6", " ", "m"}]}], ")"}], " ", "x"}], "+", "y", "-", RowBox[{"2", " ", "m", " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", "\[Alpha]"], ")"}], RowBox[{"3", "/", "2"}]]}], "+", FractionBox[ RowBox[{"s", "-", FractionBox["s", RowBox[{"4", " ", "m"}]], "+", "x", "-", RowBox[{"2", " ", "m", " ", "x"}], "-", "y", "+", RowBox[{"2", " ", "m", " ", "y"}]}], SuperscriptBox["\[Alpha]", "2"]]}], ",", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "m"}]}], ")"}], " ", "x"}], "+", "y", "+", RowBox[{"2", " ", "m", " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", "\[Alpha]"], ")"}], RowBox[{"3", "/", "2"}]]}], "+", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"2", "-", FractionBox["1", RowBox[{"4", " ", "m"}]]}], ")"}], " ", "s"}], SuperscriptBox["\[Alpha]", "2"]]}], ",", "0", ",", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "s"}], "+", "x", "-", RowBox[{"6", " ", "m", " ", "x"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "m"}]}], ")"}], " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", "\[Alpha]"], ")"}], RowBox[{"3", "/", "2"}]]}], "+", FractionBox[ RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", FractionBox["1", "m"]}], ")"}], " ", "s"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "m"}]}], ")"}], " ", RowBox[{"(", RowBox[{"x", "-", "y"}], ")"}]}]}], SuperscriptBox["\[Alpha]", "2"]]}], ",", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"x", "-", RowBox[{"2", " ", "m", " ", "x"}], "-", RowBox[{ RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "m"}]}], ")"}], " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", "\[Alpha]"], ")"}], RowBox[{"3", "/", "2"}]]}], "+", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "8"}], "+", FractionBox["1", "m"]}], ")"}], " ", "s"}], RowBox[{"4", " ", SuperscriptBox["\[Alpha]", "2"]}]]}], ",", "0"}], "}"}]], "Output", CellChangeTimes->{3.5837588283608913`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "s"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"6", " ", "m"}]}], ")"}], " ", "x"}], "+", "y", "-", RowBox[{"2", " ", "m", " ", "y"}]}], ")"}], " ", SqrtBox["\[Alpha]"]}], "+", "s", "-", FractionBox["s", RowBox[{"4", " ", "m"}]], "+", "x", "-", RowBox[{"2", " ", "m", " ", "x"}], "-", "y", "+", RowBox[{"2", " ", "m", " ", "y"}]}], "\[Equal]", "0"}], ",", "y"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.5837593601346254`*^9, 3.583759436403159*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"y", "\[Rule]", FractionBox[ RowBox[{ RowBox[{"s", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"4", " ", "m", " ", RowBox[{"(", RowBox[{"1", "+", SqrtBox["\[Alpha]"]}], ")"}]}]}], ")"}]}], "+", RowBox[{"2", " ", "m", " ", "x", " ", RowBox[{"(", RowBox[{"2", "+", RowBox[{"m", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", RowBox[{"6", " ", SqrtBox["\[Alpha]"]}]}], ")"}]}], "-", SqrtBox["\[Alpha]"]}], ")"}]}]}], RowBox[{"2", " ", "m", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "m"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", SqrtBox["\[Alpha]"]}], ")"}]}]]}], "}"}], "}"}]], "Output", CellChangeTimes->{{3.5837593783242574`*^9, 3.5837594039239025`*^9}, 3.5837594373859615`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "m"}]}], ")"}], " ", "x"}], "+", "y", "+", RowBox[{"2", " ", "m", " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", "\[Alpha]"], ")"}], RowBox[{"3", "/", "2"}]]}], "+", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"2", "-", FractionBox["1", RowBox[{"4", " ", "m"}]]}], ")"}], " ", "s"}], SuperscriptBox["\[Alpha]", "2"]]}], "\[Equal]", "0"}], ",", "y"}], "]"}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{"\[Alpha]", ">", "0"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.58375946540361*^9, 3.5837595036860776`*^9}, { 3.583759563574583*^9, 3.583759588597027*^9}, {3.5837596491573334`*^9, 3.5837596764573812`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"y", "\[Rule]", FractionBox[ RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "m"}]}], ")"}], " ", "m", " ", "x"}], "+", FractionBox[ RowBox[{"s", "-", RowBox[{"8", " ", "m", " ", "s"}]}], SqrtBox["\[Alpha]"]]}], RowBox[{"2", " ", "m", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "m"}]}], ")"}]}]]}], "}"}], "}"}]], "Output", CellChangeTimes->{ 3.5837595893146276`*^9, {3.5837596534005404`*^9, 3.583759677112582*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"FullSimplify", "[", RowBox[{"Series", "[", RowBox[{ RowBox[{ RowBox[{"alphaLargeSym", "/.", RowBox[{"{", RowBox[{ RowBox[{"p12", "\[Rule]", RowBox[{"1", "-", "p22"}]}], ",", RowBox[{"t12", "\[Rule]", RowBox[{"1", "-", "t22"}]}], ",", RowBox[{"dd1", "\[Rule]", "dd2"}]}], "}"}]}], "//.", RowBox[{"{", RowBox[{ RowBox[{"p22", "->", RowBox[{ FractionBox["1", "2"], "+", FractionBox["s", RowBox[{"4", " ", "\[Alpha]", " ", "m"}]], "+", RowBox[{"x", "/", RowBox[{"\[Alpha]", "^", RowBox[{"(", RowBox[{"3", "/", "2"}], ")"}]}]}]}]}], ",", RowBox[{"t22", "->", RowBox[{ FractionBox["1", "2"], "+", FractionBox["s", RowBox[{"4", " ", "\[Alpha]", " ", "m"}]], "+", RowBox[{"y", "/", RowBox[{"\[Alpha]", "^", RowBox[{"(", RowBox[{"3", "/", "2"}], ")"}]}]}]}]}], ",", RowBox[{"dd2", "->", RowBox[{ FractionBox["1", "4"], "-", RowBox[{ FractionBox["1", "2"], SuperscriptBox[ RowBox[{"(", FractionBox["1", "\[Alpha]"], ")"}], RowBox[{"1", "/", "2"}]]}], "+", FractionBox["1", RowBox[{"2", " ", "\[Alpha]"}]], "-", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", "\[Alpha]"], ")"}], RowBox[{"3", "/", "2"}]]}], "+", SuperscriptBox[ RowBox[{"(", FractionBox["1", "\[Alpha]"], ")"}], "2"]}]}], ",", RowBox[{"y", "\[Rule]", FractionBox[ RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "m"}]}], ")"}], " ", "m", " ", "x"}], "+", FractionBox[ RowBox[{"s", "-", RowBox[{"8", " ", "m", " ", "s"}]}], SqrtBox["\[Alpha]"]]}], RowBox[{"2", " ", "m", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "m"}]}], ")"}]}]]}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "Infinity", ",", "2"}], "}"}]}], "]"}], "]"}], "//", "Normal"}]], "Input", CellChangeTimes->{{3.583759719997058*^9, 3.5837597373754883`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"s", "+", FractionBox[ RowBox[{"8", " ", SuperscriptBox["m", "2"], " ", "x"}], RowBox[{"1", "+", RowBox[{"2", " ", "m"}]}]]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", "\[Alpha]"], ")"}], RowBox[{"3", "/", "2"}]]}], "+", FractionBox[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{"6", " ", "m"}]}], ")"}], " ", "s"}], "+", RowBox[{"4", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "m"}]}], ")"}], " ", "m", " ", "x"}]}], RowBox[{ RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "m"}]}], ")"}], " ", SuperscriptBox["\[Alpha]", "2"]}]]}], ",", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"4", " ", RowBox[{"(", RowBox[{"2", "-", RowBox[{"3", " ", "m"}]}], ")"}], " ", "m"}]}], ")"}], " ", "x", " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", "\[Alpha]"], ")"}], RowBox[{"5", "/", "2"}]]}], RowBox[{"1", "+", RowBox[{"2", " ", "m"}]}]], ",", "0", ",", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "s"}], "-", FractionBox[ RowBox[{"8", " ", SuperscriptBox["m", "2"], " ", "x"}], RowBox[{"1", "+", RowBox[{"2", " ", "m"}]}]]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", "\[Alpha]"], ")"}], RowBox[{"3", "/", "2"}]]}], "+", FractionBox[ RowBox[{"2", " ", RowBox[{"(", RowBox[{"s", "-", RowBox[{"3", " ", "m", " ", "s"}], "+", RowBox[{"2", " ", "m", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "m"}]}], ")"}], " ", "x"}]}], ")"}]}], RowBox[{ RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "m"}]}], ")"}], " ", SuperscriptBox["\[Alpha]", "2"]}]]}], ",", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", "m", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{"3", " ", "m"}]}], ")"}]}]}], ")"}], " ", "x", " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", "\[Alpha]"], ")"}], RowBox[{"5", "/", "2"}]]}], RowBox[{"1", "+", RowBox[{"2", " ", "m"}]}]], ",", "0"}], "}"}]], "Output", CellChangeTimes->{3.5837597221654615`*^9, 3.583759775704756*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"s", "+", FractionBox[ RowBox[{"8", " ", SuperscriptBox["m", "2"], " ", "x"}], RowBox[{"1", "+", RowBox[{"2", " ", "m"}]}]]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", "\[Alpha]"], ")"}], RowBox[{"3", "/", "2"}]]}], "+", FractionBox[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{"6", " ", "m"}]}], ")"}], " ", "s"}], "+", RowBox[{"4", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "m"}]}], ")"}], " ", "m", " ", "x"}]}], RowBox[{ RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "m"}]}], ")"}], " ", SuperscriptBox["\[Alpha]", "2"]}]]}], "\[Equal]", "0"}], ",", "x"}], "]"}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{"\[Alpha]", ">", "0"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.58375980679561*^9, 3.5837598099312153`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"x", "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{"s", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{"2", " ", "m", " ", RowBox[{"(", RowBox[{"3", "+", SqrtBox["\[Alpha]"]}], ")"}]}], "+", SqrtBox["\[Alpha]"]}], ")"}]}], RowBox[{"4", " ", "m", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "m", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SqrtBox["\[Alpha]"]}], ")"}]}]}], ")"}]}]]}]}], "}"}], "}"}]], "Output", CellChangeTimes->{3.5837598105084167`*^9}] }, Open ]], Cell["The above gives the published solution.", "Text", CellChangeTimes->{{3.5989687845355644`*^9, 3.598968798201188*^9}}], Cell["\<\ Here is a series expansion of the (approximate) solution (it does not work \ well if m is very small) :\ \>", "Text", CellChangeTimes->{{3.5838442348064146`*^9, 3.5838442729464684`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{"Series", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"p22", ",", "t22", ",", "dd2"}], "}"}], "//.", RowBox[{"{", RowBox[{ RowBox[{"p22", "->", RowBox[{ FractionBox["1", "2"], "+", FractionBox["s", RowBox[{"4", " ", "\[Alpha]", " ", "m"}]], "+", RowBox[{"x", "/", RowBox[{"\[Alpha]", "^", RowBox[{"(", RowBox[{"3", "/", "2"}], ")"}]}]}]}]}], ",", RowBox[{"t22", "->", RowBox[{ FractionBox["1", "2"], "+", FractionBox["s", RowBox[{"4", " ", "\[Alpha]", " ", "m"}]], "+", RowBox[{"y", "/", RowBox[{"\[Alpha]", "^", RowBox[{"(", RowBox[{"3", "/", "2"}], ")"}]}]}]}]}], ",", RowBox[{"dd2", "->", RowBox[{ FractionBox["1", "4"], "-", RowBox[{ FractionBox["1", "2"], SuperscriptBox[ RowBox[{"(", FractionBox["1", "\[Alpha]"], ")"}], RowBox[{"1", "/", "2"}]]}], "+", FractionBox["1", RowBox[{"2", " ", "\[Alpha]"}]], "-", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", "\[Alpha]"], ")"}], RowBox[{"3", "/", "2"}]]}], "+", SuperscriptBox[ RowBox[{"(", FractionBox["1", "\[Alpha]"], ")"}], "2"]}]}]}], "}"}]}], "//.", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{"s", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{"2", " ", "m", " ", RowBox[{"(", RowBox[{"3", "+", SqrtBox["\[Alpha]"]}], ")"}]}], "+", SqrtBox["\[Alpha]"]}], ")"}]}], RowBox[{"4", " ", "m", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "m", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SqrtBox["\[Alpha]"]}], ")"}]}]}], ")"}]}]]}]}], ",", RowBox[{"y", "\[Rule]", FractionBox[ RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "m"}]}], ")"}], " ", "m", " ", "x"}], "+", FractionBox[ RowBox[{"s", "-", RowBox[{"8", " ", "m", " ", "s"}]}], SqrtBox["\[Alpha]"]]}], RowBox[{"2", " ", "m", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "m"}]}], ")"}]}]]}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "Infinity", ",", "2"}], "}"}]}], "]"}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"s", "\[GreaterEqual]", "0"}], ",", RowBox[{"m", "\[GreaterEqual]", "0"}], ",", RowBox[{"\[Alpha]", ">", "0"}], ",", RowBox[{"r", "\[GreaterEqual]", "0"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.583759855623696*^9, 3.5837598622069073`*^9}, { 3.58375989768137*^9, 3.583759911690194*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ InterpretationBox[ RowBox[{ FractionBox["1", "2"], "+", FractionBox["s", RowBox[{"4", " ", "m", " ", "\[Alpha]"}]], "-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"s", "+", RowBox[{"2", " ", "m", " ", "s"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", "\[Alpha]"], ")"}], RowBox[{"3", "/", "2"}]]}], RowBox[{"8", " ", SuperscriptBox["m", "2"]}]], "+", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"4", " ", "m"}]}], ")"}], " ", "m"}]}], ")"}], " ", "s"}], RowBox[{"16", " ", SuperscriptBox["m", "3"], " ", SuperscriptBox["\[Alpha]", "2"]}]], "+", InterpretationBox[ SuperscriptBox[ RowBox[{"O", "[", FractionBox["1", "\[Alpha]"], "]"}], RowBox[{"5", "/", "2"}]], SeriesData[$CellContext`\[Alpha], DirectedInfinity[1], {}, 0, 5, 2], Editable->False]}], SeriesData[$CellContext`\[Alpha], DirectedInfinity[1], { Rational[1, 2], 0, (Rational[1, 4]/$CellContext`m) $CellContext`s, ( Rational[-1, 8] $CellContext`m^(-2)) ($CellContext`s + ( 2 $CellContext`m) $CellContext`s), (( Rational[1, 16] $CellContext`m^(-3)) ( 1 + (4 (1 - 4 $CellContext`m)) $CellContext`m)) $CellContext`s}, 0, 5, 2], Editable->False], ",", InterpretationBox[ RowBox[{ FractionBox["1", "2"], "+", FractionBox["s", RowBox[{"4", " ", "m", " ", "\[Alpha]"}]], "+", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "m"}]}], ")"}], " ", "s", " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", "\[Alpha]"], ")"}], RowBox[{"3", "/", "2"}]]}], RowBox[{"8", " ", SuperscriptBox["m", "2"]}]], "+", FractionBox[ RowBox[{"s", "-", RowBox[{"16", " ", SuperscriptBox["m", "2"], " ", "s"}]}], RowBox[{"16", " ", SuperscriptBox["m", "3"], " ", SuperscriptBox["\[Alpha]", "2"]}]], "+", InterpretationBox[ SuperscriptBox[ RowBox[{"O", "[", FractionBox["1", "\[Alpha]"], "]"}], RowBox[{"5", "/", "2"}]], SeriesData[$CellContext`\[Alpha], DirectedInfinity[1], {}, 0, 5, 2], Editable->False]}], SeriesData[$CellContext`\[Alpha], DirectedInfinity[1], { Rational[1, 2], 0, (Rational[1, 4]/$CellContext`m) $CellContext`s, (( Rational[1, 8] $CellContext`m^(-2)) (-1 + 2 $CellContext`m)) $CellContext`s, ( Rational[1, 16] $CellContext`m^(-3)) ($CellContext`s - ( 16 $CellContext`m^2) $CellContext`s)}, 0, 5, 2], Editable->False], ",", InterpretationBox[ RowBox[{ FractionBox["1", "4"], "-", FractionBox[ SqrtBox[ FractionBox["1", "\[Alpha]"]], "2"], "+", FractionBox["1", RowBox[{"2", " ", "\[Alpha]"}]], "-", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", "\[Alpha]"], ")"}], RowBox[{"3", "/", "2"}]]}], "+", SuperscriptBox[ RowBox[{"(", FractionBox["1", "\[Alpha]"], ")"}], "2"], "+", InterpretationBox[ SuperscriptBox[ RowBox[{"O", "[", FractionBox["1", "\[Alpha]"], "]"}], RowBox[{"5", "/", "2"}]], SeriesData[$CellContext`\[Alpha], DirectedInfinity[1], {}, 0, 5, 2], Editable->False]}], SeriesData[$CellContext`\[Alpha], DirectedInfinity[1], { Rational[1, 4], Rational[-1, 2], Rational[1, 2], Rational[-1, 4], 1}, 0, 5, 2], Editable->False]}], "}"}]], "Output", CellChangeTimes->{3.5837598788209367`*^9, 3.5837599123141956`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"p22", ",", "t22", ",", "dd2"}], "}"}], "//.", RowBox[{"{", RowBox[{ RowBox[{"p22", "->", RowBox[{ FractionBox["1", "2"], "+", FractionBox["s", RowBox[{"4", " ", "\[Alpha]", " ", "m"}]], "+", RowBox[{"x", "/", RowBox[{"\[Alpha]", "^", RowBox[{"(", RowBox[{"3", "/", "2"}], ")"}]}]}]}]}], ",", RowBox[{"t22", "->", RowBox[{ FractionBox["1", "2"], "+", FractionBox["s", RowBox[{"4", " ", "\[Alpha]", " ", "m"}]], "+", RowBox[{"y", "/", RowBox[{"\[Alpha]", "^", RowBox[{"(", RowBox[{"3", "/", "2"}], ")"}]}]}]}]}], ",", RowBox[{"dd2", "->", RowBox[{ FractionBox["1", "4"], "-", RowBox[{ FractionBox["1", "2"], SuperscriptBox[ RowBox[{"(", FractionBox["1", "\[Alpha]"], ")"}], RowBox[{"1", "/", "2"}]]}], "+", FractionBox["1", RowBox[{"2", " ", "\[Alpha]"}]], "-", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", "\[Alpha]"], ")"}], RowBox[{"3", "/", "2"}]]}], "+", SuperscriptBox[ RowBox[{"(", FractionBox["1", "\[Alpha]"], ")"}], "2"]}]}]}], "}"}]}], "//.", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{"s", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{"2", " ", "m", " ", RowBox[{"(", RowBox[{"3", "+", SqrtBox["\[Alpha]"]}], ")"}]}], "+", SqrtBox["\[Alpha]"]}], ")"}]}], RowBox[{"4", " ", "m", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "m", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SqrtBox["\[Alpha]"]}], ")"}]}]}], ")"}]}]]}]}], ",", RowBox[{"y", "\[Rule]", FractionBox[ RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "m"}]}], ")"}], " ", "m", " ", "x"}], "+", FractionBox[ RowBox[{"s", "-", RowBox[{"8", " ", "m", " ", "s"}]}], SqrtBox["\[Alpha]"]]}], RowBox[{"2", " ", "m", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "m"}]}], ")"}]}]]}]}], "}"}]}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"s", "\[GreaterEqual]", "0"}], ",", RowBox[{"m", "\[GreaterEqual]", "0"}], ",", RowBox[{"\[Alpha]", ">", "0"}], ",", RowBox[{"r", "\[GreaterEqual]", "0"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.5837599270094213`*^9, 3.5837599510178633`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{"2", "+", FractionBox[ RowBox[{"2", " ", "s", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"m", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "-", RowBox[{"2", " ", SqrtBox["\[Alpha]"]}], "+", "\[Alpha]"}], ")"}]}]}], ")"}]}], RowBox[{"m", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "m", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SqrtBox["\[Alpha]"]}], ")"}]}]}], ")"}], " ", SuperscriptBox["\[Alpha]", RowBox[{"3", "/", "2"}]]}]]}], ")"}]}], ",", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{"2", "+", FractionBox["s", RowBox[{"m", " ", "\[Alpha]"}]], "+", FractionBox[ RowBox[{"s", " ", RowBox[{"(", RowBox[{"2", "-", RowBox[{"2", " ", "m", " ", RowBox[{"(", RowBox[{"10", "+", RowBox[{"3", " ", SqrtBox["\[Alpha]"]}]}], ")"}]}], "+", RowBox[{"2", " ", SqrtBox["\[Alpha]"]}], "-", "\[Alpha]", "+", RowBox[{"4", " ", SuperscriptBox["m", "2"], " ", RowBox[{"(", RowBox[{"8", "-", RowBox[{"5", " ", SqrtBox["\[Alpha]"]}], "+", "\[Alpha]"}], ")"}]}]}], ")"}]}], RowBox[{"m", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "m"}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "m", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SqrtBox["\[Alpha]"]}], ")"}]}]}], ")"}], " ", SuperscriptBox["\[Alpha]", "2"]}]]}], ")"}]}], ",", FractionBox[ RowBox[{"4", "-", SqrtBox["\[Alpha]"], "+", RowBox[{"2", " ", "\[Alpha]"}], "-", RowBox[{"2", " ", SuperscriptBox["\[Alpha]", RowBox[{"3", "/", "2"}]]}], "+", SuperscriptBox["\[Alpha]", "2"]}], RowBox[{"4", " ", SuperscriptBox["\[Alpha]", "2"]}]]}], "}"}]], "Output", CellChangeTimes->{{3.583759944933853*^9, 3.5837599521566653`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{"Factor", "[", RowBox[{ RowBox[{"y", "/.", RowBox[{"y", "\[Rule]", FractionBox[ RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "m"}]}], ")"}], " ", "m", " ", "x"}], "+", FractionBox[ RowBox[{"s", "-", RowBox[{"8", " ", "m", " ", "s"}]}], SqrtBox["\[Alpha]"]]}], RowBox[{"2", " ", "m", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "m"}]}], ")"}]}]]}]}], "/.", RowBox[{"x", "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{"s", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{"2", " ", "m", " ", RowBox[{"(", RowBox[{"3", "+", SqrtBox["\[Alpha]"]}], ")"}]}], "+", SqrtBox["\[Alpha]"]}], ")"}]}], RowBox[{"4", " ", "m", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "m", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SqrtBox["\[Alpha]"]}], ")"}]}]}], ")"}]}]]}]}]}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.583844416162677*^9, 3.5838444720027547`*^9}, { 3.583844514022814*^9, 3.5838445242128277`*^9}}], Cell[BoxData[ FractionBox[ RowBox[{"s", " ", RowBox[{"(", RowBox[{"2", "+", RowBox[{"4", " ", "m", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", RowBox[{"8", " ", "m"}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "m"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"5", " ", "m"}]}], ")"}], " ", SqrtBox["\[Alpha]"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"4", " ", SuperscriptBox["m", "2"]}]}], ")"}], " ", "\[Alpha]"}]}], ")"}]}], RowBox[{"4", " ", "m", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "m"}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "m", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SqrtBox["\[Alpha]"]}], ")"}]}]}], ")"}], " ", SqrtBox["\[Alpha]"]}]]], "Output", CellChangeTimes->{{3.5838444421327133`*^9, 3.5838444730127563`*^9}, { 3.583844515082815*^9, 3.5838445247928286`*^9}}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{"s", RowBox[{"(", RowBox[{ RowBox[{ SqrtBox["\[Alpha]"], RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", "m"}]}], ")"}]}], "+", RowBox[{"6", "m"}], "-", "2"}], ")"}]}], RowBox[{"4", "m", RowBox[{"(", RowBox[{ RowBox[{"2", "m", SqrtBox["\[Alpha]"]}], "-", RowBox[{"2", "m"}], "+", "1"}], ")"}]}]]}]}], ",", RowBox[{"y", "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{"s", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"4", RowBox[{"m", "^", "2"}]}]}], ")"}], SqrtBox["\[Alpha]"]}], "-", RowBox[{"2", RowBox[{"(", RowBox[{"1", "-", RowBox[{"3", "m"}], "-", RowBox[{"10", RowBox[{"m", "^", "2"}]}]}], ")"}]}], "-", RowBox[{"2", RowBox[{"(", RowBox[{"1", "-", RowBox[{"10", "m"}], "+", RowBox[{"16", RowBox[{"m", "^", "2"}]}]}], ")"}], FractionBox["1", SqrtBox["\[Alpha]"]]}]}], ")"}]}], RowBox[{"4", "m", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "m"}]}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"2", "m", SqrtBox["\[Alpha]"]}], "-", RowBox[{"2", "m"}], "+", "1"}], ")"}]}]]}]}]}], "}"}], ";"}]], "Input", CellChangeTimes->{{3.583845009593508*^9, 3.583845076343601*^9}, 3.583845373096033*^9, {3.5838454210761003`*^9, 3.583845432756117*^9}}], Cell["A slightly simpler version is the following :", "Text", CellChangeTimes->{{3.5838445545728703`*^9, 3.5838445869129157`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{"Factor", "[", RowBox[{ RowBox[{"y", "/.", RowBox[{"y", "\[Rule]", FractionBox[ RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "m"}]}], ")"}], " ", "m", " ", "x"}], RowBox[{"2", " ", "m", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "m"}]}], ")"}]}]]}]}], "/.", RowBox[{"x", "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{"s", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{"2", " ", "m", " ", RowBox[{"(", RowBox[{"3", "+", SqrtBox["\[Alpha]"]}], ")"}]}], "+", SqrtBox["\[Alpha]"]}], ")"}]}], RowBox[{"4", " ", "m", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "m", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SqrtBox["\[Alpha]"]}], ")"}]}]}], ")"}]}]]}]}]}], "]"}], "]"}]], "Input", CellChangeTimes->{3.5838445782129035`*^9}], Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "m"}]}], ")"}], " ", "s", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{"2", " ", "m", " ", RowBox[{"(", RowBox[{"3", "+", SqrtBox["\[Alpha]"]}], ")"}]}], "+", SqrtBox["\[Alpha]"]}], ")"}]}], RowBox[{"4", " ", "m", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "m"}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "m", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SqrtBox["\[Alpha]"]}], ")"}]}]}], ")"}]}]]], "Output", CellChangeTimes->{3.5838445789329042`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{"s", RowBox[{"(", RowBox[{ RowBox[{ SqrtBox["\[Alpha]"], RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", "m"}]}], ")"}]}], "+", RowBox[{"6", "m"}], "-", "2"}], ")"}]}], RowBox[{"4", "m", RowBox[{"(", RowBox[{ RowBox[{"2", "m", SqrtBox["\[Alpha]"]}], "-", RowBox[{"2", "m"}], "+", "1"}], ")"}]}]]}]}], ",", RowBox[{"y", "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{"s", RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "m"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SqrtBox["\[Alpha]"], RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", "m"}]}], ")"}]}], "+", RowBox[{"6", "m"}], "-", "2"}], ")"}]}], RowBox[{"4", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "m"}]}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"2", "m", SqrtBox["\[Alpha]"]}], "-", RowBox[{"2", "m"}], "+", "1"}], ")"}]}]]}]}]}], "}"}], ";"}]], "Input", CellChangeTimes->{{3.583761196799252*^9, 3.58376131523466*^9}, { 3.5837614218660474`*^9, 3.583761425220053*^9}}], Cell["(numerically, they are essentially identical)", "Text", CellChangeTimes->{{3.5838466042578325`*^9, 3.5838466170878506`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"N", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"p22", ",", "t22", ",", "dd2"}], "}"}], "//.", RowBox[{"{", RowBox[{ RowBox[{"p22", "->", RowBox[{ FractionBox["1", "2"], "+", FractionBox["s", RowBox[{"4", " ", "\[Alpha]", " ", "m"}]], "+", RowBox[{"x", "/", RowBox[{"\[Alpha]", "^", RowBox[{"(", RowBox[{"3", "/", "2"}], ")"}]}]}]}]}], ",", RowBox[{"t22", "->", RowBox[{ FractionBox["1", "2"], "+", FractionBox["s", RowBox[{"4", " ", "\[Alpha]", " ", "m"}]], "+", RowBox[{"y", "/", RowBox[{"\[Alpha]", "^", RowBox[{"(", RowBox[{"3", "/", "2"}], ")"}]}]}]}]}], ",", RowBox[{"dd2", "->", RowBox[{ FractionBox["1", "4"], "-", RowBox[{ FractionBox["1", "2"], SuperscriptBox[ RowBox[{"(", FractionBox["1", "\[Alpha]"], ")"}], RowBox[{"1", "/", "2"}]]}], "+", FractionBox["1", RowBox[{"2", " ", "\[Alpha]"}]], "-", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", "\[Alpha]"], ")"}], RowBox[{"3", "/", "2"}]]}], "+", SuperscriptBox[ RowBox[{"(", FractionBox["1", "\[Alpha]"], ")"}], "2"]}]}]}], "}"}]}], "//.", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{"s", RowBox[{"(", RowBox[{ RowBox[{ SqrtBox["\[Alpha]"], RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", "m"}]}], ")"}]}], "+", RowBox[{"6", "m"}], "-", "2"}], ")"}]}], RowBox[{"4", "m", RowBox[{"(", RowBox[{ RowBox[{"2", "m", SqrtBox["\[Alpha]"]}], "-", RowBox[{"2", "m"}], "+", "1"}], ")"}]}]]}]}], ",", RowBox[{"y", "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{"s", RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "m"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SqrtBox["\[Alpha]"], RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", "m"}]}], ")"}]}], "+", RowBox[{"6", "m"}], "-", "2"}], ")"}]}], RowBox[{"4", "m", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "m"}]}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"2", "m", SqrtBox["\[Alpha]"]}], "-", RowBox[{"2", "m"}], "+", "1"}], ")"}]}]]}]}]}], "}"}]}], "/.", RowBox[{"{", RowBox[{ RowBox[{"s", "\[Rule]", ".9"}], ",", RowBox[{"\[Alpha]", "\[Rule]", "200"}], ",", RowBox[{"m", "\[Rule]", ".01"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.5837599270094213`*^9, 3.5837599510178633`*^9}, { 3.583761331229888*^9, 3.5837613602615395`*^9}, {3.5837613913055935`*^9, 3.5837614002912097`*^9}, {3.583761477417745*^9, 3.583761487167762*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.5338541056859053`", ",", "0.5369382584041051`", ",", "0.21708127259302432`"}], "}"}]], "Output", CellChangeTimes->{ 3.58376136072954*^9, 3.583761401695212*^9, {3.5837614793365483`*^9, 3.583761488244164*^9}}] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Here is the approximate solution :", "Subsubsection", CellChangeTimes->{{3.6076883796453786`*^9, 3.607688396962369*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"solalpha", "[", RowBox[{"s_", ",", "\[Alpha]_", ",", "m_"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "2."], "+", FractionBox["s", RowBox[{"4", " ", "m", " ", "\[Alpha]"}]], "-", RowBox[{ FractionBox[ RowBox[{"s", RowBox[{"(", RowBox[{ RowBox[{ SqrtBox["\[Alpha]"], RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", "m"}]}], ")"}]}], "+", RowBox[{"6", "m"}], "-", "2"}], ")"}]}], RowBox[{"4", "m", RowBox[{"(", RowBox[{ RowBox[{"2", "m", SqrtBox["\[Alpha]"]}], "-", RowBox[{"2", "m"}], "+", "1"}], ")"}]}]], SuperscriptBox[ RowBox[{"(", FractionBox["1", "\[Alpha]"], ")"}], RowBox[{"3", "/", "2"}]]}]}], ",", RowBox[{ FractionBox["1", "2."], "+", FractionBox["s", RowBox[{"4", " ", "m", " ", "\[Alpha]"}]], "-", RowBox[{ FractionBox[ RowBox[{"s", RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "m"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SqrtBox["\[Alpha]"], RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", "m"}]}], ")"}]}], "+", RowBox[{"6", "m"}], "-", "2"}], ")"}]}], RowBox[{"4", "m", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "m"}]}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"2", "m", SqrtBox["\[Alpha]"]}], "-", RowBox[{"2", "m"}], "+", "1"}], ")"}]}]], SuperscriptBox[ RowBox[{"(", FractionBox["1", "\[Alpha]"], ")"}], RowBox[{"3", "/", "2"}]]}]}], ",", RowBox[{ FractionBox["1", "4."], "-", RowBox[{ FractionBox["1", "2"], SuperscriptBox[ RowBox[{"(", FractionBox["1", "\[Alpha]"], ")"}], RowBox[{"1", "/", "2"}]]}], "+", FractionBox["1", RowBox[{"2", " ", "\[Alpha]"}]], "-", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", "\[Alpha]"], ")"}], RowBox[{"3", "/", "2"}]]}], "+", SuperscriptBox[ RowBox[{"(", FractionBox["1", "\[Alpha]"], ")"}], "2"]}]}], "}"}]}], ";"}]], "Input", InitializationCell->True, CellChangeTimes->{ 3.583761681701104*^9, {3.5837617286103864`*^9, 3.5837617346631966`*^9}, { 3.5838451052296467`*^9, 3.5838451411797028`*^9}, 3.5838451973417826`*^9, { 3.583845462636159*^9, 3.583845472376172*^9}, {3.5838466311998715`*^9, 3.5838466323998733`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Simplify", "[", RowBox[{"Series", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"alphaLargeSym", "/.", RowBox[{"{", RowBox[{ RowBox[{"p12", "\[Rule]", RowBox[{"1", "-", "p22"}]}], ",", RowBox[{"t12", "\[Rule]", RowBox[{"1", "-", "t22"}]}], ",", RowBox[{"dd1", "\[Rule]", "dd2"}]}], "}"}]}], "//.", RowBox[{"{", RowBox[{ RowBox[{"p22", "->", RowBox[{ FractionBox["1", "2"], "+", FractionBox["s", RowBox[{"4", " ", "\[Alpha]", " ", "m"}]], "+", RowBox[{"x", "/", RowBox[{"\[Alpha]", "^", RowBox[{"(", RowBox[{"3", "/", "2"}], ")"}]}]}]}]}], ",", RowBox[{"t22", "->", RowBox[{ FractionBox["1", "2"], "+", FractionBox["s", RowBox[{"4", " ", "\[Alpha]", " ", "m"}]], "+", RowBox[{"y", "/", RowBox[{"\[Alpha]", "^", RowBox[{"(", RowBox[{"3", "/", "2"}], ")"}]}]}]}]}], ",", RowBox[{"dd2", "->", RowBox[{ FractionBox["1", "4"], "-", RowBox[{ FractionBox["1", "2"], SuperscriptBox[ RowBox[{"(", FractionBox["1", "\[Alpha]"], ")"}], RowBox[{"1", "/", "2"}]]}], "+", FractionBox["1", RowBox[{"2", " ", "\[Alpha]"}]], "-", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", "\[Alpha]"], ")"}], RowBox[{"3", "/", "2"}]]}], "+", SuperscriptBox[ RowBox[{"(", FractionBox["1", "\[Alpha]"], ")"}], "2"]}]}]}], "}"}]}], "//.", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{"s", RowBox[{"(", RowBox[{ RowBox[{ SqrtBox["\[Alpha]"], RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", "m"}]}], ")"}]}], "+", RowBox[{"6", "m"}], "-", "2"}], ")"}]}], RowBox[{"4", "m", RowBox[{"(", RowBox[{ RowBox[{"2", "m", SqrtBox["\[Alpha]"]}], "-", RowBox[{"2", "m"}], "+", "1"}], ")"}]}]]}]}], ",", RowBox[{"y", "->", RowBox[{"-", FractionBox[ RowBox[{"s", RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "m"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SqrtBox["\[Alpha]"], RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", "m"}]}], ")"}]}], "+", RowBox[{"6", "m"}], "-", "2"}], ")"}]}], RowBox[{"4", "m", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "m"}]}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"2", "m", SqrtBox["\[Alpha]"]}], "-", RowBox[{"2", "m"}], "+", "1"}], ")"}]}]]}]}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "Infinity", ",", "2"}], "}"}]}], "]"}], "]"}], "//", "Normal"}]], "Input", CellChangeTimes->{{3.5837670599068966`*^9, 3.5837671241166096`*^9}}], Cell[BoxData["$Aborted"], "Output", CellChangeTimes->{3.5837746691128683`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{"Series", "[", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"s", RowBox[{"(", RowBox[{ RowBox[{ SqrtBox["\[Alpha]"], RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", "m"}]}], ")"}]}], "+", RowBox[{"6", "m"}], "-", "2"}], ")"}]}], RowBox[{"4", "m", RowBox[{"(", RowBox[{ RowBox[{"2", "m", SqrtBox["\[Alpha]"]}], "-", RowBox[{"2", "m"}], "+", "1"}], ")"}]}]]}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "Infinity", ",", "1"}], "}"}]}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.584429022872367*^9, 3.584429040406798*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"s", "+", RowBox[{"2", " ", "m", " ", "s"}]}], RowBox[{"8", " ", SuperscriptBox["m", "2"]}]]}], "+", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", "m"}], "-", RowBox[{"16", " ", SuperscriptBox["m", "2"]}]}], ")"}], " ", "s", " ", SqrtBox[ FractionBox["1", "\[Alpha]"]]}], RowBox[{"16", " ", SuperscriptBox["m", "3"]}]], "-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "m"}], "-", RowBox[{"24", " ", SuperscriptBox["m", "2"]}], "+", RowBox[{"32", " ", SuperscriptBox["m", "3"]}]}], ")"}], " ", "s"}], RowBox[{"32", " ", SuperscriptBox["m", "4"], " ", "\[Alpha]"}]], "+", InterpretationBox[ SuperscriptBox[ RowBox[{"O", "[", FractionBox["1", "\[Alpha]"], "]"}], RowBox[{"3", "/", "2"}]], SeriesData[$CellContext`\[Alpha], DirectedInfinity[1], {}, 0, 3, 2], Editable->False]}], SeriesData[$CellContext`\[Alpha], DirectedInfinity[ 1], {(Rational[-1, 8] $CellContext`m^(-2)) ($CellContext`s + ( 2 $CellContext`m) $CellContext`s), (( Rational[1, 16] $CellContext`m^(-3)) (1 + 4 $CellContext`m - 16 $CellContext`m^2)) $CellContext`s, (( Rational[-1, 32] $CellContext`m^(-4)) (1 + 2 $CellContext`m - 24 $CellContext`m^2 + 32 $CellContext`m^3)) $CellContext`s}, 0, 3, 2], Editable->False]], "Output", CellChangeTimes->{{3.5844290363663907`*^9, 3.584429040952799*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{"Series", "[", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"s", RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "m"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SqrtBox["\[Alpha]"], RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", "m"}]}], ")"}]}], "+", RowBox[{"6", "m"}], "-", "2"}], ")"}]}], RowBox[{"4", "m", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "m"}]}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"2", "m", SqrtBox["\[Alpha]"]}], "-", RowBox[{"2", "m"}], "+", "1"}], ")"}]}]]}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "Infinity", ",", "1"}], "}"}]}], "]"}], "]"}]], "Input", CellChangeTimes->{3.5844291487957883`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "m"}]}], ")"}], " ", "s"}], RowBox[{"8", " ", SuperscriptBox["m", "2"]}]], "+", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "m"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", RowBox[{"4", " ", "m"}], "+", RowBox[{"16", " ", SuperscriptBox["m", "2"]}]}], ")"}], " ", "s", " ", SqrtBox[ FractionBox["1", "\[Alpha]"]]}], RowBox[{"16", " ", SuperscriptBox["m", "3"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "m"}]}], ")"}]}]], "+", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "m"}]}], ")"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", RowBox[{"4", " ", "m"}], "+", RowBox[{"16", " ", SuperscriptBox["m", "2"]}]}], ")"}], " ", "s"}], RowBox[{"32", " ", SuperscriptBox["m", "4"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "m"}]}], ")"}], " ", "\[Alpha]"}]], "+", InterpretationBox[ SuperscriptBox[ RowBox[{"O", "[", FractionBox["1", "\[Alpha]"], "]"}], RowBox[{"3", "/", "2"}]], SeriesData[$CellContext`\[Alpha], DirectedInfinity[1], {}, 0, 3, 2], Editable->False]}], SeriesData[$CellContext`\[Alpha], DirectedInfinity[ 1], {((Rational[1, 8] $CellContext`m^(-2)) (-1 + 2 $CellContext`m)) $CellContext`s, (((( Rational[1, 16] $CellContext`m^(-3)) (-1 + 2 $CellContext`m))/(1 + 2 $CellContext`m)) (-1 - 4 $CellContext`m + 16 $CellContext`m^2)) $CellContext`s, (((( Rational[1, 32] (1 - 2 $CellContext`m)^2) $CellContext`m^(-4))/(1 + 2 $CellContext`m)) (-1 - 4 $CellContext`m + 16 $CellContext`m^2)) $CellContext`s}, 0, 3, 2], Editable->False]], "Output", CellChangeTimes->{3.584429149294989*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"solalpha", "[", RowBox[{".9", ",", "200", ",", ".01"}], "]"}]], "Input", CellChangeTimes->{{3.583761699126334*^9, 3.5837617082991505`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.5338541056859053`", ",", "0.5369382584041051`", ",", "0.21708127259302432`"}], "}"}]], "Output", CellChangeTimes->{{3.583761708704751*^9, 3.583761737486802*^9}, 3.5838452114618025`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"solalpha", "[", RowBox[{".09", ",", "300", ",", ".01"}], "]"}]], "Input", CellChangeTimes->{{3.583761699126334*^9, 3.5837617082991505`*^9}, { 3.5838460912171144`*^9, 3.583846094717119*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.502365875159945`", ",", "0.5025672133889668`", ",", "0.222762151795864`"}], "}"}]], "Output", CellChangeTimes->{{3.583761708704751*^9, 3.583761737486802*^9}, 3.5838452114618025`*^9, 3.5838462421973257`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"solalpha", "[", RowBox[{"0.1", ",", "\[Alpha]", ",", "0.01"}], "]"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "5", ",", "100"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.5828932368295317`*^9, 3.582893329649695*^9}, { 3.582893411815039*^9, 3.582893442890294*^9}, {3.5828981154473004`*^9, 3.582898209125465*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVznk0lYkbB3BpN9qGcHHLkqzZd+V5lBg1law3iZAlKpIt2VJXWUv2FIXs I0mMXQmhRUmJYd73vffaLqmmRKjf/f3xnO/5nPM93/NIu/paufPz8fE18+7/ OTIuEc3HJ4zfBPQWX+RMw4JHqec7ujAqxvkKV0RNgxhH/0C5kTCOdlrlLrlO gxVpK8YIFsYo0aTtlMI0dH64VnH/ozAq1XT1MOumoLJ7+ZDT8GaMsDvgcXWK Cy/+uNGqvbAZU4TjJf3ecmGyQ6pQgCaCK6Ln/UoaubCtbdfZGhsRjOa2/hBI 4kJWQ/Dq9c9FsP/Hx1IXbS5El3O1mupF8WHjhwL9pEnIVQqlpQyIYpB10MrM 0EloLF7zy2tWFOcalz3S9pyE2QK5bmFNMTRdgH+kTSbB57bz8VMlYijacifm /vcJsEnqS5DIpGF32nHlnjMTcFbQ1f/zIxoe/WCrmOQ0AUlxn+w7+2g4iFk6 UQcnoCtmney5DeJI96UzP6pOgHGkeV13jDiW+3PliM/jIO/XwDkfKIH5Dtdn L0WOg9fEX/gmTQJvBS4Jt/mNQ7HrnWylGgmU9ypx2+E6Dkq2zMNDsxJoXtL7 NmrvOKgYHmraGSKJYDGeu3H9OGiuYKX+CqWjqMRT0/2FY+Af3j9jn03HrwHT tC9ZY/BwtnNfZQMdqxZ9c+oTx0B7opzPZZGOZkM5tRWBY6D3MujUk/At6HGk oHmz+RjszBQwZUZtxc8KWnwXZkYhbNNSzvCdrZj7cFf1Ss4oNMXNzOs83oqa 78LpZYOjkGs8af8fnxT62QylmnaMgpTGq3UFJlJIXQ4XK84ZBVmRrPMr26Tw 9eeyG6PWo6BAqBx+1i6Nr9wLmzReciAnvF+aeiuNWwnBB/MdHBCWiPiywJLG XNsPE70tHOCze5Wixi+DY3fGgssfcGCg5+y7dGMZHIxioFA6B67W1hx1r5XB 13++OnbBhQNjSejBXyKLie7ePQ+WccBRZUJX8m9ZdLtbdVZkkQ1vupJX63bK otYDo9fMWTY0r2AVn+TIonDdG4vLXDakhzK5vdLbcNV4tMhSPxvMPLr9cm9u wzxP+dmOcjYU7rK5sDNBDo1FlG4LubBB3Y8/WCBbDl8MhL+vdmRDfV6l/0CJ HL5rFEg4xmDDq9XrvAM65dDJKkSy/RAb5l63M8r5t+PG7Zv+mzRmw34PPV3J 89ux0FaAHb2FDZ+SxD8vuMvjRHjDdAjFgtDHz6a6AuRR3jwhZnKEBSu+Bo1n XJJHOb3COpchFtCO9P2rdVcenevPNh1/y4Ldsgkvff7h9Q9snsztYEFa7VLZ kJUCNtWY1YmVs8CQIDwaQBHvb88KLQllgd1Gk9vdhxSxPzHI+HwwC/zxbt8H Z0XUWrl1/cEAFpTeccG5SEXMNDcoWHWGBeIuFE2nVRHfPzULrXJhwQLJel6B Slh8i7jHtWBBI2tUM89EGc8GuHndobNgQMj85IPDylhWUqHyU5wFX/cU5ba6 KGNNDP2FsxgLVAo8Bf+9qIwP9Z5Fqwqx4NaJcY7EE2XUyb84PreGBWGcicy0 3SrYH8YvZvSNgl1jUz+v7tmB5X20XNNeClRDwgaYVjuwuqI2TeclBVJrBaui XXbgb9b3lRWfU7BCWdk9LHIHKjz4ISP2jILuMyd7fBt2IC3wQrNwKwWMWU6G nZYqHruW1XG5koKAlf+qb5NVw2Ix6qdMCgUe6WcEpDXV8C/3fUnOyby+/E8W 3UQN+TM5BjnXKDCyoGeIOquh0+vr76UTKOBPPLokkK2GuY0ePSZMCv4QmGKH rFVH4Ra/PDKYgv5krwfOF9Ux0OwxGedEgciR2IaIWHVspYkIsh15+1Kl7beT 1XFZrJoRHKXgnwruh6G76ijxcThrwZ4CqucMP+OJOs4d3vAj/jAFn1YGWlsu 18B7EdwTa/ZSIBh68RsyNdC76/Behx0UHDTJ++WcqIFFdyeHppUpuL6mbW1k mgaWHujbfEmJAqGMFVua7mlgwL/8J6vkKRCvvmJm0KGB+u2/m26ToUDhY2KG xmpN7L7Gl2klSsEe15sGMrGaWCYuKNzFT8H6r7uOSCRr4vDVG+I3llEwyCRD hLM0sS7i+ylHPgr8SxT+XlWiib9HZU1/XSIh71ONLveZJo7qP1LQmSeBP7JP q3qNFqbuG+J8miGhNVtQ1eyqFo5XnFC2GCFhZ3+EjPcVbYw+V+O1rZmEc6L1 QoNJ2jhTv9VxTxMJpUe+rdiXro0xyak0t0YSREd8xhTvaaPsrnsfC+pJ+DLK KJ94oo183YMcjVoSiuc0dU/+1MauhXANv0oShCTHLLwCdbD2vFdfcD4Jk66H znq46eI6y4cnL8fznM/6FeSji6mq1cUtcSRMsIOTrpzTRc30dRkLsSSMe9wp K76ki7tTHSICr5Iw5v2ZM5mviyqXcpzPMklg+6c4+LJ1cTzZ5OHVSBKGo9/v CXHXQ6GFqc3qAST05jmLxHnqY70gx97AmQTD1PigTb76aBf6faHAiYR7zNp3 mUH6OGlJ37SJ51CvDRlFTH085d2UMOlIgqxqi2h7vj5aGCo35jmQEFS3hcZH 6OPp1kep8nYk0HuHJYIYBiiSfkU46gAJ3ktHpV0tDHF47xMf210kONUJZLRZ GmJ4w/cT/+wkwTqwTlCOYYjyrXxVbjzvnBaZG/MwxDeNe83OGZGwYfj1y9OX DTFptOFgugEJ1Y3mYedbDJFZVpjF1SFh6YLW++s6Rig+9WKpV5WE6z8EEluk d6IkLcUhWJqE6ZL5g6YyxihWWP6Iu5oEPkPvBmM+RItq+Jj2HwFyIcE/ziw3 Qet4tsxNgoBrq0cmyGW7Mc7kne6FXgJsCgwF1WZ2Y2evtfb+NgJ0xGs/XPu0 B1eRB66X1hDgd1txsJswRYVu6VjtcgI65xuYNM5e7C1QoIvmEeBWVESWss3w dqS9jm4WAQ6usX4ifeaYrt5k1ZhMwOnZuNK0/j+Q9ufXb25xBAxmRIvOdFjg /WubmuUvE5AY16cd/3Afxpm5DSdGEOBoZ7pkWL0fOybSsxZCCGCqlc09zf8T 1wvkiGkHENBNauS6Fh3AfTGi1Glf3v+cTbO7Cw/i3nvkZQkfAgxmxyKXUg6h tY6asZMnAfRPZwY5+yxxJnZRM8uNgB7uifWGbZb4yOsSWB0nQOL6lZtqBofR MdHYxvIYAfNShouqdYfx+7LofbsdCLj8t2dwtroVLpYkmafbE3B7p9yzTVVW KLHcdfOIDQEnOo9pflOyRl3O4lioFQEvfjz5ev6uNbb0NMvttSTgqfjfCWtk bJC2oWh42UECvEwUjFfctMFW47++8f9JwE0bhfa1krYYUbpW/rsFAb4bbQsq s22xjEN/vPEPAj6/Wbz19Hc7fN13fo2rGQHLorV9qBQ77Fw3B4WmBDTrjVmd FrTHkP4MA8k9BGxJ77iRFW2PRvFFhWUmBAiSOsWv+Bk47f3MRBUJKNKUeu8f ysDK1Vqpg8YEUEr5v8WGMVC7x7vrLc9bZLdjbgQD3xPtv17ynCqkUtITzcD7 D9i+bTxHfdW7sC2egdINDcfKeXaoObT1XTYDjx+P8Y3gWdAw0tOgiYGrZvef lOXZXJP/1qEWBhrtOPCEznO0ErPX/TEDB3w8JcV4nhePN7jRzsBPTZw+QZ5H F9J/475g4PwXPsvZXQS0NFXcvzXCwKopn7Aunn880mBXEQwMUx8YbeNZt6Ja rItiIHWJYdXMc3lO/cVvowxM25qq8pDnzMgO64MzDEzJ/jh9i+e+YIurJz4z 0PX5l+MZPK/3e94Y+h8DJ7PX9CfzzDz+Rq7oOwNHCM/WGJ5bGbYOTfMMPNVQ qXeR50XLgaS+BQbO/VxbeYFnPYujbRNLDHR0OqcYxLO/ycj3X78YGJ8wle/H 8/8A2kO2KQ== "]], LineBox[CompressedData[" 1:eJwV0Hk0lIsbB3CJlKuVMCRbyM7YheexlHQTSXmTEhlrZcnWgqi5laJFEZKS EhXVdSUaFYVoUaqrEu/7zowxllCI4vrN74/nfM/nnOc853se9cBIL5a4mJhY tWj+n129ymliYnLo8E217V7VIPwOLgv5qCKHOssTld5dHARFvrX77VVyyHaz ttp5cBC8qM2KRIIcNphw9DiOg9D06XR5xTc5rPXr+ALtA3C3ZfaXHV+XomOr vtRTqQF4tfbcE/PfS3Fb3Gnz9qF+6GtUuyHNkMfIIFeBRUc/rGiwj67ylsf9 Wh7TPaX9kFubILXgpTzmEp332zz7Ie12vxmnRgFXPZogim71QaHeAUZWhwLa d3ICVC72waObc2dCxxUwTazh5/ujfTBerNUix1REq7fLq8d29EFEgf/O3aWK qBT03Ype2gfeme2nlC8yUMWn3qcgQwjRMoExI/8wsGGAuh+dJITM9GGfpnYG 9vP3nI/dI4QXf83X3LdQCU3z9onP3iAEhxTXhy1/KaGJlO+00WIh6ETV8vfH KaOX6SZDZmEvhArv4LsLytgd+c3m0JleuBl4JV+vShlJ1RjJkdRe0NvM3vhl XBkzDrO0CVYvGNh6cOwSl2HsEak90ka9wJTgnp85oIKOZFBwYqMAYpI+DPnk q+CDCB3tFTUC+Hu8ad3dWhVssV22ZuSOAMyFt8UCplTw+PcrFYMXBGD1On53 fdJylMxj9geECMDuorQL+7Aq5lfMt/6wUACHFk9f/npFFf9+21S4U1IAnPSh SYunqhhcKsOe87sHCh36fH6IqWG5uL3XlZ4eUDN9M7/YUQ3v7q5TFH/cA5ry ufslG9RwTFs+0Dy2B1aSBhubn6vjdDq7cN03PlxO+qBOv1fHuNOz0hYI+CCn nPz9N1cd5+58cZbq5oPYljdZxuIayGIkHqt8y4eO1uiP2Q4aKDFfXnZeFR+O P6jaxnqggRMGycK1qXwQZGKweKkmzm2adNZQ54OfgdByWbUmSvgPFx1W5sO7 F2elLJs00X6JdIVwKR/qJLg3w/iaePFb0vYv0nzIPsDub1NfgT/fqC+yHePB muCWqMK8FTgTseLLq1Ye3LD3Pmh3Sgt3z+7zvpnCA5Mo8QTpfC0cFk/wdTrI g5qiuzEdpVp4PnjqPTeeB2+k5ofHNmnh+mR92m4vDybePidui2tj8+mw/au3 8+DPYCvLZfu1UbhrrVaRHQ+GM5VGfrN0sH9g0kdVjAcHnjYPvIjVwe8L9nqe mOKCxGh8b84RHRzLOkhNTHCBsbW92+yqDnb47LvUO8IFJ81TryM6dTAnqU57 Ho8LFx5M3/ritRLPbLJIcXnBBVuSDK4FXfyRXyPmm8OFLYscC1o8dNHt568w 9fNciMGr7Z/8dbFnVVz34BkulF0JwIkUXcw149RfSOeCUgDNsHiii4yNg7Zq yVz4TXFflqMeltf8+iAfzIVH3B5mkaM+Vqx/k+Bqw4UOWdewexv18c0d17kF llwYdS4pfBKgjxvDG+PHzbhgUBwi052qj7Z3tr6uNOLCpaBevnK9Po5s4Z7e sYILh/jCixecDDA2wO+r/yIu2AsG/jvubIiMIRuWsI8Go8RDHWwvQ2y0zZx4 10uD2jyZ+2kBhjiuetzwcQ8NEvr6rEMphrgjqzmskKahZW9Ya2StISrdd7+V /JkGYpyfs8XMCDeYBsZUttAQK9ltskLTGJM6V0qSt2kIzt4rrc40xsiQ7pSl t0T7Ov9xVRyNcdb7HQz3UhpWuankKPgbo4pWXl79dRrEM7ZNS+cb4+pl72Mb L9OwVnqAlzjPBL/LcrKNztLw4WzoPf9UE5yrywoPT6BBfuuJ2uQTJlhnZufy KE50X63secFZE2zsENNeFEtDZ3n/py9XTbBTM+0HJ4oGunWvOFFvgvz7m3xM w2kYlozb5DnbFBXvHA6I3U6DzIHUMWSboqduMLl5NQ0bHItm/DNMsXFe3Una mYYzcxvmpVwwxfyCk1+jnGiQzZFYzrluiueOjIadAxqUKo+tsWk0xUduWl97 bWhY+S0jx1SKiZJU8k/SiAbnwDwbjRNM7Iiv2DTIoGHBqP1W5bNM1L7aOlyh SMNnNpUol8vE9raqzn0KNMSUrqyeU8rEVpqZOyNHQ9FwlWV/MxMZBSqR2otE /0ppN6uca4a+j0MHK+bQ8CRfxmjNcTPUnNP05fooBXYfkjXCj5ljqoF+w7N2 CvYp1Mh+zjTH3OFbgV3vKCjbOiaxLtscgzjs1xNvKVDoihDoXjdH1XQXKZM2 Cr73ELeF9eb4MMuNKnlJwc0JpmXYf+YYIhPh/+g5BbLLBG6hcRa45xWxJKaa gr5Aj+jgXZZYvZrvQBWKfI07Ex9hideza9wVRBbyEjKP7bNEyy3uCzZcpqA3 +Mqtm0cskUVYXuVcokAQPsLvu2aJPobM8eJcCngxWb6RPEsM1VYqysqi4Gva v86JLCsc0w+J7D9GQVuRv3x6iDXWb6/U9ouhwPb8yfjFkdb4cY1DYkM0BdfZ Dz5ejLdGGacyO32RD4QuzClhW+OpcodlU5EUaBo9Vnh+zRo1XzB0r+2hIP7h coYYaY04VrV4ThgFKm1fleMJG0xNbp9R3klB+PQ29UA3W7TjTFlFe1Bw5pd0 xmN1O9TT0e8pZVIwWDq5wUXDAXN1qrRsFCkQsw2vdRBDrPq6yk59NgVaiQm/ 9s52xB/s/+6yhkg4LdUlpGY54buQcIX8LhK8i21ljIeccP713ql/20iwUHrw 6fSwM75ed9avuIGEqALdzy2kC1LN3lcqqklomqxlM/irUdfCXk62nIRdJSVU GW8NxrGKTtcVk+AbeCJKvt0VXXc4mpKXSNgznl524cNa3LnbQk3jAgmfc9IU hhrdsO2ovXJGJgkZ6e3mJ/9eh+4DxWFXj5Pgt8Vl2rbyT1x8P+5RbRoJbONb E8+urcf1LZd+lSWR0EKZFgaWuGPm09rh3ERRf/7icacbG/DF4/dbxWNJsBkX pExneaBORdMvqSgSVIb3fuav88SV2wP1JXaT0NoftMC2wRMDXfaUsENJUD5z LM/YZiNysxN4HiwSJtVsp4webkSjivfeMoEkHK0OScg38cKb8fOfmfiTUGCn 1bz4vhfWn8dIVz8Sgpq2M8f0NmHey09J1VtJePWrfnT/1U0Y5B50Z6sPCc+U qk/N1fBG96GIV/3eJIQ6rnSQyPPGMGHmp0YvEvK8Vz6ft2wzzusby8jyJCFy 0ebiu/mb8ejVEOnjG0gYeTd16dmSLbjgqe3S6vUkzEozj6CztqD059kVn9aR UGcl8Noj44N1B+tyTdxIWJ7deC43zQfNl0TfK3IlQYayuPlGnMCy+YYlc9aQ UMJU+zfmAIGzVo/uznEhgda79seJQwRaj+/QPSvyck1tLEwmcLu0mCBd5POy BqWtaQRWT3BZySIfHrU6uOIkgd2OujEskX2rPFQ/5hN4IsvvmZnIMrYpITYc AgWeku5vnUlwZYpf8nhMoMXkOeNWkdP02G2spwS2G6yXfS7ypNJJm3PPCQzn Qle1yD2/s//of0Vgp5dm2hWRH3PKKy51Ebi/6cysKJF//WPKu08SKFVdMR4m smV5peILmsCKn6MDu0S+fbkmdayHwBjGSKePyBdTGjdtGCLwJHWjBURuT3A7 HjRCYJvLULONyAuiXj468IPArKBtzWYis3e+0yr5SeCpcwUtOiI/ITb7ciYJ PDod80pd5CnPjsz23wQe6Qp/qyyyldu2BuE0gZa8ox+Xihzj2PVzZobAEM6T zoUi/w8m+H+O "]], LineBox[CompressedData[" 1:eJwV1nk0ldsbB3DhXm5UlI4zOGYlcYsMORfPg0qqS8nw3ihdSXKTaZWZUgrX bTCVISkWkcpF5ul9TeeciiKuDEWGiiIVheT3/v7Ya6/PH3vttffzffbaKm4+ dkdFRURE0ujx//nlW06UiIgctq34aH7Hh4IFj4Jj3Vw5zMiJf6p+nALm6Nbf C3+TQxn1zwVdbhTYDTkwiUA5bI3sed/mSIGP68iiTrIcRiTaUHL7KIgf8B8W K5HDdR2P62J3U9D64vL9B5NymK427/MdKRhxUkyKll6LE9SK/q+/USDaXRjs rLUWk6NdBrhGFJh0CLZJeKxFcuSg56gOBUVCsb5DA2uxoy+9fgeXgic7Exr0 F9ainoKgOoRFwXiLcu5yFgN5CiOpz9ZSoN5o6ldmz8BfhZdvjqykwNz8sWO8 PwPTXDPW35Si4FD9ARO3KwwcrdpkFyxJQWp1oMTKxwysvuMZHytKQZnxzx+G 3zHwq1/R+rolEp6XJ3VUSsijW4Zf2KpFElaW/nvjqKU8prTPZP70jYSNenju tz/lcaj5T8X8GRJ2FrV5ykbKY6OqXZXHZxKiCie21FbJo830ul6dKRJuaoWw EnvkUTNrt67hBxJq7kguec7KY9K/RrsdJ0iYzdEQyukx0dQ14VrfGxLWqJU+ GLdlIkz8qIIxEjbfskhu8Gbiab25qMoREv664Xr4RD4TxTJjJd4PkRDDmdxu 0cpEiQtn27MHSchNDdvIHGXiofl0O59XJDTKS8lOirJQPW65os1LEgaTU2cb lVl4KPc/EgZIWFyj2Z9qxsLc/mdPLftJYCeUkT4uLFSsDxz8o48E+0ud8Zzr LPw0VONe9YIEP2k3/+mHLLQ8y5UVp30p7qNTaycLNR/G6BzqIaFQMtL0xjQL ++u6nPn0FoILK9QCVrHRx0gZLWiPiWdIWuuwUUKm4syjbhLEz2lNKu5mI2fN 6pYjtFWWVXZ+8WTj3FBF1XLaZpFWlcILbPT2MpNq6CLBebErMyuHjYvtOh7n aAeFup8/TbHxe9NiqD3t5LlPx/cMstHKVmxJj3Zx4Flb1R9sVJhxz1ak3T6z yuAbh4OEzUoledrvAzLZbcYcvDebvUGB9vJP2iI5Thw8NRAYpkN7vW/1aPAp Dk5PhXfsou357h52JHMw++ricCDtO25Z6VplHMwzyvItpv2uL2E2qpuDBWOJ 6+ZpazlE7+ub5eD+QqkyG/o8Xm2BhVvkFfAPZd1nD2jftfKSiDdSQKYLQ5tL 38/7Bhe3EScF3Ol+JyyFtjbPttYkSAF7RW6HcOj79S4xZyZfV0DRpYhXd2nf 19YP+FChgLdf+HhY0fXYpMTakDmngJ2My+2ZvST4Xpc6P8viYr6syeYDdD2L ZH+8tOFxUXdp+IESXW898eGkpRAunme2sPh0HvzDu6ac0rlYWON+qYDOS8ls 666iai6qNpQYptB50n9XKPLndy4a1LF2xND5M2o7fYIKV0TutZ6sZ6N0PayO t7IzFbG212L8K53figZn1YA6ReTXlbZpvCWBV4I9akuKeC2PUXxtnAST68u3 RZ9RwrMLvyi20/0SJruYOZClhNGrdQN0pkmojZuaMyCVMGlwlUzCJ7qfzMad Poso438VMzHedP8p67avyDFXxsAW3YjjCySoMVKDf2pURrPa/QYE3e+ag9r7 +M0q2JIuXW+tQUFmeJfK6+cqaJxbc0huPQVynIhPC8MqGG6jcGpIkwIRx/bE TaKq6M3fzo/SpqDnkV93ipkqFvU5HR/cQkFMeZnz0XJVvLc4fHHBgoI3l9BD NF8Nt1dHJRyk38tcU/tQk3gNzJvaX/s8mwLe4KBHNWxAdY0C7USNRjB98/5H jKUOslPmNYzvNkLXVc9/Xc9uxv6300VfuE1g6ZZmrBqrh8uSXUzYl5vApCtC 1euiPsZLeOaXfm6CcTdbP48jhvjsrdBCz7oZnt52ZcQd24rn5kqih240g9ei s4qbNQ/3vAgztRtrhivzy/+pVzFByqWhZGh9C3zIn7PZpmqGwdJ7tmcdbwER nle1mQgiZ1fwTPjtFtAICpw/KWaOapoLQW19LXBZ4uW7oWUW6Ob9i6WOTCvY 5/CkN01Z4ERJZchb01YwYJe/uPzREmus53mnT7SC740NvcLBbUhYzYTYJ7dC 61x1NGt0O0YEV3rJ1rfCkby8oYKRHbi3L/bkw9FWOOAW68votELWFdZsrwQf vGfjCpK7duKWZf7+C1p86L0WJT/VYo0OjH6Gxi4+/BPXqf93yS40vfVK1PoY H1wcty3ySnej5OvVt3yj+RC96e63puw96Kgxpbo3iw/CId2bbnm/46PJzm7N Gj7Yj8rOWuTaoL3f16nd3Xwwnn0TuZhoi10njULvfeAD9+PJ3tFde5ExNvZE /GcBPJpwX8lr3Iu32h+nvOAIgHPlYtom4314UdNIMmizAOaUed9/rdyHm4d/ KPy0QwDnK44Fpm+2Q77p83aPPwRww0SDL1tshxx1De5dbwG4tx7Um9HajzKm wq1TkQJ4Mk99Cb61H+VCn4RZXBVAE7siXlLVHsnn+ld9sgXgaa5pJp5mj9Sp BeneEgGk2Ws2/6LggII3G0PXNAvAR8YhpyjdAde3Jw76dQlguuN7RtNqR2xM 3uhoPiKAZVH6f71OdMTi/uvl3Z8FUGf0xs5b2gkt49JOzC4TgmJKS0JqlBMe jjj8wXuVEKSHDO60ixJoHx5x5TZXCHl6yv/5hxBYnm0te1FLCK+1sqViwwgc O6k9UE9bUW0d3owgcHLpyO1vtJPWaOc/iiJwvLyb6bVRCGe+GIWq/03gW+up h3u0hXCgzFapO51AI/nVxTK/0vvxIo8Z1xK4MUi/OlFXCFZ6ohm29QQ+szYs fUQ7Siv66VGSwDT7slwxPSHMsf82TmgmUE/bMCiA9thCitTEEwLtThJP7LYI ob72/oOMl/R6XwtzGQMhzD/UHSkeJOj/R32HFW3D+6VMwWsCXc+0H4ykXZhZ dXZmjECh6d3Dk7SvR7bst5kiULzkNOuxoRA6A61j3KcJTLQrCBQzEsJK38c1 IZ8JvOYQ0s6jHX24QyPvK4EpoV/+yqfdQDgcqJ0j8CLzVtEg7e97ey51LhDY JT01Kb9VCEbWzo3vFgnMTXq1zpa2v/nLr0tLBFITAcQF2v8DM6GY2g== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{5., 0}, PlotRange->{{5, 100}, {0, 1}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Automatic}]], "Output", CellChangeTimes->{{3.5828932843940153`*^9, 3.582893330164496*^9}, { 3.582893412579441*^9, 3.5828934433738947`*^9}, {3.5828981321861296`*^9, 3.582898210841468*^9}, 3.583761761510844*^9}] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["alpha large, s = 0", "Section", CellChangeTimes->{{3.5828959107602286`*^9, 3.5828959219142485`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{"%", "/.", RowBox[{"s", "\[Rule]", "0"}]}], "]"}]], "Input", CellChangeTimes->{{3.582880860615461*^9, 3.5828808679942737`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"dd1", " ", "\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t12"}], ")"}], " ", "\[Alpha]"}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"t12", " ", "\[Alpha]"}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"t12", " ", "\[Alpha]"}], "-", RowBox[{"p12", " ", RowBox[{"(", RowBox[{"2", "+", "\[Alpha]"}], ")"}]}]}], ")"}]}], "-", RowBox[{"m", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "t12"}]}], ")"}], " ", RowBox[{"(", RowBox[{"t12", "-", "t22"}], ")"}], " ", SuperscriptBox["\[Alpha]", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "dd1"}], " ", "\[Alpha]", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"t12", " ", "\[Alpha]"}]}], ")"}]}], "+", RowBox[{"p12", " ", RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "+", "dd1"}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"dd1", "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t12"}], ")"}], " ", "t12"}]}], ")"}], " ", SuperscriptBox["\[Alpha]", "2"]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"m", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t12"}], ")"}], " ", "\[Alpha]"}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"t12", " ", "\[Alpha]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox["p12", "2"]}], " ", RowBox[{"(", RowBox[{"t12", "-", "t22"}], ")"}], " ", "\[Alpha]", " ", RowBox[{"(", RowBox[{"2", "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{"p12", " ", RowBox[{"(", RowBox[{"2", "+", RowBox[{ RowBox[{"(", RowBox[{"2", "+", RowBox[{"4", " ", "dd1"}], "-", RowBox[{"2", " ", "dd2"}], "+", "t12", "+", RowBox[{"2", " ", "p22", " ", "t12"}], "-", "t22", "-", RowBox[{"2", " ", "p22", " ", "t22"}]}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "dd1"}], "-", "dd2", "+", RowBox[{"4", " ", "t12"}], "+", RowBox[{"p22", " ", "t12"}], "-", RowBox[{"5", " ", SuperscriptBox["t12", "2"]}], "-", RowBox[{"2", " ", "t22"}], "-", RowBox[{"p22", " ", "t22"}], "+", RowBox[{"3", " ", "t12", " ", "t22"}]}], ")"}], " ", SuperscriptBox["\[Alpha]", "2"]}]}], ")"}]}], "-", RowBox[{"p22", " ", RowBox[{"(", RowBox[{"2", "+", RowBox[{ RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", " ", "dd1"}], "+", "t12", "-", "t22"}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"dd1", "-", RowBox[{"t12", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "t12", "+", "t22"}], ")"}]}]}], ")"}], " ", SuperscriptBox["\[Alpha]", "2"]}]}], ")"}]}], "+", RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{"dd2", "+", RowBox[{"dd2", " ", "t12", " ", "\[Alpha]"}], "+", RowBox[{"dd1", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", RowBox[{"2", " ", "t12", " ", "\[Alpha]"}], "+", RowBox[{"t22", " ", "\[Alpha]"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}], "/", RowBox[{"(", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t12"}], ")"}], " ", "\[Alpha]"}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"t12", " ", "\[Alpha]"}]}], ")"}], "2"]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t12"}], ")"}], " ", "t12", " ", "\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Alpha]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t12"}], ")"}], " ", "t12", " ", SuperscriptBox["\[Alpha]", "2"]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", RowBox[{"t12", " ", "\[Alpha]"}], "+", RowBox[{"p12", " ", RowBox[{"(", RowBox[{"2", "+", "\[Alpha]"}], ")"}]}]}], ")"}]}], "+", RowBox[{"m", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox["t12", "5"]}], " ", SuperscriptBox["\[Alpha]", "4"]}], "+", RowBox[{"t22", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"p12", " ", "\[Alpha]"}]}], ")"}], " ", RowBox[{"(", RowBox[{"2", "+", RowBox[{"3", " ", "\[Alpha]"}], "+", SuperscriptBox["\[Alpha]", "2"]}], ")"}]}], "+", RowBox[{ SuperscriptBox["t12", "3"], " ", SuperscriptBox["\[Alpha]", "2"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{ RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", "p12"}], "-", RowBox[{"4", " ", "p22"}]}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "p12"}], "-", RowBox[{"2", " ", "p22"}], "-", RowBox[{"2", " ", "t22"}]}], ")"}], " ", SuperscriptBox["\[Alpha]", "2"]}]}], ")"}]}], "-", RowBox[{"t12", " ", RowBox[{"(", RowBox[{"1", "+", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{"2", "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "p22"}], "-", RowBox[{"2", " ", "t22"}], "+", RowBox[{"4", " ", "p12", " ", RowBox[{"(", RowBox[{"1", "+", "t22"}], ")"}]}]}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "p22"}], "-", RowBox[{"2", " ", "t22"}], "+", RowBox[{"2", " ", "p12", " ", RowBox[{"(", RowBox[{"1", "+", "t22"}], ")"}]}]}], ")"}], " ", SuperscriptBox["\[Alpha]", "2"]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["t12", "4"], " ", SuperscriptBox["\[Alpha]", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"2", "+", "t22"}], ")"}], " ", "\[Alpha]"}], "-", RowBox[{"p12", " ", RowBox[{"(", RowBox[{"2", "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{"p22", " ", RowBox[{"(", RowBox[{"2", "+", "\[Alpha]"}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["t12", "2"], " ", "\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "-", RowBox[{"4", " ", "\[Alpha]"}], "-", RowBox[{"t22", " ", "\[Alpha]"}], "-", RowBox[{"2", " ", SuperscriptBox["\[Alpha]", "2"]}], "-", RowBox[{"t22", " ", SuperscriptBox["\[Alpha]", "2"]}], "+", RowBox[{"t22", " ", SuperscriptBox["\[Alpha]", "3"]}], "+", RowBox[{"p12", " ", RowBox[{"(", RowBox[{"6", "+", RowBox[{"9", " ", "\[Alpha]"}], "+", SuperscriptBox["\[Alpha]", "2"], "-", SuperscriptBox["\[Alpha]", "3"]}], ")"}]}], "+", RowBox[{"p22", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "-", RowBox[{"3", " ", "\[Alpha]"}], "+", SuperscriptBox["\[Alpha]", "2"], "+", SuperscriptBox["\[Alpha]", "3"]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}], "/", RowBox[{"(", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t12"}], ")"}], " ", "\[Alpha]"}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"t12", " ", "\[Alpha]"}]}], ")"}], "2"]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["dd1", "2"], " ", "r", " ", "\[Alpha]", " ", RowBox[{"(", RowBox[{"2", "+", "\[Alpha]"}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "\[Alpha]", "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t12"}], ")"}], " ", "t12", " ", SuperscriptBox["\[Alpha]", "2"]}]}], ")"}], "2"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Alpha]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t12"}], ")"}], " ", "t12", " ", SuperscriptBox["\[Alpha]", "2"]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "p12"}], ")"}], " ", "p12", " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t12"}], ")"}], " ", "t12", " ", "\[Alpha]", " ", RowBox[{"(", RowBox[{"2", "+", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Alpha]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t12"}], ")"}], " ", "t12", " ", SuperscriptBox["\[Alpha]", "2"]}]}], ")"}]}], "+", RowBox[{"dd2", " ", "m", " ", RowBox[{"(", RowBox[{"4", "+", RowBox[{ RowBox[{"(", RowBox[{"6", "+", RowBox[{"p12", " ", RowBox[{"(", RowBox[{"4", "-", RowBox[{"8", " ", "t12"}]}], ")"}]}], "+", RowBox[{"4", " ", "t12"}]}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"2", "+", RowBox[{"9", " ", "t12"}], "+", RowBox[{"4", " ", SuperscriptBox["p12", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t12"}], ")"}], " ", "t12"}], "-", RowBox[{"3", " ", SuperscriptBox["t12", "2"]}], "+", RowBox[{"p12", " ", RowBox[{"(", RowBox[{"6", "-", RowBox[{"8", " ", "t12"}], "-", RowBox[{"4", " ", SuperscriptBox["t12", "2"]}]}], ")"}]}]}], ")"}], " ", SuperscriptBox["\[Alpha]", "2"]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["p12", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t12"}], ")"}], " ", "t12"}], "-", RowBox[{"t12", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", SuperscriptBox["t12", "2"]}], ")"}]}], "+", RowBox[{"p12", " ", RowBox[{"(", RowBox[{"1", "+", "t12", "-", RowBox[{"5", " ", SuperscriptBox["t12", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["t12", "3"]}]}], ")"}]}]}], ")"}], " ", SuperscriptBox["\[Alpha]", "3"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t12"}], ")"}], " ", "t12", " ", RowBox[{"(", RowBox[{ SuperscriptBox["p12", "2"], "+", RowBox[{"2", " ", "p12", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t12"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "t12"}], ")"}], " ", "t12"}]}], ")"}], " ", SuperscriptBox["\[Alpha]", "4"]}]}], ")"}]}], "+", RowBox[{"m", " ", RowBox[{"(", RowBox[{"p12", "-", "p22"}], ")"}], " ", RowBox[{"(", RowBox[{"t12", "-", "t22"}], ")"}], " ", RowBox[{"(", RowBox[{"4", "+", RowBox[{ RowBox[{"(", RowBox[{"6", "+", RowBox[{"p12", " ", RowBox[{"(", RowBox[{"4", "-", RowBox[{"8", " ", "t12"}]}], ")"}]}], "+", RowBox[{"4", " ", "t12"}]}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"2", "+", RowBox[{"9", " ", "t12"}], "+", RowBox[{"4", " ", SuperscriptBox["p12", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t12"}], ")"}], " ", "t12"}], "-", RowBox[{"3", " ", SuperscriptBox["t12", "2"]}], "+", RowBox[{"p12", " ", RowBox[{"(", RowBox[{"6", "-", RowBox[{"8", " ", "t12"}], "-", RowBox[{"4", " ", SuperscriptBox["t12", "2"]}]}], ")"}]}]}], ")"}], " ", SuperscriptBox["\[Alpha]", "2"]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["p12", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t12"}], ")"}], " ", "t12"}], "-", RowBox[{"t12", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", SuperscriptBox["t12", "2"]}], ")"}]}], "+", RowBox[{"p12", " ", RowBox[{"(", RowBox[{"1", "+", "t12", "-", RowBox[{"5", " ", SuperscriptBox["t12", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["t12", "3"]}]}], ")"}]}]}], ")"}], " ", SuperscriptBox["\[Alpha]", "3"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t12"}], ")"}], " ", "t12", " ", RowBox[{"(", RowBox[{ SuperscriptBox["p12", "2"], "+", RowBox[{"2", " ", "p12", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t12"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "t12"}], ")"}], " ", "t12"}]}], ")"}], " ", SuperscriptBox["\[Alpha]", "4"]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"dd1", " ", RowBox[{"(", RowBox[{ RowBox[{"m", " ", RowBox[{"(", RowBox[{"4", "+", RowBox[{ RowBox[{"(", RowBox[{"10", "+", RowBox[{"8", " ", "t12"}], "+", RowBox[{"p22", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", RowBox[{"8", " ", "t12"}]}], ")"}]}], "-", RowBox[{"4", " ", "t22"}], "+", RowBox[{"8", " ", "p12", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"3", " ", "t12"}], "+", "t22"}], ")"}]}]}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"8", "+", RowBox[{"22", " ", "t12"}], "+", RowBox[{"3", " ", SuperscriptBox["t12", "2"]}], "+", RowBox[{"2", " ", "p22", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", RowBox[{"8", " ", "t12"}], "+", RowBox[{"2", " ", SuperscriptBox["t12", "2"]}]}], ")"}]}], "-", RowBox[{"5", " ", "t22"}], "-", RowBox[{"10", " ", "t12", " ", "t22"}], "+", RowBox[{"4", " ", SuperscriptBox["p12", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"5", " ", SuperscriptBox["t12", "2"]}], "+", "t22", "-", RowBox[{"2", " ", "t12", " ", RowBox[{"(", RowBox[{"2", "+", "t22"}], ")"}]}]}], ")"}]}], "-", RowBox[{"4", " ", "p12", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{"2", "+", "p22"}], ")"}], " ", SuperscriptBox["t12", "2"]}], "-", RowBox[{"4", " ", "t22"}], "-", RowBox[{"2", " ", "t12", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "+", "p22", "+", "t22"}], ")"}]}]}], ")"}]}]}], ")"}], " ", SuperscriptBox["\[Alpha]", "2"]}], "+", RowBox[{ RowBox[{"(", RowBox[{"2", "+", RowBox[{"20", " ", "t12"}], "+", RowBox[{"9", " ", SuperscriptBox["t12", "2"]}], "+", RowBox[{"2", " ", "p22", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", "t12", "+", RowBox[{"13", " ", SuperscriptBox["t12", "2"]}], "-", RowBox[{"6", " ", SuperscriptBox["t12", "3"]}]}], ")"}]}], "-", "t22", "-", RowBox[{"14", " ", "t12", " ", "t22"}], "-", RowBox[{"6", " ", SuperscriptBox["t12", "2"], " ", "t22"}], "+", RowBox[{"8", " ", SuperscriptBox["p12", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"5", " ", SuperscriptBox["t12", "2"]}], "+", "t22", "-", RowBox[{"2", " ", "t12", " ", RowBox[{"(", RowBox[{"2", "+", "t22"}], ")"}]}]}], ")"}]}], "+", RowBox[{"2", " ", "p12", " ", RowBox[{"(", RowBox[{"8", "+", RowBox[{"6", " ", SuperscriptBox["t12", "3"]}], "+", RowBox[{"7", " ", "t22"}], "+", RowBox[{"t12", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "9"}], "+", RowBox[{"8", " ", "p22"}], "+", RowBox[{"2", " ", "t22"}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["t12", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "28"}], "-", RowBox[{"8", " ", "p22"}], "+", RowBox[{"6", " ", "t22"}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", SuperscriptBox["\[Alpha]", "3"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "p22", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"5", " ", "t12"}], "-", RowBox[{"14", " ", SuperscriptBox["t12", "2"]}], "+", RowBox[{"5", " ", SuperscriptBox["t12", "3"]}], "+", RowBox[{"2", " ", SuperscriptBox["t12", "4"]}]}], ")"}]}], "+", RowBox[{"t12", " ", RowBox[{"(", RowBox[{"6", "+", RowBox[{"2", " ", SuperscriptBox["t12", "3"]}], "-", RowBox[{"12", " ", "t12", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}]}], "-", RowBox[{"3", " ", "t22"}], "+", RowBox[{ SuperscriptBox["t12", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", RowBox[{"2", " ", "t22"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"2", " ", "p12", " ", RowBox[{"(", RowBox[{"2", "+", RowBox[{"4", " ", "p22", " ", SuperscriptBox["t12", "4"]}], "-", RowBox[{ SuperscriptBox["t12", "2"], " ", RowBox[{"(", RowBox[{"26", "+", "p22", "-", RowBox[{"3", " ", "t22"}]}], ")"}]}], "+", RowBox[{"t12", " ", RowBox[{"(", RowBox[{"6", "+", RowBox[{"5", " ", "p22"}], "-", RowBox[{"2", " ", "t22"}]}], ")"}]}], "+", RowBox[{"4", " ", "t22"}], "+", RowBox[{ SuperscriptBox["t12", "3"], " ", RowBox[{"(", RowBox[{"7", "-", RowBox[{"8", " ", "p22"}], "+", RowBox[{"4", " ", "t22"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["p12", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", SuperscriptBox["t12", "4"]}], "+", RowBox[{ SuperscriptBox["t12", "3"], " ", RowBox[{"(", RowBox[{"12", "-", RowBox[{"8", " ", "t22"}]}], ")"}]}], "+", RowBox[{"5", " ", "t22"}], "-", RowBox[{"2", " ", "t12", " ", RowBox[{"(", RowBox[{"10", "+", RowBox[{"7", " ", "t22"}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["t12", "2"], " ", RowBox[{"(", RowBox[{"17", "+", RowBox[{"12", " ", "t22"}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", SuperscriptBox["\[Alpha]", "4"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["p12", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", SuperscriptBox["t12", "4"]}], "+", RowBox[{ SuperscriptBox["t12", "3"], " ", RowBox[{"(", RowBox[{"12", "-", RowBox[{"8", " ", "t22"}]}], ")"}]}], "+", "t22", "-", RowBox[{"2", " ", "t12", " ", RowBox[{"(", RowBox[{"2", "+", RowBox[{"3", " ", "t22"}]}], ")"}]}], "+", RowBox[{"3", " ", SuperscriptBox["t12", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"4", " ", "t22"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"2", " ", "p12", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["t12", "5"]}], "+", RowBox[{ SuperscriptBox["t12", "3"], " ", RowBox[{"(", RowBox[{"4", "+", RowBox[{"8", " ", "p22"}], "-", RowBox[{"8", " ", "t22"}]}], ")"}]}], "-", "t22", "-", RowBox[{"t12", " ", RowBox[{"(", RowBox[{"3", "+", "p22", "+", "t22"}], ")"}]}], "+", RowBox[{ SuperscriptBox["t12", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6"}], "-", RowBox[{"4", " ", "p22"}], "+", RowBox[{"2", " ", "t22"}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["t12", "2"], " ", RowBox[{"(", RowBox[{"5", "-", RowBox[{"3", " ", "p22"}], "+", RowBox[{"6", " ", "t22"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"t12", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "p22", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{"2", " ", "t12"}], "+", RowBox[{"5", " ", SuperscriptBox["t12", "2"]}], "-", RowBox[{"7", " ", SuperscriptBox["t12", "3"]}], "+", RowBox[{"2", " ", SuperscriptBox["t12", "4"]}]}], ")"}]}], "+", RowBox[{"t12", " ", RowBox[{"(", RowBox[{"6", "-", RowBox[{"3", " ", "t22"}], "-", RowBox[{"2", " ", "t12", " ", RowBox[{"(", RowBox[{"2", "+", "t22"}], ")"}]}], "+", RowBox[{ SuperscriptBox["t12", "2"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "t22"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", SuperscriptBox["\[Alpha]", "5"]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t12"}], ")"}], " ", "t12", " ", RowBox[{"(", RowBox[{ RowBox[{"t12", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "p22", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t12"}], ")"}], "2"]}], "+", RowBox[{"t12", " ", RowBox[{"(", RowBox[{"2", "-", RowBox[{"2", " ", "t12"}], "+", SuperscriptBox["t12", "2"], "-", "t22"}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["p12", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["t12", "2"], "+", RowBox[{"2", " ", "t12", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}]}], "-", "t22"}], ")"}]}], "+", RowBox[{"2", " ", "p12", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t12"}], ")"}], " ", RowBox[{"(", RowBox[{ SuperscriptBox["t12", "2"], "-", "t22", "+", RowBox[{"t12", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "p22", "+", "t22"}], ")"}]}]}], ")"}]}]}], ")"}], " ", SuperscriptBox["\[Alpha]", "6"]}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Alpha]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t12"}], ")"}], " ", "t12", " ", SuperscriptBox["\[Alpha]", "2"]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "r", " ", RowBox[{"(", RowBox[{"2", "+", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", RowBox[{"t12", " ", "\[Alpha]"}], "+", RowBox[{"p12", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "t12"}]}], ")"}], " ", "\[Alpha]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Alpha]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t12"}], ")"}], " ", "t12", " ", SuperscriptBox["\[Alpha]", "2"]}]}], ")"}]}], "-", RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["p12", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t12"}], ")"}], " ", "t12", " ", "\[Alpha]", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"2", "+", "\[Alpha]"}], ")"}], "2"]}], "-", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"t12", " ", "\[Alpha]"}]}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"2", "-", RowBox[{"4", " ", "t12"}], "+", RowBox[{"2", " ", "\[Alpha]"}], "-", RowBox[{"5", " ", "t12", " ", "\[Alpha]"}], "+", RowBox[{"3", " ", SuperscriptBox["t12", "2"], " ", "\[Alpha]"}]}], ")"}]}], "+", RowBox[{"2", " ", "p12", " ", RowBox[{"(", RowBox[{"2", "+", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "\[Alpha]", "+", RowBox[{ SuperscriptBox["t12", "3"], " ", SuperscriptBox["\[Alpha]", "2"]}], "-", RowBox[{ SuperscriptBox["t12", "2"], " ", "\[Alpha]", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "\[Alpha]"}]}], ")"}]}], "+", RowBox[{"t12", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "-", "\[Alpha]", "+", SuperscriptBox["\[Alpha]", "2"]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}], "/", RowBox[{"(", RowBox[{"4", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t12"}], ")"}], " ", "\[Alpha]"}]}], ")"}], "3"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"t12", " ", "\[Alpha]"}]}], ")"}], "3"]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"dd2", " ", "\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "\[Alpha]"}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"t22", " ", "\[Alpha]"}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"t22", " ", "\[Alpha]"}], "-", RowBox[{"p22", " ", RowBox[{"(", RowBox[{"2", "+", "\[Alpha]"}], ")"}]}]}], ")"}]}], "+", RowBox[{"m", " ", RowBox[{"(", RowBox[{"t12", "-", "t22"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "t22"}]}], ")"}], " ", SuperscriptBox["\[Alpha]", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "dd2"}], " ", "\[Alpha]", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"t22", " ", "\[Alpha]"}]}], ")"}]}], "+", RowBox[{"p22", " ", RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "+", "dd2"}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"dd2", "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "t22"}]}], ")"}], " ", SuperscriptBox["\[Alpha]", "2"]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"m", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "\[Alpha]"}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"t22", " ", "\[Alpha]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["p22", "2"], " ", RowBox[{"(", RowBox[{"t12", "-", "t22"}], ")"}], " ", "\[Alpha]", " ", RowBox[{"(", RowBox[{"2", "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{"p22", " ", RowBox[{"(", RowBox[{"2", "+", RowBox[{ RowBox[{"(", RowBox[{"2", "-", RowBox[{"2", " ", "dd1"}], "+", RowBox[{"4", " ", "dd2"}], "-", "t12", "+", "t22"}], ")"}], " ", "\[Alpha]"}], "-", RowBox[{ RowBox[{"(", RowBox[{"dd1", "-", RowBox[{"2", " ", "dd2"}], "+", RowBox[{"2", " ", "t12"}], "-", RowBox[{"4", " ", "t22"}], "-", RowBox[{"3", " ", "t12", " ", "t22"}], "+", RowBox[{"5", " ", SuperscriptBox["t22", "2"]}]}], ")"}], " ", SuperscriptBox["\[Alpha]", "2"]}]}], ")"}]}], "-", RowBox[{"p12", " ", RowBox[{"(", RowBox[{"2", "+", RowBox[{ RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", " ", "dd2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "p22"}]}], ")"}], " ", "t12"}], "+", "t22", "-", RowBox[{"2", " ", "p22", " ", "t22"}]}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"dd2", "+", RowBox[{"p22", " ", RowBox[{"(", RowBox[{"t12", "-", "t22"}], ")"}]}], "-", RowBox[{"t22", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "t12", "+", "t22"}], ")"}]}]}], ")"}], " ", SuperscriptBox["\[Alpha]", "2"]}]}], ")"}]}], "+", RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{"dd1", "+", RowBox[{"dd1", " ", "t22", " ", "\[Alpha]"}], "+", RowBox[{"dd2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"t12", " ", "\[Alpha]"}], "-", RowBox[{"2", " ", "t22", " ", "\[Alpha]"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}], "/", RowBox[{"(", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "\[Alpha]"}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"t22", " ", "\[Alpha]"}]}], ")"}], "2"]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "t22", " ", "\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Alpha]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "t22", " ", SuperscriptBox["\[Alpha]", "2"]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", RowBox[{"t22", " ", "\[Alpha]"}], "+", RowBox[{"p22", " ", RowBox[{"(", RowBox[{"2", "+", "\[Alpha]"}], ")"}]}]}], ")"}]}], "+", RowBox[{"m", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "t22"}], " ", RowBox[{"(", RowBox[{"2", "+", RowBox[{ RowBox[{"(", RowBox[{"3", "+", RowBox[{"4", " ", "p22"}], "+", RowBox[{"2", " ", "p12", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}]}], "+", RowBox[{"2", " ", "t22"}], "-", RowBox[{"6", " ", "p22", " ", "t22"}]}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "+", RowBox[{"6", " ", "p22"}], "+", RowBox[{"3", " ", "p12", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}]}], "+", RowBox[{"4", " ", "t22"}], "-", RowBox[{"9", " ", "p22", " ", "t22"}], "-", SuperscriptBox["t22", "2"]}], ")"}], " ", SuperscriptBox["\[Alpha]", "2"]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "t22"}], ")"}]}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "p22"}], "-", "t22", "+", RowBox[{"2", " ", "p22", " ", SuperscriptBox["t22", "2"]}]}], ")"}]}], "+", RowBox[{"p12", " ", RowBox[{"(", RowBox[{"1", "+", "t22", "-", RowBox[{"4", " ", SuperscriptBox["t22", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["t22", "3"]}]}], ")"}]}]}], ")"}], " ", SuperscriptBox["\[Alpha]", "3"]}], "-", RowBox[{ RowBox[{"(", RowBox[{"p12", "-", "p22", "-", "t22"}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], "2"], " ", "t22", " ", SuperscriptBox["\[Alpha]", "4"]}]}], ")"}]}], "+", RowBox[{"t12", " ", RowBox[{"(", RowBox[{"2", "+", RowBox[{ RowBox[{"(", RowBox[{"3", "+", RowBox[{"p22", " ", RowBox[{"(", RowBox[{"2", "-", RowBox[{"4", " ", "t22"}]}], ")"}]}], "+", RowBox[{"2", " ", "t22"}]}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "+", RowBox[{"p22", " ", RowBox[{"(", RowBox[{"3", "-", RowBox[{"6", " ", "t22"}]}], ")"}]}], "+", RowBox[{"4", " ", "t22"}], "-", SuperscriptBox["t22", "2"]}], ")"}], " ", SuperscriptBox["\[Alpha]", "2"]}], "+", RowBox[{ RowBox[{"(", RowBox[{"p22", "-", RowBox[{"2", " ", "p22", " ", "t22"}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "t22"}], ")"}], " ", "t22"}]}], ")"}], " ", SuperscriptBox["\[Alpha]", "3"]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], "2"], " ", SuperscriptBox["t22", "2"], " ", SuperscriptBox["\[Alpha]", "4"]}]}], ")"}]}]}], ")"}]}]}], ")"}], "/", RowBox[{"(", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "\[Alpha]"}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"t22", " ", "\[Alpha]"}]}], ")"}], "2"]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["dd2", "2"], " ", "r", " ", "\[Alpha]", " ", RowBox[{"(", RowBox[{"2", "+", "\[Alpha]"}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "\[Alpha]", "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "t22", " ", SuperscriptBox["\[Alpha]", "2"]}]}], ")"}], "2"]}], "+", RowBox[{"dd1", " ", "m", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Alpha]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "t22", " ", SuperscriptBox["\[Alpha]", "2"]}]}], ")"}], " ", RowBox[{"(", RowBox[{"4", "+", RowBox[{ RowBox[{"(", RowBox[{"6", "+", RowBox[{"p22", " ", RowBox[{"(", RowBox[{"4", "-", RowBox[{"8", " ", "t22"}]}], ")"}]}], "+", RowBox[{"4", " ", "t22"}]}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"2", "+", RowBox[{"9", " ", "t22"}], "+", RowBox[{"4", " ", SuperscriptBox["p22", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "t22"}], "-", RowBox[{"3", " ", SuperscriptBox["t22", "2"]}], "+", RowBox[{"p22", " ", RowBox[{"(", RowBox[{"6", "-", RowBox[{"8", " ", "t22"}], "-", RowBox[{"4", " ", SuperscriptBox["t22", "2"]}]}], ")"}]}]}], ")"}], " ", SuperscriptBox["\[Alpha]", "2"]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["p22", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "t22"}], "-", RowBox[{"t22", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", SuperscriptBox["t22", "2"]}], ")"}]}], "+", RowBox[{"p22", " ", RowBox[{"(", RowBox[{"1", "+", "t22", "-", RowBox[{"5", " ", SuperscriptBox["t22", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["t22", "3"]}]}], ")"}]}]}], ")"}], " ", SuperscriptBox["\[Alpha]", "3"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "t22", " ", RowBox[{"(", RowBox[{ SuperscriptBox["p22", "2"], "+", RowBox[{"2", " ", "p22", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "t22"}], ")"}], " ", "t22"}]}], ")"}], " ", SuperscriptBox["\[Alpha]", "4"]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Alpha]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "t22", " ", SuperscriptBox["\[Alpha]", "2"]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "p22"}], ")"}], " ", "p22", " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "t22", " ", "\[Alpha]", " ", RowBox[{"(", RowBox[{"2", "+", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Alpha]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "t22", " ", SuperscriptBox["\[Alpha]", "2"]}]}], ")"}]}], "+", RowBox[{"m", " ", RowBox[{"(", RowBox[{"p12", "-", "p22"}], ")"}], " ", RowBox[{"(", RowBox[{"t12", "-", "t22"}], ")"}], " ", RowBox[{"(", RowBox[{"4", "+", RowBox[{ RowBox[{"(", RowBox[{"6", "+", RowBox[{"p22", " ", RowBox[{"(", RowBox[{"4", "-", RowBox[{"8", " ", "t22"}]}], ")"}]}], "+", RowBox[{"4", " ", "t22"}]}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"2", "+", RowBox[{"9", " ", "t22"}], "+", RowBox[{"4", " ", SuperscriptBox["p22", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "t22"}], "-", RowBox[{"3", " ", SuperscriptBox["t22", "2"]}], "+", RowBox[{"p22", " ", RowBox[{"(", RowBox[{"6", "-", RowBox[{"8", " ", "t22"}], "-", RowBox[{"4", " ", SuperscriptBox["t22", "2"]}]}], ")"}]}]}], ")"}], " ", SuperscriptBox["\[Alpha]", "2"]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["p22", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "t22"}], "-", RowBox[{"t22", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", SuperscriptBox["t22", "2"]}], ")"}]}], "+", RowBox[{"p22", " ", RowBox[{"(", RowBox[{"1", "+", "t22", "-", RowBox[{"5", " ", SuperscriptBox["t22", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["t22", "3"]}]}], ")"}]}]}], ")"}], " ", SuperscriptBox["\[Alpha]", "3"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "t22", " ", RowBox[{"(", RowBox[{ SuperscriptBox["p22", "2"], "+", RowBox[{"2", " ", "p22", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "t22"}], ")"}], " ", "t22"}]}], ")"}], " ", SuperscriptBox["\[Alpha]", "4"]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"dd2", " ", RowBox[{"(", RowBox[{ RowBox[{"m", " ", RowBox[{"(", RowBox[{"4", "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{"5", "-", RowBox[{"2", " ", "t12"}], "+", RowBox[{"4", " ", "p22", " ", RowBox[{"(", RowBox[{"1", "+", "t12", "-", RowBox[{"3", " ", "t22"}]}], ")"}]}], "+", RowBox[{"4", " ", "t22"}], "+", RowBox[{"p12", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{"4", " ", "t22"}]}], ")"}]}]}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"8", "-", RowBox[{"5", " ", "t12"}], "+", RowBox[{"22", " ", "t22"}], "-", RowBox[{"10", " ", "t12", " ", "t22"}], "+", RowBox[{"3", " ", SuperscriptBox["t22", "2"]}], "+", RowBox[{"p12", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "10"}], "+", RowBox[{"8", " ", RowBox[{"(", RowBox[{"2", "+", "p22"}], ")"}], " ", "t22"}], "+", RowBox[{ RowBox[{"(", RowBox[{"4", "-", RowBox[{"8", " ", "p22"}]}], ")"}], " ", SuperscriptBox["t22", "2"]}]}], ")"}]}], "+", RowBox[{"4", " ", "p22", " ", RowBox[{"(", RowBox[{"5", "-", RowBox[{"12", " ", "t22"}], "-", RowBox[{"4", " ", SuperscriptBox["t22", "2"]}], "+", RowBox[{"2", " ", "t12", " ", RowBox[{"(", RowBox[{"2", "+", "t22"}], ")"}]}]}], ")"}]}], "+", RowBox[{"4", " ", SuperscriptBox["p22", "2"], " ", RowBox[{"(", RowBox[{"t12", "-", RowBox[{"2", " ", "t12", " ", "t22"}], "+", RowBox[{"t22", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", RowBox[{"5", " ", "t22"}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", SuperscriptBox["\[Alpha]", "2"]}], "+", RowBox[{ RowBox[{"(", RowBox[{"2", "-", "t12", "+", RowBox[{"20", " ", "t22"}], "-", RowBox[{"14", " ", "t12", " ", "t22"}], "+", RowBox[{"9", " ", SuperscriptBox["t22", "2"]}], "-", RowBox[{"6", " ", "t12", " ", SuperscriptBox["t22", "2"]}], "-", RowBox[{"2", " ", "p12", " ", RowBox[{"(", RowBox[{"4", "-", RowBox[{ RowBox[{"(", RowBox[{"1", "+", RowBox[{"8", " ", "p22"}]}], ")"}], " ", "t22"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "13"}], "+", RowBox[{"8", " ", "p22"}]}], ")"}], " ", SuperscriptBox["t22", "2"]}], "+", RowBox[{"6", " ", SuperscriptBox["t22", "3"]}]}], ")"}]}], "+", RowBox[{"8", " ", SuperscriptBox["p22", "2"], " ", RowBox[{"(", RowBox[{"t12", "-", RowBox[{"2", " ", "t12", " ", "t22"}], "+", RowBox[{"t22", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", RowBox[{"5", " ", "t22"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"2", " ", "p22", " ", RowBox[{"(", RowBox[{"8", "-", RowBox[{"9", " ", "t22"}], "-", RowBox[{"28", " ", SuperscriptBox["t22", "2"]}], "+", RowBox[{"6", " ", SuperscriptBox["t22", "3"]}], "+", RowBox[{"t12", " ", RowBox[{"(", RowBox[{"7", "+", RowBox[{"2", " ", "t22"}], "+", RowBox[{"6", " ", SuperscriptBox["t22", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", SuperscriptBox["\[Alpha]", "3"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "p12", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"5", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "p22"}], ")"}], " ", "t22"}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "14"}], "+", "p22"}], ")"}], " ", SuperscriptBox["t22", "2"]}], "-", RowBox[{ RowBox[{"(", RowBox[{"5", "+", RowBox[{"8", " ", "p22"}]}], ")"}], " ", SuperscriptBox["t22", "3"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{"4", " ", "p22"}]}], ")"}], " ", SuperscriptBox["t22", "4"]}]}], ")"}]}], "+", RowBox[{"t22", " ", RowBox[{"(", RowBox[{"6", "+", RowBox[{"12", " ", "t22"}], "-", RowBox[{"5", " ", SuperscriptBox["t22", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["t22", "3"]}], "+", RowBox[{"t12", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "-", RowBox[{"12", " ", "t22"}], "+", RowBox[{"2", " ", SuperscriptBox["t22", "2"]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["p22", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"t12", " ", RowBox[{"(", RowBox[{"5", "-", RowBox[{"14", " ", "t22"}], "+", RowBox[{"12", " ", SuperscriptBox["t22", "2"]}], "-", RowBox[{"8", " ", SuperscriptBox["t22", "3"]}]}], ")"}]}], "+", RowBox[{"t22", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "20"}], "+", RowBox[{"17", " ", "t22"}], "+", RowBox[{"12", " ", SuperscriptBox["t22", "2"]}], "-", RowBox[{"4", " ", SuperscriptBox["t22", "3"]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"2", " ", "p22", " ", RowBox[{"(", RowBox[{"2", "+", RowBox[{"6", " ", "t22"}], "-", RowBox[{"26", " ", SuperscriptBox["t22", "2"]}], "+", RowBox[{"7", " ", SuperscriptBox["t22", "3"]}], "+", RowBox[{"t12", " ", RowBox[{"(", RowBox[{"4", "-", RowBox[{"2", " ", "t22"}], "+", RowBox[{"3", " ", SuperscriptBox["t22", "2"]}], "+", RowBox[{"4", " ", SuperscriptBox["t22", "3"]}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", SuperscriptBox["\[Alpha]", "4"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["p22", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "t12"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "t22"}]}], ")"}], "3"]}], "-", RowBox[{"t22", " ", RowBox[{"(", RowBox[{"4", "+", RowBox[{"3", " ", "t22"}], "-", RowBox[{"12", " ", SuperscriptBox["t22", "2"]}], "+", RowBox[{"4", " ", SuperscriptBox["t22", "3"]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"t22", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "p12", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{"2", " ", "t22"}], "+", RowBox[{"5", " ", SuperscriptBox["t22", "2"]}], "-", RowBox[{"7", " ", SuperscriptBox["t22", "3"]}], "+", RowBox[{"2", " ", SuperscriptBox["t22", "4"]}]}], ")"}]}], "+", RowBox[{"t22", " ", RowBox[{"(", RowBox[{"6", "-", RowBox[{"4", " ", "t22"}], "+", SuperscriptBox["t22", "2"], "+", RowBox[{"t12", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "-", RowBox[{"2", " ", "t22"}], "+", RowBox[{"2", " ", SuperscriptBox["t22", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"2", " ", "p22", " ", RowBox[{"(", RowBox[{ RowBox[{"t12", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "t22", "+", RowBox[{"6", " ", SuperscriptBox["t22", "2"]}], "-", RowBox[{"8", " ", SuperscriptBox["t22", "3"]}], "+", RowBox[{"2", " ", SuperscriptBox["t22", "4"]}]}], ")"}]}], "+", RowBox[{"t22", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{"5", " ", "t22"}], "+", RowBox[{"4", " ", SuperscriptBox["t22", "2"]}], "-", RowBox[{"6", " ", SuperscriptBox["t22", "3"]}], "+", RowBox[{"2", " ", SuperscriptBox["t22", "4"]}], "-", RowBox[{"p12", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"3", " ", "t22"}], "-", RowBox[{"8", " ", SuperscriptBox["t22", "2"]}], "+", RowBox[{"4", " ", SuperscriptBox["t22", "3"]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", SuperscriptBox["\[Alpha]", "5"]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "t22", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "p22", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"t12", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}]}], "+", RowBox[{"t22", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "p12", "+", "t22"}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["p22", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "t22"}], ")"}], " ", "t22"}], "+", RowBox[{"t12", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "t22"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"t22", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "p12", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], "2"]}], "+", RowBox[{"t22", " ", RowBox[{"(", RowBox[{"2", "-", "t12", "-", RowBox[{"2", " ", "t22"}], "+", SuperscriptBox["t22", "2"]}], ")"}]}]}], ")"}]}]}], ")"}], " ", SuperscriptBox["\[Alpha]", "6"]}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Alpha]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "t22", " ", SuperscriptBox["\[Alpha]", "2"]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "r", " ", RowBox[{"(", RowBox[{"2", "+", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", RowBox[{"t22", " ", "\[Alpha]"}], "+", RowBox[{"p22", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "t22"}]}], ")"}], " ", "\[Alpha]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Alpha]", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "t22", " ", SuperscriptBox["\[Alpha]", "2"]}]}], ")"}]}], "-", RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["p22", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "t22", " ", "\[Alpha]", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"2", "+", "\[Alpha]"}], ")"}], "2"]}], "-", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"t22", " ", "\[Alpha]"}]}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"2", "-", RowBox[{"4", " ", "t22"}], "+", RowBox[{"2", " ", "\[Alpha]"}], "-", RowBox[{"5", " ", "t22", " ", "\[Alpha]"}], "+", RowBox[{"3", " ", SuperscriptBox["t22", "2"], " ", "\[Alpha]"}]}], ")"}]}], "+", RowBox[{"2", " ", "p22", " ", RowBox[{"(", RowBox[{"2", "+", "\[Alpha]"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "\[Alpha]", "+", RowBox[{ SuperscriptBox["t22", "3"], " ", SuperscriptBox["\[Alpha]", "2"]}], "-", RowBox[{ SuperscriptBox["t22", "2"], " ", "\[Alpha]", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "\[Alpha]"}]}], ")"}]}], "+", RowBox[{"t22", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "-", "\[Alpha]", "+", SuperscriptBox["\[Alpha]", "2"]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}], "/", RowBox[{"(", RowBox[{"4", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "\[Alpha]"}]}], ")"}], "3"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"t22", " ", "\[Alpha]"}]}], ")"}], "3"]}], ")"}]}]}], "}"}]], "Output", CellChangeTimes->{3.5828808706618786`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Simplify", "[", RowBox[{"Series", "[", RowBox[{ RowBox[{"%", "/.", RowBox[{"{", RowBox[{ RowBox[{"p22", "\[Rule]", RowBox[{"1", "-", "p12"}]}], ",", RowBox[{"t12", "\[Rule]", RowBox[{"1", "-", "t22"}]}], ",", RowBox[{"dd2", "\[Rule]", "dd1"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "Infinity", ",", "0"}], "}"}]}], "]"}], "]"}], "//", "Normal"}]], "Input", CellChangeTimes->{{3.5828810558030033`*^9, 3.582881056676605*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], "2"], " ", SuperscriptBox["t22", "2"]}]], RowBox[{"(", RowBox[{ RowBox[{"m", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "p12"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "t22", " ", RowBox[{"(", RowBox[{"1", "-", "t22", "+", RowBox[{"p12", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "t22"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"dd1", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "p12", "+", "t22"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "t22"}], "+", RowBox[{"m", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "t22"}], "+", RowBox[{"2", " ", SuperscriptBox["t22", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "p12", "-", RowBox[{"2", " ", "m", " ", "p12"}], "+", "t22", "+", RowBox[{"2", " ", "m", " ", "t22"}]}], ")"}]}], ",", RowBox[{ FractionBox["1", RowBox[{"4", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], "2"], " ", SuperscriptBox["t22", "2"]}]], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["dd1", "2"], " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "t22"}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "t22", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "p12"}], ")"}], " ", "p12", " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "t22"}], "+", RowBox[{"m", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "p12"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "t22"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["p12", "2"], "-", RowBox[{"2", " ", "p12", " ", "t22"}], "+", SuperscriptBox["t22", "2"]}], ")"}]}]}], ")"}]}], "+", RowBox[{"dd1", " ", RowBox[{"(", RowBox[{ RowBox[{"m", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["p12", "2"], "+", RowBox[{"4", " ", "t22"}], "-", RowBox[{"2", " ", "p12", " ", "t22"}], "-", RowBox[{"3", " ", SuperscriptBox["t22", "2"]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "t22", " ", RowBox[{"(", RowBox[{ SuperscriptBox["p12", "2"], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "r"}], "+", RowBox[{"3", " ", "t22"}]}], ")"}]}], "+", RowBox[{"p12", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "r"}], "-", RowBox[{"2", " ", "t22"}], "+", RowBox[{"4", " ", "r", " ", "t22"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], ",", RowBox[{ FractionBox["1", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], "2"], " ", SuperscriptBox["t22", "2"]}]], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "m"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "p12"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "t22", " ", RowBox[{"(", RowBox[{"1", "-", "t22", "+", RowBox[{"p12", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "t22"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"dd1", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "p12", "+", "t22"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "t22"}], "+", RowBox[{"m", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "t22"}], "+", RowBox[{"2", " ", SuperscriptBox["t22", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "m"}]}], ")"}], " ", "p12"}], "-", RowBox[{ RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "m"}]}], ")"}], " ", "t22"}]}], ")"}]}], ",", RowBox[{ FractionBox["1", RowBox[{"4", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], "2"], " ", SuperscriptBox["t22", "2"]}]], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["dd1", "2"], " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "t22"}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "t22", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "p12"}], ")"}], " ", "p12", " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "t22"}], "+", RowBox[{"m", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "p12"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "t22"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["p12", "2"], "-", RowBox[{"2", " ", "p12", " ", "t22"}], "+", SuperscriptBox["t22", "2"]}], ")"}]}]}], ")"}]}], "+", RowBox[{"dd1", " ", RowBox[{"(", RowBox[{ RowBox[{"m", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["p12", "2"], "+", RowBox[{"4", " ", "t22"}], "-", RowBox[{"2", " ", "p12", " ", "t22"}], "-", RowBox[{"3", " ", SuperscriptBox["t22", "2"]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "t22", " ", RowBox[{"(", RowBox[{ SuperscriptBox["p12", "2"], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "r"}], "+", RowBox[{"3", " ", "t22"}]}], ")"}]}], "+", RowBox[{"p12", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "r"}], "-", RowBox[{"2", " ", "t22"}], "+", RowBox[{"4", " ", "r", " ", "t22"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], "}"}]], "Output", CellChangeTimes->{3.582881060030611*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "p12", "-", RowBox[{"2", " ", "m", " ", "p12"}], "+", "t22", "+", RowBox[{"2", " ", "m", " ", "t22"}]}], ")"}]}], ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "m"}]}], ")"}], " ", "p12"}], "-", RowBox[{ RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "m"}]}], ")"}], " ", "t22"}]}], ")"}]}]}], "}"}], "\[Equal]", "0"}], ",", RowBox[{"{", "p12", "}"}]}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.5828810717462316`*^9, 3.582881108484296*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"p12", "\[Rule]", FractionBox[ RowBox[{ RowBox[{"-", "1"}], "+", "t22", "+", RowBox[{"2", " ", "m", " ", "t22"}]}], RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "m"}]}]]}], "}"}], "}"}]], "Output", CellChangeTimes->{3.582881109435898*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{"%66", "//.", RowBox[{"{", RowBox[{ RowBox[{"p12", "\[Rule]", FractionBox[ RowBox[{ RowBox[{"-", "1"}], "+", "t22", "+", RowBox[{"2", " ", "m", " ", "t22"}]}], RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "m"}]}]]}], ",", RowBox[{"p22", "\[Rule]", RowBox[{"1", "-", "p12"}]}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.5828811391539497`*^9, 3.5828811586227837`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"m", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "t22"}]}], ")"}], " ", RowBox[{"(", RowBox[{"dd1", "-", RowBox[{"2", " ", "dd1", " ", "m"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "m"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "t22"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "t22"}], "+", RowBox[{"m", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "t22"}], "+", RowBox[{"2", " ", SuperscriptBox["t22", "2"]}]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "m"}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], "2"], " ", SuperscriptBox["t22", "2"]}], ")"}]}], ",", "0", ",", RowBox[{"-", RowBox[{ FractionBox["1", RowBox[{"4", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], "2"], " ", SuperscriptBox["t22", "2"]}]], RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["dd1", "2"], " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "t22"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "t22", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"2", " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "t22", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "m", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}]}], "+", "t22"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22", "+", RowBox[{"2", " ", "m", " ", "t22"}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "m"}]}], ")"}], "2"]], "-", FractionBox[ RowBox[{"4", " ", "m", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "m"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "t22"}]}], ")"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "m"}], "+", SuperscriptBox["m", "2"], "+", "t22", "-", SuperscriptBox["t22", "2"]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "m"}]}], ")"}], "3"]]}], ")"}]}], "+", RowBox[{ RowBox[{"1", "/", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "m"}]}], ")"}], "2"]}], RowBox[{"4", " ", "dd1", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["m", "3"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "t22"}]}], ")"}], "2"]}], "+", RowBox[{"m", " ", RowBox[{"(", RowBox[{"r", "-", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "t22"}]}], ")"}], "2"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "t22"}], "+", RowBox[{"r", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], "2"], " ", SuperscriptBox["t22", "2"]}], "+", RowBox[{ SuperscriptBox["m", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{ RowBox[{"(", RowBox[{"3", "+", RowBox[{"2", " ", "r"}]}], ")"}], " ", "t22"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"6", " ", "r"}]}], ")"}], " ", SuperscriptBox["t22", "2"]}], "+", RowBox[{"8", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "r"}], ")"}], " ", SuperscriptBox["t22", "3"]}], "-", RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "r"}], ")"}], " ", SuperscriptBox["t22", "4"]}]}], ")"}]}]}], ")"}]}]}]}], ")"}]}]}], ",", RowBox[{"-", RowBox[{ RowBox[{"(", RowBox[{"m", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "t22"}]}], ")"}], " ", RowBox[{"(", RowBox[{"dd1", "-", RowBox[{"2", " ", "dd1", " ", "m"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "m"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "t22"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "t22"}], "+", RowBox[{"m", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "t22"}], "+", RowBox[{"2", " ", SuperscriptBox["t22", "2"]}]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "m"}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], "2"], " ", SuperscriptBox["t22", "2"]}], ")"}]}]}], ",", "0", ",", RowBox[{"-", RowBox[{ FractionBox["1", RowBox[{"4", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], "2"], " ", SuperscriptBox["t22", "2"]}]], RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["dd1", "2"], " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "t22"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "t22", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"2", " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "t22", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "m", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}]}], "+", "t22"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22", "+", RowBox[{"2", " ", "m", " ", "t22"}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "m"}]}], ")"}], "2"]], "-", FractionBox[ RowBox[{"4", " ", "m", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "m"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "t22"}]}], ")"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "m"}], "+", SuperscriptBox["m", "2"], "+", "t22", "-", SuperscriptBox["t22", "2"]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "m"}]}], ")"}], "3"]]}], ")"}]}], "+", RowBox[{ RowBox[{"1", "/", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "m"}]}], ")"}], "2"]}], RowBox[{"4", " ", "dd1", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["m", "3"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "t22"}]}], ")"}], "2"]}], "+", RowBox[{"m", " ", RowBox[{"(", RowBox[{"r", "-", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "t22"}]}], ")"}], "2"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "t22"}], "+", RowBox[{"r", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], "2"], " ", SuperscriptBox["t22", "2"]}], "+", RowBox[{ SuperscriptBox["m", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{ RowBox[{"(", RowBox[{"3", "+", RowBox[{"2", " ", "r"}]}], ")"}], " ", "t22"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"6", " ", "r"}]}], ")"}], " ", SuperscriptBox["t22", "2"]}], "+", RowBox[{"8", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "r"}], ")"}], " ", SuperscriptBox["t22", "3"]}], "-", RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "r"}], ")"}], " ", SuperscriptBox["t22", "4"]}]}], ")"}]}]}], ")"}]}]}]}], ")"}]}]}]}], "}"}]], "Output", CellChangeTimes->{3.5828811636615925`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{"%", "/.", RowBox[{"{", RowBox[{"dd1", "\[Rule]", "0"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.5828812084804716`*^9, 3.5828812182148886`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"m", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "m"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "t22"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "t22"}], "+", RowBox[{"m", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "t22"}], "+", RowBox[{"2", " ", SuperscriptBox["t22", "2"]}]}], ")"}]}]}], ")"}]}], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "m"}]}], ")"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "t22"}]], ",", "0", ",", RowBox[{"-", FractionBox[ RowBox[{ FractionBox[ RowBox[{"2", " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "t22", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "m", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}]}], "+", "t22"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22", "+", RowBox[{"2", " ", "m", " ", "t22"}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "m"}]}], ")"}], "2"]], "-", FractionBox[ RowBox[{"4", " ", "m", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "m"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "t22"}]}], ")"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "m"}], "+", SuperscriptBox["m", "2"], "+", "t22", "-", SuperscriptBox["t22", "2"]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "m"}]}], ")"}], "3"]]}], RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "t22"}]]}], ",", RowBox[{"-", FractionBox[ RowBox[{"m", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "m"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "t22"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "t22"}], "+", RowBox[{"m", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "t22"}], "+", RowBox[{"2", " ", SuperscriptBox["t22", "2"]}]}], ")"}]}]}], ")"}]}], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "m"}]}], ")"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "t22"}]]}], ",", "0", ",", RowBox[{"-", FractionBox[ RowBox[{ FractionBox[ RowBox[{"2", " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "t22", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "m", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}]}], "+", "t22"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22", "+", RowBox[{"2", " ", "m", " ", "t22"}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "m"}]}], ")"}], "2"]], "-", FractionBox[ RowBox[{"4", " ", "m", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "m"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "t22"}]}], ")"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "m"}], "+", SuperscriptBox["m", "2"], "+", "t22", "-", SuperscriptBox["t22", "2"]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "m"}]}], ")"}], "3"]]}], RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "t22"}]]}]}], "}"}]], "Output", CellChangeTimes->{3.582881219634491*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{"Solve", "[", RowBox[{ RowBox[{ FractionBox[ RowBox[{"m", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "m"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "t22"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "t22"}], "+", RowBox[{"m", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "t22"}], "+", RowBox[{"2", " ", SuperscriptBox["t22", "2"]}]}], ")"}]}]}], ")"}]}], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "m"}]}], ")"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "t22"}]], "\[Equal]", "0"}], ",", "t22"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.582881239758527*^9, 3.582881256622156*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"t22", "\[Rule]", FractionBox["1", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{"t22", "\[Rule]", FractionBox[ RowBox[{"1", "+", RowBox[{"2", " ", "m"}], "-", SqrtBox[ RowBox[{"1", "-", RowBox[{"4", " ", SuperscriptBox["m", "2"]}]}]]}], RowBox[{"2", "+", RowBox[{"4", " ", "m"}]}]]}], "}"}], ",", RowBox[{"{", RowBox[{"t22", "\[Rule]", FractionBox[ RowBox[{"1", "+", RowBox[{"2", " ", "m"}], "+", SqrtBox[ RowBox[{"1", "-", RowBox[{"4", " ", SuperscriptBox["m", "2"]}]}]]}], RowBox[{"2", "+", RowBox[{"4", " ", "m"}]}]]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.582881257043357*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{"%69", "/.", RowBox[{"t22", "\[Rule]", FractionBox["1", "2"]}]}], "]"}]], "Input", CellChangeTimes->{{3.582881318273464*^9, 3.582881340097903*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", "0", ",", FractionBox["r", "8"], ",", "0", ",", "0", ",", FractionBox["r", "8"]}], "}"}]], "Output", CellChangeTimes->{3.5828813405191035`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{"%69", "/.", RowBox[{"t22", "\[Rule]", FractionBox[ RowBox[{"1", "+", RowBox[{"2", " ", "m"}], "-", SqrtBox[ RowBox[{"1", "-", RowBox[{"4", " ", SuperscriptBox["m", "2"]}]}]]}], RowBox[{"2", "+", RowBox[{"4", " ", "m"}]}]]}]}], "]"}]], "Input", CellChangeTimes->{3.5828813571019325`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", "0", ",", FractionBox[ RowBox[{"m", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "m"}], "+", "r"}], ")"}]}], RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{"4", " ", "m"}]}]], ",", "0", ",", "0", ",", FractionBox[ RowBox[{"m", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "m"}], "+", "r"}], ")"}]}], RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{"4", " ", "m"}]}]]}], "}"}]], "Output", CellChangeTimes->{3.582881357725934*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{"%69", "/.", RowBox[{"t22", "\[Rule]", FractionBox[ RowBox[{"1", "+", RowBox[{"2", " ", "m"}], "+", SqrtBox[ RowBox[{"1", "-", RowBox[{"4", " ", SuperscriptBox["m", "2"]}]}]]}], RowBox[{"2", "+", RowBox[{"4", " ", "m"}]}]]}]}], "]"}]], "Input", CellChangeTimes->{3.5828813689735537`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", "0", ",", FractionBox[ RowBox[{"m", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "m"}], "+", "r"}], ")"}]}], RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{"4", " ", "m"}]}]], ",", "0", ",", "0", ",", FractionBox[ RowBox[{"m", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "m"}], "+", "r"}], ")"}]}], RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{"4", " ", "m"}]}]]}], "}"}]], "Output", CellChangeTimes->{3.5828813693323545`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"m", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "t22"}]}], ")"}], " ", RowBox[{"(", RowBox[{"dd1", "-", RowBox[{"2", " ", "dd1", " ", "m"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "m"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "t22"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], " ", "t22"}], "+", RowBox[{"m", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "t22"}], "+", RowBox[{"2", " ", SuperscriptBox["t22", "2"]}]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "m"}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t22"}], ")"}], "2"], " ", SuperscriptBox["t22", "2"]}], ")"}]}], "\[Equal]", "0"}], ",", "t22"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.5828815230706244`*^9, 3.582881534989045*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"t22", "\[Rule]", FractionBox["1", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{"t22", "\[Rule]", FractionBox[ RowBox[{"1", "+", RowBox[{"2", " ", "m"}], "-", RowBox[{ SqrtBox[ RowBox[{"1", "+", RowBox[{"2", " ", "m"}]}]], " ", SqrtBox[ RowBox[{"1", "-", RowBox[{"4", " ", "dd1"}], "+", RowBox[{"2", " ", "m"}], "+", RowBox[{"8", " ", "dd1", " ", "m"}]}]]}]}], RowBox[{"2", "+", RowBox[{"4", " ", "m"}]}]]}], "}"}], ",", RowBox[{"{", RowBox[{"t22", "\[Rule]", FractionBox[ RowBox[{"1", "+", RowBox[{"2", " ", "m"}], "+", RowBox[{ SqrtBox[ RowBox[{"1", "+", RowBox[{"2", " ", "m"}]}]], " ", SqrtBox[ RowBox[{"1", "-", RowBox[{"4", " ", "dd1"}], "+", RowBox[{"2", " ", "m"}], "+", RowBox[{"8", " ", "dd1", " ", "m"}]}]]}]}], RowBox[{"2", "+", RowBox[{"4", " ", "m"}]}]]}], "}"}], ",", RowBox[{"{", RowBox[{"t22", "\[Rule]", FractionBox[ RowBox[{"1", "+", RowBox[{"2", " ", "m"}], "-", SqrtBox[ RowBox[{"1", "-", RowBox[{"4", " ", SuperscriptBox["m", "2"]}]}]]}], RowBox[{"2", "+", RowBox[{"4", " ", "m"}]}]]}], "}"}], ",", RowBox[{"{", RowBox[{"t22", "\[Rule]", FractionBox[ RowBox[{"1", "+", RowBox[{"2", " ", "m"}], "+", SqrtBox[ RowBox[{"1", "-", RowBox[{"4", " ", SuperscriptBox["m", "2"]}]}]]}], RowBox[{"2", "+", RowBox[{"4", " ", "m"}]}]]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.582881535332246*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{"%68", "/.", RowBox[{"t22", "\[Rule]", FractionBox[ RowBox[{"1", "+", RowBox[{"2", " ", "m"}], "+", RowBox[{ SqrtBox[ RowBox[{"1", "+", RowBox[{"2", " ", "m"}]}]], " ", SqrtBox[ RowBox[{"1", "-", RowBox[{"4", " ", "dd1"}], "+", RowBox[{"2", " ", "m"}], "+", RowBox[{"8", " ", "dd1", " ", "m"}]}]]}]}], RowBox[{"2", "+", RowBox[{"4", " ", "m"}]}]]}]}], "]"}]], "Input", CellChangeTimes->{{3.5828815419778576`*^9, 3.5828815643170967`*^9}, 3.582881970963011*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["m", "2"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"dd1", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", RowBox[{"8", " ", "m"}]}], ")"}]}], "+", RowBox[{"m", " ", RowBox[{"(", RowBox[{"2", "-", RowBox[{"4", " ", "r"}]}], ")"}]}], "+", RowBox[{"2", " ", "r"}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "m"}]}], ")"}], "3"]]}], ",", "0", ",", "0", ",", RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["m", "2"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"dd1", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", RowBox[{"8", " ", "m"}]}], ")"}]}], "+", RowBox[{"m", " ", RowBox[{"(", RowBox[{"2", "-", RowBox[{"4", " ", "r"}]}], ")"}]}], "+", RowBox[{"2", " ", "r"}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "m"}]}], ")"}], "3"]]}]}], "}"}]], "Output", CellChangeTimes->{3.582881564987898*^9, 3.582881972148613*^9, 3.5828820470287447`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{"Solve", "[", RowBox[{ RowBox[{"%", "\[Equal]", "0"}], ",", "dd1"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.582881570775508*^9, 3.5828815785911217`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"dd1", "\[Rule]", FractionBox[ RowBox[{"1", "+", RowBox[{"2", " ", "m"}], "+", RowBox[{"2", " ", "r"}], "-", RowBox[{"4", " ", "m", " ", "r"}]}], RowBox[{"4", "-", RowBox[{"8", " ", "m"}]}]]}], "}"}], "}"}]], "Output", CellChangeTimes->{3.582881578996722*^9, 3.58288197617342*^9, 3.5828820487759476`*^9}] }, Open ]], Cell["\<\ Das ist gr\[ODoubleDot]\[SZ]er als 1/4, also unzul\[ADoubleDot]ssig!\ \>", "Text", CellChangeTimes->{{3.582882092284424*^9, 3.5828821061372485`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{"%68", "/.", RowBox[{"t22", "\[Rule]", FractionBox[ RowBox[{"1", "+", RowBox[{"2", " ", "m"}], "-", SqrtBox[ RowBox[{"1", "-", RowBox[{"4", " ", SuperscriptBox["m", "2"]}]}]]}], RowBox[{"2", "+", RowBox[{"4", " ", "m"}]}]]}]}], "]"}]], "Input", CellChangeTimes->{3.582882137337303*^9, 3.582882470226288*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", "0", ",", FractionBox[ RowBox[{ RowBox[{"4", " ", "dd1", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "m"}], ")"}], " ", SuperscriptBox["m", "2"]}], "+", RowBox[{ SuperscriptBox["dd1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"4", " ", SuperscriptBox["m", "2"]}]}], ")"}], " ", "r"}], "+", RowBox[{ SuperscriptBox["m", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "m"}], "+", "r"}], ")"}]}]}], RowBox[{"2", " ", "m", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "m"}]}], ")"}]}]], ",", "0", ",", "0", ",", FractionBox[ RowBox[{ RowBox[{"4", " ", "dd1", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "m"}], ")"}], " ", SuperscriptBox["m", "2"]}], "+", RowBox[{ SuperscriptBox["dd1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"4", " ", SuperscriptBox["m", "2"]}]}], ")"}], " ", "r"}], "+", RowBox[{ SuperscriptBox["m", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "m"}], "+", "r"}], ")"}]}]}], RowBox[{"2", " ", "m", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "m"}]}], ")"}]}]]}], "}"}]], "Output", CellChangeTimes->{3.5828821385229053`*^9, 3.5828821763997717`*^9, 3.5828824710062895`*^9, 3.582882501925544*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{"%", "\[Equal]", "0"}], ",", "dd1"}], "]"}], ",", " ", RowBox[{"Assumptions", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"m", "\[GreaterEqual]", "0"}], ",", RowBox[{"r", "\[GreaterEqual]", "0"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.582881603223565*^9, 3.582881618168391*^9}, 3.5828821474617205`*^9, {3.582882181532181*^9, 3.582882198754611*^9}, { 3.582882485919915*^9, 3.5828824962315335`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"dd1", "\[Rule]", FractionBox[ RowBox[{"m", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "m"}], "-", RowBox[{"2", " ", SuperscriptBox["m", "2"]}], "+", SqrtBox[ RowBox[{ RowBox[{"4", " ", SuperscriptBox["m", "4"]}], "+", RowBox[{"2", " ", "m", " ", "r"}], "+", SuperscriptBox["r", "2"], "-", RowBox[{"8", " ", SuperscriptBox["m", "3"], " ", RowBox[{"(", RowBox[{"1", "+", "r"}], ")"}]}], "-", RowBox[{"4", " ", SuperscriptBox["m", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["r", "2"]}], ")"}]}]}]]}], ")"}]}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"4", " ", SuperscriptBox["m", "2"]}]}], ")"}], " ", "r"}]]}], "}"}], ",", RowBox[{"{", RowBox[{"dd1", "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{"m", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "m"}], "+", RowBox[{"2", " ", SuperscriptBox["m", "2"]}], "+", SqrtBox[ RowBox[{ RowBox[{"4", " ", SuperscriptBox["m", "4"]}], "+", RowBox[{"2", " ", "m", " ", "r"}], "+", SuperscriptBox["r", "2"], "-", RowBox[{"8", " ", SuperscriptBox["m", "3"], " ", RowBox[{"(", RowBox[{"1", "+", "r"}], ")"}]}], "-", RowBox[{"4", " ", SuperscriptBox["m", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["r", "2"]}], ")"}]}]}]]}], ")"}]}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"4", " ", SuperscriptBox["m", "2"]}]}], ")"}], " ", "r"}]]}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.5828816184803915`*^9, 3.5828821484913225`*^9, 3.5828821996282125`*^9, { 3.5828824735646935`*^9, 3.5828825031423454`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{ RowBox[{"%68", "/.", RowBox[{"t22", "->", FractionBox[ RowBox[{"1", "+", RowBox[{"2", " ", "m"}], "-", SqrtBox[ RowBox[{"1", "-", RowBox[{"4", " ", SuperscriptBox["m", "2"]}]}]]}], RowBox[{"2", "+", RowBox[{"4", " ", "m"}]}]]}]}], "/.", RowBox[{"dd1", "\[Rule]", FractionBox[ RowBox[{"m", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "m"}], "-", RowBox[{"2", " ", SuperscriptBox["m", "2"]}], "+", SqrtBox[ RowBox[{ RowBox[{"4", " ", SuperscriptBox["m", "4"]}], "+", RowBox[{"2", " ", "m", " ", "r"}], "+", SuperscriptBox["r", "2"], "-", RowBox[{"8", " ", SuperscriptBox["m", "3"], " ", RowBox[{"(", RowBox[{"1", "+", "r"}], ")"}]}], "-", RowBox[{"4", " ", SuperscriptBox["m", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["r", "2"]}], ")"}]}]}]]}], ")"}]}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"4", " ", SuperscriptBox["m", "2"]}]}], ")"}], " ", "r"}]]}]}], "]"}]], "Input", CellChangeTimes->{{3.5828815837547307`*^9, 3.582881594050749*^9}, { 3.58288162868281*^9, 3.5828816460300403`*^9}, {3.5828822310934677`*^9, 3.582882241358286*^9}, {3.5828825205675764`*^9, 3.582882530052393*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output", CellChangeTimes->{ 3.5828816465136414`*^9, 3.5828822416546865`*^9, {3.582882521097977*^9, 3.5828825313939953`*^9}}] }, Open ]], Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{"-", "1"}], "+", "t22", "+", RowBox[{"2", " ", "m", " ", "t22"}]}], RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "m"}]}]]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"p22", ",", "t22", ",", "dd1"}], "}"}], "//.", RowBox[{"p22", "\[Rule]", RowBox[{"1", "-", FractionBox[ RowBox[{ RowBox[{"-", "1"}], "+", "t22", "+", RowBox[{"2", " ", "m", " ", "t22"}]}], RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "m"}]}]]}]}]}], "//.", RowBox[{"t22", "->", FractionBox[ RowBox[{"1", "+", RowBox[{"2", " ", "m"}], "-", SqrtBox[ RowBox[{"1", "-", RowBox[{"4", " ", SuperscriptBox["m", "2"]}]}]]}], RowBox[{"2", "+", RowBox[{"4", " ", "m"}]}]]}]}], "//.", RowBox[{"dd1", "\[Rule]", FractionBox[ RowBox[{"m", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "m"}], "-", RowBox[{"2", " ", SuperscriptBox["m", "2"]}], "+", SqrtBox[ RowBox[{ RowBox[{"4", " ", SuperscriptBox["m", "4"]}], "+", RowBox[{"2", " ", "m", " ", "r"}], "+", SuperscriptBox["r", "2"], "-", RowBox[{"8", " ", SuperscriptBox["m", "3"], " ", RowBox[{"(", RowBox[{"1", "+", "r"}], ")"}]}], "-", RowBox[{"4", " ", SuperscriptBox["m", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["r", "2"]}], ")"}]}]}]]}], ")"}]}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"4", " ", SuperscriptBox["m", "2"]}]}], ")"}], " ", "r"}]]}]}], "/.", RowBox[{"r", "\[Rule]", "0.5"}]}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "0.5"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.5828822450242925`*^9, 3.5828823250992327`*^9}, { 3.5828823606672955`*^9, 3.5828823676249075`*^9}, {3.5828825354344025`*^9, 3.582882542501215*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVjnk4lQkbxt/sS+Goxk7qtKg0RsakwcNoIUOL5gtzsmUbUxgpZSuSmrT4 GsqosVUiWcaxJMvzdogWcew657wvSSc5VNZzSHy+P+7rd/9xX7/rNvQJOeAn RRBE0mL+zz1+Q23kh53Wi7V3kXUydtqhfVpMILKqE/O1mbg1M+02W8sMiH2V A7t1zNDxVU/pP1o7gHC1rWzU3YGHfMW117UOAnG7s0ZocBCpby/YXdHyBYKs 2Gq1zhezVu5NvKQVvrivD1PaGo5xCuz1f2olAHHt+SMlpwR0dcsu/jyWAjZ5 uZetfVNReSGOtVs/E0iZ1Ih3qlm4dv/Hofqku2ATIHP6Teg9jGixgLTJfLC5 seLo6aAC1Chj0EuWFIOJgpOVKLkEKwbsmlstS8FL8zu50jo2coL+0XEbKYN+ Kf1Yw8kKnFpnpVp4rBJWdUj+aJN/jFIzBWo6ax9DCXFNd+ZkLZoveFW4FNVA fxpjONCHxOYEs5bGjQh5MsGv/l7GQYNk0Uz+RxJ6UzJUzUbqUSTuo7tMOGAT uEVntuop3h2ufqFytR687htYscgmVNG7/2lwsAHOmrZ8reI+x8u/lftnMRth 1RPbfBvuS5y2KRgMPNMEq6IlReaMFgw3bSj7pv4ZbEtUTzA05GJfUUNSm+EL yIuV8znh0YZfgjpvGUW+hAZN0cEnd9txk638vH91M0Q/WfY5+W0H7s4xDPhX owW4ro61J5y7MELPc/UbViuUvGdFq7G7cfPIL8o9TlzoLHZrVFzTi8tVPys0 zHKBqWb5w9dnr1EGbxWvud0GzNqAqYggPv5uVv1a0bEdXANP5vQ7Uljg4JNV N90Og9HzopCdfTgl0lYT3uiApS059gaZ/Vjusls6ZUcn+Pe6h0U9fYNn7M9n lgk7oaXg8fPAjwNoSO3pvXO+C0pooa6n0SBu/yEhRcu0G1SiLFI3Z7xDln7r zJKObvjpJxcfHd33OPXiykBoXA9o5xTVHBEOYZqMR/gBZi+k7xliWzYM43K6 PEeqoRf0d3m5sdtGUDYm7qDFH69B+DIigO3+CYl8j+IBdR54dTVQ6spj2DjS E5y5kgcDfydVhjPG8LLJ/i0sTR5IBp15PI0x1HhkV9ilxwOOb4ZKGXMMtzRt KHi2gQfXZ0br0q3HkPVuPLfImgfuG4k6q+NjWGV4ISMyiAe6oh8XFvrGMCy9 +Io6hwcfvcvb6p+NY+Vc+gVOAw/8/w1Xt+WO45xHYlxYEw+id7R/rO8Zxwtr Dp9ob+aBT6vlTZ5wHG8/VDp8vYcH+/Rijv8sO4FP6/w2q4/yoPvrIZG93QRq vtV5ydDkwwtLkYugfgJrN11UYATz4SpzU8Xh15No3qnx6nooH7qrNiQK30xi SfT9/644zodY2d/NTg5PYs6rRm3NU3yw6bu6/8GXSbwYImtsEM8HzW3qt/z1 p/AAO36/8Q0+5A46qW7zm8L322PSHer4UPptfP0FyRR6vV3q+ZLkQ/DVwFWE 1DTykm6vcarnQ55uRslZ5WlsFlQ/3PeMD/OXI2+l609jaexs3aF2Pkj+XTVp unMaozkRb/2EfFB/fIFLpEwjY0/Y5ngVAbTzzMZDtokx64mq8naGAEJ/1/5l 1E6MJhaFH8aWC2Bebdz35F4xOm8YyvXWEgAr6rigwF+Ml+Q8DG2ZAuDNnjua mypGmXqHb4jtAhg05D0bmRLj9I+GRKyfAD76BxZ6khI8z66jvw8UAHFx77uY VxJcsYlVOxokgBz75poHPAlu1b4ZeThUAEeZ96tMpiQYKlk6ZRklAJWna2XH Ns7ghzLJhy/JAgh7MlTO+nsGBcbcjtM1iz5G9hUyfhYzRYwYaRRA6a5VElHy LPrku6y78kQAwxMC9vrMWfzA7DmV1bj4d2Aig1s9i9M6tF4TVwCJJU7doqlZ ZCiNBKx4JwAzE1ay37EvuEsoP1e0jILmvKtWvwXNoeJdh3vb1Cj4pk5L/DZy Dpu9k5w56hSsO/eZczxpDl0olewuDQoeScrtOx7OoVfnyl1zhhQwa4gtNz/P YRRnTbKDOQUnGd8dOBz9FUsygDnoQYHvgJQVK3ceJyIn5L29KcgoGGZGVc2j +aH7IuoIBdzc1Jmy5nmsVlVl9wRSkMJuDIqcmMfGs7TtyzAK5mdP3Hf5aQH5 PjGepYkU6H4mXKPfLaDc+ur0s0UUaI0XzPRnE6SDdEjs1xIKvu9+XuhfSJCX +1b7RLIp6C/8rmv+EUEy0i4ZhT+ioL0iYlcAlyB1Fd0fBXAo0J6Lc9MnlpCm IkmXczcFpLhN95cjS8jDxeYMvXkKRo8pz/+1XYqscJeocAkaRENHtjH2SJEq co+XnpOmYeXWvDuFblIkybJS+KBAg417fuXO01LkaqUdC2XLadhlljc+XyVF Cn33j/5sREOItS7vq600aa22XLSwiYaoKLvsuy7S5M3qzqHSLTTMnn5hH+Yn Tdqruw5qmtEQZlwbm/CnNPkAPfiD1jRYOxlppXZIk8HaR59HH6Th2lJxwnSI DNn41Ljp20M0jPLMrf+TIEMa/PGpYcBt0Veud+p9mgzJbQoj7T0X/8V6Z2Zz ZEjTE6crVwTR4KD3q8FlTVlS3Jp47+EZGroU5zTlWmXJfVH2dzzjaajY+cpi SChL5q1TylY/T4N8S56y8oIs6R5z5fapSzSAxQ9BGiZyZM3GlL92pNIwvP6L 67FUOfLs+ew4wQMaxN2/eloGy5PLIuT3eBfS4HHv9V7+RXkyPfCYurCYht/u GW9uvCNPsh0t7nwqo2F1fFfgeZ48KWS0NUghDWX+9wI7HRVIxwxCwaiDBqVW r7XGoEj2XvPnFnbR4Hzj8WpnT0XSN645zbSXhpqrRk49ZxTJWN80I0uKBl+W 7dpNHEWyZKOJ4973NFx66MrW+VmJHAzt970+TsPIgYhPwRNK5P8Agu6SZg== "]], LineBox[CompressedData[" 1:eJwVk3k41XkbxomGrJWlDsmrMKOIC3nRcjdIhQppjAqFJlkqWw0xkjWRZnJF WUuFpJO9UMSxJuuxnO33zTq2yGRJXrxn/niuz3X/e9+fR8Xlsu35NQICAt78 +5cW50c7qscO7i8zDW35l8KmClcITRUBjbqBcnzqZSSnFtH08fqQU7fyZn1Y fuwtTKOZwd1kMfeqvBns3Rbe/kWzgyPPON9cxg487WjTeJobJtO44ssSbsiU Ox4VS/PH+bCQkFsC/ggTLfrxFi0Ci0XjB4RGw/GrwyP6l5lEqAc96E2PSYT4 atiZQ1szsFZCWsLcOB1qNlOjtbefIFs4KK+gMQvXWo2QPJuLsG3DrLjaHGwq 3kAJCtJhH995Y/BkPkoHTFva9hZC/bm/tpZiAWo80hQdJovh4aM3l361CHPq +6TzvcvANM8dyXlUgjWLeesV1cpx4sCfczFfy2Cwerb0xMtKjPk12szLl6Ml Qr+1fkcVWEH0hRiNSijfnVjMnaqGq/6Y3YjLO0wsEKpbpwbX4qsMTxlW48l4 RbPUnVocn8iKS7F9Dyml7OmhIQb0DtNu6p2vQdzFkt8yVeuxzFz/w2HXWswf yBtyD21AVBVtdtSfAX9dRrF8bSPSc/O1i33rQF4ybneoNCPPkfHaIKIeSx7M FI2gDyjPzBX5I6EBO38WWfmtogV7rd+PzkY34tBjlQsFm1oxqjIs+SyxCdeU nLf1n2lD/wUL6a0JzdCcPCnee7QdUQPbXWMjPkBG+oso43s7/AyH66bvtEC4 KoW+PbUDtk33Xs1Hf4SnfgVrnWUn1DxiW17cb0XeEZfMd/Od6ApnjT551Ia5 CYX1I/e7MB6dfEf8WDtKThwSSjRjoulUizirpx2hhyMzikeY8HMfkX1t3wEV nkVfVmQ3XLTDB8/1dsD4vxGJNN0ekIAvjELXTpzZ2rYo2NWDui9/mqaNdmKu OX7gSlgvxh3pXkevdyFZ2MnfVrUP+nmtdZoiTMhQJY/XMPqwR8lG/NY9JtaG hNkZ+bAgOsfypOl0QyDXiT6wkY0yq+Vw+YZu+D6kx2+sYUNzXEdWx6cHb3fG iG64xMG2acd56//0YoOFr+ZNKS56/tktx2vpBVervSuwkgu9tZecVxP78Cod qkNOPJSuN85yPMuCI91gg9IKD7YN1QWf9rFReuqbVLsAhZu1JnL9P7Mh9UO5 RLgQhcuV38cHD7JRfWaf6JgohcThccGZo2xsEzNbLZbhZ02On4YTGyNuNp+t NChYvZm13xzKxiUFr6ZgOwp/ickqK9SyUV+n1aBtT8EzWtXbv4ENZZ9pxoAD BYNO65WOD2y0N/hWH3amMGZqJp7EZEM3ILBM1oPC201G1UdG2Fhoi3r6IpRC lVhMkoMYBzciH4Vxn1Pgpe6V8DrJgeQ1EYtz+RRoig1LUw4cPHT33jhCp1B0 dfPXACcOiiyNsqaLKcRrfP7p7gUORjZ0MNZUUdh/2ktyIZADy3QBUY0uCs96 111+mMGBfJnznYAlCtLrfLWfTnGQlVP3y/dlCkJ2Jg/qvnKg83CncqgAwTkR lvLkNw6OhCzQY9YS6KpcHLAU4iLYNKEjRZrgY1zzt183czHQ9k62ZjuBZLlJ 7HtTLvJHlVKkrAiGGvcHVWRyEZMWeZY6Rvj9qDHvZXPhZvtZ7aUNwWkpWXrg Sy62VFa+OmpP8OpNMH8TLmITTtfHuRDc8xxeEWdx4W7wYEYskOCqXMh1Lzke zCYEytjXCapijXWOKfGgnOke/PwPgivrXf8xU+OhZ52hiEUEgUWSoK//bh4O 8nq23EogaHDNDpv5hYdtEbKHRZ4R/h8adZpm8LBiGCzZm0MwvuuO9d85PLA+ D3Y+yyNYSlo4UljIw137IkfzAgJxz328+noeVnfY+kVWEsxt0ZvcNcMDm7wx PFlFoLXFiNj8j+9hosqKag3BaFhpVaEIhUsrX2IYDQTNwWMLUKbA7UhIF+oi kJKe+6RuS+F11IJrVzdB8HCqZQ/fk8Q9zhpZfQSmAzuylrwpWD7dVWxCEVxM rrCmblNQP3U/cGM/gdLYLvI2hcIa6ZX9A4MEGczdjx1eUCj//WNT2BiB2ZD6 LZN2Cve1difYTBI8DdCtHRmk4DOQaqcyTTB1vPX26je+10nCCjMzBAKRISLT /F1/svIi1bMEvV/BttQgEBZkPrm7QJCd1p8uY07wqWSPx9nvBDeuV3D13Qkq PbK0dZYJFNM7XV8kEiQpi8+trhIYyrB+1OTz/4d2dws= "]], LineBox[CompressedData[" 1:eJwVxX0803kcAHBmHjaHIjSLTiiV4iSuVJ+7tiiul8dex6uhcyaRh6LrTudQ RoXqJTl5muTqlqcji3J8v20z0prntv164XL0EstTHhrSdX+8X2/L0FhfNklN Te3oZ//vwR7rxm8PHXAsiBz7fAuZYRY3RLOG/qjwxkILa7SLm1/0kOYE0f7u DDsrJ+T5QlZXTGMCv25333U7Jvo+bLE5h+YPiX6CjkTwRwP2GYxsWhiULyln T7PDUKmxV/pVWgJUr33ncbk2AaXqPNxyhZYGN1mmFRc8OCgg8E7N9Ewu0E+u HnyQ9TvS/ZTKcrfgwuSx5pRf48uQjc/kmDCzHDj/Zr8IL+Gh89I9kD/Hg6AC XaGLXi0yrV87qK5eA4KVSxrlgXz0aJgh6dxXBxV9boyp0CdIEFlMD1TWg9iv LfFtI0Lzm/cbVEU3AFfyF47PECCSqmIN3eYJGGeGpOZzW5HzpxOP/Kr/BqMb va7a/HYkSXOSirchmGB9RwRNPEcbb0yoeJMY+PbhZXPcTjSxODTY7yCAg8Wj OfR73ah8vKlD/5oQSqIMbrkKe5G++f2pkRERCDddpup96EdZp/jhpdZicOgA jfTNcrTwTcVIRHIbcNeZZ5J5BEpwFNWbCNvh7lwKpNsMoKFqUWa3ZQewmBdr tqr/g5Yj+wq3Jj6HarnnUkzKa7T9W+3V8CYJHLfc91G6MozcyyxP1ppKwYIx 6hJSP4LOm4dses3qBKZrpVtj5BtkpzymKzvaBY+lcbPeu8eQkcG0jmipCxqG PJ3KPMYRGRXWWBV1Q3dLa92LH5QoyqlJQfHsgVeLD30HeydRxZHQ0paFHrjq eju3tmEazU+YrXmT1wvelosqNeos4vu5a+Qy+2D4CSdosOA9Sj7M4da/6QO2 mfSBhfM8shzwkN/l9EM9787qwswC2uuSlktzfAnjA4tf3aKoEMuiU6Xe+xKe Wi8cMdy7jOY7sofjUmUQZBLFqRr/iPLJwQm+1nLw9iwPnGSrYaNBfhlJJIf7 wqbdI1okfO2LpKQGsRx8KavJl/RJmOrKDDj9TA6UdXtntpiQMCm/R++lVA5J TcdCUmxIeNZn6meeQg6V/fPUOCYJd7XaenlPyYG3HCb0ukTCWVWFy8VmCmg+ V/LIVVMDayal+u85o4CbKoP7B+hkXD+jVKF4BZyyta5usSLjsPAArttPCnD2 21DHtCNjkZf9uN8FBfxB0ZSE7ifjtE0DyTEcBTzT/5IyFkLG5PavK+7eVkBx WYBswz0yJhlNq+sLFDCWevjGjy6aWI0XXDNsSECpXidlR6wWFitlMVxjAmQN a+iHErVwloPPTtZ6AlrNIv4M52hh00ZGVb85AemfzkSJC7XwzjbbinZbAt63 q8hL7VqYNTp7r/oAAU+pELHfRhs/tswoSYwkgGl+NP72qDb+ja0W7BJNwMbK /u0rM9qYyfvFfC6WgAux0l2Rq9q4y+F0UfQ5AvIYmxMiTHXwGPgUnEghYMN1 x6ypIzrYJJie55ZHQDFL4uxSq4PPFtRkGwoIeJ0jara7QsENKwUZAhEBOQFK GZFHwSvB6aln2wi4+XbH+rxyCs6wCjrXIyHAa8/F406YgosqqUE5MgKMe+y3 GX6g4NYWtp3hOwJ0c0KOsyOpeKRWbMDTfAVK3/NTMe+p+D952XXy "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0, 0.5}, {-3.368863936261155, 0.4999494923725254}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{3.5828823260196342`*^9, 3.5828823687325096`*^9, 3.582882543296816*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"p22", ",", "t22", ",", "dd1"}], "}"}], "//.", RowBox[{"p22", "\[Rule]", RowBox[{"1", "-", FractionBox[ RowBox[{ RowBox[{"-", "1"}], "+", "t22", "+", RowBox[{"2", " ", "m", " ", "t22"}]}], RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "m"}]}]]}]}]}], "//.", RowBox[{"t22", "->", FractionBox[ RowBox[{"1", "+", RowBox[{"2", " ", "m"}], "-", SqrtBox[ RowBox[{"1", "-", RowBox[{"4", " ", SuperscriptBox["m", "2"]}]}]]}], RowBox[{"2", "+", RowBox[{"4", " ", "m"}]}]]}]}], "//.", RowBox[{"dd1", "\[Rule]", FractionBox[ RowBox[{"m", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "m"}], "-", RowBox[{"2", " ", SuperscriptBox["m", "2"]}], "+", SqrtBox[ RowBox[{ RowBox[{"4", " ", SuperscriptBox["m", "4"]}], "+", RowBox[{"2", " ", "m", " ", "r"}], "+", SuperscriptBox["r", "2"], "-", RowBox[{"8", " ", SuperscriptBox["m", "3"], " ", RowBox[{"(", RowBox[{"1", "+", "r"}], ")"}]}], "-", RowBox[{"4", " ", SuperscriptBox["m", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["r", "2"]}], ")"}]}]}]]}], ")"}]}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"4", " ", SuperscriptBox["m", "2"]}]}], ")"}], " ", "r"}]]}]}], "/.", RowBox[{"r", "\[Rule]", "0.5"}]}], "/.", RowBox[{"m", "\[Rule]", "0.01"}]}]], "Input", CellChangeTimes->{{3.5828823457536693`*^9, 3.5828823483744736`*^9}, 3.5828823930529523`*^9, 3.5828825730304685`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "0.010102030610203538`"}], ",", "0.009901970590196572`", ",", RowBox[{"-", "0.010603927963857555`"}]}], "}"}]], "Output", CellChangeTimes->{3.5828823488892746`*^9, 3.582882393427353*^9, 3.5828825736388693`*^9}] }, Open ]], Cell["Unzul\[ADoubleDot]ssig!", "Text", CellChangeTimes->{{3.582882663307827*^9, 3.582882686083867*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{"%68", "/.", RowBox[{"t22", "\[Rule]", FractionBox["1", "2"]}]}], "]"}]], "Input", CellChangeTimes->{ 3.582882137337303*^9, 3.582882470226288*^9, {3.582882690483075*^9, 3.5828826948354826`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ FractionBox["1", "8"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{"4", " ", "dd1"}]}], ")"}], "2"], " ", "r"}], ",", "0", ",", "0", ",", RowBox[{ FractionBox["1", "8"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{"4", " ", "dd1"}]}], ")"}], "2"], " ", "r"}]}], "}"}]], "Output", CellChangeTimes->{3.5828821385229053`*^9, 3.5828821763997717`*^9, 3.5828824710062895`*^9, 3.582882501925544*^9, 3.582882696177085*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{"%", "\[Equal]", "0"}], ",", "dd1"}], "]"}], ",", " ", RowBox[{"Assumptions", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"m", "\[GreaterEqual]", "0"}], ",", RowBox[{"r", "\[GreaterEqual]", "0"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.582881603223565*^9, 3.582881618168391*^9}, 3.5828821474617205`*^9, {3.582882181532181*^9, 3.582882198754611*^9}, { 3.582882485919915*^9, 3.5828824962315335`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"dd1", "\[Rule]", FractionBox["1", "4"]}], "}"}], ",", RowBox[{"{", RowBox[{"dd1", "\[Rule]", FractionBox["1", "4"]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.5828816184803915`*^9, 3.5828821484913225`*^9, 3.5828821996282125`*^9, { 3.5828824735646935`*^9, 3.5828825031423454`*^9}, 3.5828827011534934`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{ RowBox[{"%68", "/.", RowBox[{"t22", "\[Rule]", RowBox[{"1", "/", "2"}]}]}], "/.", RowBox[{"dd1", "\[Rule]", RowBox[{"1", "/", "4"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.5828815837547307`*^9, 3.582881594050749*^9}, { 3.58288162868281*^9, 3.5828816460300403`*^9}, {3.5828822310934677`*^9, 3.582882241358286*^9}, {3.5828825205675764`*^9, 3.582882530052393*^9}, { 3.582882714335517*^9, 3.582882720201127*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output", CellChangeTimes->{3.582882720887528*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{ RowBox[{"p22", "/.", RowBox[{"p22", "\[Rule]", RowBox[{"1", "-", FractionBox[ RowBox[{ RowBox[{"-", "1"}], "+", "t22", "+", RowBox[{"2", " ", "m", " ", "t22"}]}], RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "m"}]}]]}]}]}], "/.", RowBox[{"t22", "\[Rule]", RowBox[{"1", "/", "2"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.58288273367955*^9, 3.5828827608203983`*^9}}], Cell[BoxData[ FractionBox["1", "2"]], "Output", CellChangeTimes->{{3.5828827467803736`*^9, 3.5828827629732018`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{ RowBox[{"%68", "/.", RowBox[{"t22", "\[Rule]", RowBox[{"1", "/", "2"}]}]}], "/.", RowBox[{"dd1", "\[Rule]", "0"}]}], "]"}]], "Input", CellChangeTimes->{3.5828828971022377`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", "0", ",", FractionBox["r", "8"], ",", "0", ",", "0", ",", FractionBox["r", "8"]}], "}"}]], "Output", CellChangeTimes->{3.5828828976170387`*^9}] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ Editor' s suggestions for approximating D\ \>", "Section", CellChangeTimes->{{3.598967411343151*^9, 3.5989674212969685`*^9}, { 3.6076880796992226`*^9, 3.607688080498268*^9}, {3.6076884122102413`*^9, 3.6076884219858007`*^9}}], Cell["Follow Editor' s suggestion :", "Text", CellChangeTimes->{{3.599205829614359*^9, 3.599205840964375*^9}, { 3.6076880847865133`*^9, 3.6076880854895535`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{"alphaLargeSym", "/.", RowBox[{"{", RowBox[{ RowBox[{"s", "\[Rule]", "0"}], ",", RowBox[{"p12", "\[Rule]", RowBox[{"1", "/", "2"}]}], ",", RowBox[{"p22", "\[Rule]", RowBox[{"1", "/", "2"}]}], ",", RowBox[{"t12", "\[Rule]", RowBox[{"1", "/", "2"}]}], ",", RowBox[{"t22", "\[Rule]", RowBox[{"1", "/", "2"}]}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.5992030074283686`*^9, 3.599203105268506*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", "0", ",", FractionBox[ RowBox[{ RowBox[{"r", " ", "\[Alpha]"}], "+", RowBox[{"16", " ", SuperscriptBox["dd1", "2"], " ", "r", " ", "\[Alpha]"}], "+", RowBox[{"8", " ", "dd2", " ", "m", " ", RowBox[{"(", RowBox[{"2", "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{"8", " ", "dd1", " ", RowBox[{"(", RowBox[{"m", "+", "r"}], ")"}], " ", RowBox[{"(", RowBox[{"2", "+", "\[Alpha]"}], ")"}]}]}], RowBox[{"8", " ", RowBox[{"(", RowBox[{"2", "+", "\[Alpha]"}], ")"}]}]], ",", "0", ",", "0", ",", FractionBox[ RowBox[{ RowBox[{"r", " ", "\[Alpha]"}], "+", RowBox[{"16", " ", SuperscriptBox["dd2", "2"], " ", "r", " ", "\[Alpha]"}], "+", RowBox[{"8", " ", "dd1", " ", "m", " ", RowBox[{"(", RowBox[{"2", "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{"8", " ", "dd2", " ", RowBox[{"(", RowBox[{"m", "+", "r"}], ")"}], " ", RowBox[{"(", RowBox[{"2", "+", "\[Alpha]"}], ")"}]}]}], RowBox[{"8", " ", RowBox[{"(", RowBox[{"2", "+", "\[Alpha]"}], ")"}]}]]}], "}"}]], "Output", CellChangeTimes->{ 3.599203033268405*^9, {3.599203077548467*^9, 3.599203106608508*^9}, 3.599203164148588*^9, 3.599203209110665*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{"%", "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"dd1", ",", "dd2"}], "}"}]}], "]"}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"r", ">", "0"}], ",", RowBox[{"\[Alpha]", ">", "0"}], ",", RowBox[{"m", ">", "0"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.599203118118524*^9, 3.599203206550661*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"dd1", "\[Rule]", FractionBox[ RowBox[{"2", "+", "\[Alpha]", "-", RowBox[{"2", " ", SqrtBox[ RowBox[{"1", "+", "\[Alpha]"}]]}]}], RowBox[{"4", " ", "\[Alpha]"}]]}], ",", RowBox[{"dd2", "\[Rule]", FractionBox[ RowBox[{"2", "+", "\[Alpha]", "-", RowBox[{"2", " ", SqrtBox[ RowBox[{"1", "+", "\[Alpha]"}]]}]}], RowBox[{"4", " ", "\[Alpha]"}]]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"dd1", "\[Rule]", FractionBox[ RowBox[{"2", "+", "\[Alpha]", "+", RowBox[{"2", " ", SqrtBox[ RowBox[{"1", "+", "\[Alpha]"}]]}]}], RowBox[{"4", " ", "\[Alpha]"}]]}], ",", RowBox[{"dd2", "\[Rule]", FractionBox[ RowBox[{"2", "+", "\[Alpha]", "+", RowBox[{"2", " ", SqrtBox[ RowBox[{"1", "+", "\[Alpha]"}]]}]}], RowBox[{"4", " ", "\[Alpha]"}]]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"dd1", "\[Rule]", FractionBox[ RowBox[{ RowBox[{"2", " ", "m", " ", RowBox[{"(", RowBox[{"2", "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{"r", " ", RowBox[{"(", RowBox[{"2", "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{"2", " ", SqrtBox[ RowBox[{ RowBox[{ SuperscriptBox["r", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{ SuperscriptBox["m", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"2", "+", "\[Alpha]"}], ")"}], "2"]}]}]]}]}], RowBox[{"4", " ", "r", " ", "\[Alpha]"}]]}], ",", RowBox[{"dd2", "\[Rule]", FractionBox[ RowBox[{ RowBox[{"2", " ", "m", " ", RowBox[{"(", RowBox[{"2", "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{"r", " ", RowBox[{"(", RowBox[{"2", "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{"2", " ", SqrtBox[ RowBox[{ RowBox[{ SuperscriptBox["r", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{ SuperscriptBox["m", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"2", "+", "\[Alpha]"}], ")"}], "2"]}]}]]}]}], RowBox[{"4", " ", "r", " ", "\[Alpha]"}]]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"dd1", "\[Rule]", FractionBox[ RowBox[{ RowBox[{"2", " ", "m", " ", RowBox[{"(", RowBox[{"2", "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{"r", " ", RowBox[{"(", RowBox[{"2", "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{"2", " ", SqrtBox[ RowBox[{ RowBox[{ SuperscriptBox["r", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{ SuperscriptBox["m", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"2", "+", "\[Alpha]"}], ")"}], "2"]}]}]]}]}], RowBox[{"4", " ", "r", " ", "\[Alpha]"}]]}], ",", RowBox[{"dd2", "\[Rule]", FractionBox[ RowBox[{ RowBox[{"2", " ", "m", " ", RowBox[{"(", RowBox[{"2", "+", "\[Alpha]"}], ")"}]}], "+", RowBox[{"r", " ", RowBox[{"(", RowBox[{"2", "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{"2", " ", SqrtBox[ RowBox[{ RowBox[{ SuperscriptBox["r", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "\[Alpha]"}], ")"}]}], "-", RowBox[{ SuperscriptBox["m", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"2", "+", "\[Alpha]"}], ")"}], "2"]}]}]]}]}], RowBox[{"4", " ", "r", " ", "\[Alpha]"}]]}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.5992031285785384`*^9, 3.5992031462885633`*^9}, { 3.5992031862686195`*^9, 3.5992032112406673`*^9}}] }, Open ]], Cell["\<\ Only the first is admissible! (the last ones are not admissible if \[Alpha] \ is large).\ \>", "Text", CellChangeTimes->{{3.5992058462343826`*^9, 3.5992058942244496`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"2", "+", "\[Alpha]", "-", RowBox[{"2", " ", SqrtBox[ RowBox[{"1", "+", "\[Alpha]"}]]}]}], RowBox[{"4", " ", "\[Alpha]"}]], ",", FractionBox[ RowBox[{"\[Alpha]", "-", RowBox[{"2", SqrtBox[ RowBox[{"\[Alpha]", "-", "1"}]]}]}], RowBox[{"4", RowBox[{"(", RowBox[{"\[Alpha]", "-", "2"}], ")"}]}]], ",", RowBox[{ FractionBox["1", "4"], "-", FractionBox["1", RowBox[{"2", SqrtBox["\[Alpha]"]}]], "+", FractionBox["1", RowBox[{"2", "\[Alpha]"}]], "-", FractionBox["1", RowBox[{"4", SuperscriptBox["\[Alpha]", RowBox[{"3", "/", "2"}]]}]], "+", FractionBox["1", RowBox[{"\[Alpha]", "^", "2"}]]}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "2", ",", "100"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.5992033849109106`*^9, 3.5992034937630644`*^9}, { 3.599203637113265*^9, 3.599203723495387*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVx3k81AkfwHHXOp+2UK7GOXKsI7kV+/1ijGOlQfipUK5HPEXRlNpCkmNz RKytKLbV7qjYLVuuMYQ5VlpXIdcuoSy5cjQyO88fn9fn9dYOjfWJEBMREYkW 9v+foQSufVMmj9M+i6u5KbUgx01d/JEtj/ax7razP9RCn3RfWMqwItaylsvu dNVBN+n93tFNReTTpKxFJ+qg00wg76C1Hatf6a44r9QBhzBkrYVuRyP7sNCT avVQ9/NFUtz0dvxnPzvu6LF6KHXT6wte2oHriTc0Rd/XQ1TGWaq9jArWROu0 WEw3QPja9NZwAxUMOZjl7r3SACFRhwa+c1XBl2Sxp4clGsHfzeF/b9JUMCWy etVGqxEo0uL558VU0WTAql8hoBG0MnKGn/FV0SY87iq9uRFep/+UYDW3EwNz b4xtZjKhe1Xp66AtJJw8Xm8mWcSEzv9mSKUZk/DzHfMtgjImtLrG3OyNJuFm Sdx4Wy0TfpPaw4qfImFHyQH7ymkm5KQ3yP02po5W/sNOs85NQE3vKTft0cRq T++/xBeaYOCfvWu1C5qoveTw0p7fBNaGXRU60loYEtEcXyPGAl6O7cZDPS08 THeN7/kPCxYDpe63hmnha+YbzT+1WOA0f29jYVgLo4+sHut1ZcHfpLH7nt3a 2B8aGOeSzwJtuv+maD0Zp6L1rsepNQOtsVS64A8yel7vaONqNEOyxJSC7hAZ k4ZX/tAgN8NY/ll96mcyXtEujGowaoa7VcW0LNDF/L03ytrtm0Hj3WC5Qqsu 7jsu3ksKbga1IyGu5Be7kC/Cd+WXNMN2p6g8yqg+WuYrWlQptoDz05GCujl9 PMS8Rfmg1AKnjf2+N9vUR+8B3qCxWgt0KTmVktQN0CTTsPyuVgvkzOx8sHzI AB96Ta5Em7SAdOFL9r1XBghbFxOyqS2wMWUtkOg0xA6/kVSNsy0wnv3FybYG Iyxo3Voq2d0C+ktsM43Z3Zi3JvJWN+k5NKbp2i1LmKM+fVvnzNZW6O1iJK19 sMC8nlTDnLRWqGA8fxYlYY3rAZqaEiutEOlcrnzuow0q9nZlnPFtg4dWY1as ITt0HNfoU6tog6on1dSE2X04FFBqSay2wZ0l6kX2oAMaK7RWRNu3g3tTbMXV BcCmAv3jYint4LB4wRUEiB90T2S/YbbDi4nyTtllR/zi7ZAKZbkd6tQVD1z7 7IQWsu88Vb9iQ6l1ZGjQR2c0iGHqzhNsGC0Ui50QdcF67cyb4RlsmCjzepMu Q0WjyTsUkSdsGMu+OHheQEVXVWMbj0E22LE+dpNl3bDA/3bMaVEOZHbTgkni 7niVJ+cmIHOg5Pph9z2r7hg0VzKpR+HAl99XmWwIPFDjhjKDGsEB+reT95RW v0F92paBysscsP85cseU2H50UL5lKF7Ggbbkorc9Ml7I+KnmeGgjB1zsfnHb JvDCwqRTmo9ecUD+9mWfFAkaCnxrKufmOXBBTsejPJmGvjEz56KkueDq/cMp 7080rGF+upamwQWnvTWFhy95Y8gzhYgCKy7YFjilZq97o0WwhbWTBxeCchNO qCX5YJ/0c+VXIVy4yFfWfsn3QdNud6ZDPBcEDgUSCnRf5Jcbm99O40I1+fFE 1SdfFB1UkOwv5sKRRErOGfpBzMrr7zBlcMHm9HnLoo2DSPcpmgto4EKCY4as S7IfZgUpJOa/4MKDZCnGTr4fJjbpd+sMc0ExzIi6P9kf+yrPdX87y4UzNazK ig1/HP1wydZ9gwt2IyaOOfQALB5cKTwqywNjBvT8+SkA5b7THbFV5YHaZIvp PjqBApmu9Id6PMj3nHQMPUdgh15R27TQco9l/DLPEzh0UnmDrM+DjSTahdeX CHxy5aDvTaGHVUfY8ekEfs37m3HVgAd3968ffVBM4GhEqSDoKx7sqtldoF5P oOfpeXcpUx6U7vStoDQSSGaQyh2FVrpMr41pIjA90HLpgtCSBxpHa58TuDxj lDwv9PS0h7F/B4HDoeEuA7t5wCBFtuUME7grwOHSL3t4oJOa2V8zSmCaWWfE uNC33j2YGfqLQO20Y1R1cx5c+31J3miSwFyfwsU8oU/QUoLZcwRedwtcPWvB g8nf752amydQh7vr/q9CB6tzruxYIpCiKUKbEdrr/ZeVYasEPloYvxZsyYN2 mjkza51ABsxrFQsNT/26fuUT+KPktkddQj9TT5zo/0xg7COKpZwVD8yu3F4V CAhMLs19TBH6X97CIQc= "]]}, {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVy3s41Ikex3HZKaLtvpVbMYgOMpV7pu8XGZelxgi/iuqkKE4p1axbueXW 4xZbKGtRK8luHaVcBjODuW1CnOximEroSO4JM82Z88fneT+vPz56J8MYp5WV lJTCFPt//06SRrwv0cBRxvR8Vnwt6KZmimuWNDC2o0T4rrYWelJ+u2z5WQut Vfv0enrr4PX8pn0B32tjcwbznzNjdfAqOFUlyVQb/WI63s1K66DFJfROd4g2 bh7oayvfWg9VKrvYl0a0Uf7ioazvRD1kprDUqyQ6+DGm37BCUg+0lK7SnV3b cLU/tSC1nQV/f7L7Wju1DU3WhvnGiVlgtaOzjKyqi37tbiGnx1ggyrSR/r5d F3fSbZy+rmiA6cMqD1oCdbHQN9LPmdoAjpP3pVNiXUyL2mFXXNYA77QlDzxe 62FI9/iJw+caobI9l5HzVg+pLp7HaZGNwExwkfVM6mH0Rqs9hkmNoDb6ByNw DRm5b7w6agobYffTq7JIDzJKKjpkdn82QoKblvcDHhl1w9xXNRs2gR7T99uy en3sT7s8cbOzCegNRaq5f+rjwWvNaS/7myCONLLeoF8fvYOP6CyONIEk5ycj mkwfV5V/yt/5rQmKH+fTb4ABTjkVvpFvZMPWj72l61sMsE9IHnwEbND0P+6i 32aI4va3Hxqz2bDR8Uz2/kEj9MjZUD6hzwGnFwO5dZ+N0HmZxa4vRhwIN/XJ o3wzQtcXLPKCCQc6NzkWaesYY8EOQ5/ZPRzIHNOqnD1ijPuz4rPYThxQvdXO v//GGNW4FXPPTnJAOmIlJ73agWb7KNspRRx4n7H8fCvLBNeZnao8vYoLEXlr O5PbTNDzcLzf1BourC7RsnAdMEF7+pa1URu4YPNs16JIboIedtl1CZpcSO8N SO5wNEXSZOeZi8ZcsDB6XtQnMEUu9dUTvhMXkthB7VPdZshgP0kNj+CC0Qyf snXcHE9VhebF9nIhdb7t8E2ZOdpqSm8EiLkwJzvroKxCwcUyVaathAu+yhdC rmym4OZPV+3HPnBBQz2GddSGgtVrsd1qigtF2j+fMI6ioJuoRu+CSjOUQ0s5 R0bBZanhRPTuZmhIMrCdJe3GsEt7/YITm6G7syL268Qe9FfeeiNdrQXKKppr zpCsMOdZGcXgRgsEOZVujpizxlCbyiH1mRb43VJiye63xdOu/hT1g63w+NkT 2uXxvcgNCfd5Wd4Kv87QrvJ7qWhsektyd7YV3JrCypKnAMWfCqavAA+o09Eu IEc8L82PKkjgQdtQ6Su1WQcsCKrP8GLxoE5nw8F0mSNOhzLSnb7woMgq6GTA nBPmPGjKiDXmw+At5bChZc6YSLr42PYoH4ZKDvSlrKShvb+YVpXGB0nG1d4o OQ0X7jCzAqv4YMuee62v5op6kYduD/fxIe01/Zj2d24oPRhcd1FJAL/cPOq2 a94Ni+/xEk6SBbA677GZVO6OJB1fvouzAJgxw/c3zf+IXay5ScopAdiXB/0w ouyJL9dM8dSuC6A17vaHrpUHsMD9/QSvRADOtg9d18oP4J1sUT2wBLCuMIER T6IjnUWW/9EjgGh1sntpHB3Tn9iC+aQAXLwKLnot0nFQPSTDXkUIjnbVt45e 88IJzX81UbcJwSbXMTFjwQvv2C90sy2EEJB1+ZxmLAMFJUX/MP1RCFeXNuu1 LzFQUz35PP24EOTUXNJ6pjdW/3bvu4BwITzRfzr0eNEbqcGu99yTheAfuT/z CvMQhvSaC6j5QrAOj7K4LT2Ev47Nta54JITLDqlqznE+WFAe7vUflhAq41Qq tJZ8cJfyyJHRl0LYEGhC84zzxdHcb0UCsRCuVLMflUl9UVKq/E59XAi2A2YO mUw/DLVnbMtZEoJpBXR1LPrhPsbZtn41EWgOc3fuZRJ4LMby+xdbRJDjMexw MoLA0jzB8lmF1Z+u9EmLIrCYWv+FoiECaSw9uucagcp3WzkVCos1BviXUggc z78r/UVTBMWeCycq8wm0kFWtSNQWgWG1ea5OPYG6EQ9/ctEVQZGWd9n+BgJd BU6xiQpvSmDWhjYRuIV2IbZJ4RUHGwZrmwkckCedtdYTweiou6nvSwK7ee1D 28kiqNAOas0UE/hm0TKSZCACcmLaX9WDiv+FSjVU+O7HyrH+two/bfs5WuH0 5zPrTIYJzKvblDut8Dl6/DH+ZwKJE+PWEkMRDD+/f/HzJIGxPUOZWttFcExH cP2HGQK9HXIHfBU+8N/VjwLnCVw+r3mmTWEefXfjjQUC22nzJapGIoAXPp3/ XiJQ62Z2t5PCNTqRQ3/JCOT4jsqvKUy5XjgvlxNovkXJoE7h/wFT1FSj "]]}, {Hue[0.1421359549995791, 0.6, 0.6], LineBox[CompressedData[" 1:eJwV1nk41O33B3ChrKExtjH2UkKpyJbnHJJQZIuRb9qQnhYqTWmztUhR8SRt koosJSkRlfnMPi1aZd+XoZKQXX6f3x/3dV+v/+7lfc51DLZH+IRKSkhIvCPX /+9h920/jypLIk9+ge7J5x/guNScConFkmhU5GS5IeMDNNc19aXslMTCesX6 Iu8PkH0m2b2gXRLNPM5x/7leDSatP+Q6a6Xww+imlHTuO0gq5dgeUJdGAh30 Pwa9gx8Xbu6S8JPGbaI57xaPvIXHtuuF9GppdDd6LMdc+RYoKvPH8xVno982 zR8KjW8gqntyka37bDRf7GUud/oN2KQVJG7kzsa21dcO32oVwfVdCWUdknPw 5LRp4fdUEUxBkHg/zsHmFXJeyq4iqPoh75pSMQfLeIfqAl8IYa3LvzL8YhlM WndTordCAA/oTtYbf8ngn2r6MyJOAPJDWjs7zGQx0pQtm+kmgPe3hbyZXFmU PkEJkmnhgwXzzkhylyzuMVZ8ta+QD6nro43pRnJo8U/G7qRjfPAfX3TGJlMO 6w0jVtzQ5UNZtUQpr0EO24cKL0QO8oCWU9vlpyWPX5V0Ml7wedDsk7hm/3/y mN3pNucQkwehhT3S+UkKOLI+cL5eBxd48a8tbQQKuInmNWcZiwuLAq+G8GYr Iu9OhExAFhd+zF7LaY9VRG/xgtSybVzwbNQdjnyliI3Rr5+3rebC4ycjRjOT ikhtV1k8YcyFqC05CdqH5+LIQTen2l8cqLE6WZL3dC5SF5qEpnzlgI2if4f1 4FwMU9nDo1ZyYKps9mq/vUoo6pm6wjzPgQRKqGTyDmVMszfLaljOgeN2Fx+7 5ijjG9r58UI6B5jby4Ole5UxOngr2spwwLLuTJODtQomOgupu5rZYPHzxtMb DBVMb5E9K/GGDeazis+PR6tgxF5+nl0ZG4xNGmyfVaqg5wGFrXH/scHQYUBF tVkFDaJOFiQksEHPe7Y4ckYF6/KQQj3IBs3opelmTvPw0og9560vGxSECYN3 +fNwk2dcoLE2G2SbMoSzeuehi0YZoa/EBunfD7O2yFPQweBOfuIsNvzVrPXU 9qAgI1MrPK2XgAmznwui91HwV+Yi7tJmAkZRcrrmIgUnu+wfmn0mYCDcrCD1 EwVNrW7tXvWKgB/HHeMHhii4ubgi3+0pAb2X/AM91VTRVtXTuTCfgPayWBl5 hiqWhZaH7Mwg4Kvs1x1xTaoYWz+44uBhAj7R++xa/qqi7uKOKHEEAe8tZuY5 6FPR+NjvvqxwAgQMk6qx7VRknRXwP28igLPnn6v+p6j47tHrGHc/Alixvvue 3qfiFqehudMeBLx4cIIeKaaiWPHwsJITAaWVqUPv5NQw57a+6u5VBJR8yBWZ mqqhzqqitKmVBBSOfTzSs1cNpYpyvpSbEZDpavw1eEgNywxsrzFpBFz/n31h JVUdi65OFvmrE3A10iuBtlIdKRpbYrZRCLiUcXRZzRF1PKnGKhmUJyC58KKs 5XV1DE7ndzJlCEiqutdyuUIdr7W1hBpIE5Agfp/s8VcdLyz0Wtc1zYLYqY6Q Aj0NXFcZXjk1wYLjKuP2co4aWKOUnL5yjAVMG6M+ToIGyi+J7587xIID621Y hvc18AbdtzhvgAURWz0yYnka2MWrDAvpZ0F44mGXVXKaOMixOrKijwUhY2Ll kEWaqPrKhBYmZsGW8E1159dqYgynkVLczYJNtW+yS8I08YBN6VvVLhb4uzrs aTitiX3280qTO1jgU/bISuq+Jlr+0HHUbWeBxyL9mcUcTcx5yO7gtLLAWVYq 9aikFla6bgv0aWYBHokKyjbQwlzD1yY2TSywF3fNF6EWrovxUFzeyIKVjID+ 31u00ML+51loYMFygeC5VowWqiRkGG+tZ8ESG7s4x0wttEpadyitjgUmDwrc d73UwmrZfqm6WhbM19ShXm7UwhdHHUItSOsnpjSVTWohU6NsybVvLKCPzeS0 0mi4/njiGIW0Rvj+SFk7GipLHth8q4YFlNp2W4tAGkqWvZywJq3k6ifFOELD z9MLI9u/skC+jPs25ioNhaXvt9wkPXuRdXpuKQ1jVfT3hZKWyHiwpforDb98 Ezo6kJ6SoZmMDtPwo39eghHpscPnB3Wp2lhcWtGsQXqoZ6rCZYU2UtuUJGik +wP2nd7no42TDU/STUj38Vs80/drI+Vmga8L6S5rb81Xl7RRxa2jN4J0ay7R 1lWkjSYDdKUc0o0algVzq7XxSVYPU0z629n7UVb92rj01+XGleR9Po2q/7N5 Lh3tG3TGL5F+vzNR5rQZHduoVokjpIXfxj8UrqOjTKbO2p3k+3DW7r7+5V86 EpxHw+2kq5437pg6R8fYgy7eu8j3rVjoaT4/j44mX17pTpB+IrOs6mAPHXdc +k6zI//r0eHsczfm6GDaufAvYtJ5Paq+7AU6mPHemXqH/N8s/kgXJUQHtYts 15mTeUg5W6nwpFUH4yfkax+R+UkaNf9aN6ODb/pMp++2seD0ztuZs/R0sS9H VeUOmbfja+OXeW/WxREvM9cnnSz4V8Y1YKBOFxubD9qY9bIg7HC5vua4Lvpt XDoZROZ9W8/iPtDUwz3xU/6p31nA4M89cdFfDx9+EiCFrA+Xs5+zl3zWw8hJ WuMmsp7qftiNlf/Ww7hnfuFPh8l8mnzMMZTVx218pp3qCAtEKTZTD4318YbE NutWsh4HA2VyOTv0MY7lvfPpXxY4Ddyb+t2kj3byVUZLFMh+R2/NXf/JAIu6 Fcq4xmR/qU7zSW0zwEt3fmVdXUQAM37t9LcBA6zxS521ZzEB8uJHPjuUDbHm w5bv2ksIWF5yYjp6vSFWPV9RkW5FQLybtm8uzxAVU0IVfjgTYMD0/zurwgjv pn1LqQohgOoUfsm5ZSF6KjpvfvyHgI7k2fu4laaotNDM6k40GxYO8S10fy7F 8szLcsJpNrw8Pd92WHo5PiimV4cc5MCXj/kxY79W4LbYKzubajiQk88uC5de iV6n1A5U2HAhbHW2xpE/1pj9KzTgy3kuPLRqtapqtMXiYbZLXA0Xip4+don6 aY8bYnRSm/V5cHvI5QS/3gEDjdX3c7bywO11RM6Z34Dx90q/c7N44DB4bC3M IL6b2jDcW8+Dd53Z7+WHHbFgq/5/u+fy4YWO6oYL005of7N0VTryIXNl2PbN f1ZjdopOhMdePrRckYzonLUG91kW7+Zf50PnHc+Gs3IueLZxa1gphw+tySfq j8644CrDYKO7vXywrfrzyUjeFfP6Tw2eVBbAuU9ewXQpNxR9uWs4YSGAW5eD 3JaNuuFNfk3Jci8BKF0tMp+accfBpSFLd0cKgHm8+5766DoMfC1epZwsgFUP wtR6JD1wJu32lfx8AXBj07s+y3nivplO+RCeANbY5rmqzHii1PLcZ0YtAph3 M94nTtoL7QSaAfVjAjimYOieHeuFJXeThpuVyXnM+9p+7wkvHD505nXqAiE4 2T27EnTSGxn1Nd3Wq4TkvOeUkDzujWta7BSSvYSw+WLUXlqMDy6zyonhhwrh xKSGQfWkD+6xXGvZfkQIMw5p0hSmLx7VOF81kSSEx0YlnUUTvhh6PT9g4JYQ /hftnHKI6YfiCDsv+SIhWB84apk+5Yexu1LsR6qEEOWYKL8mdiMeT3s+NvZR CIWxMvnakxvRJbGyitEmBNUdpi4esf5o28a4GPdbCIeeVRXkTPkjpXanpJGE CGybzR1TmAEY/Nj5C0VJBGb58PnDRAA+9RquIegioHUTS+yZDHTfNWsFdbGI nB+7HbcfYWB/UMM3T9IKJXIbzx1l4A7i2qFzpKdivI59O8lA9VLhjb+km7Sa +QfPMlCtWDdNbCqCLI/xrYUZDKQGtyypMBfBgmdL03QqGHhxe/n8oGUiyNT2 zXF+ycDTF8Xi/0irxzPLd79mYB7bJOc96TkbXraUsxk4Wtuj4LRcBGKxu5n/ WwYyudGnFq0QQT49jJvSxEA9cmoYthSBYcK52mctDKQzDOPMrURwo7fwe2Mb A4N1HD+Ekb5QOjTPtJuBUm+nAutI7/WKC+b3M/C6Zpr2q5Ui6C69t79/gIFm xG+7UdLBOoJTakMMzL2S4GthLQLPPqWCHaMM3GTmEplNmue1/FXSOANv50ZH NZCG5xs/Fk8ysLuyaz/VRgRlOtGdtdMMBP75cA/SFqdujs7MkOcx2Ms4Q/r/ AN9KB/8= "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0.1}, PlotRange->{{2, 100}, {0.09963321498282662, 0.26119950240915235`}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{{3.5992034060809402`*^9, 3.599203410000946*^9}, { 3.599203454461008*^9, 3.5992034943130655`*^9}, 3.599203724815389*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"N", "[", RowBox[{ RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"2", "+", "\[Alpha]", "-", RowBox[{"2", " ", SqrtBox[ RowBox[{"1", "+", "\[Alpha]"}]]}]}], RowBox[{"4", " ", "\[Alpha]"}]], ",", FractionBox[ RowBox[{"\[Alpha]", "-", RowBox[{"2", SqrtBox[ RowBox[{"\[Alpha]", "-", "1"}]]}]}], RowBox[{"4", RowBox[{"(", RowBox[{"\[Alpha]", "-", "2"}], ")"}]}]]}], "}"}], "/.", RowBox[{"\[Alpha]", "\[Rule]", "5"}]}], "]"}]], "Input", CellChangeTimes->{{3.599203814859518*^9, 3.5992038414195557`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"0.10505102572168222`", ",", "0.08333333333333333`"}], "}"}]], "Output", CellChangeTimes->{{3.5992038230095296`*^9, 3.5992038420795565`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Simplify", "[", RowBox[{"Series", "[", RowBox[{ RowBox[{ RowBox[{"alphaLargeSym", "/.", RowBox[{"{", RowBox[{ RowBox[{"p22", "\[Rule]", RowBox[{"1", "-", "p12"}]}], ",", RowBox[{"t12", "\[Rule]", RowBox[{"1", "-", "t22"}]}], ",", RowBox[{"dd2", "\[Rule]", "dd1"}]}], "}"}]}], "/.", RowBox[{"{", RowBox[{ RowBox[{"p12", "\[Rule]", RowBox[{ RowBox[{"1", "/", "2"}], "+", RowBox[{"x", "/", "\[Alpha]"}]}]}], ",", RowBox[{"t22", "\[Rule]", RowBox[{ RowBox[{"1", "/", "2"}], "+", RowBox[{"y", "/", "\[Alpha]"}]}]}], ",", RowBox[{"dd1", "\[Rule]", FractionBox[ RowBox[{"2", "+", "\[Alpha]", "-", RowBox[{"2", " ", SqrtBox[ RowBox[{"1", "+", "\[Alpha]"}]]}]}], RowBox[{"4", " ", "\[Alpha]"}]]}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "Infinity", ",", "1"}], "}"}]}], "]"}], "]"}], "//", "Normal"}]], "Input", CellChangeTimes->{{3.582889528973019*^9, 3.582889657423645*^9}, { 3.5828897054873295`*^9, 3.5828897343473797`*^9}, 3.582896061160093*^9, 3.5992042714301577`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ FractionBox[ RowBox[{ RowBox[{"-", "s"}], "+", "x", "-", RowBox[{"6", " ", "m", " ", "x"}], "+", "y", "-", RowBox[{"2", " ", "m", " ", "y"}]}], RowBox[{"2", " ", "\[Alpha]"}]], ",", FractionBox[ RowBox[{ RowBox[{"-", "s"}], "+", "x", "-", RowBox[{"2", " ", "m", " ", "x"}], "+", "y", "+", RowBox[{"2", " ", "m", " ", "y"}]}], RowBox[{"2", " ", "\[Alpha]"}]], ",", "0", ",", FractionBox[ RowBox[{"s", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"6", " ", "m"}]}], ")"}], " ", "x"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "m"}]}], ")"}], " ", "y"}]}], RowBox[{"2", " ", "\[Alpha]"}]], ",", FractionBox[ RowBox[{"s", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "m"}]}], ")"}], " ", "x"}], "-", RowBox[{ RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "m"}]}], ")"}], " ", "y"}]}], RowBox[{"2", " ", "\[Alpha]"}]], ",", "0"}], "}"}]], "Output", CellChangeTimes->{3.5992042736601605`*^9, 3.5992043114202137`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{"Solve", "[", RowBox[{ RowBox[{"%", "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.5992042963401923`*^9, 3.599204313640217*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", RowBox[{"-", FractionBox["s", RowBox[{"4", " ", "m"}]]}]}], ",", RowBox[{"y", "\[Rule]", FractionBox["s", RowBox[{"4", " ", "m"}]]}]}], "}"}], "}"}]], "Output", CellChangeTimes->{{3.5992043076502085`*^9, 3.599204314310218*^9}}] }, Open ]], Cell["The quadratic approx does not work properly.", "Text", CellChangeTimes->{{3.599205384039732*^9, 3.5992054003897543`*^9}, 3.6076880185807266`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Simplify", "[", RowBox[{"Series", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"alphaLargeSym", "/.", RowBox[{"{", RowBox[{ RowBox[{"p22", "\[Rule]", RowBox[{"1", "-", "p12"}]}], ",", RowBox[{"t12", "\[Rule]", RowBox[{"1", "-", "t22"}]}], ",", RowBox[{"dd2", "\[Rule]", "dd1"}]}], "}"}]}], "/.", RowBox[{"{", RowBox[{ RowBox[{"p12", "\[Rule]", RowBox[{ RowBox[{"1", "/", "2"}], "+", RowBox[{"x", "/", "\[Alpha]"}], "+", RowBox[{"x1", "/", RowBox[{"\[Alpha]", "^", "2"}]}]}]}], ",", RowBox[{"t22", "\[Rule]", RowBox[{ RowBox[{"1", "/", "2"}], "+", RowBox[{"y", "/", "\[Alpha]"}], "+", RowBox[{"y1", "/", RowBox[{"\[Alpha]", "^", "2"}]}]}]}], ",", RowBox[{"dd1", "\[Rule]", FractionBox[ RowBox[{"2", "+", "\[Alpha]", "-", RowBox[{"2", " ", SqrtBox[ RowBox[{"1", "+", "\[Alpha]"}]]}]}], RowBox[{"4", " ", "\[Alpha]"}]]}]}], "}"}]}], "/.", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", RowBox[{"-", FractionBox["s", RowBox[{"4", " ", "m"}]]}]}], ",", RowBox[{"y", "\[Rule]", FractionBox["s", RowBox[{"4", " ", "m"}]]}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "Infinity", ",", "2"}], "}"}]}], "]"}], "]"}], "//", "Normal"}]], "Input", CellChangeTimes->{{3.582889528973019*^9, 3.582889657423645*^9}, { 3.5828897054873295`*^9, 3.5828897343473797`*^9}, 3.582896061160093*^9, 3.5992042714301577`*^9, {3.5992043444202595`*^9, 3.5992043721402984`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"s", " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", "\[Alpha]"], ")"}], RowBox[{"3", "/", "2"}]]}], "+", FractionBox[ RowBox[{"s", "-", FractionBox["s", RowBox[{"4", " ", "m"}]], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"x1", "-", RowBox[{"6", " ", "m", " ", "x1"}], "+", "y1", "-", RowBox[{"2", " ", "m", " ", "y1"}]}], ")"}]}]}], SuperscriptBox["\[Alpha]", "2"]]}], ",", FractionBox[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"8", "-", FractionBox["1", "m"]}], ")"}], " ", "s"}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{"x1", "-", RowBox[{"2", " ", "m", " ", "x1"}], "+", "y1", "+", RowBox[{"2", " ", "m", " ", "y1"}]}], ")"}]}]}], RowBox[{"4", " ", SuperscriptBox["\[Alpha]", "2"]}]], ",", "0", ",", RowBox[{ RowBox[{ RowBox[{"-", "s"}], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", "\[Alpha]"], ")"}], RowBox[{"3", "/", "2"}]]}], "+", FractionBox[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", FractionBox["1", "m"]}], ")"}], " ", "s"}], "-", RowBox[{"2", " ", "x1"}], "+", RowBox[{"12", " ", "m", " ", "x1"}], "-", RowBox[{"2", " ", "y1"}], "+", RowBox[{"4", " ", "m", " ", "y1"}]}], RowBox[{"4", " ", SuperscriptBox["\[Alpha]", "2"]}]]}], ",", FractionBox[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "8"}], "+", FractionBox["1", "m"]}], ")"}], " ", "s"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{"4", " ", "m"}]}], ")"}], " ", "x1"}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{"y1", "+", RowBox[{"2", " ", "m", " ", "y1"}]}], ")"}]}]}], RowBox[{"4", " ", SuperscriptBox["\[Alpha]", "2"]}]], ",", "0"}], "}"}]], "Output", CellChangeTimes->{{3.5992043821123133`*^9, 3.599204410644355*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{"%", "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"x1", ",", "y1"}], "}"}]}], "]"}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{"\[Alpha]", ">", "0"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.5992044017523413`*^9, 3.5992044253843756`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"x1", "\[Rule]", FractionBox[ RowBox[{"s", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{"2", " ", "m", " ", RowBox[{"(", RowBox[{"3", "+", SqrtBox["\[Alpha]"]}], ")"}]}], "+", SqrtBox["\[Alpha]"]}], ")"}]}], RowBox[{"8", " ", SuperscriptBox["m", "2"]}]]}], ",", RowBox[{"y1", "\[Rule]", FractionBox[ RowBox[{"s", " ", RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", " ", "m", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", SqrtBox["\[Alpha]"]}], ")"}]}], "-", SqrtBox["\[Alpha]"]}], ")"}]}], RowBox[{"8", " ", SuperscriptBox["m", "2"]}]]}]}], "}"}], "}"}]], "Output", CellChangeTimes->{{3.5992044042743464`*^9, 3.599204426274377*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"p12", ",", "t22", ",", "dd1"}], "}"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"p12", "\[Rule]", RowBox[{ RowBox[{"1", "/", "2"}], "+", RowBox[{"x", "/", "\[Alpha]"}], "+", RowBox[{"x1", "/", RowBox[{"\[Alpha]", "^", "2"}]}]}]}], ",", RowBox[{"t22", "\[Rule]", RowBox[{ RowBox[{"1", "/", "2"}], "+", RowBox[{"y", "/", "\[Alpha]"}], "+", RowBox[{"y1", "/", RowBox[{"\[Alpha]", "^", "2"}]}]}]}], ",", RowBox[{"dd1", "\[Rule]", FractionBox[ RowBox[{"2", "+", "\[Alpha]", "-", RowBox[{"2", " ", SqrtBox[ RowBox[{"1", "+", "\[Alpha]"}]]}]}], RowBox[{"4", " ", "\[Alpha]"}]]}]}], "}"}]}], "/.", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", RowBox[{"-", FractionBox["s", RowBox[{"4", " ", "m"}]]}]}], ",", RowBox[{"y", "\[Rule]", FractionBox["s", RowBox[{"4", " ", "m"}]]}]}], "}"}]}], "/.", RowBox[{"{", RowBox[{ RowBox[{"x1", "\[Rule]", FractionBox[ RowBox[{"s", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{"2", " ", "m", " ", RowBox[{"(", RowBox[{"3", "+", SqrtBox["\[Alpha]"]}], ")"}]}], "+", SqrtBox["\[Alpha]"]}], ")"}]}], RowBox[{"8", " ", SuperscriptBox["m", "2"]}]]}], ",", RowBox[{"y1", "\[Rule]", FractionBox[ RowBox[{"s", " ", RowBox[{"(", RowBox[{"2", "+", RowBox[{"2", " ", "m", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", SqrtBox["\[Alpha]"]}], ")"}]}], "-", SqrtBox["\[Alpha]"]}], ")"}]}], RowBox[{"8", " ", SuperscriptBox["m", "2"]}]]}]}], "}"}]}], "]"}], "//", "Normal"}]], "Input", CellChangeTimes->{{3.5992044645044303`*^9, 3.5992045454545436`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ FractionBox[ RowBox[{ RowBox[{"s", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{"2", " ", "m", " ", RowBox[{"(", RowBox[{"3", "+", SqrtBox["\[Alpha]"], "-", "\[Alpha]"}], ")"}]}], "+", SqrtBox["\[Alpha]"]}], ")"}]}], "+", RowBox[{"4", " ", SuperscriptBox["m", "2"], " ", SuperscriptBox["\[Alpha]", "2"]}]}], RowBox[{"8", " ", SuperscriptBox["m", "2"], " ", SuperscriptBox["\[Alpha]", "2"]}]], ",", FractionBox[ RowBox[{ RowBox[{"4", " ", SuperscriptBox["m", "2"], " ", SuperscriptBox["\[Alpha]", "2"]}], "+", RowBox[{"s", " ", RowBox[{"(", RowBox[{"2", "-", SqrtBox["\[Alpha]"], "+", RowBox[{"2", " ", "m", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", SqrtBox["\[Alpha]"], "+", "\[Alpha]"}], ")"}]}]}], ")"}]}]}], RowBox[{"8", " ", SuperscriptBox["m", "2"], " ", SuperscriptBox["\[Alpha]", "2"]}]], ",", FractionBox[ RowBox[{"2", "+", "\[Alpha]", "-", RowBox[{"2", " ", SqrtBox[ RowBox[{"1", "+", "\[Alpha]"}]]}]}], RowBox[{"4", " ", "\[Alpha]"}]]}], "}"}]], "Output", CellChangeTimes->{{3.5992045303245225`*^9, 3.5992045464345446`*^9}}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"solneu", "[", RowBox[{"s_", ",", "\[Alpha]_", ",", "m_"}], "]"}], ":=", RowBox[{"{", RowBox[{ FractionBox[ RowBox[{ RowBox[{"s", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{"2", " ", "m", " ", RowBox[{"(", RowBox[{"3", "+", SqrtBox["\[Alpha]"], "-", "\[Alpha]"}], ")"}]}], "+", SqrtBox["\[Alpha]"]}], ")"}]}], "+", RowBox[{"4", " ", SuperscriptBox["m", "2"], " ", SuperscriptBox["\[Alpha]", "2"]}]}], RowBox[{"8", " ", SuperscriptBox["m", "2"], " ", SuperscriptBox["\[Alpha]", "2"]}]], ",", FractionBox[ RowBox[{ RowBox[{"4", " ", SuperscriptBox["m", "2"], " ", SuperscriptBox["\[Alpha]", "2"]}], "+", RowBox[{"s", " ", RowBox[{"(", RowBox[{"2", "-", SqrtBox["\[Alpha]"], "+", RowBox[{"2", " ", "m", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", SqrtBox["\[Alpha]"], "+", "\[Alpha]"}], ")"}]}]}], ")"}]}]}], RowBox[{"8", " ", SuperscriptBox["m", "2"], " ", SuperscriptBox["\[Alpha]", "2"]}]], ",", FractionBox[ RowBox[{"2", "+", "\[Alpha]", "-", RowBox[{"2", " ", SqrtBox[ RowBox[{"1", "+", "\[Alpha]"}]]}]}], RowBox[{"4", " ", "\[Alpha]"}]]}], "}"}]}]], "Input", CellChangeTimes->{{3.5992050438992558`*^9, 3.599205073259297*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"solneu", "[", RowBox[{"0.1", ",", "\[Alpha]", ",", "0.01"}], "]"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "5", ",", "100"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.5992050867693157`*^9, 3.5992050871293163`*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwdzQ0s3HcYB/Cjtq5qDZ0wV+uK6tSsxpS64Xmo0qv1cM7dj1YipqEaqqps tlWdXut1xNvmrU1TdVRXnZoa9f7WFpv0zMoa5X9vXoaTKu642X97km+++STf 5LGIOM89o8tgMNzp/NfD73JvObNZyPj/VBCjPWURQXvcPEX0cmsJ8jX6uR0W buj/qjFT/vMiLNSqOd6WHmhfnzw1lrQADFZMqwcDMevii8T2S3+D9VfJmrht nlj3Mvt63pV5yNs+OTut44VDlpykkHtzwKtiGdgveWFt2WK3ZmMWDjMfjeep jqJS5RfbHjAL8ZUHJ55NeaO+qM/TqmsGBtStIjP5MeT3mH3yxGkGvhSLp+/K fLC6xvm38GYlhEZkxptIfPFy2h5VD0cJsatZd4v/OI6K5d7dngoFTPwgNF3q Z2OMo5Ks5yggN0vilP3wBJZ35fTz3RRwmu+tZTX6obPNIUHnvBxE9nXrvbe/ wASruThetRyeTTvcjBCfREVY7UxLuBx4cqNVr2oOCv561XnNQg6uq8pUbaE/ SgyaRhvmZPCBKm5CfiIAx/75KZ3zUAaD85G7WD0BWJh2ztAoXQZ78q+X2bsG 4lk926jHfBmo97E2D/0aiI09zS01B2VwtTkqufxTLjql+FZ9piuDSjfrJ0YN XByJZKa/NSGFyIEwxze2QWi3oT7d1iSFYU33yte3gvCYj/SScYkUepnNOe9Y 8jDJYejOnUQpRHvaeOiV8VCSuxxiJ5BCGc+mb4d5MDLR+IL6iBTOGwZXPSgP xqXEopYVcyksP9+s6N3Nx4j9YvbHelLQETqdowr5qNn2WlYzR0G7i5IbayDA iEVvd/1RCvaW9BeUCgVo0vnUYLadAoPpwzW/6xI07FsXGNdSIHbc92dCCsEw 4yPudcUUULa3d2Z+SzC1pLCIT3uv1QG8eZneb7lodWgXvWdXOygkOLDoqxtS RMGVFZdv9mcTHC7bmNheSEFok/+HY+UEucKE7uh8+h8rNcq1jaCxrdbXJZsC X0fdCv8OgiGlzA5ZFgVCW9HImS6Cc5VKnwLaama2a0Efwc767zIWMilQbJTs nB8mqAg0lVRlUNDRdr++YpIgNaNKM7lGgeYXB1nDFMHSunGdPhEFzvcb339K ETw781HBRdr3brSkvVEQjE6npCNXKfgxtT+Is0RQkxrgl5NOgSSZnRG5TNCI LT/5Oe1d8UOPU14THDVvDZ8TUiAKf24tXiMoHDR9dJx2JwkObVMT3HGjWLOW RsFmwIvvJRsEL8R4ccS0Xdinema1BHMfmDXwaSd4Tq5tbREcWjY58DbtfwEE Jek8 "]], LineBox[CompressedData[" 1:eJwtzX881HccB/BLbbTu0TryM8yl20Pasjz8eDjc++1HfiS/D5/50UaaTQ85 9ti0iDqTScZD1uTIw6gLeyBZK5eQw0bJzs/7fh/dEG4eKpownG63x2Ovx+P1 eD2ef73YcckhJ7QYDIarpv9tc0rQzRZtJ2T8n8TNKHacLxdbdpUd+Lv0GhSt v1PQznZBqXNs6ORnt+BF7VqA514eqhn++h9XtAKDmyjhMRApZZHOu7qdwDmd tn5qqxsqd7Pmb9VKoVBbMTe5xR3Phaa8DO/pBX4Nl2mz4I6KKn6SMroP7E1+ lRcuemDsbjPHkolHIKjYT/VNeGL5jMHzJtUA9K5JcoxnDuMYc0GZeGEQjovF k3XTXuh3VfKwRPAHRMblCQyGvFHvw2O8Lx1lkLRyse6HER802u6/FKiSAfWj 0HChxxdTQ9yD82uGoODikF3+7SM4aHoMs12GITrcc5Pb4ofP2tiLycPDkGNT /4+0+igmZi8fj4gYgb7JQ5VxYn98+VboMxE1AvwZ1or7jQA0zHrhOho8Ck4r yqzNy4G4cqPU1efeKJgtnqJmjgThT6vpEwPsMeifj9/J7QrC6KWv1fKMMdhT lFtm4xSMNcW2zNzBMViz4KoO3gtGVjrPrZIzDt/eTUgTfRSC0S36T80E41Dh wvmN1RyCy9c7BzYk4xDfG2O7bB2K/LP1VaI34/B4/eHrb6pCMUGQ5+DrIgep yd1LOnv5mNOo8yQpXQ6fu1nxtpXxMbtPjMa35VDGt+rebhqGb3d48PY9l0Py rrCaJlEYFj6dbmKxKXglU5VLdcOx7M8Y5kwgBVuEdienLoejd2L3FwbnKHjg qAxJYkYgrIy0yeooML/SU3xVGIGfYGzXAxkFzEn7m0+0CM7be5A3GxSIbS3G Us8QjGqNz623oGHKunpHXgbBggv3M/3YNJhbvo+VmQSrTgvC5jUu0fugtl9I MFPCqrK2pOHca8f0ffkE/0p3bhZzaIi8E/jeqIggR31QKrKmgcnNSnBqI6g6 oDV70o4Gb1ut8sB2gmm62ZS2PQ1C65zBE50E893ON1ZrvGaS71TcTTCl22iD cqBhduPKjvnHmv+eOmMfJxra2xoayxUEFclbM0x5NKz/cmi6eYKgBL/KuKOx Q0OL0e9TBAVmizFBQMPP11rPL88S5GVaSrORhtKsntCABYJ0f4r5nDsNQ2m+ 38W/InhdbWol9KBhp+DR/TNLBA1X9fX2eNKQ86mMI14l2BGiV3D0MA0dJCyy bY2gV4eV6YzGqqDx74c2COpta7h01osGR9+orrlNgs6ieoW+Nw2pbopVtZpg n3q/boPG/wL4D9Us "]], LineBox[CompressedData[" 1:eJwVzXs81IkexvFJu1GpkLvE0IRZm0wos/h+lc6unHJp8Is2mtxWtcnKdU/s nFXKrVIUkVprctmINjVmmMGYS6zccmkryuVEJaXJYNg5fzyv5/X+60NmnvAJ VSGRSCeU+/8//58Ri0TSxlwnT9XiEQ7Mh5WHPzHWxvBNB/JmZjigP7pjb+U3 2mhkndSy9ct68Bn21SfitJERVf8xmFIPooHsO1XvtHGcM8Jkh9RDtXT500PP dDCKmpe79LweWJWT23gcPcyk/Z2xt4ULN6iJBjn9eqjVwHFe1sUF7m21pQiZ HnoZ9iluveCCrIQi1abpY0XXKs+7c1w4WhgUfKxMH5PT/bIVNjxgZHVnGF01 wPx0U96pPB5YRNWPJpwyQp2zY7v6Ahog4vUf2HXFCEVBZFp2eAPcZhYXUO8b of/p3erbYxqA6pvq/VRmhMXmtpr+mQ1gTffkOcVvwKhjCyZ/NzQA7YtXl5cS jfH0N/7r9EwawenqKrfUFBOkzN8TmPU2ws+aiqJnxSbomr/XUGeoEXjnp+T2 AhM8aOmmMT/RCDdcJvw/kkzR5XGxoTeJD6a2HWtKXE2RfbtJUaXDB3Pdawlf NpuivNC51g/4YDlk7S0WkrFk32fWxSw+FP2nl/yyh4zEryYCtRw+aBud/jD/ iow5GwMfJuXxgeTXkWOjYoayjH0zjGI+9D86+STXxQxZnQy/3rt8SKu7Hxha Z4ZH45fY63v4MJ6FYSpl5pj5YmNwjY4ASp0ZSU4ZFOTmZ/IqswSwNUolblUB BT0mjnjZXBIA51Z1dH8ZBQ9raOlWXRFAh+qayBgRBRljQe6l1wUw2ykkKlU2 460eFc5P5QLwCNvusCFhMyZT0xSZQgG8zzKcng+1wNm3FbH9cgHQh4bC6sEK V37sPRUT2AR+Gq6FUk8rtBMeWFt4qAmi8Wb3QJAVtvr07Wo+3ATlxYdxNtkK 1eMsLqlFNIHh4ZcG9nwrnJDVaMbFNMH88Ku2O0hFPdmSw1hGE3BfjdFuuX6F g+1jT025TeA8/mYxbdfX+OyQl2OudjP0Xoy4G/TLVmy36ouOZzfDLma+o9k5 GrbT1FLX27aAU+9ps8izdqjVy1clsVtggul5MuyIA46v0CgtVxPC41tBuufD d+AWAzuf9HAhRCoCyUx3Ol47lRMbVyeEC3OrMhvJTliRFf9wZlEIb8vk+9zM XDDsrwdV07tbgUSPrHchIea7EOr9rFagxMfN/bjcFb+fHextb2yFbNXnr4eX 7US6jL3H+nMrMEro6jZTOzFrkRPjbiECe8O6gez3uzBFqLp5HSGCqEKrQemQ G648wPOpY4lAJK9PNRjdjRdOKIrM74jgCJs9XD7yLzQ+sTF7xxMRBDDPRel2 f4u1O80PZspFcFx2vvxK73doHLTi/WNjMQzmsfSmWt2RHZtr/MZZDJnnu+3S a/dg2IWT8SOBYjjo56ag3/PAWpOqz4OJYki1qZht+e3fyFZN9IjIFYN02PYG k70XmdsYlMkaMTBGNWU7S/fh8biezb+3i8FRNp6syPHE6IbStjOjYjB+/+Pg 6B4v/C58x4uDi2J4NBmylt7shR8sZnsKtSVgdOFsvo2jN3ZWWgwWWklAbkpf 2PLQGwvV1vplgAR+fRAeV7DVBzf8t7zVdb8ECp0oYs0aHyxxSRseCJdAiOh7 2ifqfnwnjPQLS5RA+1zTTMLN/Vg1vj9tPl0CLYYPMtTMGMjpyl1ztEgCEa6W Ll/kM/D34EM71lVJIJ9hKVy5wRfLDpgOs/gSOKHhW1Jd4IspA6Ypup0SmO5a uN6i5YdDy9tCtYcksIxld/Rljh92fPB/2z8lgYbt4z7H1f2R+NpuhLwogY25 rZeusfzxT+762MbVUlAftr/doULgm8WaaUNDKbBppn3RiQTqytMvki2k8JL6 2+pzPxMYUB00HaD0RvPNeOM0gXCMueey0pfXW5c9YhH4xw9z4ysspZAysz1p UzqB3Ir8zkmlA+57mjwpIPBmVlvQPaqyR08Od+QRaPbsyEncIoVvaSrXPRsJ rH53Xx6vNIua+jhUQGCHWkjSXaXlhumOl4QEkos6I81spDA2n7t6sl3Z+8pk bvlWKTTy7lRdf07gppyyp0JbKcz9aTtSM0TgXCt9TqG0w517+pKXBJrL6FoO NClUFnF++TRGIDM2c0up0leTW/fvmyJwxPGG/pltUuiOc08LmSbQ8UybSoPS a6PauIkfCQzb9NPYJ6VTg7so7M8EViTa5ofaSYFP+Abw5AQatHhEFiq94NWf 1T1PIIk1sq1X6e3ugc2vFQRSFxZk6vZSiHZ9/nlpicDFhNxaN6X/AQGVTpw= "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{5., 0}, PlotRange->{{5, 100}, {0, 1}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Automatic}]], "Output", CellChangeTimes->{3.599205088029317*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"solneu", "[", RowBox[{"0.1", ",", "50.", ",", "0.01"}], "]"}]], "Input", CellChangeTimes->{{3.5992051368193855`*^9, 3.5992051530094085`*^9}, { 3.599205316339637*^9, 3.5992053219696445`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.7136244584051392`", ",", "0.2985176772185917`", ",", "0.18858571571457147`"}], "}"}]], "Output", CellChangeTimes->{{3.599205149079403*^9, 3.599205153469409*^9}, { 3.5992053173696384`*^9, 3.5992053477096806`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"solalpha", "[", RowBox[{"0.1", ",", "50.", ",", "0.01"}], "]"}]], "Input", CellChangeTimes->{{3.599205171059434*^9, 3.599205171889435*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.5167545760229918`", ",", "0.5180583181397372`", ",", "0.1889822151001587`"}], "}"}]], "Output", CellChangeTimes->{3.5992053606996994`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"FullSimplify", "[", RowBox[{"Series", "[", RowBox[{ RowBox[{ RowBox[{"alphaLargeSym", "/.", RowBox[{"{", RowBox[{ RowBox[{"p12", "\[Rule]", RowBox[{"1", "-", "p22"}]}], ",", RowBox[{"t12", "\[Rule]", RowBox[{"1", "-", "t22"}]}], ",", RowBox[{"dd1", "\[Rule]", "dd2"}]}], "}"}]}], "/.", RowBox[{"{", RowBox[{ RowBox[{"p22", "->", RowBox[{ FractionBox["1", "2"], "+", FractionBox["s", RowBox[{"4", " ", "\[Alpha]", " ", "m"}]], "+", RowBox[{"x", "/", RowBox[{"\[Alpha]", "^", RowBox[{"(", RowBox[{"3", "/", "2"}], ")"}]}]}]}]}], ",", RowBox[{"t22", "->", RowBox[{ FractionBox["1", "2"], "+", FractionBox["s", RowBox[{"4", " ", "\[Alpha]", " ", "m"}]], "+", RowBox[{"y", "/", RowBox[{"\[Alpha]", "^", RowBox[{"(", RowBox[{"3", "/", "2"}], ")"}]}]}]}]}], ",", RowBox[{"dd2", "->", RowBox[{ FractionBox[ RowBox[{"2", "+", "\[Alpha]", "-", RowBox[{"2", " ", SqrtBox[ RowBox[{"1", "+", "\[Alpha]"}]]}]}], RowBox[{"4", " ", "\[Alpha]"}]], "+", RowBox[{"z", "/", RowBox[{"\[Alpha]", "^", RowBox[{"(", RowBox[{"3", "/", "2"}], ")"}]}]}]}]}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "Infinity", ",", "2"}], "}"}]}], "]"}], "]"}], "//", "Normal"}]], "Input", CellChangeTimes->{{3.582890532803582*^9, 3.5828905420387983`*^9}, { 3.582890597886897*^9, 3.5828906747326317`*^9}, 3.5828907129370985`*^9, { 3.5828960944037514`*^9, 3.582896100518962*^9}, 3.5837549496530757`*^9, { 3.583755466056983*^9, 3.583755471813393*^9}, {3.583756415359851*^9, 3.583756421662262*^9}, {3.583756467089542*^9, 3.583756469413946*^9}, { 3.5989674366629963`*^9, 3.5989674540414267`*^9}, {3.598967917518841*^9, 3.598967950653299*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "s"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"6", " ", "m"}]}], ")"}], " ", "x"}], "+", "y", "-", RowBox[{"2", " ", "m", " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", "\[Alpha]"], ")"}], RowBox[{"3", "/", "2"}]]}], "+", FractionBox[ RowBox[{"s", "-", FractionBox["s", RowBox[{"4", " ", "m"}]], "+", "x", "-", RowBox[{"2", " ", "m", " ", "x"}], "-", "y", "+", RowBox[{"2", " ", "m", " ", "y"}]}], SuperscriptBox["\[Alpha]", "2"]]}], ",", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "m"}]}], ")"}], " ", "x"}], "+", "y", "+", RowBox[{"2", " ", "m", " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", "\[Alpha]"], ")"}], RowBox[{"3", "/", "2"}]]}], "+", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"2", "-", FractionBox["1", RowBox[{"4", " ", "m"}]]}], ")"}], " ", "s"}], SuperscriptBox["\[Alpha]", "2"]]}], ",", RowBox[{"-", FractionBox[ RowBox[{"2", " ", "r", " ", "z"}], SuperscriptBox["\[Alpha]", "2"]]}], ",", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "s"}], "+", "x", "-", RowBox[{"6", " ", "m", " ", "x"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "m"}]}], ")"}], " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", "\[Alpha]"], ")"}], RowBox[{"3", "/", "2"}]]}], "+", FractionBox[ RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], "+", FractionBox["1", "m"]}], ")"}], " ", "s"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "m"}]}], ")"}], " ", RowBox[{"(", RowBox[{"x", "-", "y"}], ")"}]}]}], SuperscriptBox["\[Alpha]", "2"]]}], ",", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"x", "-", RowBox[{"2", " ", "m", " ", "x"}], "-", RowBox[{ RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "m"}]}], ")"}], " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", "\[Alpha]"], ")"}], RowBox[{"3", "/", "2"}]]}], "+", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "8"}], "+", FractionBox["1", "m"]}], ")"}], " ", "s"}], RowBox[{"4", " ", SuperscriptBox["\[Alpha]", "2"]}]]}], ",", RowBox[{"-", FractionBox[ RowBox[{"2", " ", "r", " ", "z"}], SuperscriptBox["\[Alpha]", "2"]]}]}], "}"}]], "Output", CellChangeTimes->{{3.5989674585966344`*^9, 3.5989674852888813`*^9}, 3.598967531293362*^9, 3.5989677700361814`*^9, 3.598967957423711*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{"%", "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], "]"}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"s", "\[GreaterEqual]", "0"}], ",", RowBox[{"m", "\[GreaterEqual]", "0"}], ",", RowBox[{"\[Alpha]", ">", "0"}], ",", RowBox[{"r", "\[GreaterEqual]", "0"}]}], "}"}]}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", FractionBox[ RowBox[{"s", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "m", " ", RowBox[{"(", RowBox[{"5", "-", RowBox[{"8", " ", "m"}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"3", " ", "m"}]}], ")"}], " ", SqrtBox["\[Alpha]"]}], "+", "\[Alpha]", "+", RowBox[{"2", " ", "m", " ", "\[Alpha]"}]}], ")"}]}]}], ")"}]}], RowBox[{"8", " ", SuperscriptBox["m", "2"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "m", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SqrtBox["\[Alpha]"]}], ")"}]}]}], ")"}], " ", SqrtBox["\[Alpha]"]}]]}], ",", RowBox[{"y", "\[Rule]", FractionBox[ RowBox[{"s", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "m", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", RowBox[{"8", " ", "m"}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"5", " ", "m"}]}], ")"}], " ", SqrtBox["\[Alpha]"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "m"}]}], ")"}], " ", "\[Alpha]"}]}], ")"}]}]}], ")"}]}], RowBox[{"8", " ", SuperscriptBox["m", "2"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "m", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SqrtBox["\[Alpha]"]}], ")"}]}]}], ")"}], " ", SqrtBox["\[Alpha]"]}]]}], ",", RowBox[{"z", "\[Rule]", "0"}]}], "}"}], "}"}]], "Output", CellChangeTimes->{3.598967879236373*^9, 3.59896797991895*^9}] }, Open ]], Cell["\<\ Agrees with the above, not so good, proxy.\ \>", "Text", CellChangeTimes->{{3.5989682200209723`*^9, 3.598968239053005*^9}, { 3.6076880423380857`*^9, 3.6076880446102157`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"solEditor", "[", RowBox[{"s_", ",", "\[Alpha]_", ",", "m_"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "2."], "+", FractionBox["s", RowBox[{"4", " ", "m", " ", "\[Alpha]"}]], "+", RowBox[{ FractionBox[ RowBox[{"s", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "m", " ", RowBox[{"(", RowBox[{"5", "-", RowBox[{"8", " ", "m"}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"3", " ", "m"}]}], ")"}], " ", SqrtBox["\[Alpha]"]}], "+", "\[Alpha]", "+", RowBox[{"2", " ", "m", " ", "\[Alpha]"}]}], ")"}]}]}], ")"}]}], RowBox[{"8", " ", SuperscriptBox["m", "2"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "m", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SqrtBox["\[Alpha]"]}], ")"}]}]}], ")"}], " ", SqrtBox["\[Alpha]"]}]], SuperscriptBox[ RowBox[{"(", FractionBox["1", "\[Alpha]"], ")"}], RowBox[{"3", "/", "2"}]]}]}], ",", RowBox[{ FractionBox["1", "2."], "+", FractionBox["s", RowBox[{"4", " ", "m", " ", "\[Alpha]"}]], "+", RowBox[{ FractionBox[ RowBox[{"s", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "m", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", RowBox[{"8", " ", "m"}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"5", " ", "m"}]}], ")"}], " ", SqrtBox["\[Alpha]"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "m"}]}], ")"}], " ", "\[Alpha]"}]}], ")"}]}]}], ")"}]}], RowBox[{"8", " ", SuperscriptBox["m", "2"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "m", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SqrtBox["\[Alpha]"]}], ")"}]}]}], ")"}], " ", SqrtBox["\[Alpha]"]}]], SuperscriptBox[ RowBox[{"(", FractionBox["1", "\[Alpha]"], ")"}], RowBox[{"3", "/", "2"}]]}]}], ",", FractionBox[ RowBox[{"2", "+", "\[Alpha]", "-", RowBox[{"2", " ", SqrtBox[ RowBox[{"1", "+", "\[Alpha]"}]]}]}], RowBox[{"4", " ", "\[Alpha]"}]]}], "}"}]}]], "Input", CellChangeTimes->{{3.598968955639469*^9, 3.5989690454508266`*^9}, 3.6076879564231715`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"solalpha", "[", RowBox[{"0.2", ",", "\[Alpha]", ",", "0.01"}], "]"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "5", ",", "100"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.5828932368295317`*^9, 3.582893329649695*^9}, { 3.582893411815039*^9, 3.582893442890294*^9}, {3.5828981154473004`*^9, 3.582898209125465*^9}, 3.598969408346665*^9}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwdzgkwlYv7B3BZWsQtVyVbWVJEHOdwcMLzoJQSWeKlq0JkudFV2UWksiYK obKVyGi5JYWsJVSUJKm8Z7cvZUly/c7//8x855nPzHfmeZQ9Au29hIWEhG4L 8n87+1qgjm2uAgr9/0wAVZR9ZTFcEbXpFxMyrcchKKp73DlXEfmDn2kc2jj8 O9Oy5361InrO9Ruflh8HvcFyIfffiphUaRLoNjwGBm+D/26M2oCvH+6O0kwd A+Ns8R3xMRuRZectNPNtFCKlFm58zd+IpscifFa2jUJt4vicfsNG9CyfZzg9 HoWbpkPOP4SUkLxTqZGQPApKuh2SxWZK2LxinrLfZBRU110LE2tSwkK2s9qb khFQJ7XsXr1Qxpvt1hGeecNwI6pbmfVBGU3qZT1+pAzDGvkz3+fZymh692FX QfQwCDl1ZOgIq+Bbs45xwnMYPrX/8zHTVAX/XfIgZrPWMFx8UnnQ64kKFl67 UT3TOAT8VPQWLlVFufYPmZ4iQ/CX1iBdoUoVW8y92Fo/B+F96+Vl9BZV9PYI KVw5OgjPRdl3fLmqqB50K2N5zyBkhscPdypvQslOsW2/7g6CpXfbiZs5m9Cy w2YkxWUQbps4Rhgnq2GEliNjS+MAUE4Ih4jnqmHOg/kK36cD8KzwftCnUjWs CFu7vvr+AHQsk/Q71aKGNcUThok3B+DnuxdEufBmVLZW4XVHDcBebwO6Qthm 3Ht3zSsxkwGYSJWbnPfagu/mg/smm/kQ3vBqpPXUFrRJXS/ZXcsH0anggay4 LbgnwPpkUyUfZF26+mkFW/D5KXZ4wx0+mKsmv/X/IujnbP0AKXy4+mThbp+9 OoYdTwnSJfjAIEnvatDAQ/uo0/bTPHBabXa9zVYDS+VHI7+P8SAIC7p6D2ug t7ipQt4AD8ry3fFntAZSLwXtlvzCAzl3lqx+vQZWJKRMHW3iwTyT/boCt6Kt UcPengwe1LB51EIzTWQOvOzE7Tz4JL3L94GdJjo6uLn81ufBlEXJzXp3TfSX 3J5TR+GBVvExif6zmngsME3MbTMP8o4OcOUbNdHPUuTdpBQPIrmD2VfNtbBs TpQSPMQFE/7IfxcttiFRQjNNyOeCdmjkp3j7bejjFqjpn8cFpRUSD2Pdt6HM 7UPO9tlcENXU9IqM3ob7PaZ3UtK40Bbg2x5YvQ2pQzORGjFcIGa4WU40bXy2 gZaywp0Lp8T6KZtUddBOt3lh52YueGcGiCtTddC1/YpCnYqgv+U/tqKZDopS 2k8ab+TCdivFLJnDOlhTqHzPYj0XhFMOLojn6qBJ2JvMOHEu7BYf4YSuoKD6 GeaOpnEOdF/2eXD4LAUHk2Ob1tZyYJ1LQvWZBApG07TWv3rKAUKp7MX1yxRc 8ufh4DOVHPhSMdzbV0BB+pdq2uw9DrDaA4SJRgpOFG2YkiniwITYaYf9Irpo vfCxdXUiByTCz05jvC5+SC9KfOTKARuzwsXDKbpoY9H9pM+ZA2nLm1ZEX9VF h9zbmksPcEA6S3RD7S1dHHgu9v6oLQfkHl2wNHqpiycS1S7u3sEB9bGULN1l VLyycQnlljYHLDxyjFQSqOisv149XYwDf0yZuMhfpuIzKTX9TSIc+BzPDF1z jYpBC2O9VUIcCCpVr1paSsVNQrS+wXk2FE5U0odfUfH1P352ft/ZIBzdRXu0 nIbqVyvbmf1sqM+V0La8SMMOt1an9Bo2GHefUfG7oIci/L/f7Y5kw0mZZ9Kf U/Xw22moOh/OhjKXadE9mXq4UlWD9jKUDTLf/Pkat/RwZ/ier1an2fCdR5QP Nuqh0JXH7Z4BbLjzk0r3/U8PL8/Oe5BH2CCtwLfyOa2PAT86b49bsmHIw/Yf b086yuZ7dy2XEbiIvRjsT0d1Nx+76LVsGOSEpF44SUdPLXntWWk2DHjn370T R8c49ce/h1azge83yR0qoqPTUpM6ljgbOEEZroEcOnaqxnlLLbLga2yPRaiX AarN9GoeGWBBZ+HhdYnHDPGkbNu9oOcsYFxJCpYKNMTyqbFZq1oW3Ip/8jE7 2BA/FDBUVGpYEO6zKqsk3hA/fgiX7X7KAlXtOpkXRYaYfsopdOdjFgQ/3SAr RBpib4y/hm05CxQ7v8oHE0aopbVKQyiXBX4LB5U9rBhYlXSupyycBYeeimc1 7Wfgr+Dx1qowFjicfiqhRjDQJmbJ0ZZQFhiPrvvJ92ZgcVhSMi+YBau+vnt7 /BwDFd6EXNc6yYJHNbsiw+oYKO68j9bjz4KFCFpPmv52pH/KnS9wY0HaL/GU OmVjpFM3Px4zZ8Fo6ZzNDhVT1LF28e9ZxQIhhl+1qRBihk/0F00+E9RCQ34F iJjh7XWtO/UamHBp2bdB5hJzXBNXfnwmnwmOxQwJnXFzTC0o8ck8zwR9uSe9 lyYsULIxV+nAcSacuK7xuY3cgXZXLP70JZjQMlcdL8vdiQVWdgztHUzwLClh lnEskbFY4fc3lQmuHgkn1nXtQi338Fuhqkw4PpNYdrV7N9KyB4Zb1jDhc1as zPhLKzy0UTXSdjkTUhK79JL+3YNrU14+k18g4S+nHQuMR3sxuWsbbXaShHid uz+bi6xRcY2xrs8ACW1M3ZseJfswXUKnue8bCY5cqRnz2zaYsKdphcFHEoxm +NELGbZY4ncosuYtCYoTAZ+5e/Zjv/ScF7WFhPbho38wmvaj77ul0cX1JMin XcjRMbLDJ3JRd/KfkTCnxPit/dQOx0VEr557RMK5qmMhuRR7nHNQvKR1j4Tr xmqvpB7ao/7S5q01pSQcbXGjTm91QL+2uY7pYhLe/GqcCitwwKisqL2J+SQ0 y1UlL1dxRL0NNtUieST4mKmbiuY44tko12GxbBJyHNVfrFA4gPOO0jZjGSQE rj5QfD/3ADq3b49VTiNh8v3vvOY/nbCw5Mfq5mQSlsTq+bMynDBVfiLaOoGE 5wZ8++MSzvi9TOek4XkSNmS+TL8W64yn1tnuc44jQYKpf6dDmMC+7rS4v2JI KKEq9QSFE+i+ylv9cRQJrK1FKxMiCfTN7E4vFXiD6ma8eYbAew1Ji9cFviKt VdoeS+Ahz9b+8wLHTBlEbEoi0Dw4pJoQ2LXSduPHXALr6yX6f0cK7jGijxnV EigxkvXeUuBdVOE82zoCQ1xzzm0XOHZrfKdXA4EVPW8NKQLPySUZpb8gkIxo L5EVmDefuXL4DYGT3CX5IxEk1NVW3Mv7RqBnb8/PdIF/PdblPCQJnD1y/80F gekVj9a3sghsWvagOFLg8hvPzk7zCNQEdRdvgbOjXzrYjBOoZvC1z0jgrhCr i0cnBf1sboO2wH+ceF0T/oPAbgOpMlWB44+8VyuZJbC2oSNGUuB64oBr7RyB vcHugcIC/97/KbVrXvDfgvSR2XASDKwONg0uEFhVw7MfETjI7Nvs4iKBMrK9 u5gC/w9wk/jr "]], LineBox[CompressedData[" 1:eJwdz3k01AsbB3CkS1LRHsm+Z5mxqzyP5VZUlEo/XLncLGmTsjSJm3ItoSg7 2a9Ut+XyliVLlkhKGbJU+s3Mb8ww2SpKyDvv+5zzPd/zOef7z6PsfcrZR0xE RCRfmP/16XZK0k6wEUX+fxNAF+fcWGAoYFTD846JhHEIutAzfihbAU/2Ou7e eXYcyqdbHR7UKGBqsHkC230cjIfvinjNKaAs19rzne44mL0KOd54YRNKGfu8 bXo1BlszpOyi/1REE0/5wNuKYxAuO3/zQ74i+hZdhadSY1AbPz5j8lQRO5w3 SC2bHoU8q5FDX0SU0GMxoxhfjoISrXNZsbUS/t4fThOPGAXVtZnnFjcp4cie zc3+/E+gRW7e19aijDNrlkLqewHcvNCjzO5WxpFNi8QVXglgtXzE51mOMq5o SFFtqheAiEvndQMxFWynTyw/WiSAvhen36ZZqaCk3GaNlccFEPv4kbvPYxUc d53rShYTAC8JfcXKVFEm6UuMnc0I/LZ52HRjpSpK1JG/ipqNQNfzZAnTVlVk qK0+zNQdgTpxzq2jXFU0/DBb/WjNCKQxogWvldVwPM9W6ezIMGz3bQ/My1LD hd6dj7LTh+HvbQfOb01Qx95fusv2LvDBMFAsVCpbHVmLxyouT/OhuvBBUF+Z Ouq8/F7WOsqHTollAWdb1TFjzqX53Hs+fH/TQtwV08AURebn+Go+7PI1M914 TgO7Wq852J3jw0SS3OSsjyb29H+5byXCB8bTtk/Pz2oipfA+f+UMD8S/hvDT L2niiOa3xslJHmxwZX40KtDEB/eHzN9weGCjmvDq2HtNNJwN37OyjQepj+fv vHPWQsXSgJ+xKTywJEnfGtBGrlmwaIU+D1xkrHPbnbQxeWyKaaPFgyAsYPZ7 auPL0JG6d8o8uJ3vhd8jtZHux4jWXcMDOS/2BpMGoQsHgnFuCGZZnI57qIPu wVN39DqG4AlniF5orYuHM2+OJwUNQd+qHUcf7tPFXPerMpYnhuCrbWleg5cu FnYnjH7yG4LNxX7SHy/qYrBbec5RjyHIOcLnyjfqIvufZ4q1O4cgnDuckWqz GfmNldX1SkOwjffpZ6ytHtIGz7R39XBBPyy8L9pZDxOCN06WvOGC0hLpf6O8 9HAMZNwjXnJBXFfXJzxSD2s0kplWLVxoP3n0xakaPTQ6ku0yX8EFYpqb7mKk jznezZR/KhfOLv5oqKZqgD8q90k1uHLBN+2klDLdAAdf1S3ouAj3mj85CtYG KHqrlp7lzIUt9grp6zwN0NLB2CR6FxfEEt3npbINMM781nDCNi7slPpEhS0x RI4mQ89DhQs9yf4PPS8aooxze3f3GAVrXeNqIuIMMdwvLDZMQAGhdLslN9kQ Ex6K7lbiU/D+nqD/XYEhVu4Q551nUcB+cVKMaDTEdp/Se97dFEwsDt6/dxEN 6W6iTfxqCqQZF6cwmoYFzh0Nd+IpcLQuXPBMpGHCqvB1LTEUXJNsWhKZSkOT LetqWJcpWJUuvqm2hIaqEsNMtUgK5Cpitls8o2HYdYfqN2co0BpLTKdJ0FGq cX7sqQcFtt5ZFipxdHw4erh0wIiC5V+3ucon03GPTTrLk0bBQDQrbHUmHUsK TlTx9CkIKtOq/KWMjuktPvQFbQoKJx6ZCtroSLPcMrhbiQKxSKZRhaQRVkS8 GfBcRkFDtrT+9lgj3CGd9HjXMAe29kSoBMQYo5iry19xpRw4s6561UCSMdJZ h1qelHDgtuuUuEOaMbYyluZOFnFg3eAxnnaJMVqtjlv+ez4HPg8Rd4cbjfG0 5vVGp0wO3PpONz360xg71r+tC7vCgVUbefb+wSY4kPVQjQrkwIi302nfP0zx 9JX2C40gdBFnIeSYKTroBWfrW3FgmApNijljisfuZm3M2coBvm/+nVuXTPH5 g+M25y04wAuY5I4UmeJdtyOf7I04QAVddztFmWLnbmM7TU0OfIjqtQ3zMUPB oVeDb1dw4HWh59p4P3O8VOO/p5Jig+WNKyGyp8zxbmL4xF8cNpREP36bEWKO Gy4fOOfCZgPDf0V6abQ5rve4YP79IxtU9evXtRSZ444UI+ft79gQUrVpgwhp jn+OnFCV7mKDwusP8iGEBYrM/71g1sCGgHl3ZW97SwxhzJxi32TDtR9SifXK W9HZ0aVjvw8bRstmHO1UrJDmdHxXkCEbRCwDaqxEEI/XhIbZ/MIG9bDQHycX WePQ0nmvF4MsuCoxOMwStcHizm5901oWHCi2lDYYt0F5hzcz9wtYYCL3uP/q hC3mpKpU7YxhQWCu9kA7aYeNyWXoeZoFrTM10Ru4v+L+AIaWxm8s+KO0lHWb 2o7D7XaKF+xZ4OYdF7iWuQOTnkR5N1iw4MR0/O3Unp3Y2BeAdjosGEiPWjf+ zB7zl5w3lVNgQWI80/hKuQNm99kzbWRZ8JuL3bxlxS5UPSIIC13MgmiDO9+b i3Zjxg2LqYOzJLSzaHnepXtQ/lIoy2iShANc2Wmbvx0xJbKsXJxPgsU0L3L+ uhM6Hb46tYIkQWHi5ADXYS/uq252kewj4YXgyHLLpr3YFDvguPQNCfLXYrIM LPZhi954W147CTNKlnP6VfvQ/XBZ2fpmEi5X+oVmGzrjvlG5WK86EnK3qrfJ /uuMl7UvDiZVknCk1YM+pbMfjTLLZwPLSXj5o/HruYL92JrV5lZ+j4RmucoE SZUDmDXYm9VbRoK/tZaVeNYB7OpSKE8sISHrgFbLko0HUbZbIK9ZQMIpmYPF D7IPooRt52qZXBImu+Zymle6oEJUsE5gJgmiUcbH2NddcE2FxOHyVBLqzHjO J6QPYfi3cCOvFBI2pT1LyYw6hP5qbO9fr5IgzTK51SlG4EF5N8dlCSSU0pV6 gxgEisbz+/XjSGDrFC2NCyfw1KdaZxWhN6lqYF4EgdWrRV6tEfrGqs1lL6II DJxsfTEXS8KfX83Oq10hsP6SM9UutNsjJ8W32QSu1KyK9RNa2jLSz6KWwM4C qazCGBJ20MVynOoJPPpZ3TNN6Cid6Nc+Twksds3QiBd6Ru6KRUoLgcxnkU9O Cz00m7ZU8JLAypLt4tZC19feu58zSOBEkvIi8i8SfvyHRv1LErg80HOUKbTp vYr1z9kEeowP97cKffdm9cWpIQIpOrvqvtAZkc/2O44TuLZpT2qk0MxQ+9gj kwTmxQ0mnxF6eWDHE8YXArWeP7rmJ3T0713qpd8IXK++JdVJ6AbioFvtDIGS s9wsW6Hn9vYlMWcJlKjtKTQT2szevWl4nsATbUv+0RU6yHrw28KC8H/GxSpF of8LO0TbuA== "]], LineBox[CompressedData[" 1:eJwV1nk0ldsbB3DhXm5UlI4zOGYlcYsMORfPg0qqS8nw3ihdSXKTaZWZUgrX bTCVISkWkcpF5ul9TeeciiKuDEWGiiIVheT3/v7Ya6/PH3vttffzffbaKm4+ dkdFRURE0ujx//nlW06UiIgctq34aH7Hh4IFj4Jj3Vw5zMiJf6p+nALm6Nbf C3+TQxn1zwVdbhTYDTkwiUA5bI3sed/mSIGP68iiTrIcRiTaUHL7KIgf8B8W K5HDdR2P62J3U9D64vL9B5NymK427/MdKRhxUkyKll6LE9SK/q+/USDaXRjs rLUWk6NdBrhGFJh0CLZJeKxFcuSg56gOBUVCsb5DA2uxoy+9fgeXgic7Exr0 F9ainoKgOoRFwXiLcu5yFgN5CiOpz9ZSoN5o6ldmz8BfhZdvjqykwNz8sWO8 PwPTXDPW35Si4FD9ARO3KwwcrdpkFyxJQWp1oMTKxwysvuMZHytKQZnxzx+G 3zHwq1/R+rolEp6XJ3VUSsijW4Zf2KpFElaW/nvjqKU8prTPZP70jYSNenju tz/lcaj5T8X8GRJ2FrV5ykbKY6OqXZXHZxKiCie21FbJo830ul6dKRJuaoWw EnvkUTNrt67hBxJq7kguec7KY9K/RrsdJ0iYzdEQyukx0dQ14VrfGxLWqJU+ GLdlIkz8qIIxEjbfskhu8Gbiab25qMoREv664Xr4RD4TxTJjJd4PkRDDmdxu 0cpEiQtn27MHSchNDdvIHGXiofl0O59XJDTKS8lOirJQPW65os1LEgaTU2cb lVl4KPc/EgZIWFyj2Z9qxsLc/mdPLftJYCeUkT4uLFSsDxz8o48E+0ud8Zzr LPw0VONe9YIEP2k3/+mHLLQ8y5UVp30p7qNTaycLNR/G6BzqIaFQMtL0xjQL ++u6nPn0FoILK9QCVrHRx0gZLWiPiWdIWuuwUUKm4syjbhLEz2lNKu5mI2fN 6pYjtFWWVXZ+8WTj3FBF1XLaZpFWlcILbPT2MpNq6CLBebErMyuHjYvtOh7n aAeFup8/TbHxe9NiqD3t5LlPx/cMstHKVmxJj3Zx4Flb1R9sVJhxz1ak3T6z yuAbh4OEzUoledrvAzLZbcYcvDebvUGB9vJP2iI5Thw8NRAYpkN7vW/1aPAp Dk5PhXfsou357h52JHMw++ricCDtO25Z6VplHMwzyvItpv2uL2E2qpuDBWOJ 6+ZpazlE7+ub5eD+QqkyG/o8Xm2BhVvkFfAPZd1nD2jftfKSiDdSQKYLQ5tL 38/7Bhe3EScF3Ol+JyyFtjbPttYkSAF7RW6HcOj79S4xZyZfV0DRpYhXd2nf 19YP+FChgLdf+HhY0fXYpMTakDmngJ2My+2ZvST4Xpc6P8viYr6syeYDdD2L ZH+8tOFxUXdp+IESXW898eGkpRAunme2sPh0HvzDu6ac0rlYWON+qYDOS8ls 666iai6qNpQYptB50n9XKPLndy4a1LF2xND5M2o7fYIKV0TutZ6sZ6N0PayO t7IzFbG212L8K53figZn1YA6ReTXlbZpvCWBV4I9akuKeC2PUXxtnAST68u3 RZ9RwrMLvyi20/0SJruYOZClhNGrdQN0pkmojZuaMyCVMGlwlUzCJ7qfzMad Poso438VMzHedP8p67avyDFXxsAW3YjjCySoMVKDf2pURrPa/QYE3e+ag9r7 +M0q2JIuXW+tQUFmeJfK6+cqaJxbc0huPQVynIhPC8MqGG6jcGpIkwIRx/bE TaKq6M3fzo/SpqDnkV93ipkqFvU5HR/cQkFMeZnz0XJVvLc4fHHBgoI3l9BD NF8Nt1dHJRyk38tcU/tQk3gNzJvaX/s8mwLe4KBHNWxAdY0C7USNRjB98/5H jKUOslPmNYzvNkLXVc9/Xc9uxv6300VfuE1g6ZZmrBqrh8uSXUzYl5vApCtC 1euiPsZLeOaXfm6CcTdbP48jhvjsrdBCz7oZnt52ZcQd24rn5kqih240g9ei s4qbNQ/3vAgztRtrhivzy/+pVzFByqWhZGh9C3zIn7PZpmqGwdJ7tmcdbwER nle1mQgiZ1fwTPjtFtAICpw/KWaOapoLQW19LXBZ4uW7oWUW6Ob9i6WOTCvY 5/CkN01Z4ERJZchb01YwYJe/uPzREmus53mnT7SC740NvcLBbUhYzYTYJ7dC 61x1NGt0O0YEV3rJ1rfCkby8oYKRHbi3L/bkw9FWOOAW68votELWFdZsrwQf vGfjCpK7duKWZf7+C1p86L0WJT/VYo0OjH6Gxi4+/BPXqf93yS40vfVK1PoY H1wcty3ySnej5OvVt3yj+RC96e63puw96Kgxpbo3iw/CId2bbnm/46PJzm7N Gj7Yj8rOWuTaoL3f16nd3Xwwnn0TuZhoi10njULvfeAD9+PJ3tFde5ExNvZE /GcBPJpwX8lr3Iu32h+nvOAIgHPlYtom4314UdNIMmizAOaUed9/rdyHm4d/ KPy0QwDnK44Fpm+2Q77p83aPPwRww0SDL1tshxx1De5dbwG4tx7Um9HajzKm wq1TkQJ4Mk99Cb61H+VCn4RZXBVAE7siXlLVHsnn+ld9sgXgaa5pJp5mj9Sp BeneEgGk2Ws2/6LggII3G0PXNAvAR8YhpyjdAde3Jw76dQlguuN7RtNqR2xM 3uhoPiKAZVH6f71OdMTi/uvl3Z8FUGf0xs5b2gkt49JOzC4TgmJKS0JqlBMe jjj8wXuVEKSHDO60ixJoHx5x5TZXCHl6yv/5hxBYnm0te1FLCK+1sqViwwgc O6k9UE9bUW0d3owgcHLpyO1vtJPWaOc/iiJwvLyb6bVRCGe+GIWq/03gW+up h3u0hXCgzFapO51AI/nVxTK/0vvxIo8Z1xK4MUi/OlFXCFZ6ohm29QQ+szYs fUQ7Siv66VGSwDT7slwxPSHMsf82TmgmUE/bMCiA9thCitTEEwLtThJP7LYI ob72/oOMl/R6XwtzGQMhzD/UHSkeJOj/R32HFW3D+6VMwWsCXc+0H4ykXZhZ dXZmjECh6d3Dk7SvR7bst5kiULzkNOuxoRA6A61j3KcJTLQrCBQzEsJK38c1 IZ8JvOYQ0s6jHX24QyPvK4EpoV/+yqfdQDgcqJ0j8CLzVtEg7e97ey51LhDY JT01Kb9VCEbWzo3vFgnMTXq1zpa2v/nLr0tLBFITAcQF2v8DM6GY2g== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{None, None}, AxesOrigin->{20., 0}, Method->{}, PlotRange->{{5, 100}, {0, 1}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Automatic}]], "Output", CellChangeTimes->{3.598969105296532*^9, 3.598969408674265*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"solalpha", "[", RowBox[{"0.2", ",", "10", ",", "0.01"}], "]"}]], "Input", CellChangeTimes->{{3.598969491682011*^9, 3.598969491760011*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.8051666107374775`", ",", "0.812807135806596`", ",", "0.14398042284116008`"}], "}"}]], "Output", CellChangeTimes->{3.598969492228012*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"solEditor", "[", RowBox[{"0.2", ",", "10.", ",", "0.01"}], "]"}]], "Input", CellChangeTimes->{{3.598969504614434*^9, 3.5989695142396507`*^9}, 3.6076879564481735`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.9657317749779732`", ",", "2.9788403328219744`", ",", "0.13416876048223`"}], "}"}]], "Output", CellChangeTimes->{{3.5989695057064357`*^9, 3.5989695147388515`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"solEditor", "[", RowBox[{"0.2", ",", "\[Alpha]", ",", "0.01"}], "]"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "5", ",", "100"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.5989691201633587`*^9, 3.5989691208965597`*^9}, 3.598969402325054*^9, 3.607687956454173*^9}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwdzQtUzHkUB/BBiBIVqlFp0KKNHqp5GHNvaelBppr0V7ZsonA0CUU6xVCr h0RCeaZoaxdRLUkPNQmFiFKd0m96TFONsugxxP537zn33PM553vulxUg9tg2 kcFg+NH731UVnjMvemiHjP9nCLrCUn3EXXaYEBRSkPxsENokTasPbGMjI/2d dIXpINRf85+bEMRBvraT/7pRJfDOJIZrizmYFetupT2khOux9xrPh3NQLboj pk2uhMjgmedyYjn45r1hSFKTEhYuL9erzuLgvrrh0w73lBBebGzA6OBg0JEK Z/UDSjCqb5sXTnGxLnqVuOz7AOwc92UFOPNQZ+XzvEXzB8CvePq5KiEPW7Xj hnP1B8Bzf7GmKcVDd93EyzY6A8BXzh2Vb+dhpeR+/6bJAzCz7dWL3cd4GG9g 2tjZ3w+FD9dGHSzn4dRhKRks7ofxQyuaUmxXovJxhlHlpn5IUU0/Uc7i4xTW PzLLnD5wK9K5+mgpH20GklXizD7QCGUWVFnx0ScltavgQh/EdS9trrHno4i1 jOmS0gdR9U6m9b/x8f2ie/tvH+yDoBtxpR2ZfExab+m9aX0fCDwmfpiwYBXq RQolU0YVoMwdc3NcIMCy4i3TKzcpYO6c9BWlSwVY65b+wt9LAYLDHH07KwEu EuZVM9wVkLwxgixGARpcfAXrnBRgOenLXg0/AW7ZJ54xja2AsM1D51+nC5AZ rB6oN0cBw1py2RZtQJO0N7vDGnqBwdtZImAgFqesOXqc6oXRkO1RrmqINmLn yhOiXviYFbCKUkesMfYZSRP2gmyGb/meWYhvO1+zbzv1gpS4VmWbIGq2WlWo cXshPn5Z7XR7xOTKHzu5zF7QaR5qaTxC/797t7KoXQ6mByJUIZPsceb2fR93 iOVwcmq7gkxwwLTyU1eYt3tAlM3TtBh0wAcuhT5kTg/YMu81nxxajZDLrXsZ 1w2hl5a2POtwRJawdeEC3W6oGSuJNej+Bc0Lwtpar3fB1pwckte1Bv2t09aw nLrAJyA+dG7DWsztWfugTdUJu4cT8tLeOqHRtJsxMfmd0HJOojf42Bl9x21b LoV1womEBpvEAhe0sJsv1uB3wuaNjuO8Qlc09yyLqJjSCbEWf45Ks9ah4X52 VHOzDJ4RqysBOevR4tGOzOqbMhB1aw873HBDkVRyLSVOBtxhecx46gY8W1aS ZLlNBkZDIS3dLkKcPXnvLF1HGdT2B2rxqoSYF+wbVLJYBvNSfs+w4Loj1krf 6WvJYMyE9215sTtGX6+/I/5M4Nj9oIgLlh54bSx7ZEM7gUt80yfadz2w4uV7 1bwnBAJrfrX+YuaJFOtqg6yQwHNV5eeDmZ5YdzxpkkcWASnzfpL6AhGaHX17 8NQpAsH2SwRqGSIsWeyfYyghkCFaUj3N0Avr2IOfwsMIiGd5Zedf8MKh1uvn jQMJfHz97aJUZyN+z1i3/ZQ3gQkSm12y1I0oLYjJfupCoIwt99it6Y2tba7i 00DA+Ozj0+kSb1TtIf1WtgQ0ie0fLydSGKD+xjXVjECOtUlTWCSFFqOzd3FY BGRmWRrxURQGN+bVzaRtvPAnvBJNYRLfiCM3IXBG1zy3VkLh3mMJ5mdpH/7M PrQokcIPCT8nfp5PwOfvDfMbL1AYtSzfsMCY7uPFBHFLKSz3E0ayDQmstZ54 cUM53cdha8+iLTGLrd/2iMJslzN3eucRGGMmck9XU2idm62VQbvn61mN/ucU cg7VcMeZBMpLb92+2E7nDba6VxsQUBVZdd3toFCP8KIv07a7Vaj/VEahd753 YQTtvy4/OPKlh0LHNSK+Ge3zMY893QYpbCpSKzmpT6Ahwvl44EcKR/TzrXbQ 1gqtexj5iUJR4PE7DrRjt7w2zRmhMLGkoO6LHoEKysundIxCvxeM4Je0vwnf JTd8pXBzU4hmLm22s2+VYpxC3TZVsYR2mH37yI8fFDrLM0M30/4XzW/J+A== "]], LineBox[CompressedData[" 1:eJwdz3tUzAkUB/BRIUnESmWl1+hBeqCmMebeisgj6flTJJEs20OhIjJzhApR bSHWazLebCo9pEwlGjE96EHpN001Mz0mq4aibX+795x77vmc7x/fc42CIzxD VGg0WiC1/937nDDX9532SPt/BkESle4fIbHHMwkd0dbjCmjjNrnEhjig5RRz IyGhANGNbTrJoQxkyMfzBywGgJmRclA7goHq7JG4HKMByEl8+uHCQQZKY9YL dugNwKHd07P4iQzMD9pfolQfAJPFZXOqbjKwfMZPzwPSfjhYZKBH62DgEF+6 pfZ2P8wTtc09SDjivdDMvAeL+2HPWIBRsBsT/2l8BUc29EFgkUZWhQcTA8S6 HKVrH3gdKNKkE0yc/KjV9AD2Aatf53vPLiY28z4f5i7pg+ltdW/DjjPxl6hB wSe9Psh7tjo+royJboa3+ck9vTB2eEnTuWXL8XLG42HeiV44N6pxpsyIhW8M S6Pz6uXgnj/z2gsLFtZu/0STvpHD1Ej9JxW2LBzZGrLLsFoOJ7osWqqdWMhI GuVdLZFDvGgNXbSdhdleVZubeHIIvXWitOM6C73Xdk0yi5UD21NlYILxCpzY Ua9laiyH/jsj7iuN2Vj517z4VK4MdGZfXFJqwcZP7oECk6MyYB9j6NrbsnHS USGUxMngrG8MaYZULshu+BopAxvV4eipgWw8L/wxOWWbDKK2DF6ov8hGNf1N 39xXyECp1SMO0gZ8aJ2/TveHFGjMPSVsGuJQfV2lToIUvofvil+nhvj+XdXb mYel8OVm8ApCHVG1YHaDdowUxNMCyvbNQOw36n2uGyGFSnJdBc8QsZZjXue2 TQpJSVZCDSfE8q25m+1RCjNbBls/cBBDy58do6tJgR4bMxqu6oQ2TIOJwvQe SJ3cLiMnOKPq6JGM83Xd4M1jalornDEtlHOj2L4bluk/bUkddMGsNj+29q0u iLxi0VrTsRJN9uu6q9t2QfVISaJe1yrUHyqP+U0ggR18PnlX4orjbmo1sTsk 4B+cFKnTsBr/3mdlZzlbAmHK5Lt/vF+DicVhyrLXndCaxZ2jeOmG0QF65srk TjiT3LA05clapLW/90n16oQtvivHmHnrsFxj0DVsXickWt/7XnlzPSoMfLNq FGKoIW2vBvM34HhssOl3gRi8u7SVzrfcsWi3Q+OsbDE4KnsSxtI3YrgNrU4v TgzzBsNbu9Z6oMtwwLdAPzEIe3dqMSs8sNruQE48Uwxzz528ZO24CY/GeLts NhTDiCHz5+KiTUi8dri9cJIYjheGxmTbeKJlblBBpoKEKyz6K+1cT3zO19SW N5Ows3qr3bClF+6VbWlcVUVC7ahgKO66F2o9cO7yeEJCpX7haXVjb/xY/0+9 +XUSdjuZs9UueaO7/pl3fudJuORtXjXlVx+0El0r8OSQEDHDh/c42wdZrKDh a1EkfKn/eblypi+mtc3vrwghYQJ36V5xui8KnHDFHYKE5w49nmGafugcmCsy 20CCQebLtItcP2yj2W/jOJOgSS67/U6FwEeC4o8XHUjg2xk2RR0icMJnw+wx KxLEljenJsUT+Ds9sL2BsoHJArx6lECLFv7Cu5QzZi26I+QSKGR5SXwpHxty OGyaQmCb9YPax4tI8C/YOP9DNoGu9NNHdi2k+pgJoY6lBJJNNstbzElYbady eWMZgTlKXtFjylzLRFHICwKLSkudTlEe0U9xTKsikJcjCneg3P0jc2pvLYFe QhNWphkJZaUPH11up/pMK675LCBhNN9WkttBoFndlEIryvYP83RfiwlcBBXN Eynf/7OYM9xNYMYsrn0BnYQLCS+93BUENta0BM+h3BDjdmrnFwKn3QmqUpiS oBX55tmhrwQai5xsX1FODKqn879R/zROosdRLid8/EtHCKTfkNzfRPmnR/PZ hh8Eci7NYFtSdnALqJCNEdhSeLJZhXKUU/u38XECB0Zc4z+akPAvZOjS2g== "]], LineBox[CompressedData[" 1:eJwVzXs81IkexvFJu1GpkLvE0IRZm0wos/h+lc6unHJp8Is2mtxWtcnKdU/s nFXKrVIUkVprctmINjVmmMGYS6zccmkryuVEJaXJYNg5fzyv5/X+60NmnvAJ VSGRSCeU+/8//58Ri0TSxlwnT9XiEQ7Mh5WHPzHWxvBNB/JmZjigP7pjb+U3 2mhkndSy9ct68Bn21SfitJERVf8xmFIPooHsO1XvtHGcM8Jkh9RDtXT500PP dDCKmpe79LweWJWT23gcPcyk/Z2xt4ULN6iJBjn9eqjVwHFe1sUF7m21pQiZ HnoZ9iluveCCrIQi1abpY0XXKs+7c1w4WhgUfKxMH5PT/bIVNjxgZHVnGF01 wPx0U96pPB5YRNWPJpwyQp2zY7v6Ahog4vUf2HXFCEVBZFp2eAPcZhYXUO8b of/p3erbYxqA6pvq/VRmhMXmtpr+mQ1gTffkOcVvwKhjCyZ/NzQA7YtXl5cS jfH0N/7r9EwawenqKrfUFBOkzN8TmPU2ws+aiqJnxSbomr/XUGeoEXjnp+T2 AhM8aOmmMT/RCDdcJvw/kkzR5XGxoTeJD6a2HWtKXE2RfbtJUaXDB3Pdawlf NpuivNC51g/4YDlk7S0WkrFk32fWxSw+FP2nl/yyh4zEryYCtRw+aBud/jD/ iow5GwMfJuXxgeTXkWOjYoayjH0zjGI+9D86+STXxQxZnQy/3rt8SKu7Hxha Z4ZH45fY63v4MJ6FYSpl5pj5YmNwjY4ASp0ZSU4ZFOTmZ/IqswSwNUolblUB BT0mjnjZXBIA51Z1dH8ZBQ9raOlWXRFAh+qayBgRBRljQe6l1wUw2ykkKlU2 460eFc5P5QLwCNvusCFhMyZT0xSZQgG8zzKcng+1wNm3FbH9cgHQh4bC6sEK V37sPRUT2AR+Gq6FUk8rtBMeWFt4qAmi8Wb3QJAVtvr07Wo+3ATlxYdxNtkK 1eMsLqlFNIHh4ZcG9nwrnJDVaMbFNMH88Ku2O0hFPdmSw1hGE3BfjdFuuX6F g+1jT025TeA8/mYxbdfX+OyQl2OudjP0Xoy4G/TLVmy36ouOZzfDLma+o9k5 GrbT1FLX27aAU+9ps8izdqjVy1clsVtggul5MuyIA46v0CgtVxPC41tBuufD d+AWAzuf9HAhRCoCyUx3Ol47lRMbVyeEC3OrMhvJTliRFf9wZlEIb8vk+9zM XDDsrwdV07tbgUSPrHchIea7EOr9rFagxMfN/bjcFb+fHextb2yFbNXnr4eX 7US6jL3H+nMrMEro6jZTOzFrkRPjbiECe8O6gez3uzBFqLp5HSGCqEKrQemQ G648wPOpY4lAJK9PNRjdjRdOKIrM74jgCJs9XD7yLzQ+sTF7xxMRBDDPRel2 f4u1O80PZspFcFx2vvxK73doHLTi/WNjMQzmsfSmWt2RHZtr/MZZDJnnu+3S a/dg2IWT8SOBYjjo56ag3/PAWpOqz4OJYki1qZht+e3fyFZN9IjIFYN02PYG k70XmdsYlMkaMTBGNWU7S/fh8biezb+3i8FRNp6syPHE6IbStjOjYjB+/+Pg 6B4v/C58x4uDi2J4NBmylt7shR8sZnsKtSVgdOFsvo2jN3ZWWgwWWklAbkpf 2PLQGwvV1vplgAR+fRAeV7DVBzf8t7zVdb8ECp0oYs0aHyxxSRseCJdAiOh7 2ifqfnwnjPQLS5RA+1zTTMLN/Vg1vj9tPl0CLYYPMtTMGMjpyl1ztEgCEa6W Ll/kM/D34EM71lVJIJ9hKVy5wRfLDpgOs/gSOKHhW1Jd4IspA6Ypup0SmO5a uN6i5YdDy9tCtYcksIxld/Rljh92fPB/2z8lgYbt4z7H1f2R+NpuhLwogY25 rZeusfzxT+762MbVUlAftr/doULgm8WaaUNDKbBppn3RiQTqytMvki2k8JL6 2+pzPxMYUB00HaD0RvPNeOM0gXCMueey0pfXW5c9YhH4xw9z4ysspZAysz1p UzqB3Ir8zkmlA+57mjwpIPBmVlvQPaqyR08Od+QRaPbsyEncIoVvaSrXPRsJ rH53Xx6vNIua+jhUQGCHWkjSXaXlhumOl4QEkos6I81spDA2n7t6sl3Z+8pk bvlWKTTy7lRdf07gppyyp0JbKcz9aTtSM0TgXCt9TqG0w517+pKXBJrL6FoO NClUFnF++TRGIDM2c0up0leTW/fvmyJwxPGG/pltUuiOc08LmSbQ8UybSoPS a6PauIkfCQzb9NPYJ6VTg7so7M8EViTa5ofaSYFP+Abw5AQatHhEFiq94NWf 1T1PIIk1sq1X6e3ugc2vFQRSFxZk6vZSiHZ9/nlpicDFhNxaN6X/AQGVTpw= "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{None, None}, AxesOrigin->{20., 0}, Method->{}, PlotRange->{{5, 100}, {0, 1}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Automatic}]], "Output", CellChangeTimes->{3.5989691213957605`*^9, 3.5989694027150545`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"solEditor", "[", RowBox[{"0.2", ",", "\[Alpha]", ",", "0.01"}], "]"}], "-", RowBox[{"solalpha", "[", RowBox[{"0.1", ",", "\[Alpha]", ",", "0.01"}], "]"}]}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "5", ",", "100"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.5989692025657034`*^9, 3.598969227697347*^9}, 3.598969394930641*^9, 3.6076879564601736`*^9}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwdjgs41AkXxrFaYta1sluUKGErYwwxpjlnYnOpJNe/2mQnybIkWqxEbEKt S7n7q1zKJZI2KUpuJZFtcsklwwymESW1lFvZ+b7zPOc5z/v83vOes55zzOGI lISERIq4/zc3TRf5c09tRYn/1xScWDZE3aBtgP0XeJOONybBK91fbj3NAEW8 0oaVyZNAbPo6osE2wI9xPydLBk2CuY1GhtohA5xXogiczSZBKuHAFznSAN1C r1aNPXkH1nJvR0OXU7GlKLHxxNu30H3B+9ahKCo27cgfNd43Aavc4u9HxFMx M9XeO8dkAgjN648vXaCilfDUv3rqEzBQPtH3Ko+Ky0wW398TjcNwm78U0UhF uYS9rpdPj8PUst8d7b8xRJGdV6dV9RughEXNYIwhzi5YKoPlGNix85cOJRii xkJ27dKWMUiWbVoemWaIO5KqfhxSGwPVDOm1tdcM8cRZqu/chAhWV8buNGs2 RK7tvGdamgh0JxMyDGVoOCyZacucfA0WnGwzrXgaFsinLQpvC0Fhervbmgs0 JK3O/nM8Twj9MYLQFVk0VFtItVuZJITAEt1735bQ8FxowN18HyHkT1WZTLTQ kNJ5qbNDSwhSkZ1GlbJGKEUURnlljEI9Sdm6M84I42y/V3ZPHoG/tlTsgWQj 9Nlpb5dxegSIOkc/00wjDJlWbxwJGIGp4ewy/WIj1KEtcO/sG4F1+no/KrYY YX6rPs18xQhE3PtJt1eGjs6acYsVOcPA7I7Q8omlYz3F1+JMjQCC1GpU+xPp eGVv5aPuGwK47jYjbZtOR76G8iI9TwBqg74ivWt0VFVfx1KPE8DH10TZm0Y6 elh9njzvIoDiWZrJr1/pWP1nwrGhGT6oqotsvH83xpu9TQu92/lg665l3htu jFJdjZG1ND6czj242fqMMVJtJKJubOLD5IYuBd0UYwwa+nj/pjIfWrY0dIoq jNHuRlJt8LMhiADy4NG3xrjbJ07hkdYQjHP2Hvc6bII7FgulFYd4MF4wshTs a4KWCrKGvU958GY0JDE2yASTHQ7r36vkwZhXbmnxnyZIp6VJPjjHA5HPB+F4 gQlmxvnVPt/Gg9HAlP3HRsX7pW4SlPQB4EX3WIQe2Yb95j0HZTivgJt/aNW5 o6YovbxZQYfWB4zU88HKx0wxe1WlT69WH1yLufsyM9gU6fvP8jJV+yDMWzGj KMYUueMPGy1mekF7a53a4wJTdNmQcQOqeyG4eu0PEnxTnI5a6dNg0QsaXN6a YMIMf3vheyec0wM+Xw6s59gw0Gd8ZcTlpm5wr5bLaLJn4IMydW3ybjc4/l5N 2Ugw0KlwRV9eaTcw362aFXkxkH9eaNue0g2KvBf/+J1h4KcjHQqkZzdUPrAK /6OOgdJpzGRZ2W74ctKoJ9nYHAvvZMGwcxckz8sl1K1nYpfiQ6Ug+U6wu6OS 26DHxMFjjsRziU6QD1h9u8mQiRUX5UronzrgrFCv7wmbidPMWeZqQQeEc603 cn9hIp9armp/twOOFp6t5ecxMVy5/MXBIx3AcpCalNTajjq7ppYePnkB70rm 7Cy1WLh7k3dJWQEXVq3MMqrVYyFjfEE7g+QC67Tp9yaGLBxdysqKTeFCokuI YBOyMFvjoHvYn1ygfjMTJO/OwrPXf7teeJgLgT9PZXZksfDrr0FWKzdy4ZOC aNhDGfC3xs1FVsRzkGD43GdJINYfX+PUmtIOs/5e4bukET04sb/oxLTDhwLO dkIWcXegbHhCcDsMf3eg7riSWIc/Kw13a4dHgl1NVzURuyrmG3jr2iE+fkub HBsxLrPZIa/8Gaj0TfW/jEKcTjm3XNjZBhtDQ+b9v2HjlA8wwLwVOCrGzd4y bMxR3iNpbdAKuWUfL3Dk2aj5mbfWTbsV1AV+ei6qbOxNimelyreCiq0nsV2b jamfv5r6DTwFCfV9VfIWbOwi5SILIp9Cf51+YHE0Gy2fldMn21ogSWbwjUBy B26efZd/KuwJOF1lUAze78BnoqgswvYxGK++25c0ZYGjmjffp2ITBFzS62/l W+Ko2mufKrIBnszdj/lB+BMGmOlKqirWw+GiIsH10Z2olP4ungiphf2c+IBV nVaYWeHMlLe5D36fzl1P67ZGzbHHewao1dCfEa32vtkGPfy0BRVBdyHhXCf9 /G1b1D01lPB24g787GL5hVG5C6m7zD/o+FdCjEHp7KOC3RhAtKn/uOU2tAoM r3CK9qBuz4X52o+3wEmo/GlHoR2Gzsq+K35VAWafRJFfUvYiNbVlbAPvJmhM +fcLbe3R/u+jPZdkyqFtwlOB0STWS5GnLgaXwZrk2GwDs32Ig4et4yilMKfJ WNxavQ8DTMdPvMwvgTP3joaQVAf0mPeUJH2L4RJzY4vy3w5o3zrgOmhUBJ5P DtJm9B1Rs9GoJkKnENrnG6f/yHNELvfVQDv1Gjxafe8vWS0nVGKLGudMr4I3 W5clne2EFUlr15C/FEC2k+7j5erOyO8i/lmMzYdjSs5XK0hntPeMDOXV58GH jsWcRyouyA3czJtRyQPJaLrvcIpYHwqzNuHkwsNtIgc/iit6UKKqmhOvwNr0 5otZ0a7I72EWtQRcBorAuPi5FIG55UHsvN2XoIim2RMYRiBfkTVQsysHhvUL 5OPDCTztJentYZUDa7V18EqE2B88ISdjkQOpqptL2qLFnKhJdWXkwOnpbSc3 nBfzubkby/RyYH/V3nUvSTEvMLuW9m0OUBiRR81qCdRUS9CMbiTBiiaVs7dO zN3ZPJuHJETrx3CPNIh1H3lNpYaEudXnzS4+JhC9ea5Ft0h4vZAuP9Eu/k/m hSkvl4S62vKbOYNifll4OSyShPk7hqN/8wn0UHV563CSBJPyyu+fDov/SRTC 5hASyi7XRM28Fu93S88K/EnIjGx2tHsvvmfdlO/mTkJniE2c5wex/2KJGmM/ CQoBzx6E/SvO/24uaY0LCTEeHRuLPou588l4wR4S6gnn/bVzYu4uJddsQ8Ki fW9i54I4j0L+VfoTCdtsDjS9+SK+9/K90kU2CYHswc9LSwTWu5am/7GdhP8A qWdRHQ== "]], LineBox[CompressedData[" 1:eJwdUgk0FIgblw4ZYmMdITl3sRYzGEzyfYPKsdXkaqQiV6JyVIjWtc1aisjN zDZF6VCpCLV25Eo02+yMKWyswThS6JArf//5/7/3vve9773f9b736QZGeoRI S0lJ5Un6fzM06rHvRIEZSv2/ZuDU2n8tDPTNcXLXhmcd/VMQWniCoEsyR+qx j5yYpimgf/+f4c1Uc/ScZHXtKJ+Cra6bi9T8zVHT5VhfxNEpkM7yWyaUmeNc RYDdlbn34EJ4NxIva4Gl7A3RsZrvQZgbdt8/1QKP9a5K7k2aBFXfjCdJGRao au64xjh4Eug6t9pYuRYYfjCv8rLrJLy5O9n7zxULtFc4r7ZKZRKGuk5I05st 8KIbIfLCnbcws/a0J201EbVa/uhmiCdAPiF1FhlELPbotjONHIfd1Ksr/llE dJZKTeqhj0PO+hbZ5AIifkgRFpU7joNy0RrtxmtE7FtaCSlQHQeNmvQddu1E rAjZ5yfijIHRVFYRUYaEc2UTpZNqY+AUWGqnl0FCwoMDo2FvxKDweZuvZi4J v6Y/5w89F0MfQxT/bQkJbZ7Xnj1VJ4aYm0b1626SUJCqf2TgkhiuzjwiT3aQ cHj+/tYONzFIJwssa9ZbYrHMP9r8P0egqUzebMdvluhUXX+76dEwXPixehfk WKLigf6uievDQOd4HrcttsQlXqP5d0XDMDNUWmVywxLjP81v74kbhi0mxj8o dliiFW+Zpk0ZhqT67UY9Mlbo3/6Fq9Y8BPbCJL3wdCsMquvOXhoQwUm1x8p9 2VaYaOZ5GvgiuOU7u8at0Ap1wpo1c9tEoDYQMWZ8zQo3uAX6HqwSwcdRetVE sxUySiZPFyWI4MY8iXz0P1ZYeU+5KHWTCJS1xlzDTlujSsOE072AQXA7pLe1 56w1mqmRvdO9ByGFfdDU5Zw1FlcEvwt3G4Qpg24FozxrFAqljntZDULHj08F Y9XWqBywZ9W99YOQBGUHj7yzRq9DmVvfhv4LbwP3RIcGkZF200mFozsAb8uH V2IjyPj7Jbu4SPkBmBiJy04/SUae/oZ68lw/jIeyb9/4hYzh+lmestx+GAv/ IH5bTkYNflDEkzP9MBKTtz9yhIxuDy6U27x+A/1pr53iQ2ww/HFqEOfKP8C7 6q+aecQW36kXaRtG9gIl/3zsxkhbDJ46vbrVvxeuMepeFcfaYn2Es1w0rRcS whSLKhm26BEc4TBL7AV9M45aW7ktUi62elbM9kBsg/YmqUFbDAsJKsxO7oHN vH7NWLodevEZR/VZryF82U830JWC58yLFdW/CuFQA6GohUZBr3ny9jUzQvA8 3SBvSKeg1mtCweKwEOzfq86PhVJwXhZ91r4QgmL/338dP0fBY3++/O4SUwg1 f+w8e4ZDwZ/0dsQkgxCWEy1f51hvxSH96O3+F7ohZ5GQxdG1R+dP+poqKIDd tUrsp8b2eIwe0X3YWgByURoPW4j2WK/x+HKdiQB+FRv3PqPaY1jGUackFQGc 5bkY8g7bo9mcRnnsJB+OXP+1cfCKPdpPJyrJlfDBwUN6apXeNiTdM5xOXvwb 3t9c2O2s54A+376squrmgapKiWWjsQOm5LF/yXzBA4cUW3Uy0QErNDv9TrTy INsnTvQ9OuCbzIT5nTU8sFg9e1LukAPeirEHx3wexByYKeaXOGBO99qFXd48 +KIwNhSwEVDeg5BArnsJUpTwJw5SiPPd+/ReTXNh/kToWfc1iKahHyc2ibjw oTxwG3094imZlc4wPheGNvhxor+R4LO6qr6v5UKryL2lQgfxjbirwSiRCxkZ P3YRqIhGlG2JZrJcUOqd6XuVinjMXf7wiukLMIyPWzyxmoqfeUm0gtxOCFSy bg+ToeKpn9bJZjA6gV31MTdQjoqt6ou6jDOdoCU6buyjTMXgzwSfwsOdoOQW TN+mL9n7ZKY1SZ0gpbX3kZwTFeXdDZzudD+HPo5JzI00KgZ0VJjUbnkOF2UG JkSrHLHVZffn3q5n4FVBkTefdsRvCUGFmUVtYK1R13txxgkN3DXSH2a0QBTL uK9z0BnX31GoCxQ9hWcLTxibxNuxdUkh23dvEwRVVopujexAmoGi4O/ZRtgf mBGlKtiJdFaADK35CRz/knmrQOiCRtHN96cqGqCvKE1tut0V1WsHQl2G6yAr U2B1/qEbFmelH47c9wgO+DgvU2rcMb6N73lBWAMM89vzreU/ofq1TvHXnIfQ KSJeDqzchb89sWZ98HgAXuKNXxyv78aUnSqC87b3we7LWPJy3h60JbTez3ap hs0zJ/rEbjSsTi3hVNXeha7JYAVKCw1po0mDkVvugGZOeqm53V6slv3rfUH1 bVjQoXw1a9iL7KtE8iz1FpyrPxJXZuGBOvWWhv7rbgLL3rBj4wMPbDJ/qmXS WQnBzw6SZk088RsuMUxYfx24i82fz1zxRPai+OeTnGvQqlF/Yb2eFw7amvny WiogjGrksKbUC2kKw/6KE+VQ6mXUJqvljRh4N/OjXDlEfuNdUV3mjSm3M+5l U6/CB/5XZquSD2LH3qTGnCuwKs0qYijPB1MS24fn37DhT5sxj+Py+yQP5hB5 EtigXdh+qSRtH+oIWfVCv8sgL7K+8VKajmz2o9xQ0u9QSdJ5HZNARynMa2sz ZcGQSblcxlk6poyKL/sYsUBb/zu8nCTZexfyx/VZkK9serMrjY4BaeNcRU0W pHy2STQ4T8cmzs9REbIs2P9oz5ZXZRJ9m4+G+0aZIE9JPmLXSEf8N6ptmc2E nSRp5h6OxO8uON5nMiHNhMELeSrha5H+CilmwoLGebtLbRL8TnUl/kUmjC4V yk1y6TiooIh1SUzgNN69xxyQ5KlyH314gAmLtcSRB4MSPQOnH+LpTCDfrVF/ PiTxn+44s82LCVW/P06dHZXoOW8hdbkzoTi53XP3NB11jA+u+0RhgiDO9bfg DxJ8umk2h8wEhagXfyR8kvhFc7WySExgBPANK+ckfBujXT+YMKGJ7r2/cUHC z7eaWjJkwldaT7ZgSZI/uS6fq8sEG1e/lollyX3y9yN7MxNiqANzKysSvZxn Myc3MeG/biBG/g== "]], LineBox[CompressedData[" 1:eJwV1Hk4Vd0XB/CT6lVSSsZrutc8z4TQEpUhhGso4ZIpUjIrwyVESYYUUQlN Xm9pHqSlhEQlJAoZk5Qo/Ej47f44z3k+z3etPZy9n8PwOmDvw0FR1Ch5/r57 vogkUhQfcD9hzLKmSnDOt8yvXYwPii3Y68selaDQkJ51+UY+4NJrl5xil6B9 n6OQSyQfhImPNkavLcH6zpPXb4zxwXkhid/FBsU46Cx+KpmbH5j7+jVYnMXI 0V4e7arID0nDgo8n2y6iYUuDGacvP5R5vpLNCrmIFS+XfnTv5gd/mslbkftF +Mo8u1p7jh9kp5XlBI8V4dc6+mUuYQHgrb1RXO9WhNI1RgfvMQWA9lFjuT5n EeZXRnKuaRKA1NMSNr9qzmNi+ahW1SNBMKyuO6fnX4gXFA8J53QIwsyKkJxy RiE+vrpi0X9aEFhSnl6yXQU4XSrzkk9TCAxv+LEFmQUYeM6Dte+aEIg++7mw 1/YsMjNa00XyhEG+z1vjz4E8PMjtFTJxVxgKjW/mXN+QhxnHxp3rW4VBur12 SJLKw4aU1VKhPDSYrEk5aZpzBo3jtz18mUKDYOlVZSuenUa54Mqh6HAR0N7j mDRrnIv+I/9BS64I/Fnt55y4OhevehUVKN4Tga6aUYf7XadQ0THZ7uO0CAi1 5QUKx55CZQPbKsMoUVjrKO4YWJuDmssGTi0eEgP59tbMwYPZGBL77odzgRgE 92zr6bHIxtvT9ZYVlWKQzjm/3FUyG7VHyinPP2Lw/O079ea2LNzwOmLfs1hx 2J68NiN0UxYa5nGZJbMlIOzH4ZHvCpkYs27+fHeRBEgr2asLrszEqmM/ZnWe SgCrrivO/O1JvGD81fkXRYfMNJuhOruTSNd4s7rUhA5U98Q/ea4ZKCWQH728 hg47Jj0ZQpnp+Nye94pGK8kTZySO7UxH75PH29wG6NDcbLRwRiodS1fEqd1b ygAWrUE67uFxlJ3zGvI1Y0D11J95nW/HUL5X2e5FLQPoLcynRwLT8HzsO0Z/ GwPWird0PoQ05BOJ+zk3wICiBd7HrgJpSDm9yVHjkITg+6Gbup+lYkfjwfbT xpLQW6yufpOeiqn377n63JcEOtN8IXYsBReYHsrxdZJQURV5orUhBcN+cs7n vZOEor1Lu9iXUpClsvN80y9JGDd2ce9xS0G9krleLXUpCI7hiTrakozDGeDL cU0K2JVGsrdfJuFu5RFd0QdSUH0n4j+uf5OwpSGLU7deCsaXdO8uO56ET5YN XN07ROrZu5ueWCfh6UPJo80MaaBn8jRIvzuCW31fBl84Kw2s1fojOuOJeNmI edgwXQYqbHz+xNsnoHowRyRXgQywF7ckDhok4KPiipCOazLQuxClHS2VgG84 VweE1ctA9V4vPo0pNs68rXUp55AFFn/Up6azbLTy3aArGi0LRftZD3O74nE8 gzYx5yMH7NtPGegbi4eevvjWECYHrNyV8W0msbhsMuLLmSNyADyLW9XEYlF4 Z+snrYty0Ftt5HWrLQY3S6W/Duwi/Tx/LLq2xmDu/fl/P9rLAyQtSdXYcBgN ent9KzcpAMs05UO7aTQ6rTU599JWAehRbjt+SkVjCFxs7fRQgOrsPzyWy6Kx rMgTZuIVgO3exFNeG4U0z35hnWoFALfuMQWrKJzrG2i6DorA3tbYnMWKxMcD nzWLTZQAQm/tOn4zHDvWb9t7004JihJjHyjmheOk6ZUL1Z5KUJ37Kn06LhyV S/24PyUoARW+f26ddTgWen8ZEnlG/Opz//bRMIwZGsnL3awMUOG5Pk4tDI2G vy2kmqpA0fDWXLe2EFSNiulItlcBupzaBp2nIUhfyX0r0VMF4HUMt+L1EFym pOQTE68CvRMd3gGpIfhy/97GA5UqwIbZ8E3GIegyPXTGSUsVepty9LluHMSw 5Z/UpaXUgJrmTblXEoy+p/dzMTTVoHfwvH5TTjC6yC0MiJmQvPR95cyRYNxo IXZG0EMNig5fisv1DkaOE67zXAVqAPyRzE7ZYDTn+jYYtVId2DqWkU3uB/Bd lv9NjwR1qK65kcJzIQgFdqZVxqWpA7W0QEs4MQhd6GW157KIj5hZW/sEYdf1 0c6PF9UBJK7EaCkHYX/jfg6XZyRP4Rofq9yH48vDHXYs1QCQd3zW3R+I3IcS piBZA6iTl88Vbg9AG5PiRY8TGlBd333JUzsAM1fUrIzPJTnPR7q5aACuP7NM vOoS6T/SEB31bS/S7hzdql9H6q386ayMvSg/duKMBqcmVPM82izU4Y+mXmf1 JdM0gToh9O6/BD9cM2m0UyRLE2BL+M6cID/8kNwXxZdP8kXli9k7/TDkmvyD f66R/JFKY7eGHxaP39MdfUFyiU1vLw74Ikd8q9adFVpQrfuY67GVL1YXcKtu TdUCyrTnloyKD6arVFhvyiQeHFwzJeKDLugQpJenRe6XDLOTywfH+8+WK17V AvZGwfW9X7xRQlFBiecFGY/r65P+S94Y92CLfAenNrBFa48WSXmj4bs4yYCj xOeb9sqr7MFQwUfrP2QQM29EO0nswbKdU8ssT2sDqIlG5qzbg4I9gcMKl0j+ 6+2g/rQX/vzsUj7yTBuoG5Ubdau98OqMpu7eBZI/V2v54OSF60WHLfzDdQCM Ch5YZniipbvkxo4Y4p8m59QSPZFd5KZsnqQDlNia5YwITxyTblsjn0PyY9uF Fdw98YXK09bhCpJ3b41uUvXEuE0Fbn7fdKC6zbrQroWFX71sD/ru0QX2oQeq wwzikoHFiEBimrePswALRwYjM46G6gIImnC2cbHwi2/Rv1eP6JLz0D8+OOyB wwETQ19LiMUhJeGEBw6G5Ow6MEjMnr+h0u2O3YnvTaN8NgB7y1fVfSfcsLnY Q+CYnx6wFcdRWMkVDU4dj1h3gHhy7bpAmiteSr7fnhehB9SCelXjSlc85M9z 5koysbrBx0dfdqGUKgrWlpD6aVNZmyu7MOKhuDDVS/L+Ql59uV0o1twtEuGi D+xN13Mva+zEgHlXhpeFAbA7b4btCXJG94dcZ2p2EE/VjliynNEh/CG3jAvx Em8XIwdnNPwuMDPsawCUstXEZn1n5Ol++zooiTiq88mb5c545/G2mGgkDmX4 DxU54fxhrfeZOhuB4g3SutnjiJm/uU4gwxDYq4alYiOYaHOXt+ipAvHmaeHB ACauCqbdrtEwBMr1xlemBxNThhQ6602IgzN/OJgzMabZXKbZk3jpKfs6GhP9 LqdU9V4k/SXS3KFPHdDYnmNsiaQRUPZddSX8Dvj92qyNmaQxsFdeaLB8b4cC /PlaVQrE6pkqh1/boTFbT0hXwxiom1cFb9XaYYZTZJ8cEEfkeWvdsUP1pVOh q9xJ/R0FtSNZdhiyezyvJZ+Yrb7G3toOp9cM97PWbQL2LuG7iQ07kDIIqDSm AKiEVYyRS7Y4s983xmoZcT3fxGSuLU6UeBm5rCBObn3DnWKL/atd8eBa4u0/ Ulm+tvi8z6qmlE6cvSf/tJwtpqWpNHKZEF8y7tcst0HezvEP7QnEFsZxXVXW KBMV+Xv/UhOg6tToJdR29OLVqfPnJH7gN5v/ywqLyn9mea0iPvxxNP+zFYr2 BSk4rSeeufz7TpMV8lqSc5Uidt/yzinfCilRu3urTImrByw2a1vhB1QMuZpI HH8nhB1siSc5e0b6lmwGSj7Sc4ayQGapAbfaD2K3uwvLL2xFHdr9zpPjpkAZ Jv3k8zPD4HMKH172mgFlO7ZB/txmrJ+tTBYe2gLU2MrHjd8B91y50lc2uBUo 3472J7PGuMsrLVigdRtQTWe/aRUYYtD0sbLcd+bkvpm9X+ZogB/OJAr+qLMA avem4z8P6uGJY63ax29bAnWd0cXXoIu7nczmDe5YAVWWVG+vpIPJav/OPC/Z Tva38ev1N1r4sk/jgtcVa6BaIha9Dmsic2jd9ObLNkC9/rUl21oD9aeH4+dz bMn3ZDHcrNVRbHz/hyHLHUDpzT18dEEVG0e91xjUED8+b8/5QxlFMo+eVdO3 A6pjzOiBvxLO0g3+qD4k3h5QIzKggEkP/CIL1O2Bqvh6WfqUPJ4zlHmx7hZx V27omJkcete7aU4pOgCV2hWbJiWLr34/m4y+SHzK+vNbERl8TnuQvkKSCZTo iqg1vNLobyJvvOwscRgzzF5JCs8y5WtXijqS/4meqv9mSTyw1rG0ooC4sL0x IYiBEy1/Cp/zOgGVvi3u6W06LknUDuzPIRay5bQfk8AnG4btg7idgXIZ1jQt FUfx03XZ+Yl/vdr3UagYcvfpXH3D4QIU/HKdNhTFK5r09yGHiFc4fp9XEsF+ xZJVaTHErEkfdzkRFJeShQtxxFHnuKslRfDUeuVrjYnEXw72pwiLIHtyw2Hp 43/rJ0olOUVw1z1bifYC4goz5ex+GnIbxPvpVxGbdyTZnKXhNk2OQlv8O1/n 79ZcGiYqJjf7PCV2cc/elUXDWdpx/exa4tRg6cBUGn6eO71q9BWxPP/L/Aga YtX1G4U9xP7f65QdaPj7rsbgrd6/9Z/kntvQUPf6HaGGfuJeu9LdljQsP/8o Yerz3/1uHMs0oWFefJ2DzQ9iqqHyH3UatkZapHpPEDd7jV1WouGa4KbHh379 HS9N31yOhsmsFpkr//u7Pk6hDHEaVrs47qqaJQ4uKdOk0fDPjo6M1jniq07M Dn4abrBwrRmZ/zt/DV/8OhqGmPT8b3GRmJ4xKruahv8HrLe6fg== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{None, None}, AxesOrigin->{20., 0}, Method->{}, PlotRange->{{5, 100}, {-1, 1}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Automatic}]], "Output", CellChangeTimes->{{3.5989692091645145`*^9, 3.5989692282589483`*^9}, 3.598969395554642*^9}] }, Open ]], Cell["\<\ Editor' s approximation performs less well than our best \ \>", "Text", CellChangeTimes->{{3.5989695299644785`*^9, 3.598969554097721*^9}, { 3.6076879824026575`*^9, 3.60768799241823*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"solalphSal", "[", RowBox[{"s_", ",", "\[Alpha]_", ",", "m_"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "2."], "+", FractionBox["s", RowBox[{"4", " ", "m", " ", "\[Alpha]"}]], "-", RowBox[{ FractionBox[ RowBox[{"s", RowBox[{"(", RowBox[{ RowBox[{ SqrtBox["\[Alpha]"], RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", "m"}]}], ")"}]}], "+", RowBox[{"6", "m"}], "-", "2"}], ")"}]}], RowBox[{"4", "m", RowBox[{"(", RowBox[{ RowBox[{"2", "m", SqrtBox["\[Alpha]"]}], "-", RowBox[{"2", "m"}], "+", "1"}], ")"}]}]], SuperscriptBox[ RowBox[{"(", FractionBox["1", "\[Alpha]"], ")"}], RowBox[{"3", "/", "2"}]]}]}], ",", RowBox[{ FractionBox["1", "2."], "+", FractionBox["s", RowBox[{"4", " ", "m", " ", "\[Alpha]"}]], "-", RowBox[{ FractionBox[ RowBox[{"s", RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "m"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SqrtBox["\[Alpha]"], RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", "m"}]}], ")"}]}], "+", RowBox[{"6", "m"}], "-", "2"}], ")"}]}], RowBox[{"4", "m", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "m"}]}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"2", "m", SqrtBox["\[Alpha]"]}], "-", RowBox[{"2", "m"}], "+", "1"}], ")"}]}]], SuperscriptBox[ RowBox[{"(", FractionBox["1", "\[Alpha]"], ")"}], RowBox[{"3", "/", "2"}]]}]}], ",", FractionBox[ RowBox[{"2", "+", "\[Alpha]", "-", RowBox[{"2", " ", SqrtBox[ RowBox[{"1", "+", "\[Alpha]"}]]}]}], RowBox[{"4", " ", "\[Alpha]"}]]}], "}"}]}]], "Input", CellChangeTimes->{{3.5992064350376606`*^9, 3.5992065151679277`*^9}}] }, Closed]] }, Open ]] }, WindowSize->{1421, 893}, WindowMargins->{{15, Automatic}, {Automatic, 2}}, FrontEndVersion->"8.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (November 6, \ 2010)", StyleDefinitions->"Default.nb", PrivateNotebookOptions -> { "VersionedStylesheet" -> {"Default.nb"[8.] -> False}} ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[579, 22, 403, 7, 76, "Title"], Cell[985, 31, 335, 6, 26, "Text"], Cell[CellGroupData[{ Cell[1345, 41, 105, 1, 67, "Section"], Cell[CellGroupData[{ Cell[1475, 46, 101, 1, 24, "Subsubsection"], Cell[1579, 49, 448, 7, 41, "Text"], Cell[2030, 58, 117, 1, 26, "Text"], Cell[2150, 61, 1145, 30, 27, "Input"], Cell[3298, 93, 135, 1, 26, "Text"], Cell[3436, 96, 369, 7, 26, "Text"], Cell[3808, 105, 196, 4, 26, "Text"], Cell[4007, 111, 100991, 2397, 1400, "Input", InitializationCell->True], Cell[105001, 2510, 92, 1, 27, "Input"], Cell[CellGroupData[{ Cell[105118, 2515, 1061, 29, 27, "Input"], Cell[106182, 2546, 2427, 78, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[108646, 2629, 641, 20, 52, "Input"], Cell[109290, 2651, 820, 29, 53, "Output"] }, Open ]], Cell[110125, 2683, 649, 21, 52, "Text"], Cell[CellGroupData[{ Cell[110799, 2708, 560, 18, 54, "Input"], Cell[111362, 2728, 953, 33, 72, "Output"] }, Open ]], Cell[112330, 2764, 89, 1, 26, "Text"], Cell[CellGroupData[{ Cell[112444, 2769, 1426, 42, 72, "Input"], Cell[113873, 2813, 1273, 40, 47, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[115183, 2858, 270, 7, 27, "Input"], Cell[115456, 2867, 328, 11, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[115821, 2883, 1368, 40, 54, "Input"], Cell[117192, 2925, 182, 4, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[117411, 2934, 1143, 34, 54, "Input"], Cell[118557, 2970, 158, 4, 27, "Output"] }, Open ]], Cell[118730, 2977, 123, 1, 26, "Text"] }, Closed]], Cell[CellGroupData[{ Cell[118890, 2983, 260, 5, 18, "Subsubsection"], Cell[CellGroupData[{ Cell[119175, 2992, 2114, 56, 81, "Input"], Cell[121292, 3050, 3564, 114, 108, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[124893, 3169, 834, 19, 27, "Input"], Cell[125730, 3190, 2177, 65, 59, "Output"] }, Open ]], Cell[127922, 3258, 232, 4, 41, "Text"], Cell[CellGroupData[{ Cell[128179, 3266, 765, 24, 54, "Input"], Cell[128947, 3292, 954, 33, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[129938, 3330, 2322, 62, 75, "Input"], Cell[132263, 3394, 3112, 103, 108, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[135412, 3502, 812, 23, 46, "Input"], Cell[136227, 3527, 1073, 34, 59, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[137337, 3566, 1128, 33, 57, "Input"], Cell[138468, 3601, 617, 19, 58, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[139122, 3625, 2533, 72, 126, "Input"], Cell[141658, 3699, 2739, 92, 61, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[144434, 3796, 1248, 38, 52, "Input"], Cell[145685, 3836, 725, 24, 59, "Output"] }, Open ]], Cell[146425, 3863, 123, 1, 26, "Text"], Cell[146551, 3866, 197, 4, 26, "Text"], Cell[CellGroupData[{ Cell[146773, 3874, 3443, 96, 108, "Input"], Cell[150219, 3972, 3999, 121, 73, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[154255, 4098, 3095, 91, 108, "Input"], Cell[157353, 4191, 2389, 72, 59, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[159779, 4268, 1375, 42, 68, "Input"], Cell[161157, 4312, 1175, 38, 59, "Output"] }, Open ]], Cell[162347, 4353, 1843, 59, 71, "Input"], Cell[164193, 4414, 131, 1, 26, "Text"], Cell[CellGroupData[{ Cell[164349, 4419, 1144, 36, 66, "Input"], Cell[165496, 4457, 746, 26, 59, "Output"] }, Open ]], Cell[166257, 4486, 1450, 48, 66, "Input"], Cell[167710, 4536, 131, 1, 26, "Text"], Cell[CellGroupData[{ Cell[167866, 4541, 3308, 98, 106, "Input"], Cell[171177, 4641, 263, 7, 27, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[171489, 4654, 127, 1, 18, "Subsubsection"], Cell[171619, 4657, 2823, 88, 66, "Input", InitializationCell->True], Cell[CellGroupData[{ Cell[174467, 4749, 3537, 102, 106, "Input"], Cell[178007, 4853, 79, 1, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[178123, 4859, 739, 24, 66, "Input"], Cell[178865, 4885, 1649, 48, 73, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[180551, 4938, 906, 30, 66, "Input"], Cell[181460, 4970, 2147, 66, 73, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[183644, 5041, 167, 3, 27, "Input"], Cell[183814, 5046, 239, 6, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[184090, 5057, 219, 4, 27, "Input"], Cell[184312, 5063, 260, 6, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[184609, 5074, 498, 12, 27, "Input"], Cell[185110, 5088, 11653, 198, 251, "Output"] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[196824, 5293, 107, 1, 67, "Section"], Cell[CellGroupData[{ Cell[196956, 5298, 183, 4, 27, "Input"], Cell[197142, 5304, 68243, 1752, 835, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[265422, 7061, 566, 16, 27, "Input"], Cell[265991, 7079, 8795, 270, 221, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[274823, 7354, 981, 29, 46, "Input"], Cell[275807, 7385, 344, 11, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[276188, 7401, 515, 15, 46, "Input"], Cell[276706, 7418, 10897, 320, 240, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[287640, 7743, 212, 5, 27, "Input"], Cell[287855, 7750, 4804, 156, 135, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[292696, 7911, 1127, 35, 55, "Input"], Cell[293826, 7948, 824, 28, 55, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[294687, 7981, 208, 5, 46, "Input"], Cell[294898, 7988, 201, 5, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[295136, 7998, 406, 13, 57, "Input"], Cell[295545, 8013, 555, 19, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[296137, 8037, 406, 13, 57, "Input"], Cell[296546, 8052, 557, 19, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[297140, 8076, 1546, 47, 33, "Input"], Cell[298689, 8125, 1810, 60, 55, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[300536, 8190, 627, 19, 51, "Input"], Cell[301166, 8211, 1420, 46, 53, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[302623, 8262, 219, 5, 27, "Input"], Cell[302845, 8269, 408, 12, 47, "Output"] }, Open ]], Cell[303268, 8284, 160, 3, 26, "Text"], Cell[CellGroupData[{ Cell[303453, 8291, 426, 13, 57, "Input"], Cell[303882, 8306, 1618, 52, 53, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[305537, 8363, 547, 13, 27, "Input"], Cell[306087, 8378, 2324, 70, 64, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[308448, 8453, 1566, 46, 67, "Input"], Cell[310017, 8501, 239, 6, 27, "Output"] }, Open ]], Cell[310271, 8510, 203, 7, 46, "Input"], Cell[CellGroupData[{ Cell[310499, 8521, 2144, 63, 67, "Input"], Cell[312646, 8586, 7522, 131, 234, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[320205, 8722, 1977, 60, 67, "Input"], Cell[322185, 8784, 274, 6, 27, "Output"] }, Open ]], Cell[322474, 8793, 105, 1, 26, "Text"], Cell[CellGroupData[{ Cell[322604, 8798, 261, 7, 46, "Input"], Cell[322868, 8807, 591, 18, 47, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[323496, 8830, 547, 13, 27, "Input"], Cell[324046, 8845, 408, 11, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[324491, 8861, 494, 11, 27, "Input"], Cell[324988, 8874, 158, 4, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[325183, 8883, 506, 15, 46, "Input"], Cell[325692, 8900, 118, 2, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[325847, 8907, 247, 7, 27, "Input"], Cell[326097, 8916, 201, 5, 45, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[326347, 8927, 240, 5, 37, "Section"], Cell[326590, 8934, 164, 2, 26, "Text"], Cell[CellGroupData[{ Cell[326779, 8940, 520, 14, 27, "Input"], Cell[327302, 8956, 1340, 37, 51, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[328679, 8998, 491, 14, 27, "Input"], Cell[329173, 9014, 4279, 129, 146, "Output"] }, Open ]], Cell[333467, 9146, 182, 4, 26, "Text"], Cell[CellGroupData[{ Cell[333674, 9154, 1117, 35, 57, "Input"], Cell[334794, 9191, 9598, 165, 234, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[344429, 9361, 639, 20, 54, "Input"], Cell[345071, 9383, 184, 4, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[345292, 9392, 1298, 36, 52, "Input"], Cell[346593, 9430, 1275, 40, 47, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[347905, 9475, 268, 7, 27, "Input"], Cell[348176, 9484, 352, 11, 44, "Output"] }, Open ]], Cell[348543, 9498, 156, 2, 26, "Text"], Cell[CellGroupData[{ Cell[348724, 9504, 1837, 50, 80, "Input"], Cell[350564, 9556, 2200, 71, 58, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[352801, 9632, 376, 10, 27, "Input"], Cell[353180, 9644, 946, 30, 54, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[354163, 9679, 2206, 67, 101, "Input"], Cell[356372, 9748, 1383, 43, 54, "Output"] }, Open ]], Cell[357770, 9794, 1522, 46, 57, "Input"], Cell[CellGroupData[{ Cell[359317, 9844, 398, 10, 27, "Input"], Cell[359718, 9856, 5524, 99, 251, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[365279, 9960, 220, 4, 27, "Input"], Cell[365502, 9966, 264, 6, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[365803, 9977, 167, 3, 27, "Input"], Cell[365973, 9982, 188, 5, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[366198, 9992, 2130, 55, 80, "Input"], Cell[368331, 10049, 3434, 112, 108, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[371802, 10166, 510, 14, 27, "Input"], Cell[372315, 10182, 2095, 62, 59, "Output"] }, Open ]], Cell[374425, 10247, 187, 4, 26, "Text"], Cell[374615, 10253, 2883, 86, 66, "Input"], Cell[CellGroupData[{ Cell[377523, 10343, 522, 12, 27, "Input"], Cell[378048, 10357, 10589, 182, 257, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[388674, 10544, 166, 3, 27, "Input"], Cell[388843, 10549, 186, 5, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[389066, 10559, 198, 4, 27, "Input"], Cell[389267, 10565, 212, 5, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[389516, 10575, 449, 11, 27, "Input"], Cell[389968, 10588, 6914, 123, 257, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[396919, 10716, 582, 15, 27, "Input"], Cell[397504, 10733, 11594, 199, 249, "Output"] }, Open ]], Cell[409113, 10935, 199, 4, 26, "Text"], Cell[409315, 10941, 2112, 68, 66, "Input"] }, Closed]] }, Open ]] } ] *) (* End of internal cache information *)