doublelaplacian.nb

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

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

(* CreatedBy='Wolfram 14.2' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       154,          7]
NotebookDataLength[    590141,      16848]
NotebookOptionsPosition[    586297,      16775]
NotebookOutlinePosition[    586734,      16792]
CellTagsIndexPosition[    586691,      16789]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"r12", "=", 
    SqrtBox[
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"x2", "-", "x1"}], ")"}], "2"], "+", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"y2", "-", "y1"}], ")"}], "2"], "+", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"z2", "-", "z1"}], ")"}], "2"]}]]}], "\[IndentingNewLine]", 
   RowBox[{"r13", "=", 
    SqrtBox[
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"x3", "-", "x1"}], ")"}], "2"], "+", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"y3", "-", "y1"}], ")"}], "2"], "+", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"z3", "-", "z1"}], ")"}], "2"]}]]}], "\[IndentingNewLine]", 
   RowBox[{"r23", "=", 
    SqrtBox[
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"x3", "-", "x2"}], ")"}], "2"], "+", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"y3", "-", "y2"}], ")"}], "2"], "+", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"z3", "-", "z2"}], ")"}], "2"]}]]}]}]}]], "Input",
 CellChangeTimes->{{3.948967138392956*^9, 3.9489671860425434`*^9}, {
   3.9489673472197056`*^9, 3.9489674722252884`*^9}, {3.948967698345745*^9, 
   3.948967700413353*^9}, {3.9489689083516617`*^9, 3.948968917591652*^9}, 
   3.9489691669741096`*^9, {3.9507823587377644`*^9, 3.9507823616345787`*^9}},
 CellLabel->
  "In[598]:=",ExpressionUUID->"c1690c93-6825-0143-a521-28876a6a2f64"],

Cell[BoxData[
 SqrtBox[
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "x1"}], "+", "x2"}], ")"}], "2"], "+", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "y1"}], "+", "y2"}], ")"}], "2"], "+", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "z1"}], "+", "z2"}], ")"}], "2"]}]]], "Output",
 CellChangeTimes->{
  3.948967225939808*^9, 3.9489677259333534`*^9, 3.9489689189023438`*^9, 
   3.9489690523612137`*^9, 3.9489691708174973`*^9, {3.948969205127714*^9, 
   3.9489692279909954`*^9}, {3.9490384172183437`*^9, 3.949038432395422*^9}, {
   3.950782358762209*^9, 3.9507823861356335`*^9}, 3.9508484066363144`*^9, 
   3.950854757816469*^9, {3.9508774385353584`*^9, 3.950877458456875*^9}, 
   3.95093828487512*^9, 3.950952932264015*^9, 3.9509530183793697`*^9, 
   3.950953938789795*^9, 3.9509543930752354`*^9, 3.9509544414465237`*^9, 
   3.95095451514225*^9, 3.9509546839962234`*^9, 3.950954727895952*^9, 
   3.9509613839462185`*^9, 3.9510435886482925`*^9, 3.9510486993525887`*^9, 
   3.951048764415123*^9, 3.95105007564818*^9},
 CellLabel->
  "Out[598]=",ExpressionUUID->"0854a073-1c7b-5c43-b2b4-a3c604b86a84"],

Cell[BoxData[
 SqrtBox[
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "x1"}], "+", "x3"}], ")"}], "2"], "+", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "y1"}], "+", "y3"}], ")"}], "2"], "+", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "z1"}], "+", "z3"}], ")"}], "2"]}]]], "Output",
 CellChangeTimes->{
  3.948967225939808*^9, 3.9489677259333534`*^9, 3.9489689189023438`*^9, 
   3.9489690523612137`*^9, 3.9489691708174973`*^9, {3.948969205127714*^9, 
   3.9489692279909954`*^9}, {3.9490384172183437`*^9, 3.949038432395422*^9}, {
   3.950782358762209*^9, 3.9507823861356335`*^9}, 3.9508484066363144`*^9, 
   3.950854757816469*^9, {3.9508774385353584`*^9, 3.950877458456875*^9}, 
   3.95093828487512*^9, 3.950952932264015*^9, 3.9509530183793697`*^9, 
   3.950953938789795*^9, 3.9509543930752354`*^9, 3.9509544414465237`*^9, 
   3.95095451514225*^9, 3.9509546839962234`*^9, 3.950954727895952*^9, 
   3.9509613839462185`*^9, 3.9510435886482925`*^9, 3.9510486993525887`*^9, 
   3.951048764415123*^9, 3.95105007564818*^9},
 CellLabel->
  "Out[599]=",ExpressionUUID->"0f786dea-e87d-6a45-a9d7-cc79474a572c"],

Cell[BoxData[
 SqrtBox[
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "x2"}], "+", "x3"}], ")"}], "2"], "+", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "y2"}], "+", "y3"}], ")"}], "2"], "+", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "z2"}], "+", "z3"}], ")"}], "2"]}]]], "Output",
 CellChangeTimes->{
  3.948967225939808*^9, 3.9489677259333534`*^9, 3.9489689189023438`*^9, 
   3.9489690523612137`*^9, 3.9489691708174973`*^9, {3.948969205127714*^9, 
   3.9489692279909954`*^9}, {3.9490384172183437`*^9, 3.949038432395422*^9}, {
   3.950782358762209*^9, 3.9507823861356335`*^9}, 3.9508484066363144`*^9, 
   3.950854757816469*^9, {3.9508774385353584`*^9, 3.950877458456875*^9}, 
   3.95093828487512*^9, 3.950952932264015*^9, 3.9509530183793697`*^9, 
   3.950953938789795*^9, 3.9509543930752354`*^9, 3.9509544414465237`*^9, 
   3.95095451514225*^9, 3.9509546839962234`*^9, 3.950954727895952*^9, 
   3.9509613839462185`*^9, 3.9510435886482925`*^9, 3.9510486993525887`*^9, 
   3.951048764415123*^9, 3.9510500756640034`*^9},
 CellLabel->
  "Out[600]=",ExpressionUUID->"c05ae33a-540f-784a-8325-240d5125f3c5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"lap1", "=", 
  RowBox[{
   RowBox[{"Laplacian", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Laplacian", "[", 
       RowBox[{
        RowBox[{"Exp", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "r12"}], "-", 
          RowBox[{"b", " ", "r13"}], "-", 
          RowBox[{"c", " ", "r23"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"x1", ",", "y1", ",", "z1"}], "}"}]}], "]"}], "/", 
      SuperscriptBox["m1", "3"]}], ",", 
     RowBox[{"{", 
      RowBox[{"x1", ",", "y1", ",", "z1"}], "}"}]}], "]"}], "+", 
   RowBox[{
    RowBox[{"Laplacian", "[", 
     RowBox[{
      RowBox[{"Laplacian", "[", 
       RowBox[{
        RowBox[{"Exp", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "r12"}], "-", 
          RowBox[{"b", " ", "r13"}], "-", 
          RowBox[{"c", " ", "r23"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"x2", ",", "y2", ",", "z2"}], "}"}]}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"x2", ",", "y2", ",", "z2"}], "}"}]}], "]"}], "/", 
    SuperscriptBox["m2", "3"]}], "+", 
   RowBox[{
    RowBox[{"Laplacian", "[", 
     RowBox[{
      RowBox[{"Laplacian", "[", 
       RowBox[{
        RowBox[{"Exp", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "r12"}], "-", 
          RowBox[{"b", " ", "r13"}], "-", 
          RowBox[{"c", " ", "r23"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"x3", ",", "y3", ",", "z3"}], "}"}]}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"x3", ",", "y3", ",", "z3"}], "}"}]}], "]"}], "/", 
    SuperscriptBox["m3", "3"]}]}]}]], "Input",
 CellChangeTimes->{{3.948967706148432*^9, 3.9489677388888187`*^9}, {
   3.9489677748856335`*^9, 3.9489678067744007`*^9}, {3.948967851952303*^9, 
   3.94896785244837*^9}, {3.950782233523369*^9, 3.950782252145588*^9}, {
   3.950952914610321*^9, 3.9509529166254406`*^9}, 3.9509530095446854`*^9, {
   3.950953758583544*^9, 3.9509538782314663`*^9}, {3.950953933917305*^9, 
   3.9509539361198215`*^9}, {3.9509543130759754`*^9, 
   3.9509543693290787`*^9}, {3.9509544677047977`*^9, 
   3.9509544780952435`*^9}, {3.9509609109952087`*^9, 3.9509609328157864`*^9}, 
   3.950960974668453*^9, {3.950961289504591*^9, 3.9509612967534504`*^9}, {
   3.950963036804249*^9, 3.9509630664594746`*^9}, {3.9510434695586777`*^9, 
   3.9510434895709114`*^9}},
 CellLabel->
  "In[601]:=",ExpressionUUID->"72fe8235-8ed6-8e4b-aed8-3a55cd8f8224"],

Cell[BoxData[
 TemplateBox[<|"shortenedBoxes" -> TagBox[
     RowBox[{
       FractionBox[
        RowBox[{
          RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
               RowBox[{
                 RowBox[{"-", "a"}], " ", 
                 SqrtBox[
                  RowBox[{
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "x1"}], "+", "x2"}], ")"}], "2"], "+", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "y1"}], "+", "y2"}], ")"}], "2"], "+", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "z1"}], "+", "z2"}], ")"}], "2"]}]]}], "-", 
               RowBox[{"b", " ", 
                 SqrtBox[
                  RowBox[{
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "x1"}], "+", "x3"}], ")"}], "2"], "+", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "y1"}], "+", "y3"}], ")"}], "2"], "+", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "z1"}], "+", "z3"}], ")"}], "2"]}]]}], "-", 
               RowBox[{"c", " ", 
                 SqrtBox[
                  RowBox[{
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "x2"}], "+", "x3"}], ")"}], "2"], "+", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "y2"}], "+", "y3"}], ")"}], "2"], "+", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "z2"}], "+", "z3"}], ")"}], "2"]}]]}]}]], 
            " ", 
            RowBox[{"(", 
              RowBox[{
                FractionBox[
                 RowBox[{"15", " ", "a", " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "x1"}], "+", "x2"}], ")"}], "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "y1"}], "+", "y2"}], ")"}], "2"]}], 
                 SuperscriptBox[
                  RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "x1"}], "+", "x2"}], ")"}], "2"], "+", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "y1"}], "+", "y2"}], ")"}], "2"], "+", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "z1"}], "+", "z2"}], ")"}], "2"]}], ")"}], 
                  RowBox[{"7", "/", "2"}]]], "-", 
                FractionBox[
                 RowBox[{"3", " ", "a", " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "x1"}], "+", "x2"}], ")"}], "2"]}], 
                 SuperscriptBox[
                  RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "x1"}], "+", "x2"}], ")"}], "2"], "+", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "y1"}], "+", "y2"}], ")"}], "2"], "+", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "z1"}], "+", "z2"}], ")"}], "2"]}], ")"}], 
                  RowBox[{"5", "/", "2"}]]], "-", 
                FractionBox[
                 RowBox[{"3", " ", "a", " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "y1"}], "+", "y2"}], ")"}], "2"]}], 
                 SuperscriptBox[
                  RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox[
                    RowBox[{"(", 
                    TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], ")"}], 
                    "2"], "+", 
                    SuperscriptBox[
                    TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], "2"], "+", 
                    SuperscriptBox[
                    TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], "2"]}], 
                    ")"}], 
                  RowBox[{"5", "/", "2"}]]], "+", 
                FractionBox["a", 
                 SuperscriptBox[
                  RowBox[{"(", 
                    TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], ")"}], 
                  RowBox[{"3", "/", "2"}]]], "+", 
                FractionBox[
                 RowBox[{"15", " ", "b", " ", 
                   SuperscriptBox[
                    TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], ")"}], 
                    "2"]}], 
                 SuperscriptBox[
                  RowBox[{"(", 
                    TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], ")"}], 
                  RowBox[{"7", "/", "2"}]]], "-", 
                FractionBox[
                 RowBox[{"3", " ", "b", " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "x1"}], "+", "x3"}], ")"}], "2"]}], 
                 SuperscriptBox[
                  RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox[
                    TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], "2"], "+", 
                    TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], "+", 
                    SuperscriptBox[
                    TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], "2"]}], 
                    ")"}], 
                  RowBox[{"5", "/", "2"}]]], "-", 
                FractionBox[
                 RowBox[{"3", " ", "b", " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "y1"}], "+", "y3"}], ")"}], "2"]}], 
                 SuperscriptBox[
                  RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "x1"}], "+", "x3"}], ")"}], "2"], "+", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], ")"}], 
                    "2"], "+", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], ")"}], 
                    "2"]}], ")"}], 
                  RowBox[{"5", "/", "2"}]]], "+", 
                FractionBox["b", 
                 SuperscriptBox[
                  RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "x1"}], "+", "x3"}], ")"}], "2"], "+", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "y1"}], "+", "y3"}], ")"}], "2"], "+", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "z1"}], "+", "z3"}], ")"}], "2"]}], ")"}], 
                  RowBox[{"3", "/", "2"}]]]}], ")"}]}], "+", 
          TemplateBox[{"21"}, "OutputSizeLimit`Skeleton"], "+", 
          RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"]], " ", 
            SuperscriptBox[
             RowBox[{"(", 
               TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], ")"}], "2"], 
            " ", 
            SuperscriptBox[
             RowBox[{"(", 
               TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], ")"}], 
             "2"]}]}], 
        SuperscriptBox["m1", "3"]], "+", 
       FractionBox[
        RowBox[{
          RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
               RowBox[{
                 RowBox[{"-", "a"}], " ", 
                 SqrtBox[
                  TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"]]}], "-", 
               RowBox[{"b", " ", 
                 SqrtBox[
                  TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"]]}], "-", 
               RowBox[{"c", " ", 
                 SqrtBox[
                  TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"]]}]}]], " ", 
            RowBox[{"(", 
              RowBox[{
                TemplateBox[{"11"}, "OutputSizeLimit`Skeleton"], "+", 
                FractionBox["b", 
                 TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"]]}], ")"}]}], 
          "+", 
          TemplateBox[{"21"}, "OutputSizeLimit`Skeleton"], "+", 
          RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"]], " ", 
            SuperscriptBox[
             RowBox[{"(", 
               TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], ")"}], "2"], 
            " ", 
            SuperscriptBox[
             RowBox[{"(", 
               TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], ")"}], 
             "2"]}]}], 
        SuperscriptBox["m1", "3"]], "+", 
       FractionBox[
        TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], 
        SuperscriptBox["m1", "3"]], "+", 
       FractionBox[
        RowBox[{
          RowBox[{"2", " ", 
            SuperscriptBox["\[ExponentialE]", 
             TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"]], " ", 
            RowBox[{"(", 
              RowBox[{
                TemplateBox[{"11"}, "OutputSizeLimit`Skeleton"], "+", 
                FractionBox["c", 
                 TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"]]}], ")"}]}], 
          "+", 
          TemplateBox[{"40"}, "OutputSizeLimit`Skeleton"], "+", 
          RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"]], " ", 
            TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"]}]}], 
        SuperscriptBox["m3", "3"]], "+", 
       FractionBox[
        RowBox[{
          RowBox[{"2", " ", 
            SuperscriptBox["\[ExponentialE]", 
             TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"]], " ", 
            RowBox[{"(", 
              RowBox[{
                FractionBox[
                 RowBox[{"15", " ", "a", " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "x1"}], "+", "x2"}], ")"}], "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "y1"}], "+", "y2"}], ")"}], "2"]}], 
                 SuperscriptBox[
                  RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox[
                    RowBox[{"(", 
                    TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], ")"}], 
                    "2"], "+", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], 
                    TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"]}], "2"], 
                    "+", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], ")"}], 
                    "2"]}], ")"}], 
                  RowBox[{"7", "/", "2"}]]], "-", 
                FractionBox[
                 RowBox[{"3", " ", "a", " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], ")"}], 
                    "2"]}], 
                 SuperscriptBox[
                  RowBox[{"(", 
                    TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], ")"}], 
                  RowBox[{"5", "/", "2"}]]], "-", 
                FractionBox[
                 RowBox[{"3", " ", "a", " ", 
                   SuperscriptBox[
                    TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], "2"]}], 
                 SuperscriptBox[
                  TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], 
                  TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"]]], "+", 
                TemplateBox[{"6"}, "OutputSizeLimit`Skeleton"], "+", 
                FractionBox["c", 
                 SuperscriptBox[
                  RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox[
                    TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], "2"], "+", 
                    TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], "+", 
                    SuperscriptBox[
                    TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], "2"]}], 
                    ")"}], 
                  RowBox[{"3", "/", "2"}]]]}], ")"}]}], "+", 
          TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], "+", 
          TemplateBox[{"39"}, "OutputSizeLimit`Skeleton"], "+", 
          RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"]], " ", 
            SuperscriptBox[
             TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], "4"]}]}], 
        SuperscriptBox["m2", "3"]]}], Short[#, 8]& ], "line" -> 601, 
   "sessionID" -> 25696137837180429091, "byteCount" -> 1289928, "size" -> 8, 
   "stored" -> False, "expr" -> Missing["NotStored"], "wrap" -> 
   OutputSizeLimit`Defer, "version" -> 1|>,
  "OutputSizeLimitTemplate"]], "Output",
 CellChangeTimes->{
  3.948967742775299*^9, {3.9489677782540436`*^9, 3.948967807175659*^9}, 
   3.948967852958914*^9, 3.9489689206327896`*^9, 3.948969052526476*^9, 
   3.9489691709879303`*^9, {3.9489692052920723`*^9, 3.94896922818116*^9}, 
   3.9490384353721695`*^9, 3.950782254102417*^9, 3.950782395118149*^9, 
   3.950848406956398*^9, 3.9508547580474625`*^9, {3.950877438803673*^9, 
   3.9508774586955833`*^9}, 3.95093828521163*^9, 3.9509529326160583`*^9, {
   3.9509530130560703`*^9, 3.9509530186653957`*^9}, 3.9509538075272427`*^9, 
   3.95095393889583*^9, {3.9509543721308556`*^9, 3.9509543932105923`*^9}, 
   3.9509544416206856`*^9, 3.950954515301466*^9, 3.950954684407856*^9, 
   3.9509547290328236`*^9, 3.95096093558218*^9, 3.9509609764356537`*^9, 
   3.950961299134344*^9, 3.950961384886137*^9, 3.950963070224163*^9, 
   3.951043491104578*^9, 3.951043589250355*^9, 3.9510486999386864`*^9, 
   3.951048765002207*^9, 3.951050076265999*^9},
 CellLabel->
  "Out[601]=",ExpressionUUID->"1aa51ee9-c8f8-f54e-8670-f7d857bb5347"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"lap2", "=", 
  RowBox[{"lap1", "/", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       SqrtBox[
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "x1"}], "+", "x2"}], ")"}], "2"], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "y1"}], "+", "y2"}], ")"}], "2"], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "z1"}], "+", "z2"}], ")"}], "2"]}]]}], " ", "a"}], "-", 
     RowBox[{
      SqrtBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "x1"}], "+", "x3"}], ")"}], "2"], "+", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "y1"}], "+", "y3"}], ")"}], "2"], "+", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "z1"}], "+", "z3"}], ")"}], "2"]}]], " ", "b"}], "-", 
     RowBox[{
      SqrtBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "x2"}], "+", "x3"}], ")"}], "2"], "+", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "y2"}], "+", "y3"}], ")"}], "2"], "+", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "z2"}], "+", "z3"}], ")"}], "2"]}]], " ", 
      "c"}]}]]}]}]], "Input",
 CellChangeTimes->{{3.9489678357686615`*^9, 3.9489678702612877`*^9}, {
   3.9489679064329453`*^9, 3.948967907180025*^9}, 3.948968947627102*^9, 
   3.9489692145445137`*^9, 3.95084844681641*^9, {3.950963080206341*^9, 
   3.9509630898401737`*^9}},
 CellLabel->
  "In[602]:=",ExpressionUUID->"e08d65f5-0605-4944-9c80-21e16448063e"],

Cell[BoxData[
 TemplateBox[<|"shortenedBoxes" -> TagBox[
     RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
          RowBox[{"a", " ", 
            SqrtBox[
             RowBox[{
               SuperscriptBox[
                RowBox[{"(", 
                  RowBox[{
                    RowBox[{"-", "x1"}], "+", "x2"}], ")"}], "2"], "+", 
               SuperscriptBox[
                RowBox[{"(", 
                  RowBox[{
                    RowBox[{"-", "y1"}], "+", "y2"}], ")"}], "2"], "+", 
               SuperscriptBox[
                RowBox[{"(", 
                  RowBox[{
                    RowBox[{"-", "z1"}], "+", "z2"}], ")"}], "2"]}]]}], "+", 
          RowBox[{"b", " ", 
            SqrtBox[
             RowBox[{
               SuperscriptBox[
                RowBox[{"(", 
                  RowBox[{
                    RowBox[{"-", "x1"}], "+", "x3"}], ")"}], "2"], "+", 
               SuperscriptBox[
                RowBox[{"(", 
                  RowBox[{
                    RowBox[{"-", "y1"}], "+", "y3"}], ")"}], "2"], "+", 
               SuperscriptBox[
                RowBox[{"(", 
                  RowBox[{
                    RowBox[{"-", "z1"}], "+", "z3"}], ")"}], "2"]}]]}], "+", 
          RowBox[{"c", " ", 
            SqrtBox[
             RowBox[{
               SuperscriptBox[
                RowBox[{"(", 
                  RowBox[{
                    RowBox[{"-", "x2"}], "+", "x3"}], ")"}], "2"], "+", 
               SuperscriptBox[
                RowBox[{"(", 
                  RowBox[{
                    RowBox[{"-", "y2"}], "+", "y3"}], ")"}], "2"], "+", 
               SuperscriptBox[
                RowBox[{"(", 
                  RowBox[{
                    RowBox[{"-", "z2"}], "+", "z3"}], ")"}], "2"]}]]}]}]], 
       " ", 
       RowBox[{"(", 
         RowBox[{
           FractionBox[
            RowBox[{
              RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{
                   RowBox[{
                    RowBox[{"-", "a"}], " ", 
                    SqrtBox[
                    RowBox[{
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "x1"}], "+", "x2"}], ")"}], "2"], "+", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "y1"}], "+", "y2"}], ")"}], "2"], "+", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "z1"}], "+", "z2"}], ")"}], "2"]}]]}], "-", 
                   RowBox[{"b", " ", 
                    SqrtBox[
                    RowBox[{
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "x1"}], "+", "x3"}], ")"}], "2"], "+", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "y1"}], "+", "y3"}], ")"}], "2"], "+", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "z1"}], "+", "z3"}], ")"}], "2"]}]]}], "-", 
                   RowBox[{"c", " ", 
                    SqrtBox[
                    RowBox[{
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "x2"}], "+", "x3"}], ")"}], "2"], "+", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "y2"}], "+", "y3"}], ")"}], "2"], "+", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "z2"}], "+", "z3"}], ")"}], "2"]}]]}]}]], 
                " ", 
                RowBox[{"(", 
                  RowBox[{
                    FractionBox[
                    RowBox[{"15", " ", "a", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "x1"}], "+", "x2"}], ")"}], "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "y1"}], "+", "y2"}], ")"}], "2"]}], 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "x1"}], "+", "x2"}], ")"}], "2"], "+", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "y1"}], "+", "y2"}], ")"}], "2"], "+", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "z1"}], "+", "z2"}], ")"}], "2"]}], ")"}], 
                    RowBox[{"7", "/", "2"}]]], "-", 
                    FractionBox[
                    RowBox[{"3", " ", "a", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "x1"}], "+", "x2"}], ")"}], "2"]}], 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox[
                    RowBox[{"(", 
                    TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], ")"}], 
                    "2"], "+", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], ")"}], 
                    "2"], "+", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], ")"}], 
                    "2"]}], ")"}], 
                    RowBox[{"5", "/", "2"}]]], "-", 
                    FractionBox[
                    RowBox[{"3", " ", "a", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "y1"}], "+", "y2"}], ")"}], "2"]}], 
                    SuperscriptBox[
                    RowBox[{"(", 
                    TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], ")"}], 
                    RowBox[{"5", "/", "2"}]]], "+", 
                    FractionBox["a", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], ")"}], 
                    RowBox[{"3", "/", "2"}]]], "+", 
                    FractionBox[
                    RowBox[{"15", " ", "b", " ", 
                    TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], " ", 
                    SuperscriptBox[
                    TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], "2"]}], 
                    SuperscriptBox[
                    RowBox[{"(", 
                    TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], ")"}], 
                    RowBox[{"7", "/", "2"}]]], "-", 
                    FractionBox[
                    RowBox[{"3", " ", "b", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], ")"}], 
                    "2"]}], 
                    SuperscriptBox[
                    RowBox[{"(", 
                    TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], ")"}], 
                    RowBox[{"5", "/", "2"}]]], "-", 
                    FractionBox[
                    RowBox[{"3", " ", "b", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "y1"}], "+", "y3"}], ")"}], "2"]}], 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox[
                    RowBox[{"(", 
                    TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], ")"}], 
                    "2"], "+", 
                    SuperscriptBox[
                    TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], "2"], "+", 
                    SuperscriptBox[
                    TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], "2"]}], 
                    ")"}], 
                    RowBox[{"5", "/", "2"}]]], "+", 
                    FractionBox["b", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "x1"}], "+", "x3"}], ")"}], "2"], "+", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "y1"}], "+", "y3"}], ")"}], "2"], "+", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "z1"}], "+", "z3"}], ")"}], "2"]}], ")"}], 
                    RowBox[{"3", "/", "2"}]]]}], ")"}]}], "+", 
              TemplateBox[{"22"}, "OutputSizeLimit`Skeleton"]}], 
            SuperscriptBox["m1", "3"]], "+", 
           FractionBox[
            RowBox[{
              RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{
                   RowBox[{
                    RowBox[{"-", "a"}], " ", 
                    SqrtBox[
                    RowBox[{
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "x1"}], "+", "x2"}], ")"}], "2"], "+", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "y1"}], "+", "y2"}], ")"}], "2"], "+", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "z1"}], "+", "z2"}], ")"}], "2"]}]]}], "-", 
                   RowBox[{"b", " ", 
                    SqrtBox[
                    TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"]]}], "-", 
                   RowBox[{"c", " ", 
                    SqrtBox[
                    RowBox[{
                    SuperscriptBox[
                    RowBox[{"(", 
                    TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], ")"}], 
                    "2"], "+", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], ")"}], 
                    "2"], "+", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], ")"}], 
                    "2"]}]]}]}]], " ", 
                RowBox[{"(", 
                  RowBox[{
                    TemplateBox[{"11"}, "OutputSizeLimit`Skeleton"], "+", 
                    FractionBox["b", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], ")"}], 
                    RowBox[{"3", "/", "2"}]]]}], ")"}]}], "+", 
              TemplateBox[{"21"}, "OutputSizeLimit`Skeleton"], "+", 
              RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{
                   RowBox[{
                    RowBox[{"-", "a"}], " ", 
                    SqrtBox[
                    TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"]]}], "-", 
                   RowBox[{"b", " ", 
                    SqrtBox[
                    TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"]]}], "-", 
                   RowBox[{"c", " ", 
                    SqrtBox[
                    TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"]]}]}]], " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                   TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], ")"}], 
                 "2"], " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                   RowBox[{
                    FractionBox[
                    TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], 
                    TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"]], "+", 
                    TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"]}], ")"}], 
                 "2"]}]}], 
            SuperscriptBox["m1", "3"]], "+", 
           FractionBox[
            RowBox[{
              RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"]], " ", 
                RowBox[{"(", 
                  RowBox[{
                    TemplateBox[{"11"}, "OutputSizeLimit`Skeleton"], "+", 
                    FractionBox["b", 
                    TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"]]}], 
                  ")"}]}], "+", 
              TemplateBox[{"21"}, "OutputSizeLimit`Skeleton"], "+", 
              RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"]], " ", 
                SuperscriptBox[
                 TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], "4"]}]}], 
            SuperscriptBox["m1", "3"]], "+", 
           FractionBox[
            RowBox[{
              RowBox[{"2", " ", 
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{
                   RowBox[{
                    RowBox[{"-", "a"}], " ", 
                    SqrtBox[
                    TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"]]}], "-", 
                   RowBox[{"b", " ", 
                    TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"]}], "-", 
                   RowBox[{"c", " ", 
                    SqrtBox[
                    TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"]]}]}]], " ", 
                RowBox[{"(", 
                  RowBox[{
                    TemplateBox[{"11"}, "OutputSizeLimit`Skeleton"], "+", 
                    FractionBox["c", 
                    TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"]]}], 
                  ")"}]}], "+", 
              TemplateBox[{"40"}, "OutputSizeLimit`Skeleton"], "+", 
              RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"]], " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                   TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], ")"}], 
                 "4"]}]}], 
            SuperscriptBox["m3", "3"]], "+", 
           FractionBox[
            TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], 
            SuperscriptBox["m2", "3"]]}], ")"}]}], Short[#, 8]& ], "line" -> 
   602, "sessionID" -> 25696137837180429091, "byteCount" -> 1292600, "size" -> 
   8, "stored" -> False, "expr" -> Missing["NotStored"], "wrap" -> 
   OutputSizeLimit`Defer, "version" -> 1|>,
  "OutputSizeLimitTemplate"]], "Output",
 CellChangeTimes->{{3.9489678582020817`*^9, 3.948967873933344*^9}, 
   3.948967908141985*^9, 3.948968339539934*^9, 3.948968949259037*^9, 
   3.9489690525794353`*^9, 3.9489691710422726`*^9, {3.948969205342266*^9, 
   3.9489692282443466`*^9}, 3.949038442796295*^9, 3.9507824105540485`*^9, 
   3.95084840700618*^9, 3.95085475808753*^9, {3.950877438843233*^9, 
   3.950877458743191*^9}, 3.950938285267912*^9, 3.9509529326468105`*^9, 
   3.9509530187190056`*^9, 3.950953813373541*^9, 3.950953938956646*^9, 
   3.9509544416528034`*^9, 3.9509545178391857`*^9, 3.950954686235281*^9, 
   3.9509547370230236`*^9, 3.950960938454504*^9, 3.950960978228752*^9, 
   3.950961300575857*^9, 3.9509613849924297`*^9, 3.9509630988207436`*^9, 
   3.951043589314028*^9, 3.95104870001326*^9, 3.951048765081419*^9, 
   3.9510500763296413`*^9},
 CellLabel->
  "Out[602]=",ExpressionUUID->"a5d333d2-8cf5-9e41-b639-0039a2793526"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"lap3", "=", 
  RowBox[{"ReplaceAll", "[", 
   RowBox[{"lap2", ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"x2", "-", "x1"}], "->", "x12"}], ",", 
      RowBox[{
       RowBox[{"x1", "-", "x2"}], "->", 
       RowBox[{"-", "x12"}]}], ",", 
      RowBox[{
       RowBox[{"x3", "-", "x1"}], "->", "x13"}], ",", 
      RowBox[{
       RowBox[{"x1", "-", "x3"}], "->", 
       RowBox[{"-", "x13"}]}], ",", 
      RowBox[{
       RowBox[{"x3", "-", "x2"}], "->", "x23"}], ",", 
      RowBox[{
       RowBox[{"x2", "-", "x3"}], "->", 
       RowBox[{"-", "x32"}]}], ",", 
      RowBox[{
       RowBox[{"y2", "-", "y1"}], "->", "y12"}], ",", 
      RowBox[{
       RowBox[{"y1", "-", "y2"}], "->", 
       RowBox[{"-", "y12"}]}], ",", 
      RowBox[{
       RowBox[{"y3", "-", "y1"}], "->", "y13"}], ",", 
      RowBox[{
       RowBox[{"y1", "-", "y3"}], "->", 
       RowBox[{"-", "y13"}]}], ",", 
      RowBox[{
       RowBox[{"y3", "-", "y2"}], "->", "y23"}], ",", 
      RowBox[{
       RowBox[{"y2", "-", "y3"}], "->", 
       RowBox[{"-", "y32"}]}], ",", 
      RowBox[{
       RowBox[{"z2", "-", "z1"}], "->", "z12"}], ",", 
      RowBox[{
       RowBox[{"z1", "-", "z2"}], "->", 
       RowBox[{"-", "z12"}]}], ",", 
      RowBox[{
       RowBox[{"z3", "-", "z1"}], "->", "z13"}], ",", 
      RowBox[{
       RowBox[{"z1", "-", "z3"}], "->", 
       RowBox[{"-", "z13"}]}], ",", 
      RowBox[{
       RowBox[{"z3", "-", "z2"}], "->", "z23"}], ",", 
      RowBox[{
       RowBox[{"z2", "-", "z3"}], "->", 
       RowBox[{"-", "z32"}]}]}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.9489679153307*^9, 3.94896794440374*^9}, {
  3.9509539038208904`*^9, 3.950953918228031*^9}},
 CellLabel->
  "In[603]:=",ExpressionUUID->"b6fa4369-1bd6-a440-a943-9c81e44c8993"],

Cell[BoxData[
 TemplateBox[<|"shortenedBoxes" -> TagBox[
     RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
          RowBox[{"a", " ", 
            SqrtBox[
             RowBox[{
               SuperscriptBox["x12", "2"], "+", 
               SuperscriptBox["y12", "2"], "+", 
               SuperscriptBox["z12", "2"]}]]}], "+", 
          RowBox[{"b", " ", 
            SqrtBox[
             RowBox[{
               SuperscriptBox["x13", "2"], "+", 
               SuperscriptBox["y13", "2"], "+", 
               SuperscriptBox["z13", "2"]}]]}], "+", 
          RowBox[{"c", " ", 
            SqrtBox[
             RowBox[{
               SuperscriptBox["x23", "2"], "+", 
               SuperscriptBox["y23", "2"], "+", 
               SuperscriptBox["z23", "2"]}]]}]}]], " ", 
       RowBox[{"(", 
         RowBox[{
           FractionBox[
            RowBox[{
              RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{
                   RowBox[{
                    RowBox[{"-", "a"}], " ", 
                    SqrtBox[
                    RowBox[{
                    SuperscriptBox["x12", "2"], "+", 
                    SuperscriptBox["y12", "2"], "+", 
                    SuperscriptBox["z12", "2"]}]]}], "-", 
                   RowBox[{"b", " ", 
                    SqrtBox[
                    RowBox[{
                    SuperscriptBox["x13", "2"], "+", 
                    SuperscriptBox["y13", "2"], "+", 
                    SuperscriptBox["z13", "2"]}]]}], "-", 
                   RowBox[{"c", " ", 
                    SqrtBox[
                    RowBox[{
                    SuperscriptBox["x23", "2"], "+", 
                    SuperscriptBox["y23", "2"], "+", 
                    SuperscriptBox["z23", "2"]}]]}]}]], " ", 
                RowBox[{"(", 
                  RowBox[{
                    FractionBox[
                    RowBox[{"15", " ", "a", " ", 
                    SuperscriptBox["x12", "2"], " ", 
                    SuperscriptBox["y12", "2"]}], 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["x12", "2"], "+", 
                    SuperscriptBox["y12", "2"], "+", 
                    SuperscriptBox["z12", "2"]}], ")"}], 
                    RowBox[{"7", "/", "2"}]]], "-", 
                    FractionBox[
                    RowBox[{"3", " ", "a", " ", 
                    SuperscriptBox["x12", "2"]}], 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["x12", "2"], "+", 
                    SuperscriptBox["y12", "2"], "+", 
                    SuperscriptBox["z12", "2"]}], ")"}], 
                    RowBox[{"5", "/", "2"}]]], "-", 
                    FractionBox[
                    RowBox[{"3", " ", "a", " ", 
                    SuperscriptBox["y12", "2"]}], 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["x12", "2"], "+", 
                    SuperscriptBox["y12", "2"], "+", 
                    SuperscriptBox["z12", "2"]}], ")"}], 
                    RowBox[{"5", "/", "2"}]]], "+", 
                    FractionBox["a", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["x12", "2"], "+", 
                    SuperscriptBox["y12", "2"], "+", 
                    SuperscriptBox["z12", "2"]}], ")"}], 
                    RowBox[{"3", "/", "2"}]]], "+", 
                    FractionBox[
                    RowBox[{"15", " ", "b", " ", 
                    SuperscriptBox["x13", "2"], " ", 
                    SuperscriptBox["y13", "2"]}], 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["x13", "2"], "+", 
                    SuperscriptBox["y13", "2"], "+", 
                    SuperscriptBox["z13", "2"]}], ")"}], 
                    RowBox[{"7", "/", "2"}]]], "-", 
                    FractionBox[
                    RowBox[{"3", " ", "b", " ", 
                    SuperscriptBox["x13", "2"]}], 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["x13", "2"], "+", 
                    SuperscriptBox["y13", "2"], "+", 
                    SuperscriptBox["z13", "2"]}], ")"}], 
                    RowBox[{"5", "/", "2"}]]], "-", 
                    FractionBox[
                    RowBox[{"3", " ", "b", " ", 
                    SuperscriptBox["y13", "2"]}], 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["x13", "2"], "+", 
                    SuperscriptBox["y13", "2"], "+", 
                    SuperscriptBox["z13", "2"]}], ")"}], 
                    RowBox[{"5", "/", "2"}]]], "+", 
                    FractionBox["b", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["x13", "2"], "+", 
                    SuperscriptBox["y13", "2"], "+", 
                    SuperscriptBox["z13", "2"]}], ")"}], 
                    RowBox[{"3", "/", "2"}]]]}], ")"}]}], "+", 
              TemplateBox[{"21"}, "OutputSizeLimit`Skeleton"], "+", 
              RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{
                   RowBox[{
                    RowBox[{"-", "a"}], " ", 
                    SqrtBox[
                    RowBox[{
                    SuperscriptBox["x12", "2"], "+", 
                    SuperscriptBox["y12", "2"], "+", 
                    SuperscriptBox["z12", "2"]}]]}], "-", 
                   RowBox[{"b", " ", 
                    SqrtBox[
                    RowBox[{
                    SuperscriptBox["x13", "2"], "+", 
                    SuperscriptBox["y13", "2"], "+", 
                    SuperscriptBox["z13", "2"]}]]}], "-", 
                   RowBox[{"c", " ", 
                    SqrtBox[
                    RowBox[{
                    SuperscriptBox["x23", "2"], "+", 
                    SuperscriptBox["y23", "2"], "+", 
                    SuperscriptBox["z23", "2"]}]]}]}]], " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"a", " ", "x12"}], 
                    SqrtBox[
                    RowBox[{
                    SuperscriptBox["x12", "2"], "+", 
                    SuperscriptBox["y12", "2"], "+", 
                    SuperscriptBox["z12", "2"]}]]], "+", 
                    FractionBox[
                    RowBox[{"b", " ", "x13"}], 
                    SqrtBox[
                    TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"]]]}], ")"}],
                  "2"], " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"a", " ", "z12"}], 
                    SqrtBox[
                    RowBox[{
                    SuperscriptBox["x12", "2"], "+", 
                    SuperscriptBox["y12", "2"], "+", 
                    SuperscriptBox["z12", "2"]}]]], "+", 
                    FractionBox[
                    RowBox[{"b", " ", "z13"}], 
                    SqrtBox[
                    TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"]]]}], ")"}],
                  "2"]}]}], 
            SuperscriptBox["m1", "3"]], "+", 
           FractionBox[
            RowBox[{
              RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{
                   RowBox[{
                    RowBox[{"-", "a"}], " ", 
                    SqrtBox[
                    RowBox[{
                    SuperscriptBox["x12", "2"], "+", 
                    SuperscriptBox["y12", "2"], "+", 
                    SuperscriptBox["z12", "2"]}]]}], "-", 
                   RowBox[{"b", " ", 
                    SqrtBox[
                    TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"]]}], "-", 
                   RowBox[{"c", " ", 
                    SqrtBox[
                    RowBox[{
                    SuperscriptBox["x23", "2"], "+", 
                    SuperscriptBox["y23", "2"], "+", 
                    SuperscriptBox["z23", "2"]}]]}]}]], " ", 
                RowBox[{"(", 
                  RowBox[{
                    TemplateBox[{"11"}, "OutputSizeLimit`Skeleton"], "+", 
                    FractionBox["b", 
                    SuperscriptBox[
                    TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], 
                    TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"]]]}], 
                  ")"}]}], "+", 
              TemplateBox[{"21"}, "OutputSizeLimit`Skeleton"], "+", 
              RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"]], " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                   TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], ")"}], 
                 "2"], " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                   TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], ")"}], 
                 "2"]}]}], 
            SuperscriptBox["m1", "3"]], "+", 
           FractionBox[
            RowBox[{
              RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"]], " ", 
                RowBox[{"(", 
                  TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], ")"}]}], 
              "+", 
              TemplateBox[{"21"}, "OutputSizeLimit`Skeleton"], "+", 
              TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"]}], 
            SuperscriptBox["m1", "3"]], "+", 
           FractionBox[
            RowBox[{
              RowBox[{"2", " ", 
                SuperscriptBox["\[ExponentialE]", 
                 TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"]], " ", 
                RowBox[{"(", 
                  TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], ")"}]}], 
              "+", 
              TemplateBox[{"40"}, "OutputSizeLimit`Skeleton"], "+", 
              RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"]], " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                   TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], 
                   TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"]}], "4"]}]}], 
            SuperscriptBox["m3", "3"]], "+", 
           FractionBox[
            RowBox[{
              RowBox[{"2", " ", 
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{
                   RowBox[{
                    RowBox[{"-", "a"}], " ", 
                    SqrtBox[
                    TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"]]}], "-", 
                   TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], "-", 
                   RowBox[{"c", " ", 
                    TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"]}]}]], " ", 
                RowBox[{"(", 
                  RowBox[{
                    FractionBox[
                    RowBox[{"15", " ", "a", " ", 
                    SuperscriptBox["x12", "2"], " ", 
                    SuperscriptBox["y12", "2"]}], 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["x12", "2"], "+", 
                    SuperscriptBox["y12", "2"], "+", 
                    SuperscriptBox["z12", "2"]}], ")"}], 
                    RowBox[{"7", "/", "2"}]]], "-", 
                    FractionBox[
                    RowBox[{"3", " ", "a", " ", 
                    SuperscriptBox["x12", "2"]}], 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["x12", "2"], "+", 
                    SuperscriptBox["y12", "2"], "+", 
                    SuperscriptBox["z12", "2"]}], ")"}], 
                    RowBox[{"5", "/", "2"}]]], "-", 
                    FractionBox[
                    RowBox[{"3", " ", "a", " ", 
                    SuperscriptBox["y12", "2"]}], 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["x12", "2"], "+", 
                    SuperscriptBox["y12", "2"], "+", 
                    SuperscriptBox["z12", "2"]}], ")"}], 
                    RowBox[{"5", "/", "2"}]]], "+", 
                    FractionBox["a", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], ")"}], 
                    RowBox[{"3", "/", "2"}]]], "+", 
                    FractionBox[
                    RowBox[{"15", " ", "c", " ", 
                    SuperscriptBox["x23", "2"], " ", 
                    SuperscriptBox["y23", "2"]}], 
                    SuperscriptBox[
                    RowBox[{"(", 
                    TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], ")"}], 
                    RowBox[{"7", "/", "2"}]]], "-", 
                    FractionBox[
                    RowBox[{"3", " ", "c", " ", 
                    SuperscriptBox["x23", "2"]}], 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["x23", "2"], "+", 
                    SuperscriptBox["y23", "2"], "+", 
                    SuperscriptBox["z23", "2"]}], ")"}], 
                    RowBox[{"5", "/", "2"}]]], "-", 
                    FractionBox[
                    RowBox[{"3", " ", "c", " ", 
                    SuperscriptBox["y23", "2"]}], 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["x23", "2"], "+", 
                    SuperscriptBox["y23", "2"], "+", 
                    SuperscriptBox["z23", "2"]}], ")"}], 
                    RowBox[{"5", "/", "2"}]]], "+", 
                    FractionBox["c", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["x23", "2"], "+", 
                    SuperscriptBox["y23", "2"], "+", 
                    SuperscriptBox["z23", "2"]}], ")"}], 
                    RowBox[{"3", "/", "2"}]]]}], ")"}]}], "+", 
              TemplateBox[{"40"}, "OutputSizeLimit`Skeleton"], "+", 
              RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"]], " ", 
                SuperscriptBox[
                 TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], "4"]}]}], 
            SuperscriptBox["m2", "3"]]}], ")"}]}], Short[#, 8]& ], "line" -> 
   603, "sessionID" -> 25696137837180429091, "byteCount" -> 692024, "size" -> 
   8, "stored" -> False, "expr" -> Missing["NotStored"], "wrap" -> 
   OutputSizeLimit`Defer, "version" -> 1|>,
  "OutputSizeLimitTemplate"]], "Output",
 CellChangeTimes->{
  3.948967950408684*^9, 3.9489683418788605`*^9, 3.9489689571755295`*^9, 
   3.9489690526394825`*^9, 3.9489691711040344`*^9, {3.9489692054088154`*^9, 
   3.9489692283077374`*^9}, 3.949038447312401*^9, 3.950782431422451*^9, 
   3.950782783142023*^9, 3.9508484070765877`*^9, 3.9508547581420994`*^9, {
   3.950877438895506*^9, 3.950877458800602*^9}, 3.950938285340914*^9, 
   3.950952932692381*^9, 3.9509530188070087`*^9, 3.950953938987644*^9, 
   3.950954441684202*^9, 3.950954517971754*^9, 3.950954686366253*^9, 
   3.9509547432928886`*^9, 3.9509609410651245`*^9, 3.950960980022547*^9, 
   3.9509613019869213`*^9, 3.950961385145584*^9, 3.9509631008856964`*^9, 
   3.9510435893771915`*^9, 3.951048700062828*^9, 3.951048765129305*^9, 
   3.9510500763930607`*^9},
 CellLabel->
  "Out[603]=",ExpressionUUID->"568c3d9b-058c-ff49-8f40-4918df4136ac"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"lap4", "=", 
  RowBox[{"ReplaceAll", "[", 
   RowBox[{"lap3", ",", 
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       SqrtBox[
        RowBox[{
         SuperscriptBox["x12", "2"], "+", 
         SuperscriptBox["y12", "2"], "+", 
         SuperscriptBox["z12", "2"]}]], "->", "R12"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       SqrtBox[
        RowBox[{
         SuperscriptBox["x13", "2"], "+", 
         SuperscriptBox["y13", "2"], "+", 
         SuperscriptBox["z13", "2"]}]], "->", "R13"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       SqrtBox[
        RowBox[{
         SuperscriptBox["x23", "2"], "+", 
         SuperscriptBox["y23", "2"], "+", 
         SuperscriptBox["z23", "2"]}]], "->", "R23"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       FractionBox["1", 
        SqrtBox[
         RowBox[{
          SuperscriptBox["x12", "2"], "+", 
          SuperscriptBox["y12", "2"], "+", 
          SuperscriptBox["z12", "2"]}]]], "->", 
       FractionBox["1", "R12"]}], ",", "\[IndentingNewLine]", 
      RowBox[{
       FractionBox["1", 
        SqrtBox[
         RowBox[{
          SuperscriptBox["x13", "2"], "+", 
          SuperscriptBox["y13", "2"], "+", 
          SuperscriptBox["z13", "2"]}]]], "->", 
       FractionBox["1", "R13"]}], ",", "\[IndentingNewLine]", 
      RowBox[{
       FractionBox["1", 
        SqrtBox[
         RowBox[{
          SuperscriptBox["x23", "2"], "+", 
          SuperscriptBox["y23", "2"], "+", 
          SuperscriptBox["z23", "2"]}]]], "->", 
       FractionBox["1", "R23"]}], ",", "\[IndentingNewLine]", 
      RowBox[{
       FractionBox["1", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["x12", "2"], "+", 
           SuperscriptBox["y12", "2"], "+", 
           SuperscriptBox["z12", "2"]}], ")"}], 
         RowBox[{"3", "/", "2"}]]], "->", 
       FractionBox["1", 
        SuperscriptBox["R12", "3"]]}], ",", "\[IndentingNewLine]", 
      RowBox[{
       FractionBox["1", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["x13", "2"], "+", 
           SuperscriptBox["y13", "2"], "+", 
           SuperscriptBox["z13", "2"]}], ")"}], 
         RowBox[{"3", "/", "2"}]]], "->", 
       FractionBox["1", 
        SuperscriptBox["R13", "3"]]}], ",", "\[IndentingNewLine]", 
      RowBox[{
       FractionBox["1", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["x23", "2"], "+", 
           SuperscriptBox["y23", "2"], "+", 
           SuperscriptBox["z23", "2"]}], ")"}], 
         RowBox[{"3", "/", "2"}]]], "->", 
       FractionBox["1", 
        SuperscriptBox["R23", "3"]]}], ",", "\[IndentingNewLine]", 
      RowBox[{
       FractionBox["1", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["x12", "2"], "+", 
           SuperscriptBox["y12", "2"], "+", 
           SuperscriptBox["z12", "2"]}], ")"}], 
         RowBox[{"5", "/", "2"}]]], "->", 
       FractionBox["1", 
        SuperscriptBox["R12", "5"]]}], ",", "\[IndentingNewLine]", 
      RowBox[{
       FractionBox["1", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["x13", "2"], "+", 
           SuperscriptBox["y13", "2"], "+", 
           SuperscriptBox["z13", "2"]}], ")"}], 
         RowBox[{"5", "/", "2"}]]], "->", 
       FractionBox["1", 
        SuperscriptBox["R13", "5"]]}], ",", "\[IndentingNewLine]", 
      RowBox[{
       FractionBox["1", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["x23", "2"], "+", 
           SuperscriptBox["y23", "2"], "+", 
           SuperscriptBox["z23", "2"]}], ")"}], 
         RowBox[{"5", "/", "2"}]]], "->", 
       FractionBox["1", 
        SuperscriptBox["R23", "5"]]}], ",", "\[IndentingNewLine]", 
      RowBox[{
       FractionBox["1", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["x12", "2"], "+", 
           SuperscriptBox["y12", "2"], "+", 
           SuperscriptBox["z12", "2"]}], ")"}], 
         RowBox[{"7", "/", "2"}]]], "->", 
       FractionBox["1", 
        SuperscriptBox["R12", "7"]]}], ",", "\[IndentingNewLine]", 
      RowBox[{
       FractionBox["1", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["x13", "2"], "+", 
           SuperscriptBox["y13", "2"], "+", 
           SuperscriptBox["z13", "2"]}], ")"}], 
         RowBox[{"7", "/", "2"}]]], "->", 
       FractionBox["1", 
        SuperscriptBox["R13", "7"]]}], ",", "\[IndentingNewLine]", 
      RowBox[{
       FractionBox["1", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["x23", "2"], "+", 
           SuperscriptBox["y23", "2"], "+", 
           SuperscriptBox["z23", "2"]}], ")"}], 
         RowBox[{"7", "/", "2"}]]], "->", 
       FractionBox["1", 
        SuperscriptBox["R23", "7"]]}]}], "\[IndentingNewLine]", "}"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.948967977196247*^9, 3.9489680452311325`*^9}, {
   3.9489681959037075`*^9, 3.948968327774624*^9}, {3.948968376056362*^9, 
   3.9489684748817883`*^9}, {3.948968966183893*^9, 3.948969028411125*^9}, {
   3.9507824756739483`*^9, 3.950782514220484*^9}, 3.950854742055708*^9},
 CellLabel->
  "In[604]:=",ExpressionUUID->"017b168d-b200-c441-b0db-05661369aa9e"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{
    RowBox[{"a", " ", "R12"}], "+", 
    RowBox[{"b", " ", "R13"}], "+", 
    RowBox[{"c", " ", "R23"}]}]], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     FractionBox["1", 
      SuperscriptBox["m1", "3"]], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"a", " ", "x12"}], "R12"], "+", 
           FractionBox[
            RowBox[{"b", " ", "x13"}], "R13"]}], ")"}], "4"]}], "+", 
       RowBox[{"6", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"a", " ", "x12"}], "R12"], "+", 
           FractionBox[
            RowBox[{"b", " ", "x13"}], "R13"]}], ")"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["a", "R12"]}], "-", 
          FractionBox["b", "R13"], "+", 
          FractionBox[
           RowBox[{"a", " ", 
            SuperscriptBox["x12", "2"]}], 
           SuperscriptBox["R12", "3"]], "+", 
          FractionBox[
           RowBox[{"b", " ", 
            SuperscriptBox["x13", "2"]}], 
           SuperscriptBox["R13", "3"]]}], ")"}]}], "+", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            FractionBox["a", "R12"]}], "-", 
           FractionBox["b", "R13"], "+", 
           FractionBox[
            RowBox[{"a", " ", 
             SuperscriptBox["x12", "2"]}], 
            SuperscriptBox["R12", "3"]], "+", 
           FractionBox[
            RowBox[{"b", " ", 
             SuperscriptBox["x13", "2"]}], 
            SuperscriptBox["R13", "3"]]}], ")"}], "2"]}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"a", " ", "x12"}], "R12"], "+", 
          FractionBox[
           RowBox[{"b", " ", "x13"}], "R13"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{"3", " ", "a", " ", "x12"}], 
            SuperscriptBox["R12", "3"]]}], "+", 
          FractionBox[
           RowBox[{"3", " ", "a", " ", 
            SuperscriptBox["x12", "3"]}], 
           SuperscriptBox["R12", "5"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "b", " ", "x13"}], 
           SuperscriptBox["R13", "3"]], "+", 
          FractionBox[
           RowBox[{"3", " ", "b", " ", 
            SuperscriptBox["x13", "3"]}], 
           SuperscriptBox["R13", "5"]]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"3", " ", "a"}], 
           SuperscriptBox["R12", "3"]], "+", 
          FractionBox[
           RowBox[{"3", " ", "b"}], 
           SuperscriptBox["R13", "3"]], "-", 
          FractionBox[
           RowBox[{"18", " ", "a", " ", 
            SuperscriptBox["x12", "2"]}], 
           SuperscriptBox["R12", "5"]], "+", 
          FractionBox[
           RowBox[{"15", " ", "a", " ", 
            SuperscriptBox["x12", "4"]}], 
           SuperscriptBox["R12", "7"]], "-", 
          FractionBox[
           RowBox[{"18", " ", "b", " ", 
            SuperscriptBox["x13", "2"]}], 
           SuperscriptBox["R13", "5"]], "+", 
          FractionBox[
           RowBox[{"15", " ", "b", " ", 
            SuperscriptBox["x13", "4"]}], 
           SuperscriptBox["R13", "7"]]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"a", " ", "x12"}], "R12"], "+", 
           FractionBox[
            RowBox[{"b", " ", "x13"}], "R13"]}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"a", " ", "y12"}], "R12"], "+", 
           FractionBox[
            RowBox[{"b", " ", "y13"}], "R13"]}], ")"}], "2"]}], "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["a", "R12"]}], "-", 
          FractionBox["b", "R13"], "+", 
          FractionBox[
           RowBox[{"a", " ", 
            SuperscriptBox["x12", "2"]}], 
           SuperscriptBox["R12", "3"]], "+", 
          FractionBox[
           RowBox[{"b", " ", 
            SuperscriptBox["x13", "2"]}], 
           SuperscriptBox["R13", "3"]]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"a", " ", "y12"}], "R12"], "+", 
           FractionBox[
            RowBox[{"b", " ", "y13"}], "R13"]}], ")"}], "2"]}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"a", " ", "x12"}], "R12"], "+", 
          FractionBox[
           RowBox[{"b", " ", "x13"}], "R13"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"a", " ", "y12"}], "R12"], "+", 
          FractionBox[
           RowBox[{"b", " ", "y13"}], "R13"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"a", " ", "x12", " ", "y12"}], 
           SuperscriptBox["R12", "3"]], "+", 
          FractionBox[
           RowBox[{"b", " ", "x13", " ", "y13"}], 
           SuperscriptBox["R13", "3"]]}], ")"}]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"a", " ", "x12", " ", "y12"}], 
            SuperscriptBox["R12", "3"]], "+", 
           FractionBox[
            RowBox[{"b", " ", "x13", " ", "y13"}], 
            SuperscriptBox["R13", "3"]]}], ")"}], "2"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"a", " ", "y12"}], "R12"], "+", 
          FractionBox[
           RowBox[{"b", " ", "y13"}], "R13"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{"a", " ", "y12"}], 
            SuperscriptBox["R12", "3"]]}], "+", 
          FractionBox[
           RowBox[{"3", " ", "a", " ", 
            SuperscriptBox["x12", "2"], " ", "y12"}], 
           SuperscriptBox["R12", "5"]], "-", 
          FractionBox[
           RowBox[{"b", " ", "y13"}], 
           SuperscriptBox["R13", "3"]], "+", 
          FractionBox[
           RowBox[{"3", " ", "b", " ", 
            SuperscriptBox["x13", "2"], " ", "y13"}], 
           SuperscriptBox["R13", "5"]]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"a", " ", "x12"}], "R12"], "+", 
           FractionBox[
            RowBox[{"b", " ", "x13"}], "R13"]}], ")"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["a", "R12"]}], "-", 
          FractionBox["b", "R13"], "+", 
          FractionBox[
           RowBox[{"a", " ", 
            SuperscriptBox["y12", "2"]}], 
           SuperscriptBox["R12", "3"]], "+", 
          FractionBox[
           RowBox[{"b", " ", 
            SuperscriptBox["y13", "2"]}], 
           SuperscriptBox["R13", "3"]]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["a", "R12"]}], "-", 
          FractionBox["b", "R13"], "+", 
          FractionBox[
           RowBox[{"a", " ", 
            SuperscriptBox["x12", "2"]}], 
           SuperscriptBox["R12", "3"]], "+", 
          FractionBox[
           RowBox[{"b", " ", 
            SuperscriptBox["x13", "2"]}], 
           SuperscriptBox["R13", "3"]]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["a", "R12"]}], "-", 
          FractionBox["b", "R13"], "+", 
          FractionBox[
           RowBox[{"a", " ", 
            SuperscriptBox["y12", "2"]}], 
           SuperscriptBox["R12", "3"]], "+", 
          FractionBox[
           RowBox[{"b", " ", 
            SuperscriptBox["y13", "2"]}], 
           SuperscriptBox["R13", "3"]]}], ")"}]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"a", " ", "x12"}], "R12"], "+", 
          FractionBox[
           RowBox[{"b", " ", "x13"}], "R13"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{"a", " ", "x12"}], 
            SuperscriptBox["R12", "3"]]}], "-", 
          FractionBox[
           RowBox[{"b", " ", "x13"}], 
           SuperscriptBox["R13", "3"]], "+", 
          FractionBox[
           RowBox[{"3", " ", "a", " ", "x12", " ", 
            SuperscriptBox["y12", "2"]}], 
           SuperscriptBox["R12", "5"]], "+", 
          FractionBox[
           RowBox[{"3", " ", "b", " ", "x13", " ", 
            SuperscriptBox["y13", "2"]}], 
           SuperscriptBox["R13", "5"]]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox["a", 
           SuperscriptBox["R12", "3"]], "+", 
          FractionBox["b", 
           SuperscriptBox["R13", "3"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "a", " ", 
            SuperscriptBox["x12", "2"]}], 
           SuperscriptBox["R12", "5"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "b", " ", 
            SuperscriptBox["x13", "2"]}], 
           SuperscriptBox["R13", "5"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "a", " ", 
            SuperscriptBox["y12", "2"]}], 
           SuperscriptBox["R12", "5"]], "+", 
          FractionBox[
           RowBox[{"15", " ", "a", " ", 
            SuperscriptBox["x12", "2"], " ", 
            SuperscriptBox["y12", "2"]}], 
           SuperscriptBox["R12", "7"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "b", " ", 
            SuperscriptBox["y13", "2"]}], 
           SuperscriptBox["R13", "5"]], "+", 
          FractionBox[
           RowBox[{"15", " ", "b", " ", 
            SuperscriptBox["x13", "2"], " ", 
            SuperscriptBox["y13", "2"]}], 
           SuperscriptBox["R13", "7"]]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"a", " ", "x12"}], "R12"], "+", 
           FractionBox[
            RowBox[{"b", " ", "x13"}], "R13"]}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"a", " ", "z12"}], "R12"], "+", 
           FractionBox[
            RowBox[{"b", " ", "z13"}], "R13"]}], ")"}], "2"]}], "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["a", "R12"]}], "-", 
          FractionBox["b", "R13"], "+", 
          FractionBox[
           RowBox[{"a", " ", 
            SuperscriptBox["x12", "2"]}], 
           SuperscriptBox["R12", "3"]], "+", 
          FractionBox[
           RowBox[{"b", " ", 
            SuperscriptBox["x13", "2"]}], 
           SuperscriptBox["R13", "3"]]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"a", " ", "z12"}], "R12"], "+", 
           FractionBox[
            RowBox[{"b", " ", "z13"}], "R13"]}], ")"}], "2"]}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"a", " ", "x12"}], "R12"], "+", 
          FractionBox[
           RowBox[{"b", " ", "x13"}], "R13"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"a", " ", "z12"}], "R12"], "+", 
          FractionBox[
           RowBox[{"b", " ", "z13"}], "R13"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"a", " ", "x12", " ", "z12"}], 
           SuperscriptBox["R12", "3"]], "+", 
          FractionBox[
           RowBox[{"b", " ", "x13", " ", "z13"}], 
           SuperscriptBox["R13", "3"]]}], ")"}]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"a", " ", "x12", " ", "z12"}], 
            SuperscriptBox["R12", "3"]], "+", 
           FractionBox[
            RowBox[{"b", " ", "x13", " ", "z13"}], 
            SuperscriptBox["R13", "3"]]}], ")"}], "2"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"a", " ", "z12"}], "R12"], "+", 
          FractionBox[
           RowBox[{"b", " ", "z13"}], "R13"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{"a", " ", "z12"}], 
            SuperscriptBox["R12", "3"]]}], "+", 
          FractionBox[
           RowBox[{"3", " ", "a", " ", 
            SuperscriptBox["x12", "2"], " ", "z12"}], 
           SuperscriptBox["R12", "5"]], "-", 
          FractionBox[
           RowBox[{"b", " ", "z13"}], 
           SuperscriptBox["R13", "3"]], "+", 
          FractionBox[
           RowBox[{"3", " ", "b", " ", 
            SuperscriptBox["x13", "2"], " ", "z13"}], 
           SuperscriptBox["R13", "5"]]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"a", " ", "x12"}], "R12"], "+", 
           FractionBox[
            RowBox[{"b", " ", "x13"}], "R13"]}], ")"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["a", "R12"]}], "-", 
          FractionBox["b", "R13"], "+", 
          FractionBox[
           RowBox[{"a", " ", 
            SuperscriptBox["z12", "2"]}], 
           SuperscriptBox["R12", "3"]], "+", 
          FractionBox[
           RowBox[{"b", " ", 
            SuperscriptBox["z13", "2"]}], 
           SuperscriptBox["R13", "3"]]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["a", "R12"]}], "-", 
          FractionBox["b", "R13"], "+", 
          FractionBox[
           RowBox[{"a", " ", 
            SuperscriptBox["x12", "2"]}], 
           SuperscriptBox["R12", "3"]], "+", 
          FractionBox[
           RowBox[{"b", " ", 
            SuperscriptBox["x13", "2"]}], 
           SuperscriptBox["R13", "3"]]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["a", "R12"]}], "-", 
          FractionBox["b", "R13"], "+", 
          FractionBox[
           RowBox[{"a", " ", 
            SuperscriptBox["z12", "2"]}], 
           SuperscriptBox["R12", "3"]], "+", 
          FractionBox[
           RowBox[{"b", " ", 
            SuperscriptBox["z13", "2"]}], 
           SuperscriptBox["R13", "3"]]}], ")"}]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"a", " ", "x12"}], "R12"], "+", 
          FractionBox[
           RowBox[{"b", " ", "x13"}], "R13"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{"a", " ", "x12"}], 
            SuperscriptBox["R12", "3"]]}], "-", 
          FractionBox[
           RowBox[{"b", " ", "x13"}], 
           SuperscriptBox["R13", "3"]], "+", 
          FractionBox[
           RowBox[{"3", " ", "a", " ", "x12", " ", 
            SuperscriptBox["z12", "2"]}], 
           SuperscriptBox["R12", "5"]], "+", 
          FractionBox[
           RowBox[{"3", " ", "b", " ", "x13", " ", 
            SuperscriptBox["z13", "2"]}], 
           SuperscriptBox["R13", "5"]]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox["a", 
           SuperscriptBox["R12", "3"]], "+", 
          FractionBox["b", 
           SuperscriptBox["R13", "3"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "a", " ", 
            SuperscriptBox["x12", "2"]}], 
           SuperscriptBox["R12", "5"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "b", " ", 
            SuperscriptBox["x13", "2"]}], 
           SuperscriptBox["R13", "5"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "a", " ", 
            SuperscriptBox["z12", "2"]}], 
           SuperscriptBox["R12", "5"]], "+", 
          FractionBox[
           RowBox[{"15", " ", "a", " ", 
            SuperscriptBox["x12", "2"], " ", 
            SuperscriptBox["z12", "2"]}], 
           SuperscriptBox["R12", "7"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "b", " ", 
            SuperscriptBox["z13", "2"]}], 
           SuperscriptBox["R13", "5"]], "+", 
          FractionBox[
           RowBox[{"15", " ", "b", " ", 
            SuperscriptBox["x13", "2"], " ", 
            SuperscriptBox["z13", "2"]}], 
           SuperscriptBox["R13", "7"]]}], ")"}]}]}], ")"}]}], "+", 
    RowBox[{
     FractionBox["1", 
      SuperscriptBox["m1", "3"]], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"a", " ", "x12"}], "R12"], "+", 
           FractionBox[
            RowBox[{"b", " ", "x13"}], "R13"]}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"a", " ", "y12"}], "R12"], "+", 
           FractionBox[
            RowBox[{"b", " ", "y13"}], "R13"]}], ")"}], "2"]}], "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["a", "R12"]}], "-", 
          FractionBox["b", "R13"], "+", 
          FractionBox[
           RowBox[{"a", " ", 
            SuperscriptBox["x12", "2"]}], 
           SuperscriptBox["R12", "3"]], "+", 
          FractionBox[
           RowBox[{"b", " ", 
            SuperscriptBox["x13", "2"]}], 
           SuperscriptBox["R13", "3"]]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"a", " ", "y12"}], "R12"], "+", 
           FractionBox[
            RowBox[{"b", " ", "y13"}], "R13"]}], ")"}], "2"]}], "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"a", " ", "y12"}], "R12"], "+", 
           FractionBox[
            RowBox[{"b", " ", "y13"}], "R13"]}], ")"}], "4"]}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"a", " ", "x12"}], "R12"], "+", 
          FractionBox[
           RowBox[{"b", " ", "x13"}], "R13"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"a", " ", "y12"}], "R12"], "+", 
          FractionBox[
           RowBox[{"b", " ", "y13"}], "R13"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"a", " ", "x12", " ", "y12"}], 
           SuperscriptBox["R12", "3"]], "+", 
          FractionBox[
           RowBox[{"b", " ", "x13", " ", "y13"}], 
           SuperscriptBox["R13", "3"]]}], ")"}]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"a", " ", "x12", " ", "y12"}], 
            SuperscriptBox["R12", "3"]], "+", 
           FractionBox[
            RowBox[{"b", " ", "x13", " ", "y13"}], 
            SuperscriptBox["R13", "3"]]}], ")"}], "2"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"a", " ", "y12"}], "R12"], "+", 
          FractionBox[
           RowBox[{"b", " ", "y13"}], "R13"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{"a", " ", "y12"}], 
            SuperscriptBox["R12", "3"]]}], "+", 
          FractionBox[
           RowBox[{"3", " ", "a", " ", 
            SuperscriptBox["x12", "2"], " ", "y12"}], 
           SuperscriptBox["R12", "5"]], "-", 
          FractionBox[
           RowBox[{"b", " ", "y13"}], 
           SuperscriptBox["R13", "3"]], "+", 
          FractionBox[
           RowBox[{"3", " ", "b", " ", 
            SuperscriptBox["x13", "2"], " ", "y13"}], 
           SuperscriptBox["R13", "5"]]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"a", " ", "x12"}], "R12"], "+", 
           FractionBox[
            RowBox[{"b", " ", "x13"}], "R13"]}], ")"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["a", "R12"]}], "-", 
          FractionBox["b", "R13"], "+", 
          FractionBox[
           RowBox[{"a", " ", 
            SuperscriptBox["y12", "2"]}], 
           SuperscriptBox["R12", "3"]], "+", 
          FractionBox[
           RowBox[{"b", " ", 
            SuperscriptBox["y13", "2"]}], 
           SuperscriptBox["R13", "3"]]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["a", "R12"]}], "-", 
          FractionBox["b", "R13"], "+", 
          FractionBox[
           RowBox[{"a", " ", 
            SuperscriptBox["x12", "2"]}], 
           SuperscriptBox["R12", "3"]], "+", 
          FractionBox[
           RowBox[{"b", " ", 
            SuperscriptBox["x13", "2"]}], 
           SuperscriptBox["R13", "3"]]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["a", "R12"]}], "-", 
          FractionBox["b", "R13"], "+", 
          FractionBox[
           RowBox[{"a", " ", 
            SuperscriptBox["y12", "2"]}], 
           SuperscriptBox["R12", "3"]], "+", 
          FractionBox[
           RowBox[{"b", " ", 
            SuperscriptBox["y13", "2"]}], 
           SuperscriptBox["R13", "3"]]}], ")"}]}], "+", 
       RowBox[{"6", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"a", " ", "y12"}], "R12"], "+", 
           FractionBox[
            RowBox[{"b", " ", "y13"}], "R13"]}], ")"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["a", "R12"]}], "-", 
          FractionBox["b", "R13"], "+", 
          FractionBox[
           RowBox[{"a", " ", 
            SuperscriptBox["y12", "2"]}], 
           SuperscriptBox["R12", "3"]], "+", 
          FractionBox[
           RowBox[{"b", " ", 
            SuperscriptBox["y13", "2"]}], 
           SuperscriptBox["R13", "3"]]}], ")"}]}], "+", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            FractionBox["a", "R12"]}], "-", 
           FractionBox["b", "R13"], "+", 
           FractionBox[
            RowBox[{"a", " ", 
             SuperscriptBox["y12", "2"]}], 
            SuperscriptBox["R12", "3"]], "+", 
           FractionBox[
            RowBox[{"b", " ", 
             SuperscriptBox["y13", "2"]}], 
            SuperscriptBox["R13", "3"]]}], ")"}], "2"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"a", " ", "x12"}], "R12"], "+", 
          FractionBox[
           RowBox[{"b", " ", "x13"}], "R13"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{"a", " ", "x12"}], 
            SuperscriptBox["R12", "3"]]}], "-", 
          FractionBox[
           RowBox[{"b", " ", "x13"}], 
           SuperscriptBox["R13", "3"]], "+", 
          FractionBox[
           RowBox[{"3", " ", "a", " ", "x12", " ", 
            SuperscriptBox["y12", "2"]}], 
           SuperscriptBox["R12", "5"]], "+", 
          FractionBox[
           RowBox[{"3", " ", "b", " ", "x13", " ", 
            SuperscriptBox["y13", "2"]}], 
           SuperscriptBox["R13", "5"]]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox["a", 
           SuperscriptBox["R12", "3"]], "+", 
          FractionBox["b", 
           SuperscriptBox["R13", "3"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "a", " ", 
            SuperscriptBox["x12", "2"]}], 
           SuperscriptBox["R12", "5"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "b", " ", 
            SuperscriptBox["x13", "2"]}], 
           SuperscriptBox["R13", "5"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "a", " ", 
            SuperscriptBox["y12", "2"]}], 
           SuperscriptBox["R12", "5"]], "+", 
          FractionBox[
           RowBox[{"15", " ", "a", " ", 
            SuperscriptBox["x12", "2"], " ", 
            SuperscriptBox["y12", "2"]}], 
           SuperscriptBox["R12", "7"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "b", " ", 
            SuperscriptBox["y13", "2"]}], 
           SuperscriptBox["R13", "5"]], "+", 
          FractionBox[
           RowBox[{"15", " ", "b", " ", 
            SuperscriptBox["x13", "2"], " ", 
            SuperscriptBox["y13", "2"]}], 
           SuperscriptBox["R13", "7"]]}], ")"}]}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"a", " ", "y12"}], "R12"], "+", 
          FractionBox[
           RowBox[{"b", " ", "y13"}], "R13"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{"3", " ", "a", " ", "y12"}], 
            SuperscriptBox["R12", "3"]]}], "+", 
          FractionBox[
           RowBox[{"3", " ", "a", " ", 
            SuperscriptBox["y12", "3"]}], 
           SuperscriptBox["R12", "5"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "b", " ", "y13"}], 
           SuperscriptBox["R13", "3"]], "+", 
          FractionBox[
           RowBox[{"3", " ", "b", " ", 
            SuperscriptBox["y13", "3"]}], 
           SuperscriptBox["R13", "5"]]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"3", " ", "a"}], 
           SuperscriptBox["R12", "3"]], "+", 
          FractionBox[
           RowBox[{"3", " ", "b"}], 
           SuperscriptBox["R13", "3"]], "-", 
          FractionBox[
           RowBox[{"18", " ", "a", " ", 
            SuperscriptBox["y12", "2"]}], 
           SuperscriptBox["R12", "5"]], "+", 
          FractionBox[
           RowBox[{"15", " ", "a", " ", 
            SuperscriptBox["y12", "4"]}], 
           SuperscriptBox["R12", "7"]], "-", 
          FractionBox[
           RowBox[{"18", " ", "b", " ", 
            SuperscriptBox["y13", "2"]}], 
           SuperscriptBox["R13", "5"]], "+", 
          FractionBox[
           RowBox[{"15", " ", "b", " ", 
            SuperscriptBox["y13", "4"]}], 
           SuperscriptBox["R13", "7"]]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"a", " ", "y12"}], "R12"], "+", 
           FractionBox[
            RowBox[{"b", " ", "y13"}], "R13"]}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"a", " ", "z12"}], "R12"], "+", 
           FractionBox[
            RowBox[{"b", " ", "z13"}], "R13"]}], ")"}], "2"]}], "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["a", "R12"]}], "-", 
          FractionBox["b", "R13"], "+", 
          FractionBox[
           RowBox[{"a", " ", 
            SuperscriptBox["y12", "2"]}], 
           SuperscriptBox["R12", "3"]], "+", 
          FractionBox[
           RowBox[{"b", " ", 
            SuperscriptBox["y13", "2"]}], 
           SuperscriptBox["R13", "3"]]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"a", " ", "z12"}], "R12"], "+", 
           FractionBox[
            RowBox[{"b", " ", "z13"}], "R13"]}], ")"}], "2"]}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"a", " ", "y12"}], "R12"], "+", 
          FractionBox[
           RowBox[{"b", " ", "y13"}], "R13"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"a", " ", "z12"}], "R12"], "+", 
          FractionBox[
           RowBox[{"b", " ", "z13"}], "R13"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"a", " ", "y12", " ", "z12"}], 
           SuperscriptBox["R12", "3"]], "+", 
          FractionBox[
           RowBox[{"b", " ", "y13", " ", "z13"}], 
           SuperscriptBox["R13", "3"]]}], ")"}]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"a", " ", "y12", " ", "z12"}], 
            SuperscriptBox["R12", "3"]], "+", 
           FractionBox[
            RowBox[{"b", " ", "y13", " ", "z13"}], 
            SuperscriptBox["R13", "3"]]}], ")"}], "2"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"a", " ", "z12"}], "R12"], "+", 
          FractionBox[
           RowBox[{"b", " ", "z13"}], "R13"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{"a", " ", "z12"}], 
            SuperscriptBox["R12", "3"]]}], "+", 
          FractionBox[
           RowBox[{"3", " ", "a", " ", 
            SuperscriptBox["y12", "2"], " ", "z12"}], 
           SuperscriptBox["R12", "5"]], "-", 
          FractionBox[
           RowBox[{"b", " ", "z13"}], 
           SuperscriptBox["R13", "3"]], "+", 
          FractionBox[
           RowBox[{"3", " ", "b", " ", 
            SuperscriptBox["y13", "2"], " ", "z13"}], 
           SuperscriptBox["R13", "5"]]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"a", " ", "y12"}], "R12"], "+", 
           FractionBox[
            RowBox[{"b", " ", "y13"}], "R13"]}], ")"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["a", "R12"]}], "-", 
          FractionBox["b", "R13"], "+", 
          FractionBox[
           RowBox[{"a", " ", 
            SuperscriptBox["z12", "2"]}], 
           SuperscriptBox["R12", "3"]], "+", 
          FractionBox[
           RowBox[{"b", " ", 
            SuperscriptBox["z13", "2"]}], 
           SuperscriptBox["R13", "3"]]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["a", "R12"]}], "-", 
          FractionBox["b", "R13"], "+", 
          FractionBox[
           RowBox[{"a", " ", 
            SuperscriptBox["y12", "2"]}], 
           SuperscriptBox["R12", "3"]], "+", 
          FractionBox[
           RowBox[{"b", " ", 
            SuperscriptBox["y13", "2"]}], 
           SuperscriptBox["R13", "3"]]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["a", "R12"]}], "-", 
          FractionBox["b", "R13"], "+", 
          FractionBox[
           RowBox[{"a", " ", 
            SuperscriptBox["z12", "2"]}], 
           SuperscriptBox["R12", "3"]], "+", 
          FractionBox[
           RowBox[{"b", " ", 
            SuperscriptBox["z13", "2"]}], 
           SuperscriptBox["R13", "3"]]}], ")"}]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"a", " ", "y12"}], "R12"], "+", 
          FractionBox[
           RowBox[{"b", " ", "y13"}], "R13"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{"a", " ", "y12"}], 
            SuperscriptBox["R12", "3"]]}], "-", 
          FractionBox[
           RowBox[{"b", " ", "y13"}], 
           SuperscriptBox["R13", "3"]], "+", 
          FractionBox[
           RowBox[{"3", " ", "a", " ", "y12", " ", 
            SuperscriptBox["z12", "2"]}], 
           SuperscriptBox["R12", "5"]], "+", 
          FractionBox[
           RowBox[{"3", " ", "b", " ", "y13", " ", 
            SuperscriptBox["z13", "2"]}], 
           SuperscriptBox["R13", "5"]]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox["a", 
           SuperscriptBox["R12", "3"]], "+", 
          FractionBox["b", 
           SuperscriptBox["R13", "3"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "a", " ", 
            SuperscriptBox["y12", "2"]}], 
           SuperscriptBox["R12", "5"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "b", " ", 
            SuperscriptBox["y13", "2"]}], 
           SuperscriptBox["R13", "5"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "a", " ", 
            SuperscriptBox["z12", "2"]}], 
           SuperscriptBox["R12", "5"]], "+", 
          FractionBox[
           RowBox[{"15", " ", "a", " ", 
            SuperscriptBox["y12", "2"], " ", 
            SuperscriptBox["z12", "2"]}], 
           SuperscriptBox["R12", "7"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "b", " ", 
            SuperscriptBox["z13", "2"]}], 
           SuperscriptBox["R13", "5"]], "+", 
          FractionBox[
           RowBox[{"15", " ", "b", " ", 
            SuperscriptBox["y13", "2"], " ", 
            SuperscriptBox["z13", "2"]}], 
           SuperscriptBox["R13", "7"]]}], ")"}]}]}], ")"}]}], "+", 
    RowBox[{
     FractionBox["1", 
      SuperscriptBox["m1", "3"]], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"a", " ", "x12"}], "R12"], "+", 
           FractionBox[
            RowBox[{"b", " ", "x13"}], "R13"]}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"a", " ", "z12"}], "R12"], "+", 
           FractionBox[
            RowBox[{"b", " ", "z13"}], "R13"]}], ")"}], "2"]}], "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["a", "R12"]}], "-", 
          FractionBox["b", "R13"], "+", 
          FractionBox[
           RowBox[{"a", " ", 
            SuperscriptBox["x12", "2"]}], 
           SuperscriptBox["R12", "3"]], "+", 
          FractionBox[
           RowBox[{"b", " ", 
            SuperscriptBox["x13", "2"]}], 
           SuperscriptBox["R13", "3"]]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"a", " ", "z12"}], "R12"], "+", 
           FractionBox[
            RowBox[{"b", " ", "z13"}], "R13"]}], ")"}], "2"]}], "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"a", " ", "y12"}], "R12"], "+", 
           FractionBox[
            RowBox[{"b", " ", "y13"}], "R13"]}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"a", " ", "z12"}], "R12"], "+", 
           FractionBox[
            RowBox[{"b", " ", "z13"}], "R13"]}], ")"}], "2"]}], "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["a", "R12"]}], "-", 
          FractionBox["b", "R13"], "+", 
          FractionBox[
           RowBox[{"a", " ", 
            SuperscriptBox["y12", "2"]}], 
           SuperscriptBox["R12", "3"]], "+", 
          FractionBox[
           RowBox[{"b", " ", 
            SuperscriptBox["y13", "2"]}], 
           SuperscriptBox["R13", "3"]]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"a", " ", "z12"}], "R12"], "+", 
           FractionBox[
            RowBox[{"b", " ", "z13"}], "R13"]}], ")"}], "2"]}], "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"a", " ", "z12"}], "R12"], "+", 
           FractionBox[
            RowBox[{"b", " ", "z13"}], "R13"]}], ")"}], "4"]}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"a", " ", "x12"}], "R12"], "+", 
          FractionBox[
           RowBox[{"b", " ", "x13"}], "R13"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"a", " ", "z12"}], "R12"], "+", 
          FractionBox[
           RowBox[{"b", " ", "z13"}], "R13"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"a", " ", "x12", " ", "z12"}], 
           SuperscriptBox["R12", "3"]], "+", 
          FractionBox[
           RowBox[{"b", " ", "x13", " ", "z13"}], 
           SuperscriptBox["R13", "3"]]}], ")"}]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"a", " ", "x12", " ", "z12"}], 
            SuperscriptBox["R12", "3"]], "+", 
           FractionBox[
            RowBox[{"b", " ", "x13", " ", "z13"}], 
            SuperscriptBox["R13", "3"]]}], ")"}], "2"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"a", " ", "z12"}], "R12"], "+", 
          FractionBox[
           RowBox[{"b", " ", "z13"}], "R13"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{"a", " ", "z12"}], 
            SuperscriptBox["R12", "3"]]}], "+", 
          FractionBox[
           RowBox[{"3", " ", "a", " ", 
            SuperscriptBox["x12", "2"], " ", "z12"}], 
           SuperscriptBox["R12", "5"]], "-", 
          FractionBox[
           RowBox[{"b", " ", "z13"}], 
           SuperscriptBox["R13", "3"]], "+", 
          FractionBox[
           RowBox[{"3", " ", "b", " ", 
            SuperscriptBox["x13", "2"], " ", "z13"}], 
           SuperscriptBox["R13", "5"]]}], ")"}]}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"a", " ", "y12"}], "R12"], "+", 
          FractionBox[
           RowBox[{"b", " ", "y13"}], "R13"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"a", " ", "z12"}], "R12"], "+", 
          FractionBox[
           RowBox[{"b", " ", "z13"}], "R13"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"a", " ", "y12", " ", "z12"}], 
           SuperscriptBox["R12", "3"]], "+", 
          FractionBox[
           RowBox[{"b", " ", "y13", " ", "z13"}], 
           SuperscriptBox["R13", "3"]]}], ")"}]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"a", " ", "y12", " ", "z12"}], 
            SuperscriptBox["R12", "3"]], "+", 
           FractionBox[
            RowBox[{"b", " ", "y13", " ", "z13"}], 
            SuperscriptBox["R13", "3"]]}], ")"}], "2"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"a", " ", "z12"}], "R12"], "+", 
          FractionBox[
           RowBox[{"b", " ", "z13"}], "R13"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{"a", " ", "z12"}], 
            SuperscriptBox["R12", "3"]]}], "+", 
          FractionBox[
           RowBox[{"3", " ", "a", " ", 
            SuperscriptBox["y12", "2"], " ", "z12"}], 
           SuperscriptBox["R12", "5"]], "-", 
          FractionBox[
           RowBox[{"b", " ", "z13"}], 
           SuperscriptBox["R13", "3"]], "+", 
          FractionBox[
           RowBox[{"3", " ", "b", " ", 
            SuperscriptBox["y13", "2"], " ", "z13"}], 
           SuperscriptBox["R13", "5"]]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"a", " ", "x12"}], "R12"], "+", 
           FractionBox[
            RowBox[{"b", " ", "x13"}], "R13"]}], ")"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["a", "R12"]}], "-", 
          FractionBox["b", "R13"], "+", 
          FractionBox[
           RowBox[{"a", " ", 
            SuperscriptBox["z12", "2"]}], 
           SuperscriptBox["R12", "3"]], "+", 
          FractionBox[
           RowBox[{"b", " ", 
            SuperscriptBox["z13", "2"]}], 
           SuperscriptBox["R13", "3"]]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["a", "R12"]}], "-", 
          FractionBox["b", "R13"], "+", 
          FractionBox[
           RowBox[{"a", " ", 
            SuperscriptBox["x12", "2"]}], 
           SuperscriptBox["R12", "3"]], "+", 
          FractionBox[
           RowBox[{"b", " ", 
            SuperscriptBox["x13", "2"]}], 
           SuperscriptBox["R13", "3"]]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["a", "R12"]}], "-", 
          FractionBox["b", "R13"], "+", 
          FractionBox[
           RowBox[{"a", " ", 
            SuperscriptBox["z12", "2"]}], 
           SuperscriptBox["R12", "3"]], "+", 
          FractionBox[
           RowBox[{"b", " ", 
            SuperscriptBox["z13", "2"]}], 
           SuperscriptBox["R13", "3"]]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"a", " ", "y12"}], "R12"], "+", 
           FractionBox[
            RowBox[{"b", " ", "y13"}], "R13"]}], ")"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["a", "R12"]}], "-", 
          FractionBox["b", "R13"], "+", 
          FractionBox[
           RowBox[{"a", " ", 
            SuperscriptBox["z12", "2"]}], 
           SuperscriptBox["R12", "3"]], "+", 
          FractionBox[
           RowBox[{"b", " ", 
            SuperscriptBox["z13", "2"]}], 
           SuperscriptBox["R13", "3"]]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["a", "R12"]}], "-", 
          FractionBox["b", "R13"], "+", 
          FractionBox[
           RowBox[{"a", " ", 
            SuperscriptBox["y12", "2"]}], 
           SuperscriptBox["R12", "3"]], "+", 
          FractionBox[
           RowBox[{"b", " ", 
            SuperscriptBox["y13", "2"]}], 
           SuperscriptBox["R13", "3"]]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["a", "R12"]}], "-", 
          FractionBox["b", "R13"], "+", 
          FractionBox[
           RowBox[{"a", " ", 
            SuperscriptBox["z12", "2"]}], 
           SuperscriptBox["R12", "3"]], "+", 
          FractionBox[
           RowBox[{"b", " ", 
            SuperscriptBox["z13", "2"]}], 
           SuperscriptBox["R13", "3"]]}], ")"}]}], "+", 
       RowBox[{"6", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"a", " ", "z12"}], "R12"], "+", 
           FractionBox[
            RowBox[{"b", " ", "z13"}], "R13"]}], ")"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["a", "R12"]}], "-", 
          FractionBox["b", "R13"], "+", 
          FractionBox[
           RowBox[{"a", " ", 
            SuperscriptBox["z12", "2"]}], 
           SuperscriptBox["R12", "3"]], "+", 
          FractionBox[
           RowBox[{"b", " ", 
            SuperscriptBox["z13", "2"]}], 
           SuperscriptBox["R13", "3"]]}], ")"}]}], "+", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            FractionBox["a", "R12"]}], "-", 
           FractionBox["b", "R13"], "+", 
           FractionBox[
            RowBox[{"a", " ", 
             SuperscriptBox["z12", "2"]}], 
            SuperscriptBox["R12", "3"]], "+", 
           FractionBox[
            RowBox[{"b", " ", 
             SuperscriptBox["z13", "2"]}], 
            SuperscriptBox["R13", "3"]]}], ")"}], "2"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"a", " ", "x12"}], "R12"], "+", 
          FractionBox[
           RowBox[{"b", " ", "x13"}], "R13"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{"a", " ", "x12"}], 
            SuperscriptBox["R12", "3"]]}], "-", 
          FractionBox[
           RowBox[{"b", " ", "x13"}], 
           SuperscriptBox["R13", "3"]], "+", 
          FractionBox[
           RowBox[{"3", " ", "a", " ", "x12", " ", 
            SuperscriptBox["z12", "2"]}], 
           SuperscriptBox["R12", "5"]], "+", 
          FractionBox[
           RowBox[{"3", " ", "b", " ", "x13", " ", 
            SuperscriptBox["z13", "2"]}], 
           SuperscriptBox["R13", "5"]]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox["a", 
           SuperscriptBox["R12", "3"]], "+", 
          FractionBox["b", 
           SuperscriptBox["R13", "3"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "a", " ", 
            SuperscriptBox["x12", "2"]}], 
           SuperscriptBox["R12", "5"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "b", " ", 
            SuperscriptBox["x13", "2"]}], 
           SuperscriptBox["R13", "5"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "a", " ", 
            SuperscriptBox["z12", "2"]}], 
           SuperscriptBox["R12", "5"]], "+", 
          FractionBox[
           RowBox[{"15", " ", "a", " ", 
            SuperscriptBox["x12", "2"], " ", 
            SuperscriptBox["z12", "2"]}], 
           SuperscriptBox["R12", "7"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "b", " ", 
            SuperscriptBox["z13", "2"]}], 
           SuperscriptBox["R13", "5"]], "+", 
          FractionBox[
           RowBox[{"15", " ", "b", " ", 
            SuperscriptBox["x13", "2"], " ", 
            SuperscriptBox["z13", "2"]}], 
           SuperscriptBox["R13", "7"]]}], ")"}]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"a", " ", "y12"}], "R12"], "+", 
          FractionBox[
           RowBox[{"b", " ", "y13"}], "R13"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{"a", " ", "y12"}], 
            SuperscriptBox["R12", "3"]]}], "-", 
          FractionBox[
           RowBox[{"b", " ", "y13"}], 
           SuperscriptBox["R13", "3"]], "+", 
          FractionBox[
           RowBox[{"3", " ", "a", " ", "y12", " ", 
            SuperscriptBox["z12", "2"]}], 
           SuperscriptBox["R12", "5"]], "+", 
          FractionBox[
           RowBox[{"3", " ", "b", " ", "y13", " ", 
            SuperscriptBox["z13", "2"]}], 
           SuperscriptBox["R13", "5"]]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox["a", 
           SuperscriptBox["R12", "3"]], "+", 
          FractionBox["b", 
           SuperscriptBox["R13", "3"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "a", " ", 
            SuperscriptBox["y12", "2"]}], 
           SuperscriptBox["R12", "5"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "b", " ", 
            SuperscriptBox["y13", "2"]}], 
           SuperscriptBox["R13", "5"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "a", " ", 
            SuperscriptBox["z12", "2"]}], 
           SuperscriptBox["R12", "5"]], "+", 
          FractionBox[
           RowBox[{"15", " ", "a", " ", 
            SuperscriptBox["y12", "2"], " ", 
            SuperscriptBox["z12", "2"]}], 
           SuperscriptBox["R12", "7"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "b", " ", 
            SuperscriptBox["z13", "2"]}], 
           SuperscriptBox["R13", "5"]], "+", 
          FractionBox[
           RowBox[{"15", " ", "b", " ", 
            SuperscriptBox["y13", "2"], " ", 
            SuperscriptBox["z13", "2"]}], 
           SuperscriptBox["R13", "7"]]}], ")"}]}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"a", " ", "z12"}], "R12"], "+", 
          FractionBox[
           RowBox[{"b", " ", "z13"}], "R13"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{"3", " ", "a", " ", "z12"}], 
            SuperscriptBox["R12", "3"]]}], "+", 
          FractionBox[
           RowBox[{"3", " ", "a", " ", 
            SuperscriptBox["z12", "3"]}], 
           SuperscriptBox["R12", "5"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "b", " ", "z13"}], 
           SuperscriptBox["R13", "3"]], "+", 
          FractionBox[
           RowBox[{"3", " ", "b", " ", 
            SuperscriptBox["z13", "3"]}], 
           SuperscriptBox["R13", "5"]]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"3", " ", "a"}], 
           SuperscriptBox["R12", "3"]], "+", 
          FractionBox[
           RowBox[{"3", " ", "b"}], 
           SuperscriptBox["R13", "3"]], "-", 
          FractionBox[
           RowBox[{"18", " ", "a", " ", 
            SuperscriptBox["z12", "2"]}], 
           SuperscriptBox["R12", "5"]], "+", 
          FractionBox[
           RowBox[{"15", " ", "a", " ", 
            SuperscriptBox["z12", "4"]}], 
           SuperscriptBox["R12", "7"]], "-", 
          FractionBox[
           RowBox[{"18", " ", "b", " ", 
            SuperscriptBox["z13", "2"]}], 
           SuperscriptBox["R13", "5"]], "+", 
          FractionBox[
           RowBox[{"15", " ", "b", " ", 
            SuperscriptBox["z13", "4"]}], 
           SuperscriptBox["R13", "7"]]}], ")"}]}]}], ")"}]}], "+", 
    RowBox[{
     FractionBox["1", 
      SuperscriptBox["m2", "3"]], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            FractionBox[
             RowBox[{"a", " ", "x12"}], "R12"]}], "+", 
           FractionBox[
            RowBox[{"c", " ", "x23"}], "R23"]}], ")"}], "4"]}], "+", 
       RowBox[{"6", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            FractionBox[
             RowBox[{"a", " ", "x12"}], "R12"]}], "+", 
           FractionBox[
            RowBox[{"c", " ", "x23"}], "R23"]}], ")"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["a", "R12"]}], "-", 
          FractionBox["c", "R23"], "+", 
          FractionBox[
           RowBox[{"a", " ", 
            SuperscriptBox["x12", "2"]}], 
           SuperscriptBox["R12", "3"]], "+", 
          FractionBox[
           RowBox[{"c", " ", 
            SuperscriptBox["x23", "2"]}], 
           SuperscriptBox["R23", "3"]]}], ")"}]}], "+", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            FractionBox["a", "R12"]}], "-", 
           FractionBox["c", "R23"], "+", 
           FractionBox[
            RowBox[{"a", " ", 
             SuperscriptBox["x12", "2"]}], 
            SuperscriptBox["R12", "3"]], "+", 
           FractionBox[
            RowBox[{"c", " ", 
             SuperscriptBox["x23", "2"]}], 
            SuperscriptBox["R23", "3"]]}], ")"}], "2"]}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{"a", " ", "x12"}], "R12"]}], "+", 
          FractionBox[
           RowBox[{"c", " ", "x23"}], "R23"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"3", " ", "a", " ", "x12"}], 
           SuperscriptBox["R12", "3"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "a", " ", 
            SuperscriptBox["x12", "3"]}], 
           SuperscriptBox["R12", "5"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "c", " ", "x23"}], 
           SuperscriptBox["R23", "3"]], "+", 
          FractionBox[
           RowBox[{"3", " ", "c", " ", 
            SuperscriptBox["x23", "3"]}], 
           SuperscriptBox["R23", "5"]]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"3", " ", "a"}], 
           SuperscriptBox["R12", "3"]], "+", 
          FractionBox[
           RowBox[{"3", " ", "c"}], 
           SuperscriptBox["R23", "3"]], "-", 
          FractionBox[
           RowBox[{"18", " ", "a", " ", 
            SuperscriptBox["x12", "2"]}], 
           SuperscriptBox["R12", "5"]], "+", 
          FractionBox[
           RowBox[{"15", " ", "a", " ", 
            SuperscriptBox["x12", "4"]}], 
           SuperscriptBox["R12", "7"]], "-", 
          FractionBox[
           RowBox[{"18", " ", "c", " ", 
            SuperscriptBox["x23", "2"]}], 
           SuperscriptBox["R23", "5"]], "+", 
          FractionBox[
           RowBox[{"15", " ", "c", " ", 
            SuperscriptBox["x23", "4"]}], 
           SuperscriptBox["R23", "7"]]}], ")"}]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            FractionBox[
             RowBox[{"a", " ", "x12"}], "R12"]}], "+", 
           FractionBox[
            RowBox[{"c", " ", "x23"}], "R23"]}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            FractionBox[
             RowBox[{"a", " ", "y12"}], "R12"]}], "+", 
           FractionBox[
            RowBox[{"c", " ", "y23"}], "R23"]}], ")"}], "2"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["a", "R12"]}], "-", 
          FractionBox["c", "R23"], "+", 
          FractionBox[
           RowBox[{"a", " ", 
            SuperscriptBox["x12", "2"]}], 
           SuperscriptBox["R12", "3"]], "+", 
          FractionBox[
           RowBox[{"c", " ", 
            SuperscriptBox["x23", "2"]}], 
           SuperscriptBox["R23", "3"]]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            FractionBox[
             RowBox[{"a", " ", "y12"}], "R12"]}], "+", 
           FractionBox[
            RowBox[{"c", " ", "y23"}], "R23"]}], ")"}], "2"]}], "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            FractionBox[
             RowBox[{"a", " ", "y12"}], "R12"]}], "+", 
           FractionBox[
            RowBox[{"c", " ", "y23"}], "R23"]}], ")"}], "4"]}], "+", 
       RowBox[{"8", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{"a", " ", "x12"}], "R12"]}], "+", 
          FractionBox[
           RowBox[{"c", " ", "x23"}], "R23"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{"a", " ", "y12"}], "R12"]}], "+", 
          FractionBox[
           RowBox[{"c", " ", "y23"}], "R23"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"a", " ", "x12", " ", "y12"}], 
           SuperscriptBox["R12", "3"]], "+", 
          FractionBox[
           RowBox[{"c", " ", "x23", " ", "y23"}], 
           SuperscriptBox["R23", "3"]]}], ")"}]}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"a", " ", "x12", " ", "y12"}], 
            SuperscriptBox["R12", "3"]], "+", 
           FractionBox[
            RowBox[{"c", " ", "x23", " ", "y23"}], 
            SuperscriptBox["R23", "3"]]}], ")"}], "2"]}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{"a", " ", "y12"}], "R12"]}], "+", 
          FractionBox[
           RowBox[{"c", " ", "y23"}], "R23"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"a", " ", "y12"}], 
           SuperscriptBox["R12", "3"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "a", " ", 
            SuperscriptBox["x12", "2"], " ", "y12"}], 
           SuperscriptBox["R12", "5"]], "-", 
          FractionBox[
           RowBox[{"c", " ", "y23"}], 
           SuperscriptBox["R23", "3"]], "+", 
          FractionBox[
           RowBox[{"3", " ", "c", " ", 
            SuperscriptBox["x23", "2"], " ", "y23"}], 
           SuperscriptBox["R23", "5"]]}], ")"}]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            FractionBox[
             RowBox[{"a", " ", "x12"}], "R12"]}], "+", 
           FractionBox[
            RowBox[{"c", " ", "x23"}], "R23"]}], ")"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["a", "R12"]}], "-", 
          FractionBox["c", "R23"], "+", 
          FractionBox[
           RowBox[{"a", " ", 
            SuperscriptBox["y12", "2"]}], 
           SuperscriptBox["R12", "3"]], "+", 
          FractionBox[
           RowBox[{"c", " ", 
            SuperscriptBox["y23", "2"]}], 
           SuperscriptBox["R23", "3"]]}], ")"}]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["a", "R12"]}], "-", 
          FractionBox["c", "R23"], "+", 
          FractionBox[
           RowBox[{"a", " ", 
            SuperscriptBox["x12", "2"]}], 
           SuperscriptBox["R12", "3"]], "+", 
          FractionBox[
           RowBox[{"c", " ", 
            SuperscriptBox["x23", "2"]}], 
           SuperscriptBox["R23", "3"]]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["a", "R12"]}], "-", 
          FractionBox["c", "R23"], "+", 
          FractionBox[
           RowBox[{"a", " ", 
            SuperscriptBox["y12", "2"]}], 
           SuperscriptBox["R12", "3"]], "+", 
          FractionBox[
           RowBox[{"c", " ", 
            SuperscriptBox["y23", "2"]}], 
           SuperscriptBox["R23", "3"]]}], ")"}]}], "+", 
       RowBox[{"6", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            FractionBox[
             RowBox[{"a", " ", "y12"}], "R12"]}], "+", 
           FractionBox[
            RowBox[{"c", " ", "y23"}], "R23"]}], ")"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["a", "R12"]}], "-", 
          FractionBox["c", "R23"], "+", 
          FractionBox[
           RowBox[{"a", " ", 
            SuperscriptBox["y12", "2"]}], 
           SuperscriptBox["R12", "3"]], "+", 
          FractionBox[
           RowBox[{"c", " ", 
            SuperscriptBox["y23", "2"]}], 
           SuperscriptBox["R23", "3"]]}], ")"}]}], "+", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            FractionBox["a", "R12"]}], "-", 
           FractionBox["c", "R23"], "+", 
           FractionBox[
            RowBox[{"a", " ", 
             SuperscriptBox["y12", "2"]}], 
            SuperscriptBox["R12", "3"]], "+", 
           FractionBox[
            RowBox[{"c", " ", 
             SuperscriptBox["y23", "2"]}], 
            SuperscriptBox["R23", "3"]]}], ")"}], "2"]}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{"a", " ", "x12"}], "R12"]}], "+", 
          FractionBox[
           RowBox[{"c", " ", "x23"}], "R23"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"a", " ", "x12"}], 
           SuperscriptBox["R12", "3"]], "-", 
          FractionBox[
           RowBox[{"c", " ", "x23"}], 
           SuperscriptBox["R23", "3"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "a", " ", "x12", " ", 
            SuperscriptBox["y12", "2"]}], 
           SuperscriptBox["R12", "5"]], "+", 
          FractionBox[
           RowBox[{"3", " ", "c", " ", "x23", " ", 
            SuperscriptBox["y23", "2"]}], 
           SuperscriptBox["R23", "5"]]}], ")"}]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox["a", 
           SuperscriptBox["R12", "3"]], "+", 
          FractionBox["c", 
           SuperscriptBox["R23", "3"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "a", " ", 
            SuperscriptBox["x12", "2"]}], 
           SuperscriptBox["R12", "5"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "c", " ", 
            SuperscriptBox["x23", "2"]}], 
           SuperscriptBox["R23", "5"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "a", " ", 
            SuperscriptBox["y12", "2"]}], 
           SuperscriptBox["R12", "5"]], "+", 
          FractionBox[
           RowBox[{"15", " ", "a", " ", 
            SuperscriptBox["x12", "2"], " ", 
            SuperscriptBox["y12", "2"]}], 
           SuperscriptBox["R12", "7"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "c", " ", 
            SuperscriptBox["y23", "2"]}], 
           SuperscriptBox["R23", "5"]], "+", 
          FractionBox[
           RowBox[{"15", " ", "c", " ", 
            SuperscriptBox["x23", "2"], " ", 
            SuperscriptBox["y23", "2"]}], 
           SuperscriptBox["R23", "7"]]}], ")"}]}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{"a", " ", "y12"}], "R12"]}], "+", 
          FractionBox[
           RowBox[{"c", " ", "y23"}], "R23"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"3", " ", "a", " ", "y12"}], 
           SuperscriptBox["R12", "3"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "a", " ", 
            SuperscriptBox["y12", "3"]}], 
           SuperscriptBox["R12", "5"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "c", " ", "y23"}], 
           SuperscriptBox["R23", "3"]], "+", 
          FractionBox[
           RowBox[{"3", " ", "c", " ", 
            SuperscriptBox["y23", "3"]}], 
           SuperscriptBox["R23", "5"]]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"3", " ", "a"}], 
           SuperscriptBox["R12", "3"]], "+", 
          FractionBox[
           RowBox[{"3", " ", "c"}], 
           SuperscriptBox["R23", "3"]], "-", 
          FractionBox[
           RowBox[{"18", " ", "a", " ", 
            SuperscriptBox["y12", "2"]}], 
           SuperscriptBox["R12", "5"]], "+", 
          FractionBox[
           RowBox[{"15", " ", "a", " ", 
            SuperscriptBox["y12", "4"]}], 
           SuperscriptBox["R12", "7"]], "-", 
          FractionBox[
           RowBox[{"18", " ", "c", " ", 
            SuperscriptBox["y23", "2"]}], 
           SuperscriptBox["R23", "5"]], "+", 
          FractionBox[
           RowBox[{"15", " ", "c", " ", 
            SuperscriptBox["y23", "4"]}], 
           SuperscriptBox["R23", "7"]]}], ")"}]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            FractionBox[
             RowBox[{"a", " ", "x12"}], "R12"]}], "+", 
           FractionBox[
            RowBox[{"c", " ", "x23"}], "R23"]}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            FractionBox[
             RowBox[{"a", " ", "z12"}], "R12"]}], "+", 
           FractionBox[
            RowBox[{"c", " ", "z23"}], "R23"]}], ")"}], "2"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["a", "R12"]}], "-", 
          FractionBox["c", "R23"], "+", 
          FractionBox[
           RowBox[{"a", " ", 
            SuperscriptBox["x12", "2"]}], 
           SuperscriptBox["R12", "3"]], "+", 
          FractionBox[
           RowBox[{"c", " ", 
            SuperscriptBox["x23", "2"]}], 
           SuperscriptBox["R23", "3"]]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            FractionBox[
             RowBox[{"a", " ", "z12"}], "R12"]}], "+", 
           FractionBox[
            RowBox[{"c", " ", "z23"}], "R23"]}], ")"}], "2"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            FractionBox[
             RowBox[{"a", " ", "y12"}], "R12"]}], "+", 
           FractionBox[
            RowBox[{"c", " ", "y23"}], "R23"]}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            FractionBox[
             RowBox[{"a", " ", "z12"}], "R12"]}], "+", 
           FractionBox[
            RowBox[{"c", " ", "z23"}], "R23"]}], ")"}], "2"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["a", "R12"]}], "-", 
          FractionBox["c", "R23"], "+", 
          FractionBox[
           RowBox[{"a", " ", 
            SuperscriptBox["y12", "2"]}], 
           SuperscriptBox["R12", "3"]], "+", 
          FractionBox[
           RowBox[{"c", " ", 
            SuperscriptBox["y23", "2"]}], 
           SuperscriptBox["R23", "3"]]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            FractionBox[
             RowBox[{"a", " ", "z12"}], "R12"]}], "+", 
           FractionBox[
            RowBox[{"c", " ", "z23"}], "R23"]}], ")"}], "2"]}], "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            FractionBox[
             RowBox[{"a", " ", "z12"}], "R12"]}], "+", 
           FractionBox[
            RowBox[{"c", " ", "z23"}], "R23"]}], ")"}], "4"]}], "+", 
       RowBox[{"8", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{"a", " ", "x12"}], "R12"]}], "+", 
          FractionBox[
           RowBox[{"c", " ", "x23"}], "R23"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{"a", " ", "z12"}], "R12"]}], "+", 
          FractionBox[
           RowBox[{"c", " ", "z23"}], "R23"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"a", " ", "x12", " ", "z12"}], 
           SuperscriptBox["R12", "3"]], "+", 
          FractionBox[
           RowBox[{"c", " ", "x23", " ", "z23"}], 
           SuperscriptBox["R23", "3"]]}], ")"}]}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"a", " ", "x12", " ", "z12"}], 
            SuperscriptBox["R12", "3"]], "+", 
           FractionBox[
            RowBox[{"c", " ", "x23", " ", "z23"}], 
            SuperscriptBox["R23", "3"]]}], ")"}], "2"]}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{"a", " ", "z12"}], "R12"]}], "+", 
          FractionBox[
           RowBox[{"c", " ", "z23"}], "R23"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"a", " ", "z12"}], 
           SuperscriptBox["R12", "3"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "a", " ", 
            SuperscriptBox["x12", "2"], " ", "z12"}], 
           SuperscriptBox["R12", "5"]], "-", 
          FractionBox[
           RowBox[{"c", " ", "z23"}], 
           SuperscriptBox["R23", "3"]], "+", 
          FractionBox[
           RowBox[{"3", " ", "c", " ", 
            SuperscriptBox["x23", "2"], " ", "z23"}], 
           SuperscriptBox["R23", "5"]]}], ")"}]}], "+", 
       RowBox[{"8", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{"a", " ", "y12"}], "R12"]}], "+", 
          FractionBox[
           RowBox[{"c", " ", "y23"}], "R23"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{"a", " ", "z12"}], "R12"]}], "+", 
          FractionBox[
           RowBox[{"c", " ", "z23"}], "R23"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"a", " ", "y12", " ", "z12"}], 
           SuperscriptBox["R12", "3"]], "+", 
          FractionBox[
           RowBox[{"c", " ", "y23", " ", "z23"}], 
           SuperscriptBox["R23", "3"]]}], ")"}]}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"a", " ", "y12", " ", "z12"}], 
            SuperscriptBox["R12", "3"]], "+", 
           FractionBox[
            RowBox[{"c", " ", "y23", " ", "z23"}], 
            SuperscriptBox["R23", "3"]]}], ")"}], "2"]}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{"a", " ", "z12"}], "R12"]}], "+", 
          FractionBox[
           RowBox[{"c", " ", "z23"}], "R23"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"a", " ", "z12"}], 
           SuperscriptBox["R12", "3"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "a", " ", 
            SuperscriptBox["y12", "2"], " ", "z12"}], 
           SuperscriptBox["R12", "5"]], "-", 
          FractionBox[
           RowBox[{"c", " ", "z23"}], 
           SuperscriptBox["R23", "3"]], "+", 
          FractionBox[
           RowBox[{"3", " ", "c", " ", 
            SuperscriptBox["y23", "2"], " ", "z23"}], 
           SuperscriptBox["R23", "5"]]}], ")"}]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            FractionBox[
             RowBox[{"a", " ", "x12"}], "R12"]}], "+", 
           FractionBox[
            RowBox[{"c", " ", "x23"}], "R23"]}], ")"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["a", "R12"]}], "-", 
          FractionBox["c", "R23"], "+", 
          FractionBox[
           RowBox[{"a", " ", 
            SuperscriptBox["z12", "2"]}], 
           SuperscriptBox["R12", "3"]], "+", 
          FractionBox[
           RowBox[{"c", " ", 
            SuperscriptBox["z23", "2"]}], 
           SuperscriptBox["R23", "3"]]}], ")"}]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["a", "R12"]}], "-", 
          FractionBox["c", "R23"], "+", 
          FractionBox[
           RowBox[{"a", " ", 
            SuperscriptBox["x12", "2"]}], 
           SuperscriptBox["R12", "3"]], "+", 
          FractionBox[
           RowBox[{"c", " ", 
            SuperscriptBox["x23", "2"]}], 
           SuperscriptBox["R23", "3"]]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["a", "R12"]}], "-", 
          FractionBox["c", "R23"], "+", 
          FractionBox[
           RowBox[{"a", " ", 
            SuperscriptBox["z12", "2"]}], 
           SuperscriptBox["R12", "3"]], "+", 
          FractionBox[
           RowBox[{"c", " ", 
            SuperscriptBox["z23", "2"]}], 
           SuperscriptBox["R23", "3"]]}], ")"}]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            FractionBox[
             RowBox[{"a", " ", "y12"}], "R12"]}], "+", 
           FractionBox[
            RowBox[{"c", " ", "y23"}], "R23"]}], ")"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["a", "R12"]}], "-", 
          FractionBox["c", "R23"], "+", 
          FractionBox[
           RowBox[{"a", " ", 
            SuperscriptBox["z12", "2"]}], 
           SuperscriptBox["R12", "3"]], "+", 
          FractionBox[
           RowBox[{"c", " ", 
            SuperscriptBox["z23", "2"]}], 
           SuperscriptBox["R23", "3"]]}], ")"}]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["a", "R12"]}], "-", 
          FractionBox["c", "R23"], "+", 
          FractionBox[
           RowBox[{"a", " ", 
            SuperscriptBox["y12", "2"]}], 
           SuperscriptBox["R12", "3"]], "+", 
          FractionBox[
           RowBox[{"c", " ", 
            SuperscriptBox["y23", "2"]}], 
           SuperscriptBox["R23", "3"]]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["a", "R12"]}], "-", 
          FractionBox["c", "R23"], "+", 
          FractionBox[
           RowBox[{"a", " ", 
            SuperscriptBox["z12", "2"]}], 
           SuperscriptBox["R12", "3"]], "+", 
          FractionBox[
           RowBox[{"c", " ", 
            SuperscriptBox["z23", "2"]}], 
           SuperscriptBox["R23", "3"]]}], ")"}]}], "+", 
       RowBox[{"6", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            FractionBox[
             RowBox[{"a", " ", "z12"}], "R12"]}], "+", 
           FractionBox[
            RowBox[{"c", " ", "z23"}], "R23"]}], ")"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["a", "R12"]}], "-", 
          FractionBox["c", "R23"], "+", 
          FractionBox[
           RowBox[{"a", " ", 
            SuperscriptBox["z12", "2"]}], 
           SuperscriptBox["R12", "3"]], "+", 
          FractionBox[
           RowBox[{"c", " ", 
            SuperscriptBox["z23", "2"]}], 
           SuperscriptBox["R23", "3"]]}], ")"}]}], "+", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            FractionBox["a", "R12"]}], "-", 
           FractionBox["c", "R23"], "+", 
           FractionBox[
            RowBox[{"a", " ", 
             SuperscriptBox["z12", "2"]}], 
            SuperscriptBox["R12", "3"]], "+", 
           FractionBox[
            RowBox[{"c", " ", 
             SuperscriptBox["z23", "2"]}], 
            SuperscriptBox["R23", "3"]]}], ")"}], "2"]}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{"a", " ", "x12"}], "R12"]}], "+", 
          FractionBox[
           RowBox[{"c", " ", "x23"}], "R23"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"a", " ", "x12"}], 
           SuperscriptBox["R12", "3"]], "-", 
          FractionBox[
           RowBox[{"c", " ", "x23"}], 
           SuperscriptBox["R23", "3"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "a", " ", "x12", " ", 
            SuperscriptBox["z12", "2"]}], 
           SuperscriptBox["R12", "5"]], "+", 
          FractionBox[
           RowBox[{"3", " ", "c", " ", "x23", " ", 
            SuperscriptBox["z23", "2"]}], 
           SuperscriptBox["R23", "5"]]}], ")"}]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox["a", 
           SuperscriptBox["R12", "3"]], "+", 
          FractionBox["c", 
           SuperscriptBox["R23", "3"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "a", " ", 
            SuperscriptBox["x12", "2"]}], 
           SuperscriptBox["R12", "5"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "c", " ", 
            SuperscriptBox["x23", "2"]}], 
           SuperscriptBox["R23", "5"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "a", " ", 
            SuperscriptBox["z12", "2"]}], 
           SuperscriptBox["R12", "5"]], "+", 
          FractionBox[
           RowBox[{"15", " ", "a", " ", 
            SuperscriptBox["x12", "2"], " ", 
            SuperscriptBox["z12", "2"]}], 
           SuperscriptBox["R12", "7"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "c", " ", 
            SuperscriptBox["z23", "2"]}], 
           SuperscriptBox["R23", "5"]], "+", 
          FractionBox[
           RowBox[{"15", " ", "c", " ", 
            SuperscriptBox["x23", "2"], " ", 
            SuperscriptBox["z23", "2"]}], 
           SuperscriptBox["R23", "7"]]}], ")"}]}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{"a", " ", "y12"}], "R12"]}], "+", 
          FractionBox[
           RowBox[{"c", " ", "y23"}], "R23"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"a", " ", "y12"}], 
           SuperscriptBox["R12", "3"]], "-", 
          FractionBox[
           RowBox[{"c", " ", "y23"}], 
           SuperscriptBox["R23", "3"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "a", " ", "y12", " ", 
            SuperscriptBox["z12", "2"]}], 
           SuperscriptBox["R12", "5"]], "+", 
          FractionBox[
           RowBox[{"3", " ", "c", " ", "y23", " ", 
            SuperscriptBox["z23", "2"]}], 
           SuperscriptBox["R23", "5"]]}], ")"}]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox["a", 
           SuperscriptBox["R12", "3"]], "+", 
          FractionBox["c", 
           SuperscriptBox["R23", "3"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "a", " ", 
            SuperscriptBox["y12", "2"]}], 
           SuperscriptBox["R12", "5"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "c", " ", 
            SuperscriptBox["y23", "2"]}], 
           SuperscriptBox["R23", "5"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "a", " ", 
            SuperscriptBox["z12", "2"]}], 
           SuperscriptBox["R12", "5"]], "+", 
          FractionBox[
           RowBox[{"15", " ", "a", " ", 
            SuperscriptBox["y12", "2"], " ", 
            SuperscriptBox["z12", "2"]}], 
           SuperscriptBox["R12", "7"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "c", " ", 
            SuperscriptBox["z23", "2"]}], 
           SuperscriptBox["R23", "5"]], "+", 
          FractionBox[
           RowBox[{"15", " ", "c", " ", 
            SuperscriptBox["y23", "2"], " ", 
            SuperscriptBox["z23", "2"]}], 
           SuperscriptBox["R23", "7"]]}], ")"}]}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{"a", " ", "z12"}], "R12"]}], "+", 
          FractionBox[
           RowBox[{"c", " ", "z23"}], "R23"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"3", " ", "a", " ", "z12"}], 
           SuperscriptBox["R12", "3"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "a", " ", 
            SuperscriptBox["z12", "3"]}], 
           SuperscriptBox["R12", "5"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "c", " ", "z23"}], 
           SuperscriptBox["R23", "3"]], "+", 
          FractionBox[
           RowBox[{"3", " ", "c", " ", 
            SuperscriptBox["z23", "3"]}], 
           SuperscriptBox["R23", "5"]]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"3", " ", "a"}], 
           SuperscriptBox["R12", "3"]], "+", 
          FractionBox[
           RowBox[{"3", " ", "c"}], 
           SuperscriptBox["R23", "3"]], "-", 
          FractionBox[
           RowBox[{"18", " ", "a", " ", 
            SuperscriptBox["z12", "2"]}], 
           SuperscriptBox["R12", "5"]], "+", 
          FractionBox[
           RowBox[{"15", " ", "a", " ", 
            SuperscriptBox["z12", "4"]}], 
           SuperscriptBox["R12", "7"]], "-", 
          FractionBox[
           RowBox[{"18", " ", "c", " ", 
            SuperscriptBox["z23", "2"]}], 
           SuperscriptBox["R23", "5"]], "+", 
          FractionBox[
           RowBox[{"15", " ", "c", " ", 
            SuperscriptBox["z23", "4"]}], 
           SuperscriptBox["R23", "7"]]}], ")"}]}]}], ")"}]}], "+", 
    RowBox[{
     FractionBox["1", 
      SuperscriptBox["m3", "3"]], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            FractionBox[
             RowBox[{"b", " ", "x13"}], "R13"]}], "-", 
           FractionBox[
            RowBox[{"c", " ", "x23"}], "R23"]}], ")"}], "4"]}], "+", 
       RowBox[{"6", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            FractionBox[
             RowBox[{"b", " ", "x13"}], "R13"]}], "-", 
           FractionBox[
            RowBox[{"c", " ", "x23"}], "R23"]}], ")"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["b", "R13"]}], "-", 
          FractionBox["c", "R23"], "+", 
          FractionBox[
           RowBox[{"b", " ", 
            SuperscriptBox["x13", "2"]}], 
           SuperscriptBox["R13", "3"]], "+", 
          FractionBox[
           RowBox[{"c", " ", 
            SuperscriptBox["x23", "2"]}], 
           SuperscriptBox["R23", "3"]]}], ")"}]}], "+", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            FractionBox["b", "R13"]}], "-", 
           FractionBox["c", "R23"], "+", 
           FractionBox[
            RowBox[{"b", " ", 
             SuperscriptBox["x13", "2"]}], 
            SuperscriptBox["R13", "3"]], "+", 
           FractionBox[
            RowBox[{"c", " ", 
             SuperscriptBox["x23", "2"]}], 
            SuperscriptBox["R23", "3"]]}], ")"}], "2"]}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{"b", " ", "x13"}], "R13"]}], "-", 
          FractionBox[
           RowBox[{"c", " ", "x23"}], "R23"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"3", " ", "b", " ", "x13"}], 
           SuperscriptBox["R13", "3"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "b", " ", 
            SuperscriptBox["x13", "3"]}], 
           SuperscriptBox["R13", "5"]], "+", 
          FractionBox[
           RowBox[{"3", " ", "c", " ", "x23"}], 
           SuperscriptBox["R23", "3"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "c", " ", 
            SuperscriptBox["x23", "3"]}], 
           SuperscriptBox["R23", "5"]]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"3", " ", "b"}], 
           SuperscriptBox["R13", "3"]], "+", 
          FractionBox[
           RowBox[{"3", " ", "c"}], 
           SuperscriptBox["R23", "3"]], "-", 
          FractionBox[
           RowBox[{"18", " ", "b", " ", 
            SuperscriptBox["x13", "2"]}], 
           SuperscriptBox["R13", "5"]], "+", 
          FractionBox[
           RowBox[{"15", " ", "b", " ", 
            SuperscriptBox["x13", "4"]}], 
           SuperscriptBox["R13", "7"]], "-", 
          FractionBox[
           RowBox[{"18", " ", "c", " ", 
            SuperscriptBox["x23", "2"]}], 
           SuperscriptBox["R23", "5"]], "+", 
          FractionBox[
           RowBox[{"15", " ", "c", " ", 
            SuperscriptBox["x23", "4"]}], 
           SuperscriptBox["R23", "7"]]}], ")"}]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            FractionBox[
             RowBox[{"b", " ", "x13"}], "R13"]}], "-", 
           FractionBox[
            RowBox[{"c", " ", "x23"}], "R23"]}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            FractionBox[
             RowBox[{"b", " ", "y13"}], "R13"]}], "-", 
           FractionBox[
            RowBox[{"c", " ", "y23"}], "R23"]}], ")"}], "2"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["b", "R13"]}], "-", 
          FractionBox["c", "R23"], "+", 
          FractionBox[
           RowBox[{"b", " ", 
            SuperscriptBox["x13", "2"]}], 
           SuperscriptBox["R13", "3"]], "+", 
          FractionBox[
           RowBox[{"c", " ", 
            SuperscriptBox["x23", "2"]}], 
           SuperscriptBox["R23", "3"]]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            FractionBox[
             RowBox[{"b", " ", "y13"}], "R13"]}], "-", 
           FractionBox[
            RowBox[{"c", " ", "y23"}], "R23"]}], ")"}], "2"]}], "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            FractionBox[
             RowBox[{"b", " ", "y13"}], "R13"]}], "-", 
           FractionBox[
            RowBox[{"c", " ", "y23"}], "R23"]}], ")"}], "4"]}], "+", 
       RowBox[{"8", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{"b", " ", "x13"}], "R13"]}], "-", 
          FractionBox[
           RowBox[{"c", " ", "x23"}], "R23"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{"b", " ", "y13"}], "R13"]}], "-", 
          FractionBox[
           RowBox[{"c", " ", "y23"}], "R23"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"b", " ", "x13", " ", "y13"}], 
           SuperscriptBox["R13", "3"]], "+", 
          FractionBox[
           RowBox[{"c", " ", "x23", " ", "y23"}], 
           SuperscriptBox["R23", "3"]]}], ")"}]}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"b", " ", "x13", " ", "y13"}], 
            SuperscriptBox["R13", "3"]], "+", 
           FractionBox[
            RowBox[{"c", " ", "x23", " ", "y23"}], 
            SuperscriptBox["R23", "3"]]}], ")"}], "2"]}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{"b", " ", "y13"}], "R13"]}], "-", 
          FractionBox[
           RowBox[{"c", " ", "y23"}], "R23"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"b", " ", "y13"}], 
           SuperscriptBox["R13", "3"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "b", " ", 
            SuperscriptBox["x13", "2"], " ", "y13"}], 
           SuperscriptBox["R13", "5"]], "+", 
          FractionBox[
           RowBox[{"c", " ", "y23"}], 
           SuperscriptBox["R23", "3"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "c", " ", 
            SuperscriptBox["x23", "2"], " ", "y23"}], 
           SuperscriptBox["R23", "5"]]}], ")"}]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            FractionBox[
             RowBox[{"b", " ", "x13"}], "R13"]}], "-", 
           FractionBox[
            RowBox[{"c", " ", "x23"}], "R23"]}], ")"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["b", "R13"]}], "-", 
          FractionBox["c", "R23"], "+", 
          FractionBox[
           RowBox[{"b", " ", 
            SuperscriptBox["y13", "2"]}], 
           SuperscriptBox["R13", "3"]], "+", 
          FractionBox[
           RowBox[{"c", " ", 
            SuperscriptBox["y23", "2"]}], 
           SuperscriptBox["R23", "3"]]}], ")"}]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["b", "R13"]}], "-", 
          FractionBox["c", "R23"], "+", 
          FractionBox[
           RowBox[{"b", " ", 
            SuperscriptBox["x13", "2"]}], 
           SuperscriptBox["R13", "3"]], "+", 
          FractionBox[
           RowBox[{"c", " ", 
            SuperscriptBox["x23", "2"]}], 
           SuperscriptBox["R23", "3"]]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["b", "R13"]}], "-", 
          FractionBox["c", "R23"], "+", 
          FractionBox[
           RowBox[{"b", " ", 
            SuperscriptBox["y13", "2"]}], 
           SuperscriptBox["R13", "3"]], "+", 
          FractionBox[
           RowBox[{"c", " ", 
            SuperscriptBox["y23", "2"]}], 
           SuperscriptBox["R23", "3"]]}], ")"}]}], "+", 
       RowBox[{"6", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            FractionBox[
             RowBox[{"b", " ", "y13"}], "R13"]}], "-", 
           FractionBox[
            RowBox[{"c", " ", "y23"}], "R23"]}], ")"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["b", "R13"]}], "-", 
          FractionBox["c", "R23"], "+", 
          FractionBox[
           RowBox[{"b", " ", 
            SuperscriptBox["y13", "2"]}], 
           SuperscriptBox["R13", "3"]], "+", 
          FractionBox[
           RowBox[{"c", " ", 
            SuperscriptBox["y23", "2"]}], 
           SuperscriptBox["R23", "3"]]}], ")"}]}], "+", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            FractionBox["b", "R13"]}], "-", 
           FractionBox["c", "R23"], "+", 
           FractionBox[
            RowBox[{"b", " ", 
             SuperscriptBox["y13", "2"]}], 
            SuperscriptBox["R13", "3"]], "+", 
           FractionBox[
            RowBox[{"c", " ", 
             SuperscriptBox["y23", "2"]}], 
            SuperscriptBox["R23", "3"]]}], ")"}], "2"]}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{"b", " ", "x13"}], "R13"]}], "-", 
          FractionBox[
           RowBox[{"c", " ", "x23"}], "R23"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"b", " ", "x13"}], 
           SuperscriptBox["R13", "3"]], "+", 
          FractionBox[
           RowBox[{"c", " ", "x23"}], 
           SuperscriptBox["R23", "3"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "b", " ", "x13", " ", 
            SuperscriptBox["y13", "2"]}], 
           SuperscriptBox["R13", "5"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "c", " ", "x23", " ", 
            SuperscriptBox["y23", "2"]}], 
           SuperscriptBox["R23", "5"]]}], ")"}]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox["b", 
           SuperscriptBox["R13", "3"]], "+", 
          FractionBox["c", 
           SuperscriptBox["R23", "3"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "b", " ", 
            SuperscriptBox["x13", "2"]}], 
           SuperscriptBox["R13", "5"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "c", " ", 
            SuperscriptBox["x23", "2"]}], 
           SuperscriptBox["R23", "5"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "b", " ", 
            SuperscriptBox["y13", "2"]}], 
           SuperscriptBox["R13", "5"]], "+", 
          FractionBox[
           RowBox[{"15", " ", "b", " ", 
            SuperscriptBox["x13", "2"], " ", 
            SuperscriptBox["y13", "2"]}], 
           SuperscriptBox["R13", "7"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "c", " ", 
            SuperscriptBox["y23", "2"]}], 
           SuperscriptBox["R23", "5"]], "+", 
          FractionBox[
           RowBox[{"15", " ", "c", " ", 
            SuperscriptBox["x23", "2"], " ", 
            SuperscriptBox["y23", "2"]}], 
           SuperscriptBox["R23", "7"]]}], ")"}]}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{"b", " ", "y13"}], "R13"]}], "-", 
          FractionBox[
           RowBox[{"c", " ", "y23"}], "R23"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"3", " ", "b", " ", "y13"}], 
           SuperscriptBox["R13", "3"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "b", " ", 
            SuperscriptBox["y13", "3"]}], 
           SuperscriptBox["R13", "5"]], "+", 
          FractionBox[
           RowBox[{"3", " ", "c", " ", "y23"}], 
           SuperscriptBox["R23", "3"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "c", " ", 
            SuperscriptBox["y23", "3"]}], 
           SuperscriptBox["R23", "5"]]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"3", " ", "b"}], 
           SuperscriptBox["R13", "3"]], "+", 
          FractionBox[
           RowBox[{"3", " ", "c"}], 
           SuperscriptBox["R23", "3"]], "-", 
          FractionBox[
           RowBox[{"18", " ", "b", " ", 
            SuperscriptBox["y13", "2"]}], 
           SuperscriptBox["R13", "5"]], "+", 
          FractionBox[
           RowBox[{"15", " ", "b", " ", 
            SuperscriptBox["y13", "4"]}], 
           SuperscriptBox["R13", "7"]], "-", 
          FractionBox[
           RowBox[{"18", " ", "c", " ", 
            SuperscriptBox["y23", "2"]}], 
           SuperscriptBox["R23", "5"]], "+", 
          FractionBox[
           RowBox[{"15", " ", "c", " ", 
            SuperscriptBox["y23", "4"]}], 
           SuperscriptBox["R23", "7"]]}], ")"}]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            FractionBox[
             RowBox[{"b", " ", "x13"}], "R13"]}], "-", 
           FractionBox[
            RowBox[{"c", " ", "x23"}], "R23"]}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            FractionBox[
             RowBox[{"b", " ", "z13"}], "R13"]}], "-", 
           FractionBox[
            RowBox[{"c", " ", "z23"}], "R23"]}], ")"}], "2"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["b", "R13"]}], "-", 
          FractionBox["c", "R23"], "+", 
          FractionBox[
           RowBox[{"b", " ", 
            SuperscriptBox["x13", "2"]}], 
           SuperscriptBox["R13", "3"]], "+", 
          FractionBox[
           RowBox[{"c", " ", 
            SuperscriptBox["x23", "2"]}], 
           SuperscriptBox["R23", "3"]]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            FractionBox[
             RowBox[{"b", " ", "z13"}], "R13"]}], "-", 
           FractionBox[
            RowBox[{"c", " ", "z23"}], "R23"]}], ")"}], "2"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            FractionBox[
             RowBox[{"b", " ", "y13"}], "R13"]}], "-", 
           FractionBox[
            RowBox[{"c", " ", "y23"}], "R23"]}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            FractionBox[
             RowBox[{"b", " ", "z13"}], "R13"]}], "-", 
           FractionBox[
            RowBox[{"c", " ", "z23"}], "R23"]}], ")"}], "2"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["b", "R13"]}], "-", 
          FractionBox["c", "R23"], "+", 
          FractionBox[
           RowBox[{"b", " ", 
            SuperscriptBox["y13", "2"]}], 
           SuperscriptBox["R13", "3"]], "+", 
          FractionBox[
           RowBox[{"c", " ", 
            SuperscriptBox["y23", "2"]}], 
           SuperscriptBox["R23", "3"]]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            FractionBox[
             RowBox[{"b", " ", "z13"}], "R13"]}], "-", 
           FractionBox[
            RowBox[{"c", " ", "z23"}], "R23"]}], ")"}], "2"]}], "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            FractionBox[
             RowBox[{"b", " ", "z13"}], "R13"]}], "-", 
           FractionBox[
            RowBox[{"c", " ", "z23"}], "R23"]}], ")"}], "4"]}], "+", 
       RowBox[{"8", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{"b", " ", "x13"}], "R13"]}], "-", 
          FractionBox[
           RowBox[{"c", " ", "x23"}], "R23"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{"b", " ", "z13"}], "R13"]}], "-", 
          FractionBox[
           RowBox[{"c", " ", "z23"}], "R23"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"b", " ", "x13", " ", "z13"}], 
           SuperscriptBox["R13", "3"]], "+", 
          FractionBox[
           RowBox[{"c", " ", "x23", " ", "z23"}], 
           SuperscriptBox["R23", "3"]]}], ")"}]}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"b", " ", "x13", " ", "z13"}], 
            SuperscriptBox["R13", "3"]], "+", 
           FractionBox[
            RowBox[{"c", " ", "x23", " ", "z23"}], 
            SuperscriptBox["R23", "3"]]}], ")"}], "2"]}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{"b", " ", "z13"}], "R13"]}], "-", 
          FractionBox[
           RowBox[{"c", " ", "z23"}], "R23"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"b", " ", "z13"}], 
           SuperscriptBox["R13", "3"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "b", " ", 
            SuperscriptBox["x13", "2"], " ", "z13"}], 
           SuperscriptBox["R13", "5"]], "+", 
          FractionBox[
           RowBox[{"c", " ", "z23"}], 
           SuperscriptBox["R23", "3"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "c", " ", 
            SuperscriptBox["x23", "2"], " ", "z23"}], 
           SuperscriptBox["R23", "5"]]}], ")"}]}], "+", 
       RowBox[{"8", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{"b", " ", "y13"}], "R13"]}], "-", 
          FractionBox[
           RowBox[{"c", " ", "y23"}], "R23"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{"b", " ", "z13"}], "R13"]}], "-", 
          FractionBox[
           RowBox[{"c", " ", "z23"}], "R23"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"b", " ", "y13", " ", "z13"}], 
           SuperscriptBox["R13", "3"]], "+", 
          FractionBox[
           RowBox[{"c", " ", "y23", " ", "z23"}], 
           SuperscriptBox["R23", "3"]]}], ")"}]}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"b", " ", "y13", " ", "z13"}], 
            SuperscriptBox["R13", "3"]], "+", 
           FractionBox[
            RowBox[{"c", " ", "y23", " ", "z23"}], 
            SuperscriptBox["R23", "3"]]}], ")"}], "2"]}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{"b", " ", "z13"}], "R13"]}], "-", 
          FractionBox[
           RowBox[{"c", " ", "z23"}], "R23"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"b", " ", "z13"}], 
           SuperscriptBox["R13", "3"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "b", " ", 
            SuperscriptBox["y13", "2"], " ", "z13"}], 
           SuperscriptBox["R13", "5"]], "+", 
          FractionBox[
           RowBox[{"c", " ", "z23"}], 
           SuperscriptBox["R23", "3"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "c", " ", 
            SuperscriptBox["y23", "2"], " ", "z23"}], 
           SuperscriptBox["R23", "5"]]}], ")"}]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            FractionBox[
             RowBox[{"b", " ", "x13"}], "R13"]}], "-", 
           FractionBox[
            RowBox[{"c", " ", "x23"}], "R23"]}], ")"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["b", "R13"]}], "-", 
          FractionBox["c", "R23"], "+", 
          FractionBox[
           RowBox[{"b", " ", 
            SuperscriptBox["z13", "2"]}], 
           SuperscriptBox["R13", "3"]], "+", 
          FractionBox[
           RowBox[{"c", " ", 
            SuperscriptBox["z23", "2"]}], 
           SuperscriptBox["R23", "3"]]}], ")"}]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["b", "R13"]}], "-", 
          FractionBox["c", "R23"], "+", 
          FractionBox[
           RowBox[{"b", " ", 
            SuperscriptBox["x13", "2"]}], 
           SuperscriptBox["R13", "3"]], "+", 
          FractionBox[
           RowBox[{"c", " ", 
            SuperscriptBox["x23", "2"]}], 
           SuperscriptBox["R23", "3"]]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["b", "R13"]}], "-", 
          FractionBox["c", "R23"], "+", 
          FractionBox[
           RowBox[{"b", " ", 
            SuperscriptBox["z13", "2"]}], 
           SuperscriptBox["R13", "3"]], "+", 
          FractionBox[
           RowBox[{"c", " ", 
            SuperscriptBox["z23", "2"]}], 
           SuperscriptBox["R23", "3"]]}], ")"}]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            FractionBox[
             RowBox[{"b", " ", "y13"}], "R13"]}], "-", 
           FractionBox[
            RowBox[{"c", " ", "y23"}], "R23"]}], ")"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["b", "R13"]}], "-", 
          FractionBox["c", "R23"], "+", 
          FractionBox[
           RowBox[{"b", " ", 
            SuperscriptBox["z13", "2"]}], 
           SuperscriptBox["R13", "3"]], "+", 
          FractionBox[
           RowBox[{"c", " ", 
            SuperscriptBox["z23", "2"]}], 
           SuperscriptBox["R23", "3"]]}], ")"}]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["b", "R13"]}], "-", 
          FractionBox["c", "R23"], "+", 
          FractionBox[
           RowBox[{"b", " ", 
            SuperscriptBox["y13", "2"]}], 
           SuperscriptBox["R13", "3"]], "+", 
          FractionBox[
           RowBox[{"c", " ", 
            SuperscriptBox["y23", "2"]}], 
           SuperscriptBox["R23", "3"]]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["b", "R13"]}], "-", 
          FractionBox["c", "R23"], "+", 
          FractionBox[
           RowBox[{"b", " ", 
            SuperscriptBox["z13", "2"]}], 
           SuperscriptBox["R13", "3"]], "+", 
          FractionBox[
           RowBox[{"c", " ", 
            SuperscriptBox["z23", "2"]}], 
           SuperscriptBox["R23", "3"]]}], ")"}]}], "+", 
       RowBox[{"6", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            FractionBox[
             RowBox[{"b", " ", "z13"}], "R13"]}], "-", 
           FractionBox[
            RowBox[{"c", " ", "z23"}], "R23"]}], ")"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["b", "R13"]}], "-", 
          FractionBox["c", "R23"], "+", 
          FractionBox[
           RowBox[{"b", " ", 
            SuperscriptBox["z13", "2"]}], 
           SuperscriptBox["R13", "3"]], "+", 
          FractionBox[
           RowBox[{"c", " ", 
            SuperscriptBox["z23", "2"]}], 
           SuperscriptBox["R23", "3"]]}], ")"}]}], "+", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            FractionBox["b", "R13"]}], "-", 
           FractionBox["c", "R23"], "+", 
           FractionBox[
            RowBox[{"b", " ", 
             SuperscriptBox["z13", "2"]}], 
            SuperscriptBox["R13", "3"]], "+", 
           FractionBox[
            RowBox[{"c", " ", 
             SuperscriptBox["z23", "2"]}], 
            SuperscriptBox["R23", "3"]]}], ")"}], "2"]}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{"b", " ", "x13"}], "R13"]}], "-", 
          FractionBox[
           RowBox[{"c", " ", "x23"}], "R23"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"b", " ", "x13"}], 
           SuperscriptBox["R13", "3"]], "+", 
          FractionBox[
           RowBox[{"c", " ", "x23"}], 
           SuperscriptBox["R23", "3"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "b", " ", "x13", " ", 
            SuperscriptBox["z13", "2"]}], 
           SuperscriptBox["R13", "5"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "c", " ", "x23", " ", 
            SuperscriptBox["z23", "2"]}], 
           SuperscriptBox["R23", "5"]]}], ")"}]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox["b", 
           SuperscriptBox["R13", "3"]], "+", 
          FractionBox["c", 
           SuperscriptBox["R23", "3"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "b", " ", 
            SuperscriptBox["x13", "2"]}], 
           SuperscriptBox["R13", "5"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "c", " ", 
            SuperscriptBox["x23", "2"]}], 
           SuperscriptBox["R23", "5"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "b", " ", 
            SuperscriptBox["z13", "2"]}], 
           SuperscriptBox["R13", "5"]], "+", 
          FractionBox[
           RowBox[{"15", " ", "b", " ", 
            SuperscriptBox["x13", "2"], " ", 
            SuperscriptBox["z13", "2"]}], 
           SuperscriptBox["R13", "7"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "c", " ", 
            SuperscriptBox["z23", "2"]}], 
           SuperscriptBox["R23", "5"]], "+", 
          FractionBox[
           RowBox[{"15", " ", "c", " ", 
            SuperscriptBox["x23", "2"], " ", 
            SuperscriptBox["z23", "2"]}], 
           SuperscriptBox["R23", "7"]]}], ")"}]}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{"b", " ", "y13"}], "R13"]}], "-", 
          FractionBox[
           RowBox[{"c", " ", "y23"}], "R23"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"b", " ", "y13"}], 
           SuperscriptBox["R13", "3"]], "+", 
          FractionBox[
           RowBox[{"c", " ", "y23"}], 
           SuperscriptBox["R23", "3"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "b", " ", "y13", " ", 
            SuperscriptBox["z13", "2"]}], 
           SuperscriptBox["R13", "5"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "c", " ", "y23", " ", 
            SuperscriptBox["z23", "2"]}], 
           SuperscriptBox["R23", "5"]]}], ")"}]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox["b", 
           SuperscriptBox["R13", "3"]], "+", 
          FractionBox["c", 
           SuperscriptBox["R23", "3"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "b", " ", 
            SuperscriptBox["y13", "2"]}], 
           SuperscriptBox["R13", "5"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "c", " ", 
            SuperscriptBox["y23", "2"]}], 
           SuperscriptBox["R23", "5"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "b", " ", 
            SuperscriptBox["z13", "2"]}], 
           SuperscriptBox["R13", "5"]], "+", 
          FractionBox[
           RowBox[{"15", " ", "b", " ", 
            SuperscriptBox["y13", "2"], " ", 
            SuperscriptBox["z13", "2"]}], 
           SuperscriptBox["R13", "7"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "c", " ", 
            SuperscriptBox["z23", "2"]}], 
           SuperscriptBox["R23", "5"]], "+", 
          FractionBox[
           RowBox[{"15", " ", "c", " ", 
            SuperscriptBox["y23", "2"], " ", 
            SuperscriptBox["z23", "2"]}], 
           SuperscriptBox["R23", "7"]]}], ")"}]}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{"b", " ", "z13"}], "R13"]}], "-", 
          FractionBox[
           RowBox[{"c", " ", "z23"}], "R23"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"3", " ", "b", " ", "z13"}], 
           SuperscriptBox["R13", "3"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "b", " ", 
            SuperscriptBox["z13", "3"]}], 
           SuperscriptBox["R13", "5"]], "+", 
          FractionBox[
           RowBox[{"3", " ", "c", " ", "z23"}], 
           SuperscriptBox["R23", "3"]], "-", 
          FractionBox[
           RowBox[{"3", " ", "c", " ", 
            SuperscriptBox["z23", "3"]}], 
           SuperscriptBox["R23", "5"]]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], " ", "R12"}], "-", 
          RowBox[{"b", " ", "R13"}], "-", 
          RowBox[{"c", " ", "R23"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"3", " ", "b"}], 
           SuperscriptBox["R13", "3"]], "+", 
          FractionBox[
           RowBox[{"3", " ", "c"}], 
           SuperscriptBox["R23", "3"]], "-", 
          FractionBox[
           RowBox[{"18", " ", "b", " ", 
            SuperscriptBox["z13", "2"]}], 
           SuperscriptBox["R13", "5"]], "+", 
          FractionBox[
           RowBox[{"15", " ", "b", " ", 
            SuperscriptBox["z13", "4"]}], 
           SuperscriptBox["R13", "7"]], "-", 
          FractionBox[
           RowBox[{"18", " ", "c", " ", 
            SuperscriptBox["z23", "2"]}], 
           SuperscriptBox["R23", "5"]], "+", 
          FractionBox[
           RowBox[{"15", " ", "c", " ", 
            SuperscriptBox["z23", "4"]}], 
           SuperscriptBox["R23", "7"]]}], ")"}]}]}], ")"}]}]}], 
   ")"}]}]], "Output",
 CellChangeTimes->{{3.948968325493704*^9, 3.948968344641943*^9}, 
   3.9489684131755447`*^9, 3.9489684753921146`*^9, {3.94896899423246*^9, 
   3.9489690526978035`*^9}, 3.9489690955804024`*^9, 3.948969171159746*^9, {
   3.9489692054618835`*^9, 3.9489692283585815`*^9}, 3.949038451556858*^9, 
   3.950782449172266*^9, 3.9507825253801193`*^9, {3.9507827891761703`*^9, 
   3.9507827911971474`*^9}, 3.9508484071240864`*^9, 3.950854758172001*^9, {
   3.9508774389401703`*^9, 3.9508774588387775`*^9}, 3.950938285401884*^9, 
   3.9509529327239895`*^9, 3.9509530188691025`*^9, 3.9509539390333233`*^9, 
   3.950954441722624*^9, 3.9509545180393143`*^9, 3.950954686425522*^9, 
   3.9509547486299305`*^9, 3.9509609440609303`*^9, 3.950960982554989*^9, 
   3.950961303923506*^9, 3.950961385242573*^9, 3.950963103387907*^9, 
   3.951043589456793*^9, 3.951048700142189*^9, 3.9510487652084503`*^9, 
   3.951050076472637*^9},
 CellLabel->
  "Out[604]=",ExpressionUUID->"e9242554-778f-9948-8ce0-27ce460d772d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"lap5", "=", 
  RowBox[{"Expand", "[", "lap4", "]"}]}]], "Input",
 CellChangeTimes->{{3.9489684825419483`*^9, 3.9489686076573505`*^9}, {
   3.948968643242275*^9, 3.94896864409639*^9}, 3.9489688108829784`*^9, {
   3.950782736125164*^9, 3.9507827468720627`*^9}, {3.950782825756508*^9, 
   3.950782905503191*^9}, 3.9507833058719063`*^9, {3.950848398496521*^9, 
   3.9508483992363853`*^9}, {3.950954147272064*^9, 3.9509541493701305`*^9}},
 CellLabel->
  "In[605]:=",ExpressionUUID->"9f11889a-e408-b745-9746-b83387242d1f"],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"15", " ", "a"}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "3"]}]], "+", 
  FractionBox[
   RowBox[{"15", " ", "a"}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "3"]}]], "+", 
  FractionBox[
   RowBox[{"15", " ", 
    SuperscriptBox["a", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "2"]}]], "+", 
  FractionBox[
   RowBox[{"15", " ", 
    SuperscriptBox["a", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "2"]}]], "+", 
  FractionBox[
   RowBox[{"15", " ", "b"}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R13", "3"]}]], "+", 
  FractionBox[
   RowBox[{"15", " ", "b"}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "3"]}]], "+", 
  FractionBox[
   RowBox[{"15", " ", 
    SuperscriptBox["b", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R13", "2"]}]], "+", 
  FractionBox[
   RowBox[{"15", " ", 
    SuperscriptBox["b", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "2"]}]], "+", 
  FractionBox[
   RowBox[{"30", " ", "a", " ", "b"}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", "R12", " ", "R13"}]], "+", 
  FractionBox[
   RowBox[{"15", " ", "c"}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R23", "3"]}]], "+", 
  FractionBox[
   RowBox[{"15", " ", "c"}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R23", "3"]}]], "+", 
  FractionBox[
   RowBox[{"15", " ", 
    SuperscriptBox["c", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R23", "2"]}]], "+", 
  FractionBox[
   RowBox[{"15", " ", 
    SuperscriptBox["c", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R23", "2"]}]], "+", 
  FractionBox[
   RowBox[{"30", " ", "a", " ", "c"}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", "R12", " ", "R23"}]], "+", 
  FractionBox[
   RowBox[{"30", " ", "b", " ", "c"}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", "R13", " ", "R23"}]], "-", 
  FractionBox[
   RowBox[{"30", " ", "a", " ", 
    SuperscriptBox["x12", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "5"]}]], "-", 
  FractionBox[
   RowBox[{"30", " ", "a", " ", 
    SuperscriptBox["x12", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "5"]}]], "-", 
  FractionBox[
   RowBox[{"30", " ", 
    SuperscriptBox["a", "2"], " ", 
    SuperscriptBox["x12", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "4"]}]], "-", 
  FractionBox[
   RowBox[{"30", " ", 
    SuperscriptBox["a", "2"], " ", 
    SuperscriptBox["x12", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "4"]}]], "-", 
  FractionBox[
   RowBox[{"10", " ", 
    SuperscriptBox["a", "3"], " ", 
    SuperscriptBox["x12", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "3"]}]], "-", 
  FractionBox[
   RowBox[{"10", " ", 
    SuperscriptBox["a", "3"], " ", 
    SuperscriptBox["x12", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "3"]}]], "-", 
  FractionBox[
   RowBox[{"10", " ", "a", " ", "b", " ", 
    SuperscriptBox["x12", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "3"], " ", "R13"}]], "-", 
  FractionBox[
   RowBox[{"10", " ", 
    SuperscriptBox["a", "2"], " ", "b", " ", 
    SuperscriptBox["x12", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "2"], " ", "R13"}]], "-", 
  FractionBox[
   RowBox[{"10", " ", "a", " ", "c", " ", 
    SuperscriptBox["x12", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "3"], " ", "R23"}]], "-", 
  FractionBox[
   RowBox[{"10", " ", 
    SuperscriptBox["a", "2"], " ", "c", " ", 
    SuperscriptBox["x12", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "2"], " ", "R23"}]], "+", 
  FractionBox[
   RowBox[{"15", " ", "a", " ", 
    SuperscriptBox["x12", "4"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "7"]}]], "+", 
  FractionBox[
   RowBox[{"15", " ", "a", " ", 
    SuperscriptBox["x12", "4"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "7"]}]], "+", 
  FractionBox[
   RowBox[{"15", " ", 
    SuperscriptBox["a", "2"], " ", 
    SuperscriptBox["x12", "4"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "6"]}]], "+", 
  FractionBox[
   RowBox[{"15", " ", 
    SuperscriptBox["a", "2"], " ", 
    SuperscriptBox["x12", "4"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "6"]}]], "+", 
  FractionBox[
   RowBox[{"6", " ", 
    SuperscriptBox["a", "3"], " ", 
    SuperscriptBox["x12", "4"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "5"]}]], "+", 
  FractionBox[
   RowBox[{"6", " ", 
    SuperscriptBox["a", "3"], " ", 
    SuperscriptBox["x12", "4"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "5"]}]], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["a", "4"], " ", 
    SuperscriptBox["x12", "4"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "4"]}]], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["a", "4"], " ", 
    SuperscriptBox["x12", "4"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "4"]}]], "-", 
  FractionBox[
   RowBox[{"20", " ", "a", " ", "b", " ", "x12", " ", "x13"}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", "R12", " ", 
    SuperscriptBox["R13", "3"]}]], "-", 
  FractionBox[
   RowBox[{"20", " ", "a", " ", 
    SuperscriptBox["b", "2"], " ", "x12", " ", "x13"}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", "R12", " ", 
    SuperscriptBox["R13", "2"]}]], "-", 
  FractionBox[
   RowBox[{"20", " ", "a", " ", "b", " ", "x12", " ", "x13"}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "3"], " ", "R13"}]], "-", 
  FractionBox[
   RowBox[{"20", " ", 
    SuperscriptBox["a", "2"], " ", "b", " ", "x12", " ", "x13"}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "2"], " ", "R13"}]], "+", 
  FractionBox[
   RowBox[{"12", " ", "a", " ", "b", " ", 
    SuperscriptBox["x12", "3"], " ", "x13"}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "5"], " ", "R13"}]], "+", 
  FractionBox[
   RowBox[{"12", " ", 
    SuperscriptBox["a", "2"], " ", "b", " ", 
    SuperscriptBox["x12", "3"], " ", "x13"}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "4"], " ", "R13"}]], "+", 
  FractionBox[
   RowBox[{"4", " ", 
    SuperscriptBox["a", "3"], " ", "b", " ", 
    SuperscriptBox["x12", "3"], " ", "x13"}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "3"], " ", "R13"}]], "-", 
  FractionBox[
   RowBox[{"30", " ", "b", " ", 
    SuperscriptBox["x13", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R13", "5"]}]], "-", 
  FractionBox[
   RowBox[{"30", " ", "b", " ", 
    SuperscriptBox["x13", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "5"]}]], "-", 
  FractionBox[
   RowBox[{"30", " ", 
    SuperscriptBox["b", "2"], " ", 
    SuperscriptBox["x13", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R13", "4"]}]], "-", 
  FractionBox[
   RowBox[{"30", " ", 
    SuperscriptBox["b", "2"], " ", 
    SuperscriptBox["x13", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "4"]}]], "-", 
  FractionBox[
   RowBox[{"10", " ", 
    SuperscriptBox["b", "3"], " ", 
    SuperscriptBox["x13", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R13", "3"]}]], "-", 
  FractionBox[
   RowBox[{"10", " ", 
    SuperscriptBox["b", "3"], " ", 
    SuperscriptBox["x13", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "3"]}]], "-", 
  FractionBox[
   RowBox[{"10", " ", "a", " ", "b", " ", 
    SuperscriptBox["x13", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", "R12", " ", 
    SuperscriptBox["R13", "3"]}]], "-", 
  FractionBox[
   RowBox[{"10", " ", "a", " ", 
    SuperscriptBox["b", "2"], " ", 
    SuperscriptBox["x13", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", "R12", " ", 
    SuperscriptBox["R13", "2"]}]], "-", 
  FractionBox[
   RowBox[{"10", " ", "b", " ", "c", " ", 
    SuperscriptBox["x13", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "3"], " ", "R23"}]], "-", 
  FractionBox[
   RowBox[{"10", " ", 
    SuperscriptBox["b", "2"], " ", "c", " ", 
    SuperscriptBox["x13", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "2"], " ", "R23"}]], "+", 
  FractionBox[
   RowBox[{"6", " ", "a", " ", "b", " ", 
    SuperscriptBox["x12", "2"], " ", 
    SuperscriptBox["x13", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "3"], " ", 
    SuperscriptBox["R13", "3"]}]], "+", 
  FractionBox[
   RowBox[{"6", " ", 
    SuperscriptBox["a", "2"], " ", "b", " ", 
    SuperscriptBox["x12", "2"], " ", 
    SuperscriptBox["x13", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "2"], " ", 
    SuperscriptBox["R13", "3"]}]], "+", 
  FractionBox[
   RowBox[{"6", " ", "a", " ", 
    SuperscriptBox["b", "2"], " ", 
    SuperscriptBox["x12", "2"], " ", 
    SuperscriptBox["x13", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "3"], " ", 
    SuperscriptBox["R13", "2"]}]], "+", 
  FractionBox[
   RowBox[{"6", " ", 
    SuperscriptBox["a", "2"], " ", 
    SuperscriptBox["b", "2"], " ", 
    SuperscriptBox["x12", "2"], " ", 
    SuperscriptBox["x13", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "2"], " ", 
    SuperscriptBox["R13", "2"]}]], "+", 
  FractionBox[
   RowBox[{"12", " ", "a", " ", "b", " ", "x12", " ", 
    SuperscriptBox["x13", "3"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", "R12", " ", 
    SuperscriptBox["R13", "5"]}]], "+", 
  FractionBox[
   RowBox[{"12", " ", "a", " ", 
    SuperscriptBox["b", "2"], " ", "x12", " ", 
    SuperscriptBox["x13", "3"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", "R12", " ", 
    SuperscriptBox["R13", "4"]}]], "+", 
  FractionBox[
   RowBox[{"4", " ", "a", " ", 
    SuperscriptBox["b", "3"], " ", "x12", " ", 
    SuperscriptBox["x13", "3"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", "R12", " ", 
    SuperscriptBox["R13", "3"]}]], "+", 
  FractionBox[
   RowBox[{"15", " ", "b", " ", 
    SuperscriptBox["x13", "4"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R13", "7"]}]], "+", 
  FractionBox[
   RowBox[{"15", " ", "b", " ", 
    SuperscriptBox["x13", "4"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "7"]}]], "+", 
  FractionBox[
   RowBox[{"15", " ", 
    SuperscriptBox["b", "2"], " ", 
    SuperscriptBox["x13", "4"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R13", "6"]}]], "+", 
  FractionBox[
   RowBox[{"15", " ", 
    SuperscriptBox["b", "2"], " ", 
    SuperscriptBox["x13", "4"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "6"]}]], "+", 
  FractionBox[
   RowBox[{"6", " ", 
    SuperscriptBox["b", "3"], " ", 
    SuperscriptBox["x13", "4"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R13", "5"]}]], "+", 
  FractionBox[
   RowBox[{"6", " ", 
    SuperscriptBox["b", "3"], " ", 
    SuperscriptBox["x13", "4"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "5"]}]], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["b", "4"], " ", 
    SuperscriptBox["x13", "4"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R13", "4"]}]], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["b", "4"], " ", 
    SuperscriptBox["x13", "4"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "4"]}]], "+", 
  FractionBox[
   RowBox[{"20", " ", "a", " ", "c", " ", "x12", " ", "x23"}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", "R12", " ", 
    SuperscriptBox["R23", "3"]}]], "+", 
  FractionBox[
   RowBox[{"20", " ", "a", " ", 
    SuperscriptBox["c", "2"], " ", "x12", " ", "x23"}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", "R12", " ", 
    SuperscriptBox["R23", "2"]}]], "+", 
  FractionBox[
   RowBox[{"20", " ", "a", " ", "c", " ", "x12", " ", "x23"}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "3"], " ", "R23"}]], "+", 
  FractionBox[
   RowBox[{"20", " ", 
    SuperscriptBox["a", "2"], " ", "c", " ", "x12", " ", "x23"}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "2"], " ", "R23"}]], "-", 
  FractionBox[
   RowBox[{"12", " ", "a", " ", "c", " ", 
    SuperscriptBox["x12", "3"], " ", "x23"}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "5"], " ", "R23"}]], "-", 
  FractionBox[
   RowBox[{"12", " ", 
    SuperscriptBox["a", "2"], " ", "c", " ", 
    SuperscriptBox["x12", "3"], " ", "x23"}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "4"], " ", "R23"}]], "-", 
  FractionBox[
   RowBox[{"4", " ", 
    SuperscriptBox["a", "3"], " ", "c", " ", 
    SuperscriptBox["x12", "3"], " ", "x23"}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "3"], " ", "R23"}]], "-", 
  FractionBox[
   RowBox[{"20", " ", "b", " ", "c", " ", "x13", " ", "x23"}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", "R13", " ", 
    SuperscriptBox["R23", "3"]}]], "-", 
  FractionBox[
   RowBox[{"20", " ", "b", " ", 
    SuperscriptBox["c", "2"], " ", "x13", " ", "x23"}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", "R13", " ", 
    SuperscriptBox["R23", "2"]}]], "-", 
  FractionBox[
   RowBox[{"20", " ", "b", " ", "c", " ", "x13", " ", "x23"}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "3"], " ", "R23"}]], "-", 
  FractionBox[
   RowBox[{"20", " ", 
    SuperscriptBox["b", "2"], " ", "c", " ", "x13", " ", "x23"}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "2"], " ", "R23"}]], "+", 
  FractionBox[
   RowBox[{"12", " ", "b", " ", "c", " ", 
    SuperscriptBox["x13", "3"], " ", "x23"}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "5"], " ", "R23"}]], "+", 
  FractionBox[
   RowBox[{"12", " ", 
    SuperscriptBox["b", "2"], " ", "c", " ", 
    SuperscriptBox["x13", "3"], " ", "x23"}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "4"], " ", "R23"}]], "+", 
  FractionBox[
   RowBox[{"4", " ", 
    SuperscriptBox["b", "3"], " ", "c", " ", 
    SuperscriptBox["x13", "3"], " ", "x23"}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "3"], " ", "R23"}]], "-", 
  FractionBox[
   RowBox[{"30", " ", "c", " ", 
    SuperscriptBox["x23", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R23", "5"]}]], "-", 
  FractionBox[
   RowBox[{"30", " ", "c", " ", 
    SuperscriptBox["x23", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R23", "5"]}]], "-", 
  FractionBox[
   RowBox[{"30", " ", 
    SuperscriptBox["c", "2"], " ", 
    SuperscriptBox["x23", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R23", "4"]}]], "-", 
  FractionBox[
   RowBox[{"30", " ", 
    SuperscriptBox["c", "2"], " ", 
    SuperscriptBox["x23", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R23", "4"]}]], "-", 
  FractionBox[
   RowBox[{"10", " ", 
    SuperscriptBox["c", "3"], " ", 
    SuperscriptBox["x23", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R23", "3"]}]], "-", 
  FractionBox[
   RowBox[{"10", " ", 
    SuperscriptBox["c", "3"], " ", 
    SuperscriptBox["x23", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R23", "3"]}]], "-", 
  FractionBox[
   RowBox[{"10", " ", "a", " ", "c", " ", 
    SuperscriptBox["x23", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", "R12", " ", 
    SuperscriptBox["R23", "3"]}]], "-", 
  FractionBox[
   RowBox[{"10", " ", "b", " ", "c", " ", 
    SuperscriptBox["x23", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", "R13", " ", 
    SuperscriptBox["R23", "3"]}]], "-", 
  FractionBox[
   RowBox[{"10", " ", "a", " ", 
    SuperscriptBox["c", "2"], " ", 
    SuperscriptBox["x23", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", "R12", " ", 
    SuperscriptBox["R23", "2"]}]], "-", 
  FractionBox[
   RowBox[{"10", " ", "b", " ", 
    SuperscriptBox["c", "2"], " ", 
    SuperscriptBox["x23", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", "R13", " ", 
    SuperscriptBox["R23", "2"]}]], "+", 
  FractionBox[
   RowBox[{"6", " ", "a", " ", "c", " ", 
    SuperscriptBox["x12", "2"], " ", 
    SuperscriptBox["x23", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "3"], " ", 
    SuperscriptBox["R23", "3"]}]], "+", 
  FractionBox[
   RowBox[{"6", " ", 
    SuperscriptBox["a", "2"], " ", "c", " ", 
    SuperscriptBox["x12", "2"], " ", 
    SuperscriptBox["x23", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "2"], " ", 
    SuperscriptBox["R23", "3"]}]], "+", 
  FractionBox[
   RowBox[{"6", " ", "a", " ", 
    SuperscriptBox["c", "2"], " ", 
    SuperscriptBox["x12", "2"], " ", 
    SuperscriptBox["x23", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "3"], " ", 
    SuperscriptBox["R23", "2"]}]], "+", 
  FractionBox[
   RowBox[{"6", " ", 
    SuperscriptBox["a", "2"], " ", 
    SuperscriptBox["c", "2"], " ", 
    SuperscriptBox["x12", "2"], " ", 
    SuperscriptBox["x23", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "2"], " ", 
    SuperscriptBox["R23", "2"]}]], "+", 
  FractionBox[
   RowBox[{"6", " ", "b", " ", "c", " ", 
    SuperscriptBox["x13", "2"], " ", 
    SuperscriptBox["x23", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "3"], " ", 
    SuperscriptBox["R23", "3"]}]], "+", 
  FractionBox[
   RowBox[{"6", " ", 
    SuperscriptBox["b", "2"], " ", "c", " ", 
    SuperscriptBox["x13", "2"], " ", 
    SuperscriptBox["x23", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "2"], " ", 
    SuperscriptBox["R23", "3"]}]], "+", 
  FractionBox[
   RowBox[{"6", " ", "b", " ", 
    SuperscriptBox["c", "2"], " ", 
    SuperscriptBox["x13", "2"], " ", 
    SuperscriptBox["x23", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "3"], " ", 
    SuperscriptBox["R23", "2"]}]], "+", 
  FractionBox[
   RowBox[{"6", " ", 
    SuperscriptBox["b", "2"], " ", 
    SuperscriptBox["c", "2"], " ", 
    SuperscriptBox["x13", "2"], " ", 
    SuperscriptBox["x23", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "2"], " ", 
    SuperscriptBox["R23", "2"]}]], "-", 
  FractionBox[
   RowBox[{"12", " ", "a", " ", "c", " ", "x12", " ", 
    SuperscriptBox["x23", "3"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", "R12", " ", 
    SuperscriptBox["R23", "5"]}]], "-", 
  FractionBox[
   RowBox[{"12", " ", "a", " ", 
    SuperscriptBox["c", "2"], " ", "x12", " ", 
    SuperscriptBox["x23", "3"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", "R12", " ", 
    SuperscriptBox["R23", "4"]}]], "-", 
  FractionBox[
   RowBox[{"4", " ", "a", " ", 
    SuperscriptBox["c", "3"], " ", "x12", " ", 
    SuperscriptBox["x23", "3"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", "R12", " ", 
    SuperscriptBox["R23", "3"]}]], "+", 
  FractionBox[
   RowBox[{"12", " ", "b", " ", "c", " ", "x13", " ", 
    SuperscriptBox["x23", "3"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", "R13", " ", 
    SuperscriptBox["R23", "5"]}]], "+", 
  FractionBox[
   RowBox[{"12", " ", "b", " ", 
    SuperscriptBox["c", "2"], " ", "x13", " ", 
    SuperscriptBox["x23", "3"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", "R13", " ", 
    SuperscriptBox["R23", "4"]}]], "+", 
  FractionBox[
   RowBox[{"4", " ", "b", " ", 
    SuperscriptBox["c", "3"], " ", "x13", " ", 
    SuperscriptBox["x23", "3"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", "R13", " ", 
    SuperscriptBox["R23", "3"]}]], "+", 
  FractionBox[
   RowBox[{"15", " ", "c", " ", 
    SuperscriptBox["x23", "4"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R23", "7"]}]], "+", 
  FractionBox[
   RowBox[{"15", " ", "c", " ", 
    SuperscriptBox["x23", "4"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R23", "7"]}]], "+", 
  FractionBox[
   RowBox[{"15", " ", 
    SuperscriptBox["c", "2"], " ", 
    SuperscriptBox["x23", "4"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R23", "6"]}]], "+", 
  FractionBox[
   RowBox[{"15", " ", 
    SuperscriptBox["c", "2"], " ", 
    SuperscriptBox["x23", "4"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R23", "6"]}]], "+", 
  FractionBox[
   RowBox[{"6", " ", 
    SuperscriptBox["c", "3"], " ", 
    SuperscriptBox["x23", "4"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R23", "5"]}]], "+", 
  FractionBox[
   RowBox[{"6", " ", 
    SuperscriptBox["c", "3"], " ", 
    SuperscriptBox["x23", "4"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R23", "5"]}]], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["c", "4"], " ", 
    SuperscriptBox["x23", "4"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R23", "4"]}]], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["c", "4"], " ", 
    SuperscriptBox["x23", "4"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R23", "4"]}]], "-", 
  FractionBox[
   RowBox[{"30", " ", "a", " ", 
    SuperscriptBox["y12", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "5"]}]], "-", 
  FractionBox[
   RowBox[{"30", " ", "a", " ", 
    SuperscriptBox["y12", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "5"]}]], "-", 
  FractionBox[
   RowBox[{"30", " ", 
    SuperscriptBox["a", "2"], " ", 
    SuperscriptBox["y12", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "4"]}]], "-", 
  FractionBox[
   RowBox[{"30", " ", 
    SuperscriptBox["a", "2"], " ", 
    SuperscriptBox["y12", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "4"]}]], "-", 
  FractionBox[
   RowBox[{"10", " ", 
    SuperscriptBox["a", "3"], " ", 
    SuperscriptBox["y12", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "3"]}]], "-", 
  FractionBox[
   RowBox[{"10", " ", 
    SuperscriptBox["a", "3"], " ", 
    SuperscriptBox["y12", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "3"]}]], "-", 
  FractionBox[
   RowBox[{"10", " ", "a", " ", "b", " ", 
    SuperscriptBox["y12", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "3"], " ", "R13"}]], "-", 
  FractionBox[
   RowBox[{"10", " ", 
    SuperscriptBox["a", "2"], " ", "b", " ", 
    SuperscriptBox["y12", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "2"], " ", "R13"}]], "-", 
  FractionBox[
   RowBox[{"10", " ", "a", " ", "c", " ", 
    SuperscriptBox["y12", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "3"], " ", "R23"}]], "-", 
  FractionBox[
   RowBox[{"10", " ", 
    SuperscriptBox["a", "2"], " ", "c", " ", 
    SuperscriptBox["y12", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "2"], " ", "R23"}]], "+", 
  FractionBox[
   RowBox[{"30", " ", "a", " ", 
    SuperscriptBox["x12", "2"], " ", 
    SuperscriptBox["y12", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "7"]}]], "+", 
  FractionBox[
   RowBox[{"30", " ", "a", " ", 
    SuperscriptBox["x12", "2"], " ", 
    SuperscriptBox["y12", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "7"]}]], "+", 
  FractionBox[
   RowBox[{"30", " ", 
    SuperscriptBox["a", "2"], " ", 
    SuperscriptBox["x12", "2"], " ", 
    SuperscriptBox["y12", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "6"]}]], "+", 
  FractionBox[
   RowBox[{"30", " ", 
    SuperscriptBox["a", "2"], " ", 
    SuperscriptBox["x12", "2"], " ", 
    SuperscriptBox["y12", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "6"]}]], "+", 
  FractionBox[
   RowBox[{"12", " ", 
    SuperscriptBox["a", "3"], " ", 
    SuperscriptBox["x12", "2"], " ", 
    SuperscriptBox["y12", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "5"]}]], "+", 
  FractionBox[
   RowBox[{"12", " ", 
    SuperscriptBox["a", "3"], " ", 
    SuperscriptBox["x12", "2"], " ", 
    SuperscriptBox["y12", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "5"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", 
    SuperscriptBox["a", "4"], " ", 
    SuperscriptBox["x12", "2"], " ", 
    SuperscriptBox["y12", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "4"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", 
    SuperscriptBox["a", "4"], " ", 
    SuperscriptBox["x12", "2"], " ", 
    SuperscriptBox["y12", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "4"]}]], "+", 
  FractionBox[
   RowBox[{"12", " ", "a", " ", "b", " ", "x12", " ", "x13", " ", 
    SuperscriptBox["y12", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "5"], " ", "R13"}]], "+", 
  FractionBox[
   RowBox[{"12", " ", 
    SuperscriptBox["a", "2"], " ", "b", " ", "x12", " ", "x13", " ", 
    SuperscriptBox["y12", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "4"], " ", "R13"}]], "+", 
  FractionBox[
   RowBox[{"4", " ", 
    SuperscriptBox["a", "3"], " ", "b", " ", "x12", " ", "x13", " ", 
    SuperscriptBox["y12", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "3"], " ", "R13"}]], "+", 
  FractionBox[
   RowBox[{"2", " ", "a", " ", "b", " ", 
    SuperscriptBox["x13", "2"], " ", 
    SuperscriptBox["y12", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "3"], " ", 
    SuperscriptBox["R13", "3"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", 
    SuperscriptBox["a", "2"], " ", "b", " ", 
    SuperscriptBox["x13", "2"], " ", 
    SuperscriptBox["y12", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "2"], " ", 
    SuperscriptBox["R13", "3"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", "a", " ", 
    SuperscriptBox["b", "2"], " ", 
    SuperscriptBox["x13", "2"], " ", 
    SuperscriptBox["y12", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "3"], " ", 
    SuperscriptBox["R13", "2"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", 
    SuperscriptBox["a", "2"], " ", 
    SuperscriptBox["b", "2"], " ", 
    SuperscriptBox["x13", "2"], " ", 
    SuperscriptBox["y12", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "2"], " ", 
    SuperscriptBox["R13", "2"]}]], "-", 
  FractionBox[
   RowBox[{"12", " ", "a", " ", "c", " ", "x12", " ", "x23", " ", 
    SuperscriptBox["y12", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "5"], " ", "R23"}]], "-", 
  FractionBox[
   RowBox[{"12", " ", 
    SuperscriptBox["a", "2"], " ", "c", " ", "x12", " ", "x23", " ", 
    SuperscriptBox["y12", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "4"], " ", "R23"}]], "-", 
  FractionBox[
   RowBox[{"4", " ", 
    SuperscriptBox["a", "3"], " ", "c", " ", "x12", " ", "x23", " ", 
    SuperscriptBox["y12", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "3"], " ", "R23"}]], "+", 
  FractionBox[
   RowBox[{"2", " ", "a", " ", "c", " ", 
    SuperscriptBox["x23", "2"], " ", 
    SuperscriptBox["y12", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "3"], " ", 
    SuperscriptBox["R23", "3"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", 
    SuperscriptBox["a", "2"], " ", "c", " ", 
    SuperscriptBox["x23", "2"], " ", 
    SuperscriptBox["y12", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "2"], " ", 
    SuperscriptBox["R23", "3"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", "a", " ", 
    SuperscriptBox["c", "2"], " ", 
    SuperscriptBox["x23", "2"], " ", 
    SuperscriptBox["y12", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "3"], " ", 
    SuperscriptBox["R23", "2"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", 
    SuperscriptBox["a", "2"], " ", 
    SuperscriptBox["c", "2"], " ", 
    SuperscriptBox["x23", "2"], " ", 
    SuperscriptBox["y12", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "2"], " ", 
    SuperscriptBox["R23", "2"]}]], "+", 
  FractionBox[
   RowBox[{"15", " ", "a", " ", 
    SuperscriptBox["y12", "4"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "7"]}]], "+", 
  FractionBox[
   RowBox[{"15", " ", "a", " ", 
    SuperscriptBox["y12", "4"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "7"]}]], "+", 
  FractionBox[
   RowBox[{"15", " ", 
    SuperscriptBox["a", "2"], " ", 
    SuperscriptBox["y12", "4"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "6"]}]], "+", 
  FractionBox[
   RowBox[{"15", " ", 
    SuperscriptBox["a", "2"], " ", 
    SuperscriptBox["y12", "4"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "6"]}]], "+", 
  FractionBox[
   RowBox[{"6", " ", 
    SuperscriptBox["a", "3"], " ", 
    SuperscriptBox["y12", "4"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "5"]}]], "+", 
  FractionBox[
   RowBox[{"6", " ", 
    SuperscriptBox["a", "3"], " ", 
    SuperscriptBox["y12", "4"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "5"]}]], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["a", "4"], " ", 
    SuperscriptBox["y12", "4"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "4"]}]], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["a", "4"], " ", 
    SuperscriptBox["y12", "4"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "4"]}]], "-", 
  FractionBox[
   RowBox[{"20", " ", "a", " ", "b", " ", "y12", " ", "y13"}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", "R12", " ", 
    SuperscriptBox["R13", "3"]}]], "-", 
  FractionBox[
   RowBox[{"20", " ", "a", " ", 
    SuperscriptBox["b", "2"], " ", "y12", " ", "y13"}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", "R12", " ", 
    SuperscriptBox["R13", "2"]}]], "-", 
  FractionBox[
   RowBox[{"20", " ", "a", " ", "b", " ", "y12", " ", "y13"}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "3"], " ", "R13"}]], "-", 
  FractionBox[
   RowBox[{"20", " ", 
    SuperscriptBox["a", "2"], " ", "b", " ", "y12", " ", "y13"}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "2"], " ", "R13"}]], "+", 
  FractionBox[
   RowBox[{"12", " ", "a", " ", "b", " ", 
    SuperscriptBox["x12", "2"], " ", "y12", " ", "y13"}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "5"], " ", "R13"}]], "+", 
  FractionBox[
   RowBox[{"12", " ", 
    SuperscriptBox["a", "2"], " ", "b", " ", 
    SuperscriptBox["x12", "2"], " ", "y12", " ", "y13"}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "4"], " ", "R13"}]], "+", 
  FractionBox[
   RowBox[{"4", " ", 
    SuperscriptBox["a", "3"], " ", "b", " ", 
    SuperscriptBox["x12", "2"], " ", "y12", " ", "y13"}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "3"], " ", "R13"}]], "+", 
  FractionBox[
   RowBox[{
   "8", " ", "a", " ", "b", " ", "x12", " ", "x13", " ", "y12", " ", "y13"}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "3"], " ", 
    SuperscriptBox["R13", "3"]}]], "+", 
  FractionBox[
   RowBox[{"8", " ", 
    SuperscriptBox["a", "2"], " ", "b", " ", "x12", " ", "x13", " ", "y12", " ",
     "y13"}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "2"], " ", 
    SuperscriptBox["R13", "3"]}]], "+", 
  FractionBox[
   RowBox[{"8", " ", "a", " ", 
    SuperscriptBox["b", "2"], " ", "x12", " ", "x13", " ", "y12", " ", 
    "y13"}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "3"], " ", 
    SuperscriptBox["R13", "2"]}]], "+", 
  FractionBox[
   RowBox[{"8", " ", 
    SuperscriptBox["a", "2"], " ", 
    SuperscriptBox["b", "2"], " ", "x12", " ", "x13", " ", "y12", " ", 
    "y13"}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "2"], " ", 
    SuperscriptBox["R13", "2"]}]], "+", 
  FractionBox[
   RowBox[{"12", " ", "a", " ", "b", " ", 
    SuperscriptBox["x13", "2"], " ", "y12", " ", "y13"}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", "R12", " ", 
    SuperscriptBox["R13", "5"]}]], "+", 
  FractionBox[
   RowBox[{"12", " ", "a", " ", 
    SuperscriptBox["b", "2"], " ", 
    SuperscriptBox["x13", "2"], " ", "y12", " ", "y13"}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", "R12", " ", 
    SuperscriptBox["R13", "4"]}]], "+", 
  FractionBox[
   RowBox[{"4", " ", "a", " ", 
    SuperscriptBox["b", "3"], " ", 
    SuperscriptBox["x13", "2"], " ", "y12", " ", "y13"}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", "R12", " ", 
    SuperscriptBox["R13", "3"]}]], "+", 
  FractionBox[
   RowBox[{"12", " ", "a", " ", "b", " ", 
    SuperscriptBox["y12", "3"], " ", "y13"}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "5"], " ", "R13"}]], "+", 
  FractionBox[
   RowBox[{"12", " ", 
    SuperscriptBox["a", "2"], " ", "b", " ", 
    SuperscriptBox["y12", "3"], " ", "y13"}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "4"], " ", "R13"}]], "+", 
  FractionBox[
   RowBox[{"4", " ", 
    SuperscriptBox["a", "3"], " ", "b", " ", 
    SuperscriptBox["y12", "3"], " ", "y13"}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "3"], " ", "R13"}]], "-", 
  FractionBox[
   RowBox[{"30", " ", "b", " ", 
    SuperscriptBox["y13", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R13", "5"]}]], "-", 
  FractionBox[
   RowBox[{"30", " ", "b", " ", 
    SuperscriptBox["y13", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "5"]}]], "-", 
  FractionBox[
   RowBox[{"30", " ", 
    SuperscriptBox["b", "2"], " ", 
    SuperscriptBox["y13", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R13", "4"]}]], "-", 
  FractionBox[
   RowBox[{"30", " ", 
    SuperscriptBox["b", "2"], " ", 
    SuperscriptBox["y13", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "4"]}]], "-", 
  FractionBox[
   RowBox[{"10", " ", 
    SuperscriptBox["b", "3"], " ", 
    SuperscriptBox["y13", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R13", "3"]}]], "-", 
  FractionBox[
   RowBox[{"10", " ", 
    SuperscriptBox["b", "3"], " ", 
    SuperscriptBox["y13", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "3"]}]], "-", 
  FractionBox[
   RowBox[{"10", " ", "a", " ", "b", " ", 
    SuperscriptBox["y13", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", "R12", " ", 
    SuperscriptBox["R13", "3"]}]], "-", 
  FractionBox[
   RowBox[{"10", " ", "a", " ", 
    SuperscriptBox["b", "2"], " ", 
    SuperscriptBox["y13", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", "R12", " ", 
    SuperscriptBox["R13", "2"]}]], "-", 
  FractionBox[
   RowBox[{"10", " ", "b", " ", "c", " ", 
    SuperscriptBox["y13", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "3"], " ", "R23"}]], "-", 
  FractionBox[
   RowBox[{"10", " ", 
    SuperscriptBox["b", "2"], " ", "c", " ", 
    SuperscriptBox["y13", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "2"], " ", "R23"}]], "+", 
  FractionBox[
   RowBox[{"2", " ", "a", " ", "b", " ", 
    SuperscriptBox["x12", "2"], " ", 
    SuperscriptBox["y13", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "3"], " ", 
    SuperscriptBox["R13", "3"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", 
    SuperscriptBox["a", "2"], " ", "b", " ", 
    SuperscriptBox["x12", "2"], " ", 
    SuperscriptBox["y13", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "2"], " ", 
    SuperscriptBox["R13", "3"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", "a", " ", 
    SuperscriptBox["b", "2"], " ", 
    SuperscriptBox["x12", "2"], " ", 
    SuperscriptBox["y13", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "3"], " ", 
    SuperscriptBox["R13", "2"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", 
    SuperscriptBox["a", "2"], " ", 
    SuperscriptBox["b", "2"], " ", 
    SuperscriptBox["x12", "2"], " ", 
    SuperscriptBox["y13", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "2"], " ", 
    SuperscriptBox["R13", "2"]}]], "+", 
  FractionBox[
   RowBox[{"12", " ", "a", " ", "b", " ", "x12", " ", "x13", " ", 
    SuperscriptBox["y13", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", "R12", " ", 
    SuperscriptBox["R13", "5"]}]], "+", 
  FractionBox[
   RowBox[{"12", " ", "a", " ", 
    SuperscriptBox["b", "2"], " ", "x12", " ", "x13", " ", 
    SuperscriptBox["y13", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", "R12", " ", 
    SuperscriptBox["R13", "4"]}]], "+", 
  FractionBox[
   RowBox[{"4", " ", "a", " ", 
    SuperscriptBox["b", "3"], " ", "x12", " ", "x13", " ", 
    SuperscriptBox["y13", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", "R12", " ", 
    SuperscriptBox["R13", "3"]}]], "+", 
  FractionBox[
   RowBox[{"30", " ", "b", " ", 
    SuperscriptBox["x13", "2"], " ", 
    SuperscriptBox["y13", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R13", "7"]}]], "+", 
  FractionBox[
   RowBox[{"30", " ", "b", " ", 
    SuperscriptBox["x13", "2"], " ", 
    SuperscriptBox["y13", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "7"]}]], "+", 
  FractionBox[
   RowBox[{"30", " ", 
    SuperscriptBox["b", "2"], " ", 
    SuperscriptBox["x13", "2"], " ", 
    SuperscriptBox["y13", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R13", "6"]}]], "+", 
  FractionBox[
   RowBox[{"30", " ", 
    SuperscriptBox["b", "2"], " ", 
    SuperscriptBox["x13", "2"], " ", 
    SuperscriptBox["y13", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "6"]}]], "+", 
  FractionBox[
   RowBox[{"12", " ", 
    SuperscriptBox["b", "3"], " ", 
    SuperscriptBox["x13", "2"], " ", 
    SuperscriptBox["y13", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R13", "5"]}]], "+", 
  FractionBox[
   RowBox[{"12", " ", 
    SuperscriptBox["b", "3"], " ", 
    SuperscriptBox["x13", "2"], " ", 
    SuperscriptBox["y13", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "5"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", 
    SuperscriptBox["b", "4"], " ", 
    SuperscriptBox["x13", "2"], " ", 
    SuperscriptBox["y13", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R13", "4"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", 
    SuperscriptBox["b", "4"], " ", 
    SuperscriptBox["x13", "2"], " ", 
    SuperscriptBox["y13", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "4"]}]], "+", 
  FractionBox[
   RowBox[{"12", " ", "b", " ", "c", " ", "x13", " ", "x23", " ", 
    SuperscriptBox["y13", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "5"], " ", "R23"}]], "+", 
  FractionBox[
   RowBox[{"12", " ", 
    SuperscriptBox["b", "2"], " ", "c", " ", "x13", " ", "x23", " ", 
    SuperscriptBox["y13", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "4"], " ", "R23"}]], "+", 
  FractionBox[
   RowBox[{"4", " ", 
    SuperscriptBox["b", "3"], " ", "c", " ", "x13", " ", "x23", " ", 
    SuperscriptBox["y13", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "3"], " ", "R23"}]], "+", 
  FractionBox[
   RowBox[{"2", " ", "b", " ", "c", " ", 
    SuperscriptBox["x23", "2"], " ", 
    SuperscriptBox["y13", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "3"], " ", 
    SuperscriptBox["R23", "3"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", 
    SuperscriptBox["b", "2"], " ", "c", " ", 
    SuperscriptBox["x23", "2"], " ", 
    SuperscriptBox["y13", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "2"], " ", 
    SuperscriptBox["R23", "3"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", "b", " ", 
    SuperscriptBox["c", "2"], " ", 
    SuperscriptBox["x23", "2"], " ", 
    SuperscriptBox["y13", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "3"], " ", 
    SuperscriptBox["R23", "2"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", 
    SuperscriptBox["b", "2"], " ", 
    SuperscriptBox["c", "2"], " ", 
    SuperscriptBox["x23", "2"], " ", 
    SuperscriptBox["y13", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "2"], " ", 
    SuperscriptBox["R23", "2"]}]], "+", 
  FractionBox[
   RowBox[{"6", " ", "a", " ", "b", " ", 
    SuperscriptBox["y12", "2"], " ", 
    SuperscriptBox["y13", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "3"], " ", 
    SuperscriptBox["R13", "3"]}]], "+", 
  FractionBox[
   RowBox[{"6", " ", 
    SuperscriptBox["a", "2"], " ", "b", " ", 
    SuperscriptBox["y12", "2"], " ", 
    SuperscriptBox["y13", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "2"], " ", 
    SuperscriptBox["R13", "3"]}]], "+", 
  FractionBox[
   RowBox[{"6", " ", "a", " ", 
    SuperscriptBox["b", "2"], " ", 
    SuperscriptBox["y12", "2"], " ", 
    SuperscriptBox["y13", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "3"], " ", 
    SuperscriptBox["R13", "2"]}]], "+", 
  FractionBox[
   RowBox[{"6", " ", 
    SuperscriptBox["a", "2"], " ", 
    SuperscriptBox["b", "2"], " ", 
    SuperscriptBox["y12", "2"], " ", 
    SuperscriptBox["y13", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "2"], " ", 
    SuperscriptBox["R13", "2"]}]], "+", 
  FractionBox[
   RowBox[{"12", " ", "a", " ", "b", " ", "y12", " ", 
    SuperscriptBox["y13", "3"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", "R12", " ", 
    SuperscriptBox["R13", "5"]}]], "+", 
  FractionBox[
   RowBox[{"12", " ", "a", " ", 
    SuperscriptBox["b", "2"], " ", "y12", " ", 
    SuperscriptBox["y13", "3"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", "R12", " ", 
    SuperscriptBox["R13", "4"]}]], "+", 
  FractionBox[
   RowBox[{"4", " ", "a", " ", 
    SuperscriptBox["b", "3"], " ", "y12", " ", 
    SuperscriptBox["y13", "3"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", "R12", " ", 
    SuperscriptBox["R13", "3"]}]], "+", 
  FractionBox[
   RowBox[{"15", " ", "b", " ", 
    SuperscriptBox["y13", "4"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R13", "7"]}]], "+", 
  FractionBox[
   RowBox[{"15", " ", "b", " ", 
    SuperscriptBox["y13", "4"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "7"]}]], "+", 
  FractionBox[
   RowBox[{"15", " ", 
    SuperscriptBox["b", "2"], " ", 
    SuperscriptBox["y13", "4"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R13", "6"]}]], "+", 
  FractionBox[
   RowBox[{"15", " ", 
    SuperscriptBox["b", "2"], " ", 
    SuperscriptBox["y13", "4"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "6"]}]], "+", 
  FractionBox[
   RowBox[{"6", " ", 
    SuperscriptBox["b", "3"], " ", 
    SuperscriptBox["y13", "4"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R13", "5"]}]], "+", 
  FractionBox[
   RowBox[{"6", " ", 
    SuperscriptBox["b", "3"], " ", 
    SuperscriptBox["y13", "4"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "5"]}]], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["b", "4"], " ", 
    SuperscriptBox["y13", "4"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R13", "4"]}]], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["b", "4"], " ", 
    SuperscriptBox["y13", "4"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "4"]}]], "+", 
  FractionBox[
   RowBox[{"20", " ", "a", " ", "c", " ", "y12", " ", "y23"}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", "R12", " ", 
    SuperscriptBox["R23", "3"]}]], "+", 
  FractionBox[
   RowBox[{"20", " ", "a", " ", 
    SuperscriptBox["c", "2"], " ", "y12", " ", "y23"}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", "R12", " ", 
    SuperscriptBox["R23", "2"]}]], "+", 
  FractionBox[
   RowBox[{"20", " ", "a", " ", "c", " ", "y12", " ", "y23"}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "3"], " ", "R23"}]], "+", 
  FractionBox[
   RowBox[{"20", " ", 
    SuperscriptBox["a", "2"], " ", "c", " ", "y12", " ", "y23"}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "2"], " ", "R23"}]], "-", 
  FractionBox[
   RowBox[{"12", " ", "a", " ", "c", " ", 
    SuperscriptBox["x12", "2"], " ", "y12", " ", "y23"}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "5"], " ", "R23"}]], "-", 
  FractionBox[
   RowBox[{"12", " ", 
    SuperscriptBox["a", "2"], " ", "c", " ", 
    SuperscriptBox["x12", "2"], " ", "y12", " ", "y23"}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "4"], " ", "R23"}]], "-", 
  FractionBox[
   RowBox[{"4", " ", 
    SuperscriptBox["a", "3"], " ", "c", " ", 
    SuperscriptBox["x12", "2"], " ", "y12", " ", "y23"}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "3"], " ", "R23"}]], "+", 
  FractionBox[
   RowBox[{
   "8", " ", "a", " ", "c", " ", "x12", " ", "x23", " ", "y12", " ", "y23"}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "3"], " ", 
    SuperscriptBox["R23", "3"]}]], "+", 
  FractionBox[
   RowBox[{"8", " ", 
    SuperscriptBox["a", "2"], " ", "c", " ", "x12", " ", "x23", " ", "y12", " ",
     "y23"}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "2"], " ", 
    SuperscriptBox["R23", "3"]}]], "+", 
  FractionBox[
   RowBox[{"8", " ", "a", " ", 
    SuperscriptBox["c", "2"], " ", "x12", " ", "x23", " ", "y12", " ", 
    "y23"}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "3"], " ", 
    SuperscriptBox["R23", "2"]}]], "+", 
  FractionBox[
   RowBox[{"8", " ", 
    SuperscriptBox["a", "2"], " ", 
    SuperscriptBox["c", "2"], " ", "x12", " ", "x23", " ", "y12", " ", 
    "y23"}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "2"], " ", 
    SuperscriptBox["R23", "2"]}]], "-", 
  FractionBox[
   RowBox[{"12", " ", "a", " ", "c", " ", 
    SuperscriptBox["x23", "2"], " ", "y12", " ", "y23"}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", "R12", " ", 
    SuperscriptBox["R23", "5"]}]], "-", 
  FractionBox[
   RowBox[{"12", " ", "a", " ", 
    SuperscriptBox["c", "2"], " ", 
    SuperscriptBox["x23", "2"], " ", "y12", " ", "y23"}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", "R12", " ", 
    SuperscriptBox["R23", "4"]}]], "-", 
  FractionBox[
   RowBox[{"4", " ", "a", " ", 
    SuperscriptBox["c", "3"], " ", 
    SuperscriptBox["x23", "2"], " ", "y12", " ", "y23"}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", "R12", " ", 
    SuperscriptBox["R23", "3"]}]], "-", 
  FractionBox[
   RowBox[{"12", " ", "a", " ", "c", " ", 
    SuperscriptBox["y12", "3"], " ", "y23"}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "5"], " ", "R23"}]], "-", 
  FractionBox[
   RowBox[{"12", " ", 
    SuperscriptBox["a", "2"], " ", "c", " ", 
    SuperscriptBox["y12", "3"], " ", "y23"}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "4"], " ", "R23"}]], "-", 
  FractionBox[
   RowBox[{"4", " ", 
    SuperscriptBox["a", "3"], " ", "c", " ", 
    SuperscriptBox["y12", "3"], " ", "y23"}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "3"], " ", "R23"}]], "-", 
  FractionBox[
   RowBox[{"20", " ", "b", " ", "c", " ", "y13", " ", "y23"}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", "R13", " ", 
    SuperscriptBox["R23", "3"]}]], "-", 
  FractionBox[
   RowBox[{"20", " ", "b", " ", 
    SuperscriptBox["c", "2"], " ", "y13", " ", "y23"}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", "R13", " ", 
    SuperscriptBox["R23", "2"]}]], "-", 
  FractionBox[
   RowBox[{"20", " ", "b", " ", "c", " ", "y13", " ", "y23"}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "3"], " ", "R23"}]], "-", 
  FractionBox[
   RowBox[{"20", " ", 
    SuperscriptBox["b", "2"], " ", "c", " ", "y13", " ", "y23"}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "2"], " ", "R23"}]], "+", 
  FractionBox[
   RowBox[{"12", " ", "b", " ", "c", " ", 
    SuperscriptBox["x13", "2"], " ", "y13", " ", "y23"}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "5"], " ", "R23"}]], "+", 
  FractionBox[
   RowBox[{"12", " ", 
    SuperscriptBox["b", "2"], " ", "c", " ", 
    SuperscriptBox["x13", "2"], " ", "y13", " ", "y23"}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "4"], " ", "R23"}]], "+", 
  FractionBox[
   RowBox[{"4", " ", 
    SuperscriptBox["b", "3"], " ", "c", " ", 
    SuperscriptBox["x13", "2"], " ", "y13", " ", "y23"}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "3"], " ", "R23"}]], "+", 
  FractionBox[
   RowBox[{
   "8", " ", "b", " ", "c", " ", "x13", " ", "x23", " ", "y13", " ", "y23"}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "3"], " ", 
    SuperscriptBox["R23", "3"]}]], "+", 
  FractionBox[
   RowBox[{"8", " ", 
    SuperscriptBox["b", "2"], " ", "c", " ", "x13", " ", "x23", " ", "y13", " ",
     "y23"}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "2"], " ", 
    SuperscriptBox["R23", "3"]}]], "+", 
  FractionBox[
   RowBox[{"8", " ", "b", " ", 
    SuperscriptBox["c", "2"], " ", "x13", " ", "x23", " ", "y13", " ", 
    "y23"}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "3"], " ", 
    SuperscriptBox["R23", "2"]}]], "+", 
  FractionBox[
   RowBox[{"8", " ", 
    SuperscriptBox["b", "2"], " ", 
    SuperscriptBox["c", "2"], " ", "x13", " ", "x23", " ", "y13", " ", 
    "y23"}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "2"], " ", 
    SuperscriptBox["R23", "2"]}]], "+", 
  FractionBox[
   RowBox[{"12", " ", "b", " ", "c", " ", 
    SuperscriptBox["x23", "2"], " ", "y13", " ", "y23"}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", "R13", " ", 
    SuperscriptBox["R23", "5"]}]], "+", 
  FractionBox[
   RowBox[{"12", " ", "b", " ", 
    SuperscriptBox["c", "2"], " ", 
    SuperscriptBox["x23", "2"], " ", "y13", " ", "y23"}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", "R13", " ", 
    SuperscriptBox["R23", "4"]}]], "+", 
  FractionBox[
   RowBox[{"4", " ", "b", " ", 
    SuperscriptBox["c", "3"], " ", 
    SuperscriptBox["x23", "2"], " ", "y13", " ", "y23"}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", "R13", " ", 
    SuperscriptBox["R23", "3"]}]], "+", 
  FractionBox[
   RowBox[{"12", " ", "b", " ", "c", " ", 
    SuperscriptBox["y13", "3"], " ", "y23"}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "5"], " ", "R23"}]], "+", 
  FractionBox[
   RowBox[{"12", " ", 
    SuperscriptBox["b", "2"], " ", "c", " ", 
    SuperscriptBox["y13", "3"], " ", "y23"}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "4"], " ", "R23"}]], "+", 
  FractionBox[
   RowBox[{"4", " ", 
    SuperscriptBox["b", "3"], " ", "c", " ", 
    SuperscriptBox["y13", "3"], " ", "y23"}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "3"], " ", "R23"}]], "-", 
  FractionBox[
   RowBox[{"30", " ", "c", " ", 
    SuperscriptBox["y23", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R23", "5"]}]], "-", 
  FractionBox[
   RowBox[{"30", " ", "c", " ", 
    SuperscriptBox["y23", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R23", "5"]}]], "-", 
  FractionBox[
   RowBox[{"30", " ", 
    SuperscriptBox["c", "2"], " ", 
    SuperscriptBox["y23", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R23", "4"]}]], "-", 
  FractionBox[
   RowBox[{"30", " ", 
    SuperscriptBox["c", "2"], " ", 
    SuperscriptBox["y23", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R23", "4"]}]], "-", 
  FractionBox[
   RowBox[{"10", " ", 
    SuperscriptBox["c", "3"], " ", 
    SuperscriptBox["y23", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R23", "3"]}]], "-", 
  FractionBox[
   RowBox[{"10", " ", 
    SuperscriptBox["c", "3"], " ", 
    SuperscriptBox["y23", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R23", "3"]}]], "-", 
  FractionBox[
   RowBox[{"10", " ", "a", " ", "c", " ", 
    SuperscriptBox["y23", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", "R12", " ", 
    SuperscriptBox["R23", "3"]}]], "-", 
  FractionBox[
   RowBox[{"10", " ", "b", " ", "c", " ", 
    SuperscriptBox["y23", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", "R13", " ", 
    SuperscriptBox["R23", "3"]}]], "-", 
  FractionBox[
   RowBox[{"10", " ", "a", " ", 
    SuperscriptBox["c", "2"], " ", 
    SuperscriptBox["y23", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", "R12", " ", 
    SuperscriptBox["R23", "2"]}]], "-", 
  FractionBox[
   RowBox[{"10", " ", "b", " ", 
    SuperscriptBox["c", "2"], " ", 
    SuperscriptBox["y23", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", "R13", " ", 
    SuperscriptBox["R23", "2"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", "a", " ", "c", " ", 
    SuperscriptBox["x12", "2"], " ", 
    SuperscriptBox["y23", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "3"], " ", 
    SuperscriptBox["R23", "3"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", 
    SuperscriptBox["a", "2"], " ", "c", " ", 
    SuperscriptBox["x12", "2"], " ", 
    SuperscriptBox["y23", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "2"], " ", 
    SuperscriptBox["R23", "3"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", "a", " ", 
    SuperscriptBox["c", "2"], " ", 
    SuperscriptBox["x12", "2"], " ", 
    SuperscriptBox["y23", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "3"], " ", 
    SuperscriptBox["R23", "2"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", 
    SuperscriptBox["a", "2"], " ", 
    SuperscriptBox["c", "2"], " ", 
    SuperscriptBox["x12", "2"], " ", 
    SuperscriptBox["y23", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "2"], " ", 
    SuperscriptBox["R23", "2"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", "b", " ", "c", " ", 
    SuperscriptBox["x13", "2"], " ", 
    SuperscriptBox["y23", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "3"], " ", 
    SuperscriptBox["R23", "3"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", 
    SuperscriptBox["b", "2"], " ", "c", " ", 
    SuperscriptBox["x13", "2"], " ", 
    SuperscriptBox["y23", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "2"], " ", 
    SuperscriptBox["R23", "3"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", "b", " ", 
    SuperscriptBox["c", "2"], " ", 
    SuperscriptBox["x13", "2"], " ", 
    SuperscriptBox["y23", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "3"], " ", 
    SuperscriptBox["R23", "2"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", 
    SuperscriptBox["b", "2"], " ", 
    SuperscriptBox["c", "2"], " ", 
    SuperscriptBox["x13", "2"], " ", 
    SuperscriptBox["y23", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "2"], " ", 
    SuperscriptBox["R23", "2"]}]], "-", 
  FractionBox[
   RowBox[{"12", " ", "a", " ", "c", " ", "x12", " ", "x23", " ", 
    SuperscriptBox["y23", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", "R12", " ", 
    SuperscriptBox["R23", "5"]}]], "-", 
  FractionBox[
   RowBox[{"12", " ", "a", " ", 
    SuperscriptBox["c", "2"], " ", "x12", " ", "x23", " ", 
    SuperscriptBox["y23", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", "R12", " ", 
    SuperscriptBox["R23", "4"]}]], "-", 
  FractionBox[
   RowBox[{"4", " ", "a", " ", 
    SuperscriptBox["c", "3"], " ", "x12", " ", "x23", " ", 
    SuperscriptBox["y23", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", "R12", " ", 
    SuperscriptBox["R23", "3"]}]], "+", 
  FractionBox[
   RowBox[{"12", " ", "b", " ", "c", " ", "x13", " ", "x23", " ", 
    SuperscriptBox["y23", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", "R13", " ", 
    SuperscriptBox["R23", "5"]}]], "+", 
  FractionBox[
   RowBox[{"12", " ", "b", " ", 
    SuperscriptBox["c", "2"], " ", "x13", " ", "x23", " ", 
    SuperscriptBox["y23", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", "R13", " ", 
    SuperscriptBox["R23", "4"]}]], "+", 
  FractionBox[
   RowBox[{"4", " ", "b", " ", 
    SuperscriptBox["c", "3"], " ", "x13", " ", "x23", " ", 
    SuperscriptBox["y23", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", "R13", " ", 
    SuperscriptBox["R23", "3"]}]], "+", 
  FractionBox[
   RowBox[{"30", " ", "c", " ", 
    SuperscriptBox["x23", "2"], " ", 
    SuperscriptBox["y23", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R23", "7"]}]], "+", 
  FractionBox[
   RowBox[{"30", " ", "c", " ", 
    SuperscriptBox["x23", "2"], " ", 
    SuperscriptBox["y23", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R23", "7"]}]], "+", 
  FractionBox[
   RowBox[{"30", " ", 
    SuperscriptBox["c", "2"], " ", 
    SuperscriptBox["x23", "2"], " ", 
    SuperscriptBox["y23", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R23", "6"]}]], "+", 
  FractionBox[
   RowBox[{"30", " ", 
    SuperscriptBox["c", "2"], " ", 
    SuperscriptBox["x23", "2"], " ", 
    SuperscriptBox["y23", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R23", "6"]}]], "+", 
  FractionBox[
   RowBox[{"12", " ", 
    SuperscriptBox["c", "3"], " ", 
    SuperscriptBox["x23", "2"], " ", 
    SuperscriptBox["y23", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R23", "5"]}]], "+", 
  FractionBox[
   RowBox[{"12", " ", 
    SuperscriptBox["c", "3"], " ", 
    SuperscriptBox["x23", "2"], " ", 
    SuperscriptBox["y23", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R23", "5"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", 
    SuperscriptBox["c", "4"], " ", 
    SuperscriptBox["x23", "2"], " ", 
    SuperscriptBox["y23", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R23", "4"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", 
    SuperscriptBox["c", "4"], " ", 
    SuperscriptBox["x23", "2"], " ", 
    SuperscriptBox["y23", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R23", "4"]}]], "+", 
  FractionBox[
   RowBox[{"6", " ", "a", " ", "c", " ", 
    SuperscriptBox["y12", "2"], " ", 
    SuperscriptBox["y23", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "3"], " ", 
    SuperscriptBox["R23", "3"]}]], "+", 
  FractionBox[
   RowBox[{"6", " ", 
    SuperscriptBox["a", "2"], " ", "c", " ", 
    SuperscriptBox["y12", "2"], " ", 
    SuperscriptBox["y23", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "2"], " ", 
    SuperscriptBox["R23", "3"]}]], "+", 
  FractionBox[
   RowBox[{"6", " ", "a", " ", 
    SuperscriptBox["c", "2"], " ", 
    SuperscriptBox["y12", "2"], " ", 
    SuperscriptBox["y23", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "3"], " ", 
    SuperscriptBox["R23", "2"]}]], "+", 
  FractionBox[
   RowBox[{"6", " ", 
    SuperscriptBox["a", "2"], " ", 
    SuperscriptBox["c", "2"], " ", 
    SuperscriptBox["y12", "2"], " ", 
    SuperscriptBox["y23", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "2"], " ", 
    SuperscriptBox["R23", "2"]}]], "+", 
  FractionBox[
   RowBox[{"6", " ", "b", " ", "c", " ", 
    SuperscriptBox["y13", "2"], " ", 
    SuperscriptBox["y23", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "3"], " ", 
    SuperscriptBox["R23", "3"]}]], "+", 
  FractionBox[
   RowBox[{"6", " ", 
    SuperscriptBox["b", "2"], " ", "c", " ", 
    SuperscriptBox["y13", "2"], " ", 
    SuperscriptBox["y23", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "2"], " ", 
    SuperscriptBox["R23", "3"]}]], "+", 
  FractionBox[
   RowBox[{"6", " ", "b", " ", 
    SuperscriptBox["c", "2"], " ", 
    SuperscriptBox["y13", "2"], " ", 
    SuperscriptBox["y23", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "3"], " ", 
    SuperscriptBox["R23", "2"]}]], "+", 
  FractionBox[
   RowBox[{"6", " ", 
    SuperscriptBox["b", "2"], " ", 
    SuperscriptBox["c", "2"], " ", 
    SuperscriptBox["y13", "2"], " ", 
    SuperscriptBox["y23", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "2"], " ", 
    SuperscriptBox["R23", "2"]}]], "-", 
  FractionBox[
   RowBox[{"12", " ", "a", " ", "c", " ", "y12", " ", 
    SuperscriptBox["y23", "3"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", "R12", " ", 
    SuperscriptBox["R23", "5"]}]], "-", 
  FractionBox[
   RowBox[{"12", " ", "a", " ", 
    SuperscriptBox["c", "2"], " ", "y12", " ", 
    SuperscriptBox["y23", "3"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", "R12", " ", 
    SuperscriptBox["R23", "4"]}]], "-", 
  FractionBox[
   RowBox[{"4", " ", "a", " ", 
    SuperscriptBox["c", "3"], " ", "y12", " ", 
    SuperscriptBox["y23", "3"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", "R12", " ", 
    SuperscriptBox["R23", "3"]}]], "+", 
  FractionBox[
   RowBox[{"12", " ", "b", " ", "c", " ", "y13", " ", 
    SuperscriptBox["y23", "3"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", "R13", " ", 
    SuperscriptBox["R23", "5"]}]], "+", 
  FractionBox[
   RowBox[{"12", " ", "b", " ", 
    SuperscriptBox["c", "2"], " ", "y13", " ", 
    SuperscriptBox["y23", "3"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", "R13", " ", 
    SuperscriptBox["R23", "4"]}]], "+", 
  FractionBox[
   RowBox[{"4", " ", "b", " ", 
    SuperscriptBox["c", "3"], " ", "y13", " ", 
    SuperscriptBox["y23", "3"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", "R13", " ", 
    SuperscriptBox["R23", "3"]}]], "+", 
  FractionBox[
   RowBox[{"15", " ", "c", " ", 
    SuperscriptBox["y23", "4"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R23", "7"]}]], "+", 
  FractionBox[
   RowBox[{"15", " ", "c", " ", 
    SuperscriptBox["y23", "4"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R23", "7"]}]], "+", 
  FractionBox[
   RowBox[{"15", " ", 
    SuperscriptBox["c", "2"], " ", 
    SuperscriptBox["y23", "4"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R23", "6"]}]], "+", 
  FractionBox[
   RowBox[{"15", " ", 
    SuperscriptBox["c", "2"], " ", 
    SuperscriptBox["y23", "4"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R23", "6"]}]], "+", 
  FractionBox[
   RowBox[{"6", " ", 
    SuperscriptBox["c", "3"], " ", 
    SuperscriptBox["y23", "4"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R23", "5"]}]], "+", 
  FractionBox[
   RowBox[{"6", " ", 
    SuperscriptBox["c", "3"], " ", 
    SuperscriptBox["y23", "4"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R23", "5"]}]], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["c", "4"], " ", 
    SuperscriptBox["y23", "4"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R23", "4"]}]], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["c", "4"], " ", 
    SuperscriptBox["y23", "4"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R23", "4"]}]], "-", 
  FractionBox[
   RowBox[{"30", " ", "a", " ", 
    SuperscriptBox["z12", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "5"]}]], "-", 
  FractionBox[
   RowBox[{"30", " ", "a", " ", 
    SuperscriptBox["z12", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "5"]}]], "-", 
  FractionBox[
   RowBox[{"30", " ", 
    SuperscriptBox["a", "2"], " ", 
    SuperscriptBox["z12", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "4"]}]], "-", 
  FractionBox[
   RowBox[{"30", " ", 
    SuperscriptBox["a", "2"], " ", 
    SuperscriptBox["z12", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "4"]}]], "-", 
  FractionBox[
   RowBox[{"10", " ", 
    SuperscriptBox["a", "3"], " ", 
    SuperscriptBox["z12", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "3"]}]], "-", 
  FractionBox[
   RowBox[{"10", " ", 
    SuperscriptBox["a", "3"], " ", 
    SuperscriptBox["z12", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "3"]}]], "-", 
  FractionBox[
   RowBox[{"10", " ", "a", " ", "b", " ", 
    SuperscriptBox["z12", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "3"], " ", "R13"}]], "-", 
  FractionBox[
   RowBox[{"10", " ", 
    SuperscriptBox["a", "2"], " ", "b", " ", 
    SuperscriptBox["z12", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "2"], " ", "R13"}]], "-", 
  FractionBox[
   RowBox[{"10", " ", "a", " ", "c", " ", 
    SuperscriptBox["z12", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "3"], " ", "R23"}]], "-", 
  FractionBox[
   RowBox[{"10", " ", 
    SuperscriptBox["a", "2"], " ", "c", " ", 
    SuperscriptBox["z12", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "2"], " ", "R23"}]], "+", 
  FractionBox[
   RowBox[{"30", " ", "a", " ", 
    SuperscriptBox["x12", "2"], " ", 
    SuperscriptBox["z12", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "7"]}]], "+", 
  FractionBox[
   RowBox[{"30", " ", "a", " ", 
    SuperscriptBox["x12", "2"], " ", 
    SuperscriptBox["z12", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "7"]}]], "+", 
  FractionBox[
   RowBox[{"30", " ", 
    SuperscriptBox["a", "2"], " ", 
    SuperscriptBox["x12", "2"], " ", 
    SuperscriptBox["z12", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "6"]}]], "+", 
  FractionBox[
   RowBox[{"30", " ", 
    SuperscriptBox["a", "2"], " ", 
    SuperscriptBox["x12", "2"], " ", 
    SuperscriptBox["z12", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "6"]}]], "+", 
  FractionBox[
   RowBox[{"12", " ", 
    SuperscriptBox["a", "3"], " ", 
    SuperscriptBox["x12", "2"], " ", 
    SuperscriptBox["z12", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "5"]}]], "+", 
  FractionBox[
   RowBox[{"12", " ", 
    SuperscriptBox["a", "3"], " ", 
    SuperscriptBox["x12", "2"], " ", 
    SuperscriptBox["z12", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "5"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", 
    SuperscriptBox["a", "4"], " ", 
    SuperscriptBox["x12", "2"], " ", 
    SuperscriptBox["z12", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "4"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", 
    SuperscriptBox["a", "4"], " ", 
    SuperscriptBox["x12", "2"], " ", 
    SuperscriptBox["z12", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "4"]}]], "+", 
  FractionBox[
   RowBox[{"12", " ", "a", " ", "b", " ", "x12", " ", "x13", " ", 
    SuperscriptBox["z12", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "5"], " ", "R13"}]], "+", 
  FractionBox[
   RowBox[{"12", " ", 
    SuperscriptBox["a", "2"], " ", "b", " ", "x12", " ", "x13", " ", 
    SuperscriptBox["z12", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "4"], " ", "R13"}]], "+", 
  FractionBox[
   RowBox[{"4", " ", 
    SuperscriptBox["a", "3"], " ", "b", " ", "x12", " ", "x13", " ", 
    SuperscriptBox["z12", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "3"], " ", "R13"}]], "+", 
  FractionBox[
   RowBox[{"2", " ", "a", " ", "b", " ", 
    SuperscriptBox["x13", "2"], " ", 
    SuperscriptBox["z12", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "3"], " ", 
    SuperscriptBox["R13", "3"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", 
    SuperscriptBox["a", "2"], " ", "b", " ", 
    SuperscriptBox["x13", "2"], " ", 
    SuperscriptBox["z12", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "2"], " ", 
    SuperscriptBox["R13", "3"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", "a", " ", 
    SuperscriptBox["b", "2"], " ", 
    SuperscriptBox["x13", "2"], " ", 
    SuperscriptBox["z12", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "3"], " ", 
    SuperscriptBox["R13", "2"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", 
    SuperscriptBox["a", "2"], " ", 
    SuperscriptBox["b", "2"], " ", 
    SuperscriptBox["x13", "2"], " ", 
    SuperscriptBox["z12", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "2"], " ", 
    SuperscriptBox["R13", "2"]}]], "-", 
  FractionBox[
   RowBox[{"12", " ", "a", " ", "c", " ", "x12", " ", "x23", " ", 
    SuperscriptBox["z12", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "5"], " ", "R23"}]], "-", 
  FractionBox[
   RowBox[{"12", " ", 
    SuperscriptBox["a", "2"], " ", "c", " ", "x12", " ", "x23", " ", 
    SuperscriptBox["z12", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "4"], " ", "R23"}]], "-", 
  FractionBox[
   RowBox[{"4", " ", 
    SuperscriptBox["a", "3"], " ", "c", " ", "x12", " ", "x23", " ", 
    SuperscriptBox["z12", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "3"], " ", "R23"}]], "+", 
  FractionBox[
   RowBox[{"2", " ", "a", " ", "c", " ", 
    SuperscriptBox["x23", "2"], " ", 
    SuperscriptBox["z12", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "3"], " ", 
    SuperscriptBox["R23", "3"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", 
    SuperscriptBox["a", "2"], " ", "c", " ", 
    SuperscriptBox["x23", "2"], " ", 
    SuperscriptBox["z12", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "2"], " ", 
    SuperscriptBox["R23", "3"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", "a", " ", 
    SuperscriptBox["c", "2"], " ", 
    SuperscriptBox["x23", "2"], " ", 
    SuperscriptBox["z12", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "3"], " ", 
    SuperscriptBox["R23", "2"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", 
    SuperscriptBox["a", "2"], " ", 
    SuperscriptBox["c", "2"], " ", 
    SuperscriptBox["x23", "2"], " ", 
    SuperscriptBox["z12", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "2"], " ", 
    SuperscriptBox["R23", "2"]}]], "+", 
  FractionBox[
   RowBox[{"30", " ", "a", " ", 
    SuperscriptBox["y12", "2"], " ", 
    SuperscriptBox["z12", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "7"]}]], "+", 
  FractionBox[
   RowBox[{"30", " ", "a", " ", 
    SuperscriptBox["y12", "2"], " ", 
    SuperscriptBox["z12", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "7"]}]], "+", 
  FractionBox[
   RowBox[{"30", " ", 
    SuperscriptBox["a", "2"], " ", 
    SuperscriptBox["y12", "2"], " ", 
    SuperscriptBox["z12", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "6"]}]], "+", 
  FractionBox[
   RowBox[{"30", " ", 
    SuperscriptBox["a", "2"], " ", 
    SuperscriptBox["y12", "2"], " ", 
    SuperscriptBox["z12", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "6"]}]], "+", 
  FractionBox[
   RowBox[{"12", " ", 
    SuperscriptBox["a", "3"], " ", 
    SuperscriptBox["y12", "2"], " ", 
    SuperscriptBox["z12", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "5"]}]], "+", 
  FractionBox[
   RowBox[{"12", " ", 
    SuperscriptBox["a", "3"], " ", 
    SuperscriptBox["y12", "2"], " ", 
    SuperscriptBox["z12", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "5"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", 
    SuperscriptBox["a", "4"], " ", 
    SuperscriptBox["y12", "2"], " ", 
    SuperscriptBox["z12", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "4"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", 
    SuperscriptBox["a", "4"], " ", 
    SuperscriptBox["y12", "2"], " ", 
    SuperscriptBox["z12", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "4"]}]], "+", 
  FractionBox[
   RowBox[{"12", " ", "a", " ", "b", " ", "y12", " ", "y13", " ", 
    SuperscriptBox["z12", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "5"], " ", "R13"}]], "+", 
  FractionBox[
   RowBox[{"12", " ", 
    SuperscriptBox["a", "2"], " ", "b", " ", "y12", " ", "y13", " ", 
    SuperscriptBox["z12", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "4"], " ", "R13"}]], "+", 
  FractionBox[
   RowBox[{"4", " ", 
    SuperscriptBox["a", "3"], " ", "b", " ", "y12", " ", "y13", " ", 
    SuperscriptBox["z12", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "3"], " ", "R13"}]], "+", 
  FractionBox[
   RowBox[{"2", " ", "a", " ", "b", " ", 
    SuperscriptBox["y13", "2"], " ", 
    SuperscriptBox["z12", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "3"], " ", 
    SuperscriptBox["R13", "3"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", 
    SuperscriptBox["a", "2"], " ", "b", " ", 
    SuperscriptBox["y13", "2"], " ", 
    SuperscriptBox["z12", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "2"], " ", 
    SuperscriptBox["R13", "3"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", "a", " ", 
    SuperscriptBox["b", "2"], " ", 
    SuperscriptBox["y13", "2"], " ", 
    SuperscriptBox["z12", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "3"], " ", 
    SuperscriptBox["R13", "2"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", 
    SuperscriptBox["a", "2"], " ", 
    SuperscriptBox["b", "2"], " ", 
    SuperscriptBox["y13", "2"], " ", 
    SuperscriptBox["z12", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "2"], " ", 
    SuperscriptBox["R13", "2"]}]], "-", 
  FractionBox[
   RowBox[{"12", " ", "a", " ", "c", " ", "y12", " ", "y23", " ", 
    SuperscriptBox["z12", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "5"], " ", "R23"}]], "-", 
  FractionBox[
   RowBox[{"12", " ", 
    SuperscriptBox["a", "2"], " ", "c", " ", "y12", " ", "y23", " ", 
    SuperscriptBox["z12", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "4"], " ", "R23"}]], "-", 
  FractionBox[
   RowBox[{"4", " ", 
    SuperscriptBox["a", "3"], " ", "c", " ", "y12", " ", "y23", " ", 
    SuperscriptBox["z12", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "3"], " ", "R23"}]], "+", 
  FractionBox[
   RowBox[{"2", " ", "a", " ", "c", " ", 
    SuperscriptBox["y23", "2"], " ", 
    SuperscriptBox["z12", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "3"], " ", 
    SuperscriptBox["R23", "3"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", 
    SuperscriptBox["a", "2"], " ", "c", " ", 
    SuperscriptBox["y23", "2"], " ", 
    SuperscriptBox["z12", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "2"], " ", 
    SuperscriptBox["R23", "3"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", "a", " ", 
    SuperscriptBox["c", "2"], " ", 
    SuperscriptBox["y23", "2"], " ", 
    SuperscriptBox["z12", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "3"], " ", 
    SuperscriptBox["R23", "2"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", 
    SuperscriptBox["a", "2"], " ", 
    SuperscriptBox["c", "2"], " ", 
    SuperscriptBox["y23", "2"], " ", 
    SuperscriptBox["z12", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "2"], " ", 
    SuperscriptBox["R23", "2"]}]], "+", 
  FractionBox[
   RowBox[{"15", " ", "a", " ", 
    SuperscriptBox["z12", "4"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "7"]}]], "+", 
  FractionBox[
   RowBox[{"15", " ", "a", " ", 
    SuperscriptBox["z12", "4"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "7"]}]], "+", 
  FractionBox[
   RowBox[{"15", " ", 
    SuperscriptBox["a", "2"], " ", 
    SuperscriptBox["z12", "4"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "6"]}]], "+", 
  FractionBox[
   RowBox[{"15", " ", 
    SuperscriptBox["a", "2"], " ", 
    SuperscriptBox["z12", "4"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "6"]}]], "+", 
  FractionBox[
   RowBox[{"6", " ", 
    SuperscriptBox["a", "3"], " ", 
    SuperscriptBox["z12", "4"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "5"]}]], "+", 
  FractionBox[
   RowBox[{"6", " ", 
    SuperscriptBox["a", "3"], " ", 
    SuperscriptBox["z12", "4"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "5"]}]], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["a", "4"], " ", 
    SuperscriptBox["z12", "4"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "4"]}]], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["a", "4"], " ", 
    SuperscriptBox["z12", "4"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "4"]}]], "-", 
  FractionBox[
   RowBox[{"20", " ", "a", " ", "b", " ", "z12", " ", "z13"}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", "R12", " ", 
    SuperscriptBox["R13", "3"]}]], "-", 
  FractionBox[
   RowBox[{"20", " ", "a", " ", 
    SuperscriptBox["b", "2"], " ", "z12", " ", "z13"}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", "R12", " ", 
    SuperscriptBox["R13", "2"]}]], "-", 
  FractionBox[
   RowBox[{"20", " ", "a", " ", "b", " ", "z12", " ", "z13"}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "3"], " ", "R13"}]], "-", 
  FractionBox[
   RowBox[{"20", " ", 
    SuperscriptBox["a", "2"], " ", "b", " ", "z12", " ", "z13"}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "2"], " ", "R13"}]], "+", 
  FractionBox[
   RowBox[{"12", " ", "a", " ", "b", " ", 
    SuperscriptBox["x12", "2"], " ", "z12", " ", "z13"}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "5"], " ", "R13"}]], "+", 
  FractionBox[
   RowBox[{"12", " ", 
    SuperscriptBox["a", "2"], " ", "b", " ", 
    SuperscriptBox["x12", "2"], " ", "z12", " ", "z13"}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "4"], " ", "R13"}]], "+", 
  FractionBox[
   RowBox[{"4", " ", 
    SuperscriptBox["a", "3"], " ", "b", " ", 
    SuperscriptBox["x12", "2"], " ", "z12", " ", "z13"}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "3"], " ", "R13"}]], "+", 
  FractionBox[
   RowBox[{
   "8", " ", "a", " ", "b", " ", "x12", " ", "x13", " ", "z12", " ", "z13"}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "3"], " ", 
    SuperscriptBox["R13", "3"]}]], "+", 
  FractionBox[
   RowBox[{"8", " ", 
    SuperscriptBox["a", "2"], " ", "b", " ", "x12", " ", "x13", " ", "z12", " ",
     "z13"}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "2"], " ", 
    SuperscriptBox["R13", "3"]}]], "+", 
  FractionBox[
   RowBox[{"8", " ", "a", " ", 
    SuperscriptBox["b", "2"], " ", "x12", " ", "x13", " ", "z12", " ", 
    "z13"}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "3"], " ", 
    SuperscriptBox["R13", "2"]}]], "+", 
  FractionBox[
   RowBox[{"8", " ", 
    SuperscriptBox["a", "2"], " ", 
    SuperscriptBox["b", "2"], " ", "x12", " ", "x13", " ", "z12", " ", 
    "z13"}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "2"], " ", 
    SuperscriptBox["R13", "2"]}]], "+", 
  FractionBox[
   RowBox[{"12", " ", "a", " ", "b", " ", 
    SuperscriptBox["x13", "2"], " ", "z12", " ", "z13"}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", "R12", " ", 
    SuperscriptBox["R13", "5"]}]], "+", 
  FractionBox[
   RowBox[{"12", " ", "a", " ", 
    SuperscriptBox["b", "2"], " ", 
    SuperscriptBox["x13", "2"], " ", "z12", " ", "z13"}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", "R12", " ", 
    SuperscriptBox["R13", "4"]}]], "+", 
  FractionBox[
   RowBox[{"4", " ", "a", " ", 
    SuperscriptBox["b", "3"], " ", 
    SuperscriptBox["x13", "2"], " ", "z12", " ", "z13"}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", "R12", " ", 
    SuperscriptBox["R13", "3"]}]], "+", 
  FractionBox[
   RowBox[{"12", " ", "a", " ", "b", " ", 
    SuperscriptBox["y12", "2"], " ", "z12", " ", "z13"}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "5"], " ", "R13"}]], "+", 
  FractionBox[
   RowBox[{"12", " ", 
    SuperscriptBox["a", "2"], " ", "b", " ", 
    SuperscriptBox["y12", "2"], " ", "z12", " ", "z13"}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "4"], " ", "R13"}]], "+", 
  FractionBox[
   RowBox[{"4", " ", 
    SuperscriptBox["a", "3"], " ", "b", " ", 
    SuperscriptBox["y12", "2"], " ", "z12", " ", "z13"}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "3"], " ", "R13"}]], "+", 
  FractionBox[
   RowBox[{
   "8", " ", "a", " ", "b", " ", "y12", " ", "y13", " ", "z12", " ", "z13"}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "3"], " ", 
    SuperscriptBox["R13", "3"]}]], "+", 
  FractionBox[
   RowBox[{"8", " ", 
    SuperscriptBox["a", "2"], " ", "b", " ", "y12", " ", "y13", " ", "z12", " ",
     "z13"}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "2"], " ", 
    SuperscriptBox["R13", "3"]}]], "+", 
  FractionBox[
   RowBox[{"8", " ", "a", " ", 
    SuperscriptBox["b", "2"], " ", "y12", " ", "y13", " ", "z12", " ", 
    "z13"}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "3"], " ", 
    SuperscriptBox["R13", "2"]}]], "+", 
  FractionBox[
   RowBox[{"8", " ", 
    SuperscriptBox["a", "2"], " ", 
    SuperscriptBox["b", "2"], " ", "y12", " ", "y13", " ", "z12", " ", 
    "z13"}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "2"], " ", 
    SuperscriptBox["R13", "2"]}]], "+", 
  FractionBox[
   RowBox[{"12", " ", "a", " ", "b", " ", 
    SuperscriptBox["y13", "2"], " ", "z12", " ", "z13"}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", "R12", " ", 
    SuperscriptBox["R13", "5"]}]], "+", 
  FractionBox[
   RowBox[{"12", " ", "a", " ", 
    SuperscriptBox["b", "2"], " ", 
    SuperscriptBox["y13", "2"], " ", "z12", " ", "z13"}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", "R12", " ", 
    SuperscriptBox["R13", "4"]}]], "+", 
  FractionBox[
   RowBox[{"4", " ", "a", " ", 
    SuperscriptBox["b", "3"], " ", 
    SuperscriptBox["y13", "2"], " ", "z12", " ", "z13"}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", "R12", " ", 
    SuperscriptBox["R13", "3"]}]], "+", 
  FractionBox[
   RowBox[{"12", " ", "a", " ", "b", " ", 
    SuperscriptBox["z12", "3"], " ", "z13"}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "5"], " ", "R13"}]], "+", 
  FractionBox[
   RowBox[{"12", " ", 
    SuperscriptBox["a", "2"], " ", "b", " ", 
    SuperscriptBox["z12", "3"], " ", "z13"}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "4"], " ", "R13"}]], "+", 
  FractionBox[
   RowBox[{"4", " ", 
    SuperscriptBox["a", "3"], " ", "b", " ", 
    SuperscriptBox["z12", "3"], " ", "z13"}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "3"], " ", "R13"}]], "-", 
  FractionBox[
   RowBox[{"30", " ", "b", " ", 
    SuperscriptBox["z13", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R13", "5"]}]], "-", 
  FractionBox[
   RowBox[{"30", " ", "b", " ", 
    SuperscriptBox["z13", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "5"]}]], "-", 
  FractionBox[
   RowBox[{"30", " ", 
    SuperscriptBox["b", "2"], " ", 
    SuperscriptBox["z13", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R13", "4"]}]], "-", 
  FractionBox[
   RowBox[{"30", " ", 
    SuperscriptBox["b", "2"], " ", 
    SuperscriptBox["z13", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "4"]}]], "-", 
  FractionBox[
   RowBox[{"10", " ", 
    SuperscriptBox["b", "3"], " ", 
    SuperscriptBox["z13", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R13", "3"]}]], "-", 
  FractionBox[
   RowBox[{"10", " ", 
    SuperscriptBox["b", "3"], " ", 
    SuperscriptBox["z13", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "3"]}]], "-", 
  FractionBox[
   RowBox[{"10", " ", "a", " ", "b", " ", 
    SuperscriptBox["z13", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", "R12", " ", 
    SuperscriptBox["R13", "3"]}]], "-", 
  FractionBox[
   RowBox[{"10", " ", "a", " ", 
    SuperscriptBox["b", "2"], " ", 
    SuperscriptBox["z13", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", "R12", " ", 
    SuperscriptBox["R13", "2"]}]], "-", 
  FractionBox[
   RowBox[{"10", " ", "b", " ", "c", " ", 
    SuperscriptBox["z13", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "3"], " ", "R23"}]], "-", 
  FractionBox[
   RowBox[{"10", " ", 
    SuperscriptBox["b", "2"], " ", "c", " ", 
    SuperscriptBox["z13", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "2"], " ", "R23"}]], "+", 
  FractionBox[
   RowBox[{"2", " ", "a", " ", "b", " ", 
    SuperscriptBox["x12", "2"], " ", 
    SuperscriptBox["z13", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "3"], " ", 
    SuperscriptBox["R13", "3"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", 
    SuperscriptBox["a", "2"], " ", "b", " ", 
    SuperscriptBox["x12", "2"], " ", 
    SuperscriptBox["z13", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "2"], " ", 
    SuperscriptBox["R13", "3"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", "a", " ", 
    SuperscriptBox["b", "2"], " ", 
    SuperscriptBox["x12", "2"], " ", 
    SuperscriptBox["z13", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "3"], " ", 
    SuperscriptBox["R13", "2"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", 
    SuperscriptBox["a", "2"], " ", 
    SuperscriptBox["b", "2"], " ", 
    SuperscriptBox["x12", "2"], " ", 
    SuperscriptBox["z13", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "2"], " ", 
    SuperscriptBox["R13", "2"]}]], "+", 
  FractionBox[
   RowBox[{"12", " ", "a", " ", "b", " ", "x12", " ", "x13", " ", 
    SuperscriptBox["z13", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", "R12", " ", 
    SuperscriptBox["R13", "5"]}]], "+", 
  FractionBox[
   RowBox[{"12", " ", "a", " ", 
    SuperscriptBox["b", "2"], " ", "x12", " ", "x13", " ", 
    SuperscriptBox["z13", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", "R12", " ", 
    SuperscriptBox["R13", "4"]}]], "+", 
  FractionBox[
   RowBox[{"4", " ", "a", " ", 
    SuperscriptBox["b", "3"], " ", "x12", " ", "x13", " ", 
    SuperscriptBox["z13", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", "R12", " ", 
    SuperscriptBox["R13", "3"]}]], "+", 
  FractionBox[
   RowBox[{"30", " ", "b", " ", 
    SuperscriptBox["x13", "2"], " ", 
    SuperscriptBox["z13", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R13", "7"]}]], "+", 
  FractionBox[
   RowBox[{"30", " ", "b", " ", 
    SuperscriptBox["x13", "2"], " ", 
    SuperscriptBox["z13", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "7"]}]], "+", 
  FractionBox[
   RowBox[{"30", " ", 
    SuperscriptBox["b", "2"], " ", 
    SuperscriptBox["x13", "2"], " ", 
    SuperscriptBox["z13", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R13", "6"]}]], "+", 
  FractionBox[
   RowBox[{"30", " ", 
    SuperscriptBox["b", "2"], " ", 
    SuperscriptBox["x13", "2"], " ", 
    SuperscriptBox["z13", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "6"]}]], "+", 
  FractionBox[
   RowBox[{"12", " ", 
    SuperscriptBox["b", "3"], " ", 
    SuperscriptBox["x13", "2"], " ", 
    SuperscriptBox["z13", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R13", "5"]}]], "+", 
  FractionBox[
   RowBox[{"12", " ", 
    SuperscriptBox["b", "3"], " ", 
    SuperscriptBox["x13", "2"], " ", 
    SuperscriptBox["z13", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "5"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", 
    SuperscriptBox["b", "4"], " ", 
    SuperscriptBox["x13", "2"], " ", 
    SuperscriptBox["z13", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R13", "4"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", 
    SuperscriptBox["b", "4"], " ", 
    SuperscriptBox["x13", "2"], " ", 
    SuperscriptBox["z13", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "4"]}]], "+", 
  FractionBox[
   RowBox[{"12", " ", "b", " ", "c", " ", "x13", " ", "x23", " ", 
    SuperscriptBox["z13", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "5"], " ", "R23"}]], "+", 
  FractionBox[
   RowBox[{"12", " ", 
    SuperscriptBox["b", "2"], " ", "c", " ", "x13", " ", "x23", " ", 
    SuperscriptBox["z13", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "4"], " ", "R23"}]], "+", 
  FractionBox[
   RowBox[{"4", " ", 
    SuperscriptBox["b", "3"], " ", "c", " ", "x13", " ", "x23", " ", 
    SuperscriptBox["z13", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "3"], " ", "R23"}]], "+", 
  FractionBox[
   RowBox[{"2", " ", "b", " ", "c", " ", 
    SuperscriptBox["x23", "2"], " ", 
    SuperscriptBox["z13", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "3"], " ", 
    SuperscriptBox["R23", "3"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", 
    SuperscriptBox["b", "2"], " ", "c", " ", 
    SuperscriptBox["x23", "2"], " ", 
    SuperscriptBox["z13", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "2"], " ", 
    SuperscriptBox["R23", "3"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", "b", " ", 
    SuperscriptBox["c", "2"], " ", 
    SuperscriptBox["x23", "2"], " ", 
    SuperscriptBox["z13", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "3"], " ", 
    SuperscriptBox["R23", "2"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", 
    SuperscriptBox["b", "2"], " ", 
    SuperscriptBox["c", "2"], " ", 
    SuperscriptBox["x23", "2"], " ", 
    SuperscriptBox["z13", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "2"], " ", 
    SuperscriptBox["R23", "2"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", "a", " ", "b", " ", 
    SuperscriptBox["y12", "2"], " ", 
    SuperscriptBox["z13", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "3"], " ", 
    SuperscriptBox["R13", "3"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", 
    SuperscriptBox["a", "2"], " ", "b", " ", 
    SuperscriptBox["y12", "2"], " ", 
    SuperscriptBox["z13", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "2"], " ", 
    SuperscriptBox["R13", "3"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", "a", " ", 
    SuperscriptBox["b", "2"], " ", 
    SuperscriptBox["y12", "2"], " ", 
    SuperscriptBox["z13", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "3"], " ", 
    SuperscriptBox["R13", "2"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", 
    SuperscriptBox["a", "2"], " ", 
    SuperscriptBox["b", "2"], " ", 
    SuperscriptBox["y12", "2"], " ", 
    SuperscriptBox["z13", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "2"], " ", 
    SuperscriptBox["R13", "2"]}]], "+", 
  FractionBox[
   RowBox[{"12", " ", "a", " ", "b", " ", "y12", " ", "y13", " ", 
    SuperscriptBox["z13", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", "R12", " ", 
    SuperscriptBox["R13", "5"]}]], "+", 
  FractionBox[
   RowBox[{"12", " ", "a", " ", 
    SuperscriptBox["b", "2"], " ", "y12", " ", "y13", " ", 
    SuperscriptBox["z13", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", "R12", " ", 
    SuperscriptBox["R13", "4"]}]], "+", 
  FractionBox[
   RowBox[{"4", " ", "a", " ", 
    SuperscriptBox["b", "3"], " ", "y12", " ", "y13", " ", 
    SuperscriptBox["z13", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", "R12", " ", 
    SuperscriptBox["R13", "3"]}]], "+", 
  FractionBox[
   RowBox[{"30", " ", "b", " ", 
    SuperscriptBox["y13", "2"], " ", 
    SuperscriptBox["z13", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R13", "7"]}]], "+", 
  FractionBox[
   RowBox[{"30", " ", "b", " ", 
    SuperscriptBox["y13", "2"], " ", 
    SuperscriptBox["z13", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "7"]}]], "+", 
  FractionBox[
   RowBox[{"30", " ", 
    SuperscriptBox["b", "2"], " ", 
    SuperscriptBox["y13", "2"], " ", 
    SuperscriptBox["z13", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R13", "6"]}]], "+", 
  FractionBox[
   RowBox[{"30", " ", 
    SuperscriptBox["b", "2"], " ", 
    SuperscriptBox["y13", "2"], " ", 
    SuperscriptBox["z13", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "6"]}]], "+", 
  FractionBox[
   RowBox[{"12", " ", 
    SuperscriptBox["b", "3"], " ", 
    SuperscriptBox["y13", "2"], " ", 
    SuperscriptBox["z13", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R13", "5"]}]], "+", 
  FractionBox[
   RowBox[{"12", " ", 
    SuperscriptBox["b", "3"], " ", 
    SuperscriptBox["y13", "2"], " ", 
    SuperscriptBox["z13", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "5"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", 
    SuperscriptBox["b", "4"], " ", 
    SuperscriptBox["y13", "2"], " ", 
    SuperscriptBox["z13", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R13", "4"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", 
    SuperscriptBox["b", "4"], " ", 
    SuperscriptBox["y13", "2"], " ", 
    SuperscriptBox["z13", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "4"]}]], "+", 
  FractionBox[
   RowBox[{"12", " ", "b", " ", "c", " ", "y13", " ", "y23", " ", 
    SuperscriptBox["z13", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "5"], " ", "R23"}]], "+", 
  FractionBox[
   RowBox[{"12", " ", 
    SuperscriptBox["b", "2"], " ", "c", " ", "y13", " ", "y23", " ", 
    SuperscriptBox["z13", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "4"], " ", "R23"}]], "+", 
  FractionBox[
   RowBox[{"4", " ", 
    SuperscriptBox["b", "3"], " ", "c", " ", "y13", " ", "y23", " ", 
    SuperscriptBox["z13", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "3"], " ", "R23"}]], "+", 
  FractionBox[
   RowBox[{"2", " ", "b", " ", "c", " ", 
    SuperscriptBox["y23", "2"], " ", 
    SuperscriptBox["z13", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "3"], " ", 
    SuperscriptBox["R23", "3"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", 
    SuperscriptBox["b", "2"], " ", "c", " ", 
    SuperscriptBox["y23", "2"], " ", 
    SuperscriptBox["z13", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "2"], " ", 
    SuperscriptBox["R23", "3"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", "b", " ", 
    SuperscriptBox["c", "2"], " ", 
    SuperscriptBox["y23", "2"], " ", 
    SuperscriptBox["z13", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "3"], " ", 
    SuperscriptBox["R23", "2"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", 
    SuperscriptBox["b", "2"], " ", 
    SuperscriptBox["c", "2"], " ", 
    SuperscriptBox["y23", "2"], " ", 
    SuperscriptBox["z13", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "2"], " ", 
    SuperscriptBox["R23", "2"]}]], "+", 
  FractionBox[
   RowBox[{"6", " ", "a", " ", "b", " ", 
    SuperscriptBox["z12", "2"], " ", 
    SuperscriptBox["z13", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "3"], " ", 
    SuperscriptBox["R13", "3"]}]], "+", 
  FractionBox[
   RowBox[{"6", " ", 
    SuperscriptBox["a", "2"], " ", "b", " ", 
    SuperscriptBox["z12", "2"], " ", 
    SuperscriptBox["z13", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "2"], " ", 
    SuperscriptBox["R13", "3"]}]], "+", 
  FractionBox[
   RowBox[{"6", " ", "a", " ", 
    SuperscriptBox["b", "2"], " ", 
    SuperscriptBox["z12", "2"], " ", 
    SuperscriptBox["z13", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "3"], " ", 
    SuperscriptBox["R13", "2"]}]], "+", 
  FractionBox[
   RowBox[{"6", " ", 
    SuperscriptBox["a", "2"], " ", 
    SuperscriptBox["b", "2"], " ", 
    SuperscriptBox["z12", "2"], " ", 
    SuperscriptBox["z13", "2"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R12", "2"], " ", 
    SuperscriptBox["R13", "2"]}]], "+", 
  FractionBox[
   RowBox[{"12", " ", "a", " ", "b", " ", "z12", " ", 
    SuperscriptBox["z13", "3"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", "R12", " ", 
    SuperscriptBox["R13", "5"]}]], "+", 
  FractionBox[
   RowBox[{"12", " ", "a", " ", 
    SuperscriptBox["b", "2"], " ", "z12", " ", 
    SuperscriptBox["z13", "3"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", "R12", " ", 
    SuperscriptBox["R13", "4"]}]], "+", 
  FractionBox[
   RowBox[{"4", " ", "a", " ", 
    SuperscriptBox["b", "3"], " ", "z12", " ", 
    SuperscriptBox["z13", "3"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", "R12", " ", 
    SuperscriptBox["R13", "3"]}]], "+", 
  FractionBox[
   RowBox[{"15", " ", "b", " ", 
    SuperscriptBox["z13", "4"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R13", "7"]}]], "+", 
  FractionBox[
   RowBox[{"15", " ", "b", " ", 
    SuperscriptBox["z13", "4"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "7"]}]], "+", 
  FractionBox[
   RowBox[{"15", " ", 
    SuperscriptBox["b", "2"], " ", 
    SuperscriptBox["z13", "4"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R13", "6"]}]], "+", 
  FractionBox[
   RowBox[{"15", " ", 
    SuperscriptBox["b", "2"], " ", 
    SuperscriptBox["z13", "4"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "6"]}]], "+", 
  FractionBox[
   RowBox[{"6", " ", 
    SuperscriptBox["b", "3"], " ", 
    SuperscriptBox["z13", "4"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R13", "5"]}]], "+", 
  FractionBox[
   RowBox[{"6", " ", 
    SuperscriptBox["b", "3"], " ", 
    SuperscriptBox["z13", "4"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "5"]}]], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["b", "4"], " ", 
    SuperscriptBox["z13", "4"]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["R13", "4"]}]], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["b", "4"], " ", 
    SuperscriptBox["z13", "4"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "4"]}]], "+", 
  FractionBox[
   RowBox[{"20", " ", "a", " ", "c", " ", "z12", " ", "z23"}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", "R12", " ", 
    SuperscriptBox["R23", "3"]}]], "+", 
  FractionBox[
   RowBox[{"20", " ", "a", " ", 
    SuperscriptBox["c", "2"], " ", "z12", " ", "z23"}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", "R12", " ", 
    SuperscriptBox["R23", "2"]}]], "+", 
  FractionBox[
   RowBox[{"20", " ", "a", " ", "c", " ", "z12", " ", "z23"}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "3"], " ", "R23"}]], "+", 
  FractionBox[
   RowBox[{"20", " ", 
    SuperscriptBox["a", "2"], " ", "c", " ", "z12", " ", "z23"}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "2"], " ", "R23"}]], "-", 
  FractionBox[
   RowBox[{"12", " ", "a", " ", "c", " ", 
    SuperscriptBox["x12", "2"], " ", "z12", " ", "z23"}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "5"], " ", "R23"}]], "-", 
  FractionBox[
   RowBox[{"12", " ", 
    SuperscriptBox["a", "2"], " ", "c", " ", 
    SuperscriptBox["x12", "2"], " ", "z12", " ", "z23"}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "4"], " ", "R23"}]], "-", 
  FractionBox[
   RowBox[{"4", " ", 
    SuperscriptBox["a", "3"], " ", "c", " ", 
    SuperscriptBox["x12", "2"], " ", "z12", " ", "z23"}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "3"], " ", "R23"}]], "+", 
  FractionBox[
   RowBox[{
   "8", " ", "a", " ", "c", " ", "x12", " ", "x23", " ", "z12", " ", "z23"}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "3"], " ", 
    SuperscriptBox["R23", "3"]}]], "+", 
  FractionBox[
   RowBox[{"8", " ", 
    SuperscriptBox["a", "2"], " ", "c", " ", "x12", " ", "x23", " ", "z12", " ",
     "z23"}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "2"], " ", 
    SuperscriptBox["R23", "3"]}]], "+", 
  FractionBox[
   RowBox[{"8", " ", "a", " ", 
    SuperscriptBox["c", "2"], " ", "x12", " ", "x23", " ", "z12", " ", 
    "z23"}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "3"], " ", 
    SuperscriptBox["R23", "2"]}]], "+", 
  FractionBox[
   RowBox[{"8", " ", 
    SuperscriptBox["a", "2"], " ", 
    SuperscriptBox["c", "2"], " ", "x12", " ", "x23", " ", "z12", " ", 
    "z23"}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "2"], " ", 
    SuperscriptBox["R23", "2"]}]], "-", 
  FractionBox[
   RowBox[{"12", " ", "a", " ", "c", " ", 
    SuperscriptBox["x23", "2"], " ", "z12", " ", "z23"}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", "R12", " ", 
    SuperscriptBox["R23", "5"]}]], "-", 
  FractionBox[
   RowBox[{"12", " ", "a", " ", 
    SuperscriptBox["c", "2"], " ", 
    SuperscriptBox["x23", "2"], " ", "z12", " ", "z23"}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", "R12", " ", 
    SuperscriptBox["R23", "4"]}]], "-", 
  FractionBox[
   RowBox[{"4", " ", "a", " ", 
    SuperscriptBox["c", "3"], " ", 
    SuperscriptBox["x23", "2"], " ", "z12", " ", "z23"}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", "R12", " ", 
    SuperscriptBox["R23", "3"]}]], "-", 
  FractionBox[
   RowBox[{"12", " ", "a", " ", "c", " ", 
    SuperscriptBox["y12", "2"], " ", "z12", " ", "z23"}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "5"], " ", "R23"}]], "-", 
  FractionBox[
   RowBox[{"12", " ", 
    SuperscriptBox["a", "2"], " ", "c", " ", 
    SuperscriptBox["y12", "2"], " ", "z12", " ", "z23"}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "4"], " ", "R23"}]], "-", 
  FractionBox[
   RowBox[{"4", " ", 
    SuperscriptBox["a", "3"], " ", "c", " ", 
    SuperscriptBox["y12", "2"], " ", "z12", " ", "z23"}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "3"], " ", "R23"}]], "+", 
  FractionBox[
   RowBox[{
   "8", " ", "a", " ", "c", " ", "y12", " ", "y23", " ", "z12", " ", "z23"}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "3"], " ", 
    SuperscriptBox["R23", "3"]}]], "+", 
  FractionBox[
   RowBox[{"8", " ", 
    SuperscriptBox["a", "2"], " ", "c", " ", "y12", " ", "y23", " ", "z12", " ",
     "z23"}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "2"], " ", 
    SuperscriptBox["R23", "3"]}]], "+", 
  FractionBox[
   RowBox[{"8", " ", "a", " ", 
    SuperscriptBox["c", "2"], " ", "y12", " ", "y23", " ", "z12", " ", 
    "z23"}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "3"], " ", 
    SuperscriptBox["R23", "2"]}]], "+", 
  FractionBox[
   RowBox[{"8", " ", 
    SuperscriptBox["a", "2"], " ", 
    SuperscriptBox["c", "2"], " ", "y12", " ", "y23", " ", "z12", " ", 
    "z23"}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "2"], " ", 
    SuperscriptBox["R23", "2"]}]], "-", 
  FractionBox[
   RowBox[{"12", " ", "a", " ", "c", " ", 
    SuperscriptBox["y23", "2"], " ", "z12", " ", "z23"}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", "R12", " ", 
    SuperscriptBox["R23", "5"]}]], "-", 
  FractionBox[
   RowBox[{"12", " ", "a", " ", 
    SuperscriptBox["c", "2"], " ", 
    SuperscriptBox["y23", "2"], " ", "z12", " ", "z23"}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", "R12", " ", 
    SuperscriptBox["R23", "4"]}]], "-", 
  FractionBox[
   RowBox[{"4", " ", "a", " ", 
    SuperscriptBox["c", "3"], " ", 
    SuperscriptBox["y23", "2"], " ", "z12", " ", "z23"}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", "R12", " ", 
    SuperscriptBox["R23", "3"]}]], "-", 
  FractionBox[
   RowBox[{"12", " ", "a", " ", "c", " ", 
    SuperscriptBox["z12", "3"], " ", "z23"}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "5"], " ", "R23"}]], "-", 
  FractionBox[
   RowBox[{"12", " ", 
    SuperscriptBox["a", "2"], " ", "c", " ", 
    SuperscriptBox["z12", "3"], " ", "z23"}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "4"], " ", "R23"}]], "-", 
  FractionBox[
   RowBox[{"4", " ", 
    SuperscriptBox["a", "3"], " ", "c", " ", 
    SuperscriptBox["z12", "3"], " ", "z23"}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "3"], " ", "R23"}]], "-", 
  FractionBox[
   RowBox[{"20", " ", "b", " ", "c", " ", "z13", " ", "z23"}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", "R13", " ", 
    SuperscriptBox["R23", "3"]}]], "-", 
  FractionBox[
   RowBox[{"20", " ", "b", " ", 
    SuperscriptBox["c", "2"], " ", "z13", " ", "z23"}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", "R13", " ", 
    SuperscriptBox["R23", "2"]}]], "-", 
  FractionBox[
   RowBox[{"20", " ", "b", " ", "c", " ", "z13", " ", "z23"}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "3"], " ", "R23"}]], "-", 
  FractionBox[
   RowBox[{"20", " ", 
    SuperscriptBox["b", "2"], " ", "c", " ", "z13", " ", "z23"}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "2"], " ", "R23"}]], "+", 
  FractionBox[
   RowBox[{"12", " ", "b", " ", "c", " ", 
    SuperscriptBox["x13", "2"], " ", "z13", " ", "z23"}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "5"], " ", "R23"}]], "+", 
  FractionBox[
   RowBox[{"12", " ", 
    SuperscriptBox["b", "2"], " ", "c", " ", 
    SuperscriptBox["x13", "2"], " ", "z13", " ", "z23"}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "4"], " ", "R23"}]], "+", 
  FractionBox[
   RowBox[{"4", " ", 
    SuperscriptBox["b", "3"], " ", "c", " ", 
    SuperscriptBox["x13", "2"], " ", "z13", " ", "z23"}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "3"], " ", "R23"}]], "+", 
  FractionBox[
   RowBox[{
   "8", " ", "b", " ", "c", " ", "x13", " ", "x23", " ", "z13", " ", "z23"}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "3"], " ", 
    SuperscriptBox["R23", "3"]}]], "+", 
  FractionBox[
   RowBox[{"8", " ", 
    SuperscriptBox["b", "2"], " ", "c", " ", "x13", " ", "x23", " ", "z13", " ",
     "z23"}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "2"], " ", 
    SuperscriptBox["R23", "3"]}]], "+", 
  FractionBox[
   RowBox[{"8", " ", "b", " ", 
    SuperscriptBox["c", "2"], " ", "x13", " ", "x23", " ", "z13", " ", 
    "z23"}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "3"], " ", 
    SuperscriptBox["R23", "2"]}]], "+", 
  FractionBox[
   RowBox[{"8", " ", 
    SuperscriptBox["b", "2"], " ", 
    SuperscriptBox["c", "2"], " ", "x13", " ", "x23", " ", "z13", " ", 
    "z23"}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "2"], " ", 
    SuperscriptBox["R23", "2"]}]], "+", 
  FractionBox[
   RowBox[{"12", " ", "b", " ", "c", " ", 
    SuperscriptBox["x23", "2"], " ", "z13", " ", "z23"}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", "R13", " ", 
    SuperscriptBox["R23", "5"]}]], "+", 
  FractionBox[
   RowBox[{"12", " ", "b", " ", 
    SuperscriptBox["c", "2"], " ", 
    SuperscriptBox["x23", "2"], " ", "z13", " ", "z23"}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", "R13", " ", 
    SuperscriptBox["R23", "4"]}]], "+", 
  FractionBox[
   RowBox[{"4", " ", "b", " ", 
    SuperscriptBox["c", "3"], " ", 
    SuperscriptBox["x23", "2"], " ", "z13", " ", "z23"}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", "R13", " ", 
    SuperscriptBox["R23", "3"]}]], "+", 
  FractionBox[
   RowBox[{"12", " ", "b", " ", "c", " ", 
    SuperscriptBox["y13", "2"], " ", "z13", " ", "z23"}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "5"], " ", "R23"}]], "+", 
  FractionBox[
   RowBox[{"12", " ", 
    SuperscriptBox["b", "2"], " ", "c", " ", 
    SuperscriptBox["y13", "2"], " ", "z13", " ", "z23"}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "4"], " ", "R23"}]], "+", 
  FractionBox[
   RowBox[{"4", " ", 
    SuperscriptBox["b", "3"], " ", "c", " ", 
    SuperscriptBox["y13", "2"], " ", "z13", " ", "z23"}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "3"], " ", "R23"}]], "+", 
  FractionBox[
   RowBox[{
   "8", " ", "b", " ", "c", " ", "y13", " ", "y23", " ", "z13", " ", "z23"}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "3"], " ", 
    SuperscriptBox["R23", "3"]}]], "+", 
  FractionBox[
   RowBox[{"8", " ", 
    SuperscriptBox["b", "2"], " ", "c", " ", "y13", " ", "y23", " ", "z13", " ",
     "z23"}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "2"], " ", 
    SuperscriptBox["R23", "3"]}]], "+", 
  FractionBox[
   RowBox[{"8", " ", "b", " ", 
    SuperscriptBox["c", "2"], " ", "y13", " ", "y23", " ", "z13", " ", 
    "z23"}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "3"], " ", 
    SuperscriptBox["R23", "2"]}]], "+", 
  FractionBox[
   RowBox[{"8", " ", 
    SuperscriptBox["b", "2"], " ", 
    SuperscriptBox["c", "2"], " ", "y13", " ", "y23", " ", "z13", " ", 
    "z23"}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "2"], " ", 
    SuperscriptBox["R23", "2"]}]], "+", 
  FractionBox[
   RowBox[{"12", " ", "b", " ", "c", " ", 
    SuperscriptBox["y23", "2"], " ", "z13", " ", "z23"}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", "R13", " ", 
    SuperscriptBox["R23", "5"]}]], "+", 
  FractionBox[
   RowBox[{"12", " ", "b", " ", 
    SuperscriptBox["c", "2"], " ", 
    SuperscriptBox["y23", "2"], " ", "z13", " ", "z23"}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", "R13", " ", 
    SuperscriptBox["R23", "4"]}]], "+", 
  FractionBox[
   RowBox[{"4", " ", "b", " ", 
    SuperscriptBox["c", "3"], " ", 
    SuperscriptBox["y23", "2"], " ", "z13", " ", "z23"}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", "R13", " ", 
    SuperscriptBox["R23", "3"]}]], "+", 
  FractionBox[
   RowBox[{"12", " ", "b", " ", "c", " ", 
    SuperscriptBox["z13", "3"], " ", "z23"}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "5"], " ", "R23"}]], "+", 
  FractionBox[
   RowBox[{"12", " ", 
    SuperscriptBox["b", "2"], " ", "c", " ", 
    SuperscriptBox["z13", "3"], " ", "z23"}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "4"], " ", "R23"}]], "+", 
  FractionBox[
   RowBox[{"4", " ", 
    SuperscriptBox["b", "3"], " ", "c", " ", 
    SuperscriptBox["z13", "3"], " ", "z23"}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "3"], " ", "R23"}]], "-", 
  FractionBox[
   RowBox[{"30", " ", "c", " ", 
    SuperscriptBox["z23", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R23", "5"]}]], "-", 
  FractionBox[
   RowBox[{"30", " ", "c", " ", 
    SuperscriptBox["z23", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R23", "5"]}]], "-", 
  FractionBox[
   RowBox[{"30", " ", 
    SuperscriptBox["c", "2"], " ", 
    SuperscriptBox["z23", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R23", "4"]}]], "-", 
  FractionBox[
   RowBox[{"30", " ", 
    SuperscriptBox["c", "2"], " ", 
    SuperscriptBox["z23", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R23", "4"]}]], "-", 
  FractionBox[
   RowBox[{"10", " ", 
    SuperscriptBox["c", "3"], " ", 
    SuperscriptBox["z23", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R23", "3"]}]], "-", 
  FractionBox[
   RowBox[{"10", " ", 
    SuperscriptBox["c", "3"], " ", 
    SuperscriptBox["z23", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R23", "3"]}]], "-", 
  FractionBox[
   RowBox[{"10", " ", "a", " ", "c", " ", 
    SuperscriptBox["z23", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", "R12", " ", 
    SuperscriptBox["R23", "3"]}]], "-", 
  FractionBox[
   RowBox[{"10", " ", "b", " ", "c", " ", 
    SuperscriptBox["z23", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", "R13", " ", 
    SuperscriptBox["R23", "3"]}]], "-", 
  FractionBox[
   RowBox[{"10", " ", "a", " ", 
    SuperscriptBox["c", "2"], " ", 
    SuperscriptBox["z23", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", "R12", " ", 
    SuperscriptBox["R23", "2"]}]], "-", 
  FractionBox[
   RowBox[{"10", " ", "b", " ", 
    SuperscriptBox["c", "2"], " ", 
    SuperscriptBox["z23", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", "R13", " ", 
    SuperscriptBox["R23", "2"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", "a", " ", "c", " ", 
    SuperscriptBox["x12", "2"], " ", 
    SuperscriptBox["z23", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "3"], " ", 
    SuperscriptBox["R23", "3"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", 
    SuperscriptBox["a", "2"], " ", "c", " ", 
    SuperscriptBox["x12", "2"], " ", 
    SuperscriptBox["z23", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "2"], " ", 
    SuperscriptBox["R23", "3"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", "a", " ", 
    SuperscriptBox["c", "2"], " ", 
    SuperscriptBox["x12", "2"], " ", 
    SuperscriptBox["z23", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "3"], " ", 
    SuperscriptBox["R23", "2"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", 
    SuperscriptBox["a", "2"], " ", 
    SuperscriptBox["c", "2"], " ", 
    SuperscriptBox["x12", "2"], " ", 
    SuperscriptBox["z23", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "2"], " ", 
    SuperscriptBox["R23", "2"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", "b", " ", "c", " ", 
    SuperscriptBox["x13", "2"], " ", 
    SuperscriptBox["z23", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "3"], " ", 
    SuperscriptBox["R23", "3"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", 
    SuperscriptBox["b", "2"], " ", "c", " ", 
    SuperscriptBox["x13", "2"], " ", 
    SuperscriptBox["z23", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "2"], " ", 
    SuperscriptBox["R23", "3"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", "b", " ", 
    SuperscriptBox["c", "2"], " ", 
    SuperscriptBox["x13", "2"], " ", 
    SuperscriptBox["z23", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "3"], " ", 
    SuperscriptBox["R23", "2"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", 
    SuperscriptBox["b", "2"], " ", 
    SuperscriptBox["c", "2"], " ", 
    SuperscriptBox["x13", "2"], " ", 
    SuperscriptBox["z23", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "2"], " ", 
    SuperscriptBox["R23", "2"]}]], "-", 
  FractionBox[
   RowBox[{"12", " ", "a", " ", "c", " ", "x12", " ", "x23", " ", 
    SuperscriptBox["z23", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", "R12", " ", 
    SuperscriptBox["R23", "5"]}]], "-", 
  FractionBox[
   RowBox[{"12", " ", "a", " ", 
    SuperscriptBox["c", "2"], " ", "x12", " ", "x23", " ", 
    SuperscriptBox["z23", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", "R12", " ", 
    SuperscriptBox["R23", "4"]}]], "-", 
  FractionBox[
   RowBox[{"4", " ", "a", " ", 
    SuperscriptBox["c", "3"], " ", "x12", " ", "x23", " ", 
    SuperscriptBox["z23", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", "R12", " ", 
    SuperscriptBox["R23", "3"]}]], "+", 
  FractionBox[
   RowBox[{"12", " ", "b", " ", "c", " ", "x13", " ", "x23", " ", 
    SuperscriptBox["z23", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", "R13", " ", 
    SuperscriptBox["R23", "5"]}]], "+", 
  FractionBox[
   RowBox[{"12", " ", "b", " ", 
    SuperscriptBox["c", "2"], " ", "x13", " ", "x23", " ", 
    SuperscriptBox["z23", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", "R13", " ", 
    SuperscriptBox["R23", "4"]}]], "+", 
  FractionBox[
   RowBox[{"4", " ", "b", " ", 
    SuperscriptBox["c", "3"], " ", "x13", " ", "x23", " ", 
    SuperscriptBox["z23", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", "R13", " ", 
    SuperscriptBox["R23", "3"]}]], "+", 
  FractionBox[
   RowBox[{"30", " ", "c", " ", 
    SuperscriptBox["x23", "2"], " ", 
    SuperscriptBox["z23", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R23", "7"]}]], "+", 
  FractionBox[
   RowBox[{"30", " ", "c", " ", 
    SuperscriptBox["x23", "2"], " ", 
    SuperscriptBox["z23", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R23", "7"]}]], "+", 
  FractionBox[
   RowBox[{"30", " ", 
    SuperscriptBox["c", "2"], " ", 
    SuperscriptBox["x23", "2"], " ", 
    SuperscriptBox["z23", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R23", "6"]}]], "+", 
  FractionBox[
   RowBox[{"30", " ", 
    SuperscriptBox["c", "2"], " ", 
    SuperscriptBox["x23", "2"], " ", 
    SuperscriptBox["z23", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R23", "6"]}]], "+", 
  FractionBox[
   RowBox[{"12", " ", 
    SuperscriptBox["c", "3"], " ", 
    SuperscriptBox["x23", "2"], " ", 
    SuperscriptBox["z23", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R23", "5"]}]], "+", 
  FractionBox[
   RowBox[{"12", " ", 
    SuperscriptBox["c", "3"], " ", 
    SuperscriptBox["x23", "2"], " ", 
    SuperscriptBox["z23", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R23", "5"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", 
    SuperscriptBox["c", "4"], " ", 
    SuperscriptBox["x23", "2"], " ", 
    SuperscriptBox["z23", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R23", "4"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", 
    SuperscriptBox["c", "4"], " ", 
    SuperscriptBox["x23", "2"], " ", 
    SuperscriptBox["z23", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R23", "4"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", "a", " ", "c", " ", 
    SuperscriptBox["y12", "2"], " ", 
    SuperscriptBox["z23", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "3"], " ", 
    SuperscriptBox["R23", "3"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", 
    SuperscriptBox["a", "2"], " ", "c", " ", 
    SuperscriptBox["y12", "2"], " ", 
    SuperscriptBox["z23", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "2"], " ", 
    SuperscriptBox["R23", "3"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", "a", " ", 
    SuperscriptBox["c", "2"], " ", 
    SuperscriptBox["y12", "2"], " ", 
    SuperscriptBox["z23", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "3"], " ", 
    SuperscriptBox["R23", "2"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", 
    SuperscriptBox["a", "2"], " ", 
    SuperscriptBox["c", "2"], " ", 
    SuperscriptBox["y12", "2"], " ", 
    SuperscriptBox["z23", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "2"], " ", 
    SuperscriptBox["R23", "2"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", "b", " ", "c", " ", 
    SuperscriptBox["y13", "2"], " ", 
    SuperscriptBox["z23", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "3"], " ", 
    SuperscriptBox["R23", "3"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", 
    SuperscriptBox["b", "2"], " ", "c", " ", 
    SuperscriptBox["y13", "2"], " ", 
    SuperscriptBox["z23", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "2"], " ", 
    SuperscriptBox["R23", "3"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", "b", " ", 
    SuperscriptBox["c", "2"], " ", 
    SuperscriptBox["y13", "2"], " ", 
    SuperscriptBox["z23", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "3"], " ", 
    SuperscriptBox["R23", "2"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", 
    SuperscriptBox["b", "2"], " ", 
    SuperscriptBox["c", "2"], " ", 
    SuperscriptBox["y13", "2"], " ", 
    SuperscriptBox["z23", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "2"], " ", 
    SuperscriptBox["R23", "2"]}]], "-", 
  FractionBox[
   RowBox[{"12", " ", "a", " ", "c", " ", "y12", " ", "y23", " ", 
    SuperscriptBox["z23", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", "R12", " ", 
    SuperscriptBox["R23", "5"]}]], "-", 
  FractionBox[
   RowBox[{"12", " ", "a", " ", 
    SuperscriptBox["c", "2"], " ", "y12", " ", "y23", " ", 
    SuperscriptBox["z23", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", "R12", " ", 
    SuperscriptBox["R23", "4"]}]], "-", 
  FractionBox[
   RowBox[{"4", " ", "a", " ", 
    SuperscriptBox["c", "3"], " ", "y12", " ", "y23", " ", 
    SuperscriptBox["z23", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", "R12", " ", 
    SuperscriptBox["R23", "3"]}]], "+", 
  FractionBox[
   RowBox[{"12", " ", "b", " ", "c", " ", "y13", " ", "y23", " ", 
    SuperscriptBox["z23", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", "R13", " ", 
    SuperscriptBox["R23", "5"]}]], "+", 
  FractionBox[
   RowBox[{"12", " ", "b", " ", 
    SuperscriptBox["c", "2"], " ", "y13", " ", "y23", " ", 
    SuperscriptBox["z23", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", "R13", " ", 
    SuperscriptBox["R23", "4"]}]], "+", 
  FractionBox[
   RowBox[{"4", " ", "b", " ", 
    SuperscriptBox["c", "3"], " ", "y13", " ", "y23", " ", 
    SuperscriptBox["z23", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", "R13", " ", 
    SuperscriptBox["R23", "3"]}]], "+", 
  FractionBox[
   RowBox[{"30", " ", "c", " ", 
    SuperscriptBox["y23", "2"], " ", 
    SuperscriptBox["z23", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R23", "7"]}]], "+", 
  FractionBox[
   RowBox[{"30", " ", "c", " ", 
    SuperscriptBox["y23", "2"], " ", 
    SuperscriptBox["z23", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R23", "7"]}]], "+", 
  FractionBox[
   RowBox[{"30", " ", 
    SuperscriptBox["c", "2"], " ", 
    SuperscriptBox["y23", "2"], " ", 
    SuperscriptBox["z23", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R23", "6"]}]], "+", 
  FractionBox[
   RowBox[{"30", " ", 
    SuperscriptBox["c", "2"], " ", 
    SuperscriptBox["y23", "2"], " ", 
    SuperscriptBox["z23", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R23", "6"]}]], "+", 
  FractionBox[
   RowBox[{"12", " ", 
    SuperscriptBox["c", "3"], " ", 
    SuperscriptBox["y23", "2"], " ", 
    SuperscriptBox["z23", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R23", "5"]}]], "+", 
  FractionBox[
   RowBox[{"12", " ", 
    SuperscriptBox["c", "3"], " ", 
    SuperscriptBox["y23", "2"], " ", 
    SuperscriptBox["z23", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R23", "5"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", 
    SuperscriptBox["c", "4"], " ", 
    SuperscriptBox["y23", "2"], " ", 
    SuperscriptBox["z23", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R23", "4"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", 
    SuperscriptBox["c", "4"], " ", 
    SuperscriptBox["y23", "2"], " ", 
    SuperscriptBox["z23", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R23", "4"]}]], "+", 
  FractionBox[
   RowBox[{"6", " ", "a", " ", "c", " ", 
    SuperscriptBox["z12", "2"], " ", 
    SuperscriptBox["z23", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "3"], " ", 
    SuperscriptBox["R23", "3"]}]], "+", 
  FractionBox[
   RowBox[{"6", " ", 
    SuperscriptBox["a", "2"], " ", "c", " ", 
    SuperscriptBox["z12", "2"], " ", 
    SuperscriptBox["z23", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "2"], " ", 
    SuperscriptBox["R23", "3"]}]], "+", 
  FractionBox[
   RowBox[{"6", " ", "a", " ", 
    SuperscriptBox["c", "2"], " ", 
    SuperscriptBox["z12", "2"], " ", 
    SuperscriptBox["z23", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "3"], " ", 
    SuperscriptBox["R23", "2"]}]], "+", 
  FractionBox[
   RowBox[{"6", " ", 
    SuperscriptBox["a", "2"], " ", 
    SuperscriptBox["c", "2"], " ", 
    SuperscriptBox["z12", "2"], " ", 
    SuperscriptBox["z23", "2"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R12", "2"], " ", 
    SuperscriptBox["R23", "2"]}]], "+", 
  FractionBox[
   RowBox[{"6", " ", "b", " ", "c", " ", 
    SuperscriptBox["z13", "2"], " ", 
    SuperscriptBox["z23", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "3"], " ", 
    SuperscriptBox["R23", "3"]}]], "+", 
  FractionBox[
   RowBox[{"6", " ", 
    SuperscriptBox["b", "2"], " ", "c", " ", 
    SuperscriptBox["z13", "2"], " ", 
    SuperscriptBox["z23", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "2"], " ", 
    SuperscriptBox["R23", "3"]}]], "+", 
  FractionBox[
   RowBox[{"6", " ", "b", " ", 
    SuperscriptBox["c", "2"], " ", 
    SuperscriptBox["z13", "2"], " ", 
    SuperscriptBox["z23", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "3"], " ", 
    SuperscriptBox["R23", "2"]}]], "+", 
  FractionBox[
   RowBox[{"6", " ", 
    SuperscriptBox["b", "2"], " ", 
    SuperscriptBox["c", "2"], " ", 
    SuperscriptBox["z13", "2"], " ", 
    SuperscriptBox["z23", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R13", "2"], " ", 
    SuperscriptBox["R23", "2"]}]], "-", 
  FractionBox[
   RowBox[{"12", " ", "a", " ", "c", " ", "z12", " ", 
    SuperscriptBox["z23", "3"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", "R12", " ", 
    SuperscriptBox["R23", "5"]}]], "-", 
  FractionBox[
   RowBox[{"12", " ", "a", " ", 
    SuperscriptBox["c", "2"], " ", "z12", " ", 
    SuperscriptBox["z23", "3"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", "R12", " ", 
    SuperscriptBox["R23", "4"]}]], "-", 
  FractionBox[
   RowBox[{"4", " ", "a", " ", 
    SuperscriptBox["c", "3"], " ", "z12", " ", 
    SuperscriptBox["z23", "3"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", "R12", " ", 
    SuperscriptBox["R23", "3"]}]], "+", 
  FractionBox[
   RowBox[{"12", " ", "b", " ", "c", " ", "z13", " ", 
    SuperscriptBox["z23", "3"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", "R13", " ", 
    SuperscriptBox["R23", "5"]}]], "+", 
  FractionBox[
   RowBox[{"12", " ", "b", " ", 
    SuperscriptBox["c", "2"], " ", "z13", " ", 
    SuperscriptBox["z23", "3"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", "R13", " ", 
    SuperscriptBox["R23", "4"]}]], "+", 
  FractionBox[
   RowBox[{"4", " ", "b", " ", 
    SuperscriptBox["c", "3"], " ", "z13", " ", 
    SuperscriptBox["z23", "3"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", "R13", " ", 
    SuperscriptBox["R23", "3"]}]], "+", 
  FractionBox[
   RowBox[{"15", " ", "c", " ", 
    SuperscriptBox["z23", "4"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R23", "7"]}]], "+", 
  FractionBox[
   RowBox[{"15", " ", "c", " ", 
    SuperscriptBox["z23", "4"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R23", "7"]}]], "+", 
  FractionBox[
   RowBox[{"15", " ", 
    SuperscriptBox["c", "2"], " ", 
    SuperscriptBox["z23", "4"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R23", "6"]}]], "+", 
  FractionBox[
   RowBox[{"15", " ", 
    SuperscriptBox["c", "2"], " ", 
    SuperscriptBox["z23", "4"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R23", "6"]}]], "+", 
  FractionBox[
   RowBox[{"6", " ", 
    SuperscriptBox["c", "3"], " ", 
    SuperscriptBox["z23", "4"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R23", "5"]}]], "+", 
  FractionBox[
   RowBox[{"6", " ", 
    SuperscriptBox["c", "3"], " ", 
    SuperscriptBox["z23", "4"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R23", "5"]}]], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["c", "4"], " ", 
    SuperscriptBox["z23", "4"]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["R23", "4"]}]], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["c", "4"], " ", 
    SuperscriptBox["z23", "4"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", 
    SuperscriptBox["R23", "4"]}]]}]], "Output",
 CellChangeTimes->{
  3.94896905274839*^9, 3.948969171225687*^9, {3.948969205533455*^9, 
   3.948969228418518*^9}, 3.949038455218996*^9, 3.9507827947922745`*^9, 
   3.9507828409528427`*^9, {3.9507828869192657`*^9, 3.950782906171875*^9}, 
   3.950783307230236*^9, {3.9508484004618454`*^9, 3.9508484093062153`*^9}, 
   3.9508547602320385`*^9, {3.9508774410451794`*^9, 3.950877459745472*^9}, 
   3.950938287535921*^9, 3.9509529330412197`*^9, 3.9509530210034256`*^9, 
   3.9509539425747604`*^9, 3.95095414981822*^9, 3.950954441746952*^9, 
   3.9509545182802544`*^9, 3.9509546866146545`*^9, 3.9509547536184406`*^9, 
   3.950960010662262*^9, 3.9509609515977955`*^9, 3.9509609893912296`*^9, 
   3.9509613086812153`*^9, 3.9509613853240776`*^9, 3.950963108405241*^9, 
   3.951043589536148*^9, 3.9510487002375584`*^9, 3.9510487653007736`*^9, 
   3.9510500765680885`*^9},
 CellLabel->
  "Out[605]=",ExpressionUUID->"b557c72c-7f9f-ad48-88d8-b209be676f8f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"lap6", "=", 
  RowBox[{"ReplaceAll", "[", 
   RowBox[{
    RowBox[{"Collect", "[", 
     RowBox[{"lap5", ",", 
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", 
        TemplateBox[{
          RowBox[{"1", ",", "n"}]},
         "KroneckerDeltaSeq"], ",", 
        TemplateBox[{
          RowBox[{"2", ",", "n"}]},
         "KroneckerDeltaSeq"], ",", 
        TemplateBox[{
          RowBox[{"3", ",", "n"}]},
         "KroneckerDeltaSeq"], ",", 
        TemplateBox[{
          RowBox[{"1", ",", "m"}]},
         "KroneckerDeltaSeq"], ",", 
        TemplateBox[{
          RowBox[{"2", ",", "m"}]},
         "KroneckerDeltaSeq"], ",", 
        TemplateBox[{
          RowBox[{"3", ",", "m"}]},
         "KroneckerDeltaSeq"], ",", "R12", ",", " ", "R13", ",", " ", "R23"}],
        "}"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{
        SuperscriptBox["x12", "2"], "+", 
        SuperscriptBox["y12", "2"], "+", 
        SuperscriptBox["z12", "2"]}], "->", 
       SuperscriptBox["R12", "2"]}], ",", 
      RowBox[{
       RowBox[{
        SuperscriptBox["x13", "2"], "+", 
        SuperscriptBox["y13", "2"], "+", 
        SuperscriptBox["z13", "2"]}], "->", 
       SuperscriptBox["R13", "2"]}], ",", 
      RowBox[{
       RowBox[{
        SuperscriptBox["x23", "2"], "+", 
        SuperscriptBox["y23", "2"], "+", 
        SuperscriptBox["z23", "2"]}], "->", 
       SuperscriptBox["R23", "2"]}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"x12", " ", "x13"}], "+", 
        RowBox[{"y12", " ", "y13"}], "+", 
        RowBox[{"z12", " ", "z13"}]}], "->", "dot1213"}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"x12", " ", "x23"}], "+", 
        RowBox[{"y12", " ", "y23"}], "+", 
        RowBox[{"z12", " ", "z23"}]}], "->", "dot1223"}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"x13", " ", "x23"}], "+", 
        RowBox[{"y13", " ", "y23"}], "+", 
        RowBox[{"z13", " ", "z23"}]}], "->", "dot1323"}]}], "}"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.9509600125070457`*^9, 3.950960078841242*^9}, {
  3.9509601904272766`*^9, 3.9509602610109615`*^9}, {3.950960293664522*^9, 
  3.950960320105444*^9}, {3.9509631156718388`*^9, 3.9509631181671505`*^9}},
 CellLabel->
  "In[606]:=",ExpressionUUID->"da8392f2-ddbf-6a4a-8cac-00cc77474c32"],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{
    SuperscriptBox["a", "4"], " ", 
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       SuperscriptBox["x12", "4"], 
       SuperscriptBox["m1", "3"]], "+", 
      FractionBox[
       SuperscriptBox["x12", "4"], 
       SuperscriptBox["m2", "3"]], "+", 
      FractionBox[
       RowBox[{"2", " ", 
        SuperscriptBox["x12", "2"], " ", 
        SuperscriptBox["y12", "2"]}], 
       SuperscriptBox["m1", "3"]], "+", 
      FractionBox[
       RowBox[{"2", " ", 
        SuperscriptBox["x12", "2"], " ", 
        SuperscriptBox["y12", "2"]}], 
       SuperscriptBox["m2", "3"]], "+", 
      FractionBox[
       SuperscriptBox["y12", "4"], 
       SuperscriptBox["m1", "3"]], "+", 
      FractionBox[
       SuperscriptBox["y12", "4"], 
       SuperscriptBox["m2", "3"]], "+", 
      FractionBox[
       RowBox[{"2", " ", 
        SuperscriptBox["x12", "2"], " ", 
        SuperscriptBox["z12", "2"]}], 
       SuperscriptBox["m1", "3"]], "+", 
      FractionBox[
       RowBox[{"2", " ", 
        SuperscriptBox["x12", "2"], " ", 
        SuperscriptBox["z12", "2"]}], 
       SuperscriptBox["m2", "3"]], "+", 
      FractionBox[
       RowBox[{"2", " ", 
        SuperscriptBox["y12", "2"], " ", 
        SuperscriptBox["z12", "2"]}], 
       SuperscriptBox["m1", "3"]], "+", 
      FractionBox[
       RowBox[{"2", " ", 
        SuperscriptBox["y12", "2"], " ", 
        SuperscriptBox["z12", "2"]}], 
       SuperscriptBox["m2", "3"]], "+", 
      FractionBox[
       SuperscriptBox["z12", "4"], 
       SuperscriptBox["m1", "3"]], "+", 
      FractionBox[
       SuperscriptBox["z12", "4"], 
       SuperscriptBox["m2", "3"]]}], ")"}]}], 
   SuperscriptBox["R12", "4"]], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["b", "4"], " ", 
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       SuperscriptBox["x13", "4"], 
       SuperscriptBox["m1", "3"]], "+", 
      FractionBox[
       SuperscriptBox["x13", "4"], 
       SuperscriptBox["m3", "3"]], "+", 
      FractionBox[
       RowBox[{"2", " ", 
        SuperscriptBox["x13", "2"], " ", 
        SuperscriptBox["y13", "2"]}], 
       SuperscriptBox["m1", "3"]], "+", 
      FractionBox[
       RowBox[{"2", " ", 
        SuperscriptBox["x13", "2"], " ", 
        SuperscriptBox["y13", "2"]}], 
       SuperscriptBox["m3", "3"]], "+", 
      FractionBox[
       SuperscriptBox["y13", "4"], 
       SuperscriptBox["m1", "3"]], "+", 
      FractionBox[
       SuperscriptBox["y13", "4"], 
       SuperscriptBox["m3", "3"]], "+", 
      FractionBox[
       RowBox[{"2", " ", 
        SuperscriptBox["x13", "2"], " ", 
        SuperscriptBox["z13", "2"]}], 
       SuperscriptBox["m1", "3"]], "+", 
      FractionBox[
       RowBox[{"2", " ", 
        SuperscriptBox["x13", "2"], " ", 
        SuperscriptBox["z13", "2"]}], 
       SuperscriptBox["m3", "3"]], "+", 
      FractionBox[
       RowBox[{"2", " ", 
        SuperscriptBox["y13", "2"], " ", 
        SuperscriptBox["z13", "2"]}], 
       SuperscriptBox["m1", "3"]], "+", 
      FractionBox[
       RowBox[{"2", " ", 
        SuperscriptBox["y13", "2"], " ", 
        SuperscriptBox["z13", "2"]}], 
       SuperscriptBox["m3", "3"]], "+", 
      FractionBox[
       SuperscriptBox["z13", "4"], 
       SuperscriptBox["m1", "3"]], "+", 
      FractionBox[
       SuperscriptBox["z13", "4"], 
       SuperscriptBox["m3", "3"]]}], ")"}]}], 
   SuperscriptBox["R13", "4"]], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["c", "4"], " ", 
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       SuperscriptBox["x23", "4"], 
       SuperscriptBox["m2", "3"]], "+", 
      FractionBox[
       SuperscriptBox["x23", "4"], 
       SuperscriptBox["m3", "3"]], "+", 
      FractionBox[
       RowBox[{"2", " ", 
        SuperscriptBox["x23", "2"], " ", 
        SuperscriptBox["y23", "2"]}], 
       SuperscriptBox["m2", "3"]], "+", 
      FractionBox[
       RowBox[{"2", " ", 
        SuperscriptBox["x23", "2"], " ", 
        SuperscriptBox["y23", "2"]}], 
       SuperscriptBox["m3", "3"]], "+", 
      FractionBox[
       SuperscriptBox["y23", "4"], 
       SuperscriptBox["m2", "3"]], "+", 
      FractionBox[
       SuperscriptBox["y23", "4"], 
       SuperscriptBox["m3", "3"]], "+", 
      FractionBox[
       RowBox[{"2", " ", 
        SuperscriptBox["x23", "2"], " ", 
        SuperscriptBox["z23", "2"]}], 
       SuperscriptBox["m2", "3"]], "+", 
      FractionBox[
       RowBox[{"2", " ", 
        SuperscriptBox["x23", "2"], " ", 
        SuperscriptBox["z23", "2"]}], 
       SuperscriptBox["m3", "3"]], "+", 
      FractionBox[
       RowBox[{"2", " ", 
        SuperscriptBox["y23", "2"], " ", 
        SuperscriptBox["z23", "2"]}], 
       SuperscriptBox["m2", "3"]], "+", 
      FractionBox[
       RowBox[{"2", " ", 
        SuperscriptBox["y23", "2"], " ", 
        SuperscriptBox["z23", "2"]}], 
       SuperscriptBox["m3", "3"]], "+", 
      FractionBox[
       SuperscriptBox["z23", "4"], 
       SuperscriptBox["m2", "3"]], "+", 
      FractionBox[
       SuperscriptBox["z23", "4"], 
       SuperscriptBox["m3", "3"]]}], ")"}]}], 
   SuperscriptBox["R23", "4"]], "+", 
  RowBox[{
   SuperscriptBox["a", "3"], " ", 
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         RowBox[{"10", " ", 
          SuperscriptBox["x12", "2"]}], 
         SuperscriptBox["m1", "3"]]}], "-", 
       FractionBox[
        RowBox[{"10", " ", 
         SuperscriptBox["x12", "2"]}], 
        SuperscriptBox["m2", "3"]], "-", 
       FractionBox[
        RowBox[{"10", " ", 
         SuperscriptBox["y12", "2"]}], 
        SuperscriptBox["m1", "3"]], "-", 
       FractionBox[
        RowBox[{"10", " ", 
         SuperscriptBox["y12", "2"]}], 
        SuperscriptBox["m2", "3"]], "-", 
       FractionBox[
        RowBox[{"10", " ", 
         SuperscriptBox["z12", "2"]}], 
        SuperscriptBox["m1", "3"]], "-", 
       FractionBox[
        RowBox[{"10", " ", 
         SuperscriptBox["z12", "2"]}], 
        SuperscriptBox["m2", "3"]]}], 
      SuperscriptBox["R12", "3"]], "+", 
     FractionBox[
      RowBox[{
       FractionBox[
        RowBox[{"6", " ", 
         SuperscriptBox["x12", "4"]}], 
        SuperscriptBox["m1", "3"]], "+", 
       FractionBox[
        RowBox[{"6", " ", 
         SuperscriptBox["x12", "4"]}], 
        SuperscriptBox["m2", "3"]], "+", 
       FractionBox[
        RowBox[{"12", " ", 
         SuperscriptBox["x12", "2"], " ", 
         SuperscriptBox["y12", "2"]}], 
        SuperscriptBox["m1", "3"]], "+", 
       FractionBox[
        RowBox[{"12", " ", 
         SuperscriptBox["x12", "2"], " ", 
         SuperscriptBox["y12", "2"]}], 
        SuperscriptBox["m2", "3"]], "+", 
       FractionBox[
        RowBox[{"6", " ", 
         SuperscriptBox["y12", "4"]}], 
        SuperscriptBox["m1", "3"]], "+", 
       FractionBox[
        RowBox[{"6", " ", 
         SuperscriptBox["y12", "4"]}], 
        SuperscriptBox["m2", "3"]], "+", 
       FractionBox[
        RowBox[{"12", " ", 
         SuperscriptBox["x12", "2"], " ", 
         SuperscriptBox["z12", "2"]}], 
        SuperscriptBox["m1", "3"]], "+", 
       FractionBox[
        RowBox[{"12", " ", 
         SuperscriptBox["x12", "2"], " ", 
         SuperscriptBox["z12", "2"]}], 
        SuperscriptBox["m2", "3"]], "+", 
       FractionBox[
        RowBox[{"12", " ", 
         SuperscriptBox["y12", "2"], " ", 
         SuperscriptBox["z12", "2"]}], 
        SuperscriptBox["m1", "3"]], "+", 
       FractionBox[
        RowBox[{"12", " ", 
         SuperscriptBox["y12", "2"], " ", 
         SuperscriptBox["z12", "2"]}], 
        SuperscriptBox["m2", "3"]], "+", 
       FractionBox[
        RowBox[{"6", " ", 
         SuperscriptBox["z12", "4"]}], 
        SuperscriptBox["m1", "3"]], "+", 
       FractionBox[
        RowBox[{"6", " ", 
         SuperscriptBox["z12", "4"]}], 
        SuperscriptBox["m2", "3"]]}], 
      SuperscriptBox["R12", "5"]], "+", 
     FractionBox[
      RowBox[{"b", " ", 
       RowBox[{"(", 
        RowBox[{
         FractionBox[
          RowBox[{"4", " ", 
           SuperscriptBox["x12", "3"], " ", "x13"}], 
          SuperscriptBox["m1", "3"]], "+", 
         FractionBox[
          RowBox[{"4", " ", "x12", " ", "x13", " ", 
           SuperscriptBox["y12", "2"]}], 
          SuperscriptBox["m1", "3"]], "+", 
         FractionBox[
          RowBox[{"4", " ", 
           SuperscriptBox["x12", "2"], " ", "y12", " ", "y13"}], 
          SuperscriptBox["m1", "3"]], "+", 
         FractionBox[
          RowBox[{"4", " ", 
           SuperscriptBox["y12", "3"], " ", "y13"}], 
          SuperscriptBox["m1", "3"]], "+", 
         FractionBox[
          RowBox[{"4", " ", "x12", " ", "x13", " ", 
           SuperscriptBox["z12", "2"]}], 
          SuperscriptBox["m1", "3"]], "+", 
         FractionBox[
          RowBox[{"4", " ", "y12", " ", "y13", " ", 
           SuperscriptBox["z12", "2"]}], 
          SuperscriptBox["m1", "3"]], "+", 
         FractionBox[
          RowBox[{"4", " ", 
           SuperscriptBox["x12", "2"], " ", "z12", " ", "z13"}], 
          SuperscriptBox["m1", "3"]], "+", 
         FractionBox[
          RowBox[{"4", " ", 
           SuperscriptBox["y12", "2"], " ", "z12", " ", "z13"}], 
          SuperscriptBox["m1", "3"]], "+", 
         FractionBox[
          RowBox[{"4", " ", 
           SuperscriptBox["z12", "3"], " ", "z13"}], 
          SuperscriptBox["m1", "3"]]}], ")"}]}], 
      RowBox[{
       SuperscriptBox["R12", "3"], " ", "R13"}]], "+", 
     FractionBox[
      RowBox[{"c", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", 
          FractionBox[
           RowBox[{"4", " ", 
            SuperscriptBox["x12", "3"], " ", "x23"}], 
           SuperscriptBox["m2", "3"]]}], "-", 
         FractionBox[
          RowBox[{"4", " ", "x12", " ", "x23", " ", 
           SuperscriptBox["y12", "2"]}], 
          SuperscriptBox["m2", "3"]], "-", 
         FractionBox[
          RowBox[{"4", " ", 
           SuperscriptBox["x12", "2"], " ", "y12", " ", "y23"}], 
          SuperscriptBox["m2", "3"]], "-", 
         FractionBox[
          RowBox[{"4", " ", 
           SuperscriptBox["y12", "3"], " ", "y23"}], 
          SuperscriptBox["m2", "3"]], "-", 
         FractionBox[
          RowBox[{"4", " ", "x12", " ", "x23", " ", 
           SuperscriptBox["z12", "2"]}], 
          SuperscriptBox["m2", "3"]], "-", 
         FractionBox[
          RowBox[{"4", " ", "y12", " ", "y23", " ", 
           SuperscriptBox["z12", "2"]}], 
          SuperscriptBox["m2", "3"]], "-", 
         FractionBox[
          RowBox[{"4", " ", 
           SuperscriptBox["x12", "2"], " ", "z12", " ", "z23"}], 
          SuperscriptBox["m2", "3"]], "-", 
         FractionBox[
          RowBox[{"4", " ", 
           SuperscriptBox["y12", "2"], " ", "z12", " ", "z23"}], 
          SuperscriptBox["m2", "3"]], "-", 
         FractionBox[
          RowBox[{"4", " ", 
           SuperscriptBox["z12", "3"], " ", "z23"}], 
          SuperscriptBox["m2", "3"]]}], ")"}]}], 
      RowBox[{
       SuperscriptBox["R12", "3"], " ", "R23"}]]}], ")"}]}], "+", 
  RowBox[{
   SuperscriptBox["b", "3"], " ", 
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         RowBox[{"10", " ", 
          SuperscriptBox["x13", "2"]}], 
         SuperscriptBox["m1", "3"]]}], "-", 
       FractionBox[
        RowBox[{"10", " ", 
         SuperscriptBox["x13", "2"]}], 
        SuperscriptBox["m3", "3"]], "-", 
       FractionBox[
        RowBox[{"10", " ", 
         SuperscriptBox["y13", "2"]}], 
        SuperscriptBox["m1", "3"]], "-", 
       FractionBox[
        RowBox[{"10", " ", 
         SuperscriptBox["y13", "2"]}], 
        SuperscriptBox["m3", "3"]], "-", 
       FractionBox[
        RowBox[{"10", " ", 
         SuperscriptBox["z13", "2"]}], 
        SuperscriptBox["m1", "3"]], "-", 
       FractionBox[
        RowBox[{"10", " ", 
         SuperscriptBox["z13", "2"]}], 
        SuperscriptBox["m3", "3"]]}], 
      SuperscriptBox["R13", "3"]], "+", 
     FractionBox[
      RowBox[{
       FractionBox[
        RowBox[{"6", " ", 
         SuperscriptBox["x13", "4"]}], 
        SuperscriptBox["m1", "3"]], "+", 
       FractionBox[
        RowBox[{"6", " ", 
         SuperscriptBox["x13", "4"]}], 
        SuperscriptBox["m3", "3"]], "+", 
       FractionBox[
        RowBox[{"12", " ", 
         SuperscriptBox["x13", "2"], " ", 
         SuperscriptBox["y13", "2"]}], 
        SuperscriptBox["m1", "3"]], "+", 
       FractionBox[
        RowBox[{"12", " ", 
         SuperscriptBox["x13", "2"], " ", 
         SuperscriptBox["y13", "2"]}], 
        SuperscriptBox["m3", "3"]], "+", 
       FractionBox[
        RowBox[{"6", " ", 
         SuperscriptBox["y13", "4"]}], 
        SuperscriptBox["m1", "3"]], "+", 
       FractionBox[
        RowBox[{"6", " ", 
         SuperscriptBox["y13", "4"]}], 
        SuperscriptBox["m3", "3"]], "+", 
       FractionBox[
        RowBox[{"12", " ", 
         SuperscriptBox["x13", "2"], " ", 
         SuperscriptBox["z13", "2"]}], 
        SuperscriptBox["m1", "3"]], "+", 
       FractionBox[
        RowBox[{"12", " ", 
         SuperscriptBox["x13", "2"], " ", 
         SuperscriptBox["z13", "2"]}], 
        SuperscriptBox["m3", "3"]], "+", 
       FractionBox[
        RowBox[{"12", " ", 
         SuperscriptBox["y13", "2"], " ", 
         SuperscriptBox["z13", "2"]}], 
        SuperscriptBox["m1", "3"]], "+", 
       FractionBox[
        RowBox[{"12", " ", 
         SuperscriptBox["y13", "2"], " ", 
         SuperscriptBox["z13", "2"]}], 
        SuperscriptBox["m3", "3"]], "+", 
       FractionBox[
        RowBox[{"6", " ", 
         SuperscriptBox["z13", "4"]}], 
        SuperscriptBox["m1", "3"]], "+", 
       FractionBox[
        RowBox[{"6", " ", 
         SuperscriptBox["z13", "4"]}], 
        SuperscriptBox["m3", "3"]]}], 
      SuperscriptBox["R13", "5"]], "+", 
     FractionBox[
      RowBox[{"c", " ", 
       RowBox[{"(", 
        RowBox[{
         FractionBox[
          RowBox[{"4", " ", 
           SuperscriptBox["x13", "3"], " ", "x23"}], 
          SuperscriptBox["m3", "3"]], "+", 
         FractionBox[
          RowBox[{"4", " ", "x13", " ", "x23", " ", 
           SuperscriptBox["y13", "2"]}], 
          SuperscriptBox["m3", "3"]], "+", 
         FractionBox[
          RowBox[{"4", " ", 
           SuperscriptBox["x13", "2"], " ", "y13", " ", "y23"}], 
          SuperscriptBox["m3", "3"]], "+", 
         FractionBox[
          RowBox[{"4", " ", 
           SuperscriptBox["y13", "3"], " ", "y23"}], 
          SuperscriptBox["m3", "3"]], "+", 
         FractionBox[
          RowBox[{"4", " ", "x13", " ", "x23", " ", 
           SuperscriptBox["z13", "2"]}], 
          SuperscriptBox["m3", "3"]], "+", 
         FractionBox[
          RowBox[{"4", " ", "y13", " ", "y23", " ", 
           SuperscriptBox["z13", "2"]}], 
          SuperscriptBox["m3", "3"]], "+", 
         FractionBox[
          RowBox[{"4", " ", 
           SuperscriptBox["x13", "2"], " ", "z13", " ", "z23"}], 
          SuperscriptBox["m3", "3"]], "+", 
         FractionBox[
          RowBox[{"4", " ", 
           SuperscriptBox["y13", "2"], " ", "z13", " ", "z23"}], 
          SuperscriptBox["m3", "3"]], "+", 
         FractionBox[
          RowBox[{"4", " ", 
           SuperscriptBox["z13", "3"], " ", "z23"}], 
          SuperscriptBox["m3", "3"]]}], ")"}]}], 
      RowBox[{
       SuperscriptBox["R13", "3"], " ", "R23"}]]}], ")"}]}], "+", 
  RowBox[{
   SuperscriptBox["c", "3"], " ", 
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         RowBox[{"10", " ", 
          SuperscriptBox["x23", "2"]}], 
         SuperscriptBox["m2", "3"]]}], "-", 
       FractionBox[
        RowBox[{"10", " ", 
         SuperscriptBox["x23", "2"]}], 
        SuperscriptBox["m3", "3"]], "-", 
       FractionBox[
        RowBox[{"10", " ", 
         SuperscriptBox["y23", "2"]}], 
        SuperscriptBox["m2", "3"]], "-", 
       FractionBox[
        RowBox[{"10", " ", 
         SuperscriptBox["y23", "2"]}], 
        SuperscriptBox["m3", "3"]], "-", 
       FractionBox[
        RowBox[{"10", " ", 
         SuperscriptBox["z23", "2"]}], 
        SuperscriptBox["m2", "3"]], "-", 
       FractionBox[
        RowBox[{"10", " ", 
         SuperscriptBox["z23", "2"]}], 
        SuperscriptBox["m3", "3"]]}], 
      SuperscriptBox["R23", "3"]], "+", 
     FractionBox[
      RowBox[{
       FractionBox[
        RowBox[{"6", " ", 
         SuperscriptBox["x23", "4"]}], 
        SuperscriptBox["m2", "3"]], "+", 
       FractionBox[
        RowBox[{"6", " ", 
         SuperscriptBox["x23", "4"]}], 
        SuperscriptBox["m3", "3"]], "+", 
       FractionBox[
        RowBox[{"12", " ", 
         SuperscriptBox["x23", "2"], " ", 
         SuperscriptBox["y23", "2"]}], 
        SuperscriptBox["m2", "3"]], "+", 
       FractionBox[
        RowBox[{"12", " ", 
         SuperscriptBox["x23", "2"], " ", 
         SuperscriptBox["y23", "2"]}], 
        SuperscriptBox["m3", "3"]], "+", 
       FractionBox[
        RowBox[{"6", " ", 
         SuperscriptBox["y23", "4"]}], 
        SuperscriptBox["m2", "3"]], "+", 
       FractionBox[
        RowBox[{"6", " ", 
         SuperscriptBox["y23", "4"]}], 
        SuperscriptBox["m3", "3"]], "+", 
       FractionBox[
        RowBox[{"12", " ", 
         SuperscriptBox["x23", "2"], " ", 
         SuperscriptBox["z23", "2"]}], 
        SuperscriptBox["m2", "3"]], "+", 
       FractionBox[
        RowBox[{"12", " ", 
         SuperscriptBox["x23", "2"], " ", 
         SuperscriptBox["z23", "2"]}], 
        SuperscriptBox["m3", "3"]], "+", 
       FractionBox[
        RowBox[{"12", " ", 
         SuperscriptBox["y23", "2"], " ", 
         SuperscriptBox["z23", "2"]}], 
        SuperscriptBox["m2", "3"]], "+", 
       FractionBox[
        RowBox[{"12", " ", 
         SuperscriptBox["y23", "2"], " ", 
         SuperscriptBox["z23", "2"]}], 
        SuperscriptBox["m3", "3"]], "+", 
       FractionBox[
        RowBox[{"6", " ", 
         SuperscriptBox["z23", "4"]}], 
        SuperscriptBox["m2", "3"]], "+", 
       FractionBox[
        RowBox[{"6", " ", 
         SuperscriptBox["z23", "4"]}], 
        SuperscriptBox["m3", "3"]]}], 
      SuperscriptBox["R23", "5"]]}], ")"}]}], "+", 
  RowBox[{"c", " ", 
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{
       FractionBox["15", 
        SuperscriptBox["m2", "3"]], "+", 
       FractionBox["15", 
        SuperscriptBox["m3", "3"]]}], 
      SuperscriptBox["R23", "3"]], "+", 
     FractionBox[
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         RowBox[{"30", " ", 
          SuperscriptBox["x23", "2"]}], 
         SuperscriptBox["m2", "3"]]}], "-", 
       FractionBox[
        RowBox[{"30", " ", 
         SuperscriptBox["x23", "2"]}], 
        SuperscriptBox["m3", "3"]], "-", 
       FractionBox[
        RowBox[{"30", " ", 
         SuperscriptBox["y23", "2"]}], 
        SuperscriptBox["m2", "3"]], "-", 
       FractionBox[
        RowBox[{"30", " ", 
         SuperscriptBox["y23", "2"]}], 
        SuperscriptBox["m3", "3"]], "-", 
       FractionBox[
        RowBox[{"30", " ", 
         SuperscriptBox["z23", "2"]}], 
        SuperscriptBox["m2", "3"]], "-", 
       FractionBox[
        RowBox[{"30", " ", 
         SuperscriptBox["z23", "2"]}], 
        SuperscriptBox["m3", "3"]]}], 
      SuperscriptBox["R23", "5"]], "+", 
     FractionBox[
      RowBox[{
       FractionBox[
        RowBox[{"15", " ", 
         SuperscriptBox["x23", "4"]}], 
        SuperscriptBox["m2", "3"]], "+", 
       FractionBox[
        RowBox[{"15", " ", 
         SuperscriptBox["x23", "4"]}], 
        SuperscriptBox["m3", "3"]], "+", 
       FractionBox[
        RowBox[{"30", " ", 
         SuperscriptBox["x23", "2"], " ", 
         SuperscriptBox["y23", "2"]}], 
        SuperscriptBox["m2", "3"]], "+", 
       FractionBox[
        RowBox[{"30", " ", 
         SuperscriptBox["x23", "2"], " ", 
         SuperscriptBox["y23", "2"]}], 
        SuperscriptBox["m3", "3"]], "+", 
       FractionBox[
        RowBox[{"15", " ", 
         SuperscriptBox["y23", "4"]}], 
        SuperscriptBox["m2", "3"]], "+", 
       FractionBox[
        RowBox[{"15", " ", 
         SuperscriptBox["y23", "4"]}], 
        SuperscriptBox["m3", "3"]], "+", 
       FractionBox[
        RowBox[{"30", " ", 
         SuperscriptBox["x23", "2"], " ", 
         SuperscriptBox["z23", "2"]}], 
        SuperscriptBox["m2", "3"]], "+", 
       FractionBox[
        RowBox[{"30", " ", 
         SuperscriptBox["x23", "2"], " ", 
         SuperscriptBox["z23", "2"]}], 
        SuperscriptBox["m3", "3"]], "+", 
       FractionBox[
        RowBox[{"30", " ", 
         SuperscriptBox["y23", "2"], " ", 
         SuperscriptBox["z23", "2"]}], 
        SuperscriptBox["m2", "3"]], "+", 
       FractionBox[
        RowBox[{"30", " ", 
         SuperscriptBox["y23", "2"], " ", 
         SuperscriptBox["z23", "2"]}], 
        SuperscriptBox["m3", "3"]], "+", 
       FractionBox[
        RowBox[{"15", " ", 
         SuperscriptBox["z23", "4"]}], 
        SuperscriptBox["m2", "3"]], "+", 
       FractionBox[
        RowBox[{"15", " ", 
         SuperscriptBox["z23", "4"]}], 
        SuperscriptBox["m3", "3"]]}], 
      SuperscriptBox["R23", "7"]]}], ")"}]}], "+", 
  RowBox[{
   SuperscriptBox["c", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{
       FractionBox["15", 
        SuperscriptBox["m2", "3"]], "+", 
       FractionBox["15", 
        SuperscriptBox["m3", "3"]]}], 
      SuperscriptBox["R23", "2"]], "+", 
     FractionBox[
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         RowBox[{"30", " ", 
          SuperscriptBox["x23", "2"]}], 
         SuperscriptBox["m2", "3"]]}], "-", 
       FractionBox[
        RowBox[{"30", " ", 
         SuperscriptBox["x23", "2"]}], 
        SuperscriptBox["m3", "3"]], "-", 
       FractionBox[
        RowBox[{"30", " ", 
         SuperscriptBox["y23", "2"]}], 
        SuperscriptBox["m2", "3"]], "-", 
       FractionBox[
        RowBox[{"30", " ", 
         SuperscriptBox["y23", "2"]}], 
        SuperscriptBox["m3", "3"]], "-", 
       FractionBox[
        RowBox[{"30", " ", 
         SuperscriptBox["z23", "2"]}], 
        SuperscriptBox["m2", "3"]], "-", 
       FractionBox[
        RowBox[{"30", " ", 
         SuperscriptBox["z23", "2"]}], 
        SuperscriptBox["m3", "3"]]}], 
      SuperscriptBox["R23", "4"]], "+", 
     FractionBox[
      RowBox[{
       FractionBox[
        RowBox[{"15", " ", 
         SuperscriptBox["x23", "4"]}], 
        SuperscriptBox["m2", "3"]], "+", 
       FractionBox[
        RowBox[{"15", " ", 
         SuperscriptBox["x23", "4"]}], 
        SuperscriptBox["m3", "3"]], "+", 
       FractionBox[
        RowBox[{"30", " ", 
         SuperscriptBox["x23", "2"], " ", 
         SuperscriptBox["y23", "2"]}], 
        SuperscriptBox["m2", "3"]], "+", 
       FractionBox[
        RowBox[{"30", " ", 
         SuperscriptBox["x23", "2"], " ", 
         SuperscriptBox["y23", "2"]}], 
        SuperscriptBox["m3", "3"]], "+", 
       FractionBox[
        RowBox[{"15", " ", 
         SuperscriptBox["y23", "4"]}], 
        SuperscriptBox["m2", "3"]], "+", 
       FractionBox[
        RowBox[{"15", " ", 
         SuperscriptBox["y23", "4"]}], 
        SuperscriptBox["m3", "3"]], "+", 
       FractionBox[
        RowBox[{"30", " ", 
         SuperscriptBox["x23", "2"], " ", 
         SuperscriptBox["z23", "2"]}], 
        SuperscriptBox["m2", "3"]], "+", 
       FractionBox[
        RowBox[{"30", " ", 
         SuperscriptBox["x23", "2"], " ", 
         SuperscriptBox["z23", "2"]}], 
        SuperscriptBox["m3", "3"]], "+", 
       FractionBox[
        RowBox[{"30", " ", 
         SuperscriptBox["y23", "2"], " ", 
         SuperscriptBox["z23", "2"]}], 
        SuperscriptBox["m2", "3"]], "+", 
       FractionBox[
        RowBox[{"30", " ", 
         SuperscriptBox["y23", "2"], " ", 
         SuperscriptBox["z23", "2"]}], 
        SuperscriptBox["m3", "3"]], "+", 
       FractionBox[
        RowBox[{"15", " ", 
         SuperscriptBox["z23", "4"]}], 
        SuperscriptBox["m2", "3"]], "+", 
       FractionBox[
        RowBox[{"15", " ", 
         SuperscriptBox["z23", "4"]}], 
        SuperscriptBox["m3", "3"]]}], 
      SuperscriptBox["R23", "6"]]}], ")"}]}], "+", 
  RowBox[{
   SuperscriptBox["a", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{
       FractionBox["15", 
        SuperscriptBox["m1", "3"]], "+", 
       FractionBox["15", 
        SuperscriptBox["m2", "3"]]}], 
      SuperscriptBox["R12", "2"]], "+", 
     FractionBox[
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         RowBox[{"30", " ", 
          SuperscriptBox["x12", "2"]}], 
         SuperscriptBox["m1", "3"]]}], "-", 
       FractionBox[
        RowBox[{"30", " ", 
         SuperscriptBox["x12", "2"]}], 
        SuperscriptBox["m2", "3"]], "-", 
       FractionBox[
        RowBox[{"30", " ", 
         SuperscriptBox["y12", "2"]}], 
        SuperscriptBox["m1", "3"]], "-", 
       FractionBox[
        RowBox[{"30", " ", 
         SuperscriptBox["y12", "2"]}], 
        SuperscriptBox["m2", "3"]], "-", 
       FractionBox[
        RowBox[{"30", " ", 
         SuperscriptBox["z12", "2"]}], 
        SuperscriptBox["m1", "3"]], "-", 
       FractionBox[
        RowBox[{"30", " ", 
         SuperscriptBox["z12", "2"]}], 
        SuperscriptBox["m2", "3"]]}], 
      SuperscriptBox["R12", "4"]], "+", 
     FractionBox[
      RowBox[{
       FractionBox[
        RowBox[{"15", " ", 
         SuperscriptBox["x12", "4"]}], 
        SuperscriptBox["m1", "3"]], "+", 
       FractionBox[
        RowBox[{"15", " ", 
         SuperscriptBox["x12", "4"]}], 
        SuperscriptBox["m2", "3"]], "+", 
       FractionBox[
        RowBox[{"30", " ", 
         SuperscriptBox["x12", "2"], " ", 
         SuperscriptBox["y12", "2"]}], 
        SuperscriptBox["m1", "3"]], "+", 
       FractionBox[
        RowBox[{"30", " ", 
         SuperscriptBox["x12", "2"], " ", 
         SuperscriptBox["y12", "2"]}], 
        SuperscriptBox["m2", "3"]], "+", 
       FractionBox[
        RowBox[{"15", " ", 
         SuperscriptBox["y12", "4"]}], 
        SuperscriptBox["m1", "3"]], "+", 
       FractionBox[
        RowBox[{"15", " ", 
         SuperscriptBox["y12", "4"]}], 
        SuperscriptBox["m2", "3"]], "+", 
       FractionBox[
        RowBox[{"30", " ", 
         SuperscriptBox["x12", "2"], " ", 
         SuperscriptBox["z12", "2"]}], 
        SuperscriptBox["m1", "3"]], "+", 
       FractionBox[
        RowBox[{"30", " ", 
         SuperscriptBox["x12", "2"], " ", 
         SuperscriptBox["z12", "2"]}], 
        SuperscriptBox["m2", "3"]], "+", 
       FractionBox[
        RowBox[{"30", " ", 
         SuperscriptBox["y12", "2"], " ", 
         SuperscriptBox["z12", "2"]}], 
        SuperscriptBox["m1", "3"]], "+", 
       FractionBox[
        RowBox[{"30", " ", 
         SuperscriptBox["y12", "2"], " ", 
         SuperscriptBox["z12", "2"]}], 
        SuperscriptBox["m2", "3"]], "+", 
       FractionBox[
        RowBox[{"15", " ", 
         SuperscriptBox["z12", "4"]}], 
        SuperscriptBox["m1", "3"]], "+", 
       FractionBox[
        RowBox[{"15", " ", 
         SuperscriptBox["z12", "4"]}], 
        SuperscriptBox["m2", "3"]]}], 
      SuperscriptBox["R12", "6"]], "+", 
     FractionBox[
      RowBox[{
       SuperscriptBox["b", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         FractionBox[
          RowBox[{"6", " ", 
           SuperscriptBox["x12", "2"], " ", 
           SuperscriptBox["x13", "2"]}], 
          SuperscriptBox["m1", "3"]], "+", 
         FractionBox[
          RowBox[{"2", " ", 
           SuperscriptBox["x13", "2"], " ", 
           SuperscriptBox["y12", "2"]}], 
          SuperscriptBox["m1", "3"]], "+", 
         FractionBox[
          RowBox[{"8", " ", "x12", " ", "x13", " ", "y12", " ", "y13"}], 
          SuperscriptBox["m1", "3"]], "+", 
         FractionBox[
          RowBox[{"2", " ", 
           SuperscriptBox["x12", "2"], " ", 
           SuperscriptBox["y13", "2"]}], 
          SuperscriptBox["m1", "3"]], "+", 
         FractionBox[
          RowBox[{"6", " ", 
           SuperscriptBox["y12", "2"], " ", 
           SuperscriptBox["y13", "2"]}], 
          SuperscriptBox["m1", "3"]], "+", 
         FractionBox[
          RowBox[{"2", " ", 
           SuperscriptBox["x13", "2"], " ", 
           SuperscriptBox["z12", "2"]}], 
          SuperscriptBox["m1", "3"]], "+", 
         FractionBox[
          RowBox[{"2", " ", 
           SuperscriptBox["y13", "2"], " ", 
           SuperscriptBox["z12", "2"]}], 
          SuperscriptBox["m1", "3"]], "+", 
         FractionBox[
          RowBox[{"8", " ", "x12", " ", "x13", " ", "z12", " ", "z13"}], 
          SuperscriptBox["m1", "3"]], "+", 
         FractionBox[
          RowBox[{"8", " ", "y12", " ", "y13", " ", "z12", " ", "z13"}], 
          SuperscriptBox["m1", "3"]], "+", 
         FractionBox[
          RowBox[{"2", " ", 
           SuperscriptBox["x12", "2"], " ", 
           SuperscriptBox["z13", "2"]}], 
          SuperscriptBox["m1", "3"]], "+", 
         FractionBox[
          RowBox[{"2", " ", 
           SuperscriptBox["y12", "2"], " ", 
           SuperscriptBox["z13", "2"]}], 
          SuperscriptBox["m1", "3"]], "+", 
         FractionBox[
          RowBox[{"6", " ", 
           SuperscriptBox["z12", "2"], " ", 
           SuperscriptBox["z13", "2"]}], 
          SuperscriptBox["m1", "3"]]}], ")"}]}], 
      RowBox[{
       SuperscriptBox["R12", "2"], " ", 
       SuperscriptBox["R13", "2"]}]], "+", 
     RowBox[{"b", " ", 
      RowBox[{"(", 
       RowBox[{
        FractionBox[
         RowBox[{
          FractionBox[
           RowBox[{"12", " ", 
            SuperscriptBox["x12", "3"], " ", "x13"}], 
           SuperscriptBox["m1", "3"]], "+", 
          FractionBox[
           RowBox[{"12", " ", "x12", " ", "x13", " ", 
            SuperscriptBox["y12", "2"]}], 
           SuperscriptBox["m1", "3"]], "+", 
          FractionBox[
           RowBox[{"12", " ", 
            SuperscriptBox["x12", "2"], " ", "y12", " ", "y13"}], 
           SuperscriptBox["m1", "3"]], "+", 
          FractionBox[
           RowBox[{"12", " ", 
            SuperscriptBox["y12", "3"], " ", "y13"}], 
           SuperscriptBox["m1", "3"]], "+", 
          FractionBox[
           RowBox[{"12", " ", "x12", " ", "x13", " ", 
            SuperscriptBox["z12", "2"]}], 
           SuperscriptBox["m1", "3"]], "+", 
          FractionBox[
           RowBox[{"12", " ", "y12", " ", "y13", " ", 
            SuperscriptBox["z12", "2"]}], 
           SuperscriptBox["m1", "3"]], "+", 
          FractionBox[
           RowBox[{"12", " ", 
            SuperscriptBox["x12", "2"], " ", "z12", " ", "z13"}], 
           SuperscriptBox["m1", "3"]], "+", 
          FractionBox[
           RowBox[{"12", " ", 
            SuperscriptBox["y12", "2"], " ", "z12", " ", "z13"}], 
           SuperscriptBox["m1", "3"]], "+", 
          FractionBox[
           RowBox[{"12", " ", 
            SuperscriptBox["z12", "3"], " ", "z13"}], 
           SuperscriptBox["m1", "3"]]}], 
         RowBox[{
          SuperscriptBox["R12", "4"], " ", "R13"}]], "+", 
        FractionBox[
         RowBox[{
          FractionBox[
           RowBox[{
            RowBox[{"-", 
             FractionBox[
              RowBox[{"10", " ", 
               SuperscriptBox["x12", "2"]}], 
              SuperscriptBox["m1", "3"]]}], "-", 
            FractionBox[
             RowBox[{"20", " ", "x12", " ", "x13"}], 
             SuperscriptBox["m1", "3"]], "-", 
            FractionBox[
             RowBox[{"10", " ", 
              SuperscriptBox["y12", "2"]}], 
             SuperscriptBox["m1", "3"]], "-", 
            FractionBox[
             RowBox[{"20", " ", "y12", " ", "y13"}], 
             SuperscriptBox["m1", "3"]], "-", 
            FractionBox[
             RowBox[{"10", " ", 
              SuperscriptBox["z12", "2"]}], 
             SuperscriptBox["m1", "3"]], "-", 
            FractionBox[
             RowBox[{"20", " ", "z12", " ", "z13"}], 
             SuperscriptBox["m1", "3"]]}], "R13"], "+", 
          FractionBox[
           RowBox[{
            FractionBox[
             RowBox[{"6", " ", 
              SuperscriptBox["x12", "2"], " ", 
              SuperscriptBox["x13", "2"]}], 
             SuperscriptBox["m1", "3"]], "+", 
            FractionBox[
             RowBox[{"2", " ", 
              SuperscriptBox["x13", "2"], " ", 
              SuperscriptBox["y12", "2"]}], 
             SuperscriptBox["m1", "3"]], "+", 
            FractionBox[
             RowBox[{"8", " ", "x12", " ", "x13", " ", "y12", " ", "y13"}], 
             SuperscriptBox["m1", "3"]], "+", 
            FractionBox[
             RowBox[{"2", " ", 
              SuperscriptBox["x12", "2"], " ", 
              SuperscriptBox["y13", "2"]}], 
             SuperscriptBox["m1", "3"]], "+", 
            FractionBox[
             RowBox[{"6", " ", 
              SuperscriptBox["y12", "2"], " ", 
              SuperscriptBox["y13", "2"]}], 
             SuperscriptBox["m1", "3"]], "+", 
            FractionBox[
             RowBox[{"2", " ", 
              SuperscriptBox["x13", "2"], " ", 
              SuperscriptBox["z12", "2"]}], 
             SuperscriptBox["m1", "3"]], "+", 
            FractionBox[
             RowBox[{"2", " ", 
              SuperscriptBox["y13", "2"], " ", 
              SuperscriptBox["z12", "2"]}], 
             SuperscriptBox["m1", "3"]], "+", 
            FractionBox[
             RowBox[{"8", " ", "x12", " ", "x13", " ", "z12", " ", "z13"}], 
             SuperscriptBox["m1", "3"]], "+", 
            FractionBox[
             RowBox[{"8", " ", "y12", " ", "y13", " ", "z12", " ", "z13"}], 
             SuperscriptBox["m1", "3"]], "+", 
            FractionBox[
             RowBox[{"2", " ", 
              SuperscriptBox["x12", "2"], " ", 
              SuperscriptBox["z13", "2"]}], 
             SuperscriptBox["m1", "3"]], "+", 
            FractionBox[
             RowBox[{"2", " ", 
              SuperscriptBox["y12", "2"], " ", 
              SuperscriptBox["z13", "2"]}], 
             SuperscriptBox["m1", "3"]], "+", 
            FractionBox[
             RowBox[{"6", " ", 
              SuperscriptBox["z12", "2"], " ", 
              SuperscriptBox["z13", "2"]}], 
             SuperscriptBox["m1", "3"]]}], 
           SuperscriptBox["R13", "3"]]}], 
         SuperscriptBox["R12", "2"]]}], ")"}]}], "+", 
     FractionBox[
      RowBox[{
       SuperscriptBox["c", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         FractionBox[
          RowBox[{"6", " ", 
           SuperscriptBox["x12", "2"], " ", 
           SuperscriptBox["x23", "2"]}], 
          SuperscriptBox["m2", "3"]], "+", 
         FractionBox[
          RowBox[{"2", " ", 
           SuperscriptBox["x23", "2"], " ", 
           SuperscriptBox["y12", "2"]}], 
          SuperscriptBox["m2", "3"]], "+", 
         FractionBox[
          RowBox[{"8", " ", "x12", " ", "x23", " ", "y12", " ", "y23"}], 
          SuperscriptBox["m2", "3"]], "+", 
         FractionBox[
          RowBox[{"2", " ", 
           SuperscriptBox["x12", "2"], " ", 
           SuperscriptBox["y23", "2"]}], 
          SuperscriptBox["m2", "3"]], "+", 
         FractionBox[
          RowBox[{"6", " ", 
           SuperscriptBox["y12", "2"], " ", 
           SuperscriptBox["y23", "2"]}], 
          SuperscriptBox["m2", "3"]], "+", 
         FractionBox[
          RowBox[{"2", " ", 
           SuperscriptBox["x23", "2"], " ", 
           SuperscriptBox["z12", "2"]}], 
          SuperscriptBox["m2", "3"]], "+", 
         FractionBox[
          RowBox[{"2", " ", 
           SuperscriptBox["y23", "2"], " ", 
           SuperscriptBox["z12", "2"]}], 
          SuperscriptBox["m2", "3"]], "+", 
         FractionBox[
          RowBox[{"8", " ", "x12", " ", "x23", " ", "z12", " ", "z23"}], 
          SuperscriptBox["m2", "3"]], "+", 
         FractionBox[
          RowBox[{"8", " ", "y12", " ", "y23", " ", "z12", " ", "z23"}], 
          SuperscriptBox["m2", "3"]], "+", 
         FractionBox[
          RowBox[{"2", " ", 
           SuperscriptBox["x12", "2"], " ", 
           SuperscriptBox["z23", "2"]}], 
          SuperscriptBox["m2", "3"]], "+", 
         FractionBox[
          RowBox[{"2", " ", 
           SuperscriptBox["y12", "2"], " ", 
           SuperscriptBox["z23", "2"]}], 
          SuperscriptBox["m2", "3"]], "+", 
         FractionBox[
          RowBox[{"6", " ", 
           SuperscriptBox["z12", "2"], " ", 
           SuperscriptBox["z23", "2"]}], 
          SuperscriptBox["m2", "3"]]}], ")"}]}], 
      RowBox[{
       SuperscriptBox["R12", "2"], " ", 
       SuperscriptBox["R23", "2"]}]], "+", 
     RowBox[{"c", " ", 
      RowBox[{"(", 
       RowBox[{
        FractionBox[
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{"12", " ", 
             SuperscriptBox["x12", "3"], " ", "x23"}], 
            SuperscriptBox["m2", "3"]]}], "-", 
          FractionBox[
           RowBox[{"12", " ", "x12", " ", "x23", " ", 
            SuperscriptBox["y12", "2"]}], 
           SuperscriptBox["m2", "3"]], "-", 
          FractionBox[
           RowBox[{"12", " ", 
            SuperscriptBox["x12", "2"], " ", "y12", " ", "y23"}], 
           SuperscriptBox["m2", "3"]], "-", 
          FractionBox[
           RowBox[{"12", " ", 
            SuperscriptBox["y12", "3"], " ", "y23"}], 
           SuperscriptBox["m2", "3"]], "-", 
          FractionBox[
           RowBox[{"12", " ", "x12", " ", "x23", " ", 
            SuperscriptBox["z12", "2"]}], 
           SuperscriptBox["m2", "3"]], "-", 
          FractionBox[
           RowBox[{"12", " ", "y12", " ", "y23", " ", 
            SuperscriptBox["z12", "2"]}], 
           SuperscriptBox["m2", "3"]], "-", 
          FractionBox[
           RowBox[{"12", " ", 
            SuperscriptBox["x12", "2"], " ", "z12", " ", "z23"}], 
           SuperscriptBox["m2", "3"]], "-", 
          FractionBox[
           RowBox[{"12", " ", 
            SuperscriptBox["y12", "2"], " ", "z12", " ", "z23"}], 
           SuperscriptBox["m2", "3"]], "-", 
          FractionBox[
           RowBox[{"12", " ", 
            SuperscriptBox["z12", "3"], " ", "z23"}], 
           SuperscriptBox["m2", "3"]]}], 
         RowBox[{
          SuperscriptBox["R12", "4"], " ", "R23"}]], "+", 
        FractionBox[
         RowBox[{
          FractionBox[
           RowBox[{
            RowBox[{"-", 
             FractionBox[
              RowBox[{"10", " ", 
               SuperscriptBox["x12", "2"]}], 
              SuperscriptBox["m2", "3"]]}], "+", 
            FractionBox[
             RowBox[{"20", " ", "x12", " ", "x23"}], 
             SuperscriptBox["m2", "3"]], "-", 
            FractionBox[
             RowBox[{"10", " ", 
              SuperscriptBox["y12", "2"]}], 
             SuperscriptBox["m2", "3"]], "+", 
            FractionBox[
             RowBox[{"20", " ", "y12", " ", "y23"}], 
             SuperscriptBox["m2", "3"]], "-", 
            FractionBox[
             RowBox[{"10", " ", 
              SuperscriptBox["z12", "2"]}], 
             SuperscriptBox["m2", "3"]], "+", 
            FractionBox[
             RowBox[{"20", " ", "z12", " ", "z23"}], 
             SuperscriptBox["m2", "3"]]}], "R23"], "+", 
          FractionBox[
           RowBox[{
            FractionBox[
             RowBox[{"6", " ", 
              SuperscriptBox["x12", "2"], " ", 
              SuperscriptBox["x23", "2"]}], 
             SuperscriptBox["m2", "3"]], "+", 
            FractionBox[
             RowBox[{"2", " ", 
              SuperscriptBox["x23", "2"], " ", 
              SuperscriptBox["y12", "2"]}], 
             SuperscriptBox["m2", "3"]], "+", 
            FractionBox[
             RowBox[{"8", " ", "x12", " ", "x23", " ", "y12", " ", "y23"}], 
             SuperscriptBox["m2", "3"]], "+", 
            FractionBox[
             RowBox[{"2", " ", 
              SuperscriptBox["x12", "2"], " ", 
              SuperscriptBox["y23", "2"]}], 
             SuperscriptBox["m2", "3"]], "+", 
            FractionBox[
             RowBox[{"6", " ", 
              SuperscriptBox["y12", "2"], " ", 
              SuperscriptBox["y23", "2"]}], 
             SuperscriptBox["m2", "3"]], "+", 
            FractionBox[
             RowBox[{"2", " ", 
              SuperscriptBox["x23", "2"], " ", 
              SuperscriptBox["z12", "2"]}], 
             SuperscriptBox["m2", "3"]], "+", 
            FractionBox[
             RowBox[{"2", " ", 
              SuperscriptBox["y23", "2"], " ", 
              SuperscriptBox["z12", "2"]}], 
             SuperscriptBox["m2", "3"]], "+", 
            FractionBox[
             RowBox[{"8", " ", "x12", " ", "x23", " ", "z12", " ", "z23"}], 
             SuperscriptBox["m2", "3"]], "+", 
            FractionBox[
             RowBox[{"8", " ", "y12", " ", "y23", " ", "z12", " ", "z23"}], 
             SuperscriptBox["m2", "3"]], "+", 
            FractionBox[
             RowBox[{"2", " ", 
              SuperscriptBox["x12", "2"], " ", 
              SuperscriptBox["z23", "2"]}], 
             SuperscriptBox["m2", "3"]], "+", 
            FractionBox[
             RowBox[{"2", " ", 
              SuperscriptBox["y12", "2"], " ", 
              SuperscriptBox["z23", "2"]}], 
             SuperscriptBox["m2", "3"]], "+", 
            FractionBox[
             RowBox[{"6", " ", 
              SuperscriptBox["z12", "2"], " ", 
              SuperscriptBox["z23", "2"]}], 
             SuperscriptBox["m2", "3"]]}], 
           SuperscriptBox["R23", "3"]]}], 
         SuperscriptBox["R12", "2"]]}], ")"}]}]}], ")"}]}], "+", 
  RowBox[{
   SuperscriptBox["b", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{
       FractionBox["15", 
        SuperscriptBox["m1", "3"]], "+", 
       FractionBox["15", 
        SuperscriptBox["m3", "3"]]}], 
      SuperscriptBox["R13", "2"]], "+", 
     FractionBox[
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         RowBox[{"30", " ", 
          SuperscriptBox["x13", "2"]}], 
         SuperscriptBox["m1", "3"]]}], "-", 
       FractionBox[
        RowBox[{"30", " ", 
         SuperscriptBox["x13", "2"]}], 
        SuperscriptBox["m3", "3"]], "-", 
       FractionBox[
        RowBox[{"30", " ", 
         SuperscriptBox["y13", "2"]}], 
        SuperscriptBox["m1", "3"]], "-", 
       FractionBox[
        RowBox[{"30", " ", 
         SuperscriptBox["y13", "2"]}], 
        SuperscriptBox["m3", "3"]], "-", 
       FractionBox[
        RowBox[{"30", " ", 
         SuperscriptBox["z13", "2"]}], 
        SuperscriptBox["m1", "3"]], "-", 
       FractionBox[
        RowBox[{"30", " ", 
         SuperscriptBox["z13", "2"]}], 
        SuperscriptBox["m3", "3"]]}], 
      SuperscriptBox["R13", "4"]], "+", 
     FractionBox[
      RowBox[{
       FractionBox[
        RowBox[{"15", " ", 
         SuperscriptBox["x13", "4"]}], 
        SuperscriptBox["m1", "3"]], "+", 
       FractionBox[
        RowBox[{"15", " ", 
         SuperscriptBox["x13", "4"]}], 
        SuperscriptBox["m3", "3"]], "+", 
       FractionBox[
        RowBox[{"30", " ", 
         SuperscriptBox["x13", "2"], " ", 
         SuperscriptBox["y13", "2"]}], 
        SuperscriptBox["m1", "3"]], "+", 
       FractionBox[
        RowBox[{"30", " ", 
         SuperscriptBox["x13", "2"], " ", 
         SuperscriptBox["y13", "2"]}], 
        SuperscriptBox["m3", "3"]], "+", 
       FractionBox[
        RowBox[{"15", " ", 
         SuperscriptBox["y13", "4"]}], 
        SuperscriptBox["m1", "3"]], "+", 
       FractionBox[
        RowBox[{"15", " ", 
         SuperscriptBox["y13", "4"]}], 
        SuperscriptBox["m3", "3"]], "+", 
       FractionBox[
        RowBox[{"30", " ", 
         SuperscriptBox["x13", "2"], " ", 
         SuperscriptBox["z13", "2"]}], 
        SuperscriptBox["m1", "3"]], "+", 
       FractionBox[
        RowBox[{"30", " ", 
         SuperscriptBox["x13", "2"], " ", 
         SuperscriptBox["z13", "2"]}], 
        SuperscriptBox["m3", "3"]], "+", 
       FractionBox[
        RowBox[{"30", " ", 
         SuperscriptBox["y13", "2"], " ", 
         SuperscriptBox["z13", "2"]}], 
        SuperscriptBox["m1", "3"]], "+", 
       FractionBox[
        RowBox[{"30", " ", 
         SuperscriptBox["y13", "2"], " ", 
         SuperscriptBox["z13", "2"]}], 
        SuperscriptBox["m3", "3"]], "+", 
       FractionBox[
        RowBox[{"15", " ", 
         SuperscriptBox["z13", "4"]}], 
        SuperscriptBox["m1", "3"]], "+", 
       FractionBox[
        RowBox[{"15", " ", 
         SuperscriptBox["z13", "4"]}], 
        SuperscriptBox["m3", "3"]]}], 
      SuperscriptBox["R13", "6"]], "+", 
     FractionBox[
      RowBox[{
       SuperscriptBox["c", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         FractionBox[
          RowBox[{"6", " ", 
           SuperscriptBox["x13", "2"], " ", 
           SuperscriptBox["x23", "2"]}], 
          SuperscriptBox["m3", "3"]], "+", 
         FractionBox[
          RowBox[{"2", " ", 
           SuperscriptBox["x23", "2"], " ", 
           SuperscriptBox["y13", "2"]}], 
          SuperscriptBox["m3", "3"]], "+", 
         FractionBox[
          RowBox[{"8", " ", "x13", " ", "x23", " ", "y13", " ", "y23"}], 
          SuperscriptBox["m3", "3"]], "+", 
         FractionBox[
          RowBox[{"2", " ", 
           SuperscriptBox["x13", "2"], " ", 
           SuperscriptBox["y23", "2"]}], 
          SuperscriptBox["m3", "3"]], "+", 
         FractionBox[
          RowBox[{"6", " ", 
           SuperscriptBox["y13", "2"], " ", 
           SuperscriptBox["y23", "2"]}], 
          SuperscriptBox["m3", "3"]], "+", 
         FractionBox[
          RowBox[{"2", " ", 
           SuperscriptBox["x23", "2"], " ", 
           SuperscriptBox["z13", "2"]}], 
          SuperscriptBox["m3", "3"]], "+", 
         FractionBox[
          RowBox[{"2", " ", 
           SuperscriptBox["y23", "2"], " ", 
           SuperscriptBox["z13", "2"]}], 
          SuperscriptBox["m3", "3"]], "+", 
         FractionBox[
          RowBox[{"8", " ", "x13", " ", "x23", " ", "z13", " ", "z23"}], 
          SuperscriptBox["m3", "3"]], "+", 
         FractionBox[
          RowBox[{"8", " ", "y13", " ", "y23", " ", "z13", " ", "z23"}], 
          SuperscriptBox["m3", "3"]], "+", 
         FractionBox[
          RowBox[{"2", " ", 
           SuperscriptBox["x13", "2"], " ", 
           SuperscriptBox["z23", "2"]}], 
          SuperscriptBox["m3", "3"]], "+", 
         FractionBox[
          RowBox[{"2", " ", 
           SuperscriptBox["y13", "2"], " ", 
           SuperscriptBox["z23", "2"]}], 
          SuperscriptBox["m3", "3"]], "+", 
         FractionBox[
          RowBox[{"6", " ", 
           SuperscriptBox["z13", "2"], " ", 
           SuperscriptBox["z23", "2"]}], 
          SuperscriptBox["m3", "3"]]}], ")"}]}], 
      RowBox[{
       SuperscriptBox["R13", "2"], " ", 
       SuperscriptBox["R23", "2"]}]], "+", 
     RowBox[{"c", " ", 
      RowBox[{"(", 
       RowBox[{
        FractionBox[
         RowBox[{
          FractionBox[
           RowBox[{"12", " ", 
            SuperscriptBox["x13", "3"], " ", "x23"}], 
           SuperscriptBox["m3", "3"]], "+", 
          FractionBox[
           RowBox[{"12", " ", "x13", " ", "x23", " ", 
            SuperscriptBox["y13", "2"]}], 
           SuperscriptBox["m3", "3"]], "+", 
          FractionBox[
           RowBox[{"12", " ", 
            SuperscriptBox["x13", "2"], " ", "y13", " ", "y23"}], 
           SuperscriptBox["m3", "3"]], "+", 
          FractionBox[
           RowBox[{"12", " ", 
            SuperscriptBox["y13", "3"], " ", "y23"}], 
           SuperscriptBox["m3", "3"]], "+", 
          FractionBox[
           RowBox[{"12", " ", "x13", " ", "x23", " ", 
            SuperscriptBox["z13", "2"]}], 
           SuperscriptBox["m3", "3"]], "+", 
          FractionBox[
           RowBox[{"12", " ", "y13", " ", "y23", " ", 
            SuperscriptBox["z13", "2"]}], 
           SuperscriptBox["m3", "3"]], "+", 
          FractionBox[
           RowBox[{"12", " ", 
            SuperscriptBox["x13", "2"], " ", "z13", " ", "z23"}], 
           SuperscriptBox["m3", "3"]], "+", 
          FractionBox[
           RowBox[{"12", " ", 
            SuperscriptBox["y13", "2"], " ", "z13", " ", "z23"}], 
           SuperscriptBox["m3", "3"]], "+", 
          FractionBox[
           RowBox[{"12", " ", 
            SuperscriptBox["z13", "3"], " ", "z23"}], 
           SuperscriptBox["m3", "3"]]}], 
         RowBox[{
          SuperscriptBox["R13", "4"], " ", "R23"}]], "+", 
        FractionBox[
         RowBox[{
          FractionBox[
           RowBox[{
            RowBox[{"-", 
             FractionBox[
              RowBox[{"10", " ", 
               SuperscriptBox["x13", "2"]}], 
              SuperscriptBox["m3", "3"]]}], "-", 
            FractionBox[
             RowBox[{"20", " ", "x13", " ", "x23"}], 
             SuperscriptBox["m3", "3"]], "-", 
            FractionBox[
             RowBox[{"10", " ", 
              SuperscriptBox["y13", "2"]}], 
             SuperscriptBox["m3", "3"]], "-", 
            FractionBox[
             RowBox[{"20", " ", "y13", " ", "y23"}], 
             SuperscriptBox["m3", "3"]], "-", 
            FractionBox[
             RowBox[{"10", " ", 
              SuperscriptBox["z13", "2"]}], 
             SuperscriptBox["m3", "3"]], "-", 
            FractionBox[
             RowBox[{"20", " ", "z13", " ", "z23"}], 
             SuperscriptBox["m3", "3"]]}], "R23"], "+", 
          FractionBox[
           RowBox[{
            FractionBox[
             RowBox[{"6", " ", 
              SuperscriptBox["x13", "2"], " ", 
              SuperscriptBox["x23", "2"]}], 
             SuperscriptBox["m3", "3"]], "+", 
            FractionBox[
             RowBox[{"2", " ", 
              SuperscriptBox["x23", "2"], " ", 
              SuperscriptBox["y13", "2"]}], 
             SuperscriptBox["m3", "3"]], "+", 
            FractionBox[
             RowBox[{"8", " ", "x13", " ", "x23", " ", "y13", " ", "y23"}], 
             SuperscriptBox["m3", "3"]], "+", 
            FractionBox[
             RowBox[{"2", " ", 
              SuperscriptBox["x13", "2"], " ", 
              SuperscriptBox["y23", "2"]}], 
             SuperscriptBox["m3", "3"]], "+", 
            FractionBox[
             RowBox[{"6", " ", 
              SuperscriptBox["y13", "2"], " ", 
              SuperscriptBox["y23", "2"]}], 
             SuperscriptBox["m3", "3"]], "+", 
            FractionBox[
             RowBox[{"2", " ", 
              SuperscriptBox["x23", "2"], " ", 
              SuperscriptBox["z13", "2"]}], 
             SuperscriptBox["m3", "3"]], "+", 
            FractionBox[
             RowBox[{"2", " ", 
              SuperscriptBox["y23", "2"], " ", 
              SuperscriptBox["z13", "2"]}], 
             SuperscriptBox["m3", "3"]], "+", 
            FractionBox[
             RowBox[{"8", " ", "x13", " ", "x23", " ", "z13", " ", "z23"}], 
             SuperscriptBox["m3", "3"]], "+", 
            FractionBox[
             RowBox[{"8", " ", "y13", " ", "y23", " ", "z13", " ", "z23"}], 
             SuperscriptBox["m3", "3"]], "+", 
            FractionBox[
             RowBox[{"2", " ", 
              SuperscriptBox["x13", "2"], " ", 
              SuperscriptBox["z23", "2"]}], 
             SuperscriptBox["m3", "3"]], "+", 
            FractionBox[
             RowBox[{"2", " ", 
              SuperscriptBox["y13", "2"], " ", 
              SuperscriptBox["z23", "2"]}], 
             SuperscriptBox["m3", "3"]], "+", 
            FractionBox[
             RowBox[{"6", " ", 
              SuperscriptBox["z13", "2"], " ", 
              SuperscriptBox["z23", "2"]}], 
             SuperscriptBox["m3", "3"]]}], 
           SuperscriptBox["R23", "3"]]}], 
         SuperscriptBox["R13", "2"]]}], ")"}]}]}], ")"}]}], "+", 
  RowBox[{"a", " ", 
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{
       FractionBox["15", 
        SuperscriptBox["m1", "3"]], "+", 
       FractionBox["15", 
        SuperscriptBox["m2", "3"]]}], 
      SuperscriptBox["R12", "3"]], "+", 
     FractionBox[
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         RowBox[{"30", " ", 
          SuperscriptBox["x12", "2"]}], 
         SuperscriptBox["m1", "3"]]}], "-", 
       FractionBox[
        RowBox[{"30", " ", 
         SuperscriptBox["x12", "2"]}], 
        SuperscriptBox["m2", "3"]], "-", 
       FractionBox[
        RowBox[{"30", " ", 
         SuperscriptBox["y12", "2"]}], 
        SuperscriptBox["m1", "3"]], "-", 
       FractionBox[
        RowBox[{"30", " ", 
         SuperscriptBox["y12", "2"]}], 
        SuperscriptBox["m2", "3"]], "-", 
       FractionBox[
        RowBox[{"30", " ", 
         SuperscriptBox["z12", "2"]}], 
        SuperscriptBox["m1", "3"]], "-", 
       FractionBox[
        RowBox[{"30", " ", 
         SuperscriptBox["z12", "2"]}], 
        SuperscriptBox["m2", "3"]]}], 
      SuperscriptBox["R12", "5"]], "+", 
     FractionBox[
      RowBox[{
       FractionBox[
        RowBox[{"15", " ", 
         SuperscriptBox["x12", "4"]}], 
        SuperscriptBox["m1", "3"]], "+", 
       FractionBox[
        RowBox[{"15", " ", 
         SuperscriptBox["x12", "4"]}], 
        SuperscriptBox["m2", "3"]], "+", 
       FractionBox[
        RowBox[{"30", " ", 
         SuperscriptBox["x12", "2"], " ", 
         SuperscriptBox["y12", "2"]}], 
        SuperscriptBox["m1", "3"]], "+", 
       FractionBox[
        RowBox[{"30", " ", 
         SuperscriptBox["x12", "2"], " ", 
         SuperscriptBox["y12", "2"]}], 
        SuperscriptBox["m2", "3"]], "+", 
       FractionBox[
        RowBox[{"15", " ", 
         SuperscriptBox["y12", "4"]}], 
        SuperscriptBox["m1", "3"]], "+", 
       FractionBox[
        RowBox[{"15", " ", 
         SuperscriptBox["y12", "4"]}], 
        SuperscriptBox["m2", "3"]], "+", 
       FractionBox[
        RowBox[{"30", " ", 
         SuperscriptBox["x12", "2"], " ", 
         SuperscriptBox["z12", "2"]}], 
        SuperscriptBox["m1", "3"]], "+", 
       FractionBox[
        RowBox[{"30", " ", 
         SuperscriptBox["x12", "2"], " ", 
         SuperscriptBox["z12", "2"]}], 
        SuperscriptBox["m2", "3"]], "+", 
       FractionBox[
        RowBox[{"30", " ", 
         SuperscriptBox["y12", "2"], " ", 
         SuperscriptBox["z12", "2"]}], 
        SuperscriptBox["m1", "3"]], "+", 
       FractionBox[
        RowBox[{"30", " ", 
         SuperscriptBox["y12", "2"], " ", 
         SuperscriptBox["z12", "2"]}], 
        SuperscriptBox["m2", "3"]], "+", 
       FractionBox[
        RowBox[{"15", " ", 
         SuperscriptBox["z12", "4"]}], 
        SuperscriptBox["m1", "3"]], "+", 
       FractionBox[
        RowBox[{"15", " ", 
         SuperscriptBox["z12", "4"]}], 
        SuperscriptBox["m2", "3"]]}], 
      SuperscriptBox["R12", "7"]], "+", 
     FractionBox[
      RowBox[{
       SuperscriptBox["b", "3"], " ", 
       RowBox[{"(", 
        RowBox[{
         FractionBox[
          RowBox[{"4", " ", "x12", " ", 
           SuperscriptBox["x13", "3"]}], 
          SuperscriptBox["m1", "3"]], "+", 
         FractionBox[
          RowBox[{"4", " ", 
           SuperscriptBox["x13", "2"], " ", "y12", " ", "y13"}], 
          SuperscriptBox["m1", "3"]], "+", 
         FractionBox[
          RowBox[{"4", " ", "x12", " ", "x13", " ", 
           SuperscriptBox["y13", "2"]}], 
          SuperscriptBox["m1", "3"]], "+", 
         FractionBox[
          RowBox[{"4", " ", "y12", " ", 
           SuperscriptBox["y13", "3"]}], 
          SuperscriptBox["m1", "3"]], "+", 
         FractionBox[
          RowBox[{"4", " ", 
           SuperscriptBox["x13", "2"], " ", "z12", " ", "z13"}], 
          SuperscriptBox["m1", "3"]], "+", 
         FractionBox[
          RowBox[{"4", " ", 
           SuperscriptBox["y13", "2"], " ", "z12", " ", "z13"}], 
          SuperscriptBox["m1", "3"]], "+", 
         FractionBox[
          RowBox[{"4", " ", "x12", " ", "x13", " ", 
           SuperscriptBox["z13", "2"]}], 
          SuperscriptBox["m1", "3"]], "+", 
         FractionBox[
          RowBox[{"4", " ", "y12", " ", "y13", " ", 
           SuperscriptBox["z13", "2"]}], 
          SuperscriptBox["m1", "3"]], "+", 
         FractionBox[
          RowBox[{"4", " ", "z12", " ", 
           SuperscriptBox["z13", "3"]}], 
          SuperscriptBox["m1", "3"]]}], ")"}]}], 
      RowBox[{"R12", " ", 
       SuperscriptBox["R13", "3"]}]], "+", 
     RowBox[{"b", " ", 
      RowBox[{"(", 
       RowBox[{
        FractionBox[
         RowBox[{
          FractionBox[
           RowBox[{"12", " ", 
            SuperscriptBox["x12", "3"], " ", "x13"}], 
           SuperscriptBox["m1", "3"]], "+", 
          FractionBox[
           RowBox[{"12", " ", "x12", " ", "x13", " ", 
            SuperscriptBox["y12", "2"]}], 
           SuperscriptBox["m1", "3"]], "+", 
          FractionBox[
           RowBox[{"12", " ", 
            SuperscriptBox["x12", "2"], " ", "y12", " ", "y13"}], 
           SuperscriptBox["m1", "3"]], "+", 
          FractionBox[
           RowBox[{"12", " ", 
            SuperscriptBox["y12", "3"], " ", "y13"}], 
           SuperscriptBox["m1", "3"]], "+", 
          FractionBox[
           RowBox[{"12", " ", "x12", " ", "x13", " ", 
            SuperscriptBox["z12", "2"]}], 
           SuperscriptBox["m1", "3"]], "+", 
          FractionBox[
           RowBox[{"12", " ", "y12", " ", "y13", " ", 
            SuperscriptBox["z12", "2"]}], 
           SuperscriptBox["m1", "3"]], "+", 
          FractionBox[
           RowBox[{"12", " ", 
            SuperscriptBox["x12", "2"], " ", "z12", " ", "z13"}], 
           SuperscriptBox["m1", "3"]], "+", 
          FractionBox[
           RowBox[{"12", " ", 
            SuperscriptBox["y12", "2"], " ", "z12", " ", "z13"}], 
           SuperscriptBox["m1", "3"]], "+", 
          FractionBox[
           RowBox[{"12", " ", 
            SuperscriptBox["z12", "3"], " ", "z13"}], 
           SuperscriptBox["m1", "3"]]}], 
         RowBox[{
          SuperscriptBox["R12", "5"], " ", "R13"}]], "+", 
        FractionBox[
         RowBox[{
          FractionBox[
           RowBox[{
            RowBox[{"-", 
             FractionBox[
              RowBox[{"10", " ", 
               SuperscriptBox["x12", "2"]}], 
              SuperscriptBox["m1", "3"]]}], "-", 
            FractionBox[
             RowBox[{"20", " ", "x12", " ", "x13"}], 
             SuperscriptBox["m1", "3"]], "-", 
            FractionBox[
             RowBox[{"10", " ", 
              SuperscriptBox["y12", "2"]}], 
             SuperscriptBox["m1", "3"]], "-", 
            FractionBox[
             RowBox[{"20", " ", "y12", " ", "y13"}], 
             SuperscriptBox["m1", "3"]], "-", 
            FractionBox[
             RowBox[{"10", " ", 
              SuperscriptBox["z12", "2"]}], 
             SuperscriptBox["m1", "3"]], "-", 
            FractionBox[
             RowBox[{"20", " ", "z12", " ", "z13"}], 
             SuperscriptBox["m1", "3"]]}], "R13"], "+", 
          FractionBox[
           RowBox[{
            FractionBox[
             RowBox[{"6", " ", 
              SuperscriptBox["x12", "2"], " ", 
              SuperscriptBox["x13", "2"]}], 
             SuperscriptBox["m1", "3"]], "+", 
            FractionBox[
             RowBox[{"2", " ", 
              SuperscriptBox["x13", "2"], " ", 
              SuperscriptBox["y12", "2"]}], 
             SuperscriptBox["m1", "3"]], "+", 
            FractionBox[
             RowBox[{"8", " ", "x12", " ", "x13", " ", "y12", " ", "y13"}], 
             SuperscriptBox["m1", "3"]], "+", 
            FractionBox[
             RowBox[{"2", " ", 
              SuperscriptBox["x12", "2"], " ", 
              SuperscriptBox["y13", "2"]}], 
             SuperscriptBox["m1", "3"]], "+", 
            FractionBox[
             RowBox[{"6", " ", 
              SuperscriptBox["y12", "2"], " ", 
              SuperscriptBox["y13", "2"]}], 
             SuperscriptBox["m1", "3"]], "+", 
            FractionBox[
             RowBox[{"2", " ", 
              SuperscriptBox["x13", "2"], " ", 
              SuperscriptBox["z12", "2"]}], 
             SuperscriptBox["m1", "3"]], "+", 
            FractionBox[
             RowBox[{"2", " ", 
              SuperscriptBox["y13", "2"], " ", 
              SuperscriptBox["z12", "2"]}], 
             SuperscriptBox["m1", "3"]], "+", 
            FractionBox[
             RowBox[{"8", " ", "x12", " ", "x13", " ", "z12", " ", "z13"}], 
             SuperscriptBox["m1", "3"]], "+", 
            FractionBox[
             RowBox[{"8", " ", "y12", " ", "y13", " ", "z12", " ", "z13"}], 
             SuperscriptBox["m1", "3"]], "+", 
            FractionBox[
             RowBox[{"2", " ", 
              SuperscriptBox["x12", "2"], " ", 
              SuperscriptBox["z13", "2"]}], 
             SuperscriptBox["m1", "3"]], "+", 
            FractionBox[
             RowBox[{"2", " ", 
              SuperscriptBox["y12", "2"], " ", 
              SuperscriptBox["z13", "2"]}], 
             SuperscriptBox["m1", "3"]], "+", 
            FractionBox[
             RowBox[{"6", " ", 
              SuperscriptBox["z12", "2"], " ", 
              SuperscriptBox["z13", "2"]}], 
             SuperscriptBox["m1", "3"]]}], 
           SuperscriptBox["R13", "3"]]}], 
         SuperscriptBox["R12", "3"]], "+", 
        FractionBox[
         RowBox[{
          FractionBox["30", 
           RowBox[{
            SuperscriptBox["m1", "3"], " ", "R13"}]], "+", 
          FractionBox[
           RowBox[{
            RowBox[{"-", 
             FractionBox[
              RowBox[{"20", " ", "x12", " ", "x13"}], 
              SuperscriptBox["m1", "3"]]}], "-", 
            FractionBox[
             RowBox[{"10", " ", 
              SuperscriptBox["x13", "2"]}], 
             SuperscriptBox["m1", "3"]], "-", 
            FractionBox[
             RowBox[{"20", " ", "y12", " ", "y13"}], 
             SuperscriptBox["m1", "3"]], "-", 
            FractionBox[
             RowBox[{"10", " ", 
              SuperscriptBox["y13", "2"]}], 
             SuperscriptBox["m1", "3"]], "-", 
            FractionBox[
             RowBox[{"20", " ", "z12", " ", "z13"}], 
             SuperscriptBox["m1", "3"]], "-", 
            FractionBox[
             RowBox[{"10", " ", 
              SuperscriptBox["z13", "2"]}], 
             SuperscriptBox["m1", "3"]]}], 
           SuperscriptBox["R13", "3"]], "+", 
          FractionBox[
           RowBox[{
            FractionBox[
             RowBox[{"12", " ", "x12", " ", 
              SuperscriptBox["x13", "3"]}], 
             SuperscriptBox["m1", "3"]], "+", 
            FractionBox[
             RowBox[{"12", " ", 
              SuperscriptBox["x13", "2"], " ", "y12", " ", "y13"}], 
             SuperscriptBox["m1", "3"]], "+", 
            FractionBox[
             RowBox[{"12", " ", "x12", " ", "x13", " ", 
              SuperscriptBox["y13", "2"]}], 
             SuperscriptBox["m1", "3"]], "+", 
            FractionBox[
             RowBox[{"12", " ", "y12", " ", 
              SuperscriptBox["y13", "3"]}], 
             SuperscriptBox["m1", "3"]], "+", 
            FractionBox[
             RowBox[{"12", " ", 
              SuperscriptBox["x13", "2"], " ", "z12", " ", "z13"}], 
             SuperscriptBox["m1", "3"]], "+", 
            FractionBox[
             RowBox[{"12", " ", 
              SuperscriptBox["y13", "2"], " ", "z12", " ", "z13"}], 
             SuperscriptBox["m1", "3"]], "+", 
            FractionBox[
             RowBox[{"12", " ", "x12", " ", "x13", " ", 
              SuperscriptBox["z13", "2"]}], 
             SuperscriptBox["m1", "3"]], "+", 
            FractionBox[
             RowBox[{"12", " ", "y12", " ", "y13", " ", 
              SuperscriptBox["z13", "2"]}], 
             SuperscriptBox["m1", "3"]], "+", 
            FractionBox[
             RowBox[{"12", " ", "z12", " ", 
              SuperscriptBox["z13", "3"]}], 
             SuperscriptBox["m1", "3"]]}], 
           SuperscriptBox["R13", "5"]]}], "R12"]}], ")"}]}], "+", 
     RowBox[{
      SuperscriptBox["b", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        FractionBox[
         RowBox[{
          FractionBox[
           RowBox[{"6", " ", 
            SuperscriptBox["x12", "2"], " ", 
            SuperscriptBox["x13", "2"]}], 
           SuperscriptBox["m1", "3"]], "+", 
          FractionBox[
           RowBox[{"2", " ", 
            SuperscriptBox["x13", "2"], " ", 
            SuperscriptBox["y12", "2"]}], 
           SuperscriptBox["m1", "3"]], "+", 
          FractionBox[
           RowBox[{"8", " ", "x12", " ", "x13", " ", "y12", " ", "y13"}], 
           SuperscriptBox["m1", "3"]], "+", 
          FractionBox[
           RowBox[{"2", " ", 
            SuperscriptBox["x12", "2"], " ", 
            SuperscriptBox["y13", "2"]}], 
           SuperscriptBox["m1", "3"]], "+", 
          FractionBox[
           RowBox[{"6", " ", 
            SuperscriptBox["y12", "2"], " ", 
            SuperscriptBox["y13", "2"]}], 
           SuperscriptBox["m1", "3"]], "+", 
          FractionBox[
           RowBox[{"2", " ", 
            SuperscriptBox["x13", "2"], " ", 
            SuperscriptBox["z12", "2"]}], 
           SuperscriptBox["m1", "3"]], "+", 
          FractionBox[
           RowBox[{"2", " ", 
            SuperscriptBox["y13", "2"], " ", 
            SuperscriptBox["z12", "2"]}], 
           SuperscriptBox["m1", "3"]], "+", 
          FractionBox[
           RowBox[{"8", " ", "x12", " ", "x13", " ", "z12", " ", "z13"}], 
           SuperscriptBox["m1", "3"]], "+", 
          FractionBox[
           RowBox[{"8", " ", "y12", " ", "y13", " ", "z12", " ", "z13"}], 
           SuperscriptBox["m1", "3"]], "+", 
          FractionBox[
           RowBox[{"2", " ", 
            SuperscriptBox["x12", "2"], " ", 
            SuperscriptBox["z13", "2"]}], 
           SuperscriptBox["m1", "3"]], "+", 
          FractionBox[
           RowBox[{"2", " ", 
            SuperscriptBox["y12", "2"], " ", 
            SuperscriptBox["z13", "2"]}], 
           SuperscriptBox["m1", "3"]], "+", 
          FractionBox[
           RowBox[{"6", " ", 
            SuperscriptBox["z12", "2"], " ", 
            SuperscriptBox["z13", "2"]}], 
           SuperscriptBox["m1", "3"]]}], 
         RowBox[{
          SuperscriptBox["R12", "3"], " ", 
          SuperscriptBox["R13", "2"]}]], "+", 
        FractionBox[
         RowBox[{
          FractionBox[
           RowBox[{
            RowBox[{"-", 
             FractionBox[
              RowBox[{"20", " ", "x12", " ", "x13"}], 
              SuperscriptBox["m1", "3"]]}], "-", 
            FractionBox[
             RowBox[{"10", " ", 
              SuperscriptBox["x13", "2"]}], 
             SuperscriptBox["m1", "3"]], "-", 
            FractionBox[
             RowBox[{"20", " ", "y12", " ", "y13"}], 
             SuperscriptBox["m1", "3"]], "-", 
            FractionBox[
             RowBox[{"10", " ", 
              SuperscriptBox["y13", "2"]}], 
             SuperscriptBox["m1", "3"]], "-", 
            FractionBox[
             RowBox[{"20", " ", "z12", " ", "z13"}], 
             SuperscriptBox["m1", "3"]], "-", 
            FractionBox[
             RowBox[{"10", " ", 
              SuperscriptBox["z13", "2"]}], 
             SuperscriptBox["m1", "3"]]}], 
           SuperscriptBox["R13", "2"]], "+", 
          FractionBox[
           RowBox[{
            FractionBox[
             RowBox[{"12", " ", "x12", " ", 
              SuperscriptBox["x13", "3"]}], 
             SuperscriptBox["m1", "3"]], "+", 
            FractionBox[
             RowBox[{"12", " ", 
              SuperscriptBox["x13", "2"], " ", "y12", " ", "y13"}], 
             SuperscriptBox["m1", "3"]], "+", 
            FractionBox[
             RowBox[{"12", " ", "x12", " ", "x13", " ", 
              SuperscriptBox["y13", "2"]}], 
             SuperscriptBox["m1", "3"]], "+", 
            FractionBox[
             RowBox[{"12", " ", "y12", " ", 
              SuperscriptBox["y13", "3"]}], 
             SuperscriptBox["m1", "3"]], "+", 
            FractionBox[
             RowBox[{"12", " ", 
              SuperscriptBox["x13", "2"], " ", "z12", " ", "z13"}], 
             SuperscriptBox["m1", "3"]], "+", 
            FractionBox[
             RowBox[{"12", " ", 
              SuperscriptBox["y13", "2"], " ", "z12", " ", "z13"}], 
             SuperscriptBox["m1", "3"]], "+", 
            FractionBox[
             RowBox[{"12", " ", "x12", " ", "x13", " ", 
              SuperscriptBox["z13", "2"]}], 
             SuperscriptBox["m1", "3"]], "+", 
            FractionBox[
             RowBox[{"12", " ", "y12", " ", "y13", " ", 
              SuperscriptBox["z13", "2"]}], 
             SuperscriptBox["m1", "3"]], "+", 
            FractionBox[
             RowBox[{"12", " ", "z12", " ", 
              SuperscriptBox["z13", "3"]}], 
             SuperscriptBox["m1", "3"]]}], 
           SuperscriptBox["R13", "4"]]}], "R12"]}], ")"}]}], "+", 
     FractionBox[
      RowBox[{
       SuperscriptBox["c", "3"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", 
          FractionBox[
           RowBox[{"4", " ", "x12", " ", 
            SuperscriptBox["x23", "3"]}], 
           SuperscriptBox["m2", "3"]]}], "-", 
         FractionBox[
          RowBox[{"4", " ", 
           SuperscriptBox["x23", "2"], " ", "y12", " ", "y23"}], 
          SuperscriptBox["m2", "3"]], "-", 
         FractionBox[
          RowBox[{"4", " ", "x12", " ", "x23", " ", 
           SuperscriptBox["y23", "2"]}], 
          SuperscriptBox["m2", "3"]], "-", 
         FractionBox[
          RowBox[{"4", " ", "y12", " ", 
           SuperscriptBox["y23", "3"]}], 
          SuperscriptBox["m2", "3"]], "-", 
         FractionBox[
          RowBox[{"4", " ", 
           SuperscriptBox["x23", "2"], " ", "z12", " ", "z23"}], 
          SuperscriptBox["m2", "3"]], "-", 
         FractionBox[
          RowBox[{"4", " ", 
           SuperscriptBox["y23", "2"], " ", "z12", " ", "z23"}], 
          SuperscriptBox["m2", "3"]], "-", 
         FractionBox[
          RowBox[{"4", " ", "x12", " ", "x23", " ", 
           SuperscriptBox["z23", "2"]}], 
          SuperscriptBox["m2", "3"]], "-", 
         FractionBox[
          RowBox[{"4", " ", "y12", " ", "y23", " ", 
           SuperscriptBox["z23", "2"]}], 
          SuperscriptBox["m2", "3"]], "-", 
         FractionBox[
          RowBox[{"4", " ", "z12", " ", 
           SuperscriptBox["z23", "3"]}], 
          SuperscriptBox["m2", "3"]]}], ")"}]}], 
      RowBox[{"R12", " ", 
       SuperscriptBox["R23", "3"]}]], "+", 
     RowBox[{"c", " ", 
      RowBox[{"(", 
       RowBox[{
        FractionBox[
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{"12", " ", 
             SuperscriptBox["x12", "3"], " ", "x23"}], 
            SuperscriptBox["m2", "3"]]}], "-", 
          FractionBox[
           RowBox[{"12", " ", "x12", " ", "x23", " ", 
            SuperscriptBox["y12", "2"]}], 
           SuperscriptBox["m2", "3"]], "-", 
          FractionBox[
           RowBox[{"12", " ", 
            SuperscriptBox["x12", "2"], " ", "y12", " ", "y23"}], 
           SuperscriptBox["m2", "3"]], "-", 
          FractionBox[
           RowBox[{"12", " ", 
            SuperscriptBox["y12", "3"], " ", "y23"}], 
           SuperscriptBox["m2", "3"]], "-", 
          FractionBox[
           RowBox[{"12", " ", "x12", " ", "x23", " ", 
            SuperscriptBox["z12", "2"]}], 
           SuperscriptBox["m2", "3"]], "-", 
          FractionBox[
           RowBox[{"12", " ", "y12", " ", "y23", " ", 
            SuperscriptBox["z12", "2"]}], 
           SuperscriptBox["m2", "3"]], "-", 
          FractionBox[
           RowBox[{"12", " ", 
            SuperscriptBox["x12", "2"], " ", "z12", " ", "z23"}], 
           SuperscriptBox["m2", "3"]], "-", 
          FractionBox[
           RowBox[{"12", " ", 
            SuperscriptBox["y12", "2"], " ", "z12", " ", "z23"}], 
           SuperscriptBox["m2", "3"]], "-", 
          FractionBox[
           RowBox[{"12", " ", 
            SuperscriptBox["z12", "3"], " ", "z23"}], 
           SuperscriptBox["m2", "3"]]}], 
         RowBox[{
          SuperscriptBox["R12", "5"], " ", "R23"}]], "+", 
        FractionBox[
         RowBox[{
          FractionBox[
           RowBox[{
            RowBox[{"-", 
             FractionBox[
              RowBox[{"10", " ", 
               SuperscriptBox["x12", "2"]}], 
              SuperscriptBox["m2", "3"]]}], "+", 
            FractionBox[
             RowBox[{"20", " ", "x12", " ", "x23"}], 
             SuperscriptBox["m2", "3"]], "-", 
            FractionBox[
             RowBox[{"10", " ", 
              SuperscriptBox["y12", "2"]}], 
             SuperscriptBox["m2", "3"]], "+", 
            FractionBox[
             RowBox[{"20", " ", "y12", " ", "y23"}], 
             SuperscriptBox["m2", "3"]], "-", 
            FractionBox[
             RowBox[{"10", " ", 
              SuperscriptBox["z12", "2"]}], 
             SuperscriptBox["m2", "3"]], "+", 
            FractionBox[
             RowBox[{"20", " ", "z12", " ", "z23"}], 
             SuperscriptBox["m2", "3"]]}], "R23"], "+", 
          FractionBox[
           RowBox[{
            FractionBox[
             RowBox[{"6", " ", 
              SuperscriptBox["x12", "2"], " ", 
              SuperscriptBox["x23", "2"]}], 
             SuperscriptBox["m2", "3"]], "+", 
            FractionBox[
             RowBox[{"2", " ", 
              SuperscriptBox["x23", "2"], " ", 
              SuperscriptBox["y12", "2"]}], 
             SuperscriptBox["m2", "3"]], "+", 
            FractionBox[
             RowBox[{"8", " ", "x12", " ", "x23", " ", "y12", " ", "y23"}], 
             SuperscriptBox["m2", "3"]], "+", 
            FractionBox[
             RowBox[{"2", " ", 
              SuperscriptBox["x12", "2"], " ", 
              SuperscriptBox["y23", "2"]}], 
             SuperscriptBox["m2", "3"]], "+", 
            FractionBox[
             RowBox[{"6", " ", 
              SuperscriptBox["y12", "2"], " ", 
              SuperscriptBox["y23", "2"]}], 
             SuperscriptBox["m2", "3"]], "+", 
            FractionBox[
             RowBox[{"2", " ", 
              SuperscriptBox["x23", "2"], " ", 
              SuperscriptBox["z12", "2"]}], 
             SuperscriptBox["m2", "3"]], "+", 
            FractionBox[
             RowBox[{"2", " ", 
              SuperscriptBox["y23", "2"], " ", 
              SuperscriptBox["z12", "2"]}], 
             SuperscriptBox["m2", "3"]], "+", 
            FractionBox[
             RowBox[{"8", " ", "x12", " ", "x23", " ", "z12", " ", "z23"}], 
             SuperscriptBox["m2", "3"]], "+", 
            FractionBox[
             RowBox[{"8", " ", "y12", " ", "y23", " ", "z12", " ", "z23"}], 
             SuperscriptBox["m2", "3"]], "+", 
            FractionBox[
             RowBox[{"2", " ", 
              SuperscriptBox["x12", "2"], " ", 
              SuperscriptBox["z23", "2"]}], 
             SuperscriptBox["m2", "3"]], "+", 
            FractionBox[
             RowBox[{"2", " ", 
              SuperscriptBox["y12", "2"], " ", 
              SuperscriptBox["z23", "2"]}], 
             SuperscriptBox["m2", "3"]], "+", 
            FractionBox[
             RowBox[{"6", " ", 
              SuperscriptBox["z12", "2"], " ", 
              SuperscriptBox["z23", "2"]}], 
             SuperscriptBox["m2", "3"]]}], 
           SuperscriptBox["R23", "3"]]}], 
         SuperscriptBox["R12", "3"]], "+", 
        FractionBox[
         RowBox[{
          FractionBox["30", 
           RowBox[{
            SuperscriptBox["m2", "3"], " ", "R23"}]], "+", 
          FractionBox[
           RowBox[{
            FractionBox[
             RowBox[{"20", " ", "x12", " ", "x23"}], 
             SuperscriptBox["m2", "3"]], "-", 
            FractionBox[
             RowBox[{"10", " ", 
              SuperscriptBox["x23", "2"]}], 
             SuperscriptBox["m2", "3"]], "+", 
            FractionBox[
             RowBox[{"20", " ", "y12", " ", "y23"}], 
             SuperscriptBox["m2", "3"]], "-", 
            FractionBox[
             RowBox[{"10", " ", 
              SuperscriptBox["y23", "2"]}], 
             SuperscriptBox["m2", "3"]], "+", 
            FractionBox[
             RowBox[{"20", " ", "z12", " ", "z23"}], 
             SuperscriptBox["m2", "3"]], "-", 
            FractionBox[
             RowBox[{"10", " ", 
              SuperscriptBox["z23", "2"]}], 
             SuperscriptBox["m2", "3"]]}], 
           SuperscriptBox["R23", "3"]], "+", 
          FractionBox[
           RowBox[{
            RowBox[{"-", 
             FractionBox[
              RowBox[{"12", " ", "x12", " ", 
               SuperscriptBox["x23", "3"]}], 
              SuperscriptBox["m2", "3"]]}], "-", 
            FractionBox[
             RowBox[{"12", " ", 
              SuperscriptBox["x23", "2"], " ", "y12", " ", "y23"}], 
             SuperscriptBox["m2", "3"]], "-", 
            FractionBox[
             RowBox[{"12", " ", "x12", " ", "x23", " ", 
              SuperscriptBox["y23", "2"]}], 
             SuperscriptBox["m2", "3"]], "-", 
            FractionBox[
             RowBox[{"12", " ", "y12", " ", 
              SuperscriptBox["y23", "3"]}], 
             SuperscriptBox["m2", "3"]], "-", 
            FractionBox[
             RowBox[{"12", " ", 
              SuperscriptBox["x23", "2"], " ", "z12", " ", "z23"}], 
             SuperscriptBox["m2", "3"]], "-", 
            FractionBox[
             RowBox[{"12", " ", 
              SuperscriptBox["y23", "2"], " ", "z12", " ", "z23"}], 
             SuperscriptBox["m2", "3"]], "-", 
            FractionBox[
             RowBox[{"12", " ", "x12", " ", "x23", " ", 
              SuperscriptBox["z23", "2"]}], 
             SuperscriptBox["m2", "3"]], "-", 
            FractionBox[
             RowBox[{"12", " ", "y12", " ", "y23", " ", 
              SuperscriptBox["z23", "2"]}], 
             SuperscriptBox["m2", "3"]], "-", 
            FractionBox[
             RowBox[{"12", " ", "z12", " ", 
              SuperscriptBox["z23", "3"]}], 
             SuperscriptBox["m2", "3"]]}], 
           SuperscriptBox["R23", "5"]]}], "R12"]}], ")"}]}], "+", 
     RowBox[{
      SuperscriptBox["c", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        FractionBox[
         RowBox[{
          FractionBox[
           RowBox[{"6", " ", 
            SuperscriptBox["x12", "2"], " ", 
            SuperscriptBox["x23", "2"]}], 
           SuperscriptBox["m2", "3"]], "+", 
          FractionBox[
           RowBox[{"2", " ", 
            SuperscriptBox["x23", "2"], " ", 
            SuperscriptBox["y12", "2"]}], 
           SuperscriptBox["m2", "3"]], "+", 
          FractionBox[
           RowBox[{"8", " ", "x12", " ", "x23", " ", "y12", " ", "y23"}], 
           SuperscriptBox["m2", "3"]], "+", 
          FractionBox[
           RowBox[{"2", " ", 
            SuperscriptBox["x12", "2"], " ", 
            SuperscriptBox["y23", "2"]}], 
           SuperscriptBox["m2", "3"]], "+", 
          FractionBox[
           RowBox[{"6", " ", 
            SuperscriptBox["y12", "2"], " ", 
            SuperscriptBox["y23", "2"]}], 
           SuperscriptBox["m2", "3"]], "+", 
          FractionBox[
           RowBox[{"2", " ", 
            SuperscriptBox["x23", "2"], " ", 
            SuperscriptBox["z12", "2"]}], 
           SuperscriptBox["m2", "3"]], "+", 
          FractionBox[
           RowBox[{"2", " ", 
            SuperscriptBox["y23", "2"], " ", 
            SuperscriptBox["z12", "2"]}], 
           SuperscriptBox["m2", "3"]], "+", 
          FractionBox[
           RowBox[{"8", " ", "x12", " ", "x23", " ", "z12", " ", "z23"}], 
           SuperscriptBox["m2", "3"]], "+", 
          FractionBox[
           RowBox[{"8", " ", "y12", " ", "y23", " ", "z12", " ", "z23"}], 
           SuperscriptBox["m2", "3"]], "+", 
          FractionBox[
           RowBox[{"2", " ", 
            SuperscriptBox["x12", "2"], " ", 
            SuperscriptBox["z23", "2"]}], 
           SuperscriptBox["m2", "3"]], "+", 
          FractionBox[
           RowBox[{"2", " ", 
            SuperscriptBox["y12", "2"], " ", 
            SuperscriptBox["z23", "2"]}], 
           SuperscriptBox["m2", "3"]], "+", 
          FractionBox[
           RowBox[{"6", " ", 
            SuperscriptBox["z12", "2"], " ", 
            SuperscriptBox["z23", "2"]}], 
           SuperscriptBox["m2", "3"]]}], 
         RowBox[{
          SuperscriptBox["R12", "3"], " ", 
          SuperscriptBox["R23", "2"]}]], "+", 
        FractionBox[
         RowBox[{
          FractionBox[
           RowBox[{
            FractionBox[
             RowBox[{"20", " ", "x12", " ", "x23"}], 
             SuperscriptBox["m2", "3"]], "-", 
            FractionBox[
             RowBox[{"10", " ", 
              SuperscriptBox["x23", "2"]}], 
             SuperscriptBox["m2", "3"]], "+", 
            FractionBox[
             RowBox[{"20", " ", "y12", " ", "y23"}], 
             SuperscriptBox["m2", "3"]], "-", 
            FractionBox[
             RowBox[{"10", " ", 
              SuperscriptBox["y23", "2"]}], 
             SuperscriptBox["m2", "3"]], "+", 
            FractionBox[
             RowBox[{"20", " ", "z12", " ", "z23"}], 
             SuperscriptBox["m2", "3"]], "-", 
            FractionBox[
             RowBox[{"10", " ", 
              SuperscriptBox["z23", "2"]}], 
             SuperscriptBox["m2", "3"]]}], 
           SuperscriptBox["R23", "2"]], "+", 
          FractionBox[
           RowBox[{
            RowBox[{"-", 
             FractionBox[
              RowBox[{"12", " ", "x12", " ", 
               SuperscriptBox["x23", "3"]}], 
              SuperscriptBox["m2", "3"]]}], "-", 
            FractionBox[
             RowBox[{"12", " ", 
              SuperscriptBox["x23", "2"], " ", "y12", " ", "y23"}], 
             SuperscriptBox["m2", "3"]], "-", 
            FractionBox[
             RowBox[{"12", " ", "x12", " ", "x23", " ", 
              SuperscriptBox["y23", "2"]}], 
             SuperscriptBox["m2", "3"]], "-", 
            FractionBox[
             RowBox[{"12", " ", "y12", " ", 
              SuperscriptBox["y23", "3"]}], 
             SuperscriptBox["m2", "3"]], "-", 
            FractionBox[
             RowBox[{"12", " ", 
              SuperscriptBox["x23", "2"], " ", "z12", " ", "z23"}], 
             SuperscriptBox["m2", "3"]], "-", 
            FractionBox[
             RowBox[{"12", " ", 
              SuperscriptBox["y23", "2"], " ", "z12", " ", "z23"}], 
             SuperscriptBox["m2", "3"]], "-", 
            FractionBox[
             RowBox[{"12", " ", "x12", " ", "x23", " ", 
              SuperscriptBox["z23", "2"]}], 
             SuperscriptBox["m2", "3"]], "-", 
            FractionBox[
             RowBox[{"12", " ", "y12", " ", "y23", " ", 
              SuperscriptBox["z23", "2"]}], 
             SuperscriptBox["m2", "3"]], "-", 
            FractionBox[
             RowBox[{"12", " ", "z12", " ", 
              SuperscriptBox["z23", "3"]}], 
             SuperscriptBox["m2", "3"]]}], 
           SuperscriptBox["R23", "4"]]}], "R12"]}], ")"}]}]}], ")"}]}], "+", 
  RowBox[{"b", " ", 
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{
       FractionBox["15", 
        SuperscriptBox["m1", "3"]], "+", 
       FractionBox["15", 
        SuperscriptBox["m3", "3"]]}], 
      SuperscriptBox["R13", "3"]], "+", 
     FractionBox[
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         RowBox[{"30", " ", 
          SuperscriptBox["x13", "2"]}], 
         SuperscriptBox["m1", "3"]]}], "-", 
       FractionBox[
        RowBox[{"30", " ", 
         SuperscriptBox["x13", "2"]}], 
        SuperscriptBox["m3", "3"]], "-", 
       FractionBox[
        RowBox[{"30", " ", 
         SuperscriptBox["y13", "2"]}], 
        SuperscriptBox["m1", "3"]], "-", 
       FractionBox[
        RowBox[{"30", " ", 
         SuperscriptBox["y13", "2"]}], 
        SuperscriptBox["m3", "3"]], "-", 
       FractionBox[
        RowBox[{"30", " ", 
         SuperscriptBox["z13", "2"]}], 
        SuperscriptBox["m1", "3"]], "-", 
       FractionBox[
        RowBox[{"30", " ", 
         SuperscriptBox["z13", "2"]}], 
        SuperscriptBox["m3", "3"]]}], 
      SuperscriptBox["R13", "5"]], "+", 
     FractionBox[
      RowBox[{
       FractionBox[
        RowBox[{"15", " ", 
         SuperscriptBox["x13", "4"]}], 
        SuperscriptBox["m1", "3"]], "+", 
       FractionBox[
        RowBox[{"15", " ", 
         SuperscriptBox["x13", "4"]}], 
        SuperscriptBox["m3", "3"]], "+", 
       FractionBox[
        RowBox[{"30", " ", 
         SuperscriptBox["x13", "2"], " ", 
         SuperscriptBox["y13", "2"]}], 
        SuperscriptBox["m1", "3"]], "+", 
       FractionBox[
        RowBox[{"30", " ", 
         SuperscriptBox["x13", "2"], " ", 
         SuperscriptBox["y13", "2"]}], 
        SuperscriptBox["m3", "3"]], "+", 
       FractionBox[
        RowBox[{"15", " ", 
         SuperscriptBox["y13", "4"]}], 
        SuperscriptBox["m1", "3"]], "+", 
       FractionBox[
        RowBox[{"15", " ", 
         SuperscriptBox["y13", "4"]}], 
        SuperscriptBox["m3", "3"]], "+", 
       FractionBox[
        RowBox[{"30", " ", 
         SuperscriptBox["x13", "2"], " ", 
         SuperscriptBox["z13", "2"]}], 
        SuperscriptBox["m1", "3"]], "+", 
       FractionBox[
        RowBox[{"30", " ", 
         SuperscriptBox["x13", "2"], " ", 
         SuperscriptBox["z13", "2"]}], 
        SuperscriptBox["m3", "3"]], "+", 
       FractionBox[
        RowBox[{"30", " ", 
         SuperscriptBox["y13", "2"], " ", 
         SuperscriptBox["z13", "2"]}], 
        SuperscriptBox["m1", "3"]], "+", 
       FractionBox[
        RowBox[{"30", " ", 
         SuperscriptBox["y13", "2"], " ", 
         SuperscriptBox["z13", "2"]}], 
        SuperscriptBox["m3", "3"]], "+", 
       FractionBox[
        RowBox[{"15", " ", 
         SuperscriptBox["z13", "4"]}], 
        SuperscriptBox["m1", "3"]], "+", 
       FractionBox[
        RowBox[{"15", " ", 
         SuperscriptBox["z13", "4"]}], 
        SuperscriptBox["m3", "3"]]}], 
      SuperscriptBox["R13", "7"]], "+", 
     FractionBox[
      RowBox[{
       SuperscriptBox["c", "3"], " ", 
       RowBox[{"(", 
        RowBox[{
         FractionBox[
          RowBox[{"4", " ", "x13", " ", 
           SuperscriptBox["x23", "3"]}], 
          SuperscriptBox["m3", "3"]], "+", 
         FractionBox[
          RowBox[{"4", " ", 
           SuperscriptBox["x23", "2"], " ", "y13", " ", "y23"}], 
          SuperscriptBox["m3", "3"]], "+", 
         FractionBox[
          RowBox[{"4", " ", "x13", " ", "x23", " ", 
           SuperscriptBox["y23", "2"]}], 
          SuperscriptBox["m3", "3"]], "+", 
         FractionBox[
          RowBox[{"4", " ", "y13", " ", 
           SuperscriptBox["y23", "3"]}], 
          SuperscriptBox["m3", "3"]], "+", 
         FractionBox[
          RowBox[{"4", " ", 
           SuperscriptBox["x23", "2"], " ", "z13", " ", "z23"}], 
          SuperscriptBox["m3", "3"]], "+", 
         FractionBox[
          RowBox[{"4", " ", 
           SuperscriptBox["y23", "2"], " ", "z13", " ", "z23"}], 
          SuperscriptBox["m3", "3"]], "+", 
         FractionBox[
          RowBox[{"4", " ", "x13", " ", "x23", " ", 
           SuperscriptBox["z23", "2"]}], 
          SuperscriptBox["m3", "3"]], "+", 
         FractionBox[
          RowBox[{"4", " ", "y13", " ", "y23", " ", 
           SuperscriptBox["z23", "2"]}], 
          SuperscriptBox["m3", "3"]], "+", 
         FractionBox[
          RowBox[{"4", " ", "z13", " ", 
           SuperscriptBox["z23", "3"]}], 
          SuperscriptBox["m3", "3"]]}], ")"}]}], 
      RowBox[{"R13", " ", 
       SuperscriptBox["R23", "3"]}]], "+", 
     RowBox[{"c", " ", 
      RowBox[{"(", 
       RowBox[{
        FractionBox[
         RowBox[{
          FractionBox[
           RowBox[{"12", " ", 
            SuperscriptBox["x13", "3"], " ", "x23"}], 
           SuperscriptBox["m3", "3"]], "+", 
          FractionBox[
           RowBox[{"12", " ", "x13", " ", "x23", " ", 
            SuperscriptBox["y13", "2"]}], 
           SuperscriptBox["m3", "3"]], "+", 
          FractionBox[
           RowBox[{"12", " ", 
            SuperscriptBox["x13", "2"], " ", "y13", " ", "y23"}], 
           SuperscriptBox["m3", "3"]], "+", 
          FractionBox[
           RowBox[{"12", " ", 
            SuperscriptBox["y13", "3"], " ", "y23"}], 
           SuperscriptBox["m3", "3"]], "+", 
          FractionBox[
           RowBox[{"12", " ", "x13", " ", "x23", " ", 
            SuperscriptBox["z13", "2"]}], 
           SuperscriptBox["m3", "3"]], "+", 
          FractionBox[
           RowBox[{"12", " ", "y13", " ", "y23", " ", 
            SuperscriptBox["z13", "2"]}], 
           SuperscriptBox["m3", "3"]], "+", 
          FractionBox[
           RowBox[{"12", " ", 
            SuperscriptBox["x13", "2"], " ", "z13", " ", "z23"}], 
           SuperscriptBox["m3", "3"]], "+", 
          FractionBox[
           RowBox[{"12", " ", 
            SuperscriptBox["y13", "2"], " ", "z13", " ", "z23"}], 
           SuperscriptBox["m3", "3"]], "+", 
          FractionBox[
           RowBox[{"12", " ", 
            SuperscriptBox["z13", "3"], " ", "z23"}], 
           SuperscriptBox["m3", "3"]]}], 
         RowBox[{
          SuperscriptBox["R13", "5"], " ", "R23"}]], "+", 
        FractionBox[
         RowBox[{
          FractionBox[
           RowBox[{
            RowBox[{"-", 
             FractionBox[
              RowBox[{"10", " ", 
               SuperscriptBox["x13", "2"]}], 
              SuperscriptBox["m3", "3"]]}], "-", 
            FractionBox[
             RowBox[{"20", " ", "x13", " ", "x23"}], 
             SuperscriptBox["m3", "3"]], "-", 
            FractionBox[
             RowBox[{"10", " ", 
              SuperscriptBox["y13", "2"]}], 
             SuperscriptBox["m3", "3"]], "-", 
            FractionBox[
             RowBox[{"20", " ", "y13", " ", "y23"}], 
             SuperscriptBox["m3", "3"]], "-", 
            FractionBox[
             RowBox[{"10", " ", 
              SuperscriptBox["z13", "2"]}], 
             SuperscriptBox["m3", "3"]], "-", 
            FractionBox[
             RowBox[{"20", " ", "z13", " ", "z23"}], 
             SuperscriptBox["m3", "3"]]}], "R23"], "+", 
          FractionBox[
           RowBox[{
            FractionBox[
             RowBox[{"6", " ", 
              SuperscriptBox["x13", "2"], " ", 
              SuperscriptBox["x23", "2"]}], 
             SuperscriptBox["m3", "3"]], "+", 
            FractionBox[
             RowBox[{"2", " ", 
              SuperscriptBox["x23", "2"], " ", 
              SuperscriptBox["y13", "2"]}], 
             SuperscriptBox["m3", "3"]], "+", 
            FractionBox[
             RowBox[{"8", " ", "x13", " ", "x23", " ", "y13", " ", "y23"}], 
             SuperscriptBox["m3", "3"]], "+", 
            FractionBox[
             RowBox[{"2", " ", 
              SuperscriptBox["x13", "2"], " ", 
              SuperscriptBox["y23", "2"]}], 
             SuperscriptBox["m3", "3"]], "+", 
            FractionBox[
             RowBox[{"6", " ", 
              SuperscriptBox["y13", "2"], " ", 
              SuperscriptBox["y23", "2"]}], 
             SuperscriptBox["m3", "3"]], "+", 
            FractionBox[
             RowBox[{"2", " ", 
              SuperscriptBox["x23", "2"], " ", 
              SuperscriptBox["z13", "2"]}], 
             SuperscriptBox["m3", "3"]], "+", 
            FractionBox[
             RowBox[{"2", " ", 
              SuperscriptBox["y23", "2"], " ", 
              SuperscriptBox["z13", "2"]}], 
             SuperscriptBox["m3", "3"]], "+", 
            FractionBox[
             RowBox[{"8", " ", "x13", " ", "x23", " ", "z13", " ", "z23"}], 
             SuperscriptBox["m3", "3"]], "+", 
            FractionBox[
             RowBox[{"8", " ", "y13", " ", "y23", " ", "z13", " ", "z23"}], 
             SuperscriptBox["m3", "3"]], "+", 
            FractionBox[
             RowBox[{"2", " ", 
              SuperscriptBox["x13", "2"], " ", 
              SuperscriptBox["z23", "2"]}], 
             SuperscriptBox["m3", "3"]], "+", 
            FractionBox[
             RowBox[{"2", " ", 
              SuperscriptBox["y13", "2"], " ", 
              SuperscriptBox["z23", "2"]}], 
             SuperscriptBox["m3", "3"]], "+", 
            FractionBox[
             RowBox[{"6", " ", 
              SuperscriptBox["z13", "2"], " ", 
              SuperscriptBox["z23", "2"]}], 
             SuperscriptBox["m3", "3"]]}], 
           SuperscriptBox["R23", "3"]]}], 
         SuperscriptBox["R13", "3"]], "+", 
        FractionBox[
         RowBox[{
          FractionBox["30", 
           RowBox[{
            SuperscriptBox["m3", "3"], " ", "R23"}]], "+", 
          FractionBox[
           RowBox[{
            RowBox[{"-", 
             FractionBox[
              RowBox[{"20", " ", "x13", " ", "x23"}], 
              SuperscriptBox["m3", "3"]]}], "-", 
            FractionBox[
             RowBox[{"10", " ", 
              SuperscriptBox["x23", "2"]}], 
             SuperscriptBox["m3", "3"]], "-", 
            FractionBox[
             RowBox[{"20", " ", "y13", " ", "y23"}], 
             SuperscriptBox["m3", "3"]], "-", 
            FractionBox[
             RowBox[{"10", " ", 
              SuperscriptBox["y23", "2"]}], 
             SuperscriptBox["m3", "3"]], "-", 
            FractionBox[
             RowBox[{"20", " ", "z13", " ", "z23"}], 
             SuperscriptBox["m3", "3"]], "-", 
            FractionBox[
             RowBox[{"10", " ", 
              SuperscriptBox["z23", "2"]}], 
             SuperscriptBox["m3", "3"]]}], 
           SuperscriptBox["R23", "3"]], "+", 
          FractionBox[
           RowBox[{
            FractionBox[
             RowBox[{"12", " ", "x13", " ", 
              SuperscriptBox["x23", "3"]}], 
             SuperscriptBox["m3", "3"]], "+", 
            FractionBox[
             RowBox[{"12", " ", 
              SuperscriptBox["x23", "2"], " ", "y13", " ", "y23"}], 
             SuperscriptBox["m3", "3"]], "+", 
            FractionBox[
             RowBox[{"12", " ", "x13", " ", "x23", " ", 
              SuperscriptBox["y23", "2"]}], 
             SuperscriptBox["m3", "3"]], "+", 
            FractionBox[
             RowBox[{"12", " ", "y13", " ", 
              SuperscriptBox["y23", "3"]}], 
             SuperscriptBox["m3", "3"]], "+", 
            FractionBox[
             RowBox[{"12", " ", 
              SuperscriptBox["x23", "2"], " ", "z13", " ", "z23"}], 
             SuperscriptBox["m3", "3"]], "+", 
            FractionBox[
             RowBox[{"12", " ", 
              SuperscriptBox["y23", "2"], " ", "z13", " ", "z23"}], 
             SuperscriptBox["m3", "3"]], "+", 
            FractionBox[
             RowBox[{"12", " ", "x13", " ", "x23", " ", 
              SuperscriptBox["z23", "2"]}], 
             SuperscriptBox["m3", "3"]], "+", 
            FractionBox[
             RowBox[{"12", " ", "y13", " ", "y23", " ", 
              SuperscriptBox["z23", "2"]}], 
             SuperscriptBox["m3", "3"]], "+", 
            FractionBox[
             RowBox[{"12", " ", "z13", " ", 
              SuperscriptBox["z23", "3"]}], 
             SuperscriptBox["m3", "3"]]}], 
           SuperscriptBox["R23", "5"]]}], "R13"]}], ")"}]}], "+", 
     RowBox[{
      SuperscriptBox["c", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        FractionBox[
         RowBox[{
          FractionBox[
           RowBox[{"6", " ", 
            SuperscriptBox["x13", "2"], " ", 
            SuperscriptBox["x23", "2"]}], 
           SuperscriptBox["m3", "3"]], "+", 
          FractionBox[
           RowBox[{"2", " ", 
            SuperscriptBox["x23", "2"], " ", 
            SuperscriptBox["y13", "2"]}], 
           SuperscriptBox["m3", "3"]], "+", 
          FractionBox[
           RowBox[{"8", " ", "x13", " ", "x23", " ", "y13", " ", "y23"}], 
           SuperscriptBox["m3", "3"]], "+", 
          FractionBox[
           RowBox[{"2", " ", 
            SuperscriptBox["x13", "2"], " ", 
            SuperscriptBox["y23", "2"]}], 
           SuperscriptBox["m3", "3"]], "+", 
          FractionBox[
           RowBox[{"6", " ", 
            SuperscriptBox["y13", "2"], " ", 
            SuperscriptBox["y23", "2"]}], 
           SuperscriptBox["m3", "3"]], "+", 
          FractionBox[
           RowBox[{"2", " ", 
            SuperscriptBox["x23", "2"], " ", 
            SuperscriptBox["z13", "2"]}], 
           SuperscriptBox["m3", "3"]], "+", 
          FractionBox[
           RowBox[{"2", " ", 
            SuperscriptBox["y23", "2"], " ", 
            SuperscriptBox["z13", "2"]}], 
           SuperscriptBox["m3", "3"]], "+", 
          FractionBox[
           RowBox[{"8", " ", "x13", " ", "x23", " ", "z13", " ", "z23"}], 
           SuperscriptBox["m3", "3"]], "+", 
          FractionBox[
           RowBox[{"8", " ", "y13", " ", "y23", " ", "z13", " ", "z23"}], 
           SuperscriptBox["m3", "3"]], "+", 
          FractionBox[
           RowBox[{"2", " ", 
            SuperscriptBox["x13", "2"], " ", 
            SuperscriptBox["z23", "2"]}], 
           SuperscriptBox["m3", "3"]], "+", 
          FractionBox[
           RowBox[{"2", " ", 
            SuperscriptBox["y13", "2"], " ", 
            SuperscriptBox["z23", "2"]}], 
           SuperscriptBox["m3", "3"]], "+", 
          FractionBox[
           RowBox[{"6", " ", 
            SuperscriptBox["z13", "2"], " ", 
            SuperscriptBox["z23", "2"]}], 
           SuperscriptBox["m3", "3"]]}], 
         RowBox[{
          SuperscriptBox["R13", "3"], " ", 
          SuperscriptBox["R23", "2"]}]], "+", 
        FractionBox[
         RowBox[{
          FractionBox[
           RowBox[{
            RowBox[{"-", 
             FractionBox[
              RowBox[{"20", " ", "x13", " ", "x23"}], 
              SuperscriptBox["m3", "3"]]}], "-", 
            FractionBox[
             RowBox[{"10", " ", 
              SuperscriptBox["x23", "2"]}], 
             SuperscriptBox["m3", "3"]], "-", 
            FractionBox[
             RowBox[{"20", " ", "y13", " ", "y23"}], 
             SuperscriptBox["m3", "3"]], "-", 
            FractionBox[
             RowBox[{"10", " ", 
              SuperscriptBox["y23", "2"]}], 
             SuperscriptBox["m3", "3"]], "-", 
            FractionBox[
             RowBox[{"20", " ", "z13", " ", "z23"}], 
             SuperscriptBox["m3", "3"]], "-", 
            FractionBox[
             RowBox[{"10", " ", 
              SuperscriptBox["z23", "2"]}], 
             SuperscriptBox["m3", "3"]]}], 
           SuperscriptBox["R23", "2"]], "+", 
          FractionBox[
           RowBox[{
            FractionBox[
             RowBox[{"12", " ", "x13", " ", 
              SuperscriptBox["x23", "3"]}], 
             SuperscriptBox["m3", "3"]], "+", 
            FractionBox[
             RowBox[{"12", " ", 
              SuperscriptBox["x23", "2"], " ", "y13", " ", "y23"}], 
             SuperscriptBox["m3", "3"]], "+", 
            FractionBox[
             RowBox[{"12", " ", "x13", " ", "x23", " ", 
              SuperscriptBox["y23", "2"]}], 
             SuperscriptBox["m3", "3"]], "+", 
            FractionBox[
             RowBox[{"12", " ", "y13", " ", 
              SuperscriptBox["y23", "3"]}], 
             SuperscriptBox["m3", "3"]], "+", 
            FractionBox[
             RowBox[{"12", " ", 
              SuperscriptBox["x23", "2"], " ", "z13", " ", "z23"}], 
             SuperscriptBox["m3", "3"]], "+", 
            FractionBox[
             RowBox[{"12", " ", 
              SuperscriptBox["y23", "2"], " ", "z13", " ", "z23"}], 
             SuperscriptBox["m3", "3"]], "+", 
            FractionBox[
             RowBox[{"12", " ", "x13", " ", "x23", " ", 
              SuperscriptBox["z23", "2"]}], 
             SuperscriptBox["m3", "3"]], "+", 
            FractionBox[
             RowBox[{"12", " ", "y13", " ", "y23", " ", 
              SuperscriptBox["z23", "2"]}], 
             SuperscriptBox["m3", "3"]], "+", 
            FractionBox[
             RowBox[{"12", " ", "z13", " ", 
              SuperscriptBox["z23", "3"]}], 
             SuperscriptBox["m3", "3"]]}], 
           SuperscriptBox["R23", "4"]]}], "R13"]}], ")"}]}]}], 
    ")"}]}]}]], "Output",
 CellChangeTimes->{{3.950960180140089*^9, 3.9509602618316307`*^9}, {
   3.9509603017811737`*^9, 3.950960337260269*^9}, 3.950960956327839*^9, 
   3.9509609915493546`*^9, 3.9509613125003357`*^9, 3.950961385394556*^9, 
   3.9509631196619263`*^9, 3.951043589599678*^9, 3.951048700301285*^9, 
   3.951048765351103*^9, 3.951050076633684*^9},
 CellLabel->
  "Out[606]=",ExpressionUUID->"5f46aa4b-2b75-cb4b-bae6-cd1ca146d870"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"lap6", "=", 
  RowBox[{"ReplaceAll", "[", 
   RowBox[{
    RowBox[{"Collect", "[", 
     RowBox[{"lap6", ",", 
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", 
        TemplateBox[{
          RowBox[{"1", ",", "n"}]},
         "KroneckerDeltaSeq"], ",", 
        TemplateBox[{
          RowBox[{"2", ",", "n"}]},
         "KroneckerDeltaSeq"], ",", 
        TemplateBox[{
          RowBox[{"3", ",", "n"}]},
         "KroneckerDeltaSeq"], ",", 
        TemplateBox[{
          RowBox[{"1", ",", "m"}]},
         "KroneckerDeltaSeq"], ",", 
        TemplateBox[{
          RowBox[{"2", ",", "m"}]},
         "KroneckerDeltaSeq"], ",", 
        TemplateBox[{
          RowBox[{"3", ",", "m"}]},
         "KroneckerDeltaSeq"], ",", "R12", ",", " ", "R13", ",", " ", "R23", ",",
         "dot1213", ",", "dot1223", ",", "dot1323"}], "}"}], ",", "Factor"}], 
     "]"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{
        SuperscriptBox["x12", "2"], "+", 
        SuperscriptBox["y12", "2"], "+", 
        SuperscriptBox["z12", "2"]}], "->", 
       SuperscriptBox["R12", "2"]}], ",", 
      RowBox[{
       RowBox[{
        SuperscriptBox["x13", "2"], "+", 
        SuperscriptBox["y13", "2"], "+", 
        SuperscriptBox["z13", "2"]}], "->", 
       SuperscriptBox["R13", "2"]}], ",", 
      RowBox[{
       RowBox[{
        SuperscriptBox["x23", "2"], "+", 
        SuperscriptBox["y23", "2"], "+", 
        SuperscriptBox["z23", "2"]}], "->", 
       SuperscriptBox["R23", "2"]}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"x12", " ", "x13"}], "+", 
        RowBox[{"y12", " ", "y13"}], "+", 
        RowBox[{"z12", " ", "z13"}]}], "->", "dot1213"}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"x12", " ", "x23"}], "+", 
        RowBox[{"y12", " ", "y23"}], "+", 
        RowBox[{"z12", " ", "z23"}]}], "->", "dot1223"}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"x13", " ", "x23"}], "+", 
        RowBox[{"y13", " ", "y23"}], "+", 
        RowBox[{"z13", " ", "z23"}]}], "->", "dot1323"}]}], "}"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.9509603295631657`*^9, 3.9509603518808537`*^9}, {
  3.950960394919016*^9, 3.950960407568716*^9}, {3.9509605043178234`*^9, 
  3.9509605284463825`*^9}, {3.950963126426338*^9, 3.9509631282733593`*^9}},
 CellLabel->
  "In[607]:=",ExpressionUUID->"e02d61c6-8c81-f44b-a726-f17a580b3566"],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{
    SuperscriptBox["a", "4"], " ", 
    RowBox[{"(", 
     RowBox[{"m1", "+", "m2"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["m1", "2"], "-", 
      RowBox[{"m1", " ", "m2"}], "+", 
      SuperscriptBox["m2", "2"]}], ")"}]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["m2", "3"]}]], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["b", "4"], " ", 
    RowBox[{"(", 
     RowBox[{"m1", "+", "m3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["m1", "2"], "-", 
      RowBox[{"m1", " ", "m3"}], "+", 
      SuperscriptBox["m3", "2"]}], ")"}]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["m3", "3"]}]], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["c", "4"], " ", 
    RowBox[{"(", 
     RowBox[{"m2", "+", "m3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["m2", "2"], "-", 
      RowBox[{"m2", " ", "m3"}], "+", 
      SuperscriptBox["m3", "2"]}], ")"}]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["m3", "3"]}]], "+", 
  RowBox[{
   SuperscriptBox["a", "3"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       RowBox[{"4", " ", 
        RowBox[{"(", 
         RowBox[{"m1", "+", "m2"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["m1", "2"], "-", 
          RowBox[{"m1", " ", "m2"}], "+", 
          SuperscriptBox["m2", "2"]}], ")"}]}], 
       RowBox[{
        SuperscriptBox["m1", "3"], " ", 
        SuperscriptBox["m2", "3"], " ", "R12"}]]}], "+", 
     FractionBox[
      RowBox[{"4", " ", "b", " ", "dot1213"}], 
      RowBox[{
       SuperscriptBox["m1", "3"], " ", "R12", " ", "R13"}]], "-", 
     FractionBox[
      RowBox[{"4", " ", "c", " ", "dot1223"}], 
      RowBox[{
       SuperscriptBox["m2", "3"], " ", "R12", " ", "R23"}]]}], ")"}]}], "+", 
  RowBox[{
   SuperscriptBox["b", "3"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       RowBox[{"4", " ", 
        RowBox[{"(", 
         RowBox[{"m1", "+", "m3"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["m1", "2"], "-", 
          RowBox[{"m1", " ", "m3"}], "+", 
          SuperscriptBox["m3", "2"]}], ")"}]}], 
       RowBox[{
        SuperscriptBox["m1", "3"], " ", 
        SuperscriptBox["m3", "3"], " ", "R13"}]]}], "+", 
     FractionBox[
      RowBox[{"4", " ", "c", " ", "dot1323"}], 
      RowBox[{
       SuperscriptBox["m3", "3"], " ", "R13", " ", "R23"}]]}], ")"}]}], "-", 
  FractionBox[
   RowBox[{"4", " ", 
    SuperscriptBox["c", "3"], " ", 
    RowBox[{"(", 
     RowBox[{"m2", "+", "m3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["m2", "2"], "-", 
      RowBox[{"m2", " ", "m3"}], "+", 
      SuperscriptBox["m3", "2"]}], ")"}]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["m3", "3"], " ", "R23"}]], "+", 
  RowBox[{"a", " ", 
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{"4", " ", 
       SuperscriptBox["b", "3"], " ", "dot1213"}], 
      RowBox[{
       SuperscriptBox["m1", "3"], " ", "R12", " ", "R13"}]], "-", 
     FractionBox[
      RowBox[{"4", " ", 
       SuperscriptBox["c", "3"], " ", "dot1223"}], 
      RowBox[{
       SuperscriptBox["m2", "3"], " ", "R12", " ", "R23"}]], "+", 
     RowBox[{
      SuperscriptBox["b", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        FractionBox[
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"3", " ", 
             SuperscriptBox["x12", "2"], " ", 
             SuperscriptBox["x13", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["x13", "2"], " ", 
             SuperscriptBox["y12", "2"]}], "+", 
            RowBox[{"4", " ", "x12", " ", "x13", " ", "y12", " ", "y13"}], "+", 
            RowBox[{
             SuperscriptBox["x12", "2"], " ", 
             SuperscriptBox["y13", "2"]}], "+", 
            RowBox[{"3", " ", 
             SuperscriptBox["y12", "2"], " ", 
             SuperscriptBox["y13", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["x13", "2"], " ", 
             SuperscriptBox["z12", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["y13", "2"], " ", 
             SuperscriptBox["z12", "2"]}], "+", 
            RowBox[{"4", " ", "x12", " ", "x13", " ", "z12", " ", "z13"}], "+", 
            RowBox[{"4", " ", "y12", " ", "y13", " ", "z12", " ", "z13"}], "+", 
            RowBox[{
             SuperscriptBox["x12", "2"], " ", 
             SuperscriptBox["z13", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["y12", "2"], " ", 
             SuperscriptBox["z13", "2"]}], "+", 
            RowBox[{"3", " ", 
             SuperscriptBox["z12", "2"], " ", 
             SuperscriptBox["z13", "2"]}]}], ")"}]}], 
         RowBox[{
          SuperscriptBox["m1", "3"], " ", 
          SuperscriptBox["R12", "3"], " ", 
          SuperscriptBox["R13", "2"]}]], "+", 
        FractionBox[
         RowBox[{
          FractionBox[
           RowBox[{"12", " ", "dot1213"}], 
           RowBox[{
            SuperscriptBox["m1", "3"], " ", 
            SuperscriptBox["R13", "2"]}]], "-", 
          FractionBox[
           RowBox[{"10", " ", 
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox["R13", "2"], "+", 
              RowBox[{"2", " ", "x12", " ", "x13"}], "+", 
              RowBox[{"2", " ", "y12", " ", "y13"}], "+", 
              RowBox[{"2", " ", "z12", " ", "z13"}]}], ")"}]}], 
           RowBox[{
            SuperscriptBox["m1", "3"], " ", 
            SuperscriptBox["R13", "2"]}]]}], "R12"]}], ")"}]}], "+", 
     RowBox[{"b", " ", 
      RowBox[{"(", 
       RowBox[{
        FractionBox[
         RowBox[{"12", " ", "dot1213"}], 
         RowBox[{
          SuperscriptBox["m1", "3"], " ", 
          SuperscriptBox["R12", "3"], " ", "R13"}]], "+", 
        FractionBox[
         RowBox[{
          FractionBox[
           RowBox[{"12", " ", "dot1213"}], 
           RowBox[{
            SuperscriptBox["m1", "3"], " ", 
            SuperscriptBox["R13", "3"]}]], "+", 
          FractionBox["30", 
           RowBox[{
            SuperscriptBox["m1", "3"], " ", "R13"}]], "-", 
          FractionBox[
           RowBox[{"10", " ", 
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox["R13", "2"], "+", 
              RowBox[{"2", " ", "x12", " ", "x13"}], "+", 
              RowBox[{"2", " ", "y12", " ", "y13"}], "+", 
              RowBox[{"2", " ", "z12", " ", "z13"}]}], ")"}]}], 
           RowBox[{
            SuperscriptBox["m1", "3"], " ", 
            SuperscriptBox["R13", "3"]}]]}], "R12"], "+", 
        FractionBox[
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{"10", " ", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox["R12", "2"], "+", 
               RowBox[{"2", " ", "x12", " ", "x13"}], "+", 
               RowBox[{"2", " ", "y12", " ", "y13"}], "+", 
               RowBox[{"2", " ", "z12", " ", "z13"}]}], ")"}]}], 
            RowBox[{
             SuperscriptBox["m1", "3"], " ", "R13"}]]}], "+", 
          FractionBox[
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"3", " ", 
               SuperscriptBox["x12", "2"], " ", 
               SuperscriptBox["x13", "2"]}], "+", 
              RowBox[{
               SuperscriptBox["x13", "2"], " ", 
               SuperscriptBox["y12", "2"]}], "+", 
              RowBox[{"4", " ", "x12", " ", "x13", " ", "y12", " ", "y13"}], "+", 
              RowBox[{
               SuperscriptBox["x12", "2"], " ", 
               SuperscriptBox["y13", "2"]}], "+", 
              RowBox[{"3", " ", 
               SuperscriptBox["y12", "2"], " ", 
               SuperscriptBox["y13", "2"]}], "+", 
              RowBox[{
               SuperscriptBox["x13", "2"], " ", 
               SuperscriptBox["z12", "2"]}], "+", 
              RowBox[{
               SuperscriptBox["y13", "2"], " ", 
               SuperscriptBox["z12", "2"]}], "+", 
              RowBox[{"4", " ", "x12", " ", "x13", " ", "z12", " ", "z13"}], "+", 
              RowBox[{"4", " ", "y12", " ", "y13", " ", "z12", " ", "z13"}], "+", 
              RowBox[{
               SuperscriptBox["x12", "2"], " ", 
               SuperscriptBox["z13", "2"]}], "+", 
              RowBox[{
               SuperscriptBox["y12", "2"], " ", 
               SuperscriptBox["z13", "2"]}], "+", 
              RowBox[{"3", " ", 
               SuperscriptBox["z12", "2"], " ", 
               SuperscriptBox["z13", "2"]}]}], ")"}]}], 
           RowBox[{
            SuperscriptBox["m1", "3"], " ", 
            SuperscriptBox["R13", "3"]}]]}], 
         SuperscriptBox["R12", "3"]]}], ")"}]}], "+", 
     RowBox[{
      SuperscriptBox["c", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        FractionBox[
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"3", " ", 
             SuperscriptBox["x12", "2"], " ", 
             SuperscriptBox["x23", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["x23", "2"], " ", 
             SuperscriptBox["y12", "2"]}], "+", 
            RowBox[{"4", " ", "x12", " ", "x23", " ", "y12", " ", "y23"}], "+", 
            RowBox[{
             SuperscriptBox["x12", "2"], " ", 
             SuperscriptBox["y23", "2"]}], "+", 
            RowBox[{"3", " ", 
             SuperscriptBox["y12", "2"], " ", 
             SuperscriptBox["y23", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["x23", "2"], " ", 
             SuperscriptBox["z12", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["y23", "2"], " ", 
             SuperscriptBox["z12", "2"]}], "+", 
            RowBox[{"4", " ", "x12", " ", "x23", " ", "z12", " ", "z23"}], "+", 
            RowBox[{"4", " ", "y12", " ", "y23", " ", "z12", " ", "z23"}], "+", 
            RowBox[{
             SuperscriptBox["x12", "2"], " ", 
             SuperscriptBox["z23", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["y12", "2"], " ", 
             SuperscriptBox["z23", "2"]}], "+", 
            RowBox[{"3", " ", 
             SuperscriptBox["z12", "2"], " ", 
             SuperscriptBox["z23", "2"]}]}], ")"}]}], 
         RowBox[{
          SuperscriptBox["m2", "3"], " ", 
          SuperscriptBox["R12", "3"], " ", 
          SuperscriptBox["R23", "2"]}]], "+", 
        FractionBox[
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{"12", " ", "dot1223"}], 
            RowBox[{
             SuperscriptBox["m2", "3"], " ", 
             SuperscriptBox["R23", "2"]}]]}], "+", 
          FractionBox[
           RowBox[{"10", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", "x12", " ", "x23"}], "-", 
              SuperscriptBox["x23", "2"], "+", 
              RowBox[{"2", " ", "y12", " ", "y23"}], "-", 
              SuperscriptBox["y23", "2"], "+", 
              RowBox[{"2", " ", "z12", " ", "z23"}], "-", 
              SuperscriptBox["z23", "2"]}], ")"}]}], 
           RowBox[{
            SuperscriptBox["m2", "3"], " ", 
            SuperscriptBox["R23", "2"]}]]}], "R12"]}], ")"}]}], "+", 
     RowBox[{"c", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         FractionBox[
          RowBox[{"12", " ", "dot1223"}], 
          RowBox[{
           SuperscriptBox["m2", "3"], " ", 
           SuperscriptBox["R12", "3"], " ", "R23"}]]}], "+", 
        FractionBox[
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{"12", " ", "dot1223"}], 
            RowBox[{
             SuperscriptBox["m2", "3"], " ", 
             SuperscriptBox["R23", "3"]}]]}], "+", 
          FractionBox["30", 
           RowBox[{
            SuperscriptBox["m2", "3"], " ", "R23"}]], "+", 
          FractionBox[
           RowBox[{"10", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", "x12", " ", "x23"}], "-", 
              SuperscriptBox["x23", "2"], "+", 
              RowBox[{"2", " ", "y12", " ", "y23"}], "-", 
              SuperscriptBox["y23", "2"], "+", 
              RowBox[{"2", " ", "z12", " ", "z23"}], "-", 
              SuperscriptBox["z23", "2"]}], ")"}]}], 
           RowBox[{
            SuperscriptBox["m2", "3"], " ", 
            SuperscriptBox["R23", "3"]}]]}], "R12"], "+", 
        FractionBox[
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{"10", " ", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox["R12", "2"], "-", 
               RowBox[{"2", " ", "x12", " ", "x23"}], "-", 
               RowBox[{"2", " ", "y12", " ", "y23"}], "-", 
               RowBox[{"2", " ", "z12", " ", "z23"}]}], ")"}]}], 
            RowBox[{
             SuperscriptBox["m2", "3"], " ", "R23"}]]}], "+", 
          FractionBox[
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"3", " ", 
               SuperscriptBox["x12", "2"], " ", 
               SuperscriptBox["x23", "2"]}], "+", 
              RowBox[{
               SuperscriptBox["x23", "2"], " ", 
               SuperscriptBox["y12", "2"]}], "+", 
              RowBox[{"4", " ", "x12", " ", "x23", " ", "y12", " ", "y23"}], "+", 
              RowBox[{
               SuperscriptBox["x12", "2"], " ", 
               SuperscriptBox["y23", "2"]}], "+", 
              RowBox[{"3", " ", 
               SuperscriptBox["y12", "2"], " ", 
               SuperscriptBox["y23", "2"]}], "+", 
              RowBox[{
               SuperscriptBox["x23", "2"], " ", 
               SuperscriptBox["z12", "2"]}], "+", 
              RowBox[{
               SuperscriptBox["y23", "2"], " ", 
               SuperscriptBox["z12", "2"]}], "+", 
              RowBox[{"4", " ", "x12", " ", "x23", " ", "z12", " ", "z23"}], "+", 
              RowBox[{"4", " ", "y12", " ", "y23", " ", "z12", " ", "z23"}], "+", 
              RowBox[{
               SuperscriptBox["x12", "2"], " ", 
               SuperscriptBox["z23", "2"]}], "+", 
              RowBox[{
               SuperscriptBox["y12", "2"], " ", 
               SuperscriptBox["z23", "2"]}], "+", 
              RowBox[{"3", " ", 
               SuperscriptBox["z12", "2"], " ", 
               SuperscriptBox["z23", "2"]}]}], ")"}]}], 
           RowBox[{
            SuperscriptBox["m2", "3"], " ", 
            SuperscriptBox["R23", "3"]}]]}], 
         SuperscriptBox["R12", "3"]]}], ")"}]}]}], ")"}]}], "+", 
  RowBox[{
   SuperscriptBox["a", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{"2", " ", 
       SuperscriptBox["b", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"3", " ", 
          SuperscriptBox["x12", "2"], " ", 
          SuperscriptBox["x13", "2"]}], "+", 
         RowBox[{
          SuperscriptBox["x13", "2"], " ", 
          SuperscriptBox["y12", "2"]}], "+", 
         RowBox[{"4", " ", "x12", " ", "x13", " ", "y12", " ", "y13"}], "+", 
         RowBox[{
          SuperscriptBox["x12", "2"], " ", 
          SuperscriptBox["y13", "2"]}], "+", 
         RowBox[{"3", " ", 
          SuperscriptBox["y12", "2"], " ", 
          SuperscriptBox["y13", "2"]}], "+", 
         RowBox[{
          SuperscriptBox["x13", "2"], " ", 
          SuperscriptBox["z12", "2"]}], "+", 
         RowBox[{
          SuperscriptBox["y13", "2"], " ", 
          SuperscriptBox["z12", "2"]}], "+", 
         RowBox[{"4", " ", "x12", " ", "x13", " ", "z12", " ", "z13"}], "+", 
         RowBox[{"4", " ", "y12", " ", "y13", " ", "z12", " ", "z13"}], "+", 
         RowBox[{
          SuperscriptBox["x12", "2"], " ", 
          SuperscriptBox["z13", "2"]}], "+", 
         RowBox[{
          SuperscriptBox["y12", "2"], " ", 
          SuperscriptBox["z13", "2"]}], "+", 
         RowBox[{"3", " ", 
          SuperscriptBox["z12", "2"], " ", 
          SuperscriptBox["z13", "2"]}]}], ")"}]}], 
      RowBox[{
       SuperscriptBox["m1", "3"], " ", 
       SuperscriptBox["R12", "2"], " ", 
       SuperscriptBox["R13", "2"]}]], "+", 
     RowBox[{"b", " ", 
      RowBox[{"(", 
       RowBox[{
        FractionBox[
         RowBox[{"12", " ", "dot1213"}], 
         RowBox[{
          SuperscriptBox["m1", "3"], " ", 
          SuperscriptBox["R12", "2"], " ", "R13"}]], "+", 
        FractionBox[
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{"10", " ", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox["R12", "2"], "+", 
               RowBox[{"2", " ", "x12", " ", "x13"}], "+", 
               RowBox[{"2", " ", "y12", " ", "y13"}], "+", 
               RowBox[{"2", " ", "z12", " ", "z13"}]}], ")"}]}], 
            RowBox[{
             SuperscriptBox["m1", "3"], " ", "R13"}]]}], "+", 
          FractionBox[
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"3", " ", 
               SuperscriptBox["x12", "2"], " ", 
               SuperscriptBox["x13", "2"]}], "+", 
              RowBox[{
               SuperscriptBox["x13", "2"], " ", 
               SuperscriptBox["y12", "2"]}], "+", 
              RowBox[{"4", " ", "x12", " ", "x13", " ", "y12", " ", "y13"}], "+", 
              RowBox[{
               SuperscriptBox["x12", "2"], " ", 
               SuperscriptBox["y13", "2"]}], "+", 
              RowBox[{"3", " ", 
               SuperscriptBox["y12", "2"], " ", 
               SuperscriptBox["y13", "2"]}], "+", 
              RowBox[{
               SuperscriptBox["x13", "2"], " ", 
               SuperscriptBox["z12", "2"]}], "+", 
              RowBox[{
               SuperscriptBox["y13", "2"], " ", 
               SuperscriptBox["z12", "2"]}], "+", 
              RowBox[{"4", " ", "x12", " ", "x13", " ", "z12", " ", "z13"}], "+", 
              RowBox[{"4", " ", "y12", " ", "y13", " ", "z12", " ", "z13"}], "+", 
              RowBox[{
               SuperscriptBox["x12", "2"], " ", 
               SuperscriptBox["z13", "2"]}], "+", 
              RowBox[{
               SuperscriptBox["y12", "2"], " ", 
               SuperscriptBox["z13", "2"]}], "+", 
              RowBox[{"3", " ", 
               SuperscriptBox["z12", "2"], " ", 
               SuperscriptBox["z13", "2"]}]}], ")"}]}], 
           RowBox[{
            SuperscriptBox["m1", "3"], " ", 
            SuperscriptBox["R13", "3"]}]]}], 
         SuperscriptBox["R12", "2"]]}], ")"}]}], "+", 
     FractionBox[
      RowBox[{"2", " ", 
       SuperscriptBox["c", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"3", " ", 
          SuperscriptBox["x12", "2"], " ", 
          SuperscriptBox["x23", "2"]}], "+", 
         RowBox[{
          SuperscriptBox["x23", "2"], " ", 
          SuperscriptBox["y12", "2"]}], "+", 
         RowBox[{"4", " ", "x12", " ", "x23", " ", "y12", " ", "y23"}], "+", 
         RowBox[{
          SuperscriptBox["x12", "2"], " ", 
          SuperscriptBox["y23", "2"]}], "+", 
         RowBox[{"3", " ", 
          SuperscriptBox["y12", "2"], " ", 
          SuperscriptBox["y23", "2"]}], "+", 
         RowBox[{
          SuperscriptBox["x23", "2"], " ", 
          SuperscriptBox["z12", "2"]}], "+", 
         RowBox[{
          SuperscriptBox["y23", "2"], " ", 
          SuperscriptBox["z12", "2"]}], "+", 
         RowBox[{"4", " ", "x12", " ", "x23", " ", "z12", " ", "z23"}], "+", 
         RowBox[{"4", " ", "y12", " ", "y23", " ", "z12", " ", "z23"}], "+", 
         RowBox[{
          SuperscriptBox["x12", "2"], " ", 
          SuperscriptBox["z23", "2"]}], "+", 
         RowBox[{
          SuperscriptBox["y12", "2"], " ", 
          SuperscriptBox["z23", "2"]}], "+", 
         RowBox[{"3", " ", 
          SuperscriptBox["z12", "2"], " ", 
          SuperscriptBox["z23", "2"]}]}], ")"}]}], 
      RowBox[{
       SuperscriptBox["m2", "3"], " ", 
       SuperscriptBox["R12", "2"], " ", 
       SuperscriptBox["R23", "2"]}]], "+", 
     RowBox[{"c", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         FractionBox[
          RowBox[{"12", " ", "dot1223"}], 
          RowBox[{
           SuperscriptBox["m2", "3"], " ", 
           SuperscriptBox["R12", "2"], " ", "R23"}]]}], "+", 
        FractionBox[
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{"10", " ", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox["R12", "2"], "-", 
               RowBox[{"2", " ", "x12", " ", "x23"}], "-", 
               RowBox[{"2", " ", "y12", " ", "y23"}], "-", 
               RowBox[{"2", " ", "z12", " ", "z23"}]}], ")"}]}], 
            RowBox[{
             SuperscriptBox["m2", "3"], " ", "R23"}]]}], "+", 
          FractionBox[
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"3", " ", 
               SuperscriptBox["x12", "2"], " ", 
               SuperscriptBox["x23", "2"]}], "+", 
              RowBox[{
               SuperscriptBox["x23", "2"], " ", 
               SuperscriptBox["y12", "2"]}], "+", 
              RowBox[{"4", " ", "x12", " ", "x23", " ", "y12", " ", "y23"}], "+", 
              RowBox[{
               SuperscriptBox["x12", "2"], " ", 
               SuperscriptBox["y23", "2"]}], "+", 
              RowBox[{"3", " ", 
               SuperscriptBox["y12", "2"], " ", 
               SuperscriptBox["y23", "2"]}], "+", 
              RowBox[{
               SuperscriptBox["x23", "2"], " ", 
               SuperscriptBox["z12", "2"]}], "+", 
              RowBox[{
               SuperscriptBox["y23", "2"], " ", 
               SuperscriptBox["z12", "2"]}], "+", 
              RowBox[{"4", " ", "x12", " ", "x23", " ", "z12", " ", "z23"}], "+", 
              RowBox[{"4", " ", "y12", " ", "y23", " ", "z12", " ", "z23"}], "+", 
              RowBox[{
               SuperscriptBox["x12", "2"], " ", 
               SuperscriptBox["z23", "2"]}], "+", 
              RowBox[{
               SuperscriptBox["y12", "2"], " ", 
               SuperscriptBox["z23", "2"]}], "+", 
              RowBox[{"3", " ", 
               SuperscriptBox["z12", "2"], " ", 
               SuperscriptBox["z23", "2"]}]}], ")"}]}], 
           RowBox[{
            SuperscriptBox["m2", "3"], " ", 
            SuperscriptBox["R23", "3"]}]]}], 
         SuperscriptBox["R12", "2"]]}], ")"}]}]}], ")"}]}], "+", 
  RowBox[{"b", " ", 
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{"4", " ", 
       SuperscriptBox["c", "3"], " ", "dot1323"}], 
      RowBox[{
       SuperscriptBox["m3", "3"], " ", "R13", " ", "R23"}]], "+", 
     RowBox[{
      SuperscriptBox["c", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        FractionBox[
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"3", " ", 
             SuperscriptBox["x13", "2"], " ", 
             SuperscriptBox["x23", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["x23", "2"], " ", 
             SuperscriptBox["y13", "2"]}], "+", 
            RowBox[{"4", " ", "x13", " ", "x23", " ", "y13", " ", "y23"}], "+", 
            RowBox[{
             SuperscriptBox["x13", "2"], " ", 
             SuperscriptBox["y23", "2"]}], "+", 
            RowBox[{"3", " ", 
             SuperscriptBox["y13", "2"], " ", 
             SuperscriptBox["y23", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["x23", "2"], " ", 
             SuperscriptBox["z13", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["y23", "2"], " ", 
             SuperscriptBox["z13", "2"]}], "+", 
            RowBox[{"4", " ", "x13", " ", "x23", " ", "z13", " ", "z23"}], "+", 
            RowBox[{"4", " ", "y13", " ", "y23", " ", "z13", " ", "z23"}], "+", 
            RowBox[{
             SuperscriptBox["x13", "2"], " ", 
             SuperscriptBox["z23", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["y13", "2"], " ", 
             SuperscriptBox["z23", "2"]}], "+", 
            RowBox[{"3", " ", 
             SuperscriptBox["z13", "2"], " ", 
             SuperscriptBox["z23", "2"]}]}], ")"}]}], 
         RowBox[{
          SuperscriptBox["m3", "3"], " ", 
          SuperscriptBox["R13", "3"], " ", 
          SuperscriptBox["R23", "2"]}]], "+", 
        FractionBox[
         RowBox[{
          FractionBox[
           RowBox[{"12", " ", "dot1323"}], 
           RowBox[{
            SuperscriptBox["m3", "3"], " ", 
            SuperscriptBox["R23", "2"]}]], "-", 
          FractionBox[
           RowBox[{"10", " ", 
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox["R23", "2"], "+", 
              RowBox[{"2", " ", "x13", " ", "x23"}], "+", 
              RowBox[{"2", " ", "y13", " ", "y23"}], "+", 
              RowBox[{"2", " ", "z13", " ", "z23"}]}], ")"}]}], 
           RowBox[{
            SuperscriptBox["m3", "3"], " ", 
            SuperscriptBox["R23", "2"]}]]}], "R13"]}], ")"}]}], "+", 
     RowBox[{"c", " ", 
      RowBox[{"(", 
       RowBox[{
        FractionBox[
         RowBox[{"12", " ", "dot1323"}], 
         RowBox[{
          SuperscriptBox["m3", "3"], " ", 
          SuperscriptBox["R13", "3"], " ", "R23"}]], "+", 
        FractionBox[
         RowBox[{
          FractionBox[
           RowBox[{"12", " ", "dot1323"}], 
           RowBox[{
            SuperscriptBox["m3", "3"], " ", 
            SuperscriptBox["R23", "3"]}]], "+", 
          FractionBox["30", 
           RowBox[{
            SuperscriptBox["m3", "3"], " ", "R23"}]], "-", 
          FractionBox[
           RowBox[{"10", " ", 
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox["R23", "2"], "+", 
              RowBox[{"2", " ", "x13", " ", "x23"}], "+", 
              RowBox[{"2", " ", "y13", " ", "y23"}], "+", 
              RowBox[{"2", " ", "z13", " ", "z23"}]}], ")"}]}], 
           RowBox[{
            SuperscriptBox["m3", "3"], " ", 
            SuperscriptBox["R23", "3"]}]]}], "R13"], "+", 
        FractionBox[
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{"10", " ", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox["R13", "2"], "+", 
               RowBox[{"2", " ", "x13", " ", "x23"}], "+", 
               RowBox[{"2", " ", "y13", " ", "y23"}], "+", 
               RowBox[{"2", " ", "z13", " ", "z23"}]}], ")"}]}], 
            RowBox[{
             SuperscriptBox["m3", "3"], " ", "R23"}]]}], "+", 
          FractionBox[
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"3", " ", 
               SuperscriptBox["x13", "2"], " ", 
               SuperscriptBox["x23", "2"]}], "+", 
              RowBox[{
               SuperscriptBox["x23", "2"], " ", 
               SuperscriptBox["y13", "2"]}], "+", 
              RowBox[{"4", " ", "x13", " ", "x23", " ", "y13", " ", "y23"}], "+", 
              RowBox[{
               SuperscriptBox["x13", "2"], " ", 
               SuperscriptBox["y23", "2"]}], "+", 
              RowBox[{"3", " ", 
               SuperscriptBox["y13", "2"], " ", 
               SuperscriptBox["y23", "2"]}], "+", 
              RowBox[{
               SuperscriptBox["x23", "2"], " ", 
               SuperscriptBox["z13", "2"]}], "+", 
              RowBox[{
               SuperscriptBox["y23", "2"], " ", 
               SuperscriptBox["z13", "2"]}], "+", 
              RowBox[{"4", " ", "x13", " ", "x23", " ", "z13", " ", "z23"}], "+", 
              RowBox[{"4", " ", "y13", " ", "y23", " ", "z13", " ", "z23"}], "+", 
              RowBox[{
               SuperscriptBox["x13", "2"], " ", 
               SuperscriptBox["z23", "2"]}], "+", 
              RowBox[{
               SuperscriptBox["y13", "2"], " ", 
               SuperscriptBox["z23", "2"]}], "+", 
              RowBox[{"3", " ", 
               SuperscriptBox["z13", "2"], " ", 
               SuperscriptBox["z23", "2"]}]}], ")"}]}], 
           RowBox[{
            SuperscriptBox["m3", "3"], " ", 
            SuperscriptBox["R23", "3"]}]]}], 
         SuperscriptBox["R13", "3"]]}], ")"}]}]}], ")"}]}], "+", 
  RowBox[{
   SuperscriptBox["b", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{"2", " ", 
       SuperscriptBox["c", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"3", " ", 
          SuperscriptBox["x13", "2"], " ", 
          SuperscriptBox["x23", "2"]}], "+", 
         RowBox[{
          SuperscriptBox["x23", "2"], " ", 
          SuperscriptBox["y13", "2"]}], "+", 
         RowBox[{"4", " ", "x13", " ", "x23", " ", "y13", " ", "y23"}], "+", 
         RowBox[{
          SuperscriptBox["x13", "2"], " ", 
          SuperscriptBox["y23", "2"]}], "+", 
         RowBox[{"3", " ", 
          SuperscriptBox["y13", "2"], " ", 
          SuperscriptBox["y23", "2"]}], "+", 
         RowBox[{
          SuperscriptBox["x23", "2"], " ", 
          SuperscriptBox["z13", "2"]}], "+", 
         RowBox[{
          SuperscriptBox["y23", "2"], " ", 
          SuperscriptBox["z13", "2"]}], "+", 
         RowBox[{"4", " ", "x13", " ", "x23", " ", "z13", " ", "z23"}], "+", 
         RowBox[{"4", " ", "y13", " ", "y23", " ", "z13", " ", "z23"}], "+", 
         RowBox[{
          SuperscriptBox["x13", "2"], " ", 
          SuperscriptBox["z23", "2"]}], "+", 
         RowBox[{
          SuperscriptBox["y13", "2"], " ", 
          SuperscriptBox["z23", "2"]}], "+", 
         RowBox[{"3", " ", 
          SuperscriptBox["z13", "2"], " ", 
          SuperscriptBox["z23", "2"]}]}], ")"}]}], 
      RowBox[{
       SuperscriptBox["m3", "3"], " ", 
       SuperscriptBox["R13", "2"], " ", 
       SuperscriptBox["R23", "2"]}]], "+", 
     RowBox[{"c", " ", 
      RowBox[{"(", 
       RowBox[{
        FractionBox[
         RowBox[{"12", " ", "dot1323"}], 
         RowBox[{
          SuperscriptBox["m3", "3"], " ", 
          SuperscriptBox["R13", "2"], " ", "R23"}]], "+", 
        FractionBox[
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{"10", " ", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox["R13", "2"], "+", 
               RowBox[{"2", " ", "x13", " ", "x23"}], "+", 
               RowBox[{"2", " ", "y13", " ", "y23"}], "+", 
               RowBox[{"2", " ", "z13", " ", "z23"}]}], ")"}]}], 
            RowBox[{
             SuperscriptBox["m3", "3"], " ", "R23"}]]}], "+", 
          FractionBox[
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"3", " ", 
               SuperscriptBox["x13", "2"], " ", 
               SuperscriptBox["x23", "2"]}], "+", 
              RowBox[{
               SuperscriptBox["x23", "2"], " ", 
               SuperscriptBox["y13", "2"]}], "+", 
              RowBox[{"4", " ", "x13", " ", "x23", " ", "y13", " ", "y23"}], "+", 
              RowBox[{
               SuperscriptBox["x13", "2"], " ", 
               SuperscriptBox["y23", "2"]}], "+", 
              RowBox[{"3", " ", 
               SuperscriptBox["y13", "2"], " ", 
               SuperscriptBox["y23", "2"]}], "+", 
              RowBox[{
               SuperscriptBox["x23", "2"], " ", 
               SuperscriptBox["z13", "2"]}], "+", 
              RowBox[{
               SuperscriptBox["y23", "2"], " ", 
               SuperscriptBox["z13", "2"]}], "+", 
              RowBox[{"4", " ", "x13", " ", "x23", " ", "z13", " ", "z23"}], "+", 
              RowBox[{"4", " ", "y13", " ", "y23", " ", "z13", " ", "z23"}], "+", 
              RowBox[{
               SuperscriptBox["x13", "2"], " ", 
               SuperscriptBox["z23", "2"]}], "+", 
              RowBox[{
               SuperscriptBox["y13", "2"], " ", 
               SuperscriptBox["z23", "2"]}], "+", 
              RowBox[{"3", " ", 
               SuperscriptBox["z13", "2"], " ", 
               SuperscriptBox["z23", "2"]}]}], ")"}]}], 
           RowBox[{
            SuperscriptBox["m3", "3"], " ", 
            SuperscriptBox["R23", "3"]}]]}], 
         SuperscriptBox["R13", "2"]]}], ")"}]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{{3.950960330044855*^9, 3.9509603747838593`*^9}, {
   3.9509604080814133`*^9, 3.9509604133299313`*^9}, {3.9509605060458775`*^9, 
   3.9509605338661976`*^9}, {3.9509609602856827`*^9, 
   3.9509609641336937`*^9}, {3.9509609952528763`*^9, 3.950960998803608*^9}, {
   3.950961316116516*^9, 3.9509613191002235`*^9}, 3.9509613854343357`*^9, {
   3.9509631299509583`*^9, 3.950963135154722*^9}, 3.951043589663315*^9, 
   3.95104870036471*^9, 3.9510487654143047`*^9, 3.951050076710781*^9},
 CellLabel->
  "Out[607]=",ExpressionUUID->"bf03f323-1468-fa44-80d5-e93df7c3f8d8"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellLabel->
  "In[608]:=",ExpressionUUID->"a88d3929-4505-574f-b58b-ec17ee470559"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"lap7", "=", 
  RowBox[{"Collect", "[", 
   RowBox[{"lap6", ",", 
    RowBox[{"{", 
     RowBox[{"a", ",", 
      RowBox[{"b", ".", "c"}], ",", 
      TemplateBox[{
        RowBox[{"1", ",", "n"}]},
       "KroneckerDeltaSeq"], ",", 
      TemplateBox[{
        RowBox[{"2", ",", "n"}]},
       "KroneckerDeltaSeq"], ",", 
      TemplateBox[{
        RowBox[{"3", ",", "n"}]},
       "KroneckerDeltaSeq"], ",", 
      TemplateBox[{
        RowBox[{"1", ",", "m"}]},
       "KroneckerDeltaSeq"], ",", 
      TemplateBox[{
        RowBox[{"2", ",", "m"}]},
       "KroneckerDeltaSeq"], ",", 
      TemplateBox[{
        RowBox[{"3", ",", "m"}]},
       "KroneckerDeltaSeq"], ",", "R12", ",", " ", "R13", ",", " ", "R23"}], 
     "}"}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{"Simplify", "[", 
       RowBox[{"B", " ", "/.", "  ", 
        RowBox[{"Solve", "[", 
         RowBox[{
          RowBox[{"Eliminate", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"B", "==", "#1"}], ",", 
              RowBox[{
               RowBox[{
                SuperscriptBox["x12", "2"], "+", 
                SuperscriptBox["y12", "2"], "+", 
                SuperscriptBox["z12", "2"]}], "==", 
               SuperscriptBox["R12", "2"]}], ",", 
              RowBox[{
               RowBox[{
                SuperscriptBox["x13", "2"], "+", 
                SuperscriptBox["y13", "2"], "+", 
                SuperscriptBox["z13", "2"]}], "==", 
               SuperscriptBox["R13", "2"]}], ",", 
              RowBox[{
               RowBox[{
                SuperscriptBox["x23", "2"], "+", 
                SuperscriptBox["y23", "2"], "+", 
                SuperscriptBox["z23", "2"]}], "==", 
               SuperscriptBox["R23", "2"]}], ",", 
              RowBox[{
               RowBox[{
                RowBox[{"x12", " ", "x13"}], "+", 
                RowBox[{"y12", " ", "y13"}], "+", 
                RowBox[{"z12", " ", "z13"}]}], "==", "dot1213"}], ",", 
              RowBox[{
               RowBox[{
                RowBox[{"x12", " ", "x23"}], "+", 
                RowBox[{"y12", " ", "y23"}], "+", 
                RowBox[{"z12", " ", "z23"}]}], "==", "dot1223"}], ",", 
              RowBox[{
               RowBox[{
                RowBox[{"x13", " ", "x23"}], "+", 
                RowBox[{"y13", " ", "y23"}], "+", 
                RowBox[{"z13", " ", "z23"}]}], "==", "dot1323"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
             "x12", ",", "y12", ",", "z12", ",", "x13", ",", "y13", ",", 
              "z13", ",", "x23", ",", "y23", ",", "z23"}], "}"}]}], "]"}], ",",
           "B"}], "]"}]}], "]"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}], "&"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.9507832188836384`*^9, 3.950783302361017*^9}, {
   3.9507833501916656`*^9, 3.9507833607217255`*^9}, {3.9507834028218346`*^9, 
   3.950783513541916*^9}, {3.950848469856285*^9, 3.9508485129524193`*^9}, {
   3.950848547362797*^9, 3.9508485893418427`*^9}, {3.9508489102564297`*^9, 
   3.950848945386717*^9}, {3.950848975927082*^9, 3.950849005876669*^9}, 
   3.9508490424265575`*^9, {3.9508490805170345`*^9, 3.950849083856987*^9}, {
   3.950849617516777*^9, 3.9508496498068466`*^9}, {3.9508497458969955`*^9, 
   3.9508497493566265`*^9}, 3.9508497821766148`*^9, {3.9508498251999893`*^9, 
   3.95084993657872*^9}, {3.950849977719164*^9, 3.950850149457304*^9}, {
   3.9508505190071335`*^9, 3.950850681677435*^9}, 3.9508511115977497`*^9, {
   3.9508512033092327`*^9, 3.950851220967518*^9}, {3.9508606955951576`*^9, 
   3.9508606990494404`*^9}, {3.9509539919348564`*^9, 3.950954100348942*^9}, {
   3.950954810163185*^9, 3.9509548762901936`*^9}, {3.9509569187321606`*^9, 
   3.9509570536686306`*^9}, {3.9509571508070087`*^9, 3.950957166853554*^9}, {
   3.95095729241757*^9, 3.950957383283491*^9}, {3.950960615808338*^9, 
   3.950960618083128*^9}, {3.950963141307436*^9, 3.9509631463195496`*^9}},
 CellLabel->
  "In[609]:=",ExpressionUUID->"ddde7395-360c-1845-8c25-cc646e8b9fa3"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["a", "4"], " ", 
   RowBox[{"(", 
    RowBox[{
     FractionBox["1", 
      SuperscriptBox["m1", "3"]], "+", 
     FractionBox["1", 
      SuperscriptBox["m2", "3"]]}], ")"}]}], "+", 
  RowBox[{
   SuperscriptBox["b", "4"], " ", 
   RowBox[{"(", 
    RowBox[{
     FractionBox["1", 
      SuperscriptBox["m1", "3"]], "+", 
     FractionBox["1", 
      SuperscriptBox["m3", "3"]]}], ")"}]}], "+", 
  RowBox[{
   SuperscriptBox["c", "4"], " ", 
   RowBox[{"(", 
    RowBox[{
     FractionBox["1", 
      SuperscriptBox["m2", "3"]], "+", 
     FractionBox["1", 
      SuperscriptBox["m3", "3"]]}], ")"}]}], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["a", "3"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       FractionBox["4", 
        SuperscriptBox["m1", "3"]]}], "-", 
      FractionBox["4", 
       SuperscriptBox["m2", "3"]], "+", 
      FractionBox[
       RowBox[{"4", " ", "b", " ", "dot1213"}], 
       RowBox[{
        SuperscriptBox["m1", "3"], " ", "R13"}]], "-", 
      FractionBox[
       RowBox[{"4", " ", "c", " ", "dot1223"}], 
       RowBox[{
        SuperscriptBox["m2", "3"], " ", "R23"}]]}], ")"}]}], "R12"], "+", 
  FractionBox[
   RowBox[{
    RowBox[{"-", 
     FractionBox[
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"5", " ", "b", " ", 
          SuperscriptBox["c", "2"], " ", 
          SuperscriptBox["m1", "3"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["b", "3"], " ", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["m1", "3"], "+", 
            SuperscriptBox["m3", "3"]}], ")"}]}]}], ")"}]}], 
      RowBox[{
       SuperscriptBox["m1", "3"], " ", 
       SuperscriptBox["m3", "3"]}]]}], "-", 
    FractionBox[
     RowBox[{"8", " ", "b", " ", "c", " ", "dot1323"}], 
     RowBox[{
      SuperscriptBox["m3", "3"], " ", 
      SuperscriptBox["R23", "3"]}]], "-", 
    FractionBox[
     RowBox[{"8", " ", "b", " ", 
      SuperscriptBox["c", "2"], " ", "dot1323"}], 
     RowBox[{
      SuperscriptBox["m3", "3"], " ", 
      SuperscriptBox["R23", "2"]}]], "+", 
    FractionBox[
     RowBox[{"2", " ", "b", " ", "c", " ", 
      RowBox[{"(", 
       RowBox[{"5", "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["b", "2"], " ", "dot1323"}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["c", "2"], " ", "dot1323"}]}], ")"}]}], 
     RowBox[{
      SuperscriptBox["m3", "3"], " ", "R23"}]]}], "R13"], "-", 
  FractionBox[
   RowBox[{"2", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"5", " ", 
       SuperscriptBox["b", "2"], " ", "c", " ", 
       SuperscriptBox["m2", "3"]}], "+", 
      RowBox[{"2", " ", 
       SuperscriptBox["c", "3"], " ", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["m2", "3"], "+", 
         SuperscriptBox["m3", "3"]}], ")"}]}]}], ")"}]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["m3", "3"], " ", "R23"}]], "+", 
  FractionBox[
   RowBox[{
    RowBox[{"-", 
     FractionBox[
      RowBox[{"8", " ", "b", " ", "c", " ", "dot1323"}], 
      RowBox[{
       SuperscriptBox["m3", "3"], " ", "R23"}]]}], "+", 
    FractionBox[
     RowBox[{"2", " ", "b", " ", "c", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", 
         SuperscriptBox["dot1323", "2"]}], "+", 
        RowBox[{
         SuperscriptBox["R13", "2"], " ", 
         SuperscriptBox["R23", "2"]}]}], ")"}]}], 
     RowBox[{
      SuperscriptBox["m3", "3"], " ", 
      SuperscriptBox["R23", "3"]}]], "+", 
    FractionBox[
     RowBox[{"2", " ", "b", " ", 
      SuperscriptBox["c", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", 
         SuperscriptBox["dot1323", "2"]}], "+", 
        RowBox[{
         SuperscriptBox["R13", "2"], " ", 
         SuperscriptBox["R23", "2"]}]}], ")"}]}], 
     RowBox[{
      SuperscriptBox["m3", "3"], " ", 
      SuperscriptBox["R23", "2"]}]]}], 
   SuperscriptBox["R13", "3"]], "+", 
  FractionBox[
   RowBox[{
    RowBox[{"-", 
     FractionBox[
      RowBox[{"8", " ", 
       SuperscriptBox["b", "2"], " ", "c", " ", "dot1323"}], 
      RowBox[{
       SuperscriptBox["m3", "3"], " ", "R23"}]]}], "+", 
    FractionBox[
     RowBox[{"2", " ", 
      SuperscriptBox["b", "2"], " ", "c", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", 
         SuperscriptBox["dot1323", "2"]}], "+", 
        RowBox[{
         SuperscriptBox["R13", "2"], " ", 
         SuperscriptBox["R23", "2"]}]}], ")"}]}], 
     RowBox[{
      SuperscriptBox["m3", "3"], " ", 
      SuperscriptBox["R23", "3"]}]], "+", 
    FractionBox[
     RowBox[{"2", " ", 
      SuperscriptBox["b", "2"], " ", 
      SuperscriptBox["c", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", 
         SuperscriptBox["dot1323", "2"]}], "+", 
        RowBox[{
         SuperscriptBox["R13", "2"], " ", 
         SuperscriptBox["R23", "2"]}]}], ")"}]}], 
     RowBox[{
      SuperscriptBox["m3", "3"], " ", 
      SuperscriptBox["R23", "2"]}]]}], 
   SuperscriptBox["R13", "2"]], "+", 
  RowBox[{"a", " ", 
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         RowBox[{"10", " ", 
          SuperscriptBox["b", "2"]}], 
         SuperscriptBox["m1", "3"]]}], "-", 
       FractionBox[
        RowBox[{"8", " ", "b", " ", "dot1213"}], 
        RowBox[{
         SuperscriptBox["m1", "3"], " ", 
         SuperscriptBox["R13", "3"]}]], "-", 
       FractionBox[
        RowBox[{"8", " ", 
         SuperscriptBox["b", "2"], " ", "dot1213"}], 
        RowBox[{
         SuperscriptBox["m1", "3"], " ", 
         SuperscriptBox["R13", "2"]}]], "+", 
       FractionBox[
        RowBox[{"2", " ", "b", " ", 
         RowBox[{"(", 
          RowBox[{"5", "+", 
           RowBox[{"2", " ", 
            SuperscriptBox["b", "2"], " ", "dot1213"}]}], ")"}]}], 
        RowBox[{
         SuperscriptBox["m1", "3"], " ", "R13"}]], "-", 
       FractionBox[
        RowBox[{"4", " ", "c", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "5"}], "+", 
           RowBox[{
            SuperscriptBox["c", "2"], " ", "dot1223"}]}], ")"}]}], 
        RowBox[{
         SuperscriptBox["m2", "3"], " ", "R23"}]], "+", 
       FractionBox[
        RowBox[{"2", " ", "c", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"4", " ", "dot1223"}], "-", 
           RowBox[{"5", " ", 
            SuperscriptBox["R23", "2"]}]}], ")"}]}], 
        RowBox[{
         SuperscriptBox["m2", "3"], " ", 
         SuperscriptBox["R23", "3"]}]], "+", 
       FractionBox[
        RowBox[{"2", " ", 
         SuperscriptBox["c", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"4", " ", "dot1223"}], "-", 
           RowBox[{"5", " ", 
            SuperscriptBox["R23", "2"]}]}], ")"}]}], 
        RowBox[{
         SuperscriptBox["m2", "3"], " ", 
         SuperscriptBox["R23", "2"]}]]}], "R12"], "+", 
     FractionBox[
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         RowBox[{"8", " ", "b", " ", "dot1213"}], 
         RowBox[{
          SuperscriptBox["m1", "3"], " ", "R13"}]]}], "+", 
       FractionBox[
        RowBox[{"2", " ", "b", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", 
            SuperscriptBox["dot1213", "2"]}], "+", 
           RowBox[{
            SuperscriptBox["R12", "2"], " ", 
            SuperscriptBox["R13", "2"]}]}], ")"}]}], 
        RowBox[{
         SuperscriptBox["m1", "3"], " ", 
         SuperscriptBox["R13", "3"]}]], "+", 
       FractionBox[
        RowBox[{"2", " ", 
         SuperscriptBox["b", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", 
            SuperscriptBox["dot1213", "2"]}], "+", 
           RowBox[{
            SuperscriptBox["R12", "2"], " ", 
            SuperscriptBox["R13", "2"]}]}], ")"}]}], 
        RowBox[{
         SuperscriptBox["m1", "3"], " ", 
         SuperscriptBox["R13", "2"]}]], "+", 
       FractionBox[
        RowBox[{"8", " ", "c", " ", "dot1223"}], 
        RowBox[{
         SuperscriptBox["m2", "3"], " ", "R23"}]], "+", 
       FractionBox[
        RowBox[{"2", " ", "c", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", 
            SuperscriptBox["dot1223", "2"]}], "+", 
           RowBox[{
            SuperscriptBox["R12", "2"], " ", 
            SuperscriptBox["R23", "2"]}]}], ")"}]}], 
        RowBox[{
         SuperscriptBox["m2", "3"], " ", 
         SuperscriptBox["R23", "3"]}]], "+", 
       FractionBox[
        RowBox[{"2", " ", 
         SuperscriptBox["c", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", 
            SuperscriptBox["dot1223", "2"]}], "+", 
           RowBox[{
            SuperscriptBox["R12", "2"], " ", 
            SuperscriptBox["R23", "2"]}]}], ")"}]}], 
        RowBox[{
         SuperscriptBox["m2", "3"], " ", 
         SuperscriptBox["R23", "2"]}]]}], 
      SuperscriptBox["R12", "3"]]}], ")"}]}], "+", 
  RowBox[{
   SuperscriptBox["a", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       RowBox[{"10", " ", "b"}], 
       RowBox[{
        SuperscriptBox["m1", "3"], " ", "R13"}]]}], "-", 
     FractionBox[
      RowBox[{"10", " ", "c"}], 
      RowBox[{
       SuperscriptBox["m2", "3"], " ", "R23"}]], "+", 
     FractionBox[
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         RowBox[{"8", " ", "b", " ", "dot1213"}], 
         RowBox[{
          SuperscriptBox["m1", "3"], " ", "R13"}]]}], "+", 
       FractionBox[
        RowBox[{"2", " ", "b", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", 
            SuperscriptBox["dot1213", "2"]}], "+", 
           RowBox[{
            SuperscriptBox["R12", "2"], " ", 
            SuperscriptBox["R13", "2"]}]}], ")"}]}], 
        RowBox[{
         SuperscriptBox["m1", "3"], " ", 
         SuperscriptBox["R13", "3"]}]], "+", 
       FractionBox[
        RowBox[{"2", " ", 
         SuperscriptBox["b", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", 
            SuperscriptBox["dot1213", "2"]}], "+", 
           RowBox[{
            SuperscriptBox["R12", "2"], " ", 
            SuperscriptBox["R13", "2"]}]}], ")"}]}], 
        RowBox[{
         SuperscriptBox["m1", "3"], " ", 
         SuperscriptBox["R13", "2"]}]], "+", 
       FractionBox[
        RowBox[{"8", " ", "c", " ", "dot1223"}], 
        RowBox[{
         SuperscriptBox["m2", "3"], " ", "R23"}]], "+", 
       FractionBox[
        RowBox[{"2", " ", "c", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", 
            SuperscriptBox["dot1223", "2"]}], "+", 
           RowBox[{
            SuperscriptBox["R12", "2"], " ", 
            SuperscriptBox["R23", "2"]}]}], ")"}]}], 
        RowBox[{
         SuperscriptBox["m2", "3"], " ", 
         SuperscriptBox["R23", "3"]}]], "+", 
       FractionBox[
        RowBox[{"2", " ", 
         SuperscriptBox["c", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", 
            SuperscriptBox["dot1223", "2"]}], "+", 
           RowBox[{
            SuperscriptBox["R12", "2"], " ", 
            SuperscriptBox["R23", "2"]}]}], ")"}]}], 
        RowBox[{
         SuperscriptBox["m2", "3"], " ", 
         SuperscriptBox["R23", "2"]}]]}], 
      SuperscriptBox["R12", "2"]]}], ")"}]}]}]], "Output",
 CellChangeTimes->{
  3.950783226966425*^9, {3.9507832633820686`*^9, 3.95078328706402*^9}, 
   3.950783361374449*^9, {3.950783419276741*^9, 3.950783514706009*^9}, 
   3.9508484093873863`*^9, {3.950848575679716*^9, 3.9508485898227882`*^9}, 
   3.950848946381729*^9, {3.9508489851940556`*^9, 3.9508490080668697`*^9}, 
   3.950849043479889*^9, 3.9508492861789227`*^9, {3.9508496263405495`*^9, 
   3.9508496507345905`*^9}, 3.9508497578971176`*^9, {3.950849867956835*^9, 
   3.950849904406948*^9}, 3.950849989708109*^9, 3.95085002006962*^9, 
   3.9508500606425915`*^9, 3.9508501087271004`*^9, {3.95085015121146*^9, 
   3.9508501661437397`*^9}, {3.950850520480234*^9, 3.950850534747072*^9}, {
   3.950850596648449*^9, 3.950850618217348*^9}, {3.950850676967451*^9, 
   3.9508506849075737`*^9}, 3.950851115067356*^9, 3.9508512260216637`*^9, 
   3.9508547604106255`*^9, 3.9508607001279106`*^9, {3.9508774411888256`*^9, 
   3.9508774598687706`*^9}, 3.950938287710312*^9, 3.9509529330729065`*^9, 
   3.950953021118557*^9, 3.950953942690567*^9, 3.9509541046654644`*^9, 
   3.9509541530186405`*^9, 3.950954441794626*^9, 3.9509551147801876`*^9, 
   3.9509606247100945`*^9, 3.9509610041837826`*^9, 3.9509613240907516`*^9, 
   3.9509613869303665`*^9, 3.9509631496824093`*^9, 3.9510435911857433`*^9, 
   3.9510487019015026`*^9, 3.9510487668886795`*^9, 3.9510500782013855`*^9},
 CellLabel->
  "Out[609]=",ExpressionUUID->"e30efa43-421c-4541-b5af-3501b6f93db4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"expr", "=", 
  RowBox[{"ReplaceAll", "[", 
   RowBox[{"lap7", ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"dot1213", "->", 
       RowBox[{
        FractionBox["1", "2"], 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["R12", "2"], "+", 
          SuperscriptBox["R13", "2"], "-", 
          SuperscriptBox["R23", "2"]}], ")"}]}]}], ",", 
      RowBox[{"dot1223", "->", 
       RowBox[{
        FractionBox["1", "2"], 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           SuperscriptBox["R12", "2"]}], "+", 
          SuperscriptBox["R13", "2"], "-", 
          SuperscriptBox["R23", "2"]}], ")"}]}]}], ",", 
      RowBox[{"dot1323", "->", 
       RowBox[{
        FractionBox["1", "2"], 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           SuperscriptBox["R12", "2"]}], "+", 
          SuperscriptBox["R13", "2"], "+", 
          SuperscriptBox["R23", "2"]}], ")"}]}]}]}], "}"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.950863534038084*^9, 3.9508635825770416`*^9}, {
   3.950866392259371*^9, 3.9508663942993507`*^9}, 3.950866795379631*^9, {
   3.9508726808926086`*^9, 3.9508726829526386`*^9}, {3.9509531177477837`*^9, 
   3.950953118615818*^9}, {3.9509541861638813`*^9, 3.950954237334425*^9}, {
   3.950960685365635*^9, 3.950960690515951*^9}, {3.951043501255993*^9, 
   3.951043541507025*^9}, {3.951045799544672*^9, 3.9510458320173264`*^9}, 
   3.9510461031265736`*^9, {3.951046145134247*^9, 3.9510461547994576`*^9}, {
   3.9510520000222073`*^9, 3.951052024097492*^9}},
 CellLabel->
  "In[654]:=",ExpressionUUID->"65783644-d054-304c-a875-12ff61299df8"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["a", "4"], " ", 
   RowBox[{"(", 
    RowBox[{
     FractionBox["1", 
      SuperscriptBox["m1", "3"]], "+", 
     FractionBox["1", 
      SuperscriptBox["m2", "3"]]}], ")"}]}], "+", 
  RowBox[{
   SuperscriptBox["b", "4"], " ", 
   RowBox[{"(", 
    RowBox[{
     FractionBox["1", 
      SuperscriptBox["m1", "3"]], "+", 
     FractionBox["1", 
      SuperscriptBox["m3", "3"]]}], ")"}]}], "+", 
  RowBox[{
   SuperscriptBox["c", "4"], " ", 
   RowBox[{"(", 
    RowBox[{
     FractionBox["1", 
      SuperscriptBox["m2", "3"]], "+", 
     FractionBox["1", 
      SuperscriptBox["m3", "3"]]}], ")"}]}], "-", 
  FractionBox[
   RowBox[{"2", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"5", " ", 
       SuperscriptBox["b", "2"], " ", "c", " ", 
       SuperscriptBox["m2", "3"]}], "+", 
      RowBox[{"2", " ", 
       SuperscriptBox["c", "3"], " ", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["m2", "3"], "+", 
         SuperscriptBox["m3", "3"]}], ")"}]}]}], ")"}]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["m3", "3"], " ", "R23"}]], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["a", "3"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       FractionBox["4", 
        SuperscriptBox["m1", "3"]]}], "-", 
      FractionBox["4", 
       SuperscriptBox["m2", "3"]], "-", 
      FractionBox[
       RowBox[{"2", " ", "c", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           SuperscriptBox["R12", "2"]}], "+", 
          SuperscriptBox["R13", "2"], "-", 
          SuperscriptBox["R23", "2"]}], ")"}]}], 
       RowBox[{
        SuperscriptBox["m2", "3"], " ", "R23"}]], "+", 
      FractionBox[
       RowBox[{"2", " ", "b", " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["R12", "2"], "+", 
          SuperscriptBox["R13", "2"], "-", 
          SuperscriptBox["R23", "2"]}], ")"}]}], 
       RowBox[{
        SuperscriptBox["m1", "3"], " ", "R13"}]]}], ")"}]}], "R12"], "+", 
  FractionBox[
   RowBox[{
    RowBox[{"-", 
     FractionBox[
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"5", " ", "b", " ", 
          SuperscriptBox["c", "2"], " ", 
          SuperscriptBox["m1", "3"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["b", "3"], " ", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["m1", "3"], "+", 
            SuperscriptBox["m3", "3"]}], ")"}]}]}], ")"}]}], 
      RowBox[{
       SuperscriptBox["m1", "3"], " ", 
       SuperscriptBox["m3", "3"]}]]}], "-", 
    FractionBox[
     RowBox[{"4", " ", "b", " ", "c", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["R12", "2"]}], "+", 
        SuperscriptBox["R13", "2"], "+", 
        SuperscriptBox["R23", "2"]}], ")"}]}], 
     RowBox[{
      SuperscriptBox["m3", "3"], " ", 
      SuperscriptBox["R23", "3"]}]], "-", 
    FractionBox[
     RowBox[{"4", " ", "b", " ", 
      SuperscriptBox["c", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["R12", "2"]}], "+", 
        SuperscriptBox["R13", "2"], "+", 
        SuperscriptBox["R23", "2"]}], ")"}]}], 
     RowBox[{
      SuperscriptBox["m3", "3"], " ", 
      SuperscriptBox["R23", "2"]}]], "+", 
    FractionBox[
     RowBox[{"2", " ", "b", " ", "c", " ", 
      RowBox[{"(", 
       RowBox[{"5", "+", 
        RowBox[{
         SuperscriptBox["b", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            SuperscriptBox["R12", "2"]}], "+", 
           SuperscriptBox["R13", "2"], "+", 
           SuperscriptBox["R23", "2"]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["c", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            SuperscriptBox["R12", "2"]}], "+", 
           SuperscriptBox["R13", "2"], "+", 
           SuperscriptBox["R23", "2"]}], ")"}]}]}], ")"}]}], 
     RowBox[{
      SuperscriptBox["m3", "3"], " ", "R23"}]]}], "R13"], "+", 
  FractionBox[
   RowBox[{
    RowBox[{"-", 
     FractionBox[
      RowBox[{"4", " ", "b", " ", "c", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", 
          SuperscriptBox["R12", "2"]}], "+", 
         SuperscriptBox["R13", "2"], "+", 
         SuperscriptBox["R23", "2"]}], ")"}]}], 
      RowBox[{
       SuperscriptBox["m3", "3"], " ", "R23"}]]}], "+", 
    FractionBox[
     RowBox[{"2", " ", "b", " ", "c", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         SuperscriptBox["R13", "2"], " ", 
         SuperscriptBox["R23", "2"]}], "+", 
        RowBox[{
         FractionBox["1", "2"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["R12", "2"]}], "+", 
            SuperscriptBox["R13", "2"], "+", 
            SuperscriptBox["R23", "2"]}], ")"}], "2"]}]}], ")"}]}], 
     RowBox[{
      SuperscriptBox["m3", "3"], " ", 
      SuperscriptBox["R23", "3"]}]], "+", 
    FractionBox[
     RowBox[{"2", " ", "b", " ", 
      SuperscriptBox["c", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         SuperscriptBox["R13", "2"], " ", 
         SuperscriptBox["R23", "2"]}], "+", 
        RowBox[{
         FractionBox["1", "2"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["R12", "2"]}], "+", 
            SuperscriptBox["R13", "2"], "+", 
            SuperscriptBox["R23", "2"]}], ")"}], "2"]}]}], ")"}]}], 
     RowBox[{
      SuperscriptBox["m3", "3"], " ", 
      SuperscriptBox["R23", "2"]}]]}], 
   SuperscriptBox["R13", "3"]], "+", 
  FractionBox[
   RowBox[{
    RowBox[{"-", 
     FractionBox[
      RowBox[{"4", " ", 
       SuperscriptBox["b", "2"], " ", "c", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", 
          SuperscriptBox["R12", "2"]}], "+", 
         SuperscriptBox["R13", "2"], "+", 
         SuperscriptBox["R23", "2"]}], ")"}]}], 
      RowBox[{
       SuperscriptBox["m3", "3"], " ", "R23"}]]}], "+", 
    FractionBox[
     RowBox[{"2", " ", 
      SuperscriptBox["b", "2"], " ", "c", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         SuperscriptBox["R13", "2"], " ", 
         SuperscriptBox["R23", "2"]}], "+", 
        RowBox[{
         FractionBox["1", "2"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["R12", "2"]}], "+", 
            SuperscriptBox["R13", "2"], "+", 
            SuperscriptBox["R23", "2"]}], ")"}], "2"]}]}], ")"}]}], 
     RowBox[{
      SuperscriptBox["m3", "3"], " ", 
      SuperscriptBox["R23", "3"]}]], "+", 
    FractionBox[
     RowBox[{"2", " ", 
      SuperscriptBox["b", "2"], " ", 
      SuperscriptBox["c", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         SuperscriptBox["R13", "2"], " ", 
         SuperscriptBox["R23", "2"]}], "+", 
        RowBox[{
         FractionBox["1", "2"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["R12", "2"]}], "+", 
            SuperscriptBox["R13", "2"], "+", 
            SuperscriptBox["R23", "2"]}], ")"}], "2"]}]}], ")"}]}], 
     RowBox[{
      SuperscriptBox["m3", "3"], " ", 
      SuperscriptBox["R23", "2"]}]]}], 
   SuperscriptBox["R13", "2"]], "+", 
  RowBox[{"a", " ", 
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         RowBox[{"10", " ", 
          SuperscriptBox["b", "2"]}], 
         SuperscriptBox["m1", "3"]]}], "-", 
       FractionBox[
        RowBox[{"4", " ", "b", " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["R12", "2"], "+", 
           SuperscriptBox["R13", "2"], "-", 
           SuperscriptBox["R23", "2"]}], ")"}]}], 
        RowBox[{
         SuperscriptBox["m1", "3"], " ", 
         SuperscriptBox["R13", "3"]}]], "-", 
       FractionBox[
        RowBox[{"4", " ", 
         SuperscriptBox["b", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["R12", "2"], "+", 
           SuperscriptBox["R13", "2"], "-", 
           SuperscriptBox["R23", "2"]}], ")"}]}], 
        RowBox[{
         SuperscriptBox["m1", "3"], " ", 
         SuperscriptBox["R13", "2"]}]], "+", 
       FractionBox[
        RowBox[{"2", " ", "c", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "5"}], " ", 
            SuperscriptBox["R23", "2"]}], "+", 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               SuperscriptBox["R12", "2"]}], "+", 
              SuperscriptBox["R13", "2"], "-", 
              SuperscriptBox["R23", "2"]}], ")"}]}]}], ")"}]}], 
        RowBox[{
         SuperscriptBox["m2", "3"], " ", 
         SuperscriptBox["R23", "3"]}]], "+", 
       FractionBox[
        RowBox[{"2", " ", 
         SuperscriptBox["c", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "5"}], " ", 
            SuperscriptBox["R23", "2"]}], "+", 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               SuperscriptBox["R12", "2"]}], "+", 
              SuperscriptBox["R13", "2"], "-", 
              SuperscriptBox["R23", "2"]}], ")"}]}]}], ")"}]}], 
        RowBox[{
         SuperscriptBox["m2", "3"], " ", 
         SuperscriptBox["R23", "2"]}]], "-", 
       FractionBox[
        RowBox[{"4", " ", "c", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "5"}], "+", 
           RowBox[{
            FractionBox["1", "2"], " ", 
            SuperscriptBox["c", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               SuperscriptBox["R12", "2"]}], "+", 
              SuperscriptBox["R13", "2"], "-", 
              SuperscriptBox["R23", "2"]}], ")"}]}]}], ")"}]}], 
        RowBox[{
         SuperscriptBox["m2", "3"], " ", "R23"}]], "+", 
       FractionBox[
        RowBox[{"2", " ", "b", " ", 
         RowBox[{"(", 
          RowBox[{"5", "+", 
           RowBox[{
            SuperscriptBox["b", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox["R12", "2"], "+", 
              SuperscriptBox["R13", "2"], "-", 
              SuperscriptBox["R23", "2"]}], ")"}]}]}], ")"}]}], 
        RowBox[{
         SuperscriptBox["m1", "3"], " ", "R13"}]]}], "R12"], "+", 
     FractionBox[
      RowBox[{
       FractionBox[
        RowBox[{"4", " ", "c", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            SuperscriptBox["R12", "2"]}], "+", 
           SuperscriptBox["R13", "2"], "-", 
           SuperscriptBox["R23", "2"]}], ")"}]}], 
        RowBox[{
         SuperscriptBox["m2", "3"], " ", "R23"}]], "-", 
       FractionBox[
        RowBox[{"4", " ", "b", " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["R12", "2"], "+", 
           SuperscriptBox["R13", "2"], "-", 
           SuperscriptBox["R23", "2"]}], ")"}]}], 
        RowBox[{
         SuperscriptBox["m1", "3"], " ", "R13"}]], "+", 
       FractionBox[
        RowBox[{"2", " ", "c", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SuperscriptBox["R12", "2"], " ", 
            SuperscriptBox["R23", "2"]}], "+", 
           RowBox[{
            FractionBox["1", "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", 
                SuperscriptBox["R12", "2"]}], "+", 
               SuperscriptBox["R13", "2"], "-", 
               SuperscriptBox["R23", "2"]}], ")"}], "2"]}]}], ")"}]}], 
        RowBox[{
         SuperscriptBox["m2", "3"], " ", 
         SuperscriptBox["R23", "3"]}]], "+", 
       FractionBox[
        RowBox[{"2", " ", 
         SuperscriptBox["c", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SuperscriptBox["R12", "2"], " ", 
            SuperscriptBox["R23", "2"]}], "+", 
           RowBox[{
            FractionBox["1", "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", 
                SuperscriptBox["R12", "2"]}], "+", 
               SuperscriptBox["R13", "2"], "-", 
               SuperscriptBox["R23", "2"]}], ")"}], "2"]}]}], ")"}]}], 
        RowBox[{
         SuperscriptBox["m2", "3"], " ", 
         SuperscriptBox["R23", "2"]}]], "+", 
       FractionBox[
        RowBox[{"2", " ", "b", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SuperscriptBox["R12", "2"], " ", 
            SuperscriptBox["R13", "2"]}], "+", 
           RowBox[{
            FractionBox["1", "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox["R12", "2"], "+", 
               SuperscriptBox["R13", "2"], "-", 
               SuperscriptBox["R23", "2"]}], ")"}], "2"]}]}], ")"}]}], 
        RowBox[{
         SuperscriptBox["m1", "3"], " ", 
         SuperscriptBox["R13", "3"]}]], "+", 
       FractionBox[
        RowBox[{"2", " ", 
         SuperscriptBox["b", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SuperscriptBox["R12", "2"], " ", 
            SuperscriptBox["R13", "2"]}], "+", 
           RowBox[{
            FractionBox["1", "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox["R12", "2"], "+", 
               SuperscriptBox["R13", "2"], "-", 
               SuperscriptBox["R23", "2"]}], ")"}], "2"]}]}], ")"}]}], 
        RowBox[{
         SuperscriptBox["m1", "3"], " ", 
         SuperscriptBox["R13", "2"]}]]}], 
      SuperscriptBox["R12", "3"]]}], ")"}]}], "+", 
  RowBox[{
   SuperscriptBox["a", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       RowBox[{"10", " ", "b"}], 
       RowBox[{
        SuperscriptBox["m1", "3"], " ", "R13"}]]}], "-", 
     FractionBox[
      RowBox[{"10", " ", "c"}], 
      RowBox[{
       SuperscriptBox["m2", "3"], " ", "R23"}]], "+", 
     FractionBox[
      RowBox[{
       FractionBox[
        RowBox[{"4", " ", "c", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            SuperscriptBox["R12", "2"]}], "+", 
           SuperscriptBox["R13", "2"], "-", 
           SuperscriptBox["R23", "2"]}], ")"}]}], 
        RowBox[{
         SuperscriptBox["m2", "3"], " ", "R23"}]], "-", 
       FractionBox[
        RowBox[{"4", " ", "b", " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["R12", "2"], "+", 
           SuperscriptBox["R13", "2"], "-", 
           SuperscriptBox["R23", "2"]}], ")"}]}], 
        RowBox[{
         SuperscriptBox["m1", "3"], " ", "R13"}]], "+", 
       FractionBox[
        RowBox[{"2", " ", "c", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SuperscriptBox["R12", "2"], " ", 
            SuperscriptBox["R23", "2"]}], "+", 
           RowBox[{
            FractionBox["1", "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", 
                SuperscriptBox["R12", "2"]}], "+", 
               SuperscriptBox["R13", "2"], "-", 
               SuperscriptBox["R23", "2"]}], ")"}], "2"]}]}], ")"}]}], 
        RowBox[{
         SuperscriptBox["m2", "3"], " ", 
         SuperscriptBox["R23", "3"]}]], "+", 
       FractionBox[
        RowBox[{"2", " ", 
         SuperscriptBox["c", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SuperscriptBox["R12", "2"], " ", 
            SuperscriptBox["R23", "2"]}], "+", 
           RowBox[{
            FractionBox["1", "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", 
                SuperscriptBox["R12", "2"]}], "+", 
               SuperscriptBox["R13", "2"], "-", 
               SuperscriptBox["R23", "2"]}], ")"}], "2"]}]}], ")"}]}], 
        RowBox[{
         SuperscriptBox["m2", "3"], " ", 
         SuperscriptBox["R23", "2"]}]], "+", 
       FractionBox[
        RowBox[{"2", " ", "b", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SuperscriptBox["R12", "2"], " ", 
            SuperscriptBox["R13", "2"]}], "+", 
           RowBox[{
            FractionBox["1", "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox["R12", "2"], "+", 
               SuperscriptBox["R13", "2"], "-", 
               SuperscriptBox["R23", "2"]}], ")"}], "2"]}]}], ")"}]}], 
        RowBox[{
         SuperscriptBox["m1", "3"], " ", 
         SuperscriptBox["R13", "3"]}]], "+", 
       FractionBox[
        RowBox[{"2", " ", 
         SuperscriptBox["b", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SuperscriptBox["R12", "2"], " ", 
            SuperscriptBox["R13", "2"]}], "+", 
           RowBox[{
            FractionBox["1", "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox["R12", "2"], "+", 
               SuperscriptBox["R13", "2"], "-", 
               SuperscriptBox["R23", "2"]}], ")"}], "2"]}]}], ")"}]}], 
        RowBox[{
         SuperscriptBox["m1", "3"], " ", 
         SuperscriptBox["R13", "2"]}]]}], 
      SuperscriptBox["R12", "2"]]}], ")"}]}]}]], "Output",
 CellChangeTimes->{{3.9508635629069443`*^9, 3.9508635829767914`*^9}, 
   3.950866397139168*^9, 3.9508667968490906`*^9, 3.9508726839627094`*^9, {
   3.9508774412212944`*^9, 3.950877459895197*^9}, 3.950938287753071*^9, 
   3.9509529331207085`*^9, 3.950953021186123*^9, 3.9509531194531746`*^9, 
   3.9509539427280254`*^9, 3.95095411724094*^9, 3.9509541586791286`*^9, 
   3.9509542408813095`*^9, 3.950954441826441*^9, 3.9509606925703945`*^9, 
   3.9509610110758553`*^9, 3.9509613297633266`*^9, 3.950961387025427*^9, 
   3.9509631515500793`*^9, 3.951043542717615*^9, 3.9510435912491302`*^9, {
   3.951045800463135*^9, 3.9510458059983635`*^9}, 3.9510461055091305`*^9, 
   3.951046155128042*^9, 3.951048701930525*^9, 3.9510487669326897`*^9, 
   3.951050078233326*^9, 3.951052026920456*^9},
 CellLabel->
  "Out[654]=",ExpressionUUID->"4e62d834-6e8c-0e45-a2cb-d181b6e55e58"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"abcs", "=", 
  RowBox[{"Times", "@@@", 
   RowBox[{
    RowBox[{"Subsets", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", 
        FractionBox["1", 
         SuperscriptBox["m1", "3"]], ",", 
        FractionBox["1", 
         SuperscriptBox["m2", "3"]], ",", 
        FractionBox["1", 
         SuperscriptBox["m3", "3"]], ",", 
        RowBox[{"a", "^", "2"}], ",", 
        RowBox[{"b", "^", "2"}], ",", 
        RowBox[{"c", "^", "2"}], ",", 
        RowBox[{"a", "^", "3"}], ",", 
        RowBox[{"b", "^", "3"}], ",", 
        RowBox[{"c", "^", "3"}], ",", 
        RowBox[{"a", "^", "4"}], ",", 
        RowBox[{"b", "^", "4"}], ",", 
        RowBox[{"c", "^", "4"}]}], "}"}], ",", "6"}], "]"}], "[", 
    RowBox[{"[", 
     RowBox[{"8", ";;", 
      RowBox[{"-", "1"}]}], "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.9510461998440247`*^9, 3.9510462164764786`*^9}, {
  3.9510495540036545`*^9, 3.9510495709823647`*^9}, {3.951049605957985*^9, 
  3.9510496240298977`*^9}},
 CellLabel->
  "In[655]:=",ExpressionUUID->"6647e0f2-27e3-4f42-b2b9-4d2156a46a4e"],

Cell[BoxData[
 TemplateBox[<|"shortenedBoxes" -> TagBox[
     RowBox[{"{", 
       RowBox[{
         SuperscriptBox["a", "2"], ",", 
         SuperscriptBox["b", "2"], ",", 
         SuperscriptBox["c", "2"], ",", 
         SuperscriptBox["a", "3"], ",", 
         SuperscriptBox["b", "3"], ",", 
         SuperscriptBox["c", "3"], ",", 
         SuperscriptBox["a", "4"], ",", 
         SuperscriptBox["b", "4"], ",", 
         SuperscriptBox["c", "4"], ",", 
         RowBox[{"a", " ", "b"}], ",", 
         RowBox[{"a", " ", "c"}], ",", 
         FractionBox["a", 
          SuperscriptBox["m1", "3"]], ",", 
         FractionBox["a", 
          SuperscriptBox["m2", "3"]], ",", 
         FractionBox["a", 
          SuperscriptBox["m3", "3"]], ",", 
         SuperscriptBox["a", "3"], ",", 
         RowBox[{"a", " ", 
           SuperscriptBox["b", "2"]}], ",", 
         RowBox[{"a", " ", 
           SuperscriptBox["c", "2"]}], ",", 
         SuperscriptBox["a", "4"], ",", 
         RowBox[{"a", " ", 
           SuperscriptBox["b", "3"]}], ",", 
         RowBox[{"a", " ", 
           SuperscriptBox["c", "3"]}], ",", 
         SuperscriptBox["a", "5"], ",", 
         RowBox[{"a", " ", 
           SuperscriptBox["b", "4"]}], ",", 
         RowBox[{"a", " ", 
           SuperscriptBox["c", "4"]}], ",", 
         RowBox[{"b", " ", "c"}], ",", 
         FractionBox["b", 
          SuperscriptBox["m1", "3"]], ",", 
         FractionBox["b", 
          SuperscriptBox["m2", "3"]], ",", 
         FractionBox["b", 
          SuperscriptBox["m3", "3"]], ",", 
         RowBox[{
           SuperscriptBox["a", "2"], " ", "b"}], ",", 
         SuperscriptBox["b", "3"], ",", 
         RowBox[{"b", " ", 
           SuperscriptBox["c", "2"]}], ",", 
         RowBox[{
           SuperscriptBox["a", "3"], " ", "b"}], ",", 
         SuperscriptBox["b", "4"], ",", 
         RowBox[{"b", " ", 
           SuperscriptBox["c", "3"]}], ",", 
         RowBox[{
           SuperscriptBox["a", "4"], " ", "b"}], ",", 
         SuperscriptBox["b", "5"], ",", 
         RowBox[{"b", " ", 
           SuperscriptBox["c", "4"]}], ",", 
         FractionBox["c", 
          SuperscriptBox["m1", "3"]], ",", 
         FractionBox["c", 
          SuperscriptBox["m2", "3"]], ",", 
         FractionBox["c", 
          SuperscriptBox["m3", "3"]], ",", 
         RowBox[{
           SuperscriptBox["a", "2"], " ", "c"}], ",", 
         RowBox[{
           SuperscriptBox["b", "2"], " ", "c"}], ",", 
         SuperscriptBox["c", "3"], ",", 
         RowBox[{
           SuperscriptBox["a", "3"], " ", "c"}], ",", 
         RowBox[{
           SuperscriptBox["b", "3"], " ", "c"}], ",", 
         SuperscriptBox["c", "4"], ",", 
         RowBox[{
           SuperscriptBox["a", "4"], " ", "c"}], ",", 
         RowBox[{
           SuperscriptBox["b", "4"], " ", "c"}], ",", 
         SuperscriptBox["c", "5"], ",", 
         FractionBox["1", 
          RowBox[{
            SuperscriptBox["m1", "3"], " ", 
            SuperscriptBox["m2", "3"]}]], ",", 
         FractionBox["1", 
          RowBox[{
            SuperscriptBox["m1", "3"], " ", 
            SuperscriptBox["m3", "3"]}]], ",", 
         FractionBox[
          SuperscriptBox["a", "2"], 
          SuperscriptBox["m1", "3"]], ",", 
         FractionBox[
          SuperscriptBox["b", "2"], 
          SuperscriptBox["m1", "3"]], ",", 
         FractionBox[
          SuperscriptBox["c", "2"], 
          SuperscriptBox["m1", "3"]], ",", 
         FractionBox[
          SuperscriptBox["a", "3"], 
          SuperscriptBox["m1", "3"]], ",", 
         FractionBox[
          SuperscriptBox["b", "3"], 
          SuperscriptBox["m1", "3"]], ",", 
         FractionBox[
          SuperscriptBox["c", "3"], 
          SuperscriptBox["m1", "3"]], ",", 
         FractionBox[
          SuperscriptBox["a", "4"], 
          SuperscriptBox["m1", "3"]], ",", 
         FractionBox[
          SuperscriptBox["b", "4"], 
          SuperscriptBox["m1", "3"]], ",", 
         FractionBox[
          SuperscriptBox["c", "4"], 
          SuperscriptBox["m1", "3"]], ",", 
         FractionBox["1", 
          RowBox[{
            SuperscriptBox["m2", "3"], " ", 
            SuperscriptBox["m3", "3"]}]], ",", 
         FractionBox[
          SuperscriptBox["a", "2"], 
          SuperscriptBox["m2", "3"]], ",", 
         FractionBox[
          SuperscriptBox["b", "2"], 
          SuperscriptBox["m2", "3"]], ",", 
         FractionBox[
          SuperscriptBox["c", "2"], 
          SuperscriptBox["m2", "3"]], ",", 
         FractionBox[
          SuperscriptBox["a", "3"], 
          SuperscriptBox["m2", "3"]], ",", 
         FractionBox[
          SuperscriptBox["b", "3"], 
          SuperscriptBox["m2", "3"]], ",", 
         FractionBox[
          SuperscriptBox["c", "3"], 
          SuperscriptBox["m2", "3"]], ",", 
         FractionBox[
          SuperscriptBox["a", "4"], 
          SuperscriptBox["m2", "3"]], ",", 
         FractionBox[
          SuperscriptBox["b", "4"], 
          SuperscriptBox["m2", "3"]], ",", 
         FractionBox[
          SuperscriptBox["c", "4"], 
          SuperscriptBox["m2", "3"]], ",", 
         FractionBox[
          SuperscriptBox["a", "2"], 
          SuperscriptBox["m3", "3"]], ",", 
         FractionBox[
          SuperscriptBox["b", "2"], 
          SuperscriptBox["m3", "3"]], ",", 
         FractionBox[
          SuperscriptBox["c", "2"], 
          SuperscriptBox["m3", "3"]], ",", 
         FractionBox[
          SuperscriptBox["a", "3"], 
          SuperscriptBox["m3", "3"]], ",", 
         FractionBox[
          SuperscriptBox["b", "3"], 
          SuperscriptBox["m3", "3"]], ",", 
         FractionBox[
          SuperscriptBox["c", "3"], 
          SuperscriptBox["m3", "3"]], ",", 
         FractionBox[
          SuperscriptBox["a", "4"], 
          SuperscriptBox["m3", "3"]], ",", 
         FractionBox[
          SuperscriptBox["b", "4"], 
          SuperscriptBox["m3", "3"]], ",", 
         FractionBox[
          SuperscriptBox["c", "4"], 
          SuperscriptBox["m3", "3"]], ",", 
         RowBox[{
           SuperscriptBox["a", "2"], " ", 
           SuperscriptBox["b", "2"]}], ",", 
         TemplateBox[{"9784"}, "OutputSizeLimit`Skeleton"], ",", 
         RowBox[{
           SuperscriptBox["a", "5"], " ", 
           SuperscriptBox["b", "6"], " ", 
           SuperscriptBox["c", "5"]}], ",", 
         RowBox[{
           SuperscriptBox["a", "5"], " ", 
           SuperscriptBox["b", "2"], " ", 
           SuperscriptBox["c", "9"]}], ",", 
         RowBox[{
           SuperscriptBox["a", "9"], " ", 
           SuperscriptBox["b", "6"], " ", 
           SuperscriptBox["c", "2"]}], ",", 
         RowBox[{
           SuperscriptBox["a", "9"], " ", 
           SuperscriptBox["b", "2"], " ", 
           SuperscriptBox["c", "6"]}], ",", 
         RowBox[{
           SuperscriptBox["a", "5"], " ", 
           SuperscriptBox["b", "6"], " ", 
           SuperscriptBox["c", "6"]}], ",", 
         RowBox[{
           SuperscriptBox["a", "6"], " ", 
           SuperscriptBox["b", "5"], " ", 
           SuperscriptBox["c", "5"]}], ",", 
         RowBox[{
           SuperscriptBox["a", "2"], " ", 
           SuperscriptBox["b", "9"], " ", 
           SuperscriptBox["c", "5"]}], ",", 
         RowBox[{
           SuperscriptBox["a", "2"], " ", 
           SuperscriptBox["b", "5"], " ", 
           SuperscriptBox["c", "9"]}], ",", 
         RowBox[{
           SuperscriptBox["a", "6"], " ", 
           SuperscriptBox["b", "9"], " ", 
           SuperscriptBox["c", "2"]}], ",", 
         RowBox[{
           SuperscriptBox["a", "6"], " ", 
           SuperscriptBox["b", "5"], " ", 
           SuperscriptBox["c", "6"]}], ",", 
         RowBox[{
           SuperscriptBox["a", "2"], " ", 
           SuperscriptBox["b", "9"], " ", 
           SuperscriptBox["c", "6"]}], ",", 
         RowBox[{
           SuperscriptBox["a", "6"], " ", 
           SuperscriptBox["b", "6"], " ", 
           SuperscriptBox["c", "5"]}], ",", 
         RowBox[{
           SuperscriptBox["a", "6"], " ", 
           SuperscriptBox["b", "2"], " ", 
           SuperscriptBox["c", "9"]}], ",", 
         RowBox[{
           SuperscriptBox["a", "2"], " ", 
           SuperscriptBox["b", "6"], " ", 
           SuperscriptBox["c", "9"]}], ",", 
         RowBox[{
           SuperscriptBox["a", "6"], " ", 
           SuperscriptBox["b", "6"], " ", 
           SuperscriptBox["c", "6"]}], ",", 
         RowBox[{
           SuperscriptBox["a", "9"], " ", 
           SuperscriptBox["b", "5"], " ", 
           SuperscriptBox["c", "3"]}], ",", 
         RowBox[{
           SuperscriptBox["a", "5"], " ", 
           SuperscriptBox["b", "9"], " ", 
           SuperscriptBox["c", "3"]}], ",", 
         RowBox[{
           SuperscriptBox["a", "5"], " ", 
           SuperscriptBox["b", "5"], " ", 
           SuperscriptBox["c", "7"]}], ",", 
         RowBox[{
           SuperscriptBox["a", "9"], " ", 
           SuperscriptBox["b", "9"]}], ",", 
         RowBox[{
           SuperscriptBox["a", "9"], " ", 
           SuperscriptBox["b", "5"], " ", 
           SuperscriptBox["c", "4"]}], ",", 
         RowBox[{
           SuperscriptBox["a", "5"], " ", 
           SuperscriptBox["b", "9"], " ", 
           SuperscriptBox["c", "4"]}], ",", 
         RowBox[{
           SuperscriptBox["a", "9"], " ", 
           SuperscriptBox["b", "6"], " ", 
           SuperscriptBox["c", "3"]}], ",", 
         RowBox[{
           SuperscriptBox["a", "9"], " ", 
           SuperscriptBox["b", "2"], " ", 
           SuperscriptBox["c", "7"]}], ",", 
         RowBox[{
           SuperscriptBox["a", "5"], " ", 
           SuperscriptBox["b", "6"], " ", 
           SuperscriptBox["c", "7"]}], ",", 
         RowBox[{
           SuperscriptBox["a", "9"], " ", 
           SuperscriptBox["b", "6"], " ", 
           SuperscriptBox["c", "4"]}], ",", 
         RowBox[{
           SuperscriptBox["a", "6"], " ", 
           SuperscriptBox["b", "9"], " ", 
           SuperscriptBox["c", "3"]}], ",", 
         RowBox[{
           SuperscriptBox["a", "6"], " ", 
           SuperscriptBox["b", "5"], " ", 
           SuperscriptBox["c", "7"]}], ",", 
         RowBox[{
           SuperscriptBox["a", "2"], " ", 
           SuperscriptBox["b", "9"], " ", 
           SuperscriptBox["c", "7"]}], ",", 
         RowBox[{
           SuperscriptBox["a", "6"], " ", 
           SuperscriptBox["b", "9"], " ", 
           SuperscriptBox["c", "4"]}], ",", 
         RowBox[{
           SuperscriptBox["a", "6"], " ", 
           SuperscriptBox["b", "6"], " ", 
           SuperscriptBox["c", "7"]}], ",", 
         RowBox[{
           SuperscriptBox["a", "9"], " ", 
           SuperscriptBox["b", "3"], " ", 
           SuperscriptBox["c", "5"]}], ",", 
         RowBox[{
           SuperscriptBox["a", "5"], " ", 
           SuperscriptBox["b", "7"], " ", 
           SuperscriptBox["c", "5"]}], ",", 
         RowBox[{
           SuperscriptBox["a", "5"], " ", 
           SuperscriptBox["b", "3"], " ", 
           SuperscriptBox["c", "9"]}], ",", 
         RowBox[{
           SuperscriptBox["a", "9"], " ", 
           SuperscriptBox["b", "7"], " ", 
           SuperscriptBox["c", "2"]}], ",", 
         RowBox[{
           SuperscriptBox["a", "9"], " ", 
           SuperscriptBox["b", "3"], " ", 
           SuperscriptBox["c", "6"]}], ",", 
         RowBox[{
           SuperscriptBox["a", "5"], " ", 
           SuperscriptBox["b", "7"], " ", 
           SuperscriptBox["c", "6"]}], ",", 
         RowBox[{
           SuperscriptBox["a", "9"], " ", 
           SuperscriptBox["b", "4"], " ", 
           SuperscriptBox["c", "5"]}], ",", 
         RowBox[{
           SuperscriptBox["a", "9"], " ", 
           SuperscriptBox["c", "9"]}], ",", 
         RowBox[{
           SuperscriptBox["a", "5"], " ", 
           SuperscriptBox["b", "4"], " ", 
           SuperscriptBox["c", "9"]}], ",", 
         RowBox[{
           SuperscriptBox["a", "9"], " ", 
           SuperscriptBox["b", "4"], " ", 
           SuperscriptBox["c", "6"]}], ",", 
         RowBox[{
           SuperscriptBox["a", "6"], " ", 
           SuperscriptBox["b", "7"], " ", 
           SuperscriptBox["c", "5"]}], ",", 
         RowBox[{
           SuperscriptBox["a", "6"], " ", 
           SuperscriptBox["b", "3"], " ", 
           SuperscriptBox["c", "9"]}], ",", 
         RowBox[{
           SuperscriptBox["a", "2"], " ", 
           SuperscriptBox["b", "7"], " ", 
           SuperscriptBox["c", "9"]}], ",", 
         RowBox[{
           SuperscriptBox["a", "6"], " ", 
           SuperscriptBox["b", "7"], " ", 
           SuperscriptBox["c", "6"]}], ",", 
         RowBox[{
           SuperscriptBox["a", "6"], " ", 
           SuperscriptBox["b", "4"], " ", 
           SuperscriptBox["c", "9"]}], ",", 
         RowBox[{
           SuperscriptBox["a", "9"], " ", 
           SuperscriptBox["b", "7"], " ", 
           SuperscriptBox["c", "3"]}], ",", 
         RowBox[{
           SuperscriptBox["a", "9"], " ", 
           SuperscriptBox["b", "3"], " ", 
           SuperscriptBox["c", "7"]}], ",", 
         RowBox[{
           SuperscriptBox["a", "5"], " ", 
           SuperscriptBox["b", "7"], " ", 
           SuperscriptBox["c", "7"]}], ",", 
         RowBox[{
           SuperscriptBox["a", "9"], " ", 
           SuperscriptBox["b", "7"], " ", 
           SuperscriptBox["c", "4"]}], ",", 
         RowBox[{
           SuperscriptBox["a", "9"], " ", 
           SuperscriptBox["b", "4"], " ", 
           SuperscriptBox["c", "7"]}], ",", 
         RowBox[{
           SuperscriptBox["a", "6"], " ", 
           SuperscriptBox["b", "7"], " ", 
           SuperscriptBox["c", "7"]}], ",", 
         RowBox[{
           SuperscriptBox["a", "7"], " ", 
           SuperscriptBox["b", "5"], " ", 
           SuperscriptBox["c", "5"]}], ",", 
         RowBox[{
           SuperscriptBox["a", "3"], " ", 
           SuperscriptBox["b", "9"], " ", 
           SuperscriptBox["c", "5"]}], ",", 
         RowBox[{
           SuperscriptBox["a", "3"], " ", 
           SuperscriptBox["b", "5"], " ", 
           SuperscriptBox["c", "9"]}], ",", 
         RowBox[{
           SuperscriptBox["a", "7"], " ", 
           SuperscriptBox["b", "9"], " ", 
           SuperscriptBox["c", "2"]}], ",", 
         RowBox[{
           SuperscriptBox["a", "7"], " ", 
           SuperscriptBox["b", "5"], " ", 
           SuperscriptBox["c", "6"]}], ",", 
         RowBox[{
           SuperscriptBox["a", "3"], " ", 
           SuperscriptBox["b", "9"], " ", 
           SuperscriptBox["c", "6"]}], ",", 
         RowBox[{
           SuperscriptBox["a", "7"], " ", 
           SuperscriptBox["b", "6"], " ", 
           SuperscriptBox["c", "5"]}], ",", 
         RowBox[{
           SuperscriptBox["a", "7"], " ", 
           SuperscriptBox["b", "2"], " ", 
           SuperscriptBox["c", "9"]}], ",", 
         RowBox[{
           SuperscriptBox["a", "3"], " ", 
           SuperscriptBox["b", "6"], " ", 
           SuperscriptBox["c", "9"]}], ",", 
         RowBox[{
           SuperscriptBox["a", "7"], " ", 
           SuperscriptBox["b", "6"], " ", 
           SuperscriptBox["c", "6"]}], ",", 
         RowBox[{
           SuperscriptBox["a", "4"], " ", 
           SuperscriptBox["b", "9"], " ", 
           SuperscriptBox["c", "5"]}], ",", 
         RowBox[{
           SuperscriptBox["a", "4"], " ", 
           SuperscriptBox["b", "5"], " ", 
           SuperscriptBox["c", "9"]}], ",", 
         RowBox[{
           SuperscriptBox["b", "9"], " ", 
           SuperscriptBox["c", "9"]}], ",", 
         RowBox[{
           SuperscriptBox["a", "4"], " ", 
           SuperscriptBox["b", "9"], " ", 
           SuperscriptBox["c", "6"]}], ",", 
         RowBox[{
           SuperscriptBox["a", "4"], " ", 
           SuperscriptBox["b", "6"], " ", 
           SuperscriptBox["c", "9"]}], ",", 
         RowBox[{
           SuperscriptBox["a", "7"], " ", 
           SuperscriptBox["b", "9"], " ", 
           SuperscriptBox["c", "3"]}], ",", 
         RowBox[{
           SuperscriptBox["a", "7"], " ", 
           SuperscriptBox["b", "5"], " ", 
           SuperscriptBox["c", "7"]}], ",", 
         RowBox[{
           SuperscriptBox["a", "3"], " ", 
           SuperscriptBox["b", "9"], " ", 
           SuperscriptBox["c", "7"]}], ",", 
         RowBox[{
           SuperscriptBox["a", "7"], " ", 
           SuperscriptBox["b", "9"], " ", 
           SuperscriptBox["c", "4"]}], ",", 
         RowBox[{
           SuperscriptBox["a", "7"], " ", 
           SuperscriptBox["b", "6"], " ", 
           SuperscriptBox["c", "7"]}], ",", 
         RowBox[{
           SuperscriptBox["a", "4"], " ", 
           SuperscriptBox["b", "9"], " ", 
           SuperscriptBox["c", "7"]}], ",", 
         RowBox[{
           SuperscriptBox["a", "7"], " ", 
           SuperscriptBox["b", "7"], " ", 
           SuperscriptBox["c", "5"]}], ",", 
         RowBox[{
           SuperscriptBox["a", "7"], " ", 
           SuperscriptBox["b", "3"], " ", 
           SuperscriptBox["c", "9"]}], ",", 
         RowBox[{
           SuperscriptBox["a", "3"], " ", 
           SuperscriptBox["b", "7"], " ", 
           SuperscriptBox["c", "9"]}], ",", 
         RowBox[{
           SuperscriptBox["a", "7"], " ", 
           SuperscriptBox["b", "7"], " ", 
           SuperscriptBox["c", "6"]}], ",", 
         RowBox[{
           SuperscriptBox["a", "7"], " ", 
           SuperscriptBox["b", "4"], " ", 
           SuperscriptBox["c", "9"]}], ",", 
         RowBox[{
           SuperscriptBox["a", "4"], " ", 
           SuperscriptBox["b", "7"], " ", 
           SuperscriptBox["c", "9"]}], ",", 
         RowBox[{
           SuperscriptBox["a", "7"], " ", 
           SuperscriptBox["b", "7"], " ", 
           SuperscriptBox["c", "7"]}]}], "}"}], Short[#, 8]& ], "line" -> 655,
    "sessionID" -> 25696137837180429091, "byteCount" -> 3118472, "size" -> 8, 
   "stored" -> False, "expr" -> Missing["NotStored"], "wrap" -> 
   OutputSizeLimit`Defer, "version" -> 1|>,
  "OutputSizeLimitTemplate"]], "Output",
 CellChangeTimes->{
  3.9510462168177414`*^9, 3.95104870196076*^9, 3.9510487669556103`*^9, 
   3.9510495716887283`*^9, {3.951049616677519*^9, 3.95104962954858*^9}, 
   3.951050078330511*^9, 3.9510520298917522`*^9},
 CellLabel->
  "Out[655]=",ExpressionUUID->"40669fb6-006b-ad48-806e-91f9367997e2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"collectedexpr", "=", 
  RowBox[{"Collect", "[", 
   RowBox[{"lap8", ",", "abcs"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.951046158232353*^9, 3.9510461797676697`*^9}, {
  3.9510462122430534`*^9, 3.951046249853796*^9}},
 CellLabel->
  "In[656]:=",ExpressionUUID->"bedb56fa-c30f-af49-83ea-bbc317de64f2"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["a", "4"], " ", 
   RowBox[{"(", 
    RowBox[{
     FractionBox["1", 
      SuperscriptBox["m1", "3"]], "+", 
     FractionBox["1", 
      SuperscriptBox["m2", "3"]]}], ")"}]}], "+", 
  RowBox[{
   SuperscriptBox["b", "4"], " ", 
   RowBox[{"(", 
    RowBox[{
     FractionBox["1", 
      SuperscriptBox["m1", "3"]], "+", 
     FractionBox["1", 
      SuperscriptBox["m3", "3"]]}], ")"}]}], "+", 
  RowBox[{
   SuperscriptBox["c", "4"], " ", 
   RowBox[{"(", 
    RowBox[{
     FractionBox["1", 
      SuperscriptBox["m2", "3"]], "+", 
     FractionBox["1", 
      SuperscriptBox["m3", "3"]]}], ")"}]}], "-", 
  FractionBox[
   RowBox[{"10", " ", "b", " ", 
    SuperscriptBox["c", "2"]}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", "R13"}]], "-", 
  FractionBox[
   RowBox[{"4", " ", 
    SuperscriptBox["b", "3"], " ", 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["m1", "3"], "+", 
      SuperscriptBox["m3", "3"]}], ")"}]}], 
   RowBox[{
    SuperscriptBox["m1", "3"], " ", 
    SuperscriptBox["m3", "3"], " ", "R13"}]], "-", 
  FractionBox[
   RowBox[{"10", " ", 
    SuperscriptBox["b", "2"], " ", "c"}], 
   RowBox[{
    SuperscriptBox["m3", "3"], " ", "R23"}]], "-", 
  FractionBox[
   RowBox[{"4", " ", 
    SuperscriptBox["c", "3"], " ", 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["m2", "3"], "+", 
      SuperscriptBox["m3", "3"]}], ")"}]}], 
   RowBox[{
    SuperscriptBox["m2", "3"], " ", 
    SuperscriptBox["m3", "3"], " ", "R23"}]], "+", 
  RowBox[{
   SuperscriptBox["a", "3"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["4", 
       RowBox[{
        SuperscriptBox["m1", "3"], " ", "R12"}]]}], "-", 
     FractionBox["4", 
      RowBox[{
       SuperscriptBox["m2", "3"], " ", "R12"}]], "-", 
     FractionBox[
      RowBox[{"2", " ", "c", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", 
          SuperscriptBox["R12", "2"]}], "+", 
         SuperscriptBox["R13", "2"], "-", 
         SuperscriptBox["R23", "2"]}], ")"}]}], 
      RowBox[{
       SuperscriptBox["m2", "3"], " ", "R12", " ", "R23"}]], "+", 
     FractionBox[
      RowBox[{"2", " ", "b", " ", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["R12", "2"], "+", 
         SuperscriptBox["R13", "2"], "-", 
         SuperscriptBox["R23", "2"]}], ")"}]}], 
      RowBox[{
       SuperscriptBox["m1", "3"], " ", "R12", " ", "R13"}]]}], ")"}]}], "+", 
  RowBox[{"b", " ", "c", " ", 
   RowBox[{"(", 
    RowBox[{
     FractionBox["10", 
      RowBox[{
       SuperscriptBox["m3", "3"], " ", "R13", " ", "R23"}]], "-", 
     FractionBox[
      RowBox[{"4", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", 
          SuperscriptBox["R12", "2"]}], "+", 
         SuperscriptBox["R13", "2"], "+", 
         SuperscriptBox["R23", "2"]}], ")"}]}], 
      RowBox[{
       SuperscriptBox["m3", "3"], " ", "R13", " ", 
       SuperscriptBox["R23", "3"]}]], "-", 
     FractionBox[
      RowBox[{"4", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", 
          SuperscriptBox["R12", "2"]}], "+", 
         SuperscriptBox["R13", "2"], "+", 
         SuperscriptBox["R23", "2"]}], ")"}]}], 
      RowBox[{
       SuperscriptBox["m3", "3"], " ", 
       SuperscriptBox["R13", "3"], " ", "R23"}]], "+", 
     FractionBox[
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SuperscriptBox["R13", "2"], " ", 
          SuperscriptBox["R23", "2"]}], "+", 
         RowBox[{
          FractionBox["1", "2"], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              SuperscriptBox["R12", "2"]}], "+", 
             SuperscriptBox["R13", "2"], "+", 
             SuperscriptBox["R23", "2"]}], ")"}], "2"]}]}], ")"}]}], 
      RowBox[{
       SuperscriptBox["m3", "3"], " ", 
       SuperscriptBox["R13", "3"], " ", 
       SuperscriptBox["R23", "3"]}]]}], ")"}]}], "+", 
  RowBox[{
   SuperscriptBox["a", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{"2", " ", 
       SuperscriptBox["c", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SuperscriptBox["R12", "2"], " ", 
          SuperscriptBox["R23", "2"]}], "+", 
         RowBox[{
          FractionBox["1", "2"], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              SuperscriptBox["R12", "2"]}], "+", 
             SuperscriptBox["R13", "2"], "-", 
             SuperscriptBox["R23", "2"]}], ")"}], "2"]}]}], ")"}]}], 
      RowBox[{
       SuperscriptBox["m2", "3"], " ", 
       SuperscriptBox["R12", "2"], " ", 
       SuperscriptBox["R23", "2"]}]], "+", 
     FractionBox[
      RowBox[{"2", " ", 
       SuperscriptBox["b", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SuperscriptBox["R12", "2"], " ", 
          SuperscriptBox["R13", "2"]}], "+", 
         RowBox[{
          FractionBox["1", "2"], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["R12", "2"], "+", 
             SuperscriptBox["R13", "2"], "-", 
             SuperscriptBox["R23", "2"]}], ")"}], "2"]}]}], ")"}]}], 
      RowBox[{
       SuperscriptBox["m1", "3"], " ", 
       SuperscriptBox["R12", "2"], " ", 
       SuperscriptBox["R13", "2"]}]], "+", 
     FractionBox[
      RowBox[{"c", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", 
          FractionBox["10", "R23"]}], "+", 
         FractionBox[
          RowBox[{"4", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              SuperscriptBox["R12", "2"]}], "+", 
             SuperscriptBox["R13", "2"], "-", 
             SuperscriptBox["R23", "2"]}], ")"}]}], 
          RowBox[{
           SuperscriptBox["R12", "2"], " ", "R23"}]], "+", 
         FractionBox[
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox["R12", "2"], " ", 
              SuperscriptBox["R23", "2"]}], "+", 
             RowBox[{
              FractionBox["1", "2"], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  SuperscriptBox["R12", "2"]}], "+", 
                 SuperscriptBox["R13", "2"], "-", 
                 SuperscriptBox["R23", "2"]}], ")"}], "2"]}]}], ")"}]}], 
          RowBox[{
           SuperscriptBox["R12", "2"], " ", 
           SuperscriptBox["R23", "3"]}]]}], ")"}]}], 
      SuperscriptBox["m2", "3"]], "+", 
     FractionBox[
      RowBox[{"b", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", 
          FractionBox["10", "R13"]}], "-", 
         FractionBox[
          RowBox[{"4", " ", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["R12", "2"], "+", 
             SuperscriptBox["R13", "2"], "-", 
             SuperscriptBox["R23", "2"]}], ")"}]}], 
          RowBox[{
           SuperscriptBox["R12", "2"], " ", "R13"}]], "+", 
         FractionBox[
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox["R12", "2"], " ", 
              SuperscriptBox["R13", "2"]}], "+", 
             RowBox[{
              FractionBox["1", "2"], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 SuperscriptBox["R12", "2"], "+", 
                 SuperscriptBox["R13", "2"], "-", 
                 SuperscriptBox["R23", "2"]}], ")"}], "2"]}]}], ")"}]}], 
          RowBox[{
           SuperscriptBox["R12", "2"], " ", 
           SuperscriptBox["R13", "3"]}]]}], ")"}]}], 
      SuperscriptBox["m1", "3"]]}], ")"}]}], "+", 
  RowBox[{"a", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       RowBox[{"2", " ", 
        SuperscriptBox["c", "3"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           SuperscriptBox["R12", "2"]}], "+", 
          SuperscriptBox["R13", "2"], "-", 
          SuperscriptBox["R23", "2"]}], ")"}]}], 
       RowBox[{
        SuperscriptBox["m2", "3"], " ", "R12", " ", "R23"}]]}], "+", 
     FractionBox[
      RowBox[{"2", " ", 
       SuperscriptBox["b", "3"], " ", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["R12", "2"], "+", 
         SuperscriptBox["R13", "2"], "-", 
         SuperscriptBox["R23", "2"]}], ")"}]}], 
      RowBox[{
       SuperscriptBox["m1", "3"], " ", "R12", " ", "R13"}]], "+", 
     FractionBox[
      RowBox[{"c", " ", 
       RowBox[{"(", 
        RowBox[{
         FractionBox["20", 
          RowBox[{"R12", " ", "R23"}]], "+", 
         FractionBox[
          RowBox[{"4", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              SuperscriptBox["R12", "2"]}], "+", 
             SuperscriptBox["R13", "2"], "-", 
             SuperscriptBox["R23", "2"]}], ")"}]}], 
          RowBox[{
           SuperscriptBox["R12", "3"], " ", "R23"}]], "+", 
         FractionBox[
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "5"}], " ", 
              SuperscriptBox["R23", "2"]}], "+", 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", 
                 SuperscriptBox["R12", "2"]}], "+", 
                SuperscriptBox["R13", "2"], "-", 
                SuperscriptBox["R23", "2"]}], ")"}]}]}], ")"}]}], 
          RowBox[{"R12", " ", 
           SuperscriptBox["R23", "3"]}]], "+", 
         FractionBox[
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox["R12", "2"], " ", 
              SuperscriptBox["R23", "2"]}], "+", 
             RowBox[{
              FractionBox["1", "2"], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  SuperscriptBox["R12", "2"]}], "+", 
                 SuperscriptBox["R13", "2"], "-", 
                 SuperscriptBox["R23", "2"]}], ")"}], "2"]}]}], ")"}]}], 
          RowBox[{
           SuperscriptBox["R12", "3"], " ", 
           SuperscriptBox["R23", "3"]}]]}], ")"}]}], 
      SuperscriptBox["m2", "3"]], "+", 
     FractionBox[
      RowBox[{
       SuperscriptBox["c", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         FractionBox[
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "5"}], " ", 
              SuperscriptBox["R23", "2"]}], "+", 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", 
                 SuperscriptBox["R12", "2"]}], "+", 
                SuperscriptBox["R13", "2"], "-", 
                SuperscriptBox["R23", "2"]}], ")"}]}]}], ")"}]}], 
          RowBox[{"R12", " ", 
           SuperscriptBox["R23", "2"]}]], "+", 
         FractionBox[
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox["R12", "2"], " ", 
              SuperscriptBox["R23", "2"]}], "+", 
             RowBox[{
              FractionBox["1", "2"], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  SuperscriptBox["R12", "2"]}], "+", 
                 SuperscriptBox["R13", "2"], "-", 
                 SuperscriptBox["R23", "2"]}], ")"}], "2"]}]}], ")"}]}], 
          RowBox[{
           SuperscriptBox["R12", "3"], " ", 
           SuperscriptBox["R23", "2"]}]]}], ")"}]}], 
      SuperscriptBox["m2", "3"]], "+", 
     FractionBox[
      RowBox[{"b", " ", 
       RowBox[{"(", 
        RowBox[{
         FractionBox["10", 
          RowBox[{"R12", " ", "R13"}]], "-", 
         FractionBox[
          RowBox[{"4", " ", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["R12", "2"], "+", 
             SuperscriptBox["R13", "2"], "-", 
             SuperscriptBox["R23", "2"]}], ")"}]}], 
          RowBox[{"R12", " ", 
           SuperscriptBox["R13", "3"]}]], "-", 
         FractionBox[
          RowBox[{"4", " ", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["R12", "2"], "+", 
             SuperscriptBox["R13", "2"], "-", 
             SuperscriptBox["R23", "2"]}], ")"}]}], 
          RowBox[{
           SuperscriptBox["R12", "3"], " ", "R13"}]], "+", 
         FractionBox[
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox["R12", "2"], " ", 
              SuperscriptBox["R13", "2"]}], "+", 
             RowBox[{
              FractionBox["1", "2"], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 SuperscriptBox["R12", "2"], "+", 
                 SuperscriptBox["R13", "2"], "-", 
                 SuperscriptBox["R23", "2"]}], ")"}], "2"]}]}], ")"}]}], 
          RowBox[{
           SuperscriptBox["R12", "3"], " ", 
           SuperscriptBox["R13", "3"]}]]}], ")"}]}], 
      SuperscriptBox["m1", "3"]], "+", 
     FractionBox[
      RowBox[{
       SuperscriptBox["b", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", 
          FractionBox["10", "R12"]}], "-", 
         FractionBox[
          RowBox[{"4", " ", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["R12", "2"], "+", 
             SuperscriptBox["R13", "2"], "-", 
             SuperscriptBox["R23", "2"]}], ")"}]}], 
          RowBox[{"R12", " ", 
           SuperscriptBox["R13", "2"]}]], "+", 
         FractionBox[
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox["R12", "2"], " ", 
              SuperscriptBox["R13", "2"]}], "+", 
             RowBox[{
              FractionBox["1", "2"], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 SuperscriptBox["R12", "2"], "+", 
                 SuperscriptBox["R13", "2"], "-", 
                 SuperscriptBox["R23", "2"]}], ")"}], "2"]}]}], ")"}]}], 
          RowBox[{
           SuperscriptBox["R12", "3"], " ", 
           SuperscriptBox["R13", "2"]}]]}], ")"}]}], 
      SuperscriptBox["m1", "3"]]}], ")"}]}], "+", 
  RowBox[{
   SuperscriptBox["b", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{"2", " ", "b", " ", "c", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", 
          SuperscriptBox["R12", "2"]}], "+", 
         SuperscriptBox["R13", "2"], "+", 
         SuperscriptBox["R23", "2"]}], ")"}]}], 
      RowBox[{
       SuperscriptBox["m3", "3"], " ", "R13", " ", "R23"}]], "+", 
     FractionBox[
      RowBox[{"c", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", 
          FractionBox[
           RowBox[{"4", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               SuperscriptBox["R12", "2"]}], "+", 
              SuperscriptBox["R13", "2"], "+", 
              SuperscriptBox["R23", "2"]}], ")"}]}], 
           RowBox[{
            SuperscriptBox["R13", "2"], " ", "R23"}]]}], "+", 
         FractionBox[
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox["R13", "2"], " ", 
              SuperscriptBox["R23", "2"]}], "+", 
             RowBox[{
              FractionBox["1", "2"], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  SuperscriptBox["R12", "2"]}], "+", 
                 SuperscriptBox["R13", "2"], "+", 
                 SuperscriptBox["R23", "2"]}], ")"}], "2"]}]}], ")"}]}], 
          RowBox[{
           SuperscriptBox["R13", "2"], " ", 
           SuperscriptBox["R23", "3"]}]]}], ")"}]}], 
      SuperscriptBox["m3", "3"]]}], ")"}]}], "+", 
  RowBox[{
   SuperscriptBox["c", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{"2", " ", "b", " ", "c", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", 
          SuperscriptBox["R12", "2"]}], "+", 
         SuperscriptBox["R13", "2"], "+", 
         SuperscriptBox["R23", "2"]}], ")"}]}], 
      RowBox[{
       SuperscriptBox["m3", "3"], " ", "R13", " ", "R23"}]], "+", 
     FractionBox[
      RowBox[{"2", " ", 
       SuperscriptBox["b", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SuperscriptBox["R13", "2"], " ", 
          SuperscriptBox["R23", "2"]}], "+", 
         RowBox[{
          FractionBox["1", "2"], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              SuperscriptBox["R12", "2"]}], "+", 
             SuperscriptBox["R13", "2"], "+", 
             SuperscriptBox["R23", "2"]}], ")"}], "2"]}]}], ")"}]}], 
      RowBox[{
       SuperscriptBox["m3", "3"], " ", 
       SuperscriptBox["R13", "2"], " ", 
       SuperscriptBox["R23", "2"]}]], "+", 
     FractionBox[
      RowBox[{"b", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", 
          FractionBox[
           RowBox[{"4", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               SuperscriptBox["R12", "2"]}], "+", 
              SuperscriptBox["R13", "2"], "+", 
              SuperscriptBox["R23", "2"]}], ")"}]}], 
           RowBox[{"R13", " ", 
            SuperscriptBox["R23", "2"]}]]}], "+", 
         FractionBox[
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox["R13", "2"], " ", 
              SuperscriptBox["R23", "2"]}], "+", 
             RowBox[{
              FractionBox["1", "2"], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  SuperscriptBox["R12", "2"]}], "+", 
                 SuperscriptBox["R13", "2"], "+", 
                 SuperscriptBox["R23", "2"]}], ")"}], "2"]}]}], ")"}]}], 
          RowBox[{
           SuperscriptBox["R13", "3"], " ", 
           SuperscriptBox["R23", "2"]}]]}], ")"}]}], 
      SuperscriptBox["m3", "3"]]}], ")"}]}]}]], "Output",
 CellChangeTimes->{
  3.951046180466034*^9, {3.9510462257671757`*^9, 3.951046250254532*^9}, 
   3.951048701992626*^9, 3.9510487669875984`*^9, 3.9510495777180214`*^9, 
   3.9510496306415215`*^9, 3.9510500794056473`*^9, 3.9510520352220974`*^9},
 CellLabel->
  "Out[656]=",ExpressionUUID->"6a576cbb-7ac8-3f4c-aef4-86d996c4bd66"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"coefs", "=", 
   RowBox[{"{", 
    RowBox[{"a", ",", "b", ",", "c", ",", 
     FractionBox["1", "m1"], ",", 
     FractionBox["1", "m2"], ",", 
     FractionBox["1", "m3"]}], "}"}]}]}]], "Input",
 CellChangeTimes->{{3.951044281859129*^9, 3.9510443132080135`*^9}},
 CellLabel->
  "In[657]:=",ExpressionUUID->"72d2468d-79db-b441-965d-c5b3ee14b1e8"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"a", ",", "b", ",", "c", ",", 
   FractionBox["1", "m1"], ",", 
   FractionBox["1", "m2"], ",", 
   FractionBox["1", "m3"]}], "}"}]], "Output",
 CellChangeTimes->{3.9510443143463745`*^9, 3.951048702008585*^9, 
  3.951048767003355*^9, 3.951050079437292*^9, 3.951052035253933*^9},
 CellLabel->
  "Out[657]=",ExpressionUUID->"969d5e52-263a-b445-a23e-f0d1cfcec86c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"termlist", "=", 
     RowBox[{"CoefficientRules", "[", 
      RowBox[{"expr", ",", "coefs"}], "]"}]}], ";"}], " ", 
   RowBox[{"(*", 
    RowBox[{"this", " ", "holds", " ", "the", " ", "coefficients"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"matchlist", "=", 
     RowBox[{"{", "}"}]}], ";"}], " ", 
   RowBox[{"(*", 
    RowBox[{
    "this", " ", "holds", " ", "the", " ", "lists", " ", "of", " ", 
     "matching", " ", "sets", " ", "and", " ", "theri", " ", "coresponding", " ",
      "numeric", " ", "ratio"}], "*)"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{
     "this", " ", "for", " ", "loops", " ", "checks", " ", "for", " ", 
      "therms", " ", "that", " ", "are", " ", "numeric", " ", "multiples", " ",
       "of", " ", "each", " ", "other"}], ",", " ", 
     RowBox[{"and", " ", "stores", " ", "the", " ", "ratio"}]}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "1"}], ",", 
     RowBox[{"i", "<=", 
      RowBox[{"Length", "[", "termlist", "]"}]}], ",", 
     RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"AppendTo", "[", 
       RowBox[{"matchlist", ",", 
        RowBox[{"{", "}"}]}], "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"j", "=", "1"}], ",", 
        RowBox[{"j", "<=", 
         RowBox[{"Length", "[", "termlist", "]"}]}], ",", 
        RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"NumericQ", "[", 
           RowBox[{"FullSimplify", "[", 
            RowBox[{
             RowBox[{"termlist", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "2"}], "]"}], "]"}], "/", 
             RowBox[{"termlist", "[", 
              RowBox[{"[", 
               RowBox[{"j", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"AppendTo", "[", 
           RowBox[{
            RowBox[{"matchlist", "[", 
             RowBox[{"[", "i", "]"}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"j", ",", 
              RowBox[{"FullSimplify", "[", 
               RowBox[{
                RowBox[{"termlist", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "2"}], "]"}], "]"}], "/", 
                RowBox[{"termlist", "[", 
                 RowBox[{"[", 
                  RowBox[{"j", ",", "2"}], "]"}], "]"}]}], "]"}]}], "}"}]}], 
           "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", 
       "]"}]}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"matchlist", "=", 
     RowBox[{"DeleteDuplicates", "[", " ", "matchlist", "]"}]}], ";"}], " ", 
   RowBox[{"(*", 
    RowBox[{
    "we", " ", "get", " ", "duplicates", " ", "becasue", " ", "if", " ", "1", 
     " ", "matches", " ", "2", " ", "then", " ", "2", " ", "also", " ", 
     "matches", " ", "1"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"newterms", "=", 
     RowBox[{"{", "}"}]}], ";"}], 
   RowBox[{"(*", " ", 
    RowBox[{
    "this", " ", "holds", " ", "the", " ", "new", " ", "collected", " ", 
     "terms"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{
     "this", " ", "for", " ", "loop", " ", "collects", " ", "all", " ", "the",
       " ", "similar", " ", "terms", " ", "into", " ", "one", " ", "ie", " ", 
      "it", " ", "makes", " ", "a", " ", "x"}], "+", 
     RowBox[{"b", " ", "x", " ", "like", " ", 
      RowBox[{"(", 
       RowBox[{"a", "+", "b"}], ")"}], " ", "x"}]}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "1"}], ",", 
     RowBox[{"i", "<=", 
      RowBox[{"Length", "[", "matchlist", "]"}]}], ",", 
     RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"firstterm", "=", "0"}], ";", "\[IndentingNewLine]", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"j", "=", "1"}], ",", 
        RowBox[{"j", "<=", 
         RowBox[{"Length", "[", 
          RowBox[{"matchlist", "[", 
           RowBox[{"[", "i", "]"}], "]"}], "]"}]}], ",", 
        RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"firstterm", "+=", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"Times", "@@", 
             RowBox[{"(", 
              RowBox[{"coefs", "^", 
               RowBox[{"termlist", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{"matchlist", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "j", ",", "1"}], "]"}], "]"}], ",", 
                  "1"}], "]"}], "]"}]}], ")"}]}], ")"}], 
           RowBox[{"matchlist", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "j", ",", "2"}], "]"}], "]"}]}]}], ";"}]}], 
       "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"AppendTo", "[", 
       RowBox[{"newterms", ",", 
        RowBox[{
         RowBox[{"(", "firstterm", ")"}], "*", 
         RowBox[{"termlist", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"matchlist", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}], ",", "2"}], 
           "]"}], "]"}]}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", 
   RowBox[{"Plus", "@@", "newterms", " ", 
    RowBox[{"(*", 
     RowBox[{
     "now", " ", "we", " ", "can", " ", "simply", " ", "sum", " ", "the", " ",
       "terms"}], "*)"}]}]}]}]], "Input",
 CellChangeTimes->{{3.951025337644972*^9, 3.9510253744986744`*^9}, 
   3.951043551241022*^9, {3.9510436069288616`*^9, 3.951043766006809*^9}, {
   3.9510440403713627`*^9, 3.9510440599399014`*^9}, {3.9510441844996395`*^9, 
   3.951044242998064*^9}, {3.9510443756306114`*^9, 3.9510445391177464`*^9}, {
   3.951044601524868*^9, 3.951044644768444*^9}, {3.951044681606476*^9, 
   3.9510446935495167`*^9}, {3.9510448271933117`*^9, 3.951044901768852*^9}, {
   3.9510450676303844`*^9, 3.9510451073129425`*^9}, 3.9510451621279736`*^9, {
   3.951045222076784*^9, 3.951045222446329*^9}, {3.9510464543687057`*^9, 
   3.951046497938526*^9}, {3.951046574562193*^9, 3.951046722572632*^9}, {
   3.951046756510786*^9, 3.9510468712322598`*^9}, {3.9510469129355392`*^9, 
   3.951046933642521*^9}, 3.9510469987876415`*^9, {3.95104703818252*^9, 
   3.951047188974886*^9}, {3.9510472314158726`*^9, 3.9510472743727455`*^9}, {
   3.9510473473810005`*^9, 3.951047406256035*^9}, {3.9510474511855183`*^9, 
   3.9510475433608665`*^9}, {3.9510475788692265`*^9, 3.951047638752468*^9}, {
   3.9510478004313927`*^9, 3.9510479319522667`*^9}, 3.9510480879356937`*^9, {
   3.951048121462229*^9, 3.9510481457780495`*^9}, {3.9510482083386517`*^9, 
   3.95104836712031*^9}, {3.951048397616953*^9, 3.951048398512871*^9}, {
   3.9510484871562805`*^9, 3.951048533519018*^9}, {3.9510485803182735`*^9, 
   3.951048596505615*^9}, {3.9510486642469425`*^9, 3.9510486657487507`*^9}, {
   3.951048717518778*^9, 3.9510487450247116`*^9}, {3.951048809686516*^9, 
   3.951048884074812*^9}, {3.9510489169992104`*^9, 3.9510489816064186`*^9}, {
   3.951049022681267*^9, 3.9510491706918297`*^9}, {3.951049251187292*^9, 
   3.95104935458214*^9}, {3.9510494033513966`*^9, 3.951049456221016*^9}, {
   3.95104981820825*^9, 3.951049926813854*^9}, {3.951049968405697*^9, 
   3.951050058817732*^9}, {3.951050104471756*^9, 3.9510501069926376`*^9}, {
   3.9510502152951527`*^9, 3.9510502160753098`*^9}, {3.9510509188454876`*^9, 
   3.9510512424404984`*^9}, {3.951051679529217*^9, 3.9510516801817417`*^9}},
 CellLabel->
  "In[658]:=",ExpressionUUID->"5f046a05-69bc-f64c-97d3-1a48019f353a"],

Cell[BoxData[
 RowBox[{
  FractionBox[
   SuperscriptBox["a", "4"], 
   SuperscriptBox["m1", "3"]], "+", 
  FractionBox[
   SuperscriptBox["b", "4"], 
   SuperscriptBox["m1", "3"]], "+", 
  FractionBox[
   SuperscriptBox["a", "4"], 
   SuperscriptBox["m2", "3"]], "+", 
  FractionBox[
   SuperscriptBox["c", "4"], 
   SuperscriptBox["m2", "3"]], "+", 
  FractionBox[
   SuperscriptBox["b", "4"], 
   SuperscriptBox["m3", "3"]], "+", 
  FractionBox[
   SuperscriptBox["c", "4"], 
   SuperscriptBox["m3", "3"]], "-", 
  FractionBox[
   RowBox[{"4", " ", 
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       SuperscriptBox["a", "3"], 
       SuperscriptBox["m1", "3"]], "+", 
      FractionBox[
       SuperscriptBox["a", "3"], 
       SuperscriptBox["m2", "3"]]}], ")"}]}], "R12"], "-", 
  FractionBox[
   RowBox[{"4", " ", 
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       SuperscriptBox["b", "3"], 
       SuperscriptBox["m1", "3"]], "+", 
      FractionBox[
       SuperscriptBox["b", "3"], 
       SuperscriptBox["m3", "3"]]}], ")"}]}], "R13"], "-", 
  FractionBox[
   RowBox[{"4", " ", 
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       SuperscriptBox["c", "3"], 
       SuperscriptBox["m2", "3"]], "+", 
      FractionBox[
       SuperscriptBox["c", "3"], 
       SuperscriptBox["m3", "3"]]}], ")"}]}], "R23"], "+", 
  FractionBox[
   RowBox[{"a", " ", "c", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{"3", " ", "R12"}], 
        SuperscriptBox["R23", "3"]]}], "+", 
      FractionBox[
       RowBox[{"2", " ", 
        SuperscriptBox["R13", "2"]}], 
       RowBox[{"R12", " ", 
        SuperscriptBox["R23", "3"]}]], "+", 
      FractionBox[
       SuperscriptBox["R13", "4"], 
       RowBox[{
        SuperscriptBox["R12", "3"], " ", 
        SuperscriptBox["R23", "3"]}]], "+", 
      FractionBox["6", 
       RowBox[{"R12", " ", "R23"}]], "+", 
      FractionBox[
       RowBox[{"2", " ", 
        SuperscriptBox["R13", "2"]}], 
       RowBox[{
        SuperscriptBox["R12", "3"], " ", "R23"}]], "-", 
      FractionBox[
       RowBox[{"3", " ", "R23"}], 
       SuperscriptBox["R12", "3"]]}], ")"}]}], 
   SuperscriptBox["m2", "3"]], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["a", "2"], " ", "c", " ", 
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       SuperscriptBox["R12", "2"], 
       SuperscriptBox["R23", "3"]], "-", 
      FractionBox[
       RowBox[{"2", " ", 
        SuperscriptBox["R13", "2"]}], 
       SuperscriptBox["R23", "3"]], "+", 
      FractionBox[
       SuperscriptBox["R13", "4"], 
       RowBox[{
        SuperscriptBox["R12", "2"], " ", 
        SuperscriptBox["R23", "3"]}]], "-", 
      FractionBox["10", "R23"], "+", 
      FractionBox[
       RowBox[{"2", " ", 
        SuperscriptBox["R13", "2"]}], 
       RowBox[{
        SuperscriptBox["R12", "2"], " ", "R23"}]], "-", 
      FractionBox[
       RowBox[{"3", " ", "R23"}], 
       SuperscriptBox["R12", "2"]]}], ")"}]}], 
   SuperscriptBox["m2", "3"]], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{
       SuperscriptBox["a", "3"], " ", "c"}], 
      SuperscriptBox["m2", "3"]], "+", 
     FractionBox[
      RowBox[{"a", " ", 
       SuperscriptBox["c", "3"]}], 
      SuperscriptBox["m2", "3"]]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{"2", " ", "R12"}], "R23"], "-", 
     FractionBox[
      RowBox[{"2", " ", 
       SuperscriptBox["R13", "2"]}], 
      RowBox[{"R12", " ", "R23"}]], "+", 
     FractionBox[
      RowBox[{"2", " ", "R23"}], "R12"]}], ")"}]}], "+", 
  FractionBox[
   RowBox[{"b", " ", "c", " ", 
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       SuperscriptBox["R12", "4"], 
       RowBox[{
        SuperscriptBox["R13", "3"], " ", 
        SuperscriptBox["R23", "3"]}]], "+", 
      FractionBox[
       RowBox[{"2", " ", 
        SuperscriptBox["R12", "2"]}], 
       RowBox[{"R13", " ", 
        SuperscriptBox["R23", "3"]}]], "-", 
      FractionBox[
       RowBox[{"3", " ", "R13"}], 
       SuperscriptBox["R23", "3"]], "+", 
      FractionBox[
       RowBox[{"2", " ", 
        SuperscriptBox["R12", "2"]}], 
       RowBox[{
        SuperscriptBox["R13", "3"], " ", "R23"}]], "+", 
      FractionBox["6", 
       RowBox[{"R13", " ", "R23"}]], "-", 
      FractionBox[
       RowBox[{"3", " ", "R23"}], 
       SuperscriptBox["R13", "3"]]}], ")"}]}], 
   SuperscriptBox["m3", "3"]], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["b", "2"], " ", "c", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{"2", " ", 
         SuperscriptBox["R12", "2"]}], 
        SuperscriptBox["R23", "3"]]}], "+", 
      FractionBox[
       SuperscriptBox["R12", "4"], 
       RowBox[{
        SuperscriptBox["R13", "2"], " ", 
        SuperscriptBox["R23", "3"]}]], "+", 
      FractionBox[
       SuperscriptBox["R13", "2"], 
       SuperscriptBox["R23", "3"]], "-", 
      FractionBox["10", "R23"], "+", 
      FractionBox[
       RowBox[{"2", " ", 
        SuperscriptBox["R12", "2"]}], 
       RowBox[{
        SuperscriptBox["R13", "2"], " ", "R23"}]], "-", 
      FractionBox[
       RowBox[{"3", " ", "R23"}], 
       SuperscriptBox["R13", "2"]]}], ")"}]}], 
   SuperscriptBox["m3", "3"]], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{
       SuperscriptBox["b", "3"], " ", "c"}], 
      SuperscriptBox["m3", "3"]], "+", 
     FractionBox[
      RowBox[{"b", " ", 
       SuperscriptBox["c", "3"]}], 
      SuperscriptBox["m3", "3"]]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       RowBox[{"2", " ", 
        SuperscriptBox["R12", "2"]}], 
       RowBox[{"R13", " ", "R23"}]]}], "+", 
     FractionBox[
      RowBox[{"2", " ", "R13"}], "R23"], "+", 
     FractionBox[
      RowBox[{"2", " ", "R23"}], "R13"]}], ")"}]}], "+", 
  FractionBox[
   RowBox[{"a", " ", 
    SuperscriptBox["c", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       FractionBox["10", "R12"]}], "-", 
      FractionBox[
       RowBox[{"2", " ", 
        SuperscriptBox["R13", "2"]}], 
       SuperscriptBox["R12", "3"]], "-", 
      FractionBox[
       RowBox[{"3", " ", "R12"}], 
       SuperscriptBox["R23", "2"]], "+", 
      FractionBox[
       RowBox[{"2", " ", 
        SuperscriptBox["R13", "2"]}], 
       RowBox[{"R12", " ", 
        SuperscriptBox["R23", "2"]}]], "+", 
      FractionBox[
       SuperscriptBox["R13", "4"], 
       RowBox[{
        SuperscriptBox["R12", "3"], " ", 
        SuperscriptBox["R23", "2"]}]], "+", 
      FractionBox[
       SuperscriptBox["R23", "2"], 
       SuperscriptBox["R12", "3"]]}], ")"}]}], 
   SuperscriptBox["m2", "3"]], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["a", "2"], " ", 
    SuperscriptBox["c", "2"], " ", 
    RowBox[{"(", 
     RowBox[{"4", "-", 
      FractionBox[
       RowBox[{"2", " ", 
        SuperscriptBox["R13", "2"]}], 
       SuperscriptBox["R12", "2"]], "+", 
      FractionBox[
       SuperscriptBox["R12", "2"], 
       SuperscriptBox["R23", "2"]], "-", 
      FractionBox[
       RowBox[{"2", " ", 
        SuperscriptBox["R13", "2"]}], 
       SuperscriptBox["R23", "2"]], "+", 
      FractionBox[
       SuperscriptBox["R13", "4"], 
       RowBox[{
        SuperscriptBox["R12", "2"], " ", 
        SuperscriptBox["R23", "2"]}]], "+", 
      FractionBox[
       SuperscriptBox["R23", "2"], 
       SuperscriptBox["R12", "2"]]}], ")"}]}], 
   SuperscriptBox["m2", "3"]], "+", 
  FractionBox[
   RowBox[{"b", " ", 
    SuperscriptBox["c", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{"2", " ", 
         SuperscriptBox["R12", "2"]}], 
        SuperscriptBox["R13", "3"]]}], "-", 
      FractionBox["10", "R13"], "+", 
      FractionBox[
       SuperscriptBox["R12", "4"], 
       RowBox[{
        SuperscriptBox["R13", "3"], " ", 
        SuperscriptBox["R23", "2"]}]], "+", 
      FractionBox[
       RowBox[{"2", " ", 
        SuperscriptBox["R12", "2"]}], 
       RowBox[{"R13", " ", 
        SuperscriptBox["R23", "2"]}]], "-", 
      FractionBox[
       RowBox[{"3", " ", "R13"}], 
       SuperscriptBox["R23", "2"]], "+", 
      FractionBox[
       SuperscriptBox["R23", "2"], 
       SuperscriptBox["R13", "3"]]}], ")"}]}], 
   SuperscriptBox["m3", "3"]], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["b", "2"], " ", 
    SuperscriptBox["c", "2"], " ", 
    RowBox[{"(", 
     RowBox[{"4", "-", 
      FractionBox[
       RowBox[{"2", " ", 
        SuperscriptBox["R12", "2"]}], 
       SuperscriptBox["R13", "2"]], "-", 
      FractionBox[
       RowBox[{"2", " ", 
        SuperscriptBox["R12", "2"]}], 
       SuperscriptBox["R23", "2"]], "+", 
      FractionBox[
       SuperscriptBox["R12", "4"], 
       RowBox[{
        SuperscriptBox["R13", "2"], " ", 
        SuperscriptBox["R23", "2"]}]], "+", 
      FractionBox[
       SuperscriptBox["R13", "2"], 
       SuperscriptBox["R23", "2"]], "+", 
      FractionBox[
       SuperscriptBox["R23", "2"], 
       SuperscriptBox["R13", "2"]]}], ")"}]}], 
   SuperscriptBox["m3", "3"]], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{
       SuperscriptBox["a", "3"], " ", "b"}], 
      SuperscriptBox["m1", "3"]], "+", 
     FractionBox[
      RowBox[{"a", " ", 
       SuperscriptBox["b", "3"]}], 
      SuperscriptBox["m1", "3"]]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{"2", " ", "R12"}], "R13"], "+", 
     FractionBox[
      RowBox[{"2", " ", "R13"}], "R12"], "-", 
     FractionBox[
      RowBox[{"2", " ", 
       SuperscriptBox["R23", "2"]}], 
      RowBox[{"R12", " ", "R13"}]]}], ")"}]}], "+", 
  FractionBox[
   RowBox[{"a", " ", "b", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{"3", " ", "R12"}], 
        SuperscriptBox["R13", "3"]]}], "+", 
      FractionBox["6", 
       RowBox[{"R12", " ", "R13"}]], "-", 
      FractionBox[
       RowBox[{"3", " ", "R13"}], 
       SuperscriptBox["R12", "3"]], "+", 
      FractionBox[
       RowBox[{"2", " ", 
        SuperscriptBox["R23", "2"]}], 
       RowBox[{"R12", " ", 
        SuperscriptBox["R13", "3"]}]], "+", 
      FractionBox[
       RowBox[{"2", " ", 
        SuperscriptBox["R23", "2"]}], 
       RowBox[{
        SuperscriptBox["R12", "3"], " ", "R13"}]], "+", 
      FractionBox[
       SuperscriptBox["R23", "4"], 
       RowBox[{
        SuperscriptBox["R12", "3"], " ", 
        SuperscriptBox["R13", "3"]}]]}], ")"}]}], 
   SuperscriptBox["m1", "3"]], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["a", "2"], " ", "b", " ", 
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       SuperscriptBox["R12", "2"], 
       SuperscriptBox["R13", "3"]], "-", 
      FractionBox["10", "R13"], "-", 
      FractionBox[
       RowBox[{"3", " ", "R13"}], 
       SuperscriptBox["R12", "2"]], "-", 
      FractionBox[
       RowBox[{"2", " ", 
        SuperscriptBox["R23", "2"]}], 
       SuperscriptBox["R13", "3"]], "+", 
      FractionBox[
       RowBox[{"2", " ", 
        SuperscriptBox["R23", "2"]}], 
       RowBox[{
        SuperscriptBox["R12", "2"], " ", "R13"}]], "+", 
      FractionBox[
       SuperscriptBox["R23", "4"], 
       RowBox[{
        SuperscriptBox["R12", "2"], " ", 
        SuperscriptBox["R13", "3"]}]]}], ")"}]}], 
   SuperscriptBox["m1", "3"]], "+", 
  FractionBox[
   RowBox[{"a", " ", 
    SuperscriptBox["b", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       FractionBox["10", "R12"]}], "-", 
      FractionBox[
       RowBox[{"3", " ", "R12"}], 
       SuperscriptBox["R13", "2"]], "+", 
      FractionBox[
       SuperscriptBox["R13", "2"], 
       SuperscriptBox["R12", "3"]], "-", 
      FractionBox[
       RowBox[{"2", " ", 
        SuperscriptBox["R23", "2"]}], 
       SuperscriptBox["R12", "3"]], "+", 
      FractionBox[
       RowBox[{"2", " ", 
        SuperscriptBox["R23", "2"]}], 
       RowBox[{"R12", " ", 
        SuperscriptBox["R13", "2"]}]], "+", 
      FractionBox[
       SuperscriptBox["R23", "4"], 
       RowBox[{
        SuperscriptBox["R12", "3"], " ", 
        SuperscriptBox["R13", "2"]}]]}], ")"}]}], 
   SuperscriptBox["m1", "3"]], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["a", "2"], " ", 
    SuperscriptBox["b", "2"], " ", 
    RowBox[{"(", 
     RowBox[{"4", "+", 
      FractionBox[
       SuperscriptBox["R12", "2"], 
       SuperscriptBox["R13", "2"]], "+", 
      FractionBox[
       SuperscriptBox["R13", "2"], 
       SuperscriptBox["R12", "2"]], "-", 
      FractionBox[
       RowBox[{"2", " ", 
        SuperscriptBox["R23", "2"]}], 
       SuperscriptBox["R12", "2"]], "-", 
      FractionBox[
       RowBox[{"2", " ", 
        SuperscriptBox["R23", "2"]}], 
       SuperscriptBox["R13", "2"]], "+", 
      FractionBox[
       SuperscriptBox["R23", "4"], 
       RowBox[{
        SuperscriptBox["R12", "2"], " ", 
        SuperscriptBox["R13", "2"]}]]}], ")"}]}], 
   SuperscriptBox["m1", "3"]]}]], "Output",
 CellChangeTimes->{3.951051987205862*^9, 3.9510520386507626`*^9},
 CellLabel->
  "Out[664]=",ExpressionUUID->"88233796-967f-3b49-99ed-f781901621b9"]
}, Open  ]]
},
WindowSize->{1190.25, 672.75},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
Magnification:>0.9 Inherited,
FrontEndVersion->"14.2 for Microsoft Windows (64-bit) (December 26, 2024)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"fcc3adbf-5fbd-c645-bdb6-2f63f9587b04"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[576, 22, 1523, 44, 92, "Input",ExpressionUUID->"c1690c93-6825-0143-a521-28876a6a2f64"],
Cell[2102, 68, 1189, 27, 31, "Output",ExpressionUUID->"0854a073-1c7b-5c43-b2b4-a3c604b86a84"],
Cell[3294, 97, 1189, 27, 31, "Output",ExpressionUUID->"0f786dea-e87d-6a45-a9d7-cc79474a572c"],
Cell[4486, 126, 1192, 27, 31, "Output",ExpressionUUID->"c05ae33a-540f-784a-8325-240d5125f3c5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5715, 158, 2478, 63, 46, "Input",ExpressionUUID->"72fe8235-8ed6-8e4b-aed8-3a55cd8f8224"],
Cell[8196, 223, 15286, 353, 201, "Output",ExpressionUUID->"1aa51ee9-c8f8-f54e-8670-f7d857bb5347"]
}, Open  ]],
Cell[CellGroupData[{
Cell[23519, 581, 1843, 57, 36, "Input",ExpressionUUID->"e08d65f5-0605-4944-9c80-21e16448063e"],
Cell[25365, 640, 15906, 368, 280, "Output",ExpressionUUID->"a5d333d2-8cf5-9e41-b639-0039a2793526"]
}, Open  ]],
Cell[CellGroupData[{
Cell[41308, 1013, 1811, 54, 42, "Input",ExpressionUUID->"b6fa4369-1bd6-a440-a943-9c81e44c8993"],
Cell[43122, 1069, 16187, 363, 283, "Output",ExpressionUUID->"568c3d9b-058c-ff49-8f40-4918df4136ac"]
}, Open  ]],
Cell[CellGroupData[{
Cell[59346, 1437, 5478, 156, 625, "Input",ExpressionUUID->"017b168d-b200-c441-b0db-05661369aa9e"],
Cell[64827, 1595, 147217, 4204, 2901, "Output",ExpressionUUID->"e9242554-778f-9948-8ce0-27ce460d772d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[212081, 5804, 540, 9, 25, "Input",ExpressionUUID->"9f11889a-e408-b745-9746-b83387242d1f"],
Cell[212624, 5815, 135758, 4270, 2153, "Output",ExpressionUUID->"b557c72c-7f9f-ad48-88d8-b209be676f8f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[348419, 10090, 2357, 67, 66, "Input",ExpressionUUID->"da8392f2-ddbf-6a4a-8cac-00cc77474c32"],
Cell[350779, 10159, 101596, 2812, 3051, "Output",ExpressionUUID->"5f46aa4b-2b75-cb4b-bae6-cd1ca146d870"]
}, Open  ]],
Cell[CellGroupData[{
Cell[452412, 12976, 2427, 68, 66, "Input",ExpressionUUID->"e02d61c6-8c81-f44b-a726-f17a580b3566"],
Cell[454842, 13046, 32986, 859, 1062, "Output",ExpressionUUID->"bf03f323-1468-fa44-80d5-e93df7c3f8d8"]
}, Open  ]],
Cell[487843, 13908, 109, 2, 25, "Input",ExpressionUUID->"a88d3929-4505-574f-b58b-ec17ee470559"],
Cell[CellGroupData[{
Cell[487977, 13914, 4082, 93, 85, "Input",ExpressionUUID->"ddde7395-360c-1845-8c25-cc646e8b9fa3"],
Cell[492062, 14009, 12990, 385, 302, "Output",ExpressionUUID->"e30efa43-421c-4541-b5af-3501b6f93db4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[505089, 14399, 1655, 42, 38, "Input",ExpressionUUID->"65783644-d054-304c-a875-12ff61299df8"],
Cell[506747, 14443, 18644, 560, 382, "Output",ExpressionUUID->"4e62d834-6e8c-0e45-a2cb-d181b6e55e58"]
}, Open  ]],
Cell[CellGroupData[{
Cell[525428, 15008, 1126, 30, 39, "Input",ExpressionUUID->"6647e0f2-27e3-4f42-b2b9-4d2156a46a4e"],
Cell[526557, 15040, 18475, 498, 174, "Output",ExpressionUUID->"40669fb6-006b-ad48-806e-91f9367997e2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[545069, 15543, 327, 7, 25, "Input",ExpressionUUID->"bedb56fa-c30f-af49-83ea-bbc317de64f2"],
Cell[545399, 15552, 18869, 569, 600, "Output",ExpressionUUID->"6a576cbb-7ac8-3f4c-aef4-86d996c4bd66"]
}, Open  ]],
Cell[CellGroupData[{
Cell[564305, 16126, 404, 10, 57, "Input",ExpressionUUID->"72d2468d-79db-b441-965d-c5b3ee14b1e8"],
Cell[564712, 16138, 400, 9, 42, "Output",ExpressionUUID->"969d5e52-263a-b445-a23e-f0d1cfcec86c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[565149, 16152, 7868, 172, 436, "Input",ExpressionUUID->"5f046a05-69bc-f64c-97d3-1a48019f353a"],
Cell[573020, 16326, 13261, 446, 322, "Output",ExpressionUUID->"88233796-967f-3b49-99ed-f781901621b9"]
}, Open  ]]
}
]
*)