Collision of a gravitational impulsive wave with a shell of null dust by Babala.nb

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

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

(* CreatedBy='Mathematica 12.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    701941,      19736]
NotebookOptionsPosition[    670457,      19275]
NotebookOutlinePosition[    670926,      19292]
CellTagsIndexPosition[    670883,      19289]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
Notebook for :  
Collision of a gravitational impulsive wave with a shell of null dust by \
Babala\
\>", "Title",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8217294718661222`*^9, 3.821729502043838*^9}, 
   3.8217295683553457`*^9, 3.821732221863006*^9, {3.821811203295624*^9, 
   3.8218112036548367`*^9}, {3.822041768762134*^9, 3.822041781290854*^9}, {
   3.822048009752109*^9, 3.8220480569607773`*^9}, {3.822504877727007*^9, 
   3.8225048874039307`*^9}, {3.822565447028533*^9, 3.822565457908236*^9}, {
   3.822822107930128*^9, 3.822822113128089*^9}, {3.823176459993638*^9, 
   3.823176470345335*^9}, {3.823359338529508*^9, 3.823359361520629*^9}, {
   3.8235974638251762`*^9, 3.823597473367338*^9}, {3.823618458364909*^9, 
   3.8236184669077578`*^9}, {3.8236833044709806`*^9, 3.823683312509585*^9}, {
   3.8236885755476217`*^9, 3.823688587026948*^9}, {3.823689672516461*^9, 
   3.823689672910822*^9}, {3.8237044493810883`*^9, 3.8237044672759027`*^9}, {
   3.8239668765180197`*^9, 3.8239668768923607`*^9}, {3.823969962518847*^9, 
   3.823969963027501*^9}, {3.824031452536063*^9, 3.8240314588397417`*^9}, 
   3.8554052402964993`*^9, 3.8554052726641283`*^9},
 TextAlignment->Center,ExpressionUUID->"f92a6c23-7093-4736-a451-0bd7b0bd56bf"],

Cell["\<\
Geoff Cope
University of Utah
\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\|01040f\|01042d\|01044c\|010432\|010442\|010432\
\|010449\|010445\|01042e\|01043b\|010428 \|010432\|010442 \|01040f\|01042d\
\|01043b\|01042b
March 6, 2021\
\>", "Author",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.821729507652328*^9, 3.821729529657844*^9}, 
   3.8220480097522783`*^9, {3.822048070235491*^9, 3.822048084689715*^9}, {
   3.8225654346519403`*^9, 3.8225654361641483`*^9}, {3.8231764728567343`*^9, 
   3.823176482313031*^9}, {3.8233640113399878`*^9, 3.823364023347041*^9}, {
   3.8234229506702557`*^9, 3.823422956381791*^9}, {3.827953252419902*^9, 
   3.827953254868108*^9}, {3.851065213363542*^9, 3.8510652255731983`*^9}, {
   3.8510652620952*^9, 3.851065307413348*^9}, {3.851099255534511*^9, 
   3.851099264486588*^9}, {3.851252093025189*^9, 3.851252093273655*^9}, 
   3.851252176997463*^9, 3.8512537234246607`*^9, 3.85125469290289*^9, 
   3.851256927304118*^9, {3.855405234504258*^9, 3.855405238736866*^9}, 
   3.855405272664227*^9},
 TextAlignment->Center,ExpressionUUID->"83b0ad74-2e04-4223-879e-b09f85570f3c"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Hyperlink To Documentation", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820944675605734*^9, 
  3.8209446931410646`*^9}},ExpressionUUID->"fd19c415-4ced-41e9-8922-\
14ccab0f515a"],

Cell[BoxData[
 RowBox[{"Hyperlink", "[", 
  RowBox[{
  "\"\<GeneralRelativityTensors Documentation and Download\>\"", ",", 
   "\[IndentingNewLine]", 
   "\"\<https://github.com/BlackHolePerturbationToolkit\>\""}], 
  "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820944619768764*^9, 3.820944681268063*^9}},
 CellLabel->"In[6]:=",ExpressionUUID->"4f5c01ab-0745-4ba4-9f4a-49a08bd4685f"],

Cell[BoxData[
 TemplateBox[{
  "\"GeneralRelativityTensors Documentation and Download\"", 
   "https://github.com/BlackHolePerturbationToolkit"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820944653562152*^9, 3.820944681268403*^9}, 
   3.821729905862431*^9, 3.821732641380642*^9, 3.8218069931429567`*^9, 
   3.821811425912986*^9, 3.822042652654992*^9, {3.822048793766124*^9, 
   3.8220488009116488`*^9}, 3.82250502887521*^9, 3.822505578829629*^9, 
   3.822565490613895*^9, 3.8225662097813597`*^9, 3.822606717894772*^9, 
   3.822739433713368*^9, 3.822822210464344*^9, 3.8233594284652433`*^9, 
   3.8233607803938913`*^9, 3.823360880234103*^9, 3.823361224481102*^9, 
   3.82336209870968*^9, 3.823364030542309*^9, 3.823597528606563*^9, 
   3.823618495251218*^9, 3.82368341365138*^9, 3.82368384184562*^9, 
   3.823684775269041*^9, 3.823688794270237*^9, 3.82369077711421*^9, 
   3.823704572306265*^9, 3.8239670360944*^9, 3.8239675178827963`*^9, 
   3.823970038559888*^9, 3.824025681964837*^9, 3.824032150329472*^9},
 CellLabel->"Out[6]=",ExpressionUUID->"289b4e95-f18a-4ac7-a669-7b7b69c83fde"]
}, Closed]],

Cell[CellGroupData[{

Cell["Hyperlink  To Article ", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.820937794883616*^9, {3.820938266275806*^9, 3.82093829464357*^9}, 
   3.820943883376583*^9, {3.8210324492405148`*^9, 3.821032453951701*^9}, {
   3.8217297279218817`*^9, 3.8217297313782063`*^9}, {3.822593613363134*^9, 
   3.822593616181035*^9}, {3.822736144359599*^9, 3.8227361450547543`*^9}, {
   3.823359417697976*^9, 3.823359420672374*^9}, 
   3.8554052541609917`*^9},ExpressionUUID->"229b1f79-80a0-4855-ad2f-\
5de3f71f173e"],

Cell[BoxData[
 RowBox[{"Hyperlink", "[", 
  RowBox[{
  "\"\<Collision of a gravitational impulsive wave with a shell of null dust \
by Babala\>\"", ",", "\[IndentingNewLine]", 
   "\"\<https://iopscience.iop.org/article/10.1088/0264-9381/4/4/004/pdf\>\""}\
], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8218867746254797`*^9, 3.821886810805148*^9}, 
   3.823176507207197*^9, {3.823472730005904*^9, 3.823472744739744*^9}, {
   3.823597507106205*^9, 3.823597507709626*^9}, {3.8247469879660053`*^9, 
   3.824747000900072*^9}},
 CellLabel->"In[3]:=",ExpressionUUID->"36522761-3d95-409f-927c-a58b2240ba66"],

Cell[BoxData[
 TemplateBox[{
  "\"Collision of a gravitational impulsive wave with a shell of null dust by \
Babala\"", "https://iopscience.iop.org/article/10.1088/0264-9381/4/4/004/pdf"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.821886813557355*^9, 3.8231765072073307`*^9, 3.823359428608782*^9, 
   3.8233607804338617`*^9, 3.823360880363216*^9, 3.823361224626254*^9, 
   3.823362098931829*^9, 3.823364030688095*^9, 3.823472745219315*^9, {
   3.8235975109202147`*^9, 3.823597528650549*^9}, 3.823618495400096*^9, 
   3.823683413880138*^9, 3.823683841884781*^9, 3.823684775280538*^9, 
   3.823688794413259*^9, 3.8236907771492443`*^9, 3.823704572455369*^9, 
   3.8239670361077127`*^9, 3.8239675178933*^9, 3.823970038708452*^9, 
   3.824025682120349*^9, 3.824032150367559*^9, 3.8247470023294153`*^9},
 CellLabel->"Out[3]=",ExpressionUUID->"54d7f7ff-d89f-422c-9403-20437c145b40"],

Cell[BoxData[
 RowBox[{"Hyperlink", "[", 
  RowBox[{
  "\"\<Colliding Plane Waves by Griffiths - Book\>\"", ",", 
   "\"\<ftp://nozdr.ru/biblio/kolxoz/P/PGr/Griffiths%20J.B.%20Colliding%\
20plane%20waves%20in%20general%20relativity%20(OUP,%201991)(ISBN%200198532091)\
(254s)_PGr_.pdf\>\""}], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.821971700891346*^9, 3.821971727288177*^9}, 
   3.8220418523671618`*^9, {3.8220419016581783`*^9, 3.822041910552957*^9}},
 CellLabel->"In[8]:=",ExpressionUUID->"9fd3fae3-d026-4abe-a3be-9ade82edcc57"],

Cell[BoxData[
 TemplateBox[{
  "\"Colliding Plane Waves by Griffiths - Book\"", 
   "ftp://nozdr.ru/biblio/kolxoz/P/PGr/Griffiths%20J.B.%20Colliding%20plane%\
20waves%20in%20general%20relativity%20(OUP,%201991)(ISBN%200198532091)(254s)_\
PGr_.pdf"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.8219717866333103`*^9, 3.822041852367313*^9, 3.822041913511463*^9, 
   3.8220426527016563`*^9, {3.822048793815063*^9, 3.8220488009576597`*^9}, 
   3.822505029060484*^9, 3.822505578941113*^9, 3.82256549066683*^9, 
   3.822566209832062*^9, 3.822606717963243*^9, 3.822739433796803*^9, 
   3.822822210610302*^9, 3.8233594286355753`*^9, 3.8233607804460297`*^9, 
   3.8233608803853903`*^9, 3.823361224649728*^9, 3.823362098967597*^9, 
   3.823364030715418*^9, 3.823597528661324*^9, 3.823618495426402*^9, 
   3.8236834139074087`*^9, 3.82368384189923*^9, 3.8236847753002243`*^9, 
   3.823688794441139*^9, 3.823690777159783*^9, 3.823704572476899*^9, 
   3.8239670361242037`*^9, 3.82396751791289*^9, 3.823970038722382*^9, 
   3.8240256821512117`*^9, 3.824032150379888*^9},
 CellLabel->"Out[8]=",ExpressionUUID->"d13d4d6f-8a9c-4d42-a392-4954e0846027"]
}, Closed]],

Cell[CellGroupData[{

Cell["Utilities and Package Load", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.820937646765551*^9, 3.8209376725449123`*^9}, 
   3.825288988981851*^9},ExpressionUUID->"9687bf61-b0bd-422f-b179-\
854b42b92cd6"],

Cell[BoxData[{
 RowBox[{"ClearAll", "[", "\"\<Global`*\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"<<", "Utilities`CleanSlate`"}], "\[IndentingNewLine]", 
 RowBox[{"CleanSlate", "[", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ClearInOut", "[", "]"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pdConv", "[", "f_", "]"}], ":=", 
  RowBox[{"TraditionalForm", "[", 
   RowBox[{"f", "/.", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Derivative", "[", "inds__", "]"}], "[", "g_", "]"}], "[", 
      "vars__", "]"}], "\[RuleDelayed]", 
     RowBox[{"Apply", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Defer", "[", 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"g", "[", "vars", "]"}], ",", "##"}], "]"}], "]"}], "&"}], 
       ",", 
       RowBox[{
        RowBox[{"Transpose", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", "vars", "}"}], ",", 
           RowBox[{"{", "inds", "}"}]}], "}"}], "]"}], "/.", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"{", 
            RowBox[{"var_", ",", "0"}], "}"}], "\[RuleDelayed]", 
           RowBox[{"Sequence", "[", "]"}]}], ",", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"var_", ",", "1"}], "}"}], "\[RuleDelayed]", 
           RowBox[{"{", "var", "}"}]}]}], "}"}]}]}], "]"}]}]}], 
   "]"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.8209376549030037`*^9, {3.821032517164062*^9, 3.821032518258361*^9}, 
   3.8252889889820223`*^9},
 CellLabel->"In[9]:=",ExpressionUUID->"94e6e36a-be52-497b-bd19-892e18d95739"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"  (CleanSlate) Contexts purged: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", "\<\"Global`\"\>", "}"}]}],
  SequenceForm["  (CleanSlate) Contexts purged: ", {"Global`"}],
  Editable->False]], "Print",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.820932754769992*^9, 3.820933427630714*^9, 3.820937654903143*^9, 
   3.821729906190301*^9, 3.821732641685704*^9, 3.8218069933778133`*^9, 
   3.82181142618342*^9, 3.8220426528487463`*^9, {3.822048793940605*^9, 
   3.822048801089246*^9}, 3.822505029191699*^9, 3.822505579049889*^9, 
   3.822565490838564*^9, 3.822566210008327*^9, 3.822606718180009*^9, 
   3.8226371008270607`*^9, 3.822739433887854*^9, 3.822761800089258*^9, 
   3.8228172997642097`*^9, 3.822822210725956*^9, 3.822988687208267*^9, 
   3.823359428732101*^9, 3.823360780582996*^9, 3.823360880477087*^9, 
   3.823361224742215*^9, 3.8233620990886593`*^9, 3.8233640308219624`*^9, 
   3.8235320061137466`*^9, 3.823597528753026*^9, 3.823618495521882*^9, 
   3.823683414021819*^9, 3.823683842015107*^9, 3.823684775412067*^9, 
   3.823688794547976*^9, 3.823690777270031*^9, 3.8237045725706463`*^9, 
   3.823967036254635*^9, 3.823967518049459*^9, 3.823970038788274*^9, 
   3.824025682258999*^9, 3.8240321504830923`*^9, 3.825288988982121*^9},
 CellLabel->
  "During evaluation of \
In[9]:=",ExpressionUUID->"54f1c246-4f67-4e0b-a10e-cefb6d841ce1"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"  (CleanSlate) Approximate kernel memory recovered: \"\>", 
   "\[InvisibleSpace]", "\<\"23 Kb\"\>"}],
  SequenceForm[
  "  (CleanSlate) Approximate kernel memory recovered: ", "23 Kb"],
  Editable->False]], "Print",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.820932754769992*^9, 3.820933427630714*^9, 3.820937654903143*^9, 
   3.821729906190301*^9, 3.821732641685704*^9, 3.8218069933778133`*^9, 
   3.82181142618342*^9, 3.8220426528487463`*^9, {3.822048793940605*^9, 
   3.822048801089246*^9}, 3.822505029191699*^9, 3.822505579049889*^9, 
   3.822565490838564*^9, 3.822566210008327*^9, 3.822606718180009*^9, 
   3.8226371008270607`*^9, 3.822739433887854*^9, 3.822761800089258*^9, 
   3.8228172997642097`*^9, 3.822822210725956*^9, 3.822988687208267*^9, 
   3.823359428732101*^9, 3.823360780582996*^9, 3.823360880477087*^9, 
   3.823361224742215*^9, 3.8233620990886593`*^9, 3.8233640308219624`*^9, 
   3.8235320061137466`*^9, 3.823597528753026*^9, 3.823618495521882*^9, 
   3.823683414021819*^9, 3.823683842015107*^9, 3.823684775412067*^9, 
   3.823688794547976*^9, 3.823690777270031*^9, 3.8237045725706463`*^9, 
   3.823967036254635*^9, 3.823967518049459*^9, 3.823970038788274*^9, 
   3.824025682258999*^9, 3.824032150485259*^9, 3.825288988982211*^9},
 CellLabel->
  "During evaluation of \
In[9]:=",ExpressionUUID->"845ecc61-5d76-4e61-904d-4b32023e00bd"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Utilities`CleanSlate`\"\>", 
   ",", "\<\"DocumentationSearch`\"\>", ",", "\<\"ResourceLocator`\"\>", 
   ",", "\<\"System`\"\>", ",", "\<\"Global`\"\>"}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.820932754773623*^9, 3.820933427635436*^9, 3.8209376549033947`*^9, 
   3.821729906193787*^9, 3.821732641691049*^9, 3.821806993386058*^9, 
   3.821811426187071*^9, 3.822042652852829*^9, {3.822048793944077*^9, 
   3.822048801092909*^9}, 3.822505029195156*^9, 3.8225055790570173`*^9, 
   3.8225654908422747`*^9, 3.8225662100125237`*^9, 3.8226067181902227`*^9, 
   3.822637100839163*^9, 3.8227394339100733`*^9, 3.822761800103311*^9, 
   3.822817299776285*^9, 3.822822210739685*^9, 3.822988687217742*^9, 
   3.823359428736412*^9, 3.823360780587545*^9, 3.8233608804810534`*^9, 
   3.823361224746982*^9, 3.823362099093968*^9, 3.823364030838743*^9, 
   3.8235320061191893`*^9, 3.823597528756508*^9, 3.8236184955254183`*^9, 
   3.823683414029439*^9, 3.823683842020509*^9, 3.823684775416593*^9, 
   3.823688794552709*^9, 3.823690777273932*^9, 3.8237045725743713`*^9, 
   3.823967036258197*^9, 3.823967518053287*^9, 3.8239700387921047`*^9, 
   3.824025682265245*^9, 3.824032150486408*^9, 3.8252889889823313`*^9},
 CellLabel->"Out[0]=",ExpressionUUID->"21580ea3-1c7e-4ac7-8c1f-68b80b9edad0"],

Cell[BoxData[
 RowBox[{"<<", "GeneralRelativityTensors`"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.8209376549035053`*^9, 3.8252889889824133`*^9},
 CellLabel->"In[2]:=",ExpressionUUID->"5a0f82e5-ecb2-4e63-ad6b-737223528171"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<VariationalMethods`\>\"", "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.82282432548825*^9, 3.822824327819418*^9}, 
   3.825288988982493*^9},
 CellLabel->"In[3]:=",ExpressionUUID->"d39f7b50-78bd-4355-aafc-5d94ee35439a"],

Cell["Custom Notation", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.8225114042235403`*^9, 3.822511435665856*^9}, 
   3.823176577809782*^9, 
   3.825289249887026*^9},ExpressionUUID->"8d0f0737-615c-4928-8fa3-\
12c8c31c8bb8"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "dtReplace", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dtReplace", " ", "=", " ", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"Dt", "[", "r", "]"}], "\[Rule]", " ", "dr"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "t", "]"}], "\[Rule]", " ", "dt"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "u", "]"}], "\[Rule]", " ", "du"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "v", "]"}], "\[Rule]", " ", "dv"}], " ", ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "x", "]"}], "\[Rule]", " ", "dx"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "y", "]"}], " ", "\[Rule]", " ", "dy"}], " ", ",", 
     " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "z", "]"}], "\[Rule]", " ", "dz"}], " ", ",", " ", 
     "\[IndentingNewLine]", " ", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Theta]", "]"}], " ", "\[Rule]", " ", 
      "d\[Theta]"}], " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Phi]", "]"}], " ", "\[Rule]", " ", "d\[Phi]"}], 
     "  ", ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Eta]", "]"}], " ", "\[Rule]", " ", "d\[Eta]"}], 
     "  ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Chi]", "]"}], "\[Rule]", " ", "d\[Chi]"}], " ", 
     ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Rho]", "]"}], " ", "\[Rule]", " ", "d\[Rho]"}], 
     " ", ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[CurlyRho]", "]"}], "\[Rule]", " ", 
      "d\[CurlyRho]"}], " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[CurlyPhi]", "]"}], " ", "\[Rule]", " ", 
      "d\[CurlyPhi]"}], " ", ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Xi]", "]"}], "\[Rule]", " ", "d\[Xi]"}], " ", ",",
      "  ", "\[IndentingNewLine]", " ", 
     RowBox[{
      RowBox[{"Dt", "[", "\[ScriptT]", "]"}], " ", "\[Rule]", " ", 
      "d\[ScriptT]"}], " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[ScriptV]", "]"}], "\[Rule]", " ", "d\[ScriptV]"}],
      " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[ScriptU]", "]"}], "\[Rule]", " ", "d\[ScriptU]"}],
      " ", ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[ScriptX]", "]"}], "\[Rule]", " ", "d\[ScriptX]"}],
      " ", ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[ScriptY]", "]"}], "\[Rule]", " ", "d\[ScriptY]"}],
      ",", "   ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[ScriptZ]", "]"}], " ", "\[Rule]", " ", 
      "d\[ScriptZ]"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "T", "]"}], "\[Rule]", " ", "dT"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "X", "]"}], "\[Rule]", " ", "dX"}], ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "Y", "]"}], "\[Rule]", " ", "dY"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "Z", "]"}], "\[Rule]", " ", "dZ"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "U", "]"}], "\[Rule]", " ", "dU"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "V", "]"}], "\[Rule]", " ", "dV"}], " ", ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[ScriptR]", "]"}], "\[Rule]", " ", "d\[ScriptR]"}],
      "  ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[CapitalPhi]", "]"}], "\[Rule]", " ", 
      "d\[CapitalPhi]"}]}], "\[IndentingNewLine]", "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"dtReplace", " ", "//", " ", "TableForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.82317656063256*^9, 3.823176577809904*^9}, {
   3.823598236175474*^9, 3.823598253654046*^9}, {3.823598849383689*^9, 
   3.82359891091936*^9}, {3.8236913141384983`*^9, 3.823691322585009*^9}, {
   3.8237047861092253`*^9, 3.823704790612156*^9}, {3.824032529537923*^9, 
   3.8240325755969877`*^9}, 3.8252892498871603`*^9},
 CellLabel->"In[29]:=",ExpressionUUID->"bd4e7e63-46eb-4aba-9732-33e41ba065cf"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{
       RowBox[{"Dt", "[", "r", "]"}], "\[Rule]", "dr"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "t", "]"}], "\[Rule]", "dt"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "u", "]"}], "\[Rule]", "du"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "v", "]"}], "\[Rule]", "dv"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "x", "]"}], "\[Rule]", "dx"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "y", "]"}], "\[Rule]", "dy"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "z", "]"}], "\[Rule]", "dz"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Theta]", "]"}], "\[Rule]", "d\[Theta]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Phi]", "]"}], "\[Rule]", "d\[Phi]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Eta]", "]"}], "\[Rule]", "d\[Eta]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Chi]", "]"}], "\[Rule]", "d\[Chi]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Rho]", "]"}], "\[Rule]", "d\[Rho]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[CurlyRho]", "]"}], "\[Rule]", "d\[CurlyRho]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[CurlyPhi]", "]"}], "\[Rule]", "d\[CurlyPhi]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Xi]", "]"}], "\[Rule]", "d\[Xi]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[ScriptT]", "]"}], "\[Rule]", "d\[ScriptT]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[ScriptV]", "]"}], "\[Rule]", "d\[ScriptV]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[ScriptU]", "]"}], "\[Rule]", "d\[ScriptU]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[ScriptX]", "]"}], "\[Rule]", "d\[ScriptX]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[ScriptY]", "]"}], "\[Rule]", "d\[ScriptY]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[ScriptZ]", "]"}], "\[Rule]", "d\[ScriptZ]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "T", "]"}], "\[Rule]", "dT"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "X", "]"}], "\[Rule]", "dX"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "Y", "]"}], "\[Rule]", "dY"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "Z", "]"}], "\[Rule]", "dZ"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "U", "]"}], "\[Rule]", "dU"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "V", "]"}], "\[Rule]", "dV"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[ScriptR]", "]"}], "\[Rule]", "d\[ScriptR]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[CapitalPhi]", "]"}], "\[Rule]", 
       "d\[CapitalPhi]"}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.82403258232056*^9, 3.825289249887295*^9},
 CellLabel->
  "Out[31]//TableForm=",ExpressionUUID->"c6ead005-408e-4b2b-8664-\
b92d1b3f7de8"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"a", "/:", 
    RowBox[{"Dt", "[", "a", "]"}], "=", "0"}], "  ", ";"}], 
  "  "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"b", " ", "/:", " ", 
    RowBox[{"Dt", "[", "b", "]"}], " ", "=", " ", "0"}], " ", ";"}], 
  "  "}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.823598195430221*^9, 3.823598210501268*^9}, {
   3.823602495092556*^9, 3.823602530987715*^9}, {3.8236188964036007`*^9, 
   3.8236189207008657`*^9}, {3.8237047330364532`*^9, 3.823704739867001*^9}, 
   3.825289249887392*^9},
 CellLabel->"In[7]:=",ExpressionUUID->"16a74cff-bb63-4125-b267-32502e396157"]
}, Closed]],

Cell[CellGroupData[{

Cell["Line Element and Metric Functions", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{{3.820937548919169*^9, 3.8209375728447866`*^9}, 
   3.8209383129401073`*^9, 3.8220481344968433`*^9, {3.8225115057038183`*^9, 
   3.822511507783984*^9}, 
   3.822763734568725*^9},ExpressionUUID->"12a9cae8-a68f-46d7-85ea-\
6274b3d68a2c"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "lineToMetric", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"lineToMetric", "[", 
    RowBox[{"lineelement_", " ", ",", " ", "differentials_"}], "]"}], ":=", 
   " ", "\[IndentingNewLine]", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"i", "\[Equal]", "j"}], " ", ",", 
       RowBox[{"Coefficient", "[", 
        RowBox[{"lineelement", ",", " ", 
         RowBox[{
          RowBox[{"differentials", "[", 
           RowBox[{"[", "i", "]"}], "]"}], " ", 
          RowBox[{"differentials", "[", 
           RowBox[{"[", "j", "]"}], "]"}]}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "/", "2"}], ")"}], "*", 
        RowBox[{"Coefficient", "[", 
         RowBox[{"lineelement", ",", " ", 
          RowBox[{
           RowBox[{"differentials", "[", 
            RowBox[{"[", "i", "]"}], "]"}], " ", 
           RowBox[{"differentials", "[", 
            RowBox[{"[", "j", "]"}], "]"}]}]}], "]"}]}]}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "[", "differentials", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "1", ",", 
       RowBox[{"Length", "[", "differentials", "]"}]}], "}"}]}], "]"}]}], 
  "  ", ";"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{3.821567412203915*^9, 3.821641945174967*^9, 
  3.821641981470141*^9, 3.8220481344970007`*^9, 3.822763734569355*^9},
 CellLabel->"In[9]:=",ExpressionUUID->"d820166e-16fc-40d5-b888-cbd2cdad588e"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "metricToLine", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metricToLine", "[", 
   RowBox[{"metric_", ",", " ", "differentials_"}], "]"}], ":=", " ", 
  "\[IndentingNewLine]", 
  RowBox[{"Sum", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"metric", "[", 
      RowBox[{"[", 
       RowBox[{"i", ",", "j"}], "]"}], "]"}], " ", 
     RowBox[{"differentials", "[", 
      RowBox[{"[", "i", "]"}], "]"}], " ", 
     RowBox[{"differentials", "[", 
      RowBox[{"[", "j", "]"}], "]"}]}], " ", ",", " ", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", 
      RowBox[{"Length", "[", "differentials", "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"j", ",", "1", ",", 
      RowBox[{"Length", "[", "differentials", "]"}]}], "}"}]}], 
   "]"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{{3.822762557092309*^9, 3.8227626322008677`*^9}, 
   3.8227637345698223`*^9, 3.822988709740047*^9},
 CellLabel->"In[11]:=",ExpressionUUID->"0947c5b5-3344-4d26-9b19-03ba2ccc2507"]
}, Closed]],

Cell[CellGroupData[{

Cell["Line Element and Metric 1", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{
  3.825289001078293*^9, {3.855405266067402*^9, 
   3.8554053005471773`*^9}},ExpressionUUID->"d18ed38e-ac05-43ee-9ae7-\
169efd3b3b61"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq1", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq1", " ", "=", " ", "\[IndentingNewLine]", " ", 
  RowBox[{
   RowBox[{
    RowBox[{"-", " ", "4"}], " ", "\[Pi]", " ", 
    RowBox[{"\[Rho]", "[", "\[ScriptU]", "]"}], " ", 
    RowBox[{"(", " ", 
     RowBox[{
      SuperscriptBox["\[ScriptX]", "2"], "+", " ", 
      SuperscriptBox["\[ScriptY]", "2"]}], ")"}], " ", 
    SuperscriptBox["d\[ScriptU]", "2"]}], "-", " ", 
   RowBox[{"2", " ", "d\[ScriptU]", " ", "d\[ScriptV]"}], " ", "+", " ", 
   SuperscriptBox["d\[ScriptX]", "2"], "+", " ", 
   SuperscriptBox["d\[ScriptY]", "2"]}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.824031798246894*^9, 3.8240318050531197`*^9}, {
   3.824031858328776*^9, 3.8240319145927963`*^9}, 3.8554053005474052`*^9},
 CellLabel->"In[13]:=",ExpressionUUID->"403a556d-2766-4904-ae8f-b5d355b6aa84"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", "2"}], " ", "d\[ScriptU]", " ", "d\[ScriptV]"}], "+", 
  SuperscriptBox["d\[ScriptX]", "2"], "+", 
  SuperscriptBox["d\[ScriptY]", "2"], "-", 
  RowBox[{"4", " ", 
   SuperscriptBox["d\[ScriptU]", "2"], " ", "\[Pi]", " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["\[ScriptX]", "2"], "+", 
     SuperscriptBox["\[ScriptY]", "2"]}], ")"}], " ", 
   RowBox[{"\[Rho]", "[", "\[ScriptU]", "]"}]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{3.8240319182458487`*^9, 3.824032150614162*^9, 
  3.855405300547598*^9},
 CellLabel->"Out[14]=",ExpressionUUID->"d17f8f4e-a70e-40e0-8592-de6f66efc7f6"],

Cell[BoxData[
 RowBox[{
  RowBox[{"lineToMetric", "[", " ", 
   RowBox[{"eq1", " ", ",", " ", 
    RowBox[{"{", 
     RowBox[{
     "d\[ScriptU]", ",", "d\[ScriptV]", ",", "d\[ScriptX]", ",", 
      "d\[ScriptY]"}], "}"}]}], "]"}], " ", "//", " ", 
  "MatrixForm"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.824032271548251*^9, 3.824032295083405*^9}, 
   3.8554053005477467`*^9},
 CellLabel->"In[18]:=",ExpressionUUID->"144ce0fe-45be-46ac-9e8d-93a9325ef094"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{
       RowBox[{"-", "4"}], " ", "\[Pi]", " ", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["\[ScriptX]", "2"], "+", 
         SuperscriptBox["\[ScriptY]", "2"]}], ")"}], " ", 
       RowBox[{"\[Rho]", "[", "\[ScriptU]", "]"}]}], 
      RowBox[{"-", "1"}], "0", "0"},
     {
      RowBox[{"-", "1"}], "0", "0", "0"},
     {"0", "0", "1", "0"},
     {"0", "0", "0", "1"}
    },
    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",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{3.8240322953493347`*^9, 3.855405300547917*^9},
 CellLabel->
  "Out[18]//MatrixForm=",ExpressionUUID->"3eaf509f-a1aa-4701-a930-\
6014154cf1b9"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq1a", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq1a", " ", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"\[ScriptU]", " ", "\[Equal]", " ", "u"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{"\[ScriptV]", " ", "\[Equal]", " ", 
      RowBox[{"v", " ", "+", " ", 
       RowBox[{
        FractionBox["1", "2"], 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["x", "2"], "+", " ", 
          SuperscriptBox["y", "2"]}], ")"}], 
        RowBox[{"L", "[", "u", "]"}], " ", 
        RowBox[{
         RowBox[{"L", "'"}], "[", "u", "]"}]}]}]}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{"\[ScriptX]", " ", "\[Equal]", " ", 
      RowBox[{
       RowBox[{"L", "[", "u", "]"}], " ", "x"}]}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{"\[ScriptY]", " ", "\[Equal]", " ", 
      RowBox[{
       RowBox[{"L", "[", "u", "]"}], " ", "y"}]}]}], "\[IndentingNewLine]", 
    "}"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq1a", "  ", "//", " ", "TableForm"}], " ", "//", " ", 
  "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8240320520692577`*^9, 3.8240321408181143`*^9}, {
   3.82403266690736*^9, 3.8240326713054457`*^9}, 3.855405300548066*^9},
 CellLabel->"In[52]:=",ExpressionUUID->"dcaa0774-d6ef-43d1-a467-cd103e6eea9d"],

Cell[BoxData[
 FormBox[
  TagBox[
   TagBox[GridBox[{
      {
       RowBox[{"\[ScriptU]", "\[LongEqual]", "u"}]},
      {
       RowBox[{"\[ScriptV]", "\[LongEqual]", 
        RowBox[{
         RowBox[{
          FractionBox["1", "2"], " ", 
          RowBox[{"L", "(", "u", ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["x", "2"], "+", 
            SuperscriptBox["y", "2"]}], ")"}], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"L", "(", "u", ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None]}], "+", "v"}]}]},
      {
       RowBox[{"\[ScriptX]", "\[LongEqual]", 
        RowBox[{"x", " ", 
         RowBox[{"L", "(", "u", ")"}]}]}]},
      {
       RowBox[{"\[ScriptY]", "\[LongEqual]", 
        RowBox[{"y", " ", 
         RowBox[{"L", "(", "u", ")"}]}]}]}
     },
     GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}],
    Column],
   Function[BoxForm`e$, 
    TableForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.824032141288992*^9, 3.824032150634075*^9}, 
   3.8240326725100803`*^9, 3.824032790265568*^9, 3.855405300548233*^9},
 CellLabel->
  "Out[54]//TraditionalForm=",ExpressionUUID->"152f06f1-fee6-4dea-b848-\
5a504bf5ab38"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq1b", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq1b", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"L", "''"}], "[", "u", "]"}], " ", "\[Equal]", " ", 
    RowBox[{
     RowBox[{"-", " ", "4"}], " ", "\[Pi]", " ", 
     RowBox[{"\[Rho]", "[", "u", "]"}], " ", 
     RowBox[{"L", "[", "u", "]"}]}]}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq1b", "  ", "/.", " ", 
   RowBox[{"Equal", "\[Rule]", " ", "Rule"}]}], "  ", "//", " ", 
  "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.824032613604006*^9, 3.8240326457074213`*^9}, {
   3.824032707545875*^9, 3.8240327242664003`*^9}, {3.824032780544916*^9, 
   3.824032802872196*^9}, 3.855405300548387*^9},
 CellLabel->"In[60]:=",ExpressionUUID->"d5b0bb24-e15f-4aab-bdf0-4e706c4a75fa"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox["\[PartialD]", "2"], 
     RowBox[{"L", "(", "u", ")"}]}], 
    RowBox[{"\[PartialD]", 
     SuperscriptBox["u", "2"]}],
    MultilineFunction->None], "\[Rule]", 
   RowBox[{
    RowBox[{"-", "4"}], " ", "\[Pi]", " ", 
    RowBox[{"L", "(", "u", ")"}], " ", 
    RowBox[{"\[Rho]", "(", "u", ")"}]}]}], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8240326391124277`*^9, 3.824032646410795*^9}, {
   3.824032721004407*^9, 3.824032724753203*^9}, {3.824032790302566*^9, 
   3.824032803350651*^9}, 3.855405300548561*^9},
 CellLabel->
  "Out[62]//TraditionalForm=",ExpressionUUID->"7b0db7bd-178d-4a10-a9fe-\
9b4d8cba0867"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Dt", "[", " ", "eq1a", "  ", "]"}], "  ", "/.", " ", 
    "dtReplace"}], " ", "//", " ", "TableForm"}], " ", "//", " ", 
  "pdConv"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.824032681626143*^9, 3.824032699426989*^9}, 
   3.855405300548717*^9},
 CellLabel->"In[58]:=",ExpressionUUID->"96babaad-47d2-44e3-a029-242b9cdd2065"],

Cell[BoxData[
 FormBox[
  TagBox[
   TagBox[GridBox[{
      {
       RowBox[{"d\[ScriptU]", "\[LongEqual]", "du"}]},
      {
       RowBox[{"d\[ScriptV]", "\[LongEqual]", 
        RowBox[{
         RowBox[{
          FractionBox["1", "2"], " ", "du", " ", 
          RowBox[{"L", "(", "u", ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["x", "2"], "+", 
            SuperscriptBox["y", "2"]}], ")"}], " ", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[PartialD]", "2"], 
            RowBox[{"L", "(", "u", ")"}]}], 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["u", "2"]}],
           MultilineFunction->None]}], "+", 
         RowBox[{
          FractionBox["1", "2"], " ", "du", " ", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["x", "2"], "+", 
            SuperscriptBox["y", "2"]}], ")"}], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"L", "(", "u", ")"}]}], 
             RowBox[{"\[PartialD]", "u"}],
             MultilineFunction->None], ")"}], "2"]}], "+", "dv", "+", 
         RowBox[{
          FractionBox["1", "2"], " ", 
          RowBox[{"L", "(", "u", ")"}], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"L", "(", "u", ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", "dx", " ", "x"}], "+", 
            RowBox[{"2", " ", "dy", " ", "y"}]}], ")"}]}]}]}]},
      {
       RowBox[{"d\[ScriptX]", "\[LongEqual]", 
        RowBox[{
         RowBox[{"du", " ", "x", " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"L", "(", "u", ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None]}], "+", 
         RowBox[{"dx", " ", 
          RowBox[{"L", "(", "u", ")"}]}]}]}]},
      {
       RowBox[{"d\[ScriptY]", "\[LongEqual]", 
        RowBox[{
         RowBox[{"du", " ", "y", " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"L", "(", "u", ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None]}], "+", 
         RowBox[{"dy", " ", 
          RowBox[{"L", "(", "u", ")"}]}]}]}]}
     },
     GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}],
    Column],
   Function[BoxForm`e$, 
    TableForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.824032695130677*^9, 3.824032699914947*^9}, 
   3.824032790330826*^9, 3.855405300548874*^9},
 CellLabel->
  "Out[58]//TraditionalForm=",ExpressionUUID->"ab4b2997-59d0-4b43-8ed0-\
cc4ca6adce90"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"(", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"Dt", "[", " ", "eq1a", "  ", "]"}], "  ", "/.", " ", 
       "dtReplace"}], " ", "/.", " ", 
      RowBox[{"Equal", "\[Rule]", " ", "Rule"}]}], "   ", ")"}], "   ", "/.", 
    " ", 
    RowBox[{"(", 
     RowBox[{"eq1b", "  ", "/.", " ", 
      RowBox[{"Equal", "\[Rule]", " ", "Rule"}]}], " ", ")"}]}], "  ", "//", 
   " ", "TableForm"}], " ", "//", " ", "pdConv"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.824032732473811*^9, 3.82403275382167*^9}, {
   3.824032813607134*^9, 3.824032833912388*^9}, {3.824032875222639*^9, 
   3.824032891869494*^9}, {3.824033127007237*^9, 3.824033133014378*^9}, 
   3.855405300549016*^9},
 CellLabel->"In[76]:=",ExpressionUUID->"3bf4e07f-6e1c-4e52-bde1-b4a97743c130"],

Cell[BoxData[
 FormBox[
  TagBox[
   TagBox[GridBox[{
      {
       RowBox[{"d\[ScriptU]", "\[Rule]", "du"}]},
      {
       RowBox[{"d\[ScriptV]", "\[Rule]", 
        RowBox[{
         RowBox[{"-", 
          RowBox[{"2", " ", "\[Pi]", " ", "du", " ", 
           SuperscriptBox[
            RowBox[{"L", "(", "u", ")"}], "2"], " ", 
           RowBox[{"\[Rho]", "(", "u", ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["x", "2"], "+", 
             SuperscriptBox["y", "2"]}], ")"}]}]}], "+", 
         RowBox[{
          FractionBox["1", "2"], " ", "du", " ", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["x", "2"], "+", 
            SuperscriptBox["y", "2"]}], ")"}], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"L", "(", "u", ")"}]}], 
             RowBox[{"\[PartialD]", "u"}],
             MultilineFunction->None], ")"}], "2"]}], "+", "dv", "+", 
         RowBox[{
          FractionBox["1", "2"], " ", 
          RowBox[{"L", "(", "u", ")"}], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"L", "(", "u", ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", "dx", " ", "x"}], "+", 
            RowBox[{"2", " ", "dy", " ", "y"}]}], ")"}]}]}]}]},
      {
       RowBox[{"d\[ScriptX]", "\[Rule]", 
        RowBox[{
         RowBox[{"du", " ", "x", " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"L", "(", "u", ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None]}], "+", 
         RowBox[{"dx", " ", 
          RowBox[{"L", "(", "u", ")"}]}]}]}]},
      {
       RowBox[{"d\[ScriptY]", "\[Rule]", 
        RowBox[{
         RowBox[{"du", " ", "y", " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"L", "(", "u", ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None]}], "+", 
         RowBox[{"dy", " ", 
          RowBox[{"L", "(", "u", ")"}]}]}]}]}
     },
     GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}],
    Column],
   Function[BoxForm`e$, 
    TableForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.824032739296464*^9, 3.8240327542074537`*^9}, {
   3.8240327903589287`*^9, 3.824032834518722*^9}, {3.8240328755196037`*^9, 
   3.824032892246943*^9}, 3.824033133329915*^9, 3.8554053005491753`*^9},
 CellLabel->
  "Out[76]//TraditionalForm=",ExpressionUUID->"f157a166-0d93-4b76-9be9-\
c853f57a92d8"],

Cell[BoxData[{
 RowBox[{"eq1", " "}], "\[IndentingNewLine]", 
 RowBox[{"eq1", " ", "/.", " ", 
  RowBox[{"(", "  ", 
   RowBox[{"eq1a", " ", "/.", " ", 
    RowBox[{"Equal", "\[Rule]", " ", "Rule"}]}], " ", 
   ")"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"eq1", " ", "/.", " ", 
      RowBox[{"(", "  ", 
       RowBox[{"eq1a", " ", "/.", " ", 
        RowBox[{"Equal", "\[Rule]", " ", "Rule"}]}], " ", ")"}]}], "  ", "/.",
      " ", 
     RowBox[{"(", " ", 
      RowBox[{
       RowBox[{
        RowBox[{"Dt", "[", " ", "eq1a", "  ", "]"}], "  ", "/.", " ", 
        "dtReplace"}], "  ", "/.", " ", 
       RowBox[{"Equal", "\[Rule]", " ", "Rule"}]}], "  ", ")"}]}], "   ", "/.",
     " ", 
    RowBox[{"(", 
     RowBox[{"eq1b", "  ", "/.", " ", 
      RowBox[{"Equal", "\[Rule]", " ", "Rule"}]}], " ", ")"}]}], "   ", "//", 
   " ", "Expand"}], " ", "//", " ", "Simplify", " "}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.824033057111167*^9, 3.8240331519665737`*^9}, 
   3.855405300549317*^9},
 CellLabel->"In[80]:=",ExpressionUUID->"7df56d3d-5170-4789-81e9-e6cb924d40a4"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", "2"}], " ", "d\[ScriptU]", " ", "d\[ScriptV]"}], "+", 
  SuperscriptBox["d\[ScriptX]", "2"], "+", 
  SuperscriptBox["d\[ScriptY]", "2"], "-", 
  RowBox[{"4", " ", 
   SuperscriptBox["d\[ScriptU]", "2"], " ", "\[Pi]", " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["\[ScriptX]", "2"], "+", 
     SuperscriptBox["\[ScriptY]", "2"]}], ")"}], " ", 
   RowBox[{"\[Rho]", "[", "\[ScriptU]", "]"}]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{
  3.8240330580054693`*^9, {3.824033089740653*^9, 3.8240331522350883`*^9}, 
   3.855405300549485*^9},
 CellLabel->"Out[80]=",ExpressionUUID->"41c21754-1192-4268-b437-faaca6a956b1"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", "2"}], " ", "d\[ScriptU]", " ", "d\[ScriptV]"}], "+", 
  SuperscriptBox["d\[ScriptX]", "2"], "+", 
  SuperscriptBox["d\[ScriptY]", "2"], "-", 
  RowBox[{"4", " ", 
   SuperscriptBox["d\[ScriptU]", "2"], " ", "\[Pi]", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      SuperscriptBox["x", "2"], " ", 
      SuperscriptBox[
       RowBox[{"L", "[", "u", "]"}], "2"]}], "+", 
     RowBox[{
      SuperscriptBox["y", "2"], " ", 
      SuperscriptBox[
       RowBox[{"L", "[", "u", "]"}], "2"]}]}], ")"}], " ", 
   RowBox[{"\[Rho]", "[", "u", "]"}]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{
  3.8240330580054693`*^9, {3.824033089740653*^9, 3.824033152237315*^9}, 
   3.855405300549655*^9},
 CellLabel->"Out[81]=",ExpressionUUID->"90715cb4-1f2c-4c9a-aee0-961345a0c0b9"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", "2"}], " ", "du", " ", "dv"}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["dx", "2"], "+", 
     SuperscriptBox["dy", "2"]}], ")"}], " ", 
   SuperscriptBox[
    RowBox[{"L", "[", "u", "]"}], "2"]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{
  3.8240330580054693`*^9, {3.824033089740653*^9, 3.824033152239184*^9}, 
   3.8554053005498953`*^9},
 CellLabel->"Out[82]=",ExpressionUUID->"091ffb3b-cea7-437b-9cb5-29fc10727259"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq1c", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq1c", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"eq1", " ", "/.", " ", 
       RowBox[{"(", "  ", 
        RowBox[{"eq1a", " ", "/.", " ", 
         RowBox[{"Equal", "\[Rule]", " ", "Rule"}]}], " ", ")"}]}], "  ", "/.",
       " ", 
      RowBox[{"(", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"Dt", "[", " ", "eq1a", "  ", "]"}], "  ", "/.", " ", 
         "dtReplace"}], "  ", "/.", " ", 
        RowBox[{"Equal", "\[Rule]", " ", "Rule"}]}], "  ", ")"}]}], "   ", "/.",
      " ", 
     RowBox[{"(", 
      RowBox[{"eq1b", "  ", "/.", " ", 
       RowBox[{"Equal", "\[Rule]", " ", "Rule"}]}], " ", ")"}]}], "   ", "//",
     " ", "Expand"}], " ", "//", " ", "Simplify", " "}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8240331673931847`*^9, 3.824033181245326*^9}, 
   3.8554053005500393`*^9},
 CellLabel->"In[83]:=",ExpressionUUID->"9776affb-1dc1-4210-80bc-ab8d3c34fcc4"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", "2"}], " ", "du", " ", "dv"}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["dx", "2"], "+", 
     SuperscriptBox["dy", "2"]}], ")"}], " ", 
   SuperscriptBox[
    RowBox[{"L", "[", "u", "]"}], "2"]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{3.8240331819001713`*^9, 3.855405300550207*^9},
 CellLabel->"Out[84]=",ExpressionUUID->"64651789-c8aa-47d7-9442-df8f8597faac"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq1d", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq1d", " ", "=", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"L", "[", "u", "]"}], "\[Rule]", " ", 
   RowBox[{"Cos", "[", "u", "]"}]}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.824033203998959*^9, 3.824033219438841*^9}, 
   3.855405300550353*^9},
 CellLabel->"In[85]:=",ExpressionUUID->"9c0db278-6ad0-48c4-8eae-8fcc105e5ed8"],

Cell[BoxData[
 RowBox[{
  RowBox[{"L", "[", "u", "]"}], "\[Rule]", 
  RowBox[{"Cos", "[", "u", "]"}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{3.824033219754773*^9, 3.855405300550638*^9},
 CellLabel->"Out[86]=",ExpressionUUID->"d56c9b76-df5b-46d5-b94b-8473e9ed505f"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq1e", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq1e", " ", "=", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"L", "[", "u", "]"}], "\[Rule]", " ", 
   RowBox[{"1", " ", "-", " ", 
    RowBox[{"u", " ", 
     RowBox[{"HeavisideTheta", "[", "u", "]"}]}]}]}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8240332254708767`*^9, 3.824033245447104*^9}, 
   3.8554053005508423`*^9},
 CellLabel->"In[87]:=",ExpressionUUID->"5466b826-6de2-46d4-b42f-3189e8bc683d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"L", "[", "u", "]"}], "\[Rule]", 
  RowBox[{"1", "-", 
   RowBox[{"u", " ", 
    RowBox[{"HeavisideTheta", "[", "u", "]"}]}]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{3.824033245904724*^9, 3.8554053005510197`*^9},
 CellLabel->"Out[88]=",ExpressionUUID->"d91fea22-f851-41ff-beb7-db8d1afcb26f"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq1e", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq1e", " ", "=", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"4", "\[Pi]", " ", 
    RowBox[{"\[Rho]", "[", "u", "]"}]}], " ", "\[Equal]", " ", 
   RowBox[{
    RowBox[{"H", "'"}], "[", "u", "]"}], " ", "\[Equal]", " ", 
   RowBox[{"DiracDelta", "[", "u", "]"}]}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8240332607830143`*^9, 3.824033293543684*^9}, 
   3.8554053005511713`*^9},
 CellLabel->"In[89]:=",ExpressionUUID->"6c4d1d34-882f-47b6-ad92-00f82d968b88"],

Cell[BoxData[
 RowBox[{
  RowBox[{"4", " ", "\[Pi]", " ", 
   RowBox[{"\[Rho]", "[", "u", "]"}]}], "\[Equal]", 
  RowBox[{
   SuperscriptBox["H", "\[Prime]",
    MultilineFunction->None], "[", "u", "]"}], "\[Equal]", 
  RowBox[{"DiracDelta", "[", "u", "]"}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{3.824033293836958*^9, 3.855405300551343*^9},
 CellLabel->"Out[90]=",ExpressionUUID->"f5409e58-f9d6-4a84-80c6-e9ca803ecebd"]
}, Closed]],

Cell[CellGroupData[{

Cell["Line Element and Metric 2", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.825289026520645*^9, 
  3.825289054797577*^9}},ExpressionUUID->"9f5dab01-3c95-4ff1-ad66-\
ac822cb96207"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq2", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq2", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"-", " ", "2"}], " ", "du", " ", "dv"}], " ", "+", " ", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", "p", "+", "q"}], ")"}], "2"], " ", 
    SuperscriptBox["dx", "2"]}], "+", " ", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", "p", "-", "q"}], ")"}], "2"], " ", 
    SuperscriptBox["dy", "2"]}]}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.824033317239737*^9, 3.824033320110856*^9}, {
   3.824033449477968*^9, 3.824033484709895*^9}, 3.825289044473977*^9},
 CellLabel->"In[91]:=",ExpressionUUID->"068244f9-960d-401c-bdb2-8e00f59a6c13"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", "2"}], " ", "du", " ", "dv"}], "+", 
  RowBox[{
   SuperscriptBox["dy", "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "-", "p", "-", "q"}], ")"}], "2"]}], "+", 
  RowBox[{
   SuperscriptBox["dx", "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "-", "p", "+", "q"}], ")"}], "2"]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.824033485349451*^9, 3.825289044474103*^9},
 CellLabel->"Out[92]=",ExpressionUUID->"0e20d99c-2b5f-46f9-9b5b-57c2f7bdac4a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"lineToMetric", "[", " ", 
   RowBox[{"eq2", " ", ",", " ", 
    RowBox[{"{", 
     RowBox[{"du", ",", "dv", ",", "dx", ",", "dy"}], "}"}]}], "]"}], " ", "//",
   " ", "MatrixForm"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8240334874549417`*^9, 3.824033500110038*^9}, 
   3.825289044474205*^9},
 CellLabel->"In[94]:=",ExpressionUUID->"9dcbdb99-71ca-4595-bbf1-97b8faf01e12"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", 
      RowBox[{"-", "1"}], "0", "0"},
     {
      RowBox[{"-", "1"}], "0", "0", "0"},
     {"0", "0", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", "p", "+", "q"}], ")"}], "2"], "0"},
     {"0", "0", "0", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", "p", "-", "q"}], ")"}], "2"]}
    },
    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",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.824033494645224*^9, 3.8240335003863153`*^9}, 
   3.8252890444743032`*^9},
 CellLabel->
  "Out[94]//MatrixForm=",ExpressionUUID->"392c6e4f-dc80-4439-b793-\
df43979b8e75"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq2a", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq2a", " ", "=", " ", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"p", "\[Rule]", " ", 
      RowBox[{"u", " ", 
       RowBox[{"HeavisideTheta", "[", "u", "]"}]}]}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{"q", "\[Rule]", " ", 
      RowBox[{"v", " ", 
       RowBox[{"HeavisideTheta", "[", "v", "]"}]}]}]}], " ", 
    "\[IndentingNewLine]", "}"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq2a", " ", "//", " ", "TableForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8240335087978153`*^9, 3.824033557828856*^9}, 
   3.82528904447439*^9},
 CellLabel->
  "In[139]:=",ExpressionUUID->"c8cdf121-b059-4172-9354-6b929ef48cc3"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"p", "\[Rule]", 
       RowBox[{"u", " ", 
        RowBox[{"HeavisideTheta", "[", "u", "]"}]}]}]},
     {
      RowBox[{"q", "\[Rule]", 
       RowBox[{"v", " ", 
        RowBox[{"HeavisideTheta", "[", "v", "]"}]}]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.8240335581398573`*^9, 3.82403403692859*^9, 
  3.825289044484147*^9},
 CellLabel->
  "Out[141]//TableForm=",ExpressionUUID->"b10f5af2-0d44-4bd8-8139-\
ad6378a4d177"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "metric2", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metric2", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"lineToMetric", "[", " ", 
     RowBox[{"eq2", " ", ",", " ", 
      RowBox[{"{", 
       RowBox[{"du", ",", "dv", ",", "dx", ",", "dy"}], "}"}]}], "]"}], "  ", 
    "/.", " ", "eq2a"}]}], "  ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"metric2", " ", "//", " ", "MatrixForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.824033570095354*^9, 3.8240335719174128`*^9}, {
   3.8240336562206783`*^9, 3.824033668660948*^9}, 3.825289044484262*^9},
 CellLabel->
  "In[101]:=",ExpressionUUID->"dd6c6997-4793-44ff-a1f1-aa1736c3d39c"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", 
      RowBox[{"-", "1"}], "0", "0"},
     {
      RowBox[{"-", "1"}], "0", "0", "0"},
     {"0", "0", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"u", " ", 
          RowBox[{"HeavisideTheta", "[", "u", "]"}]}], "+", 
         RowBox[{"v", " ", 
          RowBox[{"HeavisideTheta", "[", "v", "]"}]}]}], ")"}], "2"], "0"},
     {"0", "0", "0", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"u", " ", 
          RowBox[{"HeavisideTheta", "[", "u", "]"}]}], "-", 
         RowBox[{"v", " ", 
          RowBox[{"HeavisideTheta", "[", "v", "]"}]}]}], ")"}], "2"]}
    },
    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",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.824033572417966*^9, 3.824033669006525*^9, 
  3.825289044484364*^9},
 CellLabel->
  "Out[103]//MatrixForm=",ExpressionUUID->"fc716b3c-06cd-4c73-85cd-\
1f1c86e3b83d"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "inverse2", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"inverse2", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Inverse", "[", "metric2", "]"}], " ", "//", " ", "Expand"}], 
    " ", "//", " ", "Simplify"}]}], "  ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"inverse2", " ", "//", " ", "MatrixForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.824035770493969*^9, 3.824035802294292*^9}, 
   3.825289044484479*^9},
 CellLabel->
  "In[225]:=",ExpressionUUID->"251feb17-fc4b-4814-b3d4-9b6e3560fb39"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", 
      RowBox[{"-", "1"}], "0", "0"},
     {
      RowBox[{"-", "1"}], "0", "0", "0"},
     {"0", "0", 
      FractionBox["1", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"u", " ", 
           RowBox[{"HeavisideTheta", "[", "u", "]"}]}], "+", 
          RowBox[{"v", " ", 
           RowBox[{"HeavisideTheta", "[", "v", "]"}]}]}], ")"}], "2"]], "0"},
     {"0", "0", "0", 
      FractionBox["1", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"u", " ", 
           RowBox[{"HeavisideTheta", "[", "u", "]"}]}], "+", 
          RowBox[{"v", " ", 
           RowBox[{"HeavisideTheta", "[", "v", "]"}]}]}], ")"}], "2"]]}
    },
    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",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.824035783729397*^9, 3.824035802635859*^9}, 
   3.825289044484582*^9},
 CellLabel->
  "Out[227]//MatrixForm=",ExpressionUUID->"ac08d169-18db-4858-9e6e-\
ff219933da8d"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq2b", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq2b", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"p", "+", "q"}], " ", "\[Equal]", " ", "1", " "}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8240340062506533`*^9, 3.824034046499181*^9}, 
   3.825289044484673*^9},
 CellLabel->
  "In[144]:=",ExpressionUUID->"e83d93ee-a82b-4a98-a304-c468d2c1cb7c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"p", "+", "q"}], "\[Equal]", "1"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8240340160487947`*^9, 3.824034047100872*^9}, 
   3.82528904448477*^9},
 CellLabel->
  "Out[145]=",ExpressionUUID->"720ec415-6153-4cde-a207-4e59897e8c0a"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Flatten", "[", 
    RowBox[{"Solve", "[", 
     RowBox[{"eq2b", " ", ",", " ", "p"}], " ", "]"}], "]"}], " ", "/.", " ", 
   "eq2a"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Flatten", "[", 
   RowBox[{"Solve", "[", 
    RowBox[{"eq2b", " ", ",", " ", "q"}], "]"}], "]"}], " ", "/.", " ", 
  "eq2a", " "}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.82403405081211*^9, 3.824034093587407*^9}, 
   3.8252890444848557`*^9},
 CellLabel->
  "In[152]:=",ExpressionUUID->"ea5e4c6a-6336-4f20-bda6-48aac6ad4475"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"u", " ", 
    RowBox[{"HeavisideTheta", "[", "u", "]"}]}], "\[Rule]", 
   RowBox[{"1", "-", 
    RowBox[{"v", " ", 
     RowBox[{"HeavisideTheta", "[", "v", "]"}]}]}]}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.824034063688716*^9, 3.824034093939239*^9}, 
   3.825289044484962*^9},
 CellLabel->
  "Out[152]=",ExpressionUUID->"d166ae92-012f-4871-98ee-dfb85043a45f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"v", " ", 
    RowBox[{"HeavisideTheta", "[", "v", "]"}]}], "\[Rule]", 
   RowBox[{"1", "-", 
    RowBox[{"u", " ", 
     RowBox[{"HeavisideTheta", "[", "u", "]"}]}]}]}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.824034063688716*^9, 3.824034093942131*^9}, 
   3.825289044485063*^9},
 CellLabel->
  "Out[153]=",ExpressionUUID->"d8d53891-9ef8-4b9e-ad86-494cf3fd0fa3"]
}, Closed]],

Cell[CellGroupData[{

Cell["Tensors Calculated For Metric 2", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.825289058749756*^9, 
  3.825289091389143*^9}},ExpressionUUID->"094f0053-d216-4498-899f-\
927529e1d1d9"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "input", "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"input", "[", 
    RowBox[{
    "equationNumber_", ",", "equation_", ",", "metricName_", ",", 
     "displayName_", ",", "variables_", ",", "indices_"}], "]"}], ":=", " ", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Clear", "[", "tensorList", "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"tensorList", " ", "=", " ", 
       RowBox[{"{", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"\"\<g\>\"", "<>", "equationNumber"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"\"\<christoffel\>\"", "<>", "equationNumber"}], " ", ",", 
         " ", "\[IndentingNewLine]", 
         RowBox[{"\"\<riemann\>\"", "<>", "equationNumber"}], "  ", ",", 
         "\[IndentingNewLine]", 
         RowBox[{"\"\<ricci\>\"", "<>", "equationNumber"}], " ", ",", 
         "\[IndentingNewLine]", 
         RowBox[{"\"\<ricciscalar\>\"", "<>", "equationNumber"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"\"\<kretschmannscalar\>\"", "<>", "equationNumber"}], "  ", 
         ",", "\[IndentingNewLine]", 
         RowBox[{"\"\<einstein\>\"", "<>", "equationNumber"}], "  ", ",", " ",
          "\[IndentingNewLine]", 
         RowBox[{"\"\<weyl\>\"", "<>", "equationNumber"}], "  ", ",", 
         "\[IndentingNewLine]", 
         RowBox[{"\"\<cotton\>\"", "<>", "equationNumber"}]}], "  ", 
        "\[IndentingNewLine]", "}"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "1", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"ToMetric", "[", 
        RowBox[{
         RowBox[{"{", " ", 
          RowBox[{"metricName", ",", " ", "displayName"}], " ", "}"}], " ", 
         ",", " ", "variables", ",", " ", "equation", ",", " ", "indices"}], 
        " ", "]"}]}], " ", ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "2", "]"}], "]"}], "  ", "=", " ", "\[IndentingNewLine]", 
       RowBox[{"ChristoffelSymbol", "[", " ", 
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], "]"}]}], " ", ";",
       "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "3", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"RiemannTensor", "[", " ", 
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWithNested", "\[Rule]", " ", "Simplify"}]}], " ", 
        "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "4", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"RicciTensor", "[", " ", 
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], " ", "]"}]}], " ",
       ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "5", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"RicciScalar", "[", " ", 
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], " ", "]"}]}], " ",
       ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "6", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"KretschmannScalar", "[", " ", 
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], "]"}]}], " ", ";",
       "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "7", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"EinsteinTensor", "[", " ", 
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], "]"}]}], " ", ";",
       "  ", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "8", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"WeylTensor", "[", " ", 
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], " ", "]"}]}], " ",
       ";", "\[IndentingNewLine]", " ", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "9", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"CottonTensor", "[", " ", 
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], " ", "]"}]}], " ",
       ";"}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.820937492203251*^9, 3.821110229350912*^9, {3.823967538291772*^9, 
   3.8239675471538973`*^9}, 3.82402647282372*^9, 3.82528907836605*^9},
 CellLabel->"In[99]:=",ExpressionUUID->"c93c2383-ae5c-4770-af86-cee82a5efcf8"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Last", " ", "timing", " ", "took", " ", "2.27", " ", "for", " ", "all", 
    " ", "tensors"}], " ", "*)"}], " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"input", "[", " ", 
    RowBox[{
    "\"\<metric2\>\"", ",", " ", "metric2", ",", " ", "\"\<Collision\>\"", 
     ",", "\"\<\!\(\*SuperscriptBox[\(g\), \(collision\)]\)\>\"", ",", 
     RowBox[{"{", 
      RowBox[{"u", ",", "v", ",", "x", ",", "y"}], "}"}], ",", " ", 
     "\"\<Greek\>\""}], "]"}], " ", "//", " ", "Timing"}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.820937492203436*^9, 3.821110229350998*^9, {3.822307281934704*^9, 
   3.822307303605431*^9}, {3.823967447386095*^9, 3.82396750850193*^9}, {
   3.8239676337366667`*^9, 3.823967640928253*^9}, {3.8239701614373283`*^9, 
   3.8239702144679956`*^9}, {3.8240256938286457`*^9, 3.824025696464918*^9}, 
   3.8240264728238792`*^9, {3.824033672964634*^9, 3.824033704051723*^9}, {
   3.8240338595351553`*^9, 3.8240338621028843`*^9}, 
   3.8252890783661337`*^9},ExpressionUUID->"50aef98c-2f52-4745-9bb2-\
db62c985fbb2"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"2.267735`", ",", "Null"}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.824033707739271*^9, 3.825289078366287*^9},
 CellLabel->
  "Out[104]=",ExpressionUUID->"5637f767-93b7-4491-9ee7-e1e48cb47d8e"],

Cell[BoxData["tensorList"], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.823967564400813*^9, 3.823967565024124*^9}, 
   3.824026472824177*^9, 3.825289078366373*^9},
 CellLabel->
  "In[105]:=",ExpressionUUID->"18e95bc1-c433-48de-86a2-d6dc202b769d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    SubsuperscriptBox[
     SuperscriptBox["g", "collision"], "\[Alpha]\[Beta]", ""],
    DisplayForm], ",", 
   TagBox[
    SubsuperscriptBox["\[CapitalGamma]", 
     RowBox[{"  ", "\[Beta]\[Gamma]"}], 
     RowBox[{"\[Alpha]", "    "}]],
    DisplayForm], ",", 
   TagBox[
    SubsuperscriptBox["R", "\[Alpha]\[Beta]\[Gamma]\[Delta]", ""],
    DisplayForm], ",", 
   TagBox[
    SubsuperscriptBox["R", "\[Beta]\[Gamma]", ""],
    DisplayForm], ",", 
   TagBox["\<\"R\"\>",
    DisplayForm], ",", 
   TagBox["\<\"K\"\>",
    DisplayForm], ",", 
   TagBox[
    SubsuperscriptBox["G", "\[Alpha]\[Beta]", ""],
    DisplayForm], ",", 
   TagBox[
    SubsuperscriptBox["C", "\[Alpha]\[Beta]\[Gamma]\[Delta]", ""],
    DisplayForm], ",", 
   TagBox[
    SubsuperscriptBox["C", "\[Alpha]\[Beta]\[Gamma]", ""],
    DisplayForm]}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.824033871829792*^9, 3.8252890783664618`*^9},
 CellLabel->
  "Out[105]=",ExpressionUUID->"6c47d8be-02a4-4a76-83fc-fb813c818236"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "1", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "1", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "1", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.82093459847665*^9, 3.820934601699522*^9}, 
   3.8209374922041063`*^9, 3.821110229351385*^9, 3.82402647282448*^9, 
   3.825289078366542*^9},
 CellLabel->
  "In[106]:=",ExpressionUUID->"458b1c7e-9467-4fef-8d3d-678b620ef9b0"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox[
   SuperscriptBox["g", "collision"], "\[Alpha]\[Beta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.823970232313205*^9, 3.8240256873107367`*^9, 
  3.8240264728245783`*^9, 3.824033889272298*^9, 3.8252890783666353`*^9},
 CellLabel->
  "Out[106]=",ExpressionUUID->"33c0e12c-4c8e-4ffc-a893-3a650dc25b63"],

Cell[BoxData["\<\"Collision\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.823970232313205*^9, 3.8240256873107367`*^9, 
  3.8240264728245783`*^9, 3.824033889277061*^9, 3.825289078366727*^9},
 CellLabel->
  "Out[107]=",ExpressionUUID->"b45107fb-6da8-4ede-a292-d60ac255c796"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {"0", 
       RowBox[{"-", "1"}], "0", "0"},
      {
       RowBox[{"-", "1"}], "0", "0", "0"},
      {"0", "0", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "u"}], " ", 
           TemplateBox[{
             RowBox[{"u"}]},
            "HeavisideThetaSeq"]}], "+", 
          RowBox[{"v", " ", 
           TemplateBox[{
             RowBox[{"v"}]},
            "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"], "0"},
      {"0", "0", "0", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "u"}], " ", 
           TemplateBox[{
             RowBox[{"u"}]},
            "HeavisideThetaSeq"]}], "-", 
          RowBox[{"v", " ", 
           TemplateBox[{
             RowBox[{"v"}]},
            "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}
     },
     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$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.823970232313205*^9, 3.8240256873107367`*^9, 
  3.8240264728245783`*^9, 3.82403388931072*^9, 3.825289078366806*^9},
 CellLabel->
  "Out[108]//TraditionalForm=",ExpressionUUID->"2d326577-f7b4-4323-9e90-\
c8e1b20c63b9"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "2", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "2", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"TensorValues", "[", 
      RowBox[{"tensorList", "[", 
       RowBox[{"[", "2", "]"}], "]"}], "]"}], "  ", "//", " ", "Expand"}], 
    " ", "//", " ", "Simplify"}], "  ", "//", " ", "MatrixForm"}], "//", " ", 
  "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.820934553796588*^9, 3.820934587380786*^9}, 
   3.8209374922046547`*^9, 3.821110229351994*^9, {3.8239681558924627`*^9, 
   3.8239681604507723`*^9}, {3.8239702495480747`*^9, 3.8239702526039124`*^9}, 
   3.824026472824851*^9, 3.8252890783668947`*^9},
 CellLabel->
  "In[109]:=",ExpressionUUID->"6e6f38ce-89c2-4373-adb8-40124696f4e6"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["\[CapitalGamma]", 
   RowBox[{"  ", "\[Beta]\[Gamma]"}], 
   RowBox[{"\[Alpha]", "    "}]],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.823970240593905*^9, 3.823970252905715*^9}, 
   3.824025687355397*^9, 3.824026472824945*^9, 3.824033889365683*^9, 
   3.825289078366982*^9},
 CellLabel->
  "Out[109]=",ExpressionUUID->"8176d6d6-d0b1-4ac9-9b77-fa785f865685"],

Cell[BoxData["\<\"ChristoffelSymbolCollision\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.823970240593905*^9, 3.823970252905715*^9}, 
   3.824025687355397*^9, 3.824026472824945*^9, 3.824033889367935*^9, 
   3.8252890783670692`*^9},
 CellLabel->
  "Out[110]=",ExpressionUUID->"f06f31d9-2dcf-418c-a457-fb020ee33e10"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          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]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          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]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {
            RowBox[{
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "u"}], " ", 
                TemplateBox[{
                  RowBox[{"u"}]},
                 "HeavisideThetaSeq"]}], "+", 
               RowBox[{"v", " ", 
                TemplateBox[{
                  RowBox[{"v"}]},
                 "HeavisideThetaSeq"]}], "+", "1"}], ")"}]}]},
           {"0"}
          },
          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]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {
            RowBox[{
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"u", " ", 
                TemplateBox[{
                  RowBox[{"u"}]},
                 "HeavisideThetaSeq"]}], "+", 
               RowBox[{"v", " ", 
                TemplateBox[{
                  RowBox[{"v"}]},
                 "HeavisideThetaSeq"]}], "-", "1"}], ")"}]}]}
          },
          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]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          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]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          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]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {
            RowBox[{
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"u", " ", 
                TemplateBox[{
                  RowBox[{"u"}]},
                 "HeavisideThetaSeq"]}], "-", 
               RowBox[{"v", " ", 
                TemplateBox[{
                  RowBox[{"v"}]},
                 "HeavisideThetaSeq"]}], "-", "1"}], ")"}]}]},
           {"0"}
          },
          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]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {
            RowBox[{
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"u", " ", 
                TemplateBox[{
                  RowBox[{"u"}]},
                 "HeavisideThetaSeq"]}], "+", 
               RowBox[{"v", " ", 
                TemplateBox[{
                  RowBox[{"v"}]},
                 "HeavisideThetaSeq"]}], "-", "1"}], ")"}]}]}
          },
          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]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {
            FractionBox[
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"], 
             RowBox[{
              RowBox[{"u", " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "HeavisideThetaSeq"]}], "-", 
              RowBox[{"v", " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "HeavisideThetaSeq"]}], "-", "1"}]]},
           {"0"}
          },
          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]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {
            FractionBox[
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"], 
             RowBox[{
              RowBox[{
               RowBox[{"-", "u"}], " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "HeavisideThetaSeq"]}], "+", 
              RowBox[{"v", " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "HeavisideThetaSeq"]}], "+", "1"}]]},
           {"0"}
          },
          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]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {
            FractionBox[
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"], 
             RowBox[{
              RowBox[{"u", " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "HeavisideThetaSeq"]}], "-", 
              RowBox[{"v", " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "HeavisideThetaSeq"]}], "-", "1"}]]},
           {
            FractionBox[
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"], 
             RowBox[{
              RowBox[{
               RowBox[{"-", "u"}], " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "HeavisideThetaSeq"]}], "+", 
              RowBox[{"v", " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "HeavisideThetaSeq"]}], "+", "1"}]]},
           {"0"},
           {"0"}
          },
          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]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          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]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {
            FractionBox[
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"], 
             RowBox[{
              RowBox[{"u", " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "HeavisideThetaSeq"]}], "+", 
              RowBox[{"v", " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "HeavisideThetaSeq"]}], "-", "1"}]]}
          },
          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]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {
            FractionBox[
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"], 
             RowBox[{
              RowBox[{"u", " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "HeavisideThetaSeq"]}], "+", 
              RowBox[{"v", " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "HeavisideThetaSeq"]}], "-", "1"}]]}
          },
          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]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          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]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {
            FractionBox[
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"], 
             RowBox[{
              RowBox[{"u", " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "HeavisideThetaSeq"]}], "+", 
              RowBox[{"v", " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "HeavisideThetaSeq"]}], "-", "1"}]]},
           {
            FractionBox[
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"], 
             RowBox[{
              RowBox[{"u", " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "HeavisideThetaSeq"]}], "+", 
              RowBox[{"v", " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "HeavisideThetaSeq"]}], "-", "1"}]]},
           {"0"},
           {"0"}
          },
          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]", ")"}]}
     },
     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$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.823970240593905*^9, 3.823970252905715*^9}, 
   3.824025687355397*^9, 3.824026472824945*^9, 3.8240338894267073`*^9, 
   3.825289078367131*^9},
 CellLabel->
  "Out[111]//TraditionalForm=",ExpressionUUID->"f8ddaec2-b477-4ae0-99f0-\
aadaf9177523"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "3", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "3", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"TensorValues", "[", 
      RowBox[{"tensorList", "[", 
       RowBox[{"[", "3", "]"}], "]"}], "]"}], "  ", "//", " ", "Expand"}], 
    " ", "//", " ", "Simplify"}], "  ", "//", " ", "MatrixForm"}], "//", " ", 
  "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.82093461950063*^9, 3.820934623299252*^9}, 
   3.820937492205227*^9, 3.821110229352274*^9, {3.8239681359406633`*^9, 
   3.823968143179031*^9}, {3.8239702651809263`*^9, 3.823970267459793*^9}, 
   3.824026472825218*^9, 3.8252890783673*^9},
 CellLabel->
  "In[112]:=",ExpressionUUID->"e86e3e07-5c9c-43cc-bb62-712f4d5aac16"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["R", "\[Alpha]\[Beta]\[Gamma]\[Delta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.8239702677296343`*^9, 3.824025687459783*^9, 
  3.824026472825302*^9, 3.8240338894444313`*^9, 3.825289078367407*^9},
 CellLabel->
  "Out[112]=",ExpressionUUID->"b8794ca6-f01b-41af-9ad8-7ff9c9f5ad8c"],

Cell[BoxData["\<\"RiemannTensorCollision\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.8239702677296343`*^9, 3.824025687459783*^9, 
  3.824026472825302*^9, 3.8240338894496*^9, 3.825289078367497*^9},
 CellLabel->
  "Out[113]=",ExpressionUUID->"1aef7309-eed2-49d3-a2d1-bab8eb2afca1"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         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]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         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]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", 
           RowBox[{
            RowBox[{"v", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], "-", 
            RowBox[{"u", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"]}], "+", 
            TemplateBox[{
              RowBox[{"u"}]},
             "DiracDeltaSeq"]}], "0"},
          {"0", "0", 
           RowBox[{
            RowBox[{
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], "-", 
            TemplateBox[{
              RowBox[{"u", ",", "v"}]},
             "HeavisideThetaSeq"]}], "0"},
          {
           RowBox[{
            RowBox[{
             RowBox[{"-", "v"}], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], "+", 
            RowBox[{"u", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"]}], "-", 
            TemplateBox[{
              RowBox[{"u"}]},
             "DiracDeltaSeq"]}], 
           RowBox[{
            TemplateBox[{
              RowBox[{"u", ",", "v"}]},
             "HeavisideThetaSeq"], "-", 
            RowBox[{
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}]}], "0", "0"},
          {"0", "0", "0", "0"}
         },
         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]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "v"}], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], "-", 
            RowBox[{"u", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"]}], "+", 
            TemplateBox[{
              RowBox[{"u"}]},
             "DiracDeltaSeq"]}]},
          {"0", "0", "0", 
           RowBox[{
            TemplateBox[{
              RowBox[{"u", ",", "v"}]},
             "HeavisideThetaSeq"], "-", 
            RowBox[{
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}]}]},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            RowBox[{"v", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], "+", 
            RowBox[{"u", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"]}], "-", 
            TemplateBox[{
              RowBox[{"u"}]},
             "DiracDeltaSeq"]}], 
           RowBox[{
            RowBox[{
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], "-", 
            TemplateBox[{
              RowBox[{"u", ",", "v"}]},
             "HeavisideThetaSeq"]}], "0", "0"}
         },
         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]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         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]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         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]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", 
           RowBox[{
            RowBox[{
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], "-", 
            TemplateBox[{
              RowBox[{"u", ",", "v"}]},
             "HeavisideThetaSeq"]}], "0"},
          {"0", "0", 
           RowBox[{
            RowBox[{"u", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"]}], "-", 
            RowBox[{"v", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], "-", 
            TemplateBox[{
              RowBox[{"v"}]},
             "DiracDeltaSeq"]}], "0"},
          {
           RowBox[{
            TemplateBox[{
              RowBox[{"u", ",", "v"}]},
             "HeavisideThetaSeq"], "-", 
            RowBox[{
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}]}], 
           RowBox[{
            RowBox[{
             RowBox[{"-", "u"}], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"]}], "+", 
            RowBox[{"v", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], "+", 
            TemplateBox[{
              RowBox[{"v"}]},
             "DiracDeltaSeq"]}], "0", "0"},
          {"0", "0", "0", "0"}
         },
         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]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", 
           RowBox[{
            TemplateBox[{
              RowBox[{"u", ",", "v"}]},
             "HeavisideThetaSeq"], "-", 
            RowBox[{
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}]}]},
          {"0", "0", "0", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "u"}], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"]}], "-", 
            RowBox[{"v", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], "+", 
            TemplateBox[{
              RowBox[{"v"}]},
             "DiracDeltaSeq"]}]},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            RowBox[{
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], "-", 
            TemplateBox[{
              RowBox[{"u", ",", "v"}]},
             "HeavisideThetaSeq"]}], 
           RowBox[{
            RowBox[{"u", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"]}], "+", 
            RowBox[{"v", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], "-", 
            TemplateBox[{
              RowBox[{"v"}]},
             "DiracDeltaSeq"]}], "0", "0"}
         },
         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]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "v"}], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], "+", 
            RowBox[{"u", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"]}], "-", 
            TemplateBox[{
              RowBox[{"u"}]},
             "DiracDeltaSeq"]}], "0"},
          {"0", "0", 
           RowBox[{
            TemplateBox[{
              RowBox[{"u", ",", "v"}]},
             "HeavisideThetaSeq"], "-", 
            RowBox[{
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}]}], "0"},
          {
           RowBox[{
            RowBox[{"v", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], "-", 
            RowBox[{"u", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"]}], "+", 
            TemplateBox[{
              RowBox[{"u"}]},
             "DiracDeltaSeq"]}], 
           RowBox[{
            RowBox[{
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], "-", 
            TemplateBox[{
              RowBox[{"u", ",", "v"}]},
             "HeavisideThetaSeq"]}], "0", "0"},
          {"0", "0", "0", "0"}
         },
         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]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", 
           RowBox[{
            TemplateBox[{
              RowBox[{"u", ",", "v"}]},
             "HeavisideThetaSeq"], "-", 
            RowBox[{
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}]}], "0"},
          {"0", "0", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "u"}], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"]}], "+", 
            RowBox[{"v", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], "+", 
            TemplateBox[{
              RowBox[{"v"}]},
             "DiracDeltaSeq"]}], "0"},
          {
           RowBox[{
            RowBox[{
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], "-", 
            TemplateBox[{
              RowBox[{"u", ",", "v"}]},
             "HeavisideThetaSeq"]}], 
           RowBox[{
            RowBox[{"u", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"]}], "-", 
            RowBox[{"v", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], "-", 
            TemplateBox[{
              RowBox[{"v"}]},
             "DiracDeltaSeq"]}], "0", "0"},
          {"0", "0", "0", "0"}
         },
         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]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         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]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         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]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", 
           RowBox[{
            RowBox[{"v", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], "+", 
            RowBox[{"u", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"]}], "-", 
            TemplateBox[{
              RowBox[{"u"}]},
             "DiracDeltaSeq"]}]},
          {"0", "0", "0", 
           RowBox[{
            RowBox[{
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], "-", 
            TemplateBox[{
              RowBox[{"u", ",", "v"}]},
             "HeavisideThetaSeq"]}]},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            RowBox[{
             RowBox[{"-", "v"}], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], "-", 
            RowBox[{"u", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"]}], "+", 
            TemplateBox[{
              RowBox[{"u"}]},
             "DiracDeltaSeq"]}], 
           RowBox[{
            TemplateBox[{
              RowBox[{"u", ",", "v"}]},
             "HeavisideThetaSeq"], "-", 
            RowBox[{
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}]}], "0", "0"}
         },
         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]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", 
           RowBox[{
            RowBox[{
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], "-", 
            TemplateBox[{
              RowBox[{"u", ",", "v"}]},
             "HeavisideThetaSeq"]}]},
          {"0", "0", "0", 
           RowBox[{
            RowBox[{"u", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"]}], "+", 
            RowBox[{"v", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], "-", 
            TemplateBox[{
              RowBox[{"v"}]},
             "DiracDeltaSeq"]}]},
          {"0", "0", "0", "0"},
          {
           RowBox[{
            TemplateBox[{
              RowBox[{"u", ",", "v"}]},
             "HeavisideThetaSeq"], "-", 
            RowBox[{
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}]}], 
           RowBox[{
            RowBox[{
             RowBox[{"-", "u"}], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"]}], "-", 
            RowBox[{"v", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], "+", 
            TemplateBox[{
              RowBox[{"v"}]},
             "DiracDeltaSeq"]}], "0", "0"}
         },
         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]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         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]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         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]", ")"}]}
     },
     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$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.8239702677296343`*^9, 3.824025687459783*^9, 
  3.824026472825302*^9, 3.8240338896238422`*^9, 3.825289078367573*^9},
 CellLabel->
  "Out[114]//TraditionalForm=",ExpressionUUID->"12b14ba5-dc22-4ddd-a0d9-\
59425d3f468a"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "4", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "4", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"TensorValues", "[", 
      RowBox[{"tensorList", "[", 
       RowBox[{"[", "4", "]"}], "]"}], "]"}], "  ", "//", " ", "Expand"}], 
    " ", "//", " ", "Simplify"}], " ", "//", " ", "MatrixForm"}], "//", " ", 
  "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.820934641180434*^9, 3.820934644683545*^9}, 
   3.820937492205658*^9, 3.821110229352577*^9, {3.8239681207165203`*^9, 
   3.823968125514682*^9}, {3.8239702823410254`*^9, 3.8239702841077843`*^9}, 
   3.824026472825573*^9, 3.825289078367654*^9},
 CellLabel->
  "In[115]:=",ExpressionUUID->"50ee7f05-1164-41b7-9b0b-508b1ebb1066"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["R", "\[Beta]\[Gamma]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.823970284419114*^9, 3.824025688373596*^9, 
  3.824026472825655*^9, 3.824033889649859*^9, 3.825289078367734*^9},
 CellLabel->
  "Out[115]=",ExpressionUUID->"7f2afb74-1227-44b0-ae0a-0f46995df76a"],

Cell[BoxData["\<\"RicciTensorCollision\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.823970284419114*^9, 3.824025688373596*^9, 
  3.824026472825655*^9, 3.8240338896545763`*^9, 3.825289078367819*^9},
 CellLabel->
  "Out[116]=",ExpressionUUID->"46e6fa41-a915-4784-81a4-6c8510481ff2"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{
        RowBox[{"-", 
         FractionBox[
          RowBox[{"u", " ", 
           TemplateBox[{
             RowBox[{"u"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"u"}]},
            "HeavisideThetaSeq"]}], 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "u"}], " ", 
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"]}], "+", 
             RowBox[{"v", " ", 
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]]}], "+", 
        FractionBox[
         RowBox[{"v", " ", 
          TemplateBox[{
            RowBox[{"u"}]},
           "DiracDeltaSeq"], " ", 
          TemplateBox[{
            RowBox[{"v"}]},
           "HeavisideThetaSeq"]}], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "u"}], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"]}], "+", 
            RowBox[{"v", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]], "+", 
        FractionBox[
         TemplateBox[{
           RowBox[{"u"}]},
          "DiracDeltaSeq"], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "u"}], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"]}], "+", 
            RowBox[{"v", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]], "-", 
        FractionBox[
         RowBox[{"u", " ", 
          TemplateBox[{
            RowBox[{"u"}]},
           "DiracDeltaSeq"], " ", 
          TemplateBox[{
            RowBox[{"u"}]},
           "HeavisideThetaSeq"]}], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"u", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"]}], "+", 
            RowBox[{"v", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]], "-", 
        FractionBox[
         RowBox[{"v", " ", 
          TemplateBox[{
            RowBox[{"u"}]},
           "DiracDeltaSeq"], " ", 
          TemplateBox[{
            RowBox[{"v"}]},
           "HeavisideThetaSeq"]}], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"u", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"]}], "+", 
            RowBox[{"v", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]], "+", 
        FractionBox[
         TemplateBox[{
           RowBox[{"u"}]},
          "DiracDeltaSeq"], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"u", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"]}], "+", 
            RowBox[{"v", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]]}], "0", "0", 
       "0"},
      {"0", 
       RowBox[{
        FractionBox[
         RowBox[{"u", " ", 
          TemplateBox[{
            RowBox[{"v"}]},
           "DiracDeltaSeq"], " ", 
          TemplateBox[{
            RowBox[{"u"}]},
           "HeavisideThetaSeq"]}], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "u"}], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"]}], "+", 
            RowBox[{"v", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]], "-", 
        FractionBox[
         RowBox[{"v", " ", 
          TemplateBox[{
            RowBox[{"v"}]},
           "DiracDeltaSeq"], " ", 
          TemplateBox[{
            RowBox[{"v"}]},
           "HeavisideThetaSeq"]}], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "u"}], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"]}], "+", 
            RowBox[{"v", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]], "-", 
        FractionBox[
         TemplateBox[{
           RowBox[{"v"}]},
          "DiracDeltaSeq"], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "u"}], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"]}], "+", 
            RowBox[{"v", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]], "-", 
        FractionBox[
         RowBox[{"u", " ", 
          TemplateBox[{
            RowBox[{"v"}]},
           "DiracDeltaSeq"], " ", 
          TemplateBox[{
            RowBox[{"u"}]},
           "HeavisideThetaSeq"]}], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"u", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"]}], "+", 
            RowBox[{"v", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]], "-", 
        FractionBox[
         RowBox[{"v", " ", 
          TemplateBox[{
            RowBox[{"v"}]},
           "DiracDeltaSeq"], " ", 
          TemplateBox[{
            RowBox[{"v"}]},
           "HeavisideThetaSeq"]}], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"u", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"]}], "+", 
            RowBox[{"v", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]], "+", 
        FractionBox[
         TemplateBox[{
           RowBox[{"v"}]},
          "DiracDeltaSeq"], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"u", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"]}], "+", 
            RowBox[{"v", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]]}], "0", "0"},
      {"0", "0", "0", "0"},
      {"0", "0", "0", "0"}
     },
     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$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.823970284419114*^9, 3.824025688373596*^9, 
  3.824026472825655*^9, 3.82403388973046*^9, 3.825289078367886*^9},
 CellLabel->
  "Out[117]//TraditionalForm=",ExpressionUUID->"3c39d13b-cca7-47e0-80d9-\
1bb89a1eaf16"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "5", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "5", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"TensorValues", "[", 
      RowBox[{"tensorList", "[", 
       RowBox[{"[", "5", "]"}], "]"}], "]"}], "  ", "//", " ", "Expand"}], 
    " ", "//", " ", "Simplify"}], "  ", "//", " ", "MatrixForm"}], "//", " ", 
  "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.820934650372052*^9, 3.820934653739538*^9}, 
   3.820937492206099*^9, 3.821110229352878*^9, {3.8239681099639072`*^9, 
   3.823968115074683*^9}, {3.823970294611989*^9, 3.8239702964996147`*^9}, 
   3.8240264728259287`*^9, 3.8252890783679647`*^9},
 CellLabel->
  "In[118]:=",ExpressionUUID->"5cf95971-0291-49d7-b715-2a790a5a765d"],

Cell[BoxData[
 TagBox["\<\"R\"\>",
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.8239702967601757`*^9, 3.824025688480268*^9, 
  3.8240264728260317`*^9, 3.82403388974568*^9, 3.825289078368052*^9},
 CellLabel->
  "Out[118]=",ExpressionUUID->"6e278afe-5770-478f-a731-86659ee0dcc9"],

Cell[BoxData["\<\"RicciScalarCollision\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.8239702967601757`*^9, 3.824025688480268*^9, 
  3.8240264728260317`*^9, 3.824033889749556*^9, 3.825289078368135*^9},
 CellLabel->
  "Out[119]=",ExpressionUUID->"c9bbdcb5-6182-4a60-a323-715254e4b580"],

Cell[BoxData[
 FormBox[
  TagBox["0",
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.8239702967601757`*^9, 3.824025688480268*^9, 
  3.8240264728260317`*^9, 3.824033889751192*^9, 3.825289078368194*^9},
 CellLabel->
  "Out[120]//TraditionalForm=",ExpressionUUID->"a29ed141-f24c-4e58-bc0a-\
c88fd28b2975"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "6", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "6", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"TensorValues", "[", 
     RowBox[{"tensorList", "[", 
      RowBox[{"[", "6", "]"}], "]"}], "]"}], "  ", "//", " ", "Expand"}], " ",
    "//", " ", "Simplify"}], " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.820934650372052*^9, 3.820934653739538*^9}, 
   3.820937492206099*^9, 3.821110229352878*^9, {3.823967604672648*^9, 
   3.823967608071101*^9}, {3.8239680942842827`*^9, 3.823968100866708*^9}, 
   3.824026472826305*^9, 3.825289078368271*^9},
 CellLabel->
  "In[121]:=",ExpressionUUID->"2b0fd8c6-19a3-4acc-9198-51f8197a8c81"],

Cell[BoxData[
 TagBox["\<\"K\"\>",
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.8239703056638327`*^9, 3.82402568853157*^9, 
  3.824026472826395*^9, 3.824033889786924*^9, 3.825289078368361*^9},
 CellLabel->
  "Out[121]=",ExpressionUUID->"08ec53c1-7c79-41f5-ad6a-b4444cddec9d"],

Cell[BoxData["\<\"KretschmannScalarCollision\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.8239703056638327`*^9, 3.82402568853157*^9, 
  3.824026472826395*^9, 3.824033889793316*^9, 3.825289078368444*^9},
 CellLabel->
  "Out[122]=",ExpressionUUID->"2fe60159-847f-4e00-b7cc-e44f7f22d08a"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{"16", " ", "u", " ", "v", " ", 
     TemplateBox[{
       RowBox[{"u"}]},
      "DiracDeltaSeq"], " ", 
     TemplateBox[{
       RowBox[{"v"}]},
      "DiracDeltaSeq"], " ", 
     TemplateBox[{
       RowBox[{"u", ",", "v"}]},
      "HeavisideThetaSeq"]}], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "u"}], " ", 
        TemplateBox[{
          RowBox[{"u"}]},
         "HeavisideThetaSeq"]}], "+", 
       RowBox[{"v", " ", 
        TemplateBox[{
          RowBox[{"v"}]},
         "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "4"]], "+", 
   FractionBox[
    RowBox[{"16", " ", "u", " ", "v", " ", 
     TemplateBox[{
       RowBox[{"u"}]},
      "DiracDeltaSeq"], " ", 
     TemplateBox[{
       RowBox[{"v"}]},
      "DiracDeltaSeq"], " ", 
     TemplateBox[{
       RowBox[{"u", ",", "v"}]},
      "HeavisideThetaSeq"]}], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"u", " ", 
        TemplateBox[{
          RowBox[{"u"}]},
         "HeavisideThetaSeq"]}], "+", 
       RowBox[{"v", " ", 
        TemplateBox[{
          RowBox[{"v"}]},
         "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "4"]], "-", 
   FractionBox[
    RowBox[{"8", " ", 
     SuperscriptBox["u", "2"], " ", 
     TemplateBox[{
       RowBox[{"u"}]},
      "DiracDeltaSeq"], " ", 
     TemplateBox[{
       RowBox[{"v"}]},
      "DiracDeltaSeq"], " ", 
     SuperscriptBox[
      TemplateBox[{
        RowBox[{"u"}]},
       "HeavisideThetaSeq"], "2"]}], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "u"}], " ", 
        TemplateBox[{
          RowBox[{"u"}]},
         "HeavisideThetaSeq"]}], "+", 
       RowBox[{"v", " ", 
        TemplateBox[{
          RowBox[{"v"}]},
         "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "4"]], "+", 
   FractionBox[
    RowBox[{"8", " ", 
     SuperscriptBox["u", "2"], " ", 
     TemplateBox[{
       RowBox[{"u"}]},
      "DiracDeltaSeq"], " ", 
     TemplateBox[{
       RowBox[{"v"}]},
      "DiracDeltaSeq"], " ", 
     SuperscriptBox[
      TemplateBox[{
        RowBox[{"u"}]},
       "HeavisideThetaSeq"], "2"]}], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"u", " ", 
        TemplateBox[{
          RowBox[{"u"}]},
         "HeavisideThetaSeq"]}], "+", 
       RowBox[{"v", " ", 
        TemplateBox[{
          RowBox[{"v"}]},
         "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "4"]], "-", 
   FractionBox[
    RowBox[{"8", " ", 
     SuperscriptBox["v", "2"], " ", 
     TemplateBox[{
       RowBox[{"u"}]},
      "DiracDeltaSeq"], " ", 
     TemplateBox[{
       RowBox[{"v"}]},
      "DiracDeltaSeq"], " ", 
     SuperscriptBox[
      TemplateBox[{
        RowBox[{"v"}]},
       "HeavisideThetaSeq"], "2"]}], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "u"}], " ", 
        TemplateBox[{
          RowBox[{"u"}]},
         "HeavisideThetaSeq"]}], "+", 
       RowBox[{"v", " ", 
        TemplateBox[{
          RowBox[{"v"}]},
         "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "4"]], "+", 
   FractionBox[
    RowBox[{"8", " ", 
     SuperscriptBox["v", "2"], " ", 
     TemplateBox[{
       RowBox[{"u"}]},
      "DiracDeltaSeq"], " ", 
     TemplateBox[{
       RowBox[{"v"}]},
      "DiracDeltaSeq"], " ", 
     SuperscriptBox[
      TemplateBox[{
        RowBox[{"v"}]},
       "HeavisideThetaSeq"], "2"]}], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"u", " ", 
        TemplateBox[{
          RowBox[{"u"}]},
         "HeavisideThetaSeq"]}], "+", 
       RowBox[{"v", " ", 
        TemplateBox[{
          RowBox[{"v"}]},
         "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "4"]], "+", 
   FractionBox[
    RowBox[{"16", " ", "u", " ", 
     TemplateBox[{
       RowBox[{"u"}]},
      "DiracDeltaSeq"], " ", 
     TemplateBox[{
       RowBox[{"v"}]},
      "DiracDeltaSeq"], " ", 
     TemplateBox[{
       RowBox[{"u"}]},
      "HeavisideThetaSeq"]}], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "u"}], " ", 
        TemplateBox[{
          RowBox[{"u"}]},
         "HeavisideThetaSeq"]}], "+", 
       RowBox[{"v", " ", 
        TemplateBox[{
          RowBox[{"v"}]},
         "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "4"]], "-", 
   FractionBox[
    RowBox[{"16", " ", "u", " ", 
     TemplateBox[{
       RowBox[{"u"}]},
      "DiracDeltaSeq"], " ", 
     TemplateBox[{
       RowBox[{"v"}]},
      "DiracDeltaSeq"], " ", 
     TemplateBox[{
       RowBox[{"u"}]},
      "HeavisideThetaSeq"]}], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"u", " ", 
        TemplateBox[{
          RowBox[{"u"}]},
         "HeavisideThetaSeq"]}], "+", 
       RowBox[{"v", " ", 
        TemplateBox[{
          RowBox[{"v"}]},
         "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "4"]], "-", 
   FractionBox[
    RowBox[{"8", " ", 
     TemplateBox[{
       RowBox[{"u"}]},
      "DiracDeltaSeq"], " ", 
     TemplateBox[{
       RowBox[{"v"}]},
      "DiracDeltaSeq"]}], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "u"}], " ", 
        TemplateBox[{
          RowBox[{"u"}]},
         "HeavisideThetaSeq"]}], "+", 
       RowBox[{"v", " ", 
        TemplateBox[{
          RowBox[{"v"}]},
         "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "4"]], "-", 
   FractionBox[
    RowBox[{"16", " ", "v", " ", 
     TemplateBox[{
       RowBox[{"u"}]},
      "DiracDeltaSeq"], " ", 
     TemplateBox[{
       RowBox[{"v"}]},
      "DiracDeltaSeq"], " ", 
     TemplateBox[{
       RowBox[{"v"}]},
      "HeavisideThetaSeq"]}], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "u"}], " ", 
        TemplateBox[{
          RowBox[{"u"}]},
         "HeavisideThetaSeq"]}], "+", 
       RowBox[{"v", " ", 
        TemplateBox[{
          RowBox[{"v"}]},
         "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "4"]], "+", 
   FractionBox[
    RowBox[{"8", " ", 
     TemplateBox[{
       RowBox[{"u"}]},
      "DiracDeltaSeq"], " ", 
     TemplateBox[{
       RowBox[{"v"}]},
      "DiracDeltaSeq"]}], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"u", " ", 
        TemplateBox[{
          RowBox[{"u"}]},
         "HeavisideThetaSeq"]}], "+", 
       RowBox[{"v", " ", 
        TemplateBox[{
          RowBox[{"v"}]},
         "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "4"]], "-", 
   FractionBox[
    RowBox[{"16", " ", "v", " ", 
     TemplateBox[{
       RowBox[{"u"}]},
      "DiracDeltaSeq"], " ", 
     TemplateBox[{
       RowBox[{"v"}]},
      "DiracDeltaSeq"], " ", 
     TemplateBox[{
       RowBox[{"v"}]},
      "HeavisideThetaSeq"]}], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"u", " ", 
        TemplateBox[{
          RowBox[{"u"}]},
         "HeavisideThetaSeq"]}], "+", 
       RowBox[{"v", " ", 
        TemplateBox[{
          RowBox[{"v"}]},
         "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "4"]]}], 
  TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.8239703056638327`*^9, 3.82402568853157*^9, 
  3.824026472826395*^9, 3.824033889858572*^9, 3.8252890783685102`*^9},
 CellLabel->
  "Out[123]//TraditionalForm=",ExpressionUUID->"e5a86e3b-0f5e-4973-aac2-\
7bc9404c8829"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "7", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "7", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"TensorValues", "[", 
     RowBox[{"tensorList", "[", 
      RowBox[{"[", "7", "]"}], "]"}], "]"}], "  ", "//", " ", "Expand"}], " ",
    "//", " ", "Simplify"}], " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.820934650372052*^9, 3.820934653739538*^9}, 
   3.820937492206099*^9, 3.821110229352878*^9, {3.823967611433382*^9, 
   3.8239676150077477`*^9}, {3.823968173308403*^9, 3.823968180490913*^9}, 
   3.82402647282668*^9, 3.825289078368589*^9},
 CellLabel->
  "In[124]:=",ExpressionUUID->"06170cf5-5725-4db7-9abf-baaae6184a1f"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["G", "\[Alpha]\[Beta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.823970313941002*^9, 3.8240256886894827`*^9, 
  3.824026472826764*^9, 3.824033889874918*^9, 3.82528907836867*^9},
 CellLabel->
  "Out[124]=",ExpressionUUID->"7541f143-0ea9-4b5d-b657-aeb8f2dee650"],

Cell[BoxData["\<\"EinsteinTensorCollision\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.823970313941002*^9, 3.8240256886894827`*^9, 
  3.824026472826764*^9, 3.8240338898793993`*^9, 3.825289078368751*^9},
 CellLabel->
  "Out[125]=",ExpressionUUID->"38c95c1a-bed6-4965-90f5-6a25fc82a5fd"],

Cell[BoxData[
 FormBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         RowBox[{"u", " ", 
          TemplateBox[{
            RowBox[{"u"}]},
           "DiracDeltaSeq"], " ", 
          TemplateBox[{
            RowBox[{"u"}]},
           "HeavisideThetaSeq"]}], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "u"}], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"]}], "+", 
            RowBox[{"v", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]]}], "+", 
       FractionBox[
        RowBox[{"v", " ", 
         TemplateBox[{
           RowBox[{"u"}]},
          "DiracDeltaSeq"], " ", 
         TemplateBox[{
           RowBox[{"v"}]},
          "HeavisideThetaSeq"]}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "u"}], " ", 
            TemplateBox[{
              RowBox[{"u"}]},
             "HeavisideThetaSeq"]}], "+", 
           RowBox[{"v", " ", 
            TemplateBox[{
              RowBox[{"v"}]},
             "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]], "+", 
       FractionBox[
        TemplateBox[{
          RowBox[{"u"}]},
         "DiracDeltaSeq"], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "u"}], " ", 
            TemplateBox[{
              RowBox[{"u"}]},
             "HeavisideThetaSeq"]}], "+", 
           RowBox[{"v", " ", 
            TemplateBox[{
              RowBox[{"v"}]},
             "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]], "-", 
       FractionBox[
        RowBox[{"u", " ", 
         TemplateBox[{
           RowBox[{"u"}]},
          "DiracDeltaSeq"], " ", 
         TemplateBox[{
           RowBox[{"u"}]},
          "HeavisideThetaSeq"]}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"u", " ", 
            TemplateBox[{
              RowBox[{"u"}]},
             "HeavisideThetaSeq"]}], "+", 
           RowBox[{"v", " ", 
            TemplateBox[{
              RowBox[{"v"}]},
             "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]], "-", 
       FractionBox[
        RowBox[{"v", " ", 
         TemplateBox[{
           RowBox[{"u"}]},
          "DiracDeltaSeq"], " ", 
         TemplateBox[{
           RowBox[{"v"}]},
          "HeavisideThetaSeq"]}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"u", " ", 
            TemplateBox[{
              RowBox[{"u"}]},
             "HeavisideThetaSeq"]}], "+", 
           RowBox[{"v", " ", 
            TemplateBox[{
              RowBox[{"v"}]},
             "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]], "+", 
       FractionBox[
        TemplateBox[{
          RowBox[{"u"}]},
         "DiracDeltaSeq"], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"u", " ", 
            TemplateBox[{
              RowBox[{"u"}]},
             "HeavisideThetaSeq"]}], "+", 
           RowBox[{"v", " ", 
            TemplateBox[{
              RowBox[{"v"}]},
             "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]]}], "0", "0", 
      "0"},
     {"0", 
      RowBox[{
       FractionBox[
        RowBox[{"u", " ", 
         TemplateBox[{
           RowBox[{"v"}]},
          "DiracDeltaSeq"], " ", 
         TemplateBox[{
           RowBox[{"u"}]},
          "HeavisideThetaSeq"]}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "u"}], " ", 
            TemplateBox[{
              RowBox[{"u"}]},
             "HeavisideThetaSeq"]}], "+", 
           RowBox[{"v", " ", 
            TemplateBox[{
              RowBox[{"v"}]},
             "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]], "-", 
       FractionBox[
        RowBox[{"v", " ", 
         TemplateBox[{
           RowBox[{"v"}]},
          "DiracDeltaSeq"], " ", 
         TemplateBox[{
           RowBox[{"v"}]},
          "HeavisideThetaSeq"]}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "u"}], " ", 
            TemplateBox[{
              RowBox[{"u"}]},
             "HeavisideThetaSeq"]}], "+", 
           RowBox[{"v", " ", 
            TemplateBox[{
              RowBox[{"v"}]},
             "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]], "-", 
       FractionBox[
        TemplateBox[{
          RowBox[{"v"}]},
         "DiracDeltaSeq"], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "u"}], " ", 
            TemplateBox[{
              RowBox[{"u"}]},
             "HeavisideThetaSeq"]}], "+", 
           RowBox[{"v", " ", 
            TemplateBox[{
              RowBox[{"v"}]},
             "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]], "-", 
       FractionBox[
        RowBox[{"u", " ", 
         TemplateBox[{
           RowBox[{"v"}]},
          "DiracDeltaSeq"], " ", 
         TemplateBox[{
           RowBox[{"u"}]},
          "HeavisideThetaSeq"]}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"u", " ", 
            TemplateBox[{
              RowBox[{"u"}]},
             "HeavisideThetaSeq"]}], "+", 
           RowBox[{"v", " ", 
            TemplateBox[{
              RowBox[{"v"}]},
             "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]], "-", 
       FractionBox[
        RowBox[{"v", " ", 
         TemplateBox[{
           RowBox[{"v"}]},
          "DiracDeltaSeq"], " ", 
         TemplateBox[{
           RowBox[{"v"}]},
          "HeavisideThetaSeq"]}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"u", " ", 
            TemplateBox[{
              RowBox[{"u"}]},
             "HeavisideThetaSeq"]}], "+", 
           RowBox[{"v", " ", 
            TemplateBox[{
              RowBox[{"v"}]},
             "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]], "+", 
       FractionBox[
        TemplateBox[{
          RowBox[{"v"}]},
         "DiracDeltaSeq"], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"u", " ", 
            TemplateBox[{
              RowBox[{"u"}]},
             "HeavisideThetaSeq"]}], "+", 
           RowBox[{"v", " ", 
            TemplateBox[{
              RowBox[{"v"}]},
             "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]]}], "0", "0"},
     {"0", "0", "0", "0"},
     {"0", "0", "0", "0"}
    },
    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]", ")"}], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.823970313941002*^9, 3.8240256886894827`*^9, 
  3.824026472826764*^9, 3.8240338899368057`*^9, 3.825289078368819*^9},
 CellLabel->
  "Out[126]//TraditionalForm=",ExpressionUUID->"c278b6bc-9cc9-48ce-8ae3-\
776ed3be3b1b"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "8", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "8", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"TensorValues", "[", 
     RowBox[{"tensorList", "[", 
      RowBox[{"[", "8", "]"}], "]"}], "]"}], "  ", "//", " ", "Expand"}], " ",
    "//", " ", "Simplify"}], " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.82093465870828*^9, 3.820934665723707*^9}, 
   3.820937492206532*^9, 3.821110229353163*^9, {3.8239681863164577`*^9, 
   3.82396819236261*^9}, 3.824026472827045*^9, 3.825289078368897*^9},
 CellLabel->
  "In[127]:=",ExpressionUUID->"d4636f46-ebf7-4599-b84d-d083abe3c498"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["C", "\[Alpha]\[Beta]\[Gamma]\[Delta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.823970325977126*^9, 3.8240256887972517`*^9, 
  3.824026472827137*^9, 3.8240338899519978`*^9, 3.8252890783689747`*^9},
 CellLabel->
  "Out[127]=",ExpressionUUID->"48d412dc-94d6-457f-a511-00672ffc3ad0"],

Cell[BoxData["\<\"WeylTensorCollision\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.823970325977126*^9, 3.8240256887972517`*^9, 
  3.824026472827137*^9, 3.8240338899569073`*^9, 3.8252890783690653`*^9},
 CellLabel->
  "Out[128]=",ExpressionUUID->"831e40db-fb85-4bbe-9482-3f8abf7b6c8f"],

Cell[BoxData[
 FormBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"(", "\[NoBreak]", GridBox[{
         {"0", "0", "0", "0"},
         {"0", "0", "0", "0"},
         {"0", "0", "0", "0"},
         {"0", "0", "0", "0"}
        },
        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]", ")"}], 
      RowBox[{"(", "\[NoBreak]", GridBox[{
         {"0", "0", "0", "0"},
         {"0", "0", "0", "0"},
         {"0", "0", "0", "0"},
         {"0", "0", "0", "0"}
        },
        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]", ")"}], 
      RowBox[{"(", "\[NoBreak]", GridBox[{
         {"0", "0", 
          RowBox[{
           FractionBox[
            RowBox[{"3", " ", "u", " ", "v", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u", ",", "v"}]},
              "HeavisideThetaSeq"]}], 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "u"}], " ", 
                TemplateBox[{
                  RowBox[{"u"}]},
                 "HeavisideThetaSeq"]}], "+", 
               RowBox[{"v", " ", 
                TemplateBox[{
                  RowBox[{"v"}]},
                 "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]], "+", 
           FractionBox[
            RowBox[{"u", " ", "v", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u", ",", "v"}]},
              "HeavisideThetaSeq"]}], 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"u", " ", 
                TemplateBox[{
                  RowBox[{"u"}]},
                 "HeavisideThetaSeq"]}], "+", 
               RowBox[{"v", " ", 
                TemplateBox[{
                  RowBox[{"v"}]},
                 "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]], "+", 
           FractionBox[
            RowBox[{
             SuperscriptBox["u", "3"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "3"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{
             SuperscriptBox["u", "3"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "3"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{"3", " ", 
             SuperscriptBox["u", "2"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{"3", " ", 
             SuperscriptBox["u", "2"], " ", "v", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{"3", " ", 
             SuperscriptBox["u", "2"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{
             SuperscriptBox["u", "2"], " ", "v", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{"3", " ", "u", " ", 
             SuperscriptBox["v", "2"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{"u", " ", 
             SuperscriptBox["v", "2"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{
             SuperscriptBox["v", "3"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "3"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{"3", " ", 
             SuperscriptBox["v", "2"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{
             SuperscriptBox["v", "3"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "3"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{
             SuperscriptBox["v", "2"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{"3", " ", "u", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{"3", " ", "u", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "+", 
           RowBox[{"v", " ", 
            TemplateBox[{
              RowBox[{"u"}]},
             "DiracDeltaSeq"], " ", 
            TemplateBox[{
              RowBox[{"v"}]},
             "HeavisideThetaSeq"]}], "-", 
           FractionBox[
            TemplateBox[{
              RowBox[{"u"}]},
             "DiracDeltaSeq"], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{"3", " ", "v", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            TemplateBox[{
              RowBox[{"u"}]},
             "DiracDeltaSeq"], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{"v", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "-", 
           RowBox[{"u", " ", 
            TemplateBox[{
              RowBox[{"u"}]},
             "DiracDeltaSeq"], " ", 
            TemplateBox[{
              RowBox[{"u"}]},
             "HeavisideThetaSeq"]}], "+", 
           TemplateBox[{
             RowBox[{"u"}]},
            "DiracDeltaSeq"]}], "0"},
         {"0", "0", "0", "0"},
         {
          RowBox[{
           RowBox[{"-", 
            FractionBox[
             RowBox[{"3", " ", "u", " ", "v", " ", 
              TemplateBox[{
                RowBox[{"u"}]},
               "DiracDeltaSeq"], " ", 
              TemplateBox[{
                RowBox[{"u", ",", "v"}]},
               "HeavisideThetaSeq"]}], 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]]}], "-", 
           FractionBox[
            RowBox[{"u", " ", "v", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u", ",", "v"}]},
              "HeavisideThetaSeq"]}], 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"u", " ", 
                TemplateBox[{
                  RowBox[{"u"}]},
                 "HeavisideThetaSeq"]}], "+", 
               RowBox[{"v", " ", 
                TemplateBox[{
                  RowBox[{"v"}]},
                 "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]], "-", 
           FractionBox[
            RowBox[{
             SuperscriptBox["u", "3"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "3"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{
             SuperscriptBox["u", "3"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "3"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{"3", " ", 
             SuperscriptBox["u", "2"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{"3", " ", 
             SuperscriptBox["u", "2"], " ", "v", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{"3", " ", 
             SuperscriptBox["u", "2"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{
             SuperscriptBox["u", "2"], " ", "v", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{"3", " ", "u", " ", 
             SuperscriptBox["v", "2"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{"u", " ", 
             SuperscriptBox["v", "2"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{
             SuperscriptBox["v", "3"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "3"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{"3", " ", 
             SuperscriptBox["v", "2"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{
             SuperscriptBox["v", "3"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "3"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{
             SuperscriptBox["v", "2"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{"3", " ", "u", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{"3", " ", "u", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "-", 
           RowBox[{"v", " ", 
            TemplateBox[{
              RowBox[{"u"}]},
             "DiracDeltaSeq"], " ", 
            TemplateBox[{
              RowBox[{"v"}]},
             "HeavisideThetaSeq"]}], "+", 
           FractionBox[
            TemplateBox[{
              RowBox[{"u"}]},
             "DiracDeltaSeq"], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{"3", " ", "v", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            TemplateBox[{
              RowBox[{"u"}]},
             "DiracDeltaSeq"], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{"v", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "+", 
           RowBox[{"u", " ", 
            TemplateBox[{
              RowBox[{"u"}]},
             "DiracDeltaSeq"], " ", 
            TemplateBox[{
              RowBox[{"u"}]},
             "HeavisideThetaSeq"]}], "-", 
           TemplateBox[{
             RowBox[{"u"}]},
            "DiracDeltaSeq"]}], "0", "0", "0"},
         {"0", "0", "0", "0"}
        },
        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]", ")"}], 
      RowBox[{"(", "\[NoBreak]", GridBox[{
         {"0", "0", "0", 
          RowBox[{
           RowBox[{"-", 
            FractionBox[
             RowBox[{"u", " ", "v", " ", 
              TemplateBox[{
                RowBox[{"u"}]},
               "DiracDeltaSeq"], " ", 
              TemplateBox[{
                RowBox[{"u", ",", "v"}]},
               "HeavisideThetaSeq"]}], 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]]}], "-", 
           FractionBox[
            RowBox[{"3", " ", "u", " ", "v", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u", ",", "v"}]},
              "HeavisideThetaSeq"]}], 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"u", " ", 
                TemplateBox[{
                  RowBox[{"u"}]},
                 "HeavisideThetaSeq"]}], "+", 
               RowBox[{"v", " ", 
                TemplateBox[{
                  RowBox[{"v"}]},
                 "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]], "+", 
           FractionBox[
            RowBox[{
             SuperscriptBox["u", "3"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "3"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{
             SuperscriptBox["u", "3"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "3"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{"3", " ", 
             SuperscriptBox["u", "2"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{
             SuperscriptBox["u", "2"], " ", "v", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{"3", " ", 
             SuperscriptBox["u", "2"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{"3", " ", 
             SuperscriptBox["u", "2"], " ", "v", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{"u", " ", 
             SuperscriptBox["v", "2"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{"3", " ", "u", " ", 
             SuperscriptBox["v", "2"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{
             SuperscriptBox["v", "3"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "3"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{
             SuperscriptBox["v", "2"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{
             SuperscriptBox["v", "3"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "3"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{"3", " ", 
             SuperscriptBox["v", "2"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{"3", " ", "u", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{"3", " ", "u", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "-", 
           RowBox[{"v", " ", 
            TemplateBox[{
              RowBox[{"u"}]},
             "DiracDeltaSeq"], " ", 
            TemplateBox[{
              RowBox[{"v"}]},
             "HeavisideThetaSeq"]}], "-", 
           FractionBox[
            TemplateBox[{
              RowBox[{"u"}]},
             "DiracDeltaSeq"], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{"v", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            TemplateBox[{
              RowBox[{"u"}]},
             "DiracDeltaSeq"], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{"3", " ", "v", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "-", 
           RowBox[{"u", " ", 
            TemplateBox[{
              RowBox[{"u"}]},
             "DiracDeltaSeq"], " ", 
            TemplateBox[{
              RowBox[{"u"}]},
             "HeavisideThetaSeq"]}], "+", 
           TemplateBox[{
             RowBox[{"u"}]},
            "DiracDeltaSeq"]}]},
         {"0", "0", "0", "0"},
         {"0", "0", "0", "0"},
         {
          RowBox[{
           FractionBox[
            RowBox[{"u", " ", "v", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u", ",", "v"}]},
              "HeavisideThetaSeq"]}], 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "u"}], " ", 
                TemplateBox[{
                  RowBox[{"u"}]},
                 "HeavisideThetaSeq"]}], "+", 
               RowBox[{"v", " ", 
                TemplateBox[{
                  RowBox[{"v"}]},
                 "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]], "+", 
           FractionBox[
            RowBox[{"3", " ", "u", " ", "v", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u", ",", "v"}]},
              "HeavisideThetaSeq"]}], 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"u", " ", 
                TemplateBox[{
                  RowBox[{"u"}]},
                 "HeavisideThetaSeq"]}], "+", 
               RowBox[{"v", " ", 
                TemplateBox[{
                  RowBox[{"v"}]},
                 "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]], "-", 
           FractionBox[
            RowBox[{
             SuperscriptBox["u", "3"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "3"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{
             SuperscriptBox["u", "3"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "3"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{"3", " ", 
             SuperscriptBox["u", "2"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{
             SuperscriptBox["u", "2"], " ", "v", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{"3", " ", 
             SuperscriptBox["u", "2"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{"3", " ", 
             SuperscriptBox["u", "2"], " ", "v", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{"u", " ", 
             SuperscriptBox["v", "2"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{"3", " ", "u", " ", 
             SuperscriptBox["v", "2"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{
             SuperscriptBox["v", "3"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "3"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{
             SuperscriptBox["v", "2"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{
             SuperscriptBox["v", "3"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "3"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{"3", " ", 
             SuperscriptBox["v", "2"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{"3", " ", "u", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{"3", " ", "u", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "+", 
           RowBox[{"v", " ", 
            TemplateBox[{
              RowBox[{"u"}]},
             "DiracDeltaSeq"], " ", 
            TemplateBox[{
              RowBox[{"v"}]},
             "HeavisideThetaSeq"]}], "+", 
           FractionBox[
            TemplateBox[{
              RowBox[{"u"}]},
             "DiracDeltaSeq"], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{"v", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            TemplateBox[{
              RowBox[{"u"}]},
             "DiracDeltaSeq"], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{"3", " ", "v", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "+", 
           RowBox[{"u", " ", 
            TemplateBox[{
              RowBox[{"u"}]},
             "DiracDeltaSeq"], " ", 
            TemplateBox[{
              RowBox[{"u"}]},
             "HeavisideThetaSeq"]}], "-", 
           TemplateBox[{
             RowBox[{"u"}]},
            "DiracDeltaSeq"]}], "0", "0", "0"}
        },
        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]", ")"}]},
     {
      RowBox[{"(", "\[NoBreak]", GridBox[{
         {"0", "0", "0", "0"},
         {"0", "0", "0", "0"},
         {"0", "0", "0", "0"},
         {"0", "0", "0", "0"}
        },
        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]", ")"}], 
      RowBox[{"(", "\[NoBreak]", GridBox[{
         {"0", "0", "0", "0"},
         {"0", "0", "0", "0"},
         {"0", "0", "0", "0"},
         {"0", "0", "0", "0"}
        },
        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]", ")"}], 
      RowBox[{"(", "\[NoBreak]", GridBox[{
         {"0", "0", "0", "0"},
         {"0", "0", 
          RowBox[{
           RowBox[{"-", 
            FractionBox[
             RowBox[{"3", " ", "u", " ", "v", " ", 
              TemplateBox[{
                RowBox[{"v"}]},
               "DiracDeltaSeq"], " ", 
              TemplateBox[{
                RowBox[{"u", ",", "v"}]},
               "HeavisideThetaSeq"]}], 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]]}], "+", 
           FractionBox[
            RowBox[{"u", " ", "v", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u", ",", "v"}]},
              "HeavisideThetaSeq"]}], 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"u", " ", 
                TemplateBox[{
                  RowBox[{"u"}]},
                 "HeavisideThetaSeq"]}], "+", 
               RowBox[{"v", " ", 
                TemplateBox[{
                  RowBox[{"v"}]},
                 "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]], "-", 
           FractionBox[
            RowBox[{
             SuperscriptBox["u", "3"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "3"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{
             SuperscriptBox["u", "3"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "3"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{"3", " ", 
             SuperscriptBox["u", "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{"3", " ", 
             SuperscriptBox["u", "2"], " ", "v", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{"3", " ", 
             SuperscriptBox["u", "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{
             SuperscriptBox["u", "2"], " ", "v", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{"3", " ", "u", " ", 
             SuperscriptBox["v", "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{"u", " ", 
             SuperscriptBox["v", "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{
             SuperscriptBox["v", "3"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "3"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{"3", " ", 
             SuperscriptBox["v", "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{
             SuperscriptBox["v", "3"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "3"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{
             SuperscriptBox["v", "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "+", 
           RowBox[{"u", " ", 
            TemplateBox[{
              RowBox[{"v"}]},
             "DiracDeltaSeq"], " ", 
            TemplateBox[{
              RowBox[{"u"}]},
             "HeavisideThetaSeq"]}], "-", 
           FractionBox[
            RowBox[{"3", " ", "u", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{"3", " ", "u", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            TemplateBox[{
              RowBox[{"v"}]},
             "DiracDeltaSeq"], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{"3", " ", "v", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            TemplateBox[{
              RowBox[{"v"}]},
             "DiracDeltaSeq"], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{"v", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "-", 
           RowBox[{"v", " ", 
            TemplateBox[{
              RowBox[{"v"}]},
             "DiracDeltaSeq"], " ", 
            TemplateBox[{
              RowBox[{"v"}]},
             "HeavisideThetaSeq"]}], "-", 
           TemplateBox[{
             RowBox[{"v"}]},
            "DiracDeltaSeq"]}], "0"},
         {"0", 
          RowBox[{
           FractionBox[
            RowBox[{"3", " ", "u", " ", "v", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u", ",", "v"}]},
              "HeavisideThetaSeq"]}], 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "u"}], " ", 
                TemplateBox[{
                  RowBox[{"u"}]},
                 "HeavisideThetaSeq"]}], "+", 
               RowBox[{"v", " ", 
                TemplateBox[{
                  RowBox[{"v"}]},
                 "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]], "-", 
           FractionBox[
            RowBox[{"u", " ", "v", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u", ",", "v"}]},
              "HeavisideThetaSeq"]}], 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"u", " ", 
                TemplateBox[{
                  RowBox[{"u"}]},
                 "HeavisideThetaSeq"]}], "+", 
               RowBox[{"v", " ", 
                TemplateBox[{
                  RowBox[{"v"}]},
                 "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]], "+", 
           FractionBox[
            RowBox[{
             SuperscriptBox["u", "3"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "3"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{
             SuperscriptBox["u", "3"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "3"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{"3", " ", 
             SuperscriptBox["u", "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{"3", " ", 
             SuperscriptBox["u", "2"], " ", "v", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{"3", " ", 
             SuperscriptBox["u", "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{
             SuperscriptBox["u", "2"], " ", "v", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{"3", " ", "u", " ", 
             SuperscriptBox["v", "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{"u", " ", 
             SuperscriptBox["v", "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{
             SuperscriptBox["v", "3"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "3"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{"3", " ", 
             SuperscriptBox["v", "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{
             SuperscriptBox["v", "3"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "3"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{
             SuperscriptBox["v", "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "-", 
           RowBox[{"u", " ", 
            TemplateBox[{
              RowBox[{"v"}]},
             "DiracDeltaSeq"], " ", 
            TemplateBox[{
              RowBox[{"u"}]},
             "HeavisideThetaSeq"]}], "+", 
           FractionBox[
            RowBox[{"3", " ", "u", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{"3", " ", "u", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            TemplateBox[{
              RowBox[{"v"}]},
             "DiracDeltaSeq"], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{"3", " ", "v", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            TemplateBox[{
              RowBox[{"v"}]},
             "DiracDeltaSeq"], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{"v", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "+", 
           RowBox[{"v", " ", 
            TemplateBox[{
              RowBox[{"v"}]},
             "DiracDeltaSeq"], " ", 
            TemplateBox[{
              RowBox[{"v"}]},
             "HeavisideThetaSeq"]}], "+", 
           TemplateBox[{
             RowBox[{"v"}]},
            "DiracDeltaSeq"]}], "0", "0"},
         {"0", "0", "0", "0"}
        },
        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]", ")"}], 
      RowBox[{"(", "\[NoBreak]", GridBox[{
         {"0", "0", "0", "0"},
         {"0", "0", "0", 
          RowBox[{
           FractionBox[
            RowBox[{"u", " ", "v", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u", ",", "v"}]},
              "HeavisideThetaSeq"]}], 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "u"}], " ", 
                TemplateBox[{
                  RowBox[{"u"}]},
                 "HeavisideThetaSeq"]}], "+", 
               RowBox[{"v", " ", 
                TemplateBox[{
                  RowBox[{"v"}]},
                 "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]], "-", 
           FractionBox[
            RowBox[{"3", " ", "u", " ", "v", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u", ",", "v"}]},
              "HeavisideThetaSeq"]}], 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"u", " ", 
                TemplateBox[{
                  RowBox[{"u"}]},
                 "HeavisideThetaSeq"]}], "+", 
               RowBox[{"v", " ", 
                TemplateBox[{
                  RowBox[{"v"}]},
                 "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]], "-", 
           FractionBox[
            RowBox[{
             SuperscriptBox["u", "3"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "3"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{
             SuperscriptBox["u", "3"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "3"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{"3", " ", 
             SuperscriptBox["u", "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{
             SuperscriptBox["u", "2"], " ", "v", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{"3", " ", 
             SuperscriptBox["u", "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{"3", " ", 
             SuperscriptBox["u", "2"], " ", "v", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{"u", " ", 
             SuperscriptBox["v", "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{"3", " ", "u", " ", 
             SuperscriptBox["v", "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{
             SuperscriptBox["v", "3"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "3"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{
             SuperscriptBox["v", "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{
             SuperscriptBox["v", "3"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "3"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{"3", " ", 
             SuperscriptBox["v", "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "-", 
           RowBox[{"u", " ", 
            TemplateBox[{
              RowBox[{"v"}]},
             "DiracDeltaSeq"], " ", 
            TemplateBox[{
              RowBox[{"u"}]},
             "HeavisideThetaSeq"]}], "-", 
           FractionBox[
            RowBox[{"3", " ", "u", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{"3", " ", "u", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            TemplateBox[{
              RowBox[{"v"}]},
             "DiracDeltaSeq"], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{"v", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            TemplateBox[{
              RowBox[{"v"}]},
             "DiracDeltaSeq"], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{"3", " ", "v", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "-", 
           RowBox[{"v", " ", 
            TemplateBox[{
              RowBox[{"v"}]},
             "DiracDeltaSeq"], " ", 
            TemplateBox[{
              RowBox[{"v"}]},
             "HeavisideThetaSeq"]}], "+", 
           TemplateBox[{
             RowBox[{"v"}]},
            "DiracDeltaSeq"]}]},
         {"0", "0", "0", "0"},
         {"0", 
          RowBox[{
           RowBox[{"-", 
            FractionBox[
             RowBox[{"u", " ", "v", " ", 
              TemplateBox[{
                RowBox[{"v"}]},
               "DiracDeltaSeq"], " ", 
              TemplateBox[{
                RowBox[{"u", ",", "v"}]},
               "HeavisideThetaSeq"]}], 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]]}], "+", 
           FractionBox[
            RowBox[{"3", " ", "u", " ", "v", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u", ",", "v"}]},
              "HeavisideThetaSeq"]}], 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"u", " ", 
                TemplateBox[{
                  RowBox[{"u"}]},
                 "HeavisideThetaSeq"]}], "+", 
               RowBox[{"v", " ", 
                TemplateBox[{
                  RowBox[{"v"}]},
                 "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]], "+", 
           FractionBox[
            RowBox[{
             SuperscriptBox["u", "3"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "3"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{
             SuperscriptBox["u", "3"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "3"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{"3", " ", 
             SuperscriptBox["u", "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{
             SuperscriptBox["u", "2"], " ", "v", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{"3", " ", 
             SuperscriptBox["u", "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{"3", " ", 
             SuperscriptBox["u", "2"], " ", "v", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{"u", " ", 
             SuperscriptBox["v", "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{"3", " ", "u", " ", 
             SuperscriptBox["v", "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{
             SuperscriptBox["v", "3"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "3"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{
             SuperscriptBox["v", "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{
             SuperscriptBox["v", "3"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "3"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{"3", " ", 
             SuperscriptBox["v", "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "+", 
           RowBox[{"u", " ", 
            TemplateBox[{
              RowBox[{"v"}]},
             "DiracDeltaSeq"], " ", 
            TemplateBox[{
              RowBox[{"u"}]},
             "HeavisideThetaSeq"]}], "+", 
           FractionBox[
            RowBox[{"3", " ", "u", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{"3", " ", "u", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            TemplateBox[{
              RowBox[{"v"}]},
             "DiracDeltaSeq"], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{"v", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            TemplateBox[{
              RowBox[{"v"}]},
             "DiracDeltaSeq"], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{"3", " ", "v", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "+", 
           RowBox[{"v", " ", 
            TemplateBox[{
              RowBox[{"v"}]},
             "DiracDeltaSeq"], " ", 
            TemplateBox[{
              RowBox[{"v"}]},
             "HeavisideThetaSeq"]}], "-", 
           TemplateBox[{
             RowBox[{"v"}]},
            "DiracDeltaSeq"]}], "0", "0"}
        },
        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]", ")"}]},
     {
      RowBox[{"(", "\[NoBreak]", GridBox[{
         {"0", "0", 
          RowBox[{
           RowBox[{"-", 
            FractionBox[
             RowBox[{"3", " ", "u", " ", "v", " ", 
              TemplateBox[{
                RowBox[{"u"}]},
               "DiracDeltaSeq"], " ", 
              TemplateBox[{
                RowBox[{"u", ",", "v"}]},
               "HeavisideThetaSeq"]}], 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]]}], "-", 
           FractionBox[
            RowBox[{"u", " ", "v", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u", ",", "v"}]},
              "HeavisideThetaSeq"]}], 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"u", " ", 
                TemplateBox[{
                  RowBox[{"u"}]},
                 "HeavisideThetaSeq"]}], "+", 
               RowBox[{"v", " ", 
                TemplateBox[{
                  RowBox[{"v"}]},
                 "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]], "-", 
           FractionBox[
            RowBox[{
             SuperscriptBox["u", "3"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "3"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{
             SuperscriptBox["u", "3"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "3"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{"3", " ", 
             SuperscriptBox["u", "2"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{"3", " ", 
             SuperscriptBox["u", "2"], " ", "v", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{"3", " ", 
             SuperscriptBox["u", "2"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{
             SuperscriptBox["u", "2"], " ", "v", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{"3", " ", "u", " ", 
             SuperscriptBox["v", "2"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{"u", " ", 
             SuperscriptBox["v", "2"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{
             SuperscriptBox["v", "3"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "3"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{"3", " ", 
             SuperscriptBox["v", "2"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{
             SuperscriptBox["v", "3"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "3"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{
             SuperscriptBox["v", "2"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{"3", " ", "u", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{"3", " ", "u", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "-", 
           RowBox[{"v", " ", 
            TemplateBox[{
              RowBox[{"u"}]},
             "DiracDeltaSeq"], " ", 
            TemplateBox[{
              RowBox[{"v"}]},
             "HeavisideThetaSeq"]}], "+", 
           FractionBox[
            TemplateBox[{
              RowBox[{"u"}]},
             "DiracDeltaSeq"], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{"3", " ", "v", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            TemplateBox[{
              RowBox[{"u"}]},
             "DiracDeltaSeq"], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{"v", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "+", 
           RowBox[{"u", " ", 
            TemplateBox[{
              RowBox[{"u"}]},
             "DiracDeltaSeq"], " ", 
            TemplateBox[{
              RowBox[{"u"}]},
             "HeavisideThetaSeq"]}], "-", 
           TemplateBox[{
             RowBox[{"u"}]},
            "DiracDeltaSeq"]}], "0"},
         {"0", "0", "0", "0"},
         {
          RowBox[{
           FractionBox[
            RowBox[{"3", " ", "u", " ", "v", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u", ",", "v"}]},
              "HeavisideThetaSeq"]}], 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "u"}], " ", 
                TemplateBox[{
                  RowBox[{"u"}]},
                 "HeavisideThetaSeq"]}], "+", 
               RowBox[{"v", " ", 
                TemplateBox[{
                  RowBox[{"v"}]},
                 "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]], "+", 
           FractionBox[
            RowBox[{"u", " ", "v", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u", ",", "v"}]},
              "HeavisideThetaSeq"]}], 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"u", " ", 
                TemplateBox[{
                  RowBox[{"u"}]},
                 "HeavisideThetaSeq"]}], "+", 
               RowBox[{"v", " ", 
                TemplateBox[{
                  RowBox[{"v"}]},
                 "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]], "+", 
           FractionBox[
            RowBox[{
             SuperscriptBox["u", "3"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "3"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{
             SuperscriptBox["u", "3"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "3"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{"3", " ", 
             SuperscriptBox["u", "2"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{"3", " ", 
             SuperscriptBox["u", "2"], " ", "v", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{"3", " ", 
             SuperscriptBox["u", "2"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{
             SuperscriptBox["u", "2"], " ", "v", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{"3", " ", "u", " ", 
             SuperscriptBox["v", "2"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{"u", " ", 
             SuperscriptBox["v", "2"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{
             SuperscriptBox["v", "3"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "3"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{"3", " ", 
             SuperscriptBox["v", "2"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{
             SuperscriptBox["v", "3"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "3"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{
             SuperscriptBox["v", "2"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{"3", " ", "u", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{"3", " ", "u", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "+", 
           RowBox[{"v", " ", 
            TemplateBox[{
              RowBox[{"u"}]},
             "DiracDeltaSeq"], " ", 
            TemplateBox[{
              RowBox[{"v"}]},
             "HeavisideThetaSeq"]}], "-", 
           FractionBox[
            TemplateBox[{
              RowBox[{"u"}]},
             "DiracDeltaSeq"], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{"3", " ", "v", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            TemplateBox[{
              RowBox[{"u"}]},
             "DiracDeltaSeq"], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{"v", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "-", 
           RowBox[{"u", " ", 
            TemplateBox[{
              RowBox[{"u"}]},
             "DiracDeltaSeq"], " ", 
            TemplateBox[{
              RowBox[{"u"}]},
             "HeavisideThetaSeq"]}], "+", 
           TemplateBox[{
             RowBox[{"u"}]},
            "DiracDeltaSeq"]}], "0", "0", "0"},
         {"0", "0", "0", "0"}
        },
        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]", ")"}], 
      RowBox[{"(", "\[NoBreak]", GridBox[{
         {"0", "0", "0", "0"},
         {"0", "0", 
          RowBox[{
           FractionBox[
            RowBox[{"3", " ", "u", " ", "v", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u", ",", "v"}]},
              "HeavisideThetaSeq"]}], 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "u"}], " ", 
                TemplateBox[{
                  RowBox[{"u"}]},
                 "HeavisideThetaSeq"]}], "+", 
               RowBox[{"v", " ", 
                TemplateBox[{
                  RowBox[{"v"}]},
                 "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]], "-", 
           FractionBox[
            RowBox[{"u", " ", "v", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u", ",", "v"}]},
              "HeavisideThetaSeq"]}], 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"u", " ", 
                TemplateBox[{
                  RowBox[{"u"}]},
                 "HeavisideThetaSeq"]}], "+", 
               RowBox[{"v", " ", 
                TemplateBox[{
                  RowBox[{"v"}]},
                 "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]], "+", 
           FractionBox[
            RowBox[{
             SuperscriptBox["u", "3"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "3"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{
             SuperscriptBox["u", "3"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "3"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{"3", " ", 
             SuperscriptBox["u", "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{"3", " ", 
             SuperscriptBox["u", "2"], " ", "v", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{"3", " ", 
             SuperscriptBox["u", "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{
             SuperscriptBox["u", "2"], " ", "v", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{"3", " ", "u", " ", 
             SuperscriptBox["v", "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{"u", " ", 
             SuperscriptBox["v", "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{
             SuperscriptBox["v", "3"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "3"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{"3", " ", 
             SuperscriptBox["v", "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{
             SuperscriptBox["v", "3"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "3"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{
             SuperscriptBox["v", "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "-", 
           RowBox[{"u", " ", 
            TemplateBox[{
              RowBox[{"v"}]},
             "DiracDeltaSeq"], " ", 
            TemplateBox[{
              RowBox[{"u"}]},
             "HeavisideThetaSeq"]}], "+", 
           FractionBox[
            RowBox[{"3", " ", "u", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{"3", " ", "u", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            TemplateBox[{
              RowBox[{"v"}]},
             "DiracDeltaSeq"], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{"3", " ", "v", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            TemplateBox[{
              RowBox[{"v"}]},
             "DiracDeltaSeq"], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{"v", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "+", 
           RowBox[{"v", " ", 
            TemplateBox[{
              RowBox[{"v"}]},
             "DiracDeltaSeq"], " ", 
            TemplateBox[{
              RowBox[{"v"}]},
             "HeavisideThetaSeq"]}], "+", 
           TemplateBox[{
             RowBox[{"v"}]},
            "DiracDeltaSeq"]}], "0"},
         {"0", 
          RowBox[{
           RowBox[{"-", 
            FractionBox[
             RowBox[{"3", " ", "u", " ", "v", " ", 
              TemplateBox[{
                RowBox[{"v"}]},
               "DiracDeltaSeq"], " ", 
              TemplateBox[{
                RowBox[{"u", ",", "v"}]},
               "HeavisideThetaSeq"]}], 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]]}], "+", 
           FractionBox[
            RowBox[{"u", " ", "v", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u", ",", "v"}]},
              "HeavisideThetaSeq"]}], 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"u", " ", 
                TemplateBox[{
                  RowBox[{"u"}]},
                 "HeavisideThetaSeq"]}], "+", 
               RowBox[{"v", " ", 
                TemplateBox[{
                  RowBox[{"v"}]},
                 "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]], "-", 
           FractionBox[
            RowBox[{
             SuperscriptBox["u", "3"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "3"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{
             SuperscriptBox["u", "3"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "3"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{"3", " ", 
             SuperscriptBox["u", "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{"3", " ", 
             SuperscriptBox["u", "2"], " ", "v", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{"3", " ", 
             SuperscriptBox["u", "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{
             SuperscriptBox["u", "2"], " ", "v", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{"3", " ", "u", " ", 
             SuperscriptBox["v", "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{"u", " ", 
             SuperscriptBox["v", "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{
             SuperscriptBox["v", "3"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "3"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{"3", " ", 
             SuperscriptBox["v", "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{
             SuperscriptBox["v", "3"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "3"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{
             SuperscriptBox["v", "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "+", 
           RowBox[{"u", " ", 
            TemplateBox[{
              RowBox[{"v"}]},
             "DiracDeltaSeq"], " ", 
            TemplateBox[{
              RowBox[{"u"}]},
             "HeavisideThetaSeq"]}], "-", 
           FractionBox[
            RowBox[{"3", " ", "u", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{"3", " ", "u", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            TemplateBox[{
              RowBox[{"v"}]},
             "DiracDeltaSeq"], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{"3", " ", "v", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            TemplateBox[{
              RowBox[{"v"}]},
             "DiracDeltaSeq"], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{"v", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "-", 
           RowBox[{"v", " ", 
            TemplateBox[{
              RowBox[{"v"}]},
             "DiracDeltaSeq"], " ", 
            TemplateBox[{
              RowBox[{"v"}]},
             "HeavisideThetaSeq"]}], "-", 
           TemplateBox[{
             RowBox[{"v"}]},
            "DiracDeltaSeq"]}], "0", "0"},
         {"0", "0", "0", "0"}
        },
        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]", ")"}], 
      RowBox[{"(", "\[NoBreak]", GridBox[{
         {"0", "0", "0", "0"},
         {"0", "0", "0", "0"},
         {"0", "0", "0", "0"},
         {"0", "0", "0", "0"}
        },
        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]", ")"}], 
      RowBox[{"(", "\[NoBreak]", GridBox[{
         {"0", "0", "0", "0"},
         {"0", "0", "0", "0"},
         {"0", "0", "0", "0"},
         {"0", "0", "0", "0"}
        },
        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]", ")"}]},
     {
      RowBox[{"(", "\[NoBreak]", GridBox[{
         {"0", "0", "0", 
          RowBox[{
           FractionBox[
            RowBox[{"u", " ", "v", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u", ",", "v"}]},
              "HeavisideThetaSeq"]}], 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "u"}], " ", 
                TemplateBox[{
                  RowBox[{"u"}]},
                 "HeavisideThetaSeq"]}], "+", 
               RowBox[{"v", " ", 
                TemplateBox[{
                  RowBox[{"v"}]},
                 "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]], "+", 
           FractionBox[
            RowBox[{"3", " ", "u", " ", "v", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u", ",", "v"}]},
              "HeavisideThetaSeq"]}], 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"u", " ", 
                TemplateBox[{
                  RowBox[{"u"}]},
                 "HeavisideThetaSeq"]}], "+", 
               RowBox[{"v", " ", 
                TemplateBox[{
                  RowBox[{"v"}]},
                 "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]], "-", 
           FractionBox[
            RowBox[{
             SuperscriptBox["u", "3"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "3"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{
             SuperscriptBox["u", "3"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "3"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{"3", " ", 
             SuperscriptBox["u", "2"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{
             SuperscriptBox["u", "2"], " ", "v", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{"3", " ", 
             SuperscriptBox["u", "2"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{"3", " ", 
             SuperscriptBox["u", "2"], " ", "v", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{"u", " ", 
             SuperscriptBox["v", "2"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{"3", " ", "u", " ", 
             SuperscriptBox["v", "2"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{
             SuperscriptBox["v", "3"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "3"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{
             SuperscriptBox["v", "2"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{
             SuperscriptBox["v", "3"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "3"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{"3", " ", 
             SuperscriptBox["v", "2"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{"3", " ", "u", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{"3", " ", "u", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "+", 
           RowBox[{"v", " ", 
            TemplateBox[{
              RowBox[{"u"}]},
             "DiracDeltaSeq"], " ", 
            TemplateBox[{
              RowBox[{"v"}]},
             "HeavisideThetaSeq"]}], "+", 
           FractionBox[
            TemplateBox[{
              RowBox[{"u"}]},
             "DiracDeltaSeq"], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{"v", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            TemplateBox[{
              RowBox[{"u"}]},
             "DiracDeltaSeq"], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{"3", " ", "v", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "+", 
           RowBox[{"u", " ", 
            TemplateBox[{
              RowBox[{"u"}]},
             "DiracDeltaSeq"], " ", 
            TemplateBox[{
              RowBox[{"u"}]},
             "HeavisideThetaSeq"]}], "-", 
           TemplateBox[{
             RowBox[{"u"}]},
            "DiracDeltaSeq"]}]},
         {"0", "0", "0", "0"},
         {"0", "0", "0", "0"},
         {
          RowBox[{
           RowBox[{"-", 
            FractionBox[
             RowBox[{"u", " ", "v", " ", 
              TemplateBox[{
                RowBox[{"u"}]},
               "DiracDeltaSeq"], " ", 
              TemplateBox[{
                RowBox[{"u", ",", "v"}]},
               "HeavisideThetaSeq"]}], 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]]}], "-", 
           FractionBox[
            RowBox[{"3", " ", "u", " ", "v", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u", ",", "v"}]},
              "HeavisideThetaSeq"]}], 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"u", " ", 
                TemplateBox[{
                  RowBox[{"u"}]},
                 "HeavisideThetaSeq"]}], "+", 
               RowBox[{"v", " ", 
                TemplateBox[{
                  RowBox[{"v"}]},
                 "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]], "+", 
           FractionBox[
            RowBox[{
             SuperscriptBox["u", "3"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "3"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{
             SuperscriptBox["u", "3"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "3"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{"3", " ", 
             SuperscriptBox["u", "2"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{
             SuperscriptBox["u", "2"], " ", "v", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{"3", " ", 
             SuperscriptBox["u", "2"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{"3", " ", 
             SuperscriptBox["u", "2"], " ", "v", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{"u", " ", 
             SuperscriptBox["v", "2"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{"3", " ", "u", " ", 
             SuperscriptBox["v", "2"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{
             SuperscriptBox["v", "3"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "3"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{
             SuperscriptBox["v", "2"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{
             SuperscriptBox["v", "3"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "3"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{"3", " ", 
             SuperscriptBox["v", "2"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{"3", " ", "u", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{"3", " ", "u", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "-", 
           RowBox[{"v", " ", 
            TemplateBox[{
              RowBox[{"u"}]},
             "DiracDeltaSeq"], " ", 
            TemplateBox[{
              RowBox[{"v"}]},
             "HeavisideThetaSeq"]}], "-", 
           FractionBox[
            TemplateBox[{
              RowBox[{"u"}]},
             "DiracDeltaSeq"], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{"v", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            TemplateBox[{
              RowBox[{"u"}]},
             "DiracDeltaSeq"], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{"3", " ", "v", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "-", 
           RowBox[{"u", " ", 
            TemplateBox[{
              RowBox[{"u"}]},
             "DiracDeltaSeq"], " ", 
            TemplateBox[{
              RowBox[{"u"}]},
             "HeavisideThetaSeq"]}], "+", 
           TemplateBox[{
             RowBox[{"u"}]},
            "DiracDeltaSeq"]}], "0", "0", "0"}
        },
        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]", ")"}], 
      RowBox[{"(", "\[NoBreak]", GridBox[{
         {"0", "0", "0", "0"},
         {"0", "0", "0", 
          RowBox[{
           RowBox[{"-", 
            FractionBox[
             RowBox[{"u", " ", "v", " ", 
              TemplateBox[{
                RowBox[{"v"}]},
               "DiracDeltaSeq"], " ", 
              TemplateBox[{
                RowBox[{"u", ",", "v"}]},
               "HeavisideThetaSeq"]}], 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]]}], "+", 
           FractionBox[
            RowBox[{"3", " ", "u", " ", "v", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u", ",", "v"}]},
              "HeavisideThetaSeq"]}], 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"u", " ", 
                TemplateBox[{
                  RowBox[{"u"}]},
                 "HeavisideThetaSeq"]}], "+", 
               RowBox[{"v", " ", 
                TemplateBox[{
                  RowBox[{"v"}]},
                 "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]], "+", 
           FractionBox[
            RowBox[{
             SuperscriptBox["u", "3"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "3"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{
             SuperscriptBox["u", "3"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "3"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{"3", " ", 
             SuperscriptBox["u", "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{
             SuperscriptBox["u", "2"], " ", "v", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{"3", " ", 
             SuperscriptBox["u", "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{"3", " ", 
             SuperscriptBox["u", "2"], " ", "v", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{"u", " ", 
             SuperscriptBox["v", "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{"3", " ", "u", " ", 
             SuperscriptBox["v", "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{
             SuperscriptBox["v", "3"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "3"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{
             SuperscriptBox["v", "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{
             SuperscriptBox["v", "3"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "3"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{"3", " ", 
             SuperscriptBox["v", "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "+", 
           RowBox[{"u", " ", 
            TemplateBox[{
              RowBox[{"v"}]},
             "DiracDeltaSeq"], " ", 
            TemplateBox[{
              RowBox[{"u"}]},
             "HeavisideThetaSeq"]}], "+", 
           FractionBox[
            RowBox[{"3", " ", "u", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{"3", " ", "u", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            TemplateBox[{
              RowBox[{"v"}]},
             "DiracDeltaSeq"], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{"v", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            TemplateBox[{
              RowBox[{"v"}]},
             "DiracDeltaSeq"], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{"3", " ", "v", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "+", 
           RowBox[{"v", " ", 
            TemplateBox[{
              RowBox[{"v"}]},
             "DiracDeltaSeq"], " ", 
            TemplateBox[{
              RowBox[{"v"}]},
             "HeavisideThetaSeq"]}], "-", 
           TemplateBox[{
             RowBox[{"v"}]},
            "DiracDeltaSeq"]}]},
         {"0", "0", "0", "0"},
         {"0", 
          RowBox[{
           FractionBox[
            RowBox[{"u", " ", "v", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u", ",", "v"}]},
              "HeavisideThetaSeq"]}], 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "u"}], " ", 
                TemplateBox[{
                  RowBox[{"u"}]},
                 "HeavisideThetaSeq"]}], "+", 
               RowBox[{"v", " ", 
                TemplateBox[{
                  RowBox[{"v"}]},
                 "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]], "-", 
           FractionBox[
            RowBox[{"3", " ", "u", " ", "v", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u", ",", "v"}]},
              "HeavisideThetaSeq"]}], 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"u", " ", 
                TemplateBox[{
                  RowBox[{"u"}]},
                 "HeavisideThetaSeq"]}], "+", 
               RowBox[{"v", " ", 
                TemplateBox[{
                  RowBox[{"v"}]},
                 "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]], "-", 
           FractionBox[
            RowBox[{
             SuperscriptBox["u", "3"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "3"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{
             SuperscriptBox["u", "3"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "3"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{"3", " ", 
             SuperscriptBox["u", "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{
             SuperscriptBox["u", "2"], " ", "v", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{"3", " ", 
             SuperscriptBox["u", "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{"3", " ", 
             SuperscriptBox["u", "2"], " ", "v", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"], "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{"u", " ", 
             SuperscriptBox["v", "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{"3", " ", "u", " ", 
             SuperscriptBox["v", "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{
             SuperscriptBox["v", "3"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "3"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{
             SuperscriptBox["v", "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{
             SuperscriptBox["v", "3"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "3"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{"3", " ", 
             SuperscriptBox["v", "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             SuperscriptBox[
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"], "2"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "-", 
           RowBox[{"u", " ", 
            TemplateBox[{
              RowBox[{"v"}]},
             "DiracDeltaSeq"], " ", 
            TemplateBox[{
              RowBox[{"u"}]},
             "HeavisideThetaSeq"]}], "-", 
           FractionBox[
            RowBox[{"3", " ", "u", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{"3", " ", "u", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            TemplateBox[{
              RowBox[{"v"}]},
             "DiracDeltaSeq"], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{"v", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "u"}], " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]}]], "-", 
           FractionBox[
            TemplateBox[{
              RowBox[{"v"}]},
             "DiracDeltaSeq"], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "+", 
           FractionBox[
            RowBox[{"3", " ", "v", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "DiracDeltaSeq"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"u", " ", 
                 TemplateBox[{
                   RowBox[{"u"}]},
                  "HeavisideThetaSeq"]}], "+", 
                RowBox[{"v", " ", 
                 TemplateBox[{
                   RowBox[{"v"}]},
                  "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]], "-", 
           RowBox[{"v", " ", 
            TemplateBox[{
              RowBox[{"v"}]},
             "DiracDeltaSeq"], " ", 
            TemplateBox[{
              RowBox[{"v"}]},
             "HeavisideThetaSeq"]}], "+", 
           TemplateBox[{
             RowBox[{"v"}]},
            "DiracDeltaSeq"]}], "0", "0"}
        },
        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]", ")"}], 
      RowBox[{"(", "\[NoBreak]", GridBox[{
         {"0", "0", "0", "0"},
         {"0", "0", "0", "0"},
         {"0", "0", "0", "0"},
         {"0", "0", "0", "0"}
        },
        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]", ")"}], 
      RowBox[{"(", "\[NoBreak]", GridBox[{
         {"0", "0", "0", "0"},
         {"0", "0", "0", "0"},
         {"0", "0", "0", "0"},
         {"0", "0", "0", "0"}
        },
        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]", ")"}]}
    },
    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]", ")"}], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.823970325977126*^9, 3.8240256887972517`*^9, 
  3.824026472827137*^9, 3.824033892231288*^9, 3.825289078369125*^9},
 CellLabel->
  "Out[129]//TraditionalForm=",ExpressionUUID->"627d4b80-676a-427d-aa59-\
497a8051f7a5"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "9", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "9", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"TensorValues", "[", 
      RowBox[{"tensorList", "[", 
       RowBox[{"[", "9", "]"}], "]"}], "]"}], "  ", "//", " ", "Expand"}], 
    " ", "//", " ", "Simplify"}], "  ", "//", " ", "MatrixForm"}], "//", " ", 
  "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.82093465870828*^9, 3.820934665723707*^9}, 
   3.820937492206532*^9, 3.821110229353163*^9, {3.8239676252814713`*^9, 
   3.8239676285918293`*^9}, {3.823968202196871*^9, 3.823968207554695*^9}, {
   3.823970440124268*^9, 3.823970442004127*^9}, 3.824026472827426*^9, 
   3.8252890783692017`*^9},
 CellLabel->
  "In[130]:=",ExpressionUUID->"08395451-c1d4-48b2-9a9c-5fb761fbb6c7"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["C", "\[Alpha]\[Beta]\[Gamma]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.824033892438683*^9, 3.8252890783692904`*^9},
 CellLabel->
  "Out[130]=",ExpressionUUID->"6b3326f4-d0cf-4c39-9ffd-93183fd30da8"],

Cell[BoxData["\<\"CottonTensorCollision\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.824033892444882*^9, 3.8252890783693743`*^9},
 CellLabel->
  "Out[131]=",ExpressionUUID->"0235d9e8-dc02-4f3d-b54e-ce6402b51827"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {
            RowBox[{
             FractionBox[
              RowBox[{"2", " ", "u", " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "DiracDeltaSeq"], " ", 
               TemplateBox[{
                 RowBox[{"u", ",", "v"}]},
                "HeavisideThetaSeq"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "u"}], " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "3"]], "+", 
             FractionBox[
              RowBox[{"2", " ", "u", " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "DiracDeltaSeq"], " ", 
               TemplateBox[{
                 RowBox[{"u", ",", "v"}]},
                "HeavisideThetaSeq"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"u", " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "3"]], "-", 
             FractionBox[
              RowBox[{"2", " ", "v", " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "DiracDeltaSeq"], " ", 
               SuperscriptBox[
                TemplateBox[{
                  RowBox[{"v"}]},
                 "HeavisideThetaSeq"], "2"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "u"}], " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "3"]], "+", 
             FractionBox[
              RowBox[{"2", " ", "v", " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "DiracDeltaSeq"], " ", 
               SuperscriptBox[
                TemplateBox[{
                  RowBox[{"v"}]},
                 "HeavisideThetaSeq"], "2"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"u", " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "3"]], "+", 
             FractionBox[
              RowBox[{
               TemplateBox[{
                 RowBox[{"u"}]},
                "DiracDeltaSeq"], " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "HeavisideThetaSeq"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "u"}], " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]], "-", 
             FractionBox[
              RowBox[{
               TemplateBox[{
                 RowBox[{"u"}]},
                "DiracDeltaSeq"], " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "HeavisideThetaSeq"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"u", " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]], "-", 
             FractionBox[
              RowBox[{"2", " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "DiracDeltaSeq"], " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "HeavisideThetaSeq"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "u"}], " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "3"]], "-", 
             FractionBox[
              RowBox[{"2", " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "DiracDeltaSeq"], " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "HeavisideThetaSeq"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"u", " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "3"]]}]},
           {"0"},
           {"0"}
          },
          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]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {
            RowBox[{
             RowBox[{"-", 
              FractionBox[
               RowBox[{"2", " ", "u", " ", 
                TemplateBox[{
                  RowBox[{"u"}]},
                 "DiracDeltaSeq"], " ", 
                TemplateBox[{
                  RowBox[{"u", ",", "v"}]},
                 "HeavisideThetaSeq"]}], 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"-", "u"}], " ", 
                   TemplateBox[{
                    RowBox[{"u"}]},
                    "HeavisideThetaSeq"]}], "+", 
                  RowBox[{"v", " ", 
                   TemplateBox[{
                    RowBox[{"v"}]},
                    "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "3"]]}], "-", 
             FractionBox[
              RowBox[{"2", " ", "u", " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "DiracDeltaSeq"], " ", 
               TemplateBox[{
                 RowBox[{"u", ",", "v"}]},
                "HeavisideThetaSeq"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"u", " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "3"]], "+", 
             FractionBox[
              RowBox[{"2", " ", "v", " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "DiracDeltaSeq"], " ", 
               SuperscriptBox[
                TemplateBox[{
                  RowBox[{"v"}]},
                 "HeavisideThetaSeq"], "2"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "u"}], " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "3"]], "-", 
             FractionBox[
              RowBox[{"2", " ", "v", " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "DiracDeltaSeq"], " ", 
               SuperscriptBox[
                TemplateBox[{
                  RowBox[{"v"}]},
                 "HeavisideThetaSeq"], "2"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"u", " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "3"]], "-", 
             FractionBox[
              RowBox[{
               TemplateBox[{
                 RowBox[{"u"}]},
                "DiracDeltaSeq"], " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "HeavisideThetaSeq"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "u"}], " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]], "+", 
             FractionBox[
              RowBox[{
               TemplateBox[{
                 RowBox[{"u"}]},
                "DiracDeltaSeq"], " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "HeavisideThetaSeq"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"u", " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]], "+", 
             FractionBox[
              RowBox[{"2", " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "DiracDeltaSeq"], " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "HeavisideThetaSeq"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "u"}], " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "3"]], "+", 
             FractionBox[
              RowBox[{"2", " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "DiracDeltaSeq"], " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "HeavisideThetaSeq"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"u", " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "3"]]}]},
           {"0"},
           {"0"},
           {"0"}
          },
          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]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          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]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          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]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {
            RowBox[{
             FractionBox[
              RowBox[{"2", " ", "v", " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "DiracDeltaSeq"], " ", 
               TemplateBox[{
                 RowBox[{"u", ",", "v"}]},
                "HeavisideThetaSeq"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "u"}], " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "3"]], "-", 
             FractionBox[
              RowBox[{"2", " ", "v", " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "DiracDeltaSeq"], " ", 
               TemplateBox[{
                 RowBox[{"u", ",", "v"}]},
                "HeavisideThetaSeq"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"u", " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "3"]], "-", 
             FractionBox[
              RowBox[{"2", " ", "u", " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "DiracDeltaSeq"], " ", 
               SuperscriptBox[
                TemplateBox[{
                  RowBox[{"u"}]},
                 "HeavisideThetaSeq"], "2"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "u"}], " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "3"]], "-", 
             FractionBox[
              RowBox[{"2", " ", "u", " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "DiracDeltaSeq"], " ", 
               SuperscriptBox[
                TemplateBox[{
                  RowBox[{"u"}]},
                 "HeavisideThetaSeq"], "2"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"u", " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "3"]], "-", 
             FractionBox[
              RowBox[{
               TemplateBox[{
                 RowBox[{"v"}]},
                "DiracDeltaSeq"], " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "HeavisideThetaSeq"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "u"}], " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]], "+", 
             FractionBox[
              RowBox[{
               TemplateBox[{
                 RowBox[{"v"}]},
                "DiracDeltaSeq"], " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "HeavisideThetaSeq"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"u", " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]], "+", 
             FractionBox[
              RowBox[{"2", " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "DiracDeltaSeq"], " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "HeavisideThetaSeq"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "u"}], " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "3"]], "+", 
             FractionBox[
              RowBox[{"2", " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "DiracDeltaSeq"], " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "HeavisideThetaSeq"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"u", " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "3"]]}]},
           {"0"},
           {"0"}
          },
          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]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {
            RowBox[{
             RowBox[{"-", 
              FractionBox[
               RowBox[{"2", " ", "v", " ", 
                TemplateBox[{
                  RowBox[{"v"}]},
                 "DiracDeltaSeq"], " ", 
                TemplateBox[{
                  RowBox[{"u", ",", "v"}]},
                 "HeavisideThetaSeq"]}], 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"-", "u"}], " ", 
                   TemplateBox[{
                    RowBox[{"u"}]},
                    "HeavisideThetaSeq"]}], "+", 
                  RowBox[{"v", " ", 
                   TemplateBox[{
                    RowBox[{"v"}]},
                    "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "3"]]}], "+", 
             FractionBox[
              RowBox[{"2", " ", "v", " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "DiracDeltaSeq"], " ", 
               TemplateBox[{
                 RowBox[{"u", ",", "v"}]},
                "HeavisideThetaSeq"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"u", " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "3"]], "+", 
             FractionBox[
              RowBox[{"2", " ", "u", " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "DiracDeltaSeq"], " ", 
               SuperscriptBox[
                TemplateBox[{
                  RowBox[{"u"}]},
                 "HeavisideThetaSeq"], "2"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "u"}], " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "3"]], "+", 
             FractionBox[
              RowBox[{"2", " ", "u", " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "DiracDeltaSeq"], " ", 
               SuperscriptBox[
                TemplateBox[{
                  RowBox[{"u"}]},
                 "HeavisideThetaSeq"], "2"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"u", " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "3"]], "+", 
             FractionBox[
              RowBox[{
               TemplateBox[{
                 RowBox[{"v"}]},
                "DiracDeltaSeq"], " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "HeavisideThetaSeq"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "u"}], " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]], "-", 
             FractionBox[
              RowBox[{
               TemplateBox[{
                 RowBox[{"v"}]},
                "DiracDeltaSeq"], " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "HeavisideThetaSeq"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"u", " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]], "-", 
             FractionBox[
              RowBox[{"2", " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "DiracDeltaSeq"], " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "HeavisideThetaSeq"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "u"}], " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "3"]], "-", 
             FractionBox[
              RowBox[{"2", " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "DiracDeltaSeq"], " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "HeavisideThetaSeq"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"u", " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "3"]]}]},
           {"0"},
           {"0"},
           {"0"}
          },
          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]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          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]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          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]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {
            RowBox[{
             FractionBox[
              RowBox[{"2", " ", "u", " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "DiracDeltaSeq"], " ", 
               TemplateBox[{
                 RowBox[{"u", ",", "v"}]},
                "HeavisideThetaSeq"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "u"}], " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]], "+", 
             FractionBox[
              RowBox[{"2", " ", "u", " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "DiracDeltaSeq"], " ", 
               TemplateBox[{
                 RowBox[{"u", ",", "v"}]},
                "HeavisideThetaSeq"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"u", " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]], "-", 
             FractionBox[
              RowBox[{
               SuperscriptBox["u", "2"], " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "DiracDeltaSeq"], " ", 
               SuperscriptBox[
                TemplateBox[{
                  RowBox[{"u"}]},
                 "HeavisideThetaSeq"], "2"], " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "HeavisideThetaSeq"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "u"}], " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]], "-", 
             FractionBox[
              RowBox[{
               SuperscriptBox["u", "2"], " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "DiracDeltaSeq"], " ", 
               SuperscriptBox[
                TemplateBox[{
                  RowBox[{"u"}]},
                 "HeavisideThetaSeq"], "2"], " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "HeavisideThetaSeq"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"u", " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]], "-", 
             FractionBox[
              RowBox[{
               SuperscriptBox["v", "2"], " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "DiracDeltaSeq"], " ", 
               SuperscriptBox[
                TemplateBox[{
                  RowBox[{"v"}]},
                 "HeavisideThetaSeq"], "3"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "u"}], " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]], "+", 
             FractionBox[
              RowBox[{
               SuperscriptBox["v", "2"], " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "DiracDeltaSeq"], " ", 
               SuperscriptBox[
                TemplateBox[{
                  RowBox[{"v"}]},
                 "HeavisideThetaSeq"], "3"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"u", " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]], "-", 
             FractionBox[
              RowBox[{"2", " ", "v", " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "DiracDeltaSeq"], " ", 
               SuperscriptBox[
                TemplateBox[{
                  RowBox[{"v"}]},
                 "HeavisideThetaSeq"], "2"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "u"}], " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]], "+", 
             FractionBox[
              RowBox[{"2", " ", "u", " ", "v", " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "DiracDeltaSeq"], " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "HeavisideThetaSeq"], " ", 
               SuperscriptBox[
                TemplateBox[{
                  RowBox[{"v"}]},
                 "HeavisideThetaSeq"], "2"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "u"}], " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]], "-", 
             FractionBox[
              RowBox[{
               TemplateBox[{
                 RowBox[{"u"}]},
                "DiracDeltaSeq"], " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "HeavisideThetaSeq"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "u"}], " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]], "-", 
             FractionBox[
              RowBox[{
               TemplateBox[{
                 RowBox[{"u"}]},
                "DiracDeltaSeq"], " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "HeavisideThetaSeq"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"u", " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]]}]},
           {"0"}
          },
          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]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {
            RowBox[{
             RowBox[{"-", 
              FractionBox[
               RowBox[{"2", " ", "v", " ", 
                TemplateBox[{
                  RowBox[{"v"}]},
                 "DiracDeltaSeq"], " ", 
                TemplateBox[{
                  RowBox[{"u", ",", "v"}]},
                 "HeavisideThetaSeq"]}], 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"-", "u"}], " ", 
                   TemplateBox[{
                    RowBox[{"u"}]},
                    "HeavisideThetaSeq"]}], "+", 
                  RowBox[{"v", " ", 
                   TemplateBox[{
                    RowBox[{"v"}]},
                    "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]]}], "-", 
             FractionBox[
              RowBox[{
               SuperscriptBox["u", "2"], " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "DiracDeltaSeq"], " ", 
               SuperscriptBox[
                TemplateBox[{
                  RowBox[{"u"}]},
                 "HeavisideThetaSeq"], "3"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "u"}], " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]], "+", 
             FractionBox[
              RowBox[{
               SuperscriptBox["u", "2"], " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "DiracDeltaSeq"], " ", 
               SuperscriptBox[
                TemplateBox[{
                  RowBox[{"u"}]},
                 "HeavisideThetaSeq"], "3"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"u", " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]], "-", 
             FractionBox[
              RowBox[{
               SuperscriptBox["v", "2"], " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "DiracDeltaSeq"], " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "HeavisideThetaSeq"], " ", 
               SuperscriptBox[
                TemplateBox[{
                  RowBox[{"v"}]},
                 "HeavisideThetaSeq"], "2"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "u"}], " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]], "-", 
             FractionBox[
              RowBox[{
               SuperscriptBox["v", "2"], " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "DiracDeltaSeq"], " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "HeavisideThetaSeq"], " ", 
               SuperscriptBox[
                TemplateBox[{
                  RowBox[{"v"}]},
                 "HeavisideThetaSeq"], "2"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"u", " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]], "+", 
             FractionBox[
              RowBox[{"2", " ", "u", " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "DiracDeltaSeq"], " ", 
               SuperscriptBox[
                TemplateBox[{
                  RowBox[{"u"}]},
                 "HeavisideThetaSeq"], "2"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "u"}], " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]], "+", 
             FractionBox[
              RowBox[{"2", " ", "u", " ", "v", " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "DiracDeltaSeq"], " ", 
               SuperscriptBox[
                TemplateBox[{
                  RowBox[{"u"}]},
                 "HeavisideThetaSeq"], "2"], " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "HeavisideThetaSeq"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "u"}], " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]], "-", 
             FractionBox[
              RowBox[{"2", " ", "u", " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "DiracDeltaSeq"], " ", 
               SuperscriptBox[
                TemplateBox[{
                  RowBox[{"u"}]},
                 "HeavisideThetaSeq"], "2"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"u", " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]], "-", 
             FractionBox[
              RowBox[{
               TemplateBox[{
                 RowBox[{"v"}]},
                "DiracDeltaSeq"], " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "HeavisideThetaSeq"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "u"}], " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]], "+", 
             FractionBox[
              RowBox[{
               TemplateBox[{
                 RowBox[{"v"}]},
                "DiracDeltaSeq"], " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "HeavisideThetaSeq"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"u", " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]]}]},
           {"0"}
          },
          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]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {
            RowBox[{
             RowBox[{"-", 
              FractionBox[
               RowBox[{"2", " ", "u", " ", 
                TemplateBox[{
                  RowBox[{"u"}]},
                 "DiracDeltaSeq"], " ", 
                TemplateBox[{
                  RowBox[{"u", ",", "v"}]},
                 "HeavisideThetaSeq"]}], 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"-", "u"}], " ", 
                   TemplateBox[{
                    RowBox[{"u"}]},
                    "HeavisideThetaSeq"]}], "+", 
                  RowBox[{"v", " ", 
                   TemplateBox[{
                    RowBox[{"v"}]},
                    "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]]}], "-", 
             FractionBox[
              RowBox[{"2", " ", "u", " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "DiracDeltaSeq"], " ", 
               TemplateBox[{
                 RowBox[{"u", ",", "v"}]},
                "HeavisideThetaSeq"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"u", " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]], "+", 
             FractionBox[
              RowBox[{
               SuperscriptBox["u", "2"], " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "DiracDeltaSeq"], " ", 
               SuperscriptBox[
                TemplateBox[{
                  RowBox[{"u"}]},
                 "HeavisideThetaSeq"], "2"], " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "HeavisideThetaSeq"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "u"}], " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]], "+", 
             FractionBox[
              RowBox[{
               SuperscriptBox["u", "2"], " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "DiracDeltaSeq"], " ", 
               SuperscriptBox[
                TemplateBox[{
                  RowBox[{"u"}]},
                 "HeavisideThetaSeq"], "2"], " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "HeavisideThetaSeq"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"u", " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]], "+", 
             FractionBox[
              RowBox[{
               SuperscriptBox["v", "2"], " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "DiracDeltaSeq"], " ", 
               SuperscriptBox[
                TemplateBox[{
                  RowBox[{"v"}]},
                 "HeavisideThetaSeq"], "3"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "u"}], " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]], "-", 
             FractionBox[
              RowBox[{
               SuperscriptBox["v", "2"], " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "DiracDeltaSeq"], " ", 
               SuperscriptBox[
                TemplateBox[{
                  RowBox[{"v"}]},
                 "HeavisideThetaSeq"], "3"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"u", " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]], "+", 
             FractionBox[
              RowBox[{"2", " ", "v", " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "DiracDeltaSeq"], " ", 
               SuperscriptBox[
                TemplateBox[{
                  RowBox[{"v"}]},
                 "HeavisideThetaSeq"], "2"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "u"}], " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]], "-", 
             FractionBox[
              RowBox[{"2", " ", "u", " ", "v", " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "DiracDeltaSeq"], " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "HeavisideThetaSeq"], " ", 
               SuperscriptBox[
                TemplateBox[{
                  RowBox[{"v"}]},
                 "HeavisideThetaSeq"], "2"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "u"}], " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]], "+", 
             FractionBox[
              RowBox[{
               TemplateBox[{
                 RowBox[{"u"}]},
                "DiracDeltaSeq"], " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "HeavisideThetaSeq"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "u"}], " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]], "+", 
             FractionBox[
              RowBox[{
               TemplateBox[{
                 RowBox[{"u"}]},
                "DiracDeltaSeq"], " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "HeavisideThetaSeq"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"u", " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]]}]},
           {
            RowBox[{
             FractionBox[
              RowBox[{"2", " ", "v", " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "DiracDeltaSeq"], " ", 
               TemplateBox[{
                 RowBox[{"u", ",", "v"}]},
                "HeavisideThetaSeq"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "u"}], " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]], "+", 
             FractionBox[
              RowBox[{
               SuperscriptBox["u", "2"], " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "DiracDeltaSeq"], " ", 
               SuperscriptBox[
                TemplateBox[{
                  RowBox[{"u"}]},
                 "HeavisideThetaSeq"], "3"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "u"}], " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]], "-", 
             FractionBox[
              RowBox[{
               SuperscriptBox["u", "2"], " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "DiracDeltaSeq"], " ", 
               SuperscriptBox[
                TemplateBox[{
                  RowBox[{"u"}]},
                 "HeavisideThetaSeq"], "3"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"u", " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]], "+", 
             FractionBox[
              RowBox[{
               SuperscriptBox["v", "2"], " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "DiracDeltaSeq"], " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "HeavisideThetaSeq"], " ", 
               SuperscriptBox[
                TemplateBox[{
                  RowBox[{"v"}]},
                 "HeavisideThetaSeq"], "2"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "u"}], " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]], "+", 
             FractionBox[
              RowBox[{
               SuperscriptBox["v", "2"], " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "DiracDeltaSeq"], " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "HeavisideThetaSeq"], " ", 
               SuperscriptBox[
                TemplateBox[{
                  RowBox[{"v"}]},
                 "HeavisideThetaSeq"], "2"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"u", " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]], "-", 
             FractionBox[
              RowBox[{"2", " ", "u", " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "DiracDeltaSeq"], " ", 
               SuperscriptBox[
                TemplateBox[{
                  RowBox[{"u"}]},
                 "HeavisideThetaSeq"], "2"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "u"}], " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]], "-", 
             FractionBox[
              RowBox[{"2", " ", "u", " ", "v", " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "DiracDeltaSeq"], " ", 
               SuperscriptBox[
                TemplateBox[{
                  RowBox[{"u"}]},
                 "HeavisideThetaSeq"], "2"], " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "HeavisideThetaSeq"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "u"}], " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]], "+", 
             FractionBox[
              RowBox[{"2", " ", "u", " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "DiracDeltaSeq"], " ", 
               SuperscriptBox[
                TemplateBox[{
                  RowBox[{"u"}]},
                 "HeavisideThetaSeq"], "2"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"u", " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]], "+", 
             FractionBox[
              RowBox[{
               TemplateBox[{
                 RowBox[{"v"}]},
                "DiracDeltaSeq"], " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "HeavisideThetaSeq"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "u"}], " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]], "-", 
             FractionBox[
              RowBox[{
               TemplateBox[{
                 RowBox[{"v"}]},
                "DiracDeltaSeq"], " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "HeavisideThetaSeq"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"u", " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]]}]},
           {"0"},
           {"0"}
          },
          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]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          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]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {
            RowBox[{
             RowBox[{"-", 
              FractionBox[
               RowBox[{"2", " ", "u", " ", 
                TemplateBox[{
                  RowBox[{"u"}]},
                 "DiracDeltaSeq"], " ", 
                TemplateBox[{
                  RowBox[{"u", ",", "v"}]},
                 "HeavisideThetaSeq"]}], 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"-", "u"}], " ", 
                   TemplateBox[{
                    RowBox[{"u"}]},
                    "HeavisideThetaSeq"]}], "+", 
                  RowBox[{"v", " ", 
                   TemplateBox[{
                    RowBox[{"v"}]},
                    "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]]}], "-", 
             FractionBox[
              RowBox[{"2", " ", "u", " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "DiracDeltaSeq"], " ", 
               TemplateBox[{
                 RowBox[{"u", ",", "v"}]},
                "HeavisideThetaSeq"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"u", " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]], "+", 
             FractionBox[
              RowBox[{
               SuperscriptBox["u", "2"], " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "DiracDeltaSeq"], " ", 
               SuperscriptBox[
                TemplateBox[{
                  RowBox[{"u"}]},
                 "HeavisideThetaSeq"], "2"], " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "HeavisideThetaSeq"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "u"}], " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]], "+", 
             FractionBox[
              RowBox[{
               SuperscriptBox["u", "2"], " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "DiracDeltaSeq"], " ", 
               SuperscriptBox[
                TemplateBox[{
                  RowBox[{"u"}]},
                 "HeavisideThetaSeq"], "2"], " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "HeavisideThetaSeq"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"u", " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]], "-", 
             FractionBox[
              RowBox[{
               SuperscriptBox["v", "2"], " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "DiracDeltaSeq"], " ", 
               SuperscriptBox[
                TemplateBox[{
                  RowBox[{"v"}]},
                 "HeavisideThetaSeq"], "3"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "u"}], " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]], "+", 
             FractionBox[
              RowBox[{
               SuperscriptBox["v", "2"], " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "DiracDeltaSeq"], " ", 
               SuperscriptBox[
                TemplateBox[{
                  RowBox[{"v"}]},
                 "HeavisideThetaSeq"], "3"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"u", " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]], "-", 
             FractionBox[
              RowBox[{"2", " ", "v", " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "DiracDeltaSeq"], " ", 
               SuperscriptBox[
                TemplateBox[{
                  RowBox[{"v"}]},
                 "HeavisideThetaSeq"], "2"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"u", " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]], "+", 
             FractionBox[
              RowBox[{"2", " ", "u", " ", "v", " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "DiracDeltaSeq"], " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "HeavisideThetaSeq"], " ", 
               SuperscriptBox[
                TemplateBox[{
                  RowBox[{"v"}]},
                 "HeavisideThetaSeq"], "2"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"u", " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]], "+", 
             FractionBox[
              RowBox[{
               TemplateBox[{
                 RowBox[{"u"}]},
                "DiracDeltaSeq"], " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "HeavisideThetaSeq"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "u"}], " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]], "+", 
             FractionBox[
              RowBox[{
               TemplateBox[{
                 RowBox[{"u"}]},
                "DiracDeltaSeq"], " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "HeavisideThetaSeq"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"u", " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]]}]}
          },
          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]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {
            RowBox[{
             RowBox[{"-", 
              FractionBox[
               RowBox[{"2", " ", "v", " ", 
                TemplateBox[{
                  RowBox[{"v"}]},
                 "DiracDeltaSeq"], " ", 
                TemplateBox[{
                  RowBox[{"u", ",", "v"}]},
                 "HeavisideThetaSeq"]}], 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"u", " ", 
                   TemplateBox[{
                    RowBox[{"u"}]},
                    "HeavisideThetaSeq"]}], "+", 
                  RowBox[{"v", " ", 
                   TemplateBox[{
                    RowBox[{"v"}]},
                    "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]]}], "-", 
             FractionBox[
              RowBox[{
               SuperscriptBox["u", "2"], " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "DiracDeltaSeq"], " ", 
               SuperscriptBox[
                TemplateBox[{
                  RowBox[{"u"}]},
                 "HeavisideThetaSeq"], "3"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "u"}], " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]], "+", 
             FractionBox[
              RowBox[{
               SuperscriptBox["u", "2"], " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "DiracDeltaSeq"], " ", 
               SuperscriptBox[
                TemplateBox[{
                  RowBox[{"u"}]},
                 "HeavisideThetaSeq"], "3"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"u", " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]], "+", 
             FractionBox[
              RowBox[{
               SuperscriptBox["v", "2"], " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "DiracDeltaSeq"], " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "HeavisideThetaSeq"], " ", 
               SuperscriptBox[
                TemplateBox[{
                  RowBox[{"v"}]},
                 "HeavisideThetaSeq"], "2"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "u"}], " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]], "+", 
             FractionBox[
              RowBox[{
               SuperscriptBox["v", "2"], " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "DiracDeltaSeq"], " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "HeavisideThetaSeq"], " ", 
               SuperscriptBox[
                TemplateBox[{
                  RowBox[{"v"}]},
                 "HeavisideThetaSeq"], "2"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"u", " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]], "+", 
             FractionBox[
              RowBox[{"2", " ", "u", " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "DiracDeltaSeq"], " ", 
               SuperscriptBox[
                TemplateBox[{
                  RowBox[{"u"}]},
                 "HeavisideThetaSeq"], "2"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "u"}], " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]], "-", 
             FractionBox[
              RowBox[{"2", " ", "u", " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "DiracDeltaSeq"], " ", 
               SuperscriptBox[
                TemplateBox[{
                  RowBox[{"u"}]},
                 "HeavisideThetaSeq"], "2"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"u", " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]], "+", 
             FractionBox[
              RowBox[{"2", " ", "u", " ", "v", " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "DiracDeltaSeq"], " ", 
               SuperscriptBox[
                TemplateBox[{
                  RowBox[{"u"}]},
                 "HeavisideThetaSeq"], "2"], " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "HeavisideThetaSeq"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"u", " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]], "-", 
             FractionBox[
              RowBox[{
               TemplateBox[{
                 RowBox[{"v"}]},
                "DiracDeltaSeq"], " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "HeavisideThetaSeq"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "u"}], " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]], "+", 
             FractionBox[
              RowBox[{
               TemplateBox[{
                 RowBox[{"v"}]},
                "DiracDeltaSeq"], " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "HeavisideThetaSeq"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"u", " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]]}]}
          },
          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]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          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]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {
            RowBox[{
             FractionBox[
              RowBox[{"2", " ", "u", " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "DiracDeltaSeq"], " ", 
               TemplateBox[{
                 RowBox[{"u", ",", "v"}]},
                "HeavisideThetaSeq"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "u"}], " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]], "+", 
             FractionBox[
              RowBox[{"2", " ", "u", " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "DiracDeltaSeq"], " ", 
               TemplateBox[{
                 RowBox[{"u", ",", "v"}]},
                "HeavisideThetaSeq"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"u", " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]], "-", 
             FractionBox[
              RowBox[{
               SuperscriptBox["u", "2"], " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "DiracDeltaSeq"], " ", 
               SuperscriptBox[
                TemplateBox[{
                  RowBox[{"u"}]},
                 "HeavisideThetaSeq"], "2"], " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "HeavisideThetaSeq"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "u"}], " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]], "-", 
             FractionBox[
              RowBox[{
               SuperscriptBox["u", "2"], " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "DiracDeltaSeq"], " ", 
               SuperscriptBox[
                TemplateBox[{
                  RowBox[{"u"}]},
                 "HeavisideThetaSeq"], "2"], " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "HeavisideThetaSeq"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"u", " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]], "+", 
             FractionBox[
              RowBox[{
               SuperscriptBox["v", "2"], " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "DiracDeltaSeq"], " ", 
               SuperscriptBox[
                TemplateBox[{
                  RowBox[{"v"}]},
                 "HeavisideThetaSeq"], "3"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "u"}], " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]], "-", 
             FractionBox[
              RowBox[{
               SuperscriptBox["v", "2"], " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "DiracDeltaSeq"], " ", 
               SuperscriptBox[
                TemplateBox[{
                  RowBox[{"v"}]},
                 "HeavisideThetaSeq"], "3"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"u", " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]], "+", 
             FractionBox[
              RowBox[{"2", " ", "v", " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "DiracDeltaSeq"], " ", 
               SuperscriptBox[
                TemplateBox[{
                  RowBox[{"v"}]},
                 "HeavisideThetaSeq"], "2"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"u", " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]], "-", 
             FractionBox[
              RowBox[{"2", " ", "u", " ", "v", " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "DiracDeltaSeq"], " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "HeavisideThetaSeq"], " ", 
               SuperscriptBox[
                TemplateBox[{
                  RowBox[{"v"}]},
                 "HeavisideThetaSeq"], "2"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"u", " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]], "-", 
             FractionBox[
              RowBox[{
               TemplateBox[{
                 RowBox[{"u"}]},
                "DiracDeltaSeq"], " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "HeavisideThetaSeq"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "u"}], " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]], "-", 
             FractionBox[
              RowBox[{
               TemplateBox[{
                 RowBox[{"u"}]},
                "DiracDeltaSeq"], " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "HeavisideThetaSeq"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"u", " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]]}]},
           {
            RowBox[{
             FractionBox[
              RowBox[{"2", " ", "v", " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "DiracDeltaSeq"], " ", 
               TemplateBox[{
                 RowBox[{"u", ",", "v"}]},
                "HeavisideThetaSeq"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"u", " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]], "+", 
             FractionBox[
              RowBox[{
               SuperscriptBox["u", "2"], " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "DiracDeltaSeq"], " ", 
               SuperscriptBox[
                TemplateBox[{
                  RowBox[{"u"}]},
                 "HeavisideThetaSeq"], "3"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "u"}], " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]], "-", 
             FractionBox[
              RowBox[{
               SuperscriptBox["u", "2"], " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "DiracDeltaSeq"], " ", 
               SuperscriptBox[
                TemplateBox[{
                  RowBox[{"u"}]},
                 "HeavisideThetaSeq"], "3"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"u", " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]], "-", 
             FractionBox[
              RowBox[{
               SuperscriptBox["v", "2"], " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "DiracDeltaSeq"], " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "HeavisideThetaSeq"], " ", 
               SuperscriptBox[
                TemplateBox[{
                  RowBox[{"v"}]},
                 "HeavisideThetaSeq"], "2"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "u"}], " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]], "-", 
             FractionBox[
              RowBox[{
               SuperscriptBox["v", "2"], " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "DiracDeltaSeq"], " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "HeavisideThetaSeq"], " ", 
               SuperscriptBox[
                TemplateBox[{
                  RowBox[{"v"}]},
                 "HeavisideThetaSeq"], "2"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"u", " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]], "-", 
             FractionBox[
              RowBox[{"2", " ", "u", " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "DiracDeltaSeq"], " ", 
               SuperscriptBox[
                TemplateBox[{
                  RowBox[{"u"}]},
                 "HeavisideThetaSeq"], "2"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "u"}], " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]], "+", 
             FractionBox[
              RowBox[{"2", " ", "u", " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "DiracDeltaSeq"], " ", 
               SuperscriptBox[
                TemplateBox[{
                  RowBox[{"u"}]},
                 "HeavisideThetaSeq"], "2"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"u", " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]], "-", 
             FractionBox[
              RowBox[{"2", " ", "u", " ", "v", " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "DiracDeltaSeq"], " ", 
               SuperscriptBox[
                TemplateBox[{
                  RowBox[{"u"}]},
                 "HeavisideThetaSeq"], "2"], " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "HeavisideThetaSeq"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"u", " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]], "+", 
             FractionBox[
              RowBox[{
               TemplateBox[{
                 RowBox[{"v"}]},
                "DiracDeltaSeq"], " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "HeavisideThetaSeq"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "u"}], " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "+", "1"}], ")"}], "2"]], "-", 
             FractionBox[
              RowBox[{
               TemplateBox[{
                 RowBox[{"v"}]},
                "DiracDeltaSeq"], " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "HeavisideThetaSeq"]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"u", " ", 
                  TemplateBox[{
                    RowBox[{"u"}]},
                   "HeavisideThetaSeq"]}], "+", 
                 RowBox[{"v", " ", 
                  TemplateBox[{
                    RowBox[{"v"}]},
                   "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]]}]},
           {"0"},
           {"0"}
          },
          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]", ")"}]}
     },
     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$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.824033893248905*^9, 3.825289078369437*^9},
 CellLabel->
  "Out[132]//TraditionalForm=",ExpressionUUID->"f0ccd80f-eee3-4e09-8792-\
3c406cbb2a28"]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"tensorList", "[", 
      RowBox[{"[", "3", "]"}], "]"}], "[", 
     RowBox[{"y", ",", 
      RowBox[{"-", "v"}], ",", 
      RowBox[{"-", "y"}], ",", 
      RowBox[{"-", "v"}]}], "]"}], " ", "/.", " ", 
    RowBox[{
     RowBox[{"HeavisideTheta", "[", "v", "]"}], "\[Rule]", " ", "0"}]}], " ", 
   "//", " ", "Expand"}], "  ", "//", " ", "Together", "  "}]], "Input",
 CellChangeTimes->{{3.824033940231608*^9, 3.824033960360319*^9}, {
  3.8240341989637623`*^9, 3.824034202138932*^9}, {3.824034359068798*^9, 
  3.824034362161578*^9}, {3.824034429195747*^9, 3.824034449859684*^9}},
 CellLabel->
  "In[161]:=",ExpressionUUID->"397e6b52-254d-46cf-aa1b-294ed07fa8d0"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"DiracDelta", "[", "v", "]"}], 
   RowBox[{
    RowBox[{"-", "1"}], "+", 
    RowBox[{"u", " ", 
     RowBox[{"HeavisideTheta", "[", "u", "]"}]}]}]]}]], "Output",
 CellChangeTimes->{{3.824033935925622*^9, 3.824033961786331*^9}, 
   3.824034202394734*^9, 3.824034362442436*^9, {3.824034438499598*^9, 
   3.8240344503657827`*^9}},
 CellLabel->
  "Out[161]=",ExpressionUUID->"611abb35-c74f-458b-9ff9-21236c56e031"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"-", "1"}], ")"}], "*", 
     RowBox[{
      RowBox[{"tensorList", "[", 
       RowBox[{"[", "3", "]"}], "]"}], "[", 
      RowBox[{"x", ",", 
       RowBox[{"-", "v"}], ",", 
       RowBox[{"-", "x"}], ",", 
       RowBox[{"-", "v"}]}], "]"}]}], " ", "/.", " ", 
    RowBox[{
     RowBox[{"HeavisideTheta", "[", "v", "]"}], "\[Rule]", " ", "0"}]}], " ", 
   "//", " ", "Expand"}], "  ", "//", " ", "Together", " "}]], "Input",
 CellChangeTimes->{{3.824034315330537*^9, 3.824034317593812*^9}, {
   3.8240343522775383`*^9, 3.824034355354266*^9}, 3.824034472354624*^9, 
   3.824034550430562*^9},
 CellLabel->
  "In[166]:=",ExpressionUUID->"eed87aa8-e689-4ad0-b931-fe404e5992a4"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"DiracDelta", "[", "v", "]"}], 
   RowBox[{
    RowBox[{"-", "1"}], "+", 
    RowBox[{"u", " ", 
     RowBox[{"HeavisideTheta", "[", "u", "]"}]}]}]]}]], "Output",
 CellChangeTimes->{3.824034318123076*^9, 3.8240343556166983`*^9, 
  3.824034473063105*^9, 3.8240345526945963`*^9},
 CellLabel->
  "Out[166]=",ExpressionUUID->"0e5f8c9d-40aa-42f1-b042-d6b2ac5f5a75"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"tensorList", "[", 
      RowBox[{"[", "8", "]"}], "]"}], "[", 
     RowBox[{"y", ",", 
      RowBox[{"-", "v"}], ",", 
      RowBox[{"-", "y"}], ",", 
      RowBox[{"-", "v"}]}], "]"}], " ", "/.", " ", 
    RowBox[{
     RowBox[{"HeavisideTheta", "[", "v", "]"}], "\[Rule]", " ", "0"}]}], " ", 
   "//", " ", "Expand"}], "  ", "//", " ", "Together", "  "}]], "Input",
 CellChangeTimes->{{3.8240345055188227`*^9, 3.82403450590269*^9}},
 CellLabel->
  "In[163]:=",ExpressionUUID->"388d741b-16b9-4a02-b2f6-1bbb7865defe"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"DiracDelta", "[", "v", "]"}], 
   RowBox[{
    RowBox[{"-", "1"}], "+", 
    RowBox[{"u", " ", 
     RowBox[{"HeavisideTheta", "[", "u", "]"}]}]}]]}]], "Output",
 CellChangeTimes->{3.824034506404619*^9},
 CellLabel->
  "Out[163]=",ExpressionUUID->"ce0b9507-fb0e-42e8-9ecc-ebedfdce9831"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"-", "1"}], ")"}], "*", 
     RowBox[{
      RowBox[{"tensorList", "[", 
       RowBox[{"[", "8", "]"}], "]"}], "[", 
      RowBox[{"x", ",", 
       RowBox[{"-", "v"}], ",", 
       RowBox[{"-", "x"}], ",", 
       RowBox[{"-", "v"}]}], "]"}]}], " ", "/.", " ", 
    RowBox[{
     RowBox[{"HeavisideTheta", "[", "v", "]"}], "\[Rule]", " ", "0"}]}], " ", 
   "//", " ", "Expand"}], "  ", "//", " ", "Together", " "}]], "Input",
 CellChangeTimes->{{3.824034518567664*^9, 3.824034556103175*^9}},
 CellLabel->
  "In[167]:=",ExpressionUUID->"c49c84b8-ab1d-452e-afc8-efe303e3da7b"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"DiracDelta", "[", "v", "]"}], 
   RowBox[{
    RowBox[{"-", "1"}], "+", 
    RowBox[{"u", " ", 
     RowBox[{"HeavisideTheta", "[", "u", "]"}]}]}]]}]], "Output",
 CellChangeTimes->{{3.824034518952202*^9, 3.82403455679399*^9}},
 CellLabel->
  "Out[167]=",ExpressionUUID->"c89a68bf-c299-4101-b974-841f53d3ab33"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"tensorList", "[", 
      RowBox[{"[", "3", "]"}], "]"}], "[", 
     RowBox[{"x", ",", 
      RowBox[{"-", "u"}], ",", 
      RowBox[{"-", "x"}], ",", 
      RowBox[{"-", "u"}]}], "]"}], " ", "/.", " ", 
    RowBox[{
     RowBox[{"HeavisideTheta", "[", "u", "]"}], "\[Rule]", " ", "0"}]}], " ", 
   "//", " ", "Expand"}], "  ", "//", " ", "Together", "  "}]], "Input",
 CellChangeTimes->{{3.824034581127359*^9, 3.824034616410364*^9}},
 CellLabel->
  "In[170]:=",ExpressionUUID->"80b338e7-61f3-4d5a-8d1b-9cfc18dea336"],

Cell[BoxData[
 FractionBox[
  RowBox[{"DiracDelta", "[", "u", "]"}], 
  RowBox[{"1", "+", 
   RowBox[{"v", " ", 
    RowBox[{"HeavisideTheta", "[", "v", "]"}]}]}]]], "Output",
 CellChangeTimes->{{3.8240345879483967`*^9, 3.824034616888576*^9}},
 CellLabel->
  "Out[170]=",ExpressionUUID->"42e433e4-bad0-400c-951c-0593817b8636"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"tensorList", "[", 
      RowBox[{"[", "3", "]"}], "]"}], "[", 
     RowBox[{"y", ",", 
      RowBox[{"-", "u"}], ",", 
      RowBox[{"-", "y"}], ",", 
      RowBox[{"-", "u"}]}], "]"}], " ", "/.", " ", 
    RowBox[{
     RowBox[{"HeavisideTheta", "[", "u", "]"}], "\[Rule]", " ", "0"}]}], " ", 
   "//", " ", "Expand"}], "  ", "//", " ", "Together", "  "}]], "Input",
 CellChangeTimes->{{3.82403463727851*^9, 3.824034677205381*^9}},
 CellLabel->
  "In[173]:=",ExpressionUUID->"4b80514f-ef39-48b8-a285-c995a1844f10"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"DiracDelta", "[", "u", "]"}], 
   RowBox[{
    RowBox[{"-", "1"}], "+", 
    RowBox[{"v", " ", 
     RowBox[{"HeavisideTheta", "[", "v", "]"}]}]}]]}]], "Output",
 CellChangeTimes->{{3.8240346410200233`*^9, 3.8240346777591753`*^9}},
 CellLabel->
  "Out[173]=",ExpressionUUID->"abe97a3d-2034-4f28-a81e-3d864f4dcba9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "4", "]"}], "]"}], "[", 
    RowBox[{
     RowBox[{"-", "u"}], ",", 
     RowBox[{"-", "u"}]}], "]"}], "/.", " ", 
   RowBox[{
    RowBox[{"HeavisideTheta", "[", "u", "]"}], "\[Rule]", " ", "0"}]}], " ", 
  " ", "//", " ", "Together", " "}]], "Input",
 CellChangeTimes->{{3.82403472368673*^9, 3.8240347533878317`*^9}},
 CellLabel->
  "In[177]:=",ExpressionUUID->"8ee8eb8a-f400-4033-a2e2-f5db28ad29f2"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"2", " ", 
    RowBox[{"DiracDelta", "[", "u", "]"}]}], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      RowBox[{"v", " ", 
       RowBox[{"HeavisideTheta", "[", "v", "]"}]}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"v", " ", 
       RowBox[{"HeavisideTheta", "[", "v", "]"}]}]}], ")"}]}]]}]], "Output",
 CellChangeTimes->{{3.824034718619982*^9, 3.824034754072732*^9}},
 CellLabel->
  "Out[177]=",ExpressionUUID->"5e789a40-6752-431c-a051-e8b164b4af06"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "8", "]"}], "]"}], "[", 
    RowBox[{"y", ",", 
     RowBox[{"-", "u"}], ",", 
     RowBox[{"-", "y"}], ",", 
     RowBox[{"-", "u"}]}], "]"}], " ", "//", " ", "Expand"}], "  ", "//", " ",
   "Together", "  "}]], "Input",
 CellChangeTimes->{{3.824034999133669*^9, 3.824035006350832*^9}},
 CellLabel->
  "In[179]:=",ExpressionUUID->"648e8675-5172-412d-831d-49efa1549d85"],

Cell[BoxData[
 FractionBox[
  RowBox[{"v", " ", 
   RowBox[{"DiracDelta", "[", "u", "]"}], " ", 
   RowBox[{"HeavisideTheta", "[", "v", "]"}]}], 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", 
     RowBox[{"u", " ", 
      RowBox[{"HeavisideTheta", "[", "u", "]"}]}], "-", 
     RowBox[{"v", " ", 
      RowBox[{"HeavisideTheta", "[", "v", "]"}]}]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", 
     RowBox[{"u", " ", 
      RowBox[{"HeavisideTheta", "[", "u", "]"}]}], "+", 
     RowBox[{"v", " ", 
      RowBox[{"HeavisideTheta", "[", "v", "]"}]}]}], ")"}]}]]], "Output",
 CellChangeTimes->{{3.824035002842916*^9, 3.824035006715159*^9}},
 CellLabel->
  "Out[179]=",ExpressionUUID->"f5f822bb-bf7c-4c7c-854e-41738e2c15cf"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Flatten", "[", 
    RowBox[{"Solve", "[", 
     RowBox[{"eq2b", " ", ",", " ", "p"}], " ", "]"}], "]"}], " ", "/.", " ", 
   "eq2a"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Flatten", "[", 
   RowBox[{"Solve", "[", 
    RowBox[{"eq2b", " ", ",", " ", "q"}], "]"}], "]"}], " ", "/.", " ", 
  "eq2a", " "}]}], "Input",
 CellChangeTimes->{{3.82403405081211*^9, 3.824034093587407*^9}},
 CellLabel->
  "In[154]:=",ExpressionUUID->"dd71b57b-7b96-42f7-8ce2-3409770cdc69"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"u", " ", 
    RowBox[{"HeavisideTheta", "[", "u", "]"}]}], "\[Rule]", 
   RowBox[{"1", "-", 
    RowBox[{"v", " ", 
     RowBox[{"HeavisideTheta", "[", "v", "]"}]}]}]}], "}"}]], "Output",
 CellChangeTimes->{3.824034111812593*^9},
 CellLabel->
  "Out[154]=",ExpressionUUID->"01c62d80-a066-4ba6-8c4e-6e2d2bcd44f2"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"v", " ", 
    RowBox[{"HeavisideTheta", "[", "v", "]"}]}], "\[Rule]", 
   RowBox[{"1", "-", 
    RowBox[{"u", " ", 
     RowBox[{"HeavisideTheta", "[", "u", "]"}]}]}]}], "}"}]], "Output",
 CellChangeTimes->{3.8240341118157682`*^9},
 CellLabel->
  "Out[155]=",ExpressionUUID->"2117a886-b2cf-4fad-bdac-960abed6ba6a"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Construction of null tetrad and check of orthogonality and completeness \
relations \
\>", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.824026535258623*^9, 3.824026560337151*^9}, {
   3.825289108195039*^9, 3.825289113639735*^9}, 
   3.8252891630687428`*^9},ExpressionUUID->"d5b07f78-e948-4e67-a54b-\
4d84b8388bc0"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "\[ScriptL]", "]"}], "\[IndentingNewLine]", 
 RowBox[{"\[ScriptL]", "=", "\[IndentingNewLine]", 
  RowBox[{"{", 
   RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}], " "}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.820933371686145*^9, 3.82093337715728*^9}, 
   3.8209374103413973`*^9, 3.820944472322248*^9, {3.823967911447504*^9, 
   3.823967916197978*^9}, {3.823968540109717*^9, 3.8239685564285727`*^9}, 
   3.823968587580859*^9, 3.82396866941901*^9, {3.8239711493371162`*^9, 
   3.82397121894984*^9}, {3.8239722022844763`*^9, 3.823972206738372*^9}, 
   3.824026530427024*^9, {3.8240353308420057`*^9, 3.824035335448122*^9}},
 CellLabel->
  "In[180]:=",ExpressionUUID->"c063e393-5e7c-4fb8-ac68-05f851c35f67"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.820933237654937*^9, 3.820933379685409*^9, 3.820933448095758*^9, 
   3.820937410341577*^9, 3.820944472322352*^9, {3.823968034002281*^9, 
   3.823968037684132*^9}, {3.82396855701134*^9, 3.823968592795348*^9}, 
   3.823971296238562*^9, 3.8239714273052597`*^9, 3.823971944995579*^9, 
   3.8239722192511263`*^9, 3.824025690628471*^9, 3.824026530427134*^9, 
   3.824035335772038*^9},
 CellLabel->
  "Out[181]=",ExpressionUUID->"82ccfac6-3dce-4453-8107-935012563e91"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "\[ScriptN]", "]"}], "\[IndentingNewLine]", 
 RowBox[{"\[ScriptN]", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"{", 
   RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}], " "}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.820933298406392*^9, 3.820933313508857*^9}, 
   3.820937410341757*^9, 3.820944472322452*^9, {3.823967926390813*^9, 
   3.823967938078244*^9}, {3.82397118184247*^9, 3.823971221724759*^9}, {
   3.8239722094274054`*^9, 3.823972211596774*^9}, 3.8240265304272738`*^9, {
   3.8240353393949957`*^9, 3.8240353422079573`*^9}},
 CellLabel->
  "In[182]:=",ExpressionUUID->"35cb0f0b-2e10-473c-888a-f0a4683609c6"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.820933313826449*^9, 3.820933381335147*^9, 3.820933448122315*^9, 
   3.820937410341963*^9, 3.820944472322535*^9, 3.823967938446355*^9, 
   3.82396803771756*^9, {3.82396856379178*^9, 3.823968592827444*^9}, 
   3.823971296297195*^9, 3.8239714273451967`*^9, 3.823971945038321*^9, 
   3.823972219287876*^9, 3.8240256906564217`*^9, 3.824026530427362*^9, 
   3.8240353425166283`*^9},
 CellLabel->
  "Out[183]=",ExpressionUUID->"8aa31950-7915-4abe-a2f4-c55b39085f0b"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "\[ScriptM]", "]"}], "\[IndentingNewLine]", 
 RowBox[{"\[ScriptM]", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     FractionBox["1", 
      SqrtBox["2"]], ")"}], 
    RowBox[{"{", 
     RowBox[{"0", ",", "0", ",", " ", 
      RowBox[{"(", 
       RowBox[{"1", "-", "p", "+", "q"}], ")"}], " ", ",", " ", 
      RowBox[{"\[ImaginaryI]", " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", "p", "-", " ", "q"}], ")"}]}]}], " ", "}"}]}], " ", 
   "/.", " ", "eq2a", " "}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.820933317854281*^9, 3.8209333396620893`*^9}, 
   3.820937410342205*^9, 3.820944472322617*^9, {3.8239679452553387`*^9, 
   3.823967956845615*^9}, {3.8239712238335657`*^9, 3.8239712784335203`*^9}, 
   3.824026530427495*^9, {3.824035347985664*^9, 3.824035386777122*^9}, {
   3.8240354667714367`*^9, 3.8240354676353607`*^9}},
 CellLabel->
  "In[184]:=",ExpressionUUID->"d35d3330-4fef-45e2-ba3f-d2828d6e2c60"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0", ",", "0", ",", 
   FractionBox[
    RowBox[{"1", "-", 
     RowBox[{"u", " ", 
      RowBox[{"HeavisideTheta", "[", "u", "]"}]}], "+", 
     RowBox[{"v", " ", 
      RowBox[{"HeavisideTheta", "[", "v", "]"}]}]}], 
    SqrtBox["2"]], ",", 
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       RowBox[{"u", " ", 
        RowBox[{"HeavisideTheta", "[", "u", "]"}]}], "-", 
       RowBox[{"v", " ", 
        RowBox[{"HeavisideTheta", "[", "v", "]"}]}]}], ")"}]}], 
    SqrtBox["2"]]}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.820933339966406*^9, 3.8209333835387917`*^9, 3.8209334481343927`*^9, 
   3.82093741034233*^9, 3.820944472322708*^9, 3.823967957571436*^9, 
   3.823968037726838*^9, {3.823968563805141*^9, 3.823968592838423*^9}, 
   3.8239712963071613`*^9, 3.823971427358354*^9, 3.8239719450513573`*^9, 
   3.823972219299691*^9, 3.824025690670985*^9, 3.824026530427579*^9, 
   3.824035468848744*^9},
 CellLabel->
  "Out[185]=",ExpressionUUID->"1a22a944-86f0-4c88-8d2d-e44cd277f2a9"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "\[ScriptM]bar", "]"}], "\[IndentingNewLine]", 
 RowBox[{"\[ScriptM]bar", " ", "=", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     FractionBox["1", 
      SqrtBox["2"]], ")"}], 
    RowBox[{"{", 
     RowBox[{"0", ",", "0", ",", " ", 
      RowBox[{"(", 
       RowBox[{"1", "-", "p", "+", "q"}], ")"}], " ", ",", " ", 
      RowBox[{
       RowBox[{"-", "\[ImaginaryI]"}], " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", "p", "-", " ", "q"}], ")"}]}]}], " ", "}"}]}], " ", 
   "/.", " ", "eq2a", " "}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.820933342941945*^9, 3.8209333673030777`*^9}, 
   3.820937410342538*^9, 3.820944472322826*^9, {3.8239679651277733`*^9, 
   3.823967969398988*^9}, {3.823971226954356*^9, 3.823971228365078*^9}, {
   3.823971286537764*^9, 3.8239712869023438`*^9}, 3.823971416100823*^9, 
   3.82402653042771*^9, {3.8240354748512373`*^9, 3.824035480271574*^9}, 
   3.824035937687481*^9},
 CellLabel->
  "In[279]:=",ExpressionUUID->"d728cbf2-140d-4406-9688-ba56c88a55a1"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0", ",", "0", ",", 
   FractionBox[
    RowBox[{"1", "-", 
     RowBox[{"u", " ", 
      RowBox[{"HeavisideTheta", "[", "u", "]"}]}], "+", 
     RowBox[{"v", " ", 
      RowBox[{"HeavisideTheta", "[", "v", "]"}]}]}], 
    SqrtBox["2"]], ",", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{"\[ImaginaryI]", " ", 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"u", " ", 
         RowBox[{"HeavisideTheta", "[", "u", "]"}]}], "-", 
        RowBox[{"v", " ", 
         RowBox[{"HeavisideTheta", "[", "v", "]"}]}]}], ")"}]}], 
     SqrtBox["2"]]}]}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.820933367920988*^9, 3.820933385725149*^9}, 
   3.82093344816428*^9, 3.820937410342681*^9, 3.820944472322927*^9, 
   3.823967969891004*^9, 3.823968037745193*^9, {3.823968563832972*^9, 
   3.82396859285539*^9}, 3.8239712963420553`*^9, 3.8239714273818274`*^9, 
   3.823971945073577*^9, 3.823972219319309*^9, 3.824025690703884*^9, 
   3.824026530427799*^9, 3.8240354832484627`*^9, 3.824035938334128*^9},
 CellLabel->
  "Out[280]=",ExpressionUUID->"08f52424-d177-4bc1-9da4-acb034be50a5"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Always", " ", "check", " ", "if", " ", "indices", " ", "needed", " ", 
    "are", " ", "up", " ", "or", " ", "down", " ", "and", " ", "they", " ", 
    "are", " ", "DOWN"}], " ", "*)"}], " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"l", " ", "=", " ", 
    RowBox[{"ToTensor", "[", " ", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"\"\<NewTensor\>\"", " ", ",", " ", "\"\<l\>\""}], "}"}], " ", 
      ",", " ", 
      RowBox[{"tensorList", "[", 
       RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", "\[ScriptL]", " ", ",", 
      " ", 
      RowBox[{"{", 
       RowBox[{"-", "\[Mu]"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", 
   RowBox[{"n", " ", "=", " ", 
    RowBox[{"ToTensor", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"\"\<NewTensor\>\"", " ", ",", " ", "\"\<n\>\""}], " ", "}"}], 
      " ", ",", " ", 
      RowBox[{"tensorList", "[", 
       RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", "\[ScriptN]", " ", ",", 
      " ", 
      RowBox[{"{", 
       RowBox[{"-", "\[Mu]"}], "}"}]}], " ", "]"}]}], " ", 
   "\[IndentingNewLine]", 
   RowBox[{"m", " ", "=", " ", 
    RowBox[{"ToTensor", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"\"\<NewTensor\>\"", " ", ",", " ", "\"\<m\>\""}], " ", "}"}], 
      " ", ",", " ", 
      RowBox[{"tensorList", "[", 
       RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", "\[ScriptM]", " ", ",", 
      " ", 
      RowBox[{"{", 
       RowBox[{"-", "\[Mu]"}], "}"}]}], " ", "]"}]}], " ", 
   "\[IndentingNewLine]", 
   RowBox[{"mbar", " ", "=", " ", 
    RowBox[{"ToTensor", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"\"\<NewTensor\>\"", " ", ",", " ", "\"\<mbar\>\""}], " ", 
       "}"}], " ", ",", " ", 
      RowBox[{"tensorList", "[", 
       RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", "\[ScriptM]bar", " ", 
      ",", " ", 
      RowBox[{"{", 
       RowBox[{"-", "\[Mu]"}], "}"}]}], " ", "]"}], " "}]}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.820937410342936*^9, 3.8209444723230133`*^9, {3.8239679754881287`*^9, 
   3.823967977734702*^9}, {3.823971899436349*^9, 3.823971905674711*^9}, 
   3.824026530428026*^9},
 CellLabel->
  "In[281]:=",ExpressionUUID->"b6a1b2b6-3f91-4b45-a10e-3c156c67d31f"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["l", "\[Mu]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.8239712963555813`*^9, 3.8239714273946657`*^9, 
  3.823971908956462*^9, 3.823971945087471*^9, 3.8239722193328543`*^9, 
  3.8240256907190027`*^9, 3.824026530428124*^9, 3.824035488766316*^9, 
  3.824035941089459*^9},
 CellLabel->
  "Out[281]=",ExpressionUUID->"9ee6222b-3a13-469f-84dd-360056023dc7"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["n", "\[Mu]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.8239712963555813`*^9, 3.8239714273946657`*^9, 
  3.823971908956462*^9, 3.823971945087471*^9, 3.8239722193328543`*^9, 
  3.8240256907190027`*^9, 3.824026530428124*^9, 3.824035488766316*^9, 
  3.824035941094376*^9},
 CellLabel->
  "Out[282]=",ExpressionUUID->"4be4b556-1928-4172-8f58-e895ffb1bfec"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["m", "\[Mu]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.8239712963555813`*^9, 3.8239714273946657`*^9, 
  3.823971908956462*^9, 3.823971945087471*^9, 3.8239722193328543`*^9, 
  3.8240256907190027`*^9, 3.824026530428124*^9, 3.824035488766316*^9, 
  3.824035941097307*^9},
 CellLabel->
  "Out[283]=",ExpressionUUID->"e22df6e3-5eaa-421c-a503-8d4fb80f7c35"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["mbar", "\[Mu]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.8239712963555813`*^9, 3.8239714273946657`*^9, 
  3.823971908956462*^9, 3.823971945087471*^9, 3.8239722193328543`*^9, 
  3.8240256907190027`*^9, 3.824026530428124*^9, 3.824035488766316*^9, 
  3.8240359410998173`*^9},
 CellLabel->
  "Out[284]=",ExpressionUUID->"f6d7ee91-88ba-4218-8691-9da8902e9de5"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"TensorValues", "[", 
      RowBox[{"ContractIndices", "[", 
       RowBox[{
        RowBox[{"l", "[", 
         RowBox[{"-", "\[Mu]"}], "]"}], 
        RowBox[{"l", "[", "\[Mu]", "]"}]}], "]"}], "]"}], " ", "\[Equal]", 
     " ", "0"}], "  ", "//", " ", "Expand"}], " ", "//", " ", "Simplify"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"TensorValues", "[", 
      RowBox[{"ContractIndices", "[", 
       RowBox[{
        RowBox[{"n", "[", 
         RowBox[{"-", "\[Mu]"}], "]"}], 
        RowBox[{"n", "[", "\[Mu]", "]"}]}], "]"}], " ", "]"}], "\[Equal]", 
     " ", "0"}], "   ", "//", " ", "Expand"}], " ", "//", " ", "Simplify"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"TensorValues", "[", 
      RowBox[{"ContractIndices", "[", 
       RowBox[{
        RowBox[{"m", "[", 
         RowBox[{"-", "\[Mu]"}], "]"}], 
        RowBox[{"m", "[", "\[Mu]", "]"}]}], "]"}], "]"}], " ", "\[Equal]", 
     " ", "0"}], "   ", "//", " ", "Expand"}], " ", "//", " ", 
   "FullSimplify"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"TensorValues", "[", 
      RowBox[{"ContractIndices", "[", 
       RowBox[{
        RowBox[{"mbar", "[", 
         RowBox[{"-", "\[Mu]"}], "]"}], 
        RowBox[{"mbar", "[", "\[Mu]", "]"}]}], "]"}], "]"}], " ", "\[Equal]", 
     " ", "0"}], "  ", "//", " ", "Expand"}], " ", "//", " ", 
   "FullSimplify"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"TensorValues", "[", 
      RowBox[{"ContractIndices", "[", 
       RowBox[{
        RowBox[{"l", "[", 
         RowBox[{"-", "\[Mu]"}], "]"}], 
        RowBox[{"n", "[", "\[Mu]", "]"}]}], "]"}], "]"}], " ", "\[Equal]", 
     RowBox[{"-", " ", "1"}]}], "//", " ", "Expand"}], " ", "//", " ", 
   "FullSimplify"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"TensorValues", "[", 
      RowBox[{"ContractIndices", "[", 
       RowBox[{
        RowBox[{"l", "[", "\[Mu]", "]"}], 
        RowBox[{"n", "[", 
         RowBox[{"-", "\[Mu]"}], "]"}]}], "]"}], "]"}], " ", "\[Equal]", " ", 
     
     RowBox[{"-", "1"}]}], "  ", "//", " ", "Expand"}], " ", "//", " ", 
   "FullSimplify"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"TensorValues", "[", 
      RowBox[{"ContractIndices", "[", 
       RowBox[{
        RowBox[{"m", "[", 
         RowBox[{"-", "\[Mu]"}], "]"}], 
        RowBox[{"mbar", "[", "\[Mu]", "]"}]}], "]"}], "]"}], " ", "\[Equal]", 
     "  ", "1"}], " ", "//", " ", "Expand"}], " ", "//", " ", 
   "FullSimplify"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"TensorValues", "[", 
      RowBox[{"ContractIndices", "[", 
       RowBox[{
        RowBox[{"m", "[", "\[Mu]", "]"}], 
        RowBox[{"mbar", "[", 
         RowBox[{"-", "\[Mu]"}], "]"}]}], "]"}], "]"}], " ", "\[Equal]", "  ",
      "1"}], " ", "//", " ", "Expand"}], " ", "//", " ", "FullSimplify"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", "completenessDownIndices", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"completenessDownIndices", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"MergeTensors", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       RowBox[{"l", "[", 
        RowBox[{"-", "\[Mu]"}], "]"}]}], 
      RowBox[{"n", "[", 
       RowBox[{"-", "\[Nu]"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{"n", "[", 
       RowBox[{"-", "\[Mu]"}], "]"}], 
      RowBox[{"l", "[", 
       RowBox[{"-", "\[Nu]"}], "]"}]}], " ", "+", " ", 
     RowBox[{
      RowBox[{"m", "[", 
       RowBox[{"-", "\[Mu]"}], "]"}], 
      RowBox[{"mbar", "[", 
       RowBox[{"-", "\[Nu]"}], "]"}]}], "+", 
     RowBox[{
      RowBox[{"m", "[", 
       RowBox[{"-", "\[Nu]"}], "]"}], 
      RowBox[{"mbar", "[", 
       RowBox[{"-", "\[Mu]"}], "]"}]}]}], "]"}]}], "  ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"TensorValues", "[", " ", "completenessDownIndices", " ", "]"}], 
     "   ", "//", " ", "Expand"}], " ", "//", " ", "FullSimplify"}], " ", "//",
    " ", "MatrixForm"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Thread", "[", 
      RowBox[{
       RowBox[{"Flatten", "[", "metric2", "]"}], " ", "\[Equal]", " ", 
       "\[IndentingNewLine]", 
       RowBox[{"Flatten", "[", " ", 
        RowBox[{
        "TensorValues", "[", " ", "completenessDownIndices", " ", "]"}], 
        "]"}]}], " ", "]"}], " ", "//", " ", "Expand"}], " ", "//", " ", 
    "FullSimplify"}], "  ", "//", " ", "TableForm"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", "completenessUpIndices", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"completenessUpIndices", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"MergeTensors", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       RowBox[{"l", "[", "\[Mu]", "]"}]}], 
      RowBox[{"n", "[", "\[Nu]", "]"}]}], "-", 
     RowBox[{
      RowBox[{"n", "[", "\[Mu]", "]"}], 
      RowBox[{"l", "[", "\[Nu]", "]"}]}], " ", "+", " ", 
     RowBox[{
      RowBox[{"m", "[", "\[Mu]", "]"}], 
      RowBox[{"mbar", "[", "\[Nu]", "]"}]}], "+", " ", 
     RowBox[{
      RowBox[{"m", "[", "\[Nu]", "]"}], 
      RowBox[{"mbar", "[", "\[Mu]", "]"}]}]}], "]"}]}], "  ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"TensorValues", "[", " ", "completenessUpIndices", " ", "]"}], 
     "   ", "//", " ", "Expand"}], " ", "//", " ", "FullSimplify"}], " ", "//",
    " ", "MatrixForm"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Thread", "[", 
     RowBox[{
      RowBox[{"Flatten", "[", "inverse2", "]"}], " ", "\[Equal]", " ", 
      "\[IndentingNewLine]", 
      RowBox[{"Flatten", "[", " ", 
       RowBox[{"TensorValues", "[", " ", "completenessUpIndices", " ", "]"}], 
       "]"}]}], " ", "]"}], "  ", "//", " ", "Expand"}], " ", "//", " ", 
   "FullSimplify"}], "  ", "//", " ", "TableForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.820937410343767*^9, 3.820944472323543*^9, {3.8237794627048893`*^9, 
   3.823779471575405*^9}, 3.823780788700976*^9, {3.823968050180369*^9, 
   3.823968056298918*^9}, {3.8239688232408648`*^9, 3.823968847128337*^9}, {
   3.823971389045491*^9, 3.823971395475389*^9}, {3.823971915940023*^9, 
   3.823971939515136*^9}, 3.824026530428814*^9, {3.8240355438624067`*^9, 
   3.824035544244134*^9}, {3.8240358083978558`*^9, 3.824035865876927*^9}},
 CellLabel->
  "In[285]:=",ExpressionUUID->"6f65304a-6500-44b9-b840-81fee344d921"],

Cell[BoxData["True"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.823971398516067*^9, 3.8239714274305*^9}, 
   3.8239719090543823`*^9, 3.82397194511889*^9, 3.82397221936222*^9, 
   3.824025690768845*^9, 3.824026530428905*^9, 3.824035488873424*^9, 
   3.8240355451659813`*^9, 3.82403580962763*^9, {3.824035844569208*^9, 
   3.824035867602458*^9}, 3.824035943178298*^9},
 CellLabel->
  "Out[285]=",ExpressionUUID->"7f43a34e-98b3-463f-95b7-a03a1044fa07"],

Cell[BoxData["True"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.823971398516067*^9, 3.8239714274305*^9}, 
   3.8239719090543823`*^9, 3.82397194511889*^9, 3.82397221936222*^9, 
   3.824025690768845*^9, 3.824026530428905*^9, 3.824035488873424*^9, 
   3.8240355451659813`*^9, 3.82403580962763*^9, {3.824035844569208*^9, 
   3.824035867602458*^9}, 3.824035943182877*^9},
 CellLabel->
  "Out[286]=",ExpressionUUID->"ad69dcad-18a8-441c-b7b2-e109b44fc6d9"],

Cell[BoxData["True"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.823971398516067*^9, 3.8239714274305*^9}, 
   3.8239719090543823`*^9, 3.82397194511889*^9, 3.82397221936222*^9, 
   3.824025690768845*^9, 3.824026530428905*^9, 3.824035488873424*^9, 
   3.8240355451659813`*^9, 3.82403580962763*^9, {3.824035844569208*^9, 
   3.824035867602458*^9}, 3.8240359431940937`*^9},
 CellLabel->
  "Out[287]=",ExpressionUUID->"8fc0f35d-4f97-477c-a4a4-ad00b05d78c6"],

Cell[BoxData["True"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.823971398516067*^9, 3.8239714274305*^9}, 
   3.8239719090543823`*^9, 3.82397194511889*^9, 3.82397221936222*^9, 
   3.824025690768845*^9, 3.824026530428905*^9, 3.824035488873424*^9, 
   3.8240355451659813`*^9, 3.82403580962763*^9, {3.824035844569208*^9, 
   3.824035867602458*^9}, 3.824035943223755*^9},
 CellLabel->
  "Out[288]=",ExpressionUUID->"4a229c9c-d5d7-474e-890d-b699cbc32d1f"],

Cell[BoxData["True"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.823971398516067*^9, 3.8239714274305*^9}, 
   3.8239719090543823`*^9, 3.82397194511889*^9, 3.82397221936222*^9, 
   3.824025690768845*^9, 3.824026530428905*^9, 3.824035488873424*^9, 
   3.8240355451659813`*^9, 3.82403580962763*^9, {3.824035844569208*^9, 
   3.824035867602458*^9}, 3.824035943227356*^9},
 CellLabel->
  "Out[289]=",ExpressionUUID->"30c8d5f7-b32f-4f26-a20e-feaad65d1f6a"],

Cell[BoxData["True"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.823971398516067*^9, 3.8239714274305*^9}, 
   3.8239719090543823`*^9, 3.82397194511889*^9, 3.82397221936222*^9, 
   3.824025690768845*^9, 3.824026530428905*^9, 3.824035488873424*^9, 
   3.8240355451659813`*^9, 3.82403580962763*^9, {3.824035844569208*^9, 
   3.824035867602458*^9}, 3.8240359432306337`*^9},
 CellLabel->
  "Out[290]=",ExpressionUUID->"4422821e-6588-4583-a621-deb166d4f050"],

Cell[BoxData["True"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.823971398516067*^9, 3.8239714274305*^9}, 
   3.8239719090543823`*^9, 3.82397194511889*^9, 3.82397221936222*^9, 
   3.824025690768845*^9, 3.824026530428905*^9, 3.824035488873424*^9, 
   3.8240355451659813`*^9, 3.82403580962763*^9, {3.824035844569208*^9, 
   3.824035867602458*^9}, 3.82403594324067*^9},
 CellLabel->
  "Out[291]=",ExpressionUUID->"39b8a206-2412-4d59-be7b-f82f23072825"],

Cell[BoxData["True"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.823971398516067*^9, 3.8239714274305*^9}, 
   3.8239719090543823`*^9, 3.82397194511889*^9, 3.82397221936222*^9, 
   3.824025690768845*^9, 3.824026530428905*^9, 3.824035488873424*^9, 
   3.8240355451659813`*^9, 3.82403580962763*^9, {3.824035844569208*^9, 
   3.824035867602458*^9}, 3.8240359432456827`*^9},
 CellLabel->
  "Out[292]=",ExpressionUUID->"2dd1589c-9d6a-4015-9ec5-0b119b8e9fa6"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", 
      RowBox[{"-", "1"}], "0", "0"},
     {
      RowBox[{"-", "1"}], "0", "0", "0"},
     {"0", "0", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"u", " ", 
          RowBox[{"HeavisideTheta", "[", "u", "]"}]}], "+", 
         RowBox[{"v", " ", 
          RowBox[{"HeavisideTheta", "[", "v", "]"}]}]}], ")"}], "2"], "0"},
     {"0", "0", "0", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"u", " ", 
          RowBox[{"HeavisideTheta", "[", "u", "]"}]}], "+", 
         RowBox[{"v", " ", 
          RowBox[{"HeavisideTheta", "[", "v", "]"}]}]}], ")"}], "2"]}
    },
    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",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.823971398516067*^9, 3.8239714274305*^9}, 
   3.8239719090543823`*^9, 3.82397194511889*^9, 3.82397221936222*^9, 
   3.824025690768845*^9, 3.824026530428905*^9, 3.824035488873424*^9, 
   3.8240355451659813`*^9, 3.82403580962763*^9, {3.824035844569208*^9, 
   3.824035867602458*^9}, 3.824035943285964*^9},
 CellLabel->
  "Out[295]//MatrixForm=",ExpressionUUID->"3a9e2207-b764-400e-b3fa-\
d215be9a275d"],

Cell[BoxData[
 TagBox["True",
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.823971398516067*^9, 3.8239714274305*^9}, 
   3.8239719090543823`*^9, 3.82397194511889*^9, 3.82397221936222*^9, 
   3.824025690768845*^9, 3.824026530428905*^9, 3.824035488873424*^9, 
   3.8240355451659813`*^9, 3.82403580962763*^9, {3.824035844569208*^9, 
   3.824035867602458*^9}, 3.824035943289742*^9},
 CellLabel->
  "Out[296]//TableForm=",ExpressionUUID->"9772dc03-4056-44b7-b6ce-\
941ded01c683"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", 
      RowBox[{"-", "1"}], "0", "0"},
     {
      RowBox[{"-", "1"}], "0", "0", "0"},
     {"0", "0", 
      FractionBox["1", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"u", " ", 
           RowBox[{"HeavisideTheta", "[", "u", "]"}]}], "+", 
          RowBox[{"v", " ", 
           RowBox[{"HeavisideTheta", "[", "v", "]"}]}]}], ")"}], "2"]], "0"},
     {"0", "0", "0", 
      FractionBox["1", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"u", " ", 
           RowBox[{"HeavisideTheta", "[", "u", "]"}]}], "+", 
          RowBox[{"v", " ", 
           RowBox[{"HeavisideTheta", "[", "v", "]"}]}]}], ")"}], "2"]]}
    },
    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",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.823971398516067*^9, 3.8239714274305*^9}, 
   3.8239719090543823`*^9, 3.82397194511889*^9, 3.82397221936222*^9, 
   3.824025690768845*^9, 3.824026530428905*^9, 3.824035488873424*^9, 
   3.8240355451659813`*^9, 3.82403580962763*^9, {3.824035844569208*^9, 
   3.824035867602458*^9}, 3.824035943329545*^9},
 CellLabel->
  "Out[299]//MatrixForm=",ExpressionUUID->"583ea711-fec7-43a1-96fe-\
e8e944a65f78"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {"True"},
     {"True"},
     {"True"},
     {"True"},
     {"True"},
     {"True"},
     {"True"},
     {"True"},
     {"True"},
     {"True"},
     {"True"},
     {"True"},
     {"True"},
     {"True"},
     {"True"},
     {"True"}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.823971398516067*^9, 3.8239714274305*^9}, 
   3.8239719090543823`*^9, 3.82397194511889*^9, 3.82397221936222*^9, 
   3.824025690768845*^9, 3.824026530428905*^9, 3.824035488873424*^9, 
   3.8240355451659813`*^9, 3.82403580962763*^9, {3.824035844569208*^9, 
   3.824035867602458*^9}, 3.824035943333365*^9},
 CellLabel->
  "Out[300]//TableForm=",ExpressionUUID->"75ad7466-7707-4097-afc5-\
9b5c829c48e1"]
}, Closed]],

Cell[CellGroupData[{

Cell["Newman Penrose Quantities Computed For Metric ???", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.825289119128582*^9, 
  3.825289159765304*^9}},ExpressionUUID->"f21e8e07-ec96-4efa-8449-\
dd8cf8c439ea"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "spinCoefficientReplace", "]"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"spinCoefficientReplace", "=", " ", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"\[Alpha]", "\[Rule]", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "/", "2"}], ")"}], 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"MergeTensors", "[", 
             RowBox[{
              RowBox[{"CovariantD", "[", " ", 
               RowBox[{
                RowBox[{"l", "[", 
                 RowBox[{"-", "\[Mu]"}], "]"}], ",", 
                RowBox[{"-", "\[Nu]"}]}], "]"}], " ", 
              RowBox[{"n", "[", "\[Mu]", "]"}], " ", 
              RowBox[{"mbar", "[", "\[Nu]", "]"}]}], "]"}], " ", "//", " ", 
            "TensorValues"}], " ", ")"}], "-", "\[IndentingNewLine]", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"MergeTensors", "[", 
             RowBox[{
              RowBox[{"CovariantD", "[", " ", 
               RowBox[{
                RowBox[{"m", "[", 
                 RowBox[{"-", "\[Mu]"}], "]"}], ",", 
                RowBox[{"-", "\[Nu]"}]}], "]"}], " ", 
              RowBox[{"mbar", "[", "\[Mu]", "]"}], " ", 
              RowBox[{"mbar", "[", "\[Nu]", "]"}]}], "]"}], " ", "//", " ", 
            "TensorValues"}], ")"}]}], ")"}]}], " ", ")"}]}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{"\[Beta]", " ", "\[Rule]", " ", "\[IndentingNewLine]", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "/", "2"}], ")"}], 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"MergeTensors", "[", " ", 
             RowBox[{
              RowBox[{"CovariantD", "[", " ", 
               RowBox[{
                RowBox[{"l", "[", 
                 RowBox[{"-", "\[Mu]"}], "]"}], ",", 
                RowBox[{"-", "\[Nu]"}]}], "]"}], " ", 
              RowBox[{"n", "[", "\[Mu]", "]"}], 
              RowBox[{"m", "[", "\[Nu]", "]"}]}], "]"}], " ", "//", " ", 
            "TensorValues"}], ")"}], "-", " ", "\[IndentingNewLine]", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"MergeTensors", "[", 
             RowBox[{
              RowBox[{"CovariantD", "[", " ", 
               RowBox[{
                RowBox[{"m", "[", 
                 RowBox[{"-", "\[Mu]"}], "]"}], ",", 
                RowBox[{"-", "\[Nu]"}]}], "]"}], " ", 
              RowBox[{"mbar", "[", "\[Mu]", "]"}], " ", 
              RowBox[{"m", "[", "\[Nu]", "]"}]}], "]"}], " ", "//", " ", 
            "TensorValues"}], " ", ")"}]}], ")"}]}], ")"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"\[Gamma]", " ", "\[Rule]", " ", 
      RowBox[{"(*", " ", 
       RowBox[{
       "something", " ", "weird", " ", "here", " ", "correct", " ", 
        "definition", " ", "off", " ", "by", " ", "minus", " ", "sign"}], " ",
        "*)"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          FractionBox["1", "2"], ")"}], 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"MergeTensors", "[", 
               RowBox[{
                RowBox[{"CovariantD", "[", " ", 
                 RowBox[{
                  RowBox[{"l", "[", 
                   RowBox[{"-", "\[Mu]"}], "]"}], ",", 
                  RowBox[{"-", "\[Nu]"}]}], "]"}], " ", 
                RowBox[{"n", "[", "\[Mu]", "]"}], 
                RowBox[{"n", "[", "\[Nu]", "]"}]}], " ", "]"}], " ", "//", 
              " ", "TensorValues"}], "  ", "//", " ", "Expand"}], "  ", ")"}],
            "-", "\[IndentingNewLine]", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"MergeTensors", "[", 
                RowBox[{
                 RowBox[{"CovariantD", "[", " ", 
                  RowBox[{
                   RowBox[{"m", "[", 
                    RowBox[{"-", "\[Mu]"}], "]"}], ",", 
                   RowBox[{"-", "\[Nu]"}]}], "]"}], " ", 
                 RowBox[{"mbar", "[", "\[Mu]", "]"}], " ", 
                 RowBox[{"n", "[", "\[Nu]", "]"}]}], "]"}], " ", "//", " ", 
               "TensorValues"}], " ", "//", " ", "Expand"}], "  ", "//", " ", 
             "FullSimplify"}], " ", ")"}]}], ")"}]}], " ", "//", " ", 
        "Expand"}], " ", ")"}]}], " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{"\[CurlyEpsilon]", " ", "\[Rule]", " ", 
      RowBox[{"(", " ", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "/", "2"}], ")"}], 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"(", " ", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"MergeTensors", "[", 
                 RowBox[{
                  RowBox[{"CovariantD", "[", 
                   RowBox[{
                    RowBox[{"l", "[", 
                    RowBox[{"-", "\[Mu]"}], "]"}], ",", 
                    RowBox[{"-", "\[Nu]"}]}], "]"}], " ", 
                  RowBox[{"n", "[", "\[Mu]", "]"}], " ", 
                  RowBox[{"l", "[", "\[Nu]", "]"}]}], "]"}], " ", "//", " ", 
                "TensorValues"}], "  ", "//", " ", "Expand"}], "  ", "//", 
              " ", "FullSimplify"}], "  ", ")"}], "  ", "-", " ", 
            "\[IndentingNewLine]", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"MergeTensors", "[", " ", 
                 RowBox[{
                  RowBox[{"CovariantD", "[", " ", 
                   RowBox[{
                    RowBox[{"m", "[", 
                    RowBox[{"-", "\[Mu]"}], "]"}], ",", 
                    RowBox[{"-", "\[Nu]"}]}], "]"}], " ", 
                  RowBox[{"mbar", "[", "\[Mu]", "]"}], " ", 
                  RowBox[{"l", "[", "\[Nu]", "]"}]}], "]"}], " ", "//", " ", 
                "TensorValues"}], " ", "//", " ", "Expand"}], " ", "//", " ", 
              "FullSimplify"}], ")"}]}], " ", ")"}]}], " ", "//", " ", 
         "Expand"}], "  ", "//", " ", "FullSimplify"}], " ", ")"}]}], " ", 
     ",", " ", "\[IndentingNewLine]", 
     RowBox[{"\[Kappa]", "\[Rule]", 
      RowBox[{"(", "  ", 
       RowBox[{
        RowBox[{"MergeTensors", "[", " ", 
         RowBox[{
          RowBox[{"CovariantD", "[", " ", 
           RowBox[{
            RowBox[{"l", "[", 
             RowBox[{"-", "\[Mu]"}], "]"}], " ", ",", 
            RowBox[{"-", "\[Nu]"}]}], "]"}], " ", 
          RowBox[{"m", "[", "\[Mu]", "]"}], " ", 
          RowBox[{"l", "[", "\[Nu]", "]"}]}], "  ", "]"}], "  ", "//", " ", 
        "TensorValues"}], " ", ")"}]}], " ", ",", " ", "\[IndentingNewLine]", 
     
     RowBox[{"\[Lambda]", "\[Rule]", " ", 
      RowBox[{"(*", " ", 
       RowBox[{"note", " ", "minus", " ", "sign"}], " ", "*)"}], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"-", "1"}], ")"}], "*", 
       RowBox[{"(", " ", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"MergeTensors", "[", " ", 
            RowBox[{
             RowBox[{"CovariantD", "[", " ", 
              RowBox[{
               RowBox[{"n", "[", 
                RowBox[{"-", "\[Mu]"}], "]"}], ",", 
               RowBox[{"-", "\[Nu]"}]}], "]"}], " ", 
             RowBox[{"mbar", "[", "\[Mu]", "]"}], " ", 
             RowBox[{"mbar", "[", "\[Nu]", "]"}]}], " ", "]"}], "  ", "//", 
           " ", "TensorValues"}], " ", "//", " ", "Expand"}], " ", "//", " ", 
         "FullSimplify"}], ")"}]}]}], "  ", ",", "\[IndentingNewLine]", 
     RowBox[{"\[Mu]", "\[Rule]", " ", 
      RowBox[{"(*", 
       RowBox[{"note", " ", "minus", " ", "sign"}], " ", "*)"}], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"-", "1"}], ")"}], "*", 
       RowBox[{"(", " ", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"MergeTensors", " ", "[", " ", 
            RowBox[{
             RowBox[{"CovariantD", "[", " ", 
              RowBox[{
               RowBox[{"n", "[", 
                RowBox[{"-", "\[Mu]"}], "]"}], " ", ",", " ", 
               RowBox[{"-", "\[Nu]"}]}], " ", "]"}], " ", 
             RowBox[{"mbar", "[", "\[Mu]", "]"}], " ", 
             RowBox[{"m", "[", "\[Nu]", "]"}]}], " ", "]"}], " ", "//", " ", 
           "TensorValues"}], "  ", "//", " ", "Expand"}], "  ", "//", " ", 
         "FullSimplify"}], " ", ")"}]}]}], "  ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{"\[Nu]", "\[Rule]", " ", 
      RowBox[{"(", " ", 
       RowBox[{
        RowBox[{"MergeTensors", "[", " ", 
         RowBox[{
          RowBox[{"CovariantD", "[", " ", 
           RowBox[{
            RowBox[{"n", "[", 
             RowBox[{"-", "\[Mu]"}], "]"}], ",", 
            RowBox[{"-", "\[Nu]"}]}], "]"}], 
          RowBox[{"m", "[", "\[Mu]", "]"}], " ", 
          RowBox[{"n", "[", "\[Nu]", "]"}]}], " ", "]"}], " ", "//", " ", 
        "TensorValues"}], " ", ")"}]}], " ", ",", " ", "\[IndentingNewLine]", 
     
     RowBox[{"\[Pi]", "\[Rule]", " ", 
      RowBox[{"(*", " ", 
       RowBox[{"Note", " ", "minus", " ", "sign"}], " ", "*)"}], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"-", "1"}], ")"}], "*", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"MergeTensors", "[", 
           RowBox[{
            RowBox[{"CovariantD", "[", " ", 
             RowBox[{
              RowBox[{"n", "[", 
               RowBox[{"-", "\[Mu]"}], "]"}], ",", 
              RowBox[{"-", "\[Nu]"}]}], "]"}], " ", 
            RowBox[{"mbar", "[", "\[Mu]", "]"}], " ", 
            RowBox[{"l", "[", "\[Nu]", "]"}]}], "]"}], " ", "//", " ", 
          "TensorValues"}], "  ", "//", " ", "Expand"}], " ", ")"}]}]}], " ", 
     ",", " ", "\[IndentingNewLine]", 
     RowBox[{"\[Rho]", " ", "\[Rule]", 
      RowBox[{"(", "  ", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"MergeTensors", "[", " ", 
           RowBox[{
            RowBox[{"CovariantD", "[", " ", 
             RowBox[{
              RowBox[{"l", "[", 
               RowBox[{"-", "\[Mu]"}], "]"}], ",", 
              RowBox[{"-", "\[Nu]"}]}], "]"}], " ", 
            RowBox[{"m", "[", "\[Mu]", "]"}], " ", 
            RowBox[{"mbar", "[", "\[Nu]", "]"}]}], " ", "]"}], " ", "//", " ",
           "TensorValues"}], "  ", "//", " ", "Expand"}], " ", "//", " ", 
        "FullSimplify"}], " ", ")"}]}], "  ", ",", " ", 
     RowBox[{"\[Sigma]", "\[Rule]", 
      RowBox[{"(", " ", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"MergeTensors", "[", " ", 
           RowBox[{
            RowBox[{"CovariantD", "[", 
             RowBox[{
              RowBox[{"l", "[", 
               RowBox[{"-", "\[Mu]"}], "]"}], " ", ",", " ", 
              RowBox[{"-", "\[Nu]"}]}], "]"}], " ", 
            RowBox[{"m", "[", "\[Mu]", "]"}], " ", 
            RowBox[{"m", "[", "\[Nu]", "]"}]}], "]"}], " ", "//", " ", 
          "TensorValues"}], "  ", "//", " ", "Expand"}], " ", "//", " ", 
        "FullSimplify"}], ")"}]}], "  ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{"\[Tau]", "\[Rule]", 
      RowBox[{"(", " ", 
       RowBox[{
        RowBox[{"MergeTensors", "[", " ", 
         RowBox[{
          RowBox[{"CovariantD", "[", " ", 
           RowBox[{
            RowBox[{"l", "[", 
             RowBox[{"-", "\[Mu]"}], "]"}], ",", 
            RowBox[{"-", "\[Nu]"}]}], "]"}], " ", 
          RowBox[{"m", "[", "\[Mu]", "]"}], " ", 
          RowBox[{"n", "[", "\[Nu]", " ", "]"}]}], "]"}], "//", " ", 
        "TensorValues"}], " ", ")"}]}]}], "   ", "\[IndentingNewLine]", 
    "}"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"spinCoefficientReplace", "   ", "//", " ", "Together"}], "   ", "//",
     " ", "FullSimplify"}], " ", "//", " ", "TableForm"}], " ", "//", " ", 
  "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.820667112307205*^9, {3.820691856877*^9, 3.8206918635710173`*^9}, {
   3.820692627802567*^9, 3.820692798874284*^9}, {3.820793246159666*^9, 
   3.8207932735596313`*^9}, {3.820933088885683*^9, 3.820933089524383*^9}, 
   3.820934520109788*^9, 3.8209373342691517`*^9, {3.82100327861626*^9, 
   3.8210032838458157`*^9}, {3.821003386912135*^9, 3.821003405643714*^9}, {
   3.8210037363804407`*^9, 3.8210037487041388`*^9}, {3.8240359666878767`*^9, 
   3.824035997551474*^9}, 3.8252891391193438`*^9},
 CellLabel->
  "In[310]:=",ExpressionUUID->"a1a3b399-e84d-491b-abfc-a2abbe23e3e6"],

Cell[BoxData[
 FormBox[
  TagBox[
   TagBox[GridBox[{
      {
       RowBox[{"\[Alpha]", "\[Rule]", "0"}]},
      {
       RowBox[{"\[Beta]", "\[Rule]", "0"}]},
      {
       RowBox[{"\[Gamma]", "\[Rule]", "0"}]},
      {
       RowBox[{"\[CurlyEpsilon]", "\[Rule]", "0"}]},
      {
       RowBox[{"\[Kappa]", "\[Rule]", "0"}]},
      {
       RowBox[{"\[Lambda]", "\[Rule]", 
        FractionBox[
         RowBox[{
          RowBox[{"6", " ", 
           SuperscriptBox["u", "5"], " ", 
           SuperscriptBox["v", "2"], " ", 
           TemplateBox[{
             RowBox[{"u"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"u", ",", "v"}]},
            "HeavisideThetaSeq"]}], "+", 
          RowBox[{"4", " ", 
           SuperscriptBox["u", "4"], " ", 
           SuperscriptBox["v", "3"], " ", 
           TemplateBox[{
             RowBox[{"u"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"u", ",", "v"}]},
            "HeavisideThetaSeq"]}], "-", 
          RowBox[{"24", " ", 
           SuperscriptBox["u", "4"], " ", 
           SuperscriptBox["v", "2"], " ", 
           TemplateBox[{
             RowBox[{"u"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"u", ",", "v"}]},
            "HeavisideThetaSeq"]}], "-", 
          RowBox[{"4", " ", 
           SuperscriptBox["u", "3"], " ", 
           SuperscriptBox["v", "4"], " ", 
           TemplateBox[{
             RowBox[{"u"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"u", ",", "v"}]},
            "HeavisideThetaSeq"]}], "-", 
          RowBox[{"12", " ", 
           SuperscriptBox["u", "3"], " ", 
           SuperscriptBox["v", "3"], " ", 
           TemplateBox[{
             RowBox[{"u"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"u", ",", "v"}]},
            "HeavisideThetaSeq"]}], "+", 
          RowBox[{"36", " ", 
           SuperscriptBox["u", "3"], " ", 
           SuperscriptBox["v", "2"], " ", 
           TemplateBox[{
             RowBox[{"u"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"u", ",", "v"}]},
            "HeavisideThetaSeq"]}], "-", 
          RowBox[{"6", " ", 
           SuperscriptBox["u", "2"], " ", 
           SuperscriptBox["v", "5"], " ", 
           TemplateBox[{
             RowBox[{"u"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"u", ",", "v"}]},
            "HeavisideThetaSeq"]}], "+", 
          RowBox[{"8", " ", 
           SuperscriptBox["u", "2"], " ", 
           SuperscriptBox["v", "4"], " ", 
           TemplateBox[{
             RowBox[{"u"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"u", ",", "v"}]},
            "HeavisideThetaSeq"]}], "+", 
          RowBox[{"12", " ", 
           SuperscriptBox["u", "2"], " ", 
           SuperscriptBox["v", "3"], " ", 
           TemplateBox[{
             RowBox[{"u"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"u", ",", "v"}]},
            "HeavisideThetaSeq"]}], "-", 
          RowBox[{"24", " ", 
           SuperscriptBox["u", "2"], " ", 
           SuperscriptBox["v", "2"], " ", 
           TemplateBox[{
             RowBox[{"u"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"u", ",", "v"}]},
            "HeavisideThetaSeq"]}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox["u", "6"], " ", "v", " ", 
           TemplateBox[{
             RowBox[{"u"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"u", ",", "v"}]},
            "HeavisideThetaSeq"]}], "-", 
          RowBox[{"10", " ", 
           SuperscriptBox["u", "5"], " ", "v", " ", 
           TemplateBox[{
             RowBox[{"u"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"u", ",", "v"}]},
            "HeavisideThetaSeq"]}], "+", 
          RowBox[{"20", " ", 
           SuperscriptBox["u", "4"], " ", "v", " ", 
           TemplateBox[{
             RowBox[{"u"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"u", ",", "v"}]},
            "HeavisideThetaSeq"]}], "-", 
          RowBox[{"20", " ", 
           SuperscriptBox["u", "3"], " ", "v", " ", 
           TemplateBox[{
             RowBox[{"u"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"u", ",", "v"}]},
            "HeavisideThetaSeq"]}], "+", 
          RowBox[{"10", " ", 
           SuperscriptBox["u", "2"], " ", "v", " ", 
           TemplateBox[{
             RowBox[{"u"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"u", ",", "v"}]},
            "HeavisideThetaSeq"]}], "+", 
          RowBox[{"2", " ", "v", " ", 
           RowBox[{"(", 
            RowBox[{"u", "-", "v", "-", "1"}], ")"}], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"u", "+", "v", "-", "1"}], ")"}], "4"], " ", 
           TemplateBox[{
             RowBox[{"u", ",", "v"}]},
            "HeavisideThetaSeq"]}], "-", 
          RowBox[{"2", " ", "u", " ", 
           SuperscriptBox["v", "6"], " ", 
           TemplateBox[{
             RowBox[{"u"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"v"}]},
            "HeavisideThetaSeq"]}], "+", 
          RowBox[{"6", " ", "u", " ", 
           SuperscriptBox["v", "5"], " ", 
           TemplateBox[{
             RowBox[{"u"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"v"}]},
            "HeavisideThetaSeq"]}], "-", 
          RowBox[{"4", " ", "u", " ", 
           SuperscriptBox["v", "4"], " ", 
           TemplateBox[{
             RowBox[{"u"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"v"}]},
            "HeavisideThetaSeq"]}], "-", 
          RowBox[{"4", " ", "u", " ", 
           SuperscriptBox["v", "3"], " ", 
           TemplateBox[{
             RowBox[{"u"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"v"}]},
            "HeavisideThetaSeq"]}], "+", 
          RowBox[{"6", " ", "u", " ", 
           SuperscriptBox["v", "2"], " ", 
           TemplateBox[{
             RowBox[{"u"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"v"}]},
            "HeavisideThetaSeq"]}], "-", 
          RowBox[{"2", " ", "u", " ", "v", " ", 
           TemplateBox[{
             RowBox[{"u"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"v"}]},
            "HeavisideThetaSeq"]}]}], 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"u", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"]}], "-", 
            RowBox[{"v", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], "-", "1"}], ")"}], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"u", " ", 
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"]}], "+", 
             RowBox[{"v", " ", 
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "4"], " ", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"u", " ", 
                TemplateBox[{
                  RowBox[{"u"}]},
                 "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"], "-", 
            RowBox[{
             SuperscriptBox["v", "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}]}], ")"}]}]]}]},
      {
       RowBox[{"\[Mu]", "\[Rule]", 
        FractionBox[
         RowBox[{
          RowBox[{"4", " ", 
           SuperscriptBox["u", "5"], " ", 
           SuperscriptBox["v", "2"], " ", 
           TemplateBox[{
             RowBox[{"u"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"u", ",", "v"}]},
            "HeavisideThetaSeq"]}], "-", 
          RowBox[{"4", " ", 
           SuperscriptBox["u", "4"], " ", 
           SuperscriptBox["v", "3"], " ", 
           TemplateBox[{
             RowBox[{"u"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"u", ",", "v"}]},
            "HeavisideThetaSeq"]}], "-", 
          RowBox[{"16", " ", 
           SuperscriptBox["u", "4"], " ", 
           SuperscriptBox["v", "2"], " ", 
           TemplateBox[{
             RowBox[{"u"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"u", ",", "v"}]},
            "HeavisideThetaSeq"]}], "-", 
          RowBox[{"6", " ", 
           SuperscriptBox["u", "3"], " ", 
           SuperscriptBox["v", "4"], " ", 
           TemplateBox[{
             RowBox[{"u"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"u", ",", "v"}]},
            "HeavisideThetaSeq"]}], "+", 
          RowBox[{"12", " ", 
           SuperscriptBox["u", "3"], " ", 
           SuperscriptBox["v", "3"], " ", 
           TemplateBox[{
             RowBox[{"u"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"u", ",", "v"}]},
            "HeavisideThetaSeq"]}], "+", 
          RowBox[{"24", " ", 
           SuperscriptBox["u", "3"], " ", 
           SuperscriptBox["v", "2"], " ", 
           TemplateBox[{
             RowBox[{"u"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"u", ",", "v"}]},
            "HeavisideThetaSeq"]}], "-", 
          RowBox[{"2", " ", 
           SuperscriptBox["u", "2"], " ", 
           SuperscriptBox["v", "5"], " ", 
           TemplateBox[{
             RowBox[{"u"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"u", ",", "v"}]},
            "HeavisideThetaSeq"]}], "+", 
          RowBox[{"12", " ", 
           SuperscriptBox["u", "2"], " ", 
           SuperscriptBox["v", "4"], " ", 
           TemplateBox[{
             RowBox[{"u"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"u", ",", "v"}]},
            "HeavisideThetaSeq"]}], "-", 
          RowBox[{"12", " ", 
           SuperscriptBox["u", "2"], " ", 
           SuperscriptBox["v", "3"], " ", 
           TemplateBox[{
             RowBox[{"u"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"u", ",", "v"}]},
            "HeavisideThetaSeq"]}], "-", 
          RowBox[{"16", " ", 
           SuperscriptBox["u", "2"], " ", 
           SuperscriptBox["v", "2"], " ", 
           TemplateBox[{
             RowBox[{"u"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"u", ",", "v"}]},
            "HeavisideThetaSeq"]}], "+", 
          RowBox[{"6", " ", 
           SuperscriptBox["u", "6"], " ", "v", " ", 
           TemplateBox[{
             RowBox[{"u"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"u", ",", "v"}]},
            "HeavisideThetaSeq"]}], "-", 
          RowBox[{"30", " ", 
           SuperscriptBox["u", "5"], " ", "v", " ", 
           TemplateBox[{
             RowBox[{"u"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"u", ",", "v"}]},
            "HeavisideThetaSeq"]}], "+", 
          RowBox[{"60", " ", 
           SuperscriptBox["u", "4"], " ", "v", " ", 
           TemplateBox[{
             RowBox[{"u"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"u", ",", "v"}]},
            "HeavisideThetaSeq"]}], "-", 
          RowBox[{"60", " ", 
           SuperscriptBox["u", "3"], " ", "v", " ", 
           TemplateBox[{
             RowBox[{"u"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"u", ",", "v"}]},
            "HeavisideThetaSeq"]}], "+", 
          RowBox[{"30", " ", 
           SuperscriptBox["u", "2"], " ", "v", " ", 
           TemplateBox[{
             RowBox[{"u"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"u", ",", "v"}]},
            "HeavisideThetaSeq"]}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox["u", "7"], " ", 
           TemplateBox[{
             RowBox[{"u"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"u"}]},
            "HeavisideThetaSeq"]}], "-", 
          RowBox[{"12", " ", 
           SuperscriptBox["u", "6"], " ", 
           TemplateBox[{
             RowBox[{"u"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"u"}]},
            "HeavisideThetaSeq"]}], "+", 
          RowBox[{"30", " ", 
           SuperscriptBox["u", "5"], " ", 
           TemplateBox[{
             RowBox[{"u"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"u"}]},
            "HeavisideThetaSeq"]}], "-", 
          RowBox[{"40", " ", 
           SuperscriptBox["u", "4"], " ", 
           TemplateBox[{
             RowBox[{"u"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"u"}]},
            "HeavisideThetaSeq"]}], "+", 
          RowBox[{"30", " ", 
           SuperscriptBox["u", "3"], " ", 
           TemplateBox[{
             RowBox[{"u"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"u"}]},
            "HeavisideThetaSeq"]}], "-", 
          RowBox[{"12", " ", 
           SuperscriptBox["u", "2"], " ", 
           TemplateBox[{
             RowBox[{"u"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"u"}]},
            "HeavisideThetaSeq"]}], "+", 
          RowBox[{"2", " ", "u", " ", 
           SuperscriptBox["v", "5"], " ", 
           TemplateBox[{
             RowBox[{"u"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"v"}]},
            "HeavisideThetaSeq"]}], "-", 
          RowBox[{"6", " ", "u", " ", 
           SuperscriptBox["v", "4"], " ", 
           TemplateBox[{
             RowBox[{"u"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"v"}]},
            "HeavisideThetaSeq"]}], "+", 
          RowBox[{"4", " ", "u", " ", 
           SuperscriptBox["v", "3"], " ", 
           TemplateBox[{
             RowBox[{"u"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"v"}]},
            "HeavisideThetaSeq"]}], "+", 
          RowBox[{"4", " ", "u", " ", 
           SuperscriptBox["v", "2"], " ", 
           TemplateBox[{
             RowBox[{"u"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"v"}]},
            "HeavisideThetaSeq"]}], "-", 
          RowBox[{"6", " ", "u", " ", "v", " ", 
           TemplateBox[{
             RowBox[{"u"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"v"}]},
            "HeavisideThetaSeq"]}], "+", 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{"u", "-", "1"}], ")"}], " ", 
           TemplateBox[{
             RowBox[{"u"}]},
            "HeavisideThetaSeq"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"u", " ", 
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"]}], "-", 
             RowBox[{"v", " ", 
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"]}], "-", "1"}], ")"}], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"u", " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "HeavisideThetaSeq"]}], "+", 
              RowBox[{"v", " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "4"]}]}], 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"u", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"]}], "-", 
            RowBox[{"v", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], "-", "1"}], ")"}], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"u", " ", 
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"]}], "+", 
             RowBox[{"v", " ", 
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "4"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"u", "-", "2"}], ")"}], " ", "u", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"]}], "+", 
            RowBox[{
             SuperscriptBox["v", "2"], " ", 
             RowBox[{"(", 
              RowBox[{"-", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "HeavisideThetaSeq"]}], ")"}]}], "+", "1"}], ")"}]}]]}]},
      {
       RowBox[{"\[Nu]", "\[Rule]", "0"}]},
      {
       RowBox[{"\[Pi]", "\[Rule]", "0"}]},
      {
       RowBox[{"\[Rho]", "\[Rule]", 
        FractionBox[
         RowBox[{
          RowBox[{
           RowBox[{"-", "4"}], " ", 
           SuperscriptBox["u", "2"], " ", 
           SuperscriptBox["v", "5"], " ", 
           TemplateBox[{
             RowBox[{"v"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"u", ",", "v"}]},
            "HeavisideThetaSeq"]}], "+", 
          RowBox[{"4", " ", 
           SuperscriptBox["u", "3"], " ", 
           SuperscriptBox["v", "4"], " ", 
           TemplateBox[{
             RowBox[{"v"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"u", ",", "v"}]},
            "HeavisideThetaSeq"]}], "-", 
          RowBox[{"12", " ", 
           SuperscriptBox["u", "2"], " ", 
           SuperscriptBox["v", "4"], " ", 
           TemplateBox[{
             RowBox[{"v"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"u", ",", "v"}]},
            "HeavisideThetaSeq"]}], "+", 
          RowBox[{"6", " ", 
           SuperscriptBox["u", "4"], " ", 
           SuperscriptBox["v", "3"], " ", 
           TemplateBox[{
             RowBox[{"v"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"u", ",", "v"}]},
            "HeavisideThetaSeq"]}], "-", 
          RowBox[{"24", " ", 
           SuperscriptBox["u", "3"], " ", 
           SuperscriptBox["v", "3"], " ", 
           TemplateBox[{
             RowBox[{"v"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"u", ",", "v"}]},
            "HeavisideThetaSeq"]}], "+", 
          RowBox[{"36", " ", 
           SuperscriptBox["u", "2"], " ", 
           SuperscriptBox["v", "3"], " ", 
           TemplateBox[{
             RowBox[{"v"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"u", ",", "v"}]},
            "HeavisideThetaSeq"]}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox["u", "5"], " ", 
           SuperscriptBox["v", "2"], " ", 
           TemplateBox[{
             RowBox[{"v"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"u", ",", "v"}]},
            "HeavisideThetaSeq"]}], "-", 
          RowBox[{"10", " ", 
           SuperscriptBox["u", "4"], " ", 
           SuperscriptBox["v", "2"], " ", 
           TemplateBox[{
             RowBox[{"v"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"u", ",", "v"}]},
            "HeavisideThetaSeq"]}], "+", 
          RowBox[{"20", " ", 
           SuperscriptBox["u", "3"], " ", 
           SuperscriptBox["v", "2"], " ", 
           TemplateBox[{
             RowBox[{"v"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"u", ",", "v"}]},
            "HeavisideThetaSeq"]}], "-", 
          RowBox[{"20", " ", 
           SuperscriptBox["u", "2"], " ", 
           SuperscriptBox["v", "2"], " ", 
           TemplateBox[{
             RowBox[{"v"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"u", ",", "v"}]},
            "HeavisideThetaSeq"]}], "-", 
          RowBox[{"6", " ", "u", " ", 
           SuperscriptBox["v", "6"], " ", 
           TemplateBox[{
             RowBox[{"v"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"u", ",", "v"}]},
            "HeavisideThetaSeq"]}], "+", 
          RowBox[{"8", " ", "u", " ", 
           SuperscriptBox["v", "5"], " ", 
           TemplateBox[{
             RowBox[{"v"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"u", ",", "v"}]},
            "HeavisideThetaSeq"]}], "+", 
          RowBox[{"12", " ", "u", " ", 
           SuperscriptBox["v", "4"], " ", 
           TemplateBox[{
             RowBox[{"v"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"u", ",", "v"}]},
            "HeavisideThetaSeq"]}], "-", 
          RowBox[{"24", " ", "u", " ", 
           SuperscriptBox["v", "3"], " ", 
           TemplateBox[{
             RowBox[{"v"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"u", ",", "v"}]},
            "HeavisideThetaSeq"]}], "+", 
          RowBox[{"10", " ", "u", " ", 
           SuperscriptBox["v", "2"], " ", 
           TemplateBox[{
             RowBox[{"v"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"u", ",", "v"}]},
            "HeavisideThetaSeq"]}], "-", 
          RowBox[{"2", " ", 
           SuperscriptBox["v", "7"], " ", 
           TemplateBox[{
             RowBox[{"v"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"v"}]},
            "HeavisideThetaSeq"]}], "+", 
          RowBox[{"6", " ", 
           SuperscriptBox["v", "6"], " ", 
           TemplateBox[{
             RowBox[{"v"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"v"}]},
            "HeavisideThetaSeq"]}], "-", 
          RowBox[{"4", " ", 
           SuperscriptBox["v", "5"], " ", 
           TemplateBox[{
             RowBox[{"v"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"v"}]},
            "HeavisideThetaSeq"]}], "-", 
          RowBox[{"4", " ", 
           SuperscriptBox["v", "4"], " ", 
           TemplateBox[{
             RowBox[{"v"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"v"}]},
            "HeavisideThetaSeq"]}], "+", 
          RowBox[{"6", " ", 
           SuperscriptBox["v", "3"], " ", 
           TemplateBox[{
             RowBox[{"v"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"v"}]},
            "HeavisideThetaSeq"]}], "-", 
          RowBox[{"2", " ", 
           SuperscriptBox["v", "2"], " ", 
           TemplateBox[{
             RowBox[{"v"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"v"}]},
            "HeavisideThetaSeq"]}], "-", 
          RowBox[{"2", " ", "v", " ", 
           TemplateBox[{
             RowBox[{"v"}]},
            "HeavisideThetaSeq"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "u"}], " ", 
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"]}], "+", 
             RowBox[{"v", " ", 
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"]}], "+", "1"}], ")"}], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"u", " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "HeavisideThetaSeq"]}], "+", 
              RowBox[{"v", " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "4"]}]}], 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"u", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"]}], "-", 
            RowBox[{"v", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], "-", "1"}], ")"}], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"u", " ", 
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"]}], "+", 
             RowBox[{"v", " ", 
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "4"], " ", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"u", " ", 
                TemplateBox[{
                  RowBox[{"u"}]},
                 "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"], "-", 
            RowBox[{
             SuperscriptBox["v", "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}]}], ")"}]}]]}]},
      {
       RowBox[{"\[Sigma]", "\[Rule]", 
        FractionBox[
         RowBox[{
          RowBox[{"6", " ", 
           SuperscriptBox["u", "5"], " ", 
           SuperscriptBox["v", "2"], " ", 
           TemplateBox[{
             RowBox[{"v"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"u", ",", "v"}]},
            "HeavisideThetaSeq"]}], "+", 
          RowBox[{"4", " ", 
           SuperscriptBox["u", "4"], " ", 
           SuperscriptBox["v", "3"], " ", 
           TemplateBox[{
             RowBox[{"v"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"u", ",", "v"}]},
            "HeavisideThetaSeq"]}], "-", 
          RowBox[{"30", " ", 
           SuperscriptBox["u", "4"], " ", 
           SuperscriptBox["v", "2"], " ", 
           TemplateBox[{
             RowBox[{"v"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"u", ",", "v"}]},
            "HeavisideThetaSeq"]}], "-", 
          RowBox[{"4", " ", 
           SuperscriptBox["u", "3"], " ", 
           SuperscriptBox["v", "4"], " ", 
           TemplateBox[{
             RowBox[{"v"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"u", ",", "v"}]},
            "HeavisideThetaSeq"]}], "-", 
          RowBox[{"16", " ", 
           SuperscriptBox["u", "3"], " ", 
           SuperscriptBox["v", "3"], " ", 
           TemplateBox[{
             RowBox[{"v"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"u", ",", "v"}]},
            "HeavisideThetaSeq"]}], "+", 
          RowBox[{"60", " ", 
           SuperscriptBox["u", "3"], " ", 
           SuperscriptBox["v", "2"], " ", 
           TemplateBox[{
             RowBox[{"v"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"u", ",", "v"}]},
            "HeavisideThetaSeq"]}], "-", 
          RowBox[{"6", " ", 
           SuperscriptBox["u", "2"], " ", 
           SuperscriptBox["v", "5"], " ", 
           TemplateBox[{
             RowBox[{"v"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"u", ",", "v"}]},
            "HeavisideThetaSeq"]}], "+", 
          RowBox[{"12", " ", 
           SuperscriptBox["u", "2"], " ", 
           SuperscriptBox["v", "4"], " ", 
           TemplateBox[{
             RowBox[{"v"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"u", ",", "v"}]},
            "HeavisideThetaSeq"]}], "+", 
          RowBox[{"24", " ", 
           SuperscriptBox["u", "2"], " ", 
           SuperscriptBox["v", "3"], " ", 
           TemplateBox[{
             RowBox[{"v"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"u", ",", "v"}]},
            "HeavisideThetaSeq"]}], "-", 
          RowBox[{"60", " ", 
           SuperscriptBox["u", "2"], " ", 
           SuperscriptBox["v", "2"], " ", 
           TemplateBox[{
             RowBox[{"v"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"u", ",", "v"}]},
            "HeavisideThetaSeq"]}], "-", 
          RowBox[{"2", " ", "u", " ", 
           SuperscriptBox["v", "6"], " ", 
           TemplateBox[{
             RowBox[{"v"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"u", ",", "v"}]},
            "HeavisideThetaSeq"]}], "+", 
          RowBox[{"12", " ", "u", " ", 
           SuperscriptBox["v", "5"], " ", 
           TemplateBox[{
             RowBox[{"v"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"u", ",", "v"}]},
            "HeavisideThetaSeq"]}], "-", 
          RowBox[{"12", " ", "u", " ", 
           SuperscriptBox["v", "4"], " ", 
           TemplateBox[{
             RowBox[{"v"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"u", ",", "v"}]},
            "HeavisideThetaSeq"]}], "-", 
          RowBox[{"16", " ", "u", " ", 
           SuperscriptBox["v", "3"], " ", 
           TemplateBox[{
             RowBox[{"v"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"u", ",", "v"}]},
            "HeavisideThetaSeq"]}], "+", 
          RowBox[{"30", " ", "u", " ", 
           SuperscriptBox["v", "2"], " ", 
           TemplateBox[{
             RowBox[{"v"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"u", ",", "v"}]},
            "HeavisideThetaSeq"]}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox["u", "6"], " ", "v", " ", 
           TemplateBox[{
             RowBox[{"v"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"u"}]},
            "HeavisideThetaSeq"]}], "-", 
          RowBox[{"12", " ", 
           SuperscriptBox["u", "5"], " ", "v", " ", 
           TemplateBox[{
             RowBox[{"v"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"u"}]},
            "HeavisideThetaSeq"]}], "+", 
          RowBox[{"30", " ", 
           SuperscriptBox["u", "4"], " ", "v", " ", 
           TemplateBox[{
             RowBox[{"v"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"u"}]},
            "HeavisideThetaSeq"]}], "-", 
          RowBox[{"40", " ", 
           SuperscriptBox["u", "3"], " ", "v", " ", 
           TemplateBox[{
             RowBox[{"v"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"u"}]},
            "HeavisideThetaSeq"]}], "+", 
          RowBox[{"30", " ", 
           SuperscriptBox["u", "2"], " ", "v", " ", 
           TemplateBox[{
             RowBox[{"v"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"u"}]},
            "HeavisideThetaSeq"]}], "-", 
          RowBox[{"12", " ", "u", " ", "v", " ", 
           TemplateBox[{
             RowBox[{"v"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"u"}]},
            "HeavisideThetaSeq"]}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox["v", "6"], " ", 
           TemplateBox[{
             RowBox[{"v"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"v"}]},
            "HeavisideThetaSeq"]}], "-", 
          RowBox[{"6", " ", 
           SuperscriptBox["v", "5"], " ", 
           TemplateBox[{
             RowBox[{"v"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"v"}]},
            "HeavisideThetaSeq"]}], "+", 
          RowBox[{"4", " ", 
           SuperscriptBox["v", "4"], " ", 
           TemplateBox[{
             RowBox[{"v"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"v"}]},
            "HeavisideThetaSeq"]}], "+", 
          RowBox[{"4", " ", 
           SuperscriptBox["v", "3"], " ", 
           TemplateBox[{
             RowBox[{"v"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"v"}]},
            "HeavisideThetaSeq"]}], "-", 
          RowBox[{"6", " ", 
           SuperscriptBox["v", "2"], " ", 
           TemplateBox[{
             RowBox[{"v"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"v"}]},
            "HeavisideThetaSeq"]}], "+", 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"u", " ", 
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"]}], "-", "1"}], ")"}], " ", 
           TemplateBox[{
             RowBox[{"v"}]},
            "HeavisideThetaSeq"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"u", " ", 
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"]}], "-", 
             RowBox[{"v", " ", 
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"]}], "-", "1"}], ")"}], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"u", " ", 
               TemplateBox[{
                 RowBox[{"u"}]},
                "HeavisideThetaSeq"]}], "+", 
              RowBox[{"v", " ", 
               TemplateBox[{
                 RowBox[{"v"}]},
                "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "4"]}]}], 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"u", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"]}], "-", 
            RowBox[{"v", " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], "-", "1"}], ")"}], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"u", " ", 
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"]}], "+", 
             RowBox[{"v", " ", 
              TemplateBox[{
                RowBox[{"v"}]},
               "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "4"], " ", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"u", " ", 
                TemplateBox[{
                  RowBox[{"u"}]},
                 "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"], "-", 
            RowBox[{
             SuperscriptBox["v", "2"], " ", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}]}], ")"}]}]]}]},
      {
       RowBox[{"\[Tau]", "\[Rule]", "0"}]}
     },
     GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}],
    Column],
   Function[BoxForm`e$, 
    TableForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.824035961532851*^9, 3.8240360023358793`*^9}, 
   3.825289139119437*^9},
 CellLabel->
  "Out[312]//TraditionalForm=",ExpressionUUID->"18958083-5d72-41c1-b282-\
ffe6cd70b80b"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "ricciScalarsReplace", "]"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ricciScalarsReplace", " ", "=", " ", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        SubscriptBox["\[CapitalPhi]", "oo"], "\[Rule]", " ", 
        RowBox[{"(*", " ", 
         RowBox[{
         "subscripts", " ", "used", " ", "here", " ", "are", " ", "the", " ", 
          "letter", " ", "\"\<O\>\"", " ", "not", " ", "the", " ", "number", 
          " ", 
          RowBox[{"\"\<0\>\"", ".", "  ", "For"}], " ", "whatever", " ", 
          "reason", " ", "the", " ", "occurence", " ", "of", " ", "two", " ", 
          "zeros", " ", "as", " ", "subscripts", " ", "evaluated", " ", "as", 
          " ", "a", " ", "product", " ", "and", " ", "gives", " ", "zero"}], 
         "  ", "*)"}], " ", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"(", 
          FractionBox[
           RowBox[{"-", "1"}], "2"], ")"}], "*", 
         RowBox[{"TensorValues", "[", 
          RowBox[{"MergeTensors", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"tensorList", "[", 
              RowBox[{"[", "4", "]"}], "]"}], "[", 
             RowBox[{
              RowBox[{"-", "\[Mu]"}], ",", 
              RowBox[{"-", "\[Nu]"}]}], "]"}], 
            RowBox[{"l", "[", "\[Mu]", "]"}], 
            RowBox[{"l", "[", "\[Nu]", "]"}]}], "]"}], "]"}]}]}], " ", "//", 
       " ", "Expand"}], " ", "//", " ", "FullSimplify"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{
        SubscriptBox["\[CapitalPhi]", "O1"], "\[Rule]", " ", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"(", 
          FractionBox[
           RowBox[{"-", "1"}], "2"], ")"}], "*", 
         RowBox[{"TensorValues", "[", 
          RowBox[{"MergeTensors", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"tensorList", "[", 
              RowBox[{"[", "4", "]"}], "]"}], "[", 
             RowBox[{
              RowBox[{"-", "\[Mu]"}], ",", 
              RowBox[{"-", "\[Nu]"}]}], "]"}], 
            RowBox[{"l", "[", "\[Mu]", "]"}], 
            RowBox[{"m", "[", "\[Nu]", "]"}]}], "]"}], "]"}]}]}], " ", "//", 
       " ", "Expand"}], " ", "//", " ", "FullSimplify"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{
        SubscriptBox["\[CapitalPhi]", "O2"], "\[Rule]", " ", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"(", 
          FractionBox[
           RowBox[{"-", "1"}], "2"], ")"}], "*", 
         RowBox[{"TensorValues", "[", 
          RowBox[{"MergeTensors", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"tensorList", "[", 
              RowBox[{"[", "4", "]"}], "]"}], "[", 
             RowBox[{
              RowBox[{"-", "\[Mu]"}], ",", 
              RowBox[{"-", "\[Nu]"}]}], "]"}], 
            RowBox[{"m", "[", "\[Mu]", "]"}], 
            RowBox[{"m", "[", "\[Nu]", "]"}]}], "]"}], "]"}]}]}], " ", "//", 
       " ", "Expand"}], " ", "//", " ", "FullSimplify"}], ",", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{
        SubscriptBox["\[CapitalPhi]", "10"], "\[Rule]", " ", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"(", 
          FractionBox[
           RowBox[{"-", "1"}], "2"], ")"}], "*", 
         RowBox[{"TensorValues", "[", 
          RowBox[{"MergeTensors", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"tensorList", "[", 
              RowBox[{"[", "4", "]"}], "]"}], "[", 
             RowBox[{
              RowBox[{"-", "\[Mu]"}], ",", 
              RowBox[{"-", "\[Nu]"}]}], "]"}], 
            RowBox[{"l", "[", "\[Mu]", "]"}], 
            RowBox[{"mbar", "[", "\[Nu]", "]"}]}], "]"}], "]"}]}]}], "  ", "//",
        " ", "Expand"}], " ", "//", " ", "Simplify"}], " ", ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{
        SubscriptBox["\[CapitalPhi]", "11"], "\[Rule]", " ", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"(", 
          FractionBox[
           RowBox[{"-", "1"}], "4"], ")"}], "*", 
         RowBox[{"(", " ", 
          RowBox[{
           RowBox[{"(", " ", 
            RowBox[{"TensorValues", "[", 
             RowBox[{"MergeTensors", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"tensorList", "[", 
                 RowBox[{"[", "4", "]"}], "]"}], "[", 
                RowBox[{
                 RowBox[{"-", "\[Mu]"}], ",", 
                 RowBox[{"-", "\[Nu]"}]}], "]"}], 
               RowBox[{"l", "[", "\[Mu]", "]"}], 
               RowBox[{"n", "[", "\[Nu]", "]"}]}], "]"}], "]"}], ")"}], "+", 
           " ", 
           RowBox[{"(", 
            RowBox[{"TensorValues", "[", 
             RowBox[{"MergeTensors", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"tensorList", "[", 
                 RowBox[{"[", "4", "]"}], "]"}], "[", 
                RowBox[{
                 RowBox[{"-", "\[Mu]"}], ",", 
                 RowBox[{"-", "\[Nu]"}]}], "]"}], 
               RowBox[{"m", "[", "\[Mu]", "]"}], 
               RowBox[{"mbar", "[", "\[Nu]", "]"}]}], "]"}], "]"}], ")"}]}], 
          ")"}]}]}], " ", "//", " ", "Expand"}], " ", "//", " ", 
      "FullSimplify"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{
        SubscriptBox["\[CapitalPhi]", "12"], "\[Rule]", " ", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"(", 
          FractionBox[
           RowBox[{"-", "1"}], "2"], ")"}], "*", 
         RowBox[{"TensorValues", "[", 
          RowBox[{"MergeTensors", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"tensorList", "[", 
              RowBox[{"[", "4", "]"}], "]"}], "[", 
             RowBox[{
              RowBox[{"-", "\[Mu]"}], ",", 
              RowBox[{"-", "\[Nu]"}]}], "]"}], 
            RowBox[{"n", "[", "\[Mu]", "]"}], 
            RowBox[{"m", "[", "\[Nu]", "]"}]}], "]"}], "]"}]}]}], " ", "//", 
       " ", "Expand"}], " ", "//", " ", "FullSimplify"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{
        SubscriptBox["\[CapitalPhi]", "20"], "\[Rule]", " ", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"(", 
          FractionBox[
           RowBox[{"-", "1"}], "2"], ")"}], "*", 
         RowBox[{"TensorValues", "[", 
          RowBox[{"MergeTensors", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"tensorList", "[", 
              RowBox[{"[", "4", "]"}], "]"}], "[", 
             RowBox[{
              RowBox[{"-", "\[Mu]"}], ",", 
              RowBox[{"-", "\[Nu]"}]}], "]"}], 
            RowBox[{"mbar", "[", "\[Mu]", "]"}], 
            RowBox[{"mbar", "[", "\[Nu]", "]"}]}], "]"}], "]"}]}]}], "//", 
       " ", "Expand"}], " ", "//", " ", "Simplify"}], " ", ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{
        SubscriptBox["\[CapitalPhi]", "21"], "\[Rule]", " ", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"(", 
          FractionBox[
           RowBox[{"-", "1"}], "2"], ")"}], "*", 
         RowBox[{"TensorValues", "[", 
          RowBox[{"MergeTensors", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"tensorList", "[", 
              RowBox[{"[", "4", "]"}], "]"}], "[", 
             RowBox[{
              RowBox[{"-", "\[Mu]"}], ",", 
              RowBox[{"-", "\[Nu]"}]}], "]"}], 
            RowBox[{"n", "[", "\[Mu]", "]"}], 
            RowBox[{"mbar", "[", "\[Nu]", "]"}]}], "]"}], "]"}]}]}], "  ", "//",
        " ", "Expand"}], " ", "//", " ", "Simplify"}], " ", ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{
        SubscriptBox["\[CapitalPhi]", "22"], "\[Rule]", " ", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"(", 
          FractionBox[
           RowBox[{"-", "1"}], "2"], ")"}], "*", 
         RowBox[{"TensorValues", "[", 
          RowBox[{"MergeTensors", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"tensorList", "[", 
              RowBox[{"[", "4", "]"}], "]"}], "[", 
             RowBox[{
              RowBox[{"-", "\[Mu]"}], ",", 
              RowBox[{"-", "\[Nu]"}]}], "]"}], 
            RowBox[{"n", "[", "\[Mu]", "]"}], 
            RowBox[{"n", "[", "\[Nu]", "]"}]}], "]"}], "]"}]}]}], "//", " ", 
       "Expand"}], " ", "//", " ", "FullSimplify"}], " ", ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"\[CapitalLambda]", "\[Rule]", " ", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"(", 
          FractionBox["1", "24"], ")"}], "*", 
         RowBox[{"TensorValues", "[", 
          RowBox[{"tensorList", "[", 
           RowBox[{"[", "5", "]"}], "]"}], "]"}]}]}], "//", " ", "Expand"}], 
      " ", "//", " ", "FullSimplify"}]}], "\[IndentingNewLine]", "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"ricciScalarsReplace", "   ", "//", " ", "Together"}], " ", "//", 
    " ", "FullSimplify"}], "  ", "//", " ", "TableForm"}], " ", "//", " ", 
  "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.8207941683808823`*^9, 3.820794170188884*^9}, {
   3.820794210004217*^9, 3.820794295371916*^9}, {3.820794355374641*^9, 
   3.8207944173021507`*^9}, {3.8209358220143003`*^9, 3.820935854138783*^9}, 
   3.820937334270711*^9, {3.821003405651829*^9, 3.821003467622817*^9}, {
   3.821003736380765*^9, 3.821003748704556*^9}, {3.8240360153251667`*^9, 
   3.8240360240452023`*^9}, 3.8252891391195374`*^9},
 CellLabel->
  "In[313]:=",ExpressionUUID->"41ac8d40-14fb-4004-bd54-5925b92e4f43"],

Cell[BoxData[
 FormBox[
  TagBox[
   TagBox[GridBox[{
      {
       RowBox[{
        SubscriptBox["\[CapitalPhi]", "oo"], "\[Rule]", 
        FractionBox[
         RowBox[{"v", " ", 
          TemplateBox[{
            RowBox[{"v"}]},
           "DiracDeltaSeq"], " ", 
          TemplateBox[{
            RowBox[{"v"}]},
           "HeavisideThetaSeq"]}], 
         RowBox[{
          RowBox[{
           SuperscriptBox["v", "2"], " ", 
           TemplateBox[{
             RowBox[{"v"}]},
            "HeavisideThetaSeq"]}], "-", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"u", " ", 
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"]}]]}]},
      {
       RowBox[{
        SubscriptBox["\[CapitalPhi]", "O1"], "\[Rule]", "0"}]},
      {
       RowBox[{
        SubscriptBox["\[CapitalPhi]", "O2"], "\[Rule]", "0"}]},
      {
       RowBox[{
        SubscriptBox["\[CapitalPhi]", "10"], "\[Rule]", "0"}]},
      {
       RowBox[{
        SubscriptBox["\[CapitalPhi]", "11"], "\[Rule]", "0"}]},
      {
       RowBox[{
        SubscriptBox["\[CapitalPhi]", "12"], "\[Rule]", "0"}]},
      {
       RowBox[{
        SubscriptBox["\[CapitalPhi]", "20"], "\[Rule]", "0"}]},
      {
       RowBox[{
        SubscriptBox["\[CapitalPhi]", "21"], "\[Rule]", "0"}]},
      {
       RowBox[{
        SubscriptBox["\[CapitalPhi]", "22"], "\[Rule]", 
        FractionBox[
         RowBox[{
          TemplateBox[{
            RowBox[{"u"}]},
           "DiracDeltaSeq"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"u", " ", 
             TemplateBox[{
               RowBox[{"u"}]},
              "HeavisideThetaSeq"]}], "-", "1"}], ")"}]}], 
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"u", " ", 
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"], "-", 
          RowBox[{
           SuperscriptBox["v", "2"], " ", 
           TemplateBox[{
             RowBox[{"v"}]},
            "HeavisideThetaSeq"]}]}]]}]},
      {
       RowBox[{"\[CapitalLambda]", "\[Rule]", "0"}]}
     },
     GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}],
    Column],
   Function[BoxForm`e$, 
    TableForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.824036024794104*^9, 3.8252891391196117`*^9},
 CellLabel->
  "Out[315]//TraditionalForm=",ExpressionUUID->"6644ba04-2f52-4fb3-bd2c-\
d84493866994"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "weylScalarsReplace", "]"}], 
  RowBox[{"(*", " ", 
   RowBox[{"Definitions", " ", "from", " ", "Griffiths"}], " ", "*)"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"weylScalarsReplace", " ", "=", " ", 
   RowBox[{"{", "\[IndentingNewLine]", "\[IndentingNewLine]", "   ", 
    RowBox[{
     RowBox[{
      RowBox[{
       SubscriptBox["\[CapitalPsi]", "0"], "\[Rule]", " ", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"-", "1"}], ")"}], "*", 
        RowBox[{"TensorValues", "[", 
         RowBox[{"MergeTensors", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"tensorList", "[", 
             RowBox[{"[", "8", "]"}], "]"}], "[", 
            RowBox[{
             RowBox[{"-", "\[Kappa]"}], ",", 
             RowBox[{"-", "\[Lambda]"}], ",", 
             RowBox[{"-", "\[Mu]"}], ",", 
             RowBox[{"-", "\[Nu]"}]}], "]"}], 
           RowBox[{"l", "[", "\[Kappa]", "]"}], 
           RowBox[{"m", "[", "\[Lambda]", "]"}], 
           RowBox[{"l", "[", "\[Mu]", "]"}], 
           RowBox[{"m", "[", "\[Nu]", "]"}]}], "]"}], "]"}]}]}], "//", " ", 
      "Expand"}], " ", ",", " ", "\n", "\t ", 
     RowBox[{
      RowBox[{
       SubscriptBox["\[CapitalPsi]", "1"], "\[Rule]", " ", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"-", "1"}], ")"}], "*", 
        RowBox[{"TensorValues", "[", 
         RowBox[{"MergeTensors", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"tensorList", "[", 
             RowBox[{"[", "8", "]"}], "]"}], "[", 
            RowBox[{
             RowBox[{"-", "\[Kappa]"}], ",", 
             RowBox[{"-", "\[Lambda]"}], ",", 
             RowBox[{"-", "\[Mu]"}], ",", 
             RowBox[{"-", "\[Nu]"}]}], "]"}], 
           RowBox[{"l", "[", "\[Kappa]", "]"}], 
           RowBox[{"n", "[", "\[Lambda]", "]"}], 
           RowBox[{"l", "[", "\[Mu]", "]"}], 
           RowBox[{"m", "[", "\[Nu]", "]"}]}], "]"}], "]"}]}]}], "//", " ", 
      "Expand"}], "  ", ",", " ", "\n", "\t ", 
     RowBox[{
      RowBox[{
       SubscriptBox["\[CapitalPsi]", "2"], "\[Rule]", " ", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"-", "1"}], ")"}], "*", 
        RowBox[{"TensorValues", "[", 
         RowBox[{"MergeTensors", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"tensorList", "[", 
             RowBox[{"[", "8", "]"}], "]"}], "[", 
            RowBox[{
             RowBox[{"-", "\[Kappa]"}], ",", 
             RowBox[{"-", "\[Lambda]"}], ",", 
             RowBox[{"-", "\[Mu]"}], ",", 
             RowBox[{"-", "\[Nu]"}]}], "]"}], 
           RowBox[{"l", "[", "\[Kappa]", "]"}], 
           RowBox[{"m", "[", "\[Lambda]", "]"}], 
           RowBox[{"mbar", "[", "\[Mu]", "]"}], 
           RowBox[{"n", "[", "\[Nu]", "]"}]}], "]"}], "]"}]}]}], " ", "//", 
      " ", "Expand"}], " ", ",", " ", "\n", "\t ", 
     RowBox[{
      RowBox[{
       SubscriptBox["\[CapitalPsi]", "3"], "\[Rule]", " ", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"-", "1"}], ")"}], "*", 
        RowBox[{"TensorValues", "[", 
         RowBox[{"MergeTensors", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"tensorList", "[", 
             RowBox[{"[", "8", "]"}], "]"}], "[", 
            RowBox[{
             RowBox[{"-", "\[Kappa]"}], ",", 
             RowBox[{"-", "\[Lambda]"}], ",", 
             RowBox[{"-", "\[Mu]"}], ",", 
             RowBox[{"-", "\[Nu]"}]}], "]"}], 
           RowBox[{"n", "[", "\[Kappa]", "]"}], 
           RowBox[{"l", "[", "\[Lambda]", "]"}], 
           RowBox[{"n", "[", "\[Mu]", "]"}], 
           RowBox[{"mbar", "[", "\[Nu]", "]"}]}], "]"}], "]"}]}]}], "//", " ",
       "Expand"}], "  ", ",", " ", "\n", "\t ", 
     RowBox[{
      RowBox[{
       SubscriptBox["\[CapitalPsi]", "4"], "\[Rule]", " ", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"-", "1"}], ")"}], "*", 
        RowBox[{"TensorValues", "[", 
         RowBox[{"MergeTensors", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"tensorList", "[", 
             RowBox[{"[", "8", "]"}], "]"}], "[", 
            RowBox[{
             RowBox[{"-", "\[Kappa]"}], ",", 
             RowBox[{"-", "\[Lambda]"}], ",", 
             RowBox[{"-", "\[Mu]"}], ",", 
             RowBox[{"-", "\[Nu]"}]}], "]"}], 
           RowBox[{"n", "[", "\[Kappa]", "]"}], 
           RowBox[{"mbar", "[", "\[Lambda]", "]"}], 
           RowBox[{"n", "[", "\[Mu]", "]"}], 
           RowBox[{"mbar", "[", "\[Nu]", "]"}]}], "]"}], "]"}]}]}], "//", " ",
       "Expand"}]}], " ", "\[IndentingNewLine]", "}"}]}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"weylScalarsReplace", "   ", "//", " ", "Together"}], " ", "//", 
    " ", "FullSimplify"}], " ", "//", " ", "TableForm"}], " ", "//", " ", 
  "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.820667112308317*^9, {3.8206919186046867`*^9, 3.820691920188485*^9}, {
   3.820794507895151*^9, 3.820794582921618*^9}, 3.820937334271385*^9, 
   3.821003405651976*^9, {3.8240360379657173`*^9, 3.824036074372197*^9}, 
   3.825289139119692*^9},
 CellLabel->
  "In[319]:=",ExpressionUUID->"d12b2c41-8241-4226-849a-ffdae3be2e7c"],

Cell[BoxData[
 FormBox[
  TagBox[
   TagBox[GridBox[{
      {
       RowBox[{
        SubscriptBox["\[CapitalPsi]", "0"], "\[Rule]", 
        FractionBox[
         RowBox[{
          TemplateBox[{
            RowBox[{"v"}]},
           "DiracDeltaSeq"], "-", 
          RowBox[{"u", " ", 
           TemplateBox[{
             RowBox[{"v"}]},
            "DiracDeltaSeq"], " ", 
           TemplateBox[{
             RowBox[{"u"}]},
            "HeavisideThetaSeq"]}]}], 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"u", "-", "2"}], ")"}], " ", "u", " ", 
           TemplateBox[{
             RowBox[{"u"}]},
            "HeavisideThetaSeq"]}], "+", 
          RowBox[{
           SuperscriptBox["v", "2"], " ", 
           RowBox[{"(", 
            RowBox[{"-", 
             TemplateBox[{
               RowBox[{"v"}]},
              "HeavisideThetaSeq"]}], ")"}]}], "+", "1"}]]}]},
      {
       RowBox[{
        SubscriptBox["\[CapitalPsi]", "1"], "\[Rule]", "0"}]},
      {
       RowBox[{
        SubscriptBox["\[CapitalPsi]", "2"], "\[Rule]", "0"}]},
      {
       RowBox[{
        SubscriptBox["\[CapitalPsi]", "3"], "\[Rule]", "0"}]},
      {
       RowBox[{
        SubscriptBox["\[CapitalPsi]", "4"], "\[Rule]", 
        FractionBox[
         RowBox[{"v", " ", 
          TemplateBox[{
            RowBox[{"u"}]},
           "DiracDeltaSeq"], " ", 
          TemplateBox[{
            RowBox[{"v"}]},
           "HeavisideThetaSeq"]}], 
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"u", " ", 
              TemplateBox[{
                RowBox[{"u"}]},
               "HeavisideThetaSeq"]}], "-", "1"}], ")"}], "2"], "-", 
          RowBox[{
           SuperscriptBox["v", "2"], " ", 
           TemplateBox[{
             RowBox[{"v"}]},
            "HeavisideThetaSeq"]}]}]]}]}
     },
     GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}],
    Column],
   Function[BoxForm`e$, 
    TableForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.824036059235134*^9, 3.824036082306098*^9}, 
   3.825289139119766*^9},
 CellLabel->
  "Out[321]//TraditionalForm=",ExpressionUUID->"e0785fbb-8edf-4cbe-b3c0-\
abf9d3d5397c"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"spinCoefficientReplace", "[", 
    RowBox[{"[", "10", "]"}], "]"}], " ", "/.", 
   RowBox[{"u", "\[Rule]", " ", "0"}]}], "  "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"spinCoefficientReplace", "[", 
   RowBox[{"[", "10", "]"}], "]"}], " ", "/.", 
  RowBox[{"v", "\[Rule]", " ", "0", "  "}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.824036367222404*^9, 3.824036370791587*^9}, {
   3.824036461768281*^9, 3.824036542288232*^9}, {3.824036662529806*^9, 
   3.824036665631667*^9}, 3.825289139119845*^9},
 CellLabel->
  "In[338]:=",ExpressionUUID->"edd66210-90cf-4691-ba81-e5d845ae51dc"],

Cell[BoxData[
 RowBox[{"\[Rho]", "\[Rule]", 
  RowBox[{
   FractionBox[
    RowBox[{"v", " ", 
     RowBox[{"DiracDelta", "[", "v", "]"}]}], 
    RowBox[{
     RowBox[{"-", "2"}], "-", 
     RowBox[{"2", " ", "v", " ", 
      RowBox[{"HeavisideTheta", "[", "v", "]"}]}]}]], "+", 
   FractionBox[
    RowBox[{"v", " ", 
     RowBox[{"DiracDelta", "[", "v", "]"}]}], 
    RowBox[{"2", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        RowBox[{"v", " ", 
         RowBox[{"HeavisideTheta", "[", "v", "]"}]}]}], ")"}], "4"]}]], "-", 
   FractionBox[
    RowBox[{"3", " ", 
     SuperscriptBox["v", "2"], " ", 
     RowBox[{"DiracDelta", "[", "v", "]"}], " ", 
     RowBox[{"HeavisideTheta", "[", "v", "]"}]}], 
    RowBox[{"2", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        RowBox[{"v", " ", 
         RowBox[{"HeavisideTheta", "[", "v", "]"}]}]}], ")"}], "4"]}]], "+", 
   FractionBox[
    RowBox[{"3", " ", 
     SuperscriptBox["v", "3"], " ", 
     RowBox[{"DiracDelta", "[", "v", "]"}], " ", 
     RowBox[{"HeavisideTheta", "[", "v", "]"}]}], 
    RowBox[{"2", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        RowBox[{"v", " ", 
         RowBox[{"HeavisideTheta", "[", "v", "]"}]}]}], ")"}], "4"]}]], "-", 
   FractionBox[
    RowBox[{
     SuperscriptBox["v", "4"], " ", 
     RowBox[{"DiracDelta", "[", "v", "]"}], " ", 
     RowBox[{"HeavisideTheta", "[", "v", "]"}]}], 
    RowBox[{"2", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        RowBox[{"v", " ", 
         RowBox[{"HeavisideTheta", "[", "v", "]"}]}]}], ")"}], "4"]}]], "+", 
   FractionBox[
    RowBox[{"v", " ", 
     RowBox[{"HeavisideTheta", "[", "v", "]"}]}], 
    RowBox[{"1", "-", 
     RowBox[{
      SuperscriptBox["v", "2"], " ", 
      RowBox[{"HeavisideTheta", "[", "v", "]"}]}]}]]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.824036509850305*^9, 3.824036542607348*^9}, 
   3.824036666256681*^9, 3.825289139119939*^9},
 CellLabel->
  "Out[338]=",ExpressionUUID->"9bd6340e-0b5c-4c3f-94f8-bfca6dae88f2"],

Cell[BoxData[
 RowBox[{"\[Rho]", "\[Rule]", "0"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.824036509850305*^9, 3.824036542607348*^9}, 
   3.8240366662616158`*^9, 3.825289139120018*^9},
 CellLabel->
  "Out[339]=",ExpressionUUID->"501a2de6-cd82-41ca-a7ca-89d01922dbb9"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"spinCoefficientReplace", "[", 
     RowBox[{"[", "11", "]"}], "]"}], " ", "/.", " ", 
    RowBox[{"u", "\[Rule]", " ", "0"}]}], "   ", "/.", " ", 
   RowBox[{
    RowBox[{"DiracDelta", "[", "v", "]"}], "\[Rule]", " ", "1"}]}], 
  "   "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"spinCoefficientReplace", "[", 
   RowBox[{"[", "11", "]"}], "]"}], " ", "/.", " ", 
  RowBox[{"v", "\[Rule]", " ", "1", "   "}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.824036383430359*^9, 3.824036383549652*^9}, {
   3.824036580599121*^9, 3.824036605034081*^9}, {3.824036676336718*^9, 
   3.8240367487969503`*^9}, 3.825289139120089*^9},
 CellLabel->
  "In[355]:=",ExpressionUUID->"9cc863d4-0dbc-4a9d-89a8-93163a715141"],

Cell[BoxData[
 RowBox[{"\[Sigma]", "\[Rule]", 
  RowBox[{
   FractionBox["v", 
    RowBox[{
     RowBox[{"-", "2"}], "-", 
     RowBox[{"2", " ", "v", " ", 
      RowBox[{"HeavisideTheta", "[", "v", "]"}]}]}]], "-", 
   FractionBox["v", 
    RowBox[{"2", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        RowBox[{"v", " ", 
         RowBox[{"HeavisideTheta", "[", "v", "]"}]}]}], ")"}], "4"]}]], "+", 
   FractionBox[
    RowBox[{"3", " ", 
     SuperscriptBox["v", "2"], " ", 
     RowBox[{"HeavisideTheta", "[", "v", "]"}]}], 
    RowBox[{"2", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        RowBox[{"v", " ", 
         RowBox[{"HeavisideTheta", "[", "v", "]"}]}]}], ")"}], "4"]}]], "-", 
   FractionBox[
    RowBox[{"3", " ", 
     SuperscriptBox["v", "3"], " ", 
     RowBox[{"HeavisideTheta", "[", "v", "]"}]}], 
    RowBox[{"2", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        RowBox[{"v", " ", 
         RowBox[{"HeavisideTheta", "[", "v", "]"}]}]}], ")"}], "4"]}]], "+", 
   FractionBox[
    RowBox[{
     SuperscriptBox["v", "4"], " ", 
     RowBox[{"HeavisideTheta", "[", "v", "]"}]}], 
    RowBox[{"2", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        RowBox[{"v", " ", 
         RowBox[{"HeavisideTheta", "[", "v", "]"}]}]}], ")"}], "4"]}]], "-", 
   FractionBox[
    RowBox[{"HeavisideTheta", "[", "v", "]"}], 
    RowBox[{"1", "-", 
     RowBox[{
      SuperscriptBox["v", "2"], " ", 
      RowBox[{"HeavisideTheta", "[", "v", "]"}]}]}]]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.824036385049761*^9, {3.824036583131544*^9, 3.824036605721168*^9}, {
   3.824036682063468*^9, 3.8240367493698063`*^9}, 3.825289139120173*^9},
 CellLabel->
  "Out[355]=",ExpressionUUID->"b047cdba-562e-4b80-987c-32f4572df43c"],

Cell[BoxData[
 RowBox[{"\[Sigma]", "\[Rule]", 
  FractionBox[
   RowBox[{
    RowBox[{"-", "1"}], "+", 
    RowBox[{"u", " ", 
     RowBox[{"HeavisideTheta", "[", "u", "]"}]}]}], 
   RowBox[{
    RowBox[{"-", "1"}], "+", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       RowBox[{"u", " ", 
        RowBox[{"HeavisideTheta", "[", "u", "]"}]}]}], ")"}], 
     "2"]}]]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{
  3.824036385049761*^9, {3.824036583131544*^9, 3.824036605721168*^9}, {
   3.824036682063468*^9, 3.824036749373397*^9}, 3.825289139120275*^9},
 CellLabel->
  "Out[356]=",ExpressionUUID->"57a111ba-1883-4be3-b6b2-0713f071e837"]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq3", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq3", " ", "=", " ", 
   RowBox[{
    RowBox[{"{", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"T", " ", "\[Equal]", " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"U", "+", "V"}], ")"}], "/", "c"}]}], " ", ",", " ", 
      "\[IndentingNewLine]", 
      RowBox[{"X", " ", "\[Equal]", " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "u"}], ")"}], "x"}]}], " ", ",", " ", 
      "\[IndentingNewLine]", 
      RowBox[{"Z", " ", "\[Equal]", " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"U", "-", "V"}], ")"}], "/", "c"}]}], " ", ",", " ", 
      "\[IndentingNewLine]", 
      RowBox[{"Y", " ", "\[Equal]", " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "u"}], ")"}], "y"}]}]}], "\[IndentingNewLine]", 
     "}"}], " ", "/.", " ", 
    RowBox[{"c", "\[Rule]", " ", 
     SqrtBox["2"]}]}]}], "  ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq3", " ", "//", " ", "TableForm"}]}], "Input",
 CellChangeTimes->{{3.824036779725671*^9, 3.824036847500478*^9}, {
  3.824037445113905*^9, 3.824037446296582*^9}},
 CellLabel->
  "In[387]:=",ExpressionUUID->"fb628873-3232-4edd-873b-5ee5a6c34f97"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"T", "\[Equal]", 
       FractionBox[
        RowBox[{"U", "+", "V"}], 
        SqrtBox["2"]]}]},
     {
      RowBox[{"X", "\[Equal]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "u"}], ")"}], " ", "x"}]}]},
     {
      RowBox[{"Z", "\[Equal]", 
       FractionBox[
        RowBox[{"U", "-", "V"}], 
        SqrtBox["2"]]}]},
     {
      RowBox[{"Y", "\[Equal]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "u"}], ")"}], " ", "y"}]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.824036828810483*^9, 3.824036849973814*^9}, 
   3.824037447639674*^9},
 CellLabel->
  "Out[389]//TableForm=",ExpressionUUID->"6f7058c7-2c43-40c5-a342-\
789116fd3224"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq3a", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq3a", " ", "=", " ", 
   RowBox[{"{", " ", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"U", "\[Rule]", " ", 
      RowBox[{"u", "-", "1"}]}], " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{"V", "\[Rule]", " ", 
      RowBox[{"v", " ", "-", " ", 
       RowBox[{
        FractionBox["1", "2"], 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["x", "2"], "+", " ", 
          SuperscriptBox["y", "2"]}], ")"}], 
        RowBox[{"(", 
         RowBox[{"1", "-", "u"}], ")"}]}]}]}]}], "\[IndentingNewLine]", 
    "}"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq3a", " ", "//", " ", "TableForm"}]}], "Input",
 CellChangeTimes->{{3.82403688192406*^9, 3.824036913427713*^9}},
 CellLabel->
  "In[390]:=",ExpressionUUID->"03e02ddd-4fe6-4bcb-8d81-62402385e750"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"U", "\[Rule]", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "u"}]}]},
     {
      RowBox[{"V", "\[Rule]", 
       RowBox[{"v", "-", 
        RowBox[{
         FractionBox["1", "2"], " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", "u"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["x", "2"], "+", 
           SuperscriptBox["y", "2"]}], ")"}]}]}]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.824036913712905*^9, 3.824037450149775*^9},
 CellLabel->
  "Out[392]//TableForm=",ExpressionUUID->"70a42d87-2fa4-4367-a9be-\
35d4fba11ff7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"eq3", " ", "/.", " ", "eq3a"}], "  ", "/.", " ", 
   RowBox[{"Equal", "\[Rule]", " ", "Rule"}]}], " ", "//", " ", 
  "TableForm"}]], "Input",
 CellChangeTimes->{{3.824036973521223*^9, 3.824036984271181*^9}, {
  3.82403735496947*^9, 3.8240373767840557`*^9}},
 CellLabel->
  "In[393]:=",ExpressionUUID->"d0693e88-979b-47d0-9667-cf60ca0c77ef"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"T", "\[Rule]", 
       FractionBox[
        RowBox[{
         RowBox[{"-", "1"}], "+", "u", "+", "v", "-", 
         RowBox[{
          FractionBox["1", "2"], " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", "u"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["x", "2"], "+", 
            SuperscriptBox["y", "2"]}], ")"}]}]}], 
        SqrtBox["2"]]}]},
     {
      RowBox[{"X", "\[Rule]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "u"}], ")"}], " ", "x"}]}]},
     {
      RowBox[{"Z", "\[Rule]", 
       FractionBox[
        RowBox[{
         RowBox[{"-", "1"}], "+", "u", "-", "v", "+", 
         RowBox[{
          FractionBox["1", "2"], " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", "u"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["x", "2"], "+", 
            SuperscriptBox["y", "2"]}], ")"}]}]}], 
        SqrtBox["2"]]}]},
     {
      RowBox[{"Y", "\[Rule]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "u"}], ")"}], " ", "y"}]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.824036978248259*^9, 3.824036984573966*^9}, {
   3.824037361138688*^9, 3.824037377061757*^9}, 3.8240374524461527`*^9},
 CellLabel->
  "Out[393]//TableForm=",ExpressionUUID->"f1f7c3da-1ff9-400c-8118-\
7e63cff03493"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Flatten", "[", 
   RowBox[{"Solve", "[", " ", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"eq3", " ", "/.", " ", "eq3a"}], "  ", ")"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "y", ",", "u", ",", "v"}], "}"}]}], "]"}], "]"}], " ",
   "//", " ", "TableForm"}]], "Input",
 CellChangeTimes->{{3.8240369917850523`*^9, 3.824037019719636*^9}},
 CellLabel->
  "In[394]:=",ExpressionUUID->"df2269db-c883-418b-b884-55d824fe64a3"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"x", "\[Rule]", 
       RowBox[{"-", 
        FractionBox[
         RowBox[{
          SqrtBox["2"], " ", "X"}], 
         RowBox[{"T", "+", "Z"}]]}]}]},
     {
      RowBox[{"y", "\[Rule]", 
       RowBox[{"-", 
        FractionBox[
         RowBox[{
          SqrtBox["2"], " ", "Y"}], 
         RowBox[{"T", "+", "Z"}]]}]}]},
     {
      RowBox[{"u", "\[Rule]", 
       FractionBox[
        RowBox[{
         SqrtBox["2"], "+", "T", "+", "Z"}], 
        SqrtBox["2"]]}]},
     {
      RowBox[{"v", "\[Rule]", 
       FractionBox[
        RowBox[{
         RowBox[{"-", 
          SuperscriptBox["T", "2"]}], "+", 
         SuperscriptBox["X", "2"], "+", 
         SuperscriptBox["Y", "2"], "+", 
         SuperscriptBox["Z", "2"]}], 
        RowBox[{
         RowBox[{
          RowBox[{"-", 
           SqrtBox["2"]}], " ", "T"}], "-", 
         RowBox[{
          SqrtBox["2"], " ", "Z"}]}]]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.82403700978684*^9, 3.824037020074596*^9}, 
   3.82403745559552*^9},
 CellLabel->
  "Out[394]//TableForm=",ExpressionUUID->"16759481-dda8-4a0a-83ed-\
f38b65a9ce44"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Dt", "[", " ", 
    RowBox[{"Flatten", "[", 
     RowBox[{"Solve", "[", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"eq3", " ", "/.", " ", "eq3a"}], "  ", ")"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "y", ",", "u", ",", "v"}], "}"}]}], "]"}], "]"}], 
    " ", "]"}], " ", "/.", " ", "dtReplace"}], " ", "//", " ", 
  "TableForm"}]], "Input",
 CellChangeTimes->{{3.824037028225815*^9, 3.824037039982885*^9}},
 CellLabel->
  "In[395]:=",ExpressionUUID->"c8ea89ad-8d00-4742-b670-a312944e17a0"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"dx", "\[Rule]", 
       RowBox[{
        FractionBox[
         RowBox[{
          SqrtBox["2"], " ", 
          RowBox[{"(", 
           RowBox[{"dT", "+", "dZ"}], ")"}], " ", "X"}], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"T", "+", "Z"}], ")"}], "2"]], "-", 
        FractionBox[
         RowBox[{
          SqrtBox["2"], " ", "dX"}], 
         RowBox[{"T", "+", "Z"}]]}]}]},
     {
      RowBox[{"dy", "\[Rule]", 
       RowBox[{
        FractionBox[
         RowBox[{
          SqrtBox["2"], " ", 
          RowBox[{"(", 
           RowBox[{"dT", "+", "dZ"}], ")"}], " ", "Y"}], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"T", "+", "Z"}], ")"}], "2"]], "-", 
        FractionBox[
         RowBox[{
          SqrtBox["2"], " ", "dY"}], 
         RowBox[{"T", "+", "Z"}]]}]}]},
     {
      RowBox[{"du", "\[Rule]", 
       FractionBox[
        RowBox[{"dT", "+", "dZ"}], 
        SqrtBox["2"]]}]},
     {
      RowBox[{"dv", "\[Rule]", 
       RowBox[{
        FractionBox[
         RowBox[{
          RowBox[{
           RowBox[{"-", "2"}], " ", "dT", " ", "T"}], "+", 
          RowBox[{"2", " ", "dX", " ", "X"}], "+", 
          RowBox[{"2", " ", "dY", " ", "Y"}], "+", 
          RowBox[{"2", " ", "dZ", " ", "Z"}]}], 
         RowBox[{
          RowBox[{
           RowBox[{"-", 
            SqrtBox["2"]}], " ", "T"}], "-", 
          RowBox[{
           SqrtBox["2"], " ", "Z"}]}]], "-", 
        FractionBox[
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", 
              SqrtBox["2"]}], " ", "dT"}], "-", 
            RowBox[{
             SqrtBox["2"], " ", "dZ"}]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["T", "2"]}], "+", 
            SuperscriptBox["X", "2"], "+", 
            SuperscriptBox["Y", "2"], "+", 
            SuperscriptBox["Z", "2"]}], ")"}]}], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", 
              SqrtBox["2"]}], " ", "T"}], "-", 
            RowBox[{
             SqrtBox["2"], " ", "Z"}]}], ")"}], "2"]]}]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.824037040272299*^9, 3.8240374578347597`*^9},
 CellLabel->
  "Out[395]//TableForm=",ExpressionUUID->"1bdab740-5142-43c3-877a-\
5223ad9d43dc"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   SuperscriptBox["T", "2"], "-", " ", 
   SuperscriptBox["Z", "2"], "-", " ", 
   SuperscriptBox["X", "2"], "-", " ", "Y"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", "eq4", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq4", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      SuperscriptBox["T", "2"], "-", " ", 
      SuperscriptBox["Z", "2"], "-", " ", 
      SuperscriptBox["X", "2"], "-", " ", 
      SuperscriptBox["Y", "2"]}], " ", "/.", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"eq3", " ", "/.", " ", "eq3a"}], " ", "/.", " ", 
       RowBox[{"Equal", "\[Rule]", " ", "Rule"}]}], "  ", ")"}]}], " ", "//", 
    " ", "Expand"}], " ", "//", " ", "Simplify", " "}]}]}], "Input",
 CellChangeTimes->{{3.824037234558321*^9, 3.824037292124155*^9}, {
  3.8240374685373898`*^9, 3.824037486184911*^9}},
 CellLabel->
  "In[399]:=",ExpressionUUID->"0394c147-48cb-411b-b4df-6d273962d9e8"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["T", "2"], "-", 
  SuperscriptBox["X", "2"], "-", "Y", "-", 
  SuperscriptBox["Z", "2"]}]], "Output",
 CellChangeTimes->{{3.824037249899857*^9, 3.824037292368466*^9}, {
  3.824037460053294*^9, 3.824037486971717*^9}},
 CellLabel->
  "Out[399]=",ExpressionUUID->"627e8da8-8b08-4495-a57f-68af76034996"],

Cell[BoxData[
 RowBox[{"2", " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", "1"}], "+", "u"}], ")"}], " ", "v"}]], "Output",
 CellChangeTimes->{{3.824037249899857*^9, 3.824037292368466*^9}, {
  3.824037460053294*^9, 3.8240374869759274`*^9}},
 CellLabel->
  "Out[401]=",ExpressionUUID->"7d3fd036-9e9f-44e4-aa16-4d47078f5bc2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq5", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq5", " ", "=", " ", 
   RowBox[{
    RowBox[{"{", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"T", " ", "\[Equal]", " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"U", "+", "V"}], ")"}], "/", "c"}]}], " ", ",", " ", 
      "\[IndentingNewLine]", 
      RowBox[{"X", " ", "\[Equal]", " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "+", "v"}], ")"}], "x"}]}], " ", ",", " ", 
      "\[IndentingNewLine]", 
      RowBox[{"Z", " ", "\[Equal]", " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"U", "-", "V"}], ")"}], "/", "c"}]}], " ", ",", " ", 
      "\[IndentingNewLine]", 
      RowBox[{"Y", " ", "\[Equal]", " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "v"}], ")"}], "y"}]}]}], "\[IndentingNewLine]", 
     "}"}], "  ", "/.", " ", 
    RowBox[{"c", "\[Rule]", " ", 
     SqrtBox["2"]}]}]}], "  ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq5", " ", "//", " ", "TableForm"}]}], "Input",
 CellChangeTimes->{{3.8240375406264467`*^9, 3.824037556393406*^9}, {
  3.824041546639522*^9, 3.824041563045982*^9}, {3.824041647714319*^9, 
  3.8240416734441357`*^9}},
 CellLabel->
  "In[489]:=",ExpressionUUID->"620cc3b8-0807-4bff-9f28-9d8351b569f3"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"T", "\[Equal]", 
       FractionBox[
        RowBox[{"U", "+", "V"}], 
        SqrtBox["2"]]}]},
     {
      RowBox[{"X", "\[Equal]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "+", "v"}], ")"}], " ", "x"}]}]},
     {
      RowBox[{"Z", "\[Equal]", 
       FractionBox[
        RowBox[{"U", "-", "V"}], 
        SqrtBox["2"]]}]},
     {
      RowBox[{"Y", "\[Equal]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "v"}], ")"}], " ", "y"}]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.8240375591404543`*^9, {3.824041552206128*^9, 3.8240415636789*^9}, {
   3.824041649945887*^9, 3.8240416738582287`*^9}},
 CellLabel->
  "Out[491]//TableForm=",ExpressionUUID->"77305d8e-08a3-4810-aa41-\
d877dc6a1358"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq5a", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq5a", " ", "=", " ", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"U", "\[Rule]", " ", 
      RowBox[{"u", "+", " ", 
       RowBox[{
        FractionBox["1", "2"], 
        SuperscriptBox["x", "2"], 
        RowBox[{"(", 
         RowBox[{"1", "+", "v"}], ")"}]}], "-", " ", 
       RowBox[{
        FractionBox["1", "2"], " ", 
        SuperscriptBox["y", "2"], 
        RowBox[{"(", 
         RowBox[{"1", "-", "v"}], ")"}]}]}]}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{"V", "\[Rule]", " ", 
      RowBox[{"v", " ", "-", " ", "1"}]}]}], "\[IndentingNewLine]", "}"}]}], 
  " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq5a", "  ", "//", " ", "TableForm"}]}], "Input",
 CellChangeTimes->{{3.824037597161865*^9, 3.8240376735526648`*^9}, {
  3.824037774604477*^9, 3.824037782994141*^9}},
 CellLabel->
  "In[492]:=",ExpressionUUID->"028f6f92-b1bb-4a45-ba04-d8bf5d6989d7"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"U", "\[Rule]", 
       RowBox[{"u", "+", 
        RowBox[{
         FractionBox["1", "2"], " ", 
         RowBox[{"(", 
          RowBox[{"1", "+", "v"}], ")"}], " ", 
         SuperscriptBox["x", "2"]}], "-", 
        RowBox[{
         FractionBox["1", "2"], " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", "v"}], ")"}], " ", 
         SuperscriptBox["y", "2"]}]}]}]},
     {
      RowBox[{"V", "\[Rule]", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "v"}]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.82403767388199*^9, 3.82403778527129*^9, 3.8240415672390223`*^9, {
   3.824041651787079*^9, 3.824041676052709*^9}},
 CellLabel->
  "Out[494]//TableForm=",ExpressionUUID->"1aae2ccf-550c-4384-ae74-\
8960aeac474d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"eq5", "  ", "/.", " ", "eq5a"}], "  ", "/.", " ", 
     RowBox[{"Equal", "\[Rule]", " ", "Rule"}]}], " ", "//", " ", "Expand"}], 
   " ", "//", " ", "Simplify"}], "  ", "//", " ", "TableForm"}]], "Input",
 CellChangeTimes->{{3.8240379026188183`*^9, 3.824037928968557*^9}},
 CellLabel->
  "In[496]:=",ExpressionUUID->"4fbdbeda-187c-4448-b9f2-a7108ebd3503"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"T", "\[Rule]", 
       FractionBox[
        RowBox[{
         RowBox[{"-", "2"}], "+", 
         RowBox[{"2", " ", "u"}], "+", 
         SuperscriptBox["x", "2"], "-", 
         SuperscriptBox["y", "2"], "+", 
         RowBox[{"v", " ", 
          RowBox[{"(", 
           RowBox[{"2", "+", 
            SuperscriptBox["x", "2"], "+", 
            SuperscriptBox["y", "2"]}], ")"}]}]}], 
        RowBox[{"2", " ", 
         SqrtBox["2"]}]]}]},
     {
      RowBox[{"X", "\[Rule]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "+", "v"}], ")"}], " ", "x"}]}]},
     {
      RowBox[{"Z", "\[Rule]", 
       FractionBox[
        RowBox[{"2", "+", 
         RowBox[{"2", " ", "u"}], "+", 
         SuperscriptBox["x", "2"], "-", 
         SuperscriptBox["y", "2"], "+", 
         RowBox[{"v", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "2"}], "+", 
            SuperscriptBox["x", "2"], "+", 
            SuperscriptBox["y", "2"]}], ")"}]}]}], 
        RowBox[{"2", " ", 
         SqrtBox["2"]}]]}]},
     {
      RowBox[{"Y", "\[Rule]", 
       RowBox[{"y", "-", 
        RowBox[{"v", " ", "y"}]}]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.8240416777111397`*^9, 3.824041688018619*^9}},
 CellLabel->
  "Out[496]//TableForm=",ExpressionUUID->"e6fff4c9-2056-474b-b1b1-\
a3bf4b512b76"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   SuperscriptBox["T", "2"], "-", " ", 
   SuperscriptBox["Z", "2"], "-", " ", "Y", " ", "-", " ", 
   RowBox[{
    SuperscriptBox["X", "2"], 
    RowBox[{"(", 
     FractionBox["V", 
      RowBox[{"2", "+", "V"}]], ")"}]}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", "eq6", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq6", " ", "=", " ", "\[IndentingNewLine]", " ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       SuperscriptBox["T", "2"], "-", " ", 
       SuperscriptBox["Z", "2"], "-", " ", "Y", " ", "-", " ", 
       RowBox[{
        SuperscriptBox["X", "2"], 
        RowBox[{"(", 
         FractionBox["V", 
          RowBox[{"2", "+", "V"}]], ")"}]}]}], "/.", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"eq5", " ", "/.", " ", "eq5a"}], " ", "/.", " ", 
          RowBox[{"Equal", "\[Rule]", " ", "Rule"}]}], "  ", "//", " ", 
         "Expand"}], " ", "//", " ", "Simplify"}], "  ", ")"}]}], "    ", "/.",
      " ", 
     RowBox[{"eq5a", "[", 
      RowBox[{"[", "2", "]"}], "]"}]}], " ", "//", " ", "Expand"}], " ", "//",
    " ", "Simplify", "  "}]}]}], "Input",
 CellChangeTimes->{{3.824037571041218*^9, 3.824037595184614*^9}, {
  3.824037689195571*^9, 3.824037738314497*^9}, {3.824037932881913*^9, 
  3.824038004120801*^9}, {3.8240415854585648`*^9, 3.824041642411962*^9}},
 CellLabel->
  "In[497]:=",ExpressionUUID->"7fccc65f-6dc0-4d5d-af68-d27f96c48a6d"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["T", "2"], "-", 
  FractionBox[
   RowBox[{"V", " ", 
    SuperscriptBox["X", "2"]}], 
   RowBox[{"2", "+", "V"}]], "-", "Y", "-", 
  SuperscriptBox["Z", "2"]}]], "Output",
 CellChangeTimes->{
  3.824037578189713*^9, 3.82403767730798*^9, {3.8240377231627693`*^9, 
   3.8240377388871613`*^9}, 3.8240377884186068`*^9, 3.8240379401201468`*^9, {
   3.824037971782226*^9, 3.824038004366661*^9}, {3.824041573937612*^9, 
   3.8240416562780323`*^9}, 3.824041690650806*^9},
 CellLabel->
  "Out[497]=",ExpressionUUID->"44b41bbf-64b6-4dd7-8e8f-eea620e20437"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", "1"}], "+", "v"}], ")"}], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"2", " ", "u"}], "+", "y", "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "v"}], ")"}], " ", 
     SuperscriptBox["y", "2"]}]}], ")"}]}]], "Output",
 CellChangeTimes->{
  3.824037578189713*^9, 3.82403767730798*^9, {3.8240377231627693`*^9, 
   3.8240377388871613`*^9}, 3.8240377884186068`*^9, 3.8240379401201468`*^9, {
   3.824037971782226*^9, 3.824038004366661*^9}, {3.824041573937612*^9, 
   3.8240416562780323`*^9}, 3.8240416906545362`*^9},
 CellLabel->
  "Out[499]=",ExpressionUUID->"54fefd57-47f9-4c34-a773-47c254309099"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"eq6", " ", "/.", " ", 
  RowBox[{"y", "\[Rule]", " ", "0", "  ", 
   RowBox[{"(*", "  ", 
    RowBox[{"Not", " ", "sure", " ", "why", " ", "this", " ", 
     RowBox[{"doesn", "'"}], "t", " ", "simplify", " ", "properly"}], " ", 
    "*)"}], " "}]}]], "Input",
 CellChangeTimes->{{3.824041720362875*^9, 3.8240417438153467`*^9}},
 CellLabel->
  "In[501]:=",ExpressionUUID->"a2f91649-76fa-4d50-ae03-6275cf995e7b"],

Cell[BoxData[
 RowBox[{"2", " ", "u", " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", "1"}], "+", "v"}], ")"}]}]], "Output",
 CellChangeTimes->{{3.8240417242698193`*^9, 3.824041744048257*^9}},
 CellLabel->
  "Out[501]=",ExpressionUUID->"59c8198b-56ce-46cc-ae6e-e18ce7d56a0d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq7", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq7", " ", "=", " ", 
   RowBox[{
    RowBox[{"{", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"T", " ", "\[Equal]", " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"u", "+", "v", "-", "1"}], ")"}], " ", 
        FractionBox[
         RowBox[{"Cosh", "[", 
          RowBox[{"c", " ", "y"}], "]"}], "c"]}]}], " ", ",", " ", 
      "\[IndentingNewLine]", 
      RowBox[{"X", " ", "\[Equal]", " ", 
       RowBox[{"R", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"c", " ", "x"}], "]"}]}]}], " ", ",", " ", 
      "\[IndentingNewLine]", 
      RowBox[{"Z", " ", "\[Equal]", "  ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"u", "+", "v", "-", "1"}], ")"}], " ", 
        FractionBox[
         RowBox[{"Sinh", "[", 
          RowBox[{"c", " ", "y"}], "]"}], "c"]}]}], " ", ",", " ", 
      "\[IndentingNewLine]", 
      RowBox[{"Y", " ", "\[Equal]", " ", 
       RowBox[{"R", " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"c", " ", "x"}], "]"}]}]}]}], "\[IndentingNewLine]", "}"}], 
    " ", "/.", " ", 
    RowBox[{"c", "\[Rule]", " ", 
     SqrtBox["2"]}]}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq7", " ", "//", " ", "TableForm"}]}], "Input",
 CellChangeTimes->{{3.8240417921853437`*^9, 3.8240418515110617`*^9}, 
   3.824042112194654*^9},
 CellLabel->
  "In[528]:=",ExpressionUUID->"fd35c471-8be2-43c8-aeb3-f147deddecba"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"T", "\[Equal]", 
       FractionBox[
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "u", "+", "v"}], ")"}], " ", 
         RowBox[{"Cosh", "[", 
          RowBox[{
           SqrtBox["2"], " ", "y"}], "]"}]}], 
        SqrtBox["2"]]}]},
     {
      RowBox[{"X", "\[Equal]", 
       RowBox[{"R", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{
          SqrtBox["2"], " ", "x"}], "]"}]}]}]},
     {
      RowBox[{"Z", "\[Equal]", 
       FractionBox[
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "u", "+", "v"}], ")"}], " ", 
         RowBox[{"Sinh", "[", 
          RowBox[{
           SqrtBox["2"], " ", "y"}], "]"}]}], 
        SqrtBox["2"]]}]},
     {
      RowBox[{"Y", "\[Equal]", 
       RowBox[{"R", " ", 
        RowBox[{"Cos", "[", 
         RowBox[{
          SqrtBox["2"], " ", "x"}], "]"}]}]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.824041851786862*^9, 3.824042118321765*^9},
 CellLabel->
  "Out[530]//TableForm=",ExpressionUUID->"1a6257ae-3c67-47fa-8641-\
1aea999ebfed"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq7a", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq7a", " ", "=", " ", 
   RowBox[{
    RowBox[{"{", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"R", "\[Rule]", " ", 
       SqrtBox[
        RowBox[{
         SuperscriptBox["X", "2"], "+", " ", 
         SuperscriptBox["Y", "2"]}]]}], " ", ",", " ", "\[IndentingNewLine]", 
      
      RowBox[{"R", "\[Rule]", " ", 
       FractionBox[
        RowBox[{"(", 
         RowBox[{"1", "+", "v", "-", "u"}], ")"}], "c"]}], " ", ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       SqrtBox[
        RowBox[{
         SuperscriptBox["X", "2"], "+", " ", 
         SuperscriptBox["Y", "2"]}]], "\[Rule]", " ", 
       FractionBox[
        RowBox[{"(", 
         RowBox[{"1", "+", "v", "-", "u"}], ")"}], "c"]}]}], 
     "\[IndentingNewLine]", "}"}], "/.", " ", 
    RowBox[{"c", "\[Rule]", " ", 
     SqrtBox["2"]}]}]}], " ", " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq7a", " ", "//", " ", "TableForm"}]}], "Input",
 CellChangeTimes->{{3.824041860808998*^9, 3.824041942703788*^9}, 
   3.824042115945538*^9},
 CellLabel->
  "In[531]:=",ExpressionUUID->"87cca33f-d9b3-4c43-8fa8-0258a8004364"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"R", "\[Rule]", 
       SqrtBox[
        RowBox[{
         SuperscriptBox["X", "2"], "+", 
         SuperscriptBox["Y", "2"]}]]}]},
     {
      RowBox[{"R", "\[Rule]", 
       FractionBox[
        RowBox[{"1", "-", "u", "+", "v"}], 
        SqrtBox["2"]]}]},
     {
      RowBox[{
       SqrtBox[
        RowBox[{
         SuperscriptBox["X", "2"], "+", 
         SuperscriptBox["Y", "2"]}]], "\[Rule]", 
       FractionBox[
        RowBox[{"1", "-", "u", "+", "v"}], 
        SqrtBox["2"]]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.8240419430226994`*^9, 3.824042120255721*^9},
 CellLabel->
  "Out[533]//TableForm=",ExpressionUUID->"82d85ed8-0480-4ab3-9cdb-\
ee94e04b6db0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"eq7", "   ", "/.", " ", 
    RowBox[{"eq7a", "[", 
     RowBox[{"[", "2", "]"}], "]"}]}], " ", "/.", " ", 
   RowBox[{"Equal", "\[Rule]", " ", "Rule"}]}], " ", "//", " ", 
  "TableForm"}]], "Input",
 CellChangeTimes->{{3.824041946584775*^9, 3.824041991468334*^9}, {
  3.824042030885284*^9, 3.824042040732203*^9}},
 CellLabel->
  "In[534]:=",ExpressionUUID->"3e467d2d-b46e-4cbe-8d86-fda02e1e0ace"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"T", "\[Rule]", 
       FractionBox[
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "u", "+", "v"}], ")"}], " ", 
         RowBox[{"Cosh", "[", 
          RowBox[{
           SqrtBox["2"], " ", "y"}], "]"}]}], 
        SqrtBox["2"]]}]},
     {
      RowBox[{"X", "\[Rule]", 
       FractionBox[
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "u", "+", "v"}], ")"}], " ", 
         RowBox[{"Sin", "[", 
          RowBox[{
           SqrtBox["2"], " ", "x"}], "]"}]}], 
        SqrtBox["2"]]}]},
     {
      RowBox[{"Z", "\[Rule]", 
       FractionBox[
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "u", "+", "v"}], ")"}], " ", 
         RowBox[{"Sinh", "[", 
          RowBox[{
           SqrtBox["2"], " ", "y"}], "]"}]}], 
        SqrtBox["2"]]}]},
     {
      RowBox[{"Y", "\[Rule]", 
       FractionBox[
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "u", "+", "v"}], ")"}], " ", 
         RowBox[{"Cos", "[", 
          RowBox[{
           SqrtBox["2"], " ", "x"}], "]"}]}], 
        SqrtBox["2"]]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.824041947779067*^9, 3.82404195190289*^9}, {
   3.824041987058304*^9, 3.824041991734261*^9}, 3.8240420409857807`*^9, 
   3.8240421227679996`*^9},
 CellLabel->
  "Out[534]//TableForm=",ExpressionUUID->"07398aee-e55b-4b89-98e2-\
a6861694c247"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  SuperscriptBox["T", "2"], "-", " ", 
  SuperscriptBox["Z", "2"], "-", " ", 
  SuperscriptBox["R", "2"]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SuperscriptBox["T", "2"], "-", " ", 
   SuperscriptBox["Z", "2"], "-", " ", 
   SuperscriptBox["R", "2"]}], " ", "/.", " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"eq7", "   ", "/.", " ", 
     RowBox[{"eq7a", "[", 
      RowBox[{"[", "2", "]"}], "]"}]}], " ", "/.", " ", 
    RowBox[{"Equal", "\[Rule]", " ", "Rule"}]}], " ", 
   ")"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["T", "2"], "-", " ", 
     SuperscriptBox["Z", "2"], "-", " ", 
     SuperscriptBox["R", "2"]}], " ", "/.", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"eq7", "   ", "/.", " ", 
       RowBox[{"eq7a", "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], " ", "/.", " ", 
      RowBox[{"Equal", "\[Rule]", " ", "Rule"}]}], " ", ")"}]}], " ", "/.", 
   " ", 
   RowBox[{"eq7a", "[", 
    RowBox[{"[", "2", "]"}], "]"}]}], " ", 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", "eq8", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq8", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       SuperscriptBox["T", "2"], "-", " ", 
       SuperscriptBox["Z", "2"], "-", " ", 
       SuperscriptBox["R", "2"]}], " ", "/.", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"eq7", "   ", "/.", " ", 
         RowBox[{"eq7a", "[", 
          RowBox[{"[", "2", "]"}], "]"}]}], " ", "/.", " ", 
        RowBox[{"Equal", "\[Rule]", " ", "Rule"}]}], " ", ")"}]}], " ", "/.", 
     " ", 
     RowBox[{"eq7a", "[", 
      RowBox[{"[", "2", "]"}], "]"}]}], "  ", "//", " ", "Expand"}], " ", "//",
    " ", "Simplify", " "}]}]}], "Input",
 CellChangeTimes->{{3.824042005469866*^9, 3.8240420889965963`*^9}, {
  3.824042240683094*^9, 3.824042250378416*^9}},
 CellLabel->
  "In[552]:=",ExpressionUUID->"e0fe1223-6d5e-486b-98f6-ae9dd84f1e28"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   SuperscriptBox["R", "2"]}], "+", 
  SuperscriptBox["T", "2"], "-", 
  SuperscriptBox["Z", "2"]}]], "Output",
 CellChangeTimes->{
  3.824042015190483*^9, {3.8240420485236273`*^9, 3.824042089288863*^9}, 
   3.824042125019918*^9, 3.8240422522836847`*^9},
 CellLabel->
  "Out[552]=",ExpressionUUID->"7929bae1-e397-4500-b0d4-9ef275bc7502"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   SuperscriptBox["R", "2"]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "u", "+", "v"}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"Cosh", "[", 
     RowBox[{
      SqrtBox["2"], " ", "y"}], "]"}], "2"]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "u", "+", "v"}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"Sinh", "[", 
     RowBox[{
      SqrtBox["2"], " ", "y"}], "]"}], "2"]}]}]], "Output",
 CellChangeTimes->{
  3.824042015190483*^9, {3.8240420485236273`*^9, 3.824042089288863*^9}, 
   3.824042125019918*^9, 3.8240422522873487`*^9},
 CellLabel->
  "Out[553]=",ExpressionUUID->"c8918f26-63d4-4c02-849e-dd431666f83e"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", 
    FractionBox["1", "2"]}], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "-", "u", "+", "v"}], ")"}], "2"]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "u", "+", "v"}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"Cosh", "[", 
     RowBox[{
      SqrtBox["2"], " ", "y"}], "]"}], "2"]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "u", "+", "v"}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"Sinh", "[", 
     RowBox[{
      SqrtBox["2"], " ", "y"}], "]"}], "2"]}]}]], "Output",
 CellChangeTimes->{
  3.824042015190483*^9, {3.8240420485236273`*^9, 3.824042089288863*^9}, 
   3.824042125019918*^9, 3.824042252292327*^9},
 CellLabel->
  "Out[554]=",ExpressionUUID->"a273793c-a535-464a-a196-56e74005ff9b"],

Cell[BoxData[
 RowBox[{"2", " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", "1"}], "+", "u"}], ")"}], " ", "v"}]], "Output",
 CellChangeTimes->{
  3.824042015190483*^9, {3.8240420485236273`*^9, 3.824042089288863*^9}, 
   3.824042125019918*^9, 3.824042252298112*^9},
 CellLabel->
  "Out[556]=",ExpressionUUID->"6987c2a5-c5fb-44d0-b671-9d5ae21612fe"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   SuperscriptBox["T", "2"], "-", " ", 
   SuperscriptBox["Z", "2"], "-", " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"c", "-", "R"}], ")"}], "2"]}], " ", "/.", " ", 
  RowBox[{"c", "\[Rule]", " ", 
   SqrtBox["2"]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    SuperscriptBox["T", "2"], "-", " ", 
    SuperscriptBox["Z", "2"], "-", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"c", "-", "R"}], ")"}], "2"]}], "/.", " ", 
   RowBox[{"c", "\[Rule]", " ", 
    SqrtBox["2"]}]}], "/.", " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"eq7", "   ", "/.", " ", 
     RowBox[{"eq7a", "[", 
      RowBox[{"[", "2", "]"}], "]"}]}], " ", "/.", " ", 
    RowBox[{"Equal", "\[Rule]", " ", "Rule"}]}], " ", 
   ")"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      SuperscriptBox["T", "2"], "-", " ", 
      SuperscriptBox["Z", "2"], "-", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"c", "-", "R"}], ")"}], "2"]}], "/.", " ", 
     RowBox[{"c", "\[Rule]", " ", 
      SqrtBox["2"]}]}], "/.", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"eq7", "   ", "/.", " ", 
       RowBox[{"eq7a", "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], " ", "/.", " ", 
      RowBox[{"Equal", "\[Rule]", " ", "Rule"}]}], " ", ")"}]}], " ", "/.", 
   " ", 
   RowBox[{"eq7a", "[", 
    RowBox[{"[", "2", "]"}], "]"}]}], " ", 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", "eq9", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq9", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        SuperscriptBox["T", "2"], "-", " ", 
        SuperscriptBox["Z", "2"], "-", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"c", "-", "R"}], ")"}], "2"]}], " ", "/.", " ", 
       RowBox[{"c", "\[Rule]", " ", 
        SqrtBox["2"]}]}], "/.", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"eq7", "   ", "/.", " ", 
         RowBox[{"eq7a", "[", 
          RowBox[{"[", "2", "]"}], "]"}]}], " ", "/.", " ", 
        RowBox[{"Equal", "\[Rule]", " ", "Rule"}]}], " ", ")"}]}], " ", "/.", 
     " ", 
     RowBox[{"eq7a", "[", 
      RowBox[{"[", "2", "]"}], "]"}]}], "  ", "//", " ", "Expand"}], " ", "//",
    " ", "Simplify", " "}]}]}], "Input",
 CellChangeTimes->{{3.824042153258729*^9, 3.824042229361068*^9}, {
  3.82404226053901*^9, 3.824042266011427*^9}},
 CellLabel->
  "In[557]:=",ExpressionUUID->"4083dfe5-340c-4016-8ec5-4cdc7bce1771"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      SqrtBox["2"], "-", "R"}], ")"}], "2"]}], "+", 
  SuperscriptBox["T", "2"], "-", 
  SuperscriptBox["Z", "2"]}]], "Output",
 CellChangeTimes->{
  3.824042163817461*^9, {3.824042210055286*^9, 3.824042230954204*^9}, 
   3.824042266416265*^9},
 CellLabel->
  "Out[557]=",ExpressionUUID->"6834ea34-1c33-4eef-aeb0-69248012de7f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      SqrtBox["2"], "-", "R"}], ")"}], "2"]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "u", "+", "v"}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"Cosh", "[", 
     RowBox[{
      SqrtBox["2"], " ", "y"}], "]"}], "2"]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "u", "+", "v"}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"Sinh", "[", 
     RowBox[{
      SqrtBox["2"], " ", "y"}], "]"}], "2"]}]}]], "Output",
 CellChangeTimes->{
  3.824042163817461*^9, {3.824042210055286*^9, 3.824042230954204*^9}, 
   3.824042266420076*^9},
 CellLabel->
  "Out[558]=",ExpressionUUID->"8dcf3878-0eff-4186-9679-ad90995a0ef5"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      SqrtBox["2"], "-", 
      FractionBox[
       RowBox[{"1", "-", "u", "+", "v"}], 
       SqrtBox["2"]]}], ")"}], "2"]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "u", "+", "v"}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"Cosh", "[", 
     RowBox[{
      SqrtBox["2"], " ", "y"}], "]"}], "2"]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "u", "+", "v"}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"Sinh", "[", 
     RowBox[{
      SqrtBox["2"], " ", "y"}], "]"}], "2"]}]}]], "Output",
 CellChangeTimes->{
  3.824042163817461*^9, {3.824042210055286*^9, 3.824042230954204*^9}, 
   3.824042266424295*^9},
 CellLabel->
  "Out[559]=",ExpressionUUID->"4c8f9e3d-cd48-46ad-ab46-6d5265c16387"],

Cell[BoxData[
 RowBox[{"2", " ", "u", " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", "1"}], "+", "v"}], ")"}]}]], "Output",
 CellChangeTimes->{
  3.824042163817461*^9, {3.824042210055286*^9, 3.824042230954204*^9}, 
   3.824042266429228*^9},
 CellLabel->
  "Out[561]=",ExpressionUUID->"9340e401-ddf1-4c30-b1c6-abf03d97d2cb"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Line Element and Metric 11", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.825289186715989*^9, 
  3.8252892088233767`*^9}},ExpressionUUID->"61c446cc-bbf5-4023-88a2-\
8beb8ea84962"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq11", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq11", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"-", " ", "2"}], " ", "du", " ", "dv"}], " ", "+", " ", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", "P", "-", "Q"}], ")"}], "2"], " ", 
    SuperscriptBox["dx", "2"]}], "+", " ", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", "P", "-", "Q"}], ")"}], "2"], " ", 
    SuperscriptBox["dy", "2"]}]}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.824042298898219*^9, 3.824042321204856*^9}, 
   3.825289197913951*^9},
 CellLabel->
  "In[564]:=",ExpressionUUID->"1c89bc27-3759-40a2-b37d-c5b7cf301f0a"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", "2"}], " ", "du", " ", "dv"}], "+", 
  RowBox[{
   SuperscriptBox["dy", "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "-", "P", "-", "Q"}], ")"}], "2"]}], "+", 
  RowBox[{
   SuperscriptBox["dx", "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", "P", "-", "Q"}], ")"}], "2"]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.824042315338167*^9, 3.824042321887868*^9}, 
   3.8252891979141493`*^9},
 CellLabel->
  "Out[565]=",ExpressionUUID->"4ddcad6c-a6dd-46e8-a1dd-a62e51124f2e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"lineToMetric", "[", " ", 
   RowBox[{"eq11", " ", ",", 
    RowBox[{"{", 
     RowBox[{"du", ",", "dv", ",", "dx", ",", "dy"}], "}"}]}], "]"}], " ", "//",
   " ", "MatrixForm"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.8240424154205914`*^9, 3.824042434122162*^9}, 
   3.825289197914235*^9},
 CellLabel->
  "In[574]:=",ExpressionUUID->"e32a2923-c4a1-4b56-bb3a-73d1b52923cd"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", 
      RowBox[{"-", "1"}], "0", "0"},
     {
      RowBox[{"-", "1"}], "0", "0", "0"},
     {"0", "0", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "+", "P", "-", "Q"}], ")"}], "2"], "0"},
     {"0", "0", "0", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", "P", "-", "Q"}], ")"}], "2"]}
    },
    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",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.82404242669626*^9, 3.824042434401163*^9}, 
   3.825289197914322*^9},
 CellLabel->
  "Out[574]//MatrixForm=",ExpressionUUID->"f848225b-db06-4fb6-a911-\
ba41eb0ff9c5"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq11a", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq11a", " ", "=", "  ", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"P", "\[Rule]", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", "u"}], ")"}], " ", 
       RowBox[{"HeavisideTheta", "[", 
        RowBox[{"(", 
         RowBox[{"1", "-", "u"}], ")"}], "]"}]}]}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{"Q", "\[Rule]", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", "v"}], ")"}], " ", 
       RowBox[{"HeavisideTheta", "[", 
        RowBox[{"(", 
         RowBox[{"1", "-", "v"}], ")"}], " ", "]"}]}]}]}], 
    "\[IndentingNewLine]", "}"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq11a", " ", "//", " ", "TableForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.8240423287943697`*^9, 3.8240423956577797`*^9}, 
   3.8252891979143963`*^9},
 CellLabel->
  "In[569]:=",ExpressionUUID->"09f41c7d-3aee-49ad-b908-9476863b29ca"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"P", "\[Rule]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "u"}], ")"}], " ", 
        RowBox[{"HeavisideTheta", "[", 
         RowBox[{"1", "-", "u"}], "]"}]}]}]},
     {
      RowBox[{"Q", "\[Rule]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "v"}], ")"}], " ", 
        RowBox[{"HeavisideTheta", "[", 
         RowBox[{"1", "-", "v"}], "]"}]}]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.82404237455584*^9, 3.824042399900631*^9}, 
   3.825289197914506*^9},
 CellLabel->
  "Out[571]//TableForm=",ExpressionUUID->"a5ffbc43-ec37-4ebf-9275-\
dafa08ec4b95"],

Cell[BoxData[
 RowBox[{"eq11", " ", "/.", " ", "eq11a", " "}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.82404240221085*^9, 3.824042407297062*^9}, 
   3.825289197914588*^9},
 CellLabel->
  "In[572]:=",ExpressionUUID->"d3e9c8e4-6f6b-427e-8123-42eef52e62fe"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", "2"}], " ", "du", " ", "dv"}], "+", 
  RowBox[{
   SuperscriptBox["dy", "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", "u"}], ")"}], " ", 
       RowBox[{"HeavisideTheta", "[", 
        RowBox[{"1", "-", "u"}], "]"}]}], "-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", "v"}], ")"}], " ", 
       RowBox[{"HeavisideTheta", "[", 
        RowBox[{"1", "-", "v"}], "]"}]}]}], ")"}], "2"]}], "+", 
  RowBox[{
   SuperscriptBox["dx", "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", "u"}], ")"}], " ", 
       RowBox[{"HeavisideTheta", "[", 
        RowBox[{"1", "-", "u"}], "]"}]}], "-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", "v"}], ")"}], " ", 
       RowBox[{"HeavisideTheta", "[", 
        RowBox[{"1", "-", "v"}], "]"}]}]}], ")"}], "2"]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.824042407583807*^9, 3.825289197914743*^9},
 CellLabel->
  "Out[572]=",ExpressionUUID->"65b1ed8e-fb9e-4333-a9a6-ca3d1db9c05f"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "metric11", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metric11", " ", "=", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"lineToMetric", "[", " ", 
     RowBox[{"eq11", " ", ",", 
      RowBox[{"{", 
       RowBox[{"du", ",", "dv", ",", "dx", ",", "dy"}], "}"}]}], "]"}], "  ", 
    "/.", " ", "eq11a"}]}], "  ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"metric11", " ", "//", " ", "MatrixForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.82404244486596*^9, 3.824042465785633*^9}, 
   3.825289197914835*^9},
 CellLabel->
  "In[576]:=",ExpressionUUID->"9f96c41d-e0e5-429e-b81a-5855a6064e53"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", 
      RowBox[{"-", "1"}], "0", "0"},
     {
      RowBox[{"-", "1"}], "0", "0", "0"},
     {"0", "0", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", "u"}], ")"}], " ", 
          RowBox[{"HeavisideTheta", "[", 
           RowBox[{"1", "-", "u"}], "]"}]}], "-", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", "v"}], ")"}], " ", 
          RowBox[{"HeavisideTheta", "[", 
           RowBox[{"1", "-", "v"}], "]"}]}]}], ")"}], "2"], "0"},
     {"0", "0", "0", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", "u"}], ")"}], " ", 
          RowBox[{"HeavisideTheta", "[", 
           RowBox[{"1", "-", "u"}], "]"}]}], "-", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", "v"}], ")"}], " ", 
          RowBox[{"HeavisideTheta", "[", 
           RowBox[{"1", "-", "v"}], "]"}]}]}], ")"}], "2"]}
    },
    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",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.824042446979335*^9, 3.824042466228879*^9}, 
   3.825289197914919*^9},
 CellLabel->
  "Out[578]//MatrixForm=",ExpressionUUID->"516213d2-f038-4331-9a52-\
705d7db3b111"]
}, Closed]]
},
WindowSize->{1276, 755},
WindowMargins->{{-4, Automatic}, {Automatic, -80}},
FrontEndVersion->"13.0 for Mac OS X x86 (64-bit) (December 2, 2021)",
StyleDefinitions->FrontEnd`FileName[{"Report"}, "StandardReport.nb", 
  CharacterEncoding -> "UTF-8"],
ExpressionUUID->"61f92eb0-2d33-4897-9ac7-91764c327bc0"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 1277, 20, 221, "Title",ExpressionUUID->"f92a6c23-7093-4736-a451-0bd7b0bd56bf",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[1860, 44, 1133, 20, 94, "Author",ExpressionUUID->"83b0ad74-2e04-4223-879e-b09f85570f3c",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[3030, 69, 228, 4, 69, "Section",ExpressionUUID->"fd19c415-4ced-41e9-8922-14ccab0f515a",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[3261, 75, 433, 9, 63, "Input",ExpressionUUID->"4f5c01ab-0745-4ba4-9f4a-49a08bd4685f",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[3697, 86, 1151, 18, 43, "Output",ExpressionUUID->"289b4e95-f18a-4ac7-a669-7b7b69c83fde",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Closed]],
Cell[CellGroupData[{
Cell[4885, 109, 547, 9, 55, "Section",ExpressionUUID->"229b1f79-80a0-4855-ad2f-5de3f71f173e",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[5435, 120, 651, 12, 63, "Input",ExpressionUUID->"36522761-3d95-409f-927c-a58b2240ba66",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[6089, 134, 942, 15, 43, "Output",ExpressionUUID->"54d7f7ff-d89f-422c-9403-20437c145b40",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[7034, 151, 583, 10, 84, "Input",ExpressionUUID->"9fd3fae3-d026-4abe-a3be-9ade82edcc57",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[7620, 163, 1198, 20, 43, "Output",ExpressionUUID->"d13d4d6f-8a9c-4d42-a392-4954e0846027",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Closed]],
Cell[CellGroupData[{
Cell[8855, 188, 251, 4, 55, "Section",ExpressionUUID->"9687bf61-b0bd-422f-b179-854b42b92cd6",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[9109, 194, 1668, 45, 189, "Input",ExpressionUUID->"94e6e36a-be52-497b-bd19-892e18d95739",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[10780, 241, 1425, 24, 24, "Print",ExpressionUUID->"54f1c246-4f67-4e0b-a10e-cefb6d841ce1",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[12208, 267, 1440, 25, 24, "Print",ExpressionUUID->"845ecc61-5d76-4e61-904d-4b32023e00bd",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[13651, 294, 1375, 21, 41, "Output",ExpressionUUID->"21580ea3-1c7e-4ac7-8c1f-68b80b9edad0",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[15029, 317, 270, 4, 41, "Input",ExpressionUUID->"5a0f82e5-ecb2-4e63-ad6b-737223528171",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[15302, 323, 308, 5, 41, "Input",ExpressionUUID->"d39f7b50-78bd-4355-aafc-5d94ee35439a",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[15613, 330, 266, 5, 69, "Section",ExpressionUUID->"8d0f0737-615c-4928-8fa3-12c8c31c8bb8",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[15882, 337, 4459, 101, 714, "Input",ExpressionUUID->"bd4e7e63-46eb-4aba-9732-33e41ba065cf",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[20344, 440, 3224, 107, 555, "Output",ExpressionUUID->"c6ead005-408e-4b2b-8664-b92d1b3f7de8",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[23571, 549, 675, 16, 63, "Input",ExpressionUUID->"16a74cff-bb63-4125-b267-32502e396157",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}]
}, Closed]],
Cell[CellGroupData[{
Cell[24283, 570, 362, 6, 55, "Section",ExpressionUUID->"12a9cae8-a68f-46d7-85ea-6274b3d68a2c",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[24648, 578, 1659, 41, 126, "Input",ExpressionUUID->"d820166e-16fc-40d5-b888-cbd2cdad588e",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[26310, 621, 1056, 26, 84, "Input",ExpressionUUID->"0947c5b5-3344-4d26-9b19-03ba2ccc2507",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}]
}, Closed]],
Cell[CellGroupData[{
Cell[27403, 652, 253, 5, 55, "Section",ExpressionUUID->"d18ed38e-ac05-43ee-9ae7-169efd3b3b61",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[27659, 659, 915, 18, 86, "Input",ExpressionUUID->"403a556d-2766-4904-ae8f-b5d355b6aa84",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[28577, 679, 691, 16, 44, "Output",ExpressionUUID->"d17f8f4e-a70e-40e0-8592-de6f66efc7f6",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[29271, 697, 504, 12, 41, "Input",ExpressionUUID->"144ce0fe-45be-46ac-9e8d-93a9325ef094",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[29778, 711, 1075, 31, 107, "Output",ExpressionUUID->"3eaf509f-a1aa-4701-a930-6014154cf1b9",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[30856, 744, 1424, 34, 222, "Input",ExpressionUUID->"dcaa0774-d6ef-43d1-a467-cd103e6eea9d",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[32283, 780, 1591, 46, 110, "Output",ExpressionUUID->"152f06f1-fee6-4dea-b848-5a504bf5ab38",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[33877, 828, 883, 19, 105, "Input",ExpressionUUID->"d5b0bb24-e15f-4aab-bdf0-4e706c4a75fa",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[34763, 849, 760, 20, 74, "Output",ExpressionUUID->"7b0db7bd-178d-4a10-a9fe-9b4d8cba0867",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[35526, 871, 430, 10, 41, "Input",ExpressionUUID->"96babaad-47d2-44e3-a029-242b9cdd2065",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[35959, 883, 3077, 87, 132, "Output",ExpressionUUID->"ab4b2997-59d0-4b43-8ed0-cc4ca6adce90",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[39039, 972, 863, 20, 41, "Input",ExpressionUUID->"3bf4e07f-6e1c-4e52-bde1-b4a97743c130",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[39905, 994, 3008, 83, 130, "Output",ExpressionUUID->"f157a166-0d93-4b76-9be9-c853f57a92d8",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[42916, 1079, 1171, 30, 84, "Input",ExpressionUUID->"7df56d3d-5170-4789-81e9-e6cb924d40a4",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[44090, 1111, 721, 17, 44, "Output",ExpressionUUID->"41c21754-1192-4268-b437-faaca6a956b1",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[44814, 1130, 868, 23, 44, "Output",ExpressionUUID->"90715cb4-1f2c-4c9a-aee0-961345a0c0b9",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[45685, 1155, 542, 15, 44, "Output",ExpressionUUID->"091ffb3b-cea7-437b-9cb5-29fc10727259",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[46230, 1172, 1084, 26, 84, "Input",ExpressionUUID->"9776affb-1dc1-4210-80bc-ab8d3c34fcc4",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[47317, 1200, 487, 13, 44, "Output",ExpressionUUID->"64651789-c8aa-47d7-9442-df8f8597faac",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[47807, 1215, 464, 9, 84, "Input",ExpressionUUID->"9c0db278-6ad0-48c4-8eae-8fcc105e5ed8",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[48274, 1226, 312, 6, 41, "Output",ExpressionUUID->"d56c9b76-df5b-46d5-b94b-8473e9ed505f",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[48589, 1234, 540, 11, 84, "Input",ExpressionUUID->"5466b826-6de2-46d4-b42f-3189e8bc683d",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[49132, 1247, 374, 8, 41, "Output",ExpressionUUID->"d91fea22-f851-41ff-beb7-db8d1afcb26f",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[49509, 1257, 596, 12, 84, "Input",ExpressionUUID->"6c4d1d34-882f-47b6-ad92-00f82d968b88",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[50108, 1271, 469, 10, 41, "Output",ExpressionUUID->"f5409e58-f9d6-4a84-80c6-e9ca803ecebd",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}]
}, Closed]],
Cell[CellGroupData[{
Cell[50614, 1286, 225, 4, 55, "Section",ExpressionUUID->"9f5dab01-3c95-4ff1-ad66-ac822cb96207",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[50842, 1292, 808, 19, 84, "Input",ExpressionUUID->"068244f9-960d-401c-bdb2-8e00f59a6c13",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[51653, 1313, 582, 16, 41, "Output",ExpressionUUID->"0e20d99c-2b5f-46f9-9b5b-57c2f7bdac4a",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[52238, 1331, 455, 10, 41, "Input",ExpressionUUID->"9dcbdb99-71ca-4595-bbf1-97b8faf01e12",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[52696, 1343, 1037, 31, 107, "Output",ExpressionUUID->"392c6e4f-dc80-4439-b793-df43979b8e75",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[53736, 1376, 816, 19, 147, "Input",ExpressionUUID->"c8cdf121-b059-4172-9354-6b929ef48cc3",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[54555, 1397, 912, 28, 69, "Output",ExpressionUUID->"b10f5af2-0d44-4bd8-8139-ad6378a4d177",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[55470, 1427, 742, 15, 105, "Input",ExpressionUUID->"dd6c6997-4793-44ff-a1f1-aa1736c3d39c",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[56215, 1444, 1347, 39, 107, "Output",ExpressionUUID->"fc716b3c-06cd-4c73-85cd-1f1c86e3b83d",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[57565, 1485, 619, 13, 105, "Input",ExpressionUUID->"251feb17-fc4b-4814-b3d4-9b6e3560fb39",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[58187, 1500, 1440, 42, 123, "Output",ExpressionUUID->"ac08d169-18db-4858-9e6e-ff219933da8d",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[59630, 1544, 450, 9, 84, "Input",ExpressionUUID->"e83d93ee-a82b-4a98-a304-c468d2c1cb7c",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[60083, 1555, 311, 7, 41, "Output",ExpressionUUID->"720ec415-6153-4cde-a207-4e59897e8c0a",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[60397, 1564, 608, 16, 63, "Input",ExpressionUUID->"ea5e4c6a-6336-4f20-bda6-48aac6ad4475",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[61008, 1582, 469, 12, 41, "Output",ExpressionUUID->"d166ae92-012f-4871-98ee-dfb85043a45f",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[61480, 1596, 469, 12, 41, "Output",ExpressionUUID->"d8d53891-9ef8-4b9e-ad86-494cf3fd0fa3",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Closed]],
Cell[CellGroupData[{
Cell[61986, 1613, 231, 4, 55, "Section",ExpressionUUID->"094f0053-d216-4498-899f-927529e1d1d9",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[62220, 1619, 5590, 128, 714, "Input",ExpressionUUID->"c93c2383-ae5c-4770-af86-cee82a5efcf8",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[67813, 1749, 1144, 23, 65, "Input",ExpressionUUID->"50aef98c-2f52-4745-9bb2-db62c985fbb2",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[68960, 1774, 286, 6, 41, "Output",ExpressionUUID->"5637f767-93b7-4491-9ee7-e1e48cb47d8e",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[69249, 1782, 288, 5, 41, "Input",ExpressionUUID->"18e95bc1-c433-48de-86a2-d6dc202b769d",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[69540, 1789, 1096, 34, 45, "Output",ExpressionUUID->"6c47d8be-02a4-4a76-83fc-fb813c818236",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[70639, 1825, 769, 19, 84, "Input",ExpressionUUID->"458b1c7e-9467-4fef-8d3d-678b620ef9b0",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[71411, 1846, 408, 9, 45, "Output",ExpressionUUID->"33c0e12c-4c8e-4ffc-a893-3a650dc25b63",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[71822, 1857, 319, 5, 41, "Output",ExpressionUUID->"b45107fb-6da8-4ede-a292-d60ac255c796",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[72144, 1864, 1650, 50, 106, "Output",ExpressionUUID->"2d326577-f7b4-4323-9e90-c8e1b20c63b9",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[73797, 1916, 968, 23, 84, "Input",ExpressionUUID->"6e6f38ce-89c2-4373-adb8-40124696f4e6",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[74768, 1941, 462, 11, 45, "Output",ExpressionUUID->"8176d6d6-d0b1-4ac9-9b77-fa785f865685",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[75233, 1954, 363, 6, 41, "Output",ExpressionUUID->"f06f31d9-2dcf-418c-a457-fb020ee33e10",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[75599, 1962, 15104, 460, 348, "Output",ExpressionUUID->"f8ddaec2-b477-4ae0-99f0-aadaf9177523",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[90706, 2424, 957, 23, 84, "Input",ExpressionUUID->"e86e3e07-5c9c-43cc-bb62-712f4d5aac16",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[91666, 2449, 389, 8, 45, "Output",ExpressionUUID->"b8794ca6-f01b-41af-9ad8-7ff9c9f5ad8c",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[92058, 2459, 328, 5, 41, "Output",ExpressionUUID->"1aef7309-eed2-49d3-a2d1-bab8eb2afca1",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[92389, 2466, 24183, 720, 308, "Output",ExpressionUUID->"12b14ba5-dc22-4ddd-a0d9-59425d3f468a",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[116575, 3188, 961, 23, 84, "Input",ExpressionUUID->"50ee7f05-1164-41b7-9b0b-508b1ebb1066",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[117539, 3213, 369, 8, 45, "Output",ExpressionUUID->"7f2afb74-1227-44b0-ae0a-0f46995df76a",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[117911, 3223, 328, 5, 41, "Output",ExpressionUUID->"46e6fa41-a915-4784-81a4-6c8510481ff2",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[118242, 3230, 7656, 246, 128, "Output",ExpressionUUID->"3c39d13b-cca7-47e0-80d9-1bb89a1eaf16",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[125901, 3478, 964, 23, 84, "Input",ExpressionUUID->"5cf95971-0291-49d7-b715-2a790a5a765d",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[126868, 3503, 335, 7, 41, "Output",ExpressionUUID->"6e278afe-5770-478f-a731-86659ee0dcc9",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[127206, 3512, 330, 5, 41, "Output",ExpressionUUID->"c9bbdcb5-6182-4a60-a323-715254e4b580",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[127539, 3519, 415, 10, 48, "Output",ExpressionUUID->"a29ed141-f24c-4e58-bc0a-c88fd28b2975",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[127957, 3531, 910, 21, 84, "Input",ExpressionUUID->"2b0fd8c6-19a3-4acc-9198-51f8197a8c81",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[128870, 3554, 333, 7, 41, "Output",ExpressionUUID->"08ec53c1-7c79-41f5-ad6a-b4444cddec9d",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[129206, 3563, 333, 5, 41, "Output",ExpressionUUID->"2fe60159-847f-4e00-b7cc-e44f7f22d08a",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[129542, 3570, 7465, 281, 123, "Output",ExpressionUUID->"e5a86e3b-0f5e-4973-aac2-7bc9404c8829",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[137010, 3853, 909, 21, 84, "Input",ExpressionUUID->"06170cf5-5725-4db7-9abf-baaae6184a1f",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[137922, 3876, 370, 8, 45, "Output",ExpressionUUID->"7541f143-0ea9-4b5d-b657-aeb8f2dee650",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[138295, 3886, 333, 5, 41, "Output",ExpressionUUID->"38c95c1a-bed6-4965-90f5-6a25fc82a5fd",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[138631, 3893, 7360, 243, 128, "Output",ExpressionUUID->"c278b6bc-9cc9-48ce-8ae3-776ed3be3b1b",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[145994, 4138, 858, 20, 84, "Input",ExpressionUUID->"d4636f46-ebf7-4599-b84d-d083abe3c498",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[146855, 4160, 391, 8, 45, "Output",ExpressionUUID->"48d412dc-94d6-457f-a511-00672ffc3ad0",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[147249, 4170, 331, 5, 41, "Output",ExpressionUUID->"831e40db-fb85-4bbe-9482-3f8abf7b6c8f",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[147583, 4177, 260422, 7517, 452, "Output",ExpressionUUID->"627d4b80-676a-427d-aa59-497a8051f7a5",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[408008, 11696, 1011, 24, 84, "Input",ExpressionUUID->"08395451-c1d4-48b2-9a9c-5fb761fbb6c7",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[409022, 11722, 310, 7, 45, "Output",ExpressionUUID->"6b3326f4-d0cf-4c39-9ffd-93183fd30da8",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[409335, 11731, 260, 4, 41, "Output",ExpressionUUID->"0235d9e8-dc02-4f3d-b54e-ce6402b51827",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[409598, 11737, 94755, 2661, 416, "Output",ExpressionUUID->"f0ccd80f-eee3-4e09-8792-3c406cbb2a28",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}]
}, Closed]],
Cell[CellGroupData[{
Cell[504390, 14403, 736, 18, 38, "Input",ExpressionUUID->"397e6b52-254d-46cf-aa1b-294ed07fa8d0"],
Cell[505129, 14423, 466, 12, 60, "Output",ExpressionUUID->"611abb35-c74f-458b-9ff9-21236c56e031"]
}, Open  ]],
Cell[CellGroupData[{
Cell[505632, 14440, 769, 21, 41, "Input",ExpressionUUID->"eed87aa8-e689-4ad0-b931-fe404e5992a4"],
Cell[506404, 14463, 415, 11, 60, "Output",ExpressionUUID->"0e5f8c9d-40aa-42f1-b042-d6b2ac5f5a75"]
}, Open  ]],
Cell[CellGroupData[{
Cell[506856, 14479, 591, 16, 41, "Input",ExpressionUUID->"388d741b-16b9-4a02-b2f6-1bbb7865defe"],
Cell[507450, 14497, 342, 10, 60, "Output",ExpressionUUID->"ce0b9507-fb0e-42e8-9ecc-ebedfdce9831"]
}, Open  ]],
Cell[CellGroupData[{
Cell[507829, 14512, 669, 19, 41, "Input",ExpressionUUID->"c49c84b8-ab1d-452e-afc8-efe303e3da7b"],
Cell[508501, 14533, 365, 10, 60, "Output",ExpressionUUID->"c89a68bf-c299-4101-b974-841f53d3ab33"]
}, Open  ]],
Cell[CellGroupData[{
Cell[508903, 14548, 590, 16, 41, "Input",ExpressionUUID->"80b338e7-61f3-4d5a-8d1b-9cfc18dea336"],
Cell[509496, 14566, 326, 8, 60, "Output",ExpressionUUID->"42e433e4-bad0-400c-951c-0593817b8636"]
}, Open  ]],
Cell[CellGroupData[{
Cell[509859, 14579, 589, 16, 41, "Input",ExpressionUUID->"4b80514f-ef39-48b8-a285-c995a1844f10"],
Cell[510451, 14597, 370, 10, 60, "Output",ExpressionUUID->"abe97a3d-2034-4f28-a81e-3d864f4dcba9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[510858, 14612, 498, 14, 41, "Input",ExpressionUUID->"8ee8eb8a-f400-4033-a2e2-f5db28ad29f2"],
Cell[511359, 14628, 572, 17, 60, "Output",ExpressionUUID->"5e789a40-6752-431c-a051-e8b164b4af06"]
}, Open  ]],
Cell[CellGroupData[{
Cell[511968, 14650, 467, 13, 41, "Input",ExpressionUUID->"648e8675-5172-412d-831d-49efa1549d85"],
Cell[512438, 14665, 777, 22, 60, "Output",ExpressionUUID->"f5f822bb-bf7c-4c7c-854e-41738e2c15cf"]
}, Open  ]],
Cell[CellGroupData[{
Cell[513252, 14692, 525, 14, 63, "Input",ExpressionUUID->"dd71b57b-7b96-42f7-8ce2-3409770cdc69"],
Cell[513780, 14708, 364, 10, 41, "Output",ExpressionUUID->"01c62d80-a066-4ba6-8c4e-6e2d2bcd44f2"],
Cell[514147, 14720, 366, 10, 41, "Output",ExpressionUUID->"2117a886-b2cf-4fad-bdac-960abed6ba6a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[514550, 14735, 367, 8, 69, "Section",ExpressionUUID->"d5b07f78-e948-4e67-a54b-4d84b8388bc0",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[514920, 14745, 794, 13, 84, "Input",ExpressionUUID->"c063e393-5e7c-4fb8-ac68-05f851c35f67",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[515717, 14760, 633, 12, 41, "Output",ExpressionUUID->"82ccfac6-3dce-4453-8107-935012563e91",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[516353, 14774, 710, 12, 84, "Input",ExpressionUUID->"35cb0f0b-2e10-473c-888a-f0a4683609c6",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[517066, 14788, 632, 12, 41, "Output",ExpressionUUID->"8aa31950-7915-4abe-a2f4-c55b39085f0b",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[517701, 14802, 1040, 23, 110, "Input",ExpressionUUID->"d35d3330-4fef-45e2-ba3f-d2828d6e2c60",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[518744, 14827, 1134, 28, 62, "Output",ExpressionUUID->"1a22a944-86f0-4c88-8d2d-e44cd277f2a9",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[519881, 14857, 1107, 25, 110, "Input",ExpressionUUID->"d728cbf2-140d-4406-9688-ba56c88a55a1",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[520991, 14884, 1180, 28, 62, "Output",ExpressionUUID->"08f52424-d177-4bc1-9da4-acb034be50a5",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[522174, 14914, 2317, 60, 126, "Input",ExpressionUUID->"b6a1b2b6-3f91-4b45-a10e-3c156c67d31f",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[524494, 14976, 461, 10, 45, "Output",ExpressionUUID->"9ee6222b-3a13-469f-84dd-360056023dc7",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[524958, 14988, 461, 10, 45, "Output",ExpressionUUID->"4be4b556-1928-4172-8f58-e895ffb1bfec",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[525422, 15000, 461, 10, 45, "Output",ExpressionUUID->"e22df6e3-5eaa-421c-a503-8d4fb80f7c35",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[525886, 15012, 466, 10, 45, "Output",ExpressionUUID->"f6d7ee91-88ba-4218-8691-9da8902e9de5",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[526355, 15024, 6903, 194, 504, "Input",ExpressionUUID->"6f65304a-6500-44b9-b840-81fee344d921",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[533261, 15220, 494, 8, 41, "Output",ExpressionUUID->"7f43a34e-98b3-463f-95b7-a03a1044fa07",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[533758, 15230, 494, 8, 41, "Output",ExpressionUUID->"ad69dcad-18a8-441c-b7b2-e109b44fc6d9",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[534255, 15240, 496, 8, 41, "Output",ExpressionUUID->"8fc0f35d-4f97-477c-a4a4-ad00b05d78c6",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[534754, 15250, 494, 8, 41, "Output",ExpressionUUID->"4a229c9c-d5d7-474e-890d-b699cbc32d1f",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[535251, 15260, 494, 8, 41, "Output",ExpressionUUID->"30c8d5f7-b32f-4f26-a20e-feaad65d1f6a",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[535748, 15270, 496, 8, 41, "Output",ExpressionUUID->"4422821e-6588-4583-a621-deb166d4f050",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[536247, 15280, 493, 8, 41, "Output",ExpressionUUID->"39b8a206-2412-4d59-be7b-f82f23072825",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[536743, 15290, 496, 8, 41, "Output",ExpressionUUID->"2dd1589c-9d6a-4015-9ec5-0b119b8e9fa6",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[537242, 15300, 1608, 43, 107, "Output",ExpressionUUID->"3a9e2207-b764-400e-b3fa-d215be9a275d",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[538853, 15345, 568, 12, 52, "Output",ExpressionUUID->"9772dc03-4056-44b7-b6ce-941ded01c683",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[539424, 15359, 1673, 45, 123, "Output",ExpressionUUID->"583ea711-fec7-43a1-96fe-e8e944a65f78",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[541100, 15406, 1147, 39, 305, "Output",ExpressionUUID->"75ad7466-7707-4097-afc5-9b5c829c48e1",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Closed]],
Cell[CellGroupData[{
Cell[542284, 15450, 249, 4, 55, "Section",ExpressionUUID->"f21e8e07-ec96-4efa-8449-dd8cf8c439ea",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[542536, 15456, 12684, 310, 530, "Input",ExpressionUUID->"a1a3b399-e84d-491b-abfc-a2abbe23e3e6",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[555223, 15768, 36437, 1081, 324, "Output",ExpressionUUID->"18958083-5d72-41c1-b282-ffe6cd70b80b",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[591663, 16851, 9861, 256, 772, "Input",ExpressionUUID->"41ac8d40-14fb-4004-bd54-5925b92e4f43",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[601527, 17109, 2899, 94, 232, "Output",ExpressionUUID->"6644ba04-2f52-4fb3-bd2c-d84493866994",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[604429, 17205, 5429, 139, 336, "Input",ExpressionUUID->"d12b2c41-8241-4226-849a-ffdae3be2e7c",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[609861, 17346, 2567, 83, 144, "Output",ExpressionUUID->"e0785fbb-8edf-4cbe-b3c0-abf9d3d5397c",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[612431, 17431, 683, 15, 63, "Input",ExpressionUUID->"edd66210-90cf-4691-ba81-e5d845ae51dc",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[613117, 17448, 2248, 67, 111, "Output",ExpressionUUID->"9bd6340e-0b5c-4c3f-94f8-bfca6dae88f2",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[615368, 17517, 315, 6, 41, "Output",ExpressionUUID->"501a2de6-cd82-41ca-a7ca-89d01922dbb9",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[615686, 17525, 814, 19, 63, "Input",ExpressionUUID->"9cc863d4-0dbc-4a9d-89a8-93163a715141",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[616503, 17546, 1995, 60, 106, "Output",ExpressionUUID->"b047cdba-562e-4b80-987c-32f4572df43c",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[618501, 17608, 725, 21, 62, "Output",ExpressionUUID->"57a111ba-1883-4be3-b6b2-0713f071e837",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}]
}, Closed]],
Cell[CellGroupData[{
Cell[619263, 17634, 1265, 33, 187, "Input",ExpressionUUID->"fb628873-3232-4edd-873b-5ee5a6c34f97"],
Cell[620531, 17669, 1123, 39, 123, "Output",ExpressionUUID->"6f7058c7-2c43-40c5-a342-789116fd3224"]
}, Open  ]],
Cell[CellGroupData[{
Cell[621691, 17713, 887, 22, 180, "Input",ExpressionUUID->"03e02ddd-4fe6-4bcb-8d81-62402385e750"],
Cell[622581, 17737, 1016, 33, 75, "Output",ExpressionUUID->"70a42d87-2fa4-4367-a9be-35d4fba11ff7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[623634, 17775, 387, 9, 41, "Input",ExpressionUUID->"d0693e88-979b-47d0-9667-cf60ca0c77ef"],
Cell[624024, 17786, 1783, 57, 145, "Output",ExpressionUUID->"f1f7c3da-1ff9-400c-8118-7e63cff03493"]
}, Open  ]],
Cell[CellGroupData[{
Cell[625844, 17848, 467, 12, 41, "Input",ExpressionUUID->"df2269db-c883-418b-b884-55d824fe64a3"],
Cell[626314, 17862, 1540, 54, 149, "Output",ExpressionUUID->"16759481-dda8-4a0a-83ed-f38b65a9ce44"]
}, Open  ]],
Cell[CellGroupData[{
Cell[627891, 17921, 566, 15, 41, "Input",ExpressionUUID->"c8ea89ad-8d00-4742-b670-a312944e17a0"],
Cell[628460, 17938, 2826, 93, 161, "Output",ExpressionUUID->"1bdab740-5142-43c3-877a-5223ad9d43dc"]
}, Open  ]],
Cell[CellGroupData[{
Cell[631323, 18036, 1006, 25, 126, "Input",ExpressionUUID->"0394c147-48cb-411b-b4df-6d273962d9e8"],
Cell[632332, 18063, 340, 8, 41, "Output",ExpressionUUID->"627e8da8-8b08-4495-a57f-68af76034996"],
Cell[632675, 18073, 327, 8, 41, "Output",ExpressionUUID->"7d3fd036-9e9f-44e4-aa16-4d47078f5bc2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[633039, 18086, 1319, 34, 190, "Input",ExpressionUUID->"620cc3b8-0807-4bff-9f28-9d8351b569f3"],
Cell[634361, 18122, 1174, 40, 123, "Output",ExpressionUUID->"77305d8e-08a3-4810-aa41-d877dc6a1358"]
}, Open  ]],
Cell[CellGroupData[{
Cell[635572, 18167, 1010, 26, 180, "Input",ExpressionUUID->"028f6f92-b1bb-4a45-ba04-d8bf5d6989d7"],
Cell[636585, 18195, 1164, 37, 75, "Output",ExpressionUUID->"1aae2ccf-550c-4384-ae74-8960aeac474d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[637786, 18237, 429, 10, 41, "Input",ExpressionUUID->"4fbdbeda-187c-4448-b9f2-a7108ebd3503"],
Cell[638218, 18249, 1764, 57, 141, "Output",ExpressionUUID->"e6fff4c9-2056-474b-b1b1-a3bf4b512b76"]
}, Open  ]],
Cell[CellGroupData[{
Cell[640019, 18311, 1514, 40, 161, "Input",ExpressionUUID->"7fccc65f-6dc0-4d5d-af68-d27f96c48a6d"],
Cell[641536, 18353, 588, 14, 59, "Output",ExpressionUUID->"44b41bbf-64b6-4dd7-8e8f-eea620e20437"],
Cell[642127, 18369, 704, 19, 44, "Output",ExpressionUUID->"54fefd57-47f9-4c34-a773-47c254309099"]
}, Open  ]],
Cell[CellGroupData[{
Cell[642868, 18393, 434, 9, 41, "Input",ExpressionUUID->"a2f91649-76fa-4d50-ae03-6275cf995e7b"],
Cell[643305, 18404, 278, 7, 41, "Output",ExpressionUUID->"59c8198b-56ce-46cc-ae6e-e18ce7d56a0d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[643620, 18416, 1481, 39, 248, "Input",ExpressionUUID->"fd35c471-8be2-43c8-aeb3-f147deddecba"],
Cell[645104, 18457, 1525, 52, 143, "Output",ExpressionUUID->"1a6257ae-3c67-47fa-8641-1aea999ebfed"]
}, Open  ]],
Cell[CellGroupData[{
Cell[646666, 18514, 1205, 33, 228, "Input",ExpressionUUID->"87cca33f-d9b3-4c43-8fa8-0258a8004364"],
Cell[647874, 18549, 1110, 38, 111, "Output",ExpressionUUID->"82d85ed8-0480-4ab3-9cdb-ee94e04b6db0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[649021, 18592, 443, 11, 41, "Input",ExpressionUUID->"3e467d2d-b46e-4cbe-8d86-fda02e1e0ace"],
Cell[649467, 18605, 1862, 62, 161, "Output",ExpressionUUID->"07398aee-e55b-4b89-98e2-a6861694c247"]
}, Open  ]],
Cell[CellGroupData[{
Cell[651366, 18672, 2021, 57, 168, "Input",ExpressionUUID->"e0fe1223-6d5e-486b-98f6-ae9dd84f1e28"],
Cell[653390, 18731, 377, 10, 41, "Output",ExpressionUUID->"7929bae1-e397-4500-b0d4-9ef275bc7502"],
Cell[653770, 18743, 855, 28, 56, "Output",ExpressionUUID->"c8918f26-63d4-4c02-849e-dd431666f83e"],
Cell[654628, 18773, 961, 32, 56, "Output",ExpressionUUID->"a273793c-a535-464a-a196-56e74005ff9b"],
Cell[655592, 18807, 351, 9, 41, "Output",ExpressionUUID->"6987c2a5-c5fb-44d0-b671-9d5ae21612fe"]
}, Open  ]],
Cell[CellGroupData[{
Cell[655980, 18821, 2578, 77, 173, "Input",ExpressionUUID->"4083dfe5-340c-4016-8ec5-4cdc7bce1771"],
Cell[658561, 18900, 418, 13, 45, "Output",ExpressionUUID->"6834ea34-1c33-4eef-aeb0-69248012de7f"],
Cell[658982, 18915, 896, 31, 56, "Output",ExpressionUUID->"8dcf3878-0eff-4186-9679-ad90995a0ef5"],
Cell[659881, 18948, 976, 34, 63, "Output",ExpressionUUID->"4c8f9e3d-cd48-46ad-ab46-6d5265c16387"],
Cell[660860, 18984, 327, 9, 41, "Output",ExpressionUUID->"9340e401-ddf1-4c30-b1c6-abf03d97d2cb"]
}, Open  ]],
Cell[CellGroupData[{
Cell[661224, 18998, 228, 4, 69, "Section",ExpressionUUID->"61c446cc-bbf5-4023-88a2-8beb8ea84962",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[661455, 19004, 768, 20, 84, "Input",ExpressionUUID->"1c89bc27-3759-40a2-b37d-c5b7cf301f0a",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[662226, 19026, 616, 18, 41, "Output",ExpressionUUID->"4ddcad6c-a6dd-46e8-a1dd-a62e51124f2e",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[662845, 19046, 455, 11, 41, "Input",ExpressionUUID->"e32a2923-c4a1-4b56-bb3a-73d1b52923cd",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[663303, 19059, 1033, 31, 107, "Output",ExpressionUUID->"f848225b-db06-4fb6-a911-ba41eb0ff9c5",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[664339, 19092, 1057, 27, 147, "Input",ExpressionUUID->"09f41c7d-3aee-49ad-b908-9476863b29ca",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[665399, 19121, 1091, 34, 69, "Output",ExpressionUUID->"a5ffbc43-ec37-4ebf-9275-dafa08ec4b95",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[666493, 19157, 301, 6, 41, "Input",ExpressionUUID->"d3e9c8e4-6f6b-427e-8123-42eef52e62fe",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[666797, 19165, 1222, 37, 41, "Output",ExpressionUUID->"65b1ed8e-fb9e-4333-a9a6-ca3d1db9c05f",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[668022, 19204, 686, 15, 105, "Input",ExpressionUUID->"9f96c41d-e0e5-429e-b81a-5855a6064e53",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[668711, 19221, 1730, 51, 107, "Output",ExpressionUUID->"516213d2-f038-4331-9a52-705d7db3b111",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Closed]]
}
]
*)