frw diffgeo.nb

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

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

(* CreatedBy='Mathematica 12.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    540947,      15884]
NotebookOptionsPosition[    522348,      15543]
NotebookOutlinePosition[    522721,      15559]
CellTagsIndexPosition[    522678,      15556]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"coord", "=", 
   RowBox[{"{", 
    RowBox[{"t", ",", "r", ",", "\[Theta]", ",", "\[Phi]"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metric", "=", 
   RowBox[{"DiagonalMatrix", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "1"}], ",", 
      FractionBox[
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "2"], 
       RowBox[{"1", "-", 
        RowBox[{"k", " ", 
         SuperscriptBox["r", "2"]}]}]], ",", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "2"], 
       SuperscriptBox["r", "2"]}], ",", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "2"], 
       SuperscriptBox["r", "2"], 
       SuperscriptBox[
        RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"$Assumptions", "=", 
   RowBox[{"And", "[", 
    RowBox[{
     RowBox[{"t", "\[Element]", "Reals"}], ",", 
     RowBox[{"\[Phi]", "\[Element]", "Reals"}], ",", 
     RowBox[{"0", "<", "\[Theta]", "<", "\[Pi]"}], ",", 
     RowBox[{"r", ">", "0"}], ",", 
     RowBox[{"k", "\[Element]", "Reals"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metricsign", "=", 
   RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"SetDirectory", "[", 
  "\"\<D:\\\\Program Files\\\\Wolfram Research\\\\Mathematica\\\\12.0\>\"", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"<<", "diffgeo.m"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.802939782028242*^9, 3.8029400328546357`*^9}, {
  3.812017746665805*^9, 3.8120177477186403`*^9}, {3.8120178829752254`*^9, 
  3.8120178851871386`*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"bdd6e6ff-212e-4fdf-b408-bcdb7e5acbbe"],

Cell[BoxData["\<\"D:\\\\Program Files\\\\Wolfram \
Research\\\\Mathematica\\\\12.0\"\>"], "Output",
 CellChangeTimes->{
  3.811864972115386*^9, 3.81200069619189*^9, 3.812001659582692*^9, 
   3.812003081405698*^9, 3.8120031255437207`*^9, 3.812007689832571*^9, 
   3.812008284358313*^9, 3.8120176697550545`*^9, 3.812017749737346*^9, 
   3.8120177977876616`*^9, {3.8120178586309977`*^9, 3.812017887226268*^9}, 
   3.8120797483716226`*^9},
 CellLabel->"Out[5]=",ExpressionUUID->"de8bbe55-7a47-4a7a-81be-5bfad7338bf9"]
}, Open  ]],

Cell[TextData[StyleBox["Review", "Item",
 FontSize->18,
 FontColor->RGBColor[1, 0, 0]]], "Text",
 CellChangeTimes->{{3.8120006640934963`*^9, 3.812000676423498*^9}, {
  3.812000742735237*^9, 
  3.8120007888508954`*^9}},ExpressionUUID->"4848d1e6-ce59-45a5-95a2-\
72a5365533e7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"metric", "//", "MatrixForm"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.8118544713814764`*^9, 3.811854481551051*^9}},
 CellLabel->"In[9]:=",ExpressionUUID->"7dbac5d8-a1fa-429e-9260-7fe4ed77957c"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"-", "1"}], "0", "0", "0"},
     {"0", 
      FractionBox[
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "2"], 
       RowBox[{"1", "-", 
        RowBox[{"k", " ", 
         SuperscriptBox["r", "2"]}]}]], "0", "0"},
     {"0", "0", 
      RowBox[{
       SuperscriptBox["r", "2"], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "2"]}], "0"},
     {"0", "0", "0", 
      RowBox[{
       SuperscriptBox["r", "2"], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "\[Theta]", "]"}], "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",
 CellChangeTimes->{
  3.8029400344103904`*^9, 3.8030067585975556`*^9, 3.8118534002271037`*^9, {
   3.8118544732716193`*^9, 3.8118544821445274`*^9}, 3.812000756119522*^9, {
   3.812001658424589*^9, 3.8120016639026127`*^9}},
 CellLabel->
  "Out[9]//MatrixForm=",ExpressionUUID->"cb6f7186-3fe3-42bd-b521-\
211524f7f1ae"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["rg"], "Input",
 CellChangeTimes->{{3.8029406705044765`*^9, 3.802940671863641*^9}},
 CellLabel->"In[10]:=",ExpressionUUID->"7df981f7-9d7c-4ae8-9ea5-9fab9eee1b7a"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["r", "2"], " ", 
  SqrtBox[
   FractionBox[
    SuperscriptBox[
     RowBox[{"a", "[", "t", "]"}], "6"], 
    RowBox[{"1", "-", 
     RowBox[{"k", " ", 
      SuperscriptBox["r", "2"]}]}]]], " ", 
  RowBox[{"Sin", "[", "\[Theta]", "]"}]}]], "Output",
 CellChangeTimes->{3.8029406723485155`*^9, 3.8030067628325434`*^9, 
  3.8118534033201528`*^9, 3.812001668226385*^9},
 CellLabel->"Out[10]=",ExpressionUUID->"c837a99b-5a98-441a-a16c-770564e898c8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"tr", "[", "metric", "]"}]], "Input",
 CellChangeTimes->{{3.80294003949992*^9, 3.802940043395062*^9}},
 CellLabel->"In[11]:=",ExpressionUUID->"67fd2aac-fa61-45d2-a1be-3cc99d4a14d4"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "1"}], "+", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"a", "[", "t", "]"}], "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["r", "2"], "+", 
     FractionBox["1", 
      RowBox[{"1", "-", 
       RowBox[{"k", " ", 
        SuperscriptBox["r", "2"]}]}]], "+", 
     RowBox[{
      SuperscriptBox["r", "2"], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{3.8029400440935144`*^9, 3.8030067668640594`*^9, 
  3.8120016705500374`*^9},
 CellLabel->"Out[11]=",ExpressionUUID->"d2c955fa-135a-47f5-91a3-f636ba9146d5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"metric", "[", 
  RowBox[{"[", 
   RowBox[{"r", ",", "r"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.803008519996073*^9, 3.803008527669423*^9}},
 CellLabel->"In[12]:=",ExpressionUUID->"b5592247-87f5-4a3c-91a8-b66ac82f4c32"],

Cell[BoxData[
 FractionBox[
  SuperscriptBox[
   RowBox[{"a", "[", "t", "]"}], "2"], 
  RowBox[{"1", "-", 
   RowBox[{"k", " ", 
    SuperscriptBox["r", "2"]}]}]]], "Output",
 CellChangeTimes->{3.8030085283097734`*^9, 3.812001671934103*^9},
 CellLabel->"Out[12]=",ExpressionUUID->"b17060c0-d4a3-4370-a77d-e1cf01995493"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"zeroQ", "[", "RicciTensor", "]"}]], "Input",
 CellChangeTimes->{{3.811853411833858*^9, 3.8118534282049227`*^9}},
 CellLabel->"In[8]:=",ExpressionUUID->"f925a105-e55d-476a-81ab-e621a6a767c1"],

Cell[BoxData["False"], "Output",
 CellChangeTimes->{3.8118534289234915`*^9},
 CellLabel->"Out[8]=",ExpressionUUID->"ea85fc35-73c6-406c-b7e6-5cdb0ea57a6a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Christoffel", "//", "display"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.802941322636634*^9, 3.8029413353573055`*^9}},
 CellLabel->"In[36]:=",ExpressionUUID->"58f833b3-860d-413a-ade4-9fddc9ae3648"],

Cell[BoxData[
 InterpretationBox[
  TagBox[
   FrameBox[GridBox[{
      {
       ItemBox[
        TagBox[
         TagBox[GridBox[{
            {
             TagBox[GridBox[{
                {
                 RowBox[{"{", 
                  RowBox[{"\[Theta]", ",", "r", ",", "\[Theta]"}], "}"}]},
                {
                 RowBox[{"{", 
                  RowBox[{"\[Theta]", ",", "\[Theta]", ",", "r"}], "}"}]},
                {
                 RowBox[{"{", 
                  RowBox[{"\[Phi]", ",", "r", ",", "\[Phi]"}], "}"}]},
                {
                 RowBox[{"{", 
                  RowBox[{"\[Phi]", ",", "\[Phi]", ",", "r"}], "}"}]}
               },
               DefaultBaseStyle->"Column",
               GridBoxAlignment->{"Columns" -> {{Left}}},
               
               GridBoxItemSize->{
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
              "Column"], 
             FractionBox["1", "r"]},
            {
             TagBox[GridBox[{
                {
                 RowBox[{"{", 
                  RowBox[{"r", ",", "r", ",", "r"}], "}"}]}
               },
               DefaultBaseStyle->"Column",
               GridBoxAlignment->{"Columns" -> {{Left}}},
               
               GridBoxItemSize->{
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
              "Column"], 
             FractionBox[
              RowBox[{"k", " ", "r"}], 
              RowBox[{"1", "-", 
               RowBox[{"k", " ", 
                SuperscriptBox["r", "2"]}]}]]},
            {
             TagBox[GridBox[{
                {
                 RowBox[{"{", 
                  RowBox[{"r", ",", "\[Theta]", ",", "\[Theta]"}], "}"}]}
               },
               DefaultBaseStyle->"Column",
               GridBoxAlignment->{"Columns" -> {{Left}}},
               
               GridBoxItemSize->{
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
              "Column"], 
             RowBox[{"r", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", 
                RowBox[{"k", " ", 
                 SuperscriptBox["r", "2"]}]}], ")"}]}]},
            {
             TagBox[GridBox[{
                {
                 RowBox[{"{", 
                  RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Phi]"}], "}"}]},
                {
                 RowBox[{"{", 
                  RowBox[{"\[Phi]", ",", "\[Phi]", ",", "\[Theta]"}], "}"}]}
               },
               DefaultBaseStyle->"Column",
               GridBoxAlignment->{"Columns" -> {{Left}}},
               
               GridBoxItemSize->{
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
              "Column"], 
             RowBox[{"Cot", "[", "\[Theta]", "]"}]},
            {
             TagBox[GridBox[{
                {
                 RowBox[{"{", 
                  RowBox[{"\[Theta]", ",", "\[Phi]", ",", "\[Phi]"}], "}"}]}
               },
               DefaultBaseStyle->"Column",
               GridBoxAlignment->{"Columns" -> {{Left}}},
               
               GridBoxItemSize->{
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
              "Column"], 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"Cos", "[", "\[Theta]", "]"}]}], " ", 
              RowBox[{"Sin", "[", "\[Theta]", "]"}]}]},
            {
             TagBox[GridBox[{
                {
                 RowBox[{"{", 
                  RowBox[{"r", ",", "\[Phi]", ",", "\[Phi]"}], "}"}]}
               },
               DefaultBaseStyle->"Column",
               GridBoxAlignment->{"Columns" -> {{Left}}},
               
               GridBoxItemSize->{
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
              "Column"], 
             RowBox[{"r", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", 
                RowBox[{"k", " ", 
                 SuperscriptBox["r", "2"]}]}], ")"}], " ", 
              SuperscriptBox[
               RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]},
            {
             TagBox[GridBox[{
                {
                 RowBox[{"{", 
                  RowBox[{"r", ",", "t", ",", "r"}], "}"}]},
                {
                 RowBox[{"{", 
                  RowBox[{"r", ",", "r", ",", "t"}], "}"}]},
                {
                 RowBox[{"{", 
                  RowBox[{"\[Theta]", ",", "t", ",", "\[Theta]"}], "}"}]},
                {
                 RowBox[{"{", 
                  RowBox[{"\[Theta]", ",", "\[Theta]", ",", "t"}], "}"}]},
                {
                 RowBox[{"{", 
                  RowBox[{"\[Phi]", ",", "t", ",", "\[Phi]"}], "}"}]},
                {
                 RowBox[{"{", 
                  RowBox[{"\[Phi]", ",", "\[Phi]", ",", "t"}], "}"}]}
               },
               DefaultBaseStyle->"Column",
               GridBoxAlignment->{"Columns" -> {{Left}}},
               
               GridBoxItemSize->{
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
              "Column"], 
             FractionBox[
              RowBox[{
               SuperscriptBox["a", "\[Prime]",
                MultilineFunction->None], "[", "t", "]"}], 
              RowBox[{"a", "[", "t", "]"}]]},
            {
             TagBox[GridBox[{
                {
                 RowBox[{"{", 
                  RowBox[{"t", ",", "\[Theta]", ",", "\[Theta]"}], "}"}]}
               },
               DefaultBaseStyle->"Column",
               GridBoxAlignment->{"Columns" -> {{Left}}},
               
               GridBoxItemSize->{
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
              "Column"], 
             RowBox[{
              SuperscriptBox["r", "2"], " ", 
              RowBox[{"a", "[", "t", "]"}], " ", 
              RowBox[{
               SuperscriptBox["a", "\[Prime]",
                MultilineFunction->None], "[", "t", "]"}]}]},
            {
             TagBox[GridBox[{
                {
                 RowBox[{"{", 
                  RowBox[{"t", ",", "r", ",", "r"}], "}"}]}
               },
               DefaultBaseStyle->"Column",
               GridBoxAlignment->{"Columns" -> {{Left}}},
               
               GridBoxItemSize->{
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
              "Column"], 
             FractionBox[
              RowBox[{
               RowBox[{"a", "[", "t", "]"}], " ", 
               RowBox[{
                SuperscriptBox["a", "\[Prime]",
                 MultilineFunction->None], "[", "t", "]"}]}], 
              RowBox[{"1", "-", 
               RowBox[{"k", " ", 
                SuperscriptBox["r", "2"]}]}]]},
            {
             TagBox[GridBox[{
                {
                 RowBox[{"{", 
                  RowBox[{"t", ",", "\[Phi]", ",", "\[Phi]"}], "}"}]}
               },
               DefaultBaseStyle->"Column",
               GridBoxAlignment->{"Columns" -> {{Left}}},
               
               GridBoxItemSize->{
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
              "Column"], 
             RowBox[{
              SuperscriptBox["r", "2"], " ", 
              RowBox[{"a", "[", "t", "]"}], " ", 
              SuperscriptBox[
               RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
              RowBox[{
               SuperscriptBox["a", "\[Prime]",
                MultilineFunction->None], "[", "t", "]"}]}]}
           },
           AutoDelete->False,
           GridBoxFrame->{"Columns" -> False, "Rows" -> {{True}}},
           GridBoxItemSize->{
            "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
          "Grid"],
         Short[#, 5]& ],
        BaseStyle->{Deployed -> False},
        StripOnInput->False]},
      {GridBox[{
         {
          PaneBox[
           TagBox[
            TooltipBox[
             StyleBox[
              StyleBox[
               DynamicBox[ToBoxes[
                 FEPrivate`FrontEndResource[
                 "FEStrings", "sizeBriefExplanation"], StandardForm],
                ImageSizeCache->{98., {4., 14.}}],
               StripOnInput->False,
               DynamicUpdating->True,
               LineSpacing->{1, 2},
               LineIndent->0,
               LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLText",
              StripOnInput->False],
             StyleBox[
              DynamicBox[
               ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], 
                StandardForm]], DynamicUpdating -> True, LineIndent -> 0, 
              LinebreakAdjustments -> {1., 100, 0, 0, 0}, 
              LineSpacing -> {1, 2}, StripOnInput -> False]],
            Annotation[#, 
             Style[
              Dynamic[
               FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"]], 
              DynamicUpdating -> True, LineIndent -> 0, 
              LinebreakAdjustments -> {1., 100, 0, 0, 0}, 
              LineSpacing -> {1, 2}], "Tooltip"]& ],
           Alignment->Center,
           BaselinePosition->Baseline,
           ImageSize->{Automatic, {25, Full}}], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
                StandardForm],
               ImageSizeCache->{80., {1., 14.}}],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
                StandardForm],
               ImageSizeCache->{80., {1., 14.}}],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, {25, Full}}],
           Appearance->None,
           BaselinePosition->Baseline,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            OutputSizeLimit`Defer, 36, 24398802039397196099, 5/2],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
                StandardForm],
               ImageSizeCache->{93., {1., 14.}}],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, {25, Full}}],
           Appearance->None,
           BaselinePosition->Baseline,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            OutputSizeLimit`Defer, 36, 24398802039397196099, 5 2],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
                StandardForm],
               ImageSizeCache->{69., {1., 14.}}],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, {25, Full}}],
           Appearance->None,
           BaselinePosition->Baseline,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            OutputSizeLimit`Defer, 36, 24398802039397196099, Infinity],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
                StandardForm],
               ImageSizeCache->{120., {1., 14.}}],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
                StandardForm],
               ImageSizeCache->{120., {1., 14.}}],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, {25, Full}}],
           Appearance->None,
           BaselinePosition->Baseline,
           ButtonFunction:>FrontEndExecute[{
              FrontEnd`SetOptions[
              FrontEnd`$FrontEnd, 
               FrontEnd`PreferencesSettings -> {"Page" -> "Advanced"}], 
              FrontEnd`FrontEndToken["PreferencesDialog"]}],
           Evaluator->None,
           Method->"Preemptive"]}
        },
        AutoDelete->False,
        FrameStyle->GrayLevel[0.85],
        GridBoxDividers->{"Columns" -> {False, {True}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {{2}}}]}
     },
     DefaultBaseStyle->"Column",
     GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
     GridBoxDividers->{"Columns" -> {{False}}, "Rows" -> {{False}}},
     GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], 
         Offset[1.2], {
          Offset[0.4]}, 
         Offset[0.2]}}],
    BaseStyle->"OutputSizeLimit",
    FrameMargins->{{12, 12}, {0, 15}},
    FrameStyle->GrayLevel[0.85],
    RoundingRadius->5,
    StripOnInput->False],
   Deploy,
   DefaultBaseStyle->"Deploy"],
  If[24398802039397196099 === $SessionID, 
   Out[36], Message[
     MessageName[Syntax, "noinfoker"]]; Missing["NotAvailable"]; 
   Null]]], "Output",
 CellChangeTimes->{
  3.80294133566973*^9, 3.812017676180223*^9, {3.812017754436569*^9, 
   3.8120178000747833`*^9}, 3.81201786151433*^9},
 CellLabel->"Out[36]=",ExpressionUUID->"35873d2f-20fa-4836-adcc-9232e0a93fbc"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Riemann", "//", "display"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.8029400794831004`*^9, 3.802940089945388*^9}, {
  3.8029401374762745`*^9, 3.802940137894396*^9}, {3.8118534331569567`*^9, 
  3.811853434969055*^9}},
 CellLabel->"In[7]:=",ExpressionUUID->"23943e9c-f5ad-4a11-a43d-19f486421289"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"r", ",", "\[Theta]", ",", "\[Theta]", ",", "r"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Theta]", ",", "\[Phi]"}],
           "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", 
      RowBox[{"(", 
       RowBox[{"k", "+", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["a", "\[Prime]",
           MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"\[Theta]", ",", "r", ",", "\[Theta]", ",", "r"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"\[Theta]", ",", "\[Phi]", ",", "\[Theta]", ",", "\[Phi]"}],
           "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      SuperscriptBox["r", "2"], " ", 
      RowBox[{"(", 
       RowBox[{"k", "+", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["a", "\[Prime]",
           MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"r", ",", "\[Theta]", ",", "r", ",", "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"r", ",", "\[Phi]", ",", "r", ",", "\[Phi]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{"k", "+", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["a", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}]}], 
      RowBox[{"2", "-", 
       RowBox[{"2", " ", "k", " ", 
        SuperscriptBox["r", "2"]}]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"\[Theta]", ",", "r", ",", "r", ",", "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"\[Phi]", ",", "r", ",", "r", ",", "\[Phi]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{"k", "+", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["a", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}]}], 
      RowBox[{
       RowBox[{"-", "2"}], "+", 
       RowBox[{"2", " ", "k", " ", 
        SuperscriptBox["r", "2"]}]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"r", ",", "\[Phi]", ",", "\[Phi]", ",", "r"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"\[Theta]", ",", "\[Phi]", ",", "\[Phi]", ",", "\[Theta]"}],
           "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
      RowBox[{"(", 
       RowBox[{"k", "+", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["a", "\[Prime]",
           MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"\[Phi]", ",", "r", ",", "\[Phi]", ",", "r"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Phi]", ",", "\[Theta]"}],
           "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      SuperscriptBox["r", "2"], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
      RowBox[{"(", 
       RowBox[{"k", "+", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["a", "\[Prime]",
           MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "r", ",", "t", ",", "r"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "\[Theta]", ",", "t", ",", "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "\[Phi]", ",", "t", ",", "\[Phi]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], 
       RowBox[{"a", "[", "t", "]"}]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"r", ",", "t", ",", "t", ",", "r"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"\[Theta]", ",", "t", ",", "t", ",", "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"\[Phi]", ",", "t", ",", "t", ",", "\[Phi]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       SuperscriptBox["a", "\[Prime]\[Prime]",
        MultilineFunction->None], "[", "t", "]"}], 
      RowBox[{"a", "[", "t", "]"}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "\[Theta]", ",", "\[Theta]", ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", 
      RowBox[{"a", "[", "t", "]"}], " ", 
      RowBox[{
       SuperscriptBox["a", "\[Prime]\[Prime]",
        MultilineFunction->None], "[", "t", "]"}]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"\[Theta]", ",", "t", ",", "\[Theta]", ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      SuperscriptBox["r", "2"], " ", 
      RowBox[{"a", "[", "t", "]"}], " ", 
      RowBox[{
       SuperscriptBox["a", "\[Prime]\[Prime]",
        MultilineFunction->None], "[", "t", "]"}]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"r", ",", "t", ",", "r", ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{"2", " ", 
       RowBox[{"a", "[", "t", "]"}], " ", 
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}]}], 
      RowBox[{"2", "-", 
       RowBox[{"2", " ", "k", " ", 
        SuperscriptBox["r", "2"]}]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "r", ",", "r", ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{"2", " ", 
       RowBox[{"a", "[", "t", "]"}], " ", 
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}]}], 
      RowBox[{
       RowBox[{"-", "2"}], "+", 
       RowBox[{"2", " ", "k", " ", 
        SuperscriptBox["r", "2"]}]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "\[Phi]", ",", "\[Phi]", ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", 
      RowBox[{"a", "[", "t", "]"}], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
      RowBox[{
       SuperscriptBox["a", "\[Prime]\[Prime]",
        MultilineFunction->None], "[", "t", "]"}]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"\[Phi]", ",", "t", ",", "\[Phi]", ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      SuperscriptBox["r", "2"], " ", 
      RowBox[{"a", "[", "t", "]"}], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
      RowBox[{
       SuperscriptBox["a", "\[Prime]\[Prime]",
        MultilineFunction->None], "[", "t", "]"}]}]}
   },
   AutoDelete->False,
   GridBoxFrame->{"Columns" -> False, "Rows" -> {{True}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{3.802940090831806*^9, 3.802940138638288*^9, 
  3.803006772317479*^9, 3.8118534355781465`*^9, 3.812001658615193*^9, 
  3.8120037019357324`*^9, 3.812017679027587*^9, 3.8120178110823216`*^9, 
  3.8120798401876173`*^9},
 CellLabel->"Out[7]=",ExpressionUUID->"f5187873-6630-45a3-8ede-ab96daf55c48"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RicciTensor", "//", "display"}]], "Input",
 CellChangeTimes->{{3.8118534542613783`*^9, 3.811853462181386*^9}},
 CellLabel->"In[29]:=",ExpressionUUID->"b5803df9-541a-4082-a835-82275394ea70"],

Cell[BoxData[
 InterpretationBox[
  TagBox[
   FrameBox[GridBox[{
      {
       ItemBox[
        TagBox[
         TagBox[GridBox[{
            {
             TagBox[GridBox[{
                {
                 RowBox[{"{", 
                  RowBox[{"t", ",", "t"}], "}"}]}
               },
               DefaultBaseStyle->"Column",
               GridBoxAlignment->{"Columns" -> {{Left}}},
               
               GridBoxItemSize->{
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
              "Column"], 
             RowBox[{"-", 
              FractionBox[
               RowBox[{"3", " ", 
                RowBox[{
                 SuperscriptBox["a", "\[Prime]\[Prime]",
                  MultilineFunction->None], "[", "t", "]"}]}], 
               RowBox[{"a", "[", "t", "]"}]]}]},
            {
             TagBox[GridBox[{
                {
                 RowBox[{"{", 
                  RowBox[{"\[Theta]", ",", "\[Theta]"}], "}"}]}
               },
               DefaultBaseStyle->"Column",
               GridBoxAlignment->{"Columns" -> {{Left}}},
               
               GridBoxItemSize->{
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
              "Column"], 
             RowBox[{
              SuperscriptBox["r", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"2", " ", "k"}], "+", 
                RowBox[{"2", " ", 
                 SuperscriptBox[
                  RowBox[{
                   SuperscriptBox["a", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
                RowBox[{
                 RowBox[{"a", "[", "t", "]"}], " ", 
                 RowBox[{
                  SuperscriptBox["a", "\[Prime]\[Prime]",
                   MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}]},
            {
             TagBox[GridBox[{
                {
                 RowBox[{"{", 
                  RowBox[{"r", ",", "r"}], "}"}]}
               },
               DefaultBaseStyle->"Column",
               GridBoxAlignment->{"Columns" -> {{Left}}},
               
               GridBoxItemSize->{
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
              "Column"], 
             FractionBox[
              RowBox[{
               RowBox[{"2", " ", "k"}], "+", 
               RowBox[{"2", " ", 
                SuperscriptBox[
                 RowBox[{
                  SuperscriptBox["a", "\[Prime]",
                   MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
               RowBox[{
                RowBox[{"a", "[", "t", "]"}], " ", 
                RowBox[{
                 SuperscriptBox["a", "\[Prime]\[Prime]",
                  MultilineFunction->None], "[", "t", "]"}]}]}], 
              RowBox[{"1", "-", 
               RowBox[{"k", " ", 
                SuperscriptBox["r", "2"]}]}]]},
            {
             TagBox[GridBox[{
                {
                 RowBox[{"{", 
                  RowBox[{"\[Phi]", ",", "\[Phi]"}], "}"}]}
               },
               DefaultBaseStyle->"Column",
               GridBoxAlignment->{"Columns" -> {{Left}}},
               
               GridBoxItemSize->{
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
              "Column"], 
             RowBox[{
              SuperscriptBox["r", "2"], " ", 
              SuperscriptBox[
               RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"2", " ", "k"}], "+", 
                RowBox[{"2", " ", 
                 SuperscriptBox[
                  RowBox[{
                   SuperscriptBox["a", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
                RowBox[{
                 RowBox[{"a", "[", "t", "]"}], " ", 
                 RowBox[{
                  SuperscriptBox["a", "\[Prime]\[Prime]",
                   MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}]}
           },
           AutoDelete->False,
           GridBoxFrame->{"Columns" -> False, "Rows" -> {{True}}},
           
           GridBoxItemSize->{
            "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
          "Grid"],
         Short[#, 5]& ],
        BaseStyle->{Deployed -> False},
        StripOnInput->False]},
      {GridBox[{
         {
          PaneBox[
           TagBox[
            TooltipBox[
             StyleBox[
              StyleBox[
               DynamicBox[ToBoxes[
                 FEPrivate`FrontEndResource[
                 "FEStrings", "sizeBriefExplanation"], StandardForm],
                ImageSizeCache->{98., {4., 14.}}],
               StripOnInput->False,
               DynamicUpdating->True,
               LineSpacing->{1, 2},
               LineIndent->0,
               LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLText",
              StripOnInput->False],
             StyleBox[
              DynamicBox[
               ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], 
                StandardForm]], DynamicUpdating -> True, LineIndent -> 0, 
              LinebreakAdjustments -> {1., 100, 0, 0, 0}, 
              LineSpacing -> {1, 2}, StripOnInput -> False]],
            Annotation[#, 
             Style[
              Dynamic[
               FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"]], 
              DynamicUpdating -> True, LineIndent -> 0, 
              LinebreakAdjustments -> {1., 100, 0, 0, 0}, 
              LineSpacing -> {1, 2}], "Tooltip"]& ],
           Alignment->Center,
           BaselinePosition->Baseline,
           ImageSize->{Automatic, {25, Full}}], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
                StandardForm],
               ImageSizeCache->{80., {1., 14.}}],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
                StandardForm],
               ImageSizeCache->{80., {1., 14.}}],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, {25, Full}}],
           Appearance->None,
           BaselinePosition->Baseline,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            OutputSizeLimit`Defer, 29, 24398802039397196099, 5/2],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
                StandardForm],
               ImageSizeCache->{93., {1., 14.}}],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
                StandardForm],
               ImageSizeCache->{93., {1., 14.}}],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, {25, Full}}],
           Appearance->None,
           BaselinePosition->Baseline,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            OutputSizeLimit`Defer, 29, 24398802039397196099, 5 2],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
                StandardForm],
               ImageSizeCache->{69., {1., 14.}}],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
                StandardForm],
               ImageSizeCache->{69., {1., 14.}}],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, {25, Full}}],
           Appearance->None,
           BaselinePosition->Baseline,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            OutputSizeLimit`Defer, 29, 24398802039397196099, Infinity],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
                StandardForm],
               ImageSizeCache->{120., {1., 14.}}],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, {25, Full}}],
           Appearance->None,
           BaselinePosition->Baseline,
           ButtonFunction:>FrontEndExecute[{
              FrontEnd`SetOptions[
              FrontEnd`$FrontEnd, 
               FrontEnd`PreferencesSettings -> {"Page" -> "Advanced"}], 
              FrontEnd`FrontEndToken["PreferencesDialog"]}],
           Evaluator->None,
           Method->"Preemptive"]}
        },
        AutoDelete->False,
        FrameStyle->GrayLevel[0.85],
        GridBoxDividers->{"Columns" -> {False, {True}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {{2}}}]}
     },
     DefaultBaseStyle->"Column",
     GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
     GridBoxDividers->{"Columns" -> {{False}}, "Rows" -> {{False}}},
     GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], 
         Offset[1.2], {
          Offset[0.4]}, 
         Offset[0.2]}}],
    BaseStyle->"OutputSizeLimit",
    FrameMargins->{{12, 12}, {0, 15}},
    FrameStyle->GrayLevel[0.85],
    RoundingRadius->5,
    StripOnInput->False],
   Deploy,
   DefaultBaseStyle->"Deploy"],
  If[24398802039397196099 === $SessionID, 
   Out[29], Message[
     MessageName[Syntax, "noinfoker"]]; Missing["NotAvailable"]; 
   Null]]], "Output",
 CellChangeTimes->{3.8118534625405717`*^9, 3.812017834797392*^9},
 CellLabel->"Out[29]=",ExpressionUUID->"6dd231a4-0b8e-4102-8017-0e618e93c6e1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Riemann", "[", 
  RowBox[{"[", 
   RowBox[{"r", ",", "t", ",", "r", ",", "t"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.811853467633087*^9, 3.8118534736942973`*^9}},
 CellLabel->"In[11]:=",ExpressionUUID->"ea35f348-afa9-4a05-8520-4d9cc034aff1"],

Cell[BoxData[
 FractionBox[
  RowBox[{"2", " ", 
   RowBox[{"a", "[", "t", "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", "\[Prime]\[Prime]",
     MultilineFunction->None], "[", "t", "]"}]}], 
  RowBox[{"2", "-", 
   RowBox[{"2", " ", "k", " ", 
    SuperscriptBox["r", "2"]}]}]]], "Output",
 CellChangeTimes->{3.8118534743346643`*^9},
 CellLabel->"Out[11]=",ExpressionUUID->"1de0d717-ea11-458c-951d-59304314c551"]
}, Open  ]],

Cell[TextData[StyleBox["Differential Forms", "Item",
 FontSlant->"Italic"]], "Text",
 CellChangeTimes->{{3.81200082429543*^9, 
  3.8120008339643707`*^9}},ExpressionUUID->"7c87016c-b43f-4568-8367-\
be7387e3f644"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"HodgeStar", ":", " ", 
    RowBox[{
     RowBox[{"Transforms", " ", "a", " ", "p"}], "-", 
     RowBox[{"form", " ", "to", " ", 
      RowBox[{"(", 
       RowBox[{"n", "-", "p"}], ")"}]}], "-", "form"}]}], ",", " ", 
   RowBox[{
   "where", " ", "n", " ", "is", " ", "spacetime", " ", "dimensions"}]}], 
  "*)"}]], "Input",
 CellChangeTimes->{{3.812001729573351*^9, 3.8120017299407496`*^9}, {
  3.8120025306410246`*^9, 3.812002595766356*^9}, {3.8120028667626133`*^9, 
  3.81200289524939*^9}},ExpressionUUID->"5027a4ff-d1fd-4d6d-bc52-\
56ad7638caa8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{"st1", "=", 
    RowBox[{"HodgeStar", "[", 
     RowBox[{"partial", "[", 
      RowBox[{"f", "[", "t", "]"}], "]"}], "]"}]}], ")"}], "//", 
  "display"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.8120016858279004`*^9, 3.812001693840397*^9}, {
  3.8120025982215953`*^9, 3.8120026754599237`*^9}, {3.8120027311025352`*^9, 
  3.812002733056517*^9}, {3.8120029419097447`*^9, 3.8120029463650055`*^9}, {
  3.81200319610372*^9, 3.812003224383835*^9}, {3.812079905264947*^9, 
  3.81207991933558*^9}, {3.81207997151997*^9, 3.812079995241494*^9}},
 CellLabel->"In[14]:=",ExpressionUUID->"efd8bf30-97ee-4388-979e-8e0a1b292c1b"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"r", ",", "\[Theta]", ",", "\[Phi]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"\[Theta]", ",", "\[Phi]", ",", "r"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"\[Phi]", ",", "r", ",", "\[Theta]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", 
      SqrtBox[
       FractionBox[
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "6"], 
        RowBox[{"1", "-", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "2"]}]}]]], " ", 
      RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", 
      RowBox[{
       SuperscriptBox["f", "\[Prime]",
        MultilineFunction->None], "[", "t", "]"}]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"r", ",", "\[Phi]", ",", "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"\[Theta]", ",", "r", ",", "\[Phi]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"\[Phi]", ",", "\[Theta]", ",", "r"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      SuperscriptBox["r", "2"], " ", 
      SqrtBox[
       FractionBox[
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "6"], 
        RowBox[{"1", "-", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "2"]}]}]]], " ", 
      RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", 
      RowBox[{
       SuperscriptBox["f", "\[Prime]",
        MultilineFunction->None], "[", "t", "]"}]}]}
   },
   AutoDelete->False,
   GridBoxFrame->{"Columns" -> False, "Rows" -> {{True}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{{3.812002647916147*^9, 3.8120027345190797`*^9}, {
   3.8120029201477823`*^9, 3.812002931501961*^9}, 3.8120031318990107`*^9, {
   3.8120031968295345`*^9, 3.812003225540024*^9}, 3.812008818846904*^9, 
   3.8120176867151337`*^9, {3.8120799079486313`*^9, 3.812079920400985*^9}, {
   3.812079973983259*^9, 3.812079995611213*^9}},
 CellLabel->"Out[14]=",ExpressionUUID->"19b4c796-055c-4280-aae3-80f3aa5fa019"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TensorToForm", "[", "st1", "]"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.812002686236146*^9, 3.8120027418017693`*^9}, {
  3.812003235577335*^9, 3.8120032479244137`*^9}},
 CellLabel->"In[11]:=",ExpressionUUID->"ce29b715-40f4-43ce-9b9d-751baae45935"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   SuperscriptBox["r", "2"]}], " ", 
  SqrtBox[
   FractionBox[
    SuperscriptBox[
     RowBox[{"a", "[", "t", "]"}], "6"], 
    RowBox[{"1", "-", 
     RowBox[{"k", " ", 
      SuperscriptBox["r", "2"]}]}]]], " ", 
  RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", 
  RowBox[{"\[DoubleStruckD]", "[", 
   RowBox[{"r", ",", "\[Theta]", ",", "\[Phi]"}], "]"}], " ", 
  RowBox[{
   SuperscriptBox["f", "\[Prime]",
    MultilineFunction->None], "[", "t", "]"}]}]], "Output",
 CellChangeTimes->{{3.812002692773364*^9, 3.8120027424344273`*^9}, {
  3.8120029214019012`*^9, 3.8120029347989225`*^9}, {3.812003228026234*^9, 
  3.8120032480716853`*^9}, {3.812079910074217*^9, 3.8120799235266204`*^9}},
 CellLabel->"Out[11]=",ExpressionUUID->"04f7e724-1830-4836-b533-67593265800d"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"Wedge", ":", " ", 
   RowBox[{
    RowBox[{"Wedge", " ", "of", " ", "p"}], "-", 
    RowBox[{"form", " ", "to", " ", "q"}], "-", 
    RowBox[{"form", " ", "is", " ", "a", " ", 
     RowBox[{"(", 
      RowBox[{"p", "+", "q"}], ")"}]}], "-", "form"}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.8120030017831717`*^9, 
  3.812003047199058*^9}},ExpressionUUID->"89c65506-c876-458c-b5a1-\
b552340a50fa"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{"st2", "=", 
    RowBox[{"Wedge", "[", 
     RowBox[{"st1", ",", 
      RowBox[{"partial", "[", 
       RowBox[{"f", "[", 
        RowBox[{"t", ",", "r"}], "]"}], "]"}]}], "]"}]}], ")"}], "//", 
  "display"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.81200305050049*^9, 3.8120030695036488`*^9}, {
  3.8120032535397787`*^9, 3.8120032553440065`*^9}, {3.812003310019052*^9, 
  3.8120033171012545`*^9}},
 CellLabel->"In[24]:=",ExpressionUUID->"02dc040f-b108-418e-9f50-86f456e8154b"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "r", ",", "\[Phi]", ",", "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "\[Theta]", ",", "r", ",", "\[Phi]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "\[Phi]", ",", "\[Theta]", ",", "r"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"r", ",", "t", ",", "\[Theta]", ",", "\[Phi]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"r", ",", "\[Theta]", ",", "\[Phi]", ",", "t"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"r", ",", "\[Phi]", ",", "t", ",", "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"\[Theta]", ",", "t", ",", "\[Phi]", ",", "r"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"\[Theta]", ",", "r", ",", "t", ",", "\[Phi]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"\[Theta]", ",", "\[Phi]", ",", "r", ",", "t"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"\[Phi]", ",", "t", ",", "r", ",", "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"\[Phi]", ",", "r", ",", "\[Theta]", ",", "t"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"\[Phi]", ",", "\[Theta]", ",", "t", ",", "r"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", 
      SqrtBox[
       FractionBox[
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "6"], 
        RowBox[{"1", "-", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "2"]}]}]]], " ", 
      RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", 
      RowBox[{
       SuperscriptBox["f", "\[Prime]",
        MultilineFunction->None], "[", "t", "]"}], " ", 
      RowBox[{
       SuperscriptBox["f", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"1", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "r"}], "]"}]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "r", ",", "\[Theta]", ",", "\[Phi]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "\[Theta]", ",", "\[Phi]", ",", "r"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "\[Phi]", ",", "r", ",", "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"r", ",", "t", ",", "\[Phi]", ",", "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"r", ",", "\[Theta]", ",", "t", ",", "\[Phi]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"r", ",", "\[Phi]", ",", "\[Theta]", ",", "t"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"\[Theta]", ",", "t", ",", "r", ",", "\[Phi]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"\[Theta]", ",", "r", ",", "\[Phi]", ",", "t"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"\[Theta]", ",", "\[Phi]", ",", "t", ",", "r"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"\[Phi]", ",", "t", ",", "\[Theta]", ",", "r"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"\[Phi]", ",", "r", ",", "t", ",", "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"\[Phi]", ",", "\[Theta]", ",", "r", ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      SuperscriptBox["r", "2"], " ", 
      SqrtBox[
       FractionBox[
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "6"], 
        RowBox[{"1", "-", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "2"]}]}]]], " ", 
      RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", 
      RowBox[{
       SuperscriptBox["f", "\[Prime]",
        MultilineFunction->None], "[", "t", "]"}], " ", 
      RowBox[{
       SuperscriptBox["f", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"1", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "r"}], "]"}]}]}
   },
   AutoDelete->False,
   GridBoxFrame->{"Columns" -> False, "Rows" -> {{True}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{{3.812003070278001*^9, 3.8120030986248407`*^9}, {
   3.8120031343054123`*^9, 3.812003136096533*^9}, 3.8120032017100515`*^9, {
   3.812003251374134*^9, 3.8120032559235687`*^9}, 3.8120033177936764`*^9},
 CellLabel->"Out[24]=",ExpressionUUID->"098e37bd-5c69-493d-97c3-519f20d39b4d"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"exterior", ":", " ", 
   RowBox[{
    RowBox[{"Transforms", " ", "a", " ", "p"}], "-", 
    RowBox[{"form", " ", "to", " ", 
     RowBox[{"(", 
      RowBox[{"p", "+", "1"}], ")"}]}], "-", "form"}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.8120027482421904`*^9, 3.8120027835792227`*^9}, {
  3.812002843113567*^9, 
  3.812002859017188*^9}},ExpressionUUID->"9a11ba4b-7007-4b92-ac79-\
a465ff1b4450"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"f1", "=", 
  RowBox[{
   RowBox[{"exterior", "[", "st1", "]"}], "//", "display"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.812000879345005*^9, 3.812000890939274*^9}, {
  3.812002903482379*^9, 3.8120029774429502`*^9}, {3.8120032716122684`*^9, 
  3.8120032827203827`*^9}},
 CellLabel->"In[29]:=",ExpressionUUID->"73ad973f-77ea-4223-8c20-d132067379de"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "r", ",", "\[Theta]", ",", "\[Phi]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "\[Theta]", ",", "\[Phi]", ",", "r"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "\[Phi]", ",", "r", ",", "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"r", ",", "t", ",", "\[Phi]", ",", "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"r", ",", "\[Theta]", ",", "t", ",", "\[Phi]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"r", ",", "\[Phi]", ",", "\[Theta]", ",", "t"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"\[Theta]", ",", "t", ",", "r", ",", "\[Phi]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"\[Theta]", ",", "r", ",", "\[Phi]", ",", "t"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"\[Theta]", ",", "\[Phi]", ",", "t", ",", "r"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"\[Phi]", ",", "t", ",", "\[Theta]", ",", "r"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"\[Phi]", ",", "r", ",", "t", ",", "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"\[Phi]", ",", "\[Theta]", ",", "r", ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        SqrtBox[
         FractionBox[
          SuperscriptBox[
           RowBox[{"a", "[", "t", "]"}], "6"], 
          RowBox[{"1", "-", 
           RowBox[{"k", " ", 
            SuperscriptBox["r", "2"]}]}]]], " ", 
        RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"3", " ", 
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox["f", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}]}], "+", 
          RowBox[{
           RowBox[{"a", "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox["f", "\[Prime]\[Prime]",
             MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}], 
       RowBox[{"a", "[", "t", "]"}]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "r", ",", "\[Phi]", ",", "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "\[Theta]", ",", "r", ",", "\[Phi]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "\[Phi]", ",", "\[Theta]", ",", "r"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"r", ",", "t", ",", "\[Theta]", ",", "\[Phi]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"r", ",", "\[Theta]", ",", "\[Phi]", ",", "t"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"r", ",", "\[Phi]", ",", "t", ",", "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"\[Theta]", ",", "t", ",", "\[Phi]", ",", "r"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"\[Theta]", ",", "r", ",", "t", ",", "\[Phi]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"\[Theta]", ",", "\[Phi]", ",", "r", ",", "t"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"\[Phi]", ",", "t", ",", "r", ",", "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"\[Phi]", ",", "r", ",", "\[Theta]", ",", "t"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"\[Phi]", ",", "\[Theta]", ",", "t", ",", "r"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       SuperscriptBox["r", "2"], " ", 
       SqrtBox[
        FractionBox[
         SuperscriptBox[
          RowBox[{"a", "[", "t", "]"}], "6"], 
         RowBox[{"1", "-", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}]]], " ", 
       RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"3", " ", 
          RowBox[{
           SuperscriptBox["a", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], " ", 
          RowBox[{
           SuperscriptBox["f", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}]}], "+", 
         RowBox[{
          RowBox[{"a", "[", "t", "]"}], " ", 
          RowBox[{
           SuperscriptBox["f", "\[Prime]\[Prime]",
            MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}], 
      RowBox[{"a", "[", "t", "]"}]]}
   },
   AutoDelete->False,
   GridBoxFrame->{"Columns" -> False, "Rows" -> {{True}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{{3.8120029146397467`*^9, 3.812002925780612*^9}, {
   3.812002959547616*^9, 3.812002977911336*^9}, 3.812003137676776*^9, {
   3.81200327989421*^9, 3.8120032832648797`*^9}, 3.8120037242541857`*^9},
 CellLabel->"Out[29]=",ExpressionUUID->"734b7381-f20a-4b51-b0b7-1b3f29d93f8f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"HodgeStar", "[", "st2", "]"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.812003291999007*^9, 3.8120032960497985`*^9}, {
  3.8120033287618446`*^9, 3.812003330775025*^9}},
 CellLabel->"In[25]:=",ExpressionUUID->"793fe618-3e96-4321-a1ff-5cd76d84eae1"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   RowBox[{
    SuperscriptBox["f", "\[Prime]",
     MultilineFunction->None], "[", "t", "]"}]}], " ", 
  RowBox[{
   SuperscriptBox["f", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"1", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "r"}], "]"}]}]], "Output",
 CellChangeTimes->{3.8120033315314765`*^9},
 CellLabel->"Out[25]=",ExpressionUUID->"e00c2253-bed0-4c5d-ba8f-03c1d4dfbfa2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"rank", "[", "st1", "]"}]], "Input",
 CellChangeTimes->{{3.812003373578108*^9, 3.812003379256074*^9}},
 CellLabel->"In[26]:=",ExpressionUUID->"4226b3da-852f-4bbb-8cd0-1901a9841eee"],

Cell[BoxData["3"], "Output",
 CellChangeTimes->{3.812003379801084*^9},
 CellLabel->"Out[26]=",ExpressionUUID->"22bedc45-f1a0-493e-a9fc-97cd0c7cf6cc"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TensorToForm", "[", "st1", "]"}]], "Input",
 CellChangeTimes->{{3.812008855669201*^9, 3.8120088670102787`*^9}},
 CellLabel->"In[24]:=",ExpressionUUID->"fd24515c-eced-47ab-be1c-794efb593150"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   SuperscriptBox["r", "2"]}], " ", 
  SqrtBox[
   FractionBox[
    SuperscriptBox[
     RowBox[{"a", "[", "t", "]"}], "6"], 
    RowBox[{"1", "-", 
     RowBox[{"k", " ", 
      SuperscriptBox["r", "2"]}]}]]], " ", 
  RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", 
  RowBox[{"\[DoubleStruckD]", "[", 
   RowBox[{"r", ",", "\[Theta]", ",", "\[Phi]"}], "]"}], " ", 
  RowBox[{
   SuperscriptBox["f", "\[Prime]",
    MultilineFunction->None], "[", "t", "]"}]}]], "Output",
 CellChangeTimes->{3.8120088674787827`*^9},
 CellLabel->"Out[24]=",ExpressionUUID->"71c380d8-77b4-4634-a797-d994c82bb7fc"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
  "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
    "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**"}], 
  "*"}]], "Input",
 CellChangeTimes->{{3.8118534791304073`*^9, 
  3.8118534822079215`*^9}},ExpressionUUID->"64784a7a-991d-4677-9d4c-\
9e98495cf53b"],

Cell[TextData[StyleBox["Partial Derivative", "Subsection",
 FontSize->18,
 FontColor->RGBColor[1, 0, 0]]], "Text",
 InitializationCell->True,
 CellChangeTimes->{{3.8120036586904664`*^9, 
  3.8120036691611595`*^9}},ExpressionUUID->"5447f109-088a-45bf-ad5b-\
eff364102372"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"partial", "[", 
  RowBox[{"Riemann", "[", 
   RowBox[{"[", 
    RowBox[{"t", ",", "r", ",", "t", ",", "r"}], "]"}], "]"}], "]"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.8118534848478146`*^9, 3.811853499656926*^9}},
 CellLabel->"In[13]:=",ExpressionUUID->"d78e7b9b-71fc-4543-baba-5255d203c0fe"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   FractionBox[
    RowBox[{
     RowBox[{
      RowBox[{
       SuperscriptBox["a", "\[Prime]",
        MultilineFunction->None], "[", "t", "]"}], " ", 
      RowBox[{
       SuperscriptBox["a", "\[Prime]\[Prime]",
        MultilineFunction->None], "[", "t", "]"}]}], "-", 
     RowBox[{
      RowBox[{"a", "[", "t", "]"}], " ", 
      RowBox[{
       SuperscriptBox["a", 
        TagBox[
         RowBox[{"(", "3", ")"}],
         Derivative],
        MultilineFunction->None], "[", "t", "]"}]}]}], 
    SuperscriptBox[
     RowBox[{"a", "[", "t", "]"}], "2"]], ",", "0", ",", "0", ",", "0"}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.811853494517374*^9, 3.8118535002504325`*^9}},
 CellLabel->"Out[13]=",ExpressionUUID->"1287948c-43ab-48e4-9274-08f5fac94006"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Extract", "[", 
  RowBox[{"Riemann", "[", 
   RowBox[{"[", 
    RowBox[{"t", ",", "\[Phi]", ",", "\[Phi]", ",", "t"}], "]"}], "]"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.812080256524008*^9, 3.812080275483175*^9}},
 CellLabel->"In[15]:=",ExpressionUUID->"8083bb61-a477-4fc6-91e0-ad4428b51fbb"],

Cell[BoxData[
 RowBox[{"Extract", "[", 
  RowBox[{
   RowBox[{"-", 
    SuperscriptBox["r", "2"]}], " ", 
   RowBox[{"a", "[", "t", "]"}], " ", 
   SuperscriptBox[
    RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
   RowBox[{
    SuperscriptBox["a", "\[Prime]\[Prime]",
     MultilineFunction->None], "[", "t", "]"}]}], "]"}]], "Output",
 CellChangeTimes->{3.812080275761577*^9},
 CellLabel->"Out[15]=",ExpressionUUID->"e9533b0a-d39c-490d-88ab-a82571a0beb4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"partial", "[", 
  RowBox[{"Riemann", "[", 
   RowBox[{"[", 
    RowBox[{"t", ",", "\[Phi]", ",", "\[Phi]", ",", "t"}], "]"}], "]"}], 
  "]"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.811853507655015*^9, 3.811853522870203*^9}},
 CellLabel->"In[14]:=",ExpressionUUID->"d9c0a42b-10f0-4980-a262-e116fb345ed7"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     SuperscriptBox["r", "2"]}], " ", 
    SuperscriptBox[
     RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{
        SuperscriptBox["a", "\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], " ", 
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}]}], "+", 
      RowBox[{
       RowBox[{"a", "[", "t", "]"}], " ", 
       RowBox[{
        SuperscriptBox["a", 
         TagBox[
          RowBox[{"(", "3", ")"}],
          Derivative],
         MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}], ",", 
   RowBox[{
    RowBox[{"-", "2"}], " ", "r", " ", 
    RowBox[{"a", "[", "t", "]"}], " ", 
    SuperscriptBox[
     RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
    RowBox[{
     SuperscriptBox["a", "\[Prime]\[Prime]",
      MultilineFunction->None], "[", "t", "]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "2"}], " ", 
    SuperscriptBox["r", "2"], " ", 
    RowBox[{"a", "[", "t", "]"}], " ", 
    RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
    RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", "\[Prime]\[Prime]",
      MultilineFunction->None], "[", "t", "]"}]}], ",", "0"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.8118535232606287`*^9},
 CellLabel->"Out[14]=",ExpressionUUID->"a3bd96b5-fe08-4166-a1e0-4fe7e41b444a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"partial", "[", 
  RowBox[{"Riemann", "[", 
   RowBox[{"[", 
    RowBox[{"t", ",", "r", ",", "r", ",", "t"}], "]"}], "]"}], "]"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.811853542756141*^9, 3.8118535613767433`*^9}},
 CellLabel->"In[15]:=",ExpressionUUID->"b5f7f3e6-757f-418b-9f64-543971c234a8"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   FractionBox[
    RowBox[{
     RowBox[{
      RowBox[{
       SuperscriptBox["a", "\[Prime]",
        MultilineFunction->None], "[", "t", "]"}], " ", 
      RowBox[{
       SuperscriptBox["a", "\[Prime]\[Prime]",
        MultilineFunction->None], "[", "t", "]"}]}], "+", 
     RowBox[{
      RowBox[{"a", "[", "t", "]"}], " ", 
      RowBox[{
       SuperscriptBox["a", 
        TagBox[
         RowBox[{"(", "3", ")"}],
         Derivative],
        MultilineFunction->None], "[", "t", "]"}]}]}], 
    RowBox[{
     RowBox[{"-", "1"}], "+", 
     RowBox[{"k", " ", 
      SuperscriptBox["r", "2"]}]}]], ",", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{"2", " ", "k", " ", "r", " ", 
      RowBox[{"a", "[", "t", "]"}], " ", 
      RowBox[{
       SuperscriptBox["a", "\[Prime]\[Prime]",
        MultilineFunction->None], "[", "t", "]"}]}], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        RowBox[{"k", " ", 
         SuperscriptBox["r", "2"]}]}], ")"}], "2"]]}], ",", "0", ",", "0"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.811853561892115*^9},
 CellLabel->"Out[15]=",ExpressionUUID->"e9fb8d54-7137-4d34-ad44-c4401ed6eb75"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["RicciScalar"], "Input",
 CellChangeTimes->{{3.8029403885073028`*^9, 3.802940390499977*^9}},
 CellLabel->"In[16]:=",ExpressionUUID->"714b22ff-876b-4f22-a0c8-6d80a9de67d7"],

Cell[BoxData[
 FractionBox[
  RowBox[{"6", " ", 
   RowBox[{"(", 
    RowBox[{"k", "+", 
     SuperscriptBox[
      RowBox[{
       SuperscriptBox["a", "\[Prime]",
        MultilineFunction->None], "[", "t", "]"}], "2"], "+", 
     RowBox[{
      RowBox[{"a", "[", "t", "]"}], " ", 
      RowBox[{
       SuperscriptBox["a", "\[Prime]\[Prime]",
        MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}], 
  SuperscriptBox[
   RowBox[{"a", "[", "t", "]"}], "2"]]], "Output",
 CellChangeTimes->{3.8029403910064936`*^9, 3.8118535961028013`*^9},
 CellLabel->"Out[16]=",ExpressionUUID->"cdf5dee0-635c-4abd-8db2-b3d0a2dab475"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"partial", "[", "RicciScalar", "]"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.8118535975087566`*^9, 3.81185360738153*^9}},
 CellLabel->"In[17]:=",ExpressionUUID->"83dec5b9-bd25-4f3b-8fad-7b78a4fe3cd9"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   FractionBox[
    RowBox[{"6", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "2"}], " ", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["a", "\[Prime]",
           MultilineFunction->None], "[", "t", "]"}], "3"]}], "+", 
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "\[Prime]",
          MultilineFunction->None], "[", "t", "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "2"}], " ", "k"}], "+", 
          RowBox[{
           RowBox[{"a", "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox["a", "\[Prime]\[Prime]",
             MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "2"], " ", 
        RowBox[{
         SuperscriptBox["a", 
          TagBox[
           RowBox[{"(", "3", ")"}],
           Derivative],
          MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}], 
    SuperscriptBox[
     RowBox[{"a", "[", "t", "]"}], "3"]], ",", "0", ",", "0", ",", "0"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.8118536077563047`*^9},
 CellLabel->"Out[17]=",ExpressionUUID->"a05cc2ab-1e86-41f2-9c0e-919171e6bb1b"]
}, Open  ]],

Cell[TextData[{
 StyleBox["outer product represents ",
  FontColor->RGBColor[1, 0, 0]],
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["R", "ab"], 
    SubscriptBox["R", "cd"]}], TraditionalForm]],
  FontColor->RGBColor[1, 0, 0],ExpressionUUID->
  "54e30217-034e-42a0-9993-eee41e308807"]
}], "Text",
 CellChangeTimes->{{3.802940639186697*^9, 3.802940640515413*^9}, {
  3.8029406805529575`*^9, 3.8029406909767756`*^9}, {3.802940741046913*^9, 
  3.8029407984007664`*^9}, {3.811853623377759*^9, 
  3.8118536291418877`*^9}},ExpressionUUID->"1da87e39-0f13-496a-81c2-\
a1dd49842486"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.8120082735016365`*^9, 
  3.812008278641046*^9}},ExpressionUUID->"76601338-aace-4ff1-b537-\
dcf6413d89bc"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"RicciTensor", "**", "RicciTensor"}], "//", "display"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.802940695665126*^9, 3.802940722028401*^9}},
 CellLabel->"In[22]:=",ExpressionUUID->"ea241638-2a0d-48cb-8233-8d7d94d26bd5"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "t", ",", "t", ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{"9", " ", 
       SuperscriptBox[
        RowBox[{
         SuperscriptBox["a", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}], "2"]}], 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "2"]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "t", ",", "\[Theta]", ",", "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"\[Theta]", ",", "\[Theta]", ",", "t", ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"3", " ", 
        SuperscriptBox["r", "2"], " ", 
        RowBox[{
         SuperscriptBox["a", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "k"}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["a", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
          RowBox[{
           RowBox[{"a", "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox["a", "\[Prime]\[Prime]",
             MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}], 
       RowBox[{"a", "[", "t", "]"}]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "t", ",", "r", ",", "r"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"r", ",", "r", ",", "t", ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{"3", " ", 
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "k"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
         RowBox[{
          RowBox[{"a", "[", "t", "]"}], " ", 
          RowBox[{
           SuperscriptBox["a", "\[Prime]\[Prime]",
            MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "2"]}]}], ")"}], " ", 
       RowBox[{"a", "[", "t", "]"}]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "t", ",", "\[Phi]", ",", "\[Phi]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"\[Phi]", ",", "\[Phi]", ",", "t", ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"3", " ", 
        SuperscriptBox["r", "2"], " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
        RowBox[{
         SuperscriptBox["a", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "k"}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["a", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
          RowBox[{
           RowBox[{"a", "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox["a", "\[Prime]\[Prime]",
             MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}], 
       RowBox[{"a", "[", "t", "]"}]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "\[Theta]", ",", "\[Theta]", ",", "\[Theta]", ",", "\[Theta]"}], 
          "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      SuperscriptBox["r", "4"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "k"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
         RowBox[{
          RowBox[{"a", "[", "t", "]"}], " ", 
          RowBox[{
           SuperscriptBox["a", "\[Prime]\[Prime]",
            MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "2"]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"r", ",", "r", ",", "\[Theta]", ",", "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"\[Theta]", ",", "\[Theta]", ",", "r", ",", "r"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       SuperscriptBox["r", "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "k"}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["a", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
          RowBox[{
           RowBox[{"a", "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox["a", "\[Prime]\[Prime]",
             MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "2"]}], 
      RowBox[{"1", "-", 
       RowBox[{"k", " ", 
        SuperscriptBox["r", "2"]}]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"r", ",", "r", ",", "r", ",", "r"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "k"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
         RowBox[{
          RowBox[{"a", "[", "t", "]"}], " ", 
          RowBox[{
           SuperscriptBox["a", "\[Prime]\[Prime]",
            MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "2"], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "2"]}]}], ")"}], "2"]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"\[Theta]", ",", "\[Theta]", ",", "\[Phi]", ",", "\[Phi]"}],
           "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"\[Phi]", ",", "\[Phi]", ",", "\[Theta]", ",", "\[Theta]"}],
           "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      SuperscriptBox["r", "4"], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "k"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
         RowBox[{
          RowBox[{"a", "[", "t", "]"}], " ", 
          RowBox[{
           SuperscriptBox["a", "\[Prime]\[Prime]",
            MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "2"]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"r", ",", "r", ",", "\[Phi]", ",", "\[Phi]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"\[Phi]", ",", "\[Phi]", ",", "r", ",", "r"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       SuperscriptBox["r", "2"], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "k"}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["a", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
          RowBox[{
           RowBox[{"a", "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox["a", "\[Prime]\[Prime]",
             MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "2"]}], 
      RowBox[{"1", "-", 
       RowBox[{"k", " ", 
        SuperscriptBox["r", "2"]}]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"\[Phi]", ",", "\[Phi]", ",", "\[Phi]", ",", "\[Phi]"}], 
          "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      SuperscriptBox["r", "4"], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "4"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "k"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
         RowBox[{
          RowBox[{"a", "[", "t", "]"}], " ", 
          RowBox[{
           SuperscriptBox["a", "\[Prime]\[Prime]",
            MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "2"]}]}
   },
   AutoDelete->False,
   GridBoxFrame->{"Columns" -> False, "Rows" -> {{True}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{{3.8029407149806623`*^9, 3.802940722559786*^9}},
 CellLabel->"Out[22]=",ExpressionUUID->"d4431e62-de22-4417-a4ca-8108cf2e415a"]
}, Open  ]],

Cell[TextData[{
 StyleBox["inner product represents ",
  FontColor->RGBColor[1, 0, 0]],
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["R", "ab"], 
    SubscriptBox["R", "bc"]}], TraditionalForm]],
  FontColor->RGBColor[1, 0, 0],ExpressionUUID->
  "c13baf08-4cb7-43bf-a2eb-a9d2d2d0bd08"]
}], "Text",
 CellChangeTimes->{{3.802940833593994*^9, 3.8029408912893076`*^9}, {
  3.811853634297059*^9, 
  3.8118536391239376`*^9}},ExpressionUUID->"4aecfedd-4949-4f54-a2db-\
c851817b95d3"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"RicciTensor", ".", "RicciTensor"}], "//", "display"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.802940893429986*^9, 3.802940905697915*^9}},
 CellLabel->"In[23]:=",ExpressionUUID->"471137b5-c935-4695-a72d-63b436a7f3b7"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{"9", " ", 
       SuperscriptBox[
        RowBox[{
         SuperscriptBox["a", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}], "2"]}], 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "2"]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"\[Theta]", ",", "\[Theta]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      SuperscriptBox["r", "4"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "k"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
         RowBox[{
          RowBox[{"a", "[", "t", "]"}], " ", 
          RowBox[{
           SuperscriptBox["a", "\[Prime]\[Prime]",
            MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "2"]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"r", ",", "r"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "k"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
         RowBox[{
          RowBox[{"a", "[", "t", "]"}], " ", 
          RowBox[{
           SuperscriptBox["a", "\[Prime]\[Prime]",
            MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "2"], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "2"]}]}], ")"}], "2"]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"\[Phi]", ",", "\[Phi]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      SuperscriptBox["r", "4"], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "4"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "k"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
         RowBox[{
          RowBox[{"a", "[", "t", "]"}], " ", 
          RowBox[{
           SuperscriptBox["a", "\[Prime]\[Prime]",
            MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "2"]}]}
   },
   AutoDelete->False,
   GridBoxFrame->{"Columns" -> False, "Rows" -> {{True}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{3.8029409061355906`*^9},
 CellLabel->"Out[23]=",ExpressionUUID->"834ae85f-ac88-46ee-b7f5-93bd5ac5b786"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Weyl", "//", "display"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.802940921965829*^9, 3.8029409414381557`*^9}, {
  3.802941255091097*^9, 3.802941260798787*^9}},
 CellLabel->"In[26]:=",ExpressionUUID->"2bab307f-a689-4635-ba6e-da2e686e9f30"],

Cell[BoxData[
 InterpretationBox[
  TagBox[GridBox[{
     {""}
    },
    AutoDelete->False,
    GridBoxFrame->{"Columns" -> False, "Rows" -> {{True}}},
    GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
   "Grid"],
  Grid[{}, Frame -> {False, All}]]], "Output",
 CellChangeTimes->{{3.8029409300458403`*^9, 3.8029409372813377`*^9}, 
   3.8029412610174828`*^9},
 CellLabel->"Out[26]=",ExpressionUUID->"f1d75ee1-3b4c-4b0a-8709-47e683011539"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LeviCivita", "//", "display"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.802941289490946*^9, 3.802941301742933*^9}},
 CellLabel->"In[28]:=",ExpressionUUID->"2048b7a3-3c96-4bde-89ac-0c2a50041e22"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "r", ",", "\[Phi]", ",", "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "\[Theta]", ",", "r", ",", "\[Phi]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "\[Phi]", ",", "\[Theta]", ",", "r"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"r", ",", "t", ",", "\[Theta]", ",", "\[Phi]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"r", ",", "\[Theta]", ",", "\[Phi]", ",", "t"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"r", ",", "\[Phi]", ",", "t", ",", "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"\[Theta]", ",", "t", ",", "\[Phi]", ",", "r"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"\[Theta]", ",", "r", ",", "t", ",", "\[Phi]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"\[Theta]", ",", "\[Phi]", ",", "r", ",", "t"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"\[Phi]", ",", "t", ",", "r", ",", "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"\[Phi]", ",", "r", ",", "\[Theta]", ",", "t"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"\[Phi]", ",", "\[Theta]", ",", "t", ",", "r"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", 
      SqrtBox[
       FractionBox[
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "6"], 
        RowBox[{"1", "-", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "2"]}]}]]], " ", 
      RowBox[{"Sin", "[", "\[Theta]", "]"}]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "r", ",", "\[Theta]", ",", "\[Phi]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "\[Theta]", ",", "\[Phi]", ",", "r"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "\[Phi]", ",", "r", ",", "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"r", ",", "t", ",", "\[Phi]", ",", "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"r", ",", "\[Theta]", ",", "t", ",", "\[Phi]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"r", ",", "\[Phi]", ",", "\[Theta]", ",", "t"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"\[Theta]", ",", "t", ",", "r", ",", "\[Phi]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"\[Theta]", ",", "r", ",", "\[Phi]", ",", "t"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"\[Theta]", ",", "\[Phi]", ",", "t", ",", "r"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"\[Phi]", ",", "t", ",", "\[Theta]", ",", "r"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"\[Phi]", ",", "r", ",", "t", ",", "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"\[Phi]", ",", "\[Theta]", ",", "r", ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      SuperscriptBox["r", "2"], " ", 
      SqrtBox[
       FractionBox[
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "6"], 
        RowBox[{"1", "-", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "2"]}]}]]], " ", 
      RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}
   },
   AutoDelete->False,
   GridBoxFrame->{"Columns" -> False, "Rows" -> {{True}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{{3.8029412966639004`*^9, 3.8029413023364058`*^9}},
 CellLabel->"Out[28]=",ExpressionUUID->"297d7777-6760-43bd-aa04-f4cd07e67887"]
}, Open  ]],

Cell[TextData[{
 "outer product Riemann tensor :",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox[
     SubscriptBox["R", "abc"], "d"], 
    SuperscriptBox[
     SubscriptBox["R", "efg"], "h"]}], TraditionalForm]],ExpressionUUID->
  "a41acdb4-cddd-4583-a2ab-58305fa9adda"]
}], "Text",
 CellChangeTimes->{{3.8029556544050503`*^9, 3.8029557405697746`*^9}, {
  3.8029557829806137`*^9, 3.802955788497033*^9}, {3.8120170908089867`*^9, 
  3.812017135106538*^9}},ExpressionUUID->"5f153f1d-8a5c-4afd-bd07-\
ad1182cbd343"],

Cell[TextData[{
 "inner product of Riemann tensor represent ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox[
     SubscriptBox["R", "abc"], "d"], 
    SuperscriptBox[
     SubscriptBox["R", "def"], "g"]}], TraditionalForm]],ExpressionUUID->
  "3ed3a7d6-8622-4f6e-b5c9-b81b2c192721"]
}], "Text",
 CellChangeTimes->{{3.802955744069991*^9, 3.80295577938629*^9}, {
  3.8120170577267*^9, 3.8120170618213816`*^9}, {3.8120804476969533`*^9, 
  3.8120804591501265`*^9}},ExpressionUUID->"c103e846-4692-4dcd-80fd-\
b9dc1207ee9d"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"R1", "=", 
   RowBox[{"raise", "[", 
    RowBox[{"Riemann", ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "2", ",", "3"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"R2", "=", 
   RowBox[{"lower", "[", 
    RowBox[{"Riemann", ",", 
     RowBox[{"{", "4", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"R1", ".", "R2"}], "//", "display"}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.802955297463998*^9, 3.8029554211948156`*^9}, {
  3.811853690955576*^9, 3.811853712278674*^9}, {3.8118544588688984`*^9, 
  3.811854459181327*^9}},
 CellLabel->"In[16]:=",ExpressionUUID->"cc613c89-89e2-45af-bd3a-131c5bae7398"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "\[Theta]", ",", "r", ",", "r", ",", "r", ",", 
           "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "\[Theta]", ",", "\[Theta]", ",", "\[Theta]", ",", "r", 
           ",", "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "\[Phi]", ",", "r", ",", "r", ",", "r", ",", "\[Phi]"}], 
          "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "\[Phi]", ",", "\[Phi]", ",", "\[Phi]", ",", "r", ",", 
           "\[Phi]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "\[Theta]", ",", "\[Phi]", ",", "\[Theta]", ",", "\[Theta]", ",", 
           "\[Theta]", ",", "\[Phi]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "\[Theta]", ",", "\[Phi]", ",", "\[Phi]", ",", "\[Phi]", ",", 
           "\[Theta]", ",", "\[Phi]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "\[Phi]", ",", "\[Theta]", ",", "\[Theta]", ",", "\[Theta]", ",", 
           "\[Phi]", ",", "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "\[Phi]", ",", "\[Theta]", ",", "\[Phi]", ",", "\[Phi]", ",", 
           "\[Phi]", ",", "\[Theta]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"k", "+", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], "2"], 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "4"]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "\[Theta]", ",", "\[Theta]", ",", "\[Theta]", ",", 
           "\[Theta]", ",", "r"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "\[Phi]", ",", "\[Phi]", ",", "\[Phi]", ",", "\[Phi]", 
           ",", "r"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "\[Theta]", ",", "r", ",", "r", ",", "r", ",", "r", ",", 
           "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "\[Theta]", ",", "\[Phi]", ",", "\[Theta]", ",", "\[Theta]", ",", 
           "\[Phi]", ",", "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "\[Theta]", ",", "\[Phi]", ",", "\[Phi]", ",", "\[Phi]", ",", 
           "\[Phi]", ",", "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "\[Phi]", ",", "r", ",", "r", ",", "r", ",", "r", ",", "\[Phi]"}], 
          "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "\[Phi]", ",", "\[Theta]", ",", "\[Theta]", ",", "\[Theta]", ",", 
           "\[Theta]", ",", "\[Phi]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "\[Phi]", ",", "\[Theta]", ",", "\[Phi]", ",", "\[Phi]", ",", 
           "\[Theta]", ",", "\[Phi]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"k", "+", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["a", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], "2"], 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "4"]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "\[Phi]", ",", "\[Theta]", ",", "\[Theta]", ",", "r", ",", "\[Phi]",
            ",", "r"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"k", "+", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], "2"], 
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "4"]}]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "\[Theta]", ",", "\[Phi]", ",", "\[Theta]", ",", "r", ",", "\[Phi]",
            ",", "r"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"k", "+", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["a", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], "2"], 
      RowBox[{
       SuperscriptBox["r", "2"], " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "2"]}]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "4"]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "\[Phi]", ",", "\[Theta]", ",", "\[Theta]", ",", "r", ",", "r", ",",
            "\[Phi]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"k", "+", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], "2"], 
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "4"]}]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "\[Theta]", ",", "\[Phi]", ",", "\[Theta]", ",", "r", ",", "r", ",",
            "\[Phi]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"k", "+", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["a", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], "2"], 
      RowBox[{
       SuperscriptBox["r", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "2"]}]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "4"]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "\[Theta]", ",", "r", ",", "\[Theta]", ",", "\[Theta]", ",", "r", 
           ",", "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "\[Phi]", ",", "r", ",", "\[Phi]", ",", "\[Phi]", ",", "r", ",", 
           "\[Phi]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"k", "+", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["a", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], 
         "2"]}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "4"]}]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "\[Theta]", ",", "r", ",", "\[Theta]", ",", "\[Theta]", ",", 
           "\[Theta]", ",", "r"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "\[Phi]", ",", "r", ",", "\[Phi]", ",", "\[Phi]", ",", "\[Phi]", 
           ",", "r"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "2"]}]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"k", "+", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], "2"]}], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "2"]}]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "4"]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "\[Phi]", ",", "r", ",", "\[Theta]", ",", "\[Phi]", ",", 
           "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "\[Phi]", ",", "r", ",", "r", ",", "\[Theta]", ",", "\[Theta]", ",",
            "\[Phi]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"k", "+", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["a", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], 
         "2"]}], 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "4"]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "\[Phi]", ",", "r", ",", "\[Theta]", ",", "\[Theta]", ",",
            "\[Phi]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "\[Phi]", ",", "r", ",", "r", ",", "\[Theta]", ",", "\[Phi]", ",", 
           "\[Theta]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       SuperscriptBox["r", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "2"]}]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"k", "+", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], "2"]}], 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "4"]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "\[Theta]", ",", "r", ",", "r", ",", "\[Theta]", ",", 
           "r"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "\[Phi]", ",", "r", ",", "r", ",", "\[Phi]", ",", "r"}], 
          "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"k", "+", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["a", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], 
         "2"]}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "4"]}]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "\[Theta]", ",", "r", ",", "r", ",", "r", ",", "\[Theta]", ",", 
           "r"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "\[Phi]", ",", "r", ",", "r", ",", "r", ",", "\[Phi]", ",", "r"}], 
          "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "2"]}]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"k", "+", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], "2"]}], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "2"]}]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "4"]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "\[Phi]", ",", "\[Phi]", ",", "\[Theta]", ",", "r", ",", 
           "\[Theta]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"k", "+", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["a", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], 
         "2"]}], 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "4"]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "\[Phi]", ",", "\[Phi]", ",", "\[Theta]", ",", "\[Theta]",
            ",", "r"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"k", "+", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], "2"]}], 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "4"]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "\[Theta]", ",", "\[Phi]", ",", "\[Phi]", ",", "r", ",", "\[Theta]",
            ",", "r"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"k", "+", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["a", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], 
         "2"]}], 
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "4"]}]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "\[Phi]", ",", "\[Theta]", ",", "\[Phi]", ",", "r", ",", "\[Theta]",
            ",", "r"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"k", "+", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], "2"]}], 
      RowBox[{
       SuperscriptBox["r", "2"], " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "2"]}]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "4"]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "\[Theta]", ",", "\[Phi]", ",", "\[Phi]", ",", "r", ",", "r", ",", 
           "\[Theta]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"k", "+", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["a", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], 
         "2"]}], 
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "4"]}]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "\[Phi]", ",", "\[Theta]", ",", "\[Phi]", ",", "r", ",", "r", ",", 
           "\[Theta]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"k", "+", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], "2"]}], 
      RowBox[{
       SuperscriptBox["r", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "2"]}]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "4"]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "\[Phi]", ",", "r", ",", "\[Phi]", ",", "\[Theta]", ",", "r", ",", 
           "\[Theta]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"k", "+", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["a", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], 
         "2"]}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "4"]}]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "\[Phi]", ",", "r", ",", "\[Phi]", ",", "\[Theta]", ",", "\[Theta]",
            ",", "r"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "2"]}]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"k", "+", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], "2"]}], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "2"]}]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "4"]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "\[Theta]", ",", "\[Theta]", ",", "\[Phi]", ",", "r", ",",
            "\[Phi]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"k", "+", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["a", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], 
         "2"]}], 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "4"]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "\[Theta]", ",", "\[Theta]", ",", "\[Phi]", ",", "\[Phi]",
            ",", "r"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"k", "+", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], "2"]}], 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "4"]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "\[Theta]", ",", "r", ",", "\[Theta]", ",", "\[Phi]", ",", "r", ",",
            "\[Phi]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"k", "+", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["a", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], 
         "2"]}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "4"]}]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "\[Theta]", ",", "r", ",", "\[Theta]", ",", "\[Phi]", ",", "\[Phi]",
            ",", "r"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "2"]}]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"k", "+", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], "2"]}], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "2"]}]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "4"]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "\[Theta]", ",", "r", ",", "\[Phi]", ",", "\[Theta]", ",",
            "\[Phi]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "\[Theta]", ",", "r", ",", "r", ",", "\[Phi]", ",", "\[Phi]", ",", 
           "\[Theta]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"k", "+", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["a", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], 
         "2"]}], 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "4"]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "\[Theta]", ",", "r", ",", "\[Phi]", ",", "\[Phi]", ",", 
           "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "\[Theta]", ",", "r", ",", "r", ",", "\[Phi]", ",", "\[Theta]", ",",
            "\[Phi]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       SuperscriptBox["r", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "2"]}]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"k", "+", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], "2"]}], 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "4"]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "\[Theta]", ",", "\[Phi]", ",", "\[Theta]", ",", "t", ",", "\[Phi]",
            ",", "t"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "\[Phi]", ",", "\[Theta]", ",", "\[Theta]", ",", "t", ",", "t", ",",
            "\[Phi]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{"k", "+", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], " ", 
        RowBox[{
         SuperscriptBox["a", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}]}], 
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "5"]}]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "\[Theta]", ",", "\[Theta]", ",", "t", ",", "r", ",", 
           "t"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "\[Theta]", ",", "r", ",", "\[Theta]", ",", "t", ",", "t", ",", 
           "r"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "\[Theta]", ",", "\[Phi]", ",", "\[Theta]", ",", "t", ",", "t", ",",
            "\[Phi]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "\[Phi]", ",", "\[Theta]", ",", "\[Theta]", ",", "t", ",", "\[Phi]",
            ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{"k", "+", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["a", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], " ", 
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}]}], 
      RowBox[{
       SuperscriptBox["r", "2"], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "5"]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "\[Theta]", ",", "r", ",", "\[Theta]", ",", "t", ",", "r", ",", 
           "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "2"]}]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"k", "+", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["a", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], " ", 
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}]}], 
      RowBox[{
       SuperscriptBox["r", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "2"]}]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "5"]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "\[Theta]", ",", "r", ",", "t", ",", "t", ",", 
           "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "\[Phi]", ",", "r", ",", "t", ",", "t", ",", "\[Phi]"}], 
          "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "\[Theta]", ",", "r", ",", "r", ",", "t", ",", "\[Theta]", ",", 
           "t"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "\[Phi]", ",", "r", ",", "r", ",", "t", ",", "\[Phi]", ",", "t"}], 
          "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"k", "+", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], " ", 
        RowBox[{
         SuperscriptBox["a", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}]}], 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "5"]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "\[Theta]", ",", "r", ",", "t", ",", "\[Theta]", ",", 
           "t"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "\[Phi]", ",", "r", ",", "t", ",", "\[Phi]", ",", "t"}], 
          "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "\[Theta]", ",", "r", ",", "r", ",", "t", ",", "t", ",", 
           "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "\[Phi]", ",", "r", ",", "r", ",", "t", ",", "t", ",", "\[Phi]"}], 
          "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "2"]}]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"k", "+", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["a", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], " ", 
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}]}], 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "5"]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "\[Theta]", ",", "\[Theta]", ",", "t", ",", "t", ",", 
           "r"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "2"]}]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"k", "+", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["a", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], " ", 
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}]}], 
      RowBox[{
       SuperscriptBox["r", "2"], " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "2"]}]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "5"]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "r", ",", "t", ",", "\[Theta]", ",", "r", ",", 
           "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "\[Phi]", ",", "t", ",", "\[Theta]", ",", "\[Phi]", ",", 
           "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "\[Phi]", ",", "t", ",", "t", ",", "\[Theta]", ",", "\[Theta]", ",",
            "\[Phi]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"(", 
         RowBox[{"k", "+", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], " ", 
        RowBox[{
         SuperscriptBox["a", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}]}], 
       RowBox[{"a", "[", "t", "]"}]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "r", ",", "t", ",", "\[Theta]", ",", "\[Theta]", ",", 
           "r"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "\[Phi]", ",", "t", ",", "\[Theta]", ",", "\[Theta]", ",",
            "\[Phi]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "\[Phi]", ",", "t", ",", "t", ",", "\[Theta]", ",", "\[Phi]", ",", 
           "\[Theta]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       SuperscriptBox["r", "2"], " ", 
       RowBox[{"(", 
        RowBox[{"k", "+", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["a", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], " ", 
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}]}], 
      RowBox[{"a", "[", "t", "]"}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "\[Theta]", ",", "t", ",", "r", ",", "\[Theta]", ",", 
           "r"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "\[Phi]", ",", "t", ",", "r", ",", "\[Phi]", ",", "r"}], 
          "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{"k", "+", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], " ", 
        RowBox[{
         SuperscriptBox["a", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}]}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], " ", 
        RowBox[{"a", "[", "t", "]"}]}]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "\[Theta]", ",", "t", ",", "t", ",", "r", ",", "\[Theta]", ",", 
           "r"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "\[Phi]", ",", "t", ",", "t", ",", "r", ",", "\[Phi]", ",", "r"}], 
          "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{"k", "+", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["a", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], " ", 
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}]}], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "2"]}]}], ")"}], " ", 
       RowBox[{"a", "[", "t", "]"}]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "\[Theta]", ",", "t", ",", "r", ",", "r", ",", 
           "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "\[Phi]", ",", "t", ",", "r", ",", "r", ",", "\[Phi]"}], 
          "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{"k", "+", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], " ", 
        RowBox[{
         SuperscriptBox["a", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}]}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], " ", 
        RowBox[{"a", "[", "t", "]"}]}]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "\[Theta]", ",", "t", ",", "t", ",", "r", ",", "r", ",", 
           "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "\[Phi]", ",", "t", ",", "t", ",", "r", ",", "r", ",", "\[Phi]"}], 
          "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{"k", "+", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["a", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], " ", 
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}]}], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "2"]}]}], ")"}], " ", 
       RowBox[{"a", "[", "t", "]"}]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "t", ",", "t", ",", "\[Theta]", ",", "r", ",", 
           "\[Theta]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"k", "+", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], " ", 
        RowBox[{
         SuperscriptBox["a", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}]}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], " ", 
        RowBox[{"a", "[", "t", "]"}]}]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "t", ",", "t", ",", "\[Theta]", ",", "\[Theta]", ",", 
           "r"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       SuperscriptBox["r", "2"], " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "2"]}]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"k", "+", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["a", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], " ", 
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}]}], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "2"]}]}], ")"}], " ", 
       RowBox[{"a", "[", "t", "]"}]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "\[Theta]", ",", "\[Phi]", ",", "\[Phi]", ",", "t", ",", "t", ",", 
           "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "\[Phi]", ",", "\[Theta]", ",", "\[Phi]", ",", "t", ",", "\[Theta]",
            ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{"k", "+", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], " ", 
        RowBox[{
         SuperscriptBox["a", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}]}], 
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "5"]}]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "\[Phi]", ",", "\[Phi]", ",", "t", ",", "r", ",", "t"}], 
          "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "\[Theta]", ",", "\[Phi]", ",", "\[Phi]", ",", "t", ",", "\[Theta]",
            ",", "t"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "\[Phi]", ",", "r", ",", "\[Phi]", ",", "t", ",", "t", ",", "r"}], 
          "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "\[Phi]", ",", "\[Theta]", ",", "\[Phi]", ",", "t", ",", "t", ",", 
           "\[Theta]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{"k", "+", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["a", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], " ", 
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}]}], 
      RowBox[{
       SuperscriptBox["r", "2"], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "5"]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "\[Phi]", ",", "r", ",", "\[Phi]", ",", "t", ",", "r", ",", "t"}], 
          "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "2"]}]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{"k", "+", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["a", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], " ", 
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}]}], 
      RowBox[{
       SuperscriptBox["r", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "2"]}]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "5"]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "\[Phi]", ",", "\[Phi]", ",", "t", ",", "t", ",", "r"}], 
          "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "2"]}]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{"k", "+", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["a", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], " ", 
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}]}], 
      RowBox[{
       SuperscriptBox["r", "2"], " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "2"]}]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "5"]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "r", ",", "t", ",", "\[Phi]", ",", "r", ",", "\[Phi]"}], 
          "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "\[Theta]", ",", "t", ",", "\[Phi]", ",", "\[Theta]", ",",
            "\[Phi]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "\[Theta]", ",", "t", ",", "t", ",", "\[Phi]", ",", "\[Phi]", ",", 
           "\[Theta]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{"k", "+", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], " ", 
        RowBox[{
         SuperscriptBox["a", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}]}], 
       RowBox[{"a", "[", "t", "]"}]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "r", ",", "t", ",", "\[Phi]", ",", "\[Phi]", ",", "r"}], 
          "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "\[Theta]", ",", "t", ",", "\[Phi]", ",", "\[Phi]", ",", 
           "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "\[Theta]", ",", "t", ",", "t", ",", "\[Phi]", ",", "\[Theta]", ",",
            "\[Phi]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       SuperscriptBox["r", "2"], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{"k", "+", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["a", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], " ", 
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}]}], 
      RowBox[{"a", "[", "t", "]"}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "t", ",", "t", ",", "\[Phi]", ",", "r", ",", "\[Phi]"}], 
          "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{"k", "+", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], " ", 
        RowBox[{
         SuperscriptBox["a", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}]}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], " ", 
        RowBox[{"a", "[", "t", "]"}]}]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "t", ",", "t", ",", "\[Phi]", ",", "\[Phi]", ",", "r"}], 
          "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       SuperscriptBox["r", "2"], " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "2"]}]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{"k", "+", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["a", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], " ", 
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}]}], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "2"]}]}], ")"}], " ", 
       RowBox[{"a", "[", "t", "]"}]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "r", ",", "r", ",", "r", ",", "t", ",", "r"}], 
          "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "\[Theta]", ",", "t", ",", "t", ",", "t", ",", 
           "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "\[Theta]", ",", "\[Theta]", ",", "\[Theta]", ",", "t", 
           ",", "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "\[Phi]", ",", "t", ",", "t", ",", "t", ",", "\[Phi]"}], 
          "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "\[Phi]", ",", "\[Phi]", ",", "\[Phi]", ",", "t", ",", 
           "\[Phi]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "\[Theta]", ",", "t", ",", "t", ",", "t", ",", "\[Theta]", ",", 
           "t"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "\[Theta]", ",", "t", ",", "\[Theta]", ",", "\[Theta]", ",", 
           "\[Theta]", ",", "t"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "\[Phi]", ",", "t", ",", "t", ",", "t", ",", "\[Phi]", ",", "t"}], 
          "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "\[Phi]", ",", "t", ",", "\[Phi]", ",", "\[Phi]", ",", "\[Phi]", 
           ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       SuperscriptBox[
        RowBox[{
         SuperscriptBox["a", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}], "2"], 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "2"]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "r", ",", "t", ",", "t", ",", "r", ",", "t"}], 
          "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "\[Theta]", ",", "t", ",", "t", ",", "\[Theta]", ",", 
           "t"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "\[Theta]", ",", "\[Theta]", ",", "\[Theta]", ",", 
           "\[Theta]", ",", "t"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "\[Phi]", ",", "t", ",", "t", ",", "\[Phi]", ",", "t"}], 
          "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "\[Phi]", ",", "\[Phi]", ",", "\[Phi]", ",", "\[Phi]", 
           ",", "t"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"r", ",", "t", ",", "t", ",", "t", ",", "t", ",", "r"}], 
          "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"r", ",", "t", ",", "r", ",", "r", ",", "t", ",", "r"}], 
          "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "\[Theta]", ",", "t", ",", "t", ",", "t", ",", "t", ",", 
           "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "\[Theta]", ",", "t", ",", "\[Theta]", ",", "\[Theta]", ",", "t", 
           ",", "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "\[Phi]", ",", "t", ",", "t", ",", "t", ",", "t", ",", "\[Phi]"}], 
          "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "\[Phi]", ",", "t", ",", "\[Phi]", ",", "\[Phi]", ",", "t", ",", 
           "\[Phi]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      SuperscriptBox[
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], "2"], 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "2"]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "\[Theta]", ",", "t", ",", "\[Theta]", ",", "r", ",", "r", ",", 
           "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       SuperscriptBox[
        RowBox[{
         SuperscriptBox["a", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}], "2"], 
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "2"]}]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "\[Theta]", ",", "\[Theta]", ",", "r", ",", "r", ",", 
           "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      SuperscriptBox[
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], "2"], 
      RowBox[{
       SuperscriptBox["r", "2"], " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "2"]}]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "2"]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "\[Theta]", ",", "t", ",", "\[Theta]", ",", "r", ",", "t", ",", 
           "r"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       SuperscriptBox[
        RowBox[{
         SuperscriptBox["a", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}], "2"], 
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "2"]}]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "\[Theta]", ",", "\[Theta]", ",", "r", ",", "t", ",", 
           "r"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      SuperscriptBox[
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], "2"], 
      RowBox[{
       SuperscriptBox["r", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "2"]}]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "2"]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"r", ",", "t", ",", "t", ",", "t", ",", "r", ",", "t"}], 
          "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "2"]}]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{
         SuperscriptBox["a", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}], "2"]}], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "2"]}]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "2"]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "r", ",", "r", ",", "\[Theta]", ",", "\[Theta]", ",", 
           "t"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "t", ",", "r", ",", "\[Theta]", ",", "t", ",", 
           "\[Theta]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["a", "\[Prime]\[Prime]",
           MultilineFunction->None], "[", "t", "]"}], "2"]}], 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "2"]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "r", ",", "r", ",", "\[Theta]", ",", "t", ",", "\[Theta]"}
           ], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "t", ",", "r", ",", "\[Theta]", ",", "\[Theta]", ",", 
           "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       SuperscriptBox["r", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "2"]}]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{
         SuperscriptBox["a", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}], "2"]}], 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "2"]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "r", ",", "r", ",", "r", ",", "r", ",", "t"}], 
          "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["a", "\[Prime]\[Prime]",
           MultilineFunction->None], "[", "t", "]"}], "2"]}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "2"]}]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "r", ",", "t", ",", "t", ",", "t", ",", "r"}], 
          "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"r", ",", "t", ",", "r", ",", "r", ",", "r", ",", "t"}], 
          "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "2"]}]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{
         SuperscriptBox["a", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}], "2"]}], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "2"]}]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "2"]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "\[Phi]", ",", "\[Phi]", ",", "\[Theta]", ",", "t", ",", 
           "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "\[Phi]", ",", "t", ",", "\[Phi]", ",", "\[Theta]", ",", "\[Theta]",
            ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["a", "\[Prime]\[Prime]",
           MultilineFunction->None], "[", "t", "]"}], "2"]}], 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "2"]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "\[Phi]", ",", "\[Phi]", ",", "\[Theta]", ",", "\[Theta]",
            ",", "t"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "\[Phi]", ",", "t", ",", "\[Phi]", ",", "\[Theta]", ",", "t", ",", 
           "\[Theta]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{
         SuperscriptBox["a", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}], "2"]}], 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "2"]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "\[Phi]", ",", "t", ",", "\[Phi]", ",", "r", ",", "r", ",", "t"}], 
          "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["a", "\[Prime]\[Prime]",
           MultilineFunction->None], "[", "t", "]"}], "2"]}], 
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "2"]}]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "\[Phi]", ",", "\[Phi]", ",", "r", ",", "r", ",", "t"}], 
          "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{
         SuperscriptBox["a", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}], "2"]}], 
      RowBox[{
       SuperscriptBox["r", "2"], " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "2"]}]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "2"]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "\[Phi]", ",", "t", ",", "\[Phi]", ",", "r", ",", "t", ",", "r"}], 
          "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["a", "\[Prime]\[Prime]",
           MultilineFunction->None], "[", "t", "]"}], "2"]}], 
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "2"]}]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "\[Phi]", ",", "\[Phi]", ",", "r", ",", "t", ",", "r"}], 
          "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{
         SuperscriptBox["a", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}], "2"]}], 
      RowBox[{
       SuperscriptBox["r", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "2"]}]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "2"]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "\[Theta]", ",", "\[Theta]", ",", "\[Phi]", ",", "t", ",",
            "\[Phi]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "\[Theta]", ",", "t", ",", "\[Theta]", ",", "\[Phi]", ",", "\[Phi]",
            ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["a", "\[Prime]\[Prime]",
           MultilineFunction->None], "[", "t", "]"}], "2"]}], 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "2"]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "\[Theta]", ",", "\[Theta]", ",", "\[Phi]", ",", "\[Phi]",
            ",", "t"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "\[Theta]", ",", "t", ",", "\[Theta]", ",", "\[Phi]", ",", "t", ",",
            "\[Phi]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{
         SuperscriptBox["a", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}], "2"]}], 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "2"]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "r", ",", "r", ",", "\[Phi]", ",", "\[Phi]", ",", "t"}], 
          "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "t", ",", "r", ",", "\[Phi]", ",", "t", ",", "\[Phi]"}], 
          "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["a", "\[Prime]\[Prime]",
           MultilineFunction->None], "[", "t", "]"}], "2"]}], 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "2"]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "r", ",", "r", ",", "\[Phi]", ",", "t", ",", "\[Phi]"}], 
          "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "t", ",", "r", ",", "\[Phi]", ",", "\[Phi]", ",", "t"}], 
          "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       SuperscriptBox["r", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "2"]}]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{
         SuperscriptBox["a", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}], "2"]}], 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "2"]]}
   },
   AutoDelete->False,
   GridBoxFrame->{"Columns" -> False, "Rows" -> {{True}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{
  3.8029553322792788`*^9, {3.802955403646313*^9, 3.802955421866845*^9}, 
   3.803006779756192*^9, {3.811853704186697*^9, 3.811853713215818*^9}, 
   3.8118544597748017`*^9, 3.8120038337190146`*^9, 3.812017700340344*^9, 
   3.812080511518565*^9},
 CellLabel->"Out[18]=",ExpressionUUID->"ef35a161-e3e6-45ed-a459-cc39205ec592"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"norm", "[", "R2", "]"}]], "Input",
 CellChangeTimes->{{3.802955450900848*^9, 3.8029554765749884`*^9}},
 CellLabel->"In[26]:=",ExpressionUUID->"bc80735f-73a5-428d-ae24-ef39e9e0c559"],

Cell[BoxData[
 FractionBox[
  RowBox[{"12", " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["k", "2"], "+", 
     RowBox[{"2", " ", "k", " ", 
      SuperscriptBox[
       RowBox[{
        SuperscriptBox["a", "\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
     SuperscriptBox[
      RowBox[{
       SuperscriptBox["a", "\[Prime]",
        MultilineFunction->None], "[", "t", "]"}], "4"], "+", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], "2"]}]}], ")"}]}], 
  SuperscriptBox[
   RowBox[{"a", "[", "t", "]"}], "4"]]], "Output",
 CellChangeTimes->{{3.802955464933197*^9, 3.8029554776218195`*^9}, 
   3.811853740709334*^9},
 CellLabel->"Out[26]=",ExpressionUUID->"7b112293-32c9-484e-a545-fbc9bb9681c4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"norm", "[", "R1", "]"}]], "Input",
 CellChangeTimes->{{3.811853742662139*^9, 3.8118537470047283`*^9}},
 CellLabel->"In[27]:=",ExpressionUUID->"45218bc6-6fb7-4bfe-96a5-e4c1032e9a5a"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", 
   RowBox[{
    SuperscriptBox["r", "16"], " ", 
    SuperscriptBox[
     RowBox[{"a", "[", "t", "]"}], "20"]}]], 
  RowBox[{"2", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"2", " ", 
      SuperscriptBox["r", "8"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "2"]}]}], ")"}], "4"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"k", "+", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["a", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], "2"]}], 
     "+", 
     RowBox[{"2", " ", 
      SuperscriptBox[
       RowBox[{"Csc", "[", "\[Theta]", "]"}], "8"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"k", "+", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["a", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], "2"]}], 
     "+", 
     RowBox[{"2", " ", 
      SuperscriptBox["r", "8"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "2"]}]}], ")"}], "4"], " ", 
      SuperscriptBox[
       RowBox[{"Csc", "[", "\[Theta]", "]"}], "8"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"k", "+", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["a", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], "2"]}], 
     "+", 
     RowBox[{
      SuperscriptBox["r", "8"], " ", 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "10"], " ", 
      SuperscriptBox[
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
     RowBox[{
      SuperscriptBox["r", "16"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "2"]}]}], ")"}], "4"], " ", 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "10"], " ", 
      SuperscriptBox[
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
     RowBox[{
      SuperscriptBox["r", "8"], " ", 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "10"], " ", 
      SuperscriptBox[
       RowBox[{"Csc", "[", "\[Theta]", "]"}], "8"], " ", 
      SuperscriptBox[
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
     RowBox[{
      SuperscriptBox["r", "8"], " ", 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "10"], " ", 
      RowBox[{"(", 
       RowBox[{"1", "+", 
        SuperscriptBox["r", "8"], "-", 
        RowBox[{"4", " ", "k", " ", 
         SuperscriptBox["r", "10"]}], "+", 
        RowBox[{"6", " ", 
         SuperscriptBox["k", "2"], " ", 
         SuperscriptBox["r", "12"]}], "-", 
        RowBox[{"4", " ", 
         SuperscriptBox["k", "3"], " ", 
         SuperscriptBox["r", "14"]}], "+", 
        RowBox[{
         SuperscriptBox["k", "4"], " ", 
         SuperscriptBox["r", "16"]}], "+", 
        SuperscriptBox[
         RowBox[{"Csc", "[", "\[Theta]", "]"}], "8"]}], ")"}], " ", 
      SuperscriptBox[
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], "2"]}]}], 
    ")"}]}]}]], "Output",
 CellChangeTimes->{3.811853751159997*^9},
 CellLabel->"Out[27]=",ExpressionUUID->"048a54a8-7647-45b9-a002-d92eb6fa86a7"]
}, Open  ]],

Cell["\<\
** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** \
** ** ** ** ** ** ***\
\>", "Item",
 CellChangeTimes->{{3.8118537678280845`*^9, 3.811853770280609*^9}, 
   3.812007646749113*^9},ExpressionUUID->"409d2159-612a-4651-971b-\
77fa71c344f0"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"covariant", "[", 
   RowBox[{"lower", "[", 
    RowBox[{"Riemann", ",", 
     RowBox[{"{", "4", "}"}]}], "]"}], "]"}], "//", "display"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.802956003347584*^9, 3.802956069073242*^9}},
 CellLabel->"In[46]:=",ExpressionUUID->"1e206fe7-770d-439a-ba71-eeefc60c5132"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "r", ",", "\[Theta]", ",", "\[Theta]", ",", "r"}],
           "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "\[Theta]", ",", "r", ",", "r", ",", "\[Theta]"}],
           "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"2", " ", 
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"a", "[", "t", "]"}], " ", 
        RowBox[{
         SuperscriptBox["a", "\[Prime]",
          MultilineFunction->None], "[", "t", "]"}], " ", 
        RowBox[{"(", 
         RowBox[{"k", "+", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"], "-", 
          RowBox[{
           RowBox[{"a", "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox["a", "\[Prime]\[Prime]",
             MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}], 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        RowBox[{"k", " ", 
         SuperscriptBox["r", "2"]}]}]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"r", ",", "t", ",", "\[Theta]", ",", "\[Theta]", ",", "r"}],
           "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"r", ",", "r", ",", "\[Theta]", ",", "\[Theta]", ",", "t"}],
           "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"r", ",", "\[Theta]", ",", "t", ",", "r", ",", "\[Theta]"}],
           "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"r", ",", "\[Theta]", ",", "r", ",", "t", ",", "\[Theta]"}],
           "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"\[Theta]", ",", "t", ",", "r", ",", "r", ",", "\[Theta]"}],
           "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"\[Theta]", ",", "r", ",", "t", ",", "\[Theta]", ",", "r"}],
           "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"\[Theta]", ",", "r", ",", "\[Theta]", ",", "t", ",", "r"}],
           "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"\[Theta]", ",", "\[Theta]", ",", "r", ",", "r", ",", "t"}],
           "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"a", "[", "t", "]"}], " ", 
        RowBox[{
         SuperscriptBox["a", "\[Prime]",
          MultilineFunction->None], "[", "t", "]"}], " ", 
        RowBox[{"(", 
         RowBox[{"k", "+", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"], "-", 
          RowBox[{
           RowBox[{"a", "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox["a", "\[Prime]\[Prime]",
             MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}], 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        RowBox[{"k", " ", 
         SuperscriptBox["r", "2"]}]}]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"r", ",", "t", ",", "\[Theta]", ",", "r", ",", "\[Theta]"}],
           "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"r", ",", "r", ",", "\[Theta]", ",", "t", ",", "\[Theta]"}],
           "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"r", ",", "\[Theta]", ",", "t", ",", "\[Theta]", ",", "r"}],
           "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"r", ",", "\[Theta]", ",", "r", ",", "\[Theta]", ",", "t"}],
           "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"\[Theta]", ",", "t", ",", "r", ",", "\[Theta]", ",", "r"}],
           "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"\[Theta]", ",", "r", ",", "t", ",", "r", ",", "\[Theta]"}],
           "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"\[Theta]", ",", "r", ",", "\[Theta]", ",", "r", ",", "t"}],
           "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"\[Theta]", ",", "\[Theta]", ",", "r", ",", "t", ",", "r"}],
           "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       SuperscriptBox["r", "2"], " ", 
       RowBox[{"a", "[", "t", "]"}], " ", 
       RowBox[{
        SuperscriptBox["a", "\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], " ", 
       RowBox[{"(", 
        RowBox[{"k", "+", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["a", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"], "-", 
         RowBox[{
          RowBox[{"a", "[", "t", "]"}], " ", 
          RowBox[{
           SuperscriptBox["a", "\[Prime]\[Prime]",
            MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}], 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       RowBox[{"k", " ", 
        SuperscriptBox["r", "2"]}]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "r", ",", "\[Theta]", ",", "r", ",", "\[Theta]"}],
           "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "\[Theta]", ",", "r", ",", "\[Theta]", ",", "r"}],
           "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{"2", " ", 
       SuperscriptBox["r", "2"], " ", 
       RowBox[{"a", "[", "t", "]"}], " ", 
       RowBox[{
        SuperscriptBox["a", "\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], " ", 
       RowBox[{"(", 
        RowBox[{"k", "+", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["a", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"], "-", 
         RowBox[{
          RowBox[{"a", "[", "t", "]"}], " ", 
          RowBox[{
           SuperscriptBox["a", "\[Prime]\[Prime]",
            MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}], 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       RowBox[{"k", " ", 
        SuperscriptBox["r", "2"]}]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "\[Theta]", ",", "t", ",", "\[Phi]", ",", "\[Phi]", ",", 
           "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "\[Theta]", ",", "\[Theta]", ",", "\[Phi]", ",", "\[Phi]", ",", 
           "t"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "\[Theta]", ",", "\[Phi]", ",", "t", ",", "\[Theta]", ",", 
           "\[Phi]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "\[Theta]", ",", "\[Phi]", ",", "\[Theta]", ",", "t", ",", 
           "\[Phi]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "\[Phi]", ",", "t", ",", "\[Theta]", ",", "\[Theta]", ",", 
           "\[Phi]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "\[Phi]", ",", "\[Theta]", ",", "t", ",", "\[Phi]", ",", 
           "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "\[Phi]", ",", "\[Theta]", ",", "\[Phi]", ",", "t", ",", 
           "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "\[Phi]", ",", "\[Phi]", ",", "\[Theta]", ",", "\[Theta]", ",", 
           "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      SuperscriptBox["r", "4"], " ", 
      RowBox[{"a", "[", "t", "]"}], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
      RowBox[{
       SuperscriptBox["a", "\[Prime]",
        MultilineFunction->None], "[", "t", "]"}], " ", 
      RowBox[{"(", 
       RowBox[{"k", "+", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["a", "\[Prime]",
           MultilineFunction->None], "[", "t", "]"}], "2"], "-", 
        RowBox[{
         RowBox[{"a", "[", "t", "]"}], " ", 
         RowBox[{
          SuperscriptBox["a", "\[Prime]\[Prime]",
           MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "r", ",", "\[Phi]", ",", "\[Phi]", ",", "r"}], 
          "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "\[Phi]", ",", "r", ",", "r", ",", "\[Phi]"}], 
          "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"2", " ", 
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"a", "[", "t", "]"}], " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
        RowBox[{
         SuperscriptBox["a", "\[Prime]",
          MultilineFunction->None], "[", "t", "]"}], " ", 
        RowBox[{"(", 
         RowBox[{"k", "+", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"], "-", 
          RowBox[{
           RowBox[{"a", "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox["a", "\[Prime]\[Prime]",
             MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}], 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        RowBox[{"k", " ", 
         SuperscriptBox["r", "2"]}]}]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"r", ",", "t", ",", "\[Phi]", ",", "\[Phi]", ",", "r"}], 
          "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"r", ",", "r", ",", "\[Phi]", ",", "\[Phi]", ",", "t"}], 
          "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"r", ",", "\[Phi]", ",", "t", ",", "r", ",", "\[Phi]"}], 
          "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"r", ",", "\[Phi]", ",", "r", ",", "t", ",", "\[Phi]"}], 
          "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"\[Phi]", ",", "t", ",", "r", ",", "r", ",", "\[Phi]"}], 
          "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"\[Phi]", ",", "r", ",", "t", ",", "\[Phi]", ",", "r"}], 
          "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"\[Phi]", ",", "r", ",", "\[Phi]", ",", "t", ",", "r"}], 
          "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"\[Phi]", ",", "\[Phi]", ",", "r", ",", "r", ",", "t"}], 
          "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"a", "[", "t", "]"}], " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
        RowBox[{
         SuperscriptBox["a", "\[Prime]",
          MultilineFunction->None], "[", "t", "]"}], " ", 
        RowBox[{"(", 
         RowBox[{"k", "+", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"], "-", 
          RowBox[{
           RowBox[{"a", "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox["a", "\[Prime]\[Prime]",
             MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}], 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        RowBox[{"k", " ", 
         SuperscriptBox["r", "2"]}]}]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"r", ",", "t", ",", "\[Phi]", ",", "r", ",", "\[Phi]"}], 
          "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"r", ",", "r", ",", "\[Phi]", ",", "t", ",", "\[Phi]"}], 
          "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"r", ",", "\[Phi]", ",", "t", ",", "\[Phi]", ",", "r"}], 
          "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"r", ",", "\[Phi]", ",", "r", ",", "\[Phi]", ",", "t"}], 
          "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"\[Phi]", ",", "t", ",", "r", ",", "\[Phi]", ",", "r"}], 
          "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"\[Phi]", ",", "r", ",", "t", ",", "r", ",", "\[Phi]"}], 
          "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"\[Phi]", ",", "r", ",", "\[Phi]", ",", "r", ",", "t"}], 
          "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"\[Phi]", ",", "\[Phi]", ",", "r", ",", "t", ",", "r"}], 
          "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       SuperscriptBox["r", "2"], " ", 
       RowBox[{"a", "[", "t", "]"}], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
       RowBox[{
        SuperscriptBox["a", "\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], " ", 
       RowBox[{"(", 
        RowBox[{"k", "+", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["a", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"], "-", 
         RowBox[{
          RowBox[{"a", "[", "t", "]"}], " ", 
          RowBox[{
           SuperscriptBox["a", "\[Prime]\[Prime]",
            MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}], 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       RowBox[{"k", " ", 
        SuperscriptBox["r", "2"]}]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "r", ",", "\[Phi]", ",", "r", ",", "\[Phi]"}], 
          "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "\[Phi]", ",", "r", ",", "\[Phi]", ",", "r"}], 
          "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{"2", " ", 
       SuperscriptBox["r", "2"], " ", 
       RowBox[{"a", "[", "t", "]"}], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
       RowBox[{
        SuperscriptBox["a", "\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], " ", 
       RowBox[{"(", 
        RowBox[{"k", "+", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["a", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"], "-", 
         RowBox[{
          RowBox[{"a", "[", "t", "]"}], " ", 
          RowBox[{
           SuperscriptBox["a", "\[Prime]\[Prime]",
            MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}], 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       RowBox[{"k", " ", 
        SuperscriptBox["r", "2"]}]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "\[Theta]", ",", "\[Phi]", ",", "\[Phi]", ",", 
           "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "\[Phi]", ",", "\[Theta]", ",", "\[Theta]", ",", 
           "\[Phi]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      RowBox[{"-", "2"}], " ", 
      SuperscriptBox["r", "4"], " ", 
      RowBox[{"a", "[", "t", "]"}], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
      RowBox[{
       SuperscriptBox["a", "\[Prime]",
        MultilineFunction->None], "[", "t", "]"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "k"}], "-", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["a", "\[Prime]",
           MultilineFunction->None], "[", "t", "]"}], "2"], "+", 
        RowBox[{
         RowBox[{"a", "[", "t", "]"}], " ", 
         RowBox[{
          SuperscriptBox["a", "\[Prime]\[Prime]",
           MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "\[Theta]", ",", "t", ",", "\[Phi]", ",", "\[Theta]", ",", 
           "\[Phi]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "\[Theta]", ",", "\[Theta]", ",", "\[Phi]", ",", "t", ",", 
           "\[Phi]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "\[Theta]", ",", "\[Phi]", ",", "t", ",", "\[Phi]", ",", 
           "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "\[Theta]", ",", "\[Phi]", ",", "\[Theta]", ",", "\[Phi]", ",", 
           "t"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "\[Phi]", ",", "t", ",", "\[Theta]", ",", "\[Phi]", ",", 
           "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "\[Phi]", ",", "\[Theta]", ",", "t", ",", "\[Theta]", ",", 
           "\[Phi]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "\[Phi]", ",", "\[Theta]", ",", "\[Phi]", ",", "\[Theta]", ",", 
           "t"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "\[Phi]", ",", "\[Phi]", ",", "\[Theta]", ",", "t", ",", 
           "\[Theta]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      SuperscriptBox["r", "4"], " ", 
      RowBox[{"a", "[", "t", "]"}], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
      RowBox[{
       SuperscriptBox["a", "\[Prime]",
        MultilineFunction->None], "[", "t", "]"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "k"}], "-", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["a", "\[Prime]",
           MultilineFunction->None], "[", "t", "]"}], "2"], "+", 
        RowBox[{
         RowBox[{"a", "[", "t", "]"}], " ", 
         RowBox[{
          SuperscriptBox["a", "\[Prime]\[Prime]",
           MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "\[Theta]", ",", "\[Phi]", ",", "\[Theta]", ",", 
           "\[Phi]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "\[Phi]", ",", "\[Theta]", ",", "\[Phi]", ",", 
           "\[Theta]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"2", " ", 
      SuperscriptBox["r", "4"], " ", 
      RowBox[{"a", "[", "t", "]"}], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
      RowBox[{
       SuperscriptBox["a", "\[Prime]",
        MultilineFunction->None], "[", "t", "]"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "k"}], "-", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["a", "\[Prime]",
           MultilineFunction->None], "[", "t", "]"}], "2"], "+", 
        RowBox[{
         RowBox[{"a", "[", "t", "]"}], " ", 
         RowBox[{
          SuperscriptBox["a", "\[Prime]\[Prime]",
           MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "t", ",", "\[Theta]", ",", "t", ",", "\[Theta]"}],
           "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "\[Theta]", ",", "t", ",", "\[Theta]", ",", "t"}],
           "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      SuperscriptBox["r", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{
          SuperscriptBox["a", "\[Prime]",
           MultilineFunction->None], "[", "t", "]"}], " ", 
         RowBox[{
          SuperscriptBox["a", "\[Prime]\[Prime]",
           MultilineFunction->None], "[", "t", "]"}]}], "-", 
        RowBox[{
         RowBox[{"a", "[", "t", "]"}], " ", 
         RowBox[{
          SuperscriptBox["a", 
           TagBox[
            RowBox[{"(", "3", ")"}],
            Derivative],
           MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "t", ",", "r", ",", "r", ",", "t"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "r", ",", "t", ",", "t", ",", "r"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "\[Prime]",
          MultilineFunction->None], "[", "t", "]"}], " ", 
        RowBox[{
         SuperscriptBox["a", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}]}], "-", 
       RowBox[{
        RowBox[{"a", "[", "t", "]"}], " ", 
        RowBox[{
         SuperscriptBox["a", 
          TagBox[
           RowBox[{"(", "3", ")"}],
           Derivative],
          MultilineFunction->None], "[", "t", "]"}]}]}], 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       RowBox[{"k", " ", 
        SuperscriptBox["r", "2"]}]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "t", ",", "\[Phi]", ",", "t", ",", "\[Phi]"}], 
          "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "\[Phi]", ",", "t", ",", "\[Phi]", ",", "t"}], 
          "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      SuperscriptBox["r", "2"], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{
          SuperscriptBox["a", "\[Prime]",
           MultilineFunction->None], "[", "t", "]"}], " ", 
         RowBox[{
          SuperscriptBox["a", "\[Prime]\[Prime]",
           MultilineFunction->None], "[", "t", "]"}]}], "-", 
        RowBox[{
         RowBox[{"a", "[", "t", "]"}], " ", 
         RowBox[{
          SuperscriptBox["a", 
           TagBox[
            RowBox[{"(", "3", ")"}],
            Derivative],
           MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "t", ",", "\[Theta]", ",", "\[Theta]", ",", "t"}],
           "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "\[Theta]", ",", "t", ",", "t", ",", "\[Theta]"}],
           "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      SuperscriptBox["r", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", 
          RowBox[{
           SuperscriptBox["a", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}]}], " ", 
         RowBox[{
          SuperscriptBox["a", "\[Prime]\[Prime]",
           MultilineFunction->None], "[", "t", "]"}]}], "+", 
        RowBox[{
         RowBox[{"a", "[", "t", "]"}], " ", 
         RowBox[{
          SuperscriptBox["a", 
           TagBox[
            RowBox[{"(", "3", ")"}],
            Derivative],
           MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "t", ",", "r", ",", "t", ",", "r"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "r", ",", "t", ",", "r", ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         RowBox[{
          SuperscriptBox["a", "\[Prime]",
           MultilineFunction->None], "[", "t", "]"}]}], " ", 
        RowBox[{
         SuperscriptBox["a", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}]}], "+", 
       RowBox[{
        RowBox[{"a", "[", "t", "]"}], " ", 
        RowBox[{
         SuperscriptBox["a", 
          TagBox[
           RowBox[{"(", "3", ")"}],
           Derivative],
          MultilineFunction->None], "[", "t", "]"}]}]}], 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       RowBox[{"k", " ", 
        SuperscriptBox["r", "2"]}]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "t", ",", "\[Phi]", ",", "\[Phi]", ",", "t"}], 
          "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "\[Phi]", ",", "t", ",", "t", ",", "\[Phi]"}], 
          "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      SuperscriptBox["r", "2"], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", 
          RowBox[{
           SuperscriptBox["a", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}]}], " ", 
         RowBox[{
          SuperscriptBox["a", "\[Prime]\[Prime]",
           MultilineFunction->None], "[", "t", "]"}]}], "+", 
        RowBox[{
         RowBox[{"a", "[", "t", "]"}], " ", 
         RowBox[{
          SuperscriptBox["a", 
           TagBox[
            RowBox[{"(", "3", ")"}],
            Derivative],
           MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}]}
   },
   AutoDelete->False,
   GridBoxFrame->{"Columns" -> False, "Rows" -> {{True}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{{3.8029560480083976`*^9, 3.802956070057577*^9}},
 CellLabel->"Out[46]=",ExpressionUUID->"8c2e7d20-f9bd-4adb-b8b1-cffd15e9c7bd"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Extract", "[", 
  RowBox[{
   RowBox[{"covariant", "[", 
    RowBox[{"lower", "[", 
     RowBox[{"Riemann", ",", 
      RowBox[{"{", "4", "}"}]}], "]"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"r", ",", "t", ",", "\[Theta]", ",", "\[Theta]", ",", "t"}], 
    "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.802956051274443*^9, 3.802956095482243*^9}, {
  3.802956127516766*^9, 3.8029561425805135`*^9}, {3.8029561740366545`*^9, 
  3.8029562099945526`*^9}, {3.8029562445919714`*^9, 3.802956250967486*^9}},
 CellLabel->"In[51]:=",ExpressionUUID->"36675842-7cbc-49ad-b9bd-441b47514148"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.8029562515457845`*^9},
 CellLabel->"Out[51]=",ExpressionUUID->"f437f846-0422-4b85-aad6-b36a356e846e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Extract", "[", 
  RowBox[{
   RowBox[{"covariant", "[", 
    RowBox[{"lower", "[", 
     RowBox[{"Riemann", ",", 
      RowBox[{"{", "4", "}"}]}], "]"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "\[Theta]", ",", "t", ",", "\[Phi]", ",", "\[Phi]", ",", "\[Theta]"}], 
    "}"}]}], "]"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.802956256171051*^9, 3.802956366448718*^9}},
 CellLabel->"In[55]:=",ExpressionUUID->"e75c0962-053b-4dab-b1c4-090cf5742265"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["r", "4"], " ", 
  RowBox[{"a", "[", "t", "]"}], " ", 
  SuperscriptBox[
   RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
  RowBox[{
   SuperscriptBox["a", "\[Prime]",
    MultilineFunction->None], "[", "t", "]"}], " ", 
  RowBox[{"(", 
   RowBox[{"k", "+", 
    SuperscriptBox[
     RowBox[{
      SuperscriptBox["a", "\[Prime]",
       MultilineFunction->None], "[", "t", "]"}], "2"], "-", 
    RowBox[{
     RowBox[{"a", "[", "t", "]"}], " ", 
     RowBox[{
      SuperscriptBox["a", "\[Prime]\[Prime]",
       MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.802956307285942*^9, 3.8029563674330606`*^9}},
 CellLabel->"Out[55]=",ExpressionUUID->"445ee5b6-c65e-43a1-ba86-6e0ca8e33b44"]
}, Open  ]],

Cell[BoxData[
 StyleBox[
  RowBox[{
   StyleBox["Laplacian",
    FontColor->GrayLevel[0]], 
   StyleBox[" ",
    FontColor->GrayLevel[0]], 
   StyleBox["can",
    FontColor->GrayLevel[0]], 
   StyleBox[" ",
    FontColor->GrayLevel[0]], 
   StyleBox["be",
    FontColor->GrayLevel[0]], 
   StyleBox[" ",
    FontColor->GrayLevel[0]], 
   StyleBox["evaluated",
    FontColor->GrayLevel[0]], 
   StyleBox[" ",
    FontColor->GrayLevel[0]], 
   StyleBox["by",
    FontColor->GrayLevel[0]], 
   StyleBox[" ",
    FontColor->GrayLevel[0]], 
   StyleBox["generalized",
    FontColor->GrayLevel[0]], 
   StyleBox[" ",
    FontColor->GrayLevel[0]], 
   StyleBox["relation",
    FontColor->GrayLevel[0]], 
   StyleBox[" ",
    FontColor->GrayLevel[0]], 
   RowBox[{
    StyleBox["as",
     FontColor->GrayLevel[0]], 
    StyleBox[" ",
     FontColor->RGBColor[1, 0.5, 0]], 
    StyleBox[":",
     FontColor->RGBColor[1, 0.5, 0]], 
    StyleBox[" ",
     FontColor->RGBColor[1, 0.5, 0]], 
    StyleBox[
     FormBox[
      RowBox[{
       RowBox[{
        SuperscriptBox["\[Del]", "2"], "=", 
        FractionBox["1", 
         SqrtBox[
          RowBox[{"-", " ", "g"}]]]}], 
       RowBox[{
        FractionBox["\[PartialD]", 
         RowBox[{"\[PartialD]", 
          SuperscriptBox["x", "\[Mu]"]}]], 
        RowBox[{"(", 
         RowBox[{
          SqrtBox[
           RowBox[{"-", " ", "g"}]], 
          SuperscriptBox["g", "\[Mu]\[Nu]"], 
          FractionBox["\[PartialD]", 
           RowBox[{"\[PartialD]", 
            SuperscriptBox["x", "\[Nu]"]}]]}], ")"}], " "}]}],
      TraditionalForm], "Abstract",
     FontWeight->"Plain",
     FontColor->RGBColor[1, 0, 0]]}]}], "Abstract",
  FontWeight->"Plain"]], "Input",
 CellChangeTimes->{{3.802956400060808*^9, 
  3.802956400060808*^9}},ExpressionUUID->"d397c69f-8925-4464-a389-\
c9de07fe97a1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"scalarLaplacian", "[", 
  RowBox[{"f", "[", "r", "]"}], "]"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.802956473662413*^9, 3.8029564790378666`*^9}},
 CellLabel->"In[56]:=",ExpressionUUID->"bb79eac6-0053-4ceb-bb7e-4c69d7cfa444"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"2", "-", 
      RowBox[{"3", " ", "k", " ", 
       SuperscriptBox["r", "2"]}]}], ")"}], " ", 
    RowBox[{
     SuperscriptBox["f", "\[Prime]",
      MultilineFunction->None], "[", "r", "]"}]}], "+", 
   RowBox[{"r", " ", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{"k", " ", 
       SuperscriptBox["r", "2"]}]}], ")"}], " ", 
    RowBox[{
     SuperscriptBox["f", "\[Prime]\[Prime]",
      MultilineFunction->None], "[", "r", "]"}]}]}], 
  RowBox[{"r", " ", 
   SuperscriptBox[
    RowBox[{"a", "[", "t", "]"}], "2"]}]]], "Output",
 CellChangeTimes->{3.8029564803033924`*^9},
 CellLabel->"Out[56]=",ExpressionUUID->"1e6a2ddb-2e40-465b-856e-f82e636e6b12"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"scalarLaplacian", "[", 
  RowBox[{"f", "[", "t", "]"}], "]"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.8029564859917316`*^9, 3.8029565144637594`*^9}},
 CellLabel->"In[58]:=",ExpressionUUID->"6bbc228f-6d22-466f-8af7-2a867515682a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"3", " ", 
     RowBox[{
      SuperscriptBox["a", "\[Prime]",
       MultilineFunction->None], "[", "t", "]"}], " ", 
     RowBox[{
      SuperscriptBox["f", "\[Prime]",
       MultilineFunction->None], "[", "t", "]"}]}], 
    RowBox[{"a", "[", "t", "]"}]]}], "-", 
  RowBox[{
   SuperscriptBox["f", "\[Prime]\[Prime]",
    MultilineFunction->None], "[", "t", "]"}]}]], "Output",
 CellChangeTimes->{3.8029565146510744`*^9},
 CellLabel->"Out[58]=",ExpressionUUID->"fd7d50d8-75da-4583-9adf-a5fc4ee60aa9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"scalarLaplacian", "[", 
  RowBox[{"f", "[", 
   RowBox[{"t", ",", "r", ",", "\[Theta]"}], "]"}], "]"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.802956516651395*^9, 3.8029565285277653`*^9}},
 CellLabel->"In[59]:=",ExpressionUUID->"1a59b94a-82b0-4e31-ae9b-613dad1cde9a"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", 
   RowBox[{
    SuperscriptBox["r", "2"], " ", 
    SuperscriptBox[
     RowBox[{"a", "[", "t", "]"}], "2"]}]], 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"Cot", "[", "\[Theta]", "]"}], " ", 
     RowBox[{
      SuperscriptBox["f", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "0", ",", "1"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"t", ",", "r", ",", "\[Theta]"}], "]"}]}], "+", 
    RowBox[{
     SuperscriptBox["f", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "0", ",", "2"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"t", ",", "r", ",", "\[Theta]"}], "]"}], "-", 
    RowBox[{"r", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "2"}], "+", 
          RowBox[{"3", " ", "k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], " ", 
        RowBox[{
         SuperscriptBox["f", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "r", ",", "\[Theta]"}], "]"}]}], "+", 
       RowBox[{"r", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], " ", 
        RowBox[{
         SuperscriptBox["f", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "2", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "r", ",", "\[Theta]"}], "]"}]}], "+", 
       RowBox[{"r", " ", 
        RowBox[{"a", "[", "t", "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"3", " ", 
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox["f", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "0", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "r", ",", "\[Theta]"}], "]"}]}], "+", 
          RowBox[{
           RowBox[{"a", "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox["f", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"2", ",", "0", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "r", ",", "\[Theta]"}], "]"}]}]}], ")"}]}]}], 
      ")"}]}]}], ")"}]}]], "Output",
 CellChangeTimes->{3.802956529574545*^9},
 CellLabel->"Out[59]=",ExpressionUUID->"a6950b6c-467f-47ef-8382-f5e015f249bc"]
}, Open  ]],

Cell[TextData[{
 "defining tensor\n",
 StyleBox["first making zero tensor and then non-zero components  e.g:",
  FontSlant->"Italic",
  FontColor->RGBColor[1, 0, 0]]
}], "Text",
 CellChangeTimes->{{3.8029565774858027`*^9, 3.802956598878566*^9}, {
  3.803006147189149*^9, 
  3.803006148517554*^9}},ExpressionUUID->"422f37f3-0fe5-4492-b477-\
3b4a282534ac"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"tens", "=", 
   RowBox[{"zeroTensor", "[", "4", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"tens", "[", 
    RowBox[{"[", 
     RowBox[{"t", ",", "r", ",", "r", ",", "r"}], "]"}], "]"}], "=", 
   RowBox[{
    RowBox[{"tens", "[", 
     RowBox[{"[", 
      RowBox[{"t", ",", "\[Theta]", ",", "\[Theta]", ",", "\[Theta]"}], "]"}],
      "]"}], "=", 
    RowBox[{
     RowBox[{"tens", "[", 
      RowBox[{"[", 
       RowBox[{"t", ",", "\[Phi]", ",", "\[Phi]", ",", "\[Phi]"}], "]"}], 
      "]"}], "=", 
     RowBox[{"4", 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "2"], 
      RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"tens", "[", 
    RowBox[{"[", 
     RowBox[{"t", ",", "r", ",", "t", ",", "r"}], "]"}], "]"}], "=", 
   RowBox[{
    RowBox[{"tens", "[", 
     RowBox[{"[", 
      RowBox[{"t", ",", "\[Theta]", ",", "t", ",", "\[Theta]"}], "]"}], "]"}],
     "=", 
    RowBox[{"6", 
     RowBox[{"a", "[", "t", "]"}], 
     SuperscriptBox[
      RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"tens", "[", 
    RowBox[{"[", 
     RowBox[{"t", ",", "t", ",", "t", ",", "t"}], "]"}], "]"}], "=", "1"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tens", "=", 
   RowBox[{"symmetrize", "[", "tens", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"display", "[", "tens", "]"}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.8029566039884043`*^9, 3.8029566664008107`*^9}, {
  3.8030061587062435`*^9, 3.803006192162784*^9}, {3.803006293021922*^9, 
  3.803006505927645*^9}},
 CellLabel->
  "In[319]:=",ExpressionUUID->"1b50c75b-803f-44eb-b467-7b50301dd6bf"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "t", ",", "t", ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], "1"},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "t", ",", "r", ",", "r"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "t", ",", "\[Theta]", ",", "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "r", ",", "t", ",", "r"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "r", ",", "r", ",", "t"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "\[Theta]", ",", "t", ",", "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "\[Theta]", ",", "\[Theta]", ",", "t"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"r", ",", "t", ",", "t", ",", "r"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"r", ",", "t", ",", "r", ",", "t"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"r", ",", "r", ",", "t", ",", "t"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"\[Theta]", ",", "t", ",", "t", ",", "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"\[Theta]", ",", "t", ",", "\[Theta]", ",", "t"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"\[Theta]", ",", "\[Theta]", ",", "t", ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      RowBox[{"a", "[", "t", "]"}], " ", 
      SuperscriptBox[
       RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "r", ",", "r", ",", "r"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "\[Theta]", ",", "\[Theta]", ",", "\[Theta]"}], 
          "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "\[Phi]", ",", "\[Phi]", ",", "\[Phi]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"r", ",", "t", ",", "r", ",", "r"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"r", ",", "r", ",", "t", ",", "r"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"r", ",", "r", ",", "r", ",", "t"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"\[Theta]", ",", "t", ",", "\[Theta]", ",", "\[Theta]"}], 
          "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"\[Theta]", ",", "\[Theta]", ",", "t", ",", "\[Theta]"}], 
          "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"\[Theta]", ",", "\[Theta]", ",", "\[Theta]", ",", "t"}], 
          "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"\[Phi]", ",", "t", ",", "\[Phi]", ",", "\[Phi]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"\[Phi]", ",", "\[Phi]", ",", "t", ",", "\[Phi]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"\[Phi]", ",", "\[Phi]", ",", "\[Phi]", ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "2"], " ", 
      RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}
   },
   AutoDelete->False,
   GridBoxFrame->{"Columns" -> False, "Rows" -> {{True}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{{3.8030064815474176`*^9, 3.8030065067559586`*^9}, 
   3.8030067986022315`*^9, 3.811857893521701*^9},
 CellLabel->
  "Out[324]=",ExpressionUUID->"5f26cde9-59d9-412c-b1f5-5fbdc1d75e05"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"TE", "=", 
   RowBox[{"zeroTensor", "[", "2", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TE", "[", 
    RowBox[{"[", 
     RowBox[{"t", ",", "t"}], "]"}], "]"}], "=", 
   RowBox[{"-", 
    RowBox[{"\[Rho]", "[", "t", "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TE", "[", 
    RowBox[{"[", 
     RowBox[{"r", ",", "r"}], "]"}], "]"}], "=", 
   RowBox[{
    RowBox[{"TE", "[", 
     RowBox[{"[", 
      RowBox[{"\[Theta]", ",", "\[Theta]"}], "]"}], "]"}], "=", 
    RowBox[{
     RowBox[{"TE", "[", 
      RowBox[{"[", 
       RowBox[{"\[Phi]", ",", "\[Phi]"}], "]"}], "]"}], "=", "p"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"display", "[", "TE", "]"}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.803006550887306*^9, 3.803006666205822*^9}, {
  3.803006697086011*^9, 3.8030067076503754`*^9}, {3.803006814511309*^9, 
  3.803006865847552*^9}, {3.8030089385987005`*^9, 3.803008971600667*^9}, {
  3.8030092016101627`*^9, 3.803009202188446*^9}, {3.8030106625359707`*^9, 
  3.803010687009822*^9}, {3.803010904939107*^9, 3.8030109053441114`*^9}, {
  3.8030109377921333`*^9, 3.803010986786435*^9}, {3.811854081800932*^9, 
  3.811854082613241*^9}, {3.8120039095618973`*^9, 3.8120039183921804`*^9}, {
  3.8120042115484324`*^9, 3.812004212376348*^9}},
 CellLabel->"In[57]:=",ExpressionUUID->"5e085995-d5a6-43d2-9977-60c9fa24fd3e"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"r", ",", "r"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"\[Theta]", ",", "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"\[Phi]", ",", "\[Phi]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], "p"},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      RowBox[{"\[Rho]", "[", "t", "]"}]}]}
   },
   AutoDelete->False,
   GridBoxFrame->{"Columns" -> False, "Rows" -> {{True}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{{3.80300891426692*^9, 3.80300894202159*^9}, 
   3.8030089725074224`*^9, 3.8030092024696302`*^9, {3.803010679963874*^9, 
   3.8030106875496836`*^9}, {3.803010923361352*^9, 3.8030109877139325`*^9}, 
   3.8118538204093227`*^9, 3.8118540832848554`*^9, 3.81200125451742*^9, 
   3.812001395818123*^9, 3.812003919110627*^9, 3.8120042127511663`*^9, 
   3.8120044677169085`*^9},
 CellLabel->"Out[60]=",ExpressionUUID->"33c5a90c-8fba-4e1b-a0c8-98e41dcc3114"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"T2", "=", 
  RowBox[{"lower", "[", 
   RowBox[{"TE", ",", 
    RowBox[{"{", "1", "}"}]}], "]"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.8030068994468184`*^9, 3.803006908322793*^9}, {
   3.8118538176600833`*^9, 3.8118538180662365`*^9}, {3.812001476743908*^9, 
   3.812001486039628*^9}, 3.812003921375718*^9},
 CellLabel->"In[48]:=",ExpressionUUID->"da28ed81-2fac-49f4-a940-7653366dfb64"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Rho]", "[", "t", "]"}], ",", "0", ",", "0", ",", "0"}], "}"}],
    ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", 
     FractionBox[
      RowBox[{"p", " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "2"]}], 
      RowBox[{"1", "-", 
       RowBox[{"k", " ", 
        SuperscriptBox["r", "2"]}]}]], ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", 
     RowBox[{"p", " ", 
      SuperscriptBox["r", "2"], " ", 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "2"]}], ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0", ",", 
     RowBox[{"p", " ", 
      SuperscriptBox["r", "2"], " ", 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.8030069144338894`*^9, {3.803008926674985*^9, 3.803008944162466*^9}, 
   3.803008975507844*^9, 3.8030092052044115`*^9, 3.8030109248853397`*^9, 
   3.8030109606048665`*^9, 3.803010990865302*^9, {3.8118538184566298`*^9, 
   3.8118538221901245`*^9}, 3.8120014003012233`*^9, 3.812001487061142*^9, 
   3.8120039235487614`*^9, 3.8120042151907268`*^9},
 CellLabel->"Out[48]=",ExpressionUUID->"741141c8-3d2d-4ab8-83d2-0afbf0be38d5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"tr", "[", "TE", "]"}]], "Input",
 CellChangeTimes->{{3.803006929108449*^9, 3.803006935422364*^9}, 
   3.8120044612911606`*^9},
 CellLabel->"In[56]:=",ExpressionUUID->"2dd60cf0-ddfc-45c6-abbf-2f2b9ffe7ca7"],

Cell[BoxData[
 RowBox[{
  RowBox[{"3", " ", "p"}], "-", 
  RowBox[{"\[Rho]", "[", "t", "]"}]}]], "Output",
 CellChangeTimes->{3.80300693615644*^9, 3.8120044623376927`*^9},
 CellLabel->"Out[56]=",ExpressionUUID->"1dbc1a30-08fe-4b22-8fa4-3a844ddc9218"]
}, Open  ]],

Cell[TextData[StyleBox["Friedman Equation",
 FontSize->18,
 FontColor->RGBColor[1, 0, 0]]], "Text",
 CellChangeTimes->{{3.8118543070602245`*^9, 
  3.81185431608944*^9}},ExpressionUUID->"dd3c8bd6-0e37-4d61-869a-\
6e4434ec6a6d"],

Cell[BoxData[
 StyleBox[
  RowBox[{
   SubscriptBox["R", "\[Mu]\[Nu]"], "=", 
   RowBox[{"8", "\[Pi]", " ", "G", " ", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["T", "\[Mu]\[Nu]"], "-", 
      RowBox[{
       FractionBox["1", "2"], "T", " ", 
       SubscriptBox["g", "\[Mu]\[Nu]"]}]}], ")"}]}]}], "Subsection",
  FontSize->16,
  FontWeight->"Plain",
  FontSlant->"Italic"]], "Input",
 CellChangeTimes->{{3.8118538710537443`*^9, 
  3.81185393164883*^9}},ExpressionUUID->"c4d7d2cd-b672-429d-b305-\
78193c2a2297"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Rtt", "=", 
   RowBox[{"Extract", "[", 
    RowBox[{"RicciTensor", ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "t"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TEtt", "=", 
   RowBox[{"Extract", "[", 
    RowBox[{
     RowBox[{"lower", "[", 
      RowBox[{"TE", ",", 
       RowBox[{"{", "1", "}"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "t"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"FullSimplify", "[", 
  RowBox[{
   RowBox[{"Rtt", "-", 
    RowBox[{"8", "\[Pi]", " ", "G", " ", "TEtt"}], "-", 
    RowBox[{"4", "\[Pi]", " ", "G", " ", 
     RowBox[{"tr", "[", "TE", "]"}]}]}], "\[Equal]", " ", "0"}], 
  "]"}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.803007411980175*^9, 3.8030074849622664`*^9}, {
  3.8030075853967476`*^9, 3.8030076154148474`*^9}, {3.803007671138342*^9, 
  3.803007791371281*^9}, {3.803007856335479*^9, 3.8030079014360723`*^9}, {
  3.803008247685294*^9, 3.8030082579684935`*^9}, {3.8030083727052345`*^9, 
  3.8030083813311644`*^9}, {3.811854026673303*^9, 3.811854027079323*^9}, {
  3.811854189431789*^9, 3.8118541929777117`*^9}, {3.8120044314878387`*^9, 
  3.8120044797811995`*^9}},
 CellLabel->"In[64]:=",ExpressionUUID->"9f66f670-d7de-4461-807d-48b32cfd07e7"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"4", " ", "G", " ", "\[Pi]", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"3", " ", "p"}], "+", 
      RowBox[{"\[Rho]", "[", "t", "]"}]}], ")"}]}], "+", 
   FractionBox[
    RowBox[{"3", " ", 
     RowBox[{
      SuperscriptBox["a", "\[Prime]\[Prime]",
       MultilineFunction->None], "[", "t", "]"}]}], 
    RowBox[{"a", "[", "t", "]"}]]}], "\[Equal]", "0"}]], "Output",
 CellChangeTimes->{{3.8030074356262336`*^9, 3.8030074876032534`*^9}, 
   3.803007750192565*^9, 3.8030077921685185`*^9, {3.803007857428835*^9, 
   3.803007901811285*^9}, {3.803008264109581*^9, 3.80300826671972*^9}, 
   3.8030083815341177`*^9, 3.8118540938136215`*^9, {3.8118541904470577`*^9, 
   3.8118541935869746`*^9}, {3.8120044399748273`*^9, 3.812004480109146*^9}},
 CellLabel->"Out[66]=",ExpressionUUID->"7eb68c7a-37be-43bb-9db3-4e141259a102"]
}, Open  ]],

Cell["\<\
** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ***** ** ** ** ** ** ** ** \
** ***\
\>", "Item",
 CellChangeTimes->{{3.8118543211351366`*^9, 3.811854325962126*^9}, {
  3.8120043032207527`*^9, 3.8120043039406986`*^9}, {3.812007667931616*^9, 
  3.8120076744768763`*^9}},ExpressionUUID->"1a37c8ea-f244-4ca1-9427-\
9e310fc01c44"],

Cell[TextData[{
 StyleBox["Contraction of indices\n",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["all indices to be contracted are assumed to be down",
  FontSlant->"Italic",
  FontColor->GrayLevel[0]]
}], "Text",
 CellChangeTimes->{{3.8118556874505515`*^9, 3.811855709735017*^9}, {
  3.8120043455831776`*^9, 
  3.8120043509742613`*^9}},ExpressionUUID->"06864506-0ffd-47a9-b2ad-\
fa040f71d02b"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"RL", "=", 
   RowBox[{"lower", "[", 
    RowBox[{"Riemann", ",", 
     RowBox[{"{", "4", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"contract", "[", 
   RowBox[{"RL", ",", 
    RowBox[{"{", 
     RowBox[{"1", ",", "3"}], "}"}]}], "]"}], "//", "display"}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.8118557181568403`*^9, 3.8118557732219877`*^9}, {
  3.81185582307926*^9, 3.811855941395114*^9}, {3.8118565538960004`*^9, 
  3.8118565605507345`*^9}},
 CellLabel->
  "In[139]:=",ExpressionUUID->"849e6ec1-a726-46f7-88fc-22f2b9ed940e"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"3", " ", 
        RowBox[{
         SuperscriptBox["a", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}]}], 
       RowBox[{"a", "[", "t", "]"}]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"\[Theta]", ",", "\[Theta]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      SuperscriptBox["r", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", "k"}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["a", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
        RowBox[{
         RowBox[{"a", "[", "t", "]"}], " ", 
         RowBox[{
          SuperscriptBox["a", "\[Prime]\[Prime]",
           MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"r", ",", "r"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       RowBox[{"2", " ", "k"}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["a", "\[Prime]",
           MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
       RowBox[{
        RowBox[{"a", "[", "t", "]"}], " ", 
        RowBox[{
         SuperscriptBox["a", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}]}]}], 
      RowBox[{"1", "-", 
       RowBox[{"k", " ", 
        SuperscriptBox["r", "2"]}]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"\[Phi]", ",", "\[Phi]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      SuperscriptBox["r", "2"], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", "k"}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["a", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
        RowBox[{
         RowBox[{"a", "[", "t", "]"}], " ", 
         RowBox[{
          SuperscriptBox["a", "\[Prime]\[Prime]",
           MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}]}
   },
   AutoDelete->False,
   GridBoxFrame->{"Columns" -> False, "Rows" -> {{True}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{{3.81185584184033*^9, 3.811855877566285*^9}, {
  3.811855926835951*^9, 3.811855942004217*^9}, {3.811856554739498*^9, 
  3.811856561237937*^9}},
 CellLabel->
  "Out[140]=",ExpressionUUID->"58826368-7d4f-4d9e-85b6-5a65b43ee5b2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RicciTensor", "//", "display"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.8118558793941107`*^9, 3.811855886064414*^9}},
 CellLabel->"In[83]:=",ExpressionUUID->"d3622148-aae0-43e6-9896-49e439174bfa"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"3", " ", 
        RowBox[{
         SuperscriptBox["a", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}]}], 
       RowBox[{"a", "[", "t", "]"}]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"\[Theta]", ",", "\[Theta]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      SuperscriptBox["r", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", "k"}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["a", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
        RowBox[{
         RowBox[{"a", "[", "t", "]"}], " ", 
         RowBox[{
          SuperscriptBox["a", "\[Prime]\[Prime]",
           MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"r", ",", "r"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       RowBox[{"2", " ", "k"}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["a", "\[Prime]",
           MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
       RowBox[{
        RowBox[{"a", "[", "t", "]"}], " ", 
        RowBox[{
         SuperscriptBox["a", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}]}]}], 
      RowBox[{"1", "-", 
       RowBox[{"k", " ", 
        SuperscriptBox["r", "2"]}]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"\[Phi]", ",", "\[Phi]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      SuperscriptBox["r", "2"], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", "k"}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["a", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
        RowBox[{
         RowBox[{"a", "[", "t", "]"}], " ", 
         RowBox[{
          SuperscriptBox["a", "\[Prime]\[Prime]",
           MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}]}
   },
   AutoDelete->False,
   GridBoxFrame->{"Columns" -> False, "Rows" -> {{True}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{{3.811855882002771*^9, 3.811855886814102*^9}},
 CellLabel->"Out[83]=",ExpressionUUID->"3bff4826-68aa-4b18-b2b9-12d975320251"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"arb", "=", 
   RowBox[{"zeroTensor", "[", "4", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"arb", "[", 
    RowBox[{"[", 
     RowBox[{"t", ",", "t", ",", "t", ",", "t"}], "]"}], "]"}], "=", 
   RowBox[{"-", 
    RowBox[{"a", "[", "t", "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"arb", "[", 
    RowBox[{"[", 
     RowBox[{"r", ",", "r", ",", "r", ",", "r"}], "]"}], "]"}], "=", 
   SuperscriptBox["r", "2"]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"arb", "[", 
    RowBox[{"[", 
     RowBox[{"\[Theta]", ",", "\[Theta]", ",", "\[Theta]", ",", "\[Theta]"}], 
     "]"}], "]"}], "=", 
   RowBox[{
    SuperscriptBox["r", "2"], 
    SuperscriptBox[
     RowBox[{"a", "[", "t", "]"}], "2"], 
    SuperscriptBox[
     RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"arb", "[", 
    RowBox[{"[", 
     RowBox[{"\[Phi]", ",", "\[Phi]", ",", "\[Phi]", ",", "\[Phi]"}], "]"}], 
    "]"}], "=", 
   RowBox[{
    SuperscriptBox["r", "2"], 
    RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"arb", "[", 
    RowBox[{"[", 
     RowBox[{"r", ",", "t", ",", "r", ",", "t"}], "]"}], "]"}], "=", 
   RowBox[{"1", "-", 
    RowBox[{"k", " ", 
     SuperscriptBox["r", "2"]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"arb", "=", 
   RowBox[{"symmetrize", "[", "arb", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"arb", "//", "display"}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.811856046492463*^9, 3.8118562855475273`*^9}, {
   3.8118563201877413`*^9, 3.8118563505624323`*^9}, {3.811857716765155*^9, 
   3.811857725794992*^9}, 3.811857816082868*^9, {3.811857970269685*^9, 
   3.811857972382511*^9}, {3.8120009583395863`*^9, 3.812001015431436*^9}},
 CellLabel->"In[19]:=",ExpressionUUID->"c26cf11f-a68a-4ed6-9f28-68882f983ae5"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"r", ",", "r", ",", "r", ",", "r"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     SuperscriptBox["r", "2"]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "t", ",", "r", ",", "r"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "r", ",", "t", ",", "r"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "r", ",", "r", ",", "t"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"r", ",", "t", ",", "t", ",", "r"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"r", ",", "t", ",", "r", ",", "t"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"r", ",", "r", ",", "t", ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      FractionBox["1", "6"], " ", 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"k", " ", 
         SuperscriptBox["r", "2"]}]}], ")"}]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "t", ",", "t", ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      RowBox[{"a", "[", "t", "]"}]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"\[Phi]", ",", "\[Phi]", ",", "\[Phi]", ",", "\[Phi]"}], 
          "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      SuperscriptBox["r", "2"], " ", 
      RowBox[{"Cos", "[", "\[Theta]", "]"}]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "\[Theta]", ",", "\[Theta]", ",", "\[Theta]", ",", "\[Theta]"}], 
          "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      SuperscriptBox["r", "2"], " ", 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}
   },
   AutoDelete->False,
   GridBoxFrame->{"Columns" -> False, "Rows" -> {{True}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{
  3.811856285984895*^9, {3.8118563446228757`*^9, 3.8118563516089582`*^9}, 
   3.8118564953360963`*^9, 3.8118575463920164`*^9, 3.8118576038861027`*^9, {
   3.811857684971184*^9, 3.811857728154212*^9}, {3.8118578165641675`*^9, 
   3.811857834380267*^9}, 3.8118579727357454`*^9, 3.8118651131497536`*^9, 
   3.8120009394684696`*^9, {3.8120010159038973`*^9, 3.8120010392374988`*^9}, 
   3.812004588212488*^9, 3.8120808794168262`*^9},
 CellLabel->"Out[26]=",ExpressionUUID->"295a2d95-a7d7-4b34-abd5-aa2c027adeeb"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{"v", "=", 
    RowBox[{"lower", "[", 
     RowBox[{"arb", ",", 
      RowBox[{"{", 
       RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}]}], "]"}]}], ")"}], "//",
   "display"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.8118564632433395`*^9, 3.8118564829764304`*^9}, {
   3.8118565142256002`*^9, 3.8118565358021574`*^9}, {3.8118577691458483`*^9, 
   3.8118577705936966`*^9}, 3.811857838903308*^9, {3.811865772594718*^9, 
   3.8118657742520514`*^9}},
 CellLabel->"In[27]:=",ExpressionUUID->"6a220d61-2be7-426f-a8a3-3ff8074a30db"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "t", ",", "t", ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      RowBox[{"a", "[", "t", "]"}]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "t", ",", "r", ",", "r"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "r", ",", "t", ",", "r"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "r", ",", "r", ",", "t"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"r", ",", "t", ",", "t", ",", "r"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"r", ",", "t", ",", "r", ",", "t"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{"r", ",", "r", ",", "t", ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "4"], 
      RowBox[{"6", "-", 
       RowBox[{"6", " ", "k", " ", 
        SuperscriptBox["r", "2"]}]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"r", ",", "r", ",", "r", ",", "r"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       SuperscriptBox["r", "2"], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "8"]}], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "2"]}]}], ")"}], "4"]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "\[Theta]", ",", "\[Theta]", ",", "\[Theta]", ",", "\[Theta]"}], 
          "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      SuperscriptBox["r", "10"], " ", 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "10"], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"\[Phi]", ",", "\[Phi]", ",", "\[Phi]", ",", "\[Phi]"}], 
          "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      SuperscriptBox["r", "10"], " ", 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "8"], " ", 
      RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "8"]}]}
   },
   AutoDelete->False,
   GridBoxFrame->{"Columns" -> False, "Rows" -> {{True}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{{3.8118564856631556`*^9, 3.8118565363175297`*^9}, {
   3.8118577710604277`*^9, 3.8118577871470366`*^9}, 3.8118578399643984`*^9, {
   3.811858000692526*^9, 3.8118580191932707`*^9}, 3.8118657762876673`*^9, 
   3.812000942469599*^9, 3.812001046418804*^9, 3.812080882637024*^9},
 CellLabel->"Out[27]=",ExpressionUUID->"516214f1-b9ba-4be8-b6e4-87a9fd9c737d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"contract", "[", 
   RowBox[{"arb", ",", 
    RowBox[{"{", 
     RowBox[{"1", ",", "3"}], "}"}]}], "]"}], "//", "display"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.8118563923728557`*^9, 3.811856451480472*^9}, {
   3.811856543191025*^9, 3.8118565442220473`*^9}, 3.8118580319312525`*^9},
 CellLabel->"In[46]:=",ExpressionUUID->"cdc77a5f-ae56-4bf9-a8c3-aa552ac519c2"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      FractionBox[
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], "2"], 
       RowBox[{"6", " ", 
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "2"]}]], "+", 
      RowBox[{"a", "[", "t", "]"}]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"r", ",", "r"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"6", " ", 
           SuperscriptBox["r", "2"]}], "-", 
          SuperscriptBox[
           RowBox[{"a", "[", "t", "]"}], "2"]}], ")"}]}], 
       RowBox[{"6", " ", 
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "2"]}]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"\[Phi]", ",", "\[Phi]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       RowBox[{"Cot", "[", "\[Theta]", "]"}], " ", 
       RowBox[{"Csc", "[", "\[Theta]", "]"}]}], 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "2"]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"\[Theta]", ",", "\[Theta]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     SuperscriptBox[
      RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}
   },
   AutoDelete->False,
   GridBoxFrame->{"Columns" -> False, "Rows" -> {{True}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{{3.811856413481512*^9, 3.8118564518708725`*^9}, {
   3.8118565315530615`*^9, 3.811856544831147*^9}, 3.8118580324866047`*^9, 
   3.812001075150836*^9},
 CellLabel->"Out[46]=",ExpressionUUID->"8fc97422-ea9b-40a8-93b6-ed139e0b9c89"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"contract", "[", 
   RowBox[{"v", ",", 
    RowBox[{"{", 
     RowBox[{"1", ",", "4"}], "}"}]}], "]"}], "//", "display"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.811865789300094*^9, 3.8118658033032417`*^9}},
 CellLabel->"In[44]:=",ExpressionUUID->"24325baa-1bd7-453c-8e87-88593c8bd3be"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"a", "[", "t", "]"}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"r", ",", "r"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "6"]}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], "3"]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"\[Theta]", ",", "\[Theta]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      SuperscriptBox["r", "8"], " ", 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "8"], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"\[Phi]", ",", "\[Phi]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      SuperscriptBox["r", "8"], " ", 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "6"], " ", 
      RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "6"]}]}
   },
   AutoDelete->False,
   GridBoxFrame->{"Columns" -> False, "Rows" -> {{True}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{{3.8118657989540176`*^9, 3.8118658038181677`*^9}},
 CellLabel->"Out[44]=",ExpressionUUID->"fe57be17-73bf-4495-a68a-851a5e590dbb"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"raise", "[", "Riemann", "]"}], "//", "display"}]], "Input",
 CellChangeTimes->{{3.81208096323236*^9, 3.812080983421256*^9}},
 CellLabel->"In[31]:=",ExpressionUUID->"c7441aad-1bdc-44f1-b7d4-e2d15cefbc89"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"r", ",", "\[Theta]", ",", "r", ",", "\[Theta]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"k", "+", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}]}], 
       RowBox[{
        SuperscriptBox["r", "4"], " ", 
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "8"]}]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"\[Theta]", ",", "r", ",", "r", ",", "\[Theta]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "2"]}]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"k", "+", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["a", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}]}], 
      RowBox[{
       SuperscriptBox["r", "4"], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "8"]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"r", ",", "\[Theta]", ",", "\[Theta]", ",", "r"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           RowBox[{"k", " ", 
            SuperscriptBox["r", "2"]}]}], ")"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{"k", "+", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}]}], 
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "8"]}]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"\[Theta]", ",", "r", ",", "\[Theta]", ",", "r"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{"k", "+", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["a", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}]}], 
      RowBox[{
       SuperscriptBox["r", "2"], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "8"]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"\[Theta]", ",", "\[Phi]", ",", "\[Phi]", ",", "\[Theta]"}],
           "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{"k", "+", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}]}], 
       RowBox[{
        SuperscriptBox["r", "6"], " ", 
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "8"]}]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Phi]", ",", "\[Theta]"}],
           "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{"k", "+", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["a", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}]}], 
      RowBox[{
       SuperscriptBox["r", "6"], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "8"]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"r", ",", "\[Phi]", ",", "\[Phi]", ",", "r"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           RowBox[{"k", " ", 
            SuperscriptBox["r", "2"]}]}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{"k", "+", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}]}], 
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "8"]}]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"\[Phi]", ",", "r", ",", "\[Phi]", ",", "r"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{"k", "+", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["a", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}]}], 
      RowBox[{
       SuperscriptBox["r", "2"], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "8"]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"\[Phi]", ",", "\[Theta]", ",", "\[Theta]", ",", "\[Phi]"}],
           "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"Csc", "[", "\[Theta]", "]"}], "4"], " ", 
        RowBox[{"(", 
         RowBox[{"k", "+", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}]}], 
       RowBox[{
        SuperscriptBox["r", "6"], " ", 
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "8"]}]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"\[Theta]", ",", "\[Phi]", ",", "\[Theta]", ",", "\[Phi]"}],
           "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"Csc", "[", "\[Theta]", "]"}], "4"], " ", 
       RowBox[{"(", 
        RowBox[{"k", "+", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["a", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}]}], 
      RowBox[{
       SuperscriptBox["r", "6"], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "8"]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"r", ",", "\[Phi]", ",", "r", ",", "\[Phi]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"Csc", "[", "\[Theta]", "]"}], "4"], " ", 
        RowBox[{"(", 
         RowBox[{"k", "+", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}]}], 
       RowBox[{
        SuperscriptBox["r", "4"], " ", 
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "8"]}]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"\[Phi]", ",", "r", ",", "r", ",", "\[Phi]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "2"]}]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"Csc", "[", "\[Theta]", "]"}], "4"], " ", 
       RowBox[{"(", 
        RowBox[{"k", "+", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["a", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}]}], 
      RowBox[{
       SuperscriptBox["r", "4"], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "8"]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "\[Theta]", ",", "t", ",", "\[Theta]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], 
       RowBox[{
        SuperscriptBox["r", "4"], " ", 
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "5"]}]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"\[Theta]", ",", "t", ",", "t", ",", "\[Theta]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       SuperscriptBox["a", "\[Prime]\[Prime]",
        MultilineFunction->None], "[", "t", "]"}], 
      RowBox[{
       SuperscriptBox["r", "4"], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "5"]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "r", ",", "t", ",", "r"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           RowBox[{"k", " ", 
            SuperscriptBox["r", "2"]}]}], ")"}], "2"], " ", 
        RowBox[{
         SuperscriptBox["a", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}]}], 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "5"]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"r", ",", "t", ",", "t", ",", "r"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], "2"], " ", 
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}]}], 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "5"]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "\[Theta]", ",", "\[Theta]", ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], 
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "3"]}]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"\[Theta]", ",", "t", ",", "\[Theta]", ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       SuperscriptBox["a", "\[Prime]\[Prime]",
        MultilineFunction->None], "[", "t", "]"}], 
      RowBox[{
       SuperscriptBox["r", "2"], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "3"]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"r", ",", "t", ",", "r", ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], " ", 
        RowBox[{
         SuperscriptBox["a", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}]}], 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "3"]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "r", ",", "r", ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "2"]}]}], ")"}], " ", 
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}]}], 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "3"]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "\[Phi]", ",", "\[Phi]", ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"], " ", 
        RowBox[{
         SuperscriptBox["a", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}]}], 
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "3"]}]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"\[Phi]", ",", "t", ",", "\[Phi]", ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"], " ", 
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}]}], 
      RowBox[{
       SuperscriptBox["r", "2"], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "3"]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "\[Phi]", ",", "t", ",", "\[Phi]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"Csc", "[", "\[Theta]", "]"}], "4"], " ", 
        RowBox[{
         SuperscriptBox["a", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}]}], 
       RowBox[{
        SuperscriptBox["r", "4"], " ", 
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "5"]}]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"\[Phi]", ",", "t", ",", "t", ",", "\[Phi]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"Csc", "[", "\[Theta]", "]"}], "4"], " ", 
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}]}], 
      RowBox[{
       SuperscriptBox["r", "4"], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "5"]}]]}
   },
   AutoDelete->False,
   GridBoxFrame->{"Columns" -> False, "Rows" -> {{True}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{{3.812080976850787*^9, 3.8120809838916616`*^9}},
 CellLabel->"Out[31]=",ExpressionUUID->"61433171-2b1b-4990-9cdb-c0daceede570"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"h", "=", 
   RowBox[{"(", 
    RowBox[{"lower", "[", 
     RowBox[{"RicciTensor", " ", "**", "Riemann"}], "]"}], ")"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"contract", "[", 
   RowBox[{"h", ",", 
    RowBox[{"{", 
     RowBox[{"1", ",", "2"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"3", ",", "4"}], "}"}]}], "]"}], "//", "display"}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.811856572113911*^9, 3.8118568092125516`*^9}, {
  3.812081012376854*^9, 3.8120810190039806`*^9}, {3.8120810514226313`*^9, 
  3.812081052772458*^9}, {3.812081122544536*^9, 3.8120811294267282`*^9}},
 CellLabel->"In[36]:=",ExpressionUUID->"6ccbbadb-4c80-46b0-9df3-389e65c58192"],

Cell[BoxData[
 InterpretationBox[
  TagBox[GridBox[{
     {""}
    },
    AutoDelete->False,
    GridBoxFrame->{"Columns" -> False, "Rows" -> {{True}}},
    GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
   "Grid"],
  Grid[{}, Frame -> {False, All}]]], "Output",
 CellChangeTimes->{{3.811856641691281*^9, 3.8118567745289145`*^9}, {
   3.8118568051013947`*^9, 3.811856809858595*^9}, 3.8118580389946327`*^9, 
   3.8118651198536787`*^9, 3.8120045588157964`*^9, 3.812080933446945*^9, 
   3.812081020088894*^9, 3.8120810538266735`*^9, 3.812081133008605*^9},
 CellLabel->"Out[37]=",ExpressionUUID->"725411da-3a0e-436d-a162-c8bf690332cc"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "f1", "]"}]], "Input",
 CellChangeTimes->{{3.811856966662515*^9, 3.8118569733997135`*^9}},
 CellLabel->"In[83]:=",ExpressionUUID->"bf6282a4-bf59-4058-b4fc-db09ff584daa"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"(", 
   RowBox[{"f1", "=", 
    RowBox[{"arb", " ", ".", " ", "RicciTensor"}]}], ")"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"contract", "[", 
   RowBox[{"f1", ",", 
    RowBox[{"{", 
     RowBox[{"3", ",", "4"}], "}"}]}], "]"}], "//", "display"}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.811856843071232*^9, 3.811856878590376*^9}, {
   3.8118569261810336`*^9, 3.8118569277507944`*^9}, {3.8118570003379817`*^9, 
   3.8118570110131493`*^9}, {3.811857391738652*^9, 3.811857499735767*^9}, 
   3.8118580426666465`*^9, {3.8118651045468163`*^9, 3.811865106198758*^9}},
 CellLabel->"In[38]:=",ExpressionUUID->"2691faf9-5bbf-484b-99e2-dea8670827ed"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"\[Phi]", ",", "\[Phi]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       SuperscriptBox["r", "2"], " ", 
       RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "k"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
         RowBox[{
          RowBox[{"a", "[", "t", "]"}], " ", 
          RowBox[{
           SuperscriptBox["a", "\[Prime]\[Prime]",
            MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}], 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "2"]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"\[Theta]", ",", "\[Theta]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      SuperscriptBox["r", "2"], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", "k"}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["a", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
        RowBox[{
         RowBox[{"a", "[", "t", "]"}], " ", 
         RowBox[{
          SuperscriptBox["a", "\[Prime]\[Prime]",
           MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"r", ",", "r"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       RowBox[{"4", " ", "k", " ", 
        SuperscriptBox["r", "2"]}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["r", "2"], " ", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["a", "\[Prime]",
           MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "2"}], "+", "k"}], ")"}], " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], " ", 
        RowBox[{"a", "[", "t", "]"}], " ", 
        RowBox[{
         SuperscriptBox["a", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}]}]}], 
      RowBox[{"2", " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "2"]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      RowBox[{
       RowBox[{"-", "3"}], " ", 
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}]}], "-", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "k"}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["a", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
          RowBox[{
           RowBox[{"a", "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox["a", "\[Prime]\[Prime]",
             MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}], 
       RowBox[{"6", " ", 
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "2"]}]]}]}
   },
   AutoDelete->False,
   GridBoxFrame->{"Columns" -> False, "Rows" -> {{True}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{{3.811856869017919*^9, 3.811856879107973*^9}, {
   3.8118569288588047`*^9, 3.811856943760785*^9}, 3.811856978042507*^9, 
   3.811857012591953*^9, {3.811857341018817*^9, 3.811857500338518*^9}, 
   3.8118580462565765`*^9, {3.811865107413329*^9, 3.811865125025196*^9}, 
   3.811865172609453*^9, 3.8120045999958687`*^9, {3.8120046388495245`*^9, 
   3.8120046528529096`*^9}, 3.8120812077246857`*^9},
 CellLabel->"Out[39]=",ExpressionUUID->"4227425b-cf38-4bd9-8f64-2153392a2ee6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{"g1", "=", 
    RowBox[{"contract", "[", 
     RowBox[{"f1", ",", 
      RowBox[{"{", 
       RowBox[{"3", ",", "4"}], "}"}]}], "]"}]}], ")"}], "//", 
  "display"}]], "Input",
 CellChangeTimes->{{3.8120812036192126`*^9, 3.8120812243576937`*^9}},
 CellLabel->"In[42]:=",ExpressionUUID->"88e834a5-0278-4cc6-8504-f2cb5da75a3a"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"\[Phi]", ",", "\[Phi]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       SuperscriptBox["r", "2"], " ", 
       RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "k"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
         RowBox[{
          RowBox[{"a", "[", "t", "]"}], " ", 
          RowBox[{
           SuperscriptBox["a", "\[Prime]\[Prime]",
            MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}], 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "2"]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"\[Theta]", ",", "\[Theta]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      SuperscriptBox["r", "2"], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", "k"}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["a", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
        RowBox[{
         RowBox[{"a", "[", "t", "]"}], " ", 
         RowBox[{
          SuperscriptBox["a", "\[Prime]\[Prime]",
           MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"r", ",", "r"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       RowBox[{"4", " ", "k", " ", 
        SuperscriptBox["r", "2"]}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["r", "2"], " ", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["a", "\[Prime]",
           MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "2"}], "+", "k"}], ")"}], " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], " ", 
        RowBox[{"a", "[", "t", "]"}], " ", 
        RowBox[{
         SuperscriptBox["a", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}]}]}], 
      RowBox[{"2", " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "2"]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      RowBox[{
       RowBox[{"-", "3"}], " ", 
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}]}], "-", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "k"}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["a", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
          RowBox[{
           RowBox[{"a", "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox["a", "\[Prime]\[Prime]",
             MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}], 
       RowBox[{"6", " ", 
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "2"]}]]}]}
   },
   AutoDelete->False,
   GridBoxFrame->{"Columns" -> False, "Rows" -> {{True}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{{3.8120812140903735`*^9, 3.812081224942916*^9}},
 CellLabel->"Out[42]=",ExpressionUUID->"6b1d4be8-bb82-4d6b-a73e-332da6dfb4f1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"rank", "[", "g1", "]"}]], "Input",
 CellChangeTimes->{{3.812081215430727*^9, 3.812081217980973*^9}},
 CellLabel->"In[43]:=",ExpressionUUID->"9f2255da-a3c4-4626-816b-0f62a00df949"],

Cell[BoxData["2"], "Output",
 CellChangeTimes->{{3.812081218613948*^9, 3.8120812267742643`*^9}},
 CellLabel->"Out[43]=",ExpressionUUID->"83337e9b-7de8-4d95-9626-304f9b24c83b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"rank", "[", "f1", "]"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.8118580477521725`*^9, 3.811858050467311*^9}},
 CellLabel->"In[33]:=",ExpressionUUID->"4fcb9a8c-22da-4d8b-af12-0b7359e93262"],

Cell[BoxData["4"], "Output",
 CellChangeTimes->{3.811858050916048*^9, 3.811865131588578*^9, 
  3.8118651742589455`*^9},
 CellLabel->"Out[33]=",ExpressionUUID->"d7aae994-36c2-44ff-967e-84d9d6acfca7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"rank", "[", "h", "]"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.8118573640414944`*^9, 3.8118573746181445`*^9}, {
  3.812004661137715*^9, 3.8120046637150807`*^9}},
 CellLabel->"In[86]:=",ExpressionUUID->"b9210ddc-c3eb-4f88-ba37-2e6c119ca70e"],

Cell[BoxData["6"], "Output",
 CellChangeTimes->{{3.8118573673752623`*^9, 3.8118573748484044`*^9}, 
   3.8118580893698535`*^9, 3.8118651762414527`*^9, 3.8120046656083546`*^9},
 CellLabel->"Out[86]=",ExpressionUUID->"1d90d3ec-c3b8-4eb6-b629-6c4b4eea210f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"contract", "[", 
   RowBox[{
    RowBox[{"f1", "**", 
     RowBox[{"(", 
      RowBox[{"h", ".", "RicciTensor"}], ")"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"2", ",", "6"}], "}"}]}], "]"}], "//", "display"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.811857028665433*^9, 3.81185707723917*^9}, {
  3.8118571166947055`*^9, 3.81185712627736*^9}, {3.811865142073336*^9, 
  3.8118651473146534`*^9}, {3.8118651847124233`*^9, 3.8118651996589375`*^9}, {
  3.8118657280567617`*^9, 3.8118657374357767`*^9}},
 CellLabel->"In[87]:=",ExpressionUUID->"b51d2f51-c8e7-4595-85c8-dc257e699244"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "r", ",", "t", ",", "t", ",", "t", ",", "r", ",", "r", 
           ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"9", " ", 
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["a", "\[Prime]\[Prime]",
           MultilineFunction->None], "[", "t", "]"}], "4"]}], 
       RowBox[{"2", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           RowBox[{"k", " ", 
            SuperscriptBox["r", "2"]}]}], ")"}], "2"]}]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "r", ",", "t", ",", "t", ",", "r", ",", "t", ",", "r", 
           ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{"9", " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{
         SuperscriptBox["a", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}], "4"]}], 
      RowBox[{"2", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], "2"]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "r", ",", "t", ",", "t", ",", "\[Theta]", ",", "t", ",", 
           "\[Theta]", ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      RowBox[{"-", 
       FractionBox["9", "2"]}], " ", 
      SuperscriptBox["r", "6"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        RowBox[{"k", " ", 
         SuperscriptBox["r", "2"]}]}], ")"}], " ", 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], "4"]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "r", ",", "t", ",", "t", ",", "t", ",", "\[Theta]", ",", 
           "\[Theta]", ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      FractionBox["9", "2"], " ", 
      SuperscriptBox["r", "6"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        RowBox[{"k", " ", 
         SuperscriptBox["r", "2"]}]}], ")"}], " ", 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], "4"]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "t", ",", "t", ",", "t", ",", "\[Theta]", ",", "t", ",", 
           "\[Theta]", ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      RowBox[{"-", "27"}], " ", 
      SuperscriptBox["r", "6"], " ", 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "3"], " ", 
      SuperscriptBox[
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], "4"]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "t", ",", "t", ",", "t", ",", "t", ",", "\[Theta]", ",", 
           "\[Theta]", ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"27", " ", 
      SuperscriptBox["r", "6"], " ", 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "3"], " ", 
      SuperscriptBox[
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], "4"]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "t", ",", "t", ",", "t", ",", "t", ",", "r", ",", "r", 
           ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"27", " ", 
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "3"], " ", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["a", "\[Prime]\[Prime]",
           MultilineFunction->None], "[", "t", "]"}], "4"]}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], "3"]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "t", ",", "t", ",", "t", ",", "r", ",", "t", ",", "r", 
           ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{"27", " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "3"], " ", 
       SuperscriptBox[
        RowBox[{
         SuperscriptBox["a", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}], "4"]}], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "2"]}]}], ")"}], "3"]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "r", ",", "t", ",", "t", ",", "\[Phi]", ",", "t", ",", 
           "\[Phi]", ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      RowBox[{"-", 
       FractionBox["9", "2"]}], " ", 
      SuperscriptBox["r", "6"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        RowBox[{"k", " ", 
         SuperscriptBox["r", "2"]}]}], ")"}], " ", 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "6"], " ", 
      SuperscriptBox[
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], "4"]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "r", ",", "t", ",", "t", ",", "t", ",", "\[Phi]", ",", 
           "\[Phi]", ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      FractionBox["9", "2"], " ", 
      SuperscriptBox["r", "6"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        RowBox[{"k", " ", 
         SuperscriptBox["r", "2"]}]}], ")"}], " ", 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "6"], " ", 
      SuperscriptBox[
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], "4"]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "t", ",", "t", ",", "t", ",", "\[Phi]", ",", "t", ",", 
           "\[Phi]", ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      RowBox[{"-", "27"}], " ", 
      SuperscriptBox["r", "6"], " ", 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "3"], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "6"], " ", 
      SuperscriptBox[
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], "4"]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "t", ",", "t", ",", "t", ",", "t", ",", "\[Phi]", ",", 
           "\[Phi]", ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"27", " ", 
      SuperscriptBox["r", "6"], " ", 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "3"], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "6"], " ", 
      SuperscriptBox[
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], "4"]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "r", ",", "t", ",", "t", ",", "r", ",", "\[Theta]", ",", 
           "r", ",", "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "r", ",", "t", ",", "t", ",", "\[Theta]", ",", "r", ",", 
           "\[Theta]", ",", "r"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"3", " ", 
        SuperscriptBox["r", "6"], " ", 
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "6"], " ", 
        RowBox[{"(", 
         RowBox[{"k", "+", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["a", "\[Prime]\[Prime]",
           MultilineFunction->None], "[", "t", "]"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "k"}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["a", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
          RowBox[{
           RowBox[{"a", "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox["a", "\[Prime]\[Prime]",
             MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}], 
       RowBox[{"2", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           RowBox[{"k", " ", 
            SuperscriptBox["r", "2"]}]}], ")"}], "2"]}]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "r", ",", "t", ",", "t", ",", "r", ",", "\[Theta]", ",", 
           "\[Theta]", ",", "r"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "r", ",", "t", ",", "t", ",", "\[Theta]", ",", "r", ",", 
           "r", ",", "\[Theta]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{"3", " ", 
       SuperscriptBox["r", "6"], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "6"], " ", 
       RowBox[{"(", 
        RowBox[{"k", "+", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["a", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{
         SuperscriptBox["a", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "k"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
         RowBox[{
          RowBox[{"a", "[", "t", "]"}], " ", 
          RowBox[{
           SuperscriptBox["a", "\[Prime]\[Prime]",
            MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}], 
      RowBox[{"2", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], "2"]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "t", ",", "t", ",", "t", ",", "r", ",", "\[Theta]", ",", 
           "r", ",", "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "t", ",", "t", ",", "t", ",", "\[Theta]", ",", "r", ",", 
           "\[Theta]", ",", "r"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"9", " ", 
        SuperscriptBox["r", "6"], " ", 
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "7"], " ", 
        RowBox[{"(", 
         RowBox[{"k", "+", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["a", "\[Prime]\[Prime]",
           MultilineFunction->None], "[", "t", "]"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "k"}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["a", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
          RowBox[{
           RowBox[{"a", "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox["a", "\[Prime]\[Prime]",
             MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], "3"]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "t", ",", "t", ",", "t", ",", "r", ",", "\[Theta]", ",", 
           "\[Theta]", ",", "r"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "t", ",", "t", ",", "t", ",", "\[Theta]", ",", "r", ",", 
           "r", ",", "\[Theta]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{"9", " ", 
       SuperscriptBox["r", "6"], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "7"], " ", 
       RowBox[{"(", 
        RowBox[{"k", "+", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["a", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{
         SuperscriptBox["a", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "k"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
         RowBox[{
          RowBox[{"a", "[", "t", "]"}], " ", 
          RowBox[{
           SuperscriptBox["a", "\[Prime]\[Prime]",
            MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "2"]}]}], ")"}], "3"]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "r", ",", "t", ",", "t", ",", "r", ",", "\[Phi]", ",", 
           "r", ",", "\[Phi]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "r", ",", "t", ",", "t", ",", "\[Phi]", ",", "r", ",", 
           "\[Phi]", ",", "r"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"3", " ", 
        SuperscriptBox["r", "6"], " ", 
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "6"], " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]", "]"}], "6"], " ", 
        RowBox[{"(", 
         RowBox[{"k", "+", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["a", "\[Prime]\[Prime]",
           MultilineFunction->None], "[", "t", "]"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "k"}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["a", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
          RowBox[{
           RowBox[{"a", "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox["a", "\[Prime]\[Prime]",
             MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}], 
       RowBox[{"2", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           RowBox[{"k", " ", 
            SuperscriptBox["r", "2"]}]}], ")"}], "2"]}]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "r", ",", "t", ",", "t", ",", "r", ",", "\[Phi]", ",", 
           "\[Phi]", ",", "r"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "r", ",", "t", ",", "t", ",", "\[Phi]", ",", "r", ",", 
           "r", ",", "\[Phi]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{"3", " ", 
       SuperscriptBox["r", "6"], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "6"], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "\[Theta]", "]"}], "6"], " ", 
       RowBox[{"(", 
        RowBox[{"k", "+", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["a", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{
         SuperscriptBox["a", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "k"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
         RowBox[{
          RowBox[{"a", "[", "t", "]"}], " ", 
          RowBox[{
           SuperscriptBox["a", "\[Prime]\[Prime]",
            MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}], 
      RowBox[{"2", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], "2"]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "r", ",", "t", ",", "t", ",", "\[Theta]", ",", "\[Phi]", 
           ",", "\[Phi]", ",", "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "r", ",", "t", ",", "t", ",", "\[Phi]", ",", "\[Theta]", 
           ",", "\[Theta]", ",", "\[Phi]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      RowBox[{"-", 
       FractionBox["3", "2"]}], " ", 
      SuperscriptBox["r", "12"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        RowBox[{"k", " ", 
         SuperscriptBox["r", "2"]}]}], ")"}], " ", 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "6"], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "6"], " ", 
      RowBox[{"(", 
       RowBox[{"k", "+", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["a", "\[Prime]",
           MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], " ", 
      SuperscriptBox[
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", "k"}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["a", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
        RowBox[{
         RowBox[{"a", "[", "t", "]"}], " ", 
         RowBox[{
          SuperscriptBox["a", "\[Prime]\[Prime]",
           MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "r", ",", "t", ",", "t", ",", "\[Theta]", ",", "\[Phi]", 
           ",", "\[Theta]", ",", "\[Phi]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "r", ",", "t", ",", "t", ",", "\[Phi]", ",", "\[Theta]", 
           ",", "\[Phi]", ",", "\[Theta]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      FractionBox["3", "2"], " ", 
      SuperscriptBox["r", "12"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        RowBox[{"k", " ", 
         SuperscriptBox["r", "2"]}]}], ")"}], " ", 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "6"], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "6"], " ", 
      RowBox[{"(", 
       RowBox[{"k", "+", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["a", "\[Prime]",
           MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], " ", 
      SuperscriptBox[
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", "k"}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["a", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
        RowBox[{
         RowBox[{"a", "[", "t", "]"}], " ", 
         RowBox[{
          SuperscriptBox["a", "\[Prime]\[Prime]",
           MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "t", ",", "t", ",", "t", ",", "\[Theta]", ",", "\[Phi]", 
           ",", "\[Phi]", ",", "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "t", ",", "t", ",", "t", ",", "\[Phi]", ",", "\[Theta]", 
           ",", "\[Theta]", ",", "\[Phi]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      RowBox[{"-", "9"}], " ", 
      SuperscriptBox["r", "12"], " ", 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "7"], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "6"], " ", 
      RowBox[{"(", 
       RowBox[{"k", "+", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["a", "\[Prime]",
           MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], " ", 
      SuperscriptBox[
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", "k"}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["a", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
        RowBox[{
         RowBox[{"a", "[", "t", "]"}], " ", 
         RowBox[{
          SuperscriptBox["a", "\[Prime]\[Prime]",
           MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "t", ",", "t", ",", "t", ",", "\[Theta]", ",", "\[Phi]", 
           ",", "\[Theta]", ",", "\[Phi]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "t", ",", "t", ",", "t", ",", "\[Phi]", ",", "\[Theta]", 
           ",", "\[Phi]", ",", "\[Theta]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"9", " ", 
      SuperscriptBox["r", "12"], " ", 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "7"], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "6"], " ", 
      RowBox[{"(", 
       RowBox[{"k", "+", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["a", "\[Prime]",
           MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], " ", 
      SuperscriptBox[
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", "k"}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["a", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
        RowBox[{
         RowBox[{"a", "[", "t", "]"}], " ", 
         RowBox[{
          SuperscriptBox["a", "\[Prime]\[Prime]",
           MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "t", ",", "t", ",", "t", ",", "r", ",", "\[Phi]", ",", 
           "r", ",", "\[Phi]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "t", ",", "t", ",", "t", ",", "\[Phi]", ",", "r", ",", 
           "\[Phi]", ",", "r"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"9", " ", 
        SuperscriptBox["r", "6"], " ", 
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "7"], " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]", "]"}], "6"], " ", 
        RowBox[{"(", 
         RowBox[{"k", "+", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["a", "\[Prime]\[Prime]",
           MultilineFunction->None], "[", "t", "]"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "k"}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["a", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
          RowBox[{
           RowBox[{"a", "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox["a", "\[Prime]\[Prime]",
             MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], "3"]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "t", ",", "t", ",", "t", ",", "r", ",", "\[Phi]", ",", 
           "\[Phi]", ",", "r"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "t", ",", "t", ",", "t", ",", "\[Phi]", ",", "r", ",", 
           "r", ",", "\[Phi]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{"9", " ", 
       SuperscriptBox["r", "6"], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "7"], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "\[Theta]", "]"}], "6"], " ", 
       RowBox[{"(", 
        RowBox[{"k", "+", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["a", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{
         SuperscriptBox["a", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "k"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
         RowBox[{
          RowBox[{"a", "[", "t", "]"}], " ", 
          RowBox[{
           SuperscriptBox["a", "\[Prime]\[Prime]",
            MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "2"]}]}], ")"}], "3"]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "r", ",", "t", ",", "t", ",", "r", ",", "t", ",", "t", 
           ",", "r"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"3", " ", 
        RowBox[{"a", "[", "t", "]"}], " ", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["a", "\[Prime]\[Prime]",
           MultilineFunction->None], "[", "t", "]"}], "3"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "k"}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["a", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
          RowBox[{
           RowBox[{"a", "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox["a", "\[Prime]\[Prime]",
             MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}], 
       RowBox[{"2", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           RowBox[{"k", " ", 
            SuperscriptBox["r", "2"]}]}], ")"}], "2"]}]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "r", ",", "t", ",", "t", ",", "t", ",", "r", ",", "t", 
           ",", "r"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{"3", " ", 
       RowBox[{"a", "[", "t", "]"}], " ", 
       SuperscriptBox[
        RowBox[{
         SuperscriptBox["a", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}], "3"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "k"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
         RowBox[{
          RowBox[{"a", "[", "t", "]"}], " ", 
          RowBox[{
           SuperscriptBox["a", "\[Prime]\[Prime]",
            MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}], 
      RowBox[{"2", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], "2"]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "r", ",", "t", ",", "t", ",", "t", ",", "\[Theta]", ",", 
           "t", ",", "\[Theta]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      RowBox[{"-", 
       FractionBox["3", "2"]}], " ", 
      SuperscriptBox["r", "6"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        RowBox[{"k", " ", 
         SuperscriptBox["r", "2"]}]}], ")"}], " ", 
      RowBox[{"a", "[", "t", "]"}], " ", 
      SuperscriptBox[
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], "3"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", "k"}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["a", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
        RowBox[{
         RowBox[{"a", "[", "t", "]"}], " ", 
         RowBox[{
          SuperscriptBox["a", "\[Prime]\[Prime]",
           MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "r", ",", "t", ",", "t", ",", "\[Theta]", ",", "t", ",", 
           "t", ",", "\[Theta]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      FractionBox["3", "2"], " ", 
      SuperscriptBox["r", "6"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        RowBox[{"k", " ", 
         SuperscriptBox["r", "2"]}]}], ")"}], " ", 
      RowBox[{"a", "[", "t", "]"}], " ", 
      SuperscriptBox[
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], "3"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", "k"}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["a", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
        RowBox[{
         RowBox[{"a", "[", "t", "]"}], " ", 
         RowBox[{
          SuperscriptBox["a", "\[Prime]\[Prime]",
           MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "t", ",", "t", ",", "t", ",", "t", ",", "\[Theta]", ",", 
           "t", ",", "\[Theta]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      RowBox[{"-", "9"}], " ", 
      SuperscriptBox["r", "6"], " ", 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], "3"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", "k"}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["a", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
        RowBox[{
         RowBox[{"a", "[", "t", "]"}], " ", 
         RowBox[{
          SuperscriptBox["a", "\[Prime]\[Prime]",
           MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "t", ",", "t", ",", "t", ",", "\[Theta]", ",", "t", ",", 
           "t", ",", "\[Theta]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"9", " ", 
      SuperscriptBox["r", "6"], " ", 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], "3"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", "k"}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["a", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
        RowBox[{
         RowBox[{"a", "[", "t", "]"}], " ", 
         RowBox[{
          SuperscriptBox["a", "\[Prime]\[Prime]",
           MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "t", ",", "t", ",", "t", ",", "r", ",", "t", ",", "t", 
           ",", "r"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"9", " ", 
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["a", "\[Prime]\[Prime]",
           MultilineFunction->None], "[", "t", "]"}], "3"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "k"}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["a", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
          RowBox[{
           RowBox[{"a", "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox["a", "\[Prime]\[Prime]",
             MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], "3"]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "t", ",", "t", ",", "t", ",", "t", ",", "r", ",", "t", 
           ",", "r"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{"9", " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{
         SuperscriptBox["a", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}], "3"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "k"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
         RowBox[{
          RowBox[{"a", "[", "t", "]"}], " ", 
          RowBox[{
           SuperscriptBox["a", "\[Prime]\[Prime]",
            MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "2"]}]}], ")"}], "3"]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "r", ",", "r", ",", "t", ",", "\[Theta]", ",", "t", ",", 
           "\[Theta]", ",", "t"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "t", ",", "r", ",", "t", ",", "\[Theta]", ",", "t", ",", 
           "\[Theta]", ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      RowBox[{"-", 
       FractionBox["3", "2"]}], " ", 
      SuperscriptBox["r", "6"], " ", 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "3"], " ", 
      SuperscriptBox[
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], "3"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", "k"}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["a", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
        RowBox[{
         RowBox[{"a", "[", "t", "]"}], " ", 
         RowBox[{
          SuperscriptBox["a", "\[Prime]\[Prime]",
           MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "r", ",", "r", ",", "t", ",", "t", ",", "\[Theta]", ",", 
           "\[Theta]", ",", "t"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "t", ",", "r", ",", "t", ",", "t", ",", "\[Theta]", ",", 
           "\[Theta]", ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      FractionBox["3", "2"], " ", 
      SuperscriptBox["r", "6"], " ", 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "3"], " ", 
      SuperscriptBox[
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], "3"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", "k"}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["a", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
        RowBox[{
         RowBox[{"a", "[", "t", "]"}], " ", 
         RowBox[{
          SuperscriptBox["a", "\[Prime]\[Prime]",
           MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "r", ",", "r", ",", "t", ",", "t", ",", "r", ",", "r", 
           ",", "t"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "t", ",", "r", ",", "t", ",", "t", ",", "r", ",", "r", 
           ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"3", " ", 
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "3"], " ", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["a", "\[Prime]\[Prime]",
           MultilineFunction->None], "[", "t", "]"}], "3"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "k"}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["a", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
          RowBox[{
           RowBox[{"a", "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox["a", "\[Prime]\[Prime]",
             MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}], 
       RowBox[{"2", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           RowBox[{"k", " ", 
            SuperscriptBox["r", "2"]}]}], ")"}], "3"]}]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "r", ",", "r", ",", "t", ",", "r", ",", "t", ",", "r", 
           ",", "t"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "t", ",", "r", ",", "t", ",", "r", ",", "t", ",", "r", 
           ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{"3", " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "3"], " ", 
       SuperscriptBox[
        RowBox[{
         SuperscriptBox["a", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}], "3"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "k"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
         RowBox[{
          RowBox[{"a", "[", "t", "]"}], " ", 
          RowBox[{
           SuperscriptBox["a", "\[Prime]\[Prime]",
            MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}], 
      RowBox[{"2", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], "3"]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "r", ",", "t", ",", "r", ",", "\[Theta]", ",", "t", ",", 
           "\[Theta]", ",", "t"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "t", ",", "t", ",", "r", ",", "\[Theta]", ",", "t", ",", 
           "\[Theta]", ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{"3", " ", 
       SuperscriptBox["r", "6"], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "5"], " ", 
       SuperscriptBox[
        RowBox[{
         SuperscriptBox["a", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}], "3"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "k"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
         RowBox[{
          RowBox[{"a", "[", "t", "]"}], " ", 
          RowBox[{
           SuperscriptBox["a", "\[Prime]\[Prime]",
            MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}], 
      RowBox[{"2", "-", 
       RowBox[{"2", " ", "k", " ", 
        SuperscriptBox["r", "2"]}]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "r", ",", "t", ",", "r", ",", "t", ",", "r", ",", "r", 
           ",", "t"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "t", ",", "t", ",", "r", ",", "t", ",", "r", ",", "r", 
           ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"3", " ", 
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "5"], " ", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["a", "\[Prime]\[Prime]",
           MultilineFunction->None], "[", "t", "]"}], "3"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "k"}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["a", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
          RowBox[{
           RowBox[{"a", "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox["a", "\[Prime]\[Prime]",
             MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}], 
       RowBox[{"2", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           RowBox[{"k", " ", 
            SuperscriptBox["r", "2"]}]}], ")"}], "4"]}]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "r", ",", "t", ",", "r", ",", "r", ",", "t", ",", "r", 
           ",", "t"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "t", ",", "t", ",", "r", ",", "r", ",", "t", ",", "r", 
           ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{"3", " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "5"], " ", 
       SuperscriptBox[
        RowBox[{
         SuperscriptBox["a", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}], "3"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "k"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
         RowBox[{
          RowBox[{"a", "[", "t", "]"}], " ", 
          RowBox[{
           SuperscriptBox["a", "\[Prime]\[Prime]",
            MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}], 
      RowBox[{"2", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], "4"]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "r", ",", "t", ",", "r", ",", "t", ",", "\[Theta]", ",", 
           "\[Theta]", ",", "t"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "t", ",", "t", ",", "r", ",", "t", ",", "\[Theta]", ",", 
           "\[Theta]", ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{"3", " ", 
       SuperscriptBox["r", "6"], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "5"], " ", 
       SuperscriptBox[
        RowBox[{
         SuperscriptBox["a", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}], "3"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "k"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
         RowBox[{
          RowBox[{"a", "[", "t", "]"}], " ", 
          RowBox[{
           SuperscriptBox["a", "\[Prime]\[Prime]",
            MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}], 
      RowBox[{
       RowBox[{"-", "2"}], "+", 
       RowBox[{"2", " ", "k", " ", 
        SuperscriptBox["r", "2"]}]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "r", ",", "t", ",", "t", ",", "t", ",", "\[Phi]", ",", 
           "t", ",", "\[Phi]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      RowBox[{"-", 
       FractionBox["3", "2"]}], " ", 
      SuperscriptBox["r", "6"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        RowBox[{"k", " ", 
         SuperscriptBox["r", "2"]}]}], ")"}], " ", 
      RowBox[{"a", "[", "t", "]"}], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "6"], " ", 
      SuperscriptBox[
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], "3"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", "k"}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["a", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
        RowBox[{
         RowBox[{"a", "[", "t", "]"}], " ", 
         RowBox[{
          SuperscriptBox["a", "\[Prime]\[Prime]",
           MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "r", ",", "t", ",", "t", ",", "\[Phi]", ",", "t", ",", 
           "t", ",", "\[Phi]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      FractionBox["3", "2"], " ", 
      SuperscriptBox["r", "6"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        RowBox[{"k", " ", 
         SuperscriptBox["r", "2"]}]}], ")"}], " ", 
      RowBox[{"a", "[", "t", "]"}], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "6"], " ", 
      SuperscriptBox[
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], "3"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", "k"}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["a", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
        RowBox[{
         RowBox[{"a", "[", "t", "]"}], " ", 
         RowBox[{
          SuperscriptBox["a", "\[Prime]\[Prime]",
           MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "t", ",", "t", ",", "t", ",", "t", ",", "\[Phi]", ",", 
           "t", ",", "\[Phi]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      RowBox[{"-", "9"}], " ", 
      SuperscriptBox["r", "6"], " ", 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "6"], " ", 
      SuperscriptBox[
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], "3"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", "k"}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["a", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
        RowBox[{
         RowBox[{"a", "[", "t", "]"}], " ", 
         RowBox[{
          SuperscriptBox["a", "\[Prime]\[Prime]",
           MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "t", ",", "t", ",", "t", ",", "\[Phi]", ",", "t", ",", 
           "t", ",", "\[Phi]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"9", " ", 
      SuperscriptBox["r", "6"], " ", 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "6"], " ", 
      SuperscriptBox[
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], "3"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", "k"}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["a", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
        RowBox[{
         RowBox[{"a", "[", "t", "]"}], " ", 
         RowBox[{
          SuperscriptBox["a", "\[Prime]\[Prime]",
           MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "r", ",", "r", ",", "t", ",", "\[Phi]", ",", "t", ",", 
           "\[Phi]", ",", "t"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "t", ",", "r", ",", "t", ",", "\[Phi]", ",", "t", ",", 
           "\[Phi]", ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      RowBox[{"-", 
       FractionBox["3", "2"]}], " ", 
      SuperscriptBox["r", "6"], " ", 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "3"], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "6"], " ", 
      SuperscriptBox[
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], "3"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", "k"}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["a", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
        RowBox[{
         RowBox[{"a", "[", "t", "]"}], " ", 
         RowBox[{
          SuperscriptBox["a", "\[Prime]\[Prime]",
           MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "r", ",", "r", ",", "t", ",", "t", ",", "\[Phi]", ",", 
           "\[Phi]", ",", "t"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "t", ",", "r", ",", "t", ",", "t", ",", "\[Phi]", ",", 
           "\[Phi]", ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      FractionBox["3", "2"], " ", 
      SuperscriptBox["r", "6"], " ", 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "3"], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "6"], " ", 
      SuperscriptBox[
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], "3"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", "k"}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["a", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
        RowBox[{
         RowBox[{"a", "[", "t", "]"}], " ", 
         RowBox[{
          SuperscriptBox["a", "\[Prime]\[Prime]",
           MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "r", ",", "t", ",", "r", ",", "\[Phi]", ",", "t", ",", 
           "\[Phi]", ",", "t"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "t", ",", "t", ",", "r", ",", "\[Phi]", ",", "t", ",", 
           "\[Phi]", ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{"3", " ", 
       SuperscriptBox["r", "6"], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "5"], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "\[Theta]", "]"}], "6"], " ", 
       SuperscriptBox[
        RowBox[{
         SuperscriptBox["a", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}], "3"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "k"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
         RowBox[{
          RowBox[{"a", "[", "t", "]"}], " ", 
          RowBox[{
           SuperscriptBox["a", "\[Prime]\[Prime]",
            MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}], 
      RowBox[{"2", "-", 
       RowBox[{"2", " ", "k", " ", 
        SuperscriptBox["r", "2"]}]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "r", ",", "t", ",", "r", ",", "t", ",", "\[Phi]", ",", 
           "\[Phi]", ",", "t"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "t", ",", "t", ",", "r", ",", "t", ",", "\[Phi]", ",", 
           "\[Phi]", ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{"3", " ", 
       SuperscriptBox["r", "6"], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "5"], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "\[Theta]", "]"}], "6"], " ", 
       SuperscriptBox[
        RowBox[{
         SuperscriptBox["a", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}], "3"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "k"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
         RowBox[{
          RowBox[{"a", "[", "t", "]"}], " ", 
          RowBox[{
           SuperscriptBox["a", "\[Prime]\[Prime]",
            MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}], 
      RowBox[{
       RowBox[{"-", "2"}], "+", 
       RowBox[{"2", " ", "k", " ", 
        SuperscriptBox["r", "2"]}]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "r", ",", "r", ",", "t", ",", "r", ",", "\[Theta]", ",", 
           "r", ",", "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "r", ",", "r", ",", "t", ",", "\[Theta]", ",", "r", ",", 
           "\[Theta]", ",", "r"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "t", ",", "r", ",", "t", ",", "r", ",", "\[Theta]", ",", 
           "r", ",", "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "t", ",", "r", ",", "t", ",", "\[Theta]", ",", "r", ",", 
           "\[Theta]", ",", "r"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["r", "6"], " ", 
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "7"], " ", 
        RowBox[{"(", 
         RowBox[{"k", "+", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], " ", 
        RowBox[{
         SuperscriptBox["a", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", "k"}], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{
              SuperscriptBox["a", "\[Prime]",
               MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
           RowBox[{
            RowBox[{"a", "[", "t", "]"}], " ", 
            RowBox[{
             SuperscriptBox["a", "\[Prime]\[Prime]",
              MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "2"]}], 
       RowBox[{"2", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           RowBox[{"k", " ", 
            SuperscriptBox["r", "2"]}]}], ")"}], "3"]}]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "r", ",", "r", ",", "t", ",", "r", ",", "\[Theta]", ",", 
           "\[Theta]", ",", "r"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "r", ",", "r", ",", "t", ",", "\[Theta]", ",", "r", ",", 
           "r", ",", "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "t", ",", "r", ",", "t", ",", "r", ",", "\[Theta]", ",", 
           "\[Theta]", ",", "r"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "t", ",", "r", ",", "t", ",", "\[Theta]", ",", "r", ",", 
           "r", ",", "\[Theta]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       SuperscriptBox["r", "6"], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "7"], " ", 
       RowBox[{"(", 
        RowBox[{"k", "+", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["a", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], " ", 
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "k"}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["a", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
          RowBox[{
           RowBox[{"a", "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox["a", "\[Prime]\[Prime]",
             MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "2"]}], 
      RowBox[{"2", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], "3"]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "r", ",", "t", ",", "r", ",", "r", ",", "\[Theta]", ",", 
           "r", ",", "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "r", ",", "t", ",", "r", ",", "\[Theta]", ",", "r", ",", 
           "\[Theta]", ",", "r"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "t", ",", "t", ",", "r", ",", "r", ",", "\[Theta]", ",", 
           "r", ",", "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "t", ",", "t", ",", "r", ",", "\[Theta]", ",", "r", ",", 
           "\[Theta]", ",", "r"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["r", "6"], " ", 
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "9"], " ", 
        RowBox[{"(", 
         RowBox[{"k", "+", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], " ", 
        RowBox[{
         SuperscriptBox["a", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", "k"}], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{
              SuperscriptBox["a", "\[Prime]",
               MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
           RowBox[{
            RowBox[{"a", "[", "t", "]"}], " ", 
            RowBox[{
             SuperscriptBox["a", "\[Prime]\[Prime]",
              MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "2"]}], 
       RowBox[{"2", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           RowBox[{"k", " ", 
            SuperscriptBox["r", "2"]}]}], ")"}], "4"]}]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "r", ",", "t", ",", "r", ",", "r", ",", "\[Theta]", ",", 
           "\[Theta]", ",", "r"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "r", ",", "t", ",", "r", ",", "\[Theta]", ",", "r", ",", 
           "r", ",", "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "t", ",", "t", ",", "r", ",", "r", ",", "\[Theta]", ",", 
           "\[Theta]", ",", "r"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "t", ",", "t", ",", "r", ",", "\[Theta]", ",", "r", ",", 
           "r", ",", "\[Theta]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       SuperscriptBox["r", "6"], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "9"], " ", 
       RowBox[{"(", 
        RowBox[{"k", "+", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["a", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], " ", 
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "k"}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["a", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
          RowBox[{
           RowBox[{"a", "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox["a", "\[Prime]\[Prime]",
             MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "2"]}], 
      RowBox[{"2", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], "4"]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "r", ",", "r", ",", "t", ",", "\[Theta]", ",", "\[Phi]", 
           ",", "\[Phi]", ",", "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "r", ",", "r", ",", "t", ",", "\[Phi]", ",", "\[Theta]", 
           ",", "\[Theta]", ",", "\[Phi]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "t", ",", "r", ",", "t", ",", "\[Theta]", ",", "\[Phi]", 
           ",", "\[Phi]", ",", "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "t", ",", "r", ",", "t", ",", "\[Phi]", ",", "\[Theta]", 
           ",", "\[Theta]", ",", "\[Phi]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      RowBox[{"-", 
       FractionBox["1", "2"]}], " ", 
      SuperscriptBox["r", "12"], " ", 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "7"], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "6"], " ", 
      RowBox[{"(", 
       RowBox[{"k", "+", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["a", "\[Prime]",
           MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], " ", 
      RowBox[{
       SuperscriptBox["a", "\[Prime]\[Prime]",
        MultilineFunction->None], "[", "t", "]"}], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "k"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
         RowBox[{
          RowBox[{"a", "[", "t", "]"}], " ", 
          RowBox[{
           SuperscriptBox["a", "\[Prime]\[Prime]",
            MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "2"]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "r", ",", "r", ",", "t", ",", "\[Theta]", ",", "\[Phi]", 
           ",", "\[Theta]", ",", "\[Phi]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "r", ",", "r", ",", "t", ",", "\[Phi]", ",", "\[Theta]", 
           ",", "\[Phi]", ",", "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "t", ",", "r", ",", "t", ",", "\[Theta]", ",", "\[Phi]", 
           ",", "\[Theta]", ",", "\[Phi]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "t", ",", "r", ",", "t", ",", "\[Phi]", ",", "\[Theta]", 
           ",", "\[Phi]", ",", "\[Theta]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      FractionBox["1", "2"], " ", 
      SuperscriptBox["r", "12"], " ", 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "7"], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "6"], " ", 
      RowBox[{"(", 
       RowBox[{"k", "+", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["a", "\[Prime]",
           MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], " ", 
      RowBox[{
       SuperscriptBox["a", "\[Prime]\[Prime]",
        MultilineFunction->None], "[", "t", "]"}], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "k"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
         RowBox[{
          RowBox[{"a", "[", "t", "]"}], " ", 
          RowBox[{
           SuperscriptBox["a", "\[Prime]\[Prime]",
            MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "2"]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "r", ",", "r", ",", "t", ",", "r", ",", "\[Phi]", ",", 
           "r", ",", "\[Phi]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "r", ",", "r", ",", "t", ",", "\[Phi]", ",", "r", ",", 
           "\[Phi]", ",", "r"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "t", ",", "r", ",", "t", ",", "r", ",", "\[Phi]", ",", 
           "r", ",", "\[Phi]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "t", ",", "r", ",", "t", ",", "\[Phi]", ",", "r", ",", 
           "\[Phi]", ",", "r"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["r", "6"], " ", 
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "7"], " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]", "]"}], "6"], " ", 
        RowBox[{"(", 
         RowBox[{"k", "+", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], " ", 
        RowBox[{
         SuperscriptBox["a", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", "k"}], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{
              SuperscriptBox["a", "\[Prime]",
               MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
           RowBox[{
            RowBox[{"a", "[", "t", "]"}], " ", 
            RowBox[{
             SuperscriptBox["a", "\[Prime]\[Prime]",
              MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "2"]}], 
       RowBox[{"2", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           RowBox[{"k", " ", 
            SuperscriptBox["r", "2"]}]}], ")"}], "3"]}]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "r", ",", "r", ",", "t", ",", "r", ",", "\[Phi]", ",", 
           "\[Phi]", ",", "r"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "r", ",", "r", ",", "t", ",", "\[Phi]", ",", "r", ",", 
           "r", ",", "\[Phi]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "t", ",", "r", ",", "t", ",", "r", ",", "\[Phi]", ",", 
           "\[Phi]", ",", "r"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "t", ",", "r", ",", "t", ",", "\[Phi]", ",", "r", ",", 
           "r", ",", "\[Phi]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       SuperscriptBox["r", "6"], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "7"], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "\[Theta]", "]"}], "6"], " ", 
       RowBox[{"(", 
        RowBox[{"k", "+", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["a", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], " ", 
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "k"}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["a", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
          RowBox[{
           RowBox[{"a", "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox["a", "\[Prime]\[Prime]",
             MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "2"]}], 
      RowBox[{"2", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], "3"]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "r", ",", "t", ",", "r", ",", "r", ",", "\[Phi]", ",", 
           "r", ",", "\[Phi]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "r", ",", "t", ",", "r", ",", "\[Phi]", ",", "r", ",", 
           "\[Phi]", ",", "r"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "t", ",", "t", ",", "r", ",", "r", ",", "\[Phi]", ",", 
           "r", ",", "\[Phi]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "t", ",", "t", ",", "r", ",", "\[Phi]", ",", "r", ",", 
           "\[Phi]", ",", "r"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["r", "6"], " ", 
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "9"], " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]", "]"}], "6"], " ", 
        RowBox[{"(", 
         RowBox[{"k", "+", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], " ", 
        RowBox[{
         SuperscriptBox["a", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", "k"}], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{
              SuperscriptBox["a", "\[Prime]",
               MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
           RowBox[{
            RowBox[{"a", "[", "t", "]"}], " ", 
            RowBox[{
             SuperscriptBox["a", "\[Prime]\[Prime]",
              MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "2"]}], 
       RowBox[{"2", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           RowBox[{"k", " ", 
            SuperscriptBox["r", "2"]}]}], ")"}], "4"]}]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "r", ",", "t", ",", "r", ",", "r", ",", "\[Phi]", ",", 
           "\[Phi]", ",", "r"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "r", ",", "t", ",", "r", ",", "\[Phi]", ",", "r", ",", 
           "r", ",", "\[Phi]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "t", ",", "t", ",", "r", ",", "r", ",", "\[Phi]", ",", 
           "\[Phi]", ",", "r"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "t", ",", "t", ",", "r", ",", "\[Phi]", ",", "r", ",", 
           "r", ",", "\[Phi]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       SuperscriptBox["r", "6"], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "9"], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "\[Theta]", "]"}], "6"], " ", 
       RowBox[{"(", 
        RowBox[{"k", "+", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["a", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], " ", 
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "k"}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["a", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
          RowBox[{
           RowBox[{"a", "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox["a", "\[Prime]\[Prime]",
             MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "2"]}], 
      RowBox[{"2", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], "4"]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "r", ",", "t", ",", "r", ",", "\[Theta]", ",", "\[Phi]", 
           ",", "\[Phi]", ",", "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "r", ",", "t", ",", "r", ",", "\[Phi]", ",", "\[Theta]", 
           ",", "\[Theta]", ",", "\[Phi]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "t", ",", "t", ",", "r", ",", "\[Theta]", ",", "\[Phi]", 
           ",", "\[Phi]", ",", "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "t", ",", "t", ",", "r", ",", "\[Phi]", ",", "\[Theta]", 
           ",", "\[Theta]", ",", "\[Phi]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["r", "12"], " ", 
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "9"], " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]", "]"}], "6"], " ", 
        RowBox[{"(", 
         RowBox[{"k", "+", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], " ", 
        RowBox[{
         SuperscriptBox["a", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", "k"}], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{
              SuperscriptBox["a", "\[Prime]",
               MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
           RowBox[{
            RowBox[{"a", "[", "t", "]"}], " ", 
            RowBox[{
             SuperscriptBox["a", "\[Prime]\[Prime]",
              MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "2"]}], 
       RowBox[{
        RowBox[{"-", "2"}], "+", 
        RowBox[{"2", " ", "k", " ", 
         SuperscriptBox["r", "2"]}]}]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "r", ",", "t", ",", "r", ",", "\[Theta]", ",", "\[Phi]", 
           ",", "\[Theta]", ",", "\[Phi]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "r", ",", "t", ",", "r", ",", "\[Phi]", ",", "\[Theta]", 
           ",", "\[Phi]", ",", "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "t", ",", "t", ",", "r", ",", "\[Theta]", ",", "\[Phi]", 
           ",", "\[Theta]", ",", "\[Phi]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "t", ",", "t", ",", "r", ",", "\[Phi]", ",", "\[Theta]", 
           ",", "\[Phi]", ",", "\[Theta]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       SuperscriptBox["r", "12"], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "9"], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "\[Theta]", "]"}], "6"], " ", 
       RowBox[{"(", 
        RowBox[{"k", "+", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["a", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], " ", 
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "k"}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["a", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
          RowBox[{
           RowBox[{"a", "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox["a", "\[Prime]\[Prime]",
             MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "2"]}], 
      RowBox[{
       RowBox[{"-", "2"}], "+", 
       RowBox[{"2", " ", "k", " ", 
        SuperscriptBox["r", "2"]}]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "r", ",", "r", ",", "t", ",", "t", ",", "\[Theta]", ",", 
           "t", ",", "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "t", ",", "r", ",", "t", ",", "t", ",", "\[Theta]", ",", 
           "t", ",", "\[Theta]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      RowBox[{"-", 
       FractionBox["1", "2"]}], " ", 
      SuperscriptBox["r", "6"], " ", 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "k"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
         RowBox[{
          RowBox[{"a", "[", "t", "]"}], " ", 
          RowBox[{
           SuperscriptBox["a", "\[Prime]\[Prime]",
            MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "2"]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "r", ",", "r", ",", "t", ",", "\[Theta]", ",", "t", ",", 
           "t", ",", "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "t", ",", "r", ",", "t", ",", "\[Theta]", ",", "t", ",", 
           "t", ",", "\[Theta]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      FractionBox["1", "2"], " ", 
      SuperscriptBox["r", "6"], " ", 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "k"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
         RowBox[{
          RowBox[{"a", "[", "t", "]"}], " ", 
          RowBox[{
           SuperscriptBox["a", "\[Prime]\[Prime]",
            MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "2"]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "r", ",", "r", ",", "t", ",", "r", ",", "t", ",", "t", 
           ",", "r"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "t", ",", "r", ",", "t", ",", "r", ",", "t", ",", "t", 
           ",", "r"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["a", "\[Prime]\[Prime]",
           MultilineFunction->None], "[", "t", "]"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", "k"}], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{
              SuperscriptBox["a", "\[Prime]",
               MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
           RowBox[{
            RowBox[{"a", "[", "t", "]"}], " ", 
            RowBox[{
             SuperscriptBox["a", "\[Prime]\[Prime]",
              MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "2"]}], 
       RowBox[{"2", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           RowBox[{"k", " ", 
            SuperscriptBox["r", "2"]}]}], ")"}], "3"]}]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "r", ",", "r", ",", "t", ",", "t", ",", "r", ",", "t", 
           ",", "r"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "t", ",", "r", ",", "t", ",", "t", ",", "r", ",", "t", 
           ",", "r"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{
         SuperscriptBox["a", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "k"}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["a", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
          RowBox[{
           RowBox[{"a", "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox["a", "\[Prime]\[Prime]",
             MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "2"]}], 
      RowBox[{"2", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], "3"]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "r", ",", "t", ",", "r", ",", "r", ",", "t", ",", "t", 
           ",", "r"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "t", ",", "t", ",", "r", ",", "r", ",", "t", ",", "t", 
           ",", "r"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "4"], " ", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["a", "\[Prime]\[Prime]",
           MultilineFunction->None], "[", "t", "]"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", "k"}], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{
              SuperscriptBox["a", "\[Prime]",
               MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
           RowBox[{
            RowBox[{"a", "[", "t", "]"}], " ", 
            RowBox[{
             SuperscriptBox["a", "\[Prime]\[Prime]",
              MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "2"]}], 
       RowBox[{"2", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           RowBox[{"k", " ", 
            SuperscriptBox["r", "2"]}]}], ")"}], "4"]}]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "r", ",", "t", ",", "r", ",", "t", ",", "r", ",", "t", 
           ",", "r"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "t", ",", "t", ",", "r", ",", "t", ",", "r", ",", "t", 
           ",", "r"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "4"], " ", 
       SuperscriptBox[
        RowBox[{
         SuperscriptBox["a", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "k"}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["a", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
          RowBox[{
           RowBox[{"a", "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox["a", "\[Prime]\[Prime]",
             MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "2"]}], 
      RowBox[{"2", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], "4"]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "r", ",", "t", ",", "r", ",", "t", ",", "\[Theta]", ",", 
           "t", ",", "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "t", ",", "t", ",", "r", ",", "t", ",", "\[Theta]", ",", 
           "t", ",", "\[Theta]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["r", "6"], " ", 
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "4"], " ", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["a", "\[Prime]\[Prime]",
           MultilineFunction->None], "[", "t", "]"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", "k"}], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{
              SuperscriptBox["a", "\[Prime]",
               MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
           RowBox[{
            RowBox[{"a", "[", "t", "]"}], " ", 
            RowBox[{
             SuperscriptBox["a", "\[Prime]\[Prime]",
              MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "2"]}], 
       RowBox[{
        RowBox[{"-", "2"}], "+", 
        RowBox[{"2", " ", "k", " ", 
         SuperscriptBox["r", "2"]}]}]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "r", ",", "t", ",", "r", ",", "\[Theta]", ",", "t", ",", 
           "t", ",", "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "t", ",", "t", ",", "r", ",", "\[Theta]", ",", "t", ",", 
           "t", ",", "\[Theta]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       SuperscriptBox["r", "6"], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "4"], " ", 
       SuperscriptBox[
        RowBox[{
         SuperscriptBox["a", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "k"}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["a", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
          RowBox[{
           RowBox[{"a", "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox["a", "\[Prime]\[Prime]",
             MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "2"]}], 
      RowBox[{
       RowBox[{"-", "2"}], "+", 
       RowBox[{"2", " ", "k", " ", 
        SuperscriptBox["r", "2"]}]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "r", ",", "r", ",", "r", ",", "r", ",", "t", ",", "r", 
           ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"3", " ", 
        SuperscriptBox["r", "2"], " ", 
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "6"], " ", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["a", "\[Prime]\[Prime]",
           MultilineFunction->None], "[", "t", "]"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", "k"}], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{
              SuperscriptBox["a", "\[Prime]",
               MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
           RowBox[{
            RowBox[{"a", "[", "t", "]"}], " ", 
            RowBox[{
             SuperscriptBox["a", "\[Prime]\[Prime]",
              MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "2"]}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], "6"]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "r", ",", "r", ",", "r", ",", "t", ",", "r", ",", "r", 
           ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{"3", " ", 
       SuperscriptBox["r", "2"], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "6"], " ", 
       SuperscriptBox[
        RowBox[{
         SuperscriptBox["a", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "k"}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["a", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
          RowBox[{
           RowBox[{"a", "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox["a", "\[Prime]\[Prime]",
             MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "2"]}], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "2"]}]}], ")"}], "6"]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "t", ",", "r", ",", "r", ",", "t", ",", "r", ",", "r", 
           ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "6"], " ", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["a", "\[Prime]\[Prime]",
           MultilineFunction->None], "[", "t", "]"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", "k"}], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{
              SuperscriptBox["a", "\[Prime]",
               MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
           RowBox[{
            RowBox[{"a", "[", "t", "]"}], " ", 
            RowBox[{
             SuperscriptBox["a", "\[Prime]\[Prime]",
              MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "2"]}], 
       RowBox[{"2", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           RowBox[{"k", " ", 
            SuperscriptBox["r", "2"]}]}], ")"}], "5"]}]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "t", ",", "r", ",", "r", ",", "r", ",", "t", ",", "r", 
           ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "6"], " ", 
       SuperscriptBox[
        RowBox[{
         SuperscriptBox["a", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "k"}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["a", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
          RowBox[{
           RowBox[{"a", "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox["a", "\[Prime]\[Prime]",
             MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "2"]}], 
      RowBox[{"2", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], "5"]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "r", ",", "r", ",", "r", ",", "t", ",", "\[Theta]", ",", 
           "\[Theta]", ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"3", " ", 
        SuperscriptBox["r", "8"], " ", 
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "6"], " ", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["a", "\[Prime]\[Prime]",
           MultilineFunction->None], "[", "t", "]"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", "k"}], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{
              SuperscriptBox["a", "\[Prime]",
               MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
           RowBox[{
            RowBox[{"a", "[", "t", "]"}], " ", 
            RowBox[{
             SuperscriptBox["a", "\[Prime]\[Prime]",
              MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "2"]}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], "3"]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "r", ",", "r", ",", "r", ",", "\[Theta]", ",", "t", ",", 
           "\[Theta]", ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{"3", " ", 
       SuperscriptBox["r", "8"], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "6"], " ", 
       SuperscriptBox[
        RowBox[{
         SuperscriptBox["a", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "k"}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["a", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
          RowBox[{
           RowBox[{"a", "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox["a", "\[Prime]\[Prime]",
             MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "2"]}], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "2"]}]}], ")"}], "3"]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "t", ",", "r", ",", "r", ",", "\[Theta]", ",", "t", ",", 
           "\[Theta]", ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["r", "6"], " ", 
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "6"], " ", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["a", "\[Prime]\[Prime]",
           MultilineFunction->None], "[", "t", "]"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", "k"}], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{
              SuperscriptBox["a", "\[Prime]",
               MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
           RowBox[{
            RowBox[{"a", "[", "t", "]"}], " ", 
            RowBox[{
             SuperscriptBox["a", "\[Prime]\[Prime]",
              MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "2"]}], 
       RowBox[{"2", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           RowBox[{"k", " ", 
            SuperscriptBox["r", "2"]}]}], ")"}], "2"]}]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "t", ",", "r", ",", "r", ",", "t", ",", "\[Theta]", ",", 
           "\[Theta]", ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       SuperscriptBox["r", "6"], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "6"], " ", 
       SuperscriptBox[
        RowBox[{
         SuperscriptBox["a", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "k"}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["a", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
          RowBox[{
           RowBox[{"a", "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox["a", "\[Prime]\[Prime]",
             MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "2"]}], 
      RowBox[{"2", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], "2"]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "\[Theta]", ",", "\[Theta]", ",", "\[Theta]", ",", "\[Theta]", ",", 
           "\[Theta]", ",", "t", ",", "\[Theta]", ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      RowBox[{"-", "3"}], " ", 
      SuperscriptBox["r", "14"], " ", 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "8"], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "k"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
         RowBox[{
          RowBox[{"a", "[", "t", "]"}], " ", 
          RowBox[{
           SuperscriptBox["a", "\[Prime]\[Prime]",
            MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "2"]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "\[Theta]", ",", "\[Theta]", ",", "\[Theta]", ",", "\[Theta]", ",", 
           "t", ",", "\[Theta]", ",", "\[Theta]", ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"3", " ", 
      SuperscriptBox["r", "14"], " ", 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "8"], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "k"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
         RowBox[{
          RowBox[{"a", "[", "t", "]"}], " ", 
          RowBox[{
           SuperscriptBox["a", "\[Prime]\[Prime]",
            MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "2"]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "\[Theta]", ",", "\[Theta]", ",", "\[Theta]", ",", "\[Theta]", ",", 
           "t", ",", "r", ",", "r", ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"3", " ", 
        SuperscriptBox["r", "8"], " ", 
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "8"], " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["a", "\[Prime]\[Prime]",
           MultilineFunction->None], "[", "t", "]"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", "k"}], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{
              SuperscriptBox["a", "\[Prime]",
               MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
           RowBox[{
            RowBox[{"a", "[", "t", "]"}], " ", 
            RowBox[{
             SuperscriptBox["a", "\[Prime]\[Prime]",
              MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "2"]}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], "3"]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "\[Theta]", ",", "\[Theta]", ",", "\[Theta]", ",", "\[Theta]", ",", 
           "r", ",", "t", ",", "r", ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{"3", " ", 
       SuperscriptBox["r", "8"], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "8"], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{
         SuperscriptBox["a", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "k"}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["a", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
          RowBox[{
           RowBox[{"a", "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox["a", "\[Prime]\[Prime]",
             MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "2"]}], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "2"]}]}], ")"}], "3"]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "r", ",", "r", ",", "t", ",", "t", ",", "\[Phi]", ",", 
           "t", ",", "\[Phi]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "t", ",", "r", ",", "t", ",", "t", ",", "\[Phi]", ",", 
           "t", ",", "\[Phi]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      RowBox[{"-", 
       FractionBox["1", "2"]}], " ", 
      SuperscriptBox["r", "6"], " ", 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "6"], " ", 
      SuperscriptBox[
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "k"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
         RowBox[{
          RowBox[{"a", "[", "t", "]"}], " ", 
          RowBox[{
           SuperscriptBox["a", "\[Prime]\[Prime]",
            MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "2"]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "r", ",", "r", ",", "t", ",", "\[Phi]", ",", "t", ",", 
           "t", ",", "\[Phi]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "t", ",", "r", ",", "t", ",", "\[Phi]", ",", "t", ",", 
           "t", ",", "\[Phi]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      FractionBox["1", "2"], " ", 
      SuperscriptBox["r", "6"], " ", 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "6"], " ", 
      SuperscriptBox[
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "k"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
         RowBox[{
          RowBox[{"a", "[", "t", "]"}], " ", 
          RowBox[{
           SuperscriptBox["a", "\[Prime]\[Prime]",
            MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "2"]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "r", ",", "t", ",", "r", ",", "t", ",", "\[Phi]", ",", 
           "t", ",", "\[Phi]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "t", ",", "t", ",", "r", ",", "t", ",", "\[Phi]", ",", 
           "t", ",", "\[Phi]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["r", "6"], " ", 
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "4"], " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]", "]"}], "6"], " ", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["a", "\[Prime]\[Prime]",
           MultilineFunction->None], "[", "t", "]"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", "k"}], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{
              SuperscriptBox["a", "\[Prime]",
               MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
           RowBox[{
            RowBox[{"a", "[", "t", "]"}], " ", 
            RowBox[{
             SuperscriptBox["a", "\[Prime]\[Prime]",
              MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "2"]}], 
       RowBox[{
        RowBox[{"-", "2"}], "+", 
        RowBox[{"2", " ", "k", " ", 
         SuperscriptBox["r", "2"]}]}]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "r", ",", "t", ",", "r", ",", "\[Phi]", ",", "t", ",", 
           "t", ",", "\[Phi]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "t", ",", "t", ",", "r", ",", "\[Phi]", ",", "t", ",", 
           "t", ",", "\[Phi]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       SuperscriptBox["r", "6"], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "4"], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "\[Theta]", "]"}], "6"], " ", 
       SuperscriptBox[
        RowBox[{
         SuperscriptBox["a", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "k"}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["a", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
          RowBox[{
           RowBox[{"a", "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox["a", "\[Prime]\[Prime]",
             MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "2"]}], 
      RowBox[{
       RowBox[{"-", "2"}], "+", 
       RowBox[{"2", " ", "k", " ", 
        SuperscriptBox["r", "2"]}]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "r", ",", "r", ",", "r", ",", "t", ",", "\[Phi]", ",", 
           "\[Phi]", ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"3", " ", 
        SuperscriptBox["r", "8"], " ", 
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "6"], " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]", "]"}], "6"], " ", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["a", "\[Prime]\[Prime]",
           MultilineFunction->None], "[", "t", "]"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", "k"}], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{
              SuperscriptBox["a", "\[Prime]",
               MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
           RowBox[{
            RowBox[{"a", "[", "t", "]"}], " ", 
            RowBox[{
             SuperscriptBox["a", "\[Prime]\[Prime]",
              MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "2"]}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], "3"]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "r", ",", "r", ",", "r", ",", "\[Phi]", ",", "t", ",", 
           "\[Phi]", ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{"3", " ", 
       SuperscriptBox["r", "8"], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "6"], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "\[Theta]", "]"}], "6"], " ", 
       SuperscriptBox[
        RowBox[{
         SuperscriptBox["a", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "k"}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["a", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
          RowBox[{
           RowBox[{"a", "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox["a", "\[Prime]\[Prime]",
             MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "2"]}], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "2"]}]}], ")"}], "3"]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "t", ",", "r", ",", "r", ",", "\[Phi]", ",", "t", ",", 
           "\[Phi]", ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["r", "6"], " ", 
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "6"], " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]", "]"}], "6"], " ", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["a", "\[Prime]\[Prime]",
           MultilineFunction->None], "[", "t", "]"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", "k"}], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{
              SuperscriptBox["a", "\[Prime]",
               MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
           RowBox[{
            RowBox[{"a", "[", "t", "]"}], " ", 
            RowBox[{
             SuperscriptBox["a", "\[Prime]\[Prime]",
              MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "2"]}], 
       RowBox[{"2", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           RowBox[{"k", " ", 
            SuperscriptBox["r", "2"]}]}], ")"}], "2"]}]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "t", ",", "r", ",", "r", ",", "t", ",", "\[Phi]", ",", 
           "\[Phi]", ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       SuperscriptBox["r", "6"], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "6"], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "\[Theta]", "]"}], "6"], " ", 
       SuperscriptBox[
        RowBox[{
         SuperscriptBox["a", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "k"}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["a", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
          RowBox[{
           RowBox[{"a", "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox["a", "\[Prime]\[Prime]",
             MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "2"]}], 
      RowBox[{"2", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], "2"]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "\[Phi]", ",", "\[Phi]", ",", "\[Phi]", ",", "\[Phi]", ",", 
           "\[Theta]", ",", "t", ",", "\[Theta]", ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      RowBox[{"-", "3"}], " ", 
      SuperscriptBox["r", "14"], " ", 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "6"], " ", 
      RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "6"], " ", 
      SuperscriptBox[
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "k"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
         RowBox[{
          RowBox[{"a", "[", "t", "]"}], " ", 
          RowBox[{
           SuperscriptBox["a", "\[Prime]\[Prime]",
            MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "2"]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "\[Phi]", ",", "\[Phi]", ",", "\[Phi]", ",", "\[Phi]", ",", "t", 
           ",", "\[Theta]", ",", "\[Theta]", ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"3", " ", 
      SuperscriptBox["r", "14"], " ", 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "6"], " ", 
      RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "6"], " ", 
      SuperscriptBox[
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "k"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
         RowBox[{
          RowBox[{"a", "[", "t", "]"}], " ", 
          RowBox[{
           SuperscriptBox["a", "\[Prime]\[Prime]",
            MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "2"]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "\[Phi]", ",", "\[Phi]", ",", "\[Phi]", ",", "\[Phi]", ",", "t", 
           ",", "r", ",", "r", ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"3", " ", 
        SuperscriptBox["r", "8"], " ", 
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "6"], " ", 
        RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]", "]"}], "6"], " ", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["a", "\[Prime]\[Prime]",
           MultilineFunction->None], "[", "t", "]"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", "k"}], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{
              SuperscriptBox["a", "\[Prime]",
               MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
           RowBox[{
            RowBox[{"a", "[", "t", "]"}], " ", 
            RowBox[{
             SuperscriptBox["a", "\[Prime]\[Prime]",
              MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "2"]}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], "3"]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "\[Phi]", ",", "\[Phi]", ",", "\[Phi]", ",", "\[Phi]", ",", "r", 
           ",", "t", ",", "r", ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{"3", " ", 
       SuperscriptBox["r", "8"], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "6"], " ", 
       RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "\[Theta]", "]"}], "6"], " ", 
       SuperscriptBox[
        RowBox[{
         SuperscriptBox["a", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "k"}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["a", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
          RowBox[{
           RowBox[{"a", "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox["a", "\[Prime]\[Prime]",
             MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "2"]}], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "2"]}]}], ")"}], "3"]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "\[Theta]", ",", "\[Theta]", ",", "\[Theta]", ",", "\[Theta]", ",", 
           "\[Phi]", ",", "t", ",", "\[Phi]", ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      RowBox[{"-", "3"}], " ", 
      SuperscriptBox["r", "14"], " ", 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "8"], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "8"], " ", 
      SuperscriptBox[
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "k"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
         RowBox[{
          RowBox[{"a", "[", "t", "]"}], " ", 
          RowBox[{
           SuperscriptBox["a", "\[Prime]\[Prime]",
            MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "2"]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "\[Theta]", ",", "\[Theta]", ",", "\[Theta]", ",", "\[Theta]", ",", 
           "t", ",", "\[Phi]", ",", "\[Phi]", ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"3", " ", 
      SuperscriptBox["r", "14"], " ", 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "8"], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "8"], " ", 
      SuperscriptBox[
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "k"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
         RowBox[{
          RowBox[{"a", "[", "t", "]"}], " ", 
          RowBox[{
           SuperscriptBox["a", "\[Prime]\[Prime]",
            MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "2"]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "\[Phi]", ",", "\[Phi]", ",", "\[Phi]", ",", "\[Phi]", ",", 
           "\[Phi]", ",", "t", ",", "\[Phi]", ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      RowBox[{"-", "3"}], " ", 
      SuperscriptBox["r", "14"], " ", 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "6"], " ", 
      RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "12"], " ", 
      SuperscriptBox[
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "k"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
         RowBox[{
          RowBox[{"a", "[", "t", "]"}], " ", 
          RowBox[{
           SuperscriptBox["a", "\[Prime]\[Prime]",
            MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "2"]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "\[Phi]", ",", "\[Phi]", ",", "\[Phi]", ",", "\[Phi]", ",", "t", 
           ",", "\[Phi]", ",", "\[Phi]", ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"3", " ", 
      SuperscriptBox["r", "14"], " ", 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "6"], " ", 
      RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "12"], " ", 
      SuperscriptBox[
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "k"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
         RowBox[{
          RowBox[{"a", "[", "t", "]"}], " ", 
          RowBox[{
           SuperscriptBox["a", "\[Prime]\[Prime]",
            MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "2"]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "r", ",", "r", ",", "r", ",", "r", ",", "\[Theta]", ",", 
           "\[Theta]", ",", "r"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "r", ",", "r", ",", "r", ",", "\[Theta]", ",", "r", ",", 
           "r", ",", "\[Theta]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["r", "8"], " ", 
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "10"], " ", 
        RowBox[{"(", 
         RowBox[{"k", "+", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", "k"}], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{
              SuperscriptBox["a", "\[Prime]",
               MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
           RowBox[{
            RowBox[{"a", "[", "t", "]"}], " ", 
            RowBox[{
             SuperscriptBox["a", "\[Prime]\[Prime]",
              MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "3"]}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], "6"]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "r", ",", "r", ",", "r", ",", "r", ",", "\[Theta]", ",", 
           "r", ",", "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "r", ",", "r", ",", "r", ",", "\[Theta]", ",", "r", ",", 
           "\[Theta]", ",", "r"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       SuperscriptBox["r", "8"], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "10"], " ", 
       RowBox[{"(", 
        RowBox[{"k", "+", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["a", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "k"}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["a", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
          RowBox[{
           RowBox[{"a", "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox["a", "\[Prime]\[Prime]",
             MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "3"]}], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "2"]}]}], ")"}], "6"]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "t", ",", "r", ",", "r", ",", "r", ",", "\[Theta]", ",", 
           "r", ",", "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "t", ",", "r", ",", "r", ",", "\[Theta]", ",", "r", ",", 
           "\[Theta]", ",", "r"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["r", "6"], " ", 
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "10"], " ", 
        RowBox[{"(", 
         RowBox[{"k", "+", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", "k"}], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{
              SuperscriptBox["a", "\[Prime]",
               MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
           RowBox[{
            RowBox[{"a", "[", "t", "]"}], " ", 
            RowBox[{
             SuperscriptBox["a", "\[Prime]\[Prime]",
              MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "3"]}], 
       RowBox[{"6", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           RowBox[{"k", " ", 
            SuperscriptBox["r", "2"]}]}], ")"}], "5"]}]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "t", ",", "r", ",", "r", ",", "r", ",", "\[Theta]", ",", 
           "\[Theta]", ",", "r"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "t", ",", "r", ",", "r", ",", "\[Theta]", ",", "r", ",", 
           "r", ",", "\[Theta]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       SuperscriptBox["r", "6"], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "10"], " ", 
       RowBox[{"(", 
        RowBox[{"k", "+", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["a", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "k"}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["a", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
          RowBox[{
           RowBox[{"a", "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox["a", "\[Prime]\[Prime]",
             MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "3"]}], 
      RowBox[{"6", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], "5"]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "\[Theta]", ",", "\[Theta]", ",", "\[Theta]", ",", "\[Theta]", ",", 
           "r", ",", "\[Theta]", ",", "r", ",", "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "\[Theta]", ",", "\[Theta]", ",", "\[Theta]", ",", "\[Theta]", ",", 
           "\[Theta]", ",", "r", ",", "\[Theta]", ",", "r"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["r", "14"], " ", 
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "12"], " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{"k", "+", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", "k"}], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{
              SuperscriptBox["a", "\[Prime]",
               MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
           RowBox[{
            RowBox[{"a", "[", "t", "]"}], " ", 
            RowBox[{
             SuperscriptBox["a", "\[Prime]\[Prime]",
              MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "3"]}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], "3"]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "\[Theta]", ",", "\[Theta]", ",", "\[Theta]", ",", "\[Theta]", ",", 
           "r", ",", "\[Theta]", ",", "\[Theta]", ",", "r"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "\[Theta]", ",", "\[Theta]", ",", "\[Theta]", ",", "\[Theta]", ",", 
           "\[Theta]", ",", "r", ",", "r", ",", "\[Theta]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       SuperscriptBox["r", "14"], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "12"], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{"k", "+", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["a", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "k"}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["a", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
          RowBox[{
           RowBox[{"a", "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox["a", "\[Prime]\[Prime]",
             MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "3"]}], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "2"]}]}], ")"}], "3"]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "r", ",", "r", ",", "r", ",", "r", ",", "\[Phi]", ",", 
           "\[Phi]", ",", "r"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "r", ",", "r", ",", "r", ",", "\[Phi]", ",", "r", ",", 
           "r", ",", "\[Phi]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["r", "8"], " ", 
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "10"], " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]", "]"}], "6"], " ", 
        RowBox[{"(", 
         RowBox[{"k", "+", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", "k"}], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{
              SuperscriptBox["a", "\[Prime]",
               MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
           RowBox[{
            RowBox[{"a", "[", "t", "]"}], " ", 
            RowBox[{
             SuperscriptBox["a", "\[Prime]\[Prime]",
              MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "3"]}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], "6"]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "r", ",", "r", ",", "r", ",", "r", ",", "\[Phi]", ",", 
           "r", ",", "\[Phi]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "r", ",", "r", ",", "r", ",", "\[Phi]", ",", "r", ",", 
           "\[Phi]", ",", "r"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       SuperscriptBox["r", "8"], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "10"], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "\[Theta]", "]"}], "6"], " ", 
       RowBox[{"(", 
        RowBox[{"k", "+", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["a", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "k"}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["a", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
          RowBox[{
           RowBox[{"a", "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox["a", "\[Prime]\[Prime]",
             MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "3"]}], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "2"]}]}], ")"}], "6"]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "t", ",", "r", ",", "r", ",", "r", ",", "\[Phi]", ",", 
           "r", ",", "\[Phi]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "t", ",", "r", ",", "r", ",", "\[Phi]", ",", "r", ",", 
           "\[Phi]", ",", "r"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["r", "6"], " ", 
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "10"], " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]", "]"}], "6"], " ", 
        RowBox[{"(", 
         RowBox[{"k", "+", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", "k"}], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{
              SuperscriptBox["a", "\[Prime]",
               MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
           RowBox[{
            RowBox[{"a", "[", "t", "]"}], " ", 
            RowBox[{
             SuperscriptBox["a", "\[Prime]\[Prime]",
              MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "3"]}], 
       RowBox[{"6", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           RowBox[{"k", " ", 
            SuperscriptBox["r", "2"]}]}], ")"}], "5"]}]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "t", ",", "r", ",", "r", ",", "r", ",", "\[Phi]", ",", 
           "\[Phi]", ",", "r"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "t", ",", "r", ",", "r", ",", "\[Phi]", ",", "r", ",", 
           "r", ",", "\[Phi]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       SuperscriptBox["r", "6"], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "10"], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "\[Theta]", "]"}], "6"], " ", 
       RowBox[{"(", 
        RowBox[{"k", "+", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["a", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "k"}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["a", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
          RowBox[{
           RowBox[{"a", "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox["a", "\[Prime]\[Prime]",
             MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "3"]}], 
      RowBox[{"6", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], "5"]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "r", ",", "r", ",", "r", ",", "\[Theta]", ",", "\[Phi]", 
           ",", "\[Theta]", ",", "\[Phi]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "r", ",", "r", ",", "r", ",", "\[Phi]", ",", "\[Theta]", 
           ",", "\[Phi]", ",", "\[Theta]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["r", "14"], " ", 
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "10"], " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]", "]"}], "6"], " ", 
        RowBox[{"(", 
         RowBox[{"k", "+", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", "k"}], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{
              SuperscriptBox["a", "\[Prime]",
               MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
           RowBox[{
            RowBox[{"a", "[", "t", "]"}], " ", 
            RowBox[{
             SuperscriptBox["a", "\[Prime]\[Prime]",
              MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "3"]}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], "3"]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "r", ",", "r", ",", "r", ",", "\[Theta]", ",", "\[Phi]", 
           ",", "\[Phi]", ",", "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "r", ",", "r", ",", "r", ",", "\[Phi]", ",", "\[Theta]", 
           ",", "\[Theta]", ",", "\[Phi]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       SuperscriptBox["r", "14"], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "10"], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "\[Theta]", "]"}], "6"], " ", 
       RowBox[{"(", 
        RowBox[{"k", "+", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["a", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "k"}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["a", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
          RowBox[{
           RowBox[{"a", "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox["a", "\[Prime]\[Prime]",
             MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "3"]}], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "2"]}]}], ")"}], "3"]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "t", ",", "r", ",", "r", ",", "\[Theta]", ",", "\[Phi]", 
           ",", "\[Phi]", ",", "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "t", ",", "r", ",", "r", ",", "\[Phi]", ",", "\[Theta]", 
           ",", "\[Theta]", ",", "\[Phi]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["r", "12"], " ", 
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "10"], " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]", "]"}], "6"], " ", 
        RowBox[{"(", 
         RowBox[{"k", "+", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", "k"}], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{
              SuperscriptBox["a", "\[Prime]",
               MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
           RowBox[{
            RowBox[{"a", "[", "t", "]"}], " ", 
            RowBox[{
             SuperscriptBox["a", "\[Prime]\[Prime]",
              MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "3"]}], 
       RowBox[{"6", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           RowBox[{"k", " ", 
            SuperscriptBox["r", "2"]}]}], ")"}], "2"]}]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "t", ",", "r", ",", "r", ",", "\[Theta]", ",", "\[Phi]", 
           ",", "\[Theta]", ",", "\[Phi]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "t", ",", "r", ",", "r", ",", "\[Phi]", ",", "\[Theta]", 
           ",", "\[Phi]", ",", "\[Theta]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       SuperscriptBox["r", "12"], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "10"], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "\[Theta]", "]"}], "6"], " ", 
       RowBox[{"(", 
        RowBox[{"k", "+", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["a", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "k"}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["a", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
          RowBox[{
           RowBox[{"a", "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox["a", "\[Prime]\[Prime]",
             MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "3"]}], 
      RowBox[{"6", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], "2"]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "\[Phi]", ",", "\[Phi]", ",", "\[Phi]", ",", "\[Phi]", ",", "r", 
           ",", "\[Theta]", ",", "r", ",", "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "\[Phi]", ",", "\[Phi]", ",", "\[Phi]", ",", "\[Phi]", ",", 
           "\[Theta]", ",", "r", ",", "\[Theta]", ",", "r"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["r", "14"], " ", 
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "10"], " ", 
        RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]", "]"}], "6"], " ", 
        RowBox[{"(", 
         RowBox[{"k", "+", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", "k"}], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{
              SuperscriptBox["a", "\[Prime]",
               MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
           RowBox[{
            RowBox[{"a", "[", "t", "]"}], " ", 
            RowBox[{
             SuperscriptBox["a", "\[Prime]\[Prime]",
              MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "3"]}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], "3"]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "\[Phi]", ",", "\[Phi]", ",", "\[Phi]", ",", "\[Phi]", ",", "r", 
           ",", "\[Theta]", ",", "\[Theta]", ",", "r"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "\[Phi]", ",", "\[Phi]", ",", "\[Phi]", ",", "\[Phi]", ",", 
           "\[Theta]", ",", "r", ",", "r", ",", "\[Theta]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       SuperscriptBox["r", "14"], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "10"], " ", 
       RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "\[Theta]", "]"}], "6"], " ", 
       RowBox[{"(", 
        RowBox[{"k", "+", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["a", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "k"}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["a", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
          RowBox[{
           RowBox[{"a", "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox["a", "\[Prime]\[Prime]",
             MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "3"]}], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "2"]}]}], ")"}], "3"]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "\[Theta]", ",", "\[Theta]", ",", "\[Theta]", ",", "\[Theta]", ",", 
           "\[Theta]", ",", "\[Phi]", ",", "\[Phi]", ",", "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "\[Theta]", ",", "\[Theta]", ",", "\[Theta]", ",", "\[Theta]", ",", 
           "\[Phi]", ",", "\[Theta]", ",", "\[Theta]", ",", "\[Phi]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "20"]}], " ", 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "12"], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "8"], " ", 
      RowBox[{"(", 
       RowBox[{"k", "+", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["a", "\[Prime]",
           MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "k"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
         RowBox[{
          RowBox[{"a", "[", "t", "]"}], " ", 
          RowBox[{
           SuperscriptBox["a", "\[Prime]\[Prime]",
            MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "3"]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "\[Theta]", ",", "\[Theta]", ",", "\[Theta]", ",", "\[Theta]", ",", 
           "\[Theta]", ",", "\[Phi]", ",", "\[Theta]", ",", "\[Phi]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "\[Theta]", ",", "\[Theta]", ",", "\[Theta]", ",", "\[Theta]", ",", 
           "\[Phi]", ",", "\[Theta]", ",", "\[Phi]", ",", "\[Theta]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      SuperscriptBox["r", "20"], " ", 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "12"], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "8"], " ", 
      RowBox[{"(", 
       RowBox[{"k", "+", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["a", "\[Prime]",
           MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "k"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
         RowBox[{
          RowBox[{"a", "[", "t", "]"}], " ", 
          RowBox[{
           SuperscriptBox["a", "\[Prime]\[Prime]",
            MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "3"]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "\[Theta]", ",", "\[Theta]", ",", "\[Theta]", ",", "\[Theta]", ",", 
           "r", ",", "\[Phi]", ",", "r", ",", "\[Phi]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "\[Theta]", ",", "\[Theta]", ",", "\[Theta]", ",", "\[Theta]", ",", 
           "\[Phi]", ",", "r", ",", "\[Phi]", ",", "r"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["r", "14"], " ", 
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "12"], " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]", "]"}], "8"], " ", 
        RowBox[{"(", 
         RowBox[{"k", "+", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", "k"}], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{
              SuperscriptBox["a", "\[Prime]",
               MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
           RowBox[{
            RowBox[{"a", "[", "t", "]"}], " ", 
            RowBox[{
             SuperscriptBox["a", "\[Prime]\[Prime]",
              MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "3"]}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], "3"]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "\[Theta]", ",", "\[Theta]", ",", "\[Theta]", ",", "\[Theta]", ",", 
           "r", ",", "\[Phi]", ",", "\[Phi]", ",", "r"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "\[Theta]", ",", "\[Theta]", ",", "\[Theta]", ",", "\[Theta]", ",", 
           "\[Phi]", ",", "r", ",", "r", ",", "\[Phi]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       SuperscriptBox["r", "14"], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "12"], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "\[Theta]", "]"}], "8"], " ", 
       RowBox[{"(", 
        RowBox[{"k", "+", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["a", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "k"}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["a", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
          RowBox[{
           RowBox[{"a", "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox["a", "\[Prime]\[Prime]",
             MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "3"]}], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "2"]}]}], ")"}], "3"]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "\[Phi]", ",", "\[Phi]", ",", "\[Phi]", ",", "\[Phi]", ",", 
           "\[Theta]", ",", "\[Phi]", ",", "\[Phi]", ",", "\[Theta]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "\[Phi]", ",", "\[Phi]", ",", "\[Phi]", ",", "\[Phi]", ",", 
           "\[Phi]", ",", "\[Theta]", ",", "\[Theta]", ",", "\[Phi]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "20"]}], " ", 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "10"], " ", 
      RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "12"], " ", 
      RowBox[{"(", 
       RowBox[{"k", "+", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["a", "\[Prime]",
           MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "k"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
         RowBox[{
          RowBox[{"a", "[", "t", "]"}], " ", 
          RowBox[{
           SuperscriptBox["a", "\[Prime]\[Prime]",
            MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "3"]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "\[Phi]", ",", "\[Phi]", ",", "\[Phi]", ",", "\[Phi]", ",", 
           "\[Theta]", ",", "\[Phi]", ",", "\[Theta]", ",", "\[Phi]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "\[Phi]", ",", "\[Phi]", ",", "\[Phi]", ",", "\[Phi]", ",", 
           "\[Phi]", ",", "\[Theta]", ",", "\[Phi]", ",", "\[Theta]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      SuperscriptBox["r", "20"], " ", 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "10"], " ", 
      RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "12"], " ", 
      RowBox[{"(", 
       RowBox[{"k", "+", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["a", "\[Prime]",
           MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "k"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
         RowBox[{
          RowBox[{"a", "[", "t", "]"}], " ", 
          RowBox[{
           SuperscriptBox["a", "\[Prime]\[Prime]",
            MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "3"]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "\[Phi]", ",", "\[Phi]", ",", "\[Phi]", ",", "\[Phi]", ",", "r", 
           ",", "\[Phi]", ",", "r", ",", "\[Phi]"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "\[Phi]", ",", "\[Phi]", ",", "\[Phi]", ",", "\[Phi]", ",", 
           "\[Phi]", ",", "r", ",", "\[Phi]", ",", "r"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["r", "14"], " ", 
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "10"], " ", 
        RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]", "]"}], "12"], " ", 
        RowBox[{"(", 
         RowBox[{"k", "+", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", "k"}], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{
              SuperscriptBox["a", "\[Prime]",
               MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
           RowBox[{
            RowBox[{"a", "[", "t", "]"}], " ", 
            RowBox[{
             SuperscriptBox["a", "\[Prime]\[Prime]",
              MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "3"]}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], "3"]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "\[Phi]", ",", "\[Phi]", ",", "\[Phi]", ",", "\[Phi]", ",", "r", 
           ",", "\[Phi]", ",", "\[Phi]", ",", "r"}], "}"}]},
        {
         RowBox[{"{", 
          RowBox[{
          "\[Phi]", ",", "\[Phi]", ",", "\[Phi]", ",", "\[Phi]", ",", 
           "\[Phi]", ",", "r", ",", "r", ",", "\[Phi]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       SuperscriptBox["r", "14"], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "10"], " ", 
       RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "\[Theta]", "]"}], "12"], " ", 
       RowBox[{"(", 
        RowBox[{"k", "+", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["a", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "k"}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["a", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
          RowBox[{
           RowBox[{"a", "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox["a", "\[Prime]\[Prime]",
             MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "3"]}], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "2"]}]}], ")"}], "3"]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "r", ",", "r", ",", "r", ",", "t", ",", "r", ",", "t", 
           ",", "r"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "5"], " ", 
        RowBox[{
         SuperscriptBox["a", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", "k"}], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{
              SuperscriptBox["a", "\[Prime]",
               MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
           RowBox[{
            RowBox[{"a", "[", "t", "]"}], " ", 
            RowBox[{
             SuperscriptBox["a", "\[Prime]\[Prime]",
              MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "3"]}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], "6"]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "r", ",", "r", ",", "r", ",", "r", ",", "t", ",", "t", 
           ",", "r"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       SuperscriptBox["r", "2"], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "5"], " ", 
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "k"}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["a", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
          RowBox[{
           RowBox[{"a", "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox["a", "\[Prime]\[Prime]",
             MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "3"]}], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "2"]}]}], ")"}], "6"]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "t", ",", "r", ",", "r", ",", "r", ",", "t", ",", "t", 
           ",", "r"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "5"], " ", 
        RowBox[{
         SuperscriptBox["a", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", "k"}], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{
              SuperscriptBox["a", "\[Prime]",
               MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
           RowBox[{
            RowBox[{"a", "[", "t", "]"}], " ", 
            RowBox[{
             SuperscriptBox["a", "\[Prime]\[Prime]",
              MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "3"]}], 
       RowBox[{"6", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           RowBox[{"k", " ", 
            SuperscriptBox["r", "2"]}]}], ")"}], "5"]}]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "t", ",", "r", ",", "r", ",", "t", ",", "r", ",", "t", 
           ",", "r"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "5"], " ", 
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "k"}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["a", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
          RowBox[{
           RowBox[{"a", "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox["a", "\[Prime]\[Prime]",
             MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "3"]}], 
      RowBox[{"6", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], "5"]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "r", ",", "r", ",", "r", ",", "\[Theta]", ",", "t", ",", 
           "t", ",", "\[Theta]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["r", "8"], " ", 
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "5"], " ", 
        RowBox[{
         SuperscriptBox["a", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", "k"}], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{
              SuperscriptBox["a", "\[Prime]",
               MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
           RowBox[{
            RowBox[{"a", "[", "t", "]"}], " ", 
            RowBox[{
             SuperscriptBox["a", "\[Prime]\[Prime]",
              MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "3"]}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], "3"]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "r", ",", "r", ",", "r", ",", "t", ",", "\[Theta]", ",", 
           "t", ",", "\[Theta]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       SuperscriptBox["r", "8"], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "5"], " ", 
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "k"}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["a", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
          RowBox[{
           RowBox[{"a", "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox["a", "\[Prime]\[Prime]",
             MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "3"]}], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "2"]}]}], ")"}], "3"]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "t", ",", "r", ",", "r", ",", "t", ",", "\[Theta]", ",", 
           "t", ",", "\[Theta]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["r", "6"], " ", 
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "5"], " ", 
        RowBox[{
         SuperscriptBox["a", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", "k"}], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{
              SuperscriptBox["a", "\[Prime]",
               MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
           RowBox[{
            RowBox[{"a", "[", "t", "]"}], " ", 
            RowBox[{
             SuperscriptBox["a", "\[Prime]\[Prime]",
              MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "3"]}], 
       RowBox[{"6", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           RowBox[{"k", " ", 
            SuperscriptBox["r", "2"]}]}], ")"}], "2"]}]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "t", ",", "r", ",", "r", ",", "\[Theta]", ",", "t", ",", 
           "t", ",", "\[Theta]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       SuperscriptBox["r", "6"], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "5"], " ", 
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "k"}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["a", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
          RowBox[{
           RowBox[{"a", "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox["a", "\[Prime]\[Prime]",
             MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "3"]}], 
      RowBox[{"6", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], "2"]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "\[Theta]", ",", "\[Theta]", ",", "\[Theta]", ",", "\[Theta]", ",", 
           "t", ",", "\[Theta]", ",", "t", ",", "\[Theta]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "14"]}], " ", 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "7"], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
      RowBox[{
       SuperscriptBox["a", "\[Prime]\[Prime]",
        MultilineFunction->None], "[", "t", "]"}], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "k"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
         RowBox[{
          RowBox[{"a", "[", "t", "]"}], " ", 
          RowBox[{
           SuperscriptBox["a", "\[Prime]\[Prime]",
            MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "3"]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "\[Theta]", ",", "\[Theta]", ",", "\[Theta]", ",", "\[Theta]", ",", 
           "\[Theta]", ",", "t", ",", "t", ",", "\[Theta]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      SuperscriptBox["r", "14"], " ", 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "7"], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
      RowBox[{
       SuperscriptBox["a", "\[Prime]\[Prime]",
        MultilineFunction->None], "[", "t", "]"}], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "k"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
         RowBox[{
          RowBox[{"a", "[", "t", "]"}], " ", 
          RowBox[{
           SuperscriptBox["a", "\[Prime]\[Prime]",
            MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "3"]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "\[Theta]", ",", "\[Theta]", ",", "\[Theta]", ",", "\[Theta]", ",", 
           "r", ",", "t", ",", "t", ",", "r"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["r", "8"], " ", 
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "7"], " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
        RowBox[{
         SuperscriptBox["a", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", "k"}], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{
              SuperscriptBox["a", "\[Prime]",
               MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
           RowBox[{
            RowBox[{"a", "[", "t", "]"}], " ", 
            RowBox[{
             SuperscriptBox["a", "\[Prime]\[Prime]",
              MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "3"]}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], "3"]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "\[Theta]", ",", "\[Theta]", ",", "\[Theta]", ",", "\[Theta]", ",", 
           "t", ",", "r", ",", "t", ",", "r"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       SuperscriptBox["r", "8"], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "7"], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "k"}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["a", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
          RowBox[{
           RowBox[{"a", "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox["a", "\[Prime]\[Prime]",
             MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "3"]}], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "2"]}]}], ")"}], "3"]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "r", ",", "r", ",", "r", ",", "\[Phi]", ",", "t", ",", 
           "t", ",", "\[Phi]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["r", "8"], " ", 
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "5"], " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]", "]"}], "6"], " ", 
        RowBox[{
         SuperscriptBox["a", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", "k"}], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{
              SuperscriptBox["a", "\[Prime]",
               MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
           RowBox[{
            RowBox[{"a", "[", "t", "]"}], " ", 
            RowBox[{
             SuperscriptBox["a", "\[Prime]\[Prime]",
              MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "3"]}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], "3"]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "r", ",", "r", ",", "r", ",", "r", ",", "t", ",", "\[Phi]", ",", 
           "t", ",", "\[Phi]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       SuperscriptBox["r", "8"], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "5"], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "\[Theta]", "]"}], "6"], " ", 
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "k"}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["a", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
          RowBox[{
           RowBox[{"a", "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox["a", "\[Prime]\[Prime]",
             MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "3"]}], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "2"]}]}], ")"}], "3"]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "t", ",", "r", ",", "r", ",", "t", ",", "\[Phi]", ",", 
           "t", ",", "\[Phi]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["r", "6"], " ", 
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "5"], " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]", "]"}], "6"], " ", 
        RowBox[{
         SuperscriptBox["a", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", "k"}], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{
              SuperscriptBox["a", "\[Prime]",
               MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
           RowBox[{
            RowBox[{"a", "[", "t", "]"}], " ", 
            RowBox[{
             SuperscriptBox["a", "\[Prime]\[Prime]",
              MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "3"]}], 
       RowBox[{"6", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           RowBox[{"k", " ", 
            SuperscriptBox["r", "2"]}]}], ")"}], "2"]}]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "t", ",", "t", ",", "r", ",", "r", ",", "\[Phi]", ",", "t", ",", 
           "t", ",", "\[Phi]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       SuperscriptBox["r", "6"], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "5"], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "\[Theta]", "]"}], "6"], " ", 
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "k"}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["a", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
          RowBox[{
           RowBox[{"a", "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox["a", "\[Prime]\[Prime]",
             MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "3"]}], 
      RowBox[{"6", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], "2"]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "\[Phi]", ",", "\[Phi]", ",", "\[Phi]", ",", "\[Phi]", ",", "t", 
           ",", "\[Theta]", ",", "t", ",", "\[Theta]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "14"]}], " ", 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "5"], " ", 
      RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "6"], " ", 
      RowBox[{
       SuperscriptBox["a", "\[Prime]\[Prime]",
        MultilineFunction->None], "[", "t", "]"}], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "k"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
         RowBox[{
          RowBox[{"a", "[", "t", "]"}], " ", 
          RowBox[{
           SuperscriptBox["a", "\[Prime]\[Prime]",
            MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "3"]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "\[Phi]", ",", "\[Phi]", ",", "\[Phi]", ",", "\[Phi]", ",", 
           "\[Theta]", ",", "t", ",", "t", ",", "\[Theta]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      SuperscriptBox["r", "14"], " ", 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "5"], " ", 
      RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "6"], " ", 
      RowBox[{
       SuperscriptBox["a", "\[Prime]\[Prime]",
        MultilineFunction->None], "[", "t", "]"}], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "k"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
         RowBox[{
          RowBox[{"a", "[", "t", "]"}], " ", 
          RowBox[{
           SuperscriptBox["a", "\[Prime]\[Prime]",
            MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "3"]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "\[Phi]", ",", "\[Phi]", ",", "\[Phi]", ",", "\[Phi]", ",", "r", 
           ",", "t", ",", "t", ",", "r"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["r", "8"], " ", 
        SuperscriptBox[
         RowBox[{"a", "[", "t", "]"}], "5"], " ", 
        RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]", "]"}], "6"], " ", 
        RowBox[{
         SuperscriptBox["a", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "t", "]"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", "k"}], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{
              SuperscriptBox["a", "\[Prime]",
               MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
           RowBox[{
            RowBox[{"a", "[", "t", "]"}], " ", 
            RowBox[{
             SuperscriptBox["a", "\[Prime]\[Prime]",
              MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "3"]}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], ")"}], "3"]]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "\[Phi]", ",", "\[Phi]", ",", "\[Phi]", ",", "\[Phi]", ",", "t", 
           ",", "r", ",", "t", ",", "r"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{
       SuperscriptBox["r", "8"], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "5"], " ", 
       RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "\[Theta]", "]"}], "6"], " ", 
       RowBox[{
        SuperscriptBox["a", "\[Prime]\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "k"}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["a", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
          RowBox[{
           RowBox[{"a", "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox["a", "\[Prime]\[Prime]",
             MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "3"]}], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"k", " ", 
          SuperscriptBox["r", "2"]}]}], ")"}], "3"]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "\[Theta]", ",", "\[Theta]", ",", "\[Theta]", ",", "\[Theta]", ",", 
           "t", ",", "\[Phi]", ",", "t", ",", "\[Phi]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "14"]}], " ", 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "7"], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "8"], " ", 
      RowBox[{
       SuperscriptBox["a", "\[Prime]\[Prime]",
        MultilineFunction->None], "[", "t", "]"}], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "k"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
         RowBox[{
          RowBox[{"a", "[", "t", "]"}], " ", 
          RowBox[{
           SuperscriptBox["a", "\[Prime]\[Prime]",
            MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "3"]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "\[Theta]", ",", "\[Theta]", ",", "\[Theta]", ",", "\[Theta]", ",", 
           "\[Phi]", ",", "t", ",", "t", ",", "\[Phi]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      SuperscriptBox["r", "14"], " ", 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "7"], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "8"], " ", 
      RowBox[{
       SuperscriptBox["a", "\[Prime]\[Prime]",
        MultilineFunction->None], "[", "t", "]"}], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "k"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
         RowBox[{
          RowBox[{"a", "[", "t", "]"}], " ", 
          RowBox[{
           SuperscriptBox["a", "\[Prime]\[Prime]",
            MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "3"]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "\[Phi]", ",", "\[Phi]", ",", "\[Phi]", ",", "\[Phi]", ",", "t", 
           ",", "\[Phi]", ",", "t", ",", "\[Phi]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "14"]}], " ", 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "5"], " ", 
      RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "12"], " ", 
      RowBox[{
       SuperscriptBox["a", "\[Prime]\[Prime]",
        MultilineFunction->None], "[", "t", "]"}], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "k"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
         RowBox[{
          RowBox[{"a", "[", "t", "]"}], " ", 
          RowBox[{
           SuperscriptBox["a", "\[Prime]\[Prime]",
            MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "3"]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{
          "\[Phi]", ",", "\[Phi]", ",", "\[Phi]", ",", "\[Phi]", ",", 
           "\[Phi]", ",", "t", ",", "t", ",", "\[Phi]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      SuperscriptBox["r", "14"], " ", 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "5"], " ", 
      RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "12"], " ", 
      RowBox[{
       SuperscriptBox["a", "\[Prime]\[Prime]",
        MultilineFunction->None], "[", "t", "]"}], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "k"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["a", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"]}], "+", 
         RowBox[{
          RowBox[{"a", "[", "t", "]"}], " ", 
          RowBox[{
           SuperscriptBox["a", "\[Prime]\[Prime]",
            MultilineFunction->None], "[", "t", "]"}]}]}], ")"}], "3"]}]}
   },
   AutoDelete->False,
   GridBoxFrame->{"Columns" -> False, "Rows" -> {{True}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{{3.811857067789197*^9, 3.811857077727439*^9}, {
   3.811857117758634*^9, 3.8118571267115817`*^9}, {3.811865163146137*^9, 
   3.8118652006809072`*^9}, {3.8118657296984386`*^9, 3.811865744526101*^9}, 
   3.8120047178525534`*^9},
 CellLabel->"Out[87]=",ExpressionUUID->"d7db6b96-d396-4ce0-a3de-0ee3a69cf791"]
}, Open  ]],

Cell["\<\
** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** \
** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ***\
\>", "Item",
 CellChangeTimes->{{3.8120091288007374`*^9, 
  3.8120091364862776`*^9}},ExpressionUUID->"697c3228-398b-4397-95e6-\
7a4353a4d906"],

Cell[BoxData[
 RowBox[{"s", "=", 
  RowBox[{"hypersurface", "[", "r", "]"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.8120079281913424`*^9, 3.812007939391802*^9}, {
  3.8120813881671596`*^9, 3.812081401703651*^9}, {3.8120814733806553`*^9, 
  3.8120814748090925`*^9}, {3.8120816675777617`*^9, 3.812081694238855*^9}},
 CellLabel->"In[50]:=",ExpressionUUID->"447031df-4dc4-42d1-bbdf-0aa8ea40420c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"unitnormal", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{"unit", " ", "normal", " ", "co"}], "-", "vector"}], ",", 
    RowBox[{"with", " ", "index", " ", "down"}]}], "*)"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.812008004663001*^9, 3.8120080119269133`*^9}},
 CellLabel->"In[21]:=",ExpressionUUID->"d975edd5-dc69-480f-b23a-ce9bee0e49c0"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0", ",", 
   FractionBox["1", 
    SqrtBox[
     FractionBox[
      RowBox[{"1", "-", 
       RowBox[{"k", " ", 
        SuperscriptBox["r", "2"]}]}], 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "2"]]]], ",", "0", ",", "0"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.81200801309851*^9},
 CellLabel->"Out[21]=",ExpressionUUID->"0d28ecb4-7670-4807-8b95-d281fcc4dbe6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"extrinsic", "[", "s", "]"}], 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"extrinsic", " ", "curvature", " ", "tensor"}], ",", 
    RowBox[{"with", " ", "both", " ", "indices", " ", "down"}]}], 
   "*)"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.812007897143752*^9, 3.8120079110702696`*^9}, {
  3.812081478654309*^9, 3.812081478930957*^9}},
 CellLabel->"In[46]:=",ExpressionUUID->"d977e8bb-02a9-4678-b1af-151da58011f6"],

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0", ",", 
      RowBox[{"r", " ", 
       SqrtBox[
        FractionBox[
         RowBox[{"1", "-", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], 
         SuperscriptBox[
          RowBox[{"a", "[", "t", "]"}], "2"]]], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "2"]}], ",", "0"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0", ",", "0", ",", 
      RowBox[{"r", " ", 
       SqrtBox[
        FractionBox[
         RowBox[{"1", "-", 
          RowBox[{"k", " ", 
           SuperscriptBox["r", "2"]}]}], 
         SuperscriptBox[
          RowBox[{"a", "[", "t", "]"}], "2"]]], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], "}"}]}], "}"}], "[", 
  "Null", "]"}]], "Output",
 CellChangeTimes->{3.812007911538881*^9, 3.8120814795555415`*^9},
 CellLabel->"Out[46]=",ExpressionUUID->"09a44a2e-697f-46ba-9450-f4fc83d96e85"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"extrinsictrace", 
  RowBox[{"(*", 
   RowBox[{
   "trace", " ", "of", " ", "the", " ", "extrinsic", " ", "curvature"}], 
   "*)"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.812007914835118*^9, 3.812007917318904*^9}, {
  3.812008079191622*^9, 3.8120080825347233`*^9}},
 CellLabel->"In[22]:=",ExpressionUUID->"b6e442db-49a8-489b-b467-01fa54dabd86"],

Cell[BoxData[
 FractionBox[
  RowBox[{"2", " ", 
   SqrtBox[
    FractionBox[
     RowBox[{"1", "-", 
      RowBox[{"k", " ", 
       SuperscriptBox["r", "2"]}]}], 
     SuperscriptBox[
      RowBox[{"a", "[", "t", "]"}], "2"]]]}], "r"]], "Output",
 CellChangeTimes->{3.812007918490396*^9, 3.8120080833468904`*^9},
 CellLabel->"Out[22]=",ExpressionUUID->"a2fb8f12-4262-4264-a115-a71ee985dbb7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"projector", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "rank", " ", "2", " ", "tensor", " ", "that", " ", "projects", " ", 
     "orthogonally", " ", "onto", " ", "the", " ", "hypersurface"}], ",", 
    RowBox[{"with", " ", "both", " ", "indices", " ", "down"}]}], 
   "*)"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.8120077330724883`*^9, 3.812007750974552*^9}, {
  3.812007861509243*^9, 3.8120078652585006`*^9}},
 CellLabel->"In[14]:=",ExpressionUUID->"8e0055c9-7978-4147-b375-027e69d6e0be"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", 
     RowBox[{
      SuperscriptBox["r", "2"], " ", 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "2"]}], ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0", ",", 
     RowBox[{
      SuperscriptBox["r", "2"], " ", 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.812007751411806*^9, 3.8120078669142504`*^9},
 CellLabel->"Out[14]=",ExpressionUUID->"04f3eda1-de9e-4ee0-a909-e87c87215dd3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"induced", 
  RowBox[{"(*", 
   RowBox[{
   "induced", " ", "metric", " ", "on", " ", "the", " ", "hypersurface"}], 
   "*)"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.8120079710068083`*^9, 3.8120079822074003`*^9}},
 CellLabel->"In[20]:=",ExpressionUUID->"a32fc744-22cc-4b13-84c6-cd94f2ab900b"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", 
     RowBox[{
      SuperscriptBox["r", "2"], " ", 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "2"]}], ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", 
     RowBox[{
      SuperscriptBox["r", "2"], " ", 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.8120079846598444`*^9},
 CellLabel->"Out[20]=",ExpressionUUID->"d1916d3b-7f10-4a1c-9f09-64b9cd26ae8b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"HScoord", 
  RowBox[{"(*", 
   RowBox[{
   "list", " ", "of", " ", "coordinates", " ", "on", " ", "the", " ", 
    "hypersurface"}], "*)"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.812007767002017*^9, 3.8120077691889906`*^9}, {
  3.8120080459465413`*^9, 3.8120080490396957`*^9}},
 CellLabel->"In[51]:=",ExpressionUUID->"4a953594-faf6-4809-b53d-ff0bf2198f07"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"t", ",", "\[Theta]", ",", "\[Phi]"}], "}"}]], "Output",
 CellChangeTimes->{
  3.812007769876207*^9, {3.812081686573903*^9, 3.8120816992919593`*^9}},
 CellLabel->"Out[51]=",ExpressionUUID->"3e3bf5d6-1ca9-4bbb-b6d0-66d2b1896d53"]
}, Open  ]],

Cell[TextData[StyleBox["It would be available to change the coordinate or \
metric during this work without stopping the kernel and  could be written as \
follows",
 FontSlant->"Italic",
 FontColor->RGBColor[1, 0, 0]]], "Text",
 CellChangeTimes->{{3.812009302464213*^9, 3.8120094652383385`*^9}, {
  3.812017427171178*^9, 
  3.8120174523017473`*^9}},ExpressionUUID->"d6b83dd4-ea9f-4a45-b1c4-\
e7eb61ec098d"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"coord", "=", "HScoord"}], "\[IndentingNewLine]", 
 RowBox[{"metric", "=", "induced"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.8120091456247773`*^9, 3.8120091811632442`*^9}, {
  3.812009227777258*^9, 3.812009237978116*^9}},
 CellLabel->"In[36]:=",ExpressionUUID->"f6b5f219-7d3c-4d16-ade4-4bcc71bfe86b"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"t", ",", "\[Theta]", ",", "\[Phi]"}], "}"}]], "Output",
 CellChangeTimes->{
  3.812009181460084*^9, {3.8120092281677895`*^9, 3.812009240664874*^9}},
 CellLabel->"Out[36]=",ExpressionUUID->"0f98aeda-9e2d-4083-abbb-f7d96c2f1fa9"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", 
     RowBox[{
      SuperscriptBox["r", "2"], " ", 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "2"]}], ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", 
     RowBox[{
      SuperscriptBox["r", "2"], " ", 
      SuperscriptBox[
       RowBox[{"a", "[", "t", "]"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.812009181460084*^9, {3.8120092281677895`*^9, 3.812009240664874*^9}},
 CellLabel->"Out[37]=",ExpressionUUID->"a3705485-dd74-4f06-ad4c-1a4f0faf66c6"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"<<", "diffgeo.m"}]], "Input",
 CellChangeTimes->{{3.812009253194577*^9, 3.8120092534601407`*^9}},
 CellLabel->"In[39]:=",ExpressionUUID->"467005e2-5b4e-4370-be71-c5c04bd5a697"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Einstein", "//", "display"}]], "Input",
 CellChangeTimes->{{3.8120092587868733`*^9, 3.8120092766265535`*^9}},
 CellLabel->"In[40]:=",ExpressionUUID->"8334df0b-e4c7-4a51-8628-1a4eaf683164"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"t", ",", "t"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     FractionBox[
      RowBox[{"1", "+", 
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["a", "\[Prime]",
           MultilineFunction->None], "[", "t", "]"}], "2"]}]}], 
      RowBox[{
       SuperscriptBox["r", "2"], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", "t", "]"}], "2"]}]]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"\[Theta]", ",", "\[Theta]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", 
      RowBox[{"a", "[", "t", "]"}], " ", 
      RowBox[{
       SuperscriptBox["a", "\[Prime]\[Prime]",
        MultilineFunction->None], "[", "t", "]"}]}]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"{", 
          RowBox[{"\[Phi]", ",", "\[Phi]"}], "}"}]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", 
      RowBox[{"a", "[", "t", "]"}], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
      RowBox[{
       SuperscriptBox["a", "\[Prime]\[Prime]",
        MultilineFunction->None], "[", "t", "]"}]}]}
   },
   AutoDelete->False,
   GridBoxFrame->{"Columns" -> False, "Rows" -> {{True}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{3.8120092771263*^9},
 CellLabel->"Out[40]=",ExpressionUUID->"c6ceb154-06cd-47e4-bfd4-53df3da9e2d6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["Cotton"], "Input",
 CellChangeTimes->{{3.812009283656131*^9, 3.8120092899046764`*^9}},
 CellLabel->"In[41]:=",ExpressionUUID->"559595f6-e882-4043-91c2-718f47c2ebb9"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.8120092905450106`*^9},
 CellLabel->"Out[41]=",ExpressionUUID->"6f989862-0c7c-49b6-96a1-39e4afd56242"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"hypersurface", "[", "t", "]"}]], "Input",
 CellChangeTimes->{{3.8120818116738944`*^9, 3.8120818623459635`*^9}},
 CellLabel->"In[56]:=",ExpressionUUID->"67eb5c4a-0927-45c5-bddf-c559a1d774c0"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.8120818717988167`*^9, 
  3.812081880370021*^9}},ExpressionUUID->"1ac2d07c-b93f-4d44-ac2a-\
6287b6e4fe87"]
},
WindowSize->{1920, 997},
WindowMargins->{{-8, Automatic}, {Automatic, -8}},
Magnification:>1.5 Inherited,
FrontEndVersion->"12.0 for Microsoft Windows (64-bit) (April 8, 2019)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 1776, 49, 257, "Input",ExpressionUUID->"bdd6e6ff-212e-4fdf-b408-bcdb7e5acbbe"],
Cell[2359, 73, 513, 8, 49, "Output",ExpressionUUID->"de8bbe55-7a47-4a7a-81be-5bfad7338bf9"]
}, Open  ]],
Cell[2887, 84, 275, 6, 57, "Text",ExpressionUUID->"4848d1e6-ce59-45a5-95a2-72a5365533e7"],
Cell[CellGroupData[{
Cell[3187, 94, 237, 4, 67, "Input",ExpressionUUID->"7dbac5d8-a1fa-429e-9260-7fe4ed77957c",
 InitializationCell->True],
Cell[3427, 100, 1392, 41, 168, "Output",ExpressionUUID->"cb6f7186-3fe3-42bd-b521-211524f7f1ae"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4856, 146, 175, 2, 43, "Input",ExpressionUUID->"7df981f7-9d7c-4ae8-9ea5-9fab9eee1b7a"],
Cell[5034, 150, 487, 13, 88, "Output",ExpressionUUID->"c837a99b-5a98-441a-a16c-770564e898c8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5558, 168, 204, 3, 43, "Input",ExpressionUUID->"67fd2aac-fa61-45d2-a1be-3cc99d4a14d4"],
Cell[5765, 173, 639, 19, 72, "Output",ExpressionUUID->"d2c955fa-135a-47f5-91a3-f636ba9146d5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6441, 197, 251, 5, 43, "Input",ExpressionUUID->"b5592247-87f5-4a3c-91a8-b66ac82f4c32"],
Cell[6695, 204, 319, 8, 76, "Output",ExpressionUUID->"b17060c0-d4a3-4370-a77d-e1cf01995493"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7051, 217, 214, 3, 43, "Input",ExpressionUUID->"f925a105-e55d-476a-81ab-e621a6a767c1"],
Cell[7268, 222, 154, 2, 49, "Output",ExpressionUUID->"ea85fc35-73c6-406c-b7e6-5cdb0ea57a6a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7459, 229, 240, 4, 67, "Input",ExpressionUUID->"58f833b3-860d-413a-ade4-9fddc9ae3648",
 InitializationCell->True],
Cell[7702, 235, 16566, 435, 678, "Output",ExpressionUUID->"35873d2f-20fa-4836-adcc-9232e0a93fbc"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24305, 675, 337, 6, 67, "Input",ExpressionUUID->"23943e9c-f5ad-4a11-a43d-19f486421289",
 InitializationCell->True],
Cell[24645, 683, 10240, 306, 742, "Output",ExpressionUUID->"f5187873-6630-45a3-8ede-ab96daf55c48"]
}, Open  ]],
Cell[CellGroupData[{
Cell[34922, 994, 213, 3, 43, "Input",ExpressionUUID->"b5803df9-541a-4082-a835-82275394ea70"],
Cell[35138, 999, 13006, 338, 270, "Output",ExpressionUUID->"6dd231a4-0b8e-4102-8017-0e618e93c6e1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[48181, 1342, 274, 5, 43, "Input",ExpressionUUID->"ea35f348-afa9-4a05-8520-4d9cc034aff1"],
Cell[48458, 1349, 416, 11, 73, "Output",ExpressionUUID->"1de0d717-ea11-458c-951d-59304314c551"]
}, Open  ]],
Cell[48889, 1363, 211, 4, 52, "Text",ExpressionUUID->"7c87016c-b43f-4568-8367-be7387e3f644"],
Cell[49103, 1369, 603, 15, 43, "Input",ExpressionUUID->"5027a4ff-d1fd-4d6d-bc52-56ad7638caa8"],
Cell[CellGroupData[{
Cell[49731, 1388, 684, 14, 67, "Input",ExpressionUUID->"efd8bf30-97ee-4388-979e-8e0a1b292c1b",
 InitializationCell->True],
Cell[50418, 1404, 2527, 71, 194, "Output",ExpressionUUID->"19b4c796-055c-4280-aae3-80f3aa5fa019"]
}, Open  ]],
Cell[CellGroupData[{
Cell[52982, 1480, 292, 5, 67, "Input",ExpressionUUID->"ce29b715-40f4-43ce-9b9d-751baae45935",
 InitializationCell->True],
Cell[53277, 1487, 807, 20, 88, "Output",ExpressionUUID->"04f7e724-1830-4836-b533-67593265800d"]
}, Open  ]],
Cell[54099, 1510, 439, 11, 43, "Input",ExpressionUUID->"89c65506-c876-458c-b5a1-b552340a50fa"],
Cell[CellGroupData[{
Cell[54563, 1525, 547, 14, 67, "Input",ExpressionUUID->"02dc040f-b108-418e-9f50-86f456e8154b",
 InitializationCell->True],
Cell[55113, 1541, 4869, 139, 662, "Output",ExpressionUUID->"098e37bd-5c69-493d-97c3-519f20d39b4d"]
}, Open  ]],
Cell[59997, 1683, 438, 11, 43, "Input",ExpressionUUID->"9a11ba4b-7007-4b92-ac79-a465ff1b4450"],
Cell[CellGroupData[{
Cell[60460, 1698, 394, 8, 67, "Input",ExpressionUUID->"73ad973f-77ea-4223-8c20-d132067379de",
 InitializationCell->True],
Cell[60857, 1708, 5376, 149, 662, "Output",ExpressionUUID->"734b7381-f20a-4b51-b0b7-1b3f29d93f8f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[66270, 1862, 289, 5, 67, "Input",ExpressionUUID->"793fe618-3e96-4321-a1ff-5cd76d84eae1",
 InitializationCell->True],
Cell[66562, 1869, 472, 15, 51, "Output",ExpressionUUID->"e00c2253-bed0-4c5d-ba8f-03c1d4dfbfa2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[67071, 1889, 204, 3, 43, "Input",ExpressionUUID->"4226b3da-852f-4bbb-8cd0-1901a9841eee"],
Cell[67278, 1894, 149, 2, 49, "Output",ExpressionUUID->"22bedc45-f1a0-493e-a9fc-97cd0c7cf6cc"]
}, Open  ]],
Cell[CellGroupData[{
Cell[67464, 1901, 214, 3, 43, "Input",ExpressionUUID->"fd24515c-eced-47ab-be1c-794efb593150"],
Cell[67681, 1906, 631, 18, 88, "Output",ExpressionUUID->"71c380d8-77b4-4634-a797-d994c82bb7fc"]
}, Open  ]],
Cell[68327, 1927, 336, 8, 43, "Input",ExpressionUUID->"64784a7a-991d-4677-9d4c-9e98495cf53b"],
Cell[68666, 1937, 271, 6, 57, "Text",ExpressionUUID->"5447f109-088a-45bf-ad5b-eff364102372",
 InitializationCell->True],
Cell[CellGroupData[{
Cell[68962, 1947, 337, 7, 67, "Input",ExpressionUUID->"d78e7b9b-71fc-4543-baba-5255d203c0fe",
 InitializationCell->True],
Cell[69302, 1956, 803, 24, 80, "Output",ExpressionUUID->"1287948c-43ab-48e4-9274-08f5fac94006"]
}, Open  ]],
Cell[CellGroupData[{
Cell[70142, 1985, 321, 7, 43, "Input",ExpressionUUID->"8083bb61-a477-4fc6-91e0-ad4428b51fbb"],
Cell[70466, 1994, 463, 12, 53, "Output",ExpressionUUID->"e9533b0a-d39c-490d-88ab-a82571a0beb4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[70966, 2011, 348, 8, 67, "Input",ExpressionUUID->"d9c0a42b-10f0-4980-a262-e116fb345ed7",
 InitializationCell->True],
Cell[71317, 2021, 1482, 44, 56, "Output",ExpressionUUID->"a3bd96b5-fe08-4166-a1e0-4fe7e41b444a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[72836, 2070, 337, 7, 67, "Input",ExpressionUUID->"b5f7f3e6-757f-418b-9f64-543971c234a8",
 InitializationCell->True],
Cell[73176, 2079, 1225, 39, 86, "Output",ExpressionUUID->"e9fb8d54-7137-4d34-ad44-c4401ed6eb75"]
}, Open  ]],
Cell[CellGroupData[{
Cell[74438, 2123, 184, 2, 43, "Input",ExpressionUUID->"714b22ff-876b-4f22-a0c8-6d80a9de67d7"],
Cell[74625, 2127, 625, 17, 82, "Output",ExpressionUUID->"cdf5dee0-635c-4abd-8db2-b3d0a2dab475"]
}, Open  ]],
Cell[CellGroupData[{
Cell[75287, 2149, 243, 4, 67, "Input",ExpressionUUID->"83dec5b9-bd25-4f3b-8fad-7b78a4fe3cd9",
 InitializationCell->True],
Cell[75533, 2155, 1289, 39, 83, "Output",ExpressionUUID->"a05cc2ab-1e86-41f2-9c0e-919171e6bb1b"]
}, Open  ]],
Cell[76837, 2197, 585, 15, 52, "Text",ExpressionUUID->"1da87e39-0f13-496a-81c2-a1dd49842486"],
Cell[77425, 2214, 154, 3, 43, "Input",ExpressionUUID->"76601338-aace-4ff1-b537-dcf6413d89bc"],
Cell[CellGroupData[{
Cell[77604, 2221, 272, 5, 67, "Input",ExpressionUUID->"ea241638-2a0d-48cb-8233-8d7d94d26bd5",
 InitializationCell->True],
Cell[77879, 2228, 10966, 323, 548, "Output",ExpressionUUID->"d4431e62-de22-4417-a4ca-8108cf2e415a"]
}, Open  ]],
Cell[88860, 2554, 486, 14, 52, "Text",ExpressionUUID->"4aecfedd-4949-4f54-a2db-c851817b95d3"],
Cell[CellGroupData[{
Cell[89371, 2572, 271, 5, 67, "Input",ExpressionUUID->"471137b5-c935-4695-a72d-63b436a7f3b7",
 InitializationCell->True],
Cell[89645, 2579, 3651, 110, 212, "Output",ExpressionUUID->"834ae85f-ac88-46ee-b7f5-93bd5ac5b786"]
}, Open  ]],
Cell[CellGroupData[{
Cell[93333, 2694, 282, 5, 67, "Input",ExpressionUUID->"2bab307f-a689-4635-ba6e-da2e686e9f30",
 InitializationCell->True],
Cell[93618, 2701, 465, 12, 60, "Output",ExpressionUUID->"f1d75ee1-3b4c-4b0a-8709-47e683011539"]
}, Open  ]],
Cell[CellGroupData[{
Cell[94120, 2718, 237, 4, 67, "Input",ExpressionUUID->"2048b7a3-3c96-4bde-89ac-0c2a50041e22",
 InitializationCell->True],
Cell[94360, 2724, 4035, 115, 662, "Output",ExpressionUUID->"297d7777-6760-43bd-aa04-f4cd07e67887"]
}, Open  ]],
Cell[98410, 2842, 523, 14, 54, "Text",ExpressionUUID->"5f153f1d-8a5c-4afd-bd07-ad1182cbd343"],
Cell[98936, 2858, 530, 14, 52, "Text",ExpressionUUID->"c103e846-4692-4dcd-80fd-b9dc1207ee9d"],
Cell[CellGroupData[{
Cell[99491, 2876, 715, 19, 126, "Input",ExpressionUUID->"cc613c89-89e2-45af-bd3a-131c5bae7398",
 InitializationCell->True],
Cell[100209, 2897, 77290, 2423, 4915, "Output",ExpressionUUID->"ef35a161-e3e6-45ed-a459-cc39205ec592"]
}, Open  ]],
Cell[CellGroupData[{
Cell[177536, 5325, 205, 3, 43, "Input",ExpressionUUID->"bc80735f-73a5-428d-ae24-ef39e9e0c559"],
Cell[177744, 5330, 917, 26, 82, "Output",ExpressionUUID->"7b112293-32c9-484e-a545-fbc9bb9681c4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[178698, 5361, 205, 3, 43, "Input",ExpressionUUID->"45218bc6-6fb7-4bfe-96a5-e4c1032e9a5a"],
Cell[178906, 5366, 3719, 113, 112, "Output",ExpressionUUID->"048a54a8-7647-45b9-a002-d92eb6fa86a7"]
}, Open  ]],
Cell[182640, 5482, 276, 6, 47, "Item",ExpressionUUID->"409d2159-612a-4651-971b-77fa71c344f0"],
Cell[CellGroupData[{
Cell[182941, 5492, 354, 8, 67, "Input",ExpressionUUID->"1e206fe7-770d-439a-ba71-eeefc60c5132",
 InitializationCell->True],
Cell[183298, 5502, 27359, 831, 1962, "Output",ExpressionUUID->"8c2e7d20-f9bd-4adb-b8b1-cffd15e9c7bd"]
}, Open  ]],
Cell[CellGroupData[{
Cell[210694, 6338, 608, 13, 43, "Input",ExpressionUUID->"36675842-7cbc-49ad-b9bd-441b47514148"],
Cell[211305, 6353, 151, 2, 49, "Output",ExpressionUUID->"f437f846-0422-4b85-aad6-b36a356e846e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[211493, 6360, 498, 13, 67, "Input",ExpressionUUID->"e75c0962-053b-4dab-b1c4-090cf5742265",
 InitializationCell->True],
Cell[211994, 6375, 773, 21, 54, "Output",ExpressionUUID->"445ee5b6-c65e-43a1-ba86-6e0ca8e33b44"]
}, Open  ]],
Cell[212782, 6399, 1848, 66, 86, "Input",ExpressionUUID->"d397c69f-8925-4464-a389-c9de07fe97a1"],
Cell[CellGroupData[{
Cell[214655, 6469, 270, 5, 67, "Input",ExpressionUUID->"bb79eac6-0053-4ceb-bb7e-4c69d7cfa444",
 InitializationCell->True],
Cell[214928, 6476, 752, 23, 82, "Output",ExpressionUUID->"1e6a2ddb-2e40-465b-856e-f82e636e6b12"]
}, Open  ]],
Cell[CellGroupData[{
Cell[215717, 6504, 272, 5, 67, "Input",ExpressionUUID->"6bbc228f-6d22-466f-8af7-2a867515682a",
 InitializationCell->True],
Cell[215992, 6511, 571, 16, 74, "Output",ExpressionUUID->"fd7d50d8-75da-4583-9adf-a5fc4ee60aa9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[216600, 6532, 311, 6, 67, "Input",ExpressionUUID->"1a59b94a-82b0-4e31-ae9b-613dad1cde9a",
 InitializationCell->True],
Cell[216914, 6540, 2817, 86, 75, "Output",ExpressionUUID->"a6950b6c-467f-47ef-8382-f5e015f249bc"]
}, Open  ]],
Cell[219746, 6629, 354, 9, 86, "Text",ExpressionUUID->"422f37f3-0fe5-4492-b477-3b4a282534ac"],
Cell[CellGroupData[{
Cell[220125, 6642, 1802, 54, 213, "Input",ExpressionUUID->"1b50c75b-803f-44eb-b467-7b50301dd6bf",
 InitializationCell->True],
Cell[221930, 6698, 4021, 118, 691, "Output",ExpressionUUID->"5f26cde9-59d9-412c-b1f5-5fbdc1d75e05"]
}, Open  ]],
Cell[CellGroupData[{
Cell[225988, 6821, 1440, 35, 155, "Input",ExpressionUUID->"5e085995-d5a6-43d2-9977-60c9fa24fd3e",
 InitializationCell->True],
Cell[227431, 6858, 1519, 41, 142, "Output",ExpressionUUID->"33c5a90c-8fba-4e1b-a0c8-98e41dcc3114"]
}, Open  ]],
Cell[CellGroupData[{
Cell[228987, 6904, 432, 9, 67, "Input",ExpressionUUID->"da28ed81-2fac-49f4-a940-7653366dfb64",
 InitializationCell->True],
Cell[229422, 6915, 1389, 37, 76, "Output",ExpressionUUID->"741141c8-3d2d-4ab8-83d2-0afbf0be38d5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[230848, 6957, 229, 4, 43, "Input",ExpressionUUID->"2dd60cf0-ddfc-45c6-abbf-2f2b9ffe7ca7"],
Cell[231080, 6963, 250, 5, 49, "Output",ExpressionUUID->"1dbc1a30-08fe-4b22-8fa4-3a844ddc9218"]
}, Open  ]],
Cell[231345, 6971, 226, 5, 57, "Text",ExpressionUUID->"dd3c8bd6-0e37-4d61-869a-6e4434ec6a6d"],
Cell[231574, 6978, 520, 16, 77, "Input",ExpressionUUID->"c4d7d2cd-b672-429d-b305-78193c2a2297"],
Cell[CellGroupData[{
Cell[232119, 6998, 1311, 31, 126, "Input",ExpressionUUID->"9f66f670-d7de-4461-807d-48b32cfd07e7",
 InitializationCell->True],
Cell[233433, 7031, 874, 19, 74, "Output",ExpressionUUID->"7eb68c7a-37be-43bb-9db3-4e141259a102"]
}, Open  ]],
Cell[234322, 7053, 339, 7, 47, "Item",ExpressionUUID->"1a37c8ea-f244-4ca1-9427-9e310fc01c44"],
Cell[234664, 7062, 394, 10, 86, "Text",ExpressionUUID->"06864506-0ffd-47a9-b2ad-fa040f71d02b"],
Cell[CellGroupData[{
Cell[235083, 7076, 609, 16, 97, "Input",ExpressionUUID->"849e6ec1-a726-46f7-88fc-22f2b9ed940e",
 InitializationCell->True],
Cell[235695, 7094, 3516, 106, 196, "Output",ExpressionUUID->"58826368-7d4f-4d9e-85b6-5a65b43ee5b2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[239248, 7205, 240, 4, 67, "Input",ExpressionUUID->"d3622148-aae0-43e6-9896-49e439174bfa",
 InitializationCell->True],
Cell[239491, 7211, 3415, 103, 196, "Output",ExpressionUUID->"3bff4826-68aa-4b18-b2b9-12d975320251"]
}, Open  ]],
Cell[CellGroupData[{
Cell[242943, 7319, 1995, 56, 271, "Input",ExpressionUUID->"c26cf11f-a68a-4ed6-9f28-68882f983ae5",
 InitializationCell->True],
Cell[244941, 7377, 3445, 100, 316, "Output",ExpressionUUID->"295a2d95-a7d7-4b34-abd5-aa2c027adeeb"]
}, Open  ]],
Cell[CellGroupData[{
Cell[248423, 7482, 601, 14, 67, "Input",ExpressionUUID->"6a220d61-2be7-426f-a8a3-3ff8074a30db",
 InitializationCell->True],
Cell[249027, 7498, 3746, 111, 337, "Output",ExpressionUUID->"516214f1-b9ba-4be8-b6e4-87a9fd9c737d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[252810, 7614, 418, 9, 67, "Input",ExpressionUUID->"cdc77a5f-ae56-4bf9-a8c3-aa552ac519c2",
 InitializationCell->True],
Cell[253231, 7625, 2818, 87, 214, "Output",ExpressionUUID->"8fc97422-ea9b-40a8-93b6-ed139e0b9c89"]
}, Open  ]],
Cell[CellGroupData[{
Cell[256086, 7717, 340, 8, 67, "Input",ExpressionUUID->"24325baa-1bd7-453c-8e87-88593c8bd3be",
 InitializationCell->True],
Cell[256429, 7727, 2411, 74, 178, "Output",ExpressionUUID->"fe57be17-73bf-4495-a68a-851a5e590dbb"]
}, Open  ]],
Cell[CellGroupData[{
Cell[258877, 7806, 238, 4, 43, "Input",ExpressionUUID->"c7441aad-1bdc-44f1-b7d4-e2d15cefbc89"],
Cell[259118, 7812, 19135, 594, 1260, "Output",ExpressionUUID->"61433171-2b1b-4990-9cdb-c0daceede570"]
}, Open  ]],
Cell[CellGroupData[{
Cell[278290, 8411, 730, 18, 97, "Input",ExpressionUUID->"6ccbbadb-4c80-46b0-9df3-389e65c58192",
 InitializationCell->True],
Cell[279023, 8431, 657, 14, 60, "Output",ExpressionUUID->"725411da-3a0e-436d-a162-c8bf690332cc"]
}, Open  ]],
Cell[279695, 8448, 206, 3, 43, "Input",ExpressionUUID->"bf6282a4-bf59-4058-b4fc-db09ff584daa"],
Cell[CellGroupData[{
Cell[279926, 8455, 714, 16, 97, "Input",ExpressionUUID->"2691faf9-5bbf-484b-99e2-dea8670827ed",
 InitializationCell->True],
Cell[280643, 8473, 4963, 143, 227, "Output",ExpressionUUID->"4227425b-cf38-4bd9-8f64-2153392a2ee6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[285643, 8621, 375, 10, 43, "Input",ExpressionUUID->"88e834a5-0278-4cc6-8504-f2cb5da75a3a"],
Cell[286021, 8633, 4617, 138, 227, "Output",ExpressionUUID->"6b1d4be8-bb82-4d6b-a73e-332da6dfb4f1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[290675, 8776, 203, 3, 43, "Input",ExpressionUUID->"9f2255da-a3c4-4626-816b-0f62a00df949"],
Cell[290881, 8781, 175, 2, 49, "Output",ExpressionUUID->"83337e9b-7de8-4d95-9626-304f9b24c83b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[291093, 8788, 232, 4, 67, "Input",ExpressionUUID->"4fcb9a8c-22da-4d8b-af12-0b7359e93262",
 InitializationCell->True],
Cell[291328, 8794, 198, 3, 49, "Output",ExpressionUUID->"d7aae994-36c2-44ff-967e-84d9d6acfca7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[291563, 8802, 284, 5, 67, "Input",ExpressionUUID->"b9210ddc-c3eb-4f88-ba37-2e6c119ca70e",
 InitializationCell->True],
Cell[291850, 8809, 253, 3, 49, "Output",ExpressionUUID->"1d90d3ec-c3b8-4eb6-b629-6c4b4eea210f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[292140, 8817, 631, 14, 67, "Input",ExpressionUUID->"b51d2f51-c8e7-4595-85c8-dc257e699244",
 InitializationCell->True],
Cell[292774, 8833, 216741, 6317, 8136, "Output",ExpressionUUID->"d7db6b96-d396-4ce0-a3de-0ee3a69cf791"]
}, Open  ]],
Cell[509530, 15153, 297, 6, 47, "Item",ExpressionUUID->"697c3228-398b-4397-95e6-7a4353a4d906"],
Cell[509830, 15161, 414, 7, 67, "Input",ExpressionUUID->"447031df-4dc4-42d1-bbdf-0aa8ea40420c",
 InitializationCell->True],
Cell[CellGroupData[{
Cell[510269, 15172, 396, 9, 67, "Input",ExpressionUUID->"d975edd5-dc69-480f-b23a-ce9bee0e49c0",
 InitializationCell->True],
Cell[510668, 15183, 422, 13, 113, "Output",ExpressionUUID->"0d28ecb4-7670-4807-8b95-d281fcc4dbe6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[511127, 15201, 472, 11, 67, "Input",ExpressionUUID->"d977e8bb-02a9-4678-b1af-151da58011f6",
 InitializationCell->True],
Cell[511602, 15214, 1249, 36, 87, "Output",ExpressionUUID->"09a44a2e-697f-46ba-9450-f4fc83d96e85"]
}, Open  ]],
Cell[CellGroupData[{
Cell[512888, 15255, 390, 9, 67, "Input",ExpressionUUID->"b6e442db-49a8-489b-b467-01fa54dabd86",
 InitializationCell->True],
Cell[513281, 15266, 393, 11, 110, "Output",ExpressionUUID->"a2fb8f12-4262-4264-a115-a71ee985dbb7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[513711, 15282, 541, 12, 67, "Input",ExpressionUUID->"8e0055c9-7978-4147-b375-027e69d6e0be",
 InitializationCell->True],
Cell[514255, 15296, 848, 24, 54, "Output",ExpressionUUID->"04f3eda1-de9e-4ee0-a909-e87c87215dd3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[515140, 15325, 338, 8, 67, "Input",ExpressionUUID->"a32fc744-22cc-4b13-84c6-cd94f2ab900b",
 InitializationCell->True],
Cell[515481, 15335, 717, 22, 54, "Output",ExpressionUUID->"d1916d3b-7f10-4a1c-9f09-64b9cd26ae8b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[516235, 15362, 403, 9, 67, "Input",ExpressionUUID->"4a953594-faf6-4809-b53d-ff0bf2198f07",
 InitializationCell->True],
Cell[516641, 15373, 267, 5, 49, "Output",ExpressionUUID->"3e3bf5d6-1ca9-4bbb-b6d0-66d2b1896d53"]
}, Open  ]],
Cell[516923, 15381, 406, 8, 52, "Text",ExpressionUUID->"d6b83dd4-ea9f-4a45-b1c4-e7eb61ec098d"],
Cell[CellGroupData[{
Cell[517354, 15393, 343, 5, 102, "Input",ExpressionUUID->"f6b5f219-7d3c-4d16-ade4-4bcc71bfe86b"],
Cell[517700, 15400, 267, 5, 49, "Output",ExpressionUUID->"0f98aeda-9e2d-4083-abbb-f7d96c2f1fa9"],
Cell[517970, 15407, 766, 23, 54, "Output",ExpressionUUID->"a3705485-dd74-4f06-ad4c-1a4f0faf66c6"]
}, Open  ]],
Cell[518751, 15433, 200, 3, 43, "Input",ExpressionUUID->"467005e2-5b4e-4370-be71-c5c04bd5a697"],
Cell[CellGroupData[{
Cell[518976, 15440, 212, 3, 43, "Input",ExpressionUUID->"8334df0b-e4c7-4a51-8628-1a4eaf683164"],
Cell[519191, 15445, 2165, 66, 145, "Output",ExpressionUUID->"c6ceb154-06cd-47e4-bfd4-53df3da9e2d6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[521393, 15516, 179, 2, 43, "Input",ExpressionUUID->"559595f6-e882-4043-91c2-718f47c2ebb9"],
Cell[521575, 15520, 383, 10, 49, "Output",ExpressionUUID->"6f989862-0c7c-49b6-96a1-39e4afd56242"]
}, Open  ]],
Cell[521973, 15533, 214, 3, 43, "Input",ExpressionUUID->"67eb5c4a-0927-45c5-bddf-c559a1d774c0"],
Cell[522190, 15538, 154, 3, 43, "Input",ExpressionUUID->"1ac2d07c-b93f-4d44-ac2a-6287b6e4fe87"]
}
]
*)