Test.nb

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

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

(* CreatedBy='Mathematica 11.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    195519,       4942]
NotebookOptionsPosition[    187260,       4677]
NotebookOutlinePosition[    187603,       4692]
CellTagsIndexPosition[    187560,       4689]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Function Definitions", "Section",
 CellChangeTimes->{{3.687366865444012*^9, 3.6873668694166174`*^9}, 
   3.6880699090944223`*^9}],

Cell[CellGroupData[{

Cell["Define G", "Subsection",
 CellChangeTimes->{{3.685470164129733*^9, 3.685470165661002*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"G", "[", 
    RowBox[{"n_", ",", "a_", ",", "d_", ",", "i_"}], "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "}"}], ",", "\n", 
     RowBox[{
      RowBox[{"an", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"a", "+", "d"}], ")"}], "/", "2"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"n", "\[Equal]", "3"}], ",", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"Return", "[", 
         RowBox[{"TrigExpand", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Cos", "[", "an", "]"}], ",", 
              RowBox[{
               RowBox[{"-", "i"}], " ", 
               RowBox[{"Sin", "[", "an", "]"}]}], ",", "0", ",", "0"}], "}"}],
             ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"i", " ", 
               RowBox[{"Sin", "[", "an", "]"}]}], ",", 
              RowBox[{"Cos", "[", "an", "]"}], ",", "0", ",", "0"}], "}"}], 
            ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", "0", ",", 
              RowBox[{"Cos", "[", "an", "]"}], ",", 
              RowBox[{"i", " ", 
               RowBox[{"Sin", "[", "an", "]"}]}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", "0", ",", 
              RowBox[{
               RowBox[{"-", "i"}], " ", 
               RowBox[{"Sin", "[", "an", "]"}]}], ",", 
              RowBox[{"Cos", "[", "an", "]"}]}], "}"}]}], "}"}], "]"}], 
         "]"}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"n", "\[Equal]", "2"}], ",", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"Return", "[", 
         RowBox[{"TrigExpand", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Cos", "[", "an", "]"}], ",", "0", ",", 
              RowBox[{"i", " ", 
               RowBox[{"Sin", "[", "an", "]"}]}], ",", "0"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", 
              RowBox[{"Cos", "[", "an", "]"}], ",", "0", ",", 
              RowBox[{"i", " ", 
               RowBox[{"Sin", "[", "an", "]"}]}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "i"}], " ", 
               RowBox[{"Sin", "[", "an", "]"}]}], ",", "0", ",", 
              RowBox[{"Cos", "[", "an", "]"}], ",", "0"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", 
              RowBox[{
               RowBox[{"-", "i"}], " ", 
               RowBox[{"Sin", "[", "an", "]"}]}], ",", "0", ",", 
              RowBox[{"Cos", "[", "an", "]"}]}], "}"}]}], "}"}], "]"}], 
         "]"}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"n", "\[Equal]", "1"}], ",", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"Return", "[", 
         RowBox[{"TrigExpand", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Cos", "[", "an", "]"}], ",", "0", ",", "0", ",", 
              RowBox[{"i", " ", 
               RowBox[{"Sin", "[", "an", "]"}]}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", 
              RowBox[{"Cos", "[", "an", "]"}], ",", 
              RowBox[{
               RowBox[{"-", "i"}], " ", 
               RowBox[{"Sin", "[", "an", "]"}]}], ",", "0"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", 
              RowBox[{"i", " ", 
               RowBox[{"Sin", "[", "an", "]"}]}], ",", 
              RowBox[{"Cos", "[", "an", "]"}], ",", "0"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "i"}], " ", 
               RowBox[{"Sin", "[", "an", "]"}]}], ",", "0", ",", "0", ",", 
              RowBox[{"Cos", "[", "an", "]"}]}], "}"}]}], "}"}], "]"}], 
         "]"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", 
    "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.685469834246604*^9, 3.6854698358247495`*^9}, 
   3.6854698812042365`*^9, {3.685640488606887*^9, 3.68564049854426*^9}, {
   3.6857829583239703`*^9, 3.685783001932787*^9}, 3.687033720201656*^9}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.6880613926156263`*^9, 3.688061394853879*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Define H", "Subsection",
 CellChangeTimes->{{3.685470191333206*^9, 3.6854701928996325`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"H", "[", 
    RowBox[{"n_", ",", "a_", ",", "d_", ",", "i_"}], "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "}"}], ",", "\n", 
     RowBox[{
      RowBox[{"an", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"a", "-", "d"}], ")"}], "/", "2"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"n", "\[Equal]", "3"}], ",", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"Return", "[", 
         RowBox[{"TrigExpand", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Cos", "[", "an", "]"}], ",", 
              RowBox[{"i", " ", 
               RowBox[{"Sin", "[", "an", "]"}]}], ",", "0", ",", "0"}], "}"}],
             ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "i"}], " ", 
               RowBox[{"Sin", "[", "an", "]"}]}], ",", 
              RowBox[{"Cos", "[", "an", "]"}], ",", "0", ",", "0"}], "}"}], 
            ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", "0", ",", 
              RowBox[{"Cos", "[", "an", "]"}], ",", 
              RowBox[{"i", " ", 
               RowBox[{"Sin", "[", "an", "]"}]}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", "0", ",", 
              RowBox[{
               RowBox[{"-", "i"}], " ", 
               RowBox[{"Sin", "[", "an", "]"}]}], ",", 
              RowBox[{"Cos", "[", "an", "]"}]}], "}"}]}], "}"}], "]"}], 
         "]"}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"n", "\[Equal]", "2"}], ",", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"Return", "[", 
         RowBox[{"TrigExpand", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Cos", "[", "an", "]"}], ",", "0", ",", 
              RowBox[{
               RowBox[{"-", "i"}], " ", 
               RowBox[{"Sin", "[", "an", "]"}]}], ",", "0"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", 
              RowBox[{"Cos", "[", "an", "]"}], ",", "0", ",", 
              RowBox[{
               RowBox[{"-", "i"}], " ", 
               RowBox[{"Sin", "[", "an", "]"}]}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"i", " ", 
               RowBox[{"Sin", "[", "an", "]"}]}], ",", "0", ",", 
              RowBox[{"Cos", "[", "an", "]"}], ",", "0"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", 
              RowBox[{"i", " ", 
               RowBox[{"Sin", "[", "an", "]"}]}], ",", "0", ",", 
              RowBox[{"Cos", "[", "an", "]"}]}], "}"}]}], "}"}], "]"}], 
         "]"}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"n", "\[Equal]", "1"}], ",", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"Return", "[", 
         RowBox[{"TrigExpand", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Cos", "[", "an", "]"}], ",", "0", ",", "0", ",", 
              RowBox[{"i", " ", 
               RowBox[{"Sin", "[", "an", "]"}]}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", 
              RowBox[{"Cos", "[", "an", "]"}], ",", 
              RowBox[{"i", " ", 
               RowBox[{"Sin", "[", "an", "]"}]}], ",", "0"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", 
              RowBox[{
               RowBox[{"-", "i"}], " ", 
               RowBox[{"Sin", "[", "an", "]"}]}], ",", 
              RowBox[{"Cos", "[", "an", "]"}], ",", "0"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "i"}], " ", 
               RowBox[{"Sin", "[", "an", "]"}]}], ",", "0", ",", "0", ",", 
              RowBox[{"Cos", "[", "an", "]"}]}], "}"}]}], "}"}], "]"}], 
         "]"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", 
    "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{
  3.6856405185010357`*^9, {3.6857830100459642`*^9, 3.6857830406901035`*^9}, {
   3.6862474813620424`*^9, 3.6862474880064883`*^9}, {3.686276637330204*^9, 
   3.6862766690898895`*^9}, {3.6862767559318323`*^9, 3.6862767674043417`*^9}, 
   3.687033730686031*^9, {3.6870562506620474`*^9, 3.6870562982557974`*^9}, {
   3.6870563325682974`*^9, 3.687056338365173*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Obtain Transformation Matrix from DH", "Subsection",
 CellChangeTimes->{{3.6867797715312386`*^9, 3.686779789546633*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"TMat", "[", 
    RowBox[{"Za_", ",", "sz_", ",", "Xa_", ",", "sx_"}], "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"T", "=", 
       RowBox[{"IdentityMatrix", "[", "4", "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"i", "=", "1"}], ",", 
        RowBox[{"i", "\[LessEqual]", "6"}], ",", 
        RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"T", " ", "=", " ", 
             RowBox[{"T", ".", 
              RowBox[{"N", "[", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"Cos", "[", 
                    RowBox[{"Za", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "]"}], ",", 
                   RowBox[{"-", 
                    RowBox[{"Sin", "[", 
                    RowBox[{"Za", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "]"}]}], ",", "0", ",", 
                   RowBox[{"sx", "[", 
                    RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"Sin", "[", 
                    RowBox[{"Za", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "]"}], "*", 
                    RowBox[{"Cos", "[", 
                    RowBox[{"Xa", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "]"}]}], ",", 
                   RowBox[{
                    RowBox[{"Cos", "[", 
                    RowBox[{"Za", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "]"}], "*", 
                    RowBox[{"Cos", "[", 
                    RowBox[{"Xa", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "]"}]}], ",", 
                   RowBox[{"-", 
                    RowBox[{"Sin", "[", 
                    RowBox[{"Xa", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "]"}]}], ",", 
                   RowBox[{
                    RowBox[{"-", 
                    RowBox[{"Sin", "[", 
                    RowBox[{"Xa", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "]"}]}], "*", 
                    RowBox[{"sz", "[", 
                    RowBox[{"[", "i", "]"}], "]"}]}]}], "}"}], ",", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"Sin", "[", 
                    RowBox[{"Za", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "]"}], "*", 
                    RowBox[{"Sin", "[", 
                    RowBox[{"Xa", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "]"}]}], ",", 
                   RowBox[{
                    RowBox[{"Cos", "[", 
                    RowBox[{"Za", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "]"}], "*", 
                    RowBox[{"Sin", "[", 
                    RowBox[{"Xa", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "]"}]}], ",", 
                   RowBox[{"Cos", "[", 
                    RowBox[{"Xa", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "]"}], ",", 
                   RowBox[{
                    RowBox[{"-", 
                    RowBox[{"Cos", "[", 
                    RowBox[{"Xa", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "]"}]}], "*", 
                    RowBox[{"sz", "[", 
                    RowBox[{"[", "i", "]"}], "]"}]}]}], "}"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "}"}]}], "}"}],
                "]"}]}]}], ";"}], "\[IndentingNewLine]", "]"}], ";"}], "*)"}],
         "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"T", " ", "=", " ", 
          RowBox[{"T", ".", 
           RowBox[{"N", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"Cos", "[", 
                 RowBox[{"Za", "[", 
                  RowBox[{"[", "i", "]"}], "]"}], "]"}], ",", 
                RowBox[{
                 RowBox[{"-", 
                  RowBox[{"Sin", "[", 
                   RowBox[{"Za", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "]"}]}], "*", 
                 RowBox[{"Cos", "[", 
                  RowBox[{"Xa", "[", 
                   RowBox[{"[", "i", "]"}], "]"}], "]"}]}], ",", 
                RowBox[{
                 RowBox[{"Sin", "[", 
                  RowBox[{"Za", "[", 
                   RowBox[{"[", "i", "]"}], "]"}], "]"}], "*", 
                 RowBox[{"Sin", "[", 
                  RowBox[{"Xa", "[", 
                   RowBox[{"[", "i", "]"}], "]"}], "]"}]}], ",", 
                RowBox[{
                 RowBox[{"sx", "[", 
                  RowBox[{"[", "i", "]"}], "]"}], "*", 
                 RowBox[{"Cos", "[", 
                  RowBox[{"Za", "[", 
                   RowBox[{"[", "i", "]"}], "]"}], "]"}]}]}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"Sin", "[", 
                 RowBox[{"Za", "[", 
                  RowBox[{"[", "i", "]"}], "]"}], "]"}], ",", 
                RowBox[{
                 RowBox[{"Cos", "[", 
                  RowBox[{"Za", "[", 
                   RowBox[{"[", "i", "]"}], "]"}], "]"}], "*", 
                 RowBox[{"Cos", "[", 
                  RowBox[{"Xa", "[", 
                   RowBox[{"[", "i", "]"}], "]"}], "]"}]}], ",", 
                RowBox[{
                 RowBox[{"-", 
                  RowBox[{"Sin", "[", 
                   RowBox[{"Xa", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "]"}]}], "*", 
                 RowBox[{"Cos", "[", 
                  RowBox[{"Za", "[", 
                   RowBox[{"[", "i", "]"}], "]"}], "]"}]}], ",", 
                RowBox[{
                 RowBox[{"Sin", "[", 
                  RowBox[{"Za", "[", 
                   RowBox[{"[", "i", "]"}], "]"}], "]"}], "*", 
                 RowBox[{"sx", "[", 
                  RowBox[{"[", "i", "]"}], "]"}]}]}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"0", ",", 
                RowBox[{"Sin", "[", 
                 RowBox[{"Xa", "[", 
                  RowBox[{"[", "i", "]"}], "]"}], "]"}], ",", 
                RowBox[{"Cos", "[", 
                 RowBox[{"Xa", "[", 
                  RowBox[{"[", "i", "]"}], "]"}], "]"}], ",", 
                RowBox[{"sz", "[", 
                 RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "}"}]}], "}"}], 
            "]"}]}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Return", "[", "T", "]"}], "//", "N"}], ";"}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.686779818007206*^9, 3.6867799076584024`*^9}, {
  3.686779947868825*^9, 3.6867800035595183`*^9}, {3.68678008144524*^9, 
  3.6867803395161552`*^9}, {3.686780488815026*^9, 3.6867804929673166`*^9}, {
  3.686780535947235*^9, 3.686780537353467*^9}, {3.6867805759818788`*^9, 
  3.686780578017009*^9}, {3.686780684753924*^9, 3.686780707484102*^9}, {
  3.6867807392297893`*^9, 3.6867807601787395`*^9}, {3.687013168498823*^9, 
  3.6870133705469913`*^9}, {3.6880623011714973`*^9, 3.688062311589599*^9}, {
  3.6880626456368437`*^9, 3.6880626940554323`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Extract Coefficients", "Subsection",
 CellChangeTimes->{{3.6871141336467233`*^9, 3.6871141367248487`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Cf", "[", 
    RowBox[{"expr_", ",", "var_", ",", "len_"}], "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Dimensions", "[", 
           RowBox[{"CoefficientList", "[", 
            RowBox[{"expr", ",", "var"}], "]"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], "\[GreaterEqual]", " ", "len"}], 
        ",", 
        RowBox[{"Return", "[", 
         RowBox[{
          RowBox[{"CoefficientList", "[", 
           RowBox[{"expr", ",", "var"}], "]"}], "[", 
          RowBox[{"[", "len", "]"}], "]"}], "]"}], ",", 
        RowBox[{"Return", "[", "0", "]"}]}], "]"}], ";"}]}], 
    "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.6871141408810987`*^9, 3.687114163678085*^9}, {
  3.6871142264441113`*^9, 3.687114236178549*^9}, {3.6871143394917097`*^9, 
  3.6871144430392475`*^9}, {3.6871145307580185`*^9, 3.6871145321642685`*^9}, {
  3.6871145654142685`*^9, 3.6871145798986435`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Obtain the ZXZ Euler Angles", "Subsection",
 CellChangeTimes->{{3.6871992820548444`*^9, 3.6871992880548444`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"ZXZ", "[", "mat_", "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"a", " ", "=", 
       RowBox[{"ArcTan", "[", 
        RowBox[{
         RowBox[{"-", 
          RowBox[{"mat", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "3"}], "]"}], "]"}]}], ",", 
         RowBox[{"mat", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"b", " ", "=", 
       RowBox[{"ArcCos", "[", 
        RowBox[{"mat", "[", 
         RowBox[{"[", 
          RowBox[{"3", ",", "3"}], "]"}], "]"}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"c", "=", 
       RowBox[{"ArcTan", "[", 
        RowBox[{
         RowBox[{"mat", "[", 
          RowBox[{"[", 
           RowBox[{"3", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"mat", "[", 
          RowBox[{"[", 
           RowBox[{"3", ",", "1"}], "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"Return", "[", 
       RowBox[{"{", 
        RowBox[{"a", ",", "b", ",", "c"}], "}"}], "]"}], ";"}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.687199298632969*^9, 3.687199420570469*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["DH Parameters", "Section"]], "Subsection",
 CellChangeTimes->{{3.6854701990364294`*^9, 3.685470203700552*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"New", " ", "Jaco"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"dza", "=", 
     RowBox[{"{", 
      RowBox[{
      "0.2755", ",", "0", ",", "0.0098", ",", "0.2393", ",", "0.03705", ",", 
       "0.1321"}], "}"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"dxa", "=", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0.4", ",", "0", ",", "0", ",", "0", ",", "0"}], 
      "}"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"Ax", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Pi", "/", "2"}], ",", "0", ",", 
       RowBox[{"Pi", "/", "2"}], ",", 
       RowBox[{"Pi", "/", "3"}], ",", 
       RowBox[{
        RowBox[{"-", "Pi"}], "/", "3"}], ",", "0"}], "}"}]}], ";"}], "*)"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"Old", " ", "Jaco"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"dza", "=", 
     RowBox[{"{", 
      RowBox[{"0.2102", ",", "0", ",", 
       RowBox[{"-", "0.0120"}], ",", 
       RowBox[{"-", "0.2493"}], ",", 
       RowBox[{"-", "0.0846"}], ",", 
       RowBox[{"-", "0.2273"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"dxa", "=", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0.41", ",", "0", ",", "0", ",", "0", ",", "0"}], 
      "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Ax", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Pi", "/", "2"}], ",", "Pi", ",", 
       RowBox[{"Pi", "/", "2"}], ",", 
       RowBox[{"55", "*", 
        RowBox[{"Pi", "/", "180"}]}], ",", 
       RowBox[{"55", "*", 
        RowBox[{"Pi", "/", "180"}]}], ",", "Pi"}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Rt", "=", 
     RowBox[{"2", "*", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Total", "[", 
         RowBox[{
          RowBox[{"Abs", "[", "dza", "]"}], ",", "1"}], "]"}], "+", 
        RowBox[{"Total", "[", 
         RowBox[{
          RowBox[{"Abs", "[", "dxa", "]"}], ",", "1"}], "]"}]}], ")"}]}]}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"dz", "=", 
     RowBox[{"dza", "/", 
      RowBox[{"(", "Rt", ")"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"dx", "=", 
     RowBox[{"dxa", "/", 
      RowBox[{"(", "Rt", ")"}]}]}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.685469936915887*^9, 3.685470037714052*^9}, {
   3.6854700705386915`*^9, 3.6854700908475447`*^9}, {3.68547012750817*^9, 
   3.685470152957715*^9}, {3.6854712217098083`*^9, 3.685471240124107*^9}, {
   3.685723684838359*^9, 3.6857237232089615`*^9}, {3.685723755235895*^9, 
   3.6857237656342*^9}, {3.685723801258744*^9, 3.685723804996977*^9}, {
   3.6858192477192574`*^9, 3.685819417513959*^9}, {3.6858194601852875`*^9, 
   3.6858194898255334`*^9}, 3.685992470687816*^9, {3.686069736158487*^9, 
   3.6860697637128215`*^9}, {3.686158779900073*^9, 3.6861587828573694`*^9}, {
   3.6861600294666977`*^9, 3.686160036556451*^9}, {3.6862773455040193`*^9, 
   3.686277348062646*^9}, {3.686278797065568*^9, 3.6862788016593766`*^9}, {
   3.686323563868249*^9, 3.6863235673643875`*^9}, {3.686395285936246*^9, 
   3.6863952892996564`*^9}, {3.6863969561170807`*^9, 
   3.6863970898614626`*^9}, {3.6864003893777933`*^9, 3.6864003924324417`*^9}, 
   3.686404169000742*^9, {3.68640428269751*^9, 3.6864042832522044`*^9}, {
   3.6864044564653587`*^9, 3.68640445702396*^9}, {3.686405598953788*^9, 
   3.6864056003756447`*^9}, {3.6867796320056806`*^9, 3.686779639021216*^9}, 
   3.686779675153566*^9, {3.686781820133922*^9, 3.6867818858205814`*^9}, {
   3.6867820536114025`*^9, 3.686782053935617*^9}, {3.6867821249190836`*^9, 
   3.686782126442501*^9}, {3.686783001536769*^9, 3.686783004622667*^9}, {
   3.686783459397645*^9, 3.6867834612104006`*^9}, {3.686841733077406*^9, 
   3.686841744686781*^9}, {3.686842092061781*^9, 3.686842092436781*^9}, {
   3.686842238639906*^9, 3.686842250358656*^9}, 3.686842300374281*^9, {
   3.686842402093031*^9, 3.686842406671156*^9}, {3.686843545374281*^9, 
   3.686843545921156*^9}, {3.686844259347844*^9, 3.686844259785344*^9}, {
   3.686844622300969*^9, 3.686844641066594*^9}, {3.686844835832219*^9, 
   3.686844836472844*^9}, {3.6870106681800985`*^9, 3.6870106713988485`*^9}, {
   3.6870107441644735`*^9, 3.6870107450238485`*^9}, {3.6870116031077237`*^9, 
   3.6870116304670987`*^9}, {3.6870117758108487`*^9, 
   3.6870117759045987`*^9}, {3.6870118237639737`*^9, 
   3.6870118238264737`*^9}, {3.6870118868733487`*^9, 
   3.6870118872639737`*^9}, {3.687042439907155*^9, 3.687042449718964*^9}, {
   3.6870550806365576`*^9, 3.6870550892459326`*^9}, {3.687103678347227*^9, 
   3.687103678831599*^9}, {3.687116466018245*^9, 3.687116466205743*^9}, {
   3.6871165312835083`*^9, 3.6871165328616333`*^9}, {3.6871166263772583`*^9, 
   3.6871166278303833`*^9}, {3.6871174100491333`*^9, 
   3.6871174140178833`*^9}, {3.6871176067678833`*^9, 
   3.6871176167053833`*^9}, {3.6871178927053833`*^9, 
   3.6871179615022583`*^9}, {3.6871179970491333`*^9, 
   3.6871179998616333`*^9}, {3.6871180329085083`*^9, 
   3.6871180744866333`*^9}, {3.6871985182755146`*^9, 3.687198522041139*^9}, {
   3.6871997595860944`*^9, 3.687199762007969*^9}, 3.687303713595953*^9, {
   3.687883938566764*^9, 3.687883960300861*^9}, {3.6878840679713573`*^9, 
   3.687884184555803*^9}, {3.687884322257165*^9, 3.687884323714178*^9}, {
   3.6878844496059003`*^9, 3.687884452816879*^9}, {3.687886939803856*^9, 
   3.687886948354747*^9}, {3.6878871132865458`*^9, 3.6878871140404615`*^9}, {
   3.687887306273391*^9, 3.687887306890586*^9}, {3.6878876581976624`*^9, 
   3.687887658889059*^9}, {3.687888825276473*^9, 3.687888826463958*^9}, {
   3.6878888954122944`*^9, 3.6878888959474435`*^9}, {3.6878893551954713`*^9, 
   3.687889355601716*^9}, {3.6878894011636333`*^9, 3.687889402964391*^9}, {
   3.687889532411953*^9, 3.6878895337869353`*^9}, {3.6880565951557584`*^9, 
   3.6880565975658836`*^9}, {3.6880630638861775`*^9, 3.688063064300235*^9}, 
   3.688063181318268*^9, {3.688067443714944*^9, 3.6880674453321524`*^9}, {
   3.6880682860878158`*^9, 3.6880682957439423`*^9}, {3.688068664519898*^9, 
   3.6880686669652414`*^9}, {3.6880695606407433`*^9, 3.688069561070436*^9}, {
   3.688069654126315*^9, 3.68806965435288*^9}, {3.6880705876697755`*^9, 
   3.688070588146332*^9}, {3.688070648829149*^9, 3.6880706496611695`*^9}, {
   3.688070741284997*^9, 3.6880707418513956`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Find G and H for given angles", "Subsection",
 CellChangeTimes->{{3.685470265814628*^9, 3.685470271420169*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"pose", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.09729", ",", 
       RowBox[{"-", "0.15346"}], ",", "0.98336", ",", "0.14492"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.99374", ",", 
       RowBox[{"-", "0.03965"}], ",", 
       RowBox[{"-", "0.10448"}], ",", "0.04664"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.05503", ",", "0.98736", ",", "0.14864", ",", "0.32377"}], 
      "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"pose", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"1", ",", "0", ",", "0", ",", "0.0001"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0", ",", 
      RowBox[{"-", "1"}], ",", 
      RowBox[{"-", "0.7"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"0", ",", "1", ",", "0", ",", "0.2"}], "}"}]}], 
   "}"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"orient", "=", 
   RowBox[{"ZXZ", "[", 
    RowBox[{"pose", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"1", ";;", "3"}], ",", 
       RowBox[{"1", ";;", "3"}]}], "]"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pos", "=", 
   RowBox[{"pose", "[", 
    RowBox[{"[", 
     RowBox[{";;", ",", "4"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"xtran", "=", 
   RowBox[{
    RowBox[{"pos", "[", 
     RowBox[{"[", "1", "]"}], "]"}], "/", 
    RowBox[{"(", "Rt", ")"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ytran", "=", 
   RowBox[{
    RowBox[{"pos", "[", 
     RowBox[{"[", "2", "]"}], "]"}], "/", 
    RowBox[{"(", "Rt", ")"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ztran", "=", 
   RowBox[{
    RowBox[{"pos", "[", 
     RowBox[{"[", "3", "]"}], "]"}], "/", 
    RowBox[{"(", "Rt", ")"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"angleZ", "=", 
   RowBox[{"orient", "[", 
    RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"angleX", "=", 
   RowBox[{"orient", "[", 
    RowBox[{"[", "2", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"angleZ2", "=", 
   RowBox[{"orient", "[", 
    RowBox[{"[", "3", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"rightG1", "=", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{"G", "[", 
      RowBox[{"1", ",", "0", ",", "xtran", ",", "1"}], "]"}], ".", 
     RowBox[{"G", "[", 
      RowBox[{"1", ",", "angleX", ",", "0", ",", "1"}], "]"}], ".", 
     RowBox[{"G", "[", 
      RowBox[{"3", ",", "0", ",", 
       RowBox[{"-", "ytran"}], ",", "1"}], "]"}], ".", 
     RowBox[{"G", "[", 
      RowBox[{"1", ",", 
       RowBox[{"-", "angleX"}], ",", "0", ",", "1"}], "]"}], ".", 
     RowBox[{"G", "[", 
      RowBox[{"3", ",", "0", ",", "ztran", ",", "1"}], "]"}], ".", 
     RowBox[{"G", "[", 
      RowBox[{"3", ",", "angleZ", ",", "0", ",", "1"}], "]"}], ".", 
     RowBox[{"G", "[", 
      RowBox[{"1", ",", "angleX", ",", "0", ",", "1"}], "]"}], ".", 
     RowBox[{"G", "[", 
      RowBox[{"3", ",", "angleZ2", ",", "0", ",", "1"}], "]"}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"rightH1", "=", 
   RowBox[{"-", 
    RowBox[{
     RowBox[{"H", "[", 
      RowBox[{"1", ",", "0", ",", "xtran", ",", "1"}], "]"}], ".", 
     RowBox[{"H", "[", 
      RowBox[{"1", ",", "angleX", ",", "0", ",", "1"}], "]"}], ".", 
     RowBox[{"H", "[", 
      RowBox[{"3", ",", "0", ",", 
       RowBox[{"-", "ytran"}], ",", "1"}], "]"}], ".", 
     RowBox[{"H", "[", 
      RowBox[{"1", ",", 
       RowBox[{"-", "angleX"}], ",", "0", ",", "1"}], "]"}], ".", 
     RowBox[{"H", "[", 
      RowBox[{"3", ",", "0", ",", "ztran", ",", "1"}], "]"}], ".", 
     RowBox[{"H", "[", 
      RowBox[{"3", ",", "angleZ", ",", "0", ",", "1"}], "]"}], ".", 
     RowBox[{"H", "[", 
      RowBox[{"1", ",", "angleX", ",", "0", ",", "1"}], "]"}], ".", 
     RowBox[{"H", "[", 
      RowBox[{"3", ",", "angleZ2", ",", "0", ",", "1"}], "]"}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"rightG2", "=", 
   RowBox[{
    RowBox[{"G", "[", 
     RowBox[{"1", ",", "0", ",", "xtran", ",", "1"}], "]"}], ".", 
    RowBox[{"G", "[", 
     RowBox[{"2", ",", "0", ",", "ytran", ",", "1"}], "]"}], ".", 
    RowBox[{"G", "[", 
     RowBox[{"3", ",", "0", ",", "ztran", ",", "1"}], "]"}], ".", 
    RowBox[{"G", "[", 
     RowBox[{"3", ",", "angleZ", ",", "0", ",", "1"}], "]"}], ".", 
    RowBox[{"G", "[", 
     RowBox[{"1", ",", "angleX", ",", "0", ",", "1"}], "]"}], ".", 
    RowBox[{"G", "[", 
     RowBox[{"3", ",", "angleZ2", ",", "0", ",", "1"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"rightH2", "=", 
   RowBox[{
    RowBox[{"H", "[", 
     RowBox[{"1", ",", "0", ",", "xtran", ",", "1"}], "]"}], ".", 
    RowBox[{"H", "[", 
     RowBox[{"2", ",", "0", ",", "ytran", ",", "1"}], "]"}], ".", 
    RowBox[{"H", "[", 
     RowBox[{"3", ",", "0", ",", "ztran", ",", "1"}], "]"}], ".", 
    RowBox[{"H", "[", 
     RowBox[{"3", ",", "angleZ", ",", "0", ",", "1"}], "]"}], ".", 
    RowBox[{"H", "[", 
     RowBox[{"1", ",", "angleX", ",", "0", ",", "1"}], "]"}], ".", 
    RowBox[{"H", "[", 
     RowBox[{"3", ",", "angleZ2", ",", "0", ",", "1"}], "]"}]}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.6867924848667088`*^9, 3.686792512042837*^9}, {
   3.6867929968347006`*^9, 3.6867930140883865`*^9}, {3.686793122106535*^9, 
   3.686793126938504*^9}, {3.6870572658963876`*^9, 3.687057303255763*^9}, {
   3.6870573877713876`*^9, 3.6870573889901376`*^9}, {3.687057469443263*^9, 
   3.6870574728338876`*^9}, {3.6870577070220156`*^9, 3.687057709100154*^9}, {
   3.687057788975665*^9, 3.6870577908663025`*^9}, {3.687103438645851*^9, 
   3.6871034451457677`*^9}, {3.6871162895830035`*^9, 3.687116289942374*^9}, {
   3.6871170081897583`*^9, 3.6871170143147583`*^9}, {3.6871171543460083`*^9, 
   3.6871171632522583`*^9}, {3.6871174456741333`*^9, 
   3.6871174526272583`*^9}, {3.6871175269241333`*^9, 
   3.6871175281585083`*^9}, {3.6871176240335083`*^9, 
   3.6871176329553833`*^9}, {3.6871181803928833`*^9, 
   3.6871181815803833`*^9}, {3.687118505931322*^9, 3.6871185083218703`*^9}, {
   3.6871995721173444`*^9, 3.6871997137423444`*^9}, {3.6871997748673444`*^9, 
   3.687199833539219*^9}, {3.6878842191569223`*^9, 3.687884232555188*^9}, {
   3.6878845205560274`*^9, 3.687884520618528*^9}, {3.687886360773776*^9, 
   3.6878864360992975`*^9}, {3.6878867896027145`*^9, 
   3.6878867905011635`*^9}, {3.687887417227936*^9, 3.687887418431076*^9}, {
   3.6878875430537653`*^9, 3.6878875444600334`*^9}, {3.6880567226755996`*^9, 
   3.688056777830061*^9}, {3.68805684752805*^9, 3.688056914503278*^9}, {
   3.6880671457462864`*^9, 3.688067153547168*^9}, {3.6880681047307625`*^9, 
   3.68806810898852*^9}, {3.6880681939913387`*^9, 3.6880682008232822`*^9}, {
   3.688068298318128*^9, 3.6880683037360277`*^9}, {3.6880692828285933`*^9, 
   3.688069342149665*^9}, {3.688070689379411*^9, 3.6880706918403172`*^9}, {
   3.6880707979756775`*^9, 3.688070798518639*^9}, {3.688070873420024*^9, 
   3.68807087368174*^9}, 3.6880710775239706`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "0", ",", "0", ",", "0.0001`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", 
     RowBox[{"-", "1"}], ",", 
     RowBox[{"-", "0.7`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "0", ",", "0.2`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.6880694275296645`*^9, 3.688069610778104*^9, 
  3.6880696632904944`*^9, 3.6880705379555683`*^9, 3.688070599071973*^9, 
  3.6880706602508774`*^9, 3.6880707016019106`*^9, 3.688070751976266*^9, 
  3.6880708113778496`*^9, 3.6880708843183727`*^9, 3.688071104793851*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"rightG1", "//", "MatrixForm"}], "\[IndentingNewLine]", 
 RowBox[{"rightG2", "//", "MatrixForm"}]}], "Input",
 CellChangeTimes->{{3.6880568079835625`*^9, 3.6880568184175572`*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"-", "0.7032169257937423`"}], "0.1325258009095111`", 
      "0.07393173345332413`", 
      RowBox[{"-", "0.6945912223452563`"}]},
     {
      RowBox[{"-", "0.1325258009095111`"}], 
      RowBox[{"-", "0.7032169257937423`"}], "0.6945912223452563`", 
      "0.07393173345332413`"},
     {
      RowBox[{"-", "0.07393173345332413`"}], 
      RowBox[{"-", "0.6945912223452563`"}], 
      RowBox[{"-", "0.7032169257937423`"}], 
      RowBox[{"-", "0.1325258009095111`"}]},
     {"0.6945912223452563`", 
      RowBox[{"-", "0.07393173345332413`"}], "0.1325258009095111`", 
      RowBox[{"-", "0.7032169257937423`"}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.688056819292591*^9, {3.6880568536259403`*^9, 3.688056916585389*^9}, 
   3.6880623661137342`*^9, 3.688063073858706*^9, 3.6880655508423967`*^9, 
   3.688067026445511*^9, {3.6880671644027753`*^9, 3.688067178672489*^9}, 
   3.688067314193755*^9, 3.688067458375288*^9, 3.688067632307202*^9, 
   3.6880681435271406`*^9, 3.688068211307523*^9, 3.688068314778855*^9, 
   3.6880686771294346`*^9, 3.688068818037488*^9, 3.688069427549196*^9, 
   3.688069610797635*^9, 3.68806966330612*^9, 3.688070537975099*^9, 
   3.688070599087598*^9, 3.6880706602704086`*^9, 3.6880707016136293`*^9, 
   3.688070751991891*^9, 3.6880708113934746`*^9, 3.6880708843339977`*^9, 
   3.688071104813382*^9}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0.7032169257937423`", 
      RowBox[{"-", "0.13252580090951113`"}], 
      RowBox[{"-", "0.07393173345332413`"}], "0.6945912223452563`"},
     {"0.13252580090951113`", "0.7032169257937423`", 
      RowBox[{"-", "0.6945912223452563`"}], 
      RowBox[{"-", "0.07393173345332413`"}]},
     {"0.07393173345332413`", "0.6945912223452563`", "0.7032169257937423`", 
      "0.13252580090951113`"},
     {
      RowBox[{"-", "0.6945912223452563`"}], "0.07393173345332413`", 
      RowBox[{"-", "0.13252580090951113`"}], "0.7032169257937423`"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.688056819292591*^9, {3.6880568536259403`*^9, 3.688056916585389*^9}, 
   3.6880623661137342`*^9, 3.688063073858706*^9, 3.6880655508423967`*^9, 
   3.688067026445511*^9, {3.6880671644027753`*^9, 3.688067178672489*^9}, 
   3.688067314193755*^9, 3.688067458375288*^9, 3.688067632307202*^9, 
   3.6880681435271406`*^9, 3.688068211307523*^9, 3.688068314778855*^9, 
   3.6880686771294346`*^9, 3.688068818037488*^9, 3.688069427549196*^9, 
   3.688069610797635*^9, 3.68806966330612*^9, 3.688070537975099*^9, 
   3.688070599087598*^9, 3.6880706602704086`*^9, 3.6880707016136293`*^9, 
   3.688070751991891*^9, 3.6880708113934746`*^9, 3.6880708843339977`*^9, 
   3.688071104817289*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Alternative", "Subsection",
 CellChangeTimes->{{3.6878867178127337`*^9, 3.68788672214482*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"ga", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "3.1201"}], ",", "0.7082", ",", "1.4904", ",", "2.6201", 
     ",", 
     RowBox[{"-", "1.9637"}], ",", 
     RowBox[{"-", "1.8817"}]}], "}"}]}], ";"}], "\n", 
 RowBox[{"ga", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"-", "1.6851"}], ",", 
    RowBox[{"-", "0.7011"}], ",", 
    RowBox[{"-", "3.3627"}], ",", "0.3119", ",", "1.7655", ",", 
    RowBox[{"-", "1.0709"}]}], "}"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"rightG", "=", 
   RowBox[{"G", "[", 
    RowBox[{"3", ",", "0", ",", "0", ",", "1"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"rightH", "=", 
   RowBox[{"H", "[", 
    RowBox[{"3", ",", "0", ",", "0", ",", "1"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"i", "=", "1"}], ",", 
    RowBox[{"i", "\[LessEqual]", "12"}], ",", 
    RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Mod", "[", 
         RowBox[{"i", ",", "2"}], "]"}], "\[Equal]", "0"}], ",", 
       RowBox[{"rightG", "=", 
        RowBox[{"Chop", "[", 
         RowBox[{"N", "[", 
          RowBox[{"rightG", ".", 
           RowBox[{"G", "[", 
            RowBox[{"1", ",", 
             RowBox[{"Ax", "[", 
              RowBox[{"[", 
               RowBox[{"i", "/", "2"}], "]"}], "]"}], ",", 
             RowBox[{"dx", "[", 
              RowBox[{"[", 
               RowBox[{"i", "/", "2"}], "]"}], "]"}], ",", "1"}], "]"}]}], 
          "]"}], "]"}]}], ",", 
       RowBox[{"rightG", "=", 
        RowBox[{"Chop", "[", 
         RowBox[{"N", "[", 
          RowBox[{"rightG", ".", 
           RowBox[{"G", "[", 
            RowBox[{"3", ",", 
             RowBox[{"ga", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"i", "+", "1"}], ")"}], "/", "2"}], "]"}], "]"}], 
             ",", 
             RowBox[{"dz", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"i", "+", "1"}], ")"}], "/", "2"}], "]"}], "]"}], 
             ",", "1"}], "]"}]}], "]"}], "]"}]}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Mod", "[", 
         RowBox[{"i", ",", "2"}], "]"}], "\[Equal]", "0"}], ",", 
       RowBox[{"rightH", "=", 
        RowBox[{"Chop", "[", 
         RowBox[{"N", "[", 
          RowBox[{"rightH", ".", 
           RowBox[{"H", "[", 
            RowBox[{"1", ",", 
             RowBox[{"Ax", "[", 
              RowBox[{"[", 
               RowBox[{"i", "/", "2"}], "]"}], "]"}], ",", 
             RowBox[{"dx", "[", 
              RowBox[{"[", 
               RowBox[{"i", "/", "2"}], "]"}], "]"}], ",", "1"}], "]"}]}], 
          "]"}], "]"}]}], ",", 
       RowBox[{"rightH", "=", 
        RowBox[{"Chop", "[", 
         RowBox[{"N", "[", 
          RowBox[{"rightH", ".", 
           RowBox[{"H", "[", 
            RowBox[{"3", ",", 
             RowBox[{"ga", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"i", "+", "1"}], ")"}], "/", "2"}], "]"}], "]"}], 
             ",", 
             RowBox[{"dz", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"i", "+", "1"}], ")"}], "/", "2"}], "]"}], "]"}], 
             ",", "1"}], "]"}]}], "]"}], "]"}]}]}], "]"}], ";"}]}], 
   "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.6863971469662004`*^9, 3.6863971856883607`*^9}, {
  3.686400410818925*^9, 3.686400414076696*^9}, {3.6870116501702237`*^9, 
  3.6870116521077237`*^9}, {3.6870424587339544`*^9, 3.687042461811863*^9}, {
  3.6870551030428076`*^9, 3.6870551045896826`*^9}, {3.687886729801168*^9, 
  3.6878867775947485`*^9}, {3.6880693561654696`*^9, 3.6880694177092257`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "1.6851`"}], ",", 
   RowBox[{"-", "0.7011`"}], ",", 
   RowBox[{"-", "3.3627`"}], ",", "0.3119`", ",", "1.7655`", ",", 
   RowBox[{"-", "1.0709`"}]}], "}"}]], "Output",
 CellChangeTimes->{3.688069427560915*^9, 3.688069610809354*^9, 
  3.6880696633178387`*^9, 3.6880705379868174`*^9, 3.6880705990993166`*^9, 
  3.6880706602821274`*^9, 3.688070701625348*^9, 3.6880707520036097`*^9, 
  3.688070811405193*^9, 3.6880708843457165`*^9, 3.688071104825101*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"rightG", "//", "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.687887395708129*^9, 3.687887399934746*^9}, 
   3.6880566243780403`*^9}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"-", "0.6980193207807426`"}], "0.13299366421322503`", 
      "0.07250143837204805`", 
      RowBox[{"-", "0.6998751706768251`"}]},
     {
      RowBox[{"-", "0.13299366421322503`"}], 
      RowBox[{"-", "0.6980193207807426`"}], "0.6998751706768251`", 
      "0.07250143837204805`"},
     {
      RowBox[{"-", "0.07250143837204805`"}], 
      RowBox[{"-", "0.6998751706768251`"}], 
      RowBox[{"-", "0.6980193207807426`"}], 
      RowBox[{"-", "0.13299366421322503`"}]},
     {"0.6998751706768251`", 
      RowBox[{"-", "0.07250143837204805`"}], "0.13299366421322503`", 
      RowBox[{"-", "0.6980193207807426`"}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.687887400583192*^9, 3.687887553397648*^9, 
  3.6878876653342896`*^9, 3.6878888045423636`*^9, 3.687888840409092*^9, 
  3.687888903810624*^9, 3.687889363621145*^9, 3.6878894725963125`*^9, 
  3.6878895428336945`*^9, 3.688056627237379*^9, 3.688062377832635*^9, 
  3.6880630738860493`*^9, 3.688065550865834*^9, 3.6880670264728546`*^9, 
  3.6880671786959267`*^9, 3.6880673142171926`*^9, 3.6880674583948193`*^9, 
  3.68806763233064*^9, 3.688068143550578*^9, 3.6880682113309603`*^9, 
  3.688068314806198*^9, 3.688068677152872*^9, 3.6880688180648317`*^9, 
  3.6880694275687275`*^9, 3.68806961081326*^9, 3.6880696633295574`*^9, 
  3.688070537998536*^9, 3.6880705991110353`*^9, 3.68807066028994*^9, 
  3.6880707016331606`*^9, 3.688070752011422*^9, 3.6880708114169116`*^9, 
  3.688070884353529*^9, 3.68807110483682*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"rightH", "//", "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.6878874020324287`*^9, 3.687887406384047*^9}, {
  3.6880694922179923`*^9, 3.6880694931281605`*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"-", "0.6979806108542068`"}], "0.13238860180929396`", 
      RowBox[{"-", "0.07514108223256573`"}], 
      RowBox[{"-", "0.699750057337252`"}]},
     {
      RowBox[{"-", "0.13238860180929396`"}], 
      RowBox[{"-", "0.6979806108542068`"}], 
      RowBox[{"-", "0.699750057337252`"}], "0.07514108223256573`"},
     {"0.07514108223256573`", "0.699750057337252`", 
      RowBox[{"-", "0.6979806108542068`"}], "0.13238860180929396`"},
     {"0.699750057337252`", 
      RowBox[{"-", "0.07514108223256573`"}], 
      RowBox[{"-", "0.13238860180929396`"}], 
      RowBox[{"-", "0.6979806108542068`"}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.687887407165307*^9, 3.6878875534210854`*^9, 
  3.687887665342102*^9, 3.687888804554082*^9, 3.6878888404208107`*^9, 
  3.687888903822343*^9, 3.687889363632863*^9, 3.6878894726080313`*^9, 
  3.687889542845413*^9, 3.688062378953743*^9, 3.688063073893862*^9, 
  3.6880655508736467`*^9, 3.688067026480667*^9, 3.6880671787037396`*^9, 
  3.688067314225005*^9, 3.6880674584026318`*^9, 3.6880676323384523`*^9, 
  3.68806814355839*^9, 3.688068211338773*^9, 3.6880683148140106`*^9, 
  3.6880686771606846`*^9, 3.6880688180726447`*^9, 3.68806942757654*^9, 
  3.688069494034422*^9, 3.6880696108210726`*^9, 3.6880696633334637`*^9, 
  3.6880705380063486`*^9, 3.688070599118848*^9, 3.688070660297752*^9, 
  3.688070701640973*^9, 3.6880707520192347`*^9, 3.688070811424724*^9, 
  3.688070884361342*^9, 3.688071104844633*^9}]
}, Open  ]]
}, Open  ]],

Cell["Elimination Process", "Subsection",
 CellChangeTimes->{{3.6854740512904654`*^9, 3.685474055501457*^9}}],

Cell[CellGroupData[{

Cell["variable separation", "Subsection",
 CellChangeTimes->{{3.6856419121472597`*^9, 3.6856419155769033`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"eqG1", "=", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"G", "[", 
       RowBox[{"3", ",", "a2", ",", 
        RowBox[{"dz", "[", 
         RowBox[{"[", "2", "]"}], "]"}], ",", "1"}], "]"}], ".", 
      RowBox[{"G", "[", 
       RowBox[{"1", ",", 
        RowBox[{"Ax", "[", 
         RowBox[{"[", "2", "]"}], "]"}], ",", 
        RowBox[{"dx", "[", 
         RowBox[{"[", "2", "]"}], "]"}], ",", "1"}], "]"}], ".", 
      RowBox[{"G", "[", 
       RowBox[{"3", ",", "a3", ",", 
        RowBox[{"dz", "[", 
         RowBox[{"[", "3", "]"}], "]"}], ",", "1"}], "]"}], ".", 
      RowBox[{"G", "[", 
       RowBox[{"1", ",", 
        RowBox[{"Ax", "[", 
         RowBox[{"[", "3", "]"}], "]"}], ",", 
        RowBox[{"dx", "[", 
         RowBox[{"[", "3", "]"}], "]"}], ",", "1"}], "]"}], ".", 
      RowBox[{"G", "[", 
       RowBox[{"3", ",", "a4", ",", 
        RowBox[{"dz", "[", 
         RowBox[{"[", "4", "]"}], "]"}], ",", "1"}], "]"}], ".", 
      RowBox[{"G", "[", 
       RowBox[{"1", ",", 
        RowBox[{"Ax", "[", 
         RowBox[{"[", "4", "]"}], "]"}], ",", 
        RowBox[{"dx", "[", 
         RowBox[{"[", "4", "]"}], "]"}], ",", "1"}], "]"}], ".", 
      RowBox[{"G", "[", 
       RowBox[{"3", ",", "a5", ",", 
        RowBox[{"dz", "[", 
         RowBox[{"[", "5", "]"}], "]"}], ",", "1"}], "]"}]}], ")"}]}], ";"}], 
  "//", "TrigExpand"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"eqG2", "=", 
    RowBox[{
     RowBox[{"G", "[", 
      RowBox[{"1", ",", 
       RowBox[{"Ax", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{"dx", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{"-", "1"}]}], "]"}], ".", 
     RowBox[{"G", "[", 
      RowBox[{"3", ",", "a1", ",", 
       RowBox[{"dz", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{"-", "1"}]}], "]"}], ".", "rightG1", ".", 
     RowBox[{"G", "[", 
      RowBox[{"1", ",", 
       RowBox[{"Ax", "[", 
        RowBox[{"[", "6", "]"}], "]"}], ",", 
       RowBox[{"dx", "[", 
        RowBox[{"[", "6", "]"}], "]"}], ",", 
       RowBox[{"-", "1"}]}], "]"}], ".", 
     RowBox[{"G", "[", 
      RowBox[{"3", ",", "a6", ",", 
       RowBox[{"dz", "[", 
        RowBox[{"[", "6", "]"}], "]"}], ",", 
       RowBox[{"-", "1"}]}], "]"}], ".", 
     RowBox[{"G", "[", 
      RowBox[{"1", ",", 
       RowBox[{"Ax", "[", 
        RowBox[{"[", "5", "]"}], "]"}], ",", 
       RowBox[{"dx", "[", 
        RowBox[{"[", "5", "]"}], "]"}], ",", 
       RowBox[{"-", "1"}]}], "]"}]}]}], ";"}], "//", 
  "TrigExpand"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"equateG", " ", "=", " ", 
   RowBox[{"eqG1", "-", "eqG2"}]}], ";"}]}], "Input",
 CellChangeTimes->{
  3.687887435396137*^9, 3.6878876456118855`*^9, 3.688062386238992*^9, 
   3.688063147400734*^9, 3.6880670094418225`*^9, {3.688067282111313*^9, 
   3.6880672822050643`*^9}, 3.6880676189124994`*^9, 3.688068119886818*^9, 
   3.688068806502184*^9, 3.688070525940097*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"eqH1", "=", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"H", "[", 
       RowBox[{"3", ",", "a2", ",", 
        RowBox[{"dz", "[", 
         RowBox[{"[", "2", "]"}], "]"}], ",", "1"}], "]"}], ".", 
      RowBox[{"H", "[", 
       RowBox[{"1", ",", 
        RowBox[{"Ax", "[", 
         RowBox[{"[", "2", "]"}], "]"}], ",", 
        RowBox[{"dx", "[", 
         RowBox[{"[", "2", "]"}], "]"}], ",", "1"}], "]"}], ".", 
      RowBox[{"H", "[", 
       RowBox[{"3", ",", "a3", ",", 
        RowBox[{"dz", "[", 
         RowBox[{"[", "3", "]"}], "]"}], ",", "1"}], "]"}], ".", 
      RowBox[{"H", "[", 
       RowBox[{"1", ",", 
        RowBox[{"Ax", "[", 
         RowBox[{"[", "3", "]"}], "]"}], ",", 
        RowBox[{"dx", "[", 
         RowBox[{"[", "3", "]"}], "]"}], ",", "1"}], "]"}], ".", 
      RowBox[{"H", "[", 
       RowBox[{"3", ",", "a4", ",", 
        RowBox[{"dz", "[", 
         RowBox[{"[", "4", "]"}], "]"}], ",", "1"}], "]"}], ".", 
      RowBox[{"H", "[", 
       RowBox[{"1", ",", 
        RowBox[{"Ax", "[", 
         RowBox[{"[", "4", "]"}], "]"}], ",", 
        RowBox[{"dx", "[", 
         RowBox[{"[", "4", "]"}], "]"}], ",", "1"}], "]"}], ".", 
      RowBox[{"H", "[", 
       RowBox[{"3", ",", "a5", ",", 
        RowBox[{"dz", "[", 
         RowBox[{"[", "5", "]"}], "]"}], ",", "1"}], "]"}]}], ")"}]}], ";"}], 
  "//", "TrigExpand"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"eqH2", "=", 
    RowBox[{
     RowBox[{"H", "[", 
      RowBox[{"1", ",", 
       RowBox[{"Ax", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{"dx", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{"-", "1"}]}], "]"}], ".", 
     RowBox[{"H", "[", 
      RowBox[{"3", ",", "a1", ",", 
       RowBox[{"dz", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{"-", "1"}]}], "]"}], ".", "rightH1", ".", 
     RowBox[{"H", "[", 
      RowBox[{"1", ",", 
       RowBox[{"Ax", "[", 
        RowBox[{"[", "6", "]"}], "]"}], ",", 
       RowBox[{"dx", "[", 
        RowBox[{"[", "6", "]"}], "]"}], ",", 
       RowBox[{"-", "1"}]}], "]"}], ".", 
     RowBox[{"H", "[", 
      RowBox[{"3", ",", "a6", ",", 
       RowBox[{"dz", "[", 
        RowBox[{"[", "6", "]"}], "]"}], ",", 
       RowBox[{"-", "1"}]}], "]"}], ".", 
     RowBox[{"H", "[", 
      RowBox[{"1", ",", 
       RowBox[{"Ax", "[", 
        RowBox[{"[", "5", "]"}], "]"}], ",", 
       RowBox[{"dx", "[", 
        RowBox[{"[", "5", "]"}], "]"}], ",", 
       RowBox[{"-", "1"}]}], "]"}]}]}], ";"}], "//", 
  "TrigExpand"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"equateH", "=", 
   RowBox[{"eqH1", "-", "eqH2"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.685474112869379*^9, 3.685474145904958*^9}, {
   3.6854741785577197`*^9, 3.6854742936998186`*^9}, {3.6854743432082644`*^9, 
   3.6854746255786676`*^9}, {3.685474706384158*^9, 3.6854747594055595`*^9}, {
   3.685637145602803*^9, 3.685637159489344*^9}, {3.685637224234609*^9, 
   3.685637230910305*^9}, {3.6856374109587817`*^9, 3.68563742198989*^9}, {
   3.685724039751785*^9, 3.685724219929166*^9}, {3.6857243291699553`*^9, 
   3.68572441899693*^9}, {3.6857244542386665`*^9, 3.685724586600254*^9}, {
   3.6857831532902246`*^9, 3.685783252062398*^9}, {3.685783303096901*^9, 
   3.685783390791091*^9}, 3.6857834329975815`*^9, {3.6860695379852424`*^9, 
   3.686069538508673*^9}, {3.6863553098148737`*^9, 3.686355313650861*^9}, 
   3.687887438517271*^9, 3.6878876501860456`*^9, 3.6880623950086355`*^9, 
   3.6880631440062456`*^9, 3.6880670154495583`*^9, {3.6880672903418875`*^9, 
   3.688067290462982*^9}, 3.688067622373481*^9, 3.6880681241523886`*^9, 
   3.6880688089592466`*^9, 3.6880705281627245`*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"eq1g", "=", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"equateG", "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", "1"}], "]"}], "]"}], "//", "N"}], "//", 
      "FullSimplify"}], "//", "TrigExpand"}], "//", "Chop"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq2g", "=", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"equateG", "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", "2"}], "]"}], "]"}], "//", "N"}], "//", 
      "FullSimplify"}], "//", "TrigExpand"}], "//", "Chop"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq3g", "=", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"equateG", "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", "3"}], "]"}], "]"}], "//", "N"}], "//", 
      "FullSimplify"}], "//", "TrigExpand"}], "//", "Chop"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq4g", "=", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"equateG", "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", "4"}], "]"}], "]"}], "//", "N"}], "//", 
      "FullSimplify"}], "//", "TrigExpand"}], "//", "Chop"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.685639077699166*^9, 3.685639082620978*^9}, {
  3.6856394398039055`*^9, 3.685639458182577*^9}, {3.6856394916626167`*^9, 
  3.685639498420343*^9}, {3.685639870821826*^9, 3.6856398866614676`*^9}, {
  3.685640951374401*^9, 3.685640972713972*^9}, {3.685641526300636*^9, 
  3.6856415593431816`*^9}, {3.6863557603928866`*^9, 3.6863557607249136`*^9}, {
  3.686355853395602*^9, 3.6863558542354355`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"eq1h", "=", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"equateH", "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", "1"}], "]"}], "]"}], "//", "N"}], "//", 
      "FullSimplify"}], "//", "TrigExpand"}], "//", "Chop"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq2h", "=", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"equateH", "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", "2"}], "]"}], "]"}], "//", "N"}], "//", 
      "FullSimplify"}], "//", "TrigExpand"}], "//", "Chop"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq3h", "=", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"equateH", "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", "3"}], "]"}], "]"}], "//", "N"}], "//", 
      "FullSimplify"}], "//", "TrigExpand"}], "//", "Chop"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq4h", "=", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"equateH", "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", "4"}], "]"}], "]"}], "//", "N"}], "//", 
      "FullSimplify"}], "//", "TrigExpand"}], "//", "Chop"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.685639908497125*^9, 3.685639916086872*^9}, {
  3.685640993479331*^9, 3.68564099650273*^9}, {3.6856415727414474`*^9, 
  3.6856415994364185`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Eliminate a1 and a6 by linear algebra", "Subsection",
 CellChangeTimes->{{3.6856418628353906`*^9, 3.6856418749055486`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"replace", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Sin", "[", 
        RowBox[{"0.5", " ", "a1"}], "]"}], " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"0.5", " ", "a6"}], "]"}]}], "\[Rule]", "var1"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"Sin", "[", 
        RowBox[{"0.5", " ", "a1"}], "]"}], " ", 
       RowBox[{"Cos", "[", 
        RowBox[{"0.5", " ", "a6"}], "]"}]}], "\[Rule]", "var2"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"Cos", "[", 
        RowBox[{"0.5", " ", "a1"}], "]"}], " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"0.5", " ", "a6"}], "]"}]}], "\[Rule]", "var3"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"Cos", "[", 
        RowBox[{"0.5", " ", "a1"}], "]"}], " ", 
       RowBox[{"Cos", "[", 
        RowBox[{"0.5", " ", "a6"}], "]"}]}], "\[Rule]", "var4"}]}], "}"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.6856415071524434`*^9, 3.6856415212147636`*^9}, {
  3.685642729703201*^9, 3.6856427854017067`*^9}, {3.6856429166265893`*^9, 
  3.6856429331459093`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"eq1g", "=", 
   RowBox[{"eq1g", "/.", "replace"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq2g", "=", 
   RowBox[{"eq2g", "/.", "replace"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq3g", "=", 
   RowBox[{"eq3g", "/.", "replace"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq4g", "=", 
   RowBox[{"eq4g", "/.", "replace"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.6856429685048313`*^9, 3.6856430073637094`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"sola1a6", "=", 
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"{", 
       RowBox[{"eq1g", ",", "eq2g", ",", "eq3g", ",", "eq4g"}], "}"}], 
      "\[Equal]", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"var1", ",", "var2", ",", "var3", ",", "var4"}], "}"}]}], 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.6863560248387203`*^9, 3.68635608893165*^9}, {
  3.686356135766988*^9, 3.6863561374310293`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Variables", "[", 
  RowBox[{"var1", "/.", "sola1a6"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Variables", "[", 
  RowBox[{"var2", "/.", "sola1a6"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Variables", "[", 
  RowBox[{"var3", "/.", "sola1a6"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Variables", "[", 
  RowBox[{"var4", "/.", "sola1a6"}], "]"}]}], "Input",
 CellChangeTimes->{{3.686356178090665*^9, 3.6863562306603045`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Cos", "[", 
    RowBox[{"0.5`", " ", "a2"}], "]"}], ",", 
   RowBox[{"Cos", "[", 
    RowBox[{"0.5`", " ", "a3"}], "]"}], ",", 
   RowBox[{"Cos", "[", 
    RowBox[{"0.5`", " ", "a4"}], "]"}], ",", 
   RowBox[{"Cos", "[", 
    RowBox[{"0.5`", " ", "a5"}], "]"}], ",", 
   RowBox[{"Sin", "[", 
    RowBox[{"0.5`", " ", "a2"}], "]"}], ",", 
   RowBox[{"Sin", "[", 
    RowBox[{"0.5`", " ", "a3"}], "]"}], ",", 
   RowBox[{"Sin", "[", 
    RowBox[{"0.5`", " ", "a4"}], "]"}], ",", 
   RowBox[{"Sin", "[", 
    RowBox[{"0.5`", " ", "a5"}], "]"}]}], "}"}]], "Output",
 CellChangeTimes->CompressedData["
1:eJwlzmtIkwEUBmAtmVgm0VYqauYlBYlsND9Q59Y00UJMhxMmKN28zamls1KW
W0G2IpppXpqzsiAlwUum4fDHhmytIIciS7M1LSvKMlubupmtc77vx8vDe+DA
G3a6kl/o6eHhUQMZjBxQx1xc4q3LQ7tQhlWcxQZfLyheJIG36AfKOGDrV3Et
avD6+QgNjl2JPwKaMhX0ZFDnMAWhMSU6JirebJ86CsZF0bh2UKsZblwHw0Xc
M04wpGhbCVr0IUXqAhuXI5RoT9SddtRdOTqLEjcc3hsgjx/ERW16gnCDRtnK
PzS47uSw/yXUd56SbSd12ZyUhd4BpFOt6M2wpPeU9mVKHyflbVogqWUvaZeZ
oLr5BFqQMvmpFB3nHhKRSuPRWhvRS1qVo6HkaSkjjeiIbej5OZApmX4gAdeq
7dU1oORen+0CSFRUj9SCfQWLH2WgrP+LVA7G9a+uoUTsNzflH58roDVhiYWu
PLHUt4F5HZdV6IBO8FcNTo54ZnWC3eEKAyqiD82g8l22edKmuR+UNSH3ybs0
lrJUQJmXT6kWkTZlP6b67z50Z7rxLbo1+/yiHvSa1LrRhlTBYQOYznvYgpYv
JI8x6pZ4d9cnDKj22owZfZeRaUUP6qym3SBn+6wLXe146bcH/Dwh3I8+1Y0m
og1KTgYqVwmEqIKZXYzu0mgcaEzuKReqMrG2+INVss5ElJaTcAytz2Dx0V/f
C8bK8F8o2iEGN1siUspx3z7lBhpY1OFXAQpYzaGoeFzJRFUOdhqaawm/jrLM
XUq0uPeqGhXq516hQQzJHEpjdEdXgvy0Hg46LKanor7NZ5+hbb4BGjQ6Sq9D
jWEbBlTFjn6D5q+2TqMhg2MWNEFx3In+B5SA3nM=
  "]],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Cos", "[", 
    RowBox[{"0.5`", " ", "a2"}], "]"}], ",", 
   RowBox[{"Cos", "[", 
    RowBox[{"0.5`", " ", "a3"}], "]"}], ",", 
   RowBox[{"Cos", "[", 
    RowBox[{"0.5`", " ", "a4"}], "]"}], ",", 
   RowBox[{"Cos", "[", 
    RowBox[{"0.5`", " ", "a5"}], "]"}], ",", 
   RowBox[{"Sin", "[", 
    RowBox[{"0.5`", " ", "a2"}], "]"}], ",", 
   RowBox[{"Sin", "[", 
    RowBox[{"0.5`", " ", "a3"}], "]"}], ",", 
   RowBox[{"Sin", "[", 
    RowBox[{"0.5`", " ", "a4"}], "]"}], ",", 
   RowBox[{"Sin", "[", 
    RowBox[{"0.5`", " ", "a5"}], "]"}]}], "}"}]], "Output",
 CellChangeTimes->CompressedData["
1:eJwlzmtIkwEUBmAtmVgm0VYqauYlBYlsND9Q59Y00UJMhxMmKN28zamls1KW
W0G2IpppXpqzsiAlwUum4fDHhmytIIciS7M1LSvKMlubupmtc77vx8vDe+DA
G3a6kl/o6eHhUQMZjBxQx1xc4q3LQ7tQhlWcxQZfLyheJIG36AfKOGDrV3Et
avD6+QgNjl2JPwKaMhX0ZFDnMAWhMSU6JirebJ86CsZF0bh2UKsZblwHw0Xc
M04wpGhbCVr0IUXqAhuXI5RoT9SddtRdOTqLEjcc3hsgjx/ERW16gnCDRtnK
PzS47uSw/yXUd56SbSd12ZyUhd4BpFOt6M2wpPeU9mVKHyflbVogqWUvaZeZ
oLr5BFqQMvmpFB3nHhKRSuPRWhvRS1qVo6HkaSkjjeiIbej5OZApmX4gAdeq
7dU1oORen+0CSFRUj9SCfQWLH2WgrP+LVA7G9a+uoUTsNzflH58roDVhiYWu
PLHUt4F5HZdV6IBO8FcNTo54ZnWC3eEKAyqiD82g8l22edKmuR+UNSH3ybs0
lrJUQJmXT6kWkTZlP6b67z50Z7rxLbo1+/yiHvSa1LrRhlTBYQOYznvYgpYv
JI8x6pZ4d9cnDKj22owZfZeRaUUP6qym3SBn+6wLXe146bcH/Dwh3I8+1Y0m
og1KTgYqVwmEqIKZXYzu0mgcaEzuKReqMrG2+INVss5ElJaTcAytz2Dx0V/f
C8bK8F8o2iEGN1siUspx3z7lBhpY1OFXAQpYzaGoeFzJRFUOdhqaawm/jrLM
XUq0uPeqGhXq516hQQzJHEpjdEdXgvy0Hg46LKanor7NZ5+hbb4BGjQ6Sq9D
jWEbBlTFjn6D5q+2TqMhg2MWNEFx3In+B5SA3nM=
  "]],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Cos", "[", 
    RowBox[{"0.5`", " ", "a2"}], "]"}], ",", 
   RowBox[{"Cos", "[", 
    RowBox[{"0.5`", " ", "a3"}], "]"}], ",", 
   RowBox[{"Cos", "[", 
    RowBox[{"0.5`", " ", "a4"}], "]"}], ",", 
   RowBox[{"Cos", "[", 
    RowBox[{"0.5`", " ", "a5"}], "]"}], ",", 
   RowBox[{"Sin", "[", 
    RowBox[{"0.5`", " ", "a2"}], "]"}], ",", 
   RowBox[{"Sin", "[", 
    RowBox[{"0.5`", " ", "a3"}], "]"}], ",", 
   RowBox[{"Sin", "[", 
    RowBox[{"0.5`", " ", "a4"}], "]"}], ",", 
   RowBox[{"Sin", "[", 
    RowBox[{"0.5`", " ", "a5"}], "]"}]}], "}"}]], "Output",
 CellChangeTimes->CompressedData["
1:eJwlzmtIkwEUBmAtmVgm0VYqauYlBYlsND9Q59Y00UJMhxMmKN28zamls1KW
W0G2IpppXpqzsiAlwUum4fDHhmytIIciS7M1LSvKMlubupmtc77vx8vDe+DA
G3a6kl/o6eHhUQMZjBxQx1xc4q3LQ7tQhlWcxQZfLyheJIG36AfKOGDrV3Et
avD6+QgNjl2JPwKaMhX0ZFDnMAWhMSU6JirebJ86CsZF0bh2UKsZblwHw0Xc
M04wpGhbCVr0IUXqAhuXI5RoT9SddtRdOTqLEjcc3hsgjx/ERW16gnCDRtnK
PzS47uSw/yXUd56SbSd12ZyUhd4BpFOt6M2wpPeU9mVKHyflbVogqWUvaZeZ
oLr5BFqQMvmpFB3nHhKRSuPRWhvRS1qVo6HkaSkjjeiIbej5OZApmX4gAdeq
7dU1oORen+0CSFRUj9SCfQWLH2WgrP+LVA7G9a+uoUTsNzflH58roDVhiYWu
PLHUt4F5HZdV6IBO8FcNTo54ZnWC3eEKAyqiD82g8l22edKmuR+UNSH3ybs0
lrJUQJmXT6kWkTZlP6b67z50Z7rxLbo1+/yiHvSa1LrRhlTBYQOYznvYgpYv
JI8x6pZ4d9cnDKj22owZfZeRaUUP6qym3SBn+6wLXe146bcH/Dwh3I8+1Y0m
og1KTgYqVwmEqIKZXYzu0mgcaEzuKReqMrG2+INVss5ElJaTcAytz2Dx0V/f
C8bK8F8o2iEGN1siUspx3z7lBhpY1OFXAQpYzaGoeFzJRFUOdhqaawm/jrLM
XUq0uPeqGhXq516hQQzJHEpjdEdXgvy0Hg46LKanor7NZ5+hbb4BGjQ6Sq9D
jWEbBlTFjn6D5q+2TqMhg2MWNKHnuBP9D5Vg3pM=
  "]],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Cos", "[", 
    RowBox[{"0.5`", " ", "a2"}], "]"}], ",", 
   RowBox[{"Cos", "[", 
    RowBox[{"0.5`", " ", "a3"}], "]"}], ",", 
   RowBox[{"Cos", "[", 
    RowBox[{"0.5`", " ", "a4"}], "]"}], ",", 
   RowBox[{"Cos", "[", 
    RowBox[{"0.5`", " ", "a5"}], "]"}], ",", 
   RowBox[{"Sin", "[", 
    RowBox[{"0.5`", " ", "a2"}], "]"}], ",", 
   RowBox[{"Sin", "[", 
    RowBox[{"0.5`", " ", "a3"}], "]"}], ",", 
   RowBox[{"Sin", "[", 
    RowBox[{"0.5`", " ", "a4"}], "]"}], ",", 
   RowBox[{"Sin", "[", 
    RowBox[{"0.5`", " ", "a5"}], "]"}]}], "}"}]], "Output",
 CellChangeTimes->CompressedData["
1:eJwlzmtIkwEUBmAtmVgm0VYqauYlBYlsND9Q59Y00UJMhxMmKN28zamls1KW
W0G2IpppXpqzsiAlwUum4fDHhmytIIciS7M1LSvKMlubupmtc77vx8vDe+DA
G3a6kl/o6eHhUQMZjBxQx1xc4q3LQ7tQhlWcxQZfLyheJIG36AfKOGDrV3Et
avD6+QgNjl2JPwKaMhX0ZFDnMAWhMSU6JirebJ86CsZF0bh2UKsZblwHw0Xc
M04wpGhbCVr0IUXqAhuXI5RoT9SddtRdOTqLEjcc3hsgjx/ERW16gnCDRtnK
PzS47uSw/yXUd56SbSd12ZyUhd4BpFOt6M2wpPeU9mVKHyflbVogqWUvaZeZ
oLr5BFqQMvmpFB3nHhKRSuPRWhvRS1qVo6HkaSkjjeiIbej5OZApmX4gAdeq
7dU1oORen+0CSFRUj9SCfQWLH2WgrP+LVA7G9a+uoUTsNzflH58roDVhiYWu
PLHUt4F5HZdV6IBO8FcNTo54ZnWC3eEKAyqiD82g8l22edKmuR+UNSH3ybs0
lrJUQJmXT6kWkTZlP6b67z50Z7rxLbo1+/yiHvSa1LrRhlTBYQOYznvYgpYv
JI8x6pZ4d9cnDKj22owZfZeRaUUP6qym3SBn+6wLXe146bcH/Dwh3I8+1Y0m
og1KTgYqVwmEqIKZXYzu0mgcaEzuKReqMrG2+INVss5ElJaTcAytz2Dx0V/f
C8bK8F8o2iEGN1siUspx3z7lBhpY1OFXAQpYzaGoeFzJRFUOdhqaawm/jrLM
XUq0uPeqGhXq516hQQzJHEpjdEdXgvy0Hg46LKanor7NZ5+hbb4BGjQ6Sq9D
jWEbBlTFjn6D5q+2TqMhg2MWNMF43In+B5ZA3rM=
  "]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Variables", "[", "eq1h", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Variables", "[", "eq2h", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Variables", "[", "eq3h", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Variables", "[", "eq4h", "]"}]}], "Input",
 CellChangeTimes->{{3.686359438895671*^9, 3.686359461443412*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Cos", "[", 
    RowBox[{"0.5`", " ", "a1"}], "]"}], ",", 
   RowBox[{"Cos", "[", 
    RowBox[{"0.5`", " ", "a2"}], "]"}], ",", 
   RowBox[{"Cos", "[", 
    RowBox[{"0.5`", " ", "a3"}], "]"}], ",", 
   RowBox[{"Cos", "[", 
    RowBox[{"0.5`", " ", "a4"}], "]"}], ",", 
   RowBox[{"Cos", "[", 
    RowBox[{"0.5`", " ", "a5"}], "]"}], ",", 
   RowBox[{"Cos", "[", 
    RowBox[{"0.5`", " ", "a6"}], "]"}], ",", 
   RowBox[{"Sin", "[", 
    RowBox[{"0.5`", " ", "a1"}], "]"}], ",", 
   RowBox[{"Sin", "[", 
    RowBox[{"0.5`", " ", "a2"}], "]"}], ",", 
   RowBox[{"Sin", "[", 
    RowBox[{"0.5`", " ", "a3"}], "]"}], ",", 
   RowBox[{"Sin", "[", 
    RowBox[{"0.5`", " ", "a4"}], "]"}], ",", 
   RowBox[{"Sin", "[", 
    RowBox[{"0.5`", " ", "a5"}], "]"}], ",", 
   RowBox[{"Sin", "[", 
    RowBox[{"0.5`", " ", "a6"}], "]"}]}], "}"}]], "Output",
 CellChangeTimes->CompressedData["
1:eJwtzn8s1AEYBnBpkYZNErqLJbFhHeWuOR2uY7IaUWxuaV0N4VAcYVzMprQW
RdQloUZLo5WudWl1NRethjKlkJXpBxnnojuN3uf77Y93nz3P9mzvpiOZMYkr
zMzMFHSldly+z8lJ8VYXZfRO8pW4/KGIPFflkxZE1iSn50PdzV9NkNs+ExBC
9tmW2+8in+f0caDXd60flBddeRtK+jdbBBvIp0J15R/S7WfwUSP2E2uOwcT6
0EITWZnhXgFbdBcuw6XeR0NQYDVvuUiG6znBcD5sh2AZf7jOLkGu6fADxzxo
PcZYIDKwzhlZkyydGN/VwLONomFWwzSrlZH1vIUz44gL66Dgv1Hw0Iv+rylQ
EuKbylgUAPP1glbWAxpW8TNW926ozuroOE76GgauK8iFOUN2Dqlwbtfnkv7T
2ep8sm10/MspUsn7VlhMCngLC5Df/mOZdc6qhNRrHPlwxmNUWUtKOUoVvKuN
+1tH9qvN910jm93KdTCl6v4HWHxRP8a4dniKNXdjPdMX8lhTYlmlCax1qYxr
Y26webYN2uzueQ9XRmeNdzFql2FZV+x2HRmhbbgE5TJJ57qCSXF1Xq8OalcN
DcKPryM/w22ysV4HMqh1yATnOd2268mJSOkWeFumCYTNvKS9sEQYFw/P9Ecn
Qzvp49/Qa1BmgqoovrkjecK1PhBaGIQRUOnDj4G+3nc608gyY6qNnFxycJek
k1UNFYtwg+6qbQYZ11HlCuWSSj+oyhGFw9iEzaehv6CpAiZ5l9bB+LDhHsit
VnyCltUtnpnk/pe3gqB6yj4MWtsn3oO1cicN9Jjo0sLuxkUdVHV6voEHc2sH
oIvfkxEoXL3HCP8BzcDb7Q==
  "]],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Cos", "[", 
    RowBox[{"0.5`", " ", "a1"}], "]"}], ",", 
   RowBox[{"Cos", "[", 
    RowBox[{"0.5`", " ", "a2"}], "]"}], ",", 
   RowBox[{"Cos", "[", 
    RowBox[{"0.5`", " ", "a3"}], "]"}], ",", 
   RowBox[{"Cos", "[", 
    RowBox[{"0.5`", " ", "a4"}], "]"}], ",", 
   RowBox[{"Cos", "[", 
    RowBox[{"0.5`", " ", "a5"}], "]"}], ",", 
   RowBox[{"Cos", "[", 
    RowBox[{"0.5`", " ", "a6"}], "]"}], ",", 
   RowBox[{"Sin", "[", 
    RowBox[{"0.5`", " ", "a1"}], "]"}], ",", 
   RowBox[{"Sin", "[", 
    RowBox[{"0.5`", " ", "a2"}], "]"}], ",", 
   RowBox[{"Sin", "[", 
    RowBox[{"0.5`", " ", "a3"}], "]"}], ",", 
   RowBox[{"Sin", "[", 
    RowBox[{"0.5`", " ", "a4"}], "]"}], ",", 
   RowBox[{"Sin", "[", 
    RowBox[{"0.5`", " ", "a5"}], "]"}], ",", 
   RowBox[{"Sin", "[", 
    RowBox[{"0.5`", " ", "a6"}], "]"}]}], "}"}]], "Output",
 CellChangeTimes->CompressedData["
1:eJwtzn8s1AEYBnDVYho2JHQXS6JhHeWuOR2uY7IaUWxuaV0N4VAcYVzMprQW
RdQloUZLo5WudWl1NRethjKlkJXpBxnnojuN3uf77Y93nz3P9mzvxiOZMYkr
zMzMFHSltly+z8lJ8VYXZfRO8pW4/KGIPFflkxZE1iSn50PdzV9NkNs+ExBC
9tmU2+8in+f0caDXd60flBddeRtK+jebBxvIp0J15R/S7WfwUSP2E2uOwcT6
0EITWZnhXgFbdBcuw6XeR0NQYDlvsUiG6znBcD5sh2AZf7jOLkGu6fADxzxo
NcZYIDKwzhlZkyycGN/VwLONomFWwzSrpZH1vLkz44gL66Dgv1Hw0Iv+rylQ
EuKbylgUAPP1glbWAxpW8TNW926ozuroOE76GgauK8iFOUN2Dqlwbtfnkv7T
2ep8sm10/MspUsn7VlhMCngLC5Df/mOZdc6yhNRrHPlwxmNUWUtKOUoVvKuN
+1tH9qtX7rtGNruV62BK1f0PsPiifozRbniKNXdDPdMX8lhTYlmlCax1qYx2
MTfYPNsGrXf3vIerorPGuxi1y7CsK3a7jozQNlyCcpmkc23BpLg6r1cHtauH
BuHH15Gf4TbZWK8DGdQ6ZILznG6bdeREpHQzvC3TBMJmXtJeWCKMi4dn+qOT
oa308W/oNSgzQVUUf6UjecK1PhCaG4QRUOnDj4G+3nc608gyY6q1nFxycJek
k1UNFYtwve6qTQYZ11HlCuWSSj+oyhGFw9iETaehv6CpAiZ5l9bB+LDhHsit
VnyCFtUtnpnk/pe3gqB6yj4MWtkn3oO1cicN9Jjo0sLuxkUdVHV6voEHc2sH
oIvfkxEo3LLHCP8BzqDcDQ==
  "]],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Cos", "[", 
    RowBox[{"0.5`", " ", "a1"}], "]"}], ",", 
   RowBox[{"Cos", "[", 
    RowBox[{"0.5`", " ", "a2"}], "]"}], ",", 
   RowBox[{"Cos", "[", 
    RowBox[{"0.5`", " ", "a3"}], "]"}], ",", 
   RowBox[{"Cos", "[", 
    RowBox[{"0.5`", " ", "a4"}], "]"}], ",", 
   RowBox[{"Cos", "[", 
    RowBox[{"0.5`", " ", "a5"}], "]"}], ",", 
   RowBox[{"Cos", "[", 
    RowBox[{"0.5`", " ", "a6"}], "]"}], ",", 
   RowBox[{"Sin", "[", 
    RowBox[{"0.5`", " ", "a1"}], "]"}], ",", 
   RowBox[{"Sin", "[", 
    RowBox[{"0.5`", " ", "a2"}], "]"}], ",", 
   RowBox[{"Sin", "[", 
    RowBox[{"0.5`", " ", "a3"}], "]"}], ",", 
   RowBox[{"Sin", "[", 
    RowBox[{"0.5`", " ", "a4"}], "]"}], ",", 
   RowBox[{"Sin", "[", 
    RowBox[{"0.5`", " ", "a5"}], "]"}], ",", 
   RowBox[{"Sin", "[", 
    RowBox[{"0.5`", " ", "a6"}], "]"}]}], "}"}]], "Output",
 CellChangeTimes->CompressedData["
1:eJwtzn8s1AEYBnDVYho2JHQXS6JhHeWuOR2uY7IaUWxuaV0N4VAcYVzMprQW
RdQloUZLo5WudWl1NRethjKlkJXpBxnnojuN3uf77Y93nz3P9mzvxiOZMYkr
zMzMFHSltly+z8lJ8VYXZfRO8pW4/KGIPFflkxZE1iSn50PdzV9NkNs+ExBC
9tmU2+8in+f0caDXd60flBddeRtK+jebBxvIp0J15R/S7WfwUSP2E2uOwcT6
0EITWZnhXgFbdBcuw6XeR0NQYDlvsUiG6znBcD5sh2AZf7jOLkGu6fADxzxo
NcZYIDKwzhlZkyycGN/VwLONomFWwzSrpZH1vLkz44gL66Dgv1Hw0Iv+rylQ
EuKbylgUAPP1glbWAxpW8TNW926ozuroOE76GgauK8iFOUN2Dqlwbtfnkv7T
2ep8sm10/MspUsn7VlhMCngLC5Df/mOZdc6yhNRrHPlwxmNUWUtKOUoVvKuN
+1tH9qtX7rtGNruV62BK1f0PsPiifozRbniKNXdDPdMX8lhTYlmlCax1qYx2
MTfYPNsGrXf3vIerorPGuxi1y7CsK3a7jozQNlyCcpmkc23BpLg6r1cHtauH
BuHH15Gf4TbZWK8DGdQ6ZILznG6bdeREpHQzvC3TBMJmXtJeWCKMi4dn+qOT
oa308W/oNSgzQVUUf6UjecK1PhCaG4QRUOnDj4G+3nc608gyY6q1nFxycJek
k1UNFYtwve6qTQYZ11HlCuWSSj+oyhGFw9iETaehv6CpAiZ5l9bB+LDhHsit
VnyCFtUtnpnk/pe3gqB6yj4MWtkn3oO1cicN9Jjo0sLuxkUdVHV6voEHc2sH
oIvfkxEo3LLHCP8BzqDcDQ==
  "]],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Cos", "[", 
    RowBox[{"0.5`", " ", "a1"}], "]"}], ",", 
   RowBox[{"Cos", "[", 
    RowBox[{"0.5`", " ", "a2"}], "]"}], ",", 
   RowBox[{"Cos", "[", 
    RowBox[{"0.5`", " ", "a3"}], "]"}], ",", 
   RowBox[{"Cos", "[", 
    RowBox[{"0.5`", " ", "a4"}], "]"}], ",", 
   RowBox[{"Cos", "[", 
    RowBox[{"0.5`", " ", "a5"}], "]"}], ",", 
   RowBox[{"Cos", "[", 
    RowBox[{"0.5`", " ", "a6"}], "]"}], ",", 
   RowBox[{"Sin", "[", 
    RowBox[{"0.5`", " ", "a1"}], "]"}], ",", 
   RowBox[{"Sin", "[", 
    RowBox[{"0.5`", " ", "a2"}], "]"}], ",", 
   RowBox[{"Sin", "[", 
    RowBox[{"0.5`", " ", "a3"}], "]"}], ",", 
   RowBox[{"Sin", "[", 
    RowBox[{"0.5`", " ", "a4"}], "]"}], ",", 
   RowBox[{"Sin", "[", 
    RowBox[{"0.5`", " ", "a5"}], "]"}], ",", 
   RowBox[{"Sin", "[", 
    RowBox[{"0.5`", " ", "a6"}], "]"}]}], "}"}]], "Output",
 CellChangeTimes->CompressedData["
1:eJwtzn8s1AEYBnBpMQ0bEnKxJDaso9w1p8N1DKsRxeaW1tUQDsURxsVsSmtR
p9QloUZLo5WudWl1NRethjKlkJXpBxnnojuN3uf77Y93nz3P9mzvpsM58Smr
zMzM5HQVdhye34kp0VY3RdxO8pWo6qGQPKv0ywwhL6VlFUHdzV/NkNMxGxRG
9ttWOewin+f3u0Kf79oAKCu98jacDGyxCDWQTwXqmj+kx8/QI0bsJ9cehSkN
4SUmsibbsxq26s5fhst9j4Yh32rBcomM1LuGwoWIHfwV/OE+tww5pkMPnAqh
9ThjsdDAOm9kTbV0Znx3CZ5pEo6wGmZYrYys5yxcGEfdWIf4/42FB18MfE2H
4jD/DMbSIFik57ex7tewip6xevZAdW5n5zHS3zB4XU4uzhvy8km5S4e+gAyc
yVMXke1jE19Okgrut5Iyks9dXIS8jh8rrPNW5aRe48SDs15jijpS4qpQwbva
xL/15IDafO81ssWjSgfTlfc/wLIL+nFG+5Fp1oKNDUxfwmVNT2CVJLPWZzDa
x99g81w7tInqfQ9Xx+VOdDNqV2Bld8J2HRmtbbwIZVJx17riKVFtYZ8OatcM
D8GPr2M+w23S8T5HMqRt2AQXXHts15OTMZIt8LZUEwxbuKl7YLkgMQmeHohL
g3aSx7+hz5DUBFWxPHMn8rh7QzC0MAiiocKPFw/9fe90ZZKVxgwbGbns6CnO
IpWN1Utwg+6qbTaZ2Kl0hzJxTQBU5QsjYULy5lMwkN9cDVN9K+phUsRIL+TU
yj9By9pW7xxy38tbIVA97RABrR1S7sE6mbMGek12a2FP05IOqrq838ADBXWD
0C3gySgURO02wn/PgNwt
  "]]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"eq1hNew", " ", "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"eq1h", "/.", "replace"}], "/.", "sola1a6"}], "//", 
     "TrigExpand"}], "//", "Chop"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq2hNew", " ", "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"eq2h", "/.", "replace"}], "/.", "sola1a6"}], "//", 
     "TrigExpand"}], "//", "Chop"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq3hNew", " ", "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"eq3h", "/.", "replace"}], "/.", "sola1a6"}], "//", 
     "TrigExpand"}], "//", "Chop"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq4hNew", " ", "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"eq4h", "/.", "replace"}], "/.", "sola1a6"}], "//", 
     "TrigExpand"}], "//", "Chop"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.685645680181059*^9, 3.685645788128896*^9}, {
  3.685645997376218*^9, 3.685646011149479*^9}, {3.6856460553012576`*^9, 
  3.6856461289096904`*^9}, {3.686359340335246*^9, 3.6863593994058733`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Variables", "[", "eq1hNew", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Variables", "[", "eq2hNew", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Variables", "[", "eq3hNew", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Variables", "[", "eq4hNew", "]"}]}], "Input",
 CellChangeTimes->{{3.6863594844560146`*^9, 3.6863595092421227`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Cos", "[", 
    RowBox[{"0.5`", " ", "a2"}], "]"}], ",", 
   RowBox[{"Cos", "[", 
    RowBox[{"0.5`", " ", "a3"}], "]"}], ",", 
   RowBox[{"Cos", "[", 
    RowBox[{"0.5`", " ", "a4"}], "]"}], ",", 
   RowBox[{"Cos", "[", 
    RowBox[{"0.5`", " ", "a5"}], "]"}], ",", 
   RowBox[{"Sin", "[", 
    RowBox[{"0.5`", " ", "a2"}], "]"}], ",", 
   RowBox[{"Sin", "[", 
    RowBox[{"0.5`", " ", "a3"}], "]"}], ",", 
   RowBox[{"Sin", "[", 
    RowBox[{"0.5`", " ", "a4"}], "]"}], ",", 
   RowBox[{"Sin", "[", 
    RowBox[{"0.5`", " ", "a5"}], "]"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.686359495987707*^9, 3.6863595105624857`*^9}, 
   3.686392463956758*^9, 3.6863953243986607`*^9, 3.686396761502384*^9, 
   3.6863968755282683`*^9, 3.68639720754355*^9, 3.686400463642468*^9, 
   3.686404252404153*^9, 3.686404318627657*^9, 3.6864044941767793`*^9, 
   3.6864098769137464`*^9, 3.686769144321069*^9, 3.6867779898040447`*^9, 
   3.6867796740442047`*^9, 3.68677971245387*^9, 3.6867819222654276`*^9, 
   3.6867820732478695`*^9, 3.6867821486687794`*^9, 3.686782669923826*^9, 
   3.6867830397979975`*^9, 3.686783480986622*^9, 3.6867916018405876`*^9, 
   3.686793207648409*^9, 3.686841771139906*^9, 3.686842112530531*^9, 
   3.686842274030531*^9, 3.686842319718031*^9, 3.686842427327406*^9, 
   3.686843574718031*^9, 3.686844130035344*^9, 3.686844279754094*^9, 
   3.686844360425969*^9, 3.686844468566594*^9, 3.686844663019719*^9, 
   3.686844854816594*^9, 3.686845054816594*^9, 3.6870100786644735`*^9, 
   3.6870106901175985`*^9, 3.6870107640394735`*^9, 3.6870116738264737`*^9, 
   3.6870117947795987`*^9, 3.6870118421858487`*^9, 3.6870119052639737`*^9, 
   3.687024037764003*^9, 3.68703206276418*^9, 3.687033759764156*^9, 
   3.687036821596857*^9, 3.6870424837478185`*^9, 3.6870551272615576`*^9, 
   3.6870563593495474`*^9, 3.687057343849513*^9, 3.687057407412013*^9, 
   3.687057487724513*^9, 3.6870578357884645`*^9, 3.6871034790672526`*^9, 
   3.687103700065838*^9, 3.6871147228517685`*^9, 3.6871153922098155`*^9, 
   3.687116340394853*^9, 3.687116485736743*^9, 3.6871165517053833`*^9, 
   3.6871166470022583`*^9, 3.6871170358303833`*^9, 3.6871171800178833`*^9, 
   3.6871174834241333`*^9, 3.6871175469553833`*^9, 3.6871176530178833`*^9, 
   3.6871181066741333`*^9, 3.6871181996585083`*^9, 3.687118526399417*^9, 
   3.6871984996817646`*^9, 3.6871987181505146`*^9, 3.687199130789736*^9, 
   3.687199917132969*^9, 3.68788425821111*^9, 3.6878843426006546`*^9, 
   3.6878844708991413`*^9, 3.687884538583602*^9, 3.6878864631290627`*^9, 
   3.6878868069154367`*^9, 3.687886966374509*^9, 3.687887146943226*^9, 
   3.6878873259416113`*^9, 3.687887461060528*^9, 3.6878875628079243`*^9, 
   3.6878876746701074`*^9, 3.6878888139758368`*^9, 3.687888851170673*^9, 
   3.6878889137831526`*^9, 3.687889373058524*^9, 3.6878894819555674`*^9, 
   3.6878895538257413`*^9, 3.6880624410990696`*^9, 3.6880630834523335`*^9, 
   3.6880655612331543`*^9, 3.6880670365938187`*^9, 3.688067188973402*^9, 
   3.688067324736859*^9, 3.688067468621513*^9, 3.688067642037795*^9, 
   3.688068153222329*^9, 3.688068221186303*^9, 3.688068324216234*^9, 
   3.688068687000654*^9, 3.6880688277563624`*^9, 3.6880694373501024`*^9, 
   3.6880696213915205`*^9, 3.688069672735928*^9, 3.6880705472718554`*^9, 
   3.6880706088804417`*^9, 3.6880706703015304`*^9, 3.688070711972872*^9, 
   3.6880707613589582`*^9, 3.6880708208503847`*^9, 3.6880708940216217`*^9, 
   3.6880711144580374`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Cos", "[", 
    RowBox[{"0.5`", " ", "a2"}], "]"}], ",", 
   RowBox[{"Cos", "[", 
    RowBox[{"0.5`", " ", "a3"}], "]"}], ",", 
   RowBox[{"Cos", "[", 
    RowBox[{"0.5`", " ", "a4"}], "]"}], ",", 
   RowBox[{"Cos", "[", 
    RowBox[{"0.5`", " ", "a5"}], "]"}], ",", 
   RowBox[{"Sin", "[", 
    RowBox[{"0.5`", " ", "a2"}], "]"}], ",", 
   RowBox[{"Sin", "[", 
    RowBox[{"0.5`", " ", "a3"}], "]"}], ",", 
   RowBox[{"Sin", "[", 
    RowBox[{"0.5`", " ", "a4"}], "]"}], ",", 
   RowBox[{"Sin", "[", 
    RowBox[{"0.5`", " ", "a5"}], "]"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.686359495987707*^9, 3.6863595105624857`*^9}, 
   3.686392463956758*^9, 3.6863953243986607`*^9, 3.686396761502384*^9, 
   3.6863968755282683`*^9, 3.68639720754355*^9, 3.686400463642468*^9, 
   3.686404252404153*^9, 3.686404318627657*^9, 3.6864044941767793`*^9, 
   3.6864098769137464`*^9, 3.686769144321069*^9, 3.6867779898040447`*^9, 
   3.6867796740442047`*^9, 3.68677971245387*^9, 3.6867819222654276`*^9, 
   3.6867820732478695`*^9, 3.6867821486687794`*^9, 3.686782669923826*^9, 
   3.6867830397979975`*^9, 3.686783480986622*^9, 3.6867916018405876`*^9, 
   3.686793207648409*^9, 3.686841771139906*^9, 3.686842112530531*^9, 
   3.686842274030531*^9, 3.686842319718031*^9, 3.686842427327406*^9, 
   3.686843574718031*^9, 3.686844130035344*^9, 3.686844279754094*^9, 
   3.686844360425969*^9, 3.686844468566594*^9, 3.686844663019719*^9, 
   3.686844854816594*^9, 3.686845054816594*^9, 3.6870100786644735`*^9, 
   3.6870106901175985`*^9, 3.6870107640394735`*^9, 3.6870116738264737`*^9, 
   3.6870117947795987`*^9, 3.6870118421858487`*^9, 3.6870119052639737`*^9, 
   3.687024037764003*^9, 3.68703206276418*^9, 3.687033759764156*^9, 
   3.687036821596857*^9, 3.6870424837478185`*^9, 3.6870551272615576`*^9, 
   3.6870563593495474`*^9, 3.687057343849513*^9, 3.687057407412013*^9, 
   3.687057487724513*^9, 3.6870578357884645`*^9, 3.6871034790672526`*^9, 
   3.687103700065838*^9, 3.6871147228517685`*^9, 3.6871153922098155`*^9, 
   3.687116340394853*^9, 3.687116485736743*^9, 3.6871165517053833`*^9, 
   3.6871166470022583`*^9, 3.6871170358303833`*^9, 3.6871171800178833`*^9, 
   3.6871174834241333`*^9, 3.6871175469553833`*^9, 3.6871176530178833`*^9, 
   3.6871181066741333`*^9, 3.6871181996585083`*^9, 3.687118526399417*^9, 
   3.6871984996817646`*^9, 3.6871987181505146`*^9, 3.687199130789736*^9, 
   3.687199917132969*^9, 3.68788425821111*^9, 3.6878843426006546`*^9, 
   3.6878844708991413`*^9, 3.687884538583602*^9, 3.6878864631290627`*^9, 
   3.6878868069154367`*^9, 3.687886966374509*^9, 3.687887146943226*^9, 
   3.6878873259416113`*^9, 3.687887461060528*^9, 3.6878875628079243`*^9, 
   3.6878876746701074`*^9, 3.6878888139758368`*^9, 3.687888851170673*^9, 
   3.6878889137831526`*^9, 3.687889373058524*^9, 3.6878894819555674`*^9, 
   3.6878895538257413`*^9, 3.6880624410990696`*^9, 3.6880630834523335`*^9, 
   3.6880655612331543`*^9, 3.6880670365938187`*^9, 3.688067188973402*^9, 
   3.688067324736859*^9, 3.688067468621513*^9, 3.688067642037795*^9, 
   3.688068153222329*^9, 3.688068221186303*^9, 3.688068324216234*^9, 
   3.688068687000654*^9, 3.6880688277563624`*^9, 3.6880694373501024`*^9, 
   3.6880696213915205`*^9, 3.688069672735928*^9, 3.6880705472718554`*^9, 
   3.6880706088804417`*^9, 3.6880706703015304`*^9, 3.688070711972872*^9, 
   3.6880707613589582`*^9, 3.6880708208503847`*^9, 3.6880708940216217`*^9, 
   3.6880711144619436`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Cos", "[", 
    RowBox[{"0.5`", " ", "a2"}], "]"}], ",", 
   RowBox[{"Cos", "[", 
    RowBox[{"0.5`", " ", "a3"}], "]"}], ",", 
   RowBox[{"Cos", "[", 
    RowBox[{"0.5`", " ", "a4"}], "]"}], ",", 
   RowBox[{"Cos", "[", 
    RowBox[{"0.5`", " ", "a5"}], "]"}], ",", 
   RowBox[{"Sin", "[", 
    RowBox[{"0.5`", " ", "a2"}], "]"}], ",", 
   RowBox[{"Sin", "[", 
    RowBox[{"0.5`", " ", "a3"}], "]"}], ",", 
   RowBox[{"Sin", "[", 
    RowBox[{"0.5`", " ", "a4"}], "]"}], ",", 
   RowBox[{"Sin", "[", 
    RowBox[{"0.5`", " ", "a5"}], "]"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.686359495987707*^9, 3.6863595105624857`*^9}, 
   3.686392463956758*^9, 3.6863953243986607`*^9, 3.686396761502384*^9, 
   3.6863968755282683`*^9, 3.68639720754355*^9, 3.686400463642468*^9, 
   3.686404252404153*^9, 3.686404318627657*^9, 3.6864044941767793`*^9, 
   3.6864098769137464`*^9, 3.686769144321069*^9, 3.6867779898040447`*^9, 
   3.6867796740442047`*^9, 3.68677971245387*^9, 3.6867819222654276`*^9, 
   3.6867820732478695`*^9, 3.6867821486687794`*^9, 3.686782669923826*^9, 
   3.6867830397979975`*^9, 3.686783480986622*^9, 3.6867916018405876`*^9, 
   3.686793207648409*^9, 3.686841771139906*^9, 3.686842112530531*^9, 
   3.686842274030531*^9, 3.686842319718031*^9, 3.686842427327406*^9, 
   3.686843574718031*^9, 3.686844130035344*^9, 3.686844279754094*^9, 
   3.686844360425969*^9, 3.686844468566594*^9, 3.686844663019719*^9, 
   3.686844854816594*^9, 3.686845054816594*^9, 3.6870100786644735`*^9, 
   3.6870106901175985`*^9, 3.6870107640394735`*^9, 3.6870116738264737`*^9, 
   3.6870117947795987`*^9, 3.6870118421858487`*^9, 3.6870119052639737`*^9, 
   3.687024037764003*^9, 3.68703206276418*^9, 3.687033759764156*^9, 
   3.687036821596857*^9, 3.6870424837478185`*^9, 3.6870551272615576`*^9, 
   3.6870563593495474`*^9, 3.687057343849513*^9, 3.687057407412013*^9, 
   3.687057487724513*^9, 3.6870578357884645`*^9, 3.6871034790672526`*^9, 
   3.687103700065838*^9, 3.6871147228517685`*^9, 3.6871153922098155`*^9, 
   3.687116340394853*^9, 3.687116485736743*^9, 3.6871165517053833`*^9, 
   3.6871166470022583`*^9, 3.6871170358303833`*^9, 3.6871171800178833`*^9, 
   3.6871174834241333`*^9, 3.6871175469553833`*^9, 3.6871176530178833`*^9, 
   3.6871181066741333`*^9, 3.6871181996585083`*^9, 3.687118526399417*^9, 
   3.6871984996817646`*^9, 3.6871987181505146`*^9, 3.687199130789736*^9, 
   3.687199917132969*^9, 3.68788425821111*^9, 3.6878843426006546`*^9, 
   3.6878844708991413`*^9, 3.687884538583602*^9, 3.6878864631290627`*^9, 
   3.6878868069154367`*^9, 3.687886966374509*^9, 3.687887146943226*^9, 
   3.6878873259416113`*^9, 3.687887461060528*^9, 3.6878875628079243`*^9, 
   3.6878876746701074`*^9, 3.6878888139758368`*^9, 3.687888851170673*^9, 
   3.6878889137831526`*^9, 3.687889373058524*^9, 3.6878894819555674`*^9, 
   3.6878895538257413`*^9, 3.6880624410990696`*^9, 3.6880630834523335`*^9, 
   3.6880655612331543`*^9, 3.6880670365938187`*^9, 3.688067188973402*^9, 
   3.688067324736859*^9, 3.688067468621513*^9, 3.688067642037795*^9, 
   3.688068153222329*^9, 3.688068221186303*^9, 3.688068324216234*^9, 
   3.688068687000654*^9, 3.6880688277563624`*^9, 3.6880694373501024`*^9, 
   3.6880696213915205`*^9, 3.688069672735928*^9, 3.6880705472718554`*^9, 
   3.6880706088804417`*^9, 3.6880706703015304`*^9, 3.688070711972872*^9, 
   3.6880707613589582`*^9, 3.6880708208503847`*^9, 3.6880708940216217`*^9, 
   3.6880711144619436`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Cos", "[", 
    RowBox[{"0.5`", " ", "a2"}], "]"}], ",", 
   RowBox[{"Cos", "[", 
    RowBox[{"0.5`", " ", "a3"}], "]"}], ",", 
   RowBox[{"Cos", "[", 
    RowBox[{"0.5`", " ", "a4"}], "]"}], ",", 
   RowBox[{"Cos", "[", 
    RowBox[{"0.5`", " ", "a5"}], "]"}], ",", 
   RowBox[{"Sin", "[", 
    RowBox[{"0.5`", " ", "a2"}], "]"}], ",", 
   RowBox[{"Sin", "[", 
    RowBox[{"0.5`", " ", "a3"}], "]"}], ",", 
   RowBox[{"Sin", "[", 
    RowBox[{"0.5`", " ", "a4"}], "]"}], ",", 
   RowBox[{"Sin", "[", 
    RowBox[{"0.5`", " ", "a5"}], "]"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.686359495987707*^9, 3.6863595105624857`*^9}, 
   3.686392463956758*^9, 3.6863953243986607`*^9, 3.686396761502384*^9, 
   3.6863968755282683`*^9, 3.68639720754355*^9, 3.686400463642468*^9, 
   3.686404252404153*^9, 3.686404318627657*^9, 3.6864044941767793`*^9, 
   3.6864098769137464`*^9, 3.686769144321069*^9, 3.6867779898040447`*^9, 
   3.6867796740442047`*^9, 3.68677971245387*^9, 3.6867819222654276`*^9, 
   3.6867820732478695`*^9, 3.6867821486687794`*^9, 3.686782669923826*^9, 
   3.6867830397979975`*^9, 3.686783480986622*^9, 3.6867916018405876`*^9, 
   3.686793207648409*^9, 3.686841771139906*^9, 3.686842112530531*^9, 
   3.686842274030531*^9, 3.686842319718031*^9, 3.686842427327406*^9, 
   3.686843574718031*^9, 3.686844130035344*^9, 3.686844279754094*^9, 
   3.686844360425969*^9, 3.686844468566594*^9, 3.686844663019719*^9, 
   3.686844854816594*^9, 3.686845054816594*^9, 3.6870100786644735`*^9, 
   3.6870106901175985`*^9, 3.6870107640394735`*^9, 3.6870116738264737`*^9, 
   3.6870117947795987`*^9, 3.6870118421858487`*^9, 3.6870119052639737`*^9, 
   3.687024037764003*^9, 3.68703206276418*^9, 3.687033759764156*^9, 
   3.687036821596857*^9, 3.6870424837478185`*^9, 3.6870551272615576`*^9, 
   3.6870563593495474`*^9, 3.687057343849513*^9, 3.687057407412013*^9, 
   3.687057487724513*^9, 3.6870578357884645`*^9, 3.6871034790672526`*^9, 
   3.687103700065838*^9, 3.6871147228517685`*^9, 3.6871153922098155`*^9, 
   3.687116340394853*^9, 3.687116485736743*^9, 3.6871165517053833`*^9, 
   3.6871166470022583`*^9, 3.6871170358303833`*^9, 3.6871171800178833`*^9, 
   3.6871174834241333`*^9, 3.6871175469553833`*^9, 3.6871176530178833`*^9, 
   3.6871181066741333`*^9, 3.6871181996585083`*^9, 3.687118526399417*^9, 
   3.6871984996817646`*^9, 3.6871987181505146`*^9, 3.687199130789736*^9, 
   3.687199917132969*^9, 3.68788425821111*^9, 3.6878843426006546`*^9, 
   3.6878844708991413`*^9, 3.687884538583602*^9, 3.6878864631290627`*^9, 
   3.6878868069154367`*^9, 3.687886966374509*^9, 3.687887146943226*^9, 
   3.6878873259416113`*^9, 3.687887461060528*^9, 3.6878875628079243`*^9, 
   3.6878876746701074`*^9, 3.6878888139758368`*^9, 3.687888851170673*^9, 
   3.6878889137831526`*^9, 3.687889373058524*^9, 3.6878894819555674`*^9, 
   3.6878895538257413`*^9, 3.6880624410990696`*^9, 3.6880630834523335`*^9, 
   3.6880655612331543`*^9, 3.6880670365938187`*^9, 3.688067188973402*^9, 
   3.688067324736859*^9, 3.688067468621513*^9, 3.688067642037795*^9, 
   3.688068153222329*^9, 3.688068221186303*^9, 3.688068324216234*^9, 
   3.688068687000654*^9, 3.6880688277563624`*^9, 3.6880694373501024`*^9, 
   3.6880696213915205`*^9, 3.688069672735928*^9, 3.6880705472718554`*^9, 
   3.6880706088804417`*^9, 3.6880706703015304`*^9, 3.688070711972872*^9, 
   3.6880707613589582`*^9, 3.6880708208503847`*^9, 3.6880708940216217`*^9, 
   3.68807111446585*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Eliminate a3,a4 and a5", "Subsection",
 CellChangeTimes->{{3.6856461378548884`*^9, 3.6856461457883806`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"eq1hTans", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"eq1hNew", " ", 
      RowBox[{"Sec", "[", 
       RowBox[{"0.5", " ", "a2"}], "]"}], " ", 
      RowBox[{"Sec", "[", 
       RowBox[{"0.5", " ", "a3"}], "]"}], " ", 
      RowBox[{"Sec", "[", 
       RowBox[{"0.5", " ", "a4"}], "]"}], " ", 
      RowBox[{"Sec", "[", 
       RowBox[{"0.5", " ", "a5"}], "]"}]}], "//", "Simplify"}], "//", 
    "Expand"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq2hTans", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"eq2hNew", " ", 
      RowBox[{"Sec", "[", 
       RowBox[{"0.5", " ", "a2"}], "]"}], " ", 
      RowBox[{"Sec", "[", 
       RowBox[{"0.5", " ", "a3"}], "]"}], " ", 
      RowBox[{"Sec", "[", 
       RowBox[{"0.5", " ", "a4"}], "]"}], " ", 
      RowBox[{"Sec", "[", 
       RowBox[{"0.5", " ", "a5"}], "]"}]}], "//", "Simplify"}], "//", 
    "Expand"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq3hTans", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"eq3hNew", " ", 
      RowBox[{"Sec", "[", 
       RowBox[{"0.5", " ", "a2"}], "]"}], " ", 
      RowBox[{"Sec", "[", 
       RowBox[{"0.5", " ", "a3"}], "]"}], " ", 
      RowBox[{"Sec", "[", 
       RowBox[{"0.5", " ", "a4"}], "]"}], " ", 
      RowBox[{"Sec", "[", 
       RowBox[{"0.5", " ", "a5"}], "]"}]}], "//", "Simplify"}], "//", 
    "Expand"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq4hTans", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"eq4hNew", " ", 
      RowBox[{"Sec", "[", 
       RowBox[{"0.5", " ", "a2"}], "]"}], " ", 
      RowBox[{"Sec", "[", 
       RowBox[{"0.5", " ", "a3"}], "]"}], " ", 
      RowBox[{"Sec", "[", 
       RowBox[{"0.5", " ", "a4"}], "]"}], " ", 
      RowBox[{"Sec", "[", 
       RowBox[{"0.5", " ", "a5"}], "]"}]}], "//", "Simplify"}], "//", 
    "Expand"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.685784716875679*^9, 3.685784901127227*^9}, {
  3.685784935794752*^9, 3.6857849416501455`*^9}, {3.6857851506240335`*^9, 
  3.6857852526696024`*^9}, {3.6857852982627687`*^9, 3.6857853010283585`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Variables", "[", "eq1hTans", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Variables", "[", "eq2hTans", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Variables", "[", "eq3hTans", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Variables", "[", "eq4hTans", "]"}]}], "Input",
 CellChangeTimes->{{3.686392519760731*^9, 3.686392546908821*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Tan", "[", 
    RowBox[{"0.5`", " ", "a2"}], "]"}], ",", 
   RowBox[{"Tan", "[", 
    RowBox[{"0.5`", " ", "a3"}], "]"}], ",", 
   RowBox[{"Tan", "[", 
    RowBox[{"0.5`", " ", "a4"}], "]"}], ",", 
   RowBox[{"Tan", "[", 
    RowBox[{"0.5`", " ", "a5"}], "]"}]}], "}"}]], "Output",
 CellChangeTimes->CompressedData["
1:eJwtyn8s1HEcx/HLbpLVvqNE0qEoY/nVdYrL5cftUixMpeHaOvl16oxTfhxO
/9haVtnqIkm0ahRNuewyy687WaXI+qE51S2VzLqT3LGuz+v77Y/3Hnvu9fY8
Lks8sYLFYuWTq+GaUvlnZiJ+NC093kP0NTVKw4k8nb4YSgySZvjkZXroXmIw
ZV0bSfRaELrB899CgqF9GjUWTRz1LhPME8vr2JcWiR77IyVmomZQmQVtejQK
CzHQX3UBhmupWnhjxO8DHLsrtVsiGuVXBdDVt4VnJWa6S6zQrWSk07mIaCmd
oi25N894zML4ZqULvUer4Lmb9z/SeqbPMV1pZrTabqCNc2cUhfw3Hor7hYZs
GPUoMId2fjcsNra00uZrNYxdTxlVQ1Bt9OnMI8oLhI1y4p+CDHkhunaL6TSR
kzutLia2iVO+VBDLA1LLlEReQO4i3NkuZlXSptvDirBsHuy5nVyhIvpuNNbB
B71Dy/XERnVR/HXiviazFrLX+r2HSkfJJ9qa+FlG06YG2l8BtI76Q0yPpDFN
SRkHmhkl7ZAjCnsH2a+nDYO0QSwt8YhwYAeM6aWuwFURmu51JTMRHckiHfSy
PfgWhm3v08PJ/qRXTsSGA7FLMEUhoNYTo2XD3nD1WX8+VOblxEFD6POjcGuC
NhM++z1ugaFzd2yc8a934sNbD9tioOvP1kToUP29R0rcXPt5TS5RfFgVdZLI
nWItQ4XWgTpF7JLbecDhflYwtBS2i+AC/3IVHHVyuQjZ0sV62C1MHIal3K8T
MCeJ4yMjqrdxBNB5tkoIWxwnOiA3tloDdd4hfTCjUqaDuxTXXsC/43bjsDwh
aBLWZXWb4T9ZI8tk
  "]],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Tan", "[", 
    RowBox[{"0.5`", " ", "a2"}], "]"}], ",", 
   RowBox[{"Tan", "[", 
    RowBox[{"0.5`", " ", "a3"}], "]"}], ",", 
   RowBox[{"Tan", "[", 
    RowBox[{"0.5`", " ", "a4"}], "]"}], ",", 
   RowBox[{"Tan", "[", 
    RowBox[{"0.5`", " ", "a5"}], "]"}]}], "}"}]], "Output",
 CellChangeTimes->CompressedData["
1:eJwtyn8s1HEcx/FvdpOsdqNE0qEoY/nVdYrL5cftUixMpeHaOhGnzjjlx+H0
j9ayylYXSaJVo2jKZZdZft3JKkXWD82pbqlk1p3kjnV9Xt9vf7z32HOvt+dR
WeKxZRRF5ZGr5ppS+aenI340Lj7eRfQ1NUjDiTydvghKDJIm+ORleuhuYjDb
ujqS6DUvdIPnv4UEQ/s09mg0ccS7VDBHLKtlXVogeuyNlJiJmgHlcWjTrVFY
iIH+qgswXMuugTeG/T7A0btSu0WiUX5VAF19m3lWYqa7xArdioc7nAuJlpJJ
2uJ7c4xHLIxvlrvQe7QKnrt5/yOtZ/os0xVmRqvtOto4d0ZRyH/jobhPaMiC
UY8Cs2nndsIiY3MLbZ5Ww9j5lFE1CNVGn45cojxf2CAn/snPkBegazaZThE5
OVPqImKrOOVLObEsILVUSeQF5CzA7W1iqoI23R6Wh2XxYPft5HIV0Xe9sRY+
6BlcqiM2qAvjrxP3NJq1kLXa7z1UOko+0VbHzzCaNtTT/gqgddQfYHo4jWm2
lLG/iVHSBjmisHeQ9XrKMEAbRGmJh4T922BMD/sKXBGh6VpTPB3RnizSQS/b
/W9h2NZePZzoS3rlRKzfF7sIUxQC9lpitGzIG64848+HytzsOGgIfX4Ybk7Q
ZsJnv8csMHT2jo0z/vVOfHjrYWsMdP3Zkggdqr53S4kbaz6vyiGKD6qiThC5
k9QSVGgd2CeJnXI7DzjURwVDS0GbCM7zL1fCESeXi5AlXaiDXcLEIVjC/ToO
s5M4PjKiegtHAJ1nKoWw2XG8HXJjqzRQ5x3SCzMqZDq4Q3HtBfw7ZjcGyxKC
JmDt2S4z/AdaA8uE
  "]],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Tan", "[", 
    RowBox[{"0.5`", " ", "a2"}], "]"}], ",", 
   RowBox[{"Tan", "[", 
    RowBox[{"0.5`", " ", "a3"}], "]"}], ",", 
   RowBox[{"Tan", "[", 
    RowBox[{"0.5`", " ", "a4"}], "]"}], ",", 
   RowBox[{"Tan", "[", 
    RowBox[{"0.5`", " ", "a5"}], "]"}]}], "}"}]], "Output",
 CellChangeTimes->CompressedData["
1:eJwtyn8s1HEcx/HLbpLVvqNE0qEoY/nVdYrL5cftUixMpeHaOhGnzjjlx+H0
j61lla0ukkQro2jKZZdZft3JKkXWD82pbqlk1p3kjnV9Xt9vf7z32HOvt+dx
WeKJFSwWK49cNdeUyj87E/GjcenxHqKvqUEaTuTp9EVQYpA0wScv00P3EoMp
69pIoteC0A1e+BYSDO3TqLFo4qh3qWCeWFbLvrxI9NgfKTETNYPKk9CmR6Ow
EAP9VRdhuJaqgTdH/D7AsWap3RLRKL8mgK6+LTwrMdNdYoVuxSOdzoVES8kU
bfG9ecZjFsY3K13oPVoFz9+6/5HWM32O6Qozo9V2A22cO6Mo5L/xUNwvNGTB
qEeB2bTzu2GRsaWVNk+rYex6yqgagmqjT2cuUZ4vbJAT/+RnyAvQNVtMZ4ic
nGl1EbFNnPKlnFgWkFqqJPICchbhznYxq4I23R6Wh2XxYM+d5HIV0XejsRY+
6B1ariM2qAvjbxD3NZq1kL3W7z1UOko+0VbHzzKaNtXT/gqgddQfYnokjWlK
yjjQxChphxxR2DvIfj1tGKQNYmmJR4QDO2BML3UVrorQdK8rnonoSBbpoJft
wbcwbHufHk72J71yItYfiF2CKQoBtZ4YLRv2hqvP+fOhMjc7DhpCnx+FWxO0
mfDZ73ELDJ27a+OMf70TH95+2BYDXX+2JkKHqu89UuLmms9rcojiw6qoU0Tu
FGsZKrQO1Glil9zOAw73s4KhpaBdBBf4VyrhqJPLJciWLtbBbmHiMCzhfp2A
2UkcHxlRvY0jgM6zlULY4jjRAbmxVRqo8w7pgxkVMh3cpbj+Av4dtxuHZQlB
k7C2udsM/wFa48uk
  "]],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Tan", "[", 
    RowBox[{"0.5`", " ", "a2"}], "]"}], ",", 
   RowBox[{"Tan", "[", 
    RowBox[{"0.5`", " ", "a3"}], "]"}], ",", 
   RowBox[{"Tan", "[", 
    RowBox[{"0.5`", " ", "a4"}], "]"}], ",", 
   RowBox[{"Tan", "[", 
    RowBox[{"0.5`", " ", "a5"}], "]"}]}], "}"}]], "Output",
 CellChangeTimes->CompressedData["
1:eJwtyn8s1HEcx/HLbpLVvkMi6VCUsfzqOsXl8uN2KRam0nBtnYhTZ5zy43D6
x9ayylYXSaJVo2jKZZdZft3JKkXWD82pbqlk1p3kjnV9Xt9vf7z32HOvt9cx
WdLxFSwWK59cDdeUxj8zE/mjaenxbqKfqVEaQeTp9MVQYpA0wycvM8L2EEMo
q1MU0XtB6A7PfwsNgfbp1FgMcdSnTDBPLK9jX1okeu6LkpiJmkHlCWjTo1FY
iEEBqgswQkvVwhsj/h/g2F2p3RLRKL8qgG5+LTwrMctDYoXuJSOdLkVES+kU
bcm9ecajFsY3K13pPUYFz928/5HWK2OO6Uozo9V2PW28B6Mo9L8JUNwvNGTD
6EdBObTzu2CxsaWVNl+rYex6yqgagmqjb2ceUV4gbJQT/xRkygvRtZtNp4mc
3Gl1MbFNnPqlglgemFamJPICcxfhjnYxq5I2wx5WhGfzYM/tlAoV0W+DsQ4+
6B1aric2qosSrhP3Npm1kO3k/x4qHSWfaGsSZhlNGxtofwXSOuoPMj2SzjQl
ZRxoZpS0Q44o/B1kv542DNIGs7TEw8KB7TC2l7oCV0VquteWzER2pIh00Nv2
wFsYvq1PDyf7k185Exv2xy3BVIWAWkeMkQ37wNVnA/hQmZcTDw1hz4/ALYna
LPjs97gFhs3dsXHBv96ZD289bIuFbj9bk6BD9fceKXFT7ec1uUTxIVX0SSJ3
irUMFVoH6hSxS27nCYf7WSHQUtguggv8y1Vw1Nn1ImRLF+thtzBpGJZyv07A
nGSOr4yo3soRQJfZKiFscZzogNy4ag3U+YT2wcxKmQ7uVFx7Af+O243D8sTg
SVg31G2G/wBbw8vE
  "]]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"subsTans", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"Tan", "[", 
       RowBox[{"0.5", " ", "a2"}], "]"}], "\[Rule]", "w"}], ",", 
     RowBox[{
      RowBox[{"Tan", "[", 
       RowBox[{"0.5", " ", "a3"}], "]"}], "\[Rule]", "x"}], ",", 
     RowBox[{
      RowBox[{"Tan", "[", 
       RowBox[{"0.5", " ", "a4"}], "]"}], "\[Rule]", "y"}], ",", 
     RowBox[{
      RowBox[{"Tan", "[", 
       RowBox[{"0.5", " ", "a5"}], "]"}], "\[Rule]", "z"}]}], "}"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.685785315782076*^9, 3.685785386902259*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"f1", "=", 
   RowBox[{
    RowBox[{"eq1hTans", "[", 
     RowBox[{"[", "1", "]"}], "]"}], "/.", "subsTans"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"f2", "=", 
   RowBox[{
    RowBox[{"eq2hTans", "[", 
     RowBox[{"[", "1", "]"}], "]"}], "/.", "subsTans"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"f3", "=", 
   RowBox[{
    RowBox[{"eq3hTans", "[", 
     RowBox[{"[", "1", "]"}], "]"}], "/.", "subsTans"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"f4", "=", 
   RowBox[{
    RowBox[{"eq4hTans", "[", 
     RowBox[{"[", "1", "]"}], "]"}], "/.", "subsTans"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.685785403210644*^9, 3.6857854280072017`*^9}, {
  3.6857855073929043`*^9, 3.6857855366581545`*^9}, {3.6857968552134876`*^9, 
  3.6857968665688105`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Variables", "[", "f1", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Variables", "[", "f2", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Variables", "[", "f3", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Variables", "[", "f4", "]"}]}], "Input",
 CellChangeTimes->{{3.686392596486312*^9, 3.68639261602903*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"w", ",", "x", ",", "y", ",", "z"}], "}"}]], "Output",
 CellChangeTimes->CompressedData["
1:eJwt0n8s1HEcx/G7Ij+qEflVmlgqzbq6DpdOyI/TSqHYVFI4lBOhH+z8rGht
kf7waxJpLTGs7S75scrvyJCZSuOaH7OitnNbnNuu9+v77Y/PHnt+Pu+9//rY
RyWFSLgcDuc6naiHdyWiW7+8F/O0bzxIp7GahKOka4EyHUZ1x9TC1kKJuxcp
GNaZHyMdw8S2sPClkA8NPUzHfMmRuUxPNSk7p1+8QtoZ+0Svkm/v5cZDblab
TEPu/11aBD3yTcthVZHzN/g5QGq4RqrPlntCh5+vXHVkrC5aB201w3Kr22SG
TMmoaVCzfUnDOm5gzdz7lcIH9o3fWSV/WPNWGWs4BjZMn7JjDXD7bxC86OM/
e4VRfuAq7FIfhumq+nrGlL5Wtlves13WDxUqJ3kymZLqX51G/k2NS7tBptns
Wr5JbpMuKNLJxqnzM9lkFi8iM4d05SWuQJemSE4uo8QYdh7Z4AbbX4Rnl5L7
ti9XwOYPA9pKskqRHvSEFD/T9EI9c+evMMcs5gfj4+AlVvWOKkYVj9FMGco6
EsFqmsC+d9eyHdMEbcWiL3B98MJsD/aP8jm9ZJhfzyEY4L2lBBpy29q3ZtC/
mD89AUVLndNwtit0xIJ8eiJwDV6QeZlYkr5Jg45wUx5PBJUjk4Fwzn0oHO4u
7ouD/RYTGig0qVtnhflpSxF8PtZ0HNosNoTAT4Ef3yWQDuEzm6VkpGWZTyIp
qOZqYVa+mck1skVgtBMO3uHyodalWQzVtiUFcHTc+hHU27haCTv0zwxAmXp+
EkoFdnuTSMUeO09oPXTfD9apJl9DwcnCVtirL+yEsZeT+6BQVDkEtXKjcZhz
kD8FK+I7VuE/bzTEgA==
  "]],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"w", ",", "x", ",", "y", ",", "z"}], "}"}]], "Output",
 CellChangeTimes->CompressedData["
1:eJwt0n8s1HEcx/G7Ij+qEflVmlgqzbq6DpdOyM9WCsWmksJRORH6cXZ+Vlhb
pD/8mkRaSwxrc8mPVX5H5mSm0rjmx6yo7dyWO7fp/fp+++Ozx56fz3vvvz72
0UmhYi6Hw7lBJ/rhPbHo9i/vxVzdGw/Saawm4Sjpmq+Uwuie2FrYVih29yIF
I2vmx0jH8ABbWPhSyIeGHqZjvqRiLsNTTcrO6RevkHbGPjEa8u39nCuQm9ku
05L7f5cWQY8803JYVeT8DX4OlBiukuqz5Z7Q4ecr1zUybi1mDdpqR1qs7pDp
MiWjtkHN9iUt67iBNXPvVwof2Dd+ZxX/Yc3VMNZwDGyYPmXHGuj232B40cd/
9ipjy4FrsFt9GEpV9fWMKf1tbLe+Z7tsAMpVTi3JZEqqf3Ua+Tc1Pu0mmWaz
a/kWuU2yIJeSjVPnZ7LITF5kRjbpyktcgS5NUZwcRrEx7DqywQ12vIjIKiX3
bV+ugM0fBnWVZJVcGvyEDHim7YN65s5fYbZZ7A/GxyFLrOodVYwqHqOZMoxV
EclqmsC+99SyHdsEbQNEX+D6kIXZXuwf5XP6yHC/3kMw0HtLCTTktndsTad/
MX96AoqWuqbhbHeYwoJ8eiJoFV6QeZlYkr5JQ45wUy5PBJWKySA45z4cAXcX
98fDAYsJLRSa1K2zwvy0pQg+H2s6Dm0WG0Lhp6CP7xJIh4iZzRIyyrLMJ5EU
VHN1MDPPzOQ62Sow2gmH7nL5UOfSHADVtiX5cHTc+hHU26iphJ36ZwahTD0/
CSUCu71JpHyPnSe0Hi7wg3WqyddQcLKwDfbpC7tg3OXkfigUVQ5DXYvROMw+
yJ+CFQWdGvgPcBTEoA==
  "]],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"w", ",", "x", ",", "y", ",", "z"}], "}"}]], "Output",
 CellChangeTimes->CompressedData["
1:eJwt0n8s1HEcx/G7Ij+qEflVmlgqzbq6DpdOyM9WCsWmksJRORH6cXZ+Vlhb
pD/8mkRaSwxrc8mPVX5H5mSm0rjmx6yo7dyWO7fp/fp+++Ozx56fz3vvvz72
0UmhYi6Hw7lBJ/rhPbHo9i/vxVzdGw/Saawm4Sjpmq+Uwuie2FrYVih29yIF
I2vmx0jH8ABbWPhSyIeGHqZjvqRiLsNTTcrO6RevkHbGPjEa8u39nCuQm9ku
05L7f5cWQY8803JYVeT8DX4OlBiukuqz5Z7Q4ecr1zUybi1mDdpqR1qs7pDp
MiWjtkHN9iUt67iBNXPvVwof2Dd+ZxX/Yc3VMNZwDGyYPmXHGuj232B40cd/
9ipjy4FrsFt9GEpV9fWMKf1tbLe+Z7tsAMpVTi3JZEqqf3Ua+Tc1Pu0mmWaz
a/kWuU2yIJeSjVPnZ7LITF5kRjbpyktcgS5NUZwcRrEx7DqywQ12vIjIKiX3
bV+ugM0fBnWVZJVcGvyEDHim7YN65s5fYbZZ7A/GxyFLrOodVYwqHqOZMoxV
EclqmsC+99SyHdsEbQNEX+D6kIXZXuwf5XP6yHC/3kMw0HtLCTTktndsTad/
MX96AoqWuqbhbHeYwoJ8eiJoFV6QeZlYkr5JQ45wUy5PBJWKySA45z4cAXcX
98fDAYsJLRSa1K2zwvy0pQg+H2s6Dm0WG0Lhp6CP7xJIh4iZzRIyyrLMJ5EU
VHN1MDPPzOQ62Sow2gmH7nL5UOfSHADVtiX5cHTc+hHU26iphJ36ZwahTD0/
CSUCu71JpHyPnSe0Hi7wg3WqyddQcLKwDfbpC7tg3OXkfigUVQ5DXYvROMw+
yJ+CFQWdGvgPcBTEoA==
  "]],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"w", ",", "x", ",", "y", ",", "z"}], "}"}]], "Output",
 CellChangeTimes->CompressedData["
1:eJwt0n8s1HEcx/G7Ij+qEflVmlgqzbq6DpdOyM9WCsWmksJRORH6cXZ+VrS2
SH/4NYm0Rgxru0t+rPI7MiczlYbmx6yo7dyWO7fp/fp+++Ozx56fz3vvvz72
0UmhYi6Hw7lBJ/rRPbHo9i/vxVzdGw/SabQ64Sjpmj8thdHdsTWwtUDs7kUK
htfMj5GO4QG2sKBWyIeGHqajvqRyLsNTTcrO6RetkHbGPjEa8u39nCuQm9km
05L7f5cUQo880zJYWej8DX4OlBiukuqzZZ7Q4ecr1zUybi1mDdpqh+VWd8h0
2TSjtkHN9iUt65iBNXPvVwIf2jd+ZxX/Yc3VMFZzDGyYPmXHGuj232B40cd/
9iqj/MA12KU+DKWq+nrGlL5Wtlves13aDxUqJ3kymZLqX5VG/k2NT7tJptns
Wr5FbpMsKKRk4+T5mSwykxeZkU268hJXoEtTFCeHUWwMO49scIPtLyOySsh9
25fLYfOHAV0FWamQBj8lA55re6GeufNXmG0W+4PxScgSq3pHJaOKx2g2Hcaq
jGQ1TWDfu2vYjm2CtgGiL3B9yMJsD/aP8Dm9ZLhfzyEY6L2lGBpy29q3ptO/
mD89DkVLnVNwtitMaUE+OxG0Ci/IvEwsSd+kQUe4KZcngtPKiSA45z4UAXcX
9cXDfotxLRSa1K2zwvyUpQi+GG06Dm0WG0Lhp6CP7xJIh4iZzRIyyrLUJ5EU
VHF1MDPPzOQ62SIw2gkH73L5UOfSHADVtsX5cGTM+jHU26ipgB36ZwagTD0/
ASUCu71JpGKPnSe0HnrgB+tUE6+h4GRBK+zVF3bCuMvJfVAoqhiCOrnRGMw+
yJ+E5bUdGvgPcPTEwA==
  "]]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"subsf", "[", 
    RowBox[{"eqf_", ",", "var_", ",", "rep_"}], "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Return", "[", 
       RowBox[{"eqf", "/.", 
        RowBox[{"{", 
         RowBox[{"var", "\[Rule]", "rep"}], "}"}]}], "]"}], ";"}]}], 
    "\[IndentingNewLine]", "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.6857964060317373`*^9, 3.6857964708746567`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"f1r1", "=", 
   RowBox[{"subsf", "[", 
    RowBox[{"f1", ",", "x", ",", "p"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"f2r1", "=", 
   RowBox[{"subsf", "[", 
    RowBox[{"f2", ",", "x", ",", "p"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"f3r1", "=", 
   RowBox[{"subsf", "[", 
    RowBox[{"f3", ",", "x", ",", "p"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f4r1", "=", 
    RowBox[{"subsf", "[", 
     RowBox[{"f4", ",", "x", ",", "p"}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"f1r2", "=", 
   RowBox[{"subsf", "[", 
    RowBox[{"f1r1", ",", "y", ",", "q"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"f2r2", "=", 
   RowBox[{"subsf", "[", 
    RowBox[{"f2r1", ",", "y", ",", "q"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"f3r2", "=", 
   RowBox[{"subsf", "[", 
    RowBox[{"f3r1", ",", "y", ",", "q"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f4r2", "=", 
    RowBox[{"subsf", "[", 
     RowBox[{"f4r1", ",", "y", ",", "q"}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"f1r3", "=", 
   RowBox[{"subsf", "[", 
    RowBox[{"f1r2", ",", "z", ",", "r"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"f2r3", "=", 
   RowBox[{"subsf", "[", 
    RowBox[{"f2r2", ",", "z", ",", "r"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"f3r3", "=", 
   RowBox[{"subsf", "[", 
    RowBox[{"f3r2", ",", "z", ",", "r"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"f4r3", "=", 
   RowBox[{"subsf", "[", 
    RowBox[{"f4r2", ",", "z", ",", "r"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.6857980060268817`*^9, 3.6857981529937506`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Variables", "[", "f1r1", "]"}]], "Input",
 CellChangeTimes->{{3.6863953577280655`*^9, 3.6863953674979715`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"p", ",", "w", ",", "y", ",", "z"}], "}"}]], "Output",
 CellChangeTimes->CompressedData["
1:eJwt0n0s1AEcx/EfKnY9cBehlLOlrifMkc4uko5sJZlsNSly1xU6iYodLv6w
+iM9bJ6ZKGs0Dw1DMrHDDLuSUsnDWKXW2twpzjV9P79ff3z22vv/j0usKlxu
xjBMEq1JZfPy4I0fASJ9Zbwf6Z07nQZjH8urYNuwwvcQ6ZXH2B4md+QfdYJ3
v0k8odVfm5EjpE6b6W8g1ZvX3F8ktw0EXlgiW59kKyHj16E2km7DhXlQquAX
wXLVvo/wjSjRapn8HVHsD0U1tftXSMVk3Ap0Muqa7W+S6RlTnHUGzhgjq3HU
0oHtoAJ4x6V+nPWR/BfXOUtcm1k6sn3CmTPE579hMDowePYS7Gn2uMy6IIFp
889qWZP727lu6+K6qB+2zO9uTiKT9UEVKeSfa8qUVDLF0VV/nbRLmGtJI+sm
omayyEz36AwN6V2fuMh5nrnFquBBnrTJB3ZUn8kqIHeV6IthQ8CgqZQsb0kP
KyODKpd74aqHez9AjUA+zfog/CfXC1vL2da7c06d4nx9llXAj+daW8W1vB5u
6ZOOQYuTc7NaVjHTS0bKesUw5JUgH1pNv+iwTadfVIe9h9Khnkn4fSZSZ0dW
7AldhlHqAOtNpEw16Ao3dHtI4XF+dCj84jt8Gm5v7L8I++zGjPCAdY25Pclb
sZfCypGGEOiwri4cKt2yu+JJoWR2fQJ57l1hYCIp1pibYKZio/UVss2LJ4SD
Oeae0OTdGAwN4/m5UDfqeA9arDWWws7VEQNQ/fbrJ5hgcBapyNadQn/oMHRb
Bp8KPj+H4mN57VArk3TDuJirfdAnqmwImlJ5o1DDF0/AEmXnEvwH3BXA8Q==

  "]]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"DMatrix", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"f1", ",", "f2", ",", "f3", ",", "f4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"f1r1", ",", "f2r1", ",", "f3r1", ",", "f4r1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"f1r2", ",", "f2r2", ",", "f3r2", ",", "f4r2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"f1r3", ",", "f2r3", ",", "f3r3", ",", "f4r3"}], "}"}]}], 
    "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.6857965590688405`*^9, 3.6857967351954927`*^9}, {
  3.6857981706029005`*^9, 3.685798215422639*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"DetDMatrix", " ", "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"Det", "[", "DMatrix", "]"}], "//", "Simplify"}], "//", 
    "Chop"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.685797280333046*^9, 3.685797292836792*^9}, {
   3.6857975101035423`*^9, 3.6857975124589806`*^9}, {3.6858177514808173`*^9, 
   3.685817785904014*^9}, {3.6858178387810445`*^9, 3.6858178405584564`*^9}, {
   3.685817991348196*^9, 3.685817992106018*^9}, 3.68581867766796*^9, 
   3.685819549418521*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Variables", "[", "DetDMatrix", "]"}]], "Input",
 CellChangeTimes->{{3.686392811905429*^9, 3.6863928231513786`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"r", ",", "w", ",", "q", ",", "p", ",", "z", ",", "x", ",", "y"}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.686392824022462*^9, 3.686392838643368*^9}, 
   3.686394790895723*^9, 3.6863953299535613`*^9, 3.6863967672288733`*^9, 
   3.686396881219602*^9, 3.686397213367694*^9, 3.686400469130679*^9, 
   3.6864042590292377`*^9, 3.6864043243347616`*^9, 3.686404499794039*^9, 
   3.686409882706641*^9, 3.6867691500280266`*^9, 3.6867779935461845`*^9, 
   3.6867796741379538`*^9, 3.686779718129578*^9, 3.686781927839575*^9, 
   3.686782078763424*^9, 3.6867821550749474`*^9, 3.6867826754081306`*^9, 
   3.6867830454893312`*^9, 3.6867834868034163`*^9, 3.6867916074116845`*^9, 
   3.6867932130194335`*^9, 3.686841776624281*^9, 3.686842117827406*^9, 
   3.686842279436781*^9, 3.686842325077406*^9, 3.686842432889906*^9, 
   3.686843580327406*^9, 3.686844135300969*^9, 3.686844285394719*^9, 
   3.686844366425969*^9, 3.686844474269719*^9, 3.686844668629094*^9, 
   3.686844860441594*^9, 3.686845060160344*^9, 3.6870100841957235`*^9, 
   3.6870106957269735`*^9, 3.6870107696800985`*^9, 3.6870116794202237`*^9, 
   3.6870118003264737`*^9, 3.6870118479045987`*^9, 3.6870119107483487`*^9, 
   3.687024043310878*^9, 3.6870320681234183`*^9, 3.687033765154781*^9, 
   3.687036827128107*^9, 3.687042489575533*^9, 3.6870551328396826`*^9, 
   3.687056364802673*^9, 3.687057349443263*^9, 3.6870574128338876`*^9, 
   3.6870574931776376`*^9, 3.687057862007383*^9, 3.687103484739091*^9, 
   3.687103705690802*^9, 3.6871147283986435`*^9, 3.6871153978035297`*^9, 
   3.687116345801034*^9, 3.6871164913772955`*^9, 3.6871165569710083`*^9, 
   3.6871166525647583`*^9, 3.6871170418772583`*^9, 3.6871171854397583`*^9, 
   3.6871174890022583`*^9, 3.6871175526585083`*^9, 3.6871176587522583`*^9, 
   3.6871181120803833`*^9, 3.6871182052210083`*^9, 3.6871185318992405`*^9, 
   3.687198505259889*^9, 3.6871987235567646`*^9, 3.687199136227201*^9, 
   3.687199922570469*^9, 3.687884263933693*^9, 3.6878844767546854`*^9, 
   3.6878845442907057`*^9, 3.687886468832699*^9, 3.6878868125131645`*^9, 
   3.6878869721441135`*^9, 3.6878871523768897`*^9, 3.687887331539339*^9, 
   3.687887481084222*^9, 3.687887568405652*^9, 3.6878876804161277`*^9, 
   3.6878888568229446`*^9, 3.6878889193260508`*^9, 3.6878893788084507`*^9, 
   3.6878894875219026`*^9, 3.687889559509262*^9, 3.688062480345666*^9, 
   3.6880630892530403`*^9, 3.688065566826976*^9, 3.6880670419414062`*^9, 
   3.6880671946336308`*^9, 3.6880673303541183`*^9, 3.6880674742387724`*^9, 
   3.6880676475339594`*^9, 3.688068158745696*^9, 3.688068226854199*^9, 
   3.6880683298567867`*^9, 3.6880686927585406`*^9, 3.688068833420497*^9, 
   3.688069442889236*^9, 3.688069627567381*^9, 3.6880696784313135`*^9, 
   3.688070553021782*^9, 3.688070614688961*^9, 3.688070675938177*^9, 
   3.6880707175079575`*^9, 3.688070767097166*^9, 3.6880708261979723`*^9, 
   3.6880708996466937`*^9, 3.6880711199502945`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"DetDMatrix", "//", "Simplify"}], "//", "Chop"}], ";"}]], "Input",
 CellChangeTimes->{{3.686404365554039*^9, 3.686404368975958*^9}, {
   3.6864044169257903`*^9, 3.6864044278673368`*^9}, 3.68676858513682*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"divByxp", "=", 
   RowBox[{
    RowBox[{"PolynomialQuotient", "[", 
     RowBox[{"DetDMatrix", ",", 
      RowBox[{"x", "-", "p"}], ",", "x"}], "]"}], "//", "Chop"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"divByyq", "=", 
   RowBox[{
    RowBox[{"PolynomialQuotient", "[", 
     RowBox[{"divByxp", ",", 
      RowBox[{"y", "-", "q"}], ",", "y"}], "]"}], "//", "Chop"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"divByzr", "=", 
   RowBox[{
    RowBox[{"PolynomialQuotient", "[", 
     RowBox[{"divByyq", ",", 
      RowBox[{"z", "-", "r"}], ",", "z"}], "]"}], "//", "Chop"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"finalDetEQ", "=", 
   RowBox[{
    RowBox[{"divByzr", "//", "Simplify"}], "//", "Chop"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.685893389529879*^9, 3.685893469444387*^9}, {
  3.685894561875576*^9, 3.685894564516235*^9}, {3.686069379514614*^9, 
  3.686069418119589*^9}, {3.686394794997233*^9, 3.686394800040137*^9}, {
  3.6864043827222276`*^9, 3.6864043902574806`*^9}}],

Cell[BoxData[
 RowBox[{"finalDetEQ", ";"}]], "Input",
 CellChangeTimes->{{3.6864043474991207`*^9, 3.6864043507413497`*^9}, 
   3.686768591171899*^9, {3.688062496131024*^9, 3.6880625039670615`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Variables", "[", "finalDetEQ", "]"}]], "Input",
 CellChangeTimes->{{3.686277472716585*^9, 3.686277479892458*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"w", ",", "y", ",", "z", ",", "q", ",", "p"}], "}"}]], "Output",
 CellChangeTimes->CompressedData["
1:eJwl0H8s1HEYB/ArVn6sNEQkumayll1htNvRnfxabeaQNXSrUHG4Okdc2amk
UiIKxRXlLGXYymXp/qjriD+klOriXHQt02knRudKn/f3+8dnrz3vZ8/n2R7m
EVFc+goGgyEhz4Fl62d9apqnMGlnoGeX+ByHGPW6MT+EOKE+2A2H4uyzQon6
75FSaGc9eB8K29VsLrFZVOocRhQF3fWAK1vV/rDM0jIcTkxR2HLniN7mnOuL
2LMtIvUPMVyxJgNWy0OLzERVuVclVBo6b0Ff1jMtFPxYsFkicpWbuHDdm4Dg
ZaIldHIZekiTla4FRPM/PaV06zztlJn2qM0Gqv+uFpYx/cYom0y/6NrJTFux
2o3Kx7xoh4Mpmf2xULBn8FsGVHN3ZlKeZsPC2YA2SvG+HlrOCzp374dKcWfX
CeIN8UCjhLiQOy3JI0rcHv7OJx7OkD0tJLYL9JMyoqxjvKiYGMQyLtLqGGcp
p+xgUsgHNixpmZDVEo3u5+thJy/1bwMxTbmKLyfqmAV98Lbjo8+w2FH3lbLq
rZH2jOcdKs/ZQZuVSFmVLKDrZiFtRDOdmzrgoqbvE7Tiiw0ayueMXtw3gh8I
o3kNNbCukadylpL9vdqP8ImRr4ceURND64kuP7VL8P3okIMLsbtjvw8s2aLi
QPv4k7Ew8Ut8EmyrPHAcxswfW4KvYgKtXPG/Ts6BrFz2Xtgk5MTDC3GZGiGx
tS53bRZxpMYnPJuoHr9ogabSBocc4vb56s0wLK3CH2aPBEfD4hTmJZh8U1EJ
K8pK5HCXj2EAziZIRqE24Z6vCPMPNLvh1XKnSBjkn/4Yqq5s7IGJBtVLaDk0
0wd7670H4bW88g9wzqTSQbvLYWb4H6xF3Es=
  "]]
}, Open  ]]
}, Open  ]],

Cell["Split into new and old variables", "Subsection",
 CellChangeTimes->{{3.685983065793868*^9, 3.6859830739695454`*^9}}],

Cell[CellGroupData[{

Cell["First Row", "Subsection",
 CellChangeTimes->{{3.6859872108673105`*^9, 3.685987214757985*^9}, {
  3.6859903051636896`*^9, 3.6859903060738344`*^9}, {3.686063580194316*^9, 
  3.686063580659153*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"cp2q", "=", 
   RowBox[{"Cf", "[", 
    RowBox[{
     RowBox[{"Cf", "[", 
      RowBox[{"finalDetEQ", ",", "q", ",", "2"}], "]"}], ",", "p", ",", "3"}],
     "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"c11", "=", 
   RowBox[{"Cf", "[", 
    RowBox[{
     RowBox[{"Cf", "[", 
      RowBox[{"cp2q", ",", "y", ",", "2"}], "]"}], ",", "z", ",", "3"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"c12", "=", 
   RowBox[{"Cf", "[", 
    RowBox[{
     RowBox[{"Cf", "[", 
      RowBox[{"cp2q", ",", "y", ",", "2"}], "]"}], ",", "z", ",", "2"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"c13", "=", 
   RowBox[{"Cf", "[", 
    RowBox[{
     RowBox[{"Cf", "[", 
      RowBox[{"cp2q", ",", "y", ",", "2"}], "]"}], ",", "z", ",", "1"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"c14", "=", 
   RowBox[{"Cf", "[", 
    RowBox[{
     RowBox[{"Cf", "[", 
      RowBox[{"cp2q", ",", "y", ",", "1"}], "]"}], ",", "z", ",", "3"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"c15", "=", 
   RowBox[{"Cf", "[", 
    RowBox[{
     RowBox[{"Cf", "[", 
      RowBox[{"cp2q", ",", "y", ",", "1"}], "]"}], ",", "z", ",", "2"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"c16", "=", 
   RowBox[{"Cf", "[", 
    RowBox[{
     RowBox[{"Cf", "[", 
      RowBox[{"cp2q", ",", "y", ",", "1"}], "]"}], ",", "z", ",", "1"}], 
    "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.686063604287757*^9, 3.686063670712688*^9}, {
  3.6860637128254304`*^9, 3.686063870561692*^9}, {3.6860639636776876`*^9, 
  3.686064036286134*^9}, {3.686064156643968*^9, 3.6860641826397295`*^9}, {
  3.6860677806249247`*^9, 3.6860678394015155`*^9}, {3.686067874545597*^9, 
  3.686067922255924*^9}, {3.686067959915598*^9, 3.6860680509339647`*^9}, {
  3.6871146391798935`*^9, 3.6871146698673935`*^9}, {3.6871147882423935`*^9, 
  3.6871149181330185`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Second Row", "Subsection",
 CellChangeTimes->{{3.6860642207095547`*^9, 3.686064222260316*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"cpq", "=", 
   RowBox[{"Cf", "[", 
    RowBox[{
     RowBox[{"Cf", "[", 
      RowBox[{"finalDetEQ", ",", "q", ",", "2"}], "]"}], ",", "p", ",", "2"}],
     "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"c21", "=", 
   RowBox[{"Cf", "[", 
    RowBox[{
     RowBox[{"Cf", "[", 
      RowBox[{"cpq", ",", "y", ",", "2"}], "]"}], ",", "z", ",", "3"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"c22", "=", 
   RowBox[{"Cf", "[", 
    RowBox[{
     RowBox[{"Cf", "[", 
      RowBox[{"cpq", ",", "y", ",", "2"}], "]"}], ",", "z", ",", "2"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"c23", "=", 
   RowBox[{"Cf", "[", 
    RowBox[{
     RowBox[{"Cf", "[", 
      RowBox[{"cpq", ",", "y", ",", "2"}], "]"}], ",", "z", ",", "1"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"c24", "=", 
   RowBox[{"Cf", "[", 
    RowBox[{
     RowBox[{"Cf", "[", 
      RowBox[{"cpq", ",", "y", ",", "1"}], "]"}], ",", "z", ",", "3"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"c25", "=", 
   RowBox[{"Cf", "[", 
    RowBox[{
     RowBox[{"Cf", "[", 
      RowBox[{"cpq", ",", "y", ",", "1"}], "]"}], ",", "z", ",", "2"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"c26", "=", 
   RowBox[{"Cf", "[", 
    RowBox[{
     RowBox[{"Cf", "[", 
      RowBox[{"cpq", ",", "y", ",", "1"}], "]"}], ",", "z", ",", "1"}], 
    "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.686064379977047*^9, 3.6860644132070904`*^9}, {
  3.6860644907646914`*^9, 3.6860645610059795`*^9}, {3.6860680775586233`*^9, 
  3.6860681374016075`*^9}, {3.6871150595548935`*^9, 3.6871151705236435`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Third Row", "Subsection",
 CellChangeTimes->{{3.6860642288422627`*^9, 3.686064230693802*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"cq", "=", 
   RowBox[{"Cf", "[", 
    RowBox[{
     RowBox[{"Cf", "[", 
      RowBox[{"finalDetEQ", ",", "q", ",", "2"}], "]"}], ",", "p", ",", "1"}],
     "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"c31", "=", 
   RowBox[{"Cf", "[", 
    RowBox[{
     RowBox[{"Cf", "[", 
      RowBox[{"cq", ",", "y", ",", "2"}], "]"}], ",", "z", ",", "3"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"c32", "=", 
   RowBox[{"Cf", "[", 
    RowBox[{
     RowBox[{"Cf", "[", 
      RowBox[{"cq", ",", "y", ",", "2"}], "]"}], ",", "z", ",", "2"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"c33", "=", 
   RowBox[{"Cf", "[", 
    RowBox[{
     RowBox[{"Cf", "[", 
      RowBox[{"cq", ",", "y", ",", "2"}], "]"}], ",", "z", ",", "1"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"c34", "=", 
   RowBox[{"Cf", "[", 
    RowBox[{
     RowBox[{"Cf", "[", 
      RowBox[{"cq", ",", "y", ",", "1"}], "]"}], ",", "z", ",", "3"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"c35", "=", 
   RowBox[{"Cf", "[", 
    RowBox[{
     RowBox[{"Cf", "[", 
      RowBox[{"cq", ",", "y", ",", "1"}], "]"}], ",", "z", ",", "2"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"c36", "=", 
   RowBox[{"Cf", "[", 
    RowBox[{
     RowBox[{"Cf", "[", 
      RowBox[{"cq", ",", "y", ",", "1"}], "]"}], ",", "z", ",", "1"}], 
    "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.6860645703496103`*^9, 3.6860645933102536`*^9}, {
   3.686064750839487*^9, 3.6860647937530003`*^9}, {3.686065030851528*^9, 
   3.6860650374334755`*^9}, 3.68606808179685*^9, {3.6860681503037863`*^9, 
   3.6860682085335093`*^9}, {3.6871151885392437`*^9, 3.6871152286014876`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Fourth Row", "Subsection",
 CellChangeTimes->{{3.6860642351429634`*^9, 3.6860642368109107`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"cp2", "=", 
   RowBox[{"Cf", "[", 
    RowBox[{
     RowBox[{"Cf", "[", 
      RowBox[{"finalDetEQ", ",", "q", ",", "1"}], "]"}], ",", "p", ",", "3"}],
     "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"c41", "=", 
   RowBox[{"Cf", "[", 
    RowBox[{
     RowBox[{"Cf", "[", 
      RowBox[{"cp2", ",", "y", ",", "2"}], "]"}], ",", "z", ",", "3"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"c42", "=", 
   RowBox[{"Cf", "[", 
    RowBox[{
     RowBox[{"Cf", "[", 
      RowBox[{"cp2", ",", "y", ",", "2"}], "]"}], ",", "z", ",", "2"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"c43", "=", 
   RowBox[{"Cf", "[", 
    RowBox[{
     RowBox[{"Cf", "[", 
      RowBox[{"cp2", ",", "y", ",", "2"}], "]"}], ",", "z", ",", "1"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"c44", "=", 
   RowBox[{"Cf", "[", 
    RowBox[{
     RowBox[{"Cf", "[", 
      RowBox[{"cp2", ",", "y", ",", "1"}], "]"}], ",", "z", ",", "3"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"c45", "=", 
   RowBox[{"Cf", "[", 
    RowBox[{
     RowBox[{"Cf", "[", 
      RowBox[{"cp2", ",", "y", ",", "1"}], "]"}], ",", "z", ",", "2"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"c46", "=", 
   RowBox[{"Cf", "[", 
    RowBox[{
     RowBox[{"Cf", "[", 
      RowBox[{"cp2", ",", "y", ",", "1"}], "]"}], ",", "z", ",", "1"}], 
    "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.6860648938689065`*^9, 3.6860649083804398`*^9}, {
   3.6860649445518513`*^9, 3.6860649728913326`*^9}, {3.6860650121759863`*^9, 
   3.6860650585699234`*^9}, 3.6860680857499247`*^9, {3.6860682374823575`*^9, 
   3.6860682670132294`*^9}, {3.6871152346795735`*^9, 3.6871152811480265`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Fifth Row", "Subsection",
 CellChangeTimes->{{3.6860642413342905`*^9, 3.6860642426467733`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"cp", "=", 
   RowBox[{"Cf", "[", 
    RowBox[{
     RowBox[{"Cf", "[", 
      RowBox[{"finalDetEQ", ",", "q", ",", "1"}], "]"}], ",", "p", ",", "2"}],
     "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"c51", "=", 
   RowBox[{"Cf", "[", 
    RowBox[{
     RowBox[{"Cf", "[", 
      RowBox[{"cp", ",", "y", ",", "2"}], "]"}], ",", "z", ",", "3"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"c52", "=", 
   RowBox[{"Cf", "[", 
    RowBox[{
     RowBox[{"Cf", "[", 
      RowBox[{"cp", ",", "y", ",", "2"}], "]"}], ",", "z", ",", "2"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"c53", "=", 
   RowBox[{"Cf", "[", 
    RowBox[{
     RowBox[{"Cf", "[", 
      RowBox[{"cp", ",", "y", ",", "2"}], "]"}], ",", "z", ",", "1"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"c54", "=", 
   RowBox[{"Cf", "[", 
    RowBox[{
     RowBox[{"Cf", "[", 
      RowBox[{"cp", ",", "y", ",", "1"}], "]"}], ",", "z", ",", "3"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"c55", "=", 
   RowBox[{"Cf", "[", 
    RowBox[{
     RowBox[{"Cf", "[", 
      RowBox[{"cp", ",", "y", ",", "1"}], "]"}], ",", "z", ",", "2"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"c56", "=", 
   RowBox[{"Cf", "[", 
    RowBox[{
     RowBox[{"Cf", "[", 
      RowBox[{"cp", ",", "y", ",", "1"}], "]"}], ",", "z", ",", "1"}], 
    "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.686065067644026*^9, 3.686065091370285*^9}, {
   3.68606514280322*^9, 3.6860651516937313`*^9}, 3.68606808933191*^9, {
   3.686068281802103*^9, 3.6860682898215313`*^9}, {3.6860683381568503`*^9, 
   3.6860683748751307`*^9}, {3.6871152909917135`*^9, 3.6871153255539923`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Sixth Row", "Subsection",
 CellChangeTimes->{{3.686064247064686*^9, 3.6860642498771496`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"cc", "=", 
   RowBox[{"Cf", "[", 
    RowBox[{
     RowBox[{"Cf", "[", 
      RowBox[{"finalDetEQ", ",", "q", ",", "1"}], "]"}], ",", "p", ",", "1"}],
     "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"c61", "=", 
   RowBox[{"Cf", "[", 
    RowBox[{
     RowBox[{"Cf", "[", 
      RowBox[{"cc", ",", "y", ",", "2"}], "]"}], ",", "z", ",", "3"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"c62", "=", 
   RowBox[{"Cf", "[", 
    RowBox[{
     RowBox[{"Cf", "[", 
      RowBox[{"cc", ",", "y", ",", "2"}], "]"}], ",", "z", ",", "2"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"c63", "=", 
   RowBox[{"Cf", "[", 
    RowBox[{
     RowBox[{"Cf", "[", 
      RowBox[{"cc", ",", "y", ",", "2"}], "]"}], ",", "z", ",", "1"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"c64", "=", 
   RowBox[{"Cf", "[", 
    RowBox[{
     RowBox[{"Cf", "[", 
      RowBox[{"cc", ",", "y", ",", "1"}], "]"}], ",", "z", ",", "3"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"c65", "=", 
   RowBox[{"Cf", "[", 
    RowBox[{
     RowBox[{"Cf", "[", 
      RowBox[{"cc", ",", "y", ",", "1"}], "]"}], ",", "z", ",", "2"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"c66", "=", 
   RowBox[{"Cf", "[", 
    RowBox[{
     RowBox[{"Cf", "[", 
      RowBox[{"cc", ",", "y", ",", "1"}], "]"}], ",", "z", ",", "1"}], 
    "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.686065157603812*^9, 3.686065199712648*^9}, 
   3.6860680928006163`*^9, {3.6860683550941334`*^9, 3.6860684167183447`*^9}, {
   3.687115329616466*^9, 3.6871153678974714`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Matrix Manipulation", "Subsection",
 CellChangeTimes->{{3.6861564101450005`*^9, 3.6861564133715215`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"mat", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "c11", ",", "c12", ",", "c13", ",", "c14", ",", "c15", ",", "c16"}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "c21", ",", "c22", ",", "c23", ",", "c24", ",", "c25", ",", "c26"}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "c31", ",", "c32", ",", "c33", ",", "c34", ",", "c35", ",", "c36"}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "c41", ",", "c42", ",", "c43", ",", "c44", ",", "c45", ",", "c46"}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "c51", ",", "c52", ",", "c53", ",", "c54", ",", "c55", ",", "c56"}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "c61", ",", "c62", ",", "c63", ",", "c64", ",", "c65", ",", "c66"}], 
      "}"}]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.6860690931628113`*^9, 3.686069101436143*^9}, {
  3.6860691340880685`*^9, 3.686069228942323*^9}, {3.6861564570194*^9, 
  3.686156472066083*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Amat", "=", "mat"}], ";"}]], "Input",
 CellChangeTimes->{{3.6863942548596153`*^9, 3.686394258582224*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"mat", "[", 
    RowBox[{"[", "3", "]"}], "]"}], "=", 
   RowBox[{
    RowBox[{"mat", "[", 
     RowBox[{"[", "3", "]"}], "]"}], "-", 
    RowBox[{"mat", "[", 
     RowBox[{"[", "1", "]"}], "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.686158008187045*^9, 3.686158018499413*^9}, {
  3.686162505864687*^9, 3.6861625065873337`*^9}, {3.686278872453252*^9, 
  3.6862788771798744`*^9}, {3.686394210891428*^9, 3.6863942207389584`*^9}}],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
    RowBox[{"mat", "[", 
     RowBox[{"[", "4", "]"}], "]"}], "=", 
    RowBox[{
     RowBox[{"mat", "[", 
      RowBox[{"[", "4", "]"}], "]"}], "-", 
     RowBox[{"mat", "[", 
      RowBox[{"[", "6", "]"}], "]"}]}]}], ";"}], "*)"}]], "Input",
 CellChangeTimes->{{3.6861580612840214`*^9, 3.6861580787056737`*^9}, {
  3.686162513091157*^9, 3.68616251350912*^9}, {3.686278886258116*^9, 
  3.686278911098277*^9}, {3.6863942249029675`*^9, 3.686394241500411*^9}, {
  3.686396737838625*^9, 3.6863967438658915`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"mat", "[", 
    RowBox[{"[", 
     RowBox[{";;", ",", "6"}], "]"}], "]"}], "=", 
   RowBox[{
    RowBox[{"mat", "[", 
     RowBox[{"[", 
      RowBox[{";;", ",", "6"}], "]"}], "]"}], "-", 
    RowBox[{"mat", "[", 
     RowBox[{"[", 
      RowBox[{";;", ",", "4"}], "]"}], "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.6861581200606127`*^9, 3.6861581507008457`*^9}, {
  3.686162425205563*^9, 3.68616243011175*^9}, {3.6861626137461185`*^9, 
  3.6861626167773294`*^9}, {3.6862789272469215`*^9, 3.686278952485526*^9}, {
  3.6863933787458296`*^9, 3.6863933851949663`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"mat", "[", 
    RowBox[{"[", 
     RowBox[{";;", ",", "3"}], "]"}], "]"}], "=", 
   RowBox[{
    RowBox[{"mat", "[", 
     RowBox[{"[", 
      RowBox[{";;", ",", "3"}], "]"}], "]"}], "-", 
    RowBox[{"mat", "[", 
     RowBox[{"[", 
      RowBox[{";;", ",", "1"}], "]"}], "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.686158171056054*^9, 3.6861581962979183`*^9}, {
  3.6861624322835975`*^9, 3.6861624343031025`*^9}, {3.686162619074175*^9, 
  3.6861626256483097`*^9}, {3.6862789290086627`*^9, 3.6862789474893684`*^9}, {
  3.68639339015584*^9, 3.6863933947143755`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"RemMat", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], 
      "}"}]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.686157739221738*^9, 3.6861577836430445`*^9}}],

Cell[BoxData[
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", "=", "1"}], ",", 
   RowBox[{"i", "\[LessEqual]", "6"}], ",", 
   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"j", "=", "1"}], ",", 
     RowBox[{"j", "\[LessEqual]", "6"}], ",", 
     RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"pol", "=", 
       RowBox[{"mat", "[", 
        RowBox[{"[", 
         RowBox[{"i", ",", "j"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"rem", "=", 
       RowBox[{
        RowBox[{"PolynomialRemainder", "[", 
         RowBox[{"pol", ",", 
          RowBox[{"1", "+", 
           RowBox[{"w", "^", "2"}]}], ",", "w"}], "]"}], "//", "Chop"}]}], 
      ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"RemMat", "[", 
        RowBox[{"[", 
         RowBox[{"i", ",", "j"}], "]"}], "]"}], "=", "rem"}], ";"}]}], 
    "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.686157579516751*^9, 3.6861577312960577`*^9}, {
  3.686157789025788*^9, 3.6861577914710693`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RemMat", "//", "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.686157796791313*^9, 3.686157804306842*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "0", "0", 
      RowBox[{
       RowBox[{"-", "0.000023384371127690257`"}], "+", 
       RowBox[{"0.000014341379323638001`", " ", "w"}]}], "0", "0"},
     {"0", "0", "0", "0.00002826061681071557`", "0", "0"},
     {"0", "0", "0", 
      RowBox[{
       RowBox[{"-", "0.000028682758647274268`"}], " ", "w"}], "0", "0"},
     {
      RowBox[{
       RowBox[{"-", "0.000023384371127690257`"}], "+", 
       RowBox[{"0.000014341379323639302`", " ", "w"}]}], "0", "0", "0", "0", 
      "0"},
     {"0.00002826061681071492`", "0", "0", "0", "0", "0"},
     {
      RowBox[{
       RowBox[{"-", "0.000023384371127691857`"}], "-", 
       RowBox[{"0.000014341379323636565`", " ", "w"}]}], "0", "0", "0", "0", 
      "0"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.68615780485371*^9, 3.686157877915275*^9, 3.6861580289875603`*^9, 
   3.6861580884750795`*^9, 3.6861581578804417`*^9, 3.686158201266605*^9, 
   3.68615883473968*^9, 3.686158968850298*^9, 3.6861592181891456`*^9, 
   3.68615949658724*^9, 3.6861602357960877`*^9, 3.6861603600484037`*^9, 
   3.6861615730602207`*^9, {3.6861618998919744`*^9, 3.686161934426689*^9}, 
   3.6861620385972304`*^9, 3.686162463373043*^9, 3.6861625407978334`*^9, 
   3.6861626523745303`*^9, 3.686162785517357*^9, 3.6861628914769382`*^9, 
   3.68627751329523*^9, 3.6862775539715314`*^9, 3.6862776414609327`*^9, 
   3.6862790310216875`*^9, 3.686393259376264*^9, 3.6863934070814047`*^9, 
   3.686393438331004*^9, {3.6863942841131473`*^9, 3.6863943038824253`*^9}, 
   3.6863953311372004`*^9, 3.6863955879221435`*^9, {3.686396414327141*^9, 
   3.6863964407330527`*^9}, 3.6863965179156585`*^9, 3.6863967685765123`*^9, 
   3.6863968824227114`*^9, 3.686397214730958*^9, 3.686400470337695*^9, 
   3.6864042619394317`*^9, 3.6864043262293167`*^9, 3.686404502356571*^9, 
   3.6864098854331684`*^9, 3.68676915248112*^9, 3.686777995628189*^9, 
   3.6867796752316895`*^9, 3.6867797205943904`*^9, 3.6867819300817337`*^9, 
   3.6867820811071444`*^9, 3.686782157637415*^9, 3.686782677966692*^9, 
   3.6867830478643007`*^9, 3.6867834890456896`*^9, 3.6867916097440443`*^9, 
   3.6867932152264366`*^9, 3.686841778968031*^9, 3.686842120077406*^9, 
   3.686842282389906*^9, 3.686842327436781*^9, 3.686842435311781*^9, 
   3.686843582702406*^9, 3.686844137535344*^9, 3.686844287660344*^9, 
   3.686844368707219*^9, 3.686844476582219*^9, 3.686844671050969*^9, 
   3.686844862738469*^9, 3.686845062394719*^9, 3.6870100865707235`*^9, 
   3.6870106981488485`*^9, 3.6870107719925985`*^9, 3.6870116817483487`*^9, 
   3.6870118032639737`*^9, 3.6870118507170987`*^9, 3.6870119129983487`*^9, 
   3.687024045623378*^9, 3.6870320704514837`*^9, 3.687033767482906*^9, 
   3.687036829456232*^9, 3.6870424921066046`*^9, 3.6870551351365576`*^9, 
   3.6870563671620474`*^9, 3.687057352380763*^9, 3.6870574157401376`*^9, 
   3.6870574954588876`*^9, 3.687103487239075*^9, 3.6871037082064114`*^9, 
   3.6871147313048935`*^9, 3.6871154003347635`*^9, 3.6871163478635073`*^9, 
   3.6871164934397693`*^9, 3.6871165590491333`*^9, 3.6871166546428833`*^9, 
   3.6871170440022583`*^9, 3.6871171875491333`*^9, 3.6871174914866333`*^9, 
   3.6871175549710083`*^9, 3.6871176612366333`*^9, 3.6871181142835083`*^9, 
   3.6871182076585083`*^9, 3.687118534367912*^9, 3.687198507666139*^9, 
   3.6871987259942646`*^9, 3.6871991386490602`*^9, 3.687199925070469*^9, 
   3.687884266179758*^9, 3.6878844789344006`*^9, 3.687884546665736*^9, 
   3.687886471215725*^9, 3.687886814981946*^9, 3.6878869746558647`*^9, 
   3.6878871547948895`*^9, 3.6878873340432773`*^9, 3.687887515119814*^9, 
   3.6878875707416196`*^9, 3.6878876828965645`*^9, 3.6878888593697867`*^9, 
   3.6878889217635193`*^9, 3.687889381085765*^9, 3.687889489947653*^9, 
   3.687889562013137*^9, 3.688062557237275*^9, 3.6880630917178526`*^9, 
   3.6880655693035703`*^9, 3.6880670443437195`*^9, 3.688067197000849*^9, 
   3.6880673327174296`*^9, 3.6880674765825524`*^9, 3.6880676498738327`*^9, 
   3.6880681611675396`*^9, 3.6880682292682304`*^9, 3.6880683322395687`*^9, 
   3.688068695266385*^9, 3.6880688357447457`*^9, 3.6880694452252035`*^9, 
   3.6880696302939787`*^9, 3.688069680720405*^9, 3.688070555279565*^9, 
   3.6880706169819*^9, 3.688070678051431*^9, 3.6880707195469933`*^9, 
   3.688070769253389*^9, 3.6880708285260677`*^9, 3.688070902041256*^9, 
   3.688071122212043*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"j", "=", "1"}], ",", 
   RowBox[{"j", "\[LessEqual]", "6"}], ",", 
   RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"pol", "=", 
     RowBox[{"mat", "[", 
      RowBox[{"[", 
       RowBox[{"j", ",", "2"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"mat", "[", 
      RowBox[{"[", 
       RowBox[{"j", ",", "2"}], "]"}], "]"}], "=", 
     RowBox[{
      RowBox[{"PolynomialQuotient", "[", 
       RowBox[{"pol", ",", 
        RowBox[{"1", "+", 
         RowBox[{"w", "^", "2"}]}], ",", "w"}], "]"}], "//", "Chop"}]}], 
    ";"}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"j", "=", "1"}], ",", 
   RowBox[{"j", "\[LessEqual]", "6"}], ",", 
   RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"pol", "=", 
     RowBox[{"mat", "[", 
      RowBox[{"[", 
       RowBox[{"j", ",", "3"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"mat", "[", 
      RowBox[{"[", 
       RowBox[{"j", ",", "3"}], "]"}], "]"}], "=", 
     RowBox[{
      RowBox[{"PolynomialQuotient", "[", 
       RowBox[{"pol", ",", 
        RowBox[{"1", "+", 
         RowBox[{"w", "^", "2"}]}], ",", "w"}], "]"}], "//", "Chop"}]}], 
    ";"}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"j", "=", "1"}], ",", 
   RowBox[{"j", "\[LessEqual]", "6"}], ",", 
   RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"pol", "=", 
     RowBox[{"mat", "[", 
      RowBox[{"[", 
       RowBox[{"j", ",", "5"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"mat", "[", 
      RowBox[{"[", 
       RowBox[{"j", ",", "5"}], "]"}], "]"}], "=", 
     RowBox[{
      RowBox[{"PolynomialQuotient", "[", 
       RowBox[{"pol", ",", 
        RowBox[{"1", "+", 
         RowBox[{"w", "^", "2"}]}], ",", "w"}], "]"}], "//", "Chop"}]}], 
    ";"}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"j", "=", "1"}], ",", 
   RowBox[{"j", "\[LessEqual]", "6"}], ",", 
   RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"pol", "=", 
     RowBox[{"mat", "[", 
      RowBox[{"[", 
       RowBox[{"j", ",", "6"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"mat", "[", 
      RowBox[{"[", 
       RowBox[{"j", ",", "6"}], "]"}], "]"}], "=", 
     RowBox[{
      RowBox[{"PolynomialQuotient", "[", 
       RowBox[{"pol", ",", 
        RowBox[{"1", "+", 
         RowBox[{"w", "^", "2"}]}], ",", "w"}], "]"}], "//", "Chop"}]}], 
    ";"}]}], "\[IndentingNewLine]", "]"}]}], "Input",
 CellChangeTimes->{{3.6861584471579885`*^9, 3.686158560708561*^9}, {
  3.686159151434385*^9, 3.686159163114222*^9}, {3.686161987414292*^9, 
  3.686161990015821*^9}, {3.686162832813627*^9, 3.6861628521415043`*^9}, {
  3.6862776683089323`*^9, 3.686277675945749*^9}, {3.686278993779023*^9, 
  3.686278999634567*^9}, {3.686393526384565*^9, 3.686393531189191*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Exponent", "[", 
  RowBox[{
   RowBox[{"Det", "[", "mat", "]"}], ",", "w"}], "]"}]], "Input",
 CellChangeTimes->{{3.6861585669395876`*^9, 3.6861585852224755`*^9}}],

Cell[BoxData["16"], "Output",
 CellChangeTimes->CompressedData["
1:eJwly39MzHEcx/HjbKEl4+LkVq5xuyUrZVQ7VyfdkokuTiXH4kz6uSR1K4Vw
kunKLlJWjlbb6RJXzI/V+XFzEpbqCrdIFie1dP24hM/r+/3jvcee7+3FjU+V
yGcxGIwCclX7drubMq2iLMcYIazdxdkOc53CUmC9J0sFC7NzhmDBz9kzUHJb
c/kV8ZTgfTuc8B5ithF7jOVOkCe4uBz6tK/1gl01tnWQFZIWAGUrU8VzjltF
WtWXX/CR34G3AqJFW2qGNo38/kbimRtefkKigu8vgS8bFyfB3kMRCsh4ZtbA
gxFtgcHE97onrE1EVZeRA+edb/OFp+N0HZuJ0jMLg8eIbopjqknsTYcPTBGF
q1gJ8NLjkFw78UHyymLYKNdfhR7eLb0whj8zd5q4Te0RDEXOARv+ESdPDP6D
HPu+pqVZkPmZUrHNRjtsp/9H5rKp7i6DhVzfT5TV48N0s+10lzoso7rfnbLa
vIH29Q4oC+n4mgCfhq49QvXJQJg96q+lTX5Iu6eVMp37EjaN3tOnEYtG31Rl
ECeOjmQcI2Zc1f3OJIYnFDRnE+tlA/15xDzdt9x84nrvxVO0fxknKUfmw3ze
97wyorX83DXY0Jo4U0GMb3KMrCT2cnOMUF1S3wPzF335TNs5RFmS73adMt2H
Nk1KuWi/jLYukTb8Ju24Dv4MfW2GzMjMgefEOe9aGC+IrqHSdXBLq0YNL+8X
P2YprKKKs5Zu2HxR2geFDoNvXYiu2r5p2MPpcl5CfJQay4PKeIMA2vQ/omDs
h+hYWNuw9zAMtyVNw5aUAOZSolqmEcDVUUHhsCJRFAV3+kvbEom32FkLkoi9
XZ6bk7FzL/oDx8TVzilEH5crK6D4WakvTF+/MQzmxPGUMFpfVwwvmJSVUFDz
3QTHWdkfoYVVy0/FXmkKgsVr2GLo25hwFz7YuuIhlMgNBjgZPGqEhml+Oyx0
Kemk/ncMFriwLswO/wNMnB5g
  "]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"wtemp", "=", 
  RowBox[{"Tan", "[", 
   RowBox[{"0.7082", "/", "2"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.6880685501903095`*^9, 3.6880685615381107`*^9}}],

Cell[BoxData["0.3696817928969863`"], "Output",
 CellChangeTimes->{3.688068565030343*^9, 3.6880686953093543`*^9, 
  3.688068835791621*^9, 3.6880694452642665`*^9, 3.6880696303486667`*^9, 
  3.6880696807633743`*^9, 3.688070555310815*^9, 3.688070617017056*^9, 
  3.6880706780826807`*^9, 3.6880707195782433`*^9, 3.6880707692885447`*^9, 
  3.688070828572942*^9, 3.6880709020920377`*^9, 3.688071122290169*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Det", "[", "mat", "]"}], "/.", 
  RowBox[{"{", 
   RowBox[{"w", "\[Rule]", "wtemp"}], "}"}]}]], "Input",
 CellChangeTimes->{{3.688068492842982*^9, 3.688068499710081*^9}, {
  3.688068577698474*^9, 3.6880685783820763`*^9}}],

Cell[BoxData["1.359493504194151`*^-32"], "Output",
 CellChangeTimes->{3.688068579706312*^9, 3.6880686953327923`*^9, 
  3.6880688358111525`*^9, 3.6880694452798915`*^9, 3.6880696303721046`*^9, 
  3.6880696807868123`*^9, 3.6880705553186274`*^9, 3.6880706170287747`*^9, 
  3.688070678102212*^9, 3.688070719605587*^9, 3.688070769304169*^9, 
  3.6880708285963793`*^9, 3.688070902119382*^9, 3.6880711223565755`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"solw2", "=", 
   RowBox[{
    RowBox[{"Solve", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Det", "[", "mat", "]"}], "\[Equal]", "0"}], ",", "w"}], "]"}],
     "//", "Chop"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.686158600102715*^9, 3.686158615232977*^9}, {
  3.6864036872914515`*^9, 3.686403720584846*^9}, {3.686844336597844*^9, 
  3.686844338988469*^9}, {3.686844447144719*^9, 3.686844451019719*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Det", "[", "mat", "]"}], "/.", 
  RowBox[{"solw2", "[", 
   RowBox[{"[", "4", "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.6880685839758983`*^9, 3.6880686198279195`*^9}, {
  3.688068763126629*^9, 3.688068763935233*^9}}],

Cell[BoxData["1.0237757945537146`*^-46"], "Output",
 CellChangeTimes->{{3.6880686026558247`*^9, 3.688068620417771*^9}, 
   3.688068695524201*^9, {3.688068754247609*^9, 3.6880687647750874`*^9}, 
   3.6880688358619347`*^9, 3.688069445311142*^9, 3.6880696304267926`*^9, 
   3.688069680837594*^9, 3.6880705555061245`*^9, 3.688070617212366*^9, 
   3.6880706782975216`*^9, 3.688070719789178*^9, 3.6880707694877605`*^9, 
   3.688070828651066*^9, 3.688070902177976*^9, 3.6880711224190764`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"SolutionMat", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"0", ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "16"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "6"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.6867768454202557`*^9, 3.686776856674018*^9}, {
   3.686777688069626*^9, 3.686777696725765*^9}, 3.686781480095306*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Find all the angles", "Subsection",
 CellChangeTimes->{{3.6867813947565546`*^9, 3.6867813967643414`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"i", "=", "1"}], ",", 
    RowBox[{"i", "\[LessEqual]", "16"}], ",", 
    RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"tempsw", "=", 
      RowBox[{"w", "/.", 
       RowBox[{"solw2", "[", 
        RowBox[{"[", 
         RowBox[{"i", ",", "1"}], "]"}], "]"}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"SolutionMat", "[", 
       RowBox[{"[", 
        RowBox[{"i", ",", "2"}], "]"}], "]"}], "=", 
      RowBox[{"2", "*", 
       RowBox[{"ArcTan", "[", "tempsw", "]"}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"eqMono", "=", 
      RowBox[{
       RowBox[{"Amat", ".", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", "vara", "}"}], ",", 
          RowBox[{"{", "varb", "}"}], ",", 
          RowBox[{"{", "varc", "}"}], ",", 
          RowBox[{"{", "vard", "}"}], ",", 
          RowBox[{"{", "vare", "}"}], ",", 
          RowBox[{"{", "1", "}"}]}], "}"}]}], "/.", 
       RowBox[{"{", 
        RowBox[{"w", "\[Rule]", "tempsw"}], "}"}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"solMono", "=", 
      RowBox[{
       RowBox[{"Solve", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"eqMono", "[", 
           RowBox[{"[", 
            RowBox[{"1", ";;", "5"}], "]"}], "]"}], "\[Equal]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", "0", "}"}], ",", 
            RowBox[{"{", "0", "}"}], ",", 
            RowBox[{"{", "0", "}"}], ",", 
            RowBox[{"{", "0", "}"}], ",", 
            RowBox[{"{", "0", "}"}]}], "}"}]}], ",", 
         RowBox[{"{", 
          RowBox[{
          "vara", ",", "varb", ",", "varc", ",", "vard", ",", "vare"}], 
          "}"}]}], "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"tempsy", "=", 
      RowBox[{"varc", "/.", "solMono"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"tempsz", "=", 
      RowBox[{"vare", "/.", "solMono"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"SolutionMat", "[", 
       RowBox[{"[", 
        RowBox[{"i", ",", "4"}], "]"}], "]"}], "=", 
      RowBox[{"2", "*", 
       RowBox[{"ArcTan", "[", "tempsy", "]"}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"SolutionMat", "[", 
       RowBox[{"[", 
        RowBox[{"i", ",", "5"}], "]"}], "]"}], "=", 
      RowBox[{"2", "*", 
       RowBox[{"ArcTan", "[", "tempsz", "]"}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"tempEqn", "=", 
      RowBox[{"f4", "/.", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"w", "\[Rule]", "tempsw"}], ",", 
         RowBox[{"y", "\[Rule]", "tempsy"}], ",", 
         RowBox[{"z", "\[Rule]", "tempsz"}]}], "}"}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"solTempx", "=", 
      RowBox[{
       RowBox[{"Solve", "[", 
        RowBox[{
         RowBox[{"tempEqn", "\[Equal]", "0"}], ",", "x"}], "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"tempsx", "=", 
      RowBox[{"x", "/.", "solTempx"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"SolutionMat", "[", 
       RowBox[{"[", 
        RowBox[{"i", ",", "3"}], "]"}], "]"}], "=", 
      RowBox[{"2", "*", 
       RowBox[{"ArcTan", "[", "tempsx", "]"}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"tempeq1g", "=", 
      RowBox[{"eq1g", "/.", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"a2", "\[Rule]", 
          RowBox[{"SolutionMat", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 
         RowBox[{"a3", "\[Rule]", 
          RowBox[{"SolutionMat", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", 
         RowBox[{"a4", "\[Rule]", 
          RowBox[{"SolutionMat", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", 
         RowBox[{"a5", "\[Rule]", 
          RowBox[{"SolutionMat", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "5"}], "]"}], "]"}]}]}], "}"}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"tempeq2g", "=", 
      RowBox[{"eq2g", "/.", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"a2", "\[Rule]", 
          RowBox[{"SolutionMat", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 
         RowBox[{"a3", "\[Rule]", 
          RowBox[{"SolutionMat", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", 
         RowBox[{"a4", "\[Rule]", 
          RowBox[{"SolutionMat", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", 
         RowBox[{"a5", "\[Rule]", 
          RowBox[{"SolutionMat", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "5"}], "]"}], "]"}]}]}], "}"}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"tempeq3g", "=", 
      RowBox[{"eq3g", "/.", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"a2", "\[Rule]", 
          RowBox[{"SolutionMat", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 
         RowBox[{"a3", "\[Rule]", 
          RowBox[{"SolutionMat", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", 
         RowBox[{"a4", "\[Rule]", 
          RowBox[{"SolutionMat", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", 
         RowBox[{"a5", "\[Rule]", 
          RowBox[{"SolutionMat", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "5"}], "]"}], "]"}]}]}], "}"}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"tempeq4g", "=", 
      RowBox[{"eq4g", "/.", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"a2", "\[Rule]", 
          RowBox[{"SolutionMat", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 
         RowBox[{"a3", "\[Rule]", 
          RowBox[{"SolutionMat", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",", 
         RowBox[{"a4", "\[Rule]", 
          RowBox[{"SolutionMat", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",", 
         RowBox[{"a5", "\[Rule]", 
          RowBox[{"SolutionMat", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "5"}], "]"}], "]"}]}]}], "}"}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"solvari", "=", 
      RowBox[{
       RowBox[{"Solve", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"{", 
           RowBox[{
           "tempeq1g", ",", "tempeq2g", ",", "tempeq3g", ",", "tempeq4g"}], 
           "}"}], "\[Equal]", 
          RowBox[{"{", 
           RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"var1", ",", "var2", ",", "var3", ",", "var4"}], "}"}]}], 
        "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"SolutionMat", "[", 
       RowBox[{"[", 
        RowBox[{"i", ",", "1"}], "]"}], "]"}], "=", 
      RowBox[{"2", "*", 
       RowBox[{"ArcTan", "[", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"var1", "/", "var3"}], ")"}], "/.", "solvari"}], "]"}]}]}], 
     ";", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"SolutionMat", "[", 
       RowBox[{"[", 
        RowBox[{"i", ",", "6"}], "]"}], "]"}], "=", 
      RowBox[{"2", "*", 
       RowBox[{"ArcTan", "[", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"var3", "/", "var4"}], ")"}], "/.", "solvari"}], "]"}]}]}], 
     ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.686776387430024*^9, 3.686776415902316*^9}, {
   3.686776494432561*^9, 3.6867765218345537`*^9}, {3.686776556041147*^9, 
   3.686776559455166*^9}, 3.6867766107006035`*^9, {3.686776738472406*^9, 
   3.686776765815806*^9}, {3.686776868220745*^9, 3.686777207771086*^9}, {
   3.686777365757345*^9, 3.686777550930756*^9}, {3.6867775868326406`*^9, 
   3.686777658839531*^9}, {3.6867777468227797`*^9, 3.6867777633811617`*^9}, {
   3.686777840884076*^9, 3.6867778650907974`*^9}, {3.686778025455932*^9, 
   3.6867780335612974`*^9}, {3.686778074826394*^9, 3.6867780847950163`*^9}, {
   3.6867784354155283`*^9, 3.6867784558488607`*^9}, {3.686778597147833*^9, 
   3.6867785997571745`*^9}, {3.686845033254094*^9, 3.686845036316594*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Solution Matrix", "Subsection",
 CellChangeTimes->{{3.6867814049322057`*^9, 3.686781407279832*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SolutionMat", "//", "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.6867776357421703`*^9, 3.686777643058483*^9}, {
  3.6867777059561157`*^9, 3.686777712260722*^9}, {3.6870117187014737`*^9, 
  3.6870117198264737`*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1.687183035434729`", 
      RowBox[{"-", "2.440265371442602`"}], "0.22645266990745697`", 
      RowBox[{"-", "0.3063772266871852`"}], 
      RowBox[{"-", "1.7786315681078482`"}], "1.0779149862034294`"},
     {"1.4008801710997731`", 
      RowBox[{"-", "2.436255361151207`"}], "0.2262487165381531`", 
      RowBox[{"-", "2.8955959082111304`"}], "1.7788212519687048`", 
      RowBox[{"-", "1.0494401105376296`"}]},
     {
      RowBox[{"-", "1.4004415207814995`"}], 
      RowBox[{"-", "0.7053340480829671`"}], "2.915467364811327`", 
      "2.8961524947735957`", 
      RowBox[{"-", "1.7789274679624176`"}], "1.0492246673961998`"},
     {
      RowBox[{"-", "1.6867392076208325`"}], 
      RowBox[{"-", "0.7013320631177407`"}], "2.915014718559349`", 
      "0.3069441500698007`", "1.7785064955562553`", 
      RowBox[{"-", "1.0781179151524347`"}]},
     {
      RowBox[{"3.1413228254042957`", "\[VeryThinSpace]", "+", 
       RowBox[{"0.07426658341669792`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{
       RowBox[{"-", "1.576140082965939`"}], "-", 
       RowBox[{"2.880123251917416`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{
       RowBox[{"-", "1.5707534706053434`"}], "+", 
       RowBox[{"0.82483642743308`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"0.00003506171048287534`", "\[VeryThinSpace]", "-", 
       RowBox[{"2.624291235592005`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{
       RowBox[{"-", "3.141589575477415`"}], "+", 
       RowBox[{"0.18396199489333842`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"0.0053874087176367606`", "\[VeryThinSpace]", "+", 
       RowBox[{"5.518625688037438`", " ", "\[ImaginaryI]"}]}]},
     {
      RowBox[{"3.1413228254042953`", "\[VeryThinSpace]", "-", 
       RowBox[{"0.07426658341669791`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{
       RowBox[{"-", "1.576140082965939`"}], "+", 
       RowBox[{"2.880123251917416`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{
       RowBox[{"-", "1.5707534706053434`"}], "-", 
       RowBox[{"0.82483642743308`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"0.00003506171048287534`", "\[VeryThinSpace]", "+", 
       RowBox[{"2.624291235592005`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{
       RowBox[{"-", "3.141589575477415`"}], "-", 
       RowBox[{"0.1839619948933385`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"0.005387408717610363`", "\[VeryThinSpace]", "-", 
       RowBox[{"5.518625688037438`", " ", "\[ImaginaryI]"}]}]},
     {
      RowBox[{
       RowBox[{"-", "0.00023315487358033333`"}], "-", 
       RowBox[{"0.06745077025789269`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{
       RowBox[{"-", "1.5654525592126705`"}], "-", 
       RowBox[{"2.8824339289330627`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{
       RowBox[{"-", "1.5708413516475133`"}], "+", 
       RowBox[{"0.9697627122921653`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{
       RowBox[{"-", "3.1415615865585247`"}], "+", 
       RowBox[{"2.5724061331267425`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{
       RowBox[{"-", "3.141589358180261`"}], "-", 
       RowBox[{"0.19451339009670443`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"0.0053568840448154865`", "\[VeryThinSpace]", "-", 
       RowBox[{"5.60783588065806`", " ", "\[ImaginaryI]"}]}]},
     {
      RowBox[{
       RowBox[{"-", "0.00023315487358034495`"}], "+", 
       RowBox[{"0.06745077025789267`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{
       RowBox[{"-", "1.5654525592126705`"}], "+", 
       RowBox[{"2.8824339289330627`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{
       RowBox[{"-", "1.5708413516475133`"}], "-", 
       RowBox[{"0.9697627122921653`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{
       RowBox[{"-", "3.1415615865585247`"}], "-", 
       RowBox[{"2.5724061331267425`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{
       RowBox[{"-", "3.141589358180261`"}], "+", 
       RowBox[{"0.19451339009670449`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"0.005356884044816796`", "\[VeryThinSpace]", "+", 
       RowBox[{"5.60783588065806`", " ", "\[ImaginaryI]"}]}]},
     {
      RowBox[{
       RowBox[{"-", "3.1411606862092136`"}], "-", 
       RowBox[{"0.0567345652851231`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"1.565456372142684`", "\[VeryThinSpace]", "-", 
       RowBox[{"3.6413600062719826`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"1.570785761733003`", "\[VeryThinSpace]", "-", 
       RowBox[{"0.6412715609136829`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{
       RowBox[{"-", "0.00001235102238539704`"}], "+", 
       RowBox[{"2.623161438609824`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{
       RowBox[{"-", "2.8510857688871083`*^-6"}], "-", 
       RowBox[{"1.139721968533477`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{
       RowBox[{"-", "3.1362344602235326`"}], "+", 
       RowBox[{"5.0365491344199205`", " ", "\[ImaginaryI]"}]}]},
     {
      RowBox[{
       RowBox[{"-", "3.1411606862092136`"}], "+", 
       RowBox[{"0.0567345652851231`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"1.565456372142684`", "\[VeryThinSpace]", "+", 
       RowBox[{"3.6413600062719826`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"1.570785761733003`", "\[VeryThinSpace]", "+", 
       RowBox[{"0.6412715609136829`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{
       RowBox[{"-", "0.00001235102238539704`"}], "-", 
       RowBox[{"2.623161438609824`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{
       RowBox[{"-", "2.8510857688871083`*^-6"}], "+", 
       RowBox[{"1.139721968533477`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{
       RowBox[{"-", "3.1362344602235326`"}], "-", 
       RowBox[{"5.0365491344199205`", " ", "\[ImaginaryI]"}]}]},
     {
      RowBox[{"0.00041671344732368756`", "\[VeryThinSpace]", "+", 
       RowBox[{"0.05388586736327771`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"1.5761362758326005`", "\[VeryThinSpace]", "-", 
       RowBox[{"3.635220182033855`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"1.5708067239548809`", "\[VeryThinSpace]", "-", 
       RowBox[{"0.6105593318352355`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"3.1415811340926907`", "\[VeryThinSpace]", "-", 
       RowBox[{"2.5715526183979183`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{
       RowBox[{"-", "2.7201148457920812`*^-6"}], "+", 
       RowBox[{"1.1315508801039844`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{
       RowBox[{"-", "3.136257880467282`"}], "-", 
       RowBox[{"5.015452153673375`", " ", "\[ImaginaryI]"}]}]},
     {
      RowBox[{"0.0004167134473236877`", "\[VeryThinSpace]", "-", 
       RowBox[{"0.053885867363277724`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"1.5761362758326005`", "\[VeryThinSpace]", "+", 
       RowBox[{"3.635220182033855`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"1.5708067239548809`", "\[VeryThinSpace]", "+", 
       RowBox[{"0.6105593318352355`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{"3.1415811340926907`", "\[VeryThinSpace]", "+", 
       RowBox[{"2.5715526183979183`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{
       RowBox[{"-", "2.7201148457920812`*^-6"}], "-", 
       RowBox[{"1.1315508801039844`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{
       RowBox[{"-", "3.136257880467282`"}], "+", 
       RowBox[{"5.015452153673375`", " ", "\[ImaginaryI]"}]}]},
     {
      RowBox[{"-", "1.6838343541815166`"}], "0.6715728980277853`", 
      "0.23946099363056128`", 
      RowBox[{"-", "0.36590070873399555`"}], 
      RowBox[{"-", "1.6531814939667886`"}], 
      RowBox[{"-", "2.1054179829931843`"}]},
     {
      RowBox[{"-", "1.4029681903136846`"}], "0.6752013455105357`", 
      "0.23962885501748046`", 
      RowBox[{"-", "2.834561221338625`"}], "1.6530176929056197`", 
      "2.131040160865949`"},
     {"1.403410971773363`", "2.4663873571136605`", "2.901847113248373`", 
      "2.83402236338008`", 
      RowBox[{"-", "1.6529115301219977`"}], 
      RowBox[{"-", "2.1308716315293332`"}]},
     {"1.6842819426757698`", "2.470025231578329`", "2.902250303789474`", 
      "0.36535143021801425`", "1.6533050077761597`", "2.105574873192427`"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.6867776438670664`*^9, {3.6867777017335134`*^9, 3.686777715104436*^9}, 
   3.686777995995372*^9, 3.686778052080591*^9, 3.686778093736308*^9, {
   3.686778440528744*^9, 3.6867784621886234`*^9}, 3.6867786020149584`*^9, 
   3.686779677680877*^9, 3.6867797207311077`*^9, 3.6867819302145443`*^9, 
   3.68678208122433*^9, 3.686782157762413*^9, 3.68678267812294*^9, 
   3.68678304800883*^9, 3.6867834891746006`*^9, 3.686791609884689*^9, 
   3.6867932153631535`*^9, 3.686841779124281*^9, 3.686842120202406*^9, 
   3.686842286249281*^9, 3.686842327577406*^9, 3.686842435436781*^9, 
   3.686843582827406*^9, 3.686844137660344*^9, 3.686844287785344*^9, 
   3.686844368847844*^9, 3.686844476707219*^9, 3.686844671175969*^9, 
   3.686844862863469*^9, 3.686845062519719*^9, 3.6870100866957235`*^9, 
   3.6870106982738485`*^9, 3.6870107721175985`*^9, 3.6870116818733487`*^9, 
   3.6870117204670987`*^9, 3.6870118761233487`*^9, 3.6870119131389737`*^9, 
   3.687024045795253*^9, 3.6870320706233544`*^9, 3.687033767607906*^9, 
   3.687036829596857*^9, 3.68704249224722*^9, 3.6870551352928076`*^9, 
   3.6870563673495474`*^9, 3.687057495599513*^9, 3.6871034874421988`*^9, 
   3.6871037083157854`*^9, 3.6871147315392685`*^9, 3.6871154004753876`*^9, 
   3.6871163495353613`*^9, 3.6871164952053833`*^9, 3.6871165607210083`*^9, 
   3.6871166563147583`*^9, 3.6871170457678833`*^9, 3.6871171892835083`*^9, 
   3.6871174917053833`*^9, 3.6871175551585083`*^9, 3.6871176613772583`*^9, 
   3.6871181144241333`*^9, 3.6871182077835083`*^9, 3.6871185345241566`*^9, 
   3.6871985078380146`*^9, 3.687198726103639*^9, 3.6871991387896843`*^9, 
   3.6871999252423444`*^9, 3.687884267843799*^9, 3.6878844806492662`*^9, 
   3.6878845467946444`*^9, 3.687886471348549*^9, 3.68788681511476*^9, 
   3.68788697477696*^9, 3.687887154915984*^9, 3.6878873341643724`*^9, 
   3.687887526436365*^9, 3.6878875708705273`*^9, 3.687887683017657*^9, 
   3.687888859490879*^9, 3.6878889218846116`*^9, 3.6878893829060545`*^9, 
   3.6878894900687447`*^9, 3.6878895621342287`*^9, 3.688062579139899*^9, 
   3.688063091838945*^9, 3.688065569416853*^9, 3.688067044464812*^9, 
   3.6880671971258507`*^9, 3.6880673328307123`*^9, 3.688067476695835*^9, 
   3.6880676499949284`*^9, 3.68806816128082*^9, 3.6880682293815107`*^9, 
   3.688068332356755*^9, 3.688068695606233*^9, 3.6880688359205294`*^9, 
   3.688069458799596*^9, 3.6880696305244503`*^9, 3.6880696808922825`*^9, 
   3.6880705571232915`*^9, 3.688070618864689*^9, 3.688070679926407*^9, 
   3.688070721406345*^9, 3.6880707710814905`*^9, 3.6880708287096586`*^9, 
   3.6880709022521963`*^9, 3.68807112248939*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"RealSolMat", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"0", ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "16"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "6"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.687198104041139*^9, 3.687198145916139*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"j", "=", "1"}], ";"}]], "Input",
 CellChangeTimes->{{3.687198166322389*^9, 3.6871981673692646`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"i", "=", "1"}], ",", 
    RowBox[{"i", "\[LessEqual]", "16"}], ",", 
    RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Re", "[", 
         RowBox[{"SolutionMat", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "\[Equal]", 
        RowBox[{"SolutionMat", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"RealSolMat", "[", 
          RowBox[{"[", 
           RowBox[{"j", ",", ";;"}], "]"}], "]"}], "=", 
         RowBox[{"SolutionMat", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", ";;"}], "]"}], "]"}]}], ";", 
        RowBox[{"j", "=", 
         RowBox[{"j", "+", "1"}]}], ";"}]}], "]"}], ";"}]}], 
   "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RealSolMat", "=", 
   RowBox[{"RealSolMat", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"1", ";;", 
       RowBox[{"j", "-", "1"}]}], ",", ";;"}], "]"}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.687198051791139*^9, 3.6871980919630146`*^9}, {
  3.6871981498692646`*^9, 3.687198302978639*^9}, {3.6871983755567646`*^9, 
  3.687198420166139*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Dimensions", "[", "RealSolMat", "]"}]], "Input",
 CellChangeTimes->{{3.687199888757969*^9, 3.687199897664219*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"8", ",", "6"}], "}"}]], "Output",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGBQB2IPx5XTjlW8dkw9ULtXpOq145ljYjdA9C7fqAcgOqL9
zQVRIC135slvEH3nz01+MSB9ID9ODUR3Jx2zAdFx0rFRIHrJhsQMEO3+teA3
iN6TZ8ssDqRT4u7bgGiNYGcvED2z2zUYRC+Kdr+QDaJ3VPPlgMwX03PJBemb
3/8HRP84toQ/D0gbmc5WANEeLNONQHTJNgcPEF25R7MDRIeIrp0Aoju0euaC
aBe3L6dA9C+Tujsg2mfFRft8ID0lV9YNRP8vXLYZRLd1x+wG0XKt/w+B6GMP
9E6A6Am7U86B5UunXwXR/wJP3gPRYp0Bv0A0APHqnqY=
  "]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"TMat", "[", 
   RowBox[{
    RowBox[{"RealSolMat", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", ";;"}], "]"}], "]"}], ",", "dza", ",", "Ax", ",", 
    "dxa"}], "]"}], "//", "MatrixForm"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TMat", "[", 
    RowBox[{
     RowBox[{"RealSolMat", "[", 
      RowBox[{"[", 
       RowBox[{"2", ",", ";;"}], "]"}], "]"}], ",", "dza", ",", "Ax", ",", 
     "dxa"}], "]"}], "//", "MatrixForm"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"TMat", "[", 
     RowBox[{
      RowBox[{"RealSolMat", "[", 
       RowBox[{"[", 
        RowBox[{"3", ",", ";;"}], "]"}], "]"}], ",", "dza", ",", "Ax", ",", 
      "dxa"}], "]"}], "//", 
    RowBox[{"MatrixForm", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"TMat", "[", 
       RowBox[{
        RowBox[{"RealSolMat", "[", 
         RowBox[{"[", 
          RowBox[{"4", ",", ";;"}], "]"}], "]"}], ",", "dza", ",", "Ax", ",", 
        "dxa"}], "]"}], "//", "MatrixForm"}]}]}], "*)"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"TMat", "[", 
        RowBox[{
         RowBox[{"RealSolMat", "[", 
          RowBox[{"[", 
           RowBox[{"5", ",", ";;"}], "]"}], "]"}], ",", "dza", ",", "Ax", ",",
          "dxa"}], "]"}], "//", 
       RowBox[{"MatrixForm", "\[IndentingNewLine]", 
        RowBox[{"TMat", "[", 
         RowBox[{
          RowBox[{"RealSolMat", "[", 
           RowBox[{"[", 
            RowBox[{"6", ",", ";;"}], "]"}], "]"}], ",", "dza", ",", "Ax", 
          ",", "dxa"}], "]"}]}]}], "//", 
      RowBox[{"MatrixForm", "\[IndentingNewLine]", 
       RowBox[{"TMat", "[", 
        RowBox[{
         RowBox[{"RealSolMat", "[", 
          RowBox[{"[", 
           RowBox[{"7", ",", ";;"}], "]"}], "]"}], ",", "dza", ",", "Ax", ",",
          "dxa"}], "]"}]}]}], "//", 
     RowBox[{"MatrixForm", "\[IndentingNewLine]", 
      RowBox[{"TMat", "[", 
       RowBox[{
        RowBox[{"RealSolMat", "[", 
         RowBox[{"[", 
          RowBox[{"8", ",", ";;"}], "]"}], "]"}], ",", "dza", ",", "Ax", ",", 
        "dxa"}], "]"}]}]}], "//", "MatrixForm"}], "*)"}]}]}], "Input",
 CellChangeTimes->{{3.687199945414219*^9, 3.6872000026156597`*^9}, {
  3.688062604284752*^9, 3.6880626090426254`*^9}, {3.688067243075657*^9, 
  3.6880672480640025`*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0.999996244412458`", "0.0014278626791898175`", "0.002339309545332513`",
       "0.001170113018482698`"},
     {"0.0023177886038142134`", "0.014892150563742044`", 
      RowBox[{"-", "0.9998864194035113`"}], 
      RowBox[{"-", "0.6983837786798656`"}]},
     {
      RowBox[{"-", "0.0014625378516594512`"}], "0.9998880862675363`", 
      "0.01488878515112127`", "0.204352592333106`"},
     {"0.`", "0.`", "0.`", "1.`"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGDQAuKc3V1zjlW8dvTanL0ARCc8aN4rUvXa8aKa7A0QvVs3
+gGInpH+/YIokFZ48/Q3iL5bc4tfDEgfOB+nBqJ7Dh2zAdFps9OjQPTiC0kZ
INqttPA3iN5zzpZZHEjHxT21AdHqxS5eIHrGabdgEN1T23cpG0g3teffA9GL
flTz5QDpO2F6Lrkg/f/7/4DoH2xL+fOAdNYZJTEQbVQ6WwFEe7hMNwLRJd8c
PEB0xR/NDhAdErp2AojuyOqZC6Jd2r6cAtG/SurugGgfj0v2+UB6yllZNxD9
6+PqzSC6qTtpN4iWSmU9DKIPNJicANFdu7POgei2r9Ovguh/G0/eA9FiLwN+
gWgAdiOvNg==
  "]],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0.9999959293185526`", 
      RowBox[{"-", "0.000877338184166021`"}], 
      RowBox[{"-", "0.0027150734860635906`"}], 
      RowBox[{"-", "0.0010798565518609512`"}]},
     {
      RowBox[{"-", "0.0027018464928101355`"}], "0.014741254598614166`", 
      RowBox[{"-", "0.9998876914125847`"}], 
      RowBox[{"-", "0.6984168484332436`"}]},
     {"0.0009172632410657799`", "0.999890956900086`", "0.014738824158566532`",
       "0.20426563178079965`"},
     {"0.`", "0.`", "0.`", "1.`"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmVkYGDQAuKc3V1zjlW8dvTanL0ARCc8aN4rUvXa8aKa7A0QvVs3
+gGInpH+/YIokFZ48/Q3iL5bc4tfDEgfOB+nBqJ7Dh2zAdFps9OjQPTiC0kZ
INqttPA3iN5zzpZZHEjHxT21AdHqxS5eIHrGabdgEN1T23cpG0g3teffA9GL
flTz5QDpO2F6Lrkg/f/7/4DoH2xL+fOAdNYZJTEQbVQ6WwFEe7hMNwLRJd8c
PEB0xR/NDhAdErp2AojuyOqZC6Jd2r6cAtG/SurugGgfj0v2+UB6yllZNxD9
6+PqzSC6qTtpN4iWSmU9DKIPNJicANFdu7POgei2r9Ovguh/G0/eA9FinIG/
QDQAcAmuVw==
  "]]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"posE", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"posO", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"i", "=", "0"}], ",", 
    RowBox[{"i", "<", 
     RowBox[{
      RowBox[{"Dimensions", "[", "RealSolMat", "]"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}]}], ",", 
    RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"IKsol", "=", 
      RowBox[{"TMat", "[", 
       RowBox[{
        RowBox[{"RealSolMat", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"i", "+", "1"}], ",", ";;"}], "]"}], "]"}], ",", "dza", 
        ",", "Ax", ",", "dxa"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"posE", "=", 
      RowBox[{"posE", "+", 
       RowBox[{"Sqrt", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"IKsol", "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "4"}], "]"}], "]"}], "-", 
            RowBox[{"pos", "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "^", "2"}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"IKsol", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "4"}], "]"}], "]"}], "-", 
            RowBox[{"pos", "[", 
             RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "^", "2"}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"IKsol", "[", 
             RowBox[{"[", 
              RowBox[{"3", ",", "4"}], "]"}], "]"}], "-", 
            RowBox[{"pos", "[", 
             RowBox[{"[", "3", "]"}], "]"}]}], ")"}], "^", "2"}]}], "]"}]}]}],
      ";", "\[IndentingNewLine]", 
     RowBox[{"tempO", "=", 
      RowBox[{"ZXZ", "[", "IKsol", "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"posO", "=", 
      RowBox[{"posO", "+", 
       RowBox[{"Sqrt", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"tempO", "[", 
             RowBox[{"[", "1", "]"}], "]"}], "-", 
            RowBox[{"orient", "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "^", "2"}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"tempO", "[", 
             RowBox[{"[", "2", "]"}], "]"}], "-", 
            RowBox[{"orient", "[", 
             RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "^", "2"}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"tempO", "[", 
             RowBox[{"[", "3", "]"}], "]"}], "-", 
            RowBox[{"orient", "[", 
             RowBox[{"[", "3", "]"}], "]"}]}], ")"}], "^", "2"}]}], "]"}]}]}],
      ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"posE", "=", 
   RowBox[{"posE", "/", 
    RowBox[{
     RowBox[{"Dimensions", "[", "RealSolMat", "]"}], "[", 
     RowBox[{"[", "1", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"posO", "=", 
   RowBox[{"posO", "/", 
    RowBox[{
     RowBox[{"Dimensions", "[", "RealSolMat", "]"}], "[", 
     RowBox[{"[", "1", "]"}], "]"}]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.687467478622445*^9, 3.68746753073705*^9}, {
  3.6874675853705626`*^9, 3.6874676116052732`*^9}, {3.6874676646215763`*^9, 
  3.6874677875372124`*^9}, {3.687467825029349*^9, 3.6874678382479296`*^9}, {
  3.6874678771849313`*^9, 3.6874679070165806`*^9}, {3.6874680219330783`*^9, 
  3.6874681343886704`*^9}, {3.687468168157769*^9, 3.6874682172391725`*^9}}],

Cell[CellGroupData[{

Cell[BoxData["i"], "Input",
 CellChangeTimes->{3.6880671187068777`*^9}],

Cell[BoxData["8"], "Output",
 CellChangeTimes->{3.6880671192381344`*^9, 3.6880671977235146`*^9, 
  3.68806725284922*^9, 3.6880673570146155`*^9, 3.6880674982898617`*^9, 
  3.688068026548169*^9, 3.6880681613316*^9, 3.6880682294401035`*^9, 
  3.688068864733398*^9, 3.6880696306064825`*^9, 3.6880696809508767`*^9, 
  3.6880705576467223`*^9, 3.688070619360776*^9, 3.6880706804498377`*^9, 
  3.6880707219024324`*^9, 3.6880707716205463`*^9, 3.6880708287721577`*^9, 
  3.6880709023264155`*^9, 3.688071122547984*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["pos"], "Input",
 CellChangeTimes->{{3.6880675180088634`*^9, 3.6880675186416845`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.0001`", ",", 
   RowBox[{"-", "0.7`"}], ",", "0.2`"}], "}"}]], "Output",
 CellChangeTimes->{3.6880675194424763`*^9, 3.688068027981745*^9, 
  3.6880681613394127`*^9, 3.688068229447916*^9, 3.688068866002946*^9, 
  3.688069630614295*^9, 3.6880696809586897`*^9, 3.688070557654535*^9, 
  3.6880706193685884`*^9, 3.68807068045765*^9, 3.688070721910245*^9, 
  3.688070771632264*^9, 3.68807082877997*^9, 3.6880709023459473`*^9, 
  3.688071122559703*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["posE"], "Input",
 CellChangeTimes->{{3.68746784090024*^9, 3.6874678416697607`*^9}}],

Cell[BoxData["0.0005955875938699639`"], "Output",
 CellChangeTimes->{{3.687467842079912*^9, 3.687467909204053*^9}, 
   3.6874682278913794`*^9, 3.6878842695156527`*^9, 3.687884482348507*^9, 
   3.687884546880583*^9, 3.687886473196371*^9, 3.6878868156499233`*^9, 
   3.687887154998017*^9, 3.6878873342464046`*^9, 3.6878875726596127`*^9, 
   3.6878889219705477`*^9, 3.6878893846091576`*^9, 3.687889491693724*^9, 
   3.687889562255321*^9, 3.6880628179007673`*^9, 3.688063091901444*^9, 
   3.688067197731327*^9, 3.688067254720338*^9, 3.688067358495103*^9, 
   3.6880674996609726`*^9, 3.6880680300481243`*^9, 3.6880681613511314`*^9, 
   3.6880682294557285`*^9, 3.688068350208089*^9, 3.688068867061553*^9, 
   3.68806963062992*^9, 3.688069680966502*^9, 3.6880705576623473`*^9, 
   3.688070619380307*^9, 3.6880706804654627`*^9, 3.688070721921963*^9, 
   3.6880707716400766`*^9, 3.6880708287877827`*^9, 3.6880709023615723`*^9, 
   3.6880711225675163`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["posO"], "Input",
 CellChangeTimes->{{3.687468228797618*^9, 3.6874682294421415`*^9}}],

Cell[BoxData["0.0018928541220405559`"], "Output",
 CellChangeTimes->{3.6874682300749454`*^9, 3.687884269523465*^9, 
  3.6878844823563194`*^9, 3.6878845468883953`*^9, 3.6878864732041845`*^9, 
  3.687886815657736*^9, 3.6878871550097356`*^9, 3.687887334258124*^9, 
  3.6878875726713314`*^9, 3.6878889219822664`*^9, 3.68788938461697*^9, 
  3.687889491705443*^9, 3.6878895622670393`*^9, 3.6880628191312523`*^9, 
  3.6880630919092565`*^9, 3.6880671977352333`*^9, 3.688067256204732*^9, 
  3.6880673599443407`*^9, 3.6880675553765297`*^9, 3.6880680312434216`*^9, 
  3.688068161358944*^9, 3.6880682294635406`*^9, 3.688068868417039*^9, 
  3.688069630641639*^9, 3.6880696809743147`*^9, 3.6880705576701593`*^9, 
  3.6880706193881197`*^9, 3.688070680473275*^9, 3.6880707219297757`*^9, 
  3.688070771647889*^9, 3.6880708287995014`*^9, 3.6880709023771973`*^9, 
  3.6880711225753284`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Det", "[", "mat", "]"}]], "Input",
 CellChangeTimes->{{3.6878889477280307`*^9, 3.687888949337385*^9}}],

Cell[BoxData[
 RowBox[{"6.120900761363725`*^-31", "+", 
  RowBox[{"4.6047389212139914`*^-33", " ", "w"}], "-", 
  RowBox[{"7.289158984756528`*^-30", " ", 
   SuperscriptBox["w", "2"]}], "-", 
  RowBox[{"1.4481163446796815`*^-30", " ", 
   SuperscriptBox["w", "3"]}], "+", 
  RowBox[{"4.9530074522936944`*^-30", " ", 
   SuperscriptBox["w", "4"]}], "+", 
  RowBox[{"6.975329282240729`*^-30", " ", 
   SuperscriptBox["w", "5"]}], "+", 
  RowBox[{"9.320849745236417`*^-29", " ", 
   SuperscriptBox["w", "6"]}], "+", 
  RowBox[{"2.786445571744927`*^-29", " ", 
   SuperscriptBox["w", "7"]}], "+", 
  RowBox[{"1.6074151301578226`*^-28", " ", 
   SuperscriptBox["w", "8"]}], "+", 
  RowBox[{"2.7864416208660477`*^-29", " ", 
   SuperscriptBox["w", "9"]}], "+", 
  RowBox[{"9.320816671263472`*^-29", " ", 
   SuperscriptBox["w", "10"]}], "+", 
  RowBox[{"6.975299078094769`*^-30", " ", 
   SuperscriptBox["w", "11"]}], "+", 
  RowBox[{"4.952956849824743`*^-30", " ", 
   SuperscriptBox["w", "12"]}], "-", 
  RowBox[{"1.4481071109953145`*^-30", " ", 
   SuperscriptBox["w", "13"]}], "-", 
  RowBox[{"7.289095559976704`*^-30", " ", 
   SuperscriptBox["w", "14"]}], "+", 
  RowBox[{"4.604667962253947`*^-33", " ", 
   SuperscriptBox["w", "15"]}], "+", 
  RowBox[{"6.120833024705257`*^-31", " ", 
   SuperscriptBox["w", "16"]}]}]], "Output",
 CellChangeTimes->{3.68788895005222*^9, 3.6878893846286883`*^9, 
  3.6878894917249737`*^9, 3.687889562290477*^9, 3.6880630919365997`*^9, 
  3.688067197762577*^9, 3.6880681613823805`*^9, 3.6880682294869776`*^9, 
  3.6880696306650767`*^9, 3.688069680997752*^9, 3.688070557677972*^9, 
  3.688070619395932*^9, 3.688070680484994*^9, 3.6880707219375877`*^9, 
  3.6880707716557016`*^9, 3.688070828822939*^9, 3.6880709024006352`*^9, 
  3.6880711225987663`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"testW", "=", 
  RowBox[{"Tan", "[", 
   RowBox[{"1.0545", "/", "2"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.687888958239615*^9, 3.6878889759034514`*^9}, {
  3.6878890128951654`*^9, 3.687889017234954*^9}}],

Cell[BoxData["0.582228874343848`"], "Output",
 CellChangeTimes->{3.6878890196880474`*^9, 3.687889384640407*^9, 
  3.687889491748411*^9, 3.687889562306102*^9, 3.688063091944412*^9, 
  3.6880671977703896`*^9, 3.688068161390193*^9, 3.68806822949479*^9, 
  3.688069630676796*^9, 3.6880696810055647`*^9, 3.6880705576896906`*^9, 
  3.6880706194037447`*^9, 3.688070680492806*^9, 3.6880707219454*^9, 
  3.6880707716674204`*^9, 3.688070828834657*^9, 3.6880709024123545`*^9, 
  3.688071122610485*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Det", "[", "mat", "]"}], "/.", 
  RowBox[{"{", 
   RowBox[{"w", "\[Rule]", "testW"}], "}"}]}]], "Input",
 CellChangeTimes->{{3.6878890233715935`*^9, 3.6878890348519154`*^9}}],

Cell[BoxData["5.931689123011643`*^-30"], "Output",
 CellChangeTimes->{3.687889035820653*^9, 3.6878893846521254`*^9, 
  3.687889491771848*^9, 3.687889562329539*^9, 3.6880630919678493`*^9, 
  3.6880671977938275`*^9, 3.6880681614175367`*^9, 3.6880682295182276`*^9, 
  3.6880696307002335`*^9, 3.688069681029003*^9, 3.688070557705315*^9, 
  3.688070619419369*^9, 3.6880706805045247`*^9, 3.688070721957119*^9, 
  3.688070771675233*^9, 3.688070828858094*^9, 3.6880709024475107`*^9, 
  3.688071122633923*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["solw2"], "Input",
 CellChangeTimes->{{3.687889064402319*^9, 3.6878890651601214`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"w", "\[Rule]", 
     RowBox[{"-", "2.733878182325141`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"w", "\[Rule]", 
     RowBox[{"-", "2.716980191117241`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"w", "\[Rule]", 
     RowBox[{"-", "0.36805384109740097`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"w", "\[Rule]", 
     RowBox[{"-", "0.365783455956697`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"w", "\[Rule]", 
     RowBox[{
      RowBox[{"-", "0.11196851389853822`"}], "-", 
      RowBox[{"0.9943136970595572`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"w", "\[Rule]", 
     RowBox[{
      RowBox[{"-", "0.11196851389853822`"}], "+", 
      RowBox[{"0.9943136970595572`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"w", "\[Rule]", 
     RowBox[{
      RowBox[{"-", "0.11157833687682144`"}], "-", 
      RowBox[{"0.9931554591249974`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"w", "\[Rule]", 
     RowBox[{
      RowBox[{"-", "0.11157833687682144`"}], "+", 
      RowBox[{"0.9931554591249974`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"w", "\[Rule]", 
     RowBox[{"0.05238191296886171`", "\[VeryThinSpace]", "-", 
      RowBox[{"0.9983469816634494`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"w", "\[Rule]", 
     RowBox[{"0.05238191296886171`", "\[VeryThinSpace]", "+", 
      RowBox[{"0.9983469816634494`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"w", "\[Rule]", 
     RowBox[{"0.052733662801491554`", "\[VeryThinSpace]", "-", 
      RowBox[{"0.998890562726766`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"w", "\[Rule]", 
     RowBox[{"0.052733662801491554`", "\[VeryThinSpace]", "+", 
      RowBox[{"0.998890562726766`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"w", "\[Rule]", "0.34900311395565453`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"w", "\[Rule]", "0.35103960758670416`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"w", "\[Rule]", "2.8486633913376136`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"w", "\[Rule]", "2.86532916435546`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.687889067449155*^9, 3.687889384663844*^9, 
  3.6878894917835665`*^9, 3.687889562341257*^9, 3.6880630919756613`*^9, 
  3.6880671978016405`*^9, 3.688068161425349*^9, 3.6880682295299463`*^9, 
  3.688069630719765*^9, 3.6880696810368156`*^9, 3.6880705577131276`*^9, 
  3.6880706194271812`*^9, 3.688070680516243*^9, 3.6880707219688377`*^9, 
  3.6880707716830454`*^9, 3.688070828869813*^9, 3.6880709024592295`*^9, 
  3.6880711226534543`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"solw2", "[", 
  RowBox[{"[", "1", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.6878890704139605`*^9, 3.6878890720194087`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"w", "\[Rule]", 
   RowBox[{"-", "2.733878182325141`"}]}], "}"}]], "Output",
 CellChangeTimes->{3.687889072620963*^9, 3.687889384675563*^9, 
  3.687889491795285*^9, 3.687889562356882*^9, 3.688063091983474*^9, 
  3.688067197809453*^9, 3.6880681614370675`*^9, 3.6880682295377584`*^9, 
  3.688069630731484*^9, 3.6880696810485344`*^9, 3.68807055772094*^9, 
  3.6880706194349937`*^9, 3.6880706805279617`*^9, 3.68807072197665*^9, 
  3.688070771690858*^9, 3.6880708288815317`*^9, 3.688070902474855*^9, 
  3.6880711226612673`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Det", "[", "mat", "]"}], "/.", 
  RowBox[{"solw2", "[", 
   RowBox[{"[", "16", "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.6878890389338946`*^9, 3.6878891150891695`*^9}, {
  3.6878896253404512`*^9, 3.687889626258408*^9}}],

Cell[BoxData["1.285696946211877`*^-39"], "Output",
 CellChangeTimes->{{3.6878890831989527`*^9, 3.687889115679006*^9}, 
   3.687889384722437*^9, 3.6878894918148165`*^9, 3.687889562384226*^9, 
   3.687889627348238*^9, 3.6880630920069113`*^9, 3.6880671978328905`*^9, 
   3.6880681614605045`*^9, 3.6880682295611954`*^9, 3.688069630758828*^9, 
   3.688069681071972*^9, 3.688070557771721*^9, 3.688070619489681*^9, 
   3.6880706805826488`*^9, 3.6880707220196185`*^9, 3.688070771741638*^9, 
   3.6880708289049687`*^9, 3.6880709025061054`*^9, 3.688071122684705*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1366, 591},
WindowMargins->{{-8, Automatic}, {Automatic, -8}},
FrontEndVersion->"11.0 for Microsoft Windows (64-bit) (July 28, 2016)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 135, 2, 70, "Section"],
Cell[CellGroupData[{
Cell[740, 28, 96, 1, 49, "Subsection"],
Cell[839, 31, 4490, 112, 297, "Input"],
Cell[5332, 145, 94, 1, 30, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5463, 151, 98, 1, 49, "Subsection"],
Cell[5564, 154, 4686, 116, 316, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10287, 275, 126, 1, 49, "Subsection"],
Cell[10416, 278, 7612, 176, 240, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18065, 459, 112, 1, 49, "Subsection"],
Cell[18180, 462, 1207, 29, 126, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19424, 496, 119, 1, 49, "Subsection"],
Cell[19546, 499, 1355, 39, 145, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20938, 543, 134, 1, 59, "Subsection"],
Cell[21075, 546, 6456, 127, 259, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[27568, 678, 117, 1, 49, "Subsection"],
Cell[CellGroupData[{
Cell[27710, 683, 7085, 174, 278, "Input"],
Cell[34798, 859, 629, 14, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[35464, 878, 203, 3, 50, "Input"],
Cell[35670, 883, 1883, 42, 94, "Output"],
Cell[37556, 927, 1792, 37, 94, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[39397, 970, 100, 1, 49, "Subsection"],
Cell[CellGroupData[{
Cell[39522, 975, 4007, 110, 183, "Input"],
Cell[43532, 1087, 508, 10, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[44077, 1102, 158, 3, 30, "Input"],
Cell[44238, 1107, 2018, 43, 94, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[46293, 1155, 185, 3, 30, "Input"],
Cell[46481, 1160, 1998, 41, 94, "Output"]
}, Open  ]]
}, Open  ]],
Cell[48506, 1205, 109, 1, 49, "Subsection"],
Cell[CellGroupData[{
Cell[48640, 1210, 111, 1, 41, "Subsection"],
Cell[48754, 1213, 3015, 84, 88, "Input"],
Cell[51772, 1299, 3738, 93, 88, "Input"],
Cell[55513, 1394, 1650, 50, 88, "Input"],
Cell[57166, 1446, 1400, 47, 88, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[58603, 1498, 129, 1, 49, "Subsection"],
Cell[58735, 1501, 1103, 32, 30, "Input"],
Cell[59841, 1535, 491, 13, 88, "Input"],
Cell[60335, 1550, 541, 15, 30, "Input"],
Cell[CellGroupData[{
Cell[60901, 1569, 453, 9, 88, "Input"],
Cell[61357, 1580, 1551, 35, 30, "Output"],
Cell[62911, 1617, 1551, 35, 30, "Output"],
Cell[64465, 1654, 1551, 35, 30, "Output"],
Cell[66019, 1691, 1551, 35, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[67607, 1731, 331, 5, 88, "Input"],
Cell[67941, 1738, 1815, 43, 30, "Output"],
Cell[69759, 1783, 1815, 43, 30, "Output"],
Cell[71577, 1828, 1815, 43, 30, "Output"],
Cell[73395, 1873, 1811, 43, 30, "Output"]
}, Open  ]],
Cell[75221, 1919, 1109, 31, 88, "Input"],
Cell[CellGroupData[{
Cell[76355, 1954, 347, 5, 88, "Input"],
Cell[76705, 1961, 3485, 58, 30, "Output"],
Cell[80193, 2021, 3485, 58, 30, "Output"],
Cell[83681, 2081, 3485, 58, 30, "Output"],
Cell[87169, 2141, 3482, 58, 30, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[90700, 2205, 114, 1, 49, "Subsection"],
Cell[90817, 2208, 2081, 59, 88, "Input"],
Cell[CellGroupData[{
Cell[92923, 2271, 347, 5, 88, "Input"],
Cell[93273, 2278, 1247, 27, 30, "Output"],
Cell[94523, 2307, 1247, 27, 30, "Output"],
Cell[95773, 2336, 1247, 27, 30, "Output"],
Cell[97023, 2365, 1247, 27, 30, "Output"]
}, Open  ]],
Cell[98285, 2395, 600, 18, 30, "Input"],
Cell[98888, 2415, 840, 26, 88, "Input"],
Cell[CellGroupData[{
Cell[99753, 2445, 322, 5, 88, "Input"],
Cell[100078, 2452, 1011, 19, 30, "Output"],
Cell[101092, 2473, 1011, 19, 30, "Output"],
Cell[102106, 2494, 1011, 19, 30, "Output"],
Cell[103120, 2515, 1011, 19, 30, "Output"]
}, Open  ]],
Cell[104146, 2537, 550, 14, 107, "Input"],
Cell[104699, 2553, 1869, 59, 278, "Input"],
Cell[CellGroupData[{
Cell[106593, 2616, 135, 2, 30, "Input"],
Cell[106731, 2620, 991, 19, 30, "Output"]
}, Open  ]],
Cell[107737, 2642, 600, 15, 30, "Input"],
Cell[108340, 2659, 510, 11, 30, "Input"],
Cell[CellGroupData[{
Cell[108875, 2674, 139, 2, 30, "Input"],
Cell[109017, 2678, 2952, 42, 30, "Output"]
}, Open  ]],
Cell[111984, 2723, 253, 5, 30, "Input"],
Cell[112240, 2730, 1074, 29, 88, "Input"],
Cell[113317, 2761, 197, 3, 30, "Input"],
Cell[CellGroupData[{
Cell[113539, 2768, 137, 2, 30, "Input"],
Cell[113679, 2772, 1037, 19, 30, "Output"]
}, Open  ]]
}, Open  ]],
Cell[114743, 2795, 122, 1, 49, "Subsection"],
Cell[CellGroupData[{
Cell[114890, 2800, 201, 3, 41, "Subsection"],
Cell[115094, 2805, 1964, 56, 145, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[117095, 2866, 100, 1, 49, "Subsection"],
Cell[117198, 2869, 1709, 52, 145, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[118944, 2926, 99, 1, 49, "Subsection"],
Cell[119046, 2929, 1777, 53, 145, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[120860, 2987, 102, 1, 49, "Subsection"],
Cell[120965, 2990, 1791, 53, 145, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[122793, 3048, 101, 1, 49, "Subsection"],
Cell[122897, 3051, 1772, 53, 145, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[124706, 3109, 99, 1, 49, "Subsection"],
Cell[124808, 3112, 1674, 52, 145, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[126519, 3169, 111, 1, 49, "Subsection"],
Cell[126633, 3172, 1038, 31, 50, "Input"],
Cell[127674, 3205, 140, 3, 30, "Input"],
Cell[127817, 3210, 479, 12, 30, "Input"],
Cell[128299, 3224, 562, 14, 30, "Input"],
Cell[128864, 3240, 618, 16, 30, "Input"],
Cell[129485, 3258, 618, 16, 30, "Input"],
Cell[130106, 3276, 824, 23, 30, "Input"],
Cell[130933, 3301, 1116, 29, 145, "Input"],
Cell[CellGroupData[{
Cell[132074, 3334, 130, 2, 30, "Input"],
Cell[132207, 3338, 4852, 84, 128, "Output"]
}, Open  ]],
Cell[137074, 3425, 3113, 85, 316, "Input"],
Cell[CellGroupData[{
Cell[140212, 3514, 187, 4, 30, "Input"],
Cell[140402, 3520, 1073, 19, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[141512, 3544, 182, 4, 30, "Input"],
Cell[141697, 3550, 402, 5, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[142136, 3560, 256, 6, 30, "Input"],
Cell[142395, 3568, 408, 5, 30, "Output"]
}, Open  ]],
Cell[142818, 3576, 447, 11, 30, "Input"],
Cell[CellGroupData[{
Cell[143290, 3591, 257, 6, 30, "Input"],
Cell[143550, 3599, 485, 6, 30, "Output"]
}, Open  ]],
Cell[144050, 3608, 392, 10, 30, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[144479, 3623, 111, 1, 49, "Subsection"],
Cell[144593, 3626, 8428, 220, 411, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[153058, 3851, 105, 1, 49, "Subsection"],
Cell[CellGroupData[{
Cell[153188, 3856, 241, 4, 30, "Input"],
Cell[153432, 3862, 11133, 219, 306, "Output"]
}, Open  ]],
Cell[164580, 4084, 317, 9, 30, "Input"],
Cell[164900, 4095, 135, 3, 30, "Input"],
Cell[165038, 4100, 1349, 39, 88, "Input"],
Cell[CellGroupData[{
Cell[166412, 4143, 138, 2, 30, "Input"],
Cell[166553, 4147, 466, 10, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[167056, 4162, 2424, 68, 183, "Input"],
Cell[169483, 4232, 1399, 33, 94, "Output"],
Cell[170885, 4267, 1462, 35, 94, "Output"]
}, Open  ]],
Cell[172362, 4305, 3569, 96, 202, "Input"],
Cell[CellGroupData[{
Cell[175956, 4405, 71, 1, 30, "Input"],
Cell[176030, 4408, 507, 7, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[176574, 4420, 99, 1, 30, "Input"],
Cell[176676, 4423, 487, 9, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[177200, 4437, 97, 1, 30, "Input"],
Cell[177300, 4440, 946, 13, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[178283, 4458, 98, 1, 30, "Input"],
Cell[178384, 4461, 871, 12, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[179292, 4478, 126, 2, 30, "Input"],
Cell[179421, 4482, 1783, 39, 50, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[181241, 4526, 231, 5, 30, "Input"],
Cell[181475, 4533, 490, 7, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[182002, 4545, 209, 5, 30, "Input"],
Cell[182214, 4552, 500, 7, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[182751, 4564, 99, 1, 30, "Input"],
Cell[182853, 4567, 2759, 65, 69, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[185649, 4637, 151, 3, 30, "Input"],
Cell[185803, 4642, 561, 10, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[186401, 4657, 260, 6, 30, "Input"],
Cell[186664, 4665, 556, 7, 30, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)