SubModelEquilibrium.nb

(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 12.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    329092,       8297]
NotebookOptionsPosition[    322185,       8192]
NotebookOutlinePosition[    322556,       8208]
CellTagsIndexPosition[    322513,       8205]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.789946875737628*^9, 3.789946993699605*^9}, {
  3.790342875973868*^9, 
  3.79034287641768*^9}},ExpressionUUID->"b2c95a62-cf9a-4a08-bc78-\
c2b68e1a922f"],

Cell[CellGroupData[{

Cell["Equilibrium of Basic SI Model", "Subsection",
 CellChangeTimes->{{3.7904474505599546`*^9, 
  3.7904474614061975`*^9}},ExpressionUUID->"2f301317-e8d7-47ff-943a-\
72a0517b53e1"],

Cell[TextData[{
 "We first define the ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["R", "0"], TraditionalForm]],
  FormatType->"TraditionalForm",ExpressionUUID->
  "ff7440a1-b236-472e-a95f-775fe7194408"],
 " for a simple SI model its endemic equilibrium"
}], "Text",
 CellChangeTimes->{{3.790447524419648*^9, 
  3.7904475904216213`*^9}},ExpressionUUID->"f0ef793b-6212-4fc3-b787-\
c0b323638c87"],

Cell[BoxData[{
 RowBox[{"SIModel", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"dS", "\[Equal]", 
     RowBox[{"\[Sigma]", "-", 
      RowBox[{
       RowBox[{"\[Delta]", "/", 
        RowBox[{"(", 
         RowBox[{"\[Sigma]", "/", "\[Gamma]"}], ")"}]}], "*", "i", "*", " ", 
       "s"}], "-", 
      RowBox[{"\[Gamma]", "*", "s"}]}]}], ",", "\[IndentingNewLine]", "\t", 
    RowBox[{"dI", "\[Equal]", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"\[Delta]", "/", 
        RowBox[{"(", 
         RowBox[{"\[Sigma]", "/", "\[Gamma]"}], ")"}]}], "*", "i", "*", " ", 
       "s"}], "-", 
      RowBox[{"\[Gamma]", "*", "i"}]}]}]}], "}"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dS", "=", "0"}], ";", " ", 
  RowBox[{"dI", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Solve", "[", 
  RowBox[{"SIModel", ",", 
   RowBox[{"{", 
    RowBox[{"s", ",", "i"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.790447608715087*^9, 3.790447665352694*^9}, {
  3.7904477173230743`*^9, 3.790447913299079*^9}, {3.7904481250741577`*^9, 
  3.790448147035425*^9}, {3.7904481774222994`*^9, 3.790448177729471*^9}, {
  3.7904482866520042`*^9, 
  3.7904482887331343`*^9}},ExpressionUUID->"1e544cef-d95a-471e-a3f8-\
31bfec037e6e"],

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   SubscriptBox["R", "0"], TraditionalForm]],
  FormatType->"TraditionalForm",ExpressionUUID->
  "faeba764-f3a4-49ce-8019-4a3ece07fbf9"],
 " Derivation"
}], "Text",
 CellChangeTimes->{{3.7904482994749503`*^9, 3.790448302122878*^9}, {
  3.7904494757225647`*^9, 
  3.7904494772049866`*^9}},ExpressionUUID->"50b75443-e763-433b-8e0c-\
e5f308ce6368"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"MyJacobian", "[", 
     RowBox[{"f_List", ",", " ", "x_List"}], "]"}], ":=", 
    RowBox[{"Flatten", "[", 
     RowBox[{
      RowBox[{"Outer", "[", 
       RowBox[{"D", ",", "f", ",", "x"}], "]"}], ",", "1"}], "]"}]}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"Manually", " ", "enter", " ", "F", " ", "and", " ", "V"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"F", "=", 
   RowBox[{"{", 
    RowBox[{"\[Delta]", "*", "s", "*", " ", 
     FractionBox["i", "n"]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"V", "=", 
   RowBox[{"{", 
    RowBox[{"\[Gamma]", " ", "*", "i"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "=", 
    RowBox[{
     RowBox[{"MyJacobian", "[", 
      RowBox[{"F", ",", 
       RowBox[{"{", "i", "}"}]}], "]"}], "/.", 
     RowBox[{"{", 
      RowBox[{"s", "\[Rule]", 
       FractionBox["\[Sigma]", "\[Gamma]"]}], "}"}]}]}], ";"}], " ", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"/.", 
     RowBox[{"\[Equal]", " ", "Evaluate"}]}], ",", " ", 
    RowBox[{
    "change", " ", "s", " ", "value", " ", "to", " ", "match", " ", "the", 
     " ", "equilibrium", " ", "you", " ", "want"}]}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{"v", "=", 
  RowBox[{"MyJacobian", "[", 
   RowBox[{"V", ",", 
    RowBox[{"{", "i", "}"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"n", "=", 
    FractionBox["\[Sigma]", "\[Gamma]"]}], ";"}], " ", 
  RowBox[{"(*", 
   RowBox[{"Change", " ", "this", " ", "to", " ", "help", " ", "simplify"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{"Eigenvalues", "[", " ", 
  RowBox[{"f", " ", ".", " ", 
   RowBox[{"Inverse", "[", "v", "]"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.7904483099434147`*^9, 3.7904483367554703`*^9}, {
  3.790448768267591*^9, 3.7904487728500223`*^9}, {3.790448817288019*^9, 
  3.7904489479543004`*^9}, {3.790448982385522*^9, 3.790449095251274*^9}, {
  3.7904491863558545`*^9, 3.7904491938599176`*^9}, {3.790449509845174*^9, 
  3.790449549225535*^9}},
 CellLabel->
  "In[127]:=",ExpressionUUID->"adb112f5-1986-4411-9cb6-cac716ff984b"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Equilibrium of Basic SI Vector-Host Model", "Subsection",
 CellChangeTimes->{{3.7904495744002333`*^9, 3.7904495796100774`*^9}, {
  3.7904499328708725`*^9, 
  3.790449937988142*^9}},ExpressionUUID->"253b9539-51f8-4693-854c-\
8c3840017330"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"SIVecModel", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"dSH", "\[Equal]", 
      RowBox[{
       SubscriptBox["\[Sigma]", "1"], "-", 
       RowBox[{"\[Delta]", "*", 
        RowBox[{"iV", "/", "n1"}], "*", " ", "sH"}], "-", 
       RowBox[{
        SubscriptBox["\[Gamma]", "1"], "*", "sH"}]}]}], ",", 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"dIH", "==", 
      RowBox[{
       RowBox[{"\[Delta]", "*", 
        RowBox[{"iV", "/", "n1"}], "*", " ", "sH"}], "-", 
       RowBox[{
        SubscriptBox["\[Gamma]", "1"], "*", "iH"}]}]}], ",", 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"dSV", "==", 
      RowBox[{
       SubscriptBox["\[Sigma]", "2"], "-", 
       RowBox[{"\[Epsilon]", "*", 
        RowBox[{"iH", "/", "n2"}], "*", "sV"}], "-", 
       RowBox[{
        SubscriptBox["\[Gamma]", "2"], "*", " ", "sV"}]}]}], ",", 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"dIV", "==", 
      RowBox[{
       RowBox[{"\[Epsilon]", "*", 
        RowBox[{"iH", "/", "n2"}], "*", "sV"}], "-", 
       RowBox[{
        SubscriptBox["\[Gamma]", "2"], "*", " ", "iV"}]}]}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"dSH", "=", "0"}], ";", 
   RowBox[{"dIH", "=", "0"}], ";", 
   RowBox[{"dSV", "=", "0"}], ";", 
   RowBox[{"dIV", "=", "0"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Simplify", "[", 
  RowBox[{"Solve", "[", 
   RowBox[{"SIVecModel", ",", 
    RowBox[{"{", 
     RowBox[{"sH", ",", "iH", ",", "sV", ",", "iV"}], "}"}]}], "]"}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.7903427472246976`*^9, 3.790342747267246*^9}, {
  3.790342878573289*^9, 3.7903428822374554`*^9}, {3.7904499476764736`*^9, 
  3.7904499754644723`*^9}, {3.790450150654084*^9, 3.7904506402946167`*^9}, {
  3.790450945739914*^9, 3.790450979089535*^9}, {3.7904510226335545`*^9, 
  3.7904510229419594`*^9}, {3.790451072042079*^9, 3.7904510855749445`*^9}, {
  3.7904511166963825`*^9, 3.7904511530852523`*^9}},
 CellLabel->"In[22]:=",ExpressionUUID->"06536d39-62e2-41c4-80cc-0085014ae119"],

Cell[TextData[{
 "We can repress this system making the following parameter changes:  ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Sigma]", "i"], TraditionalForm]],
  FormatType->"TraditionalForm",ExpressionUUID->
  "c2f00164-a703-45ad-8810-8ff857bf5045"],
 "= ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["N", "i"], 
    SubscriptBox["\[Gamma]", "i"]}], TraditionalForm]],
  FormatType->"TraditionalForm",ExpressionUUID->
  "5b9114d3-39f8-4e76-9128-6421d80e722e"],
 ","
}], "Text",
 CellChangeTimes->{{3.790451050605383*^9, 3.7904510656659327`*^9}, {
  3.7904511697493706`*^9, 
  3.7904512463124895`*^9}},ExpressionUUID->"0e7a61fd-1f34-40d9-9d8a-\
72a7e8b10b12"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"SIVecModel", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"dSH", "\[Equal]", 
      RowBox[{
       RowBox[{"nH", "*", 
        SubscriptBox["\[Gamma]", "1"]}], "-", 
       RowBox[{"\[Delta]", "*", 
        RowBox[{"iV", "/", "nV"}], "*", " ", "sH"}], "-", 
       RowBox[{
        SubscriptBox["\[Gamma]", "1"], "*", "sH"}]}]}], ",", 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"dIH", "==", 
      RowBox[{
       RowBox[{"\[Delta]", "*", 
        RowBox[{"iV", "/", "nV"}], "*", " ", "sH"}], "-", 
       RowBox[{
        SubscriptBox["\[Gamma]", "1"], "*", "iH"}]}]}], ",", 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"dSV", "\[Equal]", 
      RowBox[{
       RowBox[{"nV", "*", 
        SubscriptBox["\[Gamma]", "V"]}], "-", 
       RowBox[{"\[Epsilon]", "*", 
        RowBox[{"iH", "/", "nH"}], "*", "sV"}], "-", 
       RowBox[{
        SubscriptBox["\[Gamma]", "V"], "*", " ", "sV"}]}]}], ",", 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"dIV", "==", 
      RowBox[{
       RowBox[{"\[Epsilon]", "*", 
        RowBox[{"iH", "/", "nH"}], "*", "sV"}], "-", 
       RowBox[{
        SubscriptBox["\[Gamma]", "V"], "*", " ", "iV"}]}]}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dSH", "=", "0"}], ";", 
  RowBox[{"dIH", "=", "0"}], ";", 
  RowBox[{"dSV", "=", "0"}], ";", 
  RowBox[{"dIV", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Simplify", "[", 
  RowBox[{"Solve", "[", 
   RowBox[{"SIVecModel", ",", 
    RowBox[{"{", 
     RowBox[{"sH", ",", "iH", ",", "sV", ",", "iV"}], "}"}]}], "]"}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.790451258740322*^9, 3.7904512794616632`*^9}, {
  3.7904528042233505`*^9, 3.7904528465881996`*^9}, {3.7904533760034027`*^9, 
  3.7904534329824257`*^9}, {3.79045347433467*^9, 3.790453492276091*^9}},
 CellLabel->"In[13]:=",ExpressionUUID->"7eedf8bd-abac-4e15-a542-92495d8ad5f8"],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 FormBox[
  SubscriptBox["R", "0"], TraditionalForm]],
 FormatType->
  "TraditionalForm",ExpressionUUID->"4de2b40d-549a-4d1a-a03b-3d982cd446f0"]], \
"Subsubsection",
 CellChangeTimes->{{3.7904513725989003`*^9, 3.7904513741597195`*^9}, {
  3.7904525317958603`*^9, 
  3.7904525331873956`*^9}},ExpressionUUID->"4486ff1b-a302-4ad5-87ae-\
79ca3d743f2e"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"MyJacobian", "[", 
     RowBox[{"f_List", ",", " ", "x_List"}], "]"}], ":=", 
    RowBox[{"Flatten", "[", 
     RowBox[{
      RowBox[{"Outer", "[", 
       RowBox[{"D", ",", "f", ",", "x"}], "]"}], ",", "1"}], "]"}]}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"Manually", " ", "enter", " ", "F", " ", "and", " ", "V"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"F", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\[Delta]", "*", 
       RowBox[{"iV", "/", "nV"}], "*", " ", "sH"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"\[Epsilon]", "*", 
       RowBox[{"iH", "/", "nH"}], "*", "sV"}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"V", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       SubscriptBox["\[Gamma]", "H"], " ", "*", "iH"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       SubscriptBox["\[Gamma]", "V"], " ", "*", "iV"}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"f", "=", 
   RowBox[{
    RowBox[{"MyJacobian", "[", 
     RowBox[{"F", ",", 
      RowBox[{"{", 
       RowBox[{"iH", ",", "iV"}], "}"}]}], "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"sH", "\[Rule]", 
       FractionBox[
        SubscriptBox["\[Sigma]", "H"], 
        SubscriptBox["\[Gamma]", "H"]]}], ",", 
      RowBox[{"sV", "\[Rule]", 
       FractionBox[
        SubscriptBox["\[Sigma]", "V"], 
        SubscriptBox["\[Gamma]", "V"]]}]}], "}"}]}]}], ";", " ", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"/.", 
     RowBox[{"\[Equal]", " ", "Evaluate"}]}], ",", " ", 
    RowBox[{
    "change", " ", "s", " ", "value", " ", "to", " ", "match", " ", "the", 
     " ", "equilibrium", " ", "you", " ", "want"}]}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"v", "=", 
   RowBox[{"MyJacobian", "[", 
    RowBox[{"V", ",", 
     RowBox[{"{", 
      RowBox[{"iH", ",", "iV"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nH", "=", 
   FractionBox[
    SubscriptBox["\[Sigma]", "H"], 
    SubscriptBox["\[Gamma]", "H"]]}], ";", " ", 
  RowBox[{"nV", "=", 
   FractionBox[
    SubscriptBox["\[Sigma]", "V"], 
    SubscriptBox["\[Gamma]", "V"]]}], ";", 
  RowBox[{"(*", 
   RowBox[{"Change", " ", "this", " ", "to", " ", "help", " ", "simplify"}], 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{"Eigenvalues", "[", " ", 
   RowBox[{"f", " ", ".", " ", 
    RowBox[{"Inverse", "[", "v", "]"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{
  3.790452630776809*^9, {3.7904529763296027`*^9, 3.7904531194082365`*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"61273fb4-3359-47cb-bf1f-8194942b2f7c"],

Cell[TextData[{
 "We can see from above that ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["R", "0"], TraditionalForm]],
  FormatType->"TraditionalForm",ExpressionUUID->
  "693ab430-8ef9-4114-a202-f9c9610ea8a9"],
 "=Sqrt(",
 Cell[BoxData[
  FormBox[
   SubscriptBox["R", "V"], TraditionalForm]],
  FormatType->"TraditionalForm",ExpressionUUID->
  "a769cab5-325d-496f-ba0e-d28a2f06ec66"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["R", "H"], TraditionalForm]],
  FormatType->"TraditionalForm",ExpressionUUID->
  "ec1cf668-5924-472d-a91b-198bc3b2e372"],
 ") where ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["R", "V"], TraditionalForm]],
  FormatType->"TraditionalForm",ExpressionUUID->
  "8687e856-b543-41f0-8e2e-6611af2d0358"],
 "=\[Epsilon]/ ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Gamma]", "V"], TraditionalForm]],
  FormatType->"TraditionalForm",ExpressionUUID->
  "c01cd985-c99a-4ceb-ba19-45ffb23968d1"],
 " and  ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["R", "H"], TraditionalForm]],
  FormatType->"TraditionalForm",ExpressionUUID->
  "93e35d2f-2d90-42eb-8816-c00c3abdf95b"],
 "=\[Delta]/ ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Gamma]", "H"], TraditionalForm]],
  FormatType->"TraditionalForm",ExpressionUUID->
  "f41508ea-0701-4b26-b4bd-9332b74a4497"],
 ". We then reassess the equilibria in terms of these parameters to find."
}], "Text",
 CellChangeTimes->{{3.790451986488063*^9, 3.7904519905840178`*^9}, {
  3.7904525020768175`*^9, 3.790452536821159*^9}, {3.790452597723111*^9, 
  3.790452796664779*^9}},ExpressionUUID->"19adef41-cc36-4f37-9855-\
0b0d44c66a4e"],

Cell[BoxData[{
 RowBox[{"SIVecModel", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"dSH", "\[Equal]", 
     RowBox[{
      RowBox[{"nH", "*", 
       SubscriptBox["\[Gamma]", "H"]}], "-", 
      RowBox[{
       SubscriptBox["R", "H"], "*", 
       SubscriptBox["\[Gamma]", "H"], "*", 
       RowBox[{"iV", "/", "nV"}], "*", " ", "sH"}], "-", 
      RowBox[{
       SubscriptBox["\[Gamma]", "H"], "*", "sH"}]}]}], ",", 
    "\[IndentingNewLine]", "\t", 
    RowBox[{"dIH", "==", 
     RowBox[{
      RowBox[{
       SubscriptBox["R", "H"], "*", 
       SubscriptBox["\[Gamma]", "H"], "*", 
       RowBox[{"iV", "/", "nV"}], "*", " ", "sH"}], "-", 
      RowBox[{
       SubscriptBox["\[Gamma]", "H"], "*", "iH"}]}]}], ",", 
    "\[IndentingNewLine]", "\t", 
    RowBox[{"dSV", "\[Equal]", 
     RowBox[{
      RowBox[{"nV", "*", 
       SubscriptBox["\[Gamma]", "V"]}], "-", 
      RowBox[{
       SubscriptBox["R", "v"], "*", 
       SubscriptBox["\[Gamma]", "V"], "*", 
       RowBox[{"iH", "/", "nH"}], "*", "sV"}], "-", 
      RowBox[{
       SubscriptBox["\[Gamma]", "V"], "*", " ", "sV"}]}]}], ",", 
    "\[IndentingNewLine]", "\t", 
    RowBox[{"dIV", "==", 
     RowBox[{
      RowBox[{
       SubscriptBox["R", "v"], "*", 
       SubscriptBox["\[Gamma]", "V"], "*", 
       RowBox[{"iH", "/", "nH"}], "*", "sV"}], "-", 
      RowBox[{
       SubscriptBox["\[Gamma]", "V"], "*", " ", "iV"}]}]}]}], 
   "}"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dSH", "=", "0"}], ";", 
  RowBox[{"dIH", "=", "0"}], ";", 
  RowBox[{"dSV", "=", "0"}], ";", 
  RowBox[{"dIV", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Simplify", "[", 
  RowBox[{"Solve", "[", 
   RowBox[{"SIVecModel", ",", 
    RowBox[{"{", 
     RowBox[{"sH", ",", "iH", ",", "sV", ",", "iV"}], "}"}]}], "]"}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.7904526334291553`*^9, 3.790452634751191*^9}, {
  3.7904529506556063`*^9, 3.790452973385809*^9}, {3.790453127404685*^9, 
  3.7904531438509583`*^9}, {3.790453204616601*^9, 3.7904532346649356`*^9}},
 CellLabel->"In[19]:=",ExpressionUUID->"074562bb-f482-45b9-97ed-fd11445d8993"],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{{3.790451362539648*^9, 3.7904514632254887`*^9}, {
   3.79045160506434*^9, 3.790451717579347*^9}, {3.790451972053625*^9, 
   3.7904520194500184`*^9}, 
   3.7904526290394306`*^9},ExpressionUUID->"20e20938-b35b-4300-95e5-\
e3c2431ff881"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\

1 Patch with 2 Hosts and constant birth with Frequency Dependent Infection\
\>", "Subsection",
 CellChangeTimes->{{3.7903428903835316`*^9, 3.79034291848963*^9}, 
   3.7904474426017933`*^9, 3.790513946876031*^9, {3.7905142613293924`*^9, 
   3.7905142632435436`*^9}, {3.7905323410424643`*^9, 
   3.7905323474410686`*^9}},ExpressionUUID->"6068ae31-09e8-492f-86c3-\
653c242c75d4"],

Cell["\<\
Notes: Appears to be 2 endemic Equilibria but if one compartment is infected \
then all must be. The two endemic equilibria are very similar but the \
difference of all compartments equilibira is a fraction with the same \
numerator for each. The two endemic equilibria are different in that they \
have a different sign on the square root. For this reason I think the final \
solutions have numerators equal to x in (x+c)^2=a where x= a+-\[Sqrt]c\
\>", "Text",
 CellChangeTimes->{{3.790342927130417*^9, 3.7903429679299717`*^9}, {
  3.790342998113344*^9, 3.7903430092195973`*^9}, {3.790343643832425*^9, 
  3.790343689994294*^9}, {3.7903588055447006`*^9, 
  3.790358992911391*^9}},ExpressionUUID->"b4a8425b-1415-43c2-9014-\
453b0359076e"],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"Eqn", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"d1", "\[Equal]", 
        RowBox[{
         SubscriptBox["\[Sigma]", "1"], "-", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "*", "b", "*", " ", 
          SubscriptBox["S", "1"]}], "-", 
         RowBox[{
          SubscriptBox["\[Gamma]", "1"], "*", " ", 
          SubscriptBox["S", "1"]}]}]}], ",", "\[IndentingNewLine]", "\t", 
       RowBox[{"d2", "==", 
        RowBox[{
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "*", "b", "*", " ", 
          SubscriptBox["S", "1"]}], "-", 
         RowBox[{
          SubscriptBox["\[Gamma]", "1"], "*", " ", 
          SubscriptBox["i", "1"]}]}]}], ",", "\[IndentingNewLine]", "\t", 
       RowBox[{"d3", "==", 
        RowBox[{
         SubscriptBox["\[Sigma]", "2"], "-", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "*", "b", "*", " ", 
          SubscriptBox["S", "2"]}], "-", 
         RowBox[{
          SubscriptBox["\[Gamma]", "2"], "*", " ", 
          SubscriptBox["S", "2"]}]}]}], ",", "\[IndentingNewLine]", "\t", 
       RowBox[{"d4", "==", 
        RowBox[{
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "*", "b", "*", " ", 
          SubscriptBox["S", "2"]}], "-", 
         RowBox[{
          SubscriptBox["\[Gamma]", "2"], "*", " ", 
          SubscriptBox["i", "2"]}]}]}], ",", "\[IndentingNewLine]", "\t", 
       RowBox[{"d5", "==", 
        RowBox[{
         SubscriptBox["\[Sigma]", "3"], "-", 
         RowBox[{
          SubscriptBox["\[Epsilon]", "1"], "*", 
          SubscriptBox["i", "1"], "*", "a"}], "-", 
         RowBox[{
          SubscriptBox["\[Epsilon]", "2"], "*", 
          SubscriptBox["i", "2"], "*", "a"}], "-", 
         RowBox[{
          SubscriptBox["\[Gamma]", "3"], "*", " ", "a"}]}]}], ",", 
       "\[IndentingNewLine]", "\t", 
       RowBox[{"d6", "==", 
        RowBox[{
         RowBox[{
          SubscriptBox["\[Epsilon]", "1"], "*", 
          SubscriptBox["i", "1"], "*", "a"}], "+", 
         RowBox[{
          SubscriptBox["\[Epsilon]", "2"], "*", 
          SubscriptBox["i", "2"], "*", "a"}], "-", 
         RowBox[{
          SubscriptBox["\[Gamma]", "3"], "*", " ", "b"}]}]}]}], "}"}]}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"d1", "=", "0"}], ";", 
    RowBox[{"d2", "=", "0"}], ";", 
    RowBox[{"d3", "=", "0"}], ";", "  ", 
    RowBox[{"d4", "=", "0"}], ";", 
    RowBox[{"d5", "=", "0"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"d6", "=", "0"}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.7905141277253394`*^9, 3.790514127965599*^9}, {
  3.7905141720551825`*^9, 
  3.790514218234605*^9}},ExpressionUUID->"f497bf5c-e3e8-4a81-ad66-\
b631ab259745"],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 FormBox[
  SubscriptBox["R", "0"], TraditionalForm]],
 FormatType->
  "TraditionalForm",ExpressionUUID->"b5ad4ea3-fa6a-43cb-a1de-dbcf6076c803"]], \
"Subsubsection",
 CellChangeTimes->{{3.7905141356725883`*^9, 
  3.7905141377231994`*^9}},ExpressionUUID->"4627535e-1816-46b6-93af-\
2dfa86b5c609"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"MyJacobian", "[", 
     RowBox[{"f_List", ",", " ", "x_List"}], "]"}], ":=", 
    RowBox[{"Flatten", "[", 
     RowBox[{
      RowBox[{"Outer", "[", 
       RowBox[{"D", ",", "f", ",", "x"}], "]"}], ",", "1"}], "]"}]}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"Manually", " ", "enter", " ", "F", " ", "and", " ", "V"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"F", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "*", " ", "b", "*", 
       SubscriptBox["s", "1"]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "*", " ", "b", "*", 
       SubscriptBox["s", "2"]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        SubscriptBox["\[Epsilon]", "1"], "*", 
        SubscriptBox["i", "1"], "*", "a"}], "+", 
       RowBox[{
        SubscriptBox["\[Epsilon]", "2"], "*", 
        SubscriptBox["i", "2"], "*", "a"}]}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"V", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       SubscriptBox["\[Gamma]", "1"], " ", "*", 
       SubscriptBox["i", "1"]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       SubscriptBox["\[Gamma]", "2"], "*", " ", 
       SubscriptBox["i", "2"]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       SubscriptBox["\[Gamma]", "3"], "*", " ", "b"}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "=", 
    RowBox[{
     RowBox[{"MyJacobian", "[", 
      RowBox[{"F", ",", 
       RowBox[{"{", 
        RowBox[{
         SubscriptBox["i", "1"], ",", 
         SubscriptBox["i", "2"], ",", "b"}], "}"}]}], "]"}], "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        SubscriptBox["s", "1"], "\[Rule]", 
        FractionBox[
         SubscriptBox["\[Sigma]", "1"], 
         SubscriptBox["\[Gamma]", "1"]]}], ",", 
       RowBox[{
        SubscriptBox["s", "2"], "\[Rule]", 
        FractionBox[
         SubscriptBox["\[Sigma]", "2"], 
         SubscriptBox["\[Gamma]", "2"]]}], ",", 
       RowBox[{"a", "\[Rule]", 
        FractionBox[
         SubscriptBox["\[Sigma]", "3"], 
         SubscriptBox["\[Gamma]", "3"]]}]}], "}"}]}]}], ";", " ", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"/.", 
      RowBox[{"\[Equal]", " ", "Evaluate"}]}], ",", " ", 
     RowBox[{
     "change", " ", "s", " ", "value", " ", "to", " ", "match", " ", "the", 
      " ", "equilibrium", " ", "you", " ", "want"}]}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"v", "=", 
    RowBox[{"MyJacobian", "[", 
     RowBox[{"V", ",", 
      RowBox[{"{", 
       RowBox[{
        SubscriptBox["i", "1"], ",", 
        SubscriptBox["i", "2"], ",", "b"}], "}"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"nH", "=", 
     FractionBox[
      SubscriptBox["\[Sigma]", "H"], 
      SubscriptBox["\[Gamma]", "H"]]}], ";", " ", 
    RowBox[{"nV", "=", 
     FractionBox[
      SubscriptBox["\[Sigma]", "V"], 
      SubscriptBox["\[Gamma]", "V"]]}], ";", 
    RowBox[{
    "Change", " ", "this", " ", "to", " ", "help", " ", "simplify"}]}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{"Eigenvalues", "[", " ", 
  RowBox[{"f", " ", ".", " ", 
   RowBox[{"Inverse", "[", "v", "]"}]}], "]"}]}], "Input",
 CellChangeTimes->{
  3.7905142478892756`*^9, {3.7905142929277573`*^9, 3.790514529107518*^9}},
 CellLabel->"In[39]:=",ExpressionUUID->"eaf8155c-9ab9-4120-b4fd-9b85b7f89c98"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Equilibrium Analysis", "Subsubsection",
 CellChangeTimes->{{3.7905141514825716`*^9, 
  3.790514160138369*^9}},ExpressionUUID->"c298604e-574f-471b-b9ba-\
069a2b7c1218"],

Cell[BoxData[
 RowBox[{"Simplify", "[", 
  RowBox[{"Solve", "[", 
   RowBox[{"Eqn", ",", 
    RowBox[{"{", 
     RowBox[{
      SubscriptBox["S", "1"], ",", 
      SubscriptBox["i", "1"], ",", 
      SubscriptBox["S", "2"], ",", 
      SubscriptBox["i", "2"], ",", "a", ",", " ", "b"}], "}"}]}], "]"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.789947174875289*^9, 3.789947613249834*^9}, {
   3.7899476612514825`*^9, 3.7899477359433856`*^9}, {3.789948448356912*^9, 
   3.789948754593843*^9}, {3.7899510273382587`*^9, 3.7899510849357324`*^9}, {
   3.7899512551797194`*^9, 3.789951283282627*^9}, {3.790348007081612*^9, 
   3.7903480108697405`*^9}, {3.790358062143388*^9, 3.790358066579511*^9}, {
   3.7903599699371123`*^9, 3.7903599841440086`*^9}, {3.790514104172567*^9, 
   3.7905141072480235`*^9}, 3.7905141691619215`*^9, {3.7905324783919454`*^9, 
   3.7905324786252007`*^9}},ExpressionUUID->"2193ab9f-7101-4b22-8537-\
605bd10fa93d"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.7904264140962167`*^9, 
  3.790426418572813*^9}},ExpressionUUID->"f092d899-952e-4ec2-95c9-\
c94abe24ab83"],

Cell["\<\
We will focus on the expressions for the susceptible compartments because \
they are simpler and the infected can be found as a function of them.
a* has three parts: denominator, numerator outside square root, and numerator \
inside square root. We will attempt to factor them to improve Mathematica\
\[CloseCurlyQuote]s simplification.
Denominator: The denominator is easily factorable via mathematica\
\>", "Text",
 CellChangeTimes->{{3.790358105038498*^9, 
  3.790358266010409*^9}},ExpressionUUID->"074b9877-e6fe-41e9-af38-\
12752f721b3c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"aDenominator", "=", 
   RowBox[{"2", " ", 
    SubscriptBox["\[Gamma]", "3"], " ", 
    SubscriptBox["\[Delta]", "1"], " ", 
    SubscriptBox["\[Delta]", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SubscriptBox["\[Gamma]", "2"], " ", 
       SubscriptBox["\[Epsilon]", "1"], " ", 
       SubscriptBox["\[Sigma]", "1"]}], "+", 
      RowBox[{
       SubscriptBox["\[Gamma]", "1"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SubscriptBox["\[Gamma]", "2"], " ", 
          SubscriptBox["\[Gamma]", "3"]}], "+", 
         RowBox[{
          SubscriptBox["\[Epsilon]", "2"], " ", 
          SubscriptBox["\[Sigma]", "2"]}]}], ")"}]}]}], ")"}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.7903582686014347`*^9, 
  3.790358293123596*^9}},ExpressionUUID->"d7a2d633-dbb7-4d40-a4ac-\
c151696efd11"],

Cell["\<\
Numerator (Square root): We will factor the numerator within the square root \
first because its simplification can\[CloseCurlyQuote]t be dependent on the \
denominator. We will also check the root is positive and of a similar order \
of the rest of the numerator to confirm it needs factorization\
\>", "Text",
 CellChangeTimes->{{3.790358300529643*^9, 3.7903583587531147`*^9}, {
  3.7903586140433917`*^9, 3.7903586554646425`*^9}, {3.7904280601281376`*^9, 
  3.7904280965842576`*^9}, {3.790532466675089*^9, 
  3.790532469761141*^9}},ExpressionUUID->"bf28a16c-0d05-4f9b-885c-\
145b7a4e361b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"aSquareRoot", "==", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "4"}], " ", 
     SubscriptBox["\[Gamma]", "1"], " ", 
     SubscriptBox["\[Gamma]", "2"], " ", 
     SubscriptBox["\[Gamma]", "3"], " ", 
     SubscriptBox["\[Delta]", "1"], " ", 
     SubscriptBox["\[Delta]", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SubscriptBox["\[Gamma]", "2"], " ", 
        SubscriptBox["\[Epsilon]", "1"], " ", 
        SubscriptBox["\[Sigma]", "1"]}], "+", 
       RowBox[{
        SubscriptBox["\[Gamma]", "1"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox["\[Gamma]", "2"], " ", 
           SubscriptBox["\[Gamma]", "3"]}], "+", 
          RowBox[{
           SubscriptBox["\[Epsilon]", "2"], " ", 
           SubscriptBox["\[Sigma]", "2"]}]}], ")"}]}]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SubscriptBox["\[Gamma]", "1"], " ", 
        SubscriptBox["\[Gamma]", "3"]}], "+", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], " ", 
        SubscriptBox["\[Sigma]", "3"]}]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SubscriptBox["\[Gamma]", "2"], " ", 
        SubscriptBox["\[Gamma]", "3"]}], "+", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], " ", 
        SubscriptBox["\[Sigma]", "3"]}]}], ")"}]}], "+", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
        SubscriptBox["\[Gamma]", "3"], " ", 
        SubscriptBox["\[Delta]", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox["\[Gamma]", "2"], " ", 
           SubscriptBox["\[Gamma]", "3"]}], "+", 
          RowBox[{
           SubscriptBox["\[Epsilon]", "2"], " ", 
           SubscriptBox["\[Sigma]", "2"]}]}], ")"}]}], "+", 
       RowBox[{
        SubscriptBox["\[Gamma]", "2"], " ", 
        SubscriptBox["\[Delta]", "1"], " ", 
        SubscriptBox["\[Epsilon]", "1"], " ", 
        SubscriptBox["\[Sigma]", "1"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox["\[Gamma]", "2"], " ", 
           SubscriptBox["\[Gamma]", "3"]}], "+", 
          RowBox[{
           SubscriptBox["\[Delta]", "2"], " ", 
           SubscriptBox["\[Sigma]", "3"]}]}], ")"}]}], "+", 
       RowBox[{
        SubscriptBox["\[Gamma]", "1"], " ", 
        SubscriptBox["\[Delta]", "1"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
           SubsuperscriptBox["\[Gamma]", "3", "2"]}], "+", 
          RowBox[{"2", " ", 
           SubscriptBox["\[Gamma]", "2"], " ", 
           SubscriptBox["\[Gamma]", "3"], " ", 
           SubscriptBox["\[Delta]", "2"], " ", 
           SubscriptBox["\[Sigma]", "3"]}], "+", 
          RowBox[{
           SubscriptBox["\[Delta]", "2"], " ", 
           SubscriptBox["\[Epsilon]", "2"], " ", 
           SubscriptBox["\[Sigma]", "2"], " ", 
           SubscriptBox["\[Sigma]", "3"]}]}], ")"}]}]}], ")"}], "2"]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.7903593476071243`*^9, 3.7903595193110437`*^9}, {
   3.790359630880289*^9, 3.7903599172794495`*^9}, {3.7903601863780518`*^9, 
   3.7903603579208546`*^9}, {3.7903603914284143`*^9, 3.790360405822382*^9}, {
   3.79042539400031*^9, 3.790425446679183*^9}, {3.7904254828074503`*^9, 
   3.790425495695092*^9}, 3.7904258058485093`*^9, {3.7904258385587745`*^9, 
   3.790425838753327*^9}, {3.7904272236920433`*^9, 3.790427273422975*^9}, {
   3.7904273105169888`*^9, 3.7904273798988266`*^9}, {3.790427472613989*^9, 
   3.7904275024580927`*^9}, {3.790427623690452*^9, 3.7904276290410323`*^9}, {
   3.7904277867776413`*^9, 3.790427819924477*^9}, {3.790428052354929*^9, 
   3.790428054132374*^9}},ExpressionUUID->"c8819ff1-4525-4797-96f9-\
424d257feca3"],

Cell[BoxData[
 RowBox[{" ", 
  RowBox[{
   RowBox[{
    RowBox[{
     SubscriptBox["\[Gamma]", "1"], " ", "=", 
     RowBox[{"1", "/", "365"}]}], ";", " ", 
    RowBox[{
     SubscriptBox["\[Sigma]", "1"], "=", ".05"}], ";", " ", 
    RowBox[{
     SubscriptBox["n", "1"], "=", 
     RowBox[{
      SubscriptBox["\[Sigma]", "1"], "/", 
      SubscriptBox["\[Gamma]", "1"]}]}], ";", 
    RowBox[{
     SubscriptBox["\[Gamma]", "2"], "=", 
     RowBox[{"1", "/", "200"}]}], ";", " ", 
    RowBox[{
     SubscriptBox["\[Sigma]", "2"], "=", ".2"}], ";", "  ", 
    RowBox[{
     SubscriptBox["n", "2"], "=", 
     RowBox[{
      SubscriptBox["\[Sigma]", "2"], "/", 
      SubscriptBox["\[Gamma]", "2"]}]}], ";"}], "  ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     SubscriptBox["\[Gamma]", "3"], "=", 
     RowBox[{"1", "/", 
      RowBox[{"(", 
       RowBox[{"2", "*", "365"}], ")"}]}]}], ";", " ", 
    RowBox[{
     SubscriptBox["\[Sigma]", "3"], "=", ".2"}], ";", " ", 
    RowBox[{
     SubscriptBox["n", "3"], "=", 
     RowBox[{
      SubscriptBox["\[Sigma]", "3"], "/", 
      SubscriptBox["\[Gamma]", "3"]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     SubscriptBox["\[Epsilon]", "1"], "=", 
     RowBox[{".2", "/", 
      SubscriptBox["n", "1"]}]}], ";", " ", 
    RowBox[{
     SubscriptBox["\[Epsilon]", "2"], "=", 
     RowBox[{".1", "/", 
      SubscriptBox["n", "2"]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "=", 
     RowBox[{".1", "/", 
      SubscriptBox["n", "3"]}]}], ";", " ", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "=", 
     RowBox[{".05", "/", 
      SubscriptBox["n", "3"]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"aSquareRoot", "\[Equal]", 
    RowBox[{"Sqrt", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "4"}], " ", 
       SubscriptBox["\[Gamma]", "1"], " ", 
       SubscriptBox["\[Gamma]", "2"], " ", 
       SubscriptBox["\[Gamma]", "3"], " ", 
       SubscriptBox["\[Delta]", "1"], " ", 
       SubscriptBox["\[Delta]", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SubscriptBox["\[Gamma]", "2"], " ", 
          SubscriptBox["\[Epsilon]", "1"], " ", 
          SubscriptBox["\[Sigma]", "1"]}], "+", 
         RowBox[{
          SubscriptBox["\[Gamma]", "1"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SubscriptBox["\[Gamma]", "2"], " ", 
             SubscriptBox["\[Gamma]", "3"]}], "+", 
            RowBox[{
             SubscriptBox["\[Epsilon]", "2"], " ", 
             SubscriptBox["\[Sigma]", "2"]}]}], ")"}]}]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SubscriptBox["\[Gamma]", "1"], " ", 
          SubscriptBox["\[Gamma]", "3"]}], "+", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], " ", 
          SubscriptBox["\[Sigma]", "3"]}]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SubscriptBox["\[Gamma]", "2"], " ", 
          SubscriptBox["\[Gamma]", "3"]}], "+", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], " ", 
          SubscriptBox["\[Sigma]", "3"]}]}], ")"}]}], "+", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
          SubscriptBox["\[Gamma]", "3"], " ", 
          SubscriptBox["\[Delta]", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SubscriptBox["\[Gamma]", "2"], " ", 
             SubscriptBox["\[Gamma]", "3"]}], "+", 
            RowBox[{
             SubscriptBox["\[Epsilon]", "2"], " ", 
             SubscriptBox["\[Sigma]", "2"]}]}], ")"}]}], "+", 
         RowBox[{
          SubscriptBox["\[Gamma]", "2"], " ", 
          SubscriptBox["\[Delta]", "1"], " ", 
          SubscriptBox["\[Epsilon]", "1"], " ", 
          SubscriptBox["\[Sigma]", "1"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SubscriptBox["\[Gamma]", "2"], " ", 
             SubscriptBox["\[Gamma]", "3"]}], "+", 
            RowBox[{
             SubscriptBox["\[Delta]", "2"], " ", 
             SubscriptBox["\[Sigma]", "3"]}]}], ")"}]}], "+", 
         RowBox[{
          SubscriptBox["\[Gamma]", "1"], " ", 
          SubscriptBox["\[Delta]", "1"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
             SubsuperscriptBox["\[Gamma]", "3", "2"]}], "+", 
            RowBox[{"2", " ", 
             SubscriptBox["\[Gamma]", "2"], " ", 
             SubscriptBox["\[Gamma]", "3"], " ", 
             SubscriptBox["\[Delta]", "2"], " ", 
             SubscriptBox["\[Sigma]", "3"]}], "+", 
            RowBox[{
             SubscriptBox["\[Delta]", "2"], " ", 
             SubscriptBox["\[Epsilon]", "2"], " ", 
             SubscriptBox["\[Sigma]", "2"], " ", 
             SubscriptBox["\[Sigma]", "3"]}]}], ")"}]}]}], ")"}], "2"]}], 
     "]"}]}], "\[IndentingNewLine]", 
   RowBox[{"aNumerator", "==", 
    RowBox[{
     RowBox[{
      SubscriptBox["\[Gamma]", "1"], " ", 
      SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
      SubsuperscriptBox["\[Gamma]", "3", "2"], " ", 
      SubscriptBox["\[Delta]", "1"]}], "+", 
     RowBox[{
      SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
      SubscriptBox["\[Gamma]", "2"], " ", 
      SubsuperscriptBox["\[Gamma]", "3", "2"], " ", 
      SubscriptBox["\[Delta]", "2"]}], "+", 
     RowBox[{
      SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
      SubscriptBox["\[Gamma]", "3"], " ", 
      SubscriptBox["\[Delta]", "1"], " ", 
      SubscriptBox["\[Epsilon]", "1"], " ", 
      SubscriptBox["\[Sigma]", "1"]}], "+", 
     RowBox[{
      SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
      SubscriptBox["\[Gamma]", "3"], " ", 
      SubscriptBox["\[Delta]", "2"], " ", 
      SubscriptBox["\[Epsilon]", "2"], " ", 
      SubscriptBox["\[Sigma]", "2"]}], "+", 
     RowBox[{"2", " ", 
      SubscriptBox["\[Gamma]", "1"], " ", 
      SubscriptBox["\[Gamma]", "2"], " ", 
      SubscriptBox["\[Gamma]", "3"], " ", 
      SubscriptBox["\[Delta]", "1"], " ", 
      SubscriptBox["\[Delta]", "2"], " ", 
      SubscriptBox["\[Sigma]", "3"]}], "+", 
     RowBox[{
      SubscriptBox["\[Gamma]", "2"], " ", 
      SubscriptBox["\[Delta]", "1"], " ", 
      SubscriptBox["\[Delta]", "2"], " ", 
      SubscriptBox["\[Epsilon]", "1"], " ", 
      SubscriptBox["\[Sigma]", "1"], " ", 
      SubscriptBox["\[Sigma]", "3"]}], "+", 
     RowBox[{
      SubscriptBox["\[Gamma]", "1"], " ", 
      SubscriptBox["\[Delta]", "1"], " ", 
      SubscriptBox["\[Delta]", "2"], " ", 
      SubscriptBox["\[Epsilon]", "2"], " ", 
      SubscriptBox["\[Sigma]", "2"], " ", 
      SubscriptBox["\[Sigma]", "3"]}]}]}], "\[IndentingNewLine]", 
   RowBox[{"aDenominator", "==", 
    RowBox[{"2", " ", 
     SubscriptBox["\[Gamma]", "3"], " ", 
     SubscriptBox["\[Delta]", "1"], " ", 
     SubscriptBox["\[Delta]", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SubscriptBox["\[Gamma]", "2"], " ", 
        SubscriptBox["\[Epsilon]", "1"], " ", 
        SubscriptBox["\[Sigma]", "1"]}], "+", 
       RowBox[{
        SubscriptBox["\[Gamma]", "1"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox["\[Gamma]", "2"], " ", 
           SubscriptBox["\[Gamma]", "3"]}], "+", 
          RowBox[{
           SubscriptBox["\[Epsilon]", "2"], " ", 
           SubscriptBox["\[Sigma]", "2"]}]}], ")"}]}]}], 
      ")"}]}]}]}]}]], "Input",
 CellChangeTimes->{{3.790427275758937*^9, 3.7904272958635435`*^9}, {
   3.7904273849295425`*^9, 3.79042746963246*^9}, {3.7904275095584416`*^9, 
   3.7904276694912972`*^9}, {3.790427811231201*^9, 3.7904279160149198`*^9}, {
   3.790427975182124*^9, 3.7904280082301083`*^9}, 3.7904280401866665`*^9, {
   3.7905324461233406`*^9, 
   3.790532449365788*^9}},ExpressionUUID->"8bd368ca-d389-4519-9709-\
695780f9cdd1"],

Cell[TextData[{
 "We note that in each unfactored term there seems to be an equal number of \
the sum of the \[Gamma] and \[Sigma] terms. We also note that",
 Cell[BoxData[
  FormBox[
   RowBox[{" ", 
    FractionBox[
     RowBox[{"  ", "\[Sigma]"}], 
     RowBox[{" ", "\[Gamma]"}]]}], TraditionalForm]],ExpressionUUID->
  "cd845d27-d01b-4a1e-a8da-8f870e5f1b83"],
 " is the equilibrium population size for each individual type. We therefore \
define a new parameter ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["n", "i"], "=", " ", 
    FractionBox[
     RowBox[{"  ", 
      SubscriptBox["\[Sigma]", "i"]}], 
     RowBox[{" ", 
      SubscriptBox["\[Gamma]", "i"]}]]}], TraditionalForm]],ExpressionUUID->
  "dd0eefcd-025e-451d-886c-2debc87072e3"],
 "and refactor the equilibria. Note that significantly shorter expressions in \
the numerators. "
}], "Text",
 CellChangeTimes->{{3.790425516605199*^9, 3.7904257980857086`*^9}, {
  3.791031684001298*^9, 
  3.7910316847691765`*^9}},ExpressionUUID->"1132f220-c2de-4a55-98bd-\
04f8b3502ddd"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"EqnWithAlpha", "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"d1", "\[Equal]", 
       RowBox[{
        RowBox[{
         SubscriptBox["n", "1"], " ", "*", 
         SubscriptBox["\[Gamma]", "1"]}], "-", 
        RowBox[{
         SubscriptBox["\[Delta]", "1"], "*", "b", "*", " ", 
         SubscriptBox["S", "1"]}], "-", 
        RowBox[{
         SubscriptBox["\[Gamma]", "1"], "*", " ", 
         SubscriptBox["S", "1"]}]}]}], ",", "\[IndentingNewLine]", "\t", 
      RowBox[{"d2", "==", 
       RowBox[{
        RowBox[{
         SubscriptBox["\[Delta]", "1"], "*", "b", "*", " ", 
         SubscriptBox["S", "1"]}], "-", 
        RowBox[{
         SubscriptBox["\[Gamma]", "1"], "*", " ", 
         SubscriptBox["i", "1"]}]}]}], ",", "\[IndentingNewLine]", "\t", 
      RowBox[{"d3", "\[Equal]", 
       RowBox[{
        RowBox[{
         SubscriptBox["n", "2"], " ", "*", 
         SubscriptBox["\[Gamma]", "2"]}], "-", 
        RowBox[{
         SubscriptBox["\[Delta]", "2"], "*", "b", "*", " ", 
         SubscriptBox["S", "2"]}], "-", 
        RowBox[{
         SubscriptBox["\[Gamma]", "2"], "*", " ", 
         SubscriptBox["S", "2"]}]}]}], ",", "\[IndentingNewLine]", "\t", 
      RowBox[{"d4", "==", 
       RowBox[{
        RowBox[{
         SubscriptBox["\[Delta]", "2"], "*", "b", "*", " ", 
         SubscriptBox["S", "2"]}], "-", 
        RowBox[{
         SubscriptBox["\[Gamma]", "2"], "*", " ", 
         SubscriptBox["i", "2"]}]}]}], ",", "\[IndentingNewLine]", "\t", 
      RowBox[{"d5", "\[Equal]", 
       RowBox[{
        RowBox[{
         SubscriptBox["n", "3"], " ", "*", 
         SubscriptBox["\[Gamma]", "3"]}], "-", 
        RowBox[{
         SubscriptBox["\[Epsilon]", "1"], "*", 
         SubscriptBox["i", "1"], "*", "a"}], "-", 
        RowBox[{
         SubscriptBox["\[Epsilon]", "2"], "*", 
         SubscriptBox["i", "2"], "*", "a"}], "-", 
        RowBox[{
         SubscriptBox["\[Gamma]", "3"], "*", " ", "a"}]}]}], ",", 
      "\[IndentingNewLine]", "\t", 
      RowBox[{"d6", "==", 
       RowBox[{
        RowBox[{
         SubscriptBox["\[Epsilon]", "1"], "*", 
         SubscriptBox["i", "1"], "*", "a"}], "+", 
        RowBox[{
         SubscriptBox["\[Epsilon]", "2"], "*", 
         SubscriptBox["i", "2"], "*", "a"}], "-", 
        RowBox[{
         SubscriptBox["\[Gamma]", "3"], "*", " ", "b"}]}]}]}], "}"}]}], ";"}],
   "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Simplify", "[", 
  RowBox[{"Solve", "[", 
   RowBox[{"EqnWithAlpha", ",", 
    RowBox[{"{", 
     RowBox[{
      SubscriptBox["S", "1"], ",", 
      SubscriptBox["i", "1"], ",", 
      SubscriptBox["S", "2"], ",", 
      SubscriptBox["i", "2"], ",", "a", ",", " ", "b"}], "}"}]}], "]"}], 
  "]"}]}], "Input",
 CellChangeTimes->{
  3.7904258201246185`*^9, {3.79042585206379*^9, 3.7904258540951347`*^9}, {
   3.7910316886216583`*^9, 
   3.791031697347577*^9}},ExpressionUUID->"6e04cf5f-1118-4c6c-a66c-\
b98484b7d63c"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.7904255077349367`*^9, 
  3.7904255102545695`*^9}},ExpressionUUID->"f0bd53b0-19ab-4cbf-9de8-\
92cb95c38abe"],

Cell[TextData[{
 "We next note that ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["n", "i"], TraditionalForm]],ExpressionUUID->
  "10496068-0e80-43a4-88ad-e509275141d6"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Epsilon]", "i"], TraditionalForm]],ExpressionUUID->
  "455b3b97-5c43-4c00-ac4d-4944d6d253e9"],
 " and ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["n", "3"], TraditionalForm]],ExpressionUUID->
  "ffa20956-075c-4de2-bff0-a8da43f64d27"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Delta]", "i"], TraditionalForm]],ExpressionUUID->
  "6407d349-051b-41fa-99cd-e7e03aff03db"],
 "  regularly appear together so we define this combination to be the new \
parameters ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Beta]", "i"], TraditionalForm]],ExpressionUUID->
  "b6e959b8-6cff-4c63-acba-09c2d4336571"],
 "=(",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Sigma]", "i"], TraditionalForm]],ExpressionUUID->
  "25113298-fd26-436d-b9a9-c0f7ccb11955"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Epsilon]", "i"], TraditionalForm]],ExpressionUUID->
  "599d11f4-3b11-490c-bcae-bed15c8c8421"],
 ")/ ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Gamma]", "i"], TraditionalForm]],ExpressionUUID->
  "8ea3b6a1-64d7-422a-bf34-e863b6c20f1c"],
 " and ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Kappa]", "i"], TraditionalForm]],ExpressionUUID->
  "675060e9-c56a-421f-8841-7146dae4d985"],
 "=(",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Sigma]", "3"], TraditionalForm]],ExpressionUUID->
  "e8bbb3fa-843e-4b9b-bf38-8afec7dd3c4d"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Delta]", "i"], TraditionalForm]],ExpressionUUID->
  "fc9cc1d1-7c50-4ca6-80cb-ab81800e2f10"],
 ")/",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Gamma]", "3"], TraditionalForm]],ExpressionUUID->
  "31bc9b46-e5f8-4d81-bdba-5bbd1ec15d0f"],
 "  and refactor the equilibria accordingly"
}], "Text",
 CellChangeTimes->{{3.790425866488388*^9, 3.7904260937783237`*^9}, {
  3.79042686990473*^9, 3.7904270084019237`*^9}, {3.7910318038266106`*^9, 
  3.791031809986849*^9}},ExpressionUUID->"3f8b908c-2320-4eb0-9671-\
c52402b48612"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"EqnWithBeta", "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"d1", "\[Equal]", 
       RowBox[{
        RowBox[{
         SubscriptBox["n", "1"], " ", "*", 
         SubscriptBox["\[Gamma]", "1"]}], "-", 
        RowBox[{
         RowBox[{
          SubscriptBox["\[Kappa]", "1"], "/", 
          SubscriptBox["n", "3"]}], "*", "b", "*", " ", 
         SubscriptBox["S", "1"]}], "-", 
        RowBox[{
         SubscriptBox["\[Gamma]", "1"], "*", " ", 
         SubscriptBox["S", "1"]}]}]}], ",", "\[IndentingNewLine]", "\t", 
      RowBox[{"d2", "==", 
       RowBox[{
        RowBox[{
         RowBox[{
          SubscriptBox["\[Kappa]", "1"], "/", 
          SubscriptBox["n", "3"]}], "*", "b", "*", " ", 
         SubscriptBox["S", "1"]}], "-", 
        RowBox[{
         SubscriptBox["\[Gamma]", "1"], "*", " ", 
         SubscriptBox["i", "1"]}]}]}], ",", "\[IndentingNewLine]", "\t", 
      RowBox[{"d3", "\[Equal]", " ", 
       RowBox[{
        RowBox[{
         SubscriptBox["n", "2"], " ", "*", 
         SubscriptBox["\[Gamma]", "2"]}], "-", 
        RowBox[{
         RowBox[{
          SubscriptBox["\[Kappa]", "2"], "/", 
          SubscriptBox["n", "3"]}], "*", "b", "*", " ", 
         SubscriptBox["S", "2"]}], "-", 
        RowBox[{
         SubscriptBox["\[Gamma]", "2"], "*", " ", 
         SubscriptBox["S", "2"]}]}]}], ",", "\[IndentingNewLine]", "\t", 
      RowBox[{"d4", "==", 
       RowBox[{
        RowBox[{
         RowBox[{
          SubscriptBox["\[Kappa]", "2"], "/", 
          SubscriptBox["n", "3"]}], "*", "b", "*", " ", 
         SubscriptBox["S", "2"]}], "-", 
        RowBox[{
         SubscriptBox["\[Gamma]", "2"], "*", " ", 
         SubscriptBox["i", "2"]}]}]}], ",", "\[IndentingNewLine]", "\t", 
      RowBox[{"d5", "\[Equal]", 
       RowBox[{
        RowBox[{
         SubscriptBox["n", "3"], " ", "*", 
         SubscriptBox["\[Gamma]", "3"]}], "-", 
        RowBox[{
         RowBox[{
          SubscriptBox["\[Beta]", "1"], "/", 
          SubscriptBox["n", 
           RowBox[{"1", " "}]]}], "*", 
         SubscriptBox["i", "1"], "*", "a"}], "-", 
        RowBox[{
         RowBox[{
          SubscriptBox["\[Beta]", "2"], "/", 
          SubscriptBox["n", 
           RowBox[{"2", " "}]]}], "*", 
         SubscriptBox["i", "2"], "*", "a"}], "-", 
        RowBox[{
         SubscriptBox["\[Gamma]", "3"], "*", " ", "a"}]}]}], ",", 
      "\[IndentingNewLine]", "\t", 
      RowBox[{"d6", "==", 
       RowBox[{
        RowBox[{
         RowBox[{
          SubscriptBox["\[Beta]", "1"], "/", 
          SubscriptBox["n", 
           RowBox[{"1", " "}]]}], "*", 
         SubscriptBox["i", "1"], "*", "a"}], "+", 
        RowBox[{
         RowBox[{
          SubscriptBox["\[Beta]", "2"], "/", 
          SubscriptBox["n", 
           RowBox[{"2", " "}]]}], "*", 
         SubscriptBox["i", "2"], "*", "a"}], "-", 
        RowBox[{
         SubscriptBox["\[Gamma]", "3"], "*", " ", "b"}]}]}]}], "}"}]}], ";"}],
   "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Simplify", "[", 
   RowBox[{"Solve", "[", 
    RowBox[{"EqnWithBeta", ",", 
     RowBox[{"{", 
      RowBox[{
       SubscriptBox["S", "1"], ",", 
       SubscriptBox["i", "1"], ",", 
       SubscriptBox["S", "2"], ",", 
       SubscriptBox["i", "2"], ",", "a", ",", " ", "b"}], "}"}]}], "]"}], 
   "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.7904261010576386`*^9, 3.790426107447621*^9}, {
   3.790426153467795*^9, 3.7904262190798397`*^9}, {3.7904270213775797`*^9, 
   3.7904270634698377`*^9}, 3.790532380299405*^9, {3.791031704922713*^9, 
   3.7910317382886996`*^9}, {3.7910318128190284`*^9, 
   3.7910318136113195`*^9}},ExpressionUUID->"0559d303-de69-43b1-890c-\
825bd7ccae30"],

Cell[TextData[{
 "We next note that ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Gamma]", "i"], TraditionalForm]],ExpressionUUID->
  "aac5dfe3-abf7-4a6a-af5d-b8c0168b68eb"],
 "+",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Kappa]", "i"], TraditionalForm]],ExpressionUUID->
  "eb0647aa-fe78-4f83-9a7f-56ebb3f7fe13"],
 " often appear paired within the square root so we define ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Nu]", "i"], TraditionalForm]],ExpressionUUID->
  "ee0df2e9-0e46-4229-a8e1-ea36d40ac7bd"],
 "= ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Gamma]", "i"], TraditionalForm]],ExpressionUUID->
  "ca28ba46-472c-44b3-a14c-1d5a978a0bba"],
 "+ ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Kappa]", "i"], TraditionalForm]],ExpressionUUID->
  "745e444c-c719-4413-8bc4-b88317d8b43f"],
 "=",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Gamma]", "i"], TraditionalForm]],ExpressionUUID->
  "80420a7e-f8c4-4779-88b5-e04d7ee89ec1"],
 "+ (",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Sigma]", "3"], TraditionalForm]],ExpressionUUID->
  "e0c31650-6034-4164-840f-2bb4732878d6"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Delta]", "i"], TraditionalForm]],ExpressionUUID->
  "14de2c9f-c21b-42f1-8a08-131db9f5811f"],
 ")/",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Gamma]", "3"], TraditionalForm]],ExpressionUUID->
  "8ddb62c1-9cea-47dd-8fba-f651a05a525f"],
 " and ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Nu]", "3"], TraditionalForm]],ExpressionUUID->
  "3ee9bb40-9540-44f8-ba21-93c840188bcb"],
 "= ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Beta]", "1"], TraditionalForm]],ExpressionUUID->
  "e865b750-b849-4947-bce8-5b4ec20dcde9"],
 "+ ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Beta]", "2"], TraditionalForm]],ExpressionUUID->
  "7dd81d6b-78c0-4a75-afc5-dcfb0244666b"],
 "+ ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Gamma]", "3"], TraditionalForm]],ExpressionUUID->
  "69e4dc00-9bcb-45b0-b79b-b1bbbd854c0d"]
}], "Text",
 CellChangeTimes->{{3.790428481849305*^9, 3.790428485136967*^9}, {
  3.7904286100194736`*^9, 3.7904286453450203`*^9}, {3.790428710592487*^9, 
  3.7904288290806675`*^9}, {3.7904289948701887`*^9, 
  3.7904290764380913`*^9}},ExpressionUUID->"a0c17517-73b4-4d87-9e57-\
753fa43bbbd1"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"EqnWithNu", "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"d1", "\[Equal]", 
       RowBox[{
        RowBox[{
         SubscriptBox["n", "1"], " ", "*", " ", 
         RowBox[{"(", 
          RowBox[{
           SubscriptBox["\[Nu]", "1"], "-", 
           SubscriptBox["\[Kappa]", "1"]}], ")"}]}], "-", 
        RowBox[{
         RowBox[{
          SubscriptBox["\[Kappa]", "1"], "/", 
          SubscriptBox["n", "3"]}], "*", "b", "*", " ", 
         SubscriptBox["S", "1"]}], "-", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           SubscriptBox["\[Nu]", "1"], "-", 
           SubscriptBox["\[Kappa]", "1"]}], ")"}], "*", " ", 
         SubscriptBox["S", "1"]}]}]}], ",", "\[IndentingNewLine]", "\t", 
      RowBox[{"d2", "==", 
       RowBox[{
        RowBox[{
         RowBox[{
          SubscriptBox["\[Kappa]", "1"], "/", 
          SubscriptBox["n", "3"]}], "*", "b", "*", " ", 
         SubscriptBox["S", "1"]}], "-", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           SubscriptBox["\[Nu]", "1"], "-", 
           SubscriptBox["\[Kappa]", "1"]}], ")"}], "*", " ", 
         SubscriptBox["i", "1"]}]}]}], ",", "\[IndentingNewLine]", "\t", 
      RowBox[{"d3", "\[Equal]", 
       RowBox[{
        RowBox[{
         SubscriptBox["n", "2"], " ", "*", " ", 
         RowBox[{"(", 
          RowBox[{
           SubscriptBox["\[Nu]", "2"], "-", 
           SubscriptBox["\[Kappa]", "2"]}], ")"}]}], "-", 
        RowBox[{
         RowBox[{
          SubscriptBox["\[Kappa]", "2"], "/", 
          SubscriptBox["n", "3"]}], "*", "b", "*", " ", 
         SubscriptBox["S", "2"]}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           SubscriptBox["\[Nu]", "2"], "-", 
           SubscriptBox["\[Kappa]", "2"]}], ")"}], "*", " ", 
         SubscriptBox["S", "2"]}]}]}], ",", "\[IndentingNewLine]", "\t", 
      RowBox[{"d4", "==", 
       RowBox[{
        RowBox[{
         RowBox[{
          SubscriptBox["\[Kappa]", "2"], "/", 
          SubscriptBox["n", "3"]}], "*", "b", "*", " ", 
         SubscriptBox["S", "2"]}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           SubscriptBox["\[Nu]", "2"], "-", 
           SubscriptBox["\[Kappa]", "2"]}], ")"}], "*", " ", 
         SubscriptBox["i", "2"]}]}]}], ",", "\[IndentingNewLine]", "\t", 
      RowBox[{"d5", "\[Equal]", 
       RowBox[{
        RowBox[{
         SubscriptBox["n", "3"], " ", "*", 
         RowBox[{"(", 
          RowBox[{
           SubscriptBox["\[Nu]", "3"], "-", 
           SubscriptBox["\[Beta]", "1"], "-", 
           SubscriptBox["\[Beta]", "2"]}], ")"}]}], "-", 
        RowBox[{
         RowBox[{
          SubscriptBox["\[Beta]", "1"], "/", 
          SubscriptBox["n", 
           RowBox[{"1", " "}]]}], "*", 
         SubscriptBox["i", "1"], "*", "a"}], "-", 
        RowBox[{
         RowBox[{
          SubscriptBox["\[Beta]", "2"], "/", 
          SubscriptBox["n", 
           RowBox[{"2", " "}]]}], "*", 
         SubscriptBox["i", "2"], "*", "a"}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           SubscriptBox["\[Nu]", "3"], "-", 
           SubscriptBox["\[Beta]", "1"], "-", 
           SubscriptBox["\[Beta]", "2"]}], ")"}], "*", " ", "a"}]}]}], ",", 
      "\[IndentingNewLine]", "\t", 
      RowBox[{"d6", "==", 
       RowBox[{
        RowBox[{
         RowBox[{
          SubscriptBox["\[Beta]", "1"], "/", 
          SubscriptBox["n", 
           RowBox[{"1", " "}]]}], "*", 
         SubscriptBox["i", "1"], "*", "a"}], "+", 
        RowBox[{
         RowBox[{
          SubscriptBox["\[Beta]", "2"], "/", 
          SubscriptBox["n", 
           RowBox[{"2", " "}]]}], "*", 
         SubscriptBox["i", "2"], "*", "a"}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           SubscriptBox["\[Nu]", "3"], "-", 
           SubscriptBox["\[Beta]", "1"], "-", 
           SubscriptBox["\[Beta]", "2"]}], ")"}], "*", " ", "b"}]}]}]}], 
     "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Simplify", "[", 
  RowBox[{"Solve", "[", 
   RowBox[{"EqnWithNu", ",", 
    RowBox[{"{", 
     RowBox[{
      SubscriptBox["S", "1"], ",", 
      SubscriptBox["i", "1"], ",", 
      SubscriptBox["S", "2"], ",", 
      SubscriptBox["i", "2"], ",", "a", ",", " ", "b"}], "}"}]}], "]"}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.7904288715236177`*^9, 3.790428916295925*^9}, {
   3.790429099473112*^9, 3.7904291617613583`*^9}, {3.790429231268005*^9, 
   3.790429231495843*^9}, 3.790532375769125*^9, {3.7910317560605145`*^9, 
   3.791031760591256*^9}, {3.7910318143154945`*^9, 3.791031818438025*^9}, 
   3.7910319012364426`*^9},
 CellLabel->"In[7]:=",ExpressionUUID->"a9505cf8-76c8-4aaf-959f-427b372e2e77"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      SubscriptBox["S", "1"], "\[Rule]", 
      SubscriptBox["n", "1"]}], ",", 
     RowBox[{
      SubscriptBox["i", "1"], "\[Rule]", "0"}], ",", 
     RowBox[{
      SubscriptBox["S", "2"], "\[Rule]", 
      SubscriptBox["n", "2"]}], ",", 
     RowBox[{
      SubscriptBox["i", "2"], "\[Rule]", "0"}], ",", 
     RowBox[{"a", "\[Rule]", 
      SubscriptBox["n", "3"]}], ",", 
     RowBox[{"b", "\[Rule]", "0"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      SubscriptBox["S", "1"], "\[Rule]", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         SubscriptBox["n", "1"], " ", 
         RowBox[{"(", 
          RowBox[{
           SubscriptBox["\[Kappa]", "1"], "-", 
           SubscriptBox["\[Nu]", "1"]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SubscriptBox["n", "3"], " ", 
            SubscriptBox["\[Beta]", "1"], " ", 
            SubscriptBox["\[Kappa]", "2"], " ", 
            SubscriptBox["\[Nu]", "1"]}], "+", 
           RowBox[{
            SubscriptBox["n", "3"], " ", 
            SubscriptBox["\[Beta]", "2"], " ", 
            SubscriptBox["\[Kappa]", "1"], " ", 
            SubscriptBox["\[Nu]", "2"]}], "+", 
           RowBox[{
            SubscriptBox["n", "3"], " ", 
            SubscriptBox["\[Kappa]", "2"], " ", 
            SubscriptBox["\[Nu]", "1"], " ", 
            SubscriptBox["\[Nu]", "3"]}], "-", 
           RowBox[{
            SubscriptBox["n", "3"], " ", 
            SubscriptBox["\[Kappa]", "1"], " ", 
            SubscriptBox["\[Nu]", "2"], " ", 
            SubscriptBox["\[Nu]", "3"]}], "-", 
           SqrtBox[
            RowBox[{
             SubsuperscriptBox["n", "3", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"4", " ", 
                SubscriptBox["\[Kappa]", "1"], " ", 
                SubscriptBox["\[Kappa]", "2"], " ", 
                SubscriptBox["\[Nu]", "1"], " ", 
                SubscriptBox["\[Nu]", "2"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  SubscriptBox["\[Beta]", "1"], "+", 
                  SubscriptBox["\[Beta]", "2"], "-", 
                  SubscriptBox["\[Nu]", "3"]}], ")"}], " ", 
                SubscriptBox["\[Nu]", "3"]}], "+", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   SubscriptBox["\[Beta]", "1"], " ", 
                   SubscriptBox["\[Kappa]", "2"], " ", 
                   SubscriptBox["\[Nu]", "1"]}], "+", 
                  RowBox[{
                   SubscriptBox["\[Beta]", "2"], " ", 
                   SubscriptBox["\[Kappa]", "1"], " ", 
                   SubscriptBox["\[Nu]", "2"]}], "-", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SubscriptBox["\[Kappa]", "2"], " ", 
                    SubscriptBox["\[Nu]", "1"]}], "+", 
                    RowBox[{
                    SubscriptBox["\[Kappa]", "1"], " ", 
                    SubscriptBox["\[Nu]", "2"]}]}], ")"}], " ", 
                   SubscriptBox["\[Nu]", "3"]}]}], ")"}], "2"]}], ")"}]}]]}], 
          ")"}]}], 
        RowBox[{"2", " ", 
         SubscriptBox["n", "3"], " ", 
         SubscriptBox["\[Beta]", "1"], " ", 
         SubscriptBox["\[Nu]", "1"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SubscriptBox["\[Kappa]", "2"], " ", 
            SubscriptBox["\[Nu]", "1"]}], "-", 
           RowBox[{
            SubscriptBox["\[Kappa]", "1"], " ", 
            SubscriptBox["\[Nu]", "2"]}]}], ")"}]}]]}]}], ",", 
     RowBox[{
      SubscriptBox["i", "1"], "\[Rule]", 
      FractionBox[
       RowBox[{
        SubscriptBox["n", "1"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox["n", "3"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SubscriptBox["\[Beta]", "1"], " ", 
              SubscriptBox["\[Nu]", "1"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SubscriptBox["\[Kappa]", "2"], " ", 
                 SubscriptBox["\[Nu]", "1"]}], "+", 
                RowBox[{
                 SubscriptBox["\[Kappa]", "1"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   SubscriptBox["\[Kappa]", "2"], "-", 
                   RowBox[{"2", " ", 
                    SubscriptBox["\[Nu]", "2"]}]}], ")"}]}]}], ")"}]}], "+", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                SubscriptBox["\[Kappa]", "1"], "-", 
                SubscriptBox["\[Nu]", "1"]}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SubscriptBox["\[Beta]", "2"], " ", 
                 SubscriptBox["\[Kappa]", "1"], " ", 
                 SubscriptBox["\[Nu]", "2"]}], "+", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SubscriptBox["\[Kappa]", "2"], " ", 
                    SubscriptBox["\[Nu]", "1"]}], "-", 
                   RowBox[{
                    SubscriptBox["\[Kappa]", "1"], " ", 
                    SubscriptBox["\[Nu]", "2"]}]}], ")"}], " ", 
                 SubscriptBox["\[Nu]", "3"]}]}], ")"}]}]}], ")"}]}], "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              SubscriptBox["\[Kappa]", "1"]}], "+", 
             SubscriptBox["\[Nu]", "1"]}], ")"}], " ", 
           SqrtBox[
            RowBox[{
             SubsuperscriptBox["n", "3", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SubsuperscriptBox["\[Beta]", "1", "2"], " ", 
                SubsuperscriptBox["\[Kappa]", "2", "2"], " ", 
                SubsuperscriptBox["\[Nu]", "1", "2"]}], "+", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   SubscriptBox["\[Beta]", "2"], " ", 
                   SubscriptBox["\[Kappa]", "1"], " ", 
                   SubscriptBox["\[Nu]", "2"]}], "+", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SubscriptBox["\[Kappa]", "2"], " ", 
                    SubscriptBox["\[Nu]", "1"]}], "-", 
                    RowBox[{
                    SubscriptBox["\[Kappa]", "1"], " ", 
                    SubscriptBox["\[Nu]", "2"]}]}], ")"}], " ", 
                   SubscriptBox["\[Nu]", "3"]}]}], ")"}], "2"], "+", 
               RowBox[{"2", " ", 
                SubscriptBox["\[Beta]", "1"], " ", 
                SubscriptBox["\[Kappa]", "2"], " ", 
                SubscriptBox["\[Nu]", "1"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   SubscriptBox["\[Beta]", "2"], " ", 
                   SubscriptBox["\[Kappa]", "1"], " ", 
                   SubscriptBox["\[Nu]", "2"]}], "+", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", 
                    SubscriptBox["\[Kappa]", "2"]}], " ", 
                    SubscriptBox["\[Nu]", "1"]}], "+", 
                    RowBox[{
                    SubscriptBox["\[Kappa]", "1"], " ", 
                    SubscriptBox["\[Nu]", "2"]}]}], ")"}], " ", 
                   SubscriptBox["\[Nu]", "3"]}]}], ")"}]}]}], ")"}]}]]}]}], 
         ")"}]}], 
       RowBox[{"2", " ", 
        SubscriptBox["n", "3"], " ", 
        SubscriptBox["\[Beta]", "1"], " ", 
        SubscriptBox["\[Nu]", "1"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox["\[Kappa]", "2"], " ", 
           SubscriptBox["\[Nu]", "1"]}], "-", 
          RowBox[{
           SubscriptBox["\[Kappa]", "1"], " ", 
           SubscriptBox["\[Nu]", "2"]}]}], ")"}]}]]}], ",", 
     RowBox[{
      SubscriptBox["S", "2"], "\[Rule]", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         SubscriptBox["n", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           SubscriptBox["\[Kappa]", "2"], "-", 
           SubscriptBox["\[Nu]", "2"]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SubscriptBox["n", "3"], " ", 
            SubscriptBox["\[Beta]", "1"], " ", 
            SubscriptBox["\[Kappa]", "2"], " ", 
            SubscriptBox["\[Nu]", "1"]}], "+", 
           RowBox[{
            SubscriptBox["n", "3"], " ", 
            SubscriptBox["\[Beta]", "2"], " ", 
            SubscriptBox["\[Kappa]", "1"], " ", 
            SubscriptBox["\[Nu]", "2"]}], "-", 
           RowBox[{
            SubscriptBox["n", "3"], " ", 
            SubscriptBox["\[Kappa]", "2"], " ", 
            SubscriptBox["\[Nu]", "1"], " ", 
            SubscriptBox["\[Nu]", "3"]}], "+", 
           RowBox[{
            SubscriptBox["n", "3"], " ", 
            SubscriptBox["\[Kappa]", "1"], " ", 
            SubscriptBox["\[Nu]", "2"], " ", 
            SubscriptBox["\[Nu]", "3"]}], "-", 
           SqrtBox[
            RowBox[{
             SubsuperscriptBox["n", "3", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"4", " ", 
                SubscriptBox["\[Kappa]", "1"], " ", 
                SubscriptBox["\[Kappa]", "2"], " ", 
                SubscriptBox["\[Nu]", "1"], " ", 
                SubscriptBox["\[Nu]", "2"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  SubscriptBox["\[Beta]", "1"], "+", 
                  SubscriptBox["\[Beta]", "2"], "-", 
                  SubscriptBox["\[Nu]", "3"]}], ")"}], " ", 
                SubscriptBox["\[Nu]", "3"]}], "+", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   SubscriptBox["\[Beta]", "1"], " ", 
                   SubscriptBox["\[Kappa]", "2"], " ", 
                   SubscriptBox["\[Nu]", "1"]}], "+", 
                  RowBox[{
                   SubscriptBox["\[Beta]", "2"], " ", 
                   SubscriptBox["\[Kappa]", "1"], " ", 
                   SubscriptBox["\[Nu]", "2"]}], "-", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SubscriptBox["\[Kappa]", "2"], " ", 
                    SubscriptBox["\[Nu]", "1"]}], "+", 
                    RowBox[{
                    SubscriptBox["\[Kappa]", "1"], " ", 
                    SubscriptBox["\[Nu]", "2"]}]}], ")"}], " ", 
                   SubscriptBox["\[Nu]", "3"]}]}], ")"}], "2"]}], ")"}]}]]}], 
          ")"}]}], 
        RowBox[{"2", " ", 
         SubscriptBox["n", "3"], " ", 
         SubscriptBox["\[Beta]", "2"], " ", 
         SubscriptBox["\[Nu]", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", 
             SubscriptBox["\[Kappa]", "2"]}], " ", 
            SubscriptBox["\[Nu]", "1"]}], "+", 
           RowBox[{
            SubscriptBox["\[Kappa]", "1"], " ", 
            SubscriptBox["\[Nu]", "2"]}]}], ")"}]}]]}]}], ",", 
     RowBox[{
      SubscriptBox["i", "2"], "\[Rule]", 
      FractionBox[
       RowBox[{
        SubscriptBox["n", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox["n", "3"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SubscriptBox["\[Beta]", "1"], " ", 
              SubscriptBox["\[Kappa]", "2"], " ", 
              SubscriptBox["\[Nu]", "1"], " ", 
              RowBox[{"(", 
               RowBox[{
                SubscriptBox["\[Kappa]", "2"], "-", 
                SubscriptBox["\[Nu]", "2"]}], ")"}]}], "+", 
             RowBox[{
              SubscriptBox["\[Beta]", "2"], " ", 
              SubscriptBox["\[Nu]", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "2"}], " ", 
                 SubscriptBox["\[Kappa]", "2"], " ", 
                 SubscriptBox["\[Nu]", "1"]}], "+", 
                RowBox[{
                 SubscriptBox["\[Kappa]", "1"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   SubscriptBox["\[Kappa]", "2"], "+", 
                   SubscriptBox["\[Nu]", "2"]}], ")"}]}]}], ")"}]}], "-", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                SubscriptBox["\[Kappa]", "2"], "-", 
                SubscriptBox["\[Nu]", "2"]}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SubscriptBox["\[Kappa]", "2"], " ", 
                 SubscriptBox["\[Nu]", "1"]}], "-", 
                RowBox[{
                 SubscriptBox["\[Kappa]", "1"], " ", 
                 SubscriptBox["\[Nu]", "2"]}]}], ")"}], " ", 
              SubscriptBox["\[Nu]", "3"]}]}], ")"}]}], "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              SubscriptBox["\[Kappa]", "2"]}], "+", 
             SubscriptBox["\[Nu]", "2"]}], ")"}], " ", 
           SqrtBox[
            RowBox[{
             SubsuperscriptBox["n", "3", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SubsuperscriptBox["\[Beta]", "1", "2"], " ", 
                SubsuperscriptBox["\[Kappa]", "2", "2"], " ", 
                SubsuperscriptBox["\[Nu]", "1", "2"]}], "+", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   SubscriptBox["\[Beta]", "2"], " ", 
                   SubscriptBox["\[Kappa]", "1"], " ", 
                   SubscriptBox["\[Nu]", "2"]}], "+", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SubscriptBox["\[Kappa]", "2"], " ", 
                    SubscriptBox["\[Nu]", "1"]}], "-", 
                    RowBox[{
                    SubscriptBox["\[Kappa]", "1"], " ", 
                    SubscriptBox["\[Nu]", "2"]}]}], ")"}], " ", 
                   SubscriptBox["\[Nu]", "3"]}]}], ")"}], "2"], "+", 
               RowBox[{"2", " ", 
                SubscriptBox["\[Beta]", "1"], " ", 
                SubscriptBox["\[Kappa]", "2"], " ", 
                SubscriptBox["\[Nu]", "1"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   SubscriptBox["\[Beta]", "2"], " ", 
                   SubscriptBox["\[Kappa]", "1"], " ", 
                   SubscriptBox["\[Nu]", "2"]}], "+", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", 
                    SubscriptBox["\[Kappa]", "2"]}], " ", 
                    SubscriptBox["\[Nu]", "1"]}], "+", 
                    RowBox[{
                    SubscriptBox["\[Kappa]", "1"], " ", 
                    SubscriptBox["\[Nu]", "2"]}]}], ")"}], " ", 
                   SubscriptBox["\[Nu]", "3"]}]}], ")"}]}]}], ")"}]}]]}]}], 
         ")"}]}], 
       RowBox[{"2", " ", 
        SubscriptBox["n", "3"], " ", 
        SubscriptBox["\[Beta]", "2"], " ", 
        SubscriptBox["\[Nu]", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", 
            SubscriptBox["\[Kappa]", "2"]}], " ", 
           SubscriptBox["\[Nu]", "1"]}], "+", 
          RowBox[{
           SubscriptBox["\[Kappa]", "1"], " ", 
           SubscriptBox["\[Nu]", "2"]}]}], ")"}]}]]}], ",", 
     RowBox[{"a", "\[Rule]", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         RowBox[{
          SubscriptBox["n", "3"], " ", 
          SubscriptBox["\[Beta]", "1"], " ", 
          SubscriptBox["\[Kappa]", "2"], " ", 
          SubscriptBox["\[Nu]", "1"]}], "+", 
         RowBox[{
          SubscriptBox["n", "3"], " ", 
          SubscriptBox["\[Beta]", "2"], " ", 
          SubscriptBox["\[Kappa]", "1"], " ", 
          SubscriptBox["\[Nu]", "2"]}], "-", 
         RowBox[{
          SubscriptBox["n", "3"], " ", 
          SubscriptBox["\[Kappa]", "2"], " ", 
          SubscriptBox["\[Nu]", "1"], " ", 
          SubscriptBox["\[Nu]", "3"]}], "-", 
         RowBox[{
          SubscriptBox["n", "3"], " ", 
          SubscriptBox["\[Kappa]", "1"], " ", 
          SubscriptBox["\[Nu]", "2"], " ", 
          SubscriptBox["\[Nu]", "3"]}], "+", 
         SqrtBox[
          RowBox[{
           SubsuperscriptBox["n", "3", "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"4", " ", 
              SubscriptBox["\[Kappa]", "1"], " ", 
              SubscriptBox["\[Kappa]", "2"], " ", 
              SubscriptBox["\[Nu]", "1"], " ", 
              SubscriptBox["\[Nu]", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                SubscriptBox["\[Beta]", "1"], "+", 
                SubscriptBox["\[Beta]", "2"], "-", 
                SubscriptBox["\[Nu]", "3"]}], ")"}], " ", 
              SubscriptBox["\[Nu]", "3"]}], "+", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SubscriptBox["\[Beta]", "1"], " ", 
                 SubscriptBox["\[Kappa]", "2"], " ", 
                 SubscriptBox["\[Nu]", "1"]}], "+", 
                RowBox[{
                 SubscriptBox["\[Beta]", "2"], " ", 
                 SubscriptBox["\[Kappa]", "1"], " ", 
                 SubscriptBox["\[Nu]", "2"]}], "-", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SubscriptBox["\[Kappa]", "2"], " ", 
                    SubscriptBox["\[Nu]", "1"]}], "+", 
                   RowBox[{
                    SubscriptBox["\[Kappa]", "1"], " ", 
                    SubscriptBox["\[Nu]", "2"]}]}], ")"}], " ", 
                 SubscriptBox["\[Nu]", "3"]}]}], ")"}], "2"]}], ")"}]}]]}], 
        RowBox[{"2", " ", 
         SubscriptBox["\[Kappa]", "1"], " ", 
         SubscriptBox["\[Kappa]", "2"], " ", 
         SubscriptBox["\[Nu]", "3"]}]]}]}], ",", 
     RowBox[{"b", "\[Rule]", 
      FractionBox[
       RowBox[{
        RowBox[{
         SubscriptBox["n", "3"], " ", 
         SubscriptBox["\[Beta]", "1"], " ", 
         SubscriptBox["\[Kappa]", "2"], " ", 
         SubscriptBox["\[Nu]", "1"]}], "+", 
        RowBox[{
         SubscriptBox["n", "3"], " ", 
         SubscriptBox["\[Beta]", "2"], " ", 
         SubscriptBox["\[Kappa]", "1"], " ", 
         SubscriptBox["\[Nu]", "2"]}], "+", 
        RowBox[{"2", " ", 
         SubscriptBox["n", "3"], " ", 
         SubscriptBox["\[Kappa]", "1"], " ", 
         SubscriptBox["\[Kappa]", "2"], " ", 
         SubscriptBox["\[Nu]", "3"]}], "-", 
        RowBox[{
         SubscriptBox["n", "3"], " ", 
         SubscriptBox["\[Kappa]", "2"], " ", 
         SubscriptBox["\[Nu]", "1"], " ", 
         SubscriptBox["\[Nu]", "3"]}], "-", 
        RowBox[{
         SubscriptBox["n", "3"], " ", 
         SubscriptBox["\[Kappa]", "1"], " ", 
         SubscriptBox["\[Nu]", "2"], " ", 
         SubscriptBox["\[Nu]", "3"]}], "+", 
        SqrtBox[
         RowBox[{
          SubsuperscriptBox["n", "3", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"4", " ", 
             SubscriptBox["\[Kappa]", "1"], " ", 
             SubscriptBox["\[Kappa]", "2"], " ", 
             SubscriptBox["\[Nu]", "1"], " ", 
             SubscriptBox["\[Nu]", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               SubscriptBox["\[Beta]", "1"], "+", 
               SubscriptBox["\[Beta]", "2"], "-", 
               SubscriptBox["\[Nu]", "3"]}], ")"}], " ", 
             SubscriptBox["\[Nu]", "3"]}], "+", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SubscriptBox["\[Beta]", "1"], " ", 
                SubscriptBox["\[Kappa]", "2"], " ", 
                SubscriptBox["\[Nu]", "1"]}], "+", 
               RowBox[{
                SubscriptBox["\[Beta]", "2"], " ", 
                SubscriptBox["\[Kappa]", "1"], " ", 
                SubscriptBox["\[Nu]", "2"]}], "-", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   SubscriptBox["\[Kappa]", "2"], " ", 
                   SubscriptBox["\[Nu]", "1"]}], "+", 
                  RowBox[{
                   SubscriptBox["\[Kappa]", "1"], " ", 
                   SubscriptBox["\[Nu]", "2"]}]}], ")"}], " ", 
                SubscriptBox["\[Nu]", "3"]}]}], ")"}], "2"]}], ")"}]}]]}], 
       RowBox[{"2", " ", 
        SubscriptBox["\[Kappa]", "1"], " ", 
        SubscriptBox["\[Kappa]", "2"], " ", 
        SubscriptBox["\[Nu]", "3"]}]]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      SubscriptBox["S", "1"], "\[Rule]", 
      FractionBox[
       RowBox[{
        SubscriptBox["n", "1"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           SubscriptBox["\[Kappa]", "1"]}], "+", 
          SubscriptBox["\[Nu]", "1"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox["n", "3"], " ", 
           SubscriptBox["\[Beta]", "1"], " ", 
           SubscriptBox["\[Kappa]", "2"], " ", 
           SubscriptBox["\[Nu]", "1"]}], "+", 
          RowBox[{
           SubscriptBox["n", "3"], " ", 
           SubscriptBox["\[Beta]", "2"], " ", 
           SubscriptBox["\[Kappa]", "1"], " ", 
           SubscriptBox["\[Nu]", "2"]}], "+", 
          RowBox[{
           SubscriptBox["n", "3"], " ", 
           SubscriptBox["\[Kappa]", "2"], " ", 
           SubscriptBox["\[Nu]", "1"], " ", 
           SubscriptBox["\[Nu]", "3"]}], "-", 
          RowBox[{
           SubscriptBox["n", "3"], " ", 
           SubscriptBox["\[Kappa]", "1"], " ", 
           SubscriptBox["\[Nu]", "2"], " ", 
           SubscriptBox["\[Nu]", "3"]}], "+", 
          SqrtBox[
           RowBox[{
            SubsuperscriptBox["n", "3", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"4", " ", 
               SubscriptBox["\[Kappa]", "1"], " ", 
               SubscriptBox["\[Kappa]", "2"], " ", 
               SubscriptBox["\[Nu]", "1"], " ", 
               SubscriptBox["\[Nu]", "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 SubscriptBox["\[Beta]", "1"], "+", 
                 SubscriptBox["\[Beta]", "2"], "-", 
                 SubscriptBox["\[Nu]", "3"]}], ")"}], " ", 
               SubscriptBox["\[Nu]", "3"]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  SubscriptBox["\[Beta]", "1"], " ", 
                  SubscriptBox["\[Kappa]", "2"], " ", 
                  SubscriptBox["\[Nu]", "1"]}], "+", 
                 RowBox[{
                  SubscriptBox["\[Beta]", "2"], " ", 
                  SubscriptBox["\[Kappa]", "1"], " ", 
                  SubscriptBox["\[Nu]", "2"]}], "-", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    SubscriptBox["\[Kappa]", "2"], " ", 
                    SubscriptBox["\[Nu]", "1"]}], "+", 
                    RowBox[{
                    SubscriptBox["\[Kappa]", "1"], " ", 
                    SubscriptBox["\[Nu]", "2"]}]}], ")"}], " ", 
                  SubscriptBox["\[Nu]", "3"]}]}], ")"}], "2"]}], ")"}]}]]}], 
         ")"}]}], 
       RowBox[{"2", " ", 
        SubscriptBox["n", "3"], " ", 
        SubscriptBox["\[Beta]", "1"], " ", 
        SubscriptBox["\[Nu]", "1"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox["\[Kappa]", "2"], " ", 
           SubscriptBox["\[Nu]", "1"]}], "-", 
          RowBox[{
           SubscriptBox["\[Kappa]", "1"], " ", 
           SubscriptBox["\[Nu]", "2"]}]}], ")"}]}]]}], ",", 
     RowBox[{
      SubscriptBox["i", "1"], "\[Rule]", 
      FractionBox[
       RowBox[{
        SubscriptBox["n", "1"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox["n", "3"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SubscriptBox["\[Beta]", "1"], " ", 
              SubscriptBox["\[Nu]", "1"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SubscriptBox["\[Kappa]", "2"], " ", 
                 SubscriptBox["\[Nu]", "1"]}], "+", 
                RowBox[{
                 SubscriptBox["\[Kappa]", "1"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   SubscriptBox["\[Kappa]", "2"], "-", 
                   RowBox[{"2", " ", 
                    SubscriptBox["\[Nu]", "2"]}]}], ")"}]}]}], ")"}]}], "+", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                SubscriptBox["\[Kappa]", "1"], "-", 
                SubscriptBox["\[Nu]", "1"]}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SubscriptBox["\[Beta]", "2"], " ", 
                 SubscriptBox["\[Kappa]", "1"], " ", 
                 SubscriptBox["\[Nu]", "2"]}], "+", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SubscriptBox["\[Kappa]", "2"], " ", 
                    SubscriptBox["\[Nu]", "1"]}], "-", 
                   RowBox[{
                    SubscriptBox["\[Kappa]", "1"], " ", 
                    SubscriptBox["\[Nu]", "2"]}]}], ")"}], " ", 
                 SubscriptBox["\[Nu]", "3"]}]}], ")"}]}]}], ")"}]}], "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             SubscriptBox["\[Kappa]", "1"], "-", 
             SubscriptBox["\[Nu]", "1"]}], ")"}], " ", 
           SqrtBox[
            RowBox[{
             SubsuperscriptBox["n", "3", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SubsuperscriptBox["\[Beta]", "1", "2"], " ", 
                SubsuperscriptBox["\[Kappa]", "2", "2"], " ", 
                SubsuperscriptBox["\[Nu]", "1", "2"]}], "+", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   SubscriptBox["\[Beta]", "2"], " ", 
                   SubscriptBox["\[Kappa]", "1"], " ", 
                   SubscriptBox["\[Nu]", "2"]}], "+", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SubscriptBox["\[Kappa]", "2"], " ", 
                    SubscriptBox["\[Nu]", "1"]}], "-", 
                    RowBox[{
                    SubscriptBox["\[Kappa]", "1"], " ", 
                    SubscriptBox["\[Nu]", "2"]}]}], ")"}], " ", 
                   SubscriptBox["\[Nu]", "3"]}]}], ")"}], "2"], "+", 
               RowBox[{"2", " ", 
                SubscriptBox["\[Beta]", "1"], " ", 
                SubscriptBox["\[Kappa]", "2"], " ", 
                SubscriptBox["\[Nu]", "1"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   SubscriptBox["\[Beta]", "2"], " ", 
                   SubscriptBox["\[Kappa]", "1"], " ", 
                   SubscriptBox["\[Nu]", "2"]}], "+", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", 
                    SubscriptBox["\[Kappa]", "2"]}], " ", 
                    SubscriptBox["\[Nu]", "1"]}], "+", 
                    RowBox[{
                    SubscriptBox["\[Kappa]", "1"], " ", 
                    SubscriptBox["\[Nu]", "2"]}]}], ")"}], " ", 
                   SubscriptBox["\[Nu]", "3"]}]}], ")"}]}]}], ")"}]}]]}]}], 
         ")"}]}], 
       RowBox[{"2", " ", 
        SubscriptBox["n", "3"], " ", 
        SubscriptBox["\[Beta]", "1"], " ", 
        SubscriptBox["\[Nu]", "1"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox["\[Kappa]", "2"], " ", 
           SubscriptBox["\[Nu]", "1"]}], "-", 
          RowBox[{
           SubscriptBox["\[Kappa]", "1"], " ", 
           SubscriptBox["\[Nu]", "2"]}]}], ")"}]}]]}], ",", 
     RowBox[{
      SubscriptBox["S", "2"], "\[Rule]", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         SubscriptBox["n", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           SubscriptBox["\[Kappa]", "2"], "-", 
           SubscriptBox["\[Nu]", "2"]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SubscriptBox["n", "3"], " ", 
            SubscriptBox["\[Beta]", "1"], " ", 
            SubscriptBox["\[Kappa]", "2"], " ", 
            SubscriptBox["\[Nu]", "1"]}], "+", 
           RowBox[{
            SubscriptBox["n", "3"], " ", 
            SubscriptBox["\[Beta]", "2"], " ", 
            SubscriptBox["\[Kappa]", "1"], " ", 
            SubscriptBox["\[Nu]", "2"]}], "-", 
           RowBox[{
            SubscriptBox["n", "3"], " ", 
            SubscriptBox["\[Kappa]", "2"], " ", 
            SubscriptBox["\[Nu]", "1"], " ", 
            SubscriptBox["\[Nu]", "3"]}], "+", 
           RowBox[{
            SubscriptBox["n", "3"], " ", 
            SubscriptBox["\[Kappa]", "1"], " ", 
            SubscriptBox["\[Nu]", "2"], " ", 
            SubscriptBox["\[Nu]", "3"]}], "+", 
           SqrtBox[
            RowBox[{
             SubsuperscriptBox["n", "3", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"4", " ", 
                SubscriptBox["\[Kappa]", "1"], " ", 
                SubscriptBox["\[Kappa]", "2"], " ", 
                SubscriptBox["\[Nu]", "1"], " ", 
                SubscriptBox["\[Nu]", "2"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  SubscriptBox["\[Beta]", "1"], "+", 
                  SubscriptBox["\[Beta]", "2"], "-", 
                  SubscriptBox["\[Nu]", "3"]}], ")"}], " ", 
                SubscriptBox["\[Nu]", "3"]}], "+", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   SubscriptBox["\[Beta]", "1"], " ", 
                   SubscriptBox["\[Kappa]", "2"], " ", 
                   SubscriptBox["\[Nu]", "1"]}], "+", 
                  RowBox[{
                   SubscriptBox["\[Beta]", "2"], " ", 
                   SubscriptBox["\[Kappa]", "1"], " ", 
                   SubscriptBox["\[Nu]", "2"]}], "-", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SubscriptBox["\[Kappa]", "2"], " ", 
                    SubscriptBox["\[Nu]", "1"]}], "+", 
                    RowBox[{
                    SubscriptBox["\[Kappa]", "1"], " ", 
                    SubscriptBox["\[Nu]", "2"]}]}], ")"}], " ", 
                   SubscriptBox["\[Nu]", "3"]}]}], ")"}], "2"]}], ")"}]}]]}], 
          ")"}]}], 
        RowBox[{"2", " ", 
         SubscriptBox["n", "3"], " ", 
         SubscriptBox["\[Beta]", "2"], " ", 
         SubscriptBox["\[Nu]", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", 
             SubscriptBox["\[Kappa]", "2"]}], " ", 
            SubscriptBox["\[Nu]", "1"]}], "+", 
           RowBox[{
            SubscriptBox["\[Kappa]", "1"], " ", 
            SubscriptBox["\[Nu]", "2"]}]}], ")"}]}]]}]}], ",", 
     RowBox[{
      SubscriptBox["i", "2"], "\[Rule]", 
      FractionBox[
       RowBox[{
        SubscriptBox["n", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox["n", "3"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SubscriptBox["\[Beta]", "1"], " ", 
              SubscriptBox["\[Kappa]", "2"], " ", 
              SubscriptBox["\[Nu]", "1"], " ", 
              RowBox[{"(", 
               RowBox[{
                SubscriptBox["\[Kappa]", "2"], "-", 
                SubscriptBox["\[Nu]", "2"]}], ")"}]}], "+", 
             RowBox[{
              SubscriptBox["\[Beta]", "2"], " ", 
              SubscriptBox["\[Nu]", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "2"}], " ", 
                 SubscriptBox["\[Kappa]", "2"], " ", 
                 SubscriptBox["\[Nu]", "1"]}], "+", 
                RowBox[{
                 SubscriptBox["\[Kappa]", "1"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   SubscriptBox["\[Kappa]", "2"], "+", 
                   SubscriptBox["\[Nu]", "2"]}], ")"}]}]}], ")"}]}], "-", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                SubscriptBox["\[Kappa]", "2"], "-", 
                SubscriptBox["\[Nu]", "2"]}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SubscriptBox["\[Kappa]", "2"], " ", 
                 SubscriptBox["\[Nu]", "1"]}], "-", 
                RowBox[{
                 SubscriptBox["\[Kappa]", "1"], " ", 
                 SubscriptBox["\[Nu]", "2"]}]}], ")"}], " ", 
              SubscriptBox["\[Nu]", "3"]}]}], ")"}]}], "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             SubscriptBox["\[Kappa]", "2"], "-", 
             SubscriptBox["\[Nu]", "2"]}], ")"}], " ", 
           SqrtBox[
            RowBox[{
             SubsuperscriptBox["n", "3", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SubsuperscriptBox["\[Beta]", "1", "2"], " ", 
                SubsuperscriptBox["\[Kappa]", "2", "2"], " ", 
                SubsuperscriptBox["\[Nu]", "1", "2"]}], "+", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   SubscriptBox["\[Beta]", "2"], " ", 
                   SubscriptBox["\[Kappa]", "1"], " ", 
                   SubscriptBox["\[Nu]", "2"]}], "+", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SubscriptBox["\[Kappa]", "2"], " ", 
                    SubscriptBox["\[Nu]", "1"]}], "-", 
                    RowBox[{
                    SubscriptBox["\[Kappa]", "1"], " ", 
                    SubscriptBox["\[Nu]", "2"]}]}], ")"}], " ", 
                   SubscriptBox["\[Nu]", "3"]}]}], ")"}], "2"], "+", 
               RowBox[{"2", " ", 
                SubscriptBox["\[Beta]", "1"], " ", 
                SubscriptBox["\[Kappa]", "2"], " ", 
                SubscriptBox["\[Nu]", "1"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   SubscriptBox["\[Beta]", "2"], " ", 
                   SubscriptBox["\[Kappa]", "1"], " ", 
                   SubscriptBox["\[Nu]", "2"]}], "+", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", 
                    SubscriptBox["\[Kappa]", "2"]}], " ", 
                    SubscriptBox["\[Nu]", "1"]}], "+", 
                    RowBox[{
                    SubscriptBox["\[Kappa]", "1"], " ", 
                    SubscriptBox["\[Nu]", "2"]}]}], ")"}], " ", 
                   SubscriptBox["\[Nu]", "3"]}]}], ")"}]}]}], ")"}]}]]}]}], 
         ")"}]}], 
       RowBox[{"2", " ", 
        SubscriptBox["n", "3"], " ", 
        SubscriptBox["\[Beta]", "2"], " ", 
        SubscriptBox["\[Nu]", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", 
            SubscriptBox["\[Kappa]", "2"]}], " ", 
           SubscriptBox["\[Nu]", "1"]}], "+", 
          RowBox[{
           SubscriptBox["\[Kappa]", "1"], " ", 
           SubscriptBox["\[Nu]", "2"]}]}], ")"}]}]]}], ",", 
     RowBox[{"a", "\[Rule]", 
      FractionBox[
       RowBox[{
        RowBox[{
         RowBox[{"-", 
          SubscriptBox["n", "3"]}], " ", 
         SubscriptBox["\[Beta]", "1"], " ", 
         SubscriptBox["\[Kappa]", "2"], " ", 
         SubscriptBox["\[Nu]", "1"]}], "-", 
        RowBox[{
         SubscriptBox["n", "3"], " ", 
         SubscriptBox["\[Beta]", "2"], " ", 
         SubscriptBox["\[Kappa]", "1"], " ", 
         SubscriptBox["\[Nu]", "2"]}], "+", 
        RowBox[{
         SubscriptBox["n", "3"], " ", 
         SubscriptBox["\[Kappa]", "2"], " ", 
         SubscriptBox["\[Nu]", "1"], " ", 
         SubscriptBox["\[Nu]", "3"]}], "+", 
        RowBox[{
         SubscriptBox["n", "3"], " ", 
         SubscriptBox["\[Kappa]", "1"], " ", 
         SubscriptBox["\[Nu]", "2"], " ", 
         SubscriptBox["\[Nu]", "3"]}], "+", 
        SqrtBox[
         RowBox[{
          SubsuperscriptBox["n", "3", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"4", " ", 
             SubscriptBox["\[Kappa]", "1"], " ", 
             SubscriptBox["\[Kappa]", "2"], " ", 
             SubscriptBox["\[Nu]", "1"], " ", 
             SubscriptBox["\[Nu]", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               SubscriptBox["\[Beta]", "1"], "+", 
               SubscriptBox["\[Beta]", "2"], "-", 
               SubscriptBox["\[Nu]", "3"]}], ")"}], " ", 
             SubscriptBox["\[Nu]", "3"]}], "+", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SubscriptBox["\[Beta]", "1"], " ", 
                SubscriptBox["\[Kappa]", "2"], " ", 
                SubscriptBox["\[Nu]", "1"]}], "+", 
               RowBox[{
                SubscriptBox["\[Beta]", "2"], " ", 
                SubscriptBox["\[Kappa]", "1"], " ", 
                SubscriptBox["\[Nu]", "2"]}], "-", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   SubscriptBox["\[Kappa]", "2"], " ", 
                   SubscriptBox["\[Nu]", "1"]}], "+", 
                  RowBox[{
                   SubscriptBox["\[Kappa]", "1"], " ", 
                   SubscriptBox["\[Nu]", "2"]}]}], ")"}], " ", 
                SubscriptBox["\[Nu]", "3"]}]}], ")"}], "2"]}], ")"}]}]]}], 
       RowBox[{"2", " ", 
        SubscriptBox["\[Kappa]", "1"], " ", 
        SubscriptBox["\[Kappa]", "2"], " ", 
        SubscriptBox["\[Nu]", "3"]}]]}], ",", 
     RowBox[{"b", "\[Rule]", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         RowBox[{
          RowBox[{"-", 
           SubscriptBox["n", "3"]}], " ", 
          SubscriptBox["\[Beta]", "1"], " ", 
          SubscriptBox["\[Kappa]", "2"], " ", 
          SubscriptBox["\[Nu]", "1"]}], "-", 
         RowBox[{
          SubscriptBox["n", "3"], " ", 
          SubscriptBox["\[Beta]", "2"], " ", 
          SubscriptBox["\[Kappa]", "1"], " ", 
          SubscriptBox["\[Nu]", "2"]}], "-", 
         RowBox[{"2", " ", 
          SubscriptBox["n", "3"], " ", 
          SubscriptBox["\[Kappa]", "1"], " ", 
          SubscriptBox["\[Kappa]", "2"], " ", 
          SubscriptBox["\[Nu]", "3"]}], "+", 
         RowBox[{
          SubscriptBox["n", "3"], " ", 
          SubscriptBox["\[Kappa]", "2"], " ", 
          SubscriptBox["\[Nu]", "1"], " ", 
          SubscriptBox["\[Nu]", "3"]}], "+", 
         RowBox[{
          SubscriptBox["n", "3"], " ", 
          SubscriptBox["\[Kappa]", "1"], " ", 
          SubscriptBox["\[Nu]", "2"], " ", 
          SubscriptBox["\[Nu]", "3"]}], "+", 
         SqrtBox[
          RowBox[{
           SubsuperscriptBox["n", "3", "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"4", " ", 
              SubscriptBox["\[Kappa]", "1"], " ", 
              SubscriptBox["\[Kappa]", "2"], " ", 
              SubscriptBox["\[Nu]", "1"], " ", 
              SubscriptBox["\[Nu]", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                SubscriptBox["\[Beta]", "1"], "+", 
                SubscriptBox["\[Beta]", "2"], "-", 
                SubscriptBox["\[Nu]", "3"]}], ")"}], " ", 
              SubscriptBox["\[Nu]", "3"]}], "+", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SubscriptBox["\[Beta]", "1"], " ", 
                 SubscriptBox["\[Kappa]", "2"], " ", 
                 SubscriptBox["\[Nu]", "1"]}], "+", 
                RowBox[{
                 SubscriptBox["\[Beta]", "2"], " ", 
                 SubscriptBox["\[Kappa]", "1"], " ", 
                 SubscriptBox["\[Nu]", "2"]}], "-", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SubscriptBox["\[Kappa]", "2"], " ", 
                    SubscriptBox["\[Nu]", "1"]}], "+", 
                   RowBox[{
                    SubscriptBox["\[Kappa]", "1"], " ", 
                    SubscriptBox["\[Nu]", "2"]}]}], ")"}], " ", 
                 SubscriptBox["\[Nu]", "3"]}]}], ")"}], "2"]}], ")"}]}]]}], 
        RowBox[{"2", " ", 
         SubscriptBox["\[Kappa]", "1"], " ", 
         SubscriptBox["\[Kappa]", "2"], " ", 
         SubscriptBox["\[Nu]", "3"]}]]}]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.7910319030356274`*^9},
 CellLabel->"Out[8]=",ExpressionUUID->"da3d9ad3-39b7-4412-8ef5-6f7ccf27a914"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.7904282361127996`*^9, 
  3.7904282378484087`*^9}},ExpressionUUID->"0c348641-7984-44ea-a95b-\
61efa9dbf277"],

Cell["We can now assess the simplified model\[CloseCurlyQuote]s equilibria,", \
"Text",
 CellChangeTimes->{{3.790514575439684*^9, 3.7905145929850206`*^9}, {
   3.7905165708303037`*^9, 3.790516571362362*^9}, {3.791031955396092*^9, 
   3.7910319923551903`*^9}, 
   3.791032033681652*^9},ExpressionUUID->"8ef9f21b-085f-49dc-8c0b-\
a4e5c4f27503"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"EqnWithNu", "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"d1", "\[Equal]", 
       RowBox[{
        RowBox[{
         SubscriptBox["n", "1"], " ", "*", " ", 
         RowBox[{"(", 
          RowBox[{
           SubscriptBox["\[Nu]", "1"], "-", 
           SubscriptBox["\[Kappa]", "1"]}], ")"}]}], "-", 
        RowBox[{
         RowBox[{
          SubscriptBox["\[Kappa]", "1"], "/", 
          SubscriptBox["n", "3"]}], "*", "b", "*", " ", 
         SubscriptBox["S", "1"]}], "-", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           SubscriptBox["\[Nu]", "1"], "-", 
           SubscriptBox["\[Kappa]", "1"]}], ")"}], "*", " ", 
         SubscriptBox["S", "1"]}]}]}], ",", "\[IndentingNewLine]", "\t", 
      RowBox[{"d2", "==", 
       RowBox[{
        RowBox[{
         RowBox[{
          SubscriptBox["\[Kappa]", "1"], "/", 
          SubscriptBox["n", "3"]}], "*", "b", "*", " ", 
         SubscriptBox["S", "1"]}], "-", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           SubscriptBox["\[Nu]", "1"], "-", 
           SubscriptBox["\[Kappa]", "1"]}], ")"}], "*", " ", 
         SubscriptBox["i", "1"]}]}]}], ",", "\[IndentingNewLine]", "\t", 
      RowBox[{"d5", "\[Equal]", 
       RowBox[{
        RowBox[{
         SubscriptBox["n", "3"], " ", "*", 
         RowBox[{"(", 
          RowBox[{
           SubscriptBox["\[Nu]", "3"], "-", 
           SubscriptBox["\[Beta]", "1"]}], ")"}]}], "-", 
        RowBox[{
         RowBox[{
          SubscriptBox["\[Beta]", "1"], "/", 
          SubscriptBox["n", 
           RowBox[{"1", " "}]]}], "*", 
         SubscriptBox["i", "1"], "*", "a"}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           SubscriptBox["\[Nu]", "3"], "-", 
           SubscriptBox["\[Beta]", "1"]}], ")"}], "*", " ", "a"}]}]}], ",", 
      "\[IndentingNewLine]", "\t", 
      RowBox[{"d6", "==", 
       RowBox[{
        RowBox[{
         RowBox[{
          SubscriptBox["\[Beta]", "1"], "/", 
          SubscriptBox["n", 
           RowBox[{"1", " "}]]}], "*", 
         SubscriptBox["i", "1"], "*", "a"}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           SubscriptBox["\[Nu]", "3"], "-", 
           SubscriptBox["\[Beta]", "1"]}], ")"}], "*", " ", "b"}]}]}]}], 
     "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Simplify", "[", 
  RowBox[{"Solve", "[", 
   RowBox[{"EqnWithNu", ",", 
    RowBox[{"{", 
     RowBox[{
      SubscriptBox["S", "1"], ",", 
      SubscriptBox["i", "1"], ",", "a", ",", " ", "b"}], "}"}]}], "]"}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.7910320221341267`*^9, 3.7910321261258082`*^9}},
 CellLabel->"In[9]:=",ExpressionUUID->"726cb7d3-43ff-444e-bd0b-2f52e6bd97e8"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      SubscriptBox["S", "1"], "\[Rule]", 
      SubscriptBox["n", "1"]}], ",", 
     RowBox[{
      SubscriptBox["i", "1"], "\[Rule]", "0"}], ",", 
     RowBox[{"a", "\[Rule]", 
      SubscriptBox["n", "3"]}], ",", 
     RowBox[{"b", "\[Rule]", "0"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      SubscriptBox["S", "1"], "\[Rule]", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         SubscriptBox["n", "1"], " ", 
         RowBox[{"(", 
          RowBox[{
           SubscriptBox["\[Kappa]", "1"], "-", 
           SubscriptBox["\[Nu]", "1"]}], ")"}], " ", 
         SubscriptBox["\[Nu]", "3"]}], 
        RowBox[{
         SubscriptBox["\[Beta]", "1"], " ", 
         SubscriptBox["\[Nu]", "1"]}]]}]}], ",", 
     RowBox[{
      SubscriptBox["i", "1"], "\[Rule]", 
      RowBox[{
       SubscriptBox["n", "1"], " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         FractionBox[
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             SubscriptBox["\[Kappa]", "1"], "-", 
             SubscriptBox["\[Nu]", "1"]}], ")"}], " ", 
           SubscriptBox["\[Nu]", "3"]}], 
          RowBox[{
           SubscriptBox["\[Beta]", "1"], " ", 
           SubscriptBox["\[Nu]", "1"]}]]}], ")"}]}]}], ",", 
     RowBox[{"a", "\[Rule]", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         SubscriptBox["n", "3"], " ", 
         SubscriptBox["\[Nu]", "1"], " ", 
         RowBox[{"(", 
          RowBox[{
           SubscriptBox["\[Beta]", "1"], "-", 
           SubscriptBox["\[Nu]", "3"]}], ")"}]}], 
        RowBox[{
         SubscriptBox["\[Kappa]", "1"], " ", 
         SubscriptBox["\[Nu]", "3"]}]]}]}], ",", 
     RowBox[{"b", "\[Rule]", 
      FractionBox[
       RowBox[{
        SubscriptBox["n", "3"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox["\[Beta]", "1"], " ", 
           SubscriptBox["\[Nu]", "1"]}], "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             SubscriptBox["\[Kappa]", "1"], "-", 
             SubscriptBox["\[Nu]", "1"]}], ")"}], " ", 
           SubscriptBox["\[Nu]", "3"]}]}], ")"}]}], 
       RowBox[{
        SubscriptBox["\[Kappa]", "1"], " ", 
        SubscriptBox["\[Nu]", "3"]}]]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.791032127786507*^9},
 CellLabel->"Out[10]=",ExpressionUUID->"0148b60a-f95f-4fee-870c-3d7a25dd0018"]
}, Open  ]],

Cell[TextData[{
 "We now reanalyze ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["R", "0"], " "}], TraditionalForm]],ExpressionUUID->
  "4f0b47ad-743d-43e8-b021-300393e02da6"],
 "with our shift in parameters"
}], "Text",
 CellChangeTimes->{
  3.791032031381566*^9},ExpressionUUID->"bb54c413-c1ce-46f0-a8c3-\
f45128b226f5"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"MyJacobian", "[", 
     RowBox[{"f_List", ",", " ", "x_List"}], "]"}], ":=", 
    RowBox[{"Flatten", "[", 
     RowBox[{
      RowBox[{"Outer", "[", 
       RowBox[{"D", ",", "f", ",", "x"}], "]"}], ",", "1"}], "]"}]}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"Manually", " ", "enter", " ", "F", " ", "and", " ", "V"}], "*)"}],
   "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"F", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          SubscriptBox["\[Kappa]", "1"], "/", 
          SubscriptBox["n", "3"]}], "*", "b", "*", " ", 
         SubscriptBox["S", "1"]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          SubscriptBox["\[Kappa]", "2"], "/", 
          SubscriptBox["n", "3"]}], "*", "b", "*", " ", 
         SubscriptBox["S", "2"]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           SubscriptBox["\[Beta]", "1"], "/", 
           SubscriptBox["n", 
            RowBox[{"1", " "}]]}], "*", 
          SubscriptBox["i", "1"], "*", "a"}], "+", 
         RowBox[{
          RowBox[{
           SubscriptBox["\[Beta]", "2"], "/", 
           SubscriptBox["n", 
            RowBox[{"2", " "}]]}], "*", 
          SubscriptBox["i", "2"], "*", "a"}]}], "}"}]}], "}"}]}], ";"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"F", "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "*", 
        RowBox[{"b", "/", 
         SubscriptBox["n", "3"]}], "*", " ", 
        SubscriptBox["S", "1"]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "*", 
        RowBox[{"b", "/", 
         SubscriptBox["n", "3"]}], "*", " ", 
        SubscriptBox["S", "2"]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         SubscriptBox["\[Epsilon]", "1"], "*", 
         RowBox[{
          SubscriptBox["i", "1"], "/", 
          SubscriptBox["n", "1"]}], "*", "a"}], "+", 
        RowBox[{
         SubscriptBox["\[Epsilon]", "2"], "*", 
         RowBox[{
          SubscriptBox["i", "2"], "/", 
          SubscriptBox["n", "2"]}], "*", "a"}]}], "}"}]}], "}"}]}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"V", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           SubscriptBox["\[Nu]", "1"], "-", 
           SubscriptBox["\[Kappa]", "1"]}], ")"}], "*", " ", 
         SubscriptBox["i", "1"]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           SubscriptBox["\[Nu]", "2"], "-", 
           SubscriptBox["\[Kappa]", "2"]}], ")"}], "*", " ", 
         SubscriptBox["i", "2"]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           SubscriptBox["\[Nu]", "3"], "-", 
           SubscriptBox["\[Beta]", "1"], "-", 
           SubscriptBox["\[Beta]", "2"]}], ")"}], "*", " ", "b"}], "}"}]}], 
      "}"}]}], ";"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"V", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       SubscriptBox["\[Gamma]", "1"], "*", " ", 
       SubscriptBox["i", "1"]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       SubscriptBox["\[Gamma]", "2"], "*", " ", 
       SubscriptBox["i", "2"]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       SubscriptBox["\[Gamma]", "3"], "*", " ", "b"}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "=", 
    RowBox[{
     RowBox[{"MyJacobian", "[", 
      RowBox[{"F", ",", 
       RowBox[{"{", 
        RowBox[{
         SubscriptBox["i", "1"], ",", 
         SubscriptBox["i", "2"], ",", "b"}], "}"}]}], "]"}], "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        SubscriptBox["S", "1"], "\[Rule]", 
        SubscriptBox["n", "1"]}], ",", 
       RowBox[{
        SubscriptBox["S", "2"], "\[Rule]", 
        SubscriptBox["n", "2"]}], ",", 
       RowBox[{"a", "\[Rule]", 
        SubscriptBox["n", "3"]}]}], "}"}]}]}], ";", " ", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"/.", 
      RowBox[{"\[Equal]", " ", "Evaluate"}]}], ",", " ", 
     RowBox[{
     "change", " ", "s", " ", "value", " ", "to", " ", "match", " ", "the", 
      " ", "equilibrium", " ", "you", " ", "want"}]}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"v", "=", 
    RowBox[{"MyJacobian", "[", 
     RowBox[{"V", ",", 
      RowBox[{"{", 
       RowBox[{
        SubscriptBox["i", "1"], ",", 
        SubscriptBox["i", "2"], ",", "b"}], "}"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"nH", "=", 
     FractionBox[
      SubscriptBox["\[Sigma]", "H"], 
      SubscriptBox["\[Gamma]", "H"]]}], ";", " ", 
    RowBox[{"nV", "=", 
     FractionBox[
      SubscriptBox["\[Sigma]", "V"], 
      SubscriptBox["\[Gamma]", "V"]]}], ";", 
    RowBox[{
    "Change", " ", "this", " ", "to", " ", "help", " ", "simplify"}]}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Eigenvalues", "[", " ", 
   RowBox[{"f", " ", ".", " ", 
    RowBox[{"Inverse", "[", "v", "]"}]}], "]"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.7903580999100904`*^9, 3.7903581000860434`*^9}, {
  3.7904258123242064`*^9, 3.790425813706547*^9}, {3.7905145949798007`*^9, 
  3.7905148033390956`*^9}, {3.7905169122185173`*^9, 3.7905169577622995`*^9}, {
  3.7905319544315*^9, 3.7905320431613293`*^9}, {3.7905321066599593`*^9, 
  3.79053211692731*^9}, {3.7910318208757267`*^9, 
  3.7910318300272923`*^9}},ExpressionUUID->"2ffbd823-858e-4758-8dd9-\
e2fb3b59cd4e"],

Cell[BoxData[
 RowBox[{
  SubscriptBox["R", "0"], "\[Equal]", 
  RowBox[{"\[Sqrt]", 
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{
       SubscriptBox["\[Beta]", "1"], "  ", 
       SubscriptBox["\[Kappa]", "1"]}], 
      RowBox[{
       SubscriptBox["\[Gamma]", "1"], " ", 
       SubscriptBox["\[Gamma]", "3"]}]], "+", 
     FractionBox[
      RowBox[{
       SubscriptBox["\[Beta]", "2"], " ", 
       SubscriptBox["\[Kappa]", "2"]}], 
      RowBox[{
       SubscriptBox["\[Gamma]", "2"], " ", 
       SubscriptBox["\[Gamma]", "3"]}]]}], ")"}]}]}]], "Input",
 CellChangeTimes->{{3.790516588505005*^9, 3.7905166582447653`*^9}, {
  3.790516712230862*^9, 3.7905167600084195`*^9}, {3.7905168696636314`*^9, 
  3.790516891972617*^9}, {3.79051698300515*^9, 
  3.7905170521172695`*^9}},ExpressionUUID->"13e9dd4c-cf21-4981-a2cb-\
d7e20594f131"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Equilibrium of 1 Space with 2 Hosts and gamma birth", "Subsection",
 CellChangeTimes->{{3.7903424650636873`*^9, 
  3.7903425366268682`*^9}},ExpressionUUID->"5bda58e9-7d4d-4c2b-ab23-\
9393db32aeb1"],

Cell[TextData[{
 "Notes: Long equilibrium condition (longer than with constant recruitment), \
advise using above set up and inputting ",
 Cell[BoxData[
  FormBox["\[Sigma]", TraditionalForm]],ExpressionUUID->
  "0689bb63-2a66-4307-895e-2b1b03c0ba4e"],
 "=\[Gamma]*(N-S)"
}], "Text",
 CellChangeTimes->{{3.7903425412675467`*^9, 3.7903425770862885`*^9}, {
   3.7903426962491035`*^9, 3.79034273539939*^9}, 
   3.790532558011134*^9},ExpressionUUID->"465fbf08-4584-4dc6-99e8-\
092866f420a2"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Eqn", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"d1", "\[Equal]", 
      RowBox[{
       RowBox[{
        SubscriptBox["\[Gamma]", "1"], "*", 
        SubscriptBox["i", "1"]}], "-", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "*", "b", "*", " ", 
        SubscriptBox["S", "1"]}]}]}], ",", "\[IndentingNewLine]", "\t", 
     RowBox[{"d2", "==", 
      RowBox[{
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "*", "b", "*", " ", 
        SubscriptBox["S", "1"]}], "-", 
       RowBox[{
        SubscriptBox["\[Gamma]", "1"], "*", " ", 
        SubscriptBox["i", "1"]}]}]}], ",", "\[IndentingNewLine]", "\t", 
     RowBox[{"d3", "==", 
      RowBox[{
       RowBox[{
        SubscriptBox["\[Gamma]", "2"], "*", " ", 
        SubscriptBox["i", "2"]}], "-", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "*", "b", "*", " ", 
        SubscriptBox["S", "2"]}]}]}], ",", "\[IndentingNewLine]", "\t", 
     RowBox[{"d4", "==", 
      RowBox[{
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "*", "b", "*", " ", 
        SubscriptBox["S", "2"]}], "-", 
       RowBox[{
        SubscriptBox["\[Gamma]", "2"], "*", " ", 
        SubscriptBox["i", "2"]}]}]}], ",", "\[IndentingNewLine]", "\t", 
     RowBox[{"d5", "==", 
      RowBox[{
       RowBox[{
        SubscriptBox["\[Gamma]", "3"], "*", " ", "b"}], "-", 
       RowBox[{
        SubscriptBox["\[Epsilon]", "1"], "*", 
        SubscriptBox["i", "1"], "*", "a"}], "-", 
       RowBox[{
        SubscriptBox["\[Epsilon]", "2"], "*", 
        SubscriptBox["i", "2"], "*", "a"}]}]}], ",", "\[IndentingNewLine]", 
     "\t", 
     RowBox[{"d6", "==", 
      RowBox[{
       RowBox[{
        SubscriptBox["\[Epsilon]", "1"], "*", 
        SubscriptBox["i", "1"], "*", "a"}], "+", 
       RowBox[{
        SubscriptBox["\[Epsilon]", "2"], "*", 
        SubscriptBox["i", "2"], "*", "a"}], "-", 
       RowBox[{
        SubscriptBox["\[Gamma]", "3"], "*", " ", "b"}]}]}], ",", 
     "\[IndentingNewLine]", "\t", 
     RowBox[{
      SubscriptBox["S", "1"], "\[Equal]", 
      RowBox[{
       SubscriptBox["N", "1"], "-", 
       SubscriptBox["i", "1"]}]}], ",", "\[IndentingNewLine]", "\t", 
     RowBox[{
      SubscriptBox["S", "2"], "\[Equal]", 
      RowBox[{
       SubscriptBox["N", "2"], "-", 
       SubscriptBox["i", "2"]}]}], ",", "\[IndentingNewLine]", "\t", 
     RowBox[{"a", "\[Equal]", 
      RowBox[{
       SubscriptBox["N", "3"], "-", "b"}]}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"d1", "=", "0"}], ";", 
   RowBox[{"d2", "=", "0"}], ";", 
   RowBox[{"d3", "=", "0"}], ";", 
   RowBox[{"d4", "=", "0"}], ";", 
   RowBox[{"d5", "=", "0"}], ";", 
   RowBox[{"d6", "=", "0"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Simplify", "[", 
  RowBox[{"Solve", "[", 
   RowBox[{"Eqn", ",", 
    RowBox[{"{", 
     RowBox[{
      SubscriptBox["S", "1"], ",", 
      SubscriptBox["i", "1"], ",", 
      SubscriptBox["S", "2"], ",", 
      SubscriptBox["i", "2"], ",", "a", ",", " ", "b"}], "}"}]}], "]"}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.7899486946715794`*^9, 3.7899486969908457`*^9}, {
   3.7899512907412605`*^9, 3.7899515169428997`*^9}, 3.7905325544845824`*^9},
 CellLabel->"In[2]:=",ExpressionUUID->"dbe1abe4-5a0f-47e9-9129-5f64d8f560c9"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.789951567156333*^9, 
  3.7899515795566063`*^9}},ExpressionUUID->"1e8cbea3-7007-4482-8e59-\
4acb9d16cb0e"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
1 Patch with 2 Hosts and gamma birth with Frequency Dependent Infection\
\>", "Subsection",
 CellChangeTimes->{
  3.790532498653101*^9, {3.790532573278267*^9, 
   3.7905325751658907`*^9}},ExpressionUUID->"3c724737-a788-43c1-98d3-\
99d74c26e0fc"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"Eqn", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"d1", "\[Equal]", 
        RowBox[{
         RowBox[{
          SubscriptBox["\[Gamma]", "1"], "*", " ", 
          SubscriptBox["i", "1"]}], "-", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "*", 
          RowBox[{
           SubscriptBox["i", "V"], "/", 
           SubscriptBox["n", "V"]}], "*", " ", 
          SubscriptBox["s", "1"]}]}]}], ",", "\[IndentingNewLine]", "\t", 
       RowBox[{"d2", "==", 
        RowBox[{
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "*", 
          RowBox[{
           SubscriptBox["i", "V"], "/", 
           SubscriptBox["n", "V"]}], "*", " ", 
          SubscriptBox["s", "1"]}], "-", 
         RowBox[{
          SubscriptBox["\[Gamma]", "1"], "*", " ", 
          SubscriptBox["i", "1"]}]}]}], ",", "\[IndentingNewLine]", "\t", 
       RowBox[{"d3", "\[Equal]", 
        RowBox[{
         RowBox[{
          SubscriptBox["\[Gamma]", "2"], "*", " ", 
          SubscriptBox["i", "2"]}], "-", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "*", 
          RowBox[{
           SubscriptBox["i", "V"], "/", 
           SubscriptBox["n", "V"]}], "*", " ", 
          SubscriptBox["S", "2"]}]}]}], ",", "\[IndentingNewLine]", "\t", 
       RowBox[{"d4", "==", 
        RowBox[{
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "*", 
          RowBox[{
           SubscriptBox["i", "V"], "/", 
           SubscriptBox["n", "V"]}], "*", " ", 
          SubscriptBox["S", "2"]}], "-", 
         RowBox[{
          SubscriptBox["\[Gamma]", "2"], "*", " ", 
          SubscriptBox["i", "2"]}]}]}], ",", "\[IndentingNewLine]", "\t", 
       RowBox[{"d5", "==", 
        RowBox[{
         RowBox[{
          SubscriptBox["\[Gamma]", "3"], "*", " ", 
          SubscriptBox["i", "V"]}], "-", 
         RowBox[{
          SubscriptBox["\[Epsilon]", "1"], "*", 
          RowBox[{
           SubscriptBox["i", "1"], "/", 
           SubscriptBox["n", "1"]}], "*", 
          SubscriptBox["s", "v"]}], "-", 
         RowBox[{
          SubscriptBox["\[Epsilon]", "2"], "*", 
          RowBox[{
           SubscriptBox["i", "2"], "/", 
           SubscriptBox["n", "2"]}], "*", 
          SubscriptBox["s", "V"]}]}]}], ",", "\[IndentingNewLine]", "\t", 
       RowBox[{"d6", "==", 
        RowBox[{
         RowBox[{
          SubscriptBox["\[Epsilon]", "1"], "*", 
          RowBox[{
           SubscriptBox["i", "1"], "/", 
           SubscriptBox["n", "1"]}], "*", 
          SubscriptBox["s", "V"]}], "+", 
         RowBox[{
          SubscriptBox["\[Epsilon]", "2"], "*", 
          RowBox[{
           SubscriptBox["i", "2"], "/", 
           SubscriptBox["n", "2"]}], "*", 
          SubscriptBox["s", "V"]}], "-", 
         RowBox[{
          SubscriptBox["\[Gamma]", "3"], "*", " ", 
          SubscriptBox["i", "v"]}]}]}], ",", "\[IndentingNewLine]", "\t", 
       RowBox[{
        SubscriptBox["n", "1"], "\[Equal]", 
        RowBox[{
         SubscriptBox["s", "1"], "+", 
         SubscriptBox["i", "1"]}]}], ",", "\[IndentingNewLine]", "\t", 
       RowBox[{
        SubscriptBox["n", "2"], "\[Equal]", 
        RowBox[{
         SubscriptBox["s", "2"], "+", 
         SubscriptBox["i", "2"]}]}], ",", "\[IndentingNewLine]", "\t", 
       RowBox[{
        SubscriptBox["n", "v"], "\[Equal]", 
        RowBox[{
         SubscriptBox["s", "V"], "+", 
         SubscriptBox["i", "V"]}]}]}], "}"}]}], ";"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"Eqn", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"d1", "\[Equal]", 
        RowBox[{
         SubscriptBox["\[Sigma]", "1"], "-", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "*", 
          RowBox[{
           SubscriptBox["i", "v"], "/", 
           SubscriptBox["n", "v"]}], "*", " ", 
          SubscriptBox["s", "1"]}], "-", 
         RowBox[{
          SubscriptBox["\[Gamma]", "1"], "*", " ", 
          SubscriptBox["s", "1"]}]}]}], ",", "\[IndentingNewLine]", "\t", 
       RowBox[{"d2", "==", 
        RowBox[{
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "*", 
          RowBox[{
           SubscriptBox["i", "v"], "/", 
           SubscriptBox["n", "v"]}], "*", " ", 
          SubscriptBox["s", "1"]}], "-", 
         RowBox[{
          SubscriptBox["\[Gamma]", "1"], "*", " ", 
          SubscriptBox["i", "1"]}]}]}], ",", "\[IndentingNewLine]", "\t", 
       RowBox[{"d3", "\[Equal]", 
        RowBox[{
         SubscriptBox["\[Sigma]", "2"], "-", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "*", 
          RowBox[{
           SubscriptBox["i", "v"], "/", 
           SubscriptBox["n", "v"]}], "*", " ", 
          SubscriptBox["s", "2"]}], "-", 
         RowBox[{
          SubscriptBox["\[Gamma]", "2"], "*", " ", 
          SubscriptBox["s", "2"]}]}]}], ",", "\[IndentingNewLine]", "\t", 
       RowBox[{"d4", "==", 
        RowBox[{
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "*", 
          RowBox[{
           SubscriptBox["i", "v"], "/", 
           SubscriptBox["n", "v"]}], "*", " ", 
          SubscriptBox["s", "2"]}], "-", 
         RowBox[{
          SubscriptBox["\[Gamma]", "2"], "*", " ", 
          SubscriptBox["i", "2"]}]}]}], ",", "\[IndentingNewLine]", "\t", 
       RowBox[{"d5", "==", 
        RowBox[{
         SubscriptBox["\[Sigma]", "v"], "-", 
         RowBox[{
          SubscriptBox["\[Epsilon]", "1"], "*", 
          RowBox[{
           SubscriptBox["i", "1"], "/", 
           SubscriptBox["n", "1"]}], "*", 
          SubscriptBox["s", "v"]}], "-", 
         RowBox[{
          SubscriptBox["\[Epsilon]", "2"], "*", 
          RowBox[{
           SubscriptBox["i", "2"], "/", 
           SubscriptBox["n", "2"]}], "*", 
          SubscriptBox["s", "v"]}], "-", 
         RowBox[{
          SubscriptBox["\[Gamma]", "v"], "*", " ", 
          SubscriptBox["s", "v"]}]}]}], ",", "\[IndentingNewLine]", "\t", 
       RowBox[{"d6", "==", 
        RowBox[{
         RowBox[{
          SubscriptBox["\[Epsilon]", "1"], "*", 
          RowBox[{
           SubscriptBox["i", "1"], "/", 
           SubscriptBox["n", "1"]}], "*", 
          SubscriptBox["s", "v"]}], "+", 
         RowBox[{
          SubscriptBox["\[Epsilon]", "2"], "*", 
          RowBox[{
           SubscriptBox["i", "2"], "/", 
           SubscriptBox["n", "2"]}], "*", 
          SubscriptBox["s", "v"]}], "-", 
         RowBox[{
          SubscriptBox["\[Gamma]", "v"], "*", " ", 
          SubscriptBox["i", "v"]}]}]}]}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"d1", "=", "0"}], ";", 
    RowBox[{"d2", "=", "0"}], ";", 
    RowBox[{"d3", "=", "0"}], ";", "  ", 
    RowBox[{"d4", "=", "0"}], ";", 
    RowBox[{"d5", "=", "0"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"d6", "=", "0"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"Simplify", "[", 
    RowBox[{"Solve", "[", 
     RowBox[{"Eqn", ",", 
      RowBox[{"{", 
       RowBox[{
        SubscriptBox["s", "1"], ",", 
        SubscriptBox["s", "2"], ",", 
        SubscriptBox["i", "1"], ",", 
        SubscriptBox["i", "2"], ",", 
        SubscriptBox["s", "v"], ",", 
        SubscriptBox["i", "v"]}], "}"}]}], "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.789948699705496*^9, 3.7899487178833833`*^9}, 
   3.790532491536028*^9, 3.790532545120496*^9, {3.790532584869395*^9, 
   3.790532838550716*^9}, {3.790532895978606*^9, 3.7905329026755652`*^9}, {
   3.790533064523096*^9, 3.7905331031030445`*^9}, {3.7905332279282217`*^9, 
   3.790533295394758*^9}, {3.790533625128807*^9, 3.7905336310129423`*^9}, {
   3.7905336693660793`*^9, 3.7905337758573093`*^9}, {3.7905338818889503`*^9, 
   3.79053390925948*^9}, 3.7905339415027947`*^9, 3.790534246903029*^9, {
   3.790534293175878*^9, 3.7905342970260296`*^9}},
 CellLabel->"In[29]:=",ExpressionUUID->"4bd42b15-9872-41f4-bf35-260a190d753c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      SubscriptBox["s", "1"], "\[Rule]", 
      FractionBox[
       SubscriptBox["\[Sigma]", "1"], 
       SubscriptBox["\[Gamma]", "1"]]}], ",", 
     RowBox[{
      SubscriptBox["s", "2"], "\[Rule]", 
      FractionBox[
       SubscriptBox["\[Sigma]", "2"], 
       SubscriptBox["\[Gamma]", "2"]]}], ",", 
     RowBox[{
      SubscriptBox["i", "1"], "\[Rule]", "0"}], ",", 
     RowBox[{
      SubscriptBox["i", "2"], "\[Rule]", "0"}], ",", 
     RowBox[{
      SubscriptBox["s", "v"], "\[Rule]", 
      FractionBox[
       SubscriptBox["\[Sigma]", "v"], 
       SubscriptBox["\[Gamma]", "v"]]}], ",", 
     RowBox[{
      SubscriptBox["i", "v"], "\[Rule]", "0"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      SubscriptBox["s", "1"], "\[Rule]", 
      RowBox[{"-", 
       RowBox[{
        FractionBox["1", 
         RowBox[{"2", " ", 
          SubscriptBox["n", "2"], " ", 
          SubscriptBox["\[Gamma]", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SubscriptBox["\[Gamma]", "2"], " ", 
             SubscriptBox["\[Delta]", "1"]}], "-", 
            RowBox[{
             SubscriptBox["\[Gamma]", "1"], " ", 
             SubscriptBox["\[Delta]", "2"]}]}], ")"}], " ", 
          SubscriptBox["\[Epsilon]", "1"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SubscriptBox["n", "v"], " ", 
             SubscriptBox["\[Gamma]", "1"], " ", 
             SubscriptBox["\[Gamma]", "v"]}], "+", 
            RowBox[{
             SubscriptBox["\[Delta]", "1"], " ", 
             SubscriptBox["\[Sigma]", "v"]}]}], ")"}]}]], 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", 
            SubscriptBox["n", "1"]}], " ", 
           SubscriptBox["n", "2"], " ", 
           SubscriptBox["n", "v"], " ", 
           SubscriptBox["\[Gamma]", "1"], " ", 
           SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
           SubsuperscriptBox["\[Gamma]", "v", "2"], " ", 
           SubscriptBox["\[Delta]", "1"]}], "+", 
          RowBox[{
           SubscriptBox["n", "1"], " ", 
           SubscriptBox["n", "2"], " ", 
           SubscriptBox["n", "v"], " ", 
           SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
           SubscriptBox["\[Gamma]", "2"], " ", 
           SubsuperscriptBox["\[Gamma]", "v", "2"], " ", 
           SubscriptBox["\[Delta]", "2"]}], "-", 
          RowBox[{
           SubscriptBox["n", "2"], " ", 
           SubscriptBox["n", "v"], " ", 
           SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
           SubscriptBox["\[Gamma]", "v"], " ", 
           SubscriptBox["\[Delta]", "1"], " ", 
           SubscriptBox["\[Epsilon]", "1"], " ", 
           SubscriptBox["\[Sigma]", "1"]}], "+", 
          RowBox[{"2", " ", 
           SubscriptBox["n", "2"], " ", 
           SubscriptBox["n", "v"], " ", 
           SubscriptBox["\[Gamma]", "1"], " ", 
           SubscriptBox["\[Gamma]", "2"], " ", 
           SubscriptBox["\[Gamma]", "v"], " ", 
           SubscriptBox["\[Delta]", "2"], " ", 
           SubscriptBox["\[Epsilon]", "1"], " ", 
           SubscriptBox["\[Sigma]", "1"]}], "+", 
          RowBox[{
           SubscriptBox["n", "1"], " ", 
           SubscriptBox["n", "v"], " ", 
           SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
           SubscriptBox["\[Gamma]", "v"], " ", 
           SubscriptBox["\[Delta]", "2"], " ", 
           SubscriptBox["\[Epsilon]", "2"], " ", 
           SubscriptBox["\[Sigma]", "2"]}], "+", 
          RowBox[{
           SubscriptBox["n", "2"], " ", 
           SubscriptBox["\[Gamma]", "2"], " ", 
           SubscriptBox["\[Delta]", "1"], " ", 
           SubscriptBox["\[Delta]", "2"], " ", 
           SubscriptBox["\[Epsilon]", "1"], " ", 
           SubscriptBox["\[Sigma]", "1"], " ", 
           SubscriptBox["\[Sigma]", "v"]}], "+", 
          RowBox[{
           SubscriptBox["n", "1"], " ", 
           SubscriptBox["\[Gamma]", "1"], " ", 
           SubscriptBox["\[Delta]", "1"], " ", 
           SubscriptBox["\[Delta]", "2"], " ", 
           SubscriptBox["\[Epsilon]", "2"], " ", 
           SubscriptBox["\[Sigma]", "2"], " ", 
           SubscriptBox["\[Sigma]", "v"]}], "-", 
          RowBox[{"\[Sqrt]", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "4"}], " ", 
              SubscriptBox["n", "1"], " ", 
              SubscriptBox["n", "2"], " ", 
              SubscriptBox["\[Gamma]", "1"], " ", 
              SubscriptBox["\[Gamma]", "2"], " ", 
              SubscriptBox["\[Gamma]", "v"], " ", 
              SubscriptBox["\[Delta]", "1"], " ", 
              SubscriptBox["\[Delta]", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SubscriptBox["n", "2"], " ", 
                 SubscriptBox["\[Gamma]", "2"], " ", 
                 SubscriptBox["\[Epsilon]", "1"], " ", 
                 SubscriptBox["\[Sigma]", "1"]}], "+", 
                RowBox[{
                 SubscriptBox["n", "1"], " ", 
                 SubscriptBox["\[Gamma]", "1"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SubscriptBox["n", "2"], " ", 
                    SubscriptBox["\[Gamma]", "2"], " ", 
                    SubscriptBox["\[Gamma]", "v"]}], "+", 
                   RowBox[{
                    SubscriptBox["\[Epsilon]", "2"], " ", 
                    SubscriptBox["\[Sigma]", "2"]}]}], ")"}]}]}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SubscriptBox["n", "v"], " ", 
                 SubscriptBox["\[Gamma]", "1"], " ", 
                 SubscriptBox["\[Gamma]", "v"]}], "+", 
                RowBox[{
                 SubscriptBox["\[Delta]", "1"], " ", 
                 SubscriptBox["\[Sigma]", "v"]}]}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SubscriptBox["n", "v"], " ", 
                 SubscriptBox["\[Gamma]", "2"], " ", 
                 SubscriptBox["\[Gamma]", "v"]}], "+", 
                RowBox[{
                 SubscriptBox["\[Delta]", "2"], " ", 
                 SubscriptBox["\[Sigma]", "v"]}]}], ")"}]}], "+", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SubscriptBox["n", "2"], " ", 
                 SubscriptBox["\[Gamma]", "2"], " ", 
                 SubscriptBox["\[Delta]", "1"], " ", 
                 SubscriptBox["\[Epsilon]", "1"], " ", 
                 SubscriptBox["\[Sigma]", "1"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SubscriptBox["n", "v"], " ", 
                    SubscriptBox["\[Gamma]", "2"], " ", 
                    SubscriptBox["\[Gamma]", "v"]}], "+", 
                   RowBox[{
                    SubscriptBox["\[Delta]", "2"], " ", 
                    SubscriptBox["\[Sigma]", "v"]}]}], ")"}]}], "+", 
                RowBox[{
                 SubscriptBox["n", "1"], " ", 
                 SubscriptBox["\[Gamma]", "1"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SubscriptBox["\[Delta]", "2"], " ", 
                    SubscriptBox["\[Epsilon]", "2"], " ", 
                    SubscriptBox["\[Sigma]", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SubscriptBox["n", "v"], " ", 
                    SubscriptBox["\[Gamma]", "1"], " ", 
                    SubscriptBox["\[Gamma]", "v"]}], "+", 
                    RowBox[{
                    SubscriptBox["\[Delta]", "1"], " ", 
                    SubscriptBox["\[Sigma]", "v"]}]}], ")"}]}], "+", 
                   RowBox[{
                    SubscriptBox["n", "2"], " ", 
                    SubscriptBox["\[Gamma]", "2"], " ", 
                    SubscriptBox["\[Gamma]", "v"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SubscriptBox["n", "v"], " ", 
                    SubscriptBox["\[Gamma]", "v"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SubscriptBox["\[Gamma]", "2"], " ", 
                    SubscriptBox["\[Delta]", "1"]}], "+", 
                    RowBox[{
                    SubscriptBox["\[Gamma]", "1"], " ", 
                    SubscriptBox["\[Delta]", "2"]}]}], ")"}]}], "+", 
                    RowBox[{"2", " ", 
                    SubscriptBox["\[Delta]", "1"], " ", 
                    SubscriptBox["\[Delta]", "2"], " ", 
                    SubscriptBox["\[Sigma]", "v"]}]}], ")"}]}]}], ")"}]}]}], 
               ")"}], "2"]}], ")"}]}]}], ")"}]}]}]}], ",", 
     RowBox[{
      SubscriptBox["s", "2"], "\[Rule]", 
      RowBox[{"-", 
       RowBox[{
        FractionBox["1", 
         RowBox[{"2", " ", 
          SubscriptBox["n", "1"], " ", 
          SubscriptBox["\[Gamma]", "1"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", 
              SubscriptBox["\[Gamma]", "2"]}], " ", 
             SubscriptBox["\[Delta]", "1"]}], "+", 
            RowBox[{
             SubscriptBox["\[Gamma]", "1"], " ", 
             SubscriptBox["\[Delta]", "2"]}]}], ")"}], " ", 
          SubscriptBox["\[Epsilon]", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SubscriptBox["n", "v"], " ", 
             SubscriptBox["\[Gamma]", "2"], " ", 
             SubscriptBox["\[Gamma]", "v"]}], "+", 
            RowBox[{
             SubscriptBox["\[Delta]", "2"], " ", 
             SubscriptBox["\[Sigma]", "v"]}]}], ")"}]}]], 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox["n", "1"], " ", 
           SubscriptBox["n", "2"], " ", 
           SubscriptBox["n", "v"], " ", 
           SubscriptBox["\[Gamma]", "1"], " ", 
           SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
           SubsuperscriptBox["\[Gamma]", "v", "2"], " ", 
           SubscriptBox["\[Delta]", "1"]}], "-", 
          RowBox[{
           SubscriptBox["n", "1"], " ", 
           SubscriptBox["n", "2"], " ", 
           SubscriptBox["n", "v"], " ", 
           SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
           SubscriptBox["\[Gamma]", "2"], " ", 
           SubsuperscriptBox["\[Gamma]", "v", "2"], " ", 
           SubscriptBox["\[Delta]", "2"]}], "+", 
          RowBox[{
           SubscriptBox["n", "2"], " ", 
           SubscriptBox["n", "v"], " ", 
           SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
           SubscriptBox["\[Gamma]", "v"], " ", 
           SubscriptBox["\[Delta]", "1"], " ", 
           SubscriptBox["\[Epsilon]", "1"], " ", 
           SubscriptBox["\[Sigma]", "1"]}], "+", 
          RowBox[{"2", " ", 
           SubscriptBox["n", "1"], " ", 
           SubscriptBox["n", "v"], " ", 
           SubscriptBox["\[Gamma]", "1"], " ", 
           SubscriptBox["\[Gamma]", "2"], " ", 
           SubscriptBox["\[Gamma]", "v"], " ", 
           SubscriptBox["\[Delta]", "1"], " ", 
           SubscriptBox["\[Epsilon]", "2"], " ", 
           SubscriptBox["\[Sigma]", "2"]}], "-", 
          RowBox[{
           SubscriptBox["n", "1"], " ", 
           SubscriptBox["n", "v"], " ", 
           SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
           SubscriptBox["\[Gamma]", "v"], " ", 
           SubscriptBox["\[Delta]", "2"], " ", 
           SubscriptBox["\[Epsilon]", "2"], " ", 
           SubscriptBox["\[Sigma]", "2"]}], "+", 
          RowBox[{
           SubscriptBox["n", "2"], " ", 
           SubscriptBox["\[Gamma]", "2"], " ", 
           SubscriptBox["\[Delta]", "1"], " ", 
           SubscriptBox["\[Delta]", "2"], " ", 
           SubscriptBox["\[Epsilon]", "1"], " ", 
           SubscriptBox["\[Sigma]", "1"], " ", 
           SubscriptBox["\[Sigma]", "v"]}], "+", 
          RowBox[{
           SubscriptBox["n", "1"], " ", 
           SubscriptBox["\[Gamma]", "1"], " ", 
           SubscriptBox["\[Delta]", "1"], " ", 
           SubscriptBox["\[Delta]", "2"], " ", 
           SubscriptBox["\[Epsilon]", "2"], " ", 
           SubscriptBox["\[Sigma]", "2"], " ", 
           SubscriptBox["\[Sigma]", "v"]}], "-", 
          RowBox[{"\[Sqrt]", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "4"}], " ", 
              SubscriptBox["n", "1"], " ", 
              SubscriptBox["n", "2"], " ", 
              SubscriptBox["\[Gamma]", "1"], " ", 
              SubscriptBox["\[Gamma]", "2"], " ", 
              SubscriptBox["\[Gamma]", "v"], " ", 
              SubscriptBox["\[Delta]", "1"], " ", 
              SubscriptBox["\[Delta]", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SubscriptBox["n", "2"], " ", 
                 SubscriptBox["\[Gamma]", "2"], " ", 
                 SubscriptBox["\[Epsilon]", "1"], " ", 
                 SubscriptBox["\[Sigma]", "1"]}], "+", 
                RowBox[{
                 SubscriptBox["n", "1"], " ", 
                 SubscriptBox["\[Gamma]", "1"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SubscriptBox["n", "2"], " ", 
                    SubscriptBox["\[Gamma]", "2"], " ", 
                    SubscriptBox["\[Gamma]", "v"]}], "+", 
                   RowBox[{
                    SubscriptBox["\[Epsilon]", "2"], " ", 
                    SubscriptBox["\[Sigma]", "2"]}]}], ")"}]}]}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SubscriptBox["n", "v"], " ", 
                 SubscriptBox["\[Gamma]", "1"], " ", 
                 SubscriptBox["\[Gamma]", "v"]}], "+", 
                RowBox[{
                 SubscriptBox["\[Delta]", "1"], " ", 
                 SubscriptBox["\[Sigma]", "v"]}]}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SubscriptBox["n", "v"], " ", 
                 SubscriptBox["\[Gamma]", "2"], " ", 
                 SubscriptBox["\[Gamma]", "v"]}], "+", 
                RowBox[{
                 SubscriptBox["\[Delta]", "2"], " ", 
                 SubscriptBox["\[Sigma]", "v"]}]}], ")"}]}], "+", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SubscriptBox["n", "2"], " ", 
                 SubscriptBox["\[Gamma]", "2"], " ", 
                 SubscriptBox["\[Delta]", "1"], " ", 
                 SubscriptBox["\[Epsilon]", "1"], " ", 
                 SubscriptBox["\[Sigma]", "1"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SubscriptBox["n", "v"], " ", 
                    SubscriptBox["\[Gamma]", "2"], " ", 
                    SubscriptBox["\[Gamma]", "v"]}], "+", 
                   RowBox[{
                    SubscriptBox["\[Delta]", "2"], " ", 
                    SubscriptBox["\[Sigma]", "v"]}]}], ")"}]}], "+", 
                RowBox[{
                 SubscriptBox["n", "1"], " ", 
                 SubscriptBox["\[Gamma]", "1"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SubscriptBox["\[Delta]", "2"], " ", 
                    SubscriptBox["\[Epsilon]", "2"], " ", 
                    SubscriptBox["\[Sigma]", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SubscriptBox["n", "v"], " ", 
                    SubscriptBox["\[Gamma]", "1"], " ", 
                    SubscriptBox["\[Gamma]", "v"]}], "+", 
                    RowBox[{
                    SubscriptBox["\[Delta]", "1"], " ", 
                    SubscriptBox["\[Sigma]", "v"]}]}], ")"}]}], "+", 
                   RowBox[{
                    SubscriptBox["n", "2"], " ", 
                    SubscriptBox["\[Gamma]", "2"], " ", 
                    SubscriptBox["\[Gamma]", "v"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SubscriptBox["n", "v"], " ", 
                    SubscriptBox["\[Gamma]", "v"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SubscriptBox["\[Gamma]", "2"], " ", 
                    SubscriptBox["\[Delta]", "1"]}], "+", 
                    RowBox[{
                    SubscriptBox["\[Gamma]", "1"], " ", 
                    SubscriptBox["\[Delta]", "2"]}]}], ")"}]}], "+", 
                    RowBox[{"2", " ", 
                    SubscriptBox["\[Delta]", "1"], " ", 
                    SubscriptBox["\[Delta]", "2"], " ", 
                    SubscriptBox["\[Sigma]", "v"]}]}], ")"}]}]}], ")"}]}]}], 
               ")"}], "2"]}], ")"}]}]}], ")"}]}]}]}], ",", 
     RowBox[{
      SubscriptBox["i", "1"], "\[Rule]", 
      RowBox[{"-", 
       RowBox[{
        FractionBox["1", 
         RowBox[{"2", " ", 
          SubscriptBox["n", "2"], " ", 
          SubscriptBox["\[Gamma]", "1"], " ", 
          SubscriptBox["\[Gamma]", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", 
              SubscriptBox["\[Gamma]", "2"]}], " ", 
             SubscriptBox["\[Delta]", "1"]}], "+", 
            RowBox[{
             SubscriptBox["\[Gamma]", "1"], " ", 
             SubscriptBox["\[Delta]", "2"]}]}], ")"}], " ", 
          SubscriptBox["\[Epsilon]", "1"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SubscriptBox["n", "v"], " ", 
             SubscriptBox["\[Gamma]", "1"], " ", 
             SubscriptBox["\[Gamma]", "v"]}], "+", 
            RowBox[{
             SubscriptBox["\[Delta]", "1"], " ", 
             SubscriptBox["\[Sigma]", "v"]}]}], ")"}]}]], 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", 
            SubscriptBox["n", "1"]}], " ", 
           SubscriptBox["n", "2"], " ", 
           SubscriptBox["n", "v"], " ", 
           SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
           SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
           SubsuperscriptBox["\[Gamma]", "v", "2"], " ", 
           SubscriptBox["\[Delta]", "1"]}], "+", 
          RowBox[{
           SubscriptBox["n", "1"], " ", 
           SubscriptBox["n", "2"], " ", 
           SubscriptBox["n", "v"], " ", 
           SubsuperscriptBox["\[Gamma]", "1", "3"], " ", 
           SubscriptBox["\[Gamma]", "2"], " ", 
           SubsuperscriptBox["\[Gamma]", "v", "2"], " ", 
           SubscriptBox["\[Delta]", "2"]}], "+", 
          RowBox[{
           SubscriptBox["n", "2"], " ", 
           SubscriptBox["n", "v"], " ", 
           SubscriptBox["\[Gamma]", "1"], " ", 
           SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
           SubscriptBox["\[Gamma]", "v"], " ", 
           SubscriptBox["\[Delta]", "1"], " ", 
           SubscriptBox["\[Epsilon]", "1"], " ", 
           SubscriptBox["\[Sigma]", "1"]}], "+", 
          RowBox[{
           SubscriptBox["n", "1"], " ", 
           SubscriptBox["n", "v"], " ", 
           SubsuperscriptBox["\[Gamma]", "1", "3"], " ", 
           SubscriptBox["\[Gamma]", "v"], " ", 
           SubscriptBox["\[Delta]", "2"], " ", 
           SubscriptBox["\[Epsilon]", "2"], " ", 
           SubscriptBox["\[Sigma]", "2"]}], "+", 
          RowBox[{"2", " ", 
           SubscriptBox["n", "2"], " ", 
           SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
           SubsuperscriptBox["\[Delta]", "1", "2"], " ", 
           SubscriptBox["\[Epsilon]", "1"], " ", 
           SubscriptBox["\[Sigma]", "1"], " ", 
           SubscriptBox["\[Sigma]", "v"]}], "-", 
          RowBox[{
           SubscriptBox["n", "2"], " ", 
           SubscriptBox["\[Gamma]", "1"], " ", 
           SubscriptBox["\[Gamma]", "2"], " ", 
           SubscriptBox["\[Delta]", "1"], " ", 
           SubscriptBox["\[Delta]", "2"], " ", 
           SubscriptBox["\[Epsilon]", "1"], " ", 
           SubscriptBox["\[Sigma]", "1"], " ", 
           SubscriptBox["\[Sigma]", "v"]}], "+", 
          RowBox[{
           SubscriptBox["n", "1"], " ", 
           SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
           SubscriptBox["\[Delta]", "1"], " ", 
           SubscriptBox["\[Delta]", "2"], " ", 
           SubscriptBox["\[Epsilon]", "2"], " ", 
           SubscriptBox["\[Sigma]", "2"], " ", 
           SubscriptBox["\[Sigma]", "v"]}], "-", 
          RowBox[{
           SubscriptBox["\[Gamma]", "1"], " ", 
           RowBox[{"\[Sqrt]", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "4"}], " ", 
               SubscriptBox["n", "1"], " ", 
               SubscriptBox["n", "2"], " ", 
               SubscriptBox["\[Gamma]", "1"], " ", 
               SubscriptBox["\[Gamma]", "2"], " ", 
               SubscriptBox["\[Gamma]", "v"], " ", 
               SubscriptBox["\[Delta]", "1"], " ", 
               SubscriptBox["\[Delta]", "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  SubscriptBox["n", "2"], " ", 
                  SubscriptBox["\[Gamma]", "2"], " ", 
                  SubscriptBox["\[Epsilon]", "1"], " ", 
                  SubscriptBox["\[Sigma]", "1"]}], "+", 
                 RowBox[{
                  SubscriptBox["n", "1"], " ", 
                  SubscriptBox["\[Gamma]", "1"], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    SubscriptBox["n", "2"], " ", 
                    SubscriptBox["\[Gamma]", "2"], " ", 
                    SubscriptBox["\[Gamma]", "v"]}], "+", 
                    RowBox[{
                    SubscriptBox["\[Epsilon]", "2"], " ", 
                    SubscriptBox["\[Sigma]", "2"]}]}], ")"}]}]}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  SubscriptBox["n", "v"], " ", 
                  SubscriptBox["\[Gamma]", "1"], " ", 
                  SubscriptBox["\[Gamma]", "v"]}], "+", 
                 RowBox[{
                  SubscriptBox["\[Delta]", "1"], " ", 
                  SubscriptBox["\[Sigma]", "v"]}]}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  SubscriptBox["n", "v"], " ", 
                  SubscriptBox["\[Gamma]", "2"], " ", 
                  SubscriptBox["\[Gamma]", "v"]}], "+", 
                 RowBox[{
                  SubscriptBox["\[Delta]", "2"], " ", 
                  SubscriptBox["\[Sigma]", "v"]}]}], ")"}]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  SubscriptBox["n", "2"], " ", 
                  SubscriptBox["\[Gamma]", "2"], " ", 
                  SubscriptBox["\[Delta]", "1"], " ", 
                  SubscriptBox["\[Epsilon]", "1"], " ", 
                  SubscriptBox["\[Sigma]", "1"], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    SubscriptBox["n", "v"], " ", 
                    SubscriptBox["\[Gamma]", "2"], " ", 
                    SubscriptBox["\[Gamma]", "v"]}], "+", 
                    RowBox[{
                    SubscriptBox["\[Delta]", "2"], " ", 
                    SubscriptBox["\[Sigma]", "v"]}]}], ")"}]}], "+", 
                 RowBox[{
                  SubscriptBox["n", "1"], " ", 
                  SubscriptBox["\[Gamma]", "1"], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    SubscriptBox["\[Delta]", "2"], " ", 
                    SubscriptBox["\[Epsilon]", "2"], " ", 
                    SubscriptBox["\[Sigma]", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SubscriptBox["n", "v"], " ", 
                    SubscriptBox["\[Gamma]", "1"], " ", 
                    SubscriptBox["\[Gamma]", "v"]}], "+", 
                    RowBox[{
                    SubscriptBox["\[Delta]", "1"], " ", 
                    SubscriptBox["\[Sigma]", "v"]}]}], ")"}]}], "+", 
                    RowBox[{
                    SubscriptBox["n", "2"], " ", 
                    SubscriptBox["\[Gamma]", "2"], " ", 
                    SubscriptBox["\[Gamma]", "v"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SubscriptBox["n", "v"], " ", 
                    SubscriptBox["\[Gamma]", "v"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SubscriptBox["\[Gamma]", "2"], " ", 
                    SubscriptBox["\[Delta]", "1"]}], "+", 
                    RowBox[{
                    SubscriptBox["\[Gamma]", "1"], " ", 
                    SubscriptBox["\[Delta]", "2"]}]}], ")"}]}], "+", 
                    RowBox[{"2", " ", 
                    SubscriptBox["\[Delta]", "1"], " ", 
                    SubscriptBox["\[Delta]", "2"], " ", 
                    SubscriptBox["\[Sigma]", "v"]}]}], ")"}]}]}], ")"}]}]}], 
                ")"}], "2"]}], ")"}]}]}]}], ")"}]}]}]}], ",", 
     RowBox[{
      SubscriptBox["i", "2"], "\[Rule]", 
      RowBox[{
       FractionBox["1", 
        RowBox[{"2", " ", 
         SubscriptBox["n", "1"], " ", 
         SubscriptBox["\[Gamma]", "1"], " ", 
         SubscriptBox["\[Gamma]", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", 
             SubscriptBox["\[Gamma]", "2"]}], " ", 
            SubscriptBox["\[Delta]", "1"]}], "+", 
           RowBox[{
            SubscriptBox["\[Gamma]", "1"], " ", 
            SubscriptBox["\[Delta]", "2"]}]}], ")"}], " ", 
         SubscriptBox["\[Epsilon]", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SubscriptBox["n", "v"], " ", 
            SubscriptBox["\[Gamma]", "2"], " ", 
            SubscriptBox["\[Gamma]", "v"]}], "+", 
           RowBox[{
            SubscriptBox["\[Delta]", "2"], " ", 
            SubscriptBox["\[Sigma]", "v"]}]}], ")"}]}]], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SubscriptBox["n", "1"], " ", 
          SubscriptBox["n", "2"], " ", 
          SubscriptBox["n", "v"], " ", 
          SubscriptBox["\[Gamma]", "1"], " ", 
          SubsuperscriptBox["\[Gamma]", "2", "3"], " ", 
          SubsuperscriptBox["\[Gamma]", "v", "2"], " ", 
          SubscriptBox["\[Delta]", "1"]}], "-", 
         RowBox[{
          SubscriptBox["n", "1"], " ", 
          SubscriptBox["n", "2"], " ", 
          SubscriptBox["n", "v"], " ", 
          SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
          SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
          SubsuperscriptBox["\[Gamma]", "v", "2"], " ", 
          SubscriptBox["\[Delta]", "2"]}], "+", 
         RowBox[{
          SubscriptBox["n", "2"], " ", 
          SubscriptBox["n", "v"], " ", 
          SubsuperscriptBox["\[Gamma]", "2", "3"], " ", 
          SubscriptBox["\[Gamma]", "v"], " ", 
          SubscriptBox["\[Delta]", "1"], " ", 
          SubscriptBox["\[Epsilon]", "1"], " ", 
          SubscriptBox["\[Sigma]", "1"]}], "+", 
         RowBox[{
          SubscriptBox["n", "1"], " ", 
          SubscriptBox["n", "v"], " ", 
          SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
          SubscriptBox["\[Gamma]", "2"], " ", 
          SubscriptBox["\[Gamma]", "v"], " ", 
          SubscriptBox["\[Delta]", "2"], " ", 
          SubscriptBox["\[Epsilon]", "2"], " ", 
          SubscriptBox["\[Sigma]", "2"]}], "+", 
         RowBox[{
          SubscriptBox["n", "2"], " ", 
          SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
          SubscriptBox["\[Delta]", "1"], " ", 
          SubscriptBox["\[Delta]", "2"], " ", 
          SubscriptBox["\[Epsilon]", "1"], " ", 
          SubscriptBox["\[Sigma]", "1"], " ", 
          SubscriptBox["\[Sigma]", "v"]}], "-", 
         RowBox[{
          SubscriptBox["n", "1"], " ", 
          SubscriptBox["\[Gamma]", "1"], " ", 
          SubscriptBox["\[Gamma]", "2"], " ", 
          SubscriptBox["\[Delta]", "1"], " ", 
          SubscriptBox["\[Delta]", "2"], " ", 
          SubscriptBox["\[Epsilon]", "2"], " ", 
          SubscriptBox["\[Sigma]", "2"], " ", 
          SubscriptBox["\[Sigma]", "v"]}], "+", 
         RowBox[{"2", " ", 
          SubscriptBox["n", "1"], " ", 
          SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
          SubsuperscriptBox["\[Delta]", "2", "2"], " ", 
          SubscriptBox["\[Epsilon]", "2"], " ", 
          SubscriptBox["\[Sigma]", "2"], " ", 
          SubscriptBox["\[Sigma]", "v"]}], "-", 
         RowBox[{
          SubscriptBox["\[Gamma]", "2"], " ", 
          RowBox[{"\[Sqrt]", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "4"}], " ", 
              SubscriptBox["n", "1"], " ", 
              SubscriptBox["n", "2"], " ", 
              SubscriptBox["\[Gamma]", "1"], " ", 
              SubscriptBox["\[Gamma]", "2"], " ", 
              SubscriptBox["\[Gamma]", "v"], " ", 
              SubscriptBox["\[Delta]", "1"], " ", 
              SubscriptBox["\[Delta]", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SubscriptBox["n", "2"], " ", 
                 SubscriptBox["\[Gamma]", "2"], " ", 
                 SubscriptBox["\[Epsilon]", "1"], " ", 
                 SubscriptBox["\[Sigma]", "1"]}], "+", 
                RowBox[{
                 SubscriptBox["n", "1"], " ", 
                 SubscriptBox["\[Gamma]", "1"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SubscriptBox["n", "2"], " ", 
                    SubscriptBox["\[Gamma]", "2"], " ", 
                    SubscriptBox["\[Gamma]", "v"]}], "+", 
                   RowBox[{
                    SubscriptBox["\[Epsilon]", "2"], " ", 
                    SubscriptBox["\[Sigma]", "2"]}]}], ")"}]}]}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SubscriptBox["n", "v"], " ", 
                 SubscriptBox["\[Gamma]", "1"], " ", 
                 SubscriptBox["\[Gamma]", "v"]}], "+", 
                RowBox[{
                 SubscriptBox["\[Delta]", "1"], " ", 
                 SubscriptBox["\[Sigma]", "v"]}]}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SubscriptBox["n", "v"], " ", 
                 SubscriptBox["\[Gamma]", "2"], " ", 
                 SubscriptBox["\[Gamma]", "v"]}], "+", 
                RowBox[{
                 SubscriptBox["\[Delta]", "2"], " ", 
                 SubscriptBox["\[Sigma]", "v"]}]}], ")"}]}], "+", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SubscriptBox["n", "2"], " ", 
                 SubscriptBox["\[Gamma]", "2"], " ", 
                 SubscriptBox["\[Delta]", "1"], " ", 
                 SubscriptBox["\[Epsilon]", "1"], " ", 
                 SubscriptBox["\[Sigma]", "1"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SubscriptBox["n", "v"], " ", 
                    SubscriptBox["\[Gamma]", "2"], " ", 
                    SubscriptBox["\[Gamma]", "v"]}], "+", 
                   RowBox[{
                    SubscriptBox["\[Delta]", "2"], " ", 
                    SubscriptBox["\[Sigma]", "v"]}]}], ")"}]}], "+", 
                RowBox[{
                 SubscriptBox["n", "1"], " ", 
                 SubscriptBox["\[Gamma]", "1"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SubscriptBox["\[Delta]", "2"], " ", 
                    SubscriptBox["\[Epsilon]", "2"], " ", 
                    SubscriptBox["\[Sigma]", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SubscriptBox["n", "v"], " ", 
                    SubscriptBox["\[Gamma]", "1"], " ", 
                    SubscriptBox["\[Gamma]", "v"]}], "+", 
                    RowBox[{
                    SubscriptBox["\[Delta]", "1"], " ", 
                    SubscriptBox["\[Sigma]", "v"]}]}], ")"}]}], "+", 
                   RowBox[{
                    SubscriptBox["n", "2"], " ", 
                    SubscriptBox["\[Gamma]", "2"], " ", 
                    SubscriptBox["\[Gamma]", "v"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SubscriptBox["n", "v"], " ", 
                    SubscriptBox["\[Gamma]", "v"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SubscriptBox["\[Gamma]", "2"], " ", 
                    SubscriptBox["\[Delta]", "1"]}], "+", 
                    RowBox[{
                    SubscriptBox["\[Gamma]", "1"], " ", 
                    SubscriptBox["\[Delta]", "2"]}]}], ")"}]}], "+", 
                    RowBox[{"2", " ", 
                    SubscriptBox["\[Delta]", "1"], " ", 
                    SubscriptBox["\[Delta]", "2"], " ", 
                    SubscriptBox["\[Sigma]", "v"]}]}], ")"}]}]}], ")"}]}]}], 
               ")"}], "2"]}], ")"}]}]}]}], ")"}]}]}], ",", 
     RowBox[{
      SubscriptBox["s", "v"], "\[Rule]", 
      RowBox[{
       FractionBox["1", 
        RowBox[{"2", " ", 
         SubscriptBox["\[Gamma]", "v"], " ", 
         SubscriptBox["\[Delta]", "1"], " ", 
         SubscriptBox["\[Delta]", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SubscriptBox["n", "2"], " ", 
            SubscriptBox["\[Gamma]", "2"], " ", 
            SubscriptBox["\[Epsilon]", "1"], " ", 
            SubscriptBox["\[Sigma]", "1"]}], "+", 
           RowBox[{
            SubscriptBox["n", "1"], " ", 
            SubscriptBox["\[Gamma]", "1"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               SubscriptBox["n", "2"], " ", 
               SubscriptBox["\[Gamma]", "2"], " ", 
               SubscriptBox["\[Gamma]", "v"]}], "+", 
              RowBox[{
               SubscriptBox["\[Epsilon]", "2"], " ", 
               SubscriptBox["\[Sigma]", "2"]}]}], ")"}]}]}], ")"}]}]], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SubscriptBox["n", "1"], " ", 
          SubscriptBox["n", "2"], " ", 
          SubscriptBox["n", "v"], " ", 
          SubscriptBox["\[Gamma]", "1"], " ", 
          SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
          SubsuperscriptBox["\[Gamma]", "v", "2"], " ", 
          SubscriptBox["\[Delta]", "1"]}], "+", 
         RowBox[{
          SubscriptBox["n", "1"], " ", 
          SubscriptBox["n", "2"], " ", 
          SubscriptBox["n", "v"], " ", 
          SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
          SubscriptBox["\[Gamma]", "2"], " ", 
          SubsuperscriptBox["\[Gamma]", "v", "2"], " ", 
          SubscriptBox["\[Delta]", "2"]}], "+", 
         RowBox[{
          SubscriptBox["n", "2"], " ", 
          SubscriptBox["n", "v"], " ", 
          SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
          SubscriptBox["\[Gamma]", "v"], " ", 
          SubscriptBox["\[Delta]", "1"], " ", 
          SubscriptBox["\[Epsilon]", "1"], " ", 
          SubscriptBox["\[Sigma]", "1"]}], "+", 
         RowBox[{
          SubscriptBox["n", "1"], " ", 
          SubscriptBox["n", "v"], " ", 
          SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
          SubscriptBox["\[Gamma]", "v"], " ", 
          SubscriptBox["\[Delta]", "2"], " ", 
          SubscriptBox["\[Epsilon]", "2"], " ", 
          SubscriptBox["\[Sigma]", "2"]}], "+", 
         RowBox[{"2", " ", 
          SubscriptBox["n", "1"], " ", 
          SubscriptBox["n", "2"], " ", 
          SubscriptBox["\[Gamma]", "1"], " ", 
          SubscriptBox["\[Gamma]", "2"], " ", 
          SubscriptBox["\[Gamma]", "v"], " ", 
          SubscriptBox["\[Delta]", "1"], " ", 
          SubscriptBox["\[Delta]", "2"], " ", 
          SubscriptBox["\[Sigma]", "v"]}], "+", 
         RowBox[{
          SubscriptBox["n", "2"], " ", 
          SubscriptBox["\[Gamma]", "2"], " ", 
          SubscriptBox["\[Delta]", "1"], " ", 
          SubscriptBox["\[Delta]", "2"], " ", 
          SubscriptBox["\[Epsilon]", "1"], " ", 
          SubscriptBox["\[Sigma]", "1"], " ", 
          SubscriptBox["\[Sigma]", "v"]}], "+", 
         RowBox[{
          SubscriptBox["n", "1"], " ", 
          SubscriptBox["\[Gamma]", "1"], " ", 
          SubscriptBox["\[Delta]", "1"], " ", 
          SubscriptBox["\[Delta]", "2"], " ", 
          SubscriptBox["\[Epsilon]", "2"], " ", 
          SubscriptBox["\[Sigma]", "2"], " ", 
          SubscriptBox["\[Sigma]", "v"]}], "-", 
         RowBox[{"\[Sqrt]", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "4"}], " ", 
             SubscriptBox["n", "1"], " ", 
             SubscriptBox["n", "2"], " ", 
             SubscriptBox["\[Gamma]", "1"], " ", 
             SubscriptBox["\[Gamma]", "2"], " ", 
             SubscriptBox["\[Gamma]", "v"], " ", 
             SubscriptBox["\[Delta]", "1"], " ", 
             SubscriptBox["\[Delta]", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SubscriptBox["n", "2"], " ", 
                SubscriptBox["\[Gamma]", "2"], " ", 
                SubscriptBox["\[Epsilon]", "1"], " ", 
                SubscriptBox["\[Sigma]", "1"]}], "+", 
               RowBox[{
                SubscriptBox["n", "1"], " ", 
                SubscriptBox["\[Gamma]", "1"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   SubscriptBox["n", "2"], " ", 
                   SubscriptBox["\[Gamma]", "2"], " ", 
                   SubscriptBox["\[Gamma]", "v"]}], "+", 
                  RowBox[{
                   SubscriptBox["\[Epsilon]", "2"], " ", 
                   SubscriptBox["\[Sigma]", "2"]}]}], ")"}]}]}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SubscriptBox["n", "v"], " ", 
                SubscriptBox["\[Gamma]", "1"], " ", 
                SubscriptBox["\[Gamma]", "v"]}], "+", 
               RowBox[{
                SubscriptBox["\[Delta]", "1"], " ", 
                SubscriptBox["\[Sigma]", "v"]}]}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SubscriptBox["n", "v"], " ", 
                SubscriptBox["\[Gamma]", "2"], " ", 
                SubscriptBox["\[Gamma]", "v"]}], "+", 
               RowBox[{
                SubscriptBox["\[Delta]", "2"], " ", 
                SubscriptBox["\[Sigma]", "v"]}]}], ")"}]}], "+", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SubscriptBox["n", "2"], " ", 
                SubscriptBox["\[Gamma]", "2"], " ", 
                SubscriptBox["\[Delta]", "1"], " ", 
                SubscriptBox["\[Epsilon]", "1"], " ", 
                SubscriptBox["\[Sigma]", "1"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   SubscriptBox["n", "v"], " ", 
                   SubscriptBox["\[Gamma]", "2"], " ", 
                   SubscriptBox["\[Gamma]", "v"]}], "+", 
                  RowBox[{
                   SubscriptBox["\[Delta]", "2"], " ", 
                   SubscriptBox["\[Sigma]", "v"]}]}], ")"}]}], "+", 
               RowBox[{
                SubscriptBox["n", "1"], " ", 
                SubscriptBox["\[Gamma]", "1"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   SubscriptBox["\[Delta]", "2"], " ", 
                   SubscriptBox["\[Epsilon]", "2"], " ", 
                   SubscriptBox["\[Sigma]", "2"], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SubscriptBox["n", "v"], " ", 
                    SubscriptBox["\[Gamma]", "1"], " ", 
                    SubscriptBox["\[Gamma]", "v"]}], "+", 
                    RowBox[{
                    SubscriptBox["\[Delta]", "1"], " ", 
                    SubscriptBox["\[Sigma]", "v"]}]}], ")"}]}], "+", 
                  RowBox[{
                   SubscriptBox["n", "2"], " ", 
                   SubscriptBox["\[Gamma]", "2"], " ", 
                   SubscriptBox["\[Gamma]", "v"], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SubscriptBox["n", "v"], " ", 
                    SubscriptBox["\[Gamma]", "v"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SubscriptBox["\[Gamma]", "2"], " ", 
                    SubscriptBox["\[Delta]", "1"]}], "+", 
                    RowBox[{
                    SubscriptBox["\[Gamma]", "1"], " ", 
                    SubscriptBox["\[Delta]", "2"]}]}], ")"}]}], "+", 
                    RowBox[{"2", " ", 
                    SubscriptBox["\[Delta]", "1"], " ", 
                    SubscriptBox["\[Delta]", "2"], " ", 
                    SubscriptBox["\[Sigma]", "v"]}]}], ")"}]}]}], ")"}]}]}], 
              ")"}], "2"]}], ")"}]}]}], ")"}]}]}], ",", 
     RowBox[{
      SubscriptBox["i", "v"], "\[Rule]", 
      RowBox[{
       FractionBox["1", 
        RowBox[{"2", " ", 
         SubscriptBox["\[Gamma]", "v"], " ", 
         SubscriptBox["\[Delta]", "1"], " ", 
         SubscriptBox["\[Delta]", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SubscriptBox["n", "2"], " ", 
            SubscriptBox["\[Gamma]", "2"], " ", 
            SubscriptBox["\[Epsilon]", "1"], " ", 
            SubscriptBox["\[Sigma]", "1"]}], "+", 
           RowBox[{
            SubscriptBox["n", "1"], " ", 
            SubscriptBox["\[Gamma]", "1"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               SubscriptBox["n", "2"], " ", 
               SubscriptBox["\[Gamma]", "2"], " ", 
               SubscriptBox["\[Gamma]", "v"]}], "+", 
              RowBox[{
               SubscriptBox["\[Epsilon]", "2"], " ", 
               SubscriptBox["\[Sigma]", "2"]}]}], ")"}]}]}], ")"}]}]], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", 
           SubscriptBox["n", "1"]}], " ", 
          SubscriptBox["n", "2"], " ", 
          SubscriptBox["n", "v"], " ", 
          SubscriptBox["\[Gamma]", "1"], " ", 
          SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
          SubsuperscriptBox["\[Gamma]", "v", "2"], " ", 
          SubscriptBox["\[Delta]", "1"]}], "-", 
         RowBox[{
          SubscriptBox["n", "1"], " ", 
          SubscriptBox["n", "2"], " ", 
          SubscriptBox["n", "v"], " ", 
          SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
          SubscriptBox["\[Gamma]", "2"], " ", 
          SubsuperscriptBox["\[Gamma]", "v", "2"], " ", 
          SubscriptBox["\[Delta]", "2"]}], "-", 
         RowBox[{
          SubscriptBox["n", "2"], " ", 
          SubscriptBox["n", "v"], " ", 
          SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
          SubscriptBox["\[Gamma]", "v"], " ", 
          SubscriptBox["\[Delta]", "1"], " ", 
          SubscriptBox["\[Epsilon]", "1"], " ", 
          SubscriptBox["\[Sigma]", "1"]}], "-", 
         RowBox[{
          SubscriptBox["n", "1"], " ", 
          SubscriptBox["n", "v"], " ", 
          SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
          SubscriptBox["\[Gamma]", "v"], " ", 
          SubscriptBox["\[Delta]", "2"], " ", 
          SubscriptBox["\[Epsilon]", "2"], " ", 
          SubscriptBox["\[Sigma]", "2"]}], "+", 
         RowBox[{
          SubscriptBox["n", "2"], " ", 
          SubscriptBox["\[Gamma]", "2"], " ", 
          SubscriptBox["\[Delta]", "1"], " ", 
          SubscriptBox["\[Delta]", "2"], " ", 
          SubscriptBox["\[Epsilon]", "1"], " ", 
          SubscriptBox["\[Sigma]", "1"], " ", 
          SubscriptBox["\[Sigma]", "v"]}], "+", 
         RowBox[{
          SubscriptBox["n", "1"], " ", 
          SubscriptBox["\[Gamma]", "1"], " ", 
          SubscriptBox["\[Delta]", "1"], " ", 
          SubscriptBox["\[Delta]", "2"], " ", 
          SubscriptBox["\[Epsilon]", "2"], " ", 
          SubscriptBox["\[Sigma]", "2"], " ", 
          SubscriptBox["\[Sigma]", "v"]}], "+", 
         RowBox[{"\[Sqrt]", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "4"}], " ", 
             SubscriptBox["n", "1"], " ", 
             SubscriptBox["n", "2"], " ", 
             SubscriptBox["\[Gamma]", "1"], " ", 
             SubscriptBox["\[Gamma]", "2"], " ", 
             SubscriptBox["\[Gamma]", "v"], " ", 
             SubscriptBox["\[Delta]", "1"], " ", 
             SubscriptBox["\[Delta]", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SubscriptBox["n", "2"], " ", 
                SubscriptBox["\[Gamma]", "2"], " ", 
                SubscriptBox["\[Epsilon]", "1"], " ", 
                SubscriptBox["\[Sigma]", "1"]}], "+", 
               RowBox[{
                SubscriptBox["n", "1"], " ", 
                SubscriptBox["\[Gamma]", "1"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   SubscriptBox["n", "2"], " ", 
                   SubscriptBox["\[Gamma]", "2"], " ", 
                   SubscriptBox["\[Gamma]", "v"]}], "+", 
                  RowBox[{
                   SubscriptBox["\[Epsilon]", "2"], " ", 
                   SubscriptBox["\[Sigma]", "2"]}]}], ")"}]}]}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SubscriptBox["n", "v"], " ", 
                SubscriptBox["\[Gamma]", "1"], " ", 
                SubscriptBox["\[Gamma]", "v"]}], "+", 
               RowBox[{
                SubscriptBox["\[Delta]", "1"], " ", 
                SubscriptBox["\[Sigma]", "v"]}]}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SubscriptBox["n", "v"], " ", 
                SubscriptBox["\[Gamma]", "2"], " ", 
                SubscriptBox["\[Gamma]", "v"]}], "+", 
               RowBox[{
                SubscriptBox["\[Delta]", "2"], " ", 
                SubscriptBox["\[Sigma]", "v"]}]}], ")"}]}], "+", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SubscriptBox["n", "2"], " ", 
                SubscriptBox["\[Gamma]", "2"], " ", 
                SubscriptBox["\[Delta]", "1"], " ", 
                SubscriptBox["\[Epsilon]", "1"], " ", 
                SubscriptBox["\[Sigma]", "1"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   SubscriptBox["n", "v"], " ", 
                   SubscriptBox["\[Gamma]", "2"], " ", 
                   SubscriptBox["\[Gamma]", "v"]}], "+", 
                  RowBox[{
                   SubscriptBox["\[Delta]", "2"], " ", 
                   SubscriptBox["\[Sigma]", "v"]}]}], ")"}]}], "+", 
               RowBox[{
                SubscriptBox["n", "1"], " ", 
                SubscriptBox["\[Gamma]", "1"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   SubscriptBox["\[Delta]", "2"], " ", 
                   SubscriptBox["\[Epsilon]", "2"], " ", 
                   SubscriptBox["\[Sigma]", "2"], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SubscriptBox["n", "v"], " ", 
                    SubscriptBox["\[Gamma]", "1"], " ", 
                    SubscriptBox["\[Gamma]", "v"]}], "+", 
                    RowBox[{
                    SubscriptBox["\[Delta]", "1"], " ", 
                    SubscriptBox["\[Sigma]", "v"]}]}], ")"}]}], "+", 
                  RowBox[{
                   SubscriptBox["n", "2"], " ", 
                   SubscriptBox["\[Gamma]", "2"], " ", 
                   SubscriptBox["\[Gamma]", "v"], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SubscriptBox["n", "v"], " ", 
                    SubscriptBox["\[Gamma]", "v"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SubscriptBox["\[Gamma]", "2"], " ", 
                    SubscriptBox["\[Delta]", "1"]}], "+", 
                    RowBox[{
                    SubscriptBox["\[Gamma]", "1"], " ", 
                    SubscriptBox["\[Delta]", "2"]}]}], ")"}]}], "+", 
                    RowBox[{"2", " ", 
                    SubscriptBox["\[Delta]", "1"], " ", 
                    SubscriptBox["\[Delta]", "2"], " ", 
                    SubscriptBox["\[Sigma]", "v"]}]}], ")"}]}]}], ")"}]}]}], 
              ")"}], "2"]}], ")"}]}]}], ")"}]}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      SubscriptBox["s", "1"], "\[Rule]", 
      RowBox[{"-", 
       RowBox[{
        FractionBox["1", 
         RowBox[{"2", " ", 
          SubscriptBox["n", "2"], " ", 
          SubscriptBox["\[Gamma]", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SubscriptBox["\[Gamma]", "2"], " ", 
             SubscriptBox["\[Delta]", "1"]}], "-", 
            RowBox[{
             SubscriptBox["\[Gamma]", "1"], " ", 
             SubscriptBox["\[Delta]", "2"]}]}], ")"}], " ", 
          SubscriptBox["\[Epsilon]", "1"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SubscriptBox["n", "v"], " ", 
             SubscriptBox["\[Gamma]", "1"], " ", 
             SubscriptBox["\[Gamma]", "v"]}], "+", 
            RowBox[{
             SubscriptBox["\[Delta]", "1"], " ", 
             SubscriptBox["\[Sigma]", "v"]}]}], ")"}]}]], 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", 
            SubscriptBox["n", "1"]}], " ", 
           SubscriptBox["n", "2"], " ", 
           SubscriptBox["n", "v"], " ", 
           SubscriptBox["\[Gamma]", "1"], " ", 
           SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
           SubsuperscriptBox["\[Gamma]", "v", "2"], " ", 
           SubscriptBox["\[Delta]", "1"]}], "+", 
          RowBox[{
           SubscriptBox["n", "1"], " ", 
           SubscriptBox["n", "2"], " ", 
           SubscriptBox["n", "v"], " ", 
           SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
           SubscriptBox["\[Gamma]", "2"], " ", 
           SubsuperscriptBox["\[Gamma]", "v", "2"], " ", 
           SubscriptBox["\[Delta]", "2"]}], "-", 
          RowBox[{
           SubscriptBox["n", "2"], " ", 
           SubscriptBox["n", "v"], " ", 
           SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
           SubscriptBox["\[Gamma]", "v"], " ", 
           SubscriptBox["\[Delta]", "1"], " ", 
           SubscriptBox["\[Epsilon]", "1"], " ", 
           SubscriptBox["\[Sigma]", "1"]}], "+", 
          RowBox[{"2", " ", 
           SubscriptBox["n", "2"], " ", 
           SubscriptBox["n", "v"], " ", 
           SubscriptBox["\[Gamma]", "1"], " ", 
           SubscriptBox["\[Gamma]", "2"], " ", 
           SubscriptBox["\[Gamma]", "v"], " ", 
           SubscriptBox["\[Delta]", "2"], " ", 
           SubscriptBox["\[Epsilon]", "1"], " ", 
           SubscriptBox["\[Sigma]", "1"]}], "+", 
          RowBox[{
           SubscriptBox["n", "1"], " ", 
           SubscriptBox["n", "v"], " ", 
           SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
           SubscriptBox["\[Gamma]", "v"], " ", 
           SubscriptBox["\[Delta]", "2"], " ", 
           SubscriptBox["\[Epsilon]", "2"], " ", 
           SubscriptBox["\[Sigma]", "2"]}], "+", 
          RowBox[{
           SubscriptBox["n", "2"], " ", 
           SubscriptBox["\[Gamma]", "2"], " ", 
           SubscriptBox["\[Delta]", "1"], " ", 
           SubscriptBox["\[Delta]", "2"], " ", 
           SubscriptBox["\[Epsilon]", "1"], " ", 
           SubscriptBox["\[Sigma]", "1"], " ", 
           SubscriptBox["\[Sigma]", "v"]}], "+", 
          RowBox[{
           SubscriptBox["n", "1"], " ", 
           SubscriptBox["\[Gamma]", "1"], " ", 
           SubscriptBox["\[Delta]", "1"], " ", 
           SubscriptBox["\[Delta]", "2"], " ", 
           SubscriptBox["\[Epsilon]", "2"], " ", 
           SubscriptBox["\[Sigma]", "2"], " ", 
           SubscriptBox["\[Sigma]", "v"]}], "+", 
          RowBox[{"\[Sqrt]", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "4"}], " ", 
              SubscriptBox["n", "1"], " ", 
              SubscriptBox["n", "2"], " ", 
              SubscriptBox["\[Gamma]", "1"], " ", 
              SubscriptBox["\[Gamma]", "2"], " ", 
              SubscriptBox["\[Gamma]", "v"], " ", 
              SubscriptBox["\[Delta]", "1"], " ", 
              SubscriptBox["\[Delta]", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SubscriptBox["n", "2"], " ", 
                 SubscriptBox["\[Gamma]", "2"], " ", 
                 SubscriptBox["\[Epsilon]", "1"], " ", 
                 SubscriptBox["\[Sigma]", "1"]}], "+", 
                RowBox[{
                 SubscriptBox["n", "1"], " ", 
                 SubscriptBox["\[Gamma]", "1"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SubscriptBox["n", "2"], " ", 
                    SubscriptBox["\[Gamma]", "2"], " ", 
                    SubscriptBox["\[Gamma]", "v"]}], "+", 
                   RowBox[{
                    SubscriptBox["\[Epsilon]", "2"], " ", 
                    SubscriptBox["\[Sigma]", "2"]}]}], ")"}]}]}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SubscriptBox["n", "v"], " ", 
                 SubscriptBox["\[Gamma]", "1"], " ", 
                 SubscriptBox["\[Gamma]", "v"]}], "+", 
                RowBox[{
                 SubscriptBox["\[Delta]", "1"], " ", 
                 SubscriptBox["\[Sigma]", "v"]}]}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SubscriptBox["n", "v"], " ", 
                 SubscriptBox["\[Gamma]", "2"], " ", 
                 SubscriptBox["\[Gamma]", "v"]}], "+", 
                RowBox[{
                 SubscriptBox["\[Delta]", "2"], " ", 
                 SubscriptBox["\[Sigma]", "v"]}]}], ")"}]}], "+", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SubscriptBox["n", "2"], " ", 
                 SubscriptBox["\[Gamma]", "2"], " ", 
                 SubscriptBox["\[Delta]", "1"], " ", 
                 SubscriptBox["\[Epsilon]", "1"], " ", 
                 SubscriptBox["\[Sigma]", "1"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SubscriptBox["n", "v"], " ", 
                    SubscriptBox["\[Gamma]", "2"], " ", 
                    SubscriptBox["\[Gamma]", "v"]}], "+", 
                   RowBox[{
                    SubscriptBox["\[Delta]", "2"], " ", 
                    SubscriptBox["\[Sigma]", "v"]}]}], ")"}]}], "+", 
                RowBox[{
                 SubscriptBox["n", "1"], " ", 
                 SubscriptBox["\[Gamma]", "1"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SubscriptBox["\[Delta]", "2"], " ", 
                    SubscriptBox["\[Epsilon]", "2"], " ", 
                    SubscriptBox["\[Sigma]", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SubscriptBox["n", "v"], " ", 
                    SubscriptBox["\[Gamma]", "1"], " ", 
                    SubscriptBox["\[Gamma]", "v"]}], "+", 
                    RowBox[{
                    SubscriptBox["\[Delta]", "1"], " ", 
                    SubscriptBox["\[Sigma]", "v"]}]}], ")"}]}], "+", 
                   RowBox[{
                    SubscriptBox["n", "2"], " ", 
                    SubscriptBox["\[Gamma]", "2"], " ", 
                    SubscriptBox["\[Gamma]", "v"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SubscriptBox["n", "v"], " ", 
                    SubscriptBox["\[Gamma]", "v"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SubscriptBox["\[Gamma]", "2"], " ", 
                    SubscriptBox["\[Delta]", "1"]}], "+", 
                    RowBox[{
                    SubscriptBox["\[Gamma]", "1"], " ", 
                    SubscriptBox["\[Delta]", "2"]}]}], ")"}]}], "+", 
                    RowBox[{"2", " ", 
                    SubscriptBox["\[Delta]", "1"], " ", 
                    SubscriptBox["\[Delta]", "2"], " ", 
                    SubscriptBox["\[Sigma]", "v"]}]}], ")"}]}]}], ")"}]}]}], 
               ")"}], "2"]}], ")"}]}]}], ")"}]}]}]}], ",", 
     RowBox[{
      SubscriptBox["s", "2"], "\[Rule]", 
      RowBox[{"-", 
       RowBox[{
        FractionBox["1", 
         RowBox[{"2", " ", 
          SubscriptBox["n", "1"], " ", 
          SubscriptBox["\[Gamma]", "1"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", 
              SubscriptBox["\[Gamma]", "2"]}], " ", 
             SubscriptBox["\[Delta]", "1"]}], "+", 
            RowBox[{
             SubscriptBox["\[Gamma]", "1"], " ", 
             SubscriptBox["\[Delta]", "2"]}]}], ")"}], " ", 
          SubscriptBox["\[Epsilon]", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SubscriptBox["n", "v"], " ", 
             SubscriptBox["\[Gamma]", "2"], " ", 
             SubscriptBox["\[Gamma]", "v"]}], "+", 
            RowBox[{
             SubscriptBox["\[Delta]", "2"], " ", 
             SubscriptBox["\[Sigma]", "v"]}]}], ")"}]}]], 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox["n", "1"], " ", 
           SubscriptBox["n", "2"], " ", 
           SubscriptBox["n", "v"], " ", 
           SubscriptBox["\[Gamma]", "1"], " ", 
           SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
           SubsuperscriptBox["\[Gamma]", "v", "2"], " ", 
           SubscriptBox["\[Delta]", "1"]}], "-", 
          RowBox[{
           SubscriptBox["n", "1"], " ", 
           SubscriptBox["n", "2"], " ", 
           SubscriptBox["n", "v"], " ", 
           SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
           SubscriptBox["\[Gamma]", "2"], " ", 
           SubsuperscriptBox["\[Gamma]", "v", "2"], " ", 
           SubscriptBox["\[Delta]", "2"]}], "+", 
          RowBox[{
           SubscriptBox["n", "2"], " ", 
           SubscriptBox["n", "v"], " ", 
           SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
           SubscriptBox["\[Gamma]", "v"], " ", 
           SubscriptBox["\[Delta]", "1"], " ", 
           SubscriptBox["\[Epsilon]", "1"], " ", 
           SubscriptBox["\[Sigma]", "1"]}], "+", 
          RowBox[{"2", " ", 
           SubscriptBox["n", "1"], " ", 
           SubscriptBox["n", "v"], " ", 
           SubscriptBox["\[Gamma]", "1"], " ", 
           SubscriptBox["\[Gamma]", "2"], " ", 
           SubscriptBox["\[Gamma]", "v"], " ", 
           SubscriptBox["\[Delta]", "1"], " ", 
           SubscriptBox["\[Epsilon]", "2"], " ", 
           SubscriptBox["\[Sigma]", "2"]}], "-", 
          RowBox[{
           SubscriptBox["n", "1"], " ", 
           SubscriptBox["n", "v"], " ", 
           SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
           SubscriptBox["\[Gamma]", "v"], " ", 
           SubscriptBox["\[Delta]", "2"], " ", 
           SubscriptBox["\[Epsilon]", "2"], " ", 
           SubscriptBox["\[Sigma]", "2"]}], "+", 
          RowBox[{
           SubscriptBox["n", "2"], " ", 
           SubscriptBox["\[Gamma]", "2"], " ", 
           SubscriptBox["\[Delta]", "1"], " ", 
           SubscriptBox["\[Delta]", "2"], " ", 
           SubscriptBox["\[Epsilon]", "1"], " ", 
           SubscriptBox["\[Sigma]", "1"], " ", 
           SubscriptBox["\[Sigma]", "v"]}], "+", 
          RowBox[{
           SubscriptBox["n", "1"], " ", 
           SubscriptBox["\[Gamma]", "1"], " ", 
           SubscriptBox["\[Delta]", "1"], " ", 
           SubscriptBox["\[Delta]", "2"], " ", 
           SubscriptBox["\[Epsilon]", "2"], " ", 
           SubscriptBox["\[Sigma]", "2"], " ", 
           SubscriptBox["\[Sigma]", "v"]}], "+", 
          RowBox[{"\[Sqrt]", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "4"}], " ", 
              SubscriptBox["n", "1"], " ", 
              SubscriptBox["n", "2"], " ", 
              SubscriptBox["\[Gamma]", "1"], " ", 
              SubscriptBox["\[Gamma]", "2"], " ", 
              SubscriptBox["\[Gamma]", "v"], " ", 
              SubscriptBox["\[Delta]", "1"], " ", 
              SubscriptBox["\[Delta]", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SubscriptBox["n", "2"], " ", 
                 SubscriptBox["\[Gamma]", "2"], " ", 
                 SubscriptBox["\[Epsilon]", "1"], " ", 
                 SubscriptBox["\[Sigma]", "1"]}], "+", 
                RowBox[{
                 SubscriptBox["n", "1"], " ", 
                 SubscriptBox["\[Gamma]", "1"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SubscriptBox["n", "2"], " ", 
                    SubscriptBox["\[Gamma]", "2"], " ", 
                    SubscriptBox["\[Gamma]", "v"]}], "+", 
                   RowBox[{
                    SubscriptBox["\[Epsilon]", "2"], " ", 
                    SubscriptBox["\[Sigma]", "2"]}]}], ")"}]}]}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SubscriptBox["n", "v"], " ", 
                 SubscriptBox["\[Gamma]", "1"], " ", 
                 SubscriptBox["\[Gamma]", "v"]}], "+", 
                RowBox[{
                 SubscriptBox["\[Delta]", "1"], " ", 
                 SubscriptBox["\[Sigma]", "v"]}]}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SubscriptBox["n", "v"], " ", 
                 SubscriptBox["\[Gamma]", "2"], " ", 
                 SubscriptBox["\[Gamma]", "v"]}], "+", 
                RowBox[{
                 SubscriptBox["\[Delta]", "2"], " ", 
                 SubscriptBox["\[Sigma]", "v"]}]}], ")"}]}], "+", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SubscriptBox["n", "2"], " ", 
                 SubscriptBox["\[Gamma]", "2"], " ", 
                 SubscriptBox["\[Delta]", "1"], " ", 
                 SubscriptBox["\[Epsilon]", "1"], " ", 
                 SubscriptBox["\[Sigma]", "1"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SubscriptBox["n", "v"], " ", 
                    SubscriptBox["\[Gamma]", "2"], " ", 
                    SubscriptBox["\[Gamma]", "v"]}], "+", 
                   RowBox[{
                    SubscriptBox["\[Delta]", "2"], " ", 
                    SubscriptBox["\[Sigma]", "v"]}]}], ")"}]}], "+", 
                RowBox[{
                 SubscriptBox["n", "1"], " ", 
                 SubscriptBox["\[Gamma]", "1"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SubscriptBox["\[Delta]", "2"], " ", 
                    SubscriptBox["\[Epsilon]", "2"], " ", 
                    SubscriptBox["\[Sigma]", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SubscriptBox["n", "v"], " ", 
                    SubscriptBox["\[Gamma]", "1"], " ", 
                    SubscriptBox["\[Gamma]", "v"]}], "+", 
                    RowBox[{
                    SubscriptBox["\[Delta]", "1"], " ", 
                    SubscriptBox["\[Sigma]", "v"]}]}], ")"}]}], "+", 
                   RowBox[{
                    SubscriptBox["n", "2"], " ", 
                    SubscriptBox["\[Gamma]", "2"], " ", 
                    SubscriptBox["\[Gamma]", "v"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SubscriptBox["n", "v"], " ", 
                    SubscriptBox["\[Gamma]", "v"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SubscriptBox["\[Gamma]", "2"], " ", 
                    SubscriptBox["\[Delta]", "1"]}], "+", 
                    RowBox[{
                    SubscriptBox["\[Gamma]", "1"], " ", 
                    SubscriptBox["\[Delta]", "2"]}]}], ")"}]}], "+", 
                    RowBox[{"2", " ", 
                    SubscriptBox["\[Delta]", "1"], " ", 
                    SubscriptBox["\[Delta]", "2"], " ", 
                    SubscriptBox["\[Sigma]", "v"]}]}], ")"}]}]}], ")"}]}]}], 
               ")"}], "2"]}], ")"}]}]}], ")"}]}]}]}], ",", 
     RowBox[{
      SubscriptBox["i", "1"], "\[Rule]", 
      RowBox[{"-", 
       RowBox[{
        FractionBox["1", 
         RowBox[{"2", " ", 
          SubscriptBox["n", "2"], " ", 
          SubscriptBox["\[Gamma]", "1"], " ", 
          SubscriptBox["\[Gamma]", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", 
              SubscriptBox["\[Gamma]", "2"]}], " ", 
             SubscriptBox["\[Delta]", "1"]}], "+", 
            RowBox[{
             SubscriptBox["\[Gamma]", "1"], " ", 
             SubscriptBox["\[Delta]", "2"]}]}], ")"}], " ", 
          SubscriptBox["\[Epsilon]", "1"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SubscriptBox["n", "v"], " ", 
             SubscriptBox["\[Gamma]", "1"], " ", 
             SubscriptBox["\[Gamma]", "v"]}], "+", 
            RowBox[{
             SubscriptBox["\[Delta]", "1"], " ", 
             SubscriptBox["\[Sigma]", "v"]}]}], ")"}]}]], 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", 
            SubscriptBox["n", "1"]}], " ", 
           SubscriptBox["n", "2"], " ", 
           SubscriptBox["n", "v"], " ", 
           SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
           SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
           SubsuperscriptBox["\[Gamma]", "v", "2"], " ", 
           SubscriptBox["\[Delta]", "1"]}], "+", 
          RowBox[{
           SubscriptBox["n", "1"], " ", 
           SubscriptBox["n", "2"], " ", 
           SubscriptBox["n", "v"], " ", 
           SubsuperscriptBox["\[Gamma]", "1", "3"], " ", 
           SubscriptBox["\[Gamma]", "2"], " ", 
           SubsuperscriptBox["\[Gamma]", "v", "2"], " ", 
           SubscriptBox["\[Delta]", "2"]}], "+", 
          RowBox[{
           SubscriptBox["n", "2"], " ", 
           SubscriptBox["n", "v"], " ", 
           SubscriptBox["\[Gamma]", "1"], " ", 
           SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
           SubscriptBox["\[Gamma]", "v"], " ", 
           SubscriptBox["\[Delta]", "1"], " ", 
           SubscriptBox["\[Epsilon]", "1"], " ", 
           SubscriptBox["\[Sigma]", "1"]}], "+", 
          RowBox[{
           SubscriptBox["n", "1"], " ", 
           SubscriptBox["n", "v"], " ", 
           SubsuperscriptBox["\[Gamma]", "1", "3"], " ", 
           SubscriptBox["\[Gamma]", "v"], " ", 
           SubscriptBox["\[Delta]", "2"], " ", 
           SubscriptBox["\[Epsilon]", "2"], " ", 
           SubscriptBox["\[Sigma]", "2"]}], "+", 
          RowBox[{"2", " ", 
           SubscriptBox["n", "2"], " ", 
           SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
           SubsuperscriptBox["\[Delta]", "1", "2"], " ", 
           SubscriptBox["\[Epsilon]", "1"], " ", 
           SubscriptBox["\[Sigma]", "1"], " ", 
           SubscriptBox["\[Sigma]", "v"]}], "-", 
          RowBox[{
           SubscriptBox["n", "2"], " ", 
           SubscriptBox["\[Gamma]", "1"], " ", 
           SubscriptBox["\[Gamma]", "2"], " ", 
           SubscriptBox["\[Delta]", "1"], " ", 
           SubscriptBox["\[Delta]", "2"], " ", 
           SubscriptBox["\[Epsilon]", "1"], " ", 
           SubscriptBox["\[Sigma]", "1"], " ", 
           SubscriptBox["\[Sigma]", "v"]}], "+", 
          RowBox[{
           SubscriptBox["n", "1"], " ", 
           SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
           SubscriptBox["\[Delta]", "1"], " ", 
           SubscriptBox["\[Delta]", "2"], " ", 
           SubscriptBox["\[Epsilon]", "2"], " ", 
           SubscriptBox["\[Sigma]", "2"], " ", 
           SubscriptBox["\[Sigma]", "v"]}], "+", 
          RowBox[{
           SubscriptBox["\[Gamma]", "1"], " ", 
           RowBox[{"\[Sqrt]", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "4"}], " ", 
               SubscriptBox["n", "1"], " ", 
               SubscriptBox["n", "2"], " ", 
               SubscriptBox["\[Gamma]", "1"], " ", 
               SubscriptBox["\[Gamma]", "2"], " ", 
               SubscriptBox["\[Gamma]", "v"], " ", 
               SubscriptBox["\[Delta]", "1"], " ", 
               SubscriptBox["\[Delta]", "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  SubscriptBox["n", "2"], " ", 
                  SubscriptBox["\[Gamma]", "2"], " ", 
                  SubscriptBox["\[Epsilon]", "1"], " ", 
                  SubscriptBox["\[Sigma]", "1"]}], "+", 
                 RowBox[{
                  SubscriptBox["n", "1"], " ", 
                  SubscriptBox["\[Gamma]", "1"], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    SubscriptBox["n", "2"], " ", 
                    SubscriptBox["\[Gamma]", "2"], " ", 
                    SubscriptBox["\[Gamma]", "v"]}], "+", 
                    RowBox[{
                    SubscriptBox["\[Epsilon]", "2"], " ", 
                    SubscriptBox["\[Sigma]", "2"]}]}], ")"}]}]}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  SubscriptBox["n", "v"], " ", 
                  SubscriptBox["\[Gamma]", "1"], " ", 
                  SubscriptBox["\[Gamma]", "v"]}], "+", 
                 RowBox[{
                  SubscriptBox["\[Delta]", "1"], " ", 
                  SubscriptBox["\[Sigma]", "v"]}]}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  SubscriptBox["n", "v"], " ", 
                  SubscriptBox["\[Gamma]", "2"], " ", 
                  SubscriptBox["\[Gamma]", "v"]}], "+", 
                 RowBox[{
                  SubscriptBox["\[Delta]", "2"], " ", 
                  SubscriptBox["\[Sigma]", "v"]}]}], ")"}]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  SubscriptBox["n", "2"], " ", 
                  SubscriptBox["\[Gamma]", "2"], " ", 
                  SubscriptBox["\[Delta]", "1"], " ", 
                  SubscriptBox["\[Epsilon]", "1"], " ", 
                  SubscriptBox["\[Sigma]", "1"], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    SubscriptBox["n", "v"], " ", 
                    SubscriptBox["\[Gamma]", "2"], " ", 
                    SubscriptBox["\[Gamma]", "v"]}], "+", 
                    RowBox[{
                    SubscriptBox["\[Delta]", "2"], " ", 
                    SubscriptBox["\[Sigma]", "v"]}]}], ")"}]}], "+", 
                 RowBox[{
                  SubscriptBox["n", "1"], " ", 
                  SubscriptBox["\[Gamma]", "1"], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    SubscriptBox["\[Delta]", "2"], " ", 
                    SubscriptBox["\[Epsilon]", "2"], " ", 
                    SubscriptBox["\[Sigma]", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SubscriptBox["n", "v"], " ", 
                    SubscriptBox["\[Gamma]", "1"], " ", 
                    SubscriptBox["\[Gamma]", "v"]}], "+", 
                    RowBox[{
                    SubscriptBox["\[Delta]", "1"], " ", 
                    SubscriptBox["\[Sigma]", "v"]}]}], ")"}]}], "+", 
                    RowBox[{
                    SubscriptBox["n", "2"], " ", 
                    SubscriptBox["\[Gamma]", "2"], " ", 
                    SubscriptBox["\[Gamma]", "v"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SubscriptBox["n", "v"], " ", 
                    SubscriptBox["\[Gamma]", "v"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SubscriptBox["\[Gamma]", "2"], " ", 
                    SubscriptBox["\[Delta]", "1"]}], "+", 
                    RowBox[{
                    SubscriptBox["\[Gamma]", "1"], " ", 
                    SubscriptBox["\[Delta]", "2"]}]}], ")"}]}], "+", 
                    RowBox[{"2", " ", 
                    SubscriptBox["\[Delta]", "1"], " ", 
                    SubscriptBox["\[Delta]", "2"], " ", 
                    SubscriptBox["\[Sigma]", "v"]}]}], ")"}]}]}], ")"}]}]}], 
                ")"}], "2"]}], ")"}]}]}]}], ")"}]}]}]}], ",", 
     RowBox[{
      SubscriptBox["i", "2"], "\[Rule]", 
      RowBox[{
       FractionBox["1", 
        RowBox[{"2", " ", 
         SubscriptBox["n", "1"], " ", 
         SubscriptBox["\[Gamma]", "1"], " ", 
         SubscriptBox["\[Gamma]", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", 
             SubscriptBox["\[Gamma]", "2"]}], " ", 
            SubscriptBox["\[Delta]", "1"]}], "+", 
           RowBox[{
            SubscriptBox["\[Gamma]", "1"], " ", 
            SubscriptBox["\[Delta]", "2"]}]}], ")"}], " ", 
         SubscriptBox["\[Epsilon]", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SubscriptBox["n", "v"], " ", 
            SubscriptBox["\[Gamma]", "2"], " ", 
            SubscriptBox["\[Gamma]", "v"]}], "+", 
           RowBox[{
            SubscriptBox["\[Delta]", "2"], " ", 
            SubscriptBox["\[Sigma]", "v"]}]}], ")"}]}]], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SubscriptBox["n", "1"], " ", 
          SubscriptBox["n", "2"], " ", 
          SubscriptBox["n", "v"], " ", 
          SubscriptBox["\[Gamma]", "1"], " ", 
          SubsuperscriptBox["\[Gamma]", "2", "3"], " ", 
          SubsuperscriptBox["\[Gamma]", "v", "2"], " ", 
          SubscriptBox["\[Delta]", "1"]}], "-", 
         RowBox[{
          SubscriptBox["n", "1"], " ", 
          SubscriptBox["n", "2"], " ", 
          SubscriptBox["n", "v"], " ", 
          SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
          SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
          SubsuperscriptBox["\[Gamma]", "v", "2"], " ", 
          SubscriptBox["\[Delta]", "2"]}], "+", 
         RowBox[{
          SubscriptBox["n", "2"], " ", 
          SubscriptBox["n", "v"], " ", 
          SubsuperscriptBox["\[Gamma]", "2", "3"], " ", 
          SubscriptBox["\[Gamma]", "v"], " ", 
          SubscriptBox["\[Delta]", "1"], " ", 
          SubscriptBox["\[Epsilon]", "1"], " ", 
          SubscriptBox["\[Sigma]", "1"]}], "+", 
         RowBox[{
          SubscriptBox["n", "1"], " ", 
          SubscriptBox["n", "v"], " ", 
          SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
          SubscriptBox["\[Gamma]", "2"], " ", 
          SubscriptBox["\[Gamma]", "v"], " ", 
          SubscriptBox["\[Delta]", "2"], " ", 
          SubscriptBox["\[Epsilon]", "2"], " ", 
          SubscriptBox["\[Sigma]", "2"]}], "+", 
         RowBox[{
          SubscriptBox["n", "2"], " ", 
          SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
          SubscriptBox["\[Delta]", "1"], " ", 
          SubscriptBox["\[Delta]", "2"], " ", 
          SubscriptBox["\[Epsilon]", "1"], " ", 
          SubscriptBox["\[Sigma]", "1"], " ", 
          SubscriptBox["\[Sigma]", "v"]}], "-", 
         RowBox[{
          SubscriptBox["n", "1"], " ", 
          SubscriptBox["\[Gamma]", "1"], " ", 
          SubscriptBox["\[Gamma]", "2"], " ", 
          SubscriptBox["\[Delta]", "1"], " ", 
          SubscriptBox["\[Delta]", "2"], " ", 
          SubscriptBox["\[Epsilon]", "2"], " ", 
          SubscriptBox["\[Sigma]", "2"], " ", 
          SubscriptBox["\[Sigma]", "v"]}], "+", 
         RowBox[{"2", " ", 
          SubscriptBox["n", "1"], " ", 
          SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
          SubsuperscriptBox["\[Delta]", "2", "2"], " ", 
          SubscriptBox["\[Epsilon]", "2"], " ", 
          SubscriptBox["\[Sigma]", "2"], " ", 
          SubscriptBox["\[Sigma]", "v"]}], "+", 
         RowBox[{
          SubscriptBox["\[Gamma]", "2"], " ", 
          RowBox[{"\[Sqrt]", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "4"}], " ", 
              SubscriptBox["n", "1"], " ", 
              SubscriptBox["n", "2"], " ", 
              SubscriptBox["\[Gamma]", "1"], " ", 
              SubscriptBox["\[Gamma]", "2"], " ", 
              SubscriptBox["\[Gamma]", "v"], " ", 
              SubscriptBox["\[Delta]", "1"], " ", 
              SubscriptBox["\[Delta]", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SubscriptBox["n", "2"], " ", 
                 SubscriptBox["\[Gamma]", "2"], " ", 
                 SubscriptBox["\[Epsilon]", "1"], " ", 
                 SubscriptBox["\[Sigma]", "1"]}], "+", 
                RowBox[{
                 SubscriptBox["n", "1"], " ", 
                 SubscriptBox["\[Gamma]", "1"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SubscriptBox["n", "2"], " ", 
                    SubscriptBox["\[Gamma]", "2"], " ", 
                    SubscriptBox["\[Gamma]", "v"]}], "+", 
                   RowBox[{
                    SubscriptBox["\[Epsilon]", "2"], " ", 
                    SubscriptBox["\[Sigma]", "2"]}]}], ")"}]}]}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SubscriptBox["n", "v"], " ", 
                 SubscriptBox["\[Gamma]", "1"], " ", 
                 SubscriptBox["\[Gamma]", "v"]}], "+", 
                RowBox[{
                 SubscriptBox["\[Delta]", "1"], " ", 
                 SubscriptBox["\[Sigma]", "v"]}]}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SubscriptBox["n", "v"], " ", 
                 SubscriptBox["\[Gamma]", "2"], " ", 
                 SubscriptBox["\[Gamma]", "v"]}], "+", 
                RowBox[{
                 SubscriptBox["\[Delta]", "2"], " ", 
                 SubscriptBox["\[Sigma]", "v"]}]}], ")"}]}], "+", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SubscriptBox["n", "2"], " ", 
                 SubscriptBox["\[Gamma]", "2"], " ", 
                 SubscriptBox["\[Delta]", "1"], " ", 
                 SubscriptBox["\[Epsilon]", "1"], " ", 
                 SubscriptBox["\[Sigma]", "1"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SubscriptBox["n", "v"], " ", 
                    SubscriptBox["\[Gamma]", "2"], " ", 
                    SubscriptBox["\[Gamma]", "v"]}], "+", 
                   RowBox[{
                    SubscriptBox["\[Delta]", "2"], " ", 
                    SubscriptBox["\[Sigma]", "v"]}]}], ")"}]}], "+", 
                RowBox[{
                 SubscriptBox["n", "1"], " ", 
                 SubscriptBox["\[Gamma]", "1"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SubscriptBox["\[Delta]", "2"], " ", 
                    SubscriptBox["\[Epsilon]", "2"], " ", 
                    SubscriptBox["\[Sigma]", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SubscriptBox["n", "v"], " ", 
                    SubscriptBox["\[Gamma]", "1"], " ", 
                    SubscriptBox["\[Gamma]", "v"]}], "+", 
                    RowBox[{
                    SubscriptBox["\[Delta]", "1"], " ", 
                    SubscriptBox["\[Sigma]", "v"]}]}], ")"}]}], "+", 
                   RowBox[{
                    SubscriptBox["n", "2"], " ", 
                    SubscriptBox["\[Gamma]", "2"], " ", 
                    SubscriptBox["\[Gamma]", "v"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SubscriptBox["n", "v"], " ", 
                    SubscriptBox["\[Gamma]", "v"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SubscriptBox["\[Gamma]", "2"], " ", 
                    SubscriptBox["\[Delta]", "1"]}], "+", 
                    RowBox[{
                    SubscriptBox["\[Gamma]", "1"], " ", 
                    SubscriptBox["\[Delta]", "2"]}]}], ")"}]}], "+", 
                    RowBox[{"2", " ", 
                    SubscriptBox["\[Delta]", "1"], " ", 
                    SubscriptBox["\[Delta]", "2"], " ", 
                    SubscriptBox["\[Sigma]", "v"]}]}], ")"}]}]}], ")"}]}]}], 
               ")"}], "2"]}], ")"}]}]}]}], ")"}]}]}], ",", 
     RowBox[{
      SubscriptBox["s", "v"], "\[Rule]", 
      RowBox[{
       FractionBox["1", 
        RowBox[{"2", " ", 
         SubscriptBox["\[Gamma]", "v"], " ", 
         SubscriptBox["\[Delta]", "1"], " ", 
         SubscriptBox["\[Delta]", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SubscriptBox["n", "2"], " ", 
            SubscriptBox["\[Gamma]", "2"], " ", 
            SubscriptBox["\[Epsilon]", "1"], " ", 
            SubscriptBox["\[Sigma]", "1"]}], "+", 
           RowBox[{
            SubscriptBox["n", "1"], " ", 
            SubscriptBox["\[Gamma]", "1"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               SubscriptBox["n", "2"], " ", 
               SubscriptBox["\[Gamma]", "2"], " ", 
               SubscriptBox["\[Gamma]", "v"]}], "+", 
              RowBox[{
               SubscriptBox["\[Epsilon]", "2"], " ", 
               SubscriptBox["\[Sigma]", "2"]}]}], ")"}]}]}], ")"}]}]], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SubscriptBox["n", "1"], " ", 
          SubscriptBox["n", "2"], " ", 
          SubscriptBox["n", "v"], " ", 
          SubscriptBox["\[Gamma]", "1"], " ", 
          SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
          SubsuperscriptBox["\[Gamma]", "v", "2"], " ", 
          SubscriptBox["\[Delta]", "1"]}], "+", 
         RowBox[{
          SubscriptBox["n", "1"], " ", 
          SubscriptBox["n", "2"], " ", 
          SubscriptBox["n", "v"], " ", 
          SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
          SubscriptBox["\[Gamma]", "2"], " ", 
          SubsuperscriptBox["\[Gamma]", "v", "2"], " ", 
          SubscriptBox["\[Delta]", "2"]}], "+", 
         RowBox[{
          SubscriptBox["n", "2"], " ", 
          SubscriptBox["n", "v"], " ", 
          SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
          SubscriptBox["\[Gamma]", "v"], " ", 
          SubscriptBox["\[Delta]", "1"], " ", 
          SubscriptBox["\[Epsilon]", "1"], " ", 
          SubscriptBox["\[Sigma]", "1"]}], "+", 
         RowBox[{
          SubscriptBox["n", "1"], " ", 
          SubscriptBox["n", "v"], " ", 
          SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
          SubscriptBox["\[Gamma]", "v"], " ", 
          SubscriptBox["\[Delta]", "2"], " ", 
          SubscriptBox["\[Epsilon]", "2"], " ", 
          SubscriptBox["\[Sigma]", "2"]}], "+", 
         RowBox[{"2", " ", 
          SubscriptBox["n", "1"], " ", 
          SubscriptBox["n", "2"], " ", 
          SubscriptBox["\[Gamma]", "1"], " ", 
          SubscriptBox["\[Gamma]", "2"], " ", 
          SubscriptBox["\[Gamma]", "v"], " ", 
          SubscriptBox["\[Delta]", "1"], " ", 
          SubscriptBox["\[Delta]", "2"], " ", 
          SubscriptBox["\[Sigma]", "v"]}], "+", 
         RowBox[{
          SubscriptBox["n", "2"], " ", 
          SubscriptBox["\[Gamma]", "2"], " ", 
          SubscriptBox["\[Delta]", "1"], " ", 
          SubscriptBox["\[Delta]", "2"], " ", 
          SubscriptBox["\[Epsilon]", "1"], " ", 
          SubscriptBox["\[Sigma]", "1"], " ", 
          SubscriptBox["\[Sigma]", "v"]}], "+", 
         RowBox[{
          SubscriptBox["n", "1"], " ", 
          SubscriptBox["\[Gamma]", "1"], " ", 
          SubscriptBox["\[Delta]", "1"], " ", 
          SubscriptBox["\[Delta]", "2"], " ", 
          SubscriptBox["\[Epsilon]", "2"], " ", 
          SubscriptBox["\[Sigma]", "2"], " ", 
          SubscriptBox["\[Sigma]", "v"]}], "+", 
         RowBox[{"\[Sqrt]", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "4"}], " ", 
             SubscriptBox["n", "1"], " ", 
             SubscriptBox["n", "2"], " ", 
             SubscriptBox["\[Gamma]", "1"], " ", 
             SubscriptBox["\[Gamma]", "2"], " ", 
             SubscriptBox["\[Gamma]", "v"], " ", 
             SubscriptBox["\[Delta]", "1"], " ", 
             SubscriptBox["\[Delta]", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SubscriptBox["n", "2"], " ", 
                SubscriptBox["\[Gamma]", "2"], " ", 
                SubscriptBox["\[Epsilon]", "1"], " ", 
                SubscriptBox["\[Sigma]", "1"]}], "+", 
               RowBox[{
                SubscriptBox["n", "1"], " ", 
                SubscriptBox["\[Gamma]", "1"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   SubscriptBox["n", "2"], " ", 
                   SubscriptBox["\[Gamma]", "2"], " ", 
                   SubscriptBox["\[Gamma]", "v"]}], "+", 
                  RowBox[{
                   SubscriptBox["\[Epsilon]", "2"], " ", 
                   SubscriptBox["\[Sigma]", "2"]}]}], ")"}]}]}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SubscriptBox["n", "v"], " ", 
                SubscriptBox["\[Gamma]", "1"], " ", 
                SubscriptBox["\[Gamma]", "v"]}], "+", 
               RowBox[{
                SubscriptBox["\[Delta]", "1"], " ", 
                SubscriptBox["\[Sigma]", "v"]}]}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SubscriptBox["n", "v"], " ", 
                SubscriptBox["\[Gamma]", "2"], " ", 
                SubscriptBox["\[Gamma]", "v"]}], "+", 
               RowBox[{
                SubscriptBox["\[Delta]", "2"], " ", 
                SubscriptBox["\[Sigma]", "v"]}]}], ")"}]}], "+", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SubscriptBox["n", "2"], " ", 
                SubscriptBox["\[Gamma]", "2"], " ", 
                SubscriptBox["\[Delta]", "1"], " ", 
                SubscriptBox["\[Epsilon]", "1"], " ", 
                SubscriptBox["\[Sigma]", "1"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   SubscriptBox["n", "v"], " ", 
                   SubscriptBox["\[Gamma]", "2"], " ", 
                   SubscriptBox["\[Gamma]", "v"]}], "+", 
                  RowBox[{
                   SubscriptBox["\[Delta]", "2"], " ", 
                   SubscriptBox["\[Sigma]", "v"]}]}], ")"}]}], "+", 
               RowBox[{
                SubscriptBox["n", "1"], " ", 
                SubscriptBox["\[Gamma]", "1"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   SubscriptBox["\[Delta]", "2"], " ", 
                   SubscriptBox["\[Epsilon]", "2"], " ", 
                   SubscriptBox["\[Sigma]", "2"], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SubscriptBox["n", "v"], " ", 
                    SubscriptBox["\[Gamma]", "1"], " ", 
                    SubscriptBox["\[Gamma]", "v"]}], "+", 
                    RowBox[{
                    SubscriptBox["\[Delta]", "1"], " ", 
                    SubscriptBox["\[Sigma]", "v"]}]}], ")"}]}], "+", 
                  RowBox[{
                   SubscriptBox["n", "2"], " ", 
                   SubscriptBox["\[Gamma]", "2"], " ", 
                   SubscriptBox["\[Gamma]", "v"], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SubscriptBox["n", "v"], " ", 
                    SubscriptBox["\[Gamma]", "v"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SubscriptBox["\[Gamma]", "2"], " ", 
                    SubscriptBox["\[Delta]", "1"]}], "+", 
                    RowBox[{
                    SubscriptBox["\[Gamma]", "1"], " ", 
                    SubscriptBox["\[Delta]", "2"]}]}], ")"}]}], "+", 
                    RowBox[{"2", " ", 
                    SubscriptBox["\[Delta]", "1"], " ", 
                    SubscriptBox["\[Delta]", "2"], " ", 
                    SubscriptBox["\[Sigma]", "v"]}]}], ")"}]}]}], ")"}]}]}], 
              ")"}], "2"]}], ")"}]}]}], ")"}]}]}], ",", 
     RowBox[{
      SubscriptBox["i", "v"], "\[Rule]", 
      RowBox[{"-", 
       RowBox[{
        FractionBox["1", 
         RowBox[{"2", " ", 
          SubscriptBox["\[Gamma]", "v"], " ", 
          SubscriptBox["\[Delta]", "1"], " ", 
          SubscriptBox["\[Delta]", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SubscriptBox["n", "2"], " ", 
             SubscriptBox["\[Gamma]", "2"], " ", 
             SubscriptBox["\[Epsilon]", "1"], " ", 
             SubscriptBox["\[Sigma]", "1"]}], "+", 
            RowBox[{
             SubscriptBox["n", "1"], " ", 
             SubscriptBox["\[Gamma]", "1"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SubscriptBox["n", "2"], " ", 
                SubscriptBox["\[Gamma]", "2"], " ", 
                SubscriptBox["\[Gamma]", "v"]}], "+", 
               RowBox[{
                SubscriptBox["\[Epsilon]", "2"], " ", 
                SubscriptBox["\[Sigma]", "2"]}]}], ")"}]}]}], ")"}]}]], 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox["n", "1"], " ", 
           SubscriptBox["n", "2"], " ", 
           SubscriptBox["n", "v"], " ", 
           SubscriptBox["\[Gamma]", "1"], " ", 
           SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
           SubsuperscriptBox["\[Gamma]", "v", "2"], " ", 
           SubscriptBox["\[Delta]", "1"]}], "+", 
          RowBox[{
           SubscriptBox["n", "1"], " ", 
           SubscriptBox["n", "2"], " ", 
           SubscriptBox["n", "v"], " ", 
           SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
           SubscriptBox["\[Gamma]", "2"], " ", 
           SubsuperscriptBox["\[Gamma]", "v", "2"], " ", 
           SubscriptBox["\[Delta]", "2"]}], "+", 
          RowBox[{
           SubscriptBox["n", "2"], " ", 
           SubscriptBox["n", "v"], " ", 
           SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
           SubscriptBox["\[Gamma]", "v"], " ", 
           SubscriptBox["\[Delta]", "1"], " ", 
           SubscriptBox["\[Epsilon]", "1"], " ", 
           SubscriptBox["\[Sigma]", "1"]}], "+", 
          RowBox[{
           SubscriptBox["n", "1"], " ", 
           SubscriptBox["n", "v"], " ", 
           SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
           SubscriptBox["\[Gamma]", "v"], " ", 
           SubscriptBox["\[Delta]", "2"], " ", 
           SubscriptBox["\[Epsilon]", "2"], " ", 
           SubscriptBox["\[Sigma]", "2"]}], "-", 
          RowBox[{
           SubscriptBox["n", "2"], " ", 
           SubscriptBox["\[Gamma]", "2"], " ", 
           SubscriptBox["\[Delta]", "1"], " ", 
           SubscriptBox["\[Delta]", "2"], " ", 
           SubscriptBox["\[Epsilon]", "1"], " ", 
           SubscriptBox["\[Sigma]", "1"], " ", 
           SubscriptBox["\[Sigma]", "v"]}], "-", 
          RowBox[{
           SubscriptBox["n", "1"], " ", 
           SubscriptBox["\[Gamma]", "1"], " ", 
           SubscriptBox["\[Delta]", "1"], " ", 
           SubscriptBox["\[Delta]", "2"], " ", 
           SubscriptBox["\[Epsilon]", "2"], " ", 
           SubscriptBox["\[Sigma]", "2"], " ", 
           SubscriptBox["\[Sigma]", "v"]}], "+", 
          RowBox[{"\[Sqrt]", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "4"}], " ", 
              SubscriptBox["n", "1"], " ", 
              SubscriptBox["n", "2"], " ", 
              SubscriptBox["\[Gamma]", "1"], " ", 
              SubscriptBox["\[Gamma]", "2"], " ", 
              SubscriptBox["\[Gamma]", "v"], " ", 
              SubscriptBox["\[Delta]", "1"], " ", 
              SubscriptBox["\[Delta]", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SubscriptBox["n", "2"], " ", 
                 SubscriptBox["\[Gamma]", "2"], " ", 
                 SubscriptBox["\[Epsilon]", "1"], " ", 
                 SubscriptBox["\[Sigma]", "1"]}], "+", 
                RowBox[{
                 SubscriptBox["n", "1"], " ", 
                 SubscriptBox["\[Gamma]", "1"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SubscriptBox["n", "2"], " ", 
                    SubscriptBox["\[Gamma]", "2"], " ", 
                    SubscriptBox["\[Gamma]", "v"]}], "+", 
                   RowBox[{
                    SubscriptBox["\[Epsilon]", "2"], " ", 
                    SubscriptBox["\[Sigma]", "2"]}]}], ")"}]}]}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SubscriptBox["n", "v"], " ", 
                 SubscriptBox["\[Gamma]", "1"], " ", 
                 SubscriptBox["\[Gamma]", "v"]}], "+", 
                RowBox[{
                 SubscriptBox["\[Delta]", "1"], " ", 
                 SubscriptBox["\[Sigma]", "v"]}]}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SubscriptBox["n", "v"], " ", 
                 SubscriptBox["\[Gamma]", "2"], " ", 
                 SubscriptBox["\[Gamma]", "v"]}], "+", 
                RowBox[{
                 SubscriptBox["\[Delta]", "2"], " ", 
                 SubscriptBox["\[Sigma]", "v"]}]}], ")"}]}], "+", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SubscriptBox["n", "2"], " ", 
                 SubscriptBox["\[Gamma]", "2"], " ", 
                 SubscriptBox["\[Delta]", "1"], " ", 
                 SubscriptBox["\[Epsilon]", "1"], " ", 
                 SubscriptBox["\[Sigma]", "1"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SubscriptBox["n", "v"], " ", 
                    SubscriptBox["\[Gamma]", "2"], " ", 
                    SubscriptBox["\[Gamma]", "v"]}], "+", 
                   RowBox[{
                    SubscriptBox["\[Delta]", "2"], " ", 
                    SubscriptBox["\[Sigma]", "v"]}]}], ")"}]}], "+", 
                RowBox[{
                 SubscriptBox["n", "1"], " ", 
                 SubscriptBox["\[Gamma]", "1"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SubscriptBox["\[Delta]", "2"], " ", 
                    SubscriptBox["\[Epsilon]", "2"], " ", 
                    SubscriptBox["\[Sigma]", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SubscriptBox["n", "v"], " ", 
                    SubscriptBox["\[Gamma]", "1"], " ", 
                    SubscriptBox["\[Gamma]", "v"]}], "+", 
                    RowBox[{
                    SubscriptBox["\[Delta]", "1"], " ", 
                    SubscriptBox["\[Sigma]", "v"]}]}], ")"}]}], "+", 
                   RowBox[{
                    SubscriptBox["n", "2"], " ", 
                    SubscriptBox["\[Gamma]", "2"], " ", 
                    SubscriptBox["\[Gamma]", "v"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SubscriptBox["n", "v"], " ", 
                    SubscriptBox["\[Gamma]", "v"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SubscriptBox["\[Gamma]", "2"], " ", 
                    SubscriptBox["\[Delta]", "1"]}], "+", 
                    RowBox[{
                    SubscriptBox["\[Gamma]", "1"], " ", 
                    SubscriptBox["\[Delta]", "2"]}]}], ")"}]}], "+", 
                    RowBox[{"2", " ", 
                    SubscriptBox["\[Delta]", "1"], " ", 
                    SubscriptBox["\[Delta]", "2"], " ", 
                    SubscriptBox["\[Sigma]", "v"]}]}], ")"}]}]}], ")"}]}]}], 
               ")"}], "2"]}], ")"}]}]}], ")"}]}]}]}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.7905342478637238`*^9, 3.7905343120145793`*^9},
 CellLabel->"Out[32]=",ExpressionUUID->"309ae775-680b-4b8f-ba73-c980dd8390c1"]
}, Open  ]],

Cell[TextData[{
 "Redefine parameters as follows: ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["n", "i"], TraditionalForm]],
  FormatType->"TraditionalForm",ExpressionUUID->
  "09b57996-2744-4ca3-baba-95fff36c9dd0"],
 "= ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Sigma]", "i"], TraditionalForm]],
  FormatType->"TraditionalForm",ExpressionUUID->
  "8d4c56fc-a533-4d71-9f25-6a0d914045e5"],
 "/ ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Gamma]", "i"], TraditionalForm]],
  FormatType->"TraditionalForm",ExpressionUUID->
  "26a7333d-2f4d-444b-a308-80cfea06e280"],
 ", ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Beta]", "i"], TraditionalForm]],
  FormatType->"TraditionalForm",ExpressionUUID->
  "250869b4-5d66-49dc-bcd7-5b39169ce735"],
 "= ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["n", "i"], TraditionalForm]],
  FormatType->"TraditionalForm",ExpressionUUID->
  "a43b1142-f18f-4021-8f48-f2adc20fb1bf"],
 " ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Epsilon]", "i"], TraditionalForm]],
  FormatType->"TraditionalForm",ExpressionUUID->
  "c9f8ead4-87d0-42ea-b105-b462f4e54a74"],
 " and ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Kappa]", "i"], TraditionalForm]],
  FormatType->"TraditionalForm",ExpressionUUID->
  "9357ebbf-50a4-4e9e-9f78-1ef9d6f3f8c8"],
 "= ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["n", "v"], TraditionalForm]],
  FormatType->"TraditionalForm",ExpressionUUID->
  "74e6019b-c7d9-4c72-8546-356853fb31a9"],
 " ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Beta]", "i"], TraditionalForm]],
  FormatType->"TraditionalForm",ExpressionUUID->
  "7606ff25-da92-402f-8d75-6454bb9c6820"]
}], "Text",
 CellChangeTimes->{{3.7905334055204797`*^9, 3.790533523278734*^9}, {
  3.7905339533249*^9, 
  3.7905339859654036`*^9}},ExpressionUUID->"2356be42-a730-45a0-be51-\
a6076fbdd7a6"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Eqn", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"d1", "\[Equal]", 
      RowBox[{
       RowBox[{
        SubscriptBox["n", "1"], "/", 
        SubscriptBox["\[Gamma]", "1"]}], "-", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "*", 
        RowBox[{
         SubscriptBox["i", "v"], "/", 
         SubscriptBox["n", "v"]}], "*", " ", 
        SubscriptBox["s", "1"]}], "-", 
       RowBox[{
        SubscriptBox["\[Gamma]", "1"], "*", " ", 
        SubscriptBox["s", "1"]}]}]}], ",", "\[IndentingNewLine]", "\t", 
     RowBox[{"d2", "==", 
      RowBox[{
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "*", 
        RowBox[{
         SubscriptBox["i", "v"], "/", 
         SubscriptBox["n", "v"]}], "*", " ", 
        SubscriptBox["s", "1"]}], "-", 
       RowBox[{
        SubscriptBox["\[Gamma]", "1"], "*", " ", 
        SubscriptBox["i", "1"]}]}]}], ",", "\[IndentingNewLine]", "\t", 
     RowBox[{"d3", "\[Equal]", 
      RowBox[{
       RowBox[{
        SubscriptBox["n", "2"], "/", 
        SubscriptBox["\[Gamma]", "2"]}], "-", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "*", 
        RowBox[{
         SubscriptBox["i", "v"], "/", 
         SubscriptBox["n", "v"]}], "*", " ", 
        SubscriptBox["s", "2"]}], "-", 
       RowBox[{
        SubscriptBox["\[Gamma]", "2"], "*", " ", 
        SubscriptBox["s", "2"]}]}]}], ",", "\[IndentingNewLine]", "\t", 
     RowBox[{"d4", "==", 
      RowBox[{
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "*", 
        RowBox[{
         SubscriptBox["i", "v"], "/", 
         SubscriptBox["n", "v"]}], "*", " ", 
        SubscriptBox["s", "2"]}], "-", 
       RowBox[{
        SubscriptBox["\[Gamma]", "2"], "*", " ", 
        SubscriptBox["i", "2"]}]}]}], ",", "\[IndentingNewLine]", "\t", 
     RowBox[{"d5", "==", 
      RowBox[{
       RowBox[{
        SubscriptBox["n", "v"], "/", 
        SubscriptBox["\[Gamma]", "v"]}], "-", 
       RowBox[{
        SubscriptBox["\[Epsilon]", "1"], "*", 
        RowBox[{
         SubscriptBox["i", "1"], "/", 
         SubscriptBox["n", "1"]}], "*", 
        SubscriptBox["s", "v"]}], "-", 
       RowBox[{
        SubscriptBox["\[Epsilon]", "2"], "*", 
        RowBox[{
         SubscriptBox["i", "2"], "/", 
         SubscriptBox["n", "2"]}], "*", 
        SubscriptBox["s", "v"]}], "-", 
       RowBox[{
        SubscriptBox["\[Gamma]", "v"], "*", " ", 
        SubscriptBox["s", "v"]}]}]}], ",", "\[IndentingNewLine]", "\t", 
     RowBox[{"d6", "==", 
      RowBox[{
       RowBox[{
        SubscriptBox["\[Epsilon]", "1"], "*", 
        RowBox[{
         SubscriptBox["i", "1"], "/", 
         SubscriptBox["n", "1"]}], "*", 
        SubscriptBox["s", "v"]}], "+", 
       RowBox[{
        SubscriptBox["\[Epsilon]", "2"], "*", 
        RowBox[{
         SubscriptBox["i", "2"], "/", 
         SubscriptBox["n", "2"]}], "*", 
        SubscriptBox["s", "v"]}], "-", 
       RowBox[{
        SubscriptBox["\[Gamma]", "v"], "*", " ", 
        SubscriptBox["i", "v"]}]}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"d1", "=", "0"}], ";", 
  RowBox[{"d2", "=", "0"}], ";", 
  RowBox[{"d3", "=", "0"}], ";", "  ", 
  RowBox[{"d4", "=", "0"}], ";", 
  RowBox[{"d5", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"d6", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Simplify", "[", 
  RowBox[{"Solve", "[", 
   RowBox[{"Eqn", ",", 
    RowBox[{"{", 
     RowBox[{
      SubscriptBox["s", "1"], ",", 
      SubscriptBox["s", "2"], ",", 
      SubscriptBox["i", "1"], ",", 
      SubscriptBox["i", "2"], ",", 
      SubscriptBox["s", "v"], ",", 
      SubscriptBox["i", "v"]}], "}"}]}], "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.7905334961492014`*^9, 3.7905334969022593`*^9}, {
   3.7905335527290773`*^9, 3.7905335930634975`*^9}, 3.790534021569761*^9, {
   3.7905341925981183`*^9, 3.7905342321900597`*^9}, {3.7905343291571836`*^9, 
   3.790534330967426*^9}, {3.7905344053506804`*^9, 3.790534529478202*^9}, {
   3.7905347515544415`*^9, 3.79053475409764*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"849b5552-58d6-44ca-a7f1-31ae77e09364"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      SubscriptBox["s", "1"], "\[Rule]", 
      FractionBox[
       SubscriptBox["n", "1"], 
       SubsuperscriptBox["\[Gamma]", "1", "2"]]}], ",", 
     RowBox[{
      SubscriptBox["s", "2"], "\[Rule]", 
      FractionBox[
       SubscriptBox["n", "2"], 
       SubsuperscriptBox["\[Gamma]", "2", "2"]]}], ",", 
     RowBox[{
      SubscriptBox["i", "1"], "\[Rule]", "0"}], ",", 
     RowBox[{
      SubscriptBox["i", "2"], "\[Rule]", "0"}], ",", 
     RowBox[{
      SubscriptBox["s", "v"], "\[Rule]", 
      FractionBox[
       SubscriptBox["n", "v"], 
       SubsuperscriptBox["\[Gamma]", "v", "2"]]}], ",", 
     RowBox[{
      SubscriptBox["i", "v"], "\[Rule]", "0"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      SubscriptBox["s", "1"], "\[Rule]", 
      RowBox[{
       FractionBox["1", 
        RowBox[{"2", " ", 
         SubscriptBox["n", "v"], " ", 
         SubscriptBox["\[Gamma]", "1"], " ", 
         SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
         SubscriptBox["\[Gamma]", "v"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SubscriptBox["\[Gamma]", "1"], " ", 
            SubsuperscriptBox["\[Gamma]", "v", "2"]}], "+", 
           SubscriptBox["\[Delta]", "1"]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", 
             SubscriptBox["\[Gamma]", "2"]}], " ", 
            SubscriptBox["\[Delta]", "1"]}], "+", 
           RowBox[{
            SubscriptBox["\[Gamma]", "1"], " ", 
            SubscriptBox["\[Delta]", "2"]}]}], ")"}], " ", 
         SubscriptBox["\[Epsilon]", "1"]}]], 
       RowBox[{
        SubscriptBox["n", "1"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", 
            SubscriptBox["n", "v"]}], " ", 
           SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
           SubsuperscriptBox["\[Gamma]", "2", "3"], " ", 
           SubsuperscriptBox["\[Gamma]", "v", "4"], " ", 
           SubscriptBox["\[Delta]", "1"]}], "+", 
          RowBox[{
           SubscriptBox["n", "v"], " ", 
           SubsuperscriptBox["\[Gamma]", "1", "3"], " ", 
           SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
           SubsuperscriptBox["\[Gamma]", "v", "4"], " ", 
           SubscriptBox["\[Delta]", "2"]}], "-", 
          RowBox[{
           SubscriptBox["n", "v"], " ", 
           SubsuperscriptBox["\[Gamma]", "2", "3"], " ", 
           SubsuperscriptBox["\[Gamma]", "v", "3"], " ", 
           SubscriptBox["\[Delta]", "1"], " ", 
           SubscriptBox["\[Epsilon]", "1"]}], "+", 
          RowBox[{"2", " ", 
           SubscriptBox["n", "v"], " ", 
           SubscriptBox["\[Gamma]", "1"], " ", 
           SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
           SubsuperscriptBox["\[Gamma]", "v", "3"], " ", 
           SubscriptBox["\[Delta]", "2"], " ", 
           SubscriptBox["\[Epsilon]", "1"]}], "+", 
          RowBox[{
           SubscriptBox["n", "v"], " ", 
           SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
           SubscriptBox["\[Gamma]", "v"], " ", 
           SubscriptBox["\[Delta]", "1"], " ", 
           SubscriptBox["\[Delta]", "2"], " ", 
           SubscriptBox["\[Epsilon]", "1"]}], "+", 
          RowBox[{
           SubscriptBox["n", "v"], " ", 
           SubsuperscriptBox["\[Gamma]", "1", "3"], " ", 
           SubsuperscriptBox["\[Gamma]", "v", "3"], " ", 
           SubscriptBox["\[Delta]", "2"], " ", 
           SubscriptBox["\[Epsilon]", "2"]}], "+", 
          RowBox[{
           SubscriptBox["n", "v"], " ", 
           SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
           SubscriptBox["\[Gamma]", "v"], " ", 
           SubscriptBox["\[Delta]", "1"], " ", 
           SubscriptBox["\[Delta]", "2"], " ", 
           SubscriptBox["\[Epsilon]", "2"]}], "-", 
          SqrtBox[
           RowBox[{
            SubsuperscriptBox["n", "v", "2"], " ", 
            SubsuperscriptBox["\[Gamma]", "v", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "4"}], " ", 
               SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
               SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
               SubscriptBox["\[Gamma]", "v"], " ", 
               SubscriptBox["\[Delta]", "1"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  SubscriptBox["\[Gamma]", "1"], " ", 
                  SubsuperscriptBox["\[Gamma]", "v", "2"]}], "+", 
                 SubscriptBox["\[Delta]", "1"]}], ")"}], " ", 
               SubscriptBox["\[Delta]", "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  SubscriptBox["\[Gamma]", "2"], " ", 
                  SubsuperscriptBox["\[Gamma]", "v", "2"]}], "+", 
                 SubscriptBox["\[Delta]", "2"]}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
                  SubscriptBox["\[Epsilon]", "1"]}], "+", 
                 RowBox[{
                  SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
                    SubscriptBox["\[Gamma]", "v"]}], "+", 
                    SubscriptBox["\[Epsilon]", "2"]}], ")"}]}]}], ")"}]}], 
              "+", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
                  SubscriptBox["\[Delta]", "1"], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    SubscriptBox["\[Gamma]", "2"], " ", 
                    SubsuperscriptBox["\[Gamma]", "v", "2"]}], "+", 
                    SubscriptBox["\[Delta]", "2"]}], ")"}], " ", 
                  SubscriptBox["\[Epsilon]", "1"]}], "+", 
                 RowBox[{
                  SubsuperscriptBox["\[Gamma]", "1", "3"], " ", 
                  SubsuperscriptBox["\[Gamma]", "v", "2"], " ", 
                  SubscriptBox["\[Delta]", "2"], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
                    SubscriptBox["\[Gamma]", "v"]}], "+", 
                    SubscriptBox["\[Epsilon]", "2"]}], ")"}]}], "+", 
                 RowBox[{
                  SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
                  SubscriptBox["\[Delta]", "1"], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    SubsuperscriptBox["\[Gamma]", "2", "3"], " ", 
                    SubsuperscriptBox["\[Gamma]", "v", "3"]}], "+", 
                    RowBox[{"2", " ", 
                    SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
                    SubscriptBox["\[Gamma]", "v"], " ", 
                    SubscriptBox["\[Delta]", "2"]}], "+", 
                    RowBox[{
                    SubscriptBox["\[Delta]", "2"], " ", 
                    SubscriptBox["\[Epsilon]", "2"]}]}], ")"}]}]}], ")"}], 
               "2"]}], ")"}]}]]}], ")"}]}]}]}], ",", 
     RowBox[{
      SubscriptBox["s", "2"], "\[Rule]", 
      RowBox[{
       FractionBox["1", 
        RowBox[{"2", " ", 
         SubscriptBox["n", "v"], " ", 
         SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
         SubscriptBox["\[Gamma]", "2"], " ", 
         SubscriptBox["\[Gamma]", "v"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SubscriptBox["\[Gamma]", "2"], " ", 
            SubsuperscriptBox["\[Gamma]", "v", "2"]}], "+", 
           SubscriptBox["\[Delta]", "2"]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", 
             SubscriptBox["\[Gamma]", "2"]}], " ", 
            SubscriptBox["\[Delta]", "1"]}], "+", 
           RowBox[{
            SubscriptBox["\[Gamma]", "1"], " ", 
            SubscriptBox["\[Delta]", "2"]}]}], ")"}], " ", 
         SubscriptBox["\[Epsilon]", "2"]}]], 
       RowBox[{
        SubscriptBox["n", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", 
            SubscriptBox["n", "v"]}], " ", 
           SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
           SubsuperscriptBox["\[Gamma]", "2", "3"], " ", 
           SubsuperscriptBox["\[Gamma]", "v", "4"], " ", 
           SubscriptBox["\[Delta]", "1"]}], "+", 
          RowBox[{
           SubscriptBox["n", "v"], " ", 
           SubsuperscriptBox["\[Gamma]", "1", "3"], " ", 
           SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
           SubsuperscriptBox["\[Gamma]", "v", "4"], " ", 
           SubscriptBox["\[Delta]", "2"]}], "-", 
          RowBox[{
           SubscriptBox["n", "v"], " ", 
           SubsuperscriptBox["\[Gamma]", "2", "3"], " ", 
           SubsuperscriptBox["\[Gamma]", "v", "3"], " ", 
           SubscriptBox["\[Delta]", "1"], " ", 
           SubscriptBox["\[Epsilon]", "1"]}], "-", 
          RowBox[{
           SubscriptBox["n", "v"], " ", 
           SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
           SubscriptBox["\[Gamma]", "v"], " ", 
           SubscriptBox["\[Delta]", "1"], " ", 
           SubscriptBox["\[Delta]", "2"], " ", 
           SubscriptBox["\[Epsilon]", "1"]}], "-", 
          RowBox[{"2", " ", 
           SubscriptBox["n", "v"], " ", 
           SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
           SubscriptBox["\[Gamma]", "2"], " ", 
           SubsuperscriptBox["\[Gamma]", "v", "3"], " ", 
           SubscriptBox["\[Delta]", "1"], " ", 
           SubscriptBox["\[Epsilon]", "2"]}], "+", 
          RowBox[{
           SubscriptBox["n", "v"], " ", 
           SubsuperscriptBox["\[Gamma]", "1", "3"], " ", 
           SubsuperscriptBox["\[Gamma]", "v", "3"], " ", 
           SubscriptBox["\[Delta]", "2"], " ", 
           SubscriptBox["\[Epsilon]", "2"]}], "-", 
          RowBox[{
           SubscriptBox["n", "v"], " ", 
           SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
           SubscriptBox["\[Gamma]", "v"], " ", 
           SubscriptBox["\[Delta]", "1"], " ", 
           SubscriptBox["\[Delta]", "2"], " ", 
           SubscriptBox["\[Epsilon]", "2"]}], "+", 
          SqrtBox[
           RowBox[{
            SubsuperscriptBox["n", "v", "2"], " ", 
            SubsuperscriptBox["\[Gamma]", "v", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "4"}], " ", 
               SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
               SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
               SubscriptBox["\[Gamma]", "v"], " ", 
               SubscriptBox["\[Delta]", "1"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  SubscriptBox["\[Gamma]", "1"], " ", 
                  SubsuperscriptBox["\[Gamma]", "v", "2"]}], "+", 
                 SubscriptBox["\[Delta]", "1"]}], ")"}], " ", 
               SubscriptBox["\[Delta]", "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  SubscriptBox["\[Gamma]", "2"], " ", 
                  SubsuperscriptBox["\[Gamma]", "v", "2"]}], "+", 
                 SubscriptBox["\[Delta]", "2"]}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
                  SubscriptBox["\[Epsilon]", "1"]}], "+", 
                 RowBox[{
                  SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
                    SubscriptBox["\[Gamma]", "v"]}], "+", 
                    SubscriptBox["\[Epsilon]", "2"]}], ")"}]}]}], ")"}]}], 
              "+", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
                  SubscriptBox["\[Delta]", "1"], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    SubscriptBox["\[Gamma]", "2"], " ", 
                    SubsuperscriptBox["\[Gamma]", "v", "2"]}], "+", 
                    SubscriptBox["\[Delta]", "2"]}], ")"}], " ", 
                  SubscriptBox["\[Epsilon]", "1"]}], "+", 
                 RowBox[{
                  SubsuperscriptBox["\[Gamma]", "1", "3"], " ", 
                  SubsuperscriptBox["\[Gamma]", "v", "2"], " ", 
                  SubscriptBox["\[Delta]", "2"], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
                    SubscriptBox["\[Gamma]", "v"]}], "+", 
                    SubscriptBox["\[Epsilon]", "2"]}], ")"}]}], "+", 
                 RowBox[{
                  SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
                  SubscriptBox["\[Delta]", "1"], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    SubsuperscriptBox["\[Gamma]", "2", "3"], " ", 
                    SubsuperscriptBox["\[Gamma]", "v", "3"]}], "+", 
                    RowBox[{"2", " ", 
                    SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
                    SubscriptBox["\[Gamma]", "v"], " ", 
                    SubscriptBox["\[Delta]", "2"]}], "+", 
                    RowBox[{
                    SubscriptBox["\[Delta]", "2"], " ", 
                    SubscriptBox["\[Epsilon]", "2"]}]}], ")"}]}]}], ")"}], 
               "2"]}], ")"}]}]]}], ")"}]}]}]}], ",", 
     RowBox[{
      SubscriptBox["i", "1"], "\[Rule]", 
      RowBox[{"-", 
       RowBox[{
        FractionBox["1", 
         RowBox[{"2", " ", 
          SubscriptBox["n", "v"], " ", 
          SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
          SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
          SubscriptBox["\[Gamma]", "v"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SubscriptBox["\[Gamma]", "1"], " ", 
             SubsuperscriptBox["\[Gamma]", "v", "2"]}], "+", 
            SubscriptBox["\[Delta]", "1"]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", 
              SubscriptBox["\[Gamma]", "2"]}], " ", 
             SubscriptBox["\[Delta]", "1"]}], "+", 
            RowBox[{
             SubscriptBox["\[Gamma]", "1"], " ", 
             SubscriptBox["\[Delta]", "2"]}]}], ")"}], " ", 
          SubscriptBox["\[Epsilon]", "1"]}]], 
        RowBox[{
         SubscriptBox["n", "1"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", 
             SubscriptBox["n", "v"]}], " ", 
            SubsuperscriptBox["\[Gamma]", "1", "3"], " ", 
            SubsuperscriptBox["\[Gamma]", "2", "3"], " ", 
            SubsuperscriptBox["\[Gamma]", "v", "4"], " ", 
            SubscriptBox["\[Delta]", "1"]}], "+", 
           RowBox[{
            SubscriptBox["n", "v"], " ", 
            SubsuperscriptBox["\[Gamma]", "1", "4"], " ", 
            SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
            SubsuperscriptBox["\[Gamma]", "v", "4"], " ", 
            SubscriptBox["\[Delta]", "2"]}], "+", 
           RowBox[{
            SubscriptBox["n", "v"], " ", 
            SubscriptBox["\[Gamma]", "1"], " ", 
            SubsuperscriptBox["\[Gamma]", "2", "3"], " ", 
            SubsuperscriptBox["\[Gamma]", "v", "3"], " ", 
            SubscriptBox["\[Delta]", "1"], " ", 
            SubscriptBox["\[Epsilon]", "1"]}], "+", 
           RowBox[{"2", " ", 
            SubscriptBox["n", "v"], " ", 
            SubsuperscriptBox["\[Gamma]", "2", "3"], " ", 
            SubscriptBox["\[Gamma]", "v"], " ", 
            SubsuperscriptBox["\[Delta]", "1", "2"], " ", 
            SubscriptBox["\[Epsilon]", "1"]}], "-", 
           RowBox[{
            SubscriptBox["n", "v"], " ", 
            SubscriptBox["\[Gamma]", "1"], " ", 
            SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
            SubscriptBox["\[Gamma]", "v"], " ", 
            SubscriptBox["\[Delta]", "1"], " ", 
            SubscriptBox["\[Delta]", "2"], " ", 
            SubscriptBox["\[Epsilon]", "1"]}], "+", 
           RowBox[{
            SubscriptBox["n", "v"], " ", 
            SubsuperscriptBox["\[Gamma]", "1", "4"], " ", 
            SubsuperscriptBox["\[Gamma]", "v", "3"], " ", 
            SubscriptBox["\[Delta]", "2"], " ", 
            SubscriptBox["\[Epsilon]", "2"]}], "+", 
           RowBox[{
            SubscriptBox["n", "v"], " ", 
            SubsuperscriptBox["\[Gamma]", "1", "3"], " ", 
            SubscriptBox["\[Gamma]", "v"], " ", 
            SubscriptBox["\[Delta]", "1"], " ", 
            SubscriptBox["\[Delta]", "2"], " ", 
            SubscriptBox["\[Epsilon]", "2"]}], "-", 
           RowBox[{
            SubscriptBox["\[Gamma]", "1"], " ", 
            SqrtBox[
             RowBox[{
              SubsuperscriptBox["n", "v", "2"], " ", 
              SubsuperscriptBox["\[Gamma]", "v", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "4"}], " ", 
                 SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
                 SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
                 SubscriptBox["\[Gamma]", "v"], " ", 
                 SubscriptBox["\[Delta]", "1"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SubscriptBox["\[Gamma]", "1"], " ", 
                    SubsuperscriptBox["\[Gamma]", "v", "2"]}], "+", 
                   SubscriptBox["\[Delta]", "1"]}], ")"}], " ", 
                 SubscriptBox["\[Delta]", "2"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SubscriptBox["\[Gamma]", "2"], " ", 
                    SubsuperscriptBox["\[Gamma]", "v", "2"]}], "+", 
                   SubscriptBox["\[Delta]", "2"]}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
                    SubscriptBox["\[Epsilon]", "1"]}], "+", 
                   RowBox[{
                    SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
                    SubscriptBox["\[Gamma]", "v"]}], "+", 
                    SubscriptBox["\[Epsilon]", "2"]}], ")"}]}]}], ")"}]}], 
                "+", 
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
                    SubscriptBox["\[Delta]", "1"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SubscriptBox["\[Gamma]", "2"], " ", 
                    SubsuperscriptBox["\[Gamma]", "v", "2"]}], "+", 
                    SubscriptBox["\[Delta]", "2"]}], ")"}], " ", 
                    SubscriptBox["\[Epsilon]", "1"]}], "+", 
                   RowBox[{
                    SubsuperscriptBox["\[Gamma]", "1", "3"], " ", 
                    SubsuperscriptBox["\[Gamma]", "v", "2"], " ", 
                    SubscriptBox["\[Delta]", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
                    SubscriptBox["\[Gamma]", "v"]}], "+", 
                    SubscriptBox["\[Epsilon]", "2"]}], ")"}]}], "+", 
                   RowBox[{
                    SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
                    SubscriptBox["\[Delta]", "1"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SubsuperscriptBox["\[Gamma]", "2", "3"], " ", 
                    SubsuperscriptBox["\[Gamma]", "v", "3"]}], "+", 
                    RowBox[{"2", " ", 
                    SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
                    SubscriptBox["\[Gamma]", "v"], " ", 
                    SubscriptBox["\[Delta]", "2"]}], "+", 
                    RowBox[{
                    SubscriptBox["\[Delta]", "2"], " ", 
                    SubscriptBox["\[Epsilon]", "2"]}]}], ")"}]}]}], ")"}], 
                 "2"]}], ")"}]}]]}]}], ")"}]}]}]}]}], ",", 
     RowBox[{
      SubscriptBox["i", "2"], "\[Rule]", 
      RowBox[{
       FractionBox["1", 
        RowBox[{"2", " ", 
         SubscriptBox["n", "v"], " ", 
         SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
         SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
         SubscriptBox["\[Gamma]", "v"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SubscriptBox["\[Gamma]", "2"], " ", 
            SubsuperscriptBox["\[Gamma]", "v", "2"]}], "+", 
           SubscriptBox["\[Delta]", "2"]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", 
             SubscriptBox["\[Gamma]", "2"]}], " ", 
            SubscriptBox["\[Delta]", "1"]}], "+", 
           RowBox[{
            SubscriptBox["\[Gamma]", "1"], " ", 
            SubscriptBox["\[Delta]", "2"]}]}], ")"}], " ", 
         SubscriptBox["\[Epsilon]", "2"]}]], 
       RowBox[{
        SubscriptBox["n", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox["n", "v"], " ", 
           SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
           SubsuperscriptBox["\[Gamma]", "2", "4"], " ", 
           SubsuperscriptBox["\[Gamma]", "v", "4"], " ", 
           SubscriptBox["\[Delta]", "1"]}], "-", 
          RowBox[{
           SubscriptBox["n", "v"], " ", 
           SubsuperscriptBox["\[Gamma]", "1", "3"], " ", 
           SubsuperscriptBox["\[Gamma]", "2", "3"], " ", 
           SubsuperscriptBox["\[Gamma]", "v", "4"], " ", 
           SubscriptBox["\[Delta]", "2"]}], "+", 
          RowBox[{
           SubscriptBox["n", "v"], " ", 
           SubsuperscriptBox["\[Gamma]", "2", "4"], " ", 
           SubsuperscriptBox["\[Gamma]", "v", "3"], " ", 
           SubscriptBox["\[Delta]", "1"], " ", 
           SubscriptBox["\[Epsilon]", "1"]}], "+", 
          RowBox[{
           SubscriptBox["n", "v"], " ", 
           SubsuperscriptBox["\[Gamma]", "2", "3"], " ", 
           SubscriptBox["\[Gamma]", "v"], " ", 
           SubscriptBox["\[Delta]", "1"], " ", 
           SubscriptBox["\[Delta]", "2"], " ", 
           SubscriptBox["\[Epsilon]", "1"]}], "+", 
          RowBox[{
           SubscriptBox["n", "v"], " ", 
           SubsuperscriptBox["\[Gamma]", "1", "3"], " ", 
           SubscriptBox["\[Gamma]", "2"], " ", 
           SubsuperscriptBox["\[Gamma]", "v", "3"], " ", 
           SubscriptBox["\[Delta]", "2"], " ", 
           SubscriptBox["\[Epsilon]", "2"]}], "-", 
          RowBox[{
           SubscriptBox["n", "v"], " ", 
           SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
           SubscriptBox["\[Gamma]", "2"], " ", 
           SubscriptBox["\[Gamma]", "v"], " ", 
           SubscriptBox["\[Delta]", "1"], " ", 
           SubscriptBox["\[Delta]", "2"], " ", 
           SubscriptBox["\[Epsilon]", "2"]}], "+", 
          RowBox[{"2", " ", 
           SubscriptBox["n", "v"], " ", 
           SubsuperscriptBox["\[Gamma]", "1", "3"], " ", 
           SubscriptBox["\[Gamma]", "v"], " ", 
           SubsuperscriptBox["\[Delta]", "2", "2"], " ", 
           SubscriptBox["\[Epsilon]", "2"]}], "-", 
          RowBox[{
           SubscriptBox["\[Gamma]", "2"], " ", 
           SqrtBox[
            RowBox[{
             SubsuperscriptBox["n", "v", "2"], " ", 
             SubsuperscriptBox["\[Gamma]", "v", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "4"}], " ", 
                SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
                SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
                SubscriptBox["\[Gamma]", "v"], " ", 
                SubscriptBox["\[Delta]", "1"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   SubscriptBox["\[Gamma]", "1"], " ", 
                   SubsuperscriptBox["\[Gamma]", "v", "2"]}], "+", 
                  SubscriptBox["\[Delta]", "1"]}], ")"}], " ", 
                SubscriptBox["\[Delta]", "2"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   SubscriptBox["\[Gamma]", "2"], " ", 
                   SubsuperscriptBox["\[Gamma]", "v", "2"]}], "+", 
                  SubscriptBox["\[Delta]", "2"]}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
                   SubscriptBox["\[Epsilon]", "1"]}], "+", 
                  RowBox[{
                   SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
                    SubscriptBox["\[Gamma]", "v"]}], "+", 
                    SubscriptBox["\[Epsilon]", "2"]}], ")"}]}]}], ")"}]}], 
               "+", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
                   SubscriptBox["\[Delta]", "1"], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SubscriptBox["\[Gamma]", "2"], " ", 
                    SubsuperscriptBox["\[Gamma]", "v", "2"]}], "+", 
                    SubscriptBox["\[Delta]", "2"]}], ")"}], " ", 
                   SubscriptBox["\[Epsilon]", "1"]}], "+", 
                  RowBox[{
                   SubsuperscriptBox["\[Gamma]", "1", "3"], " ", 
                   SubsuperscriptBox["\[Gamma]", "v", "2"], " ", 
                   SubscriptBox["\[Delta]", "2"], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
                    SubscriptBox["\[Gamma]", "v"]}], "+", 
                    SubscriptBox["\[Epsilon]", "2"]}], ")"}]}], "+", 
                  RowBox[{
                   SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
                   SubscriptBox["\[Delta]", "1"], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SubsuperscriptBox["\[Gamma]", "2", "3"], " ", 
                    SubsuperscriptBox["\[Gamma]", "v", "3"]}], "+", 
                    RowBox[{"2", " ", 
                    SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
                    SubscriptBox["\[Gamma]", "v"], " ", 
                    SubscriptBox["\[Delta]", "2"]}], "+", 
                    RowBox[{
                    SubscriptBox["\[Delta]", "2"], " ", 
                    SubscriptBox["\[Epsilon]", "2"]}]}], ")"}]}]}], ")"}], 
                "2"]}], ")"}]}]]}]}], ")"}]}]}]}], ",", 
     RowBox[{
      SubscriptBox["s", "v"], "\[Rule]", 
      RowBox[{
       FractionBox["1", 
        RowBox[{"2", " ", 
         SubsuperscriptBox["\[Gamma]", "v", "3"], " ", 
         SubscriptBox["\[Delta]", "1"], " ", 
         SubscriptBox["\[Delta]", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
            SubscriptBox["\[Epsilon]", "1"]}], "+", 
           RowBox[{
            SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
               SubscriptBox["\[Gamma]", "v"]}], "+", 
              SubscriptBox["\[Epsilon]", "2"]}], ")"}]}]}], ")"}]}]], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SubscriptBox["n", "v"], " ", 
          SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
          SubsuperscriptBox["\[Gamma]", "2", "3"], " ", 
          SubsuperscriptBox["\[Gamma]", "v", "4"], " ", 
          SubscriptBox["\[Delta]", "1"]}], "+", 
         RowBox[{
          SubscriptBox["n", "v"], " ", 
          SubsuperscriptBox["\[Gamma]", "1", "3"], " ", 
          SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
          SubsuperscriptBox["\[Gamma]", "v", "4"], " ", 
          SubscriptBox["\[Delta]", "2"]}], "+", 
         RowBox[{"2", " ", 
          SubscriptBox["n", "v"], " ", 
          SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
          SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
          SubsuperscriptBox["\[Gamma]", "v", "2"], " ", 
          SubscriptBox["\[Delta]", "1"], " ", 
          SubscriptBox["\[Delta]", "2"]}], "+", 
         RowBox[{
          SubscriptBox["n", "v"], " ", 
          SubsuperscriptBox["\[Gamma]", "2", "3"], " ", 
          SubsuperscriptBox["\[Gamma]", "v", "3"], " ", 
          SubscriptBox["\[Delta]", "1"], " ", 
          SubscriptBox["\[Epsilon]", "1"]}], "+", 
         RowBox[{
          SubscriptBox["n", "v"], " ", 
          SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
          SubscriptBox["\[Gamma]", "v"], " ", 
          SubscriptBox["\[Delta]", "1"], " ", 
          SubscriptBox["\[Delta]", "2"], " ", 
          SubscriptBox["\[Epsilon]", "1"]}], "+", 
         RowBox[{
          SubscriptBox["n", "v"], " ", 
          SubsuperscriptBox["\[Gamma]", "1", "3"], " ", 
          SubsuperscriptBox["\[Gamma]", "v", "3"], " ", 
          SubscriptBox["\[Delta]", "2"], " ", 
          SubscriptBox["\[Epsilon]", "2"]}], "+", 
         RowBox[{
          SubscriptBox["n", "v"], " ", 
          SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
          SubscriptBox["\[Gamma]", "v"], " ", 
          SubscriptBox["\[Delta]", "1"], " ", 
          SubscriptBox["\[Delta]", "2"], " ", 
          SubscriptBox["\[Epsilon]", "2"]}], "-", 
         SqrtBox[
          RowBox[{
           SubsuperscriptBox["n", "v", "2"], " ", 
           SubsuperscriptBox["\[Gamma]", "v", "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "4"}], " ", 
              SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
              SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
              SubscriptBox["\[Gamma]", "v"], " ", 
              SubscriptBox["\[Delta]", "1"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SubscriptBox["\[Gamma]", "1"], " ", 
                 SubsuperscriptBox["\[Gamma]", "v", "2"]}], "+", 
                SubscriptBox["\[Delta]", "1"]}], ")"}], " ", 
              SubscriptBox["\[Delta]", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SubscriptBox["\[Gamma]", "2"], " ", 
                 SubsuperscriptBox["\[Gamma]", "v", "2"]}], "+", 
                SubscriptBox["\[Delta]", "2"]}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
                 SubscriptBox["\[Epsilon]", "1"]}], "+", 
                RowBox[{
                 SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
                    SubscriptBox["\[Gamma]", "v"]}], "+", 
                   SubscriptBox["\[Epsilon]", "2"]}], ")"}]}]}], ")"}]}], "+", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
                 SubscriptBox["\[Delta]", "1"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SubscriptBox["\[Gamma]", "2"], " ", 
                    SubsuperscriptBox["\[Gamma]", "v", "2"]}], "+", 
                   SubscriptBox["\[Delta]", "2"]}], ")"}], " ", 
                 SubscriptBox["\[Epsilon]", "1"]}], "+", 
                RowBox[{
                 SubsuperscriptBox["\[Gamma]", "1", "3"], " ", 
                 SubsuperscriptBox["\[Gamma]", "v", "2"], " ", 
                 SubscriptBox["\[Delta]", "2"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
                    SubscriptBox["\[Gamma]", "v"]}], "+", 
                   SubscriptBox["\[Epsilon]", "2"]}], ")"}]}], "+", 
                RowBox[{
                 SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
                 SubscriptBox["\[Delta]", "1"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SubsuperscriptBox["\[Gamma]", "2", "3"], " ", 
                    SubsuperscriptBox["\[Gamma]", "v", "3"]}], "+", 
                   RowBox[{"2", " ", 
                    SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
                    SubscriptBox["\[Gamma]", "v"], " ", 
                    SubscriptBox["\[Delta]", "2"]}], "+", 
                   RowBox[{
                    SubscriptBox["\[Delta]", "2"], " ", 
                    SubscriptBox["\[Epsilon]", "2"]}]}], ")"}]}]}], ")"}], 
              "2"]}], ")"}]}]]}], ")"}]}]}], ",", 
     RowBox[{
      SubscriptBox["i", "v"], "\[Rule]", 
      RowBox[{
       FractionBox["1", 
        RowBox[{"2", " ", 
         SubsuperscriptBox["\[Gamma]", "v", "3"], " ", 
         SubscriptBox["\[Delta]", "1"], " ", 
         SubscriptBox["\[Delta]", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
            SubscriptBox["\[Epsilon]", "1"]}], "+", 
           RowBox[{
            SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
               SubscriptBox["\[Gamma]", "v"]}], "+", 
              SubscriptBox["\[Epsilon]", "2"]}], ")"}]}]}], ")"}]}]], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", 
           SubscriptBox["n", "v"]}], " ", 
          SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
          SubsuperscriptBox["\[Gamma]", "2", "3"], " ", 
          SubsuperscriptBox["\[Gamma]", "v", "4"], " ", 
          SubscriptBox["\[Delta]", "1"]}], "-", 
         RowBox[{
          SubscriptBox["n", "v"], " ", 
          SubsuperscriptBox["\[Gamma]", "1", "3"], " ", 
          SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
          SubsuperscriptBox["\[Gamma]", "v", "4"], " ", 
          SubscriptBox["\[Delta]", "2"]}], "-", 
         RowBox[{
          SubscriptBox["n", "v"], " ", 
          SubsuperscriptBox["\[Gamma]", "2", "3"], " ", 
          SubsuperscriptBox["\[Gamma]", "v", "3"], " ", 
          SubscriptBox["\[Delta]", "1"], " ", 
          SubscriptBox["\[Epsilon]", "1"]}], "+", 
         RowBox[{
          SubscriptBox["n", "v"], " ", 
          SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
          SubscriptBox["\[Gamma]", "v"], " ", 
          SubscriptBox["\[Delta]", "1"], " ", 
          SubscriptBox["\[Delta]", "2"], " ", 
          SubscriptBox["\[Epsilon]", "1"]}], "-", 
         RowBox[{
          SubscriptBox["n", "v"], " ", 
          SubsuperscriptBox["\[Gamma]", "1", "3"], " ", 
          SubsuperscriptBox["\[Gamma]", "v", "3"], " ", 
          SubscriptBox["\[Delta]", "2"], " ", 
          SubscriptBox["\[Epsilon]", "2"]}], "+", 
         RowBox[{
          SubscriptBox["n", "v"], " ", 
          SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
          SubscriptBox["\[Gamma]", "v"], " ", 
          SubscriptBox["\[Delta]", "1"], " ", 
          SubscriptBox["\[Delta]", "2"], " ", 
          SubscriptBox["\[Epsilon]", "2"]}], "+", 
         SqrtBox[
          RowBox[{
           SubsuperscriptBox["n", "v", "2"], " ", 
           SubsuperscriptBox["\[Gamma]", "v", "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "4"}], " ", 
              SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
              SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
              SubscriptBox["\[Gamma]", "v"], " ", 
              SubscriptBox["\[Delta]", "1"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SubscriptBox["\[Gamma]", "1"], " ", 
                 SubsuperscriptBox["\[Gamma]", "v", "2"]}], "+", 
                SubscriptBox["\[Delta]", "1"]}], ")"}], " ", 
              SubscriptBox["\[Delta]", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SubscriptBox["\[Gamma]", "2"], " ", 
                 SubsuperscriptBox["\[Gamma]", "v", "2"]}], "+", 
                SubscriptBox["\[Delta]", "2"]}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
                 SubscriptBox["\[Epsilon]", "1"]}], "+", 
                RowBox[{
                 SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
                    SubscriptBox["\[Gamma]", "v"]}], "+", 
                   SubscriptBox["\[Epsilon]", "2"]}], ")"}]}]}], ")"}]}], "+", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
                 SubscriptBox["\[Delta]", "1"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SubscriptBox["\[Gamma]", "2"], " ", 
                    SubsuperscriptBox["\[Gamma]", "v", "2"]}], "+", 
                   SubscriptBox["\[Delta]", "2"]}], ")"}], " ", 
                 SubscriptBox["\[Epsilon]", "1"]}], "+", 
                RowBox[{
                 SubsuperscriptBox["\[Gamma]", "1", "3"], " ", 
                 SubsuperscriptBox["\[Gamma]", "v", "2"], " ", 
                 SubscriptBox["\[Delta]", "2"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
                    SubscriptBox["\[Gamma]", "v"]}], "+", 
                   SubscriptBox["\[Epsilon]", "2"]}], ")"}]}], "+", 
                RowBox[{
                 SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
                 SubscriptBox["\[Delta]", "1"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SubsuperscriptBox["\[Gamma]", "2", "3"], " ", 
                    SubsuperscriptBox["\[Gamma]", "v", "3"]}], "+", 
                   RowBox[{"2", " ", 
                    SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
                    SubscriptBox["\[Gamma]", "v"], " ", 
                    SubscriptBox["\[Delta]", "2"]}], "+", 
                   RowBox[{
                    SubscriptBox["\[Delta]", "2"], " ", 
                    SubscriptBox["\[Epsilon]", "2"]}]}], ")"}]}]}], ")"}], 
              "2"]}], ")"}]}]]}], ")"}]}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      SubscriptBox["s", "1"], "\[Rule]", 
      RowBox[{
       FractionBox["1", 
        RowBox[{"2", " ", 
         SubscriptBox["n", "v"], " ", 
         SubscriptBox["\[Gamma]", "1"], " ", 
         SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
         SubscriptBox["\[Gamma]", "v"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SubscriptBox["\[Gamma]", "1"], " ", 
            SubsuperscriptBox["\[Gamma]", "v", "2"]}], "+", 
           SubscriptBox["\[Delta]", "1"]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", 
             SubscriptBox["\[Gamma]", "2"]}], " ", 
            SubscriptBox["\[Delta]", "1"]}], "+", 
           RowBox[{
            SubscriptBox["\[Gamma]", "1"], " ", 
            SubscriptBox["\[Delta]", "2"]}]}], ")"}], " ", 
         SubscriptBox["\[Epsilon]", "1"]}]], 
       RowBox[{
        SubscriptBox["n", "1"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", 
            SubscriptBox["n", "v"]}], " ", 
           SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
           SubsuperscriptBox["\[Gamma]", "2", "3"], " ", 
           SubsuperscriptBox["\[Gamma]", "v", "4"], " ", 
           SubscriptBox["\[Delta]", "1"]}], "+", 
          RowBox[{
           SubscriptBox["n", "v"], " ", 
           SubsuperscriptBox["\[Gamma]", "1", "3"], " ", 
           SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
           SubsuperscriptBox["\[Gamma]", "v", "4"], " ", 
           SubscriptBox["\[Delta]", "2"]}], "-", 
          RowBox[{
           SubscriptBox["n", "v"], " ", 
           SubsuperscriptBox["\[Gamma]", "2", "3"], " ", 
           SubsuperscriptBox["\[Gamma]", "v", "3"], " ", 
           SubscriptBox["\[Delta]", "1"], " ", 
           SubscriptBox["\[Epsilon]", "1"]}], "+", 
          RowBox[{"2", " ", 
           SubscriptBox["n", "v"], " ", 
           SubscriptBox["\[Gamma]", "1"], " ", 
           SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
           SubsuperscriptBox["\[Gamma]", "v", "3"], " ", 
           SubscriptBox["\[Delta]", "2"], " ", 
           SubscriptBox["\[Epsilon]", "1"]}], "+", 
          RowBox[{
           SubscriptBox["n", "v"], " ", 
           SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
           SubscriptBox["\[Gamma]", "v"], " ", 
           SubscriptBox["\[Delta]", "1"], " ", 
           SubscriptBox["\[Delta]", "2"], " ", 
           SubscriptBox["\[Epsilon]", "1"]}], "+", 
          RowBox[{
           SubscriptBox["n", "v"], " ", 
           SubsuperscriptBox["\[Gamma]", "1", "3"], " ", 
           SubsuperscriptBox["\[Gamma]", "v", "3"], " ", 
           SubscriptBox["\[Delta]", "2"], " ", 
           SubscriptBox["\[Epsilon]", "2"]}], "+", 
          RowBox[{
           SubscriptBox["n", "v"], " ", 
           SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
           SubscriptBox["\[Gamma]", "v"], " ", 
           SubscriptBox["\[Delta]", "1"], " ", 
           SubscriptBox["\[Delta]", "2"], " ", 
           SubscriptBox["\[Epsilon]", "2"]}], "+", 
          SqrtBox[
           RowBox[{
            SubsuperscriptBox["n", "v", "2"], " ", 
            SubsuperscriptBox["\[Gamma]", "v", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "4"}], " ", 
               SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
               SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
               SubscriptBox["\[Gamma]", "v"], " ", 
               SubscriptBox["\[Delta]", "1"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  SubscriptBox["\[Gamma]", "1"], " ", 
                  SubsuperscriptBox["\[Gamma]", "v", "2"]}], "+", 
                 SubscriptBox["\[Delta]", "1"]}], ")"}], " ", 
               SubscriptBox["\[Delta]", "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  SubscriptBox["\[Gamma]", "2"], " ", 
                  SubsuperscriptBox["\[Gamma]", "v", "2"]}], "+", 
                 SubscriptBox["\[Delta]", "2"]}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
                  SubscriptBox["\[Epsilon]", "1"]}], "+", 
                 RowBox[{
                  SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
                    SubscriptBox["\[Gamma]", "v"]}], "+", 
                    SubscriptBox["\[Epsilon]", "2"]}], ")"}]}]}], ")"}]}], 
              "+", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
                  SubscriptBox["\[Delta]", "1"], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    SubscriptBox["\[Gamma]", "2"], " ", 
                    SubsuperscriptBox["\[Gamma]", "v", "2"]}], "+", 
                    SubscriptBox["\[Delta]", "2"]}], ")"}], " ", 
                  SubscriptBox["\[Epsilon]", "1"]}], "+", 
                 RowBox[{
                  SubsuperscriptBox["\[Gamma]", "1", "3"], " ", 
                  SubsuperscriptBox["\[Gamma]", "v", "2"], " ", 
                  SubscriptBox["\[Delta]", "2"], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
                    SubscriptBox["\[Gamma]", "v"]}], "+", 
                    SubscriptBox["\[Epsilon]", "2"]}], ")"}]}], "+", 
                 RowBox[{
                  SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
                  SubscriptBox["\[Delta]", "1"], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    SubsuperscriptBox["\[Gamma]", "2", "3"], " ", 
                    SubsuperscriptBox["\[Gamma]", "v", "3"]}], "+", 
                    RowBox[{"2", " ", 
                    SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
                    SubscriptBox["\[Gamma]", "v"], " ", 
                    SubscriptBox["\[Delta]", "2"]}], "+", 
                    RowBox[{
                    SubscriptBox["\[Delta]", "2"], " ", 
                    SubscriptBox["\[Epsilon]", "2"]}]}], ")"}]}]}], ")"}], 
               "2"]}], ")"}]}]]}], ")"}]}]}]}], ",", 
     RowBox[{
      SubscriptBox["s", "2"], "\[Rule]", 
      RowBox[{"-", 
       RowBox[{
        FractionBox["1", 
         RowBox[{"2", " ", 
          SubscriptBox["n", "v"], " ", 
          SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
          SubscriptBox["\[Gamma]", "2"], " ", 
          SubscriptBox["\[Gamma]", "v"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SubscriptBox["\[Gamma]", "2"], " ", 
             SubsuperscriptBox["\[Gamma]", "v", "2"]}], "+", 
            SubscriptBox["\[Delta]", "2"]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", 
              SubscriptBox["\[Gamma]", "2"]}], " ", 
             SubscriptBox["\[Delta]", "1"]}], "+", 
            RowBox[{
             SubscriptBox["\[Gamma]", "1"], " ", 
             SubscriptBox["\[Delta]", "2"]}]}], ")"}], " ", 
          SubscriptBox["\[Epsilon]", "2"]}]], 
        RowBox[{
         SubscriptBox["n", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SubscriptBox["n", "v"], " ", 
            SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
            SubsuperscriptBox["\[Gamma]", "2", "3"], " ", 
            SubsuperscriptBox["\[Gamma]", "v", "4"], " ", 
            SubscriptBox["\[Delta]", "1"]}], "-", 
           RowBox[{
            SubscriptBox["n", "v"], " ", 
            SubsuperscriptBox["\[Gamma]", "1", "3"], " ", 
            SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
            SubsuperscriptBox["\[Gamma]", "v", "4"], " ", 
            SubscriptBox["\[Delta]", "2"]}], "+", 
           RowBox[{
            SubscriptBox["n", "v"], " ", 
            SubsuperscriptBox["\[Gamma]", "2", "3"], " ", 
            SubsuperscriptBox["\[Gamma]", "v", "3"], " ", 
            SubscriptBox["\[Delta]", "1"], " ", 
            SubscriptBox["\[Epsilon]", "1"]}], "+", 
           RowBox[{
            SubscriptBox["n", "v"], " ", 
            SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
            SubscriptBox["\[Gamma]", "v"], " ", 
            SubscriptBox["\[Delta]", "1"], " ", 
            SubscriptBox["\[Delta]", "2"], " ", 
            SubscriptBox["\[Epsilon]", "1"]}], "+", 
           RowBox[{"2", " ", 
            SubscriptBox["n", "v"], " ", 
            SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
            SubscriptBox["\[Gamma]", "2"], " ", 
            SubsuperscriptBox["\[Gamma]", "v", "3"], " ", 
            SubscriptBox["\[Delta]", "1"], " ", 
            SubscriptBox["\[Epsilon]", "2"]}], "-", 
           RowBox[{
            SubscriptBox["n", "v"], " ", 
            SubsuperscriptBox["\[Gamma]", "1", "3"], " ", 
            SubsuperscriptBox["\[Gamma]", "v", "3"], " ", 
            SubscriptBox["\[Delta]", "2"], " ", 
            SubscriptBox["\[Epsilon]", "2"]}], "+", 
           RowBox[{
            SubscriptBox["n", "v"], " ", 
            SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
            SubscriptBox["\[Gamma]", "v"], " ", 
            SubscriptBox["\[Delta]", "1"], " ", 
            SubscriptBox["\[Delta]", "2"], " ", 
            SubscriptBox["\[Epsilon]", "2"]}], "+", 
           SqrtBox[
            RowBox[{
             SubsuperscriptBox["n", "v", "2"], " ", 
             SubsuperscriptBox["\[Gamma]", "v", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "4"}], " ", 
                SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
                SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
                SubscriptBox["\[Gamma]", "v"], " ", 
                SubscriptBox["\[Delta]", "1"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   SubscriptBox["\[Gamma]", "1"], " ", 
                   SubsuperscriptBox["\[Gamma]", "v", "2"]}], "+", 
                  SubscriptBox["\[Delta]", "1"]}], ")"}], " ", 
                SubscriptBox["\[Delta]", "2"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   SubscriptBox["\[Gamma]", "2"], " ", 
                   SubsuperscriptBox["\[Gamma]", "v", "2"]}], "+", 
                  SubscriptBox["\[Delta]", "2"]}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
                   SubscriptBox["\[Epsilon]", "1"]}], "+", 
                  RowBox[{
                   SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
                    SubscriptBox["\[Gamma]", "v"]}], "+", 
                    SubscriptBox["\[Epsilon]", "2"]}], ")"}]}]}], ")"}]}], 
               "+", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
                   SubscriptBox["\[Delta]", "1"], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SubscriptBox["\[Gamma]", "2"], " ", 
                    SubsuperscriptBox["\[Gamma]", "v", "2"]}], "+", 
                    SubscriptBox["\[Delta]", "2"]}], ")"}], " ", 
                   SubscriptBox["\[Epsilon]", "1"]}], "+", 
                  RowBox[{
                   SubsuperscriptBox["\[Gamma]", "1", "3"], " ", 
                   SubsuperscriptBox["\[Gamma]", "v", "2"], " ", 
                   SubscriptBox["\[Delta]", "2"], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
                    SubscriptBox["\[Gamma]", "v"]}], "+", 
                    SubscriptBox["\[Epsilon]", "2"]}], ")"}]}], "+", 
                  RowBox[{
                   SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
                   SubscriptBox["\[Delta]", "1"], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SubsuperscriptBox["\[Gamma]", "2", "3"], " ", 
                    SubsuperscriptBox["\[Gamma]", "v", "3"]}], "+", 
                    RowBox[{"2", " ", 
                    SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
                    SubscriptBox["\[Gamma]", "v"], " ", 
                    SubscriptBox["\[Delta]", "2"]}], "+", 
                    RowBox[{
                    SubscriptBox["\[Delta]", "2"], " ", 
                    SubscriptBox["\[Epsilon]", "2"]}]}], ")"}]}]}], ")"}], 
                "2"]}], ")"}]}]]}], ")"}]}]}]}]}], ",", 
     RowBox[{
      SubscriptBox["i", "1"], "\[Rule]", 
      RowBox[{"-", 
       RowBox[{
        FractionBox["1", 
         RowBox[{"2", " ", 
          SubscriptBox["n", "v"], " ", 
          SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
          SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
          SubscriptBox["\[Gamma]", "v"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SubscriptBox["\[Gamma]", "1"], " ", 
             SubsuperscriptBox["\[Gamma]", "v", "2"]}], "+", 
            SubscriptBox["\[Delta]", "1"]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", 
              SubscriptBox["\[Gamma]", "2"]}], " ", 
             SubscriptBox["\[Delta]", "1"]}], "+", 
            RowBox[{
             SubscriptBox["\[Gamma]", "1"], " ", 
             SubscriptBox["\[Delta]", "2"]}]}], ")"}], " ", 
          SubscriptBox["\[Epsilon]", "1"]}]], 
        RowBox[{
         SubscriptBox["n", "1"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", 
             SubscriptBox["n", "v"]}], " ", 
            SubsuperscriptBox["\[Gamma]", "1", "3"], " ", 
            SubsuperscriptBox["\[Gamma]", "2", "3"], " ", 
            SubsuperscriptBox["\[Gamma]", "v", "4"], " ", 
            SubscriptBox["\[Delta]", "1"]}], "+", 
           RowBox[{
            SubscriptBox["n", "v"], " ", 
            SubsuperscriptBox["\[Gamma]", "1", "4"], " ", 
            SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
            SubsuperscriptBox["\[Gamma]", "v", "4"], " ", 
            SubscriptBox["\[Delta]", "2"]}], "+", 
           RowBox[{
            SubscriptBox["n", "v"], " ", 
            SubscriptBox["\[Gamma]", "1"], " ", 
            SubsuperscriptBox["\[Gamma]", "2", "3"], " ", 
            SubsuperscriptBox["\[Gamma]", "v", "3"], " ", 
            SubscriptBox["\[Delta]", "1"], " ", 
            SubscriptBox["\[Epsilon]", "1"]}], "+", 
           RowBox[{"2", " ", 
            SubscriptBox["n", "v"], " ", 
            SubsuperscriptBox["\[Gamma]", "2", "3"], " ", 
            SubscriptBox["\[Gamma]", "v"], " ", 
            SubsuperscriptBox["\[Delta]", "1", "2"], " ", 
            SubscriptBox["\[Epsilon]", "1"]}], "-", 
           RowBox[{
            SubscriptBox["n", "v"], " ", 
            SubscriptBox["\[Gamma]", "1"], " ", 
            SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
            SubscriptBox["\[Gamma]", "v"], " ", 
            SubscriptBox["\[Delta]", "1"], " ", 
            SubscriptBox["\[Delta]", "2"], " ", 
            SubscriptBox["\[Epsilon]", "1"]}], "+", 
           RowBox[{
            SubscriptBox["n", "v"], " ", 
            SubsuperscriptBox["\[Gamma]", "1", "4"], " ", 
            SubsuperscriptBox["\[Gamma]", "v", "3"], " ", 
            SubscriptBox["\[Delta]", "2"], " ", 
            SubscriptBox["\[Epsilon]", "2"]}], "+", 
           RowBox[{
            SubscriptBox["n", "v"], " ", 
            SubsuperscriptBox["\[Gamma]", "1", "3"], " ", 
            SubscriptBox["\[Gamma]", "v"], " ", 
            SubscriptBox["\[Delta]", "1"], " ", 
            SubscriptBox["\[Delta]", "2"], " ", 
            SubscriptBox["\[Epsilon]", "2"]}], "+", 
           RowBox[{
            SubscriptBox["\[Gamma]", "1"], " ", 
            SqrtBox[
             RowBox[{
              SubsuperscriptBox["n", "v", "2"], " ", 
              SubsuperscriptBox["\[Gamma]", "v", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "4"}], " ", 
                 SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
                 SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
                 SubscriptBox["\[Gamma]", "v"], " ", 
                 SubscriptBox["\[Delta]", "1"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SubscriptBox["\[Gamma]", "1"], " ", 
                    SubsuperscriptBox["\[Gamma]", "v", "2"]}], "+", 
                   SubscriptBox["\[Delta]", "1"]}], ")"}], " ", 
                 SubscriptBox["\[Delta]", "2"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SubscriptBox["\[Gamma]", "2"], " ", 
                    SubsuperscriptBox["\[Gamma]", "v", "2"]}], "+", 
                   SubscriptBox["\[Delta]", "2"]}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
                    SubscriptBox["\[Epsilon]", "1"]}], "+", 
                   RowBox[{
                    SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
                    SubscriptBox["\[Gamma]", "v"]}], "+", 
                    SubscriptBox["\[Epsilon]", "2"]}], ")"}]}]}], ")"}]}], 
                "+", 
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
                    SubscriptBox["\[Delta]", "1"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SubscriptBox["\[Gamma]", "2"], " ", 
                    SubsuperscriptBox["\[Gamma]", "v", "2"]}], "+", 
                    SubscriptBox["\[Delta]", "2"]}], ")"}], " ", 
                    SubscriptBox["\[Epsilon]", "1"]}], "+", 
                   RowBox[{
                    SubsuperscriptBox["\[Gamma]", "1", "3"], " ", 
                    SubsuperscriptBox["\[Gamma]", "v", "2"], " ", 
                    SubscriptBox["\[Delta]", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
                    SubscriptBox["\[Gamma]", "v"]}], "+", 
                    SubscriptBox["\[Epsilon]", "2"]}], ")"}]}], "+", 
                   RowBox[{
                    SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
                    SubscriptBox["\[Delta]", "1"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SubsuperscriptBox["\[Gamma]", "2", "3"], " ", 
                    SubsuperscriptBox["\[Gamma]", "v", "3"]}], "+", 
                    RowBox[{"2", " ", 
                    SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
                    SubscriptBox["\[Gamma]", "v"], " ", 
                    SubscriptBox["\[Delta]", "2"]}], "+", 
                    RowBox[{
                    SubscriptBox["\[Delta]", "2"], " ", 
                    SubscriptBox["\[Epsilon]", "2"]}]}], ")"}]}]}], ")"}], 
                 "2"]}], ")"}]}]]}]}], ")"}]}]}]}]}], ",", 
     RowBox[{
      SubscriptBox["i", "2"], "\[Rule]", 
      RowBox[{
       FractionBox["1", 
        RowBox[{"2", " ", 
         SubscriptBox["n", "v"], " ", 
         SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
         SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
         SubscriptBox["\[Gamma]", "v"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SubscriptBox["\[Gamma]", "2"], " ", 
            SubsuperscriptBox["\[Gamma]", "v", "2"]}], "+", 
           SubscriptBox["\[Delta]", "2"]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", 
             SubscriptBox["\[Gamma]", "2"]}], " ", 
            SubscriptBox["\[Delta]", "1"]}], "+", 
           RowBox[{
            SubscriptBox["\[Gamma]", "1"], " ", 
            SubscriptBox["\[Delta]", "2"]}]}], ")"}], " ", 
         SubscriptBox["\[Epsilon]", "2"]}]], 
       RowBox[{
        SubscriptBox["n", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox["n", "v"], " ", 
           SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
           SubsuperscriptBox["\[Gamma]", "2", "4"], " ", 
           SubsuperscriptBox["\[Gamma]", "v", "4"], " ", 
           SubscriptBox["\[Delta]", "1"]}], "-", 
          RowBox[{
           SubscriptBox["n", "v"], " ", 
           SubsuperscriptBox["\[Gamma]", "1", "3"], " ", 
           SubsuperscriptBox["\[Gamma]", "2", "3"], " ", 
           SubsuperscriptBox["\[Gamma]", "v", "4"], " ", 
           SubscriptBox["\[Delta]", "2"]}], "+", 
          RowBox[{
           SubscriptBox["n", "v"], " ", 
           SubsuperscriptBox["\[Gamma]", "2", "4"], " ", 
           SubsuperscriptBox["\[Gamma]", "v", "3"], " ", 
           SubscriptBox["\[Delta]", "1"], " ", 
           SubscriptBox["\[Epsilon]", "1"]}], "+", 
          RowBox[{
           SubscriptBox["n", "v"], " ", 
           SubsuperscriptBox["\[Gamma]", "2", "3"], " ", 
           SubscriptBox["\[Gamma]", "v"], " ", 
           SubscriptBox["\[Delta]", "1"], " ", 
           SubscriptBox["\[Delta]", "2"], " ", 
           SubscriptBox["\[Epsilon]", "1"]}], "+", 
          RowBox[{
           SubscriptBox["n", "v"], " ", 
           SubsuperscriptBox["\[Gamma]", "1", "3"], " ", 
           SubscriptBox["\[Gamma]", "2"], " ", 
           SubsuperscriptBox["\[Gamma]", "v", "3"], " ", 
           SubscriptBox["\[Delta]", "2"], " ", 
           SubscriptBox["\[Epsilon]", "2"]}], "-", 
          RowBox[{
           SubscriptBox["n", "v"], " ", 
           SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
           SubscriptBox["\[Gamma]", "2"], " ", 
           SubscriptBox["\[Gamma]", "v"], " ", 
           SubscriptBox["\[Delta]", "1"], " ", 
           SubscriptBox["\[Delta]", "2"], " ", 
           SubscriptBox["\[Epsilon]", "2"]}], "+", 
          RowBox[{"2", " ", 
           SubscriptBox["n", "v"], " ", 
           SubsuperscriptBox["\[Gamma]", "1", "3"], " ", 
           SubscriptBox["\[Gamma]", "v"], " ", 
           SubsuperscriptBox["\[Delta]", "2", "2"], " ", 
           SubscriptBox["\[Epsilon]", "2"]}], "+", 
          RowBox[{
           SubscriptBox["\[Gamma]", "2"], " ", 
           SqrtBox[
            RowBox[{
             SubsuperscriptBox["n", "v", "2"], " ", 
             SubsuperscriptBox["\[Gamma]", "v", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "4"}], " ", 
                SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
                SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
                SubscriptBox["\[Gamma]", "v"], " ", 
                SubscriptBox["\[Delta]", "1"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   SubscriptBox["\[Gamma]", "1"], " ", 
                   SubsuperscriptBox["\[Gamma]", "v", "2"]}], "+", 
                  SubscriptBox["\[Delta]", "1"]}], ")"}], " ", 
                SubscriptBox["\[Delta]", "2"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   SubscriptBox["\[Gamma]", "2"], " ", 
                   SubsuperscriptBox["\[Gamma]", "v", "2"]}], "+", 
                  SubscriptBox["\[Delta]", "2"]}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
                   SubscriptBox["\[Epsilon]", "1"]}], "+", 
                  RowBox[{
                   SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
                    SubscriptBox["\[Gamma]", "v"]}], "+", 
                    SubscriptBox["\[Epsilon]", "2"]}], ")"}]}]}], ")"}]}], 
               "+", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
                   SubscriptBox["\[Delta]", "1"], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SubscriptBox["\[Gamma]", "2"], " ", 
                    SubsuperscriptBox["\[Gamma]", "v", "2"]}], "+", 
                    SubscriptBox["\[Delta]", "2"]}], ")"}], " ", 
                   SubscriptBox["\[Epsilon]", "1"]}], "+", 
                  RowBox[{
                   SubsuperscriptBox["\[Gamma]", "1", "3"], " ", 
                   SubsuperscriptBox["\[Gamma]", "v", "2"], " ", 
                   SubscriptBox["\[Delta]", "2"], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
                    SubscriptBox["\[Gamma]", "v"]}], "+", 
                    SubscriptBox["\[Epsilon]", "2"]}], ")"}]}], "+", 
                  RowBox[{
                   SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
                   SubscriptBox["\[Delta]", "1"], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SubsuperscriptBox["\[Gamma]", "2", "3"], " ", 
                    SubsuperscriptBox["\[Gamma]", "v", "3"]}], "+", 
                    RowBox[{"2", " ", 
                    SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
                    SubscriptBox["\[Gamma]", "v"], " ", 
                    SubscriptBox["\[Delta]", "2"]}], "+", 
                    RowBox[{
                    SubscriptBox["\[Delta]", "2"], " ", 
                    SubscriptBox["\[Epsilon]", "2"]}]}], ")"}]}]}], ")"}], 
                "2"]}], ")"}]}]]}]}], ")"}]}]}]}], ",", 
     RowBox[{
      SubscriptBox["s", "v"], "\[Rule]", 
      RowBox[{
       FractionBox["1", 
        RowBox[{"2", " ", 
         SubsuperscriptBox["\[Gamma]", "v", "3"], " ", 
         SubscriptBox["\[Delta]", "1"], " ", 
         SubscriptBox["\[Delta]", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
            SubscriptBox["\[Epsilon]", "1"]}], "+", 
           RowBox[{
            SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
               SubscriptBox["\[Gamma]", "v"]}], "+", 
              SubscriptBox["\[Epsilon]", "2"]}], ")"}]}]}], ")"}]}]], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SubscriptBox["n", "v"], " ", 
          SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
          SubsuperscriptBox["\[Gamma]", "2", "3"], " ", 
          SubsuperscriptBox["\[Gamma]", "v", "4"], " ", 
          SubscriptBox["\[Delta]", "1"]}], "+", 
         RowBox[{
          SubscriptBox["n", "v"], " ", 
          SubsuperscriptBox["\[Gamma]", "1", "3"], " ", 
          SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
          SubsuperscriptBox["\[Gamma]", "v", "4"], " ", 
          SubscriptBox["\[Delta]", "2"]}], "+", 
         RowBox[{"2", " ", 
          SubscriptBox["n", "v"], " ", 
          SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
          SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
          SubsuperscriptBox["\[Gamma]", "v", "2"], " ", 
          SubscriptBox["\[Delta]", "1"], " ", 
          SubscriptBox["\[Delta]", "2"]}], "+", 
         RowBox[{
          SubscriptBox["n", "v"], " ", 
          SubsuperscriptBox["\[Gamma]", "2", "3"], " ", 
          SubsuperscriptBox["\[Gamma]", "v", "3"], " ", 
          SubscriptBox["\[Delta]", "1"], " ", 
          SubscriptBox["\[Epsilon]", "1"]}], "+", 
         RowBox[{
          SubscriptBox["n", "v"], " ", 
          SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
          SubscriptBox["\[Gamma]", "v"], " ", 
          SubscriptBox["\[Delta]", "1"], " ", 
          SubscriptBox["\[Delta]", "2"], " ", 
          SubscriptBox["\[Epsilon]", "1"]}], "+", 
         RowBox[{
          SubscriptBox["n", "v"], " ", 
          SubsuperscriptBox["\[Gamma]", "1", "3"], " ", 
          SubsuperscriptBox["\[Gamma]", "v", "3"], " ", 
          SubscriptBox["\[Delta]", "2"], " ", 
          SubscriptBox["\[Epsilon]", "2"]}], "+", 
         RowBox[{
          SubscriptBox["n", "v"], " ", 
          SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
          SubscriptBox["\[Gamma]", "v"], " ", 
          SubscriptBox["\[Delta]", "1"], " ", 
          SubscriptBox["\[Delta]", "2"], " ", 
          SubscriptBox["\[Epsilon]", "2"]}], "+", 
         SqrtBox[
          RowBox[{
           SubsuperscriptBox["n", "v", "2"], " ", 
           SubsuperscriptBox["\[Gamma]", "v", "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "4"}], " ", 
              SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
              SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
              SubscriptBox["\[Gamma]", "v"], " ", 
              SubscriptBox["\[Delta]", "1"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SubscriptBox["\[Gamma]", "1"], " ", 
                 SubsuperscriptBox["\[Gamma]", "v", "2"]}], "+", 
                SubscriptBox["\[Delta]", "1"]}], ")"}], " ", 
              SubscriptBox["\[Delta]", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SubscriptBox["\[Gamma]", "2"], " ", 
                 SubsuperscriptBox["\[Gamma]", "v", "2"]}], "+", 
                SubscriptBox["\[Delta]", "2"]}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
                 SubscriptBox["\[Epsilon]", "1"]}], "+", 
                RowBox[{
                 SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
                    SubscriptBox["\[Gamma]", "v"]}], "+", 
                   SubscriptBox["\[Epsilon]", "2"]}], ")"}]}]}], ")"}]}], "+", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
                 SubscriptBox["\[Delta]", "1"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SubscriptBox["\[Gamma]", "2"], " ", 
                    SubsuperscriptBox["\[Gamma]", "v", "2"]}], "+", 
                   SubscriptBox["\[Delta]", "2"]}], ")"}], " ", 
                 SubscriptBox["\[Epsilon]", "1"]}], "+", 
                RowBox[{
                 SubsuperscriptBox["\[Gamma]", "1", "3"], " ", 
                 SubsuperscriptBox["\[Gamma]", "v", "2"], " ", 
                 SubscriptBox["\[Delta]", "2"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
                    SubscriptBox["\[Gamma]", "v"]}], "+", 
                   SubscriptBox["\[Epsilon]", "2"]}], ")"}]}], "+", 
                RowBox[{
                 SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
                 SubscriptBox["\[Delta]", "1"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SubsuperscriptBox["\[Gamma]", "2", "3"], " ", 
                    SubsuperscriptBox["\[Gamma]", "v", "3"]}], "+", 
                   RowBox[{"2", " ", 
                    SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
                    SubscriptBox["\[Gamma]", "v"], " ", 
                    SubscriptBox["\[Delta]", "2"]}], "+", 
                   RowBox[{
                    SubscriptBox["\[Delta]", "2"], " ", 
                    SubscriptBox["\[Epsilon]", "2"]}]}], ")"}]}]}], ")"}], 
              "2"]}], ")"}]}]]}], ")"}]}]}], ",", 
     RowBox[{
      SubscriptBox["i", "v"], "\[Rule]", 
      RowBox[{"-", 
       RowBox[{
        FractionBox["1", 
         RowBox[{"2", " ", 
          SubsuperscriptBox["\[Gamma]", "v", "3"], " ", 
          SubscriptBox["\[Delta]", "1"], " ", 
          SubscriptBox["\[Delta]", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
             SubscriptBox["\[Epsilon]", "1"]}], "+", 
            RowBox[{
             SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
                SubscriptBox["\[Gamma]", "v"]}], "+", 
               SubscriptBox["\[Epsilon]", "2"]}], ")"}]}]}], ")"}]}]], 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SubscriptBox["n", "v"], " ", 
           SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
           SubsuperscriptBox["\[Gamma]", "2", "3"], " ", 
           SubsuperscriptBox["\[Gamma]", "v", "4"], " ", 
           SubscriptBox["\[Delta]", "1"]}], "+", 
          RowBox[{
           SubscriptBox["n", "v"], " ", 
           SubsuperscriptBox["\[Gamma]", "1", "3"], " ", 
           SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
           SubsuperscriptBox["\[Gamma]", "v", "4"], " ", 
           SubscriptBox["\[Delta]", "2"]}], "+", 
          RowBox[{
           SubscriptBox["n", "v"], " ", 
           SubsuperscriptBox["\[Gamma]", "2", "3"], " ", 
           SubsuperscriptBox["\[Gamma]", "v", "3"], " ", 
           SubscriptBox["\[Delta]", "1"], " ", 
           SubscriptBox["\[Epsilon]", "1"]}], "-", 
          RowBox[{
           SubscriptBox["n", "v"], " ", 
           SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
           SubscriptBox["\[Gamma]", "v"], " ", 
           SubscriptBox["\[Delta]", "1"], " ", 
           SubscriptBox["\[Delta]", "2"], " ", 
           SubscriptBox["\[Epsilon]", "1"]}], "+", 
          RowBox[{
           SubscriptBox["n", "v"], " ", 
           SubsuperscriptBox["\[Gamma]", "1", "3"], " ", 
           SubsuperscriptBox["\[Gamma]", "v", "3"], " ", 
           SubscriptBox["\[Delta]", "2"], " ", 
           SubscriptBox["\[Epsilon]", "2"]}], "-", 
          RowBox[{
           SubscriptBox["n", "v"], " ", 
           SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
           SubscriptBox["\[Gamma]", "v"], " ", 
           SubscriptBox["\[Delta]", "1"], " ", 
           SubscriptBox["\[Delta]", "2"], " ", 
           SubscriptBox["\[Epsilon]", "2"]}], "+", 
          SqrtBox[
           RowBox[{
            SubsuperscriptBox["n", "v", "2"], " ", 
            SubsuperscriptBox["\[Gamma]", "v", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "4"}], " ", 
               SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
               SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
               SubscriptBox["\[Gamma]", "v"], " ", 
               SubscriptBox["\[Delta]", "1"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  SubscriptBox["\[Gamma]", "1"], " ", 
                  SubsuperscriptBox["\[Gamma]", "v", "2"]}], "+", 
                 SubscriptBox["\[Delta]", "1"]}], ")"}], " ", 
               SubscriptBox["\[Delta]", "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  SubscriptBox["\[Gamma]", "2"], " ", 
                  SubsuperscriptBox["\[Gamma]", "v", "2"]}], "+", 
                 SubscriptBox["\[Delta]", "2"]}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
                  SubscriptBox["\[Epsilon]", "1"]}], "+", 
                 RowBox[{
                  SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
                    SubscriptBox["\[Gamma]", "v"]}], "+", 
                    SubscriptBox["\[Epsilon]", "2"]}], ")"}]}]}], ")"}]}], 
              "+", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
                  SubscriptBox["\[Delta]", "1"], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    SubscriptBox["\[Gamma]", "2"], " ", 
                    SubsuperscriptBox["\[Gamma]", "v", "2"]}], "+", 
                    SubscriptBox["\[Delta]", "2"]}], ")"}], " ", 
                  SubscriptBox["\[Epsilon]", "1"]}], "+", 
                 RowBox[{
                  SubsuperscriptBox["\[Gamma]", "1", "3"], " ", 
                  SubsuperscriptBox["\[Gamma]", "v", "2"], " ", 
                  SubscriptBox["\[Delta]", "2"], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
                    SubscriptBox["\[Gamma]", "v"]}], "+", 
                    SubscriptBox["\[Epsilon]", "2"]}], ")"}]}], "+", 
                 RowBox[{
                  SubsuperscriptBox["\[Gamma]", "1", "2"], " ", 
                  SubscriptBox["\[Delta]", "1"], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    SubsuperscriptBox["\[Gamma]", "2", "3"], " ", 
                    SubsuperscriptBox["\[Gamma]", "v", "3"]}], "+", 
                    RowBox[{"2", " ", 
                    SubsuperscriptBox["\[Gamma]", "2", "2"], " ", 
                    SubscriptBox["\[Gamma]", "v"], " ", 
                    SubscriptBox["\[Delta]", "2"]}], "+", 
                    RowBox[{
                    SubscriptBox["\[Delta]", "2"], " ", 
                    SubscriptBox["\[Epsilon]", "2"]}]}], ")"}]}]}], ")"}], 
               "2"]}], ")"}]}]]}], ")"}]}]}]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.790534232979817*^9, 3.790534338486579*^9, 
  3.7905345431504774`*^9, 3.7905347594600773`*^9, 3.7910318633847475`*^9},
 CellLabel->"Out[4]=",ExpressionUUID->"d4f9af1d-1566-484b-97e3-94e9f2f622e7"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Find Equilibrium of 2 Space, 1 Host with only Host Movement", \
"Subsection",
 CellChangeTimes->{{3.7903423287934933`*^9, 
  3.790342367978387*^9}},ExpressionUUID->"d88de728-8919-4782-8e8a-\
e55357a16896"],

Cell["Notes: Mathematica is unable to compile Equilibrium value", "Text",
 CellChangeTimes->{{3.7903423784430437`*^9, 
  3.7903423976218967`*^9}},ExpressionUUID->"f9f075a8-9343-4730-8f76-\
f34983ed394d"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.789948715520694*^9, 
  3.7899487156854763`*^9}},ExpressionUUID->"0459f21f-adc6-404c-ba3c-\
d6fc765013eb"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"eqn", "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       SubscriptBox["ds", "1"], "==", 
       RowBox[{
        SubscriptBox["\[Sigma]", "1"], "-", 
        RowBox[{
         SubscriptBox["\[Beta]", "1"], 
         SubscriptBox["b", "1"], 
         SubscriptBox["s", "1"]}], "-", 
        RowBox[{
         SubscriptBox["\[Gamma]", "1"], 
         SubscriptBox["s", "1"]}], "+", 
        RowBox[{"\[Lambda]", " ", 
         SubscriptBox["s", "2"]}], "-", 
        RowBox[{"\[Lambda]", " ", 
         SubscriptBox["s", "1"]}]}]}], ",", "\[IndentingNewLine]", "\t", 
      RowBox[{
       SubscriptBox["di", "1"], "==", 
       RowBox[{
        RowBox[{
         SubscriptBox["\[Beta]", "1"], 
         SubscriptBox["b", "1"], 
         SubscriptBox["s", "1"]}], "-", 
        RowBox[{
         SubscriptBox["\[Gamma]", "1"], 
         SubscriptBox["i", "1"]}], "+", 
        RowBox[{"\[Lambda]", " ", 
         SubscriptBox["i", "2"]}], "-", 
        RowBox[{"\[Lambda]", " ", 
         SubscriptBox["i", "1"]}]}]}], ",", "\[IndentingNewLine]", "\t", 
      RowBox[{
       SubscriptBox["da", "1"], "==", 
       RowBox[{
        SubscriptBox["\[Theta]", "1"], "-", 
        RowBox[{
         SubscriptBox["\[Alpha]", "1"], 
         SubscriptBox["a", "1"], 
         SubscriptBox["i", "1"]}], "-", 
        RowBox[{
         SubscriptBox["\[Mu]", "1"], 
         SubscriptBox["a", "1"]}]}]}], ",", "\[IndentingNewLine]", "\t", 
      RowBox[{
       SubscriptBox["db", "1"], "==", 
       RowBox[{
        RowBox[{
         SubscriptBox["\[Alpha]", "1"], 
         SubscriptBox["a", "1"], 
         SubscriptBox["i", "1"]}], "-", 
        RowBox[{
         SubscriptBox["\[Mu]", "1"], 
         SubscriptBox["b", "1"]}]}]}], ",", "\[IndentingNewLine]", "\t", 
      RowBox[{
       SubscriptBox["ds", "2"], "==", 
       RowBox[{
        SubscriptBox["\[Sigma]", "2"], "-", 
        RowBox[{
         SubscriptBox["\[Beta]", "2"], 
         SubscriptBox["b", "2"], 
         SubscriptBox["s", "2"]}], "-", 
        RowBox[{
         SubscriptBox["\[Gamma]", "2"], 
         SubscriptBox["s", "2"]}], "-", 
        RowBox[{"\[Lambda]", " ", 
         SubscriptBox["s", "2"]}], "+", 
        RowBox[{"\[Lambda]", " ", 
         SubscriptBox["s", "1"]}]}]}], ",", "\[IndentingNewLine]", "\t", 
      RowBox[{
       SubscriptBox["di", "2"], "==", 
       RowBox[{
        RowBox[{
         SubscriptBox["\[Beta]", "2"], 
         SubscriptBox["b", "2"], 
         SubscriptBox["s", "2"]}], "-", 
        RowBox[{
         SubscriptBox["\[Gamma]", "2"], 
         SubscriptBox["i", "2"]}], "-", 
        RowBox[{"\[Lambda]", " ", 
         SubscriptBox["i", "2"]}], "+", 
        RowBox[{"\[Lambda]", " ", 
         SubscriptBox["i", "1"]}]}]}], ",", "\[IndentingNewLine]", "\t", 
      RowBox[{
       SubscriptBox["da", "2"], "==", 
       RowBox[{
        SubscriptBox["\[Theta]", "2"], "-", 
        RowBox[{
         SubscriptBox["\[Alpha]", "2"], 
         SubscriptBox["a", "2"], 
         SubscriptBox["i", "2"]}], "-", 
        RowBox[{
         SubscriptBox["\[Mu]", "2"], 
         SubscriptBox["a", "2"]}]}]}], ",", "\[IndentingNewLine]", "\t", 
      RowBox[{
       SubscriptBox["db", "2"], "==", 
       RowBox[{
        RowBox[{
         SubscriptBox["\[Alpha]", "2"], 
         SubscriptBox["a", "2"], 
         SubscriptBox["i", "2"]}], "-", 
        RowBox[{
         SubscriptBox["\[Mu]", "2"], 
         SubscriptBox["b", "2"]}]}]}]}], "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["ds", "1"], "=", "0"}], ";", 
  RowBox[{
   SubscriptBox["ds", "2"], "=", "0"}], ";", 
  RowBox[{
   SubscriptBox["di", "1"], "=", "0"}], ";", 
  RowBox[{
   SubscriptBox["di", "2"], "=", "0"}], ";", 
  RowBox[{
   SubscriptBox["da", "1"], "=", "0"}], ";", 
  RowBox[{
   SubscriptBox["da", "2"], "=", "0"}], ";", 
  RowBox[{
   SubscriptBox["db", "1"], "=", "0"}], ";", 
  RowBox[{
   SubscriptBox["db", "2"], "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Simplify", "[", 
  RowBox[{"Solve", "[", 
   RowBox[{"eqn", ",", 
    RowBox[{"{", 
     RowBox[{
      SubscriptBox["s", "1"], ",", 
      SubscriptBox["i", "1"], ",", 
      SubscriptBox["s", "2"], ",", 
      SubscriptBox["i", "2"], ",", 
      SubscriptBox["a", "1"], ",", " ", 
      SubscriptBox["b", "1"], ",", 
      SubscriptBox["a", "2"], ",", " ", 
      SubscriptBox["b", "2"]}], "}"}]}], "]"}], 
  "]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.79034036868624*^9, 3.790340608284335*^9}, {
  3.790340705363623*^9, 3.790340799743676*^9}, {3.790340873426304*^9, 
  3.7903408854414825`*^9}, {3.7903410137114706`*^9, 3.7903410816546454`*^9}},
 CellLabel->"In[17]:=",ExpressionUUID->"2bbc6dd5-c346-4cf0-9576-33ace794403d"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.790340841496587*^9, 
  3.790340846484456*^9}},ExpressionUUID->"418baed5-0846-4162-9c76-\
041a8d8791d1"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Model Compression", "Section",
 CellChangeTimes->{{3.7910355833890734`*^9, 
  3.791035593507682*^9}},ExpressionUUID->"f84f4dfb-60a7-4e4e-9824-\
db800391f351"],

Cell[TextData[{
 "We take the expressions for the single host ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["S", "V"], TraditionalForm]],
  FormatType->"TraditionalForm",ExpressionUUID->
  "f6fa9838-d203-4811-a553-0211f898f704"],
 " equilibrium conditions and the approximate double host ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["S", 
    RowBox[{"V", " "}]], TraditionalForm]],
  FormatType->"TraditionalForm",ExpressionUUID->
  "76e9552d-b621-40d2-860c-242f2a45cde7"],
 "equilibrium condition below."
}], "Text",
 CellChangeTimes->{{3.791035598492386*^9, 3.791035654783738*^9}, {
  3.791035847422287*^9, 
  3.791035888028676*^9}},ExpressionUUID->"0b5d9f66-4a97-4e2b-a3c8-\
5736132a1be5"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   SubscriptBox["S", "V"], "==", 
   FractionBox[
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       SubscriptBox["n", "3"]}], " ", 
      SubscriptBox["\[Beta]", "1"], " ", 
      SubscriptBox["\[Kappa]", "2"], " ", 
      SubscriptBox["\[Nu]", "1"]}], "-", 
     RowBox[{
      SubscriptBox["n", "3"], " ", 
      SubscriptBox["\[Beta]", "2"], " ", 
      SubscriptBox["\[Kappa]", "1"], " ", 
      SubscriptBox["\[Nu]", "2"]}], "+", 
     RowBox[{
      SubscriptBox["n", "3"], " ", 
      SubscriptBox["\[Kappa]", "2"], " ", 
      SubscriptBox["\[Nu]", "1"], " ", 
      SubscriptBox["\[Nu]", "3"]}], "+", 
     RowBox[{
      SubscriptBox["n", "3"], " ", 
      SubscriptBox["\[Kappa]", "1"], " ", 
      SubscriptBox["\[Nu]", "2"], " ", 
      SubscriptBox["\[Nu]", "3"]}], "+", 
     SqrtBox[
      RowBox[{
       SubsuperscriptBox["n", "3", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"4", " ", 
          SubscriptBox["\[Kappa]", "1"], " ", 
          SubscriptBox["\[Kappa]", "2"], " ", 
          SubscriptBox["\[Nu]", "1"], " ", 
          SubscriptBox["\[Nu]", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            SubscriptBox["\[Beta]", "1"], "+", 
            SubscriptBox["\[Beta]", "2"], "-", 
            SubscriptBox["\[Nu]", "3"]}], ")"}], " ", 
          SubscriptBox["\[Nu]", "3"]}], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SubscriptBox["\[Beta]", "1"], " ", 
             SubscriptBox["\[Kappa]", "2"], " ", 
             SubscriptBox["\[Nu]", "1"]}], "+", 
            RowBox[{
             SubscriptBox["\[Beta]", "2"], " ", 
             SubscriptBox["\[Kappa]", "1"], " ", 
             SubscriptBox["\[Nu]", "2"]}], "-", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SubscriptBox["\[Kappa]", "2"], " ", 
                SubscriptBox["\[Nu]", "1"]}], "+", 
               RowBox[{
                SubscriptBox["\[Kappa]", "1"], " ", 
                SubscriptBox["\[Nu]", "2"]}]}], ")"}], " ", 
             SubscriptBox["\[Nu]", "3"]}]}], ")"}], "2"]}], ")"}]}]]}], 
    RowBox[{"2", " ", 
     SubscriptBox["\[Kappa]", "1"], " ", 
     SubscriptBox["\[Kappa]", "2"], " ", 
     SubscriptBox["\[Nu]", "3"]}]]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["S", 
    RowBox[{"V", ",", "Aprox"}]], "==", 
   FractionBox[
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       SubscriptBox["n", "3"]}], " ", 
      SubscriptBox["\[Beta]", "1"], " ", 
      SubscriptBox["\[Kappa]", "2"], " ", 
      SubscriptBox["\[Nu]", "1"]}], "-", 
     RowBox[{
      SubscriptBox["n", "3"], " ", 
      SubscriptBox["\[Beta]", "2"], " ", 
      SubscriptBox["\[Kappa]", "1"], " ", 
      SubscriptBox["\[Nu]", "2"]}], "+", 
     RowBox[{
      SubscriptBox["n", "3"], " ", 
      SubscriptBox["\[Kappa]", "2"], " ", 
      SubscriptBox["\[Nu]", "1"], " ", 
      SubscriptBox["\[Nu]", "3"]}], "+", 
     RowBox[{
      SubscriptBox["n", "3"], " ", 
      SubscriptBox["\[Kappa]", "1"], " ", 
      SubscriptBox["\[Nu]", "2"], " ", 
      SubscriptBox["\[Nu]", "3"]}]}], 
    RowBox[{" ", 
     RowBox[{
      SubscriptBox["\[Kappa]", "1"], " ", 
      SubscriptBox["\[Kappa]", "2"], " ", 
      SubscriptBox["\[Nu]", "3"]}]}]]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7910359131180587`*^9, 3.7910359185311613`*^9}, {
  3.7910359516446667`*^9, 3.791035972679407*^9}, {3.7910361091758976`*^9, 
  3.7910361150564675`*^9}},ExpressionUUID->"b230cbfe-66f2-4ef4-b9d7-\
0ffc23f4812b"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SubscriptBox[
    OverscriptBox["S", "~"], "V"], "==", 
   FractionBox[
    RowBox[{
     SubscriptBox["n", "3"], " ", 
     SubscriptBox["\[Nu]", "1"], " ", 
     RowBox[{"(", 
      RowBox[{
       SubscriptBox["\[Nu]", "3"], "-", 
       SubscriptBox["\[Beta]", "1"]}], ")"}]}], 
    RowBox[{
     SubscriptBox["\[Kappa]", "1"], " ", 
     SubscriptBox["\[Nu]", "3"]}]]}], ";"}]], "Input",
 CellChangeTimes->{{3.7910359779655313`*^9, 3.791036047300169*^9}, {
  3.7910360796031837`*^9, 3.791036116841302*^9}},
 CellLabel->"In[11]:=",ExpressionUUID->"df7b761f-82dd-4c93-b607-cdae81c77d00"],

Cell[TextData[{
 "We next recognize that we want to preserve the numerators and denominators \
seperately since the numerators are conserved for each ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["S", "i"], TraditionalForm]],
  FormatType->"TraditionalForm",ExpressionUUID->
  "41c4ad4f-6aa0-4050-b7da-4fff653b8459"],
 ". We therefore define the following systems we which to solve,"
}], "Text",
 CellChangeTimes->{{3.791036102086618*^9, 3.791036127830476*^9}, {
  3.7910362495520735`*^9, 
  3.7910362958752637`*^9}},ExpressionUUID->"94baca6c-cf4d-42ef-8371-\
7b11bb67b384"],

Cell["", "Text",
 CellChangeTimes->{
  3.7910358962072325`*^9},ExpressionUUID->"6d490902-d4c4-4f97-b156-\
58b89430768b"]
}, Open  ]]
},
WindowSize->{1264, 626},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
Magnification:>0.9 Inherited,
FrontEndVersion->"12.0 for Microsoft Windows (64-bit) (April 8, 2019)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 200, 4, 26, "Input",ExpressionUUID->"b2c95a62-cf9a-4a08-bc78-c2b68e1a922f"],
Cell[CellGroupData[{
Cell[783, 28, 181, 3, 48, "Subsection",ExpressionUUID->"2f301317-e8d7-47ff-943a-72a0517b53e1"],
Cell[967, 33, 394, 11, 31, "Text",ExpressionUUID->"f0ef793b-6212-4fc3-b787-c0b323638c87"],
Cell[1364, 46, 1231, 32, 81, "Input",ExpressionUUID->"1e544cef-d95a-471e-a3f8-31bfec037e6e"],
Cell[2598, 80, 387, 11, 31, "Text",ExpressionUUID->"50b75443-e763-433b-8e0c-e5f308ce6368"],
Cell[2988, 93, 2198, 62, 205, "Input",ExpressionUUID->"adb112f5-1986-4411-9cb6-cac716ff984b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5223, 160, 244, 4, 48, "Subsection",ExpressionUUID->"253b9539-51f8-4693-854c-8c3840017330"],
Cell[5470, 166, 2086, 54, 135, "Input",ExpressionUUID->"06536d39-62e2-41c4-80cc-0085014ae119"],
Cell[7559, 222, 679, 20, 31, "Text",ExpressionUUID->"0e7a61fd-1f34-40d9-9d8a-72a7e8b10b12"],
Cell[8241, 244, 1905, 51, 117, "Input",ExpressionUUID->"7eedf8bd-abac-4e15-a542-92495d8ad5f8"],
Cell[CellGroupData[{
Cell[10171, 299, 376, 9, 40, "Subsubsection",ExpressionUUID->"4486ff1b-a302-4ad5-87ae-79ca3d743f2e"],
Cell[10550, 310, 2727, 84, 187, "Input",ExpressionUUID->"61273fb4-3359-47cb-bf1f-8194942b2f7c"],
Cell[13280, 396, 1590, 47, 31, "Text",ExpressionUUID->"19adef41-cc36-4f37-9855-0b0d44c66a4e"],
Cell[14873, 445, 2106, 58, 117, "Input",ExpressionUUID->"074562bb-f482-45b9-97ed-fd11445d8993"],
Cell[16982, 505, 299, 5, 45, "Input",ExpressionUUID->"20e20938-b35b-4300-95e5-e3c2431ff881"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[17330, 516, 387, 8, 72, "Subsection",ExpressionUUID->"6068ae31-09e8-492f-86c3-653c242c75d4"],
Cell[17720, 526, 747, 12, 88, "Text",ExpressionUUID->"b4a8425b-1415-43c2-9014-453b0359076e"],
Cell[18470, 540, 2801, 75, 171, "Input",ExpressionUUID->"f497bf5c-e3e8-4a81-ad66-b631ab259745"],
Cell[CellGroupData[{
Cell[21296, 619, 323, 8, 40, "Subsubsection",ExpressionUUID->"4627535e-1816-46b6-93af-2dfa86b5c609"],
Cell[21622, 629, 3590, 111, 179, "Input",ExpressionUUID->"eaf8155c-9ab9-4120-b4fd-9b85b7f89c98"]
}, Open  ]],
Cell[CellGroupData[{
Cell[25249, 745, 173, 3, 40, "Subsubsection",ExpressionUUID->"c298604e-574f-471b-b9ba-069a2b7c1218"],
Cell[25425, 750, 933, 19, 26, "Input",ExpressionUUID->"2193ab9f-7101-4b22-8537-605bd10fa93d"],
Cell[26361, 771, 154, 3, 26, "Input",ExpressionUUID->"f092d899-952e-4ec2-95c9-c94abe24ab83"],
Cell[26518, 776, 552, 10, 73, "Text",ExpressionUUID->"074b9877-e6fe-41e9-af38-12752f721b3c"],
Cell[27073, 788, 876, 26, 26, "Input",ExpressionUUID->"d7a2d633-dbb7-4d40-a4ac-c151696efd11"],
Cell[27952, 816, 601, 10, 52, "Text",ExpressionUUID->"bf28a16c-0d05-4f9b-885c-145b7a4e361b"],
Cell[28556, 828, 3899, 100, 33, "Input",ExpressionUUID->"c8819ff1-4525-4797-96f9-424d257feca3"],
Cell[32458, 930, 8024, 217, 143, "Input",ExpressionUUID->"8bd368ca-d389-4519-9709-695780f9cdd1"],
Cell[40485, 1149, 1051, 28, 64, "Text",ExpressionUUID->"1132f220-c2de-4a55-98bd-04f8b3502ddd"],
Cell[41539, 1179, 3005, 83, 153, "Input",ExpressionUUID->"6e04cf5f-1118-4c6c-a66c-b98484b7d63c"],
Cell[44547, 1264, 156, 3, 26, "Input",ExpressionUUID->"f0bd53b0-19ab-4cbf-9de8-92cb95c38abe"],
Cell[44706, 1269, 2105, 63, 31, "Text",ExpressionUUID->"3f8b908c-2320-4eb0-9671-c52402b48612"],
Cell[46814, 1334, 3771, 105, 153, "Input",ExpressionUUID->"0559d303-de69-43b1-890c-825bd7ccae30"],
Cell[50588, 1441, 2249, 70, 31, "Text",ExpressionUUID->"a0c17517-73b4-4d87-9e57-753fa43bbbd1"],
Cell[CellGroupData[{
Cell[52862, 1515, 4817, 134, 153, "Input",ExpressionUUID->"a9505cf8-76c8-4aaf-959f-427b372e2e77"],
Cell[57682, 1651, 41988, 1077, 747, "Output",ExpressionUUID->"da3d9ad3-39b7-4412-8ef5-6f7ccf27a914"]
}, Open  ]],
Cell[99685, 2731, 156, 3, 26, "Input",ExpressionUUID->"0c348641-7984-44ea-a95b-61efa9dbf277"],
Cell[99844, 2736, 342, 6, 31, "Text",ExpressionUUID->"8ef9f21b-085f-49dc-8c0b-a4e5c4f27503"],
Cell[CellGroupData[{
Cell[100211, 2746, 2808, 81, 117, "Input",ExpressionUUID->"726cb7d3-43ff-444e-bd0b-2f52e6bd97e8"],
Cell[103022, 2829, 2500, 77, 107, "Output",ExpressionUUID->"0148b60a-f95f-4fee-870c-3d7a25dd0018"]
}, Open  ]],
Cell[105537, 2909, 334, 11, 31, "Text",ExpressionUUID->"bb54c413-c1ce-46f0-a8c3-f45128b226f5"],
Cell[105874, 2922, 5839, 179, 234, "Input",ExpressionUUID->"2ffbd823-858e-4758-8dd9-e2fb3b59cd4e"],
Cell[111716, 3103, 855, 24, 45, "Input",ExpressionUUID->"13e9dd4c-cf21-4981-a2cb-d7e20594f131"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[112620, 3133, 203, 3, 48, "Subsection",ExpressionUUID->"5bda58e9-7d4d-4c2b-ab23-9393db32aeb1"],
Cell[112826, 3138, 487, 11, 31, "Text",ExpressionUUID->"465fbf08-4584-4dc6-99e8-092866f420a2"],
Cell[113316, 3151, 3344, 94, 225, "Input",ExpressionUUID->"dbe1abe4-5a0f-47e9-9129-5f64d8f560c9"],
Cell[116663, 3247, 154, 3, 26, "Input",ExpressionUUID->"1e8cbea3-7007-4482-8e59-4acb9d16cb0e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[116854, 3255, 255, 6, 48, "Subsection",ExpressionUUID->"3c724737-a788-43c1-98d3-99d74c26e0fc"],
Cell[CellGroupData[{
Cell[117134, 3265, 7970, 215, 333, "Input",ExpressionUUID->"4bd42b15-9872-41f4-bf35-260a190d753c"],
Cell[125107, 3482, 99244, 2344, 1081, "Output",ExpressionUUID->"309ae775-680b-4b8f-ba73-c980dd8390c1"]
}, Open  ]],
Cell[224366, 5829, 1815, 59, 31, "Text",ExpressionUUID->"2356be42-a730-45a0-be51-a6076fbdd7a6"],
Cell[CellGroupData[{
Cell[226206, 5892, 4154, 116, 171, "Input",ExpressionUUID->"849b5552-58d6-44ca-a7f1-31ae77e09364"],
Cell[230363, 6010, 80342, 1837, 1295, "Output",ExpressionUUID->"d4f9af1d-1566-484b-97e3-94e9f2f622e7"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[310754, 7853, 211, 4, 48, "Subsection",ExpressionUUID->"d88de728-8919-4782-8e8a-e55357a16896"],
Cell[310968, 7859, 203, 3, 31, "Text",ExpressionUUID->"f9f075a8-9343-4730-8f76-f34983ed394d"],
Cell[311174, 7864, 154, 3, 26, "Input",ExpressionUUID->"0459f21f-adc6-404c-ba3c-d6fc765013eb"],
Cell[311331, 7869, 4825, 141, 225, "Input",ExpressionUUID->"2bbc6dd5-c346-4cf0-9576-33ace794403d"],
Cell[316159, 8012, 152, 3, 26, "Input",ExpressionUUID->"418baed5-0846-4162-9c76-041a8d8791d1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[316348, 8020, 164, 3, 60, "Section",ExpressionUUID->"f84f4dfb-60a7-4e4e-9824-db800391f351"],
Cell[316515, 8025, 692, 19, 31, "Text",ExpressionUUID->"0b5d9f66-4a97-4e2b-a3c8-5736132a1be5"],
Cell[317210, 8046, 3629, 103, 98, "Input",ExpressionUUID->"b230cbfe-66f2-4ef4-b9d7-0ffc23f4812b"],
Cell[320842, 8151, 628, 18, 46, "Input",ExpressionUUID->"df7b761f-82dd-4c93-b607-cdae81c77d00"],
Cell[321473, 8171, 573, 13, 52, "Text",ExpressionUUID->"94baca6c-cf4d-42ef-8371-7b11bb67b384"],
Cell[322049, 8186, 120, 3, 31, "Text",ExpressionUUID->"6d490902-d4c4-4f97-b156-58b89430768b"]
}, Open  ]]
}
]
*)