AppendixE.nb

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

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

(* CreatedBy='Mathematica 12.2' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    291022,       7938]
NotebookOptionsPosition[    276467,       7731]
NotebookOutlinePosition[    276865,       7747]
CellTagsIndexPosition[    276822,       7744]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], ";"}]], "Input",
 CellLabel->"In[1]:=",ExpressionUUID->"05fc1372-0eac-4398-9f89-cbc1e35d185d"],

Cell[CellGroupData[{

Cell["1. Expressions in different Tables", "Subsection",
 CellChangeTimes->{{3.8582824560215797`*^9, 3.8582824663248863`*^9}, {
  3.858397586705575*^9, 
  3.858397592758213*^9}},ExpressionUUID->"eae546a4-f055-4735-8d19-\
5805ab10b0d0"],

Cell[CellGroupData[{

Cell["Table 8", "Subsubsection",
 CellChangeTimes->{{3.858218523142602*^9, 3.858218550611209*^9}, {
   3.858397547769629*^9, 3.858397548151898*^9}, 3.867962899138919*^9, {
   3.886060437485558*^9, 
   3.886060438407332*^9}},ExpressionUUID->"f406fea0-8655-4804-be88-\
b10795d595fc"],

Cell[BoxData[
 RowBox[{
  RowBox[{"A22", "=", 
   RowBox[{
    RowBox[{"4", "*", 
     SuperscriptBox["r2", "2"]}], "+", 
    RowBox[{
     SuperscriptBox["r", "2"], "*", 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       RowBox[{"3", "*", 
        RowBox[{"Cos", "[", 
         RowBox[{"2", "*", "\[Theta]2"}], "]"}]}]}], ")"}]}], "-", 
    RowBox[{"2", "*", "r", "*", "r2", "*", 
     RowBox[{"Cos", "[", "\[Theta]2", "]"}]}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.858218179794447*^9, 3.858218246083493*^9}, 
   3.8582183301493464`*^9, {3.860015180278962*^9, 3.8600152055231047`*^9}, 
   3.8600152471623793`*^9},
 CellLabel->"In[2]:=",ExpressionUUID->"39723466-2e91-4e6d-8af9-78499b128ff2"],

Cell[BoxData[
 RowBox[{
  RowBox[{"A12", "=", 
   RowBox[{
    RowBox[{"4", "*", 
     SuperscriptBox["r1", "2"]}], "+", 
    RowBox[{
     SuperscriptBox["r", "2"], "*", 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       RowBox[{"3", "*", 
        RowBox[{"Cos", "[", 
         RowBox[{"2", "*", "\[Theta]2"}], "]"}]}]}], ")"}]}], "-", 
    RowBox[{"2", "*", "r", "*", "r1", "*", 
     RowBox[{"Cos", "[", "\[Theta]2", "]"}]}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.858218310494094*^9, 3.8582183336914062`*^9}, {
   3.8600152129805527`*^9, 3.860015218228903*^9}, 3.860015248899405*^9},
 CellLabel->"In[3]:=",ExpressionUUID->"9b6fb028-4517-4c43-a005-6823cdeb3719"],

Cell[BoxData[
 RowBox[{
  RowBox[{"A21", "=", 
   RowBox[{
    RowBox[{"4", "*", 
     SuperscriptBox["r2", "2"]}], "+", 
    RowBox[{
     SuperscriptBox["r", "2"], "*", 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       RowBox[{"3", "*", 
        RowBox[{"Cos", "[", 
         RowBox[{"2", "*", "\[Theta]1"}], "]"}]}]}], ")"}]}], "-", 
    RowBox[{"2", "*", "r", "*", "r2", "*", 
     RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8582183356129513`*^9, 3.858218348739797*^9}, {
  3.8600152245733356`*^9, 3.860015250198374*^9}},
 CellLabel->"In[4]:=",ExpressionUUID->"4bd33475-1d8c-41c2-9212-f37868f6ffad"],

Cell[BoxData[
 RowBox[{
  RowBox[{"A11", "=", 
   RowBox[{
    RowBox[{"4", "*", 
     SuperscriptBox["r1", "2"]}], "+", 
    RowBox[{
     SuperscriptBox["r", "2"], "*", 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       RowBox[{"3", "*", 
        RowBox[{"Cos", "[", 
         RowBox[{"2", "*", "\[Theta]1"}], "]"}]}]}], ")"}]}], "-", 
    RowBox[{"2", "*", "r", "*", "r1", "*", 
     RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.858218354813758*^9, 3.858218357314055*^9}, {
  3.8582843273885593`*^9, 3.858284327565905*^9}, {3.860015240991848*^9, 
  3.860015251775351*^9}},
 CellLabel->"In[5]:=",ExpressionUUID->"f085ca3e-4287-49bc-8e45-57a93d47d632"],

Cell[BoxData[
 RowBox[{
  RowBox[{"B2", "=", 
   RowBox[{
    SuperscriptBox["r", "3"], "*", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"Sin", "[", "\[Theta]2", "]"}], ")"}], "2"], "*", 
    RowBox[{"Cos", "[", "\[Theta]2", "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.858218358781789*^9, 3.858218391304419*^9}, {
  3.858218804001224*^9, 3.8582188063427134`*^9}},
 CellLabel->"In[6]:=",ExpressionUUID->"e0131c3c-5105-40c7-88ab-3da93c0ad501"],

Cell[BoxData[
 RowBox[{
  RowBox[{"B1", "=", 
   RowBox[{
    SuperscriptBox["r", "3"], "*", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"Sin", "[", "\[Theta]1", "]"}], ")"}], "2"], "*", 
    RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.85821839867767*^9, 3.858218402089191*^9}, {
  3.8582188125021267`*^9, 3.8582188139372053`*^9}},
 CellLabel->"In[7]:=",ExpressionUUID->"3a935b69-7286-49e9-9be8-5309c260106d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"C22", "=", 
   RowBox[{"r2", "-", 
    RowBox[{"r", "*", 
     RowBox[{"Cos", "[", "\[Theta]2", "]"}]}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.85821840413004*^9, 3.85821842607943*^9}},
 CellLabel->"In[8]:=",ExpressionUUID->"a9792685-2b0f-4fa4-bd41-0a9e4e0f05c9"],

Cell[BoxData[
 RowBox[{
  RowBox[{"C12", "=", 
   RowBox[{"r1", "-", 
    RowBox[{"r", "*", 
     RowBox[{"Cos", "[", "\[Theta]2", "]"}]}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8582184310816936`*^9, 3.8582184338255033`*^9}},
 CellLabel->"In[9]:=",ExpressionUUID->"8b32130b-314e-49f7-90b1-a10a536e92ef"],

Cell[BoxData[
 RowBox[{
  RowBox[{"C21", "=", 
   RowBox[{"r2", "-", 
    RowBox[{"r", "*", 
     RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.858218438953062*^9, 3.8582184403227873`*^9}},
 CellLabel->"In[10]:=",ExpressionUUID->"3fed6808-0b62-4ba3-b585-c47641a3a0f6"],

Cell[BoxData[
 RowBox[{
  RowBox[{"C11", "=", 
   RowBox[{"r1", "-", 
    RowBox[{"r", "*", 
     RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.85821844498593*^9, 3.858218446676289*^9}},
 CellLabel->"In[11]:=",ExpressionUUID->"31571664-b4ac-48db-a1f9-3557fbce3e50"],

Cell[BoxData[
 RowBox[{
  RowBox[{"l22", "=", 
   SqrtBox[
    RowBox[{
     SuperscriptBox["r", "2"], "+", 
     SuperscriptBox["r2", "2"], "-", 
     RowBox[{"2", "*", "r", "*", "r2", "*", 
      RowBox[{"Cos", "[", "\[Theta]2", "]"}]}]}]]}], ";"}]], "Input",
 CellChangeTimes->{{3.8582184511139803`*^9, 3.858218478052725*^9}},
 CellLabel->"In[12]:=",ExpressionUUID->"b865400f-45ca-4f13-bdb7-9b7d1b5e7c46"],

Cell[BoxData[
 RowBox[{
  RowBox[{"l12", "=", 
   SqrtBox[
    RowBox[{
     SuperscriptBox["r", "2"], "+", 
     SuperscriptBox["r1", "2"], "-", 
     RowBox[{"2", "*", "r", "*", "r1", "*", 
      RowBox[{"Cos", "[", "\[Theta]2", "]"}]}]}]]}], ";"}]], "Input",
 CellChangeTimes->{{3.858218479337055*^9, 3.858218498607497*^9}},
 CellLabel->"In[13]:=",ExpressionUUID->"7a0294d1-ee59-4e59-9c87-4722d286015d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"l21", "=", 
   SqrtBox[
    RowBox[{
     SuperscriptBox["r", "2"], "+", 
     SuperscriptBox["r2", "2"], "-", 
     RowBox[{"2", "*", "r", "*", "r2", "*", 
      RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]]}], ";"}]], "Input",
 CellChangeTimes->{{3.8582185040684032`*^9, 3.858218510040658*^9}},
 CellLabel->"In[14]:=",ExpressionUUID->"05ad7b7d-1d1d-4970-8ba7-a382f831693c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"l11", "=", 
   SqrtBox[
    RowBox[{
     SuperscriptBox["r", "2"], "+", 
     SuperscriptBox["r1", "2"], "-", 
     RowBox[{"2", "*", "r", "*", "r1", "*", 
      RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]]}], ";"}]], "Input",
 CellChangeTimes->{{3.858218513950417*^9, 3.858218516588847*^9}},
 CellLabel->"In[15]:=",ExpressionUUID->"8567c086-6a22-48ef-8066-a263e58aa90e"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Table 9", "Subsubsection",
 CellChangeTimes->{{3.8582185569650917`*^9, 3.8582185845254993`*^9}, {
   3.8583975524647408`*^9, 3.858397553371108*^9}, 3.8679629056917877`*^9, {
   3.8860604472741003`*^9, 
   3.88606044805044*^9}},ExpressionUUID->"f1f1c7b1-fd48-4e80-96c4-\
db9f9598f0b7"],

Cell[BoxData[
 RowBox[{
  RowBox[{"D22", "=", 
   RowBox[{
    SuperscriptBox["r2", "2"], "+", 
    RowBox[{
     SuperscriptBox["r", "2"], "*", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"3", "*", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"Cos", "[", "\[Theta]2", "]"}], ")"}], "2"]}], "-", "2"}], 
      ")"}]}], "+", 
    RowBox[{"r", "*", "r2", "*", 
     RowBox[{"Cos", "[", "\[Theta]2", "]"}]}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.858218612751553*^9, 3.858218651360182*^9}, {
  3.858218737419613*^9, 3.8582187480168657`*^9}, {3.858630499504259*^9, 
  3.858630526940366*^9}},
 CellLabel->"In[16]:=",ExpressionUUID->"ca99225d-3cd4-4c73-af19-a476b7745ba4"],

Cell[BoxData[
 RowBox[{
  RowBox[{"D12", "=", 
   RowBox[{
    SuperscriptBox["r1", "2"], "+", 
    RowBox[{
     SuperscriptBox["r", "2"], "*", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"3", "*", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"Cos", "[", "\[Theta]2", "]"}], ")"}], "2"]}], "-", "2"}], 
      ")"}]}], "+", 
    RowBox[{"r", "*", "r1", "*", 
     RowBox[{"Cos", "[", "\[Theta]2", "]"}]}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.858218653717812*^9, 3.8582186727661448`*^9}, {
  3.858218753562125*^9, 3.858218764173853*^9}, {3.8586305323008213`*^9, 
  3.858630548288114*^9}},
 CellLabel->"In[17]:=",ExpressionUUID->"9d3cf6f1-a64a-4ebd-9aa4-897e2de73e85"],

Cell[BoxData[
 RowBox[{
  RowBox[{"D21", "=", 
   RowBox[{
    SuperscriptBox["r2", "2"], "+", 
    RowBox[{
     SuperscriptBox["r", "2"], "*", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"3", "*", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"Cos", "[", "\[Theta]1", "]"}], ")"}], "2"]}], "-", "2"}], 
      ")"}]}], "+", 
    RowBox[{"r", "*", "r2", "*", 
     RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.85821867962715*^9, 3.858218683822369*^9}, {
   3.8582187543151817`*^9, 3.858218770763558*^9}, 3.858282452834111*^9, {
   3.8586305624723387`*^9, 3.858630579896916*^9}},
 CellLabel->"In[18]:=",ExpressionUUID->"0e5cdbfd-3afa-4b74-a0a3-53f451202f2a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"D11", "=", 
   RowBox[{
    SuperscriptBox["r1", "2"], "+", 
    RowBox[{
     SuperscriptBox["r", "2"], "*", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"3", "*", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"Cos", "[", "\[Theta]1", "]"}], ")"}], "2"]}], "-", "2"}], 
      ")"}]}], "+", 
    RowBox[{"r", "*", "r1", "*", 
     RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.85821868814001*^9, 3.85821869218756*^9}, {
  3.858218755138893*^9, 3.858218775866848*^9}, {3.8586305899328737`*^9, 
  3.858630595414297*^9}},
 CellLabel->"In[19]:=",ExpressionUUID->"565f2687-402a-4e0e-bd95-35c9f8395694"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Table 10", "Subsubsection",
 CellChangeTimes->{{3.8582185569650917`*^9, 3.8582185845254993`*^9}, {
   3.858218705867526*^9, 3.858218707220645*^9}, {3.8583975563361263`*^9, 
   3.858397556700727*^9}, 3.86796291098073*^9, {3.886060451329369*^9, 
   3.886060451896783*^9}},ExpressionUUID->"960281e1-5d82-4949-872a-\
ade9562dec77"],

Cell[BoxData[
 RowBox[{
  RowBox[{"E22", "=", 
   RowBox[{
    SuperscriptBox["r", "4"], "+", 
    RowBox[{
     SuperscriptBox["r", "2"], "*", 
     SuperscriptBox["r2", "2"]}], "+", 
    RowBox[{"4", "*", 
     SuperscriptBox["r2", "4"]}], "-", 
    RowBox[{"r", "*", "r2", "*", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["r", "2"], "+", 
       RowBox[{"4", "*", 
        SuperscriptBox["r2", "2"]}]}], ")"}], "*", 
     RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], "-", 
    RowBox[{
     SuperscriptBox["r", "2"], "*", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"3", "*", 
        SuperscriptBox["r", "2"]}], "+", 
       SuperscriptBox["r2", "2"]}], ")"}], "*", 
     RowBox[{"Cos", "[", 
      RowBox[{"2", "*", "\[Theta]2"}], "]"}]}], "+", 
    RowBox[{"3", "*", 
     SuperscriptBox["r", "3"], "*", "r2", "*", 
     RowBox[{"Cos", "[", 
      RowBox[{"3", "*", "\[Theta]2"}], "]"}]}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.858218716140354*^9, 3.8582187341425247`*^9}, {
  3.8582188266794987`*^9, 3.858218909654315*^9}},
 CellLabel->"In[20]:=",ExpressionUUID->"452d7b90-7241-4741-9ed6-321c0814de45"],

Cell[BoxData[
 RowBox[{
  RowBox[{"E12", "=", 
   RowBox[{
    SuperscriptBox["r", "4"], "+", 
    RowBox[{
     SuperscriptBox["r", "2"], "*", 
     SuperscriptBox["r1", "2"]}], "+", 
    RowBox[{"4", "*", 
     SuperscriptBox["r1", "4"]}], "-", 
    RowBox[{"r", "*", "r1", "*", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["r", "2"], "+", 
       RowBox[{"4", "*", 
        SuperscriptBox["r1", "2"]}]}], ")"}], "*", 
     RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], "-", 
    RowBox[{
     SuperscriptBox["r", "2"], "*", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"3", "*", 
        SuperscriptBox["r", "2"]}], "+", 
       SuperscriptBox["r1", "2"]}], ")"}], "*", 
     RowBox[{"Cos", "[", 
      RowBox[{"2", "*", "\[Theta]2"}], "]"}]}], "+", 
    RowBox[{"3", "*", 
     SuperscriptBox["r", "3"], "*", "r1", "*", 
     RowBox[{"Cos", "[", 
      RowBox[{"3", "*", "\[Theta]2"}], "]"}]}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8582188412051907`*^9, 3.8582188420898314`*^9}, {
  3.858218928169363*^9, 3.858218941272599*^9}},
 CellLabel->"In[21]:=",ExpressionUUID->"2414344d-7dc9-4f03-807d-1b3a123b14db"],

Cell[BoxData[
 RowBox[{
  RowBox[{"E21", "=", 
   RowBox[{
    SuperscriptBox["r", "4"], "+", 
    RowBox[{
     SuperscriptBox["r", "2"], "*", 
     SuperscriptBox["r2", "2"]}], "+", 
    RowBox[{"4", "*", 
     SuperscriptBox["r2", "4"]}], "-", 
    RowBox[{"r", "*", "r2", "*", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["r", "2"], "+", 
       RowBox[{"4", "*", 
        SuperscriptBox["r2", "2"]}]}], ")"}], "*", 
     RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], "-", 
    RowBox[{
     SuperscriptBox["r", "2"], "*", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"3", "*", 
        SuperscriptBox["r", "2"]}], "+", 
       SuperscriptBox["r2", "2"]}], ")"}], "*", 
     RowBox[{"Cos", "[", 
      RowBox[{"2", "*", "\[Theta]1"}], "]"}]}], "+", 
    RowBox[{"3", "*", 
     SuperscriptBox["r", "3"], "*", "r2", "*", 
     RowBox[{"Cos", "[", 
      RowBox[{"3", "*", "\[Theta]1"}], "]"}]}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8582189491784554`*^9, 3.858218955700769*^9}},
 CellLabel->"In[22]:=",ExpressionUUID->"62366de4-29ae-4201-9323-fe0da906f6c1"],

Cell[BoxData[
 RowBox[{
  RowBox[{"E11", "=", 
   RowBox[{
    SuperscriptBox["r", "4"], "+", 
    RowBox[{
     SuperscriptBox["r", "2"], "*", 
     SuperscriptBox["r1", "2"]}], "+", 
    RowBox[{"4", "*", 
     SuperscriptBox["r1", "4"]}], "-", 
    RowBox[{"r", "*", "r1", "*", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["r", "2"], "+", 
       RowBox[{"4", "*", 
        SuperscriptBox["r1", "2"]}]}], ")"}], "*", 
     RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], "-", 
    RowBox[{
     SuperscriptBox["r", "2"], "*", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"3", "*", 
        SuperscriptBox["r", "2"]}], "+", 
       SuperscriptBox["r1", "2"]}], ")"}], "*", 
     RowBox[{"Cos", "[", 
      RowBox[{"2", "*", "\[Theta]1"}], "]"}]}], "+", 
    RowBox[{"3", "*", 
     SuperscriptBox["r", "3"], "*", "r1", "*", 
     RowBox[{"Cos", "[", 
      RowBox[{"3", "*", "\[Theta]1"}], "]"}]}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.858218963891753*^9, 3.858218976234223*^9}, {
  3.858284334288212*^9, 3.858284334443655*^9}},
 CellLabel->"In[23]:=",ExpressionUUID->"fe1be78e-f627-4d9b-9a0a-6eca4757cc5c"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Table 11", "Subsubsection",
 CellChangeTimes->{{3.8582185569650917`*^9, 3.8582185845254993`*^9}, {
   3.858218705867526*^9, 3.858218707220645*^9}, {3.858219431888413*^9, 
   3.8582194376353273`*^9}, {3.85822222205094*^9, 3.858222223739108*^9}, {
   3.858397558985169*^9, 3.85839755933862*^9}, 3.8679629131415167`*^9, {
   3.886060459531004*^9, 
   3.886060460069325*^9}},ExpressionUUID->"d045f928-02e8-44b4-852f-\
7f585569624d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"F2", "=", 
   RowBox[{
    RowBox[{"-", "3"}], "*", 
    RowBox[{"Cos", "[", "\[Theta]2", "]"}], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"8", "*", 
       RowBox[{"(", 
        RowBox[{"\[Lambda]2", "-", "\[Lambda]1"}], ")"}], "*", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"Sin", "[", "\[Theta]2", "]"}], ")"}], "2"]}], "+", 
      RowBox[{"4", "*", 
       RowBox[{"Cos", "[", 
        RowBox[{
         RowBox[{"2", "*", "\[Lambda]"}], "-", "\[Lambda]1", "-", 
         "\[Lambda]2"}], "]"}], "*", 
       RowBox[{"Sin", "[", 
        RowBox[{"\[Lambda]2", "-", "\[Lambda]1"}], "]"}], "*", 
       RowBox[{"(", 
        RowBox[{"5", "-", 
         RowBox[{"Cos", "[", 
          RowBox[{"2", "*", "\[Theta]2"}], "]"}]}], ")"}]}]}], ")"}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.85821946648321*^9, 3.858219597602696*^9}},
 CellLabel->"In[24]:=",ExpressionUUID->"99056d0d-23bd-4fd3-93d6-51aa82bd38f7"],

Cell[BoxData[
 RowBox[{
  RowBox[{"F1", "=", 
   RowBox[{
    RowBox[{"-", "3"}], "*", 
    RowBox[{"Cos", "[", "\[Theta]1", "]"}], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"8", "*", 
       RowBox[{"(", 
        RowBox[{"\[Lambda]2", "-", "\[Lambda]1"}], ")"}], "*", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"Sin", "[", "\[Theta]1", "]"}], ")"}], "2"]}], "+", 
      RowBox[{"4", "*", 
       RowBox[{"Cos", "[", 
        RowBox[{
         RowBox[{"2", "*", "\[Lambda]"}], "-", "\[Lambda]1", "-", 
         "\[Lambda]2"}], "]"}], "*", 
       RowBox[{"Sin", "[", 
        RowBox[{"\[Lambda]2", "-", "\[Lambda]1"}], "]"}], "*", 
       RowBox[{"(", 
        RowBox[{"5", "-", 
         RowBox[{"Cos", "[", 
          RowBox[{"2", "*", "\[Theta]1"}], "]"}]}], ")"}]}]}], ")"}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.858219606295458*^9, 3.858219620590994*^9}},
 CellLabel->"In[25]:=",ExpressionUUID->"1118e2f0-dc04-4fcd-af96-9d2f4d9d27ae"],

Cell[BoxData[
 RowBox[{
  RowBox[{"H2", "=", 
   RowBox[{
    RowBox[{"-", "4"}], "*", 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["r", "4"], "+", 
      RowBox[{
       SuperscriptBox["r", "2"], "*", 
       SuperscriptBox["r2", "2"]}], "+", 
      RowBox[{"4", "*", 
       SuperscriptBox["r2", "4"]}]}], ")"}], "*", 
    RowBox[{"(", 
     RowBox[{"\[Lambda]2", "-", "\[Lambda]1"}], ")"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.858220063054104*^9, 3.858220095139963*^9}},
 CellLabel->"In[26]:=",ExpressionUUID->"50fdc719-ad7c-444e-861f-727cac453609"],

Cell[BoxData[
 RowBox[{
  RowBox[{"H1", "=", 
   RowBox[{
    RowBox[{"-", "4"}], "*", 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["r", "4"], "+", 
      RowBox[{
       SuperscriptBox["r", "2"], "*", 
       SuperscriptBox["r1", "2"]}], "+", 
      RowBox[{"4", "*", 
       SuperscriptBox["r1", "4"]}]}], ")"}], "*", 
    RowBox[{"(", 
     RowBox[{"\[Lambda]2", "-", "\[Lambda]1"}], ")"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.85822011797077*^9, 3.8582201218344917`*^9}},
 CellLabel->"In[27]:=",ExpressionUUID->"d33fcb3e-c54a-425e-a930-eb6eeba421b7"],

Cell[BoxData[
 RowBox[{
  RowBox[{"I22", "=", 
   RowBox[{"2", "*", 
    SuperscriptBox["r", "2"], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"3", "*", 
          SuperscriptBox["r", "2"]}], "+", 
         SuperscriptBox["r2", "2"]}], ")"}], "*", 
       RowBox[{"Cos", "[", 
        RowBox[{"2", "*", "\[Theta]2"}], "]"}]}], "-", 
      RowBox[{"3", "*", "r", "*", "r2", "*", 
       RowBox[{"Cos", "[", 
        RowBox[{"3", "*", "\[Theta]2"}], "]"}]}]}], ")"}], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"2", "*", "\[Lambda]2"}], "-", 
      RowBox[{"2", "*", "\[Lambda]1"}], "+", 
      RowBox[{"Sin", "[", 
       RowBox[{"2", "*", 
        RowBox[{"(", 
         RowBox[{"\[Lambda]", "-", "\[Lambda]1"}], ")"}]}], "]"}], "-", 
      RowBox[{"Sin", "[", 
       RowBox[{"2", "*", 
        RowBox[{"(", 
         RowBox[{"\[Lambda]", "-", "\[Lambda]2"}], ")"}]}], "]"}]}], 
     ")"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.858220131597396*^9, 3.858220242871366*^9}},
 CellLabel->"In[28]:=",ExpressionUUID->"6b413f2c-e164-49d6-962a-b2c13bd7f9e5"],

Cell[BoxData[
 RowBox[{
  RowBox[{"I12", "=", 
   RowBox[{"2", "*", 
    SuperscriptBox["r", "2"], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"3", "*", 
          SuperscriptBox["r", "2"]}], "+", 
         SuperscriptBox["r1", "2"]}], ")"}], "*", 
       RowBox[{"Cos", "[", 
        RowBox[{"2", "*", "\[Theta]2"}], "]"}]}], "-", 
      RowBox[{"3", "*", "r", "*", "r1", "*", 
       RowBox[{"Cos", "[", 
        RowBox[{"3", "*", "\[Theta]2"}], "]"}]}]}], ")"}], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"2", "*", "\[Lambda]2"}], "-", 
      RowBox[{"2", "*", "\[Lambda]1"}], "+", 
      RowBox[{"Sin", "[", 
       RowBox[{"2", "*", 
        RowBox[{"(", 
         RowBox[{"\[Lambda]", "-", "\[Lambda]1"}], ")"}]}], "]"}], "-", 
      RowBox[{"Sin", "[", 
       RowBox[{"2", "*", 
        RowBox[{"(", 
         RowBox[{"\[Lambda]", "-", "\[Lambda]2"}], ")"}]}], "]"}]}], 
     ")"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.858220281975658*^9, 3.858220293999016*^9}},
 CellLabel->"In[29]:=",ExpressionUUID->"999e4c4e-c312-46cc-9ced-d4b3931b4d06"],

Cell[BoxData[
 RowBox[{
  RowBox[{"I21", "=", 
   RowBox[{"2", "*", 
    SuperscriptBox["r", "2"], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"3", "*", 
          SuperscriptBox["r", "2"]}], "+", 
         SuperscriptBox["r2", "2"]}], ")"}], "*", 
       RowBox[{"Cos", "[", 
        RowBox[{"2", "*", "\[Theta]1"}], "]"}]}], "-", 
      RowBox[{"3", "*", "r", "*", "r2", "*", 
       RowBox[{"Cos", "[", 
        RowBox[{"3", "*", "\[Theta]1"}], "]"}]}]}], ")"}], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"2", "*", "\[Lambda]2"}], "-", 
      RowBox[{"2", "*", "\[Lambda]1"}], "+", 
      RowBox[{"Sin", "[", 
       RowBox[{"2", "*", 
        RowBox[{"(", 
         RowBox[{"\[Lambda]", "-", "\[Lambda]1"}], ")"}]}], "]"}], "-", 
      RowBox[{"Sin", "[", 
       RowBox[{"2", "*", 
        RowBox[{"(", 
         RowBox[{"\[Lambda]", "-", "\[Lambda]2"}], ")"}]}], "]"}]}], 
     ")"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8582203067216673`*^9, 3.858220314949147*^9}},
 CellLabel->"In[30]:=",ExpressionUUID->"9c767da7-99b7-4c20-bc19-dc3af275c76b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"I11", "=", 
   RowBox[{"2", "*", 
    SuperscriptBox["r", "2"], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"3", "*", 
          SuperscriptBox["r", "2"]}], "+", 
         SuperscriptBox["r1", "2"]}], ")"}], "*", 
       RowBox[{"Cos", "[", 
        RowBox[{"2", "*", "\[Theta]1"}], "]"}]}], "-", 
      RowBox[{"3", "*", "r", "*", "r1", "*", 
       RowBox[{"Cos", "[", 
        RowBox[{"3", "*", "\[Theta]1"}], "]"}]}]}], ")"}], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"2", "*", "\[Lambda]2"}], "-", 
      RowBox[{"2", "*", "\[Lambda]1"}], "+", 
      RowBox[{"Sin", "[", 
       RowBox[{"2", "*", 
        RowBox[{"(", 
         RowBox[{"\[Lambda]", "-", "\[Lambda]1"}], ")"}]}], "]"}], "-", 
      RowBox[{"Sin", "[", 
       RowBox[{"2", "*", 
        RowBox[{"(", 
         RowBox[{"\[Lambda]", "-", "\[Lambda]2"}], ")"}]}], "]"}]}], 
     ")"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.858220320276638*^9, 3.8582203278897047`*^9}},
 CellLabel->"In[31]:=",ExpressionUUID->"7fbdcff1-903e-4b12-b6c3-16c1537adca1"],

Cell[BoxData[
 RowBox[{
  RowBox[{"J2", "=", 
   RowBox[{
    RowBox[{"-", "4"}], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"13", "*", 
       SuperscriptBox["r", "4"]}], "+", 
      RowBox[{"13", "*", 
       SuperscriptBox["r", "2"], "*", 
       SuperscriptBox["r2", "2"]}], "+", 
      RowBox[{"4", "*", 
       SuperscriptBox["r2", "4"]}]}], ")"}], "*", 
    RowBox[{"Cos", "[", 
     RowBox[{
      RowBox[{"2", "*", "\[Lambda]"}], "-", "\[Lambda]1", "-", "\[Lambda]2"}],
      "]"}], "*", 
    RowBox[{"Sin", "[", 
     RowBox[{"\[Lambda]2", "-", "\[Lambda]1"}], "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.858220345523539*^9, 3.8582204337346897`*^9}},
 CellLabel->"In[32]:=",ExpressionUUID->"424c9fd6-ed62-41da-b264-8522ce0287c9"],

Cell[BoxData[
 RowBox[{
  RowBox[{"J1", "=", 
   RowBox[{
    RowBox[{"-", "4"}], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"13", "*", 
       SuperscriptBox["r", "4"]}], "+", 
      RowBox[{"13", "*", 
       SuperscriptBox["r", "2"], "*", 
       SuperscriptBox["r1", "2"]}], "+", 
      RowBox[{"4", "*", 
       SuperscriptBox["r1", "4"]}]}], ")"}], "*", 
    RowBox[{"Cos", "[", 
     RowBox[{
      RowBox[{"2", "*", "\[Lambda]"}], "-", "\[Lambda]1", "-", "\[Lambda]2"}],
      "]"}], "*", 
    RowBox[{"Sin", "[", 
     RowBox[{"\[Lambda]2", "-", "\[Lambda]1"}], "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.858220456872725*^9, 3.858220461799501*^9}},
 CellLabel->"In[33]:=",ExpressionUUID->"646f8060-5a34-4afb-9dfa-e3b9d31ebcaf"],

Cell[BoxData[
 RowBox[{
  RowBox[{"K22", "=", 
   RowBox[{"4", "*", "r", "*", "r2", "*", 
    RowBox[{"Cos", "[", "\[Theta]2", "]"}], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["r", "2"], "+", 
         RowBox[{"4", "*", 
          SuperscriptBox["r2", "2"]}]}], ")"}], "*", 
       RowBox[{"(", 
        RowBox[{"\[Lambda]2", "-", "\[Lambda]1"}], ")"}]}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"25", "*", 
          SuperscriptBox["r", "2"]}], "+", 
         RowBox[{"4", "*", 
          SuperscriptBox["r2", "2"]}]}], ")"}], "*", 
       RowBox[{"Cos", "[", 
        RowBox[{
         RowBox[{"2", "*", "\[Lambda]"}], "-", "\[Lambda]1", "-", 
         "\[Lambda]2"}], "]"}], "*", 
       RowBox[{"Sin", "[", 
        RowBox[{"\[Lambda]2", "-", "\[Lambda]1"}], "]"}]}]}], ")"}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.858220524766177*^9, 3.8582206044473953`*^9}},
 CellLabel->"In[34]:=",ExpressionUUID->"4f925afb-6cb7-49d7-9eaf-33968f0c20a5"],

Cell[BoxData[
 RowBox[{
  RowBox[{"K12", "=", 
   RowBox[{"4", "*", "r", "*", "r1", "*", 
    RowBox[{"Cos", "[", "\[Theta]2", "]"}], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["r", "2"], "+", 
         RowBox[{"4", "*", 
          SuperscriptBox["r1", "2"]}]}], ")"}], "*", 
       RowBox[{"(", 
        RowBox[{"\[Lambda]2", "-", "\[Lambda]1"}], ")"}]}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"25", "*", 
          SuperscriptBox["r", "2"]}], "+", 
         RowBox[{"4", "*", 
          SuperscriptBox["r1", "2"]}]}], ")"}], "*", 
       RowBox[{"Cos", "[", 
        RowBox[{
         RowBox[{"2", "*", "\[Lambda]"}], "-", "\[Lambda]1", "-", 
         "\[Lambda]2"}], "]"}], "*", 
       RowBox[{"Sin", "[", 
        RowBox[{"\[Lambda]2", "-", "\[Lambda]1"}], "]"}]}]}], ")"}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.8582215437154284`*^9, 3.858221552080147*^9}},
 CellLabel->"In[35]:=",ExpressionUUID->"7b530b69-4a35-4170-b289-b29e297ed77f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"K21", "=", 
   RowBox[{"4", "*", "r", "*", "r2", "*", 
    RowBox[{"Cos", "[", "\[Theta]1", "]"}], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["r", "2"], "+", 
         RowBox[{"4", "*", 
          SuperscriptBox["r2", "2"]}]}], ")"}], "*", 
       RowBox[{"(", 
        RowBox[{"\[Lambda]2", "-", "\[Lambda]1"}], ")"}]}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"25", "*", 
          SuperscriptBox["r", "2"]}], "+", 
         RowBox[{"4", "*", 
          SuperscriptBox["r2", "2"]}]}], ")"}], "*", 
       RowBox[{"Cos", "[", 
        RowBox[{
         RowBox[{"2", "*", "\[Lambda]"}], "-", "\[Lambda]1", "-", 
         "\[Lambda]2"}], "]"}], "*", 
       RowBox[{"Sin", "[", 
        RowBox[{"\[Lambda]2", "-", "\[Lambda]1"}], "]"}]}]}], ")"}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.858221558813651*^9, 3.8582215606425047`*^9}},
 CellLabel->"In[36]:=",ExpressionUUID->"080867df-8fa4-4dec-8bce-8859c991a552"],

Cell[BoxData[
 RowBox[{
  RowBox[{"K11", "=", 
   RowBox[{"4", "*", "r", "*", "r1", "*", 
    RowBox[{"Cos", "[", "\[Theta]1", "]"}], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["r", "2"], "+", 
         RowBox[{"4", "*", 
          SuperscriptBox["r1", "2"]}]}], ")"}], "*", 
       RowBox[{"(", 
        RowBox[{"\[Lambda]2", "-", "\[Lambda]1"}], ")"}]}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"25", "*", 
          SuperscriptBox["r", "2"]}], "+", 
         RowBox[{"4", "*", 
          SuperscriptBox["r1", "2"]}]}], ")"}], "*", 
       RowBox[{"Cos", "[", 
        RowBox[{
         RowBox[{"2", "*", "\[Lambda]"}], "-", "\[Lambda]1", "-", 
         "\[Lambda]2"}], "]"}], "*", 
       RowBox[{"Sin", "[", 
        RowBox[{"\[Lambda]2", "-", "\[Lambda]1"}], "]"}]}]}], ")"}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.85822158172997*^9, 3.858221583306137*^9}},
 CellLabel->"In[37]:=",ExpressionUUID->"ae5f10c9-ec15-4373-acc5-f56b84252cfd"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Table 12", "Subsubsection",
 CellChangeTimes->{{3.8582185569650917`*^9, 3.8582185845254993`*^9}, {
   3.858218705867526*^9, 3.858218707220645*^9}, {3.858219431888413*^9, 
   3.8582194376353273`*^9}, {3.858222210430853*^9, 3.858222211888854*^9}, {
   3.858397563741184*^9, 3.858397564088871*^9}, 3.867962919677668*^9, {
   3.886060477355666*^9, 
   3.886060478119575*^9}},ExpressionUUID->"467f9704-ac71-4865-bee0-\
0120861a8978"],

Cell[BoxData[
 RowBox[{
  RowBox[{"L2", "=", 
   RowBox[{
    RowBox[{"-", "3"}], "*", 
    RowBox[{"Cos", "[", "\[Theta]2", "]"}], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"8", "*", 
       RowBox[{"(", 
        RowBox[{"\[Lambda]2", "-", "\[Lambda]1"}], ")"}], "*", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"Sin", "[", "\[Theta]2", "]"}], ")"}], "2"]}], "-", 
      RowBox[{"4", "*", 
       RowBox[{"Cos", "[", 
        RowBox[{
         RowBox[{"2", "*", "\[Lambda]"}], "-", "\[Lambda]1", "-", 
         "\[Lambda]2"}], "]"}], "*", 
       RowBox[{"Sin", "[", 
        RowBox[{"\[Lambda]2", "-", "\[Lambda]1"}], "]"}], "*", 
       RowBox[{"(", 
        RowBox[{"5", "-", 
         RowBox[{"Cos", "[", 
          RowBox[{"2", "*", "\[Theta]2"}], "]"}]}], ")"}]}]}], ")"}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.8582215967189693`*^9, 3.858221656735914*^9}, {
  3.858221688163978*^9, 3.8582216906400547`*^9}},
 CellLabel->"In[38]:=",ExpressionUUID->"088a92c2-5ed9-45e2-bff9-a8dd7742e5e0"],

Cell[BoxData[
 RowBox[{
  RowBox[{"L1", "=", 
   RowBox[{
    RowBox[{"-", "3"}], "*", 
    RowBox[{"Cos", "[", "\[Theta]1", "]"}], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"8", "*", 
       RowBox[{"(", 
        RowBox[{"\[Lambda]2", "-", "\[Lambda]1"}], ")"}], "*", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"Sin", "[", "\[Theta]1", "]"}], ")"}], "2"]}], "-", 
      RowBox[{"4", "*", 
       RowBox[{"Cos", "[", 
        RowBox[{
         RowBox[{"2", "*", "\[Lambda]"}], "-", "\[Lambda]1", "-", 
         "\[Lambda]2"}], "]"}], "*", 
       RowBox[{"Sin", "[", 
        RowBox[{"\[Lambda]2", "-", "\[Lambda]1"}], "]"}], "*", 
       RowBox[{"(", 
        RowBox[{"5", "-", 
         RowBox[{"Cos", "[", 
          RowBox[{"2", "*", "\[Theta]1"}], "]"}]}], ")"}]}]}], ")"}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.858221677706069*^9, 3.858221683274599*^9}},
 CellLabel->"In[39]:=",ExpressionUUID->"b6d04af6-29dd-4fad-8c9c-891201d72ee8"],

Cell[BoxData[
 RowBox[{
  RowBox[{"M22", "=", 
   RowBox[{"2", "*", 
    SuperscriptBox["r", "2"], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"3", "*", 
          SuperscriptBox["r", "2"]}], "+", 
         SuperscriptBox["r2", "2"]}], ")"}], "*", 
       RowBox[{"Cos", "[", 
        RowBox[{"2", "*", "\[Theta]2"}], "]"}]}], "-", 
      RowBox[{"3", "*", "r", "*", "r2", "*", 
       RowBox[{"Cos", "[", 
        RowBox[{"3", "*", "\[Theta]2"}], "]"}]}]}], ")"}], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"2", "*", "\[Lambda]2"}], "-", 
      RowBox[{"2", "*", "\[Lambda]1"}], "-", 
      RowBox[{"Sin", "[", 
       RowBox[{"2", "*", 
        RowBox[{"(", 
         RowBox[{"\[Lambda]", "-", "\[Lambda]1"}], ")"}]}], "]"}], "+", 
      RowBox[{"Sin", "[", 
       RowBox[{"2", "*", 
        RowBox[{"(", 
         RowBox[{"\[Lambda]", "-", "\[Lambda]2"}], ")"}]}], "]"}]}], 
     ")"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.858221703907596*^9, 3.858221785459065*^9}},
 CellLabel->"In[40]:=",ExpressionUUID->"2d355fbd-0035-4aa4-8dc1-a81bce2a0112"],

Cell[BoxData[
 RowBox[{
  RowBox[{"M12", "=", 
   RowBox[{"2", "*", 
    SuperscriptBox["r", "2"], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"3", "*", 
          SuperscriptBox["r", "2"]}], "+", 
         SuperscriptBox["r1", "2"]}], ")"}], "*", 
       RowBox[{"Cos", "[", 
        RowBox[{"2", "*", "\[Theta]2"}], "]"}]}], "-", 
      RowBox[{"3", "*", "r", "*", "r1", "*", 
       RowBox[{"Cos", "[", 
        RowBox[{"3", "*", "\[Theta]2"}], "]"}]}]}], ")"}], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"2", "*", "\[Lambda]2"}], "-", 
      RowBox[{"2", "*", "\[Lambda]1"}], "-", 
      RowBox[{"Sin", "[", 
       RowBox[{"2", "*", 
        RowBox[{"(", 
         RowBox[{"\[Lambda]", "-", "\[Lambda]1"}], ")"}]}], "]"}], "+", 
      RowBox[{"Sin", "[", 
       RowBox[{"2", "*", 
        RowBox[{"(", 
         RowBox[{"\[Lambda]", "-", "\[Lambda]2"}], ")"}]}], "]"}]}], 
     ")"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.858221795955928*^9, 3.858221804583757*^9}},
 CellLabel->"In[41]:=",ExpressionUUID->"8de127a1-a57b-452e-8c6a-455e1ad004cc"],

Cell[BoxData[
 RowBox[{
  RowBox[{"M21", "=", 
   RowBox[{"2", "*", 
    SuperscriptBox["r", "2"], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"3", "*", 
          SuperscriptBox["r", "2"]}], "+", 
         SuperscriptBox["r2", "2"]}], ")"}], "*", 
       RowBox[{"Cos", "[", 
        RowBox[{"2", "*", "\[Theta]1"}], "]"}]}], "-", 
      RowBox[{"3", "*", "r", "*", "r2", "*", 
       RowBox[{"Cos", "[", 
        RowBox[{"3", "*", "\[Theta]1"}], "]"}]}]}], ")"}], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"2", "*", "\[Lambda]2"}], "-", 
      RowBox[{"2", "*", "\[Lambda]1"}], "-", 
      RowBox[{"Sin", "[", 
       RowBox[{"2", "*", 
        RowBox[{"(", 
         RowBox[{"\[Lambda]", "-", "\[Lambda]1"}], ")"}]}], "]"}], "+", 
      RowBox[{"Sin", "[", 
       RowBox[{"2", "*", 
        RowBox[{"(", 
         RowBox[{"\[Lambda]", "-", "\[Lambda]2"}], ")"}]}], "]"}]}], 
     ")"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.858221807784005*^9, 3.858221814412575*^9}},
 CellLabel->"In[42]:=",ExpressionUUID->"67955668-de81-4bfb-b545-0784a00364aa"],

Cell[BoxData[
 RowBox[{
  RowBox[{"M11", "=", 
   RowBox[{"2", "*", 
    SuperscriptBox["r", "2"], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"3", "*", 
          SuperscriptBox["r", "2"]}], "+", 
         SuperscriptBox["r1", "2"]}], ")"}], "*", 
       RowBox[{"Cos", "[", 
        RowBox[{"2", "*", "\[Theta]1"}], "]"}]}], "-", 
      RowBox[{"3", "*", "r", "*", "r1", "*", 
       RowBox[{"Cos", "[", 
        RowBox[{"3", "*", "\[Theta]1"}], "]"}]}]}], ")"}], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"2", "*", "\[Lambda]2"}], "-", 
      RowBox[{"2", "*", "\[Lambda]1"}], "-", 
      RowBox[{"Sin", "[", 
       RowBox[{"2", "*", 
        RowBox[{"(", 
         RowBox[{"\[Lambda]", "-", "\[Lambda]1"}], ")"}]}], "]"}], "+", 
      RowBox[{"Sin", "[", 
       RowBox[{"2", "*", 
        RowBox[{"(", 
         RowBox[{"\[Lambda]", "-", "\[Lambda]2"}], ")"}]}], "]"}]}], 
     ")"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.858221823915799*^9, 3.858221834275154*^9}},
 CellLabel->"In[43]:=",ExpressionUUID->"e87e7054-55ad-4297-9156-3cbb9e9ea48a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"N22", "=", 
   RowBox[{"4", "*", "r", "*", "r2", "*", 
    RowBox[{"Cos", "[", "\[Theta]2", "]"}], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["r", "2"], "+", 
         RowBox[{"4", "*", 
          SuperscriptBox["r2", "2"]}]}], ")"}], "*", 
       RowBox[{"(", 
        RowBox[{"\[Lambda]2", "-", "\[Lambda]1"}], ")"}]}], "-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"25", "*", 
          SuperscriptBox["r", "2"]}], "+", 
         RowBox[{"4", "*", 
          SuperscriptBox["r2", "2"]}]}], ")"}], "*", 
       RowBox[{"Cos", "[", 
        RowBox[{
         RowBox[{"2", "*", "\[Lambda]"}], "-", "\[Lambda]1", "-", 
         "\[Lambda]2"}], "]"}], "*", 
       RowBox[{"Sin", "[", 
        RowBox[{"\[Lambda]2", "-", "\[Lambda]1"}], "]"}]}]}], ")"}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.858221950352305*^9, 3.858221988992835*^9}},
 CellLabel->"In[44]:=",ExpressionUUID->"a9354ab6-00f0-4353-a51b-dfa9dfd00f5c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"N12", "=", 
   RowBox[{"4", "*", "r", "*", "r1", "*", 
    RowBox[{"Cos", "[", "\[Theta]2", "]"}], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["r", "2"], "+", 
         RowBox[{"4", "*", 
          SuperscriptBox["r1", "2"]}]}], ")"}], "*", 
       RowBox[{"(", 
        RowBox[{"\[Lambda]2", "-", "\[Lambda]1"}], ")"}]}], "-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"25", "*", 
          SuperscriptBox["r", "2"]}], "+", 
         RowBox[{"4", "*", 
          SuperscriptBox["r1", "2"]}]}], ")"}], "*", 
       RowBox[{"Cos", "[", 
        RowBox[{
         RowBox[{"2", "*", "\[Lambda]"}], "-", "\[Lambda]1", "-", 
         "\[Lambda]2"}], "]"}], "*", 
       RowBox[{"Sin", "[", 
        RowBox[{"\[Lambda]2", "-", "\[Lambda]1"}], "]"}]}]}], ")"}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.858222009545629*^9, 3.858222014891674*^9}},
 CellLabel->"In[45]:=",ExpressionUUID->"6ceaaa76-e033-4ba6-bd51-8e6144fdd503"],

Cell[BoxData[
 RowBox[{
  RowBox[{"N21", "=", 
   RowBox[{"4", "*", "r", "*", "r2", "*", 
    RowBox[{"Cos", "[", "\[Theta]1", "]"}], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["r", "2"], "+", 
         RowBox[{"4", "*", 
          SuperscriptBox["r2", "2"]}]}], ")"}], "*", 
       RowBox[{"(", 
        RowBox[{"\[Lambda]2", "-", "\[Lambda]1"}], ")"}]}], "-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"25", "*", 
          SuperscriptBox["r", "2"]}], "+", 
         RowBox[{"4", "*", 
          SuperscriptBox["r2", "2"]}]}], ")"}], "*", 
       RowBox[{"Cos", "[", 
        RowBox[{
         RowBox[{"2", "*", "\[Lambda]"}], "-", "\[Lambda]1", "-", 
         "\[Lambda]2"}], "]"}], "*", 
       RowBox[{"Sin", "[", 
        RowBox[{"\[Lambda]2", "-", "\[Lambda]1"}], "]"}]}]}], ")"}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.8582220253581753`*^9, 3.858222028020583*^9}},
 CellLabel->"In[46]:=",ExpressionUUID->"d310e1a6-344c-4318-be45-b76205ffef5a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"N11", "=", 
   RowBox[{"4", "*", "r", "*", "r1", "*", 
    RowBox[{"Cos", "[", "\[Theta]1", "]"}], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["r", "2"], "+", 
         RowBox[{"4", "*", 
          SuperscriptBox["r1", "2"]}]}], ")"}], "*", 
       RowBox[{"(", 
        RowBox[{"\[Lambda]2", "-", "\[Lambda]1"}], ")"}]}], "-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"25", "*", 
          SuperscriptBox["r", "2"]}], "+", 
         RowBox[{"4", "*", 
          SuperscriptBox["r1", "2"]}]}], ")"}], "*", 
       RowBox[{"Cos", "[", 
        RowBox[{
         RowBox[{"2", "*", "\[Lambda]"}], "-", "\[Lambda]1", "-", 
         "\[Lambda]2"}], "]"}], "*", 
       RowBox[{"Sin", "[", 
        RowBox[{"\[Lambda]2", "-", "\[Lambda]1"}], "]"}]}]}], ")"}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.8582220432400713`*^9, 3.8582220446779747`*^9}},
 CellLabel->"In[47]:=",ExpressionUUID->"de051c9c-3ad9-4f93-94fb-76e312721660"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Table 13", "Subsubsection",
 CellChangeTimes->{{3.8582185569650917`*^9, 3.8582185845254993`*^9}, {
   3.858218705867526*^9, 3.858218707220645*^9}, {3.858219431888413*^9, 
   3.8582194376353273`*^9}, {3.85822219142034*^9, 3.8582221926956997`*^9}, 
   3.8583975677365627`*^9, 3.867962932014984*^9, {3.886060488228404*^9, 
   3.886060488815947*^9}},ExpressionUUID->"c1a8601e-f905-472c-bd8b-\
14175810c79c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"O22", "=", 
   RowBox[{
    SuperscriptBox["r2", "3"], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"9", "*", 
       SuperscriptBox["r", "2"], "*", "r2"}], "+", 
      RowBox[{"4", "*", 
       SuperscriptBox["r2", "3"]}], "-", 
      RowBox[{"4", "*", "r", "*", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["r", "2"], "+", 
         RowBox[{"3", "*", 
          SuperscriptBox["r2", "2"]}]}], ")"}], "*", 
       RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], "+", 
      RowBox[{"3", "*", 
       SuperscriptBox["r", "2"], "*", "r2", "*", 
       RowBox[{"Cos", "[", 
        RowBox[{"2", "*", "\[Theta]2"}], "]"}]}]}], ")"}]}]}], ";"}]], "Input",\

 CellChangeTimes->{{3.858222063462578*^9, 3.858222121872492*^9}, {
  3.8582879145453033`*^9, 3.85828791502293*^9}},
 CellLabel->"In[48]:=",ExpressionUUID->"04577011-f466-4c3b-9756-3ba636953445"],

Cell[BoxData[
 RowBox[{
  RowBox[{"O12", "=", 
   RowBox[{
    SuperscriptBox["r1", "3"], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"9", "*", 
       SuperscriptBox["r", "2"], "*", "r1"}], "+", 
      RowBox[{"4", "*", 
       SuperscriptBox["r1", "3"]}], "-", 
      RowBox[{"4", "*", "r", "*", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["r", "2"], "+", 
         RowBox[{"3", "*", 
          SuperscriptBox["r1", "2"]}]}], ")"}], "*", 
       RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], "+", 
      RowBox[{"3", "*", 
       SuperscriptBox["r", "2"], "*", "r1", "*", 
       RowBox[{"Cos", "[", 
        RowBox[{"2", "*", "\[Theta]2"}], "]"}]}]}], ")"}]}]}], ";"}]], "Input",\

 CellChangeTimes->{{3.858222138174365*^9, 3.858222150051712*^9}, 
   3.858287923319903*^9},
 CellLabel->"In[49]:=",ExpressionUUID->"e1ee333a-c5ef-4f6d-a277-d1d92e07f8e5"],

Cell[BoxData[
 RowBox[{
  RowBox[{"O21", "=", 
   RowBox[{
    SuperscriptBox["r2", "3"], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"9", "*", 
       SuperscriptBox["r", "2"], "*", "r2"}], "+", 
      RowBox[{"4", "*", 
       SuperscriptBox["r2", "3"]}], "-", 
      RowBox[{"4", "*", "r", "*", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["r", "2"], "+", 
         RowBox[{"3", "*", 
          SuperscriptBox["r2", "2"]}]}], ")"}], "*", 
       RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], "+", 
      RowBox[{"3", "*", 
       SuperscriptBox["r", "2"], "*", "r2", "*", 
       RowBox[{"Cos", "[", 
        RowBox[{"2", "*", "\[Theta]1"}], "]"}]}]}], ")"}]}]}], ";"}]], "Input",\

 CellChangeTimes->{{3.8582221545408707`*^9, 3.8582221635015373`*^9}, 
   3.858287924578988*^9},
 CellLabel->"In[50]:=",ExpressionUUID->"ac539815-fb18-4dd2-b19b-f617db537eca"],

Cell[BoxData[
 RowBox[{
  RowBox[{"O11", "=", 
   RowBox[{
    SuperscriptBox["r1", "3"], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"9", "*", 
       SuperscriptBox["r", "2"], "*", "r1"}], "+", 
      RowBox[{"4", "*", 
       SuperscriptBox["r1", "3"]}], "-", 
      RowBox[{"4", "*", "r", "*", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["r", "2"], "+", 
         RowBox[{"3", "*", 
          SuperscriptBox["r1", "2"]}]}], ")"}], "*", 
       RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], "+", 
      RowBox[{"3", "*", 
       SuperscriptBox["r", "2"], "*", "r1", "*", 
       RowBox[{"Cos", "[", 
        RowBox[{"2", "*", "\[Theta]1"}], "]"}]}]}], ")"}]}]}], ";"}]], "Input",\

 CellChangeTimes->{{3.8582221697211123`*^9, 3.858222171505437*^9}, {
   3.858284347070426*^9, 3.858284347202794*^9}, 3.858287925610523*^9},
 CellLabel->"In[51]:=",ExpressionUUID->"8f231e53-f6ab-4ee1-bbe7-53a0879cd360"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Table 14", "Subsubsection",
 CellChangeTimes->{{3.8582185569650917`*^9, 3.8582185845254993`*^9}, {
   3.858218705867526*^9, 3.858218707220645*^9}, {3.858219431888413*^9, 
   3.8582194376353273`*^9}, {3.85822219142034*^9, 3.8582221926956997`*^9}, {
   3.858222252973481*^9, 3.858222254326377*^9}, 3.858397569964561*^9, 
   3.8679629336927032`*^9, {3.886060493571693*^9, 
   3.8860604940230303`*^9}},ExpressionUUID->"9bb697db-e183-40e1-bcc5-\
b4be102f6cad"],

Cell[BoxData[
 RowBox[{
  RowBox[{"P22", "=", 
   RowBox[{"6", "*", 
    SuperscriptBox["r", "2"], "*", 
    SuperscriptBox["r2", "4"], "*", 
    RowBox[{"Cos", "[", 
     RowBox[{"2", "*", "\[Theta]2"}], "]"}], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"2", "*", "\[Lambda]2"}], "-", 
      RowBox[{"2", "*", "\[Lambda]1"}], "+", 
      RowBox[{"Sin", "[", 
       RowBox[{"2", "*", 
        RowBox[{"(", 
         RowBox[{"\[Lambda]", "-", "\[Lambda]1"}], ")"}]}], "]"}], "-", 
      RowBox[{"Sin", "[", 
       RowBox[{"2", "*", 
        RowBox[{"(", 
         RowBox[{"\[Lambda]", "-", "\[Lambda]2"}], ")"}]}], "]"}]}], 
     ")"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8582222571055527`*^9, 3.858222302929541*^9}},
 CellLabel->"In[52]:=",ExpressionUUID->"c8b0d206-c01f-480f-9416-f25e94b827b3"],

Cell[BoxData[
 RowBox[{
  RowBox[{"P12", "=", 
   RowBox[{"6", "*", 
    SuperscriptBox["r", "2"], "*", 
    SuperscriptBox["r1", "4"], "*", 
    RowBox[{"Cos", "[", 
     RowBox[{"2", "*", "\[Theta]2"}], "]"}], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"2", "*", "\[Lambda]2"}], "-", 
      RowBox[{"2", "*", "\[Lambda]1"}], "+", 
      RowBox[{"Sin", "[", 
       RowBox[{"2", "*", 
        RowBox[{"(", 
         RowBox[{"\[Lambda]", "-", "\[Lambda]1"}], ")"}]}], "]"}], "-", 
      RowBox[{"Sin", "[", 
       RowBox[{"2", "*", 
        RowBox[{"(", 
         RowBox[{"\[Lambda]", "-", "\[Lambda]2"}], ")"}]}], "]"}]}], 
     ")"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.858222309487358*^9, 3.858222312669491*^9}},
 CellLabel->"In[53]:=",ExpressionUUID->"98db47b4-8fad-4193-842e-4d7882237d89"],

Cell[BoxData[
 RowBox[{
  RowBox[{"P21", "=", 
   RowBox[{"6", "*", 
    SuperscriptBox["r", "2"], "*", 
    SuperscriptBox["r2", "4"], "*", 
    RowBox[{"Cos", "[", 
     RowBox[{"2", "*", "\[Theta]1"}], "]"}], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"2", "*", "\[Lambda]2"}], "-", 
      RowBox[{"2", "*", "\[Lambda]1"}], "+", 
      RowBox[{"Sin", "[", 
       RowBox[{"2", "*", 
        RowBox[{"(", 
         RowBox[{"\[Lambda]", "-", "\[Lambda]1"}], ")"}]}], "]"}], "-", 
      RowBox[{"Sin", "[", 
       RowBox[{"2", "*", 
        RowBox[{"(", 
         RowBox[{"\[Lambda]", "-", "\[Lambda]2"}], ")"}]}], "]"}]}], 
     ")"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.858222319095079*^9, 3.8582223247568483`*^9}},
 CellLabel->"In[54]:=",ExpressionUUID->"e8385c1d-5947-4d19-85db-69a48b8b5551"],

Cell[BoxData[
 RowBox[{
  RowBox[{"P11", "=", 
   RowBox[{"6", "*", 
    SuperscriptBox["r", "2"], "*", 
    SuperscriptBox["r1", "4"], "*", 
    RowBox[{"Cos", "[", 
     RowBox[{"2", "*", "\[Theta]1"}], "]"}], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"2", "*", "\[Lambda]2"}], "-", 
      RowBox[{"2", "*", "\[Lambda]1"}], "+", 
      RowBox[{"Sin", "[", 
       RowBox[{"2", "*", 
        RowBox[{"(", 
         RowBox[{"\[Lambda]", "-", "\[Lambda]1"}], ")"}]}], "]"}], "-", 
      RowBox[{"Sin", "[", 
       RowBox[{"2", "*", 
        RowBox[{"(", 
         RowBox[{"\[Lambda]", "-", "\[Lambda]2"}], ")"}]}], "]"}]}], 
     ")"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8582223323936357`*^9, 3.858222334266066*^9}},
 CellLabel->"In[55]:=",ExpressionUUID->"7bdcde70-038e-4000-a651-1f43082b6b62"],

Cell[BoxData[
 RowBox[{
  RowBox[{"U22", "=", 
   SqrtBox[
    RowBox[{"1", "-", 
     FractionBox[
      RowBox[{"2", "*", "r", "*", "r2", "*", 
       RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], 
      RowBox[{
       SuperscriptBox["r", "2"], "+", 
       SuperscriptBox["r2", "2"]}]]}]]}], ";"}]], "Input",
 CellChangeTimes->{{3.8582223443901443`*^9, 3.858222373371719*^9}},
 CellLabel->"In[56]:=",ExpressionUUID->"f48abe45-93ac-4787-8e61-ccba6e8e2505"],

Cell[BoxData[
 RowBox[{
  RowBox[{"U12", "=", 
   SqrtBox[
    RowBox[{"1", "-", 
     FractionBox[
      RowBox[{"2", "*", "r", "*", "r1", "*", 
       RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], 
      RowBox[{
       SuperscriptBox["r", "2"], "+", 
       SuperscriptBox["r1", "2"]}]]}]]}], ";"}]], "Input",
 CellChangeTimes->{{3.858222379270089*^9, 3.858222384030545*^9}},
 CellLabel->"In[57]:=",ExpressionUUID->"9d0c0af6-87f4-43cd-9e33-319bd4aa695c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"U21", "=", 
   SqrtBox[
    RowBox[{"1", "-", 
     FractionBox[
      RowBox[{"2", "*", "r", "*", "r2", "*", 
       RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], 
      RowBox[{
       SuperscriptBox["r", "2"], "+", 
       SuperscriptBox["r2", "2"]}]]}]]}], ";"}]], "Input",
 CellChangeTimes->{{3.85822238957159*^9, 3.8582223917213593`*^9}},
 CellLabel->"In[58]:=",ExpressionUUID->"567236f2-c419-481f-ac1b-0730f30cec63"],

Cell[BoxData[
 RowBox[{
  RowBox[{"U11", "=", 
   SqrtBox[
    RowBox[{"1", "-", 
     FractionBox[
      RowBox[{"2", "*", "r", "*", "r1", "*", 
       RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], 
      RowBox[{
       SuperscriptBox["r", "2"], "+", 
       SuperscriptBox["r1", "2"]}]]}]]}], ";"}]], "Input",
 CellChangeTimes->{{3.858222397333928*^9, 3.858222399484221*^9}},
 CellLabel->"In[59]:=",ExpressionUUID->"b8d27cba-04ba-454a-8c2f-10dbbde5bbf3"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Q22", "=", 
   RowBox[{
    RowBox[{"-", 
     RowBox[{"Cos", "[", 
      RowBox[{
       RowBox[{"2", "*", "\[Lambda]"}], "-", "\[Lambda]1", "-", 
       "\[Lambda]2"}], "]"}]}], "*", 
    RowBox[{"Sin", "[", 
     RowBox[{"\[Lambda]2", "-", "\[Lambda]1"}], "]"}], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"5", "*", 
       SuperscriptBox["r", "6"], "*", "U22"}], "+", 
      RowBox[{
       SuperscriptBox["r2", "6"], "*", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"5", "*", "U22"}], "-", "16"}], ")"}]}], "+", 
      RowBox[{
       SuperscriptBox["r", "2"], "*", 
       SuperscriptBox["r2", "4"], "*", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"15", "*", "U22"}], "-", "52"}], ")"}]}], "+", 
      RowBox[{
       SuperscriptBox["r", "4"], "*", 
       SuperscriptBox["r2", "2"], "*", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"15", "*", "U22"}], "-", "16"}], ")"}]}]}], ")"}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.858222415156345*^9, 3.858222496547402*^9}},
 CellLabel->"In[60]:=",ExpressionUUID->"3d7df6c1-9afe-408a-86ec-d986db21bf72"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Q12", "=", 
   RowBox[{
    RowBox[{"-", 
     RowBox[{"Cos", "[", 
      RowBox[{
       RowBox[{"2", "*", "\[Lambda]"}], "-", "\[Lambda]1", "-", 
       "\[Lambda]2"}], "]"}]}], "*", 
    RowBox[{"Sin", "[", 
     RowBox[{"\[Lambda]2", "-", "\[Lambda]1"}], "]"}], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"5", "*", 
       SuperscriptBox["r", "6"], "*", "U12"}], "+", 
      RowBox[{
       SuperscriptBox["r1", "6"], "*", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"5", "*", "U12"}], "-", "16"}], ")"}]}], "+", 
      RowBox[{
       SuperscriptBox["r", "2"], "*", 
       SuperscriptBox["r1", "4"], "*", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"15", "*", "U12"}], "-", "52"}], ")"}]}], "+", 
      RowBox[{
       SuperscriptBox["r", "4"], "*", 
       SuperscriptBox["r1", "2"], "*", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"15", "*", "U12"}], "-", "16"}], ")"}]}]}], ")"}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.858222533424906*^9, 3.85822255043433*^9}},
 CellLabel->"In[61]:=",ExpressionUUID->"446a8aaf-a7df-4811-97f0-aebdad3a6461"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Q21", "=", 
   RowBox[{
    RowBox[{"-", 
     RowBox[{"Cos", "[", 
      RowBox[{
       RowBox[{"2", "*", "\[Lambda]"}], "-", "\[Lambda]1", "-", 
       "\[Lambda]2"}], "]"}]}], "*", 
    RowBox[{"Sin", "[", 
     RowBox[{"\[Lambda]2", "-", "\[Lambda]1"}], "]"}], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"5", "*", 
       SuperscriptBox["r", "6"], "*", "U21"}], "+", 
      RowBox[{
       SuperscriptBox["r2", "6"], "*", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"5", "*", "U21"}], "-", "16"}], ")"}]}], "+", 
      RowBox[{
       SuperscriptBox["r", "2"], "*", 
       SuperscriptBox["r2", "4"], "*", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"15", "*", "U21"}], "-", "52"}], ")"}]}], "+", 
      RowBox[{
       SuperscriptBox["r", "4"], "*", 
       SuperscriptBox["r2", "2"], "*", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"15", "*", "U21"}], "-", "16"}], ")"}]}]}], ")"}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.858222555383533*^9, 3.8582225643762608`*^9}},
 CellLabel->"In[62]:=",ExpressionUUID->"26f1a4a0-4b7c-4d6b-a253-d3610e1cfba6"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Q11", "=", 
   RowBox[{
    RowBox[{"-", 
     RowBox[{"Cos", "[", 
      RowBox[{
       RowBox[{"2", "*", "\[Lambda]"}], "-", "\[Lambda]1", "-", 
       "\[Lambda]2"}], "]"}]}], "*", 
    RowBox[{"Sin", "[", 
     RowBox[{"\[Lambda]2", "-", "\[Lambda]1"}], "]"}], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"5", "*", 
       SuperscriptBox["r", "6"], "*", "U11"}], "+", 
      RowBox[{
       SuperscriptBox["r1", "6"], "*", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"5", "*", "U11"}], "-", "16"}], ")"}]}], "+", 
      RowBox[{
       SuperscriptBox["r", "2"], "*", 
       SuperscriptBox["r1", "4"], "*", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"15", "*", "U11"}], "-", "52"}], ")"}]}], "+", 
      RowBox[{
       SuperscriptBox["r", "4"], "*", 
       SuperscriptBox["r1", "2"], "*", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"15", "*", "U11"}], "-", "16"}], ")"}]}]}], ")"}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.8582225778587914`*^9, 3.858222586114394*^9}},
 CellLabel->"In[63]:=",ExpressionUUID->"39a38877-b19b-41d3-8fab-5914af1ffccf"],

Cell[BoxData[
 RowBox[{
  RowBox[{"R22", "=", 
   RowBox[{"2", "*", "r", "*", "r2", "*", 
    RowBox[{"Cos", "[", "\[Theta]2", "]"}], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"\[Lambda]2", "-", "\[Lambda]1"}], ")"}], "*", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"5", "*", 
          SuperscriptBox["r", "4"], "*", "U22"}], "+", 
         RowBox[{
          SuperscriptBox["r2", "4"], "*", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"5", "*", "U22"}], "-", "24"}], ")"}]}], "+", 
         RowBox[{"2", "*", 
          SuperscriptBox["r", "2"], "*", 
          SuperscriptBox["r2", "2"], "*", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"5", "*", "U22"}], "-", "4"}], ")"}]}]}], ")"}]}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["r", "2"], "+", 
         SuperscriptBox["r2", "2"]}], ")"}], "*", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"5", "*", 
          SuperscriptBox["r", "2"], "*", "U22"}], "+", 
         RowBox[{
          SuperscriptBox["r2", "2"], "*", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"5", "*", "U22"}], "-", "24"}], ")"}]}]}], ")"}], "*", 
       RowBox[{"Cos", "[", 
        RowBox[{
         RowBox[{"2", "*", "\[Lambda]"}], "-", "\[Lambda]1", "-", 
         "\[Lambda]2"}], "]"}], "*", 
       RowBox[{"Sin", "[", 
        RowBox[{"\[Lambda]2", "-", "\[Lambda]1"}], "]"}]}]}], ")"}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.858222611691648*^9, 3.85822273018711*^9}, {
   3.8582923944872637`*^9, 3.85829239504556*^9}, {3.85829246292236*^9, 
   3.858292468994944*^9}, {3.85829253218287*^9, 3.858292532536749*^9}, 
   3.85829278998916*^9},
 CellLabel->"In[64]:=",ExpressionUUID->"5a912e3d-6452-4c49-8944-e67e53e31888"],

Cell[BoxData[
 RowBox[{
  RowBox[{"R12", "=", 
   RowBox[{"2", "*", "r", "*", "r1", "*", 
    RowBox[{"Cos", "[", "\[Theta]2", "]"}], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"\[Lambda]2", "-", "\[Lambda]1"}], ")"}], "*", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"5", "*", 
          SuperscriptBox["r", "4"], "*", "U12"}], "+", 
         RowBox[{
          SuperscriptBox["r1", "4"], "*", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"5", "*", "U12"}], "-", "24"}], ")"}]}], "+", 
         RowBox[{"2", "*", 
          SuperscriptBox["r", "2"], "*", 
          SuperscriptBox["r1", "2"], "*", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"5", "*", "U12"}], "-", "4"}], ")"}]}]}], ")"}]}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["r", "2"], "+", 
         SuperscriptBox["r1", "2"]}], ")"}], "*", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"5", "*", 
          SuperscriptBox["r", "2"], "*", "U12"}], "+", 
         RowBox[{
          SuperscriptBox["r1", "2"], "*", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"5", "*", "U12"}], "-", "24"}], ")"}]}]}], ")"}], "*", 
       RowBox[{"Cos", "[", 
        RowBox[{
         RowBox[{"2", "*", "\[Lambda]"}], "-", "\[Lambda]1", "-", 
         "\[Lambda]2"}], "]"}], "*", 
       RowBox[{"Sin", "[", 
        RowBox[{"\[Lambda]2", "-", "\[Lambda]1"}], "]"}]}]}], ")"}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.858222761265423*^9, 3.858222790977714*^9}, {
   3.858292398447235*^9, 3.858292398707625*^9}, {3.8582924732973013`*^9, 
   3.858292483668582*^9}, {3.858292535312101*^9, 3.858292535554936*^9}, 
   3.858292791193802*^9},
 CellLabel->"In[65]:=",ExpressionUUID->"8ee7e02c-ac5d-40b6-8272-f7af33524411"],

Cell[BoxData[
 RowBox[{
  RowBox[{"R21", "=", 
   RowBox[{"2", "*", "r", "*", "r2", "*", 
    RowBox[{"Cos", "[", "\[Theta]1", "]"}], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"\[Lambda]2", "-", "\[Lambda]1"}], ")"}], "*", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"5", "*", 
          SuperscriptBox["r", "4"], "*", "U21"}], "+", 
         RowBox[{
          SuperscriptBox["r2", "4"], "*", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"5", "*", "U21"}], "-", "24"}], ")"}]}], "+", 
         RowBox[{"2", "*", 
          SuperscriptBox["r", "2"], "*", 
          SuperscriptBox["r2", "2"], "*", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"5", "*", "U21"}], "-", "4"}], ")"}]}]}], ")"}]}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["r", "2"], "+", 
         SuperscriptBox["r2", "2"]}], ")"}], "*", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"5", "*", 
          SuperscriptBox["r", "2"], "*", "U21"}], "+", 
         RowBox[{
          SuperscriptBox["r2", "2"], "*", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"5", "*", "U21"}], "-", "24"}], ")"}]}]}], ")"}], "*", 
       RowBox[{"Cos", "[", 
        RowBox[{
         RowBox[{"2", "*", "\[Lambda]"}], "-", "\[Lambda]1", "-", 
         "\[Lambda]2"}], "]"}], "*", 
       RowBox[{"Sin", "[", 
        RowBox[{"\[Lambda]2", "-", "\[Lambda]1"}], "]"}]}]}], ")"}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.858222797503551*^9, 3.858222826470471*^9}, {
   3.8582924374475937`*^9, 3.858292437777855*^9}, {3.858292477881051*^9, 
   3.858292486417725*^9}, {3.8582925379114103`*^9, 3.858292538199222*^9}, 
   3.858292792607587*^9},
 CellLabel->"In[66]:=",ExpressionUUID->"447b8fc0-ea17-4862-abb0-6400073cc0f0"],

Cell[BoxData[
 RowBox[{
  RowBox[{"R11", "=", 
   RowBox[{"2", "*", "r", "*", "r1", "*", 
    RowBox[{"Cos", "[", "\[Theta]1", "]"}], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"\[Lambda]2", "-", "\[Lambda]1"}], ")"}], "*", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"5", "*", 
          SuperscriptBox["r", "4"], "*", "U11"}], "+", 
         RowBox[{
          SuperscriptBox["r1", "4"], "*", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"5", "*", "U11"}], "-", "24"}], ")"}]}], "+", 
         RowBox[{"2", "*", 
          SuperscriptBox["r", "2"], "*", 
          SuperscriptBox["r1", "2"], "*", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"5", "*", "U11"}], "-", "4"}], ")"}]}]}], ")"}]}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["r", "2"], "+", 
         SuperscriptBox["r1", "2"]}], ")"}], "*", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"5", "*", 
          SuperscriptBox["r", "2"], "*", "U11"}], "+", 
         RowBox[{
          SuperscriptBox["r1", "2"], "*", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"5", "*", "U11"}], "-", "24"}], ")"}]}]}], ")"}], "*", 
       RowBox[{"Cos", "[", 
        RowBox[{
         RowBox[{"2", "*", "\[Lambda]"}], "-", "\[Lambda]1", "-", 
         "\[Lambda]2"}], "]"}], "*", 
       RowBox[{"Sin", "[", 
        RowBox[{"\[Lambda]2", "-", "\[Lambda]1"}], "]"}]}]}], ")"}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.8582228537083893`*^9, 3.858222871243773*^9}, 
   3.858223276775384*^9, {3.8582924415923147`*^9, 3.858292441921503*^9}, {
   3.858292478959764*^9, 3.858292489350972*^9}, {3.858292540374207*^9, 
   3.858292541192176*^9}, 3.858292793790514*^9},
 CellLabel->"In[67]:=",ExpressionUUID->"889b77d3-4601-41b4-adc1-999963c21c0a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"S22", "=", 
   RowBox[{
    RowBox[{"-", "5"}], "*", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["r", "2"], "+", 
       SuperscriptBox["r2", "2"]}], ")"}], "3"], "*", 
    RowBox[{"(", 
     RowBox[{"\[Lambda]2", "-", "\[Lambda]1"}], ")"}], "*", "U22"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.858222877331478*^9, 3.858222907909099*^9}},
 CellLabel->"In[68]:=",ExpressionUUID->"26fe60da-9be3-4b2f-9392-e4eae254bf40"],

Cell[BoxData[
 RowBox[{
  RowBox[{"S12", "=", 
   RowBox[{
    RowBox[{"-", "5"}], "*", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["r", "2"], "+", 
       SuperscriptBox["r1", "2"]}], ")"}], "3"], "*", 
    RowBox[{"(", 
     RowBox[{"\[Lambda]2", "-", "\[Lambda]1"}], ")"}], "*", "U12"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.858222915213172*^9, 3.858222921538315*^9}},
 CellLabel->"In[69]:=",ExpressionUUID->"b1f87b93-2bff-4546-b805-71e8615150ed"],

Cell[BoxData[
 RowBox[{
  RowBox[{"S21", "=", 
   RowBox[{
    RowBox[{"-", "5"}], "*", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["r", "2"], "+", 
       SuperscriptBox["r2", "2"]}], ")"}], "3"], "*", 
    RowBox[{"(", 
     RowBox[{"\[Lambda]2", "-", "\[Lambda]1"}], ")"}], "*", "U21"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.858222927361288*^9, 3.8582229299708233`*^9}},
 CellLabel->"In[70]:=",ExpressionUUID->"651b133e-0969-4e5d-a086-5039b5a00900"],

Cell[BoxData[
 RowBox[{
  RowBox[{"S11", "=", 
   RowBox[{
    RowBox[{"-", "5"}], "*", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["r", "2"], "+", 
       SuperscriptBox["r1", "2"]}], ")"}], "3"], "*", 
    RowBox[{"(", 
     RowBox[{"\[Lambda]2", "-", "\[Lambda]1"}], ")"}], "*", "U11"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.858222937512599*^9, 3.8582229410274267`*^9}},
 CellLabel->"In[71]:=",ExpressionUUID->"2dc4be72-0beb-46a8-baef-ba30799b16f0"],

Cell[BoxData[
 RowBox[{
  RowBox[{"T2", "=", 
   RowBox[{"4", "*", 
    SuperscriptBox["r2", "4"], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"9", "*", 
       SuperscriptBox["r", "2"]}], "+", 
      RowBox[{"4", "*", 
       SuperscriptBox["r2", "2"]}]}], ")"}], "*", 
    RowBox[{"(", 
     RowBox[{"\[Lambda]2", "-", "\[Lambda]1"}], ")"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.858222952051428*^9, 3.8582229838153477`*^9}},
 CellLabel->"In[72]:=",ExpressionUUID->"54b26f28-2d21-453a-aee6-b4798b359892"],

Cell[BoxData[
 RowBox[{
  RowBox[{"T1", "=", 
   RowBox[{"4", "*", 
    SuperscriptBox["r1", "4"], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"9", "*", 
       SuperscriptBox["r", "2"]}], "+", 
      RowBox[{"4", "*", 
       SuperscriptBox["r1", "2"]}]}], ")"}], "*", 
    RowBox[{"(", 
     RowBox[{"\[Lambda]2", "-", "\[Lambda]1"}], ")"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.858222988933626*^9, 3.85822299414992*^9}},
 CellLabel->"In[73]:=",ExpressionUUID->"20c1f73b-21c8-40e6-a78c-c718364b648b"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Table 15", "Subsubsection",
 CellChangeTimes->{{3.8582185569650917`*^9, 3.8582185845254993`*^9}, {
   3.858218705867526*^9, 3.858218707220645*^9}, {3.858219431888413*^9, 
   3.8582194376353273`*^9}, {3.85822219142034*^9, 3.8582221926956997`*^9}, {
   3.858222252973481*^9, 3.858222254326377*^9}, {3.858223094777128*^9, 
   3.858223096259832*^9}, 3.8583975739742823`*^9, 3.8679629423717403`*^9, {
   3.886060581001945*^9, 
   3.886060581967238*^9}},ExpressionUUID->"689b3c48-105a-4e96-bc7a-\
625568f31ecb"],

Cell[BoxData[
 RowBox[{
  RowBox[{"V22", "=", 
   RowBox[{"6", "*", 
    SuperscriptBox["r", "2"], "*", 
    SuperscriptBox["r2", "4"], "*", 
    RowBox[{"Cos", "[", 
     RowBox[{"2", "*", "\[Theta]2"}], "]"}], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"2", "*", "\[Lambda]2"}], "-", 
      RowBox[{"2", "*", "\[Lambda]1"}], "-", 
      RowBox[{"Sin", "[", 
       RowBox[{"2", "*", 
        RowBox[{"(", 
         RowBox[{"\[Lambda]", "-", "\[Lambda]1"}], ")"}]}], "]"}], "+", 
      RowBox[{"Sin", "[", 
       RowBox[{"2", "*", 
        RowBox[{"(", 
         RowBox[{"\[Lambda]", "-", "\[Lambda]2"}], ")"}]}], "]"}]}], 
     ")"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8582231199040422`*^9, 3.8582231798659773`*^9}, {
  3.8582232126274567`*^9, 3.858223212934304*^9}},
 CellLabel->"In[74]:=",ExpressionUUID->"168080ba-e74b-4053-9d47-ed600f1248ff"],

Cell[BoxData[
 RowBox[{
  RowBox[{"V12", "=", 
   RowBox[{"6", "*", 
    SuperscriptBox["r", "2"], "*", 
    SuperscriptBox["r1", "4"], "*", 
    RowBox[{"Cos", "[", 
     RowBox[{"2", "*", "\[Theta]2"}], "]"}], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"2", "*", "\[Lambda]2"}], "-", 
      RowBox[{"2", "*", "\[Lambda]1"}], "-", 
      RowBox[{"Sin", "[", 
       RowBox[{"2", "*", 
        RowBox[{"(", 
         RowBox[{"\[Lambda]", "-", "\[Lambda]1"}], ")"}]}], "]"}], "+", 
      RowBox[{"Sin", "[", 
       RowBox[{"2", "*", 
        RowBox[{"(", 
         RowBox[{"\[Lambda]", "-", "\[Lambda]2"}], ")"}]}], "]"}]}], 
     ")"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.858222309487358*^9, 3.858222312669491*^9}, {
  3.858223202859881*^9, 3.858223225753797*^9}},
 CellLabel->"In[75]:=",ExpressionUUID->"9d67c63f-5901-4a6a-aca3-f67e2868f559"],

Cell[BoxData[
 RowBox[{
  RowBox[{"V21", "=", 
   RowBox[{"6", "*", 
    SuperscriptBox["r", "2"], "*", 
    SuperscriptBox["r2", "4"], "*", 
    RowBox[{"Cos", "[", 
     RowBox[{"2", "*", "\[Theta]1"}], "]"}], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"2", "*", "\[Lambda]2"}], "-", 
      RowBox[{"2", "*", "\[Lambda]1"}], "-", 
      RowBox[{"Sin", "[", 
       RowBox[{"2", "*", 
        RowBox[{"(", 
         RowBox[{"\[Lambda]", "-", "\[Lambda]1"}], ")"}]}], "]"}], "+", 
      RowBox[{"Sin", "[", 
       RowBox[{"2", "*", 
        RowBox[{"(", 
         RowBox[{"\[Lambda]", "-", "\[Lambda]2"}], ")"}]}], "]"}]}], 
     ")"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.858222319095079*^9, 3.8582223247568483`*^9}, {
  3.858223229807138*^9, 3.8582232444732122`*^9}},
 CellLabel->"In[76]:=",ExpressionUUID->"83e07042-f8dc-4ddf-b527-55a489f449a5"],

Cell[BoxData[
 RowBox[{
  RowBox[{"V11", "=", 
   RowBox[{"6", "*", 
    SuperscriptBox["r", "2"], "*", 
    SuperscriptBox["r1", "4"], "*", 
    RowBox[{"Cos", "[", 
     RowBox[{"2", "*", "\[Theta]1"}], "]"}], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"2", "*", "\[Lambda]2"}], "-", 
      RowBox[{"2", "*", "\[Lambda]1"}], "-", 
      RowBox[{"Sin", "[", 
       RowBox[{"2", "*", 
        RowBox[{"(", 
         RowBox[{"\[Lambda]", "-", "\[Lambda]1"}], ")"}]}], "]"}], "+", 
      RowBox[{"Sin", "[", 
       RowBox[{"2", "*", 
        RowBox[{"(", 
         RowBox[{"\[Lambda]", "-", "\[Lambda]2"}], ")"}]}], "]"}]}], 
     ")"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8582223323936357`*^9, 3.858222334266066*^9}, {
  3.858223231543585*^9, 3.858223245803598*^9}},
 CellLabel->"In[77]:=",ExpressionUUID->"d2112995-383e-4455-b23c-350889ff8a88"],

Cell[BoxData[
 RowBox[{
  RowBox[{"W22", "=", 
   RowBox[{"2", "*", "r", "*", "r2", "*", 
    RowBox[{"Cos", "[", "\[Theta]2", "]"}], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"\[Lambda]2", "-", "\[Lambda]1"}], ")"}], "*", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"5", "*", 
          SuperscriptBox["r", "4"], "*", "U22"}], "+", 
         RowBox[{
          SuperscriptBox["r2", "4"], "*", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"5", "*", "U22"}], "-", "24"}], ")"}]}], "+", 
         RowBox[{"2", "*", 
          SuperscriptBox["r", "2"], "*", 
          SuperscriptBox["r2", "2"], "*", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"5", "*", "U22"}], "-", "4"}], ")"}]}]}], ")"}]}], "-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["r", "2"], "+", 
         SuperscriptBox["r2", "2"]}], ")"}], "*", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"5", "*", 
          SuperscriptBox["r", "2"], "*", "U22"}], "+", 
         RowBox[{
          SuperscriptBox["r2", "2"], "*", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"5", "*", "U22"}], "-", "24"}], ")"}]}]}], ")"}], "*", 
       RowBox[{"Cos", "[", 
        RowBox[{
         RowBox[{"2", "*", "\[Lambda]"}], "-", "\[Lambda]1", "-", 
         "\[Lambda]2"}], "]"}], "*", 
       RowBox[{"Sin", "[", 
        RowBox[{"\[Lambda]2", "-", "\[Lambda]1"}], "]"}]}]}], ")"}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.858222611691648*^9, 3.85822273018711*^9}, {
  3.858223266410043*^9, 3.858223291970491*^9}, {3.858296968479295*^9, 
  3.8582970064550734`*^9}, {3.858297856974147*^9, 3.858297857303548*^9}},
 CellLabel->"In[78]:=",ExpressionUUID->"15037355-c3c6-4b33-88ec-a521b0732793"],

Cell[BoxData[
 RowBox[{
  RowBox[{"W12", "=", 
   RowBox[{"2", "*", "r", "*", "r1", "*", 
    RowBox[{"Cos", "[", "\[Theta]2", "]"}], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"\[Lambda]2", "-", "\[Lambda]1"}], ")"}], "*", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"5", "*", 
          SuperscriptBox["r", "4"], "*", "U12"}], "+", 
         RowBox[{
          SuperscriptBox["r1", "4"], "*", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"5", "*", "U12"}], "-", "24"}], ")"}]}], "+", 
         RowBox[{"2", "*", 
          SuperscriptBox["r", "2"], "*", 
          SuperscriptBox["r1", "2"], "*", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"5", "*", "U12"}], "-", "4"}], ")"}]}]}], ")"}]}], "-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["r", "2"], "+", 
         SuperscriptBox["r1", "2"]}], ")"}], "*", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"5", "*", 
          SuperscriptBox["r", "2"], "*", "U12"}], "+", 
         RowBox[{
          SuperscriptBox["r1", "2"], "*", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"5", "*", "U12"}], "-", "24"}], ")"}]}]}], ")"}], "*", 
       RowBox[{"Cos", "[", 
        RowBox[{
         RowBox[{"2", "*", "\[Lambda]"}], "-", "\[Lambda]1", "-", 
         "\[Lambda]2"}], "]"}], "*", 
       RowBox[{"Sin", "[", 
        RowBox[{"\[Lambda]2", "-", "\[Lambda]1"}], "]"}]}]}], ")"}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.858222761265423*^9, 3.858222790977714*^9}, {
   3.858223268016469*^9, 3.858223296833658*^9}, {3.858296969847808*^9, 
   3.858297009716227*^9}, 3.858297862286978*^9},
 CellLabel->"In[79]:=",ExpressionUUID->"f7c0717f-d31e-4408-bfce-8127127367a5"],

Cell[BoxData[
 RowBox[{
  RowBox[{"W21", "=", 
   RowBox[{"2", "*", "r", "*", "r2", "*", 
    RowBox[{"Cos", "[", "\[Theta]1", "]"}], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"\[Lambda]2", "-", "\[Lambda]1"}], ")"}], "*", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"5", "*", 
          SuperscriptBox["r", "4"], "*", "U21"}], "+", 
         RowBox[{
          SuperscriptBox["r2", "4"], "*", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"5", "*", "U21"}], "-", "24"}], ")"}]}], "+", 
         RowBox[{"2", "*", 
          SuperscriptBox["r", "2"], "*", 
          SuperscriptBox["r2", "2"], "*", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"5", "*", "U21"}], "-", "4"}], ")"}]}]}], ")"}]}], "-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["r", "2"], "+", 
         SuperscriptBox["r2", "2"]}], ")"}], "*", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"5", "*", 
          SuperscriptBox["r", "2"], "*", "U21"}], "+", 
         RowBox[{
          SuperscriptBox["r2", "2"], "*", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"5", "*", "U21"}], "-", "24"}], ")"}]}]}], ")"}], "*", 
       RowBox[{"Cos", "[", 
        RowBox[{
         RowBox[{"2", "*", "\[Lambda]"}], "-", "\[Lambda]1", "-", 
         "\[Lambda]2"}], "]"}], "*", 
       RowBox[{"Sin", "[", 
        RowBox[{"\[Lambda]2", "-", "\[Lambda]1"}], "]"}]}]}], ")"}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.858222797503551*^9, 3.858222826470471*^9}, 
   3.85822326948377*^9, {3.85822329974336*^9, 3.858223300053754*^9}, {
   3.8582969706621647`*^9, 3.858297012548663*^9}, 3.858297864008664*^9},
 CellLabel->"In[80]:=",ExpressionUUID->"1e2f55db-a572-4c27-bf78-789f6fa525c3"],

Cell[BoxData[
 RowBox[{
  RowBox[{"W11", "=", 
   RowBox[{"2", "*", "r", "*", "r1", "*", 
    RowBox[{"Cos", "[", "\[Theta]1", "]"}], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"\[Lambda]2", "-", "\[Lambda]1"}], ")"}], "*", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"5", "*", 
          SuperscriptBox["r", "4"], "*", "U11"}], "+", 
         RowBox[{
          SuperscriptBox["r1", "4"], "*", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"5", "*", "U11"}], "-", "24"}], ")"}]}], "+", 
         RowBox[{"2", "*", 
          SuperscriptBox["r", "2"], "*", 
          SuperscriptBox["r1", "2"], "*", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"5", "*", "U11"}], "-", "4"}], ")"}]}]}], ")"}]}], "-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["r", "2"], "+", 
         SuperscriptBox["r1", "2"]}], ")"}], "*", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"5", "*", 
          SuperscriptBox["r", "2"], "*", "U11"}], "+", 
         RowBox[{
          SuperscriptBox["r1", "2"], "*", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"5", "*", "U11"}], "-", "24"}], ")"}]}]}], ")"}], "*", 
       RowBox[{"Cos", "[", 
        RowBox[{
         RowBox[{"2", "*", "\[Lambda]"}], "-", "\[Lambda]1", "-", 
         "\[Lambda]2"}], "]"}], "*", 
       RowBox[{"Sin", "[", 
        RowBox[{"\[Lambda]2", "-", "\[Lambda]1"}], "]"}]}]}], ")"}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.8582228537083893`*^9, 3.858222871243773*^9}, {
   3.858223271482361*^9, 3.858223272988538*^9}, {3.858223303010481*^9, 
   3.8582233033904343`*^9}, {3.858296971869589*^9, 3.858297014779828*^9}, 
   3.858297866166581*^9},
 CellLabel->"In[81]:=",ExpressionUUID->"1fcdb463-6dae-45a1-9058-35622888f536"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Table 16", "Subsubsection",
 CellChangeTimes->{{3.8582185569650917`*^9, 3.8582185845254993`*^9}, {
   3.858218705867526*^9, 3.858218707220645*^9}, {3.858219431888413*^9, 
   3.8582194376353273`*^9}, {3.85822219142034*^9, 3.8582221926956997`*^9}, {
   3.858222252973481*^9, 3.858222254326377*^9}, {3.858223094777128*^9, 
   3.858223096259832*^9}, {3.858223339670148*^9, 3.858223341496611*^9}, 
   3.858397577510111*^9, 3.867962951072403*^9, {3.886060617403287*^9, 
   3.8860606180253*^9}},ExpressionUUID->"c3cccfc2-5a3c-4e5a-86eb-\
28ef01b1f185"],

Cell[BoxData[
 RowBox[{
  RowBox[{"X22", "=", 
   RowBox[{"4", "*", 
    SuperscriptBox["r2", "4"], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"9", "*", 
       SuperscriptBox["r", "2"]}], "+", 
      RowBox[{"4", "*", 
       SuperscriptBox["r2", "2"]}], "+", 
      RowBox[{"3", "*", 
       SuperscriptBox["r", "2"], "*", 
       RowBox[{"Cos", "[", 
        RowBox[{"2", "*", "\[Theta]2"}], "]"}]}]}], ")"}]}]}], ";"}]], "Input",\

 CellChangeTimes->{{3.858223352669403*^9, 3.8582233874800043`*^9}},
 CellLabel->"In[82]:=",ExpressionUUID->"99e33710-cdb9-4a80-86f7-77ddc1125373"],

Cell[BoxData[
 RowBox[{
  RowBox[{"X12", "=", 
   RowBox[{"4", "*", 
    SuperscriptBox["r1", "4"], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"9", "*", 
       SuperscriptBox["r", "2"]}], "+", 
      RowBox[{"4", "*", 
       SuperscriptBox["r1", "2"]}], "+", 
      RowBox[{"3", "*", 
       SuperscriptBox["r", "2"], "*", 
       RowBox[{"Cos", "[", 
        RowBox[{"2", "*", "\[Theta]2"}], "]"}]}]}], ")"}]}]}], ";"}]], "Input",\

 CellChangeTimes->{{3.858223394160226*^9, 3.858223398247674*^9}},
 CellLabel->"In[83]:=",ExpressionUUID->"0fbe6923-7586-4979-821a-572c8c9da587"],

Cell[BoxData[
 RowBox[{
  RowBox[{"X21", "=", 
   RowBox[{"4", "*", 
    SuperscriptBox["r2", "4"], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"9", "*", 
       SuperscriptBox["r", "2"]}], "+", 
      RowBox[{"4", "*", 
       SuperscriptBox["r2", "2"]}], "+", 
      RowBox[{"3", "*", 
       SuperscriptBox["r", "2"], "*", 
       RowBox[{"Cos", "[", 
        RowBox[{"2", "*", "\[Theta]1"}], "]"}]}]}], ")"}]}]}], ";"}]], "Input",\

 CellChangeTimes->{{3.8582234043460627`*^9, 3.858223411602461*^9}},
 CellLabel->"In[84]:=",ExpressionUUID->"6a995b93-dbbf-40cc-987a-6710ace158f7"],

Cell[BoxData[
 RowBox[{
  RowBox[{"X11", "=", 
   RowBox[{"4", "*", 
    SuperscriptBox["r1", "4"], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"9", "*", 
       SuperscriptBox["r", "2"]}], "+", 
      RowBox[{"4", "*", 
       SuperscriptBox["r1", "2"]}], "+", 
      RowBox[{"3", "*", 
       SuperscriptBox["r", "2"], "*", 
       RowBox[{"Cos", "[", 
        RowBox[{"2", "*", "\[Theta]1"}], "]"}]}]}], ")"}]}]}], ";"}]], "Input",\

 CellChangeTimes->{{3.858223419790959*^9, 3.858223421526505*^9}},
 CellLabel->"In[85]:=",ExpressionUUID->"f329d1b0-1609-444e-ba4f-e41d4d732b13"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Y22", "=", 
   RowBox[{"2", "*", "r", "*", "r2", "*", 
    RowBox[{"Cos", "[", "\[Theta]2", "]"}], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"5", "*", 
       SuperscriptBox["r", "4"], "*", "U22"}], "+", 
      RowBox[{
       SuperscriptBox["r2", "4"], "*", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"5", "*", "U22"}], "-", "24"}], ")"}]}], "+", 
      RowBox[{"2", "*", 
       SuperscriptBox["r", "2"], "*", 
       SuperscriptBox["r2", "2"], "*", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"5", "*", "U22"}], "-", "4"}], ")"}]}]}], ")"}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.858223429489832*^9, 3.858223485163187*^9}},
 CellLabel->"In[86]:=",ExpressionUUID->"2c062094-a93e-4ba7-9f76-55e0cee58469"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Y12", "=", 
   RowBox[{"2", "*", "r", "*", "r1", "*", 
    RowBox[{"Cos", "[", "\[Theta]2", "]"}], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"5", "*", 
       SuperscriptBox["r", "4"], "*", "U12"}], "+", 
      RowBox[{
       SuperscriptBox["r1", "4"], "*", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"5", "*", "U12"}], "-", "24"}], ")"}]}], "+", 
      RowBox[{"2", "*", 
       SuperscriptBox["r", "2"], "*", 
       SuperscriptBox["r1", "2"], "*", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"5", "*", "U12"}], "-", "4"}], ")"}]}]}], ")"}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.858223498146585*^9, 3.858223511597875*^9}},
 CellLabel->"In[87]:=",ExpressionUUID->"34131a59-e3e1-4b6c-9fe4-c778afce99db"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Y21", "=", 
   RowBox[{"2", "*", "r", "*", "r2", "*", 
    RowBox[{"Cos", "[", "\[Theta]1", "]"}], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"5", "*", 
       SuperscriptBox["r", "4"], "*", "U21"}], "+", 
      RowBox[{
       SuperscriptBox["r2", "4"], "*", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"5", "*", "U21"}], "-", "24"}], ")"}]}], "+", 
      RowBox[{"2", "*", 
       SuperscriptBox["r", "2"], "*", 
       SuperscriptBox["r2", "2"], "*", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"5", "*", "U21"}], "-", "4"}], ")"}]}]}], ")"}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.8582235190525618`*^9, 3.858223528339652*^9}},
 CellLabel->"In[88]:=",ExpressionUUID->"80486ebc-87b8-4cf4-9c36-0206c897f289"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Y11", "=", 
   RowBox[{"2", "*", "r", "*", "r1", "*", 
    RowBox[{"Cos", "[", "\[Theta]1", "]"}], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"5", "*", 
       SuperscriptBox["r", "4"], "*", "U11"}], "+", 
      RowBox[{
       SuperscriptBox["r1", "4"], "*", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"5", "*", "U11"}], "-", "24"}], ")"}]}], "+", 
      RowBox[{"2", "*", 
       SuperscriptBox["r", "2"], "*", 
       SuperscriptBox["r1", "2"], "*", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"5", "*", "U11"}], "-", "4"}], ")"}]}]}], ")"}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.858223538965716*^9, 3.85822354661814*^9}},
 CellLabel->"In[89]:=",ExpressionUUID->"413ed500-e7f3-47a3-951b-d384a4560c2a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Z22", "=", 
   RowBox[{
    RowBox[{"-", "5"}], "*", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["r", "2"], "+", 
       SuperscriptBox["r2", "2"]}], ")"}], "3"], "*", "U22"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.858223694613131*^9, 3.858223709944809*^9}},
 CellLabel->"In[90]:=",ExpressionUUID->"de15c59a-69f3-4983-a0ee-af9cdd0733d1"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Z12", "=", 
   RowBox[{
    RowBox[{"-", "5"}], "*", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["r", "2"], "+", 
       SuperscriptBox["r1", "2"]}], ")"}], "3"], "*", "U12"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.858223715431595*^9, 3.858223720098518*^9}},
 CellLabel->"In[91]:=",ExpressionUUID->"74b8d12f-b2c7-40a0-ac4f-419ec149cfe6"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Z21", "=", 
   RowBox[{
    RowBox[{"-", "5"}], "*", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["r", "2"], "+", 
       SuperscriptBox["r2", "2"]}], ")"}], "3"], "*", "U21"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.8582237242172403`*^9, 3.85822372657547*^9}},
 CellLabel->"In[92]:=",ExpressionUUID->"bff7be55-462e-4ac5-931c-58fe153ab910"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Z11", "=", 
   RowBox[{
    RowBox[{"-", "5"}], "*", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["r", "2"], "+", 
       SuperscriptBox["r1", "2"]}], ")"}], "3"], "*", "U11"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.858223731448868*^9, 3.8582237329800243`*^9}},
 CellLabel->"In[93]:=",ExpressionUUID->"ec02c8dc-e896-4c84-ae6a-5a828c1c1e57"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
2. Expressions for the Vzz, Vxx, Vyy, Vzzz, Vxxz, Vyyz of a tesseroid and \
ZonalBandVzz, ZonalBandVxx, ZonalBandVyy, ZonalBandVzzz, ZonalBandVxxz, \
ZonalBandVyyz of a spherical zonal band\
\>", "Subsection",
 CellChangeTimes->{{3.8582824560215797`*^9, 3.858282488538979*^9}, {
  3.858397613321959*^9, 3.8583976957870398`*^9}, {3.858397807035408*^9, 
  3.85839782629154*^9}, {3.8587972284341803`*^9, 3.858797248491262*^9}, {
  3.858807151021278*^9, 3.8588071619500504`*^9}, {3.8765762503418303`*^9, 
  3.8765762600239353`*^9}, {3.876659250400648*^9, 
  3.876659261326066*^9}},ExpressionUUID->"b7745c2b-f1b5-46fc-9f2f-\
83cd2d9d33f5"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Vzz", "=", 
  RowBox[{
   FractionBox[
    RowBox[{"G", "*", "\[Rho]", "*", 
     RowBox[{"(", 
      RowBox[{"\[Lambda]2", "-", "\[Lambda]1"}], ")"}]}], 
    RowBox[{"6", "*", 
     SuperscriptBox["r", "3"]}]], "*", 
   RowBox[{"(", 
    RowBox[{
     FractionBox["E22", "l22"], "-", 
     FractionBox["E12", "l12"], "-", 
     FractionBox["E21", "l21"], "+", 
     FractionBox["E11", "l11"], "+", 
     RowBox[{"6", "*", "B2", "*", 
      RowBox[{"Log", "[", 
       FractionBox[
        RowBox[{"C22", "+", "l22"}], 
        RowBox[{"C12", "+", "l12"}]], "]"}]}], "+", 
     RowBox[{"6", "*", "B1", "*", 
      RowBox[{"Log", "[", 
       FractionBox[
        RowBox[{"C11", "+", "l11"}], 
        RowBox[{"C21", "+", "l21"}]], "]"}]}]}], ")"}], 
   RowBox[{"(*", 
    RowBox[{"Eq", ".", " ", 
     RowBox[{"(", "9", ")"}]}], "*)"}]}]}]], "Input",
 CellChangeTimes->{{3.858282826344492*^9, 3.85828292914165*^9}, {
   3.858396513228201*^9, 3.8583965627981157`*^9}, 3.8583977364901123`*^9, {
   3.876576263347278*^9, 3.87657626405348*^9}, {3.876659264561637*^9, 
   3.876659264789803*^9}, {3.886060681610572*^9, 3.886060687742186*^9}},
 CellLabel->"In[94]:=",ExpressionUUID->"495529eb-9e17-49b4-933f-de7ef9ac8828"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", 
   RowBox[{"6", " ", 
    SuperscriptBox["r", "3"]}]], 
  RowBox[{"G", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "\[Lambda]1"}], "+", "\[Lambda]2"}], ")"}], " ", "\[Rho]", 
   " ", 
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{
       SuperscriptBox["r", "4"], "+", 
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        SuperscriptBox["r1", "2"]}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["r1", "4"]}], "-", 
       RowBox[{"r", " ", "r1", " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["r", "2"], "+", 
          RowBox[{"4", " ", 
           SuperscriptBox["r1", "2"]}]}], ")"}], " ", 
        RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], "-", 
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"3", " ", 
           SuperscriptBox["r", "2"]}], "+", 
          SuperscriptBox["r1", "2"]}], ")"}], " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"2", " ", "\[Theta]1"}], "]"}]}], "+", 
       RowBox[{"3", " ", 
        SuperscriptBox["r", "3"], " ", "r1", " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"3", " ", "\[Theta]1"}], "]"}]}]}], 
      SqrtBox[
       RowBox[{
        SuperscriptBox["r", "2"], "+", 
        SuperscriptBox["r1", "2"], "-", 
        RowBox[{"2", " ", "r", " ", "r1", " ", 
         RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]]], "-", 
     FractionBox[
      RowBox[{
       SuperscriptBox["r", "4"], "+", 
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        SuperscriptBox["r2", "2"]}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["r2", "4"]}], "-", 
       RowBox[{"r", " ", "r2", " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["r", "2"], "+", 
          RowBox[{"4", " ", 
           SuperscriptBox["r2", "2"]}]}], ")"}], " ", 
        RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], "-", 
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"3", " ", 
           SuperscriptBox["r", "2"]}], "+", 
          SuperscriptBox["r2", "2"]}], ")"}], " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"2", " ", "\[Theta]1"}], "]"}]}], "+", 
       RowBox[{"3", " ", 
        SuperscriptBox["r", "3"], " ", "r2", " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"3", " ", "\[Theta]1"}], "]"}]}]}], 
      SqrtBox[
       RowBox[{
        SuperscriptBox["r", "2"], "+", 
        SuperscriptBox["r2", "2"], "-", 
        RowBox[{"2", " ", "r", " ", "r2", " ", 
         RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]]], "-", 
     FractionBox[
      RowBox[{
       SuperscriptBox["r", "4"], "+", 
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        SuperscriptBox["r1", "2"]}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["r1", "4"]}], "-", 
       RowBox[{"r", " ", "r1", " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["r", "2"], "+", 
          RowBox[{"4", " ", 
           SuperscriptBox["r1", "2"]}]}], ")"}], " ", 
        RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], "-", 
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"3", " ", 
           SuperscriptBox["r", "2"]}], "+", 
          SuperscriptBox["r1", "2"]}], ")"}], " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"2", " ", "\[Theta]2"}], "]"}]}], "+", 
       RowBox[{"3", " ", 
        SuperscriptBox["r", "3"], " ", "r1", " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"3", " ", "\[Theta]2"}], "]"}]}]}], 
      SqrtBox[
       RowBox[{
        SuperscriptBox["r", "2"], "+", 
        SuperscriptBox["r1", "2"], "-", 
        RowBox[{"2", " ", "r", " ", "r1", " ", 
         RowBox[{"Cos", "[", "\[Theta]2", "]"}]}]}]]], "+", 
     FractionBox[
      RowBox[{
       SuperscriptBox["r", "4"], "+", 
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        SuperscriptBox["r2", "2"]}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["r2", "4"]}], "-", 
       RowBox[{"r", " ", "r2", " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["r", "2"], "+", 
          RowBox[{"4", " ", 
           SuperscriptBox["r2", "2"]}]}], ")"}], " ", 
        RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], "-", 
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"3", " ", 
           SuperscriptBox["r", "2"]}], "+", 
          SuperscriptBox["r2", "2"]}], ")"}], " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"2", " ", "\[Theta]2"}], "]"}]}], "+", 
       RowBox[{"3", " ", 
        SuperscriptBox["r", "3"], " ", "r2", " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"3", " ", "\[Theta]2"}], "]"}]}]}], 
      SqrtBox[
       RowBox[{
        SuperscriptBox["r", "2"], "+", 
        SuperscriptBox["r2", "2"], "-", 
        RowBox[{"2", " ", "r", " ", "r2", " ", 
         RowBox[{"Cos", "[", "\[Theta]2", "]"}]}]}]]], "+", 
     RowBox[{"6", " ", 
      SuperscriptBox["r", "3"], " ", 
      RowBox[{"Cos", "[", "\[Theta]1", "]"}], " ", 
      RowBox[{"Log", "[", 
       FractionBox[
        RowBox[{"r1", "-", 
         RowBox[{"r", " ", 
          RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], "+", 
         SqrtBox[
          RowBox[{
           SuperscriptBox["r", "2"], "+", 
           SuperscriptBox["r1", "2"], "-", 
           RowBox[{"2", " ", "r", " ", "r1", " ", 
            RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]]}], 
        RowBox[{"r2", "-", 
         RowBox[{"r", " ", 
          RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], "+", 
         SqrtBox[
          RowBox[{
           SuperscriptBox["r", "2"], "+", 
           SuperscriptBox["r2", "2"], "-", 
           RowBox[{"2", " ", "r", " ", "r2", " ", 
            RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]]}]], "]"}], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]1", "]"}], "2"]}], "+", 
     RowBox[{"6", " ", 
      SuperscriptBox["r", "3"], " ", 
      RowBox[{"Cos", "[", "\[Theta]2", "]"}], " ", 
      RowBox[{"Log", "[", 
       FractionBox[
        RowBox[{"r2", "-", 
         RowBox[{"r", " ", 
          RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], "+", 
         SqrtBox[
          RowBox[{
           SuperscriptBox["r", "2"], "+", 
           SuperscriptBox["r2", "2"], "-", 
           RowBox[{"2", " ", "r", " ", "r2", " ", 
            RowBox[{"Cos", "[", "\[Theta]2", "]"}]}]}]]}], 
        RowBox[{"r1", "-", 
         RowBox[{"r", " ", 
          RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], "+", 
         SqrtBox[
          RowBox[{
           SuperscriptBox["r", "2"], "+", 
           SuperscriptBox["r1", "2"], "-", 
           RowBox[{"2", " ", "r", " ", "r1", " ", 
            RowBox[{"Cos", "[", "\[Theta]2", "]"}]}]}]]}]], "]"}], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]2", "]"}], "2"]}]}], ")"}]}]}]], "Output",\

 CellChangeTimes->{3.8583968128865833`*^9, 3.8583980375907583`*^9, 
  3.85839881376161*^9, 3.858398846500708*^9, 3.85839912586552*^9, 
  3.8586304091970797`*^9, 3.8586305985982122`*^9, 3.8587973047670593`*^9, 
  3.858807601701374*^9, 3.859844308799288*^9, 3.860015255417912*^9, 
  3.876659300144032*^9, 3.8860608215955677`*^9},
 CellLabel->"Out[94]=",ExpressionUUID->"67bb20fd-ea27-4c3c-be9a-81473f090d46"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Vxx", "=", 
  RowBox[{
   FractionBox[
    RowBox[{"G", "*", "\[Rho]"}], "48"], "*", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"F2", "*", 
      RowBox[{"Log", "[", 
       FractionBox[
        RowBox[{"C22", "+", "l22"}], 
        RowBox[{"C12", "+", "l12"}]], "]"}]}], "+", 
     RowBox[{"F1", "*", 
      RowBox[{"Log", "[", 
       FractionBox[
        RowBox[{"C11", "+", "l11"}], 
        RowBox[{"C21", "+", "l21"}]], "]"}]}], "+", 
     RowBox[{
      FractionBox["1", 
       RowBox[{
        SuperscriptBox["r", "3"], "*", "l22"}]], "*", 
      RowBox[{"(", 
       RowBox[{"H2", "+", "I22", "+", "J2", "+", "K22"}], ")"}]}], "-", 
     RowBox[{
      FractionBox["1", 
       RowBox[{
        SuperscriptBox["r", "3"], "*", "l12"}]], "*", 
      RowBox[{"(", 
       RowBox[{"H1", "+", "I12", "+", "J1", "+", "K12"}], ")"}]}], "-", 
     RowBox[{
      FractionBox["1", 
       RowBox[{
        SuperscriptBox["r", "3"], "*", "l21"}]], "*", 
      RowBox[{"(", 
       RowBox[{"H2", "+", "I21", "+", "J2", "+", "K21"}], ")"}]}], "+", 
     RowBox[{
      FractionBox["1", 
       RowBox[{
        SuperscriptBox["r", "3"], "*", "l11"}]], "*", 
      RowBox[{"(", 
       RowBox[{"H1", "+", "I11", "+", "J1", "+", "K11"}], ")"}]}]}], ")"}], 
   RowBox[{"(*", 
    RowBox[{"Eq", ".", " ", 
     RowBox[{"(", "14", ")"}]}], "*)"}]}]}]], "Input",
 CellChangeTimes->{{3.858282934212448*^9, 3.858283091319705*^9}, {
   3.8583965798958187`*^9, 3.858396621212071*^9}, 3.858397740544878*^9, {
   3.886060695149588*^9, 3.8860606982885857`*^9}},
 CellLabel->"In[95]:=",ExpressionUUID->"b5d2e3e6-ce5a-41d2-aac3-f6e57ded773a"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "48"], " ", "G", " ", "\[Rho]", " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "3"}], " ", 
     RowBox[{"Cos", "[", "\[Theta]1", "]"}], " ", 
     RowBox[{"Log", "[", 
      FractionBox[
       RowBox[{"r1", "-", 
        RowBox[{"r", " ", 
         RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], "+", 
        SqrtBox[
         RowBox[{
          SuperscriptBox["r", "2"], "+", 
          SuperscriptBox["r1", "2"], "-", 
          RowBox[{"2", " ", "r", " ", "r1", " ", 
           RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]]}], 
       RowBox[{"r2", "-", 
        RowBox[{"r", " ", 
         RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], "+", 
        SqrtBox[
         RowBox[{
          SuperscriptBox["r", "2"], "+", 
          SuperscriptBox["r2", "2"], "-", 
          RowBox[{"2", " ", "r", " ", "r2", " ", 
           RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]]}]], "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"8", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "\[Lambda]1"}], "+", "\[Lambda]2"}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]1", "]"}], "2"]}], "-", 
       RowBox[{"4", " ", 
        RowBox[{"(", 
         RowBox[{"5", "-", 
          RowBox[{"Cos", "[", 
           RowBox[{"2", " ", "\[Theta]1"}], "]"}]}], ")"}], " ", 
        RowBox[{"Cos", "[", 
         RowBox[{
          RowBox[{"2", " ", "\[Lambda]"}], "-", "\[Lambda]1", "-", 
          "\[Lambda]2"}], "]"}], " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"\[Lambda]1", "-", "\[Lambda]2"}], "]"}]}]}], ")"}]}], "-", 
    RowBox[{"3", " ", 
     RowBox[{"Cos", "[", "\[Theta]2", "]"}], " ", 
     RowBox[{"Log", "[", 
      FractionBox[
       RowBox[{"r2", "-", 
        RowBox[{"r", " ", 
         RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], "+", 
        SqrtBox[
         RowBox[{
          SuperscriptBox["r", "2"], "+", 
          SuperscriptBox["r2", "2"], "-", 
          RowBox[{"2", " ", "r", " ", "r2", " ", 
           RowBox[{"Cos", "[", "\[Theta]2", "]"}]}]}]]}], 
       RowBox[{"r1", "-", 
        RowBox[{"r", " ", 
         RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], "+", 
        SqrtBox[
         RowBox[{
          SuperscriptBox["r", "2"], "+", 
          SuperscriptBox["r1", "2"], "-", 
          RowBox[{"2", " ", "r", " ", "r1", " ", 
           RowBox[{"Cos", "[", "\[Theta]2", "]"}]}]}]]}]], "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"8", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "\[Lambda]1"}], "+", "\[Lambda]2"}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]2", "]"}], "2"]}], "-", 
       RowBox[{"4", " ", 
        RowBox[{"(", 
         RowBox[{"5", "-", 
          RowBox[{"Cos", "[", 
           RowBox[{"2", " ", "\[Theta]2"}], "]"}]}], ")"}], " ", 
        RowBox[{"Cos", "[", 
         RowBox[{
          RowBox[{"2", " ", "\[Lambda]"}], "-", "\[Lambda]1", "-", 
          "\[Lambda]2"}], "]"}], " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"\[Lambda]1", "-", "\[Lambda]2"}], "]"}]}]}], ")"}]}], "+", 
    RowBox[{
     FractionBox["1", 
      RowBox[{
       SuperscriptBox["r", "3"], " ", 
       SqrtBox[
        RowBox[{
         SuperscriptBox["r", "2"], "+", 
         SuperscriptBox["r1", "2"], "-", 
         RowBox[{"2", " ", "r", " ", "r1", " ", 
          RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]]}]], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "4"}], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["r", "4"], "+", 
          RowBox[{
           SuperscriptBox["r", "2"], " ", 
           SuperscriptBox["r1", "2"]}], "+", 
          RowBox[{"4", " ", 
           SuperscriptBox["r1", "4"]}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "\[Lambda]1"}], "+", "\[Lambda]2"}], ")"}]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"3", " ", 
              SuperscriptBox["r", "2"]}], "+", 
             SuperscriptBox["r1", "2"]}], ")"}], " ", 
           RowBox[{"Cos", "[", 
            RowBox[{"2", " ", "\[Theta]1"}], "]"}]}], "-", 
          RowBox[{"3", " ", "r", " ", "r1", " ", 
           RowBox[{"Cos", "[", 
            RowBox[{"3", " ", "\[Theta]1"}], "]"}]}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "2"}], " ", "\[Lambda]1"}], "+", 
          RowBox[{"2", " ", "\[Lambda]2"}], "+", 
          RowBox[{"Sin", "[", 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{"\[Lambda]", "-", "\[Lambda]1"}], ")"}]}], "]"}], "-", 
          RowBox[{"Sin", "[", 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{"\[Lambda]", "-", "\[Lambda]2"}], ")"}]}], "]"}]}], 
         ")"}]}], "+", 
       RowBox[{"4", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"13", " ", 
           SuperscriptBox["r", "4"]}], "+", 
          RowBox[{"13", " ", 
           SuperscriptBox["r", "2"], " ", 
           SuperscriptBox["r1", "2"]}], "+", 
          RowBox[{"4", " ", 
           SuperscriptBox["r1", "4"]}]}], ")"}], " ", 
        RowBox[{"Cos", "[", 
         RowBox[{
          RowBox[{"2", " ", "\[Lambda]"}], "-", "\[Lambda]1", "-", 
          "\[Lambda]2"}], "]"}], " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"\[Lambda]1", "-", "\[Lambda]2"}], "]"}]}], "+", 
       RowBox[{"4", " ", "r", " ", "r1", " ", 
        RowBox[{"Cos", "[", "\[Theta]1", "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["r", "2"], "+", 
             RowBox[{"4", " ", 
              SuperscriptBox["r1", "2"]}]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "\[Lambda]1"}], "+", "\[Lambda]2"}], ")"}]}], "-", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"25", " ", 
              SuperscriptBox["r", "2"]}], "+", 
             RowBox[{"4", " ", 
              SuperscriptBox["r1", "2"]}]}], ")"}], " ", 
           RowBox[{"Cos", "[", 
            RowBox[{
             RowBox[{"2", " ", "\[Lambda]"}], "-", "\[Lambda]1", "-", 
             "\[Lambda]2"}], "]"}], " ", 
           RowBox[{"Sin", "[", 
            RowBox[{"\[Lambda]1", "-", "\[Lambda]2"}], "]"}]}]}], ")"}]}]}], 
      ")"}]}], "-", 
    RowBox[{
     FractionBox["1", 
      RowBox[{
       SuperscriptBox["r", "3"], " ", 
       SqrtBox[
        RowBox[{
         SuperscriptBox["r", "2"], "+", 
         SuperscriptBox["r1", "2"], "-", 
         RowBox[{"2", " ", "r", " ", "r1", " ", 
          RowBox[{"Cos", "[", "\[Theta]2", "]"}]}]}]]}]], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "4"}], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["r", "4"], "+", 
          RowBox[{
           SuperscriptBox["r", "2"], " ", 
           SuperscriptBox["r1", "2"]}], "+", 
          RowBox[{"4", " ", 
           SuperscriptBox["r1", "4"]}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "\[Lambda]1"}], "+", "\[Lambda]2"}], ")"}]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"3", " ", 
              SuperscriptBox["r", "2"]}], "+", 
             SuperscriptBox["r1", "2"]}], ")"}], " ", 
           RowBox[{"Cos", "[", 
            RowBox[{"2", " ", "\[Theta]2"}], "]"}]}], "-", 
          RowBox[{"3", " ", "r", " ", "r1", " ", 
           RowBox[{"Cos", "[", 
            RowBox[{"3", " ", "\[Theta]2"}], "]"}]}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "2"}], " ", "\[Lambda]1"}], "+", 
          RowBox[{"2", " ", "\[Lambda]2"}], "+", 
          RowBox[{"Sin", "[", 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{"\[Lambda]", "-", "\[Lambda]1"}], ")"}]}], "]"}], "-", 
          RowBox[{"Sin", "[", 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{"\[Lambda]", "-", "\[Lambda]2"}], ")"}]}], "]"}]}], 
         ")"}]}], "+", 
       RowBox[{"4", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"13", " ", 
           SuperscriptBox["r", "4"]}], "+", 
          RowBox[{"13", " ", 
           SuperscriptBox["r", "2"], " ", 
           SuperscriptBox["r1", "2"]}], "+", 
          RowBox[{"4", " ", 
           SuperscriptBox["r1", "4"]}]}], ")"}], " ", 
        RowBox[{"Cos", "[", 
         RowBox[{
          RowBox[{"2", " ", "\[Lambda]"}], "-", "\[Lambda]1", "-", 
          "\[Lambda]2"}], "]"}], " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"\[Lambda]1", "-", "\[Lambda]2"}], "]"}]}], "+", 
       RowBox[{"4", " ", "r", " ", "r1", " ", 
        RowBox[{"Cos", "[", "\[Theta]2", "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["r", "2"], "+", 
             RowBox[{"4", " ", 
              SuperscriptBox["r1", "2"]}]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "\[Lambda]1"}], "+", "\[Lambda]2"}], ")"}]}], "-", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"25", " ", 
              SuperscriptBox["r", "2"]}], "+", 
             RowBox[{"4", " ", 
              SuperscriptBox["r1", "2"]}]}], ")"}], " ", 
           RowBox[{"Cos", "[", 
            RowBox[{
             RowBox[{"2", " ", "\[Lambda]"}], "-", "\[Lambda]1", "-", 
             "\[Lambda]2"}], "]"}], " ", 
           RowBox[{"Sin", "[", 
            RowBox[{"\[Lambda]1", "-", "\[Lambda]2"}], "]"}]}]}], ")"}]}]}], 
      ")"}]}], "-", 
    RowBox[{
     FractionBox["1", 
      RowBox[{
       SuperscriptBox["r", "3"], " ", 
       SqrtBox[
        RowBox[{
         SuperscriptBox["r", "2"], "+", 
         SuperscriptBox["r2", "2"], "-", 
         RowBox[{"2", " ", "r", " ", "r2", " ", 
          RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]]}]], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "4"}], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["r", "4"], "+", 
          RowBox[{
           SuperscriptBox["r", "2"], " ", 
           SuperscriptBox["r2", "2"]}], "+", 
          RowBox[{"4", " ", 
           SuperscriptBox["r2", "4"]}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "\[Lambda]1"}], "+", "\[Lambda]2"}], ")"}]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"3", " ", 
              SuperscriptBox["r", "2"]}], "+", 
             SuperscriptBox["r2", "2"]}], ")"}], " ", 
           RowBox[{"Cos", "[", 
            RowBox[{"2", " ", "\[Theta]1"}], "]"}]}], "-", 
          RowBox[{"3", " ", "r", " ", "r2", " ", 
           RowBox[{"Cos", "[", 
            RowBox[{"3", " ", "\[Theta]1"}], "]"}]}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "2"}], " ", "\[Lambda]1"}], "+", 
          RowBox[{"2", " ", "\[Lambda]2"}], "+", 
          RowBox[{"Sin", "[", 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{"\[Lambda]", "-", "\[Lambda]1"}], ")"}]}], "]"}], "-", 
          RowBox[{"Sin", "[", 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{"\[Lambda]", "-", "\[Lambda]2"}], ")"}]}], "]"}]}], 
         ")"}]}], "+", 
       RowBox[{"4", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"13", " ", 
           SuperscriptBox["r", "4"]}], "+", 
          RowBox[{"13", " ", 
           SuperscriptBox["r", "2"], " ", 
           SuperscriptBox["r2", "2"]}], "+", 
          RowBox[{"4", " ", 
           SuperscriptBox["r2", "4"]}]}], ")"}], " ", 
        RowBox[{"Cos", "[", 
         RowBox[{
          RowBox[{"2", " ", "\[Lambda]"}], "-", "\[Lambda]1", "-", 
          "\[Lambda]2"}], "]"}], " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"\[Lambda]1", "-", "\[Lambda]2"}], "]"}]}], "+", 
       RowBox[{"4", " ", "r", " ", "r2", " ", 
        RowBox[{"Cos", "[", "\[Theta]1", "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["r", "2"], "+", 
             RowBox[{"4", " ", 
              SuperscriptBox["r2", "2"]}]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "\[Lambda]1"}], "+", "\[Lambda]2"}], ")"}]}], "-", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"25", " ", 
              SuperscriptBox["r", "2"]}], "+", 
             RowBox[{"4", " ", 
              SuperscriptBox["r2", "2"]}]}], ")"}], " ", 
           RowBox[{"Cos", "[", 
            RowBox[{
             RowBox[{"2", " ", "\[Lambda]"}], "-", "\[Lambda]1", "-", 
             "\[Lambda]2"}], "]"}], " ", 
           RowBox[{"Sin", "[", 
            RowBox[{"\[Lambda]1", "-", "\[Lambda]2"}], "]"}]}]}], ")"}]}]}], 
      ")"}]}], "+", 
    RowBox[{
     FractionBox["1", 
      RowBox[{
       SuperscriptBox["r", "3"], " ", 
       SqrtBox[
        RowBox[{
         SuperscriptBox["r", "2"], "+", 
         SuperscriptBox["r2", "2"], "-", 
         RowBox[{"2", " ", "r", " ", "r2", " ", 
          RowBox[{"Cos", "[", "\[Theta]2", "]"}]}]}]]}]], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "4"}], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["r", "4"], "+", 
          RowBox[{
           SuperscriptBox["r", "2"], " ", 
           SuperscriptBox["r2", "2"]}], "+", 
          RowBox[{"4", " ", 
           SuperscriptBox["r2", "4"]}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "\[Lambda]1"}], "+", "\[Lambda]2"}], ")"}]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"3", " ", 
              SuperscriptBox["r", "2"]}], "+", 
             SuperscriptBox["r2", "2"]}], ")"}], " ", 
           RowBox[{"Cos", "[", 
            RowBox[{"2", " ", "\[Theta]2"}], "]"}]}], "-", 
          RowBox[{"3", " ", "r", " ", "r2", " ", 
           RowBox[{"Cos", "[", 
            RowBox[{"3", " ", "\[Theta]2"}], "]"}]}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "2"}], " ", "\[Lambda]1"}], "+", 
          RowBox[{"2", " ", "\[Lambda]2"}], "+", 
          RowBox[{"Sin", "[", 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{"\[Lambda]", "-", "\[Lambda]1"}], ")"}]}], "]"}], "-", 
          RowBox[{"Sin", "[", 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{"\[Lambda]", "-", "\[Lambda]2"}], ")"}]}], "]"}]}], 
         ")"}]}], "+", 
       RowBox[{"4", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"13", " ", 
           SuperscriptBox["r", "4"]}], "+", 
          RowBox[{"13", " ", 
           SuperscriptBox["r", "2"], " ", 
           SuperscriptBox["r2", "2"]}], "+", 
          RowBox[{"4", " ", 
           SuperscriptBox["r2", "4"]}]}], ")"}], " ", 
        RowBox[{"Cos", "[", 
         RowBox[{
          RowBox[{"2", " ", "\[Lambda]"}], "-", "\[Lambda]1", "-", 
          "\[Lambda]2"}], "]"}], " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"\[Lambda]1", "-", "\[Lambda]2"}], "]"}]}], "+", 
       RowBox[{"4", " ", "r", " ", "r2", " ", 
        RowBox[{"Cos", "[", "\[Theta]2", "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["r", "2"], "+", 
             RowBox[{"4", " ", 
              SuperscriptBox["r2", "2"]}]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "\[Lambda]1"}], "+", "\[Lambda]2"}], ")"}]}], "-", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"25", " ", 
              SuperscriptBox["r", "2"]}], "+", 
             RowBox[{"4", " ", 
              SuperscriptBox["r2", "2"]}]}], ")"}], " ", 
           RowBox[{"Cos", "[", 
            RowBox[{
             RowBox[{"2", " ", "\[Lambda]"}], "-", "\[Lambda]1", "-", 
             "\[Lambda]2"}], "]"}], " ", 
           RowBox[{"Sin", "[", 
            RowBox[{"\[Lambda]1", "-", "\[Lambda]2"}], "]"}]}]}], ")"}]}]}], 
      ")"}]}]}], ")"}]}]], "Output",
 CellChangeTimes->{3.8583968129241323`*^9, 3.858398037628127*^9, 
  3.85839881380464*^9, 3.858398846532687*^9, 3.858399125953506*^9, 
  3.858630409235434*^9, 3.858630598630189*^9, 3.858797304791031*^9, 
  3.858807601740287*^9, 3.859844308811364*^9, 3.860015255444137*^9, 
  3.876659300185408*^9, 3.886060821601248*^9},
 CellLabel->"Out[95]=",ExpressionUUID->"84bb4e56-c418-45e2-b6e3-267bb60d5c37"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Vyy", "=", 
  RowBox[{
   FractionBox[
    RowBox[{"G", "*", "\[Rho]"}], "48"], "*", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"L2", "*", 
      RowBox[{"Log", "[", 
       FractionBox[
        RowBox[{"C22", "+", "l22"}], 
        RowBox[{"C12", "+", "l12"}]], "]"}]}], "+", 
     RowBox[{"L1", "*", 
      RowBox[{"Log", "[", 
       FractionBox[
        RowBox[{"C11", "+", "l11"}], 
        RowBox[{"C21", "+", "l21"}]], "]"}]}], "+", 
     RowBox[{
      FractionBox["1", 
       RowBox[{
        SuperscriptBox["r", "3"], "*", "l22"}]], "*", 
      RowBox[{"(", 
       RowBox[{"H2", "+", "M22", "-", "J2", "+", "N22"}], ")"}]}], "-", 
     RowBox[{
      FractionBox["1", 
       RowBox[{
        SuperscriptBox["r", "3"], "*", "l12"}]], "*", 
      RowBox[{"(", 
       RowBox[{"H1", "+", "M12", "-", "J1", "+", "N12"}], ")"}]}], "-", 
     RowBox[{
      FractionBox["1", 
       RowBox[{
        SuperscriptBox["r", "3"], "*", "l21"}]], "*", 
      RowBox[{"(", 
       RowBox[{"H2", "+", "M21", "-", "J2", "+", "N21"}], ")"}]}], "+", 
     RowBox[{
      FractionBox["1", 
       RowBox[{
        SuperscriptBox["r", "3"], "*", "l11"}]], "*", 
      RowBox[{"(", 
       RowBox[{"H1", "+", "M11", "-", "J1", "+", "N11"}], ")"}]}]}], ")"}], 
   RowBox[{"(*", 
    RowBox[{"Eq", ".", " ", 
     RowBox[{"(", "15", ")"}]}], "*)"}]}]}]], "Input",
 CellChangeTimes->{{3.8582831056188927`*^9, 3.858283210743271*^9}, {
   3.858396648549152*^9, 3.858396684406876*^9}, 3.858397745056322*^9, {
   3.886060715094242*^9, 3.886060717145349*^9}},
 CellLabel->"In[96]:=",ExpressionUUID->"b6831bae-71f6-4fec-b42e-3d2bd08564b8"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "48"], " ", "G", " ", "\[Rho]", " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "3"}], " ", 
     RowBox[{"Cos", "[", "\[Theta]1", "]"}], " ", 
     RowBox[{"Log", "[", 
      FractionBox[
       RowBox[{"r1", "-", 
        RowBox[{"r", " ", 
         RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], "+", 
        SqrtBox[
         RowBox[{
          SuperscriptBox["r", "2"], "+", 
          SuperscriptBox["r1", "2"], "-", 
          RowBox[{"2", " ", "r", " ", "r1", " ", 
           RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]]}], 
       RowBox[{"r2", "-", 
        RowBox[{"r", " ", 
         RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], "+", 
        SqrtBox[
         RowBox[{
          SuperscriptBox["r", "2"], "+", 
          SuperscriptBox["r2", "2"], "-", 
          RowBox[{"2", " ", "r", " ", "r2", " ", 
           RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]]}]], "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"8", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "\[Lambda]1"}], "+", "\[Lambda]2"}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]1", "]"}], "2"]}], "+", 
       RowBox[{"4", " ", 
        RowBox[{"(", 
         RowBox[{"5", "-", 
          RowBox[{"Cos", "[", 
           RowBox[{"2", " ", "\[Theta]1"}], "]"}]}], ")"}], " ", 
        RowBox[{"Cos", "[", 
         RowBox[{
          RowBox[{"2", " ", "\[Lambda]"}], "-", "\[Lambda]1", "-", 
          "\[Lambda]2"}], "]"}], " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"\[Lambda]1", "-", "\[Lambda]2"}], "]"}]}]}], ")"}]}], "-", 
    RowBox[{"3", " ", 
     RowBox[{"Cos", "[", "\[Theta]2", "]"}], " ", 
     RowBox[{"Log", "[", 
      FractionBox[
       RowBox[{"r2", "-", 
        RowBox[{"r", " ", 
         RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], "+", 
        SqrtBox[
         RowBox[{
          SuperscriptBox["r", "2"], "+", 
          SuperscriptBox["r2", "2"], "-", 
          RowBox[{"2", " ", "r", " ", "r2", " ", 
           RowBox[{"Cos", "[", "\[Theta]2", "]"}]}]}]]}], 
       RowBox[{"r1", "-", 
        RowBox[{"r", " ", 
         RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], "+", 
        SqrtBox[
         RowBox[{
          SuperscriptBox["r", "2"], "+", 
          SuperscriptBox["r1", "2"], "-", 
          RowBox[{"2", " ", "r", " ", "r1", " ", 
           RowBox[{"Cos", "[", "\[Theta]2", "]"}]}]}]]}]], "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"8", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "\[Lambda]1"}], "+", "\[Lambda]2"}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]2", "]"}], "2"]}], "+", 
       RowBox[{"4", " ", 
        RowBox[{"(", 
         RowBox[{"5", "-", 
          RowBox[{"Cos", "[", 
           RowBox[{"2", " ", "\[Theta]2"}], "]"}]}], ")"}], " ", 
        RowBox[{"Cos", "[", 
         RowBox[{
          RowBox[{"2", " ", "\[Lambda]"}], "-", "\[Lambda]1", "-", 
          "\[Lambda]2"}], "]"}], " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"\[Lambda]1", "-", "\[Lambda]2"}], "]"}]}]}], ")"}]}], "+", 
    RowBox[{
     FractionBox["1", 
      RowBox[{
       SuperscriptBox["r", "3"], " ", 
       SqrtBox[
        RowBox[{
         SuperscriptBox["r", "2"], "+", 
         SuperscriptBox["r1", "2"], "-", 
         RowBox[{"2", " ", "r", " ", "r1", " ", 
          RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]]}]], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "4"}], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["r", "4"], "+", 
          RowBox[{
           SuperscriptBox["r", "2"], " ", 
           SuperscriptBox["r1", "2"]}], "+", 
          RowBox[{"4", " ", 
           SuperscriptBox["r1", "4"]}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "\[Lambda]1"}], "+", "\[Lambda]2"}], ")"}]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"3", " ", 
              SuperscriptBox["r", "2"]}], "+", 
             SuperscriptBox["r1", "2"]}], ")"}], " ", 
           RowBox[{"Cos", "[", 
            RowBox[{"2", " ", "\[Theta]1"}], "]"}]}], "-", 
          RowBox[{"3", " ", "r", " ", "r1", " ", 
           RowBox[{"Cos", "[", 
            RowBox[{"3", " ", "\[Theta]1"}], "]"}]}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "2"}], " ", "\[Lambda]1"}], "+", 
          RowBox[{"2", " ", "\[Lambda]2"}], "-", 
          RowBox[{"Sin", "[", 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{"\[Lambda]", "-", "\[Lambda]1"}], ")"}]}], "]"}], "+", 
          RowBox[{"Sin", "[", 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{"\[Lambda]", "-", "\[Lambda]2"}], ")"}]}], "]"}]}], 
         ")"}]}], "-", 
       RowBox[{"4", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"13", " ", 
           SuperscriptBox["r", "4"]}], "+", 
          RowBox[{"13", " ", 
           SuperscriptBox["r", "2"], " ", 
           SuperscriptBox["r1", "2"]}], "+", 
          RowBox[{"4", " ", 
           SuperscriptBox["r1", "4"]}]}], ")"}], " ", 
        RowBox[{"Cos", "[", 
         RowBox[{
          RowBox[{"2", " ", "\[Lambda]"}], "-", "\[Lambda]1", "-", 
          "\[Lambda]2"}], "]"}], " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"\[Lambda]1", "-", "\[Lambda]2"}], "]"}]}], "+", 
       RowBox[{"4", " ", "r", " ", "r1", " ", 
        RowBox[{"Cos", "[", "\[Theta]1", "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["r", "2"], "+", 
             RowBox[{"4", " ", 
              SuperscriptBox["r1", "2"]}]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "\[Lambda]1"}], "+", "\[Lambda]2"}], ")"}]}], "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"25", " ", 
              SuperscriptBox["r", "2"]}], "+", 
             RowBox[{"4", " ", 
              SuperscriptBox["r1", "2"]}]}], ")"}], " ", 
           RowBox[{"Cos", "[", 
            RowBox[{
             RowBox[{"2", " ", "\[Lambda]"}], "-", "\[Lambda]1", "-", 
             "\[Lambda]2"}], "]"}], " ", 
           RowBox[{"Sin", "[", 
            RowBox[{"\[Lambda]1", "-", "\[Lambda]2"}], "]"}]}]}], ")"}]}]}], 
      ")"}]}], "-", 
    RowBox[{
     FractionBox["1", 
      RowBox[{
       SuperscriptBox["r", "3"], " ", 
       SqrtBox[
        RowBox[{
         SuperscriptBox["r", "2"], "+", 
         SuperscriptBox["r1", "2"], "-", 
         RowBox[{"2", " ", "r", " ", "r1", " ", 
          RowBox[{"Cos", "[", "\[Theta]2", "]"}]}]}]]}]], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "4"}], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["r", "4"], "+", 
          RowBox[{
           SuperscriptBox["r", "2"], " ", 
           SuperscriptBox["r1", "2"]}], "+", 
          RowBox[{"4", " ", 
           SuperscriptBox["r1", "4"]}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "\[Lambda]1"}], "+", "\[Lambda]2"}], ")"}]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"3", " ", 
              SuperscriptBox["r", "2"]}], "+", 
             SuperscriptBox["r1", "2"]}], ")"}], " ", 
           RowBox[{"Cos", "[", 
            RowBox[{"2", " ", "\[Theta]2"}], "]"}]}], "-", 
          RowBox[{"3", " ", "r", " ", "r1", " ", 
           RowBox[{"Cos", "[", 
            RowBox[{"3", " ", "\[Theta]2"}], "]"}]}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "2"}], " ", "\[Lambda]1"}], "+", 
          RowBox[{"2", " ", "\[Lambda]2"}], "-", 
          RowBox[{"Sin", "[", 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{"\[Lambda]", "-", "\[Lambda]1"}], ")"}]}], "]"}], "+", 
          RowBox[{"Sin", "[", 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{"\[Lambda]", "-", "\[Lambda]2"}], ")"}]}], "]"}]}], 
         ")"}]}], "-", 
       RowBox[{"4", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"13", " ", 
           SuperscriptBox["r", "4"]}], "+", 
          RowBox[{"13", " ", 
           SuperscriptBox["r", "2"], " ", 
           SuperscriptBox["r1", "2"]}], "+", 
          RowBox[{"4", " ", 
           SuperscriptBox["r1", "4"]}]}], ")"}], " ", 
        RowBox[{"Cos", "[", 
         RowBox[{
          RowBox[{"2", " ", "\[Lambda]"}], "-", "\[Lambda]1", "-", 
          "\[Lambda]2"}], "]"}], " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"\[Lambda]1", "-", "\[Lambda]2"}], "]"}]}], "+", 
       RowBox[{"4", " ", "r", " ", "r1", " ", 
        RowBox[{"Cos", "[", "\[Theta]2", "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["r", "2"], "+", 
             RowBox[{"4", " ", 
              SuperscriptBox["r1", "2"]}]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "\[Lambda]1"}], "+", "\[Lambda]2"}], ")"}]}], "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"25", " ", 
              SuperscriptBox["r", "2"]}], "+", 
             RowBox[{"4", " ", 
              SuperscriptBox["r1", "2"]}]}], ")"}], " ", 
           RowBox[{"Cos", "[", 
            RowBox[{
             RowBox[{"2", " ", "\[Lambda]"}], "-", "\[Lambda]1", "-", 
             "\[Lambda]2"}], "]"}], " ", 
           RowBox[{"Sin", "[", 
            RowBox[{"\[Lambda]1", "-", "\[Lambda]2"}], "]"}]}]}], ")"}]}]}], 
      ")"}]}], "-", 
    RowBox[{
     FractionBox["1", 
      RowBox[{
       SuperscriptBox["r", "3"], " ", 
       SqrtBox[
        RowBox[{
         SuperscriptBox["r", "2"], "+", 
         SuperscriptBox["r2", "2"], "-", 
         RowBox[{"2", " ", "r", " ", "r2", " ", 
          RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]]}]], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "4"}], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["r", "4"], "+", 
          RowBox[{
           SuperscriptBox["r", "2"], " ", 
           SuperscriptBox["r2", "2"]}], "+", 
          RowBox[{"4", " ", 
           SuperscriptBox["r2", "4"]}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "\[Lambda]1"}], "+", "\[Lambda]2"}], ")"}]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"3", " ", 
              SuperscriptBox["r", "2"]}], "+", 
             SuperscriptBox["r2", "2"]}], ")"}], " ", 
           RowBox[{"Cos", "[", 
            RowBox[{"2", " ", "\[Theta]1"}], "]"}]}], "-", 
          RowBox[{"3", " ", "r", " ", "r2", " ", 
           RowBox[{"Cos", "[", 
            RowBox[{"3", " ", "\[Theta]1"}], "]"}]}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "2"}], " ", "\[Lambda]1"}], "+", 
          RowBox[{"2", " ", "\[Lambda]2"}], "-", 
          RowBox[{"Sin", "[", 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{"\[Lambda]", "-", "\[Lambda]1"}], ")"}]}], "]"}], "+", 
          RowBox[{"Sin", "[", 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{"\[Lambda]", "-", "\[Lambda]2"}], ")"}]}], "]"}]}], 
         ")"}]}], "-", 
       RowBox[{"4", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"13", " ", 
           SuperscriptBox["r", "4"]}], "+", 
          RowBox[{"13", " ", 
           SuperscriptBox["r", "2"], " ", 
           SuperscriptBox["r2", "2"]}], "+", 
          RowBox[{"4", " ", 
           SuperscriptBox["r2", "4"]}]}], ")"}], " ", 
        RowBox[{"Cos", "[", 
         RowBox[{
          RowBox[{"2", " ", "\[Lambda]"}], "-", "\[Lambda]1", "-", 
          "\[Lambda]2"}], "]"}], " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"\[Lambda]1", "-", "\[Lambda]2"}], "]"}]}], "+", 
       RowBox[{"4", " ", "r", " ", "r2", " ", 
        RowBox[{"Cos", "[", "\[Theta]1", "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["r", "2"], "+", 
             RowBox[{"4", " ", 
              SuperscriptBox["r2", "2"]}]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "\[Lambda]1"}], "+", "\[Lambda]2"}], ")"}]}], "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"25", " ", 
              SuperscriptBox["r", "2"]}], "+", 
             RowBox[{"4", " ", 
              SuperscriptBox["r2", "2"]}]}], ")"}], " ", 
           RowBox[{"Cos", "[", 
            RowBox[{
             RowBox[{"2", " ", "\[Lambda]"}], "-", "\[Lambda]1", "-", 
             "\[Lambda]2"}], "]"}], " ", 
           RowBox[{"Sin", "[", 
            RowBox[{"\[Lambda]1", "-", "\[Lambda]2"}], "]"}]}]}], ")"}]}]}], 
      ")"}]}], "+", 
    RowBox[{
     FractionBox["1", 
      RowBox[{
       SuperscriptBox["r", "3"], " ", 
       SqrtBox[
        RowBox[{
         SuperscriptBox["r", "2"], "+", 
         SuperscriptBox["r2", "2"], "-", 
         RowBox[{"2", " ", "r", " ", "r2", " ", 
          RowBox[{"Cos", "[", "\[Theta]2", "]"}]}]}]]}]], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "4"}], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["r", "4"], "+", 
          RowBox[{
           SuperscriptBox["r", "2"], " ", 
           SuperscriptBox["r2", "2"]}], "+", 
          RowBox[{"4", " ", 
           SuperscriptBox["r2", "4"]}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "\[Lambda]1"}], "+", "\[Lambda]2"}], ")"}]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"3", " ", 
              SuperscriptBox["r", "2"]}], "+", 
             SuperscriptBox["r2", "2"]}], ")"}], " ", 
           RowBox[{"Cos", "[", 
            RowBox[{"2", " ", "\[Theta]2"}], "]"}]}], "-", 
          RowBox[{"3", " ", "r", " ", "r2", " ", 
           RowBox[{"Cos", "[", 
            RowBox[{"3", " ", "\[Theta]2"}], "]"}]}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "2"}], " ", "\[Lambda]1"}], "+", 
          RowBox[{"2", " ", "\[Lambda]2"}], "-", 
          RowBox[{"Sin", "[", 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{"\[Lambda]", "-", "\[Lambda]1"}], ")"}]}], "]"}], "+", 
          RowBox[{"Sin", "[", 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{"\[Lambda]", "-", "\[Lambda]2"}], ")"}]}], "]"}]}], 
         ")"}]}], "-", 
       RowBox[{"4", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"13", " ", 
           SuperscriptBox["r", "4"]}], "+", 
          RowBox[{"13", " ", 
           SuperscriptBox["r", "2"], " ", 
           SuperscriptBox["r2", "2"]}], "+", 
          RowBox[{"4", " ", 
           SuperscriptBox["r2", "4"]}]}], ")"}], " ", 
        RowBox[{"Cos", "[", 
         RowBox[{
          RowBox[{"2", " ", "\[Lambda]"}], "-", "\[Lambda]1", "-", 
          "\[Lambda]2"}], "]"}], " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"\[Lambda]1", "-", "\[Lambda]2"}], "]"}]}], "+", 
       RowBox[{"4", " ", "r", " ", "r2", " ", 
        RowBox[{"Cos", "[", "\[Theta]2", "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["r", "2"], "+", 
             RowBox[{"4", " ", 
              SuperscriptBox["r2", "2"]}]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "\[Lambda]1"}], "+", "\[Lambda]2"}], ")"}]}], "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"25", " ", 
              SuperscriptBox["r", "2"]}], "+", 
             RowBox[{"4", " ", 
              SuperscriptBox["r2", "2"]}]}], ")"}], " ", 
           RowBox[{"Cos", "[", 
            RowBox[{
             RowBox[{"2", " ", "\[Lambda]"}], "-", "\[Lambda]1", "-", 
             "\[Lambda]2"}], "]"}], " ", 
           RowBox[{"Sin", "[", 
            RowBox[{"\[Lambda]1", "-", "\[Lambda]2"}], "]"}]}]}], ")"}]}]}], 
      ")"}]}]}], ")"}]}]], "Output",
 CellChangeTimes->{3.858396812968204*^9, 3.8583980376907673`*^9, 
  3.8583988140373917`*^9, 3.8583988466271544`*^9, 3.858399126049617*^9, 
  3.858630409271736*^9, 3.858630598655552*^9, 3.858797304844755*^9, 
  3.8588076017865343`*^9, 3.8598443088406878`*^9, 3.860015255505212*^9, 
  3.876659300240662*^9, 3.8860608216194572`*^9},
 CellLabel->"Out[96]=",ExpressionUUID->"8207a8c8-8f45-4467-afbe-a43ea2eb8f0d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Vzzz", "=", 
  RowBox[{
   RowBox[{"-", 
    FractionBox[
     RowBox[{"G", "*", "\[Rho]", "*", 
      RowBox[{"(", 
       RowBox[{"\[Lambda]2", "-", "\[Lambda]1"}], ")"}]}], 
     RowBox[{"2", "*", 
      SuperscriptBox["r", "4"]}]]}], "*", 
   RowBox[{"(", 
    RowBox[{
     FractionBox["O22", 
      SuperscriptBox["l22", "3"]], "-", 
     FractionBox["O12", 
      SuperscriptBox["l12", "3"]], "-", 
     FractionBox["O21", 
      SuperscriptBox["l21", "3"]], "+", 
     FractionBox["O11", 
      SuperscriptBox["l11", "3"]]}], ")"}], 
   RowBox[{"(*", 
    RowBox[{"Eq", ".", " ", 
     RowBox[{"(", "17", ")"}]}], "*)"}]}]}]], "Input",
 CellChangeTimes->{{3.858283265106801*^9, 3.85828331666267*^9}, 
   3.858397749559031*^9, {3.876576275674108*^9, 3.876576276631192*^9}, {
   3.876659270426538*^9, 3.8766592707944736`*^9}, {3.886060726998378*^9, 
   3.886060729128994*^9}},
 CellLabel->"In[97]:=",ExpressionUUID->"01de89b2-b545-4370-8fc2-831870da52a3"],

Cell[BoxData[
 RowBox[{"-", 
  RowBox[{
   FractionBox["1", 
    RowBox[{"2", " ", 
     SuperscriptBox["r", "4"]}]], 
   RowBox[{"G", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "\[Lambda]1"}], "+", "\[Lambda]2"}], ")"}], " ", "\[Rho]", 
    " ", 
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{
        SuperscriptBox["r1", "3"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"9", " ", 
           SuperscriptBox["r", "2"], " ", "r1"}], "+", 
          RowBox[{"4", " ", 
           SuperscriptBox["r1", "3"]}], "-", 
          RowBox[{"4", " ", "r", " ", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["r", "2"], "+", 
             RowBox[{"3", " ", 
              SuperscriptBox["r1", "2"]}]}], ")"}], " ", 
           RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], "+", 
          RowBox[{"3", " ", 
           SuperscriptBox["r", "2"], " ", "r1", " ", 
           RowBox[{"Cos", "[", 
            RowBox[{"2", " ", "\[Theta]1"}], "]"}]}]}], ")"}]}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["r", "2"], "+", 
          SuperscriptBox["r1", "2"], "-", 
          RowBox[{"2", " ", "r", " ", "r1", " ", 
           RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}], ")"}], 
        RowBox[{"3", "/", "2"}]]], "-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["r2", "3"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"9", " ", 
           SuperscriptBox["r", "2"], " ", "r2"}], "+", 
          RowBox[{"4", " ", 
           SuperscriptBox["r2", "3"]}], "-", 
          RowBox[{"4", " ", "r", " ", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["r", "2"], "+", 
             RowBox[{"3", " ", 
              SuperscriptBox["r2", "2"]}]}], ")"}], " ", 
           RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], "+", 
          RowBox[{"3", " ", 
           SuperscriptBox["r", "2"], " ", "r2", " ", 
           RowBox[{"Cos", "[", 
            RowBox[{"2", " ", "\[Theta]1"}], "]"}]}]}], ")"}]}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["r", "2"], "+", 
          SuperscriptBox["r2", "2"], "-", 
          RowBox[{"2", " ", "r", " ", "r2", " ", 
           RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}], ")"}], 
        RowBox[{"3", "/", "2"}]]], "-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["r1", "3"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"9", " ", 
           SuperscriptBox["r", "2"], " ", "r1"}], "+", 
          RowBox[{"4", " ", 
           SuperscriptBox["r1", "3"]}], "-", 
          RowBox[{"4", " ", "r", " ", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["r", "2"], "+", 
             RowBox[{"3", " ", 
              SuperscriptBox["r1", "2"]}]}], ")"}], " ", 
           RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], "+", 
          RowBox[{"3", " ", 
           SuperscriptBox["r", "2"], " ", "r1", " ", 
           RowBox[{"Cos", "[", 
            RowBox[{"2", " ", "\[Theta]2"}], "]"}]}]}], ")"}]}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["r", "2"], "+", 
          SuperscriptBox["r1", "2"], "-", 
          RowBox[{"2", " ", "r", " ", "r1", " ", 
           RowBox[{"Cos", "[", "\[Theta]2", "]"}]}]}], ")"}], 
        RowBox[{"3", "/", "2"}]]], "+", 
      FractionBox[
       RowBox[{
        SuperscriptBox["r2", "3"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"9", " ", 
           SuperscriptBox["r", "2"], " ", "r2"}], "+", 
          RowBox[{"4", " ", 
           SuperscriptBox["r2", "3"]}], "-", 
          RowBox[{"4", " ", "r", " ", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["r", "2"], "+", 
             RowBox[{"3", " ", 
              SuperscriptBox["r2", "2"]}]}], ")"}], " ", 
           RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], "+", 
          RowBox[{"3", " ", 
           SuperscriptBox["r", "2"], " ", "r2", " ", 
           RowBox[{"Cos", "[", 
            RowBox[{"2", " ", "\[Theta]2"}], "]"}]}]}], ")"}]}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["r", "2"], "+", 
          SuperscriptBox["r2", "2"], "-", 
          RowBox[{"2", " ", "r", " ", "r2", " ", 
           RowBox[{"Cos", "[", "\[Theta]2", "]"}]}]}], ")"}], 
        RowBox[{"3", "/", "2"}]]]}], ")"}]}]}]}]], "Output",
 CellChangeTimes->{3.858284257310951*^9, 3.858284366835554*^9, 
  3.8582879344140387`*^9, 3.858292545598496*^9, 3.858292798135601*^9, 
  3.858297019361628*^9, 3.8582978697292128`*^9, 3.858298047447525*^9, 
  3.858396812990019*^9, 3.8583980377057667`*^9, 3.858398814098926*^9, 
  3.858398846673332*^9, 3.85839912607786*^9, 3.8586304093025703`*^9, 
  3.858630598677228*^9, 3.858797304969145*^9, 3.858807601804438*^9, 
  3.8598443088468637`*^9, 3.86001525555654*^9, 3.876659300277972*^9, 
  3.886060821626939*^9},
 CellLabel->"Out[97]=",ExpressionUUID->"8cb68529-0c33-4c94-8fed-77174088e1a7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Vxxz", "=", 
  RowBox[{
   FractionBox[
    RowBox[{"G", "*", "\[Rho]"}], 
    RowBox[{"16", "*", 
     SuperscriptBox["r", "4"]}]], "*", 
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{"P22", "+", "Q22", "+", "R22", "+", "S22", "+", "T2"}], 
      SuperscriptBox["l22", "3"]], "-", 
     FractionBox[
      RowBox[{"P12", "+", "Q12", "+", "R12", "+", "S12", "+", "T1"}], 
      SuperscriptBox["l12", "3"]], "-", 
     FractionBox[
      RowBox[{"P21", "+", "Q21", "+", "R21", "+", "S21", "+", "T2"}], 
      SuperscriptBox["l21", "3"]], "+", 
     FractionBox[
      RowBox[{"P11", "+", "Q11", "+", "R11", "+", "S11", "+", "T1"}], 
      SuperscriptBox["l11", "3"]]}], ")"}], 
   RowBox[{"(*", 
    RowBox[{"Eq", ".", " ", 
     RowBox[{"(", "18", ")"}]}], "*)"}]}]}]], "Input",
 CellChangeTimes->{{3.858283357895323*^9, 3.858283479738064*^9}, 
   3.858397754301363*^9, {3.886060735687079*^9, 3.886060739888051*^9}},
 CellLabel->"In[98]:=",ExpressionUUID->"57e47ec7-697f-4fb9-9d98-9ead37123d2a"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", 
   RowBox[{"16", " ", 
    SuperscriptBox["r", "4"]}]], 
  RowBox[{"G", " ", "\[Rho]", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      FractionBox["1", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["r", "2"], "+", 
          SuperscriptBox["r1", "2"], "-", 
          RowBox[{"2", " ", "r", " ", "r1", " ", 
           RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}], ")"}], 
        RowBox[{"3", "/", "2"}]]], 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"4", " ", 
         SuperscriptBox["r1", "4"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"9", " ", 
            SuperscriptBox["r", "2"]}], "+", 
           RowBox[{"4", " ", 
            SuperscriptBox["r1", "2"]}]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "\[Lambda]1"}], "+", "\[Lambda]2"}], ")"}]}], "-", 
        RowBox[{"5", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["r", "2"], "+", 
            SuperscriptBox["r1", "2"]}], ")"}], "3"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "\[Lambda]1"}], "+", "\[Lambda]2"}], ")"}], " ", 
         SqrtBox[
          RowBox[{"1", "-", 
           FractionBox[
            RowBox[{"2", " ", "r", " ", "r1", " ", 
             RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], 
            RowBox[{
             SuperscriptBox["r", "2"], "+", 
             SuperscriptBox["r1", "2"]}]]}]]}], "+", 
        RowBox[{"6", " ", 
         SuperscriptBox["r", "2"], " ", 
         SuperscriptBox["r1", "4"], " ", 
         RowBox[{"Cos", "[", 
          RowBox[{"2", " ", "\[Theta]1"}], "]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "2"}], " ", "\[Lambda]1"}], "+", 
           RowBox[{"2", " ", "\[Lambda]2"}], "+", 
           RowBox[{"Sin", "[", 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{"\[Lambda]", "-", "\[Lambda]1"}], ")"}]}], "]"}], "-", 
           RowBox[{"Sin", "[", 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{"\[Lambda]", "-", "\[Lambda]2"}], ")"}]}], "]"}]}], 
          ")"}]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"5", " ", 
            SuperscriptBox["r", "6"], " ", 
            SqrtBox[
             RowBox[{"1", "-", 
              FractionBox[
               RowBox[{"2", " ", "r", " ", "r1", " ", 
                RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], 
               RowBox[{
                SuperscriptBox["r", "2"], "+", 
                SuperscriptBox["r1", "2"]}]]}]]}], "+", 
           RowBox[{
            SuperscriptBox["r1", "6"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "16"}], "+", 
              RowBox[{"5", " ", 
               SqrtBox[
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{"2", " ", "r", " ", "r1", " ", 
                   RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], 
                  RowBox[{
                   SuperscriptBox["r", "2"], "+", 
                   SuperscriptBox["r1", "2"]}]]}]]}]}], ")"}]}], "+", 
           RowBox[{
            SuperscriptBox["r", "2"], " ", 
            SuperscriptBox["r1", "4"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "52"}], "+", 
              RowBox[{"15", " ", 
               SqrtBox[
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{"2", " ", "r", " ", "r1", " ", 
                   RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], 
                  RowBox[{
                   SuperscriptBox["r", "2"], "+", 
                   SuperscriptBox["r1", "2"]}]]}]]}]}], ")"}]}], "+", 
           RowBox[{
            SuperscriptBox["r", "4"], " ", 
            SuperscriptBox["r1", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "16"}], "+", 
              RowBox[{"15", " ", 
               SqrtBox[
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{"2", " ", "r", " ", "r1", " ", 
                   RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], 
                  RowBox[{
                   SuperscriptBox["r", "2"], "+", 
                   SuperscriptBox["r1", "2"]}]]}]]}]}], ")"}]}]}], ")"}], " ", 
         RowBox[{"Cos", "[", 
          RowBox[{
           RowBox[{"2", " ", "\[Lambda]"}], "-", "\[Lambda]1", "-", 
           "\[Lambda]2"}], "]"}], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{"\[Lambda]1", "-", "\[Lambda]2"}], "]"}]}], "+", 
        RowBox[{"2", " ", "r", " ", "r1", " ", 
         RowBox[{"Cos", "[", "\[Theta]1", "]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "\[Lambda]1"}], "+", "\[Lambda]2"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"5", " ", 
               SuperscriptBox["r", "4"], " ", 
               SqrtBox[
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{"2", " ", "r", " ", "r1", " ", 
                   RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], 
                  RowBox[{
                   SuperscriptBox["r", "2"], "+", 
                   SuperscriptBox["r1", "2"]}]]}]]}], "+", 
              RowBox[{
               SuperscriptBox["r1", "4"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "24"}], "+", 
                 RowBox[{"5", " ", 
                  SqrtBox[
                   RowBox[{"1", "-", 
                    FractionBox[
                    RowBox[{"2", " ", "r", " ", "r1", " ", 
                    RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], 
                    RowBox[{
                    SuperscriptBox["r", "2"], "+", 
                    SuperscriptBox["r1", "2"]}]]}]]}]}], ")"}]}], "+", 
              RowBox[{"2", " ", 
               SuperscriptBox["r", "2"], " ", 
               SuperscriptBox["r1", "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "4"}], "+", 
                 RowBox[{"5", " ", 
                  SqrtBox[
                   RowBox[{"1", "-", 
                    FractionBox[
                    RowBox[{"2", " ", "r", " ", "r1", " ", 
                    RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], 
                    RowBox[{
                    SuperscriptBox["r", "2"], "+", 
                    SuperscriptBox["r1", "2"]}]]}]]}]}], ")"}]}]}], ")"}]}], 
           "-", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox["r", "2"], "+", 
              SuperscriptBox["r1", "2"]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"5", " ", 
               SuperscriptBox["r", "2"], " ", 
               SqrtBox[
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{"2", " ", "r", " ", "r1", " ", 
                   RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], 
                  RowBox[{
                   SuperscriptBox["r", "2"], "+", 
                   SuperscriptBox["r1", "2"]}]]}]]}], "+", 
              RowBox[{
               SuperscriptBox["r1", "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "24"}], "+", 
                 RowBox[{"5", " ", 
                  SqrtBox[
                   RowBox[{"1", "-", 
                    FractionBox[
                    RowBox[{"2", " ", "r", " ", "r1", " ", 
                    RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], 
                    RowBox[{
                    SuperscriptBox["r", "2"], "+", 
                    SuperscriptBox["r1", "2"]}]]}]]}]}], ")"}]}]}], ")"}], 
            " ", 
            RowBox[{"Cos", "[", 
             RowBox[{
              RowBox[{"2", " ", "\[Lambda]"}], "-", "\[Lambda]1", "-", 
              "\[Lambda]2"}], "]"}], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"\[Lambda]1", "-", "\[Lambda]2"}], "]"}]}]}], ")"}]}]}], 
       ")"}]}], "-", 
     RowBox[{
      FractionBox["1", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["r", "2"], "+", 
          SuperscriptBox["r2", "2"], "-", 
          RowBox[{"2", " ", "r", " ", "r2", " ", 
           RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}], ")"}], 
        RowBox[{"3", "/", "2"}]]], 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"4", " ", 
         SuperscriptBox["r2", "4"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"9", " ", 
            SuperscriptBox["r", "2"]}], "+", 
           RowBox[{"4", " ", 
            SuperscriptBox["r2", "2"]}]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "\[Lambda]1"}], "+", "\[Lambda]2"}], ")"}]}], "-", 
        RowBox[{"5", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["r", "2"], "+", 
            SuperscriptBox["r2", "2"]}], ")"}], "3"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "\[Lambda]1"}], "+", "\[Lambda]2"}], ")"}], " ", 
         SqrtBox[
          RowBox[{"1", "-", 
           FractionBox[
            RowBox[{"2", " ", "r", " ", "r2", " ", 
             RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], 
            RowBox[{
             SuperscriptBox["r", "2"], "+", 
             SuperscriptBox["r2", "2"]}]]}]]}], "+", 
        RowBox[{"6", " ", 
         SuperscriptBox["r", "2"], " ", 
         SuperscriptBox["r2", "4"], " ", 
         RowBox[{"Cos", "[", 
          RowBox[{"2", " ", "\[Theta]1"}], "]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "2"}], " ", "\[Lambda]1"}], "+", 
           RowBox[{"2", " ", "\[Lambda]2"}], "+", 
           RowBox[{"Sin", "[", 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{"\[Lambda]", "-", "\[Lambda]1"}], ")"}]}], "]"}], "-", 
           RowBox[{"Sin", "[", 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{"\[Lambda]", "-", "\[Lambda]2"}], ")"}]}], "]"}]}], 
          ")"}]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"5", " ", 
            SuperscriptBox["r", "6"], " ", 
            SqrtBox[
             RowBox[{"1", "-", 
              FractionBox[
               RowBox[{"2", " ", "r", " ", "r2", " ", 
                RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], 
               RowBox[{
                SuperscriptBox["r", "2"], "+", 
                SuperscriptBox["r2", "2"]}]]}]]}], "+", 
           RowBox[{
            SuperscriptBox["r2", "6"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "16"}], "+", 
              RowBox[{"5", " ", 
               SqrtBox[
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{"2", " ", "r", " ", "r2", " ", 
                   RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], 
                  RowBox[{
                   SuperscriptBox["r", "2"], "+", 
                   SuperscriptBox["r2", "2"]}]]}]]}]}], ")"}]}], "+", 
           RowBox[{
            SuperscriptBox["r", "2"], " ", 
            SuperscriptBox["r2", "4"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "52"}], "+", 
              RowBox[{"15", " ", 
               SqrtBox[
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{"2", " ", "r", " ", "r2", " ", 
                   RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], 
                  RowBox[{
                   SuperscriptBox["r", "2"], "+", 
                   SuperscriptBox["r2", "2"]}]]}]]}]}], ")"}]}], "+", 
           RowBox[{
            SuperscriptBox["r", "4"], " ", 
            SuperscriptBox["r2", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "16"}], "+", 
              RowBox[{"15", " ", 
               SqrtBox[
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{"2", " ", "r", " ", "r2", " ", 
                   RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], 
                  RowBox[{
                   SuperscriptBox["r", "2"], "+", 
                   SuperscriptBox["r2", "2"]}]]}]]}]}], ")"}]}]}], ")"}], " ", 
         RowBox[{"Cos", "[", 
          RowBox[{
           RowBox[{"2", " ", "\[Lambda]"}], "-", "\[Lambda]1", "-", 
           "\[Lambda]2"}], "]"}], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{"\[Lambda]1", "-", "\[Lambda]2"}], "]"}]}], "+", 
        RowBox[{"2", " ", "r", " ", "r2", " ", 
         RowBox[{"Cos", "[", "\[Theta]1", "]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "\[Lambda]1"}], "+", "\[Lambda]2"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"5", " ", 
               SuperscriptBox["r", "4"], " ", 
               SqrtBox[
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{"2", " ", "r", " ", "r2", " ", 
                   RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], 
                  RowBox[{
                   SuperscriptBox["r", "2"], "+", 
                   SuperscriptBox["r2", "2"]}]]}]]}], "+", 
              RowBox[{
               SuperscriptBox["r2", "4"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "24"}], "+", 
                 RowBox[{"5", " ", 
                  SqrtBox[
                   RowBox[{"1", "-", 
                    FractionBox[
                    RowBox[{"2", " ", "r", " ", "r2", " ", 
                    RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], 
                    RowBox[{
                    SuperscriptBox["r", "2"], "+", 
                    SuperscriptBox["r2", "2"]}]]}]]}]}], ")"}]}], "+", 
              RowBox[{"2", " ", 
               SuperscriptBox["r", "2"], " ", 
               SuperscriptBox["r2", "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "4"}], "+", 
                 RowBox[{"5", " ", 
                  SqrtBox[
                   RowBox[{"1", "-", 
                    FractionBox[
                    RowBox[{"2", " ", "r", " ", "r2", " ", 
                    RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], 
                    RowBox[{
                    SuperscriptBox["r", "2"], "+", 
                    SuperscriptBox["r2", "2"]}]]}]]}]}], ")"}]}]}], ")"}]}], 
           "-", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox["r", "2"], "+", 
              SuperscriptBox["r2", "2"]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"5", " ", 
               SuperscriptBox["r", "2"], " ", 
               SqrtBox[
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{"2", " ", "r", " ", "r2", " ", 
                   RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], 
                  RowBox[{
                   SuperscriptBox["r", "2"], "+", 
                   SuperscriptBox["r2", "2"]}]]}]]}], "+", 
              RowBox[{
               SuperscriptBox["r2", "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "24"}], "+", 
                 RowBox[{"5", " ", 
                  SqrtBox[
                   RowBox[{"1", "-", 
                    FractionBox[
                    RowBox[{"2", " ", "r", " ", "r2", " ", 
                    RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], 
                    RowBox[{
                    SuperscriptBox["r", "2"], "+", 
                    SuperscriptBox["r2", "2"]}]]}]]}]}], ")"}]}]}], ")"}], 
            " ", 
            RowBox[{"Cos", "[", 
             RowBox[{
              RowBox[{"2", " ", "\[Lambda]"}], "-", "\[Lambda]1", "-", 
              "\[Lambda]2"}], "]"}], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"\[Lambda]1", "-", "\[Lambda]2"}], "]"}]}]}], ")"}]}]}], 
       ")"}]}], "-", 
     RowBox[{
      FractionBox["1", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["r", "2"], "+", 
          SuperscriptBox["r1", "2"], "-", 
          RowBox[{"2", " ", "r", " ", "r1", " ", 
           RowBox[{"Cos", "[", "\[Theta]2", "]"}]}]}], ")"}], 
        RowBox[{"3", "/", "2"}]]], 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"4", " ", 
         SuperscriptBox["r1", "4"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"9", " ", 
            SuperscriptBox["r", "2"]}], "+", 
           RowBox[{"4", " ", 
            SuperscriptBox["r1", "2"]}]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "\[Lambda]1"}], "+", "\[Lambda]2"}], ")"}]}], "-", 
        RowBox[{"5", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["r", "2"], "+", 
            SuperscriptBox["r1", "2"]}], ")"}], "3"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "\[Lambda]1"}], "+", "\[Lambda]2"}], ")"}], " ", 
         SqrtBox[
          RowBox[{"1", "-", 
           FractionBox[
            RowBox[{"2", " ", "r", " ", "r1", " ", 
             RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], 
            RowBox[{
             SuperscriptBox["r", "2"], "+", 
             SuperscriptBox["r1", "2"]}]]}]]}], "+", 
        RowBox[{"6", " ", 
         SuperscriptBox["r", "2"], " ", 
         SuperscriptBox["r1", "4"], " ", 
         RowBox[{"Cos", "[", 
          RowBox[{"2", " ", "\[Theta]2"}], "]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "2"}], " ", "\[Lambda]1"}], "+", 
           RowBox[{"2", " ", "\[Lambda]2"}], "+", 
           RowBox[{"Sin", "[", 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{"\[Lambda]", "-", "\[Lambda]1"}], ")"}]}], "]"}], "-", 
           RowBox[{"Sin", "[", 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{"\[Lambda]", "-", "\[Lambda]2"}], ")"}]}], "]"}]}], 
          ")"}]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"5", " ", 
            SuperscriptBox["r", "6"], " ", 
            SqrtBox[
             RowBox[{"1", "-", 
              FractionBox[
               RowBox[{"2", " ", "r", " ", "r1", " ", 
                RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], 
               RowBox[{
                SuperscriptBox["r", "2"], "+", 
                SuperscriptBox["r1", "2"]}]]}]]}], "+", 
           RowBox[{
            SuperscriptBox["r1", "6"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "16"}], "+", 
              RowBox[{"5", " ", 
               SqrtBox[
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{"2", " ", "r", " ", "r1", " ", 
                   RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], 
                  RowBox[{
                   SuperscriptBox["r", "2"], "+", 
                   SuperscriptBox["r1", "2"]}]]}]]}]}], ")"}]}], "+", 
           RowBox[{
            SuperscriptBox["r", "2"], " ", 
            SuperscriptBox["r1", "4"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "52"}], "+", 
              RowBox[{"15", " ", 
               SqrtBox[
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{"2", " ", "r", " ", "r1", " ", 
                   RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], 
                  RowBox[{
                   SuperscriptBox["r", "2"], "+", 
                   SuperscriptBox["r1", "2"]}]]}]]}]}], ")"}]}], "+", 
           RowBox[{
            SuperscriptBox["r", "4"], " ", 
            SuperscriptBox["r1", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "16"}], "+", 
              RowBox[{"15", " ", 
               SqrtBox[
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{"2", " ", "r", " ", "r1", " ", 
                   RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], 
                  RowBox[{
                   SuperscriptBox["r", "2"], "+", 
                   SuperscriptBox["r1", "2"]}]]}]]}]}], ")"}]}]}], ")"}], " ", 
         RowBox[{"Cos", "[", 
          RowBox[{
           RowBox[{"2", " ", "\[Lambda]"}], "-", "\[Lambda]1", "-", 
           "\[Lambda]2"}], "]"}], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{"\[Lambda]1", "-", "\[Lambda]2"}], "]"}]}], "+", 
        RowBox[{"2", " ", "r", " ", "r1", " ", 
         RowBox[{"Cos", "[", "\[Theta]2", "]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "\[Lambda]1"}], "+", "\[Lambda]2"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"5", " ", 
               SuperscriptBox["r", "4"], " ", 
               SqrtBox[
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{"2", " ", "r", " ", "r1", " ", 
                   RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], 
                  RowBox[{
                   SuperscriptBox["r", "2"], "+", 
                   SuperscriptBox["r1", "2"]}]]}]]}], "+", 
              RowBox[{
               SuperscriptBox["r1", "4"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "24"}], "+", 
                 RowBox[{"5", " ", 
                  SqrtBox[
                   RowBox[{"1", "-", 
                    FractionBox[
                    RowBox[{"2", " ", "r", " ", "r1", " ", 
                    RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], 
                    RowBox[{
                    SuperscriptBox["r", "2"], "+", 
                    SuperscriptBox["r1", "2"]}]]}]]}]}], ")"}]}], "+", 
              RowBox[{"2", " ", 
               SuperscriptBox["r", "2"], " ", 
               SuperscriptBox["r1", "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "4"}], "+", 
                 RowBox[{"5", " ", 
                  SqrtBox[
                   RowBox[{"1", "-", 
                    FractionBox[
                    RowBox[{"2", " ", "r", " ", "r1", " ", 
                    RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], 
                    RowBox[{
                    SuperscriptBox["r", "2"], "+", 
                    SuperscriptBox["r1", "2"]}]]}]]}]}], ")"}]}]}], ")"}]}], 
           "-", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox["r", "2"], "+", 
              SuperscriptBox["r1", "2"]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"5", " ", 
               SuperscriptBox["r", "2"], " ", 
               SqrtBox[
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{"2", " ", "r", " ", "r1", " ", 
                   RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], 
                  RowBox[{
                   SuperscriptBox["r", "2"], "+", 
                   SuperscriptBox["r1", "2"]}]]}]]}], "+", 
              RowBox[{
               SuperscriptBox["r1", "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "24"}], "+", 
                 RowBox[{"5", " ", 
                  SqrtBox[
                   RowBox[{"1", "-", 
                    FractionBox[
                    RowBox[{"2", " ", "r", " ", "r1", " ", 
                    RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], 
                    RowBox[{
                    SuperscriptBox["r", "2"], "+", 
                    SuperscriptBox["r1", "2"]}]]}]]}]}], ")"}]}]}], ")"}], 
            " ", 
            RowBox[{"Cos", "[", 
             RowBox[{
              RowBox[{"2", " ", "\[Lambda]"}], "-", "\[Lambda]1", "-", 
              "\[Lambda]2"}], "]"}], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"\[Lambda]1", "-", "\[Lambda]2"}], "]"}]}]}], ")"}]}]}], 
       ")"}]}], "+", 
     RowBox[{
      FractionBox["1", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["r", "2"], "+", 
          SuperscriptBox["r2", "2"], "-", 
          RowBox[{"2", " ", "r", " ", "r2", " ", 
           RowBox[{"Cos", "[", "\[Theta]2", "]"}]}]}], ")"}], 
        RowBox[{"3", "/", "2"}]]], 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"4", " ", 
         SuperscriptBox["r2", "4"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"9", " ", 
            SuperscriptBox["r", "2"]}], "+", 
           RowBox[{"4", " ", 
            SuperscriptBox["r2", "2"]}]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "\[Lambda]1"}], "+", "\[Lambda]2"}], ")"}]}], "-", 
        RowBox[{"5", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["r", "2"], "+", 
            SuperscriptBox["r2", "2"]}], ")"}], "3"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "\[Lambda]1"}], "+", "\[Lambda]2"}], ")"}], " ", 
         SqrtBox[
          RowBox[{"1", "-", 
           FractionBox[
            RowBox[{"2", " ", "r", " ", "r2", " ", 
             RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], 
            RowBox[{
             SuperscriptBox["r", "2"], "+", 
             SuperscriptBox["r2", "2"]}]]}]]}], "+", 
        RowBox[{"6", " ", 
         SuperscriptBox["r", "2"], " ", 
         SuperscriptBox["r2", "4"], " ", 
         RowBox[{"Cos", "[", 
          RowBox[{"2", " ", "\[Theta]2"}], "]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "2"}], " ", "\[Lambda]1"}], "+", 
           RowBox[{"2", " ", "\[Lambda]2"}], "+", 
           RowBox[{"Sin", "[", 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{"\[Lambda]", "-", "\[Lambda]1"}], ")"}]}], "]"}], "-", 
           RowBox[{"Sin", "[", 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{"\[Lambda]", "-", "\[Lambda]2"}], ")"}]}], "]"}]}], 
          ")"}]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"5", " ", 
            SuperscriptBox["r", "6"], " ", 
            SqrtBox[
             RowBox[{"1", "-", 
              FractionBox[
               RowBox[{"2", " ", "r", " ", "r2", " ", 
                RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], 
               RowBox[{
                SuperscriptBox["r", "2"], "+", 
                SuperscriptBox["r2", "2"]}]]}]]}], "+", 
           RowBox[{
            SuperscriptBox["r2", "6"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "16"}], "+", 
              RowBox[{"5", " ", 
               SqrtBox[
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{"2", " ", "r", " ", "r2", " ", 
                   RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], 
                  RowBox[{
                   SuperscriptBox["r", "2"], "+", 
                   SuperscriptBox["r2", "2"]}]]}]]}]}], ")"}]}], "+", 
           RowBox[{
            SuperscriptBox["r", "2"], " ", 
            SuperscriptBox["r2", "4"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "52"}], "+", 
              RowBox[{"15", " ", 
               SqrtBox[
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{"2", " ", "r", " ", "r2", " ", 
                   RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], 
                  RowBox[{
                   SuperscriptBox["r", "2"], "+", 
                   SuperscriptBox["r2", "2"]}]]}]]}]}], ")"}]}], "+", 
           RowBox[{
            SuperscriptBox["r", "4"], " ", 
            SuperscriptBox["r2", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "16"}], "+", 
              RowBox[{"15", " ", 
               SqrtBox[
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{"2", " ", "r", " ", "r2", " ", 
                   RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], 
                  RowBox[{
                   SuperscriptBox["r", "2"], "+", 
                   SuperscriptBox["r2", "2"]}]]}]]}]}], ")"}]}]}], ")"}], " ", 
         RowBox[{"Cos", "[", 
          RowBox[{
           RowBox[{"2", " ", "\[Lambda]"}], "-", "\[Lambda]1", "-", 
           "\[Lambda]2"}], "]"}], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{"\[Lambda]1", "-", "\[Lambda]2"}], "]"}]}], "+", 
        RowBox[{"2", " ", "r", " ", "r2", " ", 
         RowBox[{"Cos", "[", "\[Theta]2", "]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "\[Lambda]1"}], "+", "\[Lambda]2"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"5", " ", 
               SuperscriptBox["r", "4"], " ", 
               SqrtBox[
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{"2", " ", "r", " ", "r2", " ", 
                   RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], 
                  RowBox[{
                   SuperscriptBox["r", "2"], "+", 
                   SuperscriptBox["r2", "2"]}]]}]]}], "+", 
              RowBox[{
               SuperscriptBox["r2", "4"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "24"}], "+", 
                 RowBox[{"5", " ", 
                  SqrtBox[
                   RowBox[{"1", "-", 
                    FractionBox[
                    RowBox[{"2", " ", "r", " ", "r2", " ", 
                    RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], 
                    RowBox[{
                    SuperscriptBox["r", "2"], "+", 
                    SuperscriptBox["r2", "2"]}]]}]]}]}], ")"}]}], "+", 
              RowBox[{"2", " ", 
               SuperscriptBox["r", "2"], " ", 
               SuperscriptBox["r2", "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "4"}], "+", 
                 RowBox[{"5", " ", 
                  SqrtBox[
                   RowBox[{"1", "-", 
                    FractionBox[
                    RowBox[{"2", " ", "r", " ", "r2", " ", 
                    RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], 
                    RowBox[{
                    SuperscriptBox["r", "2"], "+", 
                    SuperscriptBox["r2", "2"]}]]}]]}]}], ")"}]}]}], ")"}]}], 
           "-", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox["r", "2"], "+", 
              SuperscriptBox["r2", "2"]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"5", " ", 
               SuperscriptBox["r", "2"], " ", 
               SqrtBox[
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{"2", " ", "r", " ", "r2", " ", 
                   RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], 
                  RowBox[{
                   SuperscriptBox["r", "2"], "+", 
                   SuperscriptBox["r2", "2"]}]]}]]}], "+", 
              RowBox[{
               SuperscriptBox["r2", "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "24"}], "+", 
                 RowBox[{"5", " ", 
                  SqrtBox[
                   RowBox[{"1", "-", 
                    FractionBox[
                    RowBox[{"2", " ", "r", " ", "r2", " ", 
                    RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], 
                    RowBox[{
                    SuperscriptBox["r", "2"], "+", 
                    SuperscriptBox["r2", "2"]}]]}]]}]}], ")"}]}]}], ")"}], 
            " ", 
            RowBox[{"Cos", "[", 
             RowBox[{
              RowBox[{"2", " ", "\[Lambda]"}], "-", "\[Lambda]1", "-", 
              "\[Lambda]2"}], "]"}], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"\[Lambda]1", "-", "\[Lambda]2"}], "]"}]}]}], ")"}]}]}], 
       ")"}]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{3.8582842573273783`*^9, 3.858284366860291*^9, 
  3.8582879344487047`*^9, 3.85829254563162*^9, 3.858292798168713*^9, 
  3.8582970193908377`*^9, 3.858297869774179*^9, 3.858298047486991*^9, 
  3.858396813034659*^9, 3.85839803779419*^9, 3.8583988141897173`*^9, 
  3.858398846837596*^9, 3.858399126173389*^9, 3.858630409329568*^9, 
  3.858630598705652*^9, 3.858797304991675*^9, 3.8588076018505096`*^9, 
  3.859844308876851*^9, 3.860015255613817*^9, 3.876659300325987*^9, 
  3.886060821645821*^9},
 CellLabel->"Out[98]=",ExpressionUUID->"7eaa7fd5-5d72-4e86-a516-777314b573ea"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Vyyz", "=", 
  RowBox[{
   FractionBox[
    RowBox[{"G", "*", "\[Rho]"}], 
    RowBox[{"16", "*", 
     SuperscriptBox["r", "4"]}]], "*", 
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{"V22", "-", "Q22", "+", "W22", "+", "S22", "+", "T2"}], 
      SuperscriptBox["l22", "3"]], "-", 
     FractionBox[
      RowBox[{"V12", "-", "Q12", "+", "W12", "+", "S12", "+", "T1"}], 
      SuperscriptBox["l12", "3"]], "-", 
     FractionBox[
      RowBox[{"V21", "-", "Q21", "+", "W21", "+", "S21", "+", "T2"}], 
      SuperscriptBox["l21", "3"]], "+", 
     FractionBox[
      RowBox[{"V11", "-", "Q11", "+", "W11", "+", "S11", "+", "T1"}], 
      SuperscriptBox["l11", "3"]]}], ")"}], 
   RowBox[{"(*", 
    RowBox[{"Eq", ".", " ", 
     RowBox[{"(", "19", ")"}]}], "*)"}]}]}]], "Input",
 CellChangeTimes->{{3.8582834958762627`*^9, 3.858283573997459*^9}, {
   3.858298008178405*^9, 3.8582980103000917`*^9}, 3.858397758806078*^9, {
   3.886060752268618*^9, 3.886060754297873*^9}},
 CellLabel->"In[99]:=",ExpressionUUID->"cc2dc5e6-fcec-45ac-9f61-65c166538f39"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", 
   RowBox[{"16", " ", 
    SuperscriptBox["r", "4"]}]], 
  RowBox[{"G", " ", "\[Rho]", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      FractionBox["1", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["r", "2"], "+", 
          SuperscriptBox["r1", "2"], "-", 
          RowBox[{"2", " ", "r", " ", "r1", " ", 
           RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}], ")"}], 
        RowBox[{"3", "/", "2"}]]], 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"4", " ", 
         SuperscriptBox["r1", "4"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"9", " ", 
            SuperscriptBox["r", "2"]}], "+", 
           RowBox[{"4", " ", 
            SuperscriptBox["r1", "2"]}]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "\[Lambda]1"}], "+", "\[Lambda]2"}], ")"}]}], "-", 
        RowBox[{"5", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["r", "2"], "+", 
            SuperscriptBox["r1", "2"]}], ")"}], "3"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "\[Lambda]1"}], "+", "\[Lambda]2"}], ")"}], " ", 
         SqrtBox[
          RowBox[{"1", "-", 
           FractionBox[
            RowBox[{"2", " ", "r", " ", "r1", " ", 
             RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], 
            RowBox[{
             SuperscriptBox["r", "2"], "+", 
             SuperscriptBox["r1", "2"]}]]}]]}], "+", 
        RowBox[{"6", " ", 
         SuperscriptBox["r", "2"], " ", 
         SuperscriptBox["r1", "4"], " ", 
         RowBox[{"Cos", "[", 
          RowBox[{"2", " ", "\[Theta]1"}], "]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "2"}], " ", "\[Lambda]1"}], "+", 
           RowBox[{"2", " ", "\[Lambda]2"}], "-", 
           RowBox[{"Sin", "[", 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{"\[Lambda]", "-", "\[Lambda]1"}], ")"}]}], "]"}], "+", 
           RowBox[{"Sin", "[", 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{"\[Lambda]", "-", "\[Lambda]2"}], ")"}]}], "]"}]}], 
          ")"}]}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"5", " ", 
            SuperscriptBox["r", "6"], " ", 
            SqrtBox[
             RowBox[{"1", "-", 
              FractionBox[
               RowBox[{"2", " ", "r", " ", "r1", " ", 
                RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], 
               RowBox[{
                SuperscriptBox["r", "2"], "+", 
                SuperscriptBox["r1", "2"]}]]}]]}], "+", 
           RowBox[{
            SuperscriptBox["r1", "6"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "16"}], "+", 
              RowBox[{"5", " ", 
               SqrtBox[
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{"2", " ", "r", " ", "r1", " ", 
                   RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], 
                  RowBox[{
                   SuperscriptBox["r", "2"], "+", 
                   SuperscriptBox["r1", "2"]}]]}]]}]}], ")"}]}], "+", 
           RowBox[{
            SuperscriptBox["r", "2"], " ", 
            SuperscriptBox["r1", "4"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "52"}], "+", 
              RowBox[{"15", " ", 
               SqrtBox[
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{"2", " ", "r", " ", "r1", " ", 
                   RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], 
                  RowBox[{
                   SuperscriptBox["r", "2"], "+", 
                   SuperscriptBox["r1", "2"]}]]}]]}]}], ")"}]}], "+", 
           RowBox[{
            SuperscriptBox["r", "4"], " ", 
            SuperscriptBox["r1", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "16"}], "+", 
              RowBox[{"15", " ", 
               SqrtBox[
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{"2", " ", "r", " ", "r1", " ", 
                   RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], 
                  RowBox[{
                   SuperscriptBox["r", "2"], "+", 
                   SuperscriptBox["r1", "2"]}]]}]]}]}], ")"}]}]}], ")"}], " ", 
         RowBox[{"Cos", "[", 
          RowBox[{
           RowBox[{"2", " ", "\[Lambda]"}], "-", "\[Lambda]1", "-", 
           "\[Lambda]2"}], "]"}], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{"\[Lambda]1", "-", "\[Lambda]2"}], "]"}]}], "+", 
        RowBox[{"2", " ", "r", " ", "r1", " ", 
         RowBox[{"Cos", "[", "\[Theta]1", "]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "\[Lambda]1"}], "+", "\[Lambda]2"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"5", " ", 
               SuperscriptBox["r", "4"], " ", 
               SqrtBox[
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{"2", " ", "r", " ", "r1", " ", 
                   RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], 
                  RowBox[{
                   SuperscriptBox["r", "2"], "+", 
                   SuperscriptBox["r1", "2"]}]]}]]}], "+", 
              RowBox[{
               SuperscriptBox["r1", "4"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "24"}], "+", 
                 RowBox[{"5", " ", 
                  SqrtBox[
                   RowBox[{"1", "-", 
                    FractionBox[
                    RowBox[{"2", " ", "r", " ", "r1", " ", 
                    RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], 
                    RowBox[{
                    SuperscriptBox["r", "2"], "+", 
                    SuperscriptBox["r1", "2"]}]]}]]}]}], ")"}]}], "+", 
              RowBox[{"2", " ", 
               SuperscriptBox["r", "2"], " ", 
               SuperscriptBox["r1", "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "4"}], "+", 
                 RowBox[{"5", " ", 
                  SqrtBox[
                   RowBox[{"1", "-", 
                    FractionBox[
                    RowBox[{"2", " ", "r", " ", "r1", " ", 
                    RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], 
                    RowBox[{
                    SuperscriptBox["r", "2"], "+", 
                    SuperscriptBox["r1", "2"]}]]}]]}]}], ")"}]}]}], ")"}]}], 
           "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox["r", "2"], "+", 
              SuperscriptBox["r1", "2"]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"5", " ", 
               SuperscriptBox["r", "2"], " ", 
               SqrtBox[
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{"2", " ", "r", " ", "r1", " ", 
                   RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], 
                  RowBox[{
                   SuperscriptBox["r", "2"], "+", 
                   SuperscriptBox["r1", "2"]}]]}]]}], "+", 
              RowBox[{
               SuperscriptBox["r1", "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "24"}], "+", 
                 RowBox[{"5", " ", 
                  SqrtBox[
                   RowBox[{"1", "-", 
                    FractionBox[
                    RowBox[{"2", " ", "r", " ", "r1", " ", 
                    RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], 
                    RowBox[{
                    SuperscriptBox["r", "2"], "+", 
                    SuperscriptBox["r1", "2"]}]]}]]}]}], ")"}]}]}], ")"}], 
            " ", 
            RowBox[{"Cos", "[", 
             RowBox[{
              RowBox[{"2", " ", "\[Lambda]"}], "-", "\[Lambda]1", "-", 
              "\[Lambda]2"}], "]"}], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"\[Lambda]1", "-", "\[Lambda]2"}], "]"}]}]}], ")"}]}]}], 
       ")"}]}], "-", 
     RowBox[{
      FractionBox["1", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["r", "2"], "+", 
          SuperscriptBox["r2", "2"], "-", 
          RowBox[{"2", " ", "r", " ", "r2", " ", 
           RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}], ")"}], 
        RowBox[{"3", "/", "2"}]]], 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"4", " ", 
         SuperscriptBox["r2", "4"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"9", " ", 
            SuperscriptBox["r", "2"]}], "+", 
           RowBox[{"4", " ", 
            SuperscriptBox["r2", "2"]}]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "\[Lambda]1"}], "+", "\[Lambda]2"}], ")"}]}], "-", 
        RowBox[{"5", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["r", "2"], "+", 
            SuperscriptBox["r2", "2"]}], ")"}], "3"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "\[Lambda]1"}], "+", "\[Lambda]2"}], ")"}], " ", 
         SqrtBox[
          RowBox[{"1", "-", 
           FractionBox[
            RowBox[{"2", " ", "r", " ", "r2", " ", 
             RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], 
            RowBox[{
             SuperscriptBox["r", "2"], "+", 
             SuperscriptBox["r2", "2"]}]]}]]}], "+", 
        RowBox[{"6", " ", 
         SuperscriptBox["r", "2"], " ", 
         SuperscriptBox["r2", "4"], " ", 
         RowBox[{"Cos", "[", 
          RowBox[{"2", " ", "\[Theta]1"}], "]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "2"}], " ", "\[Lambda]1"}], "+", 
           RowBox[{"2", " ", "\[Lambda]2"}], "-", 
           RowBox[{"Sin", "[", 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{"\[Lambda]", "-", "\[Lambda]1"}], ")"}]}], "]"}], "+", 
           RowBox[{"Sin", "[", 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{"\[Lambda]", "-", "\[Lambda]2"}], ")"}]}], "]"}]}], 
          ")"}]}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"5", " ", 
            SuperscriptBox["r", "6"], " ", 
            SqrtBox[
             RowBox[{"1", "-", 
              FractionBox[
               RowBox[{"2", " ", "r", " ", "r2", " ", 
                RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], 
               RowBox[{
                SuperscriptBox["r", "2"], "+", 
                SuperscriptBox["r2", "2"]}]]}]]}], "+", 
           RowBox[{
            SuperscriptBox["r2", "6"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "16"}], "+", 
              RowBox[{"5", " ", 
               SqrtBox[
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{"2", " ", "r", " ", "r2", " ", 
                   RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], 
                  RowBox[{
                   SuperscriptBox["r", "2"], "+", 
                   SuperscriptBox["r2", "2"]}]]}]]}]}], ")"}]}], "+", 
           RowBox[{
            SuperscriptBox["r", "2"], " ", 
            SuperscriptBox["r2", "4"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "52"}], "+", 
              RowBox[{"15", " ", 
               SqrtBox[
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{"2", " ", "r", " ", "r2", " ", 
                   RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], 
                  RowBox[{
                   SuperscriptBox["r", "2"], "+", 
                   SuperscriptBox["r2", "2"]}]]}]]}]}], ")"}]}], "+", 
           RowBox[{
            SuperscriptBox["r", "4"], " ", 
            SuperscriptBox["r2", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "16"}], "+", 
              RowBox[{"15", " ", 
               SqrtBox[
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{"2", " ", "r", " ", "r2", " ", 
                   RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], 
                  RowBox[{
                   SuperscriptBox["r", "2"], "+", 
                   SuperscriptBox["r2", "2"]}]]}]]}]}], ")"}]}]}], ")"}], " ", 
         RowBox[{"Cos", "[", 
          RowBox[{
           RowBox[{"2", " ", "\[Lambda]"}], "-", "\[Lambda]1", "-", 
           "\[Lambda]2"}], "]"}], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{"\[Lambda]1", "-", "\[Lambda]2"}], "]"}]}], "+", 
        RowBox[{"2", " ", "r", " ", "r2", " ", 
         RowBox[{"Cos", "[", "\[Theta]1", "]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "\[Lambda]1"}], "+", "\[Lambda]2"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"5", " ", 
               SuperscriptBox["r", "4"], " ", 
               SqrtBox[
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{"2", " ", "r", " ", "r2", " ", 
                   RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], 
                  RowBox[{
                   SuperscriptBox["r", "2"], "+", 
                   SuperscriptBox["r2", "2"]}]]}]]}], "+", 
              RowBox[{
               SuperscriptBox["r2", "4"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "24"}], "+", 
                 RowBox[{"5", " ", 
                  SqrtBox[
                   RowBox[{"1", "-", 
                    FractionBox[
                    RowBox[{"2", " ", "r", " ", "r2", " ", 
                    RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], 
                    RowBox[{
                    SuperscriptBox["r", "2"], "+", 
                    SuperscriptBox["r2", "2"]}]]}]]}]}], ")"}]}], "+", 
              RowBox[{"2", " ", 
               SuperscriptBox["r", "2"], " ", 
               SuperscriptBox["r2", "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "4"}], "+", 
                 RowBox[{"5", " ", 
                  SqrtBox[
                   RowBox[{"1", "-", 
                    FractionBox[
                    RowBox[{"2", " ", "r", " ", "r2", " ", 
                    RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], 
                    RowBox[{
                    SuperscriptBox["r", "2"], "+", 
                    SuperscriptBox["r2", "2"]}]]}]]}]}], ")"}]}]}], ")"}]}], 
           "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox["r", "2"], "+", 
              SuperscriptBox["r2", "2"]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"5", " ", 
               SuperscriptBox["r", "2"], " ", 
               SqrtBox[
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{"2", " ", "r", " ", "r2", " ", 
                   RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], 
                  RowBox[{
                   SuperscriptBox["r", "2"], "+", 
                   SuperscriptBox["r2", "2"]}]]}]]}], "+", 
              RowBox[{
               SuperscriptBox["r2", "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "24"}], "+", 
                 RowBox[{"5", " ", 
                  SqrtBox[
                   RowBox[{"1", "-", 
                    FractionBox[
                    RowBox[{"2", " ", "r", " ", "r2", " ", 
                    RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], 
                    RowBox[{
                    SuperscriptBox["r", "2"], "+", 
                    SuperscriptBox["r2", "2"]}]]}]]}]}], ")"}]}]}], ")"}], 
            " ", 
            RowBox[{"Cos", "[", 
             RowBox[{
              RowBox[{"2", " ", "\[Lambda]"}], "-", "\[Lambda]1", "-", 
              "\[Lambda]2"}], "]"}], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"\[Lambda]1", "-", "\[Lambda]2"}], "]"}]}]}], ")"}]}]}], 
       ")"}]}], "-", 
     RowBox[{
      FractionBox["1", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["r", "2"], "+", 
          SuperscriptBox["r1", "2"], "-", 
          RowBox[{"2", " ", "r", " ", "r1", " ", 
           RowBox[{"Cos", "[", "\[Theta]2", "]"}]}]}], ")"}], 
        RowBox[{"3", "/", "2"}]]], 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"4", " ", 
         SuperscriptBox["r1", "4"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"9", " ", 
            SuperscriptBox["r", "2"]}], "+", 
           RowBox[{"4", " ", 
            SuperscriptBox["r1", "2"]}]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "\[Lambda]1"}], "+", "\[Lambda]2"}], ")"}]}], "-", 
        RowBox[{"5", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["r", "2"], "+", 
            SuperscriptBox["r1", "2"]}], ")"}], "3"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "\[Lambda]1"}], "+", "\[Lambda]2"}], ")"}], " ", 
         SqrtBox[
          RowBox[{"1", "-", 
           FractionBox[
            RowBox[{"2", " ", "r", " ", "r1", " ", 
             RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], 
            RowBox[{
             SuperscriptBox["r", "2"], "+", 
             SuperscriptBox["r1", "2"]}]]}]]}], "+", 
        RowBox[{"6", " ", 
         SuperscriptBox["r", "2"], " ", 
         SuperscriptBox["r1", "4"], " ", 
         RowBox[{"Cos", "[", 
          RowBox[{"2", " ", "\[Theta]2"}], "]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "2"}], " ", "\[Lambda]1"}], "+", 
           RowBox[{"2", " ", "\[Lambda]2"}], "-", 
           RowBox[{"Sin", "[", 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{"\[Lambda]", "-", "\[Lambda]1"}], ")"}]}], "]"}], "+", 
           RowBox[{"Sin", "[", 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{"\[Lambda]", "-", "\[Lambda]2"}], ")"}]}], "]"}]}], 
          ")"}]}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"5", " ", 
            SuperscriptBox["r", "6"], " ", 
            SqrtBox[
             RowBox[{"1", "-", 
              FractionBox[
               RowBox[{"2", " ", "r", " ", "r1", " ", 
                RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], 
               RowBox[{
                SuperscriptBox["r", "2"], "+", 
                SuperscriptBox["r1", "2"]}]]}]]}], "+", 
           RowBox[{
            SuperscriptBox["r1", "6"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "16"}], "+", 
              RowBox[{"5", " ", 
               SqrtBox[
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{"2", " ", "r", " ", "r1", " ", 
                   RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], 
                  RowBox[{
                   SuperscriptBox["r", "2"], "+", 
                   SuperscriptBox["r1", "2"]}]]}]]}]}], ")"}]}], "+", 
           RowBox[{
            SuperscriptBox["r", "2"], " ", 
            SuperscriptBox["r1", "4"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "52"}], "+", 
              RowBox[{"15", " ", 
               SqrtBox[
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{"2", " ", "r", " ", "r1", " ", 
                   RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], 
                  RowBox[{
                   SuperscriptBox["r", "2"], "+", 
                   SuperscriptBox["r1", "2"]}]]}]]}]}], ")"}]}], "+", 
           RowBox[{
            SuperscriptBox["r", "4"], " ", 
            SuperscriptBox["r1", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "16"}], "+", 
              RowBox[{"15", " ", 
               SqrtBox[
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{"2", " ", "r", " ", "r1", " ", 
                   RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], 
                  RowBox[{
                   SuperscriptBox["r", "2"], "+", 
                   SuperscriptBox["r1", "2"]}]]}]]}]}], ")"}]}]}], ")"}], " ", 
         RowBox[{"Cos", "[", 
          RowBox[{
           RowBox[{"2", " ", "\[Lambda]"}], "-", "\[Lambda]1", "-", 
           "\[Lambda]2"}], "]"}], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{"\[Lambda]1", "-", "\[Lambda]2"}], "]"}]}], "+", 
        RowBox[{"2", " ", "r", " ", "r1", " ", 
         RowBox[{"Cos", "[", "\[Theta]2", "]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "\[Lambda]1"}], "+", "\[Lambda]2"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"5", " ", 
               SuperscriptBox["r", "4"], " ", 
               SqrtBox[
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{"2", " ", "r", " ", "r1", " ", 
                   RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], 
                  RowBox[{
                   SuperscriptBox["r", "2"], "+", 
                   SuperscriptBox["r1", "2"]}]]}]]}], "+", 
              RowBox[{
               SuperscriptBox["r1", "4"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "24"}], "+", 
                 RowBox[{"5", " ", 
                  SqrtBox[
                   RowBox[{"1", "-", 
                    FractionBox[
                    RowBox[{"2", " ", "r", " ", "r1", " ", 
                    RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], 
                    RowBox[{
                    SuperscriptBox["r", "2"], "+", 
                    SuperscriptBox["r1", "2"]}]]}]]}]}], ")"}]}], "+", 
              RowBox[{"2", " ", 
               SuperscriptBox["r", "2"], " ", 
               SuperscriptBox["r1", "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "4"}], "+", 
                 RowBox[{"5", " ", 
                  SqrtBox[
                   RowBox[{"1", "-", 
                    FractionBox[
                    RowBox[{"2", " ", "r", " ", "r1", " ", 
                    RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], 
                    RowBox[{
                    SuperscriptBox["r", "2"], "+", 
                    SuperscriptBox["r1", "2"]}]]}]]}]}], ")"}]}]}], ")"}]}], 
           "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox["r", "2"], "+", 
              SuperscriptBox["r1", "2"]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"5", " ", 
               SuperscriptBox["r", "2"], " ", 
               SqrtBox[
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{"2", " ", "r", " ", "r1", " ", 
                   RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], 
                  RowBox[{
                   SuperscriptBox["r", "2"], "+", 
                   SuperscriptBox["r1", "2"]}]]}]]}], "+", 
              RowBox[{
               SuperscriptBox["r1", "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "24"}], "+", 
                 RowBox[{"5", " ", 
                  SqrtBox[
                   RowBox[{"1", "-", 
                    FractionBox[
                    RowBox[{"2", " ", "r", " ", "r1", " ", 
                    RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], 
                    RowBox[{
                    SuperscriptBox["r", "2"], "+", 
                    SuperscriptBox["r1", "2"]}]]}]]}]}], ")"}]}]}], ")"}], 
            " ", 
            RowBox[{"Cos", "[", 
             RowBox[{
              RowBox[{"2", " ", "\[Lambda]"}], "-", "\[Lambda]1", "-", 
              "\[Lambda]2"}], "]"}], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"\[Lambda]1", "-", "\[Lambda]2"}], "]"}]}]}], ")"}]}]}], 
       ")"}]}], "+", 
     RowBox[{
      FractionBox["1", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["r", "2"], "+", 
          SuperscriptBox["r2", "2"], "-", 
          RowBox[{"2", " ", "r", " ", "r2", " ", 
           RowBox[{"Cos", "[", "\[Theta]2", "]"}]}]}], ")"}], 
        RowBox[{"3", "/", "2"}]]], 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"4", " ", 
         SuperscriptBox["r2", "4"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"9", " ", 
            SuperscriptBox["r", "2"]}], "+", 
           RowBox[{"4", " ", 
            SuperscriptBox["r2", "2"]}]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "\[Lambda]1"}], "+", "\[Lambda]2"}], ")"}]}], "-", 
        RowBox[{"5", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["r", "2"], "+", 
            SuperscriptBox["r2", "2"]}], ")"}], "3"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "\[Lambda]1"}], "+", "\[Lambda]2"}], ")"}], " ", 
         SqrtBox[
          RowBox[{"1", "-", 
           FractionBox[
            RowBox[{"2", " ", "r", " ", "r2", " ", 
             RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], 
            RowBox[{
             SuperscriptBox["r", "2"], "+", 
             SuperscriptBox["r2", "2"]}]]}]]}], "+", 
        RowBox[{"6", " ", 
         SuperscriptBox["r", "2"], " ", 
         SuperscriptBox["r2", "4"], " ", 
         RowBox[{"Cos", "[", 
          RowBox[{"2", " ", "\[Theta]2"}], "]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "2"}], " ", "\[Lambda]1"}], "+", 
           RowBox[{"2", " ", "\[Lambda]2"}], "-", 
           RowBox[{"Sin", "[", 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{"\[Lambda]", "-", "\[Lambda]1"}], ")"}]}], "]"}], "+", 
           RowBox[{"Sin", "[", 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{"\[Lambda]", "-", "\[Lambda]2"}], ")"}]}], "]"}]}], 
          ")"}]}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"5", " ", 
            SuperscriptBox["r", "6"], " ", 
            SqrtBox[
             RowBox[{"1", "-", 
              FractionBox[
               RowBox[{"2", " ", "r", " ", "r2", " ", 
                RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], 
               RowBox[{
                SuperscriptBox["r", "2"], "+", 
                SuperscriptBox["r2", "2"]}]]}]]}], "+", 
           RowBox[{
            SuperscriptBox["r2", "6"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "16"}], "+", 
              RowBox[{"5", " ", 
               SqrtBox[
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{"2", " ", "r", " ", "r2", " ", 
                   RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], 
                  RowBox[{
                   SuperscriptBox["r", "2"], "+", 
                   SuperscriptBox["r2", "2"]}]]}]]}]}], ")"}]}], "+", 
           RowBox[{
            SuperscriptBox["r", "2"], " ", 
            SuperscriptBox["r2", "4"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "52"}], "+", 
              RowBox[{"15", " ", 
               SqrtBox[
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{"2", " ", "r", " ", "r2", " ", 
                   RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], 
                  RowBox[{
                   SuperscriptBox["r", "2"], "+", 
                   SuperscriptBox["r2", "2"]}]]}]]}]}], ")"}]}], "+", 
           RowBox[{
            SuperscriptBox["r", "4"], " ", 
            SuperscriptBox["r2", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "16"}], "+", 
              RowBox[{"15", " ", 
               SqrtBox[
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{"2", " ", "r", " ", "r2", " ", 
                   RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], 
                  RowBox[{
                   SuperscriptBox["r", "2"], "+", 
                   SuperscriptBox["r2", "2"]}]]}]]}]}], ")"}]}]}], ")"}], " ", 
         RowBox[{"Cos", "[", 
          RowBox[{
           RowBox[{"2", " ", "\[Lambda]"}], "-", "\[Lambda]1", "-", 
           "\[Lambda]2"}], "]"}], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{"\[Lambda]1", "-", "\[Lambda]2"}], "]"}]}], "+", 
        RowBox[{"2", " ", "r", " ", "r2", " ", 
         RowBox[{"Cos", "[", "\[Theta]2", "]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "\[Lambda]1"}], "+", "\[Lambda]2"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"5", " ", 
               SuperscriptBox["r", "4"], " ", 
               SqrtBox[
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{"2", " ", "r", " ", "r2", " ", 
                   RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], 
                  RowBox[{
                   SuperscriptBox["r", "2"], "+", 
                   SuperscriptBox["r2", "2"]}]]}]]}], "+", 
              RowBox[{
               SuperscriptBox["r2", "4"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "24"}], "+", 
                 RowBox[{"5", " ", 
                  SqrtBox[
                   RowBox[{"1", "-", 
                    FractionBox[
                    RowBox[{"2", " ", "r", " ", "r2", " ", 
                    RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], 
                    RowBox[{
                    SuperscriptBox["r", "2"], "+", 
                    SuperscriptBox["r2", "2"]}]]}]]}]}], ")"}]}], "+", 
              RowBox[{"2", " ", 
               SuperscriptBox["r", "2"], " ", 
               SuperscriptBox["r2", "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "4"}], "+", 
                 RowBox[{"5", " ", 
                  SqrtBox[
                   RowBox[{"1", "-", 
                    FractionBox[
                    RowBox[{"2", " ", "r", " ", "r2", " ", 
                    RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], 
                    RowBox[{
                    SuperscriptBox["r", "2"], "+", 
                    SuperscriptBox["r2", "2"]}]]}]]}]}], ")"}]}]}], ")"}]}], 
           "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox["r", "2"], "+", 
              SuperscriptBox["r2", "2"]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"5", " ", 
               SuperscriptBox["r", "2"], " ", 
               SqrtBox[
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{"2", " ", "r", " ", "r2", " ", 
                   RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], 
                  RowBox[{
                   SuperscriptBox["r", "2"], "+", 
                   SuperscriptBox["r2", "2"]}]]}]]}], "+", 
              RowBox[{
               SuperscriptBox["r2", "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "24"}], "+", 
                 RowBox[{"5", " ", 
                  SqrtBox[
                   RowBox[{"1", "-", 
                    FractionBox[
                    RowBox[{"2", " ", "r", " ", "r2", " ", 
                    RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], 
                    RowBox[{
                    SuperscriptBox["r", "2"], "+", 
                    SuperscriptBox["r2", "2"]}]]}]]}]}], ")"}]}]}], ")"}], 
            " ", 
            RowBox[{"Cos", "[", 
             RowBox[{
              RowBox[{"2", " ", "\[Lambda]"}], "-", "\[Lambda]1", "-", 
              "\[Lambda]2"}], "]"}], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"\[Lambda]1", "-", "\[Lambda]2"}], "]"}]}]}], ")"}]}]}], 
       ")"}]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{
  3.8582842573725758`*^9, 3.85828436690558*^9, 3.858287934495082*^9, 
   3.858292545657968*^9, 3.858292798227023*^9, 3.85829701941899*^9, 
   3.858297869835017*^9, {3.8582980434511557`*^9, 3.858298047537448*^9}, 
   3.858396813099724*^9, 3.8583980379589*^9, 3.858398814277237*^9, 
   3.858398847057218*^9, 3.8583991263650723`*^9, 3.8586304093776693`*^9, 
   3.8586305987304993`*^9, 3.8587973050517797`*^9, 3.858807601909019*^9, 
   3.8598443088876543`*^9, 3.860015255732441*^9, 3.87665930041527*^9, 
   3.8860608216615963`*^9},
 CellLabel->"Out[99]=",ExpressionUUID->"1617d37b-989b-4ff2-aa36-2e2b2f9b2002"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ZonalBandVzz", "=", 
  RowBox[{
   FractionBox[
    RowBox[{"Pi", "*", "G", "*", "\[Rho]"}], 
    RowBox[{"3", "*", 
     SuperscriptBox["r", "3"]}]], "*", 
   RowBox[{"(", 
    RowBox[{
     FractionBox["E22", "l22"], "-", 
     FractionBox["E12", "l12"], "-", 
     FractionBox["E21", "l21"], "+", 
     FractionBox["E11", "l11"], "+", 
     RowBox[{"6", "*", "B2", "*", 
      RowBox[{"Log", "[", 
       FractionBox[
        RowBox[{"C22", "+", "l22"}], 
        RowBox[{"C12", "+", "l12"}]], "]"}]}], "+", 
     RowBox[{"6", "*", "B1", "*", 
      RowBox[{"Log", "[", 
       FractionBox[
        RowBox[{"C11", "+", "l11"}], 
        RowBox[{"C21", "+", "l21"}]], "]"}]}]}], ")"}], 
   RowBox[{"(*", 
    RowBox[{"Eq", ".", " ", 
     RowBox[{"(", "24", ")"}]}], "*)"}]}]}]], "Input",
 CellChangeTimes->{{3.858283704652554*^9, 3.858283735181143*^9}, 
   3.858396773291045*^9, {3.858397841559663*^9, 3.8583978421654987`*^9}, 
   3.858797265534786*^9, 3.858807205379614*^9, {3.87657628484651*^9, 
   3.876576285510323*^9}, {3.876659277876361*^9, 3.876659278073279*^9}, {
   3.886060769134544*^9, 3.886060771186158*^9}},
 CellLabel->
  "In[100]:=",ExpressionUUID->"cf56da0b-d475-4613-98f8-40b7bcff4998"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", 
   RowBox[{"3", " ", 
    SuperscriptBox["r", "3"]}]], 
  RowBox[{"G", " ", "\[Pi]", " ", "\[Rho]", " ", 
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{
       SuperscriptBox["r", "4"], "+", 
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        SuperscriptBox["r1", "2"]}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["r1", "4"]}], "-", 
       RowBox[{"r", " ", "r1", " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["r", "2"], "+", 
          RowBox[{"4", " ", 
           SuperscriptBox["r1", "2"]}]}], ")"}], " ", 
        RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], "-", 
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"3", " ", 
           SuperscriptBox["r", "2"]}], "+", 
          SuperscriptBox["r1", "2"]}], ")"}], " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"2", " ", "\[Theta]1"}], "]"}]}], "+", 
       RowBox[{"3", " ", 
        SuperscriptBox["r", "3"], " ", "r1", " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"3", " ", "\[Theta]1"}], "]"}]}]}], 
      SqrtBox[
       RowBox[{
        SuperscriptBox["r", "2"], "+", 
        SuperscriptBox["r1", "2"], "-", 
        RowBox[{"2", " ", "r", " ", "r1", " ", 
         RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]]], "-", 
     FractionBox[
      RowBox[{
       SuperscriptBox["r", "4"], "+", 
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        SuperscriptBox["r2", "2"]}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["r2", "4"]}], "-", 
       RowBox[{"r", " ", "r2", " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["r", "2"], "+", 
          RowBox[{"4", " ", 
           SuperscriptBox["r2", "2"]}]}], ")"}], " ", 
        RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], "-", 
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"3", " ", 
           SuperscriptBox["r", "2"]}], "+", 
          SuperscriptBox["r2", "2"]}], ")"}], " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"2", " ", "\[Theta]1"}], "]"}]}], "+", 
       RowBox[{"3", " ", 
        SuperscriptBox["r", "3"], " ", "r2", " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"3", " ", "\[Theta]1"}], "]"}]}]}], 
      SqrtBox[
       RowBox[{
        SuperscriptBox["r", "2"], "+", 
        SuperscriptBox["r2", "2"], "-", 
        RowBox[{"2", " ", "r", " ", "r2", " ", 
         RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]]], "-", 
     FractionBox[
      RowBox[{
       SuperscriptBox["r", "4"], "+", 
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        SuperscriptBox["r1", "2"]}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["r1", "4"]}], "-", 
       RowBox[{"r", " ", "r1", " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["r", "2"], "+", 
          RowBox[{"4", " ", 
           SuperscriptBox["r1", "2"]}]}], ")"}], " ", 
        RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], "-", 
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"3", " ", 
           SuperscriptBox["r", "2"]}], "+", 
          SuperscriptBox["r1", "2"]}], ")"}], " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"2", " ", "\[Theta]2"}], "]"}]}], "+", 
       RowBox[{"3", " ", 
        SuperscriptBox["r", "3"], " ", "r1", " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"3", " ", "\[Theta]2"}], "]"}]}]}], 
      SqrtBox[
       RowBox[{
        SuperscriptBox["r", "2"], "+", 
        SuperscriptBox["r1", "2"], "-", 
        RowBox[{"2", " ", "r", " ", "r1", " ", 
         RowBox[{"Cos", "[", "\[Theta]2", "]"}]}]}]]], "+", 
     FractionBox[
      RowBox[{
       SuperscriptBox["r", "4"], "+", 
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        SuperscriptBox["r2", "2"]}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["r2", "4"]}], "-", 
       RowBox[{"r", " ", "r2", " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["r", "2"], "+", 
          RowBox[{"4", " ", 
           SuperscriptBox["r2", "2"]}]}], ")"}], " ", 
        RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], "-", 
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"3", " ", 
           SuperscriptBox["r", "2"]}], "+", 
          SuperscriptBox["r2", "2"]}], ")"}], " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"2", " ", "\[Theta]2"}], "]"}]}], "+", 
       RowBox[{"3", " ", 
        SuperscriptBox["r", "3"], " ", "r2", " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"3", " ", "\[Theta]2"}], "]"}]}]}], 
      SqrtBox[
       RowBox[{
        SuperscriptBox["r", "2"], "+", 
        SuperscriptBox["r2", "2"], "-", 
        RowBox[{"2", " ", "r", " ", "r2", " ", 
         RowBox[{"Cos", "[", "\[Theta]2", "]"}]}]}]]], "+", 
     RowBox[{"6", " ", 
      SuperscriptBox["r", "3"], " ", 
      RowBox[{"Cos", "[", "\[Theta]1", "]"}], " ", 
      RowBox[{"Log", "[", 
       FractionBox[
        RowBox[{"r1", "-", 
         RowBox[{"r", " ", 
          RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], "+", 
         SqrtBox[
          RowBox[{
           SuperscriptBox["r", "2"], "+", 
           SuperscriptBox["r1", "2"], "-", 
           RowBox[{"2", " ", "r", " ", "r1", " ", 
            RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]]}], 
        RowBox[{"r2", "-", 
         RowBox[{"r", " ", 
          RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], "+", 
         SqrtBox[
          RowBox[{
           SuperscriptBox["r", "2"], "+", 
           SuperscriptBox["r2", "2"], "-", 
           RowBox[{"2", " ", "r", " ", "r2", " ", 
            RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]]}]], "]"}], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]1", "]"}], "2"]}], "+", 
     RowBox[{"6", " ", 
      SuperscriptBox["r", "3"], " ", 
      RowBox[{"Cos", "[", "\[Theta]2", "]"}], " ", 
      RowBox[{"Log", "[", 
       FractionBox[
        RowBox[{"r2", "-", 
         RowBox[{"r", " ", 
          RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], "+", 
         SqrtBox[
          RowBox[{
           SuperscriptBox["r", "2"], "+", 
           SuperscriptBox["r2", "2"], "-", 
           RowBox[{"2", " ", "r", " ", "r2", " ", 
            RowBox[{"Cos", "[", "\[Theta]2", "]"}]}]}]]}], 
        RowBox[{"r1", "-", 
         RowBox[{"r", " ", 
          RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], "+", 
         SqrtBox[
          RowBox[{
           SuperscriptBox["r", "2"], "+", 
           SuperscriptBox["r1", "2"], "-", 
           RowBox[{"2", " ", "r", " ", "r1", " ", 
            RowBox[{"Cos", "[", "\[Theta]2", "]"}]}]}]]}]], "]"}], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]2", "]"}], "2"]}]}], ")"}]}]}]], "Output",\

 CellChangeTimes->{3.858396813171157*^9, 3.85839803806898*^9, 
  3.858398814657371*^9, 3.858398847405952*^9, 3.85839912648107*^9, 
  3.858630409479677*^9, 3.8586305987976837`*^9, 3.8587973051253223`*^9, 
  3.8588076019764357`*^9, 3.859844308913578*^9, 3.860015255762082*^9, 
  3.876659300610907*^9, 3.8860608216832743`*^9},
 CellLabel->
  "Out[100]=",ExpressionUUID->"95467d8d-fbcb-4f11-89f8-be32cdad775b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ZonalBandVxx", "=", 
  RowBox[{
   RowBox[{"-", 
    FractionBox[
     RowBox[{"Pi", "*", "G", "*", "\[Rho]"}], 
     RowBox[{"6", "*", 
      SuperscriptBox["r", "3"]}]]}], "*", 
   RowBox[{"(", 
    RowBox[{
     FractionBox["E22", "l22"], "-", 
     FractionBox["E12", "l12"], "-", 
     FractionBox["E21", "l21"], "+", 
     FractionBox["E11", "l11"], "+", 
     RowBox[{"6", "*", "B2", "*", 
      RowBox[{"Log", "[", 
       FractionBox[
        RowBox[{"C22", "+", "l22"}], 
        RowBox[{"C12", "+", "l12"}]], "]"}]}], "+", 
     RowBox[{"6", "*", "B1", "*", 
      RowBox[{"Log", "[", 
       FractionBox[
        RowBox[{"C11", "+", "l11"}], 
        RowBox[{"C21", "+", "l21"}]], "]"}]}]}], ")"}], 
   RowBox[{"(*", 
    RowBox[{"Eq", ".", " ", 
     RowBox[{"(", "25", ")"}]}], "*)"}]}]}]], "Input",
 CellChangeTimes->{{3.8582837477895393`*^9, 3.858283837050974*^9}, 
   3.8583967896712112`*^9, {3.8583978446855783`*^9, 3.858397845231928*^9}, 
   3.858797268882784*^9, 3.8588072092380753`*^9, {3.886060778703064*^9, 
   3.886060781056814*^9}},
 CellLabel->
  "In[101]:=",ExpressionUUID->"67fe53f6-5034-4b5d-a6c9-02d8d368c732"],

Cell[BoxData[
 RowBox[{"-", 
  RowBox[{
   FractionBox["1", 
    RowBox[{"6", " ", 
     SuperscriptBox["r", "3"]}]], 
   RowBox[{"G", " ", "\[Pi]", " ", "\[Rho]", " ", 
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{
        SuperscriptBox["r", "4"], "+", 
        RowBox[{
         SuperscriptBox["r", "2"], " ", 
         SuperscriptBox["r1", "2"]}], "+", 
        RowBox[{"4", " ", 
         SuperscriptBox["r1", "4"]}], "-", 
        RowBox[{"r", " ", "r1", " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["r", "2"], "+", 
           RowBox[{"4", " ", 
            SuperscriptBox["r1", "2"]}]}], ")"}], " ", 
         RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], "-", 
        RowBox[{
         SuperscriptBox["r", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"3", " ", 
            SuperscriptBox["r", "2"]}], "+", 
           SuperscriptBox["r1", "2"]}], ")"}], " ", 
         RowBox[{"Cos", "[", 
          RowBox[{"2", " ", "\[Theta]1"}], "]"}]}], "+", 
        RowBox[{"3", " ", 
         SuperscriptBox["r", "3"], " ", "r1", " ", 
         RowBox[{"Cos", "[", 
          RowBox[{"3", " ", "\[Theta]1"}], "]"}]}]}], 
       SqrtBox[
        RowBox[{
         SuperscriptBox["r", "2"], "+", 
         SuperscriptBox["r1", "2"], "-", 
         RowBox[{"2", " ", "r", " ", "r1", " ", 
          RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]]], "-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["r", "4"], "+", 
        RowBox[{
         SuperscriptBox["r", "2"], " ", 
         SuperscriptBox["r2", "2"]}], "+", 
        RowBox[{"4", " ", 
         SuperscriptBox["r2", "4"]}], "-", 
        RowBox[{"r", " ", "r2", " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["r", "2"], "+", 
           RowBox[{"4", " ", 
            SuperscriptBox["r2", "2"]}]}], ")"}], " ", 
         RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], "-", 
        RowBox[{
         SuperscriptBox["r", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"3", " ", 
            SuperscriptBox["r", "2"]}], "+", 
           SuperscriptBox["r2", "2"]}], ")"}], " ", 
         RowBox[{"Cos", "[", 
          RowBox[{"2", " ", "\[Theta]1"}], "]"}]}], "+", 
        RowBox[{"3", " ", 
         SuperscriptBox["r", "3"], " ", "r2", " ", 
         RowBox[{"Cos", "[", 
          RowBox[{"3", " ", "\[Theta]1"}], "]"}]}]}], 
       SqrtBox[
        RowBox[{
         SuperscriptBox["r", "2"], "+", 
         SuperscriptBox["r2", "2"], "-", 
         RowBox[{"2", " ", "r", " ", "r2", " ", 
          RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]]], "-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["r", "4"], "+", 
        RowBox[{
         SuperscriptBox["r", "2"], " ", 
         SuperscriptBox["r1", "2"]}], "+", 
        RowBox[{"4", " ", 
         SuperscriptBox["r1", "4"]}], "-", 
        RowBox[{"r", " ", "r1", " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["r", "2"], "+", 
           RowBox[{"4", " ", 
            SuperscriptBox["r1", "2"]}]}], ")"}], " ", 
         RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], "-", 
        RowBox[{
         SuperscriptBox["r", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"3", " ", 
            SuperscriptBox["r", "2"]}], "+", 
           SuperscriptBox["r1", "2"]}], ")"}], " ", 
         RowBox[{"Cos", "[", 
          RowBox[{"2", " ", "\[Theta]2"}], "]"}]}], "+", 
        RowBox[{"3", " ", 
         SuperscriptBox["r", "3"], " ", "r1", " ", 
         RowBox[{"Cos", "[", 
          RowBox[{"3", " ", "\[Theta]2"}], "]"}]}]}], 
       SqrtBox[
        RowBox[{
         SuperscriptBox["r", "2"], "+", 
         SuperscriptBox["r1", "2"], "-", 
         RowBox[{"2", " ", "r", " ", "r1", " ", 
          RowBox[{"Cos", "[", "\[Theta]2", "]"}]}]}]]], "+", 
      FractionBox[
       RowBox[{
        SuperscriptBox["r", "4"], "+", 
        RowBox[{
         SuperscriptBox["r", "2"], " ", 
         SuperscriptBox["r2", "2"]}], "+", 
        RowBox[{"4", " ", 
         SuperscriptBox["r2", "4"]}], "-", 
        RowBox[{"r", " ", "r2", " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["r", "2"], "+", 
           RowBox[{"4", " ", 
            SuperscriptBox["r2", "2"]}]}], ")"}], " ", 
         RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], "-", 
        RowBox[{
         SuperscriptBox["r", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"3", " ", 
            SuperscriptBox["r", "2"]}], "+", 
           SuperscriptBox["r2", "2"]}], ")"}], " ", 
         RowBox[{"Cos", "[", 
          RowBox[{"2", " ", "\[Theta]2"}], "]"}]}], "+", 
        RowBox[{"3", " ", 
         SuperscriptBox["r", "3"], " ", "r2", " ", 
         RowBox[{"Cos", "[", 
          RowBox[{"3", " ", "\[Theta]2"}], "]"}]}]}], 
       SqrtBox[
        RowBox[{
         SuperscriptBox["r", "2"], "+", 
         SuperscriptBox["r2", "2"], "-", 
         RowBox[{"2", " ", "r", " ", "r2", " ", 
          RowBox[{"Cos", "[", "\[Theta]2", "]"}]}]}]]], "+", 
      RowBox[{"6", " ", 
       SuperscriptBox["r", "3"], " ", 
       RowBox[{"Cos", "[", "\[Theta]1", "]"}], " ", 
       RowBox[{"Log", "[", 
        FractionBox[
         RowBox[{"r1", "-", 
          RowBox[{"r", " ", 
           RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], "+", 
          SqrtBox[
           RowBox[{
            SuperscriptBox["r", "2"], "+", 
            SuperscriptBox["r1", "2"], "-", 
            RowBox[{"2", " ", "r", " ", "r1", " ", 
             RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]]}], 
         RowBox[{"r2", "-", 
          RowBox[{"r", " ", 
           RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], "+", 
          SqrtBox[
           RowBox[{
            SuperscriptBox["r", "2"], "+", 
            SuperscriptBox["r2", "2"], "-", 
            RowBox[{"2", " ", "r", " ", "r2", " ", 
             RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]]}]], "]"}], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "\[Theta]1", "]"}], "2"]}], "+", 
      RowBox[{"6", " ", 
       SuperscriptBox["r", "3"], " ", 
       RowBox[{"Cos", "[", "\[Theta]2", "]"}], " ", 
       RowBox[{"Log", "[", 
        FractionBox[
         RowBox[{"r2", "-", 
          RowBox[{"r", " ", 
           RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], "+", 
          SqrtBox[
           RowBox[{
            SuperscriptBox["r", "2"], "+", 
            SuperscriptBox["r2", "2"], "-", 
            RowBox[{"2", " ", "r", " ", "r2", " ", 
             RowBox[{"Cos", "[", "\[Theta]2", "]"}]}]}]]}], 
         RowBox[{"r1", "-", 
          RowBox[{"r", " ", 
           RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], "+", 
          SqrtBox[
           RowBox[{
            SuperscriptBox["r", "2"], "+", 
            SuperscriptBox["r1", "2"], "-", 
            RowBox[{"2", " ", "r", " ", "r1", " ", 
             RowBox[{"Cos", "[", "\[Theta]2", "]"}]}]}]]}]], "]"}], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "\[Theta]2", "]"}], "2"]}]}], 
     ")"}]}]}]}]], "Output",
 CellChangeTimes->{3.858396813208112*^9, 3.858398038128174*^9, 
  3.858398814692525*^9, 3.858398847465345*^9, 3.858399126552114*^9, 
  3.858630409505975*^9, 3.858630598814397*^9, 3.858797305155836*^9, 
  3.858807601993071*^9, 3.859844308920102*^9, 3.860015255801963*^9, 
  3.876659300648212*^9, 3.886060821687763*^9},
 CellLabel->
  "Out[101]=",ExpressionUUID->"e75282b8-94c1-4bdf-8c35-c4019710a12a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ZonalBandVyy", "=", 
  RowBox[{
   RowBox[{"-", 
    FractionBox[
     RowBox[{"Pi", "*", "G", "*", "\[Rho]"}], 
     RowBox[{"6", "*", 
      SuperscriptBox["r", "3"]}]]}], "*", 
   RowBox[{"(", 
    RowBox[{
     FractionBox["E22", "l22"], "-", 
     FractionBox["E12", "l12"], "-", 
     FractionBox["E21", "l21"], "+", 
     FractionBox["E11", "l11"], "+", 
     RowBox[{"6", "*", "B2", "*", 
      RowBox[{"Log", "[", 
       FractionBox[
        RowBox[{"C22", "+", "l22"}], 
        RowBox[{"C12", "+", "l12"}]], "]"}]}], "+", 
     RowBox[{"6", "*", "B1", "*", 
      RowBox[{"Log", "[", 
       FractionBox[
        RowBox[{"C11", "+", "l11"}], 
        RowBox[{"C21", "+", "l21"}]], "]"}]}]}], ")"}], 
   RowBox[{"(*", 
    RowBox[{"Eq", ".", " ", 
     RowBox[{"(", "25", ")"}]}], "*)"}]}]}]], "Input",
 CellChangeTimes->{{3.8583977858746433`*^9, 3.858397786899929*^9}, {
   3.8583978472692127`*^9, 3.858397847783083*^9}, 3.8587972732575903`*^9, 
   3.858807212285923*^9, {3.886060784636058*^9, 3.886060787088378*^9}},
 CellLabel->
  "In[102]:=",ExpressionUUID->"d7b5da65-bfef-442d-9c72-d02244425096"],

Cell[BoxData[
 RowBox[{"-", 
  RowBox[{
   FractionBox["1", 
    RowBox[{"6", " ", 
     SuperscriptBox["r", "3"]}]], 
   RowBox[{"G", " ", "\[Pi]", " ", "\[Rho]", " ", 
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{
        SuperscriptBox["r", "4"], "+", 
        RowBox[{
         SuperscriptBox["r", "2"], " ", 
         SuperscriptBox["r1", "2"]}], "+", 
        RowBox[{"4", " ", 
         SuperscriptBox["r1", "4"]}], "-", 
        RowBox[{"r", " ", "r1", " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["r", "2"], "+", 
           RowBox[{"4", " ", 
            SuperscriptBox["r1", "2"]}]}], ")"}], " ", 
         RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], "-", 
        RowBox[{
         SuperscriptBox["r", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"3", " ", 
            SuperscriptBox["r", "2"]}], "+", 
           SuperscriptBox["r1", "2"]}], ")"}], " ", 
         RowBox[{"Cos", "[", 
          RowBox[{"2", " ", "\[Theta]1"}], "]"}]}], "+", 
        RowBox[{"3", " ", 
         SuperscriptBox["r", "3"], " ", "r1", " ", 
         RowBox[{"Cos", "[", 
          RowBox[{"3", " ", "\[Theta]1"}], "]"}]}]}], 
       SqrtBox[
        RowBox[{
         SuperscriptBox["r", "2"], "+", 
         SuperscriptBox["r1", "2"], "-", 
         RowBox[{"2", " ", "r", " ", "r1", " ", 
          RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]]], "-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["r", "4"], "+", 
        RowBox[{
         SuperscriptBox["r", "2"], " ", 
         SuperscriptBox["r2", "2"]}], "+", 
        RowBox[{"4", " ", 
         SuperscriptBox["r2", "4"]}], "-", 
        RowBox[{"r", " ", "r2", " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["r", "2"], "+", 
           RowBox[{"4", " ", 
            SuperscriptBox["r2", "2"]}]}], ")"}], " ", 
         RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], "-", 
        RowBox[{
         SuperscriptBox["r", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"3", " ", 
            SuperscriptBox["r", "2"]}], "+", 
           SuperscriptBox["r2", "2"]}], ")"}], " ", 
         RowBox[{"Cos", "[", 
          RowBox[{"2", " ", "\[Theta]1"}], "]"}]}], "+", 
        RowBox[{"3", " ", 
         SuperscriptBox["r", "3"], " ", "r2", " ", 
         RowBox[{"Cos", "[", 
          RowBox[{"3", " ", "\[Theta]1"}], "]"}]}]}], 
       SqrtBox[
        RowBox[{
         SuperscriptBox["r", "2"], "+", 
         SuperscriptBox["r2", "2"], "-", 
         RowBox[{"2", " ", "r", " ", "r2", " ", 
          RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]]], "-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["r", "4"], "+", 
        RowBox[{
         SuperscriptBox["r", "2"], " ", 
         SuperscriptBox["r1", "2"]}], "+", 
        RowBox[{"4", " ", 
         SuperscriptBox["r1", "4"]}], "-", 
        RowBox[{"r", " ", "r1", " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["r", "2"], "+", 
           RowBox[{"4", " ", 
            SuperscriptBox["r1", "2"]}]}], ")"}], " ", 
         RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], "-", 
        RowBox[{
         SuperscriptBox["r", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"3", " ", 
            SuperscriptBox["r", "2"]}], "+", 
           SuperscriptBox["r1", "2"]}], ")"}], " ", 
         RowBox[{"Cos", "[", 
          RowBox[{"2", " ", "\[Theta]2"}], "]"}]}], "+", 
        RowBox[{"3", " ", 
         SuperscriptBox["r", "3"], " ", "r1", " ", 
         RowBox[{"Cos", "[", 
          RowBox[{"3", " ", "\[Theta]2"}], "]"}]}]}], 
       SqrtBox[
        RowBox[{
         SuperscriptBox["r", "2"], "+", 
         SuperscriptBox["r1", "2"], "-", 
         RowBox[{"2", " ", "r", " ", "r1", " ", 
          RowBox[{"Cos", "[", "\[Theta]2", "]"}]}]}]]], "+", 
      FractionBox[
       RowBox[{
        SuperscriptBox["r", "4"], "+", 
        RowBox[{
         SuperscriptBox["r", "2"], " ", 
         SuperscriptBox["r2", "2"]}], "+", 
        RowBox[{"4", " ", 
         SuperscriptBox["r2", "4"]}], "-", 
        RowBox[{"r", " ", "r2", " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["r", "2"], "+", 
           RowBox[{"4", " ", 
            SuperscriptBox["r2", "2"]}]}], ")"}], " ", 
         RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], "-", 
        RowBox[{
         SuperscriptBox["r", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"3", " ", 
            SuperscriptBox["r", "2"]}], "+", 
           SuperscriptBox["r2", "2"]}], ")"}], " ", 
         RowBox[{"Cos", "[", 
          RowBox[{"2", " ", "\[Theta]2"}], "]"}]}], "+", 
        RowBox[{"3", " ", 
         SuperscriptBox["r", "3"], " ", "r2", " ", 
         RowBox[{"Cos", "[", 
          RowBox[{"3", " ", "\[Theta]2"}], "]"}]}]}], 
       SqrtBox[
        RowBox[{
         SuperscriptBox["r", "2"], "+", 
         SuperscriptBox["r2", "2"], "-", 
         RowBox[{"2", " ", "r", " ", "r2", " ", 
          RowBox[{"Cos", "[", "\[Theta]2", "]"}]}]}]]], "+", 
      RowBox[{"6", " ", 
       SuperscriptBox["r", "3"], " ", 
       RowBox[{"Cos", "[", "\[Theta]1", "]"}], " ", 
       RowBox[{"Log", "[", 
        FractionBox[
         RowBox[{"r1", "-", 
          RowBox[{"r", " ", 
           RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], "+", 
          SqrtBox[
           RowBox[{
            SuperscriptBox["r", "2"], "+", 
            SuperscriptBox["r1", "2"], "-", 
            RowBox[{"2", " ", "r", " ", "r1", " ", 
             RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]]}], 
         RowBox[{"r2", "-", 
          RowBox[{"r", " ", 
           RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], "+", 
          SqrtBox[
           RowBox[{
            SuperscriptBox["r", "2"], "+", 
            SuperscriptBox["r2", "2"], "-", 
            RowBox[{"2", " ", "r", " ", "r2", " ", 
             RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]]}]], "]"}], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "\[Theta]1", "]"}], "2"]}], "+", 
      RowBox[{"6", " ", 
       SuperscriptBox["r", "3"], " ", 
       RowBox[{"Cos", "[", "\[Theta]2", "]"}], " ", 
       RowBox[{"Log", "[", 
        FractionBox[
         RowBox[{"r2", "-", 
          RowBox[{"r", " ", 
           RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], "+", 
          SqrtBox[
           RowBox[{
            SuperscriptBox["r", "2"], "+", 
            SuperscriptBox["r2", "2"], "-", 
            RowBox[{"2", " ", "r", " ", "r2", " ", 
             RowBox[{"Cos", "[", "\[Theta]2", "]"}]}]}]]}], 
         RowBox[{"r1", "-", 
          RowBox[{"r", " ", 
           RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], "+", 
          SqrtBox[
           RowBox[{
            SuperscriptBox["r", "2"], "+", 
            SuperscriptBox["r1", "2"], "-", 
            RowBox[{"2", " ", "r", " ", "r1", " ", 
             RowBox[{"Cos", "[", "\[Theta]2", "]"}]}]}]]}]], "]"}], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "\[Theta]2", "]"}], "2"]}]}], 
     ")"}]}]}]}]], "Output",
 CellChangeTimes->{3.858398038141754*^9, 3.85839881478764*^9, 
  3.858398847489995*^9, 3.858399126603936*^9, 3.858630409533679*^9, 
  3.85863059883106*^9, 3.858797305170742*^9, 3.858807602029901*^9, 
  3.8598443089458933`*^9, 3.860015255820052*^9, 3.876659300665606*^9, 
  3.8860608217012243`*^9},
 CellLabel->
  "Out[102]=",ExpressionUUID->"a10626c7-6412-44cc-a647-aa2ddc34c1ee"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ZonalBandVzzz", "=", 
  RowBox[{
   RowBox[{"-", 
    FractionBox[
     RowBox[{"Pi", "*", "G", "*", "\[Rho]"}], 
     SuperscriptBox["r", "4"]]}], "*", 
   RowBox[{"(", 
    RowBox[{
     FractionBox["O22", 
      SuperscriptBox["l22", "3"]], "-", 
     FractionBox["O12", 
      SuperscriptBox["l12", "3"]], "-", 
     FractionBox["O21", 
      SuperscriptBox["l21", "3"]], "+", 
     FractionBox["O11", 
      SuperscriptBox["l11", "3"]]}], ")"}], 
   RowBox[{"(*", 
    RowBox[{"Eq", ".", " ", 
     RowBox[{"(", "26", ")"}]}], "*)"}]}]}]], "Input",
 CellChangeTimes->{{3.858283853200436*^9, 3.858283869357456*^9}, {
   3.8583978501884203`*^9, 3.8583978507595797`*^9}, 3.85879727717832*^9, 
   3.858807214644289*^9, {3.87657629219479*^9, 3.8765762931349382`*^9}, {
   3.876659282262289*^9, 3.876659282656053*^9}, {3.886060795944715*^9, 
   3.886060799513618*^9}},
 CellLabel->
  "In[103]:=",ExpressionUUID->"82561d59-7a0b-42d9-9f7e-2f79421428e4"],

Cell[BoxData[
 RowBox[{"-", 
  RowBox[{
   FractionBox["1", 
    SuperscriptBox["r", "4"]], 
   RowBox[{"G", " ", "\[Pi]", " ", "\[Rho]", " ", 
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{
        SuperscriptBox["r1", "3"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"9", " ", 
           SuperscriptBox["r", "2"], " ", "r1"}], "+", 
          RowBox[{"4", " ", 
           SuperscriptBox["r1", "3"]}], "-", 
          RowBox[{"4", " ", "r", " ", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["r", "2"], "+", 
             RowBox[{"3", " ", 
              SuperscriptBox["r1", "2"]}]}], ")"}], " ", 
           RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], "+", 
          RowBox[{"3", " ", 
           SuperscriptBox["r", "2"], " ", "r1", " ", 
           RowBox[{"Cos", "[", 
            RowBox[{"2", " ", "\[Theta]1"}], "]"}]}]}], ")"}]}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["r", "2"], "+", 
          SuperscriptBox["r1", "2"], "-", 
          RowBox[{"2", " ", "r", " ", "r1", " ", 
           RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}], ")"}], 
        RowBox[{"3", "/", "2"}]]], "-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["r2", "3"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"9", " ", 
           SuperscriptBox["r", "2"], " ", "r2"}], "+", 
          RowBox[{"4", " ", 
           SuperscriptBox["r2", "3"]}], "-", 
          RowBox[{"4", " ", "r", " ", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["r", "2"], "+", 
             RowBox[{"3", " ", 
              SuperscriptBox["r2", "2"]}]}], ")"}], " ", 
           RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], "+", 
          RowBox[{"3", " ", 
           SuperscriptBox["r", "2"], " ", "r2", " ", 
           RowBox[{"Cos", "[", 
            RowBox[{"2", " ", "\[Theta]1"}], "]"}]}]}], ")"}]}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["r", "2"], "+", 
          SuperscriptBox["r2", "2"], "-", 
          RowBox[{"2", " ", "r", " ", "r2", " ", 
           RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}], ")"}], 
        RowBox[{"3", "/", "2"}]]], "-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["r1", "3"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"9", " ", 
           SuperscriptBox["r", "2"], " ", "r1"}], "+", 
          RowBox[{"4", " ", 
           SuperscriptBox["r1", "3"]}], "-", 
          RowBox[{"4", " ", "r", " ", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["r", "2"], "+", 
             RowBox[{"3", " ", 
              SuperscriptBox["r1", "2"]}]}], ")"}], " ", 
           RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], "+", 
          RowBox[{"3", " ", 
           SuperscriptBox["r", "2"], " ", "r1", " ", 
           RowBox[{"Cos", "[", 
            RowBox[{"2", " ", "\[Theta]2"}], "]"}]}]}], ")"}]}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["r", "2"], "+", 
          SuperscriptBox["r1", "2"], "-", 
          RowBox[{"2", " ", "r", " ", "r1", " ", 
           RowBox[{"Cos", "[", "\[Theta]2", "]"}]}]}], ")"}], 
        RowBox[{"3", "/", "2"}]]], "+", 
      FractionBox[
       RowBox[{
        SuperscriptBox["r2", "3"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"9", " ", 
           SuperscriptBox["r", "2"], " ", "r2"}], "+", 
          RowBox[{"4", " ", 
           SuperscriptBox["r2", "3"]}], "-", 
          RowBox[{"4", " ", "r", " ", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["r", "2"], "+", 
             RowBox[{"3", " ", 
              SuperscriptBox["r2", "2"]}]}], ")"}], " ", 
           RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], "+", 
          RowBox[{"3", " ", 
           SuperscriptBox["r", "2"], " ", "r2", " ", 
           RowBox[{"Cos", "[", 
            RowBox[{"2", " ", "\[Theta]2"}], "]"}]}]}], ")"}]}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["r", "2"], "+", 
          SuperscriptBox["r2", "2"], "-", 
          RowBox[{"2", " ", "r", " ", "r2", " ", 
           RowBox[{"Cos", "[", "\[Theta]2", "]"}]}]}], ")"}], 
        RowBox[{"3", "/", "2"}]]]}], ")"}]}]}]}]], "Output",
 CellChangeTimes->{3.858284257497074*^9, 3.858284367047106*^9, 
  3.858287934678865*^9, 3.858292545785617*^9, 3.858292798414555*^9, 
  3.858297019541791*^9, 3.858297870096881*^9, 3.858298047729912*^9, 
  3.858396813286048*^9, 3.85839803817356*^9, 3.858398814837963*^9, 
  3.8583988475571337`*^9, 3.858399126682827*^9, 3.858630409561211*^9, 
  3.858630598847472*^9, 3.858797305202756*^9, 3.858807602045249*^9, 
  3.859844308951694*^9, 3.860015255859131*^9, 3.876659300697191*^9, 
  3.8860608217069807`*^9},
 CellLabel->
  "Out[103]=",ExpressionUUID->"7104d80b-99dc-468f-a7b3-533b4cc88aa1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ZonalBandVxxz", "=", 
  RowBox[{
   FractionBox[
    RowBox[{"Pi", "*", "G", "*", "\[Rho]"}], 
    RowBox[{"8", "*", 
     SuperscriptBox["r", "4"]}]], "*", 
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{"X22", "+", "Y22", "+", "Z22"}], 
      SuperscriptBox["l22", "3"]], "-", 
     FractionBox[
      RowBox[{"X12", "+", "Y12", "+", "Z12"}], 
      SuperscriptBox["l12", "3"]], "-", 
     FractionBox[
      RowBox[{"X21", "+", "Y21", "+", "Z21"}], 
      SuperscriptBox["l21", "3"]], "+", 
     FractionBox[
      RowBox[{"X11", "+", "Y11", "+", "Z11"}], 
      SuperscriptBox["l11", "3"]]}], ")"}], 
   RowBox[{"(*", 
    RowBox[{"Eq", ".", " ", 
     RowBox[{"(", "27", ")"}]}], "*)"}]}]}]], "Input",
 CellChangeTimes->{{3.858283875953704*^9, 3.858283988309701*^9}, {
   3.858397852948677*^9, 3.8583978534800673`*^9}, 3.8587972799422903`*^9, 
   3.8588072167285013`*^9, {3.886060806952078*^9, 3.886060810001465*^9}},
 CellLabel->
  "In[104]:=",ExpressionUUID->"485b51c6-a3ec-409a-bdb0-2d857103570c"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", 
   RowBox[{"8", " ", 
    SuperscriptBox["r", "4"]}]], 
  RowBox[{"G", " ", "\[Pi]", " ", "\[Rho]", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      FractionBox["1", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["r", "2"], "+", 
          SuperscriptBox["r1", "2"], "-", 
          RowBox[{"2", " ", "r", " ", "r1", " ", 
           RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}], ")"}], 
        RowBox[{"3", "/", "2"}]]], 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "5"}], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["r", "2"], "+", 
            SuperscriptBox["r1", "2"]}], ")"}], "3"], " ", 
         SqrtBox[
          RowBox[{"1", "-", 
           FractionBox[
            RowBox[{"2", " ", "r", " ", "r1", " ", 
             RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], 
            RowBox[{
             SuperscriptBox["r", "2"], "+", 
             SuperscriptBox["r1", "2"]}]]}]]}], "+", 
        RowBox[{"2", " ", "r", " ", "r1", " ", 
         RowBox[{"Cos", "[", "\[Theta]1", "]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"5", " ", 
            SuperscriptBox["r", "4"], " ", 
            SqrtBox[
             RowBox[{"1", "-", 
              FractionBox[
               RowBox[{"2", " ", "r", " ", "r1", " ", 
                RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], 
               RowBox[{
                SuperscriptBox["r", "2"], "+", 
                SuperscriptBox["r1", "2"]}]]}]]}], "+", 
           RowBox[{
            SuperscriptBox["r1", "4"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "24"}], "+", 
              RowBox[{"5", " ", 
               SqrtBox[
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{"2", " ", "r", " ", "r1", " ", 
                   RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], 
                  RowBox[{
                   SuperscriptBox["r", "2"], "+", 
                   SuperscriptBox["r1", "2"]}]]}]]}]}], ")"}]}], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox["r", "2"], " ", 
            SuperscriptBox["r1", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "4"}], "+", 
              RowBox[{"5", " ", 
               SqrtBox[
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{"2", " ", "r", " ", "r1", " ", 
                   RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], 
                  RowBox[{
                   SuperscriptBox["r", "2"], "+", 
                   SuperscriptBox["r1", "2"]}]]}]]}]}], ")"}]}]}], ")"}]}], 
        "+", 
        RowBox[{"4", " ", 
         SuperscriptBox["r1", "4"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"9", " ", 
            SuperscriptBox["r", "2"]}], "+", 
           RowBox[{"4", " ", 
            SuperscriptBox["r1", "2"]}], "+", 
           RowBox[{"3", " ", 
            SuperscriptBox["r", "2"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Theta]1"}], "]"}]}]}], ")"}]}]}], ")"}]}], 
     "-", 
     RowBox[{
      FractionBox["1", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["r", "2"], "+", 
          SuperscriptBox["r2", "2"], "-", 
          RowBox[{"2", " ", "r", " ", "r2", " ", 
           RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}], ")"}], 
        RowBox[{"3", "/", "2"}]]], 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "5"}], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["r", "2"], "+", 
            SuperscriptBox["r2", "2"]}], ")"}], "3"], " ", 
         SqrtBox[
          RowBox[{"1", "-", 
           FractionBox[
            RowBox[{"2", " ", "r", " ", "r2", " ", 
             RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], 
            RowBox[{
             SuperscriptBox["r", "2"], "+", 
             SuperscriptBox["r2", "2"]}]]}]]}], "+", 
        RowBox[{"2", " ", "r", " ", "r2", " ", 
         RowBox[{"Cos", "[", "\[Theta]1", "]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"5", " ", 
            SuperscriptBox["r", "4"], " ", 
            SqrtBox[
             RowBox[{"1", "-", 
              FractionBox[
               RowBox[{"2", " ", "r", " ", "r2", " ", 
                RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], 
               RowBox[{
                SuperscriptBox["r", "2"], "+", 
                SuperscriptBox["r2", "2"]}]]}]]}], "+", 
           RowBox[{
            SuperscriptBox["r2", "4"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "24"}], "+", 
              RowBox[{"5", " ", 
               SqrtBox[
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{"2", " ", "r", " ", "r2", " ", 
                   RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], 
                  RowBox[{
                   SuperscriptBox["r", "2"], "+", 
                   SuperscriptBox["r2", "2"]}]]}]]}]}], ")"}]}], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox["r", "2"], " ", 
            SuperscriptBox["r2", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "4"}], "+", 
              RowBox[{"5", " ", 
               SqrtBox[
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{"2", " ", "r", " ", "r2", " ", 
                   RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], 
                  RowBox[{
                   SuperscriptBox["r", "2"], "+", 
                   SuperscriptBox["r2", "2"]}]]}]]}]}], ")"}]}]}], ")"}]}], 
        "+", 
        RowBox[{"4", " ", 
         SuperscriptBox["r2", "4"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"9", " ", 
            SuperscriptBox["r", "2"]}], "+", 
           RowBox[{"4", " ", 
            SuperscriptBox["r2", "2"]}], "+", 
           RowBox[{"3", " ", 
            SuperscriptBox["r", "2"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Theta]1"}], "]"}]}]}], ")"}]}]}], ")"}]}], 
     "-", 
     RowBox[{
      FractionBox["1", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["r", "2"], "+", 
          SuperscriptBox["r1", "2"], "-", 
          RowBox[{"2", " ", "r", " ", "r1", " ", 
           RowBox[{"Cos", "[", "\[Theta]2", "]"}]}]}], ")"}], 
        RowBox[{"3", "/", "2"}]]], 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "5"}], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["r", "2"], "+", 
            SuperscriptBox["r1", "2"]}], ")"}], "3"], " ", 
         SqrtBox[
          RowBox[{"1", "-", 
           FractionBox[
            RowBox[{"2", " ", "r", " ", "r1", " ", 
             RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], 
            RowBox[{
             SuperscriptBox["r", "2"], "+", 
             SuperscriptBox["r1", "2"]}]]}]]}], "+", 
        RowBox[{"2", " ", "r", " ", "r1", " ", 
         RowBox[{"Cos", "[", "\[Theta]2", "]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"5", " ", 
            SuperscriptBox["r", "4"], " ", 
            SqrtBox[
             RowBox[{"1", "-", 
              FractionBox[
               RowBox[{"2", " ", "r", " ", "r1", " ", 
                RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], 
               RowBox[{
                SuperscriptBox["r", "2"], "+", 
                SuperscriptBox["r1", "2"]}]]}]]}], "+", 
           RowBox[{
            SuperscriptBox["r1", "4"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "24"}], "+", 
              RowBox[{"5", " ", 
               SqrtBox[
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{"2", " ", "r", " ", "r1", " ", 
                   RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], 
                  RowBox[{
                   SuperscriptBox["r", "2"], "+", 
                   SuperscriptBox["r1", "2"]}]]}]]}]}], ")"}]}], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox["r", "2"], " ", 
            SuperscriptBox["r1", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "4"}], "+", 
              RowBox[{"5", " ", 
               SqrtBox[
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{"2", " ", "r", " ", "r1", " ", 
                   RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], 
                  RowBox[{
                   SuperscriptBox["r", "2"], "+", 
                   SuperscriptBox["r1", "2"]}]]}]]}]}], ")"}]}]}], ")"}]}], 
        "+", 
        RowBox[{"4", " ", 
         SuperscriptBox["r1", "4"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"9", " ", 
            SuperscriptBox["r", "2"]}], "+", 
           RowBox[{"4", " ", 
            SuperscriptBox["r1", "2"]}], "+", 
           RowBox[{"3", " ", 
            SuperscriptBox["r", "2"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Theta]2"}], "]"}]}]}], ")"}]}]}], ")"}]}], 
     "+", 
     RowBox[{
      FractionBox["1", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["r", "2"], "+", 
          SuperscriptBox["r2", "2"], "-", 
          RowBox[{"2", " ", "r", " ", "r2", " ", 
           RowBox[{"Cos", "[", "\[Theta]2", "]"}]}]}], ")"}], 
        RowBox[{"3", "/", "2"}]]], 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "5"}], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["r", "2"], "+", 
            SuperscriptBox["r2", "2"]}], ")"}], "3"], " ", 
         SqrtBox[
          RowBox[{"1", "-", 
           FractionBox[
            RowBox[{"2", " ", "r", " ", "r2", " ", 
             RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], 
            RowBox[{
             SuperscriptBox["r", "2"], "+", 
             SuperscriptBox["r2", "2"]}]]}]]}], "+", 
        RowBox[{"2", " ", "r", " ", "r2", " ", 
         RowBox[{"Cos", "[", "\[Theta]2", "]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"5", " ", 
            SuperscriptBox["r", "4"], " ", 
            SqrtBox[
             RowBox[{"1", "-", 
              FractionBox[
               RowBox[{"2", " ", "r", " ", "r2", " ", 
                RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], 
               RowBox[{
                SuperscriptBox["r", "2"], "+", 
                SuperscriptBox["r2", "2"]}]]}]]}], "+", 
           RowBox[{
            SuperscriptBox["r2", "4"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "24"}], "+", 
              RowBox[{"5", " ", 
               SqrtBox[
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{"2", " ", "r", " ", "r2", " ", 
                   RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], 
                  RowBox[{
                   SuperscriptBox["r", "2"], "+", 
                   SuperscriptBox["r2", "2"]}]]}]]}]}], ")"}]}], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox["r", "2"], " ", 
            SuperscriptBox["r2", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "4"}], "+", 
              RowBox[{"5", " ", 
               SqrtBox[
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{"2", " ", "r", " ", "r2", " ", 
                   RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], 
                  RowBox[{
                   SuperscriptBox["r", "2"], "+", 
                   SuperscriptBox["r2", "2"]}]]}]]}]}], ")"}]}]}], ")"}]}], 
        "+", 
        RowBox[{"4", " ", 
         SuperscriptBox["r2", "4"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"9", " ", 
            SuperscriptBox["r", "2"]}], "+", 
           RowBox[{"4", " ", 
            SuperscriptBox["r2", "2"]}], "+", 
           RowBox[{"3", " ", 
            SuperscriptBox["r", "2"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Theta]2"}], "]"}]}]}], ")"}]}]}], ")"}]}]}],
     ")"}]}]}]], "Output",
 CellChangeTimes->{3.858284257514551*^9, 3.858284367073266*^9, 
  3.858287934717016*^9, 3.858292545812911*^9, 3.8582927984481497`*^9, 
  3.858297019563406*^9, 3.858297870131398*^9, 3.858298047765016*^9, 
  3.858396813295986*^9, 3.858398038188343*^9, 3.858398814931707*^9, 
  3.858398847589703*^9, 3.858399126715313*^9, 3.858630409587556*^9, 
  3.858630598873844*^9, 3.8587973052176456`*^9, 3.858807602083865*^9, 
  3.859844308978619*^9, 3.860015255876648*^9, 3.876659300726121*^9, 
  3.886060821717835*^9},
 CellLabel->
  "Out[104]=",ExpressionUUID->"31cc15e0-687a-443a-a77b-3e8b09f626c7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ZonalBandVyyz", "=", 
  RowBox[{
   FractionBox[
    RowBox[{"Pi", "*", "G", "*", "\[Rho]"}], 
    RowBox[{"8", "*", 
     SuperscriptBox["r", "4"]}]], "*", 
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{"X22", "+", "Y22", "+", "Z22"}], 
      SuperscriptBox["l22", "3"]], "-", 
     FractionBox[
      RowBox[{"X12", "+", "Y12", "+", "Z12"}], 
      SuperscriptBox["l12", "3"]], "-", 
     FractionBox[
      RowBox[{"X21", "+", "Y21", "+", "Z21"}], 
      SuperscriptBox["l21", "3"]], "+", 
     FractionBox[
      RowBox[{"X11", "+", "Y11", "+", "Z11"}], 
      SuperscriptBox["l11", "3"]]}], ")"}], 
   RowBox[{"(*", 
    RowBox[{"Eq", ".", " ", 
     RowBox[{"(", "27", ")"}]}], "*)"}]}]}]], "Input",
 CellChangeTimes->{{3.858397794186261*^9, 3.858397795233646*^9}, {
   3.858397856539863*^9, 3.8583978579285593`*^9}, 3.858797282985113*^9, 
   3.858807220883456*^9, {3.886060812452029*^9, 3.8860608147302017`*^9}},
 CellLabel->
  "In[105]:=",ExpressionUUID->"675ed05d-e643-4fe2-9644-ef7463c8813c"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", 
   RowBox[{"8", " ", 
    SuperscriptBox["r", "4"]}]], 
  RowBox[{"G", " ", "\[Pi]", " ", "\[Rho]", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      FractionBox["1", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["r", "2"], "+", 
          SuperscriptBox["r1", "2"], "-", 
          RowBox[{"2", " ", "r", " ", "r1", " ", 
           RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}], ")"}], 
        RowBox[{"3", "/", "2"}]]], 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "5"}], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["r", "2"], "+", 
            SuperscriptBox["r1", "2"]}], ")"}], "3"], " ", 
         SqrtBox[
          RowBox[{"1", "-", 
           FractionBox[
            RowBox[{"2", " ", "r", " ", "r1", " ", 
             RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], 
            RowBox[{
             SuperscriptBox["r", "2"], "+", 
             SuperscriptBox["r1", "2"]}]]}]]}], "+", 
        RowBox[{"2", " ", "r", " ", "r1", " ", 
         RowBox[{"Cos", "[", "\[Theta]1", "]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"5", " ", 
            SuperscriptBox["r", "4"], " ", 
            SqrtBox[
             RowBox[{"1", "-", 
              FractionBox[
               RowBox[{"2", " ", "r", " ", "r1", " ", 
                RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], 
               RowBox[{
                SuperscriptBox["r", "2"], "+", 
                SuperscriptBox["r1", "2"]}]]}]]}], "+", 
           RowBox[{
            SuperscriptBox["r1", "4"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "24"}], "+", 
              RowBox[{"5", " ", 
               SqrtBox[
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{"2", " ", "r", " ", "r1", " ", 
                   RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], 
                  RowBox[{
                   SuperscriptBox["r", "2"], "+", 
                   SuperscriptBox["r1", "2"]}]]}]]}]}], ")"}]}], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox["r", "2"], " ", 
            SuperscriptBox["r1", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "4"}], "+", 
              RowBox[{"5", " ", 
               SqrtBox[
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{"2", " ", "r", " ", "r1", " ", 
                   RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], 
                  RowBox[{
                   SuperscriptBox["r", "2"], "+", 
                   SuperscriptBox["r1", "2"]}]]}]]}]}], ")"}]}]}], ")"}]}], 
        "+", 
        RowBox[{"4", " ", 
         SuperscriptBox["r1", "4"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"9", " ", 
            SuperscriptBox["r", "2"]}], "+", 
           RowBox[{"4", " ", 
            SuperscriptBox["r1", "2"]}], "+", 
           RowBox[{"3", " ", 
            SuperscriptBox["r", "2"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Theta]1"}], "]"}]}]}], ")"}]}]}], ")"}]}], 
     "-", 
     RowBox[{
      FractionBox["1", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["r", "2"], "+", 
          SuperscriptBox["r2", "2"], "-", 
          RowBox[{"2", " ", "r", " ", "r2", " ", 
           RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}], ")"}], 
        RowBox[{"3", "/", "2"}]]], 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "5"}], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["r", "2"], "+", 
            SuperscriptBox["r2", "2"]}], ")"}], "3"], " ", 
         SqrtBox[
          RowBox[{"1", "-", 
           FractionBox[
            RowBox[{"2", " ", "r", " ", "r2", " ", 
             RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], 
            RowBox[{
             SuperscriptBox["r", "2"], "+", 
             SuperscriptBox["r2", "2"]}]]}]]}], "+", 
        RowBox[{"2", " ", "r", " ", "r2", " ", 
         RowBox[{"Cos", "[", "\[Theta]1", "]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"5", " ", 
            SuperscriptBox["r", "4"], " ", 
            SqrtBox[
             RowBox[{"1", "-", 
              FractionBox[
               RowBox[{"2", " ", "r", " ", "r2", " ", 
                RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], 
               RowBox[{
                SuperscriptBox["r", "2"], "+", 
                SuperscriptBox["r2", "2"]}]]}]]}], "+", 
           RowBox[{
            SuperscriptBox["r2", "4"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "24"}], "+", 
              RowBox[{"5", " ", 
               SqrtBox[
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{"2", " ", "r", " ", "r2", " ", 
                   RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], 
                  RowBox[{
                   SuperscriptBox["r", "2"], "+", 
                   SuperscriptBox["r2", "2"]}]]}]]}]}], ")"}]}], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox["r", "2"], " ", 
            SuperscriptBox["r2", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "4"}], "+", 
              RowBox[{"5", " ", 
               SqrtBox[
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{"2", " ", "r", " ", "r2", " ", 
                   RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], 
                  RowBox[{
                   SuperscriptBox["r", "2"], "+", 
                   SuperscriptBox["r2", "2"]}]]}]]}]}], ")"}]}]}], ")"}]}], 
        "+", 
        RowBox[{"4", " ", 
         SuperscriptBox["r2", "4"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"9", " ", 
            SuperscriptBox["r", "2"]}], "+", 
           RowBox[{"4", " ", 
            SuperscriptBox["r2", "2"]}], "+", 
           RowBox[{"3", " ", 
            SuperscriptBox["r", "2"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Theta]1"}], "]"}]}]}], ")"}]}]}], ")"}]}], 
     "-", 
     RowBox[{
      FractionBox["1", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["r", "2"], "+", 
          SuperscriptBox["r1", "2"], "-", 
          RowBox[{"2", " ", "r", " ", "r1", " ", 
           RowBox[{"Cos", "[", "\[Theta]2", "]"}]}]}], ")"}], 
        RowBox[{"3", "/", "2"}]]], 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "5"}], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["r", "2"], "+", 
            SuperscriptBox["r1", "2"]}], ")"}], "3"], " ", 
         SqrtBox[
          RowBox[{"1", "-", 
           FractionBox[
            RowBox[{"2", " ", "r", " ", "r1", " ", 
             RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], 
            RowBox[{
             SuperscriptBox["r", "2"], "+", 
             SuperscriptBox["r1", "2"]}]]}]]}], "+", 
        RowBox[{"2", " ", "r", " ", "r1", " ", 
         RowBox[{"Cos", "[", "\[Theta]2", "]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"5", " ", 
            SuperscriptBox["r", "4"], " ", 
            SqrtBox[
             RowBox[{"1", "-", 
              FractionBox[
               RowBox[{"2", " ", "r", " ", "r1", " ", 
                RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], 
               RowBox[{
                SuperscriptBox["r", "2"], "+", 
                SuperscriptBox["r1", "2"]}]]}]]}], "+", 
           RowBox[{
            SuperscriptBox["r1", "4"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "24"}], "+", 
              RowBox[{"5", " ", 
               SqrtBox[
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{"2", " ", "r", " ", "r1", " ", 
                   RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], 
                  RowBox[{
                   SuperscriptBox["r", "2"], "+", 
                   SuperscriptBox["r1", "2"]}]]}]]}]}], ")"}]}], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox["r", "2"], " ", 
            SuperscriptBox["r1", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "4"}], "+", 
              RowBox[{"5", " ", 
               SqrtBox[
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{"2", " ", "r", " ", "r1", " ", 
                   RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], 
                  RowBox[{
                   SuperscriptBox["r", "2"], "+", 
                   SuperscriptBox["r1", "2"]}]]}]]}]}], ")"}]}]}], ")"}]}], 
        "+", 
        RowBox[{"4", " ", 
         SuperscriptBox["r1", "4"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"9", " ", 
            SuperscriptBox["r", "2"]}], "+", 
           RowBox[{"4", " ", 
            SuperscriptBox["r1", "2"]}], "+", 
           RowBox[{"3", " ", 
            SuperscriptBox["r", "2"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Theta]2"}], "]"}]}]}], ")"}]}]}], ")"}]}], 
     "+", 
     RowBox[{
      FractionBox["1", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["r", "2"], "+", 
          SuperscriptBox["r2", "2"], "-", 
          RowBox[{"2", " ", "r", " ", "r2", " ", 
           RowBox[{"Cos", "[", "\[Theta]2", "]"}]}]}], ")"}], 
        RowBox[{"3", "/", "2"}]]], 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "5"}], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["r", "2"], "+", 
            SuperscriptBox["r2", "2"]}], ")"}], "3"], " ", 
         SqrtBox[
          RowBox[{"1", "-", 
           FractionBox[
            RowBox[{"2", " ", "r", " ", "r2", " ", 
             RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], 
            RowBox[{
             SuperscriptBox["r", "2"], "+", 
             SuperscriptBox["r2", "2"]}]]}]]}], "+", 
        RowBox[{"2", " ", "r", " ", "r2", " ", 
         RowBox[{"Cos", "[", "\[Theta]2", "]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"5", " ", 
            SuperscriptBox["r", "4"], " ", 
            SqrtBox[
             RowBox[{"1", "-", 
              FractionBox[
               RowBox[{"2", " ", "r", " ", "r2", " ", 
                RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], 
               RowBox[{
                SuperscriptBox["r", "2"], "+", 
                SuperscriptBox["r2", "2"]}]]}]]}], "+", 
           RowBox[{
            SuperscriptBox["r2", "4"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "24"}], "+", 
              RowBox[{"5", " ", 
               SqrtBox[
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{"2", " ", "r", " ", "r2", " ", 
                   RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], 
                  RowBox[{
                   SuperscriptBox["r", "2"], "+", 
                   SuperscriptBox["r2", "2"]}]]}]]}]}], ")"}]}], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox["r", "2"], " ", 
            SuperscriptBox["r2", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "4"}], "+", 
              RowBox[{"5", " ", 
               SqrtBox[
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{"2", " ", "r", " ", "r2", " ", 
                   RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], 
                  RowBox[{
                   SuperscriptBox["r", "2"], "+", 
                   SuperscriptBox["r2", "2"]}]]}]]}]}], ")"}]}]}], ")"}]}], 
        "+", 
        RowBox[{"4", " ", 
         SuperscriptBox["r2", "4"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"9", " ", 
            SuperscriptBox["r", "2"]}], "+", 
           RowBox[{"4", " ", 
            SuperscriptBox["r2", "2"]}], "+", 
           RowBox[{"3", " ", 
            SuperscriptBox["r", "2"], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"2", " ", "\[Theta]2"}], "]"}]}]}], ")"}]}]}], ")"}]}]}],
     ")"}]}]}]], "Output",
 CellChangeTimes->{3.858398038225994*^9, 3.858398814986575*^9, 
  3.858398847686521*^9, 3.858399126784573*^9, 3.858630409620328*^9, 
  3.8586305988992357`*^9, 3.858797305253982*^9, 3.858807602128014*^9, 
  3.8598443089858418`*^9, 3.860015255922825*^9, 3.876659300770314*^9, 
  3.886060821726063*^9},
 CellLabel->
  "Out[105]=",ExpressionUUID->"901c75e7-7a96-4ebb-be35-d818d095d05e"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["3. Test Laplace\[CloseCurlyQuote]s equation", "Subsection",
 CellChangeTimes->{{3.8582824560215797`*^9, 3.8582824663248863`*^9}, {
   3.8582842966010733`*^9, 3.8582842988117523`*^9}, {3.8582847624659433`*^9, 
   3.8582847891623*^9}, {3.858386754903232*^9, 3.858386760336967*^9}, {
   3.8583978765186453`*^9, 3.858397876856372*^9}, 3.858397926374308*^9, {
   3.8587973610520067`*^9, 
   3.858797361207412*^9}},ExpressionUUID->"2a380a82-0022-4f90-812d-\
916de4278aaa"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", 
  RowBox[{"Vxx", "+", "Vyy", "+", "Vzz"}], "]"}]], "Input",
 CellChangeTimes->{{3.858386784359138*^9, 3.8583867888341217`*^9}, {
  3.858397939695867*^9, 3.8583979548389072`*^9}, {3.876576298744649*^9, 
  3.876576299364011*^9}, {3.876659286916888*^9, 3.876659287124161*^9}},
 CellLabel->
  "In[106]:=",ExpressionUUID->"2f3fae3a-bc58-46b6-9293-f5f1f078eecc"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.858386823843213*^9, 3.858397214204823*^9, 
  3.85839803830383*^9, 3.858398815124497*^9, 3.8583988477264557`*^9, 
  3.858399126949256*^9, 3.85863040967139*^9, 3.8586305989395733`*^9, 
  3.8587973053314533`*^9, 3.858807602227599*^9, 3.8598443090673847`*^9, 
  3.860015256028648*^9, 3.876659300885932*^9, 3.886060821757986*^9},
 CellLabel->
  "Out[106]=",ExpressionUUID->"2dd9a5e0-18fd-4f28-9158-adb5fd5be488"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"Vxxz", "+", "Vyyz", "+", "Vzzz"}], ")"}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      SqrtBox[
       RowBox[{"1", "-", 
        FractionBox[
         RowBox[{"2", " ", "r", " ", "r2", " ", 
          RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], 
         RowBox[{
          SuperscriptBox["r", "2"], "+", 
          SuperscriptBox["r2", "2"]}]]}]], "\[Rule]", 
      FractionBox[
       SqrtBox[
        RowBox[{
         SuperscriptBox["r", "2"], "+", 
         SuperscriptBox["r2", "2"], "-", 
         RowBox[{"2", " ", "r", " ", "r2", " ", 
          RowBox[{"Cos", "[", "\[Theta]2", "]"}]}]}]], 
       SqrtBox[
        RowBox[{
         SuperscriptBox["r", "2"], "+", 
         SuperscriptBox["r2", "2"]}]]]}], ",", 
     RowBox[{
      SqrtBox[
       RowBox[{"1", "-", 
        FractionBox[
         RowBox[{"2", " ", "r", " ", "r1", " ", 
          RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], 
         RowBox[{
          SuperscriptBox["r", "2"], "+", 
          SuperscriptBox["r1", "2"]}]]}]], "\[Rule]", 
      FractionBox[
       SqrtBox[
        RowBox[{
         SuperscriptBox["r", "2"], "+", 
         SuperscriptBox["r1", "2"], "-", 
         RowBox[{"2", " ", "r", " ", "r1", " ", 
          RowBox[{"Cos", "[", "\[Theta]2", "]"}]}]}]], 
       SqrtBox[
        RowBox[{
         SuperscriptBox["r", "2"], "+", 
         SuperscriptBox["r1", "2"]}]]]}], ",", 
     RowBox[{
      SqrtBox[
       RowBox[{"1", "-", 
        FractionBox[
         RowBox[{"2", " ", "r", " ", "r2", " ", 
          RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], 
         RowBox[{
          SuperscriptBox["r", "2"], "+", 
          SuperscriptBox["r2", "2"]}]]}]], "\[Rule]", 
      FractionBox[
       SqrtBox[
        RowBox[{
         SuperscriptBox["r", "2"], "+", 
         SuperscriptBox["r2", "2"], "-", 
         RowBox[{"2", " ", "r", " ", "r2", " ", 
          RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]], 
       SqrtBox[
        RowBox[{
         SuperscriptBox["r", "2"], "+", 
         SuperscriptBox["r2", "2"]}]]]}], ",", 
     RowBox[{
      SqrtBox[
       RowBox[{"1", "-", 
        FractionBox[
         RowBox[{"2", " ", "r", " ", "r1", " ", 
          RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], 
         RowBox[{
          SuperscriptBox["r", "2"], "+", 
          SuperscriptBox["r1", "2"]}]]}]], "\[Rule]", 
      FractionBox[
       SqrtBox[
        RowBox[{
         SuperscriptBox["r", "2"], "+", 
         SuperscriptBox["r1", "2"], "-", 
         RowBox[{"2", " ", "r", " ", "r1", " ", 
          RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]], 
       SqrtBox[
        RowBox[{
         SuperscriptBox["r", "2"], "+", 
         SuperscriptBox["r1", "2"]}]]]}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.858386791048543*^9, 3.858386797067299*^9}, {
  3.858387650443707*^9, 3.8583877558735247`*^9}, {3.858397963668503*^9, 
  3.858397968010436*^9}, {3.858398800607044*^9, 3.858398807674635*^9}, {
  3.876576304751696*^9, 3.876576305849018*^9}, {3.876659290694075*^9, 
  3.8766592913137083`*^9}},
 CellLabel->
  "In[107]:=",ExpressionUUID->"332304f7-aaff-4950-a1e5-5350d19ad05e"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{
  3.858386843995332*^9, {3.858387759156661*^9, 3.858387762914618*^9}, 
   3.858397254435618*^9, 3.858398087048567*^9, 3.858398816232568*^9, 
   3.858398847812951*^9, 3.858399128006675*^9, 3.858630409908165*^9, 
   3.8586305991721163`*^9, 3.858797305883141*^9, 3.858807602782441*^9, 
   3.8598443095523653`*^9, 3.860015256514677*^9, 3.87665930132588*^9, 
   3.886060821906207*^9},
 CellLabel->
  "Out[107]=",ExpressionUUID->"27c2f83f-fdac-4856-91b6-6a393875f971"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", 
  RowBox[{"ZonalBandVxx", "+", "ZonalBandVyy", "+", "ZonalBandVzz"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.858386955573298*^9, 3.858386975158724*^9}, {
  3.858397977453637*^9, 3.858397986148345*^9}, {3.858797289530905*^9, 
  3.858797293923091*^9}, {3.8588071715561132`*^9, 3.858807175625286*^9}, {
  3.8765763090960484`*^9, 3.8765763097598143`*^9}, {3.8766592944363813`*^9, 
  3.8766592946477222`*^9}},
 CellLabel->
  "In[108]:=",ExpressionUUID->"5c524cf7-10a5-4d64-beae-c698acf35cc2"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.8583869861804323`*^9, 3.8583972545681973`*^9, 
  3.8583980871263857`*^9, 3.858398816370077*^9, 3.858398847838044*^9, 
  3.8583991281339617`*^9, 3.858630409940813*^9, 3.858630599243506*^9, 
  3.8587973059661016`*^9, 3.858807602790945*^9, 3.8598443095580606`*^9, 
  3.860015256524296*^9, 3.876659301333551*^9, 3.8860608219094353`*^9},
 CellLabel->
  "Out[108]=",ExpressionUUID->"4d3c5701-728f-4a44-ab96-33bc265c9fe0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"ZonalBandVxxz", "+", "ZonalBandVyyz", "+", "ZonalBandVzzz"}], 
    ")"}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      SqrtBox[
       RowBox[{"1", "-", 
        FractionBox[
         RowBox[{"2", " ", "r", " ", "r2", " ", 
          RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], 
         RowBox[{
          SuperscriptBox["r", "2"], "+", 
          SuperscriptBox["r2", "2"]}]]}]], "\[Rule]", 
      FractionBox[
       SqrtBox[
        RowBox[{
         SuperscriptBox["r", "2"], "+", 
         SuperscriptBox["r2", "2"], "-", 
         RowBox[{"2", " ", "r", " ", "r2", " ", 
          RowBox[{"Cos", "[", "\[Theta]2", "]"}]}]}]], 
       SqrtBox[
        RowBox[{
         SuperscriptBox["r", "2"], "+", 
         SuperscriptBox["r2", "2"]}]]]}], ",", 
     RowBox[{
      SqrtBox[
       RowBox[{"1", "-", 
        FractionBox[
         RowBox[{"2", " ", "r", " ", "r1", " ", 
          RowBox[{"Cos", "[", "\[Theta]2", "]"}]}], 
         RowBox[{
          SuperscriptBox["r", "2"], "+", 
          SuperscriptBox["r1", "2"]}]]}]], "\[Rule]", 
      FractionBox[
       SqrtBox[
        RowBox[{
         SuperscriptBox["r", "2"], "+", 
         SuperscriptBox["r1", "2"], "-", 
         RowBox[{"2", " ", "r", " ", "r1", " ", 
          RowBox[{"Cos", "[", "\[Theta]2", "]"}]}]}]], 
       SqrtBox[
        RowBox[{
         SuperscriptBox["r", "2"], "+", 
         SuperscriptBox["r1", "2"]}]]]}], ",", 
     RowBox[{
      SqrtBox[
       RowBox[{"1", "-", 
        FractionBox[
         RowBox[{"2", " ", "r", " ", "r2", " ", 
          RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], 
         RowBox[{
          SuperscriptBox["r", "2"], "+", 
          SuperscriptBox["r2", "2"]}]]}]], "\[Rule]", 
      FractionBox[
       SqrtBox[
        RowBox[{
         SuperscriptBox["r", "2"], "+", 
         SuperscriptBox["r2", "2"], "-", 
         RowBox[{"2", " ", "r", " ", "r2", " ", 
          RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]], 
       SqrtBox[
        RowBox[{
         SuperscriptBox["r", "2"], "+", 
         SuperscriptBox["r2", "2"]}]]]}], ",", 
     RowBox[{
      SqrtBox[
       RowBox[{"1", "-", 
        FractionBox[
         RowBox[{"2", " ", "r", " ", "r1", " ", 
          RowBox[{"Cos", "[", "\[Theta]1", "]"}]}], 
         RowBox[{
          SuperscriptBox["r", "2"], "+", 
          SuperscriptBox["r1", "2"]}]]}]], "\[Rule]", 
      FractionBox[
       SqrtBox[
        RowBox[{
         SuperscriptBox["r", "2"], "+", 
         SuperscriptBox["r1", "2"], "-", 
         RowBox[{"2", " ", "r", " ", "r1", " ", 
          RowBox[{"Cos", "[", "\[Theta]1", "]"}]}]}]], 
       SqrtBox[
        RowBox[{
         SuperscriptBox["r", "2"], "+", 
         SuperscriptBox["r1", "2"]}]]]}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{
  3.858398834901373*^9, {3.8587972962793217`*^9, 3.858797301373518*^9}, {
   3.858807177549428*^9, 3.8588071809078712`*^9}, {3.876576314247773*^9, 
   3.8765763153005238`*^9}, {3.876659296741431*^9, 3.876659297132473*^9}},
 CellLabel->
  "In[109]:=",ExpressionUUID->"c4f36b43-1538-4fa3-b58d-a9bef3aa40d3"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.858398835646619*^9, 3.858398847921171*^9}, 
   3.858399128338188*^9, 3.858630410001018*^9, 3.85863059931081*^9, 
   3.85879730609311*^9, 3.858807602901763*^9, 3.859844309669196*^9, 
   3.86001525665387*^9, 3.87665930146786*^9, 3.886060821948552*^9},
 CellLabel->
  "Out[109]=",ExpressionUUID->"319a7d72-47dd-49b7-b56c-41752b4ca36f"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"NotebookSave", "[", 
   RowBox[{"EvaluationNotebook", "[", "]"}], "]"}], ";"}]], "Input",
 CellLabel->
  "In[110]:=",ExpressionUUID->"b8897566-4f83-4a5f-b593-56a8588595b0"]
}, Open  ]]
},
WindowSize->{1280, 716},
WindowMargins->{{-1526, Automatic}, {Automatic, 110}},
FrontEndVersion->"12.3 for Mac OS X ARM (64-bit) (July 24, 2021)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"2a7ca9e0-56e8-4044-9cd3-2c0a73dda8a8"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 169, 3, 30, "Input",ExpressionUUID->"05fc1372-0eac-4398-9f89-cbc1e35d185d"],
Cell[CellGroupData[{
Cell[752, 27, 235, 4, 54, "Subsection",ExpressionUUID->"eae546a4-f055-4735-8d19-5805ab10b0d0"],
Cell[CellGroupData[{
Cell[1012, 35, 281, 5, 45, "Subsubsection",ExpressionUUID->"f406fea0-8655-4804-be88-b10795d595fc"],
Cell[1296, 42, 698, 18, 30, "Input",ExpressionUUID->"39723466-2e91-4e6d-8af9-78499b128ff2"],
Cell[1997, 62, 670, 17, 30, "Input",ExpressionUUID->"9b6fb028-4517-4c43-a005-6823cdeb3719"],
Cell[2670, 81, 647, 17, 30, "Input",ExpressionUUID->"4bd33475-1d8c-41c2-9212-f37868f6ffad"],
Cell[3320, 100, 694, 18, 30, "Input",ExpressionUUID->"f085ca3e-4287-49bc-8e45-57a93d47d632"],
Cell[4017, 120, 457, 11, 30, "Input",ExpressionUUID->"e0131c3c-5105-40c7-88ab-3da93c0ad501"],
Cell[4477, 133, 458, 11, 30, "Input",ExpressionUUID->"3a935b69-7286-49e9-9be8-5309c260106d"],
Cell[4938, 146, 302, 7, 30, "Input",ExpressionUUID->"a9792685-2b0f-4fa4-bd41-0a9e4e0f05c9"],
Cell[5243, 155, 308, 7, 30, "Input",ExpressionUUID->"8b32130b-314e-49f7-90b1-a10a536e92ef"],
Cell[5554, 164, 307, 7, 30, "Input",ExpressionUUID->"3fed6808-0b62-4ba3-b585-c47641a3a0f6"],
Cell[5864, 173, 304, 7, 30, "Input",ExpressionUUID->"31571664-b4ac-48db-a1f9-3557fbce3e50"],
Cell[6171, 182, 408, 10, 36, "Input",ExpressionUUID->"b865400f-45ca-4f13-bdb7-9b7d1b5e7c46"],
Cell[6582, 194, 406, 10, 36, "Input",ExpressionUUID->"7a0294d1-ee59-4e59-9c87-4722d286015d"],
Cell[6991, 206, 408, 10, 36, "Input",ExpressionUUID->"05ad7b7d-1d1d-4970-8ba7-a382f831693c"],
Cell[7402, 218, 406, 10, 36, "Input",ExpressionUUID->"8567c086-6a22-48ef-8066-a263e58aa90e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7845, 233, 290, 5, 45, "Subsubsection",ExpressionUUID->"f1f1c7b1-fd48-4e80-96c4-db9f9598f0b7"],
Cell[8138, 240, 698, 19, 33, "Input",ExpressionUUID->"ca99225d-3cd4-4c73-af19-a476b7745ba4"],
Cell[8839, 261, 700, 19, 33, "Input",ExpressionUUID->"9d3cf6f1-a64a-4ebd-9aa4-897e2de73e85"],
Cell[9542, 282, 723, 19, 33, "Input",ExpressionUUID->"0e5cdbfd-3afa-4b74-a0a3-53f451202f2a"],
Cell[10268, 303, 696, 19, 33, "Input",ExpressionUUID->"565f2687-402a-4e0e-bd95-35c9f8395694"]
}, Open  ]],
Cell[CellGroupData[{
Cell[11001, 327, 333, 5, 45, "Subsubsection",ExpressionUUID->"960281e1-5d82-4949-872a-ade9562dec77"],
Cell[11337, 334, 1130, 32, 33, "Input",ExpressionUUID->"452d7b90-7241-4741-9ed6-321c0814de45"],
Cell[12470, 368, 1130, 32, 33, "Input",ExpressionUUID->"2414344d-7dc9-4f03-807d-1b3a123b14db"],
Cell[13603, 402, 1079, 31, 33, "Input",ExpressionUUID->"62366de4-29ae-4201-9323-fe0da906f6c1"],
Cell[14685, 435, 1126, 32, 33, "Input",ExpressionUUID->"fe1be78e-f627-4d9b-9a0a-6eca4757cc5c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15848, 472, 434, 7, 45, "Subsubsection",ExpressionUUID->"d045f928-02e8-44b4-852f-7f585569624d"],
Cell[16285, 481, 977, 27, 33, "Input",ExpressionUUID->"99056d0d-23bd-4fd3-93d6-51aa82bd38f7"],
Cell[17265, 510, 978, 27, 33, "Input",ExpressionUUID->"1118e2f0-dc04-4fcd-af96-9d2f4d9d27ae"],
Cell[18246, 539, 568, 16, 33, "Input",ExpressionUUID->"50fdc719-ad7c-444e-861f-727cac453609"],
Cell[18817, 557, 569, 16, 33, "Input",ExpressionUUID->"d33fcb3e-c54a-425e-a930-eb6eeba421b7"],
Cell[19389, 575, 1130, 32, 33, "Input",ExpressionUUID->"6b413f2c-e164-49d6-962a-b2c13bd7f9e5"],
Cell[20522, 609, 1130, 32, 33, "Input",ExpressionUUID->"999e4c4e-c312-46cc-9ced-d4b3931b4d06"],
Cell[21655, 643, 1132, 32, 33, "Input",ExpressionUUID->"9c767da7-99b7-4c20-bc19-dc3af275c76b"],
Cell[22790, 677, 1132, 32, 33, "Input",ExpressionUUID->"7fbdcff1-903e-4b12-b6c3-16c1537adca1"],
Cell[23925, 711, 754, 21, 33, "Input",ExpressionUUID->"424c9fd6-ed62-41da-b264-8522ce0287c9"],
Cell[24682, 734, 752, 21, 33, "Input",ExpressionUUID->"646f8060-5a34-4afb-9dfa-e3b9d31ebcaf"],
Cell[25437, 757, 1060, 30, 33, "Input",ExpressionUUID->"4f925afb-6cb7-49d7-9eaf-33968f0c20a5"],
Cell[26500, 789, 1060, 30, 33, "Input",ExpressionUUID->"7b530b69-4a35-4170-b289-b29e297ed77f"],
Cell[27563, 821, 1060, 30, 33, "Input",ExpressionUUID->"080867df-8fa4-4dec-8bce-8859c991a552"],
Cell[28626, 853, 1057, 30, 33, "Input",ExpressionUUID->"ae5f10c9-ec15-4373-acc5-f56b84252cfd"]
}, Open  ]],
Cell[CellGroupData[{
Cell[29720, 888, 434, 7, 45, "Subsubsection",ExpressionUUID->"467f9704-ac71-4865-bee0-0120861a8978"],
Cell[30157, 897, 1031, 28, 33, "Input",ExpressionUUID->"088a92c2-5ed9-45e2-bff9-a8dd7742e5e0"],
Cell[31191, 927, 978, 27, 33, "Input",ExpressionUUID->"b6d04af6-29dd-4fad-8c9c-891201d72ee8"],
Cell[32172, 956, 1130, 32, 33, "Input",ExpressionUUID->"2d355fbd-0035-4aa4-8dc1-a81bce2a0112"],
Cell[33305, 990, 1130, 32, 33, "Input",ExpressionUUID->"8de127a1-a57b-452e-8c6a-455e1ad004cc"],
Cell[34438, 1024, 1130, 32, 33, "Input",ExpressionUUID->"67955668-de81-4bfb-b545-0784a00364aa"],
Cell[35571, 1058, 1130, 32, 33, "Input",ExpressionUUID->"e87e7054-55ad-4297-9156-3cbb9e9ea48a"],
Cell[36704, 1092, 1058, 30, 33, "Input",ExpressionUUID->"a9354ab6-00f0-4353-a51b-dfa9dfd00f5c"],
Cell[37765, 1124, 1058, 30, 33, "Input",ExpressionUUID->"6ceaaa76-e033-4ba6-bd51-8e6144fdd503"],
Cell[38826, 1156, 1060, 30, 33, "Input",ExpressionUUID->"d310e1a6-344c-4318-be45-b76205ffef5a"],
Cell[39889, 1188, 1062, 30, 33, "Input",ExpressionUUID->"de051c9c-3ad9-4f93-94fb-76e312721660"]
}, Open  ]],
Cell[CellGroupData[{
Cell[40988, 1223, 409, 6, 45, "Subsubsection",ExpressionUUID->"c1a8601e-f905-472c-bd8b-14175810c79c"],
Cell[41400, 1231, 902, 25, 33, "Input",ExpressionUUID->"04577011-f466-4c3b-9756-3ba636953445"],
Cell[42305, 1258, 878, 25, 33, "Input",ExpressionUUID->"e1ee333a-c5ef-4f6d-a277-d1d92e07f8e5"],
Cell[43186, 1285, 882, 25, 33, "Input",ExpressionUUID->"ac539815-fb18-4dd2-b19b-f617db537eca"],
Cell[44071, 1312, 926, 25, 33, "Input",ExpressionUUID->"8f231e53-f6ab-4ee1-bbe7-53a0879cd360"]
}, Open  ]],
Cell[CellGroupData[{
Cell[45034, 1342, 461, 7, 45, "Subsubsection",ExpressionUUID->"9bb697db-e183-40e1-bcc5-b4be102f6cad"],
Cell[45498, 1351, 814, 22, 30, "Input",ExpressionUUID->"c8b0d206-c01f-480f-9416-f25e94b827b3"],
Cell[46315, 1375, 812, 22, 30, "Input",ExpressionUUID->"98db47b4-8fad-4193-842e-4d7882237d89"],
Cell[47130, 1399, 814, 22, 30, "Input",ExpressionUUID->"e8385c1d-5947-4d19-85db-69a48b8b5551"],
Cell[47947, 1423, 814, 22, 30, "Input",ExpressionUUID->"7bdcde70-038e-4000-a651-1f43082b6b62"],
Cell[48764, 1447, 455, 12, 55, "Input",ExpressionUUID->"f48abe45-93ac-4787-8e61-ccba6e8e2505"],
Cell[49222, 1461, 453, 12, 55, "Input",ExpressionUUID->"9d0c0af6-87f4-43cd-9e33-319bd4aa695c"],
Cell[49678, 1475, 454, 12, 55, "Input",ExpressionUUID->"567236f2-c419-481f-ac1b-0730f30cec63"],
Cell[50135, 1489, 453, 12, 55, "Input",ExpressionUUID->"b8d27cba-04ba-454a-8c2f-10dbbde5bbf3"],
Cell[50591, 1503, 1139, 34, 33, "Input",ExpressionUUID->"3d7df6c1-9afe-408a-86ec-d986db21bf72"],
Cell[51733, 1539, 1138, 34, 33, "Input",ExpressionUUID->"446a8aaf-a7df-4811-97f0-aebdad3a6461"],
Cell[52874, 1575, 1141, 34, 33, "Input",ExpressionUUID->"26f1a4a0-4b7c-4d6b-a253-d3610e1cfba6"],
Cell[54018, 1611, 1141, 34, 33, "Input",ExpressionUUID->"39a38877-b19b-41d3-8fab-5914af1ffccf"],
Cell[55162, 1647, 1832, 50, 75, "Input",ExpressionUUID->"5a912e3d-6452-4c49-8944-e67e53e31888"],
Cell[56997, 1699, 1837, 50, 75, "Input",ExpressionUUID->"8ee7e02c-ac5d-40b6-8272-f7af33524411"],
Cell[58837, 1751, 1839, 50, 75, "Input",ExpressionUUID->"447b8fc0-ea17-4862-abb0-6400073cc0f0"],
Cell[60679, 1803, 1861, 50, 75, "Input",ExpressionUUID->"889b77d3-4601-41b4-adc1-999963c21c0a"],
Cell[62543, 1855, 490, 14, 34, "Input",ExpressionUUID->"26fe60da-9be3-4b2f-9392-e4eae254bf40"],
Cell[63036, 1871, 490, 14, 34, "Input",ExpressionUUID->"b1f87b93-2bff-4546-b805-71e8615150ed"],
Cell[63529, 1887, 492, 14, 34, "Input",ExpressionUUID->"651b133e-0969-4e5d-a086-5039b5a00900"],
Cell[64024, 1903, 492, 14, 34, "Input",ExpressionUUID->"2dc4be72-0beb-46a8-baef-ba30799b16f0"],
Cell[64519, 1919, 519, 14, 33, "Input",ExpressionUUID->"54b26f28-2d21-453a-aee6-b4798b359892"],
Cell[65041, 1935, 516, 14, 33, "Input",ExpressionUUID->"20c1f73b-21c8-40e6-a78c-c718364b648b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[65594, 1954, 511, 8, 45, "Subsubsection",ExpressionUUID->"689b3c48-105a-4e96-bc7a-625568f31ecb"],
Cell[66108, 1964, 867, 23, 30, "Input",ExpressionUUID->"168080ba-e74b-4053-9d47-ed600f1248ff"],
Cell[66978, 1989, 861, 23, 30, "Input",ExpressionUUID->"9d67c63f-5901-4a6a-aca3-f67e2868f559"],
Cell[67842, 2014, 865, 23, 30, "Input",ExpressionUUID->"83e07042-f8dc-4ddf-b527-55a489f449a5"],
Cell[68710, 2039, 863, 23, 30, "Input",ExpressionUUID->"d2112995-383e-4455-b23c-350889ff8a88"],
Cell[69576, 2064, 1808, 49, 75, "Input",ExpressionUUID->"15037355-c3c6-4b33-88ec-a521b0732793"],
Cell[71387, 2115, 1785, 49, 75, "Input",ExpressionUUID->"f7c0717f-d31e-4408-bfce-8127127367a5"],
Cell[73175, 2166, 1807, 49, 75, "Input",ExpressionUUID->"1e2f55db-a572-4c27-bf78-789f6fa525c3"],
Cell[74985, 2217, 1839, 50, 75, "Input",ExpressionUUID->"1fcdb463-6dae-45a1-9058-35622888f536"]
}, Open  ]],
Cell[CellGroupData[{
Cell[76861, 2272, 551, 8, 45, "Subsubsection",ExpressionUUID->"c3cccfc2-5a3c-4e5a-86eb-28ef01b1f185"],
Cell[77415, 2282, 591, 17, 33, "Input",ExpressionUUID->"99e33710-cdb9-4a80-86f7-77ddc1125373"],
Cell[78009, 2301, 589, 17, 33, "Input",ExpressionUUID->"0fbe6923-7586-4979-821a-572c8c9da587"],
Cell[78601, 2320, 591, 17, 33, "Input",ExpressionUUID->"6a995b93-dbbf-40cc-987a-6710ace158f7"],
Cell[79195, 2339, 589, 17, 33, "Input",ExpressionUUID->"f329d1b0-1609-444e-ba4f-e41d4d732b13"],
Cell[79787, 2358, 783, 22, 33, "Input",ExpressionUUID->"2c062094-a93e-4ba7-9f76-55e0cee58469"],
Cell[80573, 2382, 783, 22, 33, "Input",ExpressionUUID->"34131a59-e3e1-4b6c-9fe4-c778afce99db"],
Cell[81359, 2406, 785, 22, 33, "Input",ExpressionUUID->"80486ebc-87b8-4cf4-9c36-0206c897f289"],
Cell[82147, 2430, 782, 22, 33, "Input",ExpressionUUID->"413ed500-e7f3-47a3-951b-d384a4560c2a"],
Cell[82932, 2454, 411, 12, 34, "Input",ExpressionUUID->"de15c59a-69f3-4983-a0ee-af9cdd0733d1"],
Cell[83346, 2468, 411, 12, 34, "Input",ExpressionUUID->"74b8d12f-b2c7-40a0-ac4f-419ec149cfe6"],
Cell[83760, 2482, 412, 12, 34, "Input",ExpressionUUID->"bff7be55-462e-4ac5-931c-58fe153ab910"],
Cell[84175, 2496, 413, 12, 34, "Input",ExpressionUUID->"ec02c8dc-e896-4c84-ae6a-5a828c1c1e57"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[84637, 2514, 644, 11, 81, "Subsection",ExpressionUUID->"b7745c2b-f1b5-46fc-9f2f-83cd2d9d33f5"],
Cell[CellGroupData[{
Cell[85306, 2529, 1239, 32, 50, "Input",ExpressionUUID->"495529eb-9e17-49b4-933f-de7ef9ac8828"],
Cell[86548, 2563, 7356, 204, 271, "Output",ExpressionUUID->"67bb20fd-ea27-4c3c-be9a-81473f090d46"]
}, Open  ]],
Cell[CellGroupData[{
Cell[93941, 2772, 1650, 47, 114, "Input",ExpressionUUID->"b5d2e3e6-ce5a-41d2-aac3-f6e57ded773a"],
Cell[95594, 2821, 17331, 481, 420, "Output",ExpressionUUID->"84bb4e56-c418-45e2-b6e3-267bb60d5c37"]
}, Open  ]],
Cell[CellGroupData[{
Cell[112962, 3307, 1648, 47, 114, "Input",ExpressionUUID->"b6831bae-71f6-4fec-b42e-3d2bd08564b8"],
Cell[114613, 3356, 17342, 481, 420, "Output",ExpressionUUID->"8207a8c8-8f45-4467-afbe-a43ea2eb8f0d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[131992, 3842, 985, 27, 49, "Input",ExpressionUUID->"01de89b2-b545-4370-8fc2-831870da52a3"],
Cell[132980, 3871, 5055, 133, 115, "Output",ExpressionUUID->"8cb68529-0c33-4c94-8fed-77174088e1a7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[138072, 4009, 1035, 26, 49, "Input",ExpressionUUID->"57e47ec7-697f-4fb9-9d98-9ead37123d2a"],
Cell[139110, 4037, 33178, 860, 806, "Output",ExpressionUUID->"7eaa7fd5-5d72-4e86-a516-777314b573ea"]
}, Open  ]],
Cell[CellGroupData[{
Cell[172325, 4902, 1089, 27, 49, "Input",ExpressionUUID->"cc2dc5e6-fcec-45ac-9f61-65c166538f39"],
Cell[173417, 4931, 33215, 861, 806, "Output",ExpressionUUID->"1617d37b-989b-4ff2-aa36-2e2b2f9b2002"]
}, Open  ]],
Cell[CellGroupData[{
Cell[206669, 5797, 1230, 32, 50, "Input",ExpressionUUID->"cf56da0b-d475-4613-98f8-40b7bcff4998"],
Cell[207902, 5831, 7268, 201, 271, "Output",ExpressionUUID->"95467d8d-fbcb-4f11-89f8-be32cdad775b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[215207, 6037, 1164, 32, 50, "Input",ExpressionUUID->"67fe53f6-5034-4b5d-a6c9-02d8d368c732"],
Cell[216374, 6071, 7476, 202, 271, "Output",ExpressionUUID->"e75282b8-94c1-4bdf-8c35-c4019710a12a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[223887, 6278, 1136, 31, 50, "Input",ExpressionUUID->"d7b5da65-bfef-442d-9c72-d02244425096"],
Cell[225026, 6311, 7456, 202, 271, "Output",ExpressionUUID->"a10626c7-6412-44cc-a647-aa2ddc34c1ee"]
}, Open  ]],
Cell[CellGroupData[{
Cell[232519, 6518, 974, 26, 50, "Input",ExpressionUUID->"82561d59-7a0b-42d9-9f7e-2f79421428e4"],
Cell[233496, 6546, 4936, 129, 115, "Output",ExpressionUUID->"7104d80b-99dc-468f-a7b3-533b4cc88aa1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[238469, 6680, 1044, 28, 50, "Input",ExpressionUUID->"485b51c6-a3ec-409a-bdb0-2d857103570c"],
Cell[239516, 6710, 13026, 353, 394, "Output",ExpressionUUID->"31cc15e0-687a-443a-a77b-3e8b09f626c7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[252579, 7068, 1042, 28, 50, "Input",ExpressionUUID->"675ed05d-e643-4fe2-9644-ef7463c8813c"],
Cell[253624, 7098, 12819, 350, 394, "Output",ExpressionUUID->"901c75e7-7a96-4ebb-be35-d818d095d05e"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[266492, 7454, 472, 7, 54, "Subsection",ExpressionUUID->"2a380a82-0022-4f90-812d-916de4278aaa"],
Cell[CellGroupData[{
Cell[266989, 7465, 401, 7, 30, "Input",ExpressionUUID->"2f3fae3a-bc58-46b6-9293-f5f1f078eecc"],
Cell[267393, 7474, 457, 7, 34, "Output",ExpressionUUID->"2dd9a5e0-18fd-4f28-9158-adb5fd5be488"]
}, Open  ]],
Cell[CellGroupData[{
Cell[267887, 7486, 3201, 93, 122, "Input",ExpressionUUID->"332304f7-aaff-4950-a1e5-5350d19ad05e"],
Cell[271091, 7581, 511, 9, 34, "Output",ExpressionUUID->"27c2f83f-fdac-4856-91b6-6a393875f971"]
}, Open  ]],
Cell[CellGroupData[{
Cell[271639, 7595, 535, 10, 30, "Input",ExpressionUUID->"5c524cf7-10a5-4d64-beae-c698acf35cc2"],
Cell[272177, 7607, 465, 7, 34, "Output",ExpressionUUID->"4d3c5701-728f-4a44-ab96-33bc265c9fe0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[272679, 7619, 3164, 93, 152, "Input",ExpressionUUID->"c4f36b43-1538-4fa3-b58d-a9bef3aa40d3"],
Cell[275846, 7714, 383, 6, 34, "Output",ExpressionUUID->"319a7d72-47dd-49b7-b56c-41752b4ca36f"]
}, Open  ]],
Cell[276244, 7723, 207, 5, 60, "Input",ExpressionUUID->"b8897566-4f83-4a5f-b593-56a8588595b0"]
}, Open  ]]
}
]
*)