verification.nb

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

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

(* CreatedBy='Mathematica 12.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    148225,       3429]
NotebookOptionsPosition[    144269,       3369]
NotebookOutlinePosition[    144712,       3386]
CellTagsIndexPosition[    144669,       3383]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.9152072998901863`*^9, 3.915207300632225*^9}, {
   3.915369374779283*^9, 3.915369376875389*^9}, 3.915384993667519*^9, 
   3.916678957104742*^9},
 CellLabel->
  "In[1599]:=",ExpressionUUID->"c9f5c03e-7b14-46db-af1f-952b22ef8bfb"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"r", "[", 
    RowBox[{"t_", ",", " ", "n_"}], "]"}], " ", ":=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"72", "  ", "*", " ", "t", "  ", "*", " ", 
         RowBox[{"Cos", "[", 
          RowBox[{"n", " ", "*", " ", "t"}], "]"}]}], " ", "+", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"154", " ", "*", " ", "n", " ", "*", " ", "t"}], " ", "+", 
           " ", 
           RowBox[{"48", " ", "*", " ", 
            RowBox[{"n", " ", "^", " ", "3"}], " ", "*", " ", 
            RowBox[{"t", " ", "^", " ", "3"}]}], " ", "-", " ", 
           RowBox[{"384", " ", "*", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"n", " ", "*", " ", "t"}], "]"}]}], " ", "-", " ", 
           RowBox[{"27", " ", "*", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"2", " ", "*", " ", "n", " ", "*", " ", "t"}], "]"}]}]}],
           ")"}], " ", "/", " ", 
         RowBox[{"(", 
          RowBox[{"4", " ", "*", " ", "n"}], ")"}]}]}], ",", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "3"}], " ", "*", " ", "n", " ", "*", " ", 
         RowBox[{"t", " ", "^", " ", "2"}]}], " ", "+", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"6", " ", "-", " ", 
           RowBox[{"6", " ", "*", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"n", " ", "*", " ", "t"}], "]"}]}]}], " ", ")"}], " ", 
         "/", " ", "n"}]}], ",", " ", "0", ",", " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"8", "+", 
          RowBox[{"12", " ", "*", " ", 
           RowBox[{"n", "^", "2"}], "*", " ", 
           RowBox[{"t", "^", "2"}]}], "\[Minus]", 
          RowBox[{"8", "*", " ", 
           RowBox[{"Cos", "[", 
            RowBox[{"n", " ", "*", " ", "t"}], "]"}]}], "\[Minus]", 
          RowBox[{"24", "*", "n", "*", " ", "t", "*", " ", 
           RowBox[{"Sin", "[", 
            RowBox[{"n", " ", "*", " ", "t"}], "]"}]}], "+", 
          RowBox[{"9", " ", "*", 
           RowBox[{
            RowBox[{"Sin", "[", " ", 
             RowBox[{"n", " ", "*", " ", "t"}], "]"}], "^", "2"}]}]}], " ", 
         ")"}], "/", " ", 
        RowBox[{"(", 
         RowBox[{"2", " ", "*", " ", 
          RowBox[{"n", " ", "^", " ", "2"}]}], ")"}]}], ",", " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"23", " ", "*", "n", " ", "*", " ", "t"}], "+", 
          RowBox[{"6", " ", "*", 
           RowBox[{"n", "^", "3"}], " ", "*", 
           RowBox[{"t", "^", "3"}]}], "+", 
          RowBox[{"42", "*", "n", "*", "t", "*", " ", 
           RowBox[{"Cos", "[", " ", 
            RowBox[{"n", " ", "*", " ", "t"}], "]"}]}], "\[Minus]", 
          RowBox[{"56", " ", "*", " ", 
           RowBox[{"Sin", "[", " ", 
            RowBox[{"n", " ", "*", " ", "t"}], "]"}]}], "\[Minus]", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"9", "/", "2"}], ")"}], " ", "*", " ", 
           RowBox[{"Sin", " ", "[", 
            RowBox[{"2", "*", "n", "*", "t"}], "]"}]}]}], ")"}], "/", 
        RowBox[{"n", "^", "2"}]}], ",", " ", "0"}], "\[IndentingNewLine]", 
      "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"-", "3"}], " ", "*", " ", "n", " ", "*", " ", 
         RowBox[{"t", " ", "^", " ", "2"}]}], " ", "+", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"6", " ", "-", " ", 
           RowBox[{"6", " ", "*", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"n", " ", "*", " ", "t"}], "]"}]}]}], " ", ")"}], " ", 
         "/", " ", "n"}]}], ",", " ", "t", ",", " ", "0", ",", "  ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "2"}], "*", "n", " ", "*", " ", "t"}], " ", "+", " ", 
          
          RowBox[{"2", " ", "*", " ", 
           RowBox[{"Sin", "[", 
            RowBox[{"n", " ", "*", " ", "t"}], "]"}]}]}], ")"}], " ", "/", 
        " ", 
        RowBox[{"n", "^", "2"}]}], ",", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"-", " ", "3"}], " ", "*", " ", 
         RowBox[{
          RowBox[{"t", "^", "2"}], " ", "/", " ", "2"}]}], " ", "+", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"4", " ", "-", " ", 
           RowBox[{"4", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"n", " ", "*", " ", "t"}], "]"}]}]}], ")"}], "/", 
         RowBox[{"n", " ", "^", " ", "2"}]}]}], ",", " ", "0"}], " ", 
      "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{"0", ",", " ", "0", ",", " ", 
       RowBox[{
        RowBox[{"(", " ", 
         RowBox[{
          RowBox[{"2", " ", "*", " ", "n", " ", "*", " ", "t"}], " ", "+", 
          " ", 
          RowBox[{"Sin", "[", 
           RowBox[{"2", " ", "*", " ", "n", " ", "*", " ", "t"}], "]"}]}], 
         ")"}], " ", "/", " ", 
        RowBox[{"(", 
         RowBox[{"4", " ", "*", "n"}], ")"}]}], " ", ",", " ", "0", ",", " ", 
       "0", ",", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"Sin", "[", 
          RowBox[{"n", " ", "*", " ", "t"}], "]"}], " ", "^", " ", "2"}], " ",
         "/", " ", 
        RowBox[{"(", 
         RowBox[{"2", " ", "*", " ", 
          RowBox[{"n", "^", "2"}]}], ")"}]}]}], "\[IndentingNewLine]", "}"}], 
     ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"8", "+", 
          RowBox[{"12", " ", "*", " ", 
           RowBox[{"n", "^", "2"}], "*", " ", 
           RowBox[{"t", "^", "2"}]}], "\[Minus]", 
          RowBox[{"8", "*", " ", 
           RowBox[{"Cos", "[", 
            RowBox[{"n", " ", "*", " ", "t"}], "]"}]}], "\[Minus]", 
          RowBox[{"24", "*", "n", "*", " ", "t", "*", " ", 
           RowBox[{"Sin", "[", 
            RowBox[{"n", " ", "*", " ", "t"}], "]"}]}], "+", 
          RowBox[{"9", " ", "*", 
           RowBox[{
            RowBox[{"Sin", "[", " ", 
             RowBox[{"n", " ", "*", " ", "t"}], "]"}], "^", "2"}]}]}], " ", 
         ")"}], "/", " ", 
        RowBox[{"(", 
         RowBox[{"2", " ", "*", " ", 
          RowBox[{"n", " ", "^", " ", "2"}]}], ")"}]}], ",", " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "2"}], "*", "n", " ", "*", " ", "t"}], " ", "+", " ", 
          
          RowBox[{"2", " ", "*", " ", 
           RowBox[{"Sin", "[", 
            RowBox[{"n", " ", "*", " ", "t"}], "]"}]}]}], ")"}], " ", "/", 
        " ", 
        RowBox[{"n", "^", "2"}]}], ",", " ", "0", ",", " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"26", " ", "*", " ", "n", " ", "*", " ", "t"}], " ", "-", 
          " ", 
          RowBox[{"32", " ", "*", " ", 
           RowBox[{"Sin", "[", 
            RowBox[{"n", " ", "*", " ", "t"}], "]"}]}], " ", "+", " ", 
          RowBox[{"3", " ", "*", " ", 
           RowBox[{"Sin", "[", 
            RowBox[{"2", " ", "*", " ", "n", " ", "*", " ", "t"}], "]"}]}]}], 
         ")"}], " ", "/", " ", 
        RowBox[{"(", 
         RowBox[{"4", " ", "*", " ", 
          RowBox[{"n", "^", "3"}]}], ")"}]}], ",", " ", 
       RowBox[{"3", " ", "*", " ", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", " ", "n"}], " ", "*", " ", "t"}], " ", "+", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"n", " ", "*", " ", "t"}], "]"}]}], ")"}], "^", "2"}], 
         "/", " ", 
         RowBox[{"n", " ", "^", " ", "3"}]}]}], ",", " ", "0"}], 
      "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"23", " ", "*", "n", " ", "*", " ", "t"}], "+", 
          RowBox[{"6", " ", "*", 
           RowBox[{"n", "^", "3"}], " ", "*", 
           RowBox[{"t", "^", "3"}]}], "+", 
          RowBox[{"42", "*", "n", "*", "t", "*", " ", 
           RowBox[{"Cos", "[", " ", 
            RowBox[{"n", " ", "*", " ", "t"}], "]"}]}], "\[Minus]", 
          RowBox[{"56", " ", "*", " ", 
           RowBox[{"Sin", "[", " ", 
            RowBox[{"n", " ", "*", " ", "t"}], "]"}]}], "\[Minus]", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"9", "/", "2"}], ")"}], " ", "*", " ", 
           RowBox[{"Sin", " ", "[", 
            RowBox[{"2", "*", "n", "*", "t"}], "]"}]}]}], ")"}], "/", 
        RowBox[{"n", "^", "2"}]}], ",", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"-", " ", "3"}], " ", "*", " ", 
         RowBox[{
          RowBox[{"t", "^", "2"}], " ", "/", " ", "2"}]}], " ", "+", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"4", " ", "-", " ", 
           RowBox[{"4", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"n", " ", "*", " ", "t"}], "]"}]}]}], ")"}], "/", 
         RowBox[{"n", " ", "^", " ", "2"}]}]}], ",", " ", "0", ",", " ", 
       RowBox[{"3", "*", " ", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "n"}], " ", "*", "t"}], " ", "+", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"n", " ", "*", " ", "t"}], "]"}]}], ")"}], "^", "2"}], 
         " ", "/", " ", 
         RowBox[{"n", "^", "3"}]}]}], ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"14", " ", "*", " ", "n", " ", "*", " ", "t"}], " ", "+", 
          " ", 
          RowBox[{"3", " ", "*", " ", 
           RowBox[{"n", "^", "3"}], " ", "*", " ", 
           RowBox[{"t", "^", "3"}]}], " ", "+", " ", 
          RowBox[{"24", " ", "*", " ", "n", " ", "*", " ", "t", " ", "*", " ", 
           RowBox[{"Cos", "[", 
            RowBox[{"n", " ", "*", " ", "t"}], "]"}]}], " ", "-", " ", 
          RowBox[{"32", " ", "*", " ", 
           RowBox[{"Sin", "[", 
            RowBox[{"n", " ", "*", " ", "t"}], "]"}]}], " ", "-", " ", 
          RowBox[{"3", " ", "*", " ", 
           RowBox[{"Sin", "[", " ", 
            RowBox[{"2", " ", "*", "n", " ", "*", "t"}], "]"}]}]}], ")"}], 
        " ", "/", " ", 
        RowBox[{"n", " ", "^", "3"}]}], " ", ",", " ", "0"}], " ", 
      "\[IndentingNewLine]", "}"}], ",", " ", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"0", ",", " ", "0", ",", "  ", 
       RowBox[{
        RowBox[{
         RowBox[{"Sin", "[", 
          RowBox[{"n", " ", "*", " ", "t"}], "]"}], " ", "^", " ", "2"}], " ",
         "/", " ", 
        RowBox[{"(", 
         RowBox[{"2", " ", "*", " ", 
          RowBox[{"n", "^", "2"}]}], ")"}]}], ",", " ", "0", ",", " ", "0", 
       ",", " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "*", " ", "n", " ", "*", " ", "t"}], " ", "-", 
          " ", 
          RowBox[{"Sin", "[", 
           RowBox[{"2", " ", "*", " ", "n", " ", "*", "t"}], " ", "]"}]}], 
         ")"}], " ", "/", " ", 
        RowBox[{"(", 
         RowBox[{"4", " ", "*", " ", 
          RowBox[{"n", "^", "3"}]}], ")"}]}]}], "\[IndentingNewLine]", 
      "}"}]}], "\[IndentingNewLine]", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"c", "[", "n_", "]"}], " ", "=", " ", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", " ", 
       RowBox[{
        RowBox[{"-", "2"}], "*", " ", "n"}], ",", " ", "0", ",", " ", "1", 
       ",", " ", "0", ",", " ", "0"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"2", " ", "*", " ", "n"}], ",", " ", "0", ",", " ", "0", ",", 
       " ", "0", ",", " ", "1", ",", " ", "0"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", "0", " ", ",", 
       " ", "1"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1"}], ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", 
       " ", "0", ",", " ", "0"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"0", ",", " ", 
       RowBox[{"-", "1"}], ",", " ", "0", ",", " ", "0", ",", "0", ",", "0"}],
       " ", "}"}], ",", " ", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"0", ",", " ", "0", ",", " ", 
       RowBox[{"-", "1"}], ",", " ", "0", ",", " ", "0", ",", " ", "0"}], " ",
       "}"}]}], "\[IndentingNewLine]", "}"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.915207400405731*^9, 3.9152074562786083`*^9}, {
   3.915207626986486*^9, 3.915207656770328*^9}, 3.915207701078247*^9, {
   3.9152077891815643`*^9, 3.915207914379712*^9}, {3.915207957997191*^9, 
   3.91520802734941*^9}, {3.915208060550067*^9, 3.915208359873516*^9}, {
   3.9152084456271563`*^9, 3.91520845352076*^9}, {3.9152084923691263`*^9, 
   3.915208493399199*^9}, {3.915208539284288*^9, 3.915208759959551*^9}, {
   3.915208860175782*^9, 3.9152089698807173`*^9}, {3.915209041110429*^9, 
   3.915209045809341*^9}, {3.915209077873567*^9, 3.9152091190250607`*^9}, {
   3.915209266448163*^9, 3.9152093994371433`*^9}, 3.91520945210252*^9, 
   3.915209484188558*^9, {3.91520951868909*^9, 3.915209522284071*^9}, {
   3.915209558104547*^9, 3.915209565091613*^9}, {3.915209661126911*^9, 
   3.915209667964457*^9}, {3.915209734454227*^9, 3.91520973615809*^9}, {
   3.915209844307173*^9, 3.915209849852386*^9}, {3.915209906684849*^9, 
   3.915209912246091*^9}, {3.915210073632641*^9, 3.915210082331007*^9}, {
   3.915210135796091*^9, 3.915210184256339*^9}, {3.915210264209553*^9, 
   3.915210271460771*^9}, {3.915210316333955*^9, 3.915210325613083*^9}, {
   3.915210396437333*^9, 3.915210454020884*^9}, {3.9152105291310253`*^9, 
   3.9152105482416487`*^9}, {3.9152105787230663`*^9, 3.915210717976399*^9}, {
   3.915210874643454*^9, 3.915210911334372*^9}, {3.915210980834712*^9, 
   3.915210992218297*^9}, 3.9152110447996397`*^9, {3.915211115551198*^9, 
   3.915211115665627*^9}, {3.915211191270122*^9, 3.915211240043332*^9}, {
   3.915211283317527*^9, 3.915211300327223*^9}, {3.915211354873315*^9, 
   3.915211367401425*^9}, {3.915211929827795*^9, 3.9152119496604147`*^9}, {
   3.915217737534236*^9, 3.9152177408826857`*^9}, {3.9152179276004343`*^9, 
   3.915217938632118*^9}, {3.9152180438753242`*^9, 3.915218062320715*^9}, {
   3.915218098349234*^9, 3.915218117957918*^9}, 3.915218553658494*^9, {
   3.9152198926596737`*^9, 3.915219914809917*^9}, {3.915220775364246*^9, 
   3.915220783504162*^9}, {3.915220820948245*^9, 3.915220821487267*^9}, {
   3.915221456471846*^9, 3.9152214849308023`*^9}, 3.915377527677445*^9, 
   3.915384990579211*^9, {3.915388038137292*^9, 3.9153880487537947`*^9}, {
   3.9165053970749483`*^9, 3.916505399481557*^9}},
 CellLabel->
  "In[1600]:=",ExpressionUUID->"efd9f47c-38e9-4c6e-a7b6-cec6d77c5959"],

Cell[BoxData[
 RowBox[{
  RowBox[{"B", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", " ", "0", ",", " ", "0"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"0", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"0", ",", " ", "0", ",", "0"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"1", ",", " ", "0", ",", " ", "0"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"0", ",", " ", "1", ",", " ", "0"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"0", ",", " ", "0", ",", " ", "1"}], "}"}]}], "}"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.9152098042360086`*^9, 3.915209821355462*^9}, {
   3.915220992786055*^9, 3.9152210100251904`*^9}, {3.915380292623567*^9, 
   3.9153803246509237`*^9}, {3.915381406192965*^9, 3.9153814063074417`*^9}, 
   3.915384988585099*^9, 3.916505424256966*^9},
 CellLabel->
  "In[1602]:=",ExpressionUUID->"59c84052-bf99-4950-81a3-f578015f1b7b"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.915221032778784*^9, 3.915221034206257*^9}, 
   3.915385004381506*^9, {3.915388043789607*^9, 3.915388044362475*^9}, {
   3.915388267180832*^9, 3.915388272665246*^9}, {3.91538861880009*^9, 
   3.915388673206418*^9}, {3.915388704764431*^9, 3.9153887237300797`*^9}, {
   3.915388897546788*^9, 3.915388921831174*^9}, {3.9153893681050034`*^9, 
   3.915389380055146*^9}, 3.916505347186*^9},
 CellLabel->
  "In[1603]:=",ExpressionUUID->"6a7661d3-3885-47e4-82db-00b0fe86f100"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"stm", "[", 
      RowBox[{"t_", ",", " ", "n_"}], "]"}], " ", "=", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"4", "-", 
          RowBox[{"3", " ", 
           RowBox[{"Cos", "[", 
            RowBox[{"n", " ", "t"}], "]"}]}]}], ",", "0", ",", "0", ",", 
         FractionBox[
          RowBox[{"Sin", "[", 
           RowBox[{"n", " ", "t"}], "]"}], "n"], ",", 
         FractionBox[
          RowBox[{"2", "-", 
           RowBox[{"2", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"n", " ", "t"}], "]"}]}]}], "n"], ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"6", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "n"}], " ", "t"}], "+", 
            RowBox[{"Sin", "[", 
             RowBox[{"n", " ", "t"}], "]"}]}], ")"}]}], ",", "1", ",", "0", 
         ",", 
         FractionBox[
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", 
             RowBox[{"Cos", "[", 
              RowBox[{"n", " ", "t"}], "]"}]}], ")"}]}], "n"], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "3"}], " ", "t"}], "+", 
          FractionBox[
           RowBox[{"4", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"n", " ", "t"}], "]"}]}], "n"]}], ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", 
         RowBox[{"Cos", "[", 
          RowBox[{"n", " ", "t"}], "]"}], ",", "0", ",", "0", ",", 
         FractionBox[
          RowBox[{"Sin", "[", 
           RowBox[{"n", " ", "t"}], "]"}], "n"]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"3", " ", "n", " ", 
          RowBox[{"Sin", "[", 
           RowBox[{"n", " ", "t"}], "]"}]}], ",", "0", ",", "0", ",", 
         RowBox[{"Cos", "[", 
          RowBox[{"n", " ", "t"}], "]"}], ",", 
         RowBox[{"2", " ", 
          RowBox[{"Sin", "[", 
           RowBox[{"n", " ", "t"}], "]"}]}], ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"6", " ", "n", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            RowBox[{"Cos", "[", 
             RowBox[{"n", " ", "t"}], "]"}]}], ")"}]}], ",", "0", ",", "0", 
         ",", 
         RowBox[{
          RowBox[{"-", "2"}], " ", 
          RowBox[{"Sin", "[", 
           RowBox[{"n", " ", "t"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"-", "3"}], "+", 
          RowBox[{"4", " ", 
           RowBox[{"Cos", "[", 
            RowBox[{"n", " ", "t"}], "]"}]}]}], ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", 
         RowBox[{
          RowBox[{"-", "n"}], " ", 
          RowBox[{"Sin", "[", 
           RowBox[{"n", " ", "t"}], "]"}]}], ",", "0", ",", "0", ",", 
         RowBox[{"Cos", "[", 
          RowBox[{"n", " ", "t"}], "]"}]}], "}"}]}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r", "[", 
     RowBox[{"t", ",", " ", "n"}], "]"}], " ", "//", " ", "MatrixForm"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"stm", "[", 
      RowBox[{"t", ",", "n"}], "]"}], " ", "//", " ", "MatrixForm"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"stminverse", "[", 
      RowBox[{"t_", ",", " ", "n_"}], "]"}], " ", "=", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         FractionBox[
          RowBox[{
           RowBox[{
            RowBox[{"-", "3"}], " ", 
            SuperscriptBox[
             RowBox[{"Cos", "[", 
              RowBox[{"n", " ", "t"}], "]"}], "3"]}], "+", 
           RowBox[{"4", " ", 
            SuperscriptBox[
             RowBox[{"Cos", "[", 
              RowBox[{"n", " ", "t"}], "]"}], "4"]}], "-", 
           RowBox[{"3", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"n", " ", "t"}], "]"}], " ", 
            SuperscriptBox[
             RowBox[{"Sin", "[", 
              RowBox[{"n", " ", "t"}], "]"}], "2"]}], "+", 
           RowBox[{"8", " ", 
            SuperscriptBox[
             RowBox[{"Cos", "[", 
              RowBox[{"n", " ", "t"}], "]"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"Sin", "[", 
              RowBox[{"n", " ", "t"}], "]"}], "2"]}], "+", 
           RowBox[{"4", " ", 
            SuperscriptBox[
             RowBox[{"Sin", "[", 
              RowBox[{"n", " ", "t"}], "]"}], "4"]}]}], 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Cos", "[", 
             RowBox[{"n", " ", "t"}], "]"}], "4"], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{"Cos", "[", 
              RowBox[{"n", " ", "t"}], "]"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"Sin", "[", 
              RowBox[{"n", " ", "t"}], "]"}], "2"]}], "+", 
           SuperscriptBox[
            RowBox[{"Sin", "[", 
             RowBox[{"n", " ", "t"}], "]"}], "4"]}]], ",", "0", ",", "0", ",", 
         FractionBox[
          RowBox[{
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              SuperscriptBox[
               RowBox[{"Cos", "[", 
                RowBox[{"n", " ", "t"}], "]"}], "2"], " ", 
              RowBox[{"Sin", "[", 
               RowBox[{"n", " ", "t"}], "]"}]}], "n"]}], "-", 
           FractionBox[
            SuperscriptBox[
             RowBox[{"Sin", "[", 
              RowBox[{"n", " ", "t"}], "]"}], "3"], "n"]}], 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Cos", "[", 
             RowBox[{"n", " ", "t"}], "]"}], "4"], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{"Cos", "[", 
              RowBox[{"n", " ", "t"}], "]"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"Sin", "[", 
              RowBox[{"n", " ", "t"}], "]"}], "2"]}], "+", 
           SuperscriptBox[
            RowBox[{"Sin", "[", 
             RowBox[{"n", " ", "t"}], "]"}], "4"]}]], ",", 
         FractionBox[
          RowBox[{
           RowBox[{"-", 
            FractionBox[
             RowBox[{"2", " ", 
              SuperscriptBox[
               RowBox[{"Cos", "[", 
                RowBox[{"n", " ", "t"}], "]"}], "3"]}], "n"]}], "+", 
           FractionBox[
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"Cos", "[", 
               RowBox[{"n", " ", "t"}], "]"}], "4"]}], "n"], "-", 
           FractionBox[
            RowBox[{"2", " ", 
             RowBox[{"Cos", "[", 
              RowBox[{"n", " ", "t"}], "]"}], " ", 
             SuperscriptBox[
              RowBox[{"Sin", "[", 
               RowBox[{"n", " ", "t"}], "]"}], "2"]}], "n"], "+", 
           FractionBox[
            RowBox[{"4", " ", 
             SuperscriptBox[
              RowBox[{"Cos", "[", 
               RowBox[{"n", " ", "t"}], "]"}], "2"], " ", 
             SuperscriptBox[
              RowBox[{"Sin", "[", 
               RowBox[{"n", " ", "t"}], "]"}], "2"]}], "n"], "+", 
           FractionBox[
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"Sin", "[", 
               RowBox[{"n", " ", "t"}], "]"}], "4"]}], "n"]}], 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Cos", "[", 
             RowBox[{"n", " ", "t"}], "]"}], "4"], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{"Cos", "[", 
              RowBox[{"n", " ", "t"}], "]"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"Sin", "[", 
              RowBox[{"n", " ", "t"}], "]"}], "2"]}], "+", 
           SuperscriptBox[
            RowBox[{"Sin", "[", 
             RowBox[{"n", " ", "t"}], "]"}], "4"]}]], ",", "0"}], "}"}], ",", 
       
       RowBox[{"{", 
        RowBox[{
         FractionBox[
          RowBox[{
           RowBox[{"6", " ", "n", " ", "t", " ", 
            SuperscriptBox[
             RowBox[{"Cos", "[", 
              RowBox[{"n", " ", "t"}], "]"}], "4"]}], "-", 
           RowBox[{"6", " ", 
            SuperscriptBox[
             RowBox[{"Cos", "[", 
              RowBox[{"n", " ", "t"}], "]"}], "2"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"n", " ", "t"}], "]"}]}], "+", 
           RowBox[{"12", " ", "n", " ", "t", " ", 
            SuperscriptBox[
             RowBox[{"Cos", "[", 
              RowBox[{"n", " ", "t"}], "]"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"Sin", "[", 
              RowBox[{"n", " ", "t"}], "]"}], "2"]}], "-", 
           RowBox[{"6", " ", 
            SuperscriptBox[
             RowBox[{"Sin", "[", 
              RowBox[{"n", " ", "t"}], "]"}], "3"]}], "+", 
           RowBox[{"6", " ", "n", " ", "t", " ", 
            SuperscriptBox[
             RowBox[{"Sin", "[", 
              RowBox[{"n", " ", "t"}], "]"}], "4"]}]}], 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Cos", "[", 
             RowBox[{"n", " ", "t"}], "]"}], "4"], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{"Cos", "[", 
              RowBox[{"n", " ", "t"}], "]"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"Sin", "[", 
              RowBox[{"n", " ", "t"}], "]"}], "2"]}], "+", 
           SuperscriptBox[
            RowBox[{"Sin", "[", 
             RowBox[{"n", " ", "t"}], "]"}], "4"]}]], ",", "1", ",", "0", ",", 
         FractionBox[
          RowBox[{
           FractionBox[
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"Cos", "[", 
               RowBox[{"n", " ", "t"}], "]"}], "3"]}], "n"], "-", 
           FractionBox[
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"Cos", "[", 
               RowBox[{"n", " ", "t"}], "]"}], "4"]}], "n"], "+", 
           FractionBox[
            RowBox[{"2", " ", 
             RowBox[{"Cos", "[", 
              RowBox[{"n", " ", "t"}], "]"}], " ", 
             SuperscriptBox[
              RowBox[{"Sin", "[", 
               RowBox[{"n", " ", "t"}], "]"}], "2"]}], "n"], "-", 
           FractionBox[
            RowBox[{"4", " ", 
             SuperscriptBox[
              RowBox[{"Cos", "[", 
               RowBox[{"n", " ", "t"}], "]"}], "2"], " ", 
             SuperscriptBox[
              RowBox[{"Sin", "[", 
               RowBox[{"n", " ", "t"}], "]"}], "2"]}], "n"], "-", 
           FractionBox[
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"Sin", "[", 
               RowBox[{"n", " ", "t"}], "]"}], "4"]}], "n"]}], 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Cos", "[", 
             RowBox[{"n", " ", "t"}], "]"}], "4"], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{"Cos", "[", 
              RowBox[{"n", " ", "t"}], "]"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"Sin", "[", 
              RowBox[{"n", " ", "t"}], "]"}], "2"]}], "+", 
           SuperscriptBox[
            RowBox[{"Sin", "[", 
             RowBox[{"n", " ", "t"}], "]"}], "4"]}]], ",", 
         FractionBox[
          RowBox[{
           RowBox[{"3", " ", "t", " ", 
            SuperscriptBox[
             RowBox[{"Cos", "[", 
              RowBox[{"n", " ", "t"}], "]"}], "4"]}], "-", 
           FractionBox[
            RowBox[{"4", " ", 
             SuperscriptBox[
              RowBox[{"Cos", "[", 
               RowBox[{"n", " ", "t"}], "]"}], "2"], " ", 
             RowBox[{"Sin", "[", 
              RowBox[{"n", " ", "t"}], "]"}]}], "n"], "+", 
           RowBox[{"6", " ", "t", " ", 
            SuperscriptBox[
             RowBox[{"Cos", "[", 
              RowBox[{"n", " ", "t"}], "]"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"Sin", "[", 
              RowBox[{"n", " ", "t"}], "]"}], "2"]}], "-", 
           FractionBox[
            RowBox[{"4", " ", 
             SuperscriptBox[
              RowBox[{"Sin", "[", 
               RowBox[{"n", " ", "t"}], "]"}], "3"]}], "n"], "+", 
           RowBox[{"3", " ", "t", " ", 
            SuperscriptBox[
             RowBox[{"Sin", "[", 
              RowBox[{"n", " ", "t"}], "]"}], "4"]}]}], 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Cos", "[", 
             RowBox[{"n", " ", "t"}], "]"}], "4"], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{"Cos", "[", 
              RowBox[{"n", " ", "t"}], "]"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"Sin", "[", 
              RowBox[{"n", " ", "t"}], "]"}], "2"]}], "+", 
           SuperscriptBox[
            RowBox[{"Sin", "[", 
             RowBox[{"n", " ", "t"}], "]"}], "4"]}]], ",", "0"}], "}"}], ",", 
       
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", 
         FractionBox[
          RowBox[{
           SuperscriptBox[
            RowBox[{"Cos", "[", 
             RowBox[{"n", " ", "t"}], "]"}], "3"], "+", 
           RowBox[{
            RowBox[{"Cos", "[", 
             RowBox[{"n", " ", "t"}], "]"}], " ", 
            SuperscriptBox[
             RowBox[{"Sin", "[", 
              RowBox[{"n", " ", "t"}], "]"}], "2"]}]}], 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Cos", "[", 
             RowBox[{"n", " ", "t"}], "]"}], "4"], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{"Cos", "[", 
              RowBox[{"n", " ", "t"}], "]"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"Sin", "[", 
              RowBox[{"n", " ", "t"}], "]"}], "2"]}], "+", 
           SuperscriptBox[
            RowBox[{"Sin", "[", 
             RowBox[{"n", " ", "t"}], "]"}], "4"]}]], ",", "0", ",", "0", ",", 
         FractionBox[
          RowBox[{
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              SuperscriptBox[
               RowBox[{"Cos", "[", 
                RowBox[{"n", " ", "t"}], "]"}], "2"], " ", 
              RowBox[{"Sin", "[", 
               RowBox[{"n", " ", "t"}], "]"}]}], "n"]}], "-", 
           FractionBox[
            SuperscriptBox[
             RowBox[{"Sin", "[", 
              RowBox[{"n", " ", "t"}], "]"}], "3"], "n"]}], 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Cos", "[", 
             RowBox[{"n", " ", "t"}], "]"}], "4"], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{"Cos", "[", 
              RowBox[{"n", " ", "t"}], "]"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"Sin", "[", 
              RowBox[{"n", " ", "t"}], "]"}], "2"]}], "+", 
           SuperscriptBox[
            RowBox[{"Sin", "[", 
             RowBox[{"n", " ", "t"}], "]"}], "4"]}]]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         FractionBox[
          RowBox[{
           RowBox[{
            RowBox[{"-", "3"}], " ", "n", " ", 
            SuperscriptBox[
             RowBox[{"Cos", "[", 
              RowBox[{"n", " ", "t"}], "]"}], "2"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"n", " ", "t"}], "]"}]}], "-", 
           RowBox[{"3", " ", "n", " ", 
            SuperscriptBox[
             RowBox[{"Sin", "[", 
              RowBox[{"n", " ", "t"}], "]"}], "3"]}]}], 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Cos", "[", 
             RowBox[{"n", " ", "t"}], "]"}], "4"], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{"Cos", "[", 
              RowBox[{"n", " ", "t"}], "]"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"Sin", "[", 
              RowBox[{"n", " ", "t"}], "]"}], "2"]}], "+", 
           SuperscriptBox[
            RowBox[{"Sin", "[", 
             RowBox[{"n", " ", "t"}], "]"}], "4"]}]], ",", "0", ",", "0", ",", 
         FractionBox[
          RowBox[{
           SuperscriptBox[
            RowBox[{"Cos", "[", 
             RowBox[{"n", " ", "t"}], "]"}], "3"], "+", 
           RowBox[{
            RowBox[{"Cos", "[", 
             RowBox[{"n", " ", "t"}], "]"}], " ", 
            SuperscriptBox[
             RowBox[{"Sin", "[", 
              RowBox[{"n", " ", "t"}], "]"}], "2"]}]}], 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Cos", "[", 
             RowBox[{"n", " ", "t"}], "]"}], "4"], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{"Cos", "[", 
              RowBox[{"n", " ", "t"}], "]"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"Sin", "[", 
              RowBox[{"n", " ", "t"}], "]"}], "2"]}], "+", 
           SuperscriptBox[
            RowBox[{"Sin", "[", 
             RowBox[{"n", " ", "t"}], "]"}], "4"]}]], ",", 
         FractionBox[
          RowBox[{
           RowBox[{
            RowBox[{"-", "2"}], " ", 
            SuperscriptBox[
             RowBox[{"Cos", "[", 
              RowBox[{"n", " ", "t"}], "]"}], "2"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"n", " ", "t"}], "]"}]}], "-", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{"Sin", "[", 
              RowBox[{"n", " ", "t"}], "]"}], "3"]}]}], 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Cos", "[", 
             RowBox[{"n", " ", "t"}], "]"}], "4"], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{"Cos", "[", 
              RowBox[{"n", " ", "t"}], "]"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"Sin", "[", 
              RowBox[{"n", " ", "t"}], "]"}], "2"]}], "+", 
           SuperscriptBox[
            RowBox[{"Sin", "[", 
             RowBox[{"n", " ", "t"}], "]"}], "4"]}]], ",", "0"}], "}"}], ",", 
       
       RowBox[{"{", 
        RowBox[{
         FractionBox[
          RowBox[{
           RowBox[{"6", " ", "n", " ", 
            SuperscriptBox[
             RowBox[{"Cos", "[", 
              RowBox[{"n", " ", "t"}], "]"}], "3"]}], "-", 
           RowBox[{"6", " ", "n", " ", 
            SuperscriptBox[
             RowBox[{"Cos", "[", 
              RowBox[{"n", " ", "t"}], "]"}], "4"]}], "+", 
           RowBox[{"6", " ", "n", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"n", " ", "t"}], "]"}], " ", 
            SuperscriptBox[
             RowBox[{"Sin", "[", 
              RowBox[{"n", " ", "t"}], "]"}], "2"]}], "-", 
           RowBox[{"12", " ", "n", " ", 
            SuperscriptBox[
             RowBox[{"Cos", "[", 
              RowBox[{"n", " ", "t"}], "]"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"Sin", "[", 
              RowBox[{"n", " ", "t"}], "]"}], "2"]}], "-", 
           RowBox[{"6", " ", "n", " ", 
            SuperscriptBox[
             RowBox[{"Sin", "[", 
              RowBox[{"n", " ", "t"}], "]"}], "4"]}]}], 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Cos", "[", 
             RowBox[{"n", " ", "t"}], "]"}], "4"], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{"Cos", "[", 
              RowBox[{"n", " ", "t"}], "]"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"Sin", "[", 
              RowBox[{"n", " ", "t"}], "]"}], "2"]}], "+", 
           SuperscriptBox[
            RowBox[{"Sin", "[", 
             RowBox[{"n", " ", "t"}], "]"}], "4"]}]], ",", "0", ",", "0", ",", 
         FractionBox[
          RowBox[{
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{"Cos", "[", 
              RowBox[{"n", " ", "t"}], "]"}], "2"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"n", " ", "t"}], "]"}]}], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{"Sin", "[", 
              RowBox[{"n", " ", "t"}], "]"}], "3"]}]}], 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Cos", "[", 
             RowBox[{"n", " ", "t"}], "]"}], "4"], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{"Cos", "[", 
              RowBox[{"n", " ", "t"}], "]"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"Sin", "[", 
              RowBox[{"n", " ", "t"}], "]"}], "2"]}], "+", 
           SuperscriptBox[
            RowBox[{"Sin", "[", 
             RowBox[{"n", " ", "t"}], "]"}], "4"]}]], ",", 
         FractionBox[
          RowBox[{
           RowBox[{"4", " ", 
            SuperscriptBox[
             RowBox[{"Cos", "[", 
              RowBox[{"n", " ", "t"}], "]"}], "3"]}], "-", 
           RowBox[{"3", " ", 
            SuperscriptBox[
             RowBox[{"Cos", "[", 
              RowBox[{"n", " ", "t"}], "]"}], "4"]}], "+", 
           RowBox[{"4", " ", 
            RowBox[{"Cos", "[", 
             RowBox[{"n", " ", "t"}], "]"}], " ", 
            SuperscriptBox[
             RowBox[{"Sin", "[", 
              RowBox[{"n", " ", "t"}], "]"}], "2"]}], "-", 
           RowBox[{"6", " ", 
            SuperscriptBox[
             RowBox[{"Cos", "[", 
              RowBox[{"n", " ", "t"}], "]"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"Sin", "[", 
              RowBox[{"n", " ", "t"}], "]"}], "2"]}], "-", 
           RowBox[{"3", " ", 
            SuperscriptBox[
             RowBox[{"Sin", "[", 
              RowBox[{"n", " ", "t"}], "]"}], "4"]}]}], 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Cos", "[", 
             RowBox[{"n", " ", "t"}], "]"}], "4"], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{"Cos", "[", 
              RowBox[{"n", " ", "t"}], "]"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"Sin", "[", 
              RowBox[{"n", " ", "t"}], "]"}], "2"]}], "+", 
           SuperscriptBox[
            RowBox[{"Sin", "[", 
             RowBox[{"n", " ", "t"}], "]"}], "4"]}]], ",", "0"}], "}"}], ",", 
       
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", 
         FractionBox[
          RowBox[{
           RowBox[{"n", " ", 
            SuperscriptBox[
             RowBox[{"Cos", "[", 
              RowBox[{"n", " ", "t"}], "]"}], "2"], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"n", " ", "t"}], "]"}]}], "+", 
           RowBox[{"n", " ", 
            SuperscriptBox[
             RowBox[{"Sin", "[", 
              RowBox[{"n", " ", "t"}], "]"}], "3"]}]}], 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Cos", "[", 
             RowBox[{"n", " ", "t"}], "]"}], "4"], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{"Cos", "[", 
              RowBox[{"n", " ", "t"}], "]"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"Sin", "[", 
              RowBox[{"n", " ", "t"}], "]"}], "2"]}], "+", 
           SuperscriptBox[
            RowBox[{"Sin", "[", 
             RowBox[{"n", " ", "t"}], "]"}], "4"]}]], ",", "0", ",", "0", ",", 
         FractionBox[
          RowBox[{
           SuperscriptBox[
            RowBox[{"Cos", "[", 
             RowBox[{"n", " ", "t"}], "]"}], "3"], "+", 
           RowBox[{
            RowBox[{"Cos", "[", 
             RowBox[{"n", " ", "t"}], "]"}], " ", 
            SuperscriptBox[
             RowBox[{"Sin", "[", 
              RowBox[{"n", " ", "t"}], "]"}], "2"]}]}], 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Cos", "[", 
             RowBox[{"n", " ", "t"}], "]"}], "4"], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{"Cos", "[", 
              RowBox[{"n", " ", "t"}], "]"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"Sin", "[", 
              RowBox[{"n", " ", "t"}], "]"}], "2"]}], "+", 
           SuperscriptBox[
            RowBox[{"Sin", "[", 
             RowBox[{"n", " ", "t"}], "]"}], "4"]}]]}], "}"}]}], "}"}]}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"r", "[", 
      RowBox[{"t", ",", " ", "n"}], "]"}], "  ", "//", " ", "MatrixForm"}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"c", "[", "n", "]"}], " ", "//", " ", "MatrixForm"}], 
    ";"}]}]}]], "Input",
 CellChangeTimes->{{3.915217744446987*^9, 3.915217753730588*^9}, {
   3.915217863884224*^9, 3.915217925906679*^9}, {3.915218070513467*^9, 
   3.915218072529118*^9}, {3.915218129082494*^9, 3.915218207117037*^9}, {
   3.9152183979494467`*^9, 3.9152184272635517`*^9}, {3.915218470624608*^9, 
   3.915218491349223*^9}, {3.915218560896593*^9, 3.915218561929001*^9}, {
   3.9152186171482353`*^9, 3.915218624691762*^9}, {3.915218860164674*^9, 
   3.9152188608791113`*^9}, {3.915218903036808*^9, 3.915218923187241*^9}, {
   3.915218967002554*^9, 3.9152190037267437`*^9}, {3.915219048969636*^9, 
   3.9152191372057858`*^9}, {3.9152192019432907`*^9, 
   3.9152192191528397`*^9}, {3.915219250884112*^9, 3.915219264403941*^9}, {
   3.915219303526249*^9, 3.9152193513763742`*^9}, {3.9152195072341003`*^9, 
   3.915219530986082*^9}, {3.915219626216835*^9, 3.915219639261629*^9}, {
   3.915219717916738*^9, 3.9152197183489237`*^9}, {3.915219904453231*^9, 
   3.915219961984846*^9}, {3.9152200066101627`*^9, 3.9152200558077908`*^9}, {
   3.9152200966791763`*^9, 3.915220134152783*^9}, {3.9152201933227367`*^9, 
   3.915220194814374*^9}, {3.915220378602742*^9, 3.9152203797072973`*^9}, {
   3.915220616709903*^9, 3.915220624167461*^9}, {3.9152210287302017`*^9, 
   3.915221030152667*^9}, {3.9152722639412403`*^9, 3.915272267430462*^9}, {
   3.915374075751082*^9, 3.915374086841331*^9}, {3.9153741399218273`*^9, 
   3.9153741646496572`*^9}, {3.915375093982973*^9, 3.91537512671392*^9}, {
   3.915377339070612*^9, 3.915377340023732*^9}, 3.915385003259975*^9, 
   3.915387715363372*^9, 3.915387757934074*^9, {3.915387885153468*^9, 
   3.915387977175515*^9}, {3.91538801749713*^9, 3.915388032614285*^9}, {
   3.915388068720374*^9, 3.915388078409226*^9}, {3.915388262682023*^9, 
   3.915388265681432*^9}, {3.915388609804014*^9, 3.9153886114063673`*^9}, {
   3.9153887402044373`*^9, 3.915388792167823*^9}, {3.915388883560367*^9, 
   3.9153888836912193`*^9}, 3.915388992137732*^9, 3.9153893719197598`*^9, 
   3.915389407167961*^9, {3.9165054361659803`*^9, 3.91650548711152*^9}, 
   3.916506600039187*^9, 3.916507161530099*^9, {3.916522167937929*^9, 
   3.916522174629191*^9}},
 CellLabel->
  "In[1604]:=",ExpressionUUID->"199f22b4-8f91-432b-836b-de5c4914d6c9"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{
       RowBox[{"72", " ", "t", " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"n", " ", "t"}], "]"}]}], "+", 
       FractionBox[
        RowBox[{
         RowBox[{"154", " ", "n", " ", "t"}], "+", 
         RowBox[{"48", " ", 
          SuperscriptBox["n", "3"], " ", 
          SuperscriptBox["t", "3"]}], "-", 
         RowBox[{"384", " ", 
          RowBox[{"Sin", "[", 
           RowBox[{"n", " ", "t"}], "]"}]}], "-", 
         RowBox[{"27", " ", 
          RowBox[{"Sin", "[", 
           RowBox[{"2", " ", "n", " ", "t"}], "]"}]}]}], 
        RowBox[{"4", " ", "n"}]]}], 
      RowBox[{
       RowBox[{
        RowBox[{"-", "3"}], " ", "n", " ", 
        SuperscriptBox["t", "2"]}], "+", 
       FractionBox[
        RowBox[{"6", "-", 
         RowBox[{"6", " ", 
          RowBox[{"Cos", "[", 
           RowBox[{"n", " ", "t"}], "]"}]}]}], "n"]}], "0", 
      FractionBox[
       RowBox[{"8", "+", 
        RowBox[{"12", " ", 
         SuperscriptBox["n", "2"], " ", 
         SuperscriptBox["t", "2"]}], "-", 
        RowBox[{"8", " ", 
         RowBox[{"Cos", "[", 
          RowBox[{"n", " ", "t"}], "]"}]}], "-", 
        RowBox[{"24", " ", "n", " ", "t", " ", 
         RowBox[{"Sin", "[", 
          RowBox[{"n", " ", "t"}], "]"}]}], "+", 
        RowBox[{"9", " ", 
         SuperscriptBox[
          RowBox[{"Sin", "[", 
           RowBox[{"n", " ", "t"}], "]"}], "2"]}]}], 
       RowBox[{"2", " ", 
        SuperscriptBox["n", "2"]}]], 
      FractionBox[
       RowBox[{
        RowBox[{"23", " ", "n", " ", "t"}], "+", 
        RowBox[{"6", " ", 
         SuperscriptBox["n", "3"], " ", 
         SuperscriptBox["t", "3"]}], "+", 
        RowBox[{"42", " ", "n", " ", "t", " ", 
         RowBox[{"Cos", "[", 
          RowBox[{"n", " ", "t"}], "]"}]}], "-", 
        RowBox[{"56", " ", 
         RowBox[{"Sin", "[", 
          RowBox[{"n", " ", "t"}], "]"}]}], "-", 
        RowBox[{
         FractionBox["9", "2"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{"2", " ", "n", " ", "t"}], "]"}]}]}], 
       SuperscriptBox["n", "2"]], "0"},
     {
      RowBox[{
       RowBox[{
        RowBox[{"-", "3"}], " ", "n", " ", 
        SuperscriptBox["t", "2"]}], "+", 
       FractionBox[
        RowBox[{"6", "-", 
         RowBox[{"6", " ", 
          RowBox[{"Cos", "[", 
           RowBox[{"n", " ", "t"}], "]"}]}]}], "n"]}], "t", "0", 
      FractionBox[
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], " ", "n", " ", "t"}], "+", 
        RowBox[{"2", " ", 
         RowBox[{"Sin", "[", 
          RowBox[{"n", " ", "t"}], "]"}]}]}], 
       SuperscriptBox["n", "2"]], 
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         RowBox[{"3", " ", 
          SuperscriptBox["t", "2"]}], "2"]}], "+", 
       FractionBox[
        RowBox[{"4", "-", 
         RowBox[{"4", " ", 
          RowBox[{"Cos", "[", 
           RowBox[{"n", " ", "t"}], "]"}]}]}], 
        SuperscriptBox["n", "2"]]}], "0"},
     {"0", "0", 
      FractionBox[
       RowBox[{
        RowBox[{"2", " ", "n", " ", "t"}], "+", 
        RowBox[{"Sin", "[", 
         RowBox[{"2", " ", "n", " ", "t"}], "]"}]}], 
       RowBox[{"4", " ", "n"}]], "0", "0", 
      FractionBox[
       SuperscriptBox[
        RowBox[{"Sin", "[", 
         RowBox[{"n", " ", "t"}], "]"}], "2"], 
       RowBox[{"2", " ", 
        SuperscriptBox["n", "2"]}]]},
     {
      FractionBox[
       RowBox[{"8", "+", 
        RowBox[{"12", " ", 
         SuperscriptBox["n", "2"], " ", 
         SuperscriptBox["t", "2"]}], "-", 
        RowBox[{"8", " ", 
         RowBox[{"Cos", "[", 
          RowBox[{"n", " ", "t"}], "]"}]}], "-", 
        RowBox[{"24", " ", "n", " ", "t", " ", 
         RowBox[{"Sin", "[", 
          RowBox[{"n", " ", "t"}], "]"}]}], "+", 
        RowBox[{"9", " ", 
         SuperscriptBox[
          RowBox[{"Sin", "[", 
           RowBox[{"n", " ", "t"}], "]"}], "2"]}]}], 
       RowBox[{"2", " ", 
        SuperscriptBox["n", "2"]}]], 
      FractionBox[
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], " ", "n", " ", "t"}], "+", 
        RowBox[{"2", " ", 
         RowBox[{"Sin", "[", 
          RowBox[{"n", " ", "t"}], "]"}]}]}], 
       SuperscriptBox["n", "2"]], "0", 
      FractionBox[
       RowBox[{
        RowBox[{"26", " ", "n", " ", "t"}], "-", 
        RowBox[{"32", " ", 
         RowBox[{"Sin", "[", 
          RowBox[{"n", " ", "t"}], "]"}]}], "+", 
        RowBox[{"3", " ", 
         RowBox[{"Sin", "[", 
          RowBox[{"2", " ", "n", " ", "t"}], "]"}]}]}], 
       RowBox[{"4", " ", 
        SuperscriptBox["n", "3"]}]], 
      FractionBox[
       RowBox[{"3", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "n"}], " ", "t"}], "+", 
           RowBox[{"Sin", "[", 
            RowBox[{"n", " ", "t"}], "]"}]}], ")"}], "2"]}], 
       SuperscriptBox["n", "3"]], "0"},
     {
      FractionBox[
       RowBox[{
        RowBox[{"23", " ", "n", " ", "t"}], "+", 
        RowBox[{"6", " ", 
         SuperscriptBox["n", "3"], " ", 
         SuperscriptBox["t", "3"]}], "+", 
        RowBox[{"42", " ", "n", " ", "t", " ", 
         RowBox[{"Cos", "[", 
          RowBox[{"n", " ", "t"}], "]"}]}], "-", 
        RowBox[{"56", " ", 
         RowBox[{"Sin", "[", 
          RowBox[{"n", " ", "t"}], "]"}]}], "-", 
        RowBox[{
         FractionBox["9", "2"], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{"2", " ", "n", " ", "t"}], "]"}]}]}], 
       SuperscriptBox["n", "2"]], 
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         RowBox[{"3", " ", 
          SuperscriptBox["t", "2"]}], "2"]}], "+", 
       FractionBox[
        RowBox[{"4", "-", 
         RowBox[{"4", " ", 
          RowBox[{"Cos", "[", 
           RowBox[{"n", " ", "t"}], "]"}]}]}], 
        SuperscriptBox["n", "2"]]}], "0", 
      FractionBox[
       RowBox[{"3", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "n"}], " ", "t"}], "+", 
           RowBox[{"Sin", "[", 
            RowBox[{"n", " ", "t"}], "]"}]}], ")"}], "2"]}], 
       SuperscriptBox["n", "3"]], 
      FractionBox[
       RowBox[{
        RowBox[{"14", " ", "n", " ", "t"}], "+", 
        RowBox[{"3", " ", 
         SuperscriptBox["n", "3"], " ", 
         SuperscriptBox["t", "3"]}], "+", 
        RowBox[{"24", " ", "n", " ", "t", " ", 
         RowBox[{"Cos", "[", 
          RowBox[{"n", " ", "t"}], "]"}]}], "-", 
        RowBox[{"32", " ", 
         RowBox[{"Sin", "[", 
          RowBox[{"n", " ", "t"}], "]"}]}], "-", 
        RowBox[{"3", " ", 
         RowBox[{"Sin", "[", 
          RowBox[{"2", " ", "n", " ", "t"}], "]"}]}]}], 
       SuperscriptBox["n", "3"]], "0"},
     {"0", "0", 
      FractionBox[
       SuperscriptBox[
        RowBox[{"Sin", "[", 
         RowBox[{"n", " ", "t"}], "]"}], "2"], 
       RowBox[{"2", " ", 
        SuperscriptBox["n", "2"]}]], "0", "0", 
      FractionBox[
       RowBox[{
        RowBox[{"2", " ", "n", " ", "t"}], "-", 
        RowBox[{"Sin", "[", 
         RowBox[{"2", " ", "n", " ", "t"}], "]"}]}], 
       RowBox[{"4", " ", 
        SuperscriptBox["n", "3"]}]]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.916682424980682*^9, 3.9168428326561327`*^9},
 CellLabel->
  "Out[1605]//MatrixForm=",ExpressionUUID->"d6586295-1c7e-4e5b-a58c-\
fcdd4043a5ef"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"bbt", " ", "=", " ", 
    RowBox[{"B", ".", " ", 
     RowBox[{"(", 
      RowBox[{"B", " ", "//", " ", "Transpose"}], ")"}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"a", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a11", ",", "a12", ",", " ", "a13"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"a21", ",", "a22", ",", " ", "a23"}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"b", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"b11", ",", " ", "b12", ",", " ", "b13"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"b21", ",", " ", "b22", ",", " ", "b23"}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"a", " ", "//", " ", "MatrixForm"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Join", "[", 
   RowBox[{"a", ",", " ", "b", ",", "2"}], "]"}], "  ", "//", " ", 
  "MatrixForm"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"{", 
   RowBox[{"1", ",", " ", "2", ",", "3"}], " ", "}"}], " ", "//", " ", 
  "MatrixForm"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"{", 
   RowBox[{"Join", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "]"}], "}"}], " ", "//", 
  " ", "MatrixForm"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Join", "[", 
   RowBox[{
    RowBox[{"Inverse", "[", 
     RowBox[{"stm", "[", 
      RowBox[{"t0", ",", " ", "n"}], "]"}], "]"}], ",", " ", 
    RowBox[{"-", " ", 
     RowBox[{"Inverse", "[", 
      RowBox[{"stm", "[", 
       RowBox[{"tf", ",", " ", "n"}], "]"}], "]"}]}], ",", " ", "2"}], "]"}], 
  ";"}]}], "Input",
 CellChangeTimes->{
  3.915387791220331*^9, {3.916505729702862*^9, 3.916505746242546*^9}, 
   3.916505860068769*^9, {3.916677160285859*^9, 3.916677189301216*^9}, {
   3.916677231151286*^9, 3.916677317546492*^9}, {3.9166776130393343`*^9, 
   3.916677629833579*^9}, {3.916677680540081*^9, 3.916677691174547*^9}, {
   3.916677728164399*^9, 3.916677734604381*^9}, {3.9166777971119843`*^9, 
   3.916677841756145*^9}, {3.916677873020569*^9, 3.916677932534731*^9}, {
   3.91667796709088*^9, 3.9166780409177723`*^9}, {3.91667818597519*^9, 
   3.916678220001643*^9}, {3.916678379755362*^9, 3.916678398225618*^9}, {
   3.916678451559503*^9, 3.916678458409504*^9}, 3.9166785071155243`*^9, {
   3.9166787065575037`*^9, 3.916678707107478*^9}, {3.916678785631927*^9, 
   3.916678806147393*^9}, {3.916681971892021*^9, 3.9166820317297*^9}},
 NumberMarks->False,
 CellLabel->
  "In[1610]:=",ExpressionUUID->"0def9b0b-e42f-4e7e-b8b2-57ca94775a30"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"a11", "a12", "a13"},
     {"a21", "a22", "a23"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.916682424987207*^9, 3.9168428326631603`*^9},
 CellLabel->
  "Out[1613]//MatrixForm=",ExpressionUUID->"fca1d227-f555-412c-b551-\
e858b7548ff2"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"a11", "a12", "a13", "b11", "b12", "b13"},
     {"a21", "a22", "a23", "b21", "b22", "b23"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.916682424987207*^9, 3.916842832665069*^9},
 CellLabel->
  "Out[1614]//MatrixForm=",ExpressionUUID->"8fbac16f-09bb-4530-bcb1-\
417883c79366"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", 
   TagBox[GridBox[{
      {"1"},
      {"2"},
      {"3"}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}],
    Column], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.916682424987207*^9, 3.916842832666873*^9},
 CellLabel->
  "Out[1615]//MatrixForm=",ExpressionUUID->"16146563-1c27-4a49-90ca-\
f40871683d01"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "2", "3", "4", "5", "6"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.916682424987207*^9, 3.916842832668499*^9},
 CellLabel->
  "Out[1616]//MatrixForm=",ExpressionUUID->"78787a6e-d2e1-4e30-b85e-\
6c7518790903"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"nmat", "[", 
    RowBox[{"tf_", ",", " ", "t0_", ",", " ", "n_"}], "]"}], " ", ":=", " ", 
   RowBox[{
    RowBox[{"Transpose", "[", 
     RowBox[{"Join", "[", 
      RowBox[{
       RowBox[{"Inverse", "[", 
        RowBox[{"stm", "[", 
         RowBox[{"t0", ",", " ", "n"}], "]"}], "]"}], ",", " ", 
       RowBox[{"-", " ", 
        RowBox[{"Inverse", "[", 
         RowBox[{"stm", "[", 
          RowBox[{"tf", ",", " ", "n"}], "]"}], "]"}]}], ",", " ", "2"}], 
      "]"}], "]"}], ".", 
    RowBox[{"Transpose", "[", 
     RowBox[{"c", "[", "n", "]"}], "]"}], ".", 
    RowBox[{"Inverse", "[", 
     RowBox[{"r", "[", 
      RowBox[{"tf", ",", " ", "n"}], "]"}], "]"}], ".", 
    RowBox[{"c", "[", "n", "]"}], ".", 
    RowBox[{"Join", "[", 
     RowBox[{
      RowBox[{"Inverse", "[", 
       RowBox[{"stm", "[", 
        RowBox[{"t0", ",", " ", "n"}], "]"}], "]"}], ",", " ", 
      RowBox[{"-", " ", 
       RowBox[{"Inverse", "[", 
        RowBox[{"stm", "[", 
         RowBox[{"tf", ",", " ", "n"}], "]"}], "]"}]}], ",", " ", "2"}], 
     "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{
  3.9153877898300962`*^9, 3.916506566506713*^9, {3.916507072131174*^9, 
   3.916507105523364*^9}, {3.916507182076564*^9, 3.916507221802228*^9}, {
   3.916507308245309*^9, 3.916507309508548*^9}, {3.916507398255807*^9, 
   3.916507398686441*^9}, {3.916519636488118*^9, 3.916519647556534*^9}, {
   3.9166773242474623`*^9, 3.916677346191743*^9}, {3.916677641292076*^9, 
   3.916677644188748*^9}, {3.916678053185307*^9, 3.916678053362858*^9}, {
   3.916678091910172*^9, 3.916678094415411*^9}, {3.91667822284202*^9, 
   3.9166782258138514`*^9}, {3.916678424894418*^9, 3.91667843489539*^9}, 
   3.9166819248352413`*^9, 3.916682303161228*^9, 3.916682382034278*^9},
 NumberMarks->False,
 CellLabel->
  "In[1618]:=",ExpressionUUID->"f67ff140-f44a-41e2-a740-c353de0e632d"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"n22", " ", "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"nmat", "[", 
      RowBox[{"1", ",", " ", "0", ",", " ", "5"}], "]"}], "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"7", " ", ";;", " ", "12"}], ",", " ", 
       RowBox[{"7", " ", ";;", " ", "12"}]}], "]"}], "]"}], " ", "//", 
    "N"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"n22", ";"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{
  3.915387776309473*^9, {3.916507461350747*^9, 3.91650747017909*^9}, {
   3.9165077808332863`*^9, 3.916507819403255*^9}, {3.916508282034336*^9, 
   3.916508292861668*^9}, {3.91650844020471*^9, 3.91650845212354*^9}, {
   3.9165086387995777`*^9, 3.916508649074341*^9}, 3.9165182453751373`*^9, {
   3.9166786683896837`*^9, 3.916678685148546*^9}},
 NumberMarks->False,
 CellLabel->
  "In[1619]:=",ExpressionUUID->"16513978-b3b6-42d3-b2c1-a45ee2c97f9c"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"lhs", " ", "=", " ", 
   RowBox[{"Join", "[", 
    RowBox[{
     RowBox[{"Join", "[", 
      RowBox[{
       RowBox[{"IdentityMatrix", "[", "3", "]"}], ",", " ", 
       RowBox[{"ConstantArray", "[", 
        RowBox[{"0", ",", " ", 
         RowBox[{"{", 
          RowBox[{"3", ",", " ", "3"}], "}"}]}], "]"}], ",", " ", "2"}], 
      "]"}], ",", " ", 
     RowBox[{"Join", "[", 
      RowBox[{
       RowBox[{"ConstantArray", "[", 
        RowBox[{"0", ",", " ", 
         RowBox[{"{", 
          RowBox[{"3", ",", "3"}], "}"}]}], "]"}], ",", " ", 
       RowBox[{"ConstantArray", "[", 
        RowBox[{"0", ",", " ", 
         RowBox[{"{", 
          RowBox[{"3", ",", "3"}], "}"}]}], "]"}], ",", " ", "2"}], "]"}]}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Eigenvalues", "[", 
   RowBox[{"{", 
    RowBox[{"lhs", ",", "n22"}], "}"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Eigenvectors", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"lhs", ",", " ", "n22"}], "}"}], ",", " ", "3"}], "]"}], ";"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(", 
   RowBox[{"3.986", " ", 
    RowBox[{
     RowBox[{"10", "^", "14"}], " ", "/", " ", 
     RowBox[{"(", 
      RowBox[{"7780000", "^", "3"}], ")"}]}]}], ")"}], "^", "0.5"}]}], "Input",\

 CellChangeTimes->{{3.915377240207314*^9, 3.915377240207526*^9}, {
   3.916507919535981*^9, 3.916508018666525*^9}, {3.9165080840987186`*^9, 
   3.916508194805066*^9}, {3.916508243879238*^9, 3.9165082464552603`*^9}, {
   3.916508732383114*^9, 3.916508756872851*^9}, {3.916679051953594*^9, 
   3.916679178720052*^9}, {3.9166799552545357`*^9, 3.916679976891067*^9}, {
   3.916680060382257*^9, 3.916680282189939*^9}, {3.9166804460510483`*^9, 
   3.916680482904088*^9}, {3.916680551638123*^9, 3.916680581192251*^9}, {
   3.916681176267486*^9, 3.916681201015091*^9}, {3.916681346472618*^9, 
   3.916681390854463*^9}, {3.9166814640560083`*^9, 3.916681473306408*^9}, {
   3.916681516642761*^9, 3.9166815505955553`*^9}, {3.916681584075012*^9, 
   3.916681586147262*^9}, 3.916681748439204*^9, {3.916682058114127*^9, 
   3.916682118815483*^9}, {3.916842743192037*^9, 3.91684279945721*^9}},
 CellLabel->
  "In[1621]:=",ExpressionUUID->"26621c29-8ad7-473a-b69b-f2bad736b08a"],

Cell[BoxData["0.0009200242014178264`"], "Output",
 CellChangeTimes->{3.91684280059779*^9, 3.916842832747116*^9},
 CellLabel->
  "Out[1624]=",ExpressionUUID->"149d3d06-c148-4e7c-affd-5c3323e926f3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"energy", "[", 
    RowBox[{
    "x0_", ",", " ", "xf_", ",", " ", "tf_", ",", " ", "t0_", ",", " ", 
     "n_"}], "]"}], " ", ":=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"{", 
       RowBox[{"Join", "[", 
        RowBox[{"x0", ",", " ", "xf", ",", "1"}], " ", "]"}], "}"}], ")"}], 
     ".", 
     RowBox[{"nmat", "[", 
      RowBox[{"tf", ",", " ", "t0", ",", " ", "n"}], "]"}], ".", 
     RowBox[{"Join", "[", 
      RowBox[{"x0", ",", "xf"}], "]"}]}], "/", "2"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"energy", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "200"}], ",", 
      RowBox[{"-", "200"}], ",", 
      RowBox[{"-", "100"}], ",", 
      RowBox[{"-", "0.02"}], ",", "0.0231", ",", "0.012"}], "}"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "851.6839"}], ",", "618.3271", ",", "22.9877", ",", 
      RowBox[{"-", "0.5955"}], ",", "1.3289", ",", "0.1422"}], "}"}], ",", 
    " ", "1600", ",", "0", ",", " ", "0.0009200242014178264"}], "]"}], " ", "//",
   " ", "N"}]}], "Input",
 CellChangeTimes->{{3.916508546266099*^9, 3.916508546944867*^9}, {
   3.9165090721517963`*^9, 3.916509276825738*^9}, {3.9165093275969553`*^9, 
   3.916509382130526*^9}, {3.916509738442502*^9, 3.916509773429632*^9}, {
   3.916519292485795*^9, 3.916519385006843*^9}, {3.9165194213215714`*^9, 
   3.916519422110112*^9}, {3.9165194930558434`*^9, 3.9165195181033783`*^9}, {
   3.916520886009613*^9, 3.916520959690091*^9}, {3.916521082665732*^9, 
   3.916521100619761*^9}, {3.91652117522928*^9, 3.916521180430036*^9}, {
   3.916679189506426*^9, 3.9166791916465816`*^9}, {3.916679961008904*^9, 
   3.916679971539651*^9}, {3.916680052492437*^9, 3.916680055466468*^9}, {
   3.9166803321551723`*^9, 3.916680335118877*^9}, {3.91668051449391*^9, 
   3.916680524571508*^9}, {3.9166815983217487`*^9, 3.916681600292897*^9}, 
   3.9166817261181297`*^9, {3.916682106837524*^9, 3.9166821151759777`*^9}, {
   3.916842808052176*^9, 3.9168428102757483`*^9}},
 CellLabel->
  "In[1625]:=",ExpressionUUID->"5edbbfcc-db53-4b2e-9eb7-aecd51d64fdc"],

Cell[BoxData[
 RowBox[{"{", "0.00002906776214990568`", "}"}]], "Output",
 CellChangeTimes->{
  3.9166824250748587`*^9, {3.916842811445002*^9, 3.9168428327666483`*^9}},
 CellLabel->
  "Out[1626]=",ExpressionUUID->"7d2fc809-ec30-4dab-a9b1-666603e464cf"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.915381393959627*^9, 3.915381393960546*^9}, {
  3.9165057977131453`*^9, 3.916505845981629*^9}},
 CellLabel->
  "In[1627]:=",ExpressionUUID->"f171eeeb-4439-4e0e-a51b-207f92391c94"],

Cell[BoxData[
 RowBox[{
  RowBox[{"gramian", "[", 
   RowBox[{"t0_", ",", " ", "tf_", ",", " ", "n_"}], "]"}], " ", ":=", " ", 
  RowBox[{"Integrate", "[", "  ", 
   RowBox[{
    RowBox[{
     RowBox[{"stm", "[", 
      RowBox[{"tf", ",", " ", "n"}], "]"}], ".", 
     RowBox[{"stminverse", "[", 
      RowBox[{"tau", ",", "n"}], "]"}], ".", "bbt", ".", 
     RowBox[{"Transpose", "[", 
      RowBox[{
       RowBox[{"stm", "[", 
        RowBox[{"tf", ",", " ", "n"}], "]"}], ".", 
       RowBox[{"stminverse", "[", 
        RowBox[{"tau", ",", "n"}], "]"}]}], "]"}]}], ",", "  ", 
    RowBox[{"{", 
     RowBox[{"tau", ",", " ", "t0", ",", " ", "tf"}], "}"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.915373101100697*^9, 3.915373106231882*^9}, 
   3.9153809594889593`*^9, {3.915381083190489*^9, 3.915381107872932*^9}, {
   3.915381352354808*^9, 3.9153813560508833`*^9}, {3.915381397347879*^9, 
   3.915381403596081*^9}, {3.915387438455662*^9, 3.915387439360099*^9}, {
   3.915387617932354*^9, 3.9153876214184847`*^9}, {3.915388188105587*^9, 
   3.9153882008741837`*^9}, {3.915388237619832*^9, 3.915388247533061*^9}, {
   3.915388306789227*^9, 3.915388378974544*^9}, {3.915388499644093*^9, 
   3.915388511509377*^9}, {3.9165056226501217`*^9, 3.916505680493697*^9}, {
   3.916505756536274*^9, 3.916505786161153*^9}, 3.9165058348554*^9, {
   3.916509457198371*^9, 3.916509464288466*^9}, {3.916520012558915*^9, 
   3.916520013679308*^9}, 3.916520058044961*^9, {3.9165201088251047`*^9, 
   3.916520112132928*^9}, {3.916520205506258*^9, 3.9165202064249563`*^9}, 
   3.9165203537704077`*^9, {3.916520429022946*^9, 3.916520432518271*^9}},
 CellLabel->
  "In[1628]:=",ExpressionUUID->"b7f6fbe7-5274-40ce-9e5b-1bcff52022f6"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.916520355413924*^9, 3.916520356400296*^9}},
 CellLabel->
  "In[1629]:=",ExpressionUUID->"94a00a4a-cb43-459e-82bc-d466df19af8e"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.915381189936366*^9, 3.915381194876395*^9}, {
   3.916509476755108*^9, 3.916509483001894*^9}, 3.916519112723837*^9},
 CellLabel->
  "In[1630]:=",ExpressionUUID->"524c2b27-8bb9-4ecf-889c-91c2eac0a3d3"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.91538146842894*^9, 3.915381472146693*^9}},
 CellLabel->
  "In[1631]:=",ExpressionUUID->"35cd92c3-1999-434a-ad34-0130c3ba13a6"],

Cell[BoxData[
 RowBox[{
  RowBox[{"optimaldynamics", "[", 
   RowBox[{
   "t_", ",", " ", "tf_", ",", " ", "t0_", ",", " ", "x0_", ",", " ", "xf_", 
    ",", " ", "n_", ",", " ", "inversegramian_"}], "]"}], " ", ":=", " ", 
  RowBox[{"-", " ", 
   RowBox[{
    RowBox[{"Transpose", "[", "B", "]"}], ".", 
    RowBox[{"Transpose", "[", 
     RowBox[{
      RowBox[{"stm", "[", 
       RowBox[{"tf", ",", " ", "n"}], "]"}], ".", 
      RowBox[{"stminverse", "[", 
       RowBox[{"t", ",", "n"}], "]"}]}], "]"}], ".", "inversegramian", ".", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"stm", "[", 
          RowBox[{"tf", ",", " ", "n"}], "]"}], ".", 
         RowBox[{"stminverse", "[", 
          RowBox[{"t0", ",", "n"}], "]"}]}], ")"}], ".", "x0"}], " ", "-", 
      " ", "xf"}], ")"}]}]}]}]], "Input",
 CellChangeTimes->{{3.915381473775834*^9, 3.915381589465988*^9}, {
   3.915382418001299*^9, 3.9153824802007523`*^9}, 3.915382846190497*^9, {
   3.916509438050303*^9, 3.916509470344348*^9}, {3.916518544891128*^9, 
   3.916518563858284*^9}, {3.91651859462506*^9, 3.916518596535563*^9}, {
   3.916518635142058*^9, 3.91651863905625*^9}, {3.916520525878859*^9, 
   3.916520528560817*^9}, {3.9165214408488703`*^9, 3.916521443649485*^9}, {
   3.9165214916972857`*^9, 3.916521510179495*^9}, {3.916521616428206*^9, 
   3.916521629028205*^9}},
 CellLabel->
  "In[1632]:=",ExpressionUUID->"3b79a3d6-efaf-40b6-93bd-801efd007f4d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"costfunctional", "[", 
   RowBox[{
   "t0_", ",", " ", "tf_", " ", ",", " ", "x0_", ",", " ", "xf_", ",", " ", 
    "n_", ",", " ", "inversegramian_"}], "]"}], " ", ":=", " ", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"1", "/", "2"}], ")"}], " ", "*", " ", 
   RowBox[{"Integrate", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"optimaldynamics", "[", 
       RowBox[{
       "tau", ",", " ", "tf", ",", " ", "t0", ",", " ", "x0", ",", " ", "xf", 
        ",", " ", "n"}], "]"}], ".", 
      RowBox[{"Transpose", "[", 
       RowBox[{"optimaldynamics", "[", 
        RowBox[{
        "tau", ",", " ", "tf", ",", " ", "t0", ",", " ", "x0", ",", " ", "xf",
          ",", "n", ",", " ", "inversegramian"}], "]"}], "]"}]}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"tau", ",", " ", "t0", ",", " ", "tf"}], "}"}]}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.915382839647397*^9, 3.915382966600347*^9}, {
  3.916509434856138*^9, 3.9165094363948708`*^9}, {3.916518992814933*^9, 
  3.916518996193541*^9}, {3.91652145154088*^9, 3.9165214538480377`*^9}, {
  3.916521515220221*^9, 3.916521523605938*^9}},
 CellLabel->
  "In[1633]:=",ExpressionUUID->"636cebf8-02a9-4b00-a873-a3b6ed2d8ecf"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"inverse_g", " ", "=", " ", 
  RowBox[{"Inverse", "[", 
   RowBox[{"gramian", "[", 
    RowBox[{"0", ",", " ", "1600", ",", " ", "0.00113"}], "]"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"N", "[", 
  RowBox[{"costfunctional", "[", 
   RowBox[{"0", ",", " ", "1600", ",", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "200"}], ",", 
      RowBox[{"-", "200"}], ",", 
      RowBox[{"-", "100"}], ",", 
      RowBox[{"-", "0.02"}], ",", "0.0231", ",", "0.012"}], "}"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "851.6839"}], ",", "618.3271", ",", "22.9877", ",", 
      RowBox[{"-", "0.5955"}], ",", "1.3289", ",", "0.1422"}], "}"}], ",", 
    " ", "0.00113", ",", " ", "inverse_g"}], "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.915383149716367*^9, 3.915383177833974*^9}, {
   3.915383269721675*^9, 3.9153832729485598`*^9}, {3.9153834802104053`*^9, 
   3.915383482963295*^9}, {3.916509407030005*^9, 3.916509417580825*^9}, {
   3.9165189761694*^9, 3.916518976379521*^9}, {3.91651902192522*^9, 
   3.91651906020676*^9}, {3.9165191293824577`*^9, 3.916519131041453*^9}, {
   3.916519235879195*^9, 3.916519237934887*^9}, {3.9165193354430647`*^9, 
   3.916519353186059*^9}, 3.9165193864498253`*^9, {3.916519423472453*^9, 
   3.916519423787527*^9}, {3.916519488266386*^9, 3.916519508860497*^9}, {
   3.916521214236957*^9, 3.916521237061243*^9}, {3.9165214582044992`*^9, 
   3.9165214603735247`*^9}, {3.916521527450757*^9, 3.916521557262944*^9}},
 CellLabel->
  "In[1634]:=",ExpressionUUID->"2a7501ce-47fe-44af-b333-391cdb0e812e"],

Cell[BoxData["$Aborted"], "Output",
 CellChangeTimes->{3.916682751587428*^9, 3.916842940413219*^9},
 CellLabel->
  "Out[1634]=",ExpressionUUID->"a82f9a5b-e0a1-441d-aa59-7ce71718ca57"],

Cell[BoxData[
 TemplateBox[{
  "NIntegrate", "inumr", 
   "\"The integrand \\!\\(\\*RowBox[{RowBox[{\\\"optimaldynamics\\\", \\\"[\\\
\", RowBox[{\\\"tau\\\", \\\",\\\", \\\"1600\\\", \\\",\\\", \\\"0\\\", \\\",\
\\\", RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"-\\\", \\\"200\\\"}], \\\",\\\", \
RowBox[{\\\"-\\\", \\\"200\\\"}], \\\",\\\", RowBox[{\\\"-\\\", \
\\\"100\\\"}], \\\",\\\", RowBox[{\\\"-\\\", \\\"0.02`\\\"}], \\\",\\\", \
\\\"0.0231`\\\", \\\",\\\", \\\"0.012`\\\"}], \\\"}\\\"}], \\\",\\\", \
RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"-\\\", \\\"851.6839`\\\"}], \\\",\\\", \
\\\"618.3271`\\\", \\\",\\\", \\\"22.9877`\\\", \\\",\\\", RowBox[{\\\"-\\\", \
\\\"0.5955`\\\"}], \\\",\\\", \\\"1.3289`\\\", \\\",\\\", \\\"0.1422`\\\"}], \
\\\"}\\\"}], \\\",\\\", \\\"0.00113`\\\"}], \\\"]\\\"}], \\\".\\\", \
RowBox[{\\\"Transpose\\\", \\\"[\\\", RowBox[{\\\"-\\\", \
RowBox[{RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"{\\\", \
RowBox[{RowBox[{RowBox[{\\\"0.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", \
RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \
\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"+\\\", RowBox[{\\\"Times\\\", \\\
\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \
\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"+\\\", RowBox[{\\\"Times\\\", \\\
\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \
\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\",\\\", RowBox[{RowBox[{\\\"0.`\
\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Times\\\", \
\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \\\"\[RightSkeleton]\\\
\"}], \\\"]\\\"}], \\\"+\\\", RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\
\[LeftSkeleton]\\\", \\\"3\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \
\\\"+\\\", RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \
\\\"3\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"+\\\", \
RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \
\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\",\\\", \\\"0.`\\\", \\\",\\\", \
RowBox[{RowBox[{\\\"0.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", \
RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \
\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"+\\\", RowBox[{\\\"Times\\\", \\\
\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \
\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"+\\\", RowBox[{\\\"Times\\\", \\\
\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \
\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\",\\\", RowBox[{RowBox[{\\\"0.`\
\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Times\\\", \
\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \\\"\[RightSkeleton]\\\
\"}], \\\"]\\\"}], \\\"+\\\", RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\
\[LeftSkeleton]\\\", \\\"3\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \
\\\"+\\\", RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \
\\\"3\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\",\\\", \
\\\"0.`\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \
RowBox[{RowBox[{RowBox[{\\\"0.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", \
RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \
\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"+\\\", RowBox[{\\\"Times\\\", \\\
\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \
\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"+\\\", RowBox[{\\\"Times\\\", \\\
\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \
\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\",\\\", RowBox[{RowBox[{\\\"0.`\
\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Times\\\", \
\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \\\"\[RightSkeleton]\\\
\"}], \\\"]\\\"}], \\\"+\\\", RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\
\[LeftSkeleton]\\\", \\\"3\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \
\\\"+\\\", RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \
\\\"3\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"+\\\", \
RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \
\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\",\\\", \\\"0.`\\\", \\\",\\\", \
RowBox[{RowBox[{\\\"0.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", \
RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \
\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"+\\\", RowBox[{\\\"Times\\\", \\\
\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \
\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"+\\\", RowBox[{\\\"Times\\\", \\\
\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \
\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\",\\\", RowBox[{RowBox[{\\\"0.`\
\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Times\\\", \
\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \\\"\[RightSkeleton]\\\
\"}], \\\"]\\\"}], \\\"+\\\", RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\
\[LeftSkeleton]\\\", \\\"3\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \
\\\"+\\\", RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \
\\\"3\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\",\\\", \
\\\"0.`\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \
RowBox[{\\\"0.`\\\", \\\",\\\", \\\"0.`\\\", \\\",\\\", \
RowBox[{RowBox[{\\\"0.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", \
RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \
\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"+\\\", RowBox[{\\\"Times\\\", \\\
\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \
\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\",\\\", \\\"0.`\\\", \\\",\\\", \
\\\"0.`\\\", \\\",\\\", RowBox[{RowBox[{\\\"0.`\\\", \
\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Times\\\", \\\"[\\\", \
RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\
\\\"}], \\\"+\\\", RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\
\[LeftSkeleton]\\\", \\\"3\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \
\\\"}\\\"}]}], \\\"}\\\"}], \\\".\\\", \\\"inverse_g\\\", \\\".\\\", RowBox[{\
\\\"{\\\", RowBox[{RowBox[{\\\"-\\\", \\\"56.01860472883061`\\\"}], \
\\\",\\\", \\\"197.19081863786437`\\\", \\\",\\\", \
RowBox[{\\\"\[LeftSkeleton]\\\", \\\"19\\\", \\\"\[RightSkeleton]\\\"}], \
\\\",\\\", RowBox[{\\\"-\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"21\\\", \\\
\"\[RightSkeleton]\\\"}]}], \\\",\\\", \\\"0.2936076606871567`\\\", \
\\\",\\\", RowBox[{\\\"-\\\", \\\"0.03518395389431725`\\\"}]}], \
\\\"}\\\"}]}]}], \\\"]\\\"}]}]\\) has evaluated to non-numerical values for \
all sampling points in the region with boundaries \\!\\(\\*RowBox[{\\\"{\\\", \
RowBox[{\\\"{\\\", RowBox[{\\\"0\\\", \\\",\\\", \\\"1600\\\"}], \\\"}\\\"}], \
\\\"}\\\"}]\\).\"", 2, 1635, 733, 30902607872579226424, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.916682751590952*^9, 3.916842940428837*^9},
 CellLabel->
  "During evaluation of \
In[1634]:=",ExpressionUUID->"b464b0bc-79f0-474b-9e55-ec4b04f362aa"],

Cell[BoxData[
 TemplateBox[{
  "NIntegrate", "inumr", 
   "\"The integrand \\!\\(\\*RowBox[{RowBox[{\\\"optimaldynamics\\\", \\\"[\\\
\", RowBox[{\\\"tau\\\", \\\",\\\", \\\"1600\\\", \\\",\\\", \\\"0\\\", \\\",\
\\\", RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"-\\\", \\\"200\\\"}], \\\",\\\", \
RowBox[{\\\"-\\\", \\\"200\\\"}], \\\",\\\", RowBox[{\\\"-\\\", \
\\\"100\\\"}], \\\",\\\", RowBox[{\\\"-\\\", \\\"0.02`\\\"}], \\\",\\\", \
\\\"0.0231`\\\", \\\",\\\", \\\"0.012`\\\"}], \\\"}\\\"}], \\\",\\\", \
RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"-\\\", \\\"851.6839`\\\"}], \\\",\\\", \
\\\"618.3271`\\\", \\\",\\\", \\\"22.9877`\\\", \\\",\\\", RowBox[{\\\"-\\\", \
\\\"0.5955`\\\"}], \\\",\\\", \\\"1.3289`\\\", \\\",\\\", \\\"0.1422`\\\"}], \
\\\"}\\\"}], \\\",\\\", \\\"0.00113`\\\"}], \\\"]\\\"}], \\\".\\\", \
RowBox[{\\\"Transpose\\\", \\\"[\\\", RowBox[{\\\"-\\\", \
RowBox[{RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"{\\\", \
RowBox[{RowBox[{RowBox[{\\\"0.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", \
RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \
\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"+\\\", RowBox[{\\\"Times\\\", \\\
\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \
\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"+\\\", RowBox[{\\\"Times\\\", \\\
\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \
\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\",\\\", RowBox[{RowBox[{\\\"0.`\
\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Times\\\", \
\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \\\"\[RightSkeleton]\\\
\"}], \\\"]\\\"}], \\\"+\\\", RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\
\[LeftSkeleton]\\\", \\\"3\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \
\\\"+\\\", RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \
\\\"3\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"+\\\", \
RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \
\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\",\\\", \\\"0.`\\\", \\\",\\\", \
RowBox[{RowBox[{\\\"0.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", \
RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \
\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"+\\\", RowBox[{\\\"Times\\\", \\\
\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \
\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"+\\\", RowBox[{\\\"Times\\\", \\\
\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \
\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\",\\\", RowBox[{RowBox[{\\\"0.`\
\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Times\\\", \
\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \\\"\[RightSkeleton]\\\
\"}], \\\"]\\\"}], \\\"+\\\", RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\
\[LeftSkeleton]\\\", \\\"3\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \
\\\"+\\\", RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \
\\\"3\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\",\\\", \
\\\"0.`\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \
RowBox[{RowBox[{RowBox[{\\\"0.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", \
RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \
\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"+\\\", RowBox[{\\\"Times\\\", \\\
\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \
\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"+\\\", RowBox[{\\\"Times\\\", \\\
\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \
\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\",\\\", RowBox[{RowBox[{\\\"0.`\
\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Times\\\", \
\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \\\"\[RightSkeleton]\\\
\"}], \\\"]\\\"}], \\\"+\\\", RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\
\[LeftSkeleton]\\\", \\\"3\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \
\\\"+\\\", RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \
\\\"3\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"+\\\", \
RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \
\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\",\\\", \\\"0.`\\\", \\\",\\\", \
RowBox[{RowBox[{\\\"0.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", \
RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \
\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"+\\\", RowBox[{\\\"Times\\\", \\\
\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \
\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"+\\\", RowBox[{\\\"Times\\\", \\\
\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \
\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\",\\\", RowBox[{RowBox[{\\\"0.`\
\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Times\\\", \
\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \\\"\[RightSkeleton]\\\
\"}], \\\"]\\\"}], \\\"+\\\", RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\
\[LeftSkeleton]\\\", \\\"3\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \
\\\"+\\\", RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \
\\\"3\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\",\\\", \
\\\"0.`\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \
RowBox[{\\\"0.`\\\", \\\",\\\", \\\"0.`\\\", \\\",\\\", \
RowBox[{RowBox[{\\\"0.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", \
RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \
\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"+\\\", RowBox[{\\\"Times\\\", \\\
\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \
\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\",\\\", \\\"0.`\\\", \\\",\\\", \
\\\"0.`\\\", \\\",\\\", RowBox[{RowBox[{\\\"0.`\\\", \
\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Times\\\", \\\"[\\\", \
RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\
\\\"}], \\\"+\\\", RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\
\[LeftSkeleton]\\\", \\\"3\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \
\\\"}\\\"}]}], \\\"}\\\"}], \\\".\\\", \\\"inverse_g\\\", \\\".\\\", RowBox[{\
\\\"{\\\", RowBox[{RowBox[{\\\"-\\\", \\\"56.01860472883061`\\\"}], \
\\\",\\\", \\\"197.19081863786437`\\\", \\\",\\\", \
RowBox[{\\\"\[LeftSkeleton]\\\", \\\"19\\\", \\\"\[RightSkeleton]\\\"}], \
\\\",\\\", RowBox[{\\\"-\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"21\\\", \\\
\"\[RightSkeleton]\\\"}]}], \\\",\\\", \\\"0.2936076606871567`\\\", \
\\\",\\\", RowBox[{\\\"-\\\", \\\"0.03518395389431725`\\\"}]}], \
\\\"}\\\"}]}]}], \\\"]\\\"}]}]\\) has evaluated to non-numerical values for \
all sampling points in the region with boundaries \\!\\(\\*RowBox[{\\\"{\\\", \
RowBox[{\\\"{\\\", RowBox[{\\\"0\\\", \\\",\\\", \\\"1600\\\"}], \\\"}\\\"}], \
\\\"}\\\"}]\\).\"", 2, 1635, 734, 30902607872579226424, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.916682751590952*^9, 3.9168429404350767`*^9},
 CellLabel->
  "During evaluation of \
In[1634]:=",ExpressionUUID->"de02491c-3391-40d5-b8cd-6730cd5c9559"],

Cell[BoxData[
 TemplateBox[{
  "NIntegrate", "inumr", 
   "\"The integrand \\!\\(\\*RowBox[{RowBox[{\\\"optimaldynamics\\\", \\\"[\\\
\", RowBox[{\\\"tau\\\", \\\",\\\", \\\"1600\\\", \\\",\\\", \\\"0\\\", \\\",\
\\\", RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"-\\\", \\\"200\\\"}], \\\",\\\", \
RowBox[{\\\"-\\\", \\\"200\\\"}], \\\",\\\", RowBox[{\\\"-\\\", \
\\\"100\\\"}], \\\",\\\", RowBox[{\\\"-\\\", \\\"0.02`\\\"}], \\\",\\\", \
\\\"0.0231`\\\", \\\",\\\", \\\"0.012`\\\"}], \\\"}\\\"}], \\\",\\\", \
RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"-\\\", \\\"851.6839`\\\"}], \\\",\\\", \
\\\"618.3271`\\\", \\\",\\\", \\\"22.9877`\\\", \\\",\\\", RowBox[{\\\"-\\\", \
\\\"0.5955`\\\"}], \\\",\\\", \\\"1.3289`\\\", \\\",\\\", \\\"0.1422`\\\"}], \
\\\"}\\\"}], \\\",\\\", \\\"0.00113`\\\"}], \\\"]\\\"}], \\\".\\\", \
RowBox[{\\\"Transpose\\\", \\\"[\\\", RowBox[{\\\"-\\\", \
RowBox[{RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"{\\\", \
RowBox[{RowBox[{RowBox[{\\\"0.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", \
RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \
\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"+\\\", RowBox[{\\\"Times\\\", \\\
\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \
\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"+\\\", RowBox[{\\\"Times\\\", \\\
\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \
\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\",\\\", RowBox[{RowBox[{\\\"0.`\
\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Times\\\", \
\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \\\"\[RightSkeleton]\\\
\"}], \\\"]\\\"}], \\\"+\\\", RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\
\[LeftSkeleton]\\\", \\\"3\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \
\\\"+\\\", RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \
\\\"3\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"+\\\", \
RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \
\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\",\\\", \\\"0.`\\\", \\\",\\\", \
RowBox[{RowBox[{\\\"0.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", \
RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \
\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"+\\\", RowBox[{\\\"Times\\\", \\\
\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \
\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"+\\\", RowBox[{\\\"Times\\\", \\\
\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \
\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\",\\\", RowBox[{RowBox[{\\\"0.`\
\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Times\\\", \
\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \\\"\[RightSkeleton]\\\
\"}], \\\"]\\\"}], \\\"+\\\", RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\
\[LeftSkeleton]\\\", \\\"3\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \
\\\"+\\\", RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \
\\\"3\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\",\\\", \
\\\"0.`\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \
RowBox[{RowBox[{RowBox[{\\\"0.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", \
RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \
\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"+\\\", RowBox[{\\\"Times\\\", \\\
\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \
\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"+\\\", RowBox[{\\\"Times\\\", \\\
\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \
\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\",\\\", RowBox[{RowBox[{\\\"0.`\
\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Times\\\", \
\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \\\"\[RightSkeleton]\\\
\"}], \\\"]\\\"}], \\\"+\\\", RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\
\[LeftSkeleton]\\\", \\\"3\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \
\\\"+\\\", RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \
\\\"3\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"+\\\", \
RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \
\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\",\\\", \\\"0.`\\\", \\\",\\\", \
RowBox[{RowBox[{\\\"0.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", \
RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \
\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"+\\\", RowBox[{\\\"Times\\\", \\\
\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \
\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"+\\\", RowBox[{\\\"Times\\\", \\\
\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \
\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\",\\\", RowBox[{RowBox[{\\\"0.`\
\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Times\\\", \
\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \\\"\[RightSkeleton]\\\
\"}], \\\"]\\\"}], \\\"+\\\", RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\
\[LeftSkeleton]\\\", \\\"3\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \
\\\"+\\\", RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \
\\\"3\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\",\\\", \
\\\"0.`\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \
RowBox[{\\\"0.`\\\", \\\",\\\", \\\"0.`\\\", \\\",\\\", \
RowBox[{RowBox[{\\\"0.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", \
RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \
\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"+\\\", RowBox[{\\\"Times\\\", \\\
\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \
\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\",\\\", \\\"0.`\\\", \\\",\\\", \
\\\"0.`\\\", \\\",\\\", RowBox[{RowBox[{\\\"0.`\\\", \
\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Times\\\", \\\"[\\\", \
RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\
\\\"}], \\\"+\\\", RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\
\[LeftSkeleton]\\\", \\\"3\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \
\\\"}\\\"}]}], \\\"}\\\"}], \\\".\\\", \\\"inverse_g\\\", \\\".\\\", RowBox[{\
\\\"{\\\", RowBox[{RowBox[{\\\"-\\\", \\\"56.01860472883061`\\\"}], \
\\\",\\\", \\\"197.19081863786437`\\\", \\\",\\\", \
RowBox[{\\\"\[LeftSkeleton]\\\", \\\"19\\\", \\\"\[RightSkeleton]\\\"}], \
\\\",\\\", RowBox[{\\\"-\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"21\\\", \\\
\"\[RightSkeleton]\\\"}]}], \\\",\\\", \\\"0.2936076606871567`\\\", \
\\\",\\\", RowBox[{\\\"-\\\", \\\"0.03518395389431725`\\\"}]}], \
\\\"}\\\"}]}]}], \\\"]\\\"}]}]\\) has evaluated to non-numerical values for \
all sampling points in the region with boundaries \\!\\(\\*RowBox[{\\\"{\\\", \
RowBox[{\\\"{\\\", RowBox[{\\\"0\\\", \\\",\\\", \\\"1600\\\"}], \\\"}\\\"}], \
\\\"}\\\"}]\\).\"", 2, 1635, 735, 30902607872579226424, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.916682751590952*^9, 3.9168429404402647`*^9},
 CellLabel->
  "During evaluation of \
In[1634]:=",ExpressionUUID->"4667749b-0946-4a55-b7b6-efa536ea566d"],

Cell[BoxData[
 TemplateBox[{
  "General", "stop", 
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"NIntegrate\\\", \
\\\"::\\\", \\\"inumr\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"", 2, 1635, 736, 30902607872579226424, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.916682751590952*^9, 3.9168429404447727`*^9},
 CellLabel->
  "During evaluation of \
In[1634]:=",ExpressionUUID->"fa47f0c9-168d-45b3-a87c-1cc4c18896e3"],

Cell[BoxData[
 RowBox[{"0.5`", " ", 
  RowBox[{"NIntegrate", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"optimaldynamics", "[", 
      RowBox[{"tau", ",", "1600", ",", "0", ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "200"}], ",", 
         RowBox[{"-", "200"}], ",", 
         RowBox[{"-", "100"}], ",", 
         RowBox[{"-", "0.02`"}], ",", "0.0231`", ",", "0.012`"}], "}"}], ",", 
       
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "851.6839`"}], ",", "618.3271`", ",", "22.9877`", ",", 
         RowBox[{"-", "0.5955`"}], ",", "1.3289`", ",", "0.1422`"}], "}"}], 
       ",", "0.00113`"}], "]"}], ".", 
     RowBox[{"Transpose", "[", 
      RowBox[{"-", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"0.`", "\[VeryThinSpace]", "+", 
             FractionBox[
              RowBox[{"860.1759916376244`", " ", 
               RowBox[{"(", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"Cos", "[", 
                   RowBox[{"0.00113`", " ", "tau"}], "]"}], "3"], "+", 
                 RowBox[{
                  RowBox[{"Cos", "[", 
                   RowBox[{"0.00113`", " ", "tau"}], "]"}], " ", 
                  SuperscriptBox[
                   RowBox[{"Sin", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"]}]}], 
                ")"}]}], 
              RowBox[{
               SuperscriptBox[
                RowBox[{"Cos", "[", 
                 RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"], "+", 
               RowBox[{"2", " ", 
                SuperscriptBox[
                 RowBox[{"Cos", "[", 
                  RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"], " ", 
                SuperscriptBox[
                 RowBox[{"Sin", "[", 
                  RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"]}], "+", 
               SuperscriptBox[
                RowBox[{"Sin", "[", 
                 RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"]}]], "+", 
             FractionBox[
              RowBox[{"4.704956566631378`", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "884.9557522123895`"}], " ", 
                  SuperscriptBox[
                   RowBox[{"Cos", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"], " ", 
                  RowBox[{"Sin", "[", 
                   RowBox[{"0.00113`", " ", "tau"}], "]"}]}], "-", 
                 RowBox[{"884.9557522123895`", " ", 
                  SuperscriptBox[
                   RowBox[{"Sin", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "3"]}]}], 
                ")"}]}], 
              RowBox[{
               SuperscriptBox[
                RowBox[{"Cos", "[", 
                 RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"], "+", 
               RowBox[{"2", " ", 
                SuperscriptBox[
                 RowBox[{"Cos", "[", 
                  RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"], " ", 
                SuperscriptBox[
                 RowBox[{"Sin", "[", 
                  RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"]}], "+", 
               SuperscriptBox[
                RowBox[{"Sin", "[", 
                 RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"]}]], "+", 
             FractionBox[
              RowBox[{"2185.815083558335`", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"2", " ", 
                  SuperscriptBox[
                   RowBox[{"Cos", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"], " ", 
                  RowBox[{"Sin", "[", 
                   RowBox[{"0.00113`", " ", "tau"}], "]"}]}], "+", 
                 RowBox[{"2", " ", 
                  SuperscriptBox[
                   RowBox[{"Sin", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "3"]}]}], 
                ")"}]}], 
              RowBox[{
               SuperscriptBox[
                RowBox[{"Cos", "[", 
                 RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"], "+", 
               RowBox[{"2", " ", 
                SuperscriptBox[
                 RowBox[{"Cos", "[", 
                  RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"], " ", 
                SuperscriptBox[
                 RowBox[{"Sin", "[", 
                  RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"]}], "+", 
               SuperscriptBox[
                RowBox[{"Sin", "[", 
                 RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"]}]]}], ",", 
            RowBox[{"0.`", "\[VeryThinSpace]", "-", 
             FractionBox[
              RowBox[{"2185.815083558335`", " ", 
               RowBox[{"(", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"Cos", "[", 
                   RowBox[{"0.00113`", " ", "tau"}], "]"}], "3"], "+", 
                 RowBox[{
                  RowBox[{"Cos", "[", 
                   RowBox[{"0.00113`", " ", "tau"}], "]"}], " ", 
                  SuperscriptBox[
                   RowBox[{"Sin", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"]}]}], 
                ")"}]}], 
              RowBox[{
               SuperscriptBox[
                RowBox[{"Cos", "[", 
                 RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"], "+", 
               RowBox[{"2", " ", 
                SuperscriptBox[
                 RowBox[{"Cos", "[", 
                  RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"], " ", 
                SuperscriptBox[
                 RowBox[{"Sin", "[", 
                  RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"]}], "+", 
               SuperscriptBox[
                RowBox[{"Sin", "[", 
                 RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"]}]], "-", 
             FractionBox[
              RowBox[{"5.016006776696906`", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "884.9557522123895`"}], " ", 
                  SuperscriptBox[
                   RowBox[{"Cos", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"], " ", 
                  RowBox[{"Sin", "[", 
                   RowBox[{"0.00113`", " ", "tau"}], "]"}]}], "-", 
                 RowBox[{"884.9557522123895`", " ", 
                  SuperscriptBox[
                   RowBox[{"Sin", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "3"]}]}], 
                ")"}]}], 
              RowBox[{
               SuperscriptBox[
                RowBox[{"Cos", "[", 
                 RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"], "+", 
               RowBox[{"2", " ", 
                SuperscriptBox[
                 RowBox[{"Cos", "[", 
                  RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"], " ", 
                SuperscriptBox[
                 RowBox[{"Sin", "[", 
                  RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"]}], "+", 
               SuperscriptBox[
                RowBox[{"Sin", "[", 
                 RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"]}]], "-", 
             FractionBox[
              RowBox[{"1359.2960334495024`", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"2", " ", 
                  SuperscriptBox[
                   RowBox[{"Cos", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"], " ", 
                  RowBox[{"Sin", "[", 
                   RowBox[{"0.00113`", " ", "tau"}], "]"}]}], "+", 
                 RowBox[{"2", " ", 
                  SuperscriptBox[
                   RowBox[{"Sin", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "3"]}]}], 
                ")"}]}], 
              RowBox[{
               SuperscriptBox[
                RowBox[{"Cos", "[", 
                 RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"], "+", 
               RowBox[{"2", " ", 
                SuperscriptBox[
                 RowBox[{"Cos", "[", 
                  RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"], " ", 
                SuperscriptBox[
                 RowBox[{"Sin", "[", 
                  RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"]}], "+", 
               SuperscriptBox[
                RowBox[{"Sin", "[", 
                 RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"]}]], "+", 
             FractionBox[
              RowBox[{
               RowBox[{"1769.911504424779`", " ", 
                SuperscriptBox[
                 RowBox[{"Cos", "[", 
                  RowBox[{"0.00113`", " ", "tau"}], "]"}], "3"]}], "-", 
               RowBox[{"1769.911504424779`", " ", 
                SuperscriptBox[
                 RowBox[{"Cos", "[", 
                  RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"]}], "+", 
               RowBox[{"1769.911504424779`", " ", 
                RowBox[{"Cos", "[", 
                 RowBox[{"0.00113`", " ", "tau"}], "]"}], " ", 
                SuperscriptBox[
                 RowBox[{"Sin", "[", 
                  RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"]}], "-", 
               RowBox[{"3539.823008849558`", " ", 
                SuperscriptBox[
                 RowBox[{"Cos", "[", 
                  RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"], " ", 
                SuperscriptBox[
                 RowBox[{"Sin", "[", 
                  RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"]}], "-", 
               RowBox[{"1769.911504424779`", " ", 
                SuperscriptBox[
                 RowBox[{"Sin", "[", 
                  RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"]}]}], 
              RowBox[{
               SuperscriptBox[
                RowBox[{"Cos", "[", 
                 RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"], "+", 
               RowBox[{"2", " ", 
                SuperscriptBox[
                 RowBox[{"Cos", "[", 
                  RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"], " ", 
                SuperscriptBox[
                 RowBox[{"Sin", "[", 
                  RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"]}], "+", 
               SuperscriptBox[
                RowBox[{"Sin", "[", 
                 RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"]}]]}], ",", 
            "0.`", ",", 
            RowBox[{"0.`", "\[VeryThinSpace]", "-", 
             FractionBox[
              RowBox[{"0.23498552221045943`", " ", 
               RowBox[{"(", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"Cos", "[", 
                   RowBox[{"0.00113`", " ", "tau"}], "]"}], "3"], "+", 
                 RowBox[{
                  RowBox[{"Cos", "[", 
                   RowBox[{"0.00113`", " ", "tau"}], "]"}], " ", 
                  SuperscriptBox[
                   RowBox[{"Sin", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"]}]}], 
                ")"}]}], 
              RowBox[{
               SuperscriptBox[
                RowBox[{"Cos", "[", 
                 RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"], "+", 
               RowBox[{"2", " ", 
                SuperscriptBox[
                 RowBox[{"Cos", "[", 
                  RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"], " ", 
                SuperscriptBox[
                 RowBox[{"Sin", "[", 
                  RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"]}], "+", 
               SuperscriptBox[
                RowBox[{"Sin", "[", 
                 RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"]}]], "+", 
             FractionBox[
              RowBox[{"0.003295076171166247`", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "884.9557522123895`"}], " ", 
                  SuperscriptBox[
                   RowBox[{"Cos", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"], " ", 
                  RowBox[{"Sin", "[", 
                   RowBox[{"0.00113`", " ", "tau"}], "]"}]}], "-", 
                 RowBox[{"884.9557522123895`", " ", 
                  SuperscriptBox[
                   RowBox[{"Sin", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "3"]}]}], 
                ")"}]}], 
              RowBox[{
               SuperscriptBox[
                RowBox[{"Cos", "[", 
                 RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"], "+", 
               RowBox[{"2", " ", 
                SuperscriptBox[
                 RowBox[{"Cos", "[", 
                  RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"], " ", 
                SuperscriptBox[
                 RowBox[{"Sin", "[", 
                  RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"]}], "+", 
               SuperscriptBox[
                RowBox[{"Sin", "[", 
                 RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"]}]], "+", 
             FractionBox[
              RowBox[{"1.943997741101031`", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"2", " ", 
                  SuperscriptBox[
                   RowBox[{"Cos", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"], " ", 
                  RowBox[{"Sin", "[", 
                   RowBox[{"0.00113`", " ", "tau"}], "]"}]}], "+", 
                 RowBox[{"2", " ", 
                  SuperscriptBox[
                   RowBox[{"Sin", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "3"]}]}], 
                ")"}]}], 
              RowBox[{
               SuperscriptBox[
                RowBox[{"Cos", "[", 
                 RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"], "+", 
               RowBox[{"2", " ", 
                SuperscriptBox[
                 RowBox[{"Cos", "[", 
                  RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"], " ", 
                SuperscriptBox[
                 RowBox[{"Sin", "[", 
                  RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"]}], "+", 
               SuperscriptBox[
                RowBox[{"Sin", "[", 
                 RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"]}]]}], ",", 
            RowBox[{"0.`", "\[VeryThinSpace]", "-", 
             FractionBox[
              RowBox[{"1.943997741101031`", " ", 
               RowBox[{"(", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"Cos", "[", 
                   RowBox[{"0.00113`", " ", "tau"}], "]"}], "3"], "+", 
                 RowBox[{
                  RowBox[{"Cos", "[", 
                   RowBox[{"0.00113`", " ", "tau"}], "]"}], " ", 
                  SuperscriptBox[
                   RowBox[{"Sin", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"]}]}], 
                ")"}]}], 
              RowBox[{
               SuperscriptBox[
                RowBox[{"Cos", "[", 
                 RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"], "+", 
               RowBox[{"2", " ", 
                SuperscriptBox[
                 RowBox[{"Cos", "[", 
                  RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"], " ", 
                SuperscriptBox[
                 RowBox[{"Sin", "[", 
                  RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"]}], "+", 
               SuperscriptBox[
                RowBox[{"Sin", "[", 
                 RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"]}]], "-", 
             FractionBox[
              RowBox[{"0.008373201840586913`", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "884.9557522123895`"}], " ", 
                  SuperscriptBox[
                   RowBox[{"Cos", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"], " ", 
                  RowBox[{"Sin", "[", 
                   RowBox[{"0.00113`", " ", "tau"}], "]"}]}], "-", 
                 RowBox[{"884.9557522123895`", " ", 
                  SuperscriptBox[
                   RowBox[{"Sin", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "3"]}]}], 
                ")"}]}], 
              RowBox[{
               SuperscriptBox[
                RowBox[{"Cos", "[", 
                 RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"], "+", 
               RowBox[{"2", " ", 
                SuperscriptBox[
                 RowBox[{"Cos", "[", 
                  RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"], " ", 
                SuperscriptBox[
                 RowBox[{"Sin", "[", 
                  RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"]}], "+", 
               SuperscriptBox[
                RowBox[{"Sin", "[", 
                 RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"]}]], "-", 
             FractionBox[
              RowBox[{"3.9399420888418377`", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"2", " ", 
                  SuperscriptBox[
                   RowBox[{"Cos", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"], " ", 
                  RowBox[{"Sin", "[", 
                   RowBox[{"0.00113`", " ", "tau"}], "]"}]}], "+", 
                 RowBox[{"2", " ", 
                  SuperscriptBox[
                   RowBox[{"Sin", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "3"]}]}], 
                ")"}]}], 
              RowBox[{
               SuperscriptBox[
                RowBox[{"Cos", "[", 
                 RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"], "+", 
               RowBox[{"2", " ", 
                SuperscriptBox[
                 RowBox[{"Cos", "[", 
                  RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"], " ", 
                SuperscriptBox[
                 RowBox[{"Sin", "[", 
                  RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"]}], "+", 
               SuperscriptBox[
                RowBox[{"Sin", "[", 
                 RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"]}]]}], ",", 
            "0.`"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"0.`", "\[VeryThinSpace]", "+", 
             FractionBox[
              RowBox[{"860.1759916376244`", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "2"}], " ", 
                  SuperscriptBox[
                   RowBox[{"Cos", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"], " ", 
                  RowBox[{"Sin", "[", 
                   RowBox[{"0.00113`", " ", "tau"}], "]"}]}], "-", 
                 RowBox[{"2", " ", 
                  SuperscriptBox[
                   RowBox[{"Sin", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "3"]}]}], 
                ")"}]}], 
              RowBox[{
               SuperscriptBox[
                RowBox[{"Cos", "[", 
                 RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"], "+", 
               RowBox[{"2", " ", 
                SuperscriptBox[
                 RowBox[{"Cos", "[", 
                  RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"], " ", 
                SuperscriptBox[
                 RowBox[{"Sin", "[", 
                  RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"]}], "+", 
               SuperscriptBox[
                RowBox[{"Sin", "[", 
                 RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"]}]], "+", 
             FractionBox[
              RowBox[{"2185.815083558335`", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"4", " ", 
                  SuperscriptBox[
                   RowBox[{"Cos", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "3"]}], "-", 
                 RowBox[{"3", " ", 
                  SuperscriptBox[
                   RowBox[{"Cos", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"]}], "+", 
                 RowBox[{"4", " ", 
                  RowBox[{"Cos", "[", 
                   RowBox[{"0.00113`", " ", "tau"}], "]"}], " ", 
                  SuperscriptBox[
                   RowBox[{"Sin", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"]}], "-", 
                 RowBox[{"6", " ", 
                  SuperscriptBox[
                   RowBox[{"Cos", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"Sin", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"]}], "-", 
                 RowBox[{"3", " ", 
                  SuperscriptBox[
                   RowBox[{"Sin", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"]}]}], 
                ")"}]}], 
              RowBox[{
               SuperscriptBox[
                RowBox[{"Cos", "[", 
                 RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"], "+", 
               RowBox[{"2", " ", 
                SuperscriptBox[
                 RowBox[{"Cos", "[", 
                  RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"], " ", 
                SuperscriptBox[
                 RowBox[{"Sin", "[", 
                  RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"]}], "+", 
               SuperscriptBox[
                RowBox[{"Sin", "[", 
                 RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"]}]], "+", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"4.704956566631378`", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"-", "1769.911504424779`"}], " ", 
                   SuperscriptBox[
                    RowBox[{"Cos", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "3"]}], "+", 
                  RowBox[{"1769.911504424779`", " ", 
                   SuperscriptBox[
                    RowBox[{"Cos", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"]}], "-", 
                  RowBox[{"1769.911504424779`", " ", 
                   RowBox[{"Cos", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], " ", 
                   SuperscriptBox[
                    RowBox[{"Sin", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"]}], "+", 
                  RowBox[{"3539.823008849558`", " ", 
                   SuperscriptBox[
                    RowBox[{"Cos", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"Sin", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"]}], "+", 
                  RowBox[{"1769.911504424779`", " ", 
                   SuperscriptBox[
                    RowBox[{"Sin", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"]}]}], 
                 ")"}]}], ")"}], "/", 
              RowBox[{"(", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{"Cos", "[", 
                  RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"], "+", 
                RowBox[{"2", " ", 
                 SuperscriptBox[
                  RowBox[{"Cos", "[", 
                   RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"], " ", 
                 SuperscriptBox[
                  RowBox[{"Sin", "[", 
                   RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"]}], "+", 
                SuperscriptBox[
                 RowBox[{"Sin", "[", 
                  RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"]}], ")"}]}]}], 
            ",", 
            RowBox[{"0.`", "\[VeryThinSpace]", "-", 
             FractionBox[
              RowBox[{"2185.815083558335`", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "2"}], " ", 
                  SuperscriptBox[
                   RowBox[{"Cos", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"], " ", 
                  RowBox[{"Sin", "[", 
                   RowBox[{"0.00113`", " ", "tau"}], "]"}]}], "-", 
                 RowBox[{"2", " ", 
                  SuperscriptBox[
                   RowBox[{"Sin", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "3"]}]}], 
                ")"}]}], 
              RowBox[{
               SuperscriptBox[
                RowBox[{"Cos", "[", 
                 RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"], "+", 
               RowBox[{"2", " ", 
                SuperscriptBox[
                 RowBox[{"Cos", "[", 
                  RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"], " ", 
                SuperscriptBox[
                 RowBox[{"Sin", "[", 
                  RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"]}], "+", 
               SuperscriptBox[
                RowBox[{"Sin", "[", 
                 RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"]}]], "-", 
             FractionBox[
              RowBox[{"1359.2960334495024`", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"4", " ", 
                  SuperscriptBox[
                   RowBox[{"Cos", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "3"]}], "-", 
                 RowBox[{"3", " ", 
                  SuperscriptBox[
                   RowBox[{"Cos", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"]}], "+", 
                 RowBox[{"4", " ", 
                  RowBox[{"Cos", "[", 
                   RowBox[{"0.00113`", " ", "tau"}], "]"}], " ", 
                  SuperscriptBox[
                   RowBox[{"Sin", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"]}], "-", 
                 RowBox[{"6", " ", 
                  SuperscriptBox[
                   RowBox[{"Cos", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"Sin", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"]}], "-", 
                 RowBox[{"3", " ", 
                  SuperscriptBox[
                   RowBox[{"Sin", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"]}]}], 
                ")"}]}], 
              RowBox[{
               SuperscriptBox[
                RowBox[{"Cos", "[", 
                 RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"], "+", 
               RowBox[{"2", " ", 
                SuperscriptBox[
                 RowBox[{"Cos", "[", 
                  RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"], " ", 
                SuperscriptBox[
                 RowBox[{"Sin", "[", 
                  RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"]}], "+", 
               SuperscriptBox[
                RowBox[{"Sin", "[", 
                 RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"]}]], "-", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"5.016006776696906`", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"-", "1769.911504424779`"}], " ", 
                   SuperscriptBox[
                    RowBox[{"Cos", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "3"]}], "+", 
                  RowBox[{"1769.911504424779`", " ", 
                   SuperscriptBox[
                    RowBox[{"Cos", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"]}], "-", 
                  RowBox[{"1769.911504424779`", " ", 
                   RowBox[{"Cos", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], " ", 
                   SuperscriptBox[
                    RowBox[{"Sin", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"]}], "+", 
                  RowBox[{"3539.823008849558`", " ", 
                   SuperscriptBox[
                    RowBox[{"Cos", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"Sin", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"]}], "+", 
                  RowBox[{"1769.911504424779`", " ", 
                   SuperscriptBox[
                    RowBox[{"Sin", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"]}]}], 
                 ")"}]}], ")"}], "/", 
              RowBox[{"(", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{"Cos", "[", 
                  RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"], "+", 
                RowBox[{"2", " ", 
                 SuperscriptBox[
                  RowBox[{"Cos", "[", 
                   RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"], " ", 
                 SuperscriptBox[
                  RowBox[{"Sin", "[", 
                   RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"]}], "+", 
                SuperscriptBox[
                 RowBox[{"Sin", "[", 
                  RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"]}], ")"}]}], 
             "+", 
             FractionBox[
              RowBox[{
               RowBox[{"3", " ", "tau", " ", 
                SuperscriptBox[
                 RowBox[{"Cos", "[", 
                  RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"]}], "-", 
               RowBox[{"3539.823008849558`", " ", 
                SuperscriptBox[
                 RowBox[{"Cos", "[", 
                  RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"], " ", 
                RowBox[{"Sin", "[", 
                 RowBox[{"0.00113`", " ", "tau"}], "]"}]}], "+", 
               RowBox[{"6", " ", "tau", " ", 
                SuperscriptBox[
                 RowBox[{"Cos", "[", 
                  RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"], " ", 
                SuperscriptBox[
                 RowBox[{"Sin", "[", 
                  RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"]}], "-", 
               RowBox[{"3539.823008849558`", " ", 
                SuperscriptBox[
                 RowBox[{"Sin", "[", 
                  RowBox[{"0.00113`", " ", "tau"}], "]"}], "3"]}], "+", 
               RowBox[{"3", " ", "tau", " ", 
                SuperscriptBox[
                 RowBox[{"Sin", "[", 
                  RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"]}]}], 
              RowBox[{
               SuperscriptBox[
                RowBox[{"Cos", "[", 
                 RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"], "+", 
               RowBox[{"2", " ", 
                SuperscriptBox[
                 RowBox[{"Cos", "[", 
                  RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"], " ", 
                SuperscriptBox[
                 RowBox[{"Sin", "[", 
                  RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"]}], "+", 
               SuperscriptBox[
                RowBox[{"Sin", "[", 
                 RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"]}]]}], ",", 
            "0.`", ",", 
            RowBox[{"0.`", "\[VeryThinSpace]", "-", 
             FractionBox[
              RowBox[{"0.23498552221045943`", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "2"}], " ", 
                  SuperscriptBox[
                   RowBox[{"Cos", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"], " ", 
                  RowBox[{"Sin", "[", 
                   RowBox[{"0.00113`", " ", "tau"}], "]"}]}], "-", 
                 RowBox[{"2", " ", 
                  SuperscriptBox[
                   RowBox[{"Sin", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "3"]}]}], 
                ")"}]}], 
              RowBox[{
               SuperscriptBox[
                RowBox[{"Cos", "[", 
                 RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"], "+", 
               RowBox[{"2", " ", 
                SuperscriptBox[
                 RowBox[{"Cos", "[", 
                  RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"], " ", 
                SuperscriptBox[
                 RowBox[{"Sin", "[", 
                  RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"]}], "+", 
               SuperscriptBox[
                RowBox[{"Sin", "[", 
                 RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"]}]], "+", 
             FractionBox[
              RowBox[{"1.943997741101031`", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"4", " ", 
                  SuperscriptBox[
                   RowBox[{"Cos", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "3"]}], "-", 
                 RowBox[{"3", " ", 
                  SuperscriptBox[
                   RowBox[{"Cos", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"]}], "+", 
                 RowBox[{"4", " ", 
                  RowBox[{"Cos", "[", 
                   RowBox[{"0.00113`", " ", "tau"}], "]"}], " ", 
                  SuperscriptBox[
                   RowBox[{"Sin", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"]}], "-", 
                 RowBox[{"6", " ", 
                  SuperscriptBox[
                   RowBox[{"Cos", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"Sin", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"]}], "-", 
                 RowBox[{"3", " ", 
                  SuperscriptBox[
                   RowBox[{"Sin", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"]}]}], 
                ")"}]}], 
              RowBox[{
               SuperscriptBox[
                RowBox[{"Cos", "[", 
                 RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"], "+", 
               RowBox[{"2", " ", 
                SuperscriptBox[
                 RowBox[{"Cos", "[", 
                  RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"], " ", 
                SuperscriptBox[
                 RowBox[{"Sin", "[", 
                  RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"]}], "+", 
               SuperscriptBox[
                RowBox[{"Sin", "[", 
                 RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"]}]], "+", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"0.003295076171166247`", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"-", "1769.911504424779`"}], " ", 
                   SuperscriptBox[
                    RowBox[{"Cos", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "3"]}], "+", 
                  RowBox[{"1769.911504424779`", " ", 
                   SuperscriptBox[
                    RowBox[{"Cos", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"]}], "-", 
                  RowBox[{"1769.911504424779`", " ", 
                   RowBox[{"Cos", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], " ", 
                   SuperscriptBox[
                    RowBox[{"Sin", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"]}], "+", 
                  RowBox[{"3539.823008849558`", " ", 
                   SuperscriptBox[
                    RowBox[{"Cos", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"Sin", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"]}], "+", 
                  RowBox[{"1769.911504424779`", " ", 
                   SuperscriptBox[
                    RowBox[{"Sin", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"]}]}], 
                 ")"}]}], ")"}], "/", 
              RowBox[{"(", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{"Cos", "[", 
                  RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"], "+", 
                RowBox[{"2", " ", 
                 SuperscriptBox[
                  RowBox[{"Cos", "[", 
                   RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"], " ", 
                 SuperscriptBox[
                  RowBox[{"Sin", "[", 
                   RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"]}], "+", 
                SuperscriptBox[
                 RowBox[{"Sin", "[", 
                  RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"]}], ")"}]}]}], 
            ",", 
            RowBox[{"0.`", "\[VeryThinSpace]", "-", 
             FractionBox[
              RowBox[{"1.943997741101031`", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "2"}], " ", 
                  SuperscriptBox[
                   RowBox[{"Cos", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"], " ", 
                  RowBox[{"Sin", "[", 
                   RowBox[{"0.00113`", " ", "tau"}], "]"}]}], "-", 
                 RowBox[{"2", " ", 
                  SuperscriptBox[
                   RowBox[{"Sin", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "3"]}]}], 
                ")"}]}], 
              RowBox[{
               SuperscriptBox[
                RowBox[{"Cos", "[", 
                 RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"], "+", 
               RowBox[{"2", " ", 
                SuperscriptBox[
                 RowBox[{"Cos", "[", 
                  RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"], " ", 
                SuperscriptBox[
                 RowBox[{"Sin", "[", 
                  RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"]}], "+", 
               SuperscriptBox[
                RowBox[{"Sin", "[", 
                 RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"]}]], "-", 
             FractionBox[
              RowBox[{"3.9399420888418377`", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"4", " ", 
                  SuperscriptBox[
                   RowBox[{"Cos", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "3"]}], "-", 
                 RowBox[{"3", " ", 
                  SuperscriptBox[
                   RowBox[{"Cos", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"]}], "+", 
                 RowBox[{"4", " ", 
                  RowBox[{"Cos", "[", 
                   RowBox[{"0.00113`", " ", "tau"}], "]"}], " ", 
                  SuperscriptBox[
                   RowBox[{"Sin", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"]}], "-", 
                 RowBox[{"6", " ", 
                  SuperscriptBox[
                   RowBox[{"Cos", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"Sin", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"]}], "-", 
                 RowBox[{"3", " ", 
                  SuperscriptBox[
                   RowBox[{"Sin", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"]}]}], 
                ")"}]}], 
              RowBox[{
               SuperscriptBox[
                RowBox[{"Cos", "[", 
                 RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"], "+", 
               RowBox[{"2", " ", 
                SuperscriptBox[
                 RowBox[{"Cos", "[", 
                  RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"], " ", 
                SuperscriptBox[
                 RowBox[{"Sin", "[", 
                  RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"]}], "+", 
               SuperscriptBox[
                RowBox[{"Sin", "[", 
                 RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"]}]], "-", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"0.008373201840586913`", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"-", "1769.911504424779`"}], " ", 
                   SuperscriptBox[
                    RowBox[{"Cos", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "3"]}], "+", 
                  RowBox[{"1769.911504424779`", " ", 
                   SuperscriptBox[
                    RowBox[{"Cos", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"]}], "-", 
                  RowBox[{"1769.911504424779`", " ", 
                   RowBox[{"Cos", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], " ", 
                   SuperscriptBox[
                    RowBox[{"Sin", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"]}], "+", 
                  RowBox[{"3539.823008849558`", " ", 
                   SuperscriptBox[
                    RowBox[{"Cos", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"Sin", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"]}], "+", 
                  RowBox[{"1769.911504424779`", " ", 
                   SuperscriptBox[
                    RowBox[{"Sin", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"]}]}], 
                 ")"}]}], ")"}], "/", 
              RowBox[{"(", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{"Cos", "[", 
                  RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"], "+", 
                RowBox[{"2", " ", 
                 SuperscriptBox[
                  RowBox[{"Cos", "[", 
                   RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"], " ", 
                 SuperscriptBox[
                  RowBox[{"Sin", "[", 
                   RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"]}], "+", 
                SuperscriptBox[
                 RowBox[{"Sin", "[", 
                  RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"]}], ")"}]}]}], 
            ",", "0.`"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0.`", ",", "0.`", ",", 
            RowBox[{"0.`", "\[VeryThinSpace]", "+", 
             FractionBox[
              RowBox[{"860.1759916376244`", " ", 
               RowBox[{"(", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"Cos", "[", 
                   RowBox[{"0.00113`", " ", "tau"}], "]"}], "3"], "+", 
                 RowBox[{
                  RowBox[{"Cos", "[", 
                   RowBox[{"0.00113`", " ", "tau"}], "]"}], " ", 
                  SuperscriptBox[
                   RowBox[{"Sin", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"]}]}], 
                ")"}]}], 
              RowBox[{
               SuperscriptBox[
                RowBox[{"Cos", "[", 
                 RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"], "+", 
               RowBox[{"2", " ", 
                SuperscriptBox[
                 RowBox[{"Cos", "[", 
                  RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"], " ", 
                SuperscriptBox[
                 RowBox[{"Sin", "[", 
                  RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"]}], "+", 
               SuperscriptBox[
                RowBox[{"Sin", "[", 
                 RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"]}]], "-", 
             FractionBox[
              RowBox[{"0.23498552221045943`", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "884.9557522123895`"}], " ", 
                  SuperscriptBox[
                   RowBox[{"Cos", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"], " ", 
                  RowBox[{"Sin", "[", 
                   RowBox[{"0.00113`", " ", "tau"}], "]"}]}], "-", 
                 RowBox[{"884.9557522123895`", " ", 
                  SuperscriptBox[
                   RowBox[{"Sin", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "3"]}]}], 
                ")"}]}], 
              RowBox[{
               SuperscriptBox[
                RowBox[{"Cos", "[", 
                 RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"], "+", 
               RowBox[{"2", " ", 
                SuperscriptBox[
                 RowBox[{"Cos", "[", 
                  RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"], " ", 
                SuperscriptBox[
                 RowBox[{"Sin", "[", 
                  RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"]}], "+", 
               SuperscriptBox[
                RowBox[{"Sin", "[", 
                 RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"]}]]}], ",", 
            "0.`", ",", "0.`", ",", 
            RowBox[{"0.`", "\[VeryThinSpace]", "-", 
             FractionBox[
              RowBox[{"0.23498552221045943`", " ", 
               RowBox[{"(", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"Cos", "[", 
                   RowBox[{"0.00113`", " ", "tau"}], "]"}], "3"], "+", 
                 RowBox[{
                  RowBox[{"Cos", "[", 
                   RowBox[{"0.00113`", " ", "tau"}], "]"}], " ", 
                  SuperscriptBox[
                   RowBox[{"Sin", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"]}]}], 
                ")"}]}], 
              RowBox[{
               SuperscriptBox[
                RowBox[{"Cos", "[", 
                 RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"], "+", 
               RowBox[{"2", " ", 
                SuperscriptBox[
                 RowBox[{"Cos", "[", 
                  RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"], " ", 
                SuperscriptBox[
                 RowBox[{"Sin", "[", 
                  RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"]}], "+", 
               SuperscriptBox[
                RowBox[{"Sin", "[", 
                 RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"]}]], "-", 
             FractionBox[
              RowBox[{"0.0010983587237220825`", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "884.9557522123895`"}], " ", 
                  SuperscriptBox[
                   RowBox[{"Cos", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"], " ", 
                  RowBox[{"Sin", "[", 
                   RowBox[{"0.00113`", " ", "tau"}], "]"}]}], "-", 
                 RowBox[{"884.9557522123895`", " ", 
                  SuperscriptBox[
                   RowBox[{"Sin", "[", 
                    RowBox[{"0.00113`", " ", "tau"}], "]"}], "3"]}]}], 
                ")"}]}], 
              RowBox[{
               SuperscriptBox[
                RowBox[{"Cos", "[", 
                 RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"], "+", 
               RowBox[{"2", " ", 
                SuperscriptBox[
                 RowBox[{"Cos", "[", 
                  RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"], " ", 
                SuperscriptBox[
                 RowBox[{"Sin", "[", 
                  RowBox[{"0.00113`", " ", "tau"}], "]"}], "2"]}], "+", 
               SuperscriptBox[
                RowBox[{"Sin", "[", 
                 RowBox[{"0.00113`", " ", "tau"}], "]"}], "4"]}]]}]}], 
           "}"}]}], "}"}], ".", "inverse_g", ".", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "56.01860472883061`"}], ",", "197.19081863786437`", 
          ",", "10.832964120697437`", ",", 
          RowBox[{"-", "0.013909175969606391`"}], ",", "0.2936076606871567`", 
          ",", 
          RowBox[{"-", "0.03518395389431725`"}]}], "}"}]}]}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"tau", ",", "0", ",", "1600"}], "}"}]}], "]"}]}]], "Output",
 CellChangeTimes->{3.916682751587428*^9, 3.916842940452196*^9},
 CellLabel->
  "Out[1635]=",ExpressionUUID->"b0137284-d835-4a2b-b28a-1b3eee72a087"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.916519141993352*^9},
 NumberMarks->False,ExpressionUUID->"4469ff9a-81ff-4a4c-939a-539ab2126e8f"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.916519147261279*^9, 
  3.9165191472614813`*^9}},ExpressionUUID->"006831ef-7d13-44b5-bbf8-\
21502f4176cc"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"x0", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
    "0", ",", " ", "0", ",", " ", "0", ",", " ", "1", ",", " ", "0", ",", " ",
      "0"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"k", " ", "=", " ", "100"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dim", " ", "=", " ", "6"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"firsts", " ", "=", " ", 
   RowBox[{"ConstantArray", "[", 
    RowBox[{"x0", ",", " ", "k"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tfs", " ", "=", " ", 
   RowBox[{"ConstantArray", "[", 
    RowBox[{"1", ",", " ", "k"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"t0s", " ", "=", " ", 
   RowBox[{"ConstantArray", "[", 
    RowBox[{"0", ",", " ", "k"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"finals", " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"RandomReal", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", " ", "1"}], "}"}], ",", " ", "6"}], "]"}], ",", " ", 
     RowBox[{"{", "k", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"datapoints", " ", "=", " ", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{"t0s", ",", " ", "tfs", ",", " ", "firsts", ",", " ", "finals"}],
      "}"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.915383371798586*^9, 3.915383376949902*^9}, {
   3.915383993451714*^9, 3.915383993789464*^9}, {3.915384525802215*^9, 
   3.915384540865444*^9}, {3.9153847054857817`*^9, 3.915384706438778*^9}, {
   3.915384769976225*^9, 3.915384803750641*^9}, {3.915384835583741*^9, 
   3.915384918542737*^9}, {3.915384966914145*^9, 3.915384979057313*^9}, {
   3.9153866667111692`*^9, 3.9153867520166073`*^9}, 3.9153869312165823`*^9, {
   3.915387377650899*^9, 3.915387387294902*^9}},
 CellLabel->
  "In[445]:=",ExpressionUUID->"277cd5cb-4e5c-480d-b425-236c45a2a2bd"],

Cell[BoxData[{
 RowBox[{"res", " ", "=", " ", 
  RowBox[{
  "costfunctional", " ", "@@@", " ", 
   "datapoints"}]}], "\[IndentingNewLine]", 
 RowBox[{"AllTrue", "[", 
  RowBox[{"res", ",", 
   RowBox[{
    RowBox[{"#", "<=", "m"}], "&"}]}], "]"}], "\n"}], "Input",
 CellChangeTimes->{{3.915386809450547*^9, 3.915386848916091*^9}, {
  3.915386919757436*^9, 3.915386923466113*^9}, {3.91538730123838*^9, 
  3.915387318979927*^9}},
 CellLabel->
  "In[453]:=",ExpressionUUID->"4844e31b-b8ac-4dc6-a8e8-726692e7cd8c"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.915386754811222*^9, 
  3.915386792915097*^9}},ExpressionUUID->"7e8e3900-2c6d-4b79-bb93-\
55150bd79981"]
},
WindowSize->{Full, Full},
WindowMargins->{{4, Automatic}, {Automatic, 9}},
TaggingRules->Association["TryRealOnly" -> False],
FrontEndVersion->"12.3 for Mac OS X ARM (64-bit) (July 9, 2021)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"439bfbd9-f97f-4c08-a637-49e5270b50d2"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 276, 5, 30, "Input",ExpressionUUID->"c9f5c03e-7b14-46db-af1f-952b22ef8bfb"],
Cell[837, 27, 14907, 350, 556, "Input",ExpressionUUID->"efd9f47c-38e9-4c6e-a7b6-cec6d77c5959"],
Cell[15747, 379, 1104, 28, 136, "Input",ExpressionUUID->"59c84052-bf99-4950-81a3-f578015f1b7b"],
Cell[16854, 409, 516, 8, 30, "Input",ExpressionUUID->"6a7661d3-3885-47e4-82db-00b0fe86f100"],
Cell[CellGroupData[{
Cell[17395, 421, 26602, 701, 587, "Input",ExpressionUUID->"199f22b4-8f91-432b-836b-de5c4914d6c9"],
Cell[44000, 1124, 7826, 236, 220, "Output",ExpressionUUID->"d6586295-1c7e-4e5b-a58c-fcdd4043a5ef"]
}, Open  ]],
Cell[CellGroupData[{
Cell[51863, 1365, 2722, 69, 199, "Input",ExpressionUUID->"0def9b0b-e42f-4e7e-b8b2-57ca94775a30"],
Cell[54588, 1436, 668, 19, 60, "Output",ExpressionUUID->"fca1d227-f555-412c-b551-e858b7548ff2"],
Cell[55259, 1457, 708, 19, 62, "Output",ExpressionUUID->"8fbac16f-09bb-4530-bcb1-417883c79366"],
Cell[55970, 1478, 697, 22, 76, "Output",ExpressionUUID->"16146563-1c27-4a49-90ca-f40871683d01"],
Cell[56670, 1502, 647, 18, 45, "Output",ExpressionUUID->"78787a6e-d2e1-4e30-b85e-6c7518790903"]
}, Open  ]],
Cell[57332, 1523, 1905, 45, 30, "Input",ExpressionUUID->"f67ff140-f44a-41e2-a740-c353de0e632d"],
Cell[59240, 1570, 904, 21, 73, "Input",ExpressionUUID->"16513978-b3b6-42d3-b2c1-a45ee2c97f9c"],
Cell[CellGroupData[{
Cell[60169, 1595, 2353, 56, 136, "Input",ExpressionUUID->"26621c29-8ad7-473a-b69b-f2bad736b08a"],
Cell[62525, 1653, 196, 3, 34, "Output",ExpressionUUID->"149d3d06-c148-4e7c-affd-5c3323e926f3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[62758, 1661, 2146, 48, 52, "Input",ExpressionUUID->"5edbbfcc-db53-4b2e-9eb7-aecd51d64fdc"],
Cell[64907, 1711, 251, 5, 34, "Output",ExpressionUUID->"7d2fc809-ec30-4dab-a9b1-666603e464cf"]
}, Open  ]],
Cell[65173, 1719, 227, 4, 30, "Input",ExpressionUUID->"f171eeeb-4439-4e0e-a51b-207f92391c94"],
Cell[65403, 1725, 1721, 34, 30, "Input",ExpressionUUID->"b7f6fbe7-5274-40ce-9e5b-1bcff52022f6"],
Cell[67127, 1761, 176, 3, 30, "Input",ExpressionUUID->"94a00a4a-cb43-459e-82bc-d466df19af8e"],
Cell[67306, 1766, 248, 4, 30, "Input",ExpressionUUID->"524c2b27-8bb9-4ecf-889c-91c2eac0a3d3"],
Cell[67557, 1772, 175, 3, 30, "Input",ExpressionUUID->"35cd92c3-1999-434a-ad34-0130c3ba13a6"],
Cell[67735, 1777, 1480, 34, 30, "Input",ExpressionUUID->"3b79a3d6-efaf-40b6-93bd-801efd007f4d"],
Cell[69218, 1813, 1221, 29, 52, "Input",ExpressionUUID->"636cebf8-02a9-4b00-a873-a3b6ed2d8ecf"],
Cell[CellGroupData[{
Cell[70464, 1846, 1586, 31, 52, "Input",ExpressionUUID->"2a7501ce-47fe-44af-b333-391cdb0e812e"],
Cell[72053, 1879, 183, 3, 34, "Output",ExpressionUUID->"a82f9a5b-e0a1-441d-aa59-7ce71718ca57"],
Cell[72239, 1884, 6950, 99, 80, "Message",ExpressionUUID->"b464b0bc-79f0-474b-9e55-ec4b04f362aa"],
Cell[79192, 1985, 6952, 99, 80, "Message",ExpressionUUID->"de02491c-3391-40d5-b8cd-6730cd5c9559"],
Cell[86147, 2086, 6952, 99, 80, "Message",ExpressionUUID->"4667749b-0946-4a55-b7b6-efa536ea566d"],
Cell[93102, 2187, 485, 10, 28, "Message",ExpressionUUID->"fa47f0c9-168d-45b3-a87c-1cc4c18896e3"],
Cell[93590, 2199, 47759, 1090, 1107, "Output",ExpressionUUID->"b0137284-d835-4a2b-b28a-1b3eee72a087"]
}, Open  ]],
Cell[141364, 3292, 144, 2, 30, "Input",ExpressionUUID->"4469ff9a-81ff-4a4c-939a-539ab2126e8f"],
Cell[141511, 3296, 154, 3, 30, "Input",ExpressionUUID->"006831ef-7d13-44b5-bbf8-21502f4176cc"],
Cell[141668, 3301, 1929, 46, 178, "Input",ExpressionUUID->"277cd5cb-4e5c-480d-b425-236c45a2a2bd"],
Cell[143600, 3349, 510, 13, 73, "Input",ExpressionUUID->"4844e31b-b8ac-4dc6-a8e8-726692e7cd8c"],
Cell[144113, 3364, 152, 3, 30, "Input",ExpressionUUID->"7e8e3900-2c6d-4b79-bb93-55150bd79981"]
}
]
*)